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

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

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¢əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə