10 ;HDMAC.M65›20       .MACRO OPENDIR ›30       LDX #%2*16›40       LDA # <%1›50       STA BUFLO,X›60       LDA # >%1›70       STA BUFHI,X›80       LDA #%3›90       STA AUX1,X›0100     LDA #%4›0110     STA AUX2,X›0120     LDA #3›0130     STA IOCMD,X›0140     JSR BBS_CIO›0150     .ENDM ›0160     .MACRO SETFILE ›0170     LDA # <%1›0180     STA FSPEC›0190     LDA # >%1›0200     STA FSPEC+1›0210     .ENDM ›0220     .MACRO OPEN_IT ›0230     LDX #%2*16›0240     LDA # <%1›0250     STA BUFLO,X›0260     LDA # >%1›0270     STA BUFHI,X›0280     LDA #%3›0290     STA AUX1,X›0300     LDA #3›0310     STA IOCMD,X›0320     JSR BBS_CIO›0330     .ENDM ›0340     .MACRO PAT ›0350     LDA # <%1›0360     STA $D4›0370     LDA # >%1›0380     STA $D5›0390     JSR XPAT_LOOP›0400 ;IN MAIN PROGRAM›0410     .ENDM ›0420     .MACRO PCR ›0430     LDA # <%1›0440     STA $D4›0450     LDA # >%1›0460     STA $D5›0470     JSR PCR_LOOP›0600     .ENDM ›0610     .MACRO CR ›0620     LDA #155›0630     JSR PUTCHAR›0640     .ENDM ›0650     .MACRO TRANSFER ›0660 ;›0670     LDX #%1*16›0680 ;›0690     LDA #%2›0700     STA IOCMD,X›0710     LDA # <%3›0720     STA BUFLO,X›0730     LDA # >%3›0740     STA BUFHI,X›0750     LDA #%4›0760     STA LENLO,X›0770     LDA #%5›0780     STA LENHI,X›0790     JSR BBS_CIO›0800     .ENDM ›