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õ