0100 ;XEPGRAF SOURCE CODE
0110 ; XEP80 GRAPHICS DRIVER
0120 ; 10 DIM BUF$(7680):BUF$(1)=CHR$(0):BUF$(7680)=CHR$(0):BUF$(2)=BUF$
0130 ; 20 GRAPHICS 24
0140 ; 30 A=USR(XEPFREAD, "D:PIC.GR8", ADR(BUF$))
0150 ; 40 A=USR(XEPGRAF, ADR(BUF$)):REM PRINT IT FAST!
0160 ; 50 OPEN #7,4,0,"E:":CLOSE #7:REM RESTORE TEXT MODE
0170 ICCOM = $0342
0180 ICBAL = $0344
0190 ICBAH = $0345
0200 ICBLL = $0348
0210 ICBLH = $0349
0220 CIOV =  $E456
0230     *=  $0600
0240     PLA 
0250     CMP #$01
0260     BEQ XEPGRAF
0270 ;
0280     TAX 
0290     BEQ LEAVE
0300 ;
0310 USRCHK
0320     PLA 
0330     PLA 
0340     DEX 
0350     BNE USRCHK
0360 ;
0370 LEAVE
0380     RTS 
0390 ;
0400 XEPGRAF
0410     LDX #$00
0420     PLA 
0430     STA ICBAH,X
0440     PLA 
0450     STA ICBAL,X
0460     LDA #$0B
0470     STA ICCOM,X
0480     LDA #$00
0490     STA ICBLL,X
0500     LDA #$1E
0510     STA ICBLH,X
0520     JMP CIOV    ;$E456
0530     RTS 
0540     .END        $2075


---

Back to previous page