Pokey's Magazine 1/Pokeys_Magazine_01_1990_10___nl_Side_B.atr/crxmpl1.src

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

0100 ;****************************¢0110 ;*      POKEY MAGAZINE      *¢0120 ;*                          *¢0130 ;*  CODE RUNNER  Jack       *¢0140 ;*  CRXMPL1.SRC  de Bruijn  *¢0150 ;*               1990       *¢0160 ;*                          *¢0170 ;****************************¢0180     *=  $0600¢0190     LDA #DPL&255¢0200     STA $0230¢0210     LDA #DPL/256¢0220     STA $0231¢0230     SEI ¢0240     JSR INTIN¢0250     CLI ¢0260 LOOP LDA #TXT01&255¢0270     STA SCR¢0280     INC ANT1¢0290     JSR PAUSE¢0300     LDA #TXT02&255¢0310     STA SCR1¢0320     DEC ANT2¢0330     JSR PAUSE¢0340     LDA #TXT02&255¢0350     STA SCR¢0360     DEC ANT1¢0370     JSR PAUSE¢0380     LDA #TXT01&255¢0390     STA SCR1¢0400     INC ANT2¢0410     JSR PAUSE¢0420     JMP LOOP¢0430 DPL .BYTE $70,$70,$70,$70,$70¢0440     .BYTE $70,$70,$70,$70,$70¢0450     .BYTE $80¢0460 ANT1 .BYTE $46¢0470 SCR .WORD SCREEN¢0480     .BYTE $80¢0490 ANT2 .BYTE $47¢0500 SCR1 .WORD SCREEN1¢0510     .BYTE 'A¢0520     .WORD DPL¢0530 TXT01 .BYTE "@@@@@@@pokey"¢0540     .BYTE "@@@@@@@@@@"¢0550 TXT02 .BYTE "@@@@@@magazine"¢0560     .BYTE "@@@@@@@@"¢0570 PAUSE LDX #$70¢0580 L2  LDY #0¢0590 L1  DEY ¢0600     BNE L1¢0610     DEX ¢0620     BNE L2¢0630     RTS ¢0640 INTIN LDA #DPINT&255¢0650     STA $0200¢0660     LDA #DPINT/256¢0670     STA $0201¢0680     LDA #$C0¢0690     STA $D40E¢0700     RTS ¢0710 DPINT PHA ¢0720     TXA ¢0730     PHA ¢0740     TYA ¢0750     PHA ¢0760     LDX #10¢0770 INTL LDA KLTAB,X¢0780     STA $D017¢0790     STA $D40A¢0800     INC KLTAB,X¢0810     DEX ¢0820     BNE INTL¢0830     PLA ¢0840     TAY ¢0850     PLA ¢0860     TAX ¢0870     PLA ¢0880     RTI ¢0890 KLTAB .BYTE 10,20,30,40,50¢0900     .BYTE 60,70,80,90,100¢0910 SCREEN = *¢0920 SCREEN1 = SCREEN+20¢