home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1987 October
/
Antic_Magazine_1987_10_Antic.atr
/
graphdli.m65
< prev
next >
Wrap
Text File
|
2023-02-26
|
944b
|
1 lines
0100 ;GRAPHICS 8/9 DEMO, SOURCE¢0110 ;BY PAUL LAY¢0120 ;(FROM PAGE 6 MAGAZINE, ENGLAND)¢0130 PRIOR = $D01B¢0140 WSYNC = $D40A¢0150 *= $0600¢0160 PHA ¢0170 TXA ¢0180 PHA ¢0190 TYA ¢0200 PHA ¢0210 LDA #$00¢0220 LDY #$40¢0230 LDX #$A0 ; Loop over¢0240 ; 160 scans¢0250 LOOP¢0260 STA WSYNC¢0270 STA PRIOR ; Disable GTIA¢0280 CPX #$A0¢0290 BEQ SKIP1 ; First LMS ?¢0300 ;¢0310 NOP ¢0320 SKIP1¢0330 CPX #$42 ; Second LMS ?¢0340 BEQ SKIP2¢0350 ;¢0360 STA $CB ; Three cycle¢0370 ; delay !¢0380 SKIP2¢0390 STA $CB ; Three cycle¢0400 ; delay !¢0410 NOP ¢0420 NOP ¢0430 NOP ¢0440 NOP ¢0450 STY PRIOR ; Enable GTIA #9¢0460 DEX ¢0470 BNE LOOP¢0480 ;¢0490 STA WSYNC¢0500 STA PRIOR ; Disable GTIA¢0510 PLA ¢0520 TAY ¢0530 PLA ¢0540 TAX ¢0550 PLA ¢0560 RTI ¢