Pokey's Magazine 16/Pokeys_Magazine_16_1992_01___nl_Side_B.atr/crxmpl.src

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