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


---

Back to previous page