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›