Antic Magazine 1988 October/Antic_Magazine_1988_10_Antic_Side_A.atr/xepfread.m65

Text File | 2023-02-26 | 1KB | 1 lines

0100 ;XEPFREAD SOURCE CODE¢0110 ; 10 DIM BUF$(7680):BUF$(1)=CHR$(0):BUF$(7680)=CHR$(0):BUF$(2)=BUF$¢0120 ; 30 A=USR(XEPFREAD, "D:PIC.GR8", ADR(BUF$))¢0130 ICCOM = $0342¢0140 ICBAL = $0344¢0150 ICBAH = $0345¢0160 ICBLL = $0348¢0170 ICBLH = $0349¢0180 ICAX1 = $034A¢0190 ICAX2 = $034B¢0200 CIOV =  $E456¢0210 FILE =  $D0¢0220 STRING = $D2¢0230     *=  $0600¢0240     PLA ¢0250     CMP #$02¢0260     BEQ MAIN¢0270 ;¢0280     TAX ¢0290     BEQ LEAVE¢0300 ;¢0310 LOOPIT¢0320     PLA ¢0330     PLA ¢0340     DEX ¢0350     BNE LOOPIT¢0360 ;¢0370 LEAVE¢0371     RTS ¢0375 MAIN¢0380     PLA ¢0390     STA FILE+1¢0400     PLA ¢0410     STA FILE¢0420     PLA ¢0430     STA STRING+1¢0440     PLA ¢0450     STA STRING¢0460     LDX #$70¢0470     LDA #$03¢0480     STA ICCOM,X¢0490     LDA #$04¢0500     STA ICAX1,X¢0510     LDA #$00¢0520     STA ICAX2,X¢0530     LDA FILE¢0540     STA ICBAL,X¢0550     LDA FILE+1¢0560     STA ICBAH,X¢0570     JSR CIOV    ;$E456¢0580     TYA ¢0590     BMI CANTOPEN¢0600 ;¢0610     LDX #$70¢0620     LDA #$07¢0630     STA ICCOM,X¢0640     LDA STRING¢0650     STA ICBAL,X¢0660     LDA STRING+1¢0670     STA ICBAH,X¢0680     LDA #$00¢0690     STA ICBLL,X¢0700     LDA #$1E¢0710     STA ICBLH,X¢0720     JSR CIOV    ;$E456¢0730     TYA ¢0740     LDX #$70¢0750     LDA #$0C¢0760     STA ICCOM,X¢0770     JSR CIOV    ;$E456¢0780 CANTOPEN¢0790     RTS ¢0800     .END        $2075¢əəəəəəəəəəəəəəəə