Pokey's Magazine 17/Pokeys_Magazine_17_1992_02___nl_Side_B.atr/crx1feb.src

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

0100 ;******************************¢0110 ;*** CodeRunner Feb. 1991   ***¢0120 ;*** Voorbeeldprogramma     ***¢0130 ;*** Displaylist interrupt  ***¢0140 ;***                        ***¢0150 ;*** Geprogrammeerd door :  ***¢0160 ;***                        ***¢0170 ;*** The Missing Link       ***¢0180 ;***                        ***¢0190 ;***                        ***¢0200 ;******************************¢0210 ;¢0220 COL1 =  $D01A¢0230 WSYNC = $D40A¢0240 ;¢0250     *=  $8000¢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 LOOP¢0370     JMP LOOP¢0380 ;¢0390 ;¢0400 DL¢0410     .BYTE $70,$70,$70,$70¢0420     .BYTE $80¢0430     .BYTE 'A¢0440     .WORD DL¢0450 ;¢0460 ;¢0470 DLI¢0480     PHA ¢0490     TYA ¢0500     PHA ¢0510     TXA ¢0520     PHA ¢0530     LDY #15¢0540 DLILOOP¢0550     LDA COLOR,Y¢0560     STA WSYNC¢0570     STA COL1¢0580     DEY ¢0590     BPL DLILOOP¢0600     LDA #0¢0610     STA COL1¢0620     PLA ¢0630     TAX ¢0640     PLA ¢0650     TAY ¢0660     PLA ¢0670     RTI ¢0680 ;¢0690 COLOR .BYTE 0,2,4,6,8,10,12,14,14,12,10,8,6,4,2,0¢