home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pokey's Magazine 17
/
Pokeys_Magazine_17_1992_02___nl_Side_B.atr
/
crxfeb.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
1 lines
0100 ;*******************************¢0105 ;*** ***¢0110 ;*** CodeRunner Februari 92 ***¢0115 ;*** ***¢0120 ;*** Voorbeeld van een : ***¢0125 ;*** ***¢0130 ;*** Displaylist Interrupt ***¢0135 ;*** ***¢0140 ;*** Gemaakt door : ***¢0145 ;*** ***¢0150 ;*** The Missing Link ***¢0160 ;*** en ***¢0170 ;*** Jack de Bruijn ***¢0175 ;*** ***¢0180 ;*******************************¢0190 ;¢0200 ;¢0210 COL1 = $D01A¢0220 WSYNC = $D40A¢0230 ;¢0240 *= $8000¢0250 ;¢0260 LDA # <DL¢0270 STA $0230¢0280 LDA # >DL¢0290 STA $0231¢0300 LDA # <DLI¢0310 STA $0200¢0320 LDA # >DLI¢0330 STA $0201¢0340 LDA #$C0¢0350 STA $D40E¢0360 ;¢0370 LOOP¢0380 LDA $0284¢0390 BNE LOOP¢0400 STA WSYNC¢0410 JMP LOOP¢0420 ;¢0430 ;¢0440 DL¢0450 .BYTE $70,$70,$20,$20,$20,$20¢0460 .BYTE $80¢0470 .BYTE $70,$70,$20,$20,$20¢0480 .BYTE $80¢0490 .BYTE $70,$70,$20,$20¢0500 .BYTE $80¢0510 .BYTE $70,$70,$20¢0520 .BYTE $80¢0530 .BYTE $70,$70,$10¢0540 .BYTE $80¢0550 .BYTE $70,$70,0¢0560 .BYTE $80¢0570 .BYTE $70,$70,0¢0580 .BYTE $80¢0590 .BYTE $70,$70,$10¢0600 .BYTE $80¢0610 .BYTE $70,$70,$20¢0620 .BYTE $80¢0630 .BYTE $70,$70,$20,$20¢0640 .BYTE $80¢0650 .BYTE $70,$70,$20,$20,$20¢0660 .BYTE $80¢0670 .BYTE $70,$70,$20,$20,$20,$20¢0680 .BYTE $80¢0690 .BYTE 'A¢0700 .WORD DL¢0710 ;¢0720 DLI¢0730 PHA ¢0740 TYA ¢0750 PHA ¢0760 TXA ¢0770 PHA ¢0780 LDY #16¢0790 DLILOOP¢0800 LDA COLOR,Y¢0810 STA WSYNC¢0820 LDX $0278¢0830 CPX #15¢0840 BEQ DOOR¢0850 STX TEMP¢0860 ADC TEMP¢0870 DOOR¢0880 STA COL1¢0890 DEY ¢0900 BPL DLILOOP¢0910 LDA #0¢0920 STA COL1¢0930 PLA ¢0940 TAX ¢0950 PLA ¢0960 TAY ¢0970 PLA ¢0980 RTI ¢0990 ;¢1000 TEMP¢1010 .BYTE 0¢1020 COLOR¢1030 .BYTE 67,68,69,70,71,72,73,74,75¢1040 .BYTE 95,94,93,92,91,90,89,88,87¢
