home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pokey's Magazine 16
/
Pokeys_Magazine_16_1992_01___nl_Side_B.atr
/
crxmpl.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
1 lines
0100 ;***************************¢0110 ; CODERUNNER¢0120 ; "Eenvoudige"¢0130 ; DISPLAYLIST INTERRUPT¢0140 ;***************************¢0200 .OPT NO LIST¢0210 *= $3000¢0220 LDA # <DPL¢0230 STA $0230¢0240 LDA # >DPL¢0250 STA $0231¢0260 LDA # <DPINT¢0270 STA $0200¢0280 LDA # >DPINT¢0290 STA $0201¢0300 LDA #$C0¢0310 STA $D40E¢0320 VAST JMP VAST¢0330 ;¢0340 DPL .BYTE $70+$80¢0350 .BYTE $42¢0360 .WORD TXT¢0370 .BYTE $80,2,$80,2¢0380 .BYTE $80,2,$80,2¢0390 .BYTE $80,2,$80,2¢0400 .BYTE $80,2,$80,2¢0410 .BYTE $80,2,$80,2¢0420 .BYTE 'A¢0430 .WORD DPL¢0440 ;¢0450 ;¢0460 DPINT¢0470 PHA ¢0480 TXA ¢0490 PHA ¢0500 TYA ¢0510 PHA ¢0520 INC TELLER¢0530 LDX TELLER¢0540 LDA TABEL,X¢0550 STA $D40A¢0560 STA $D018¢0570 CPX #11¢0580 BNE ENDDLI¢0590 LDA #0¢0600 STA TELLER¢0610 ENDDLI¢0620 PLA ¢0630 TAY ¢0640 PLA ¢0650 TAX ¢0660 PLA ¢0670 RTI ¢0680 ;¢0690 TELLER .BYTE 0¢0700 TABEL .BYTE 20,30,40,50,60,70,80,90,100,110,120¢0710 TXT .SBYTE "CODERUNNER "¢