Pokey's Magazine 20/Pokeys_Magazine_20_1992_05___nl_Side_B.atr/crme2.src

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

0100     .OPT NO LIST,OBJ¢0110 ;*****************************¢0120 ;**  CODERUNNER             **¢0130 ;**  VOORBEELDPROGRAMMA     **¢0140 ;**                         **¢0150 ;**  MEI 1992    Ø          **¢0160 ;**                         **¢0170 ;**  JACK DE BRUIJN         **¢0180 ;**                         **¢0190 ;*****************************¢0200 ;¢0210     *=  $6000¢0220 ;¢0230 ; VERZET DE POINTER VAN DE¢0240 ; KARAKTERSET NAAR GEEN¢0250 ; DATA OP $9000¢0260 ;¢0270 INIT¢0280     LDA #$90¢0290     STA $02F4¢0300 ;¢0310 ;¢0320 ; ZET OP HET SCHERM¢0330 ;¢0340     LDA # <DPL¢0350     STA $0230¢0360     LDA # >DPL¢0370     STA $0231¢0380     LDX #1      ; ZET KAR. 1¢0390     STX SCR     ; 3 KEER¢0400     STX SCR+2   ; OP HET SCHERM¢0410     STX SCR+4¢0420     INX         ; EN KAR 2¢0430     STX SCR1    ; 3 KEER¢0440     STX SCR1+2  ; OP HET SCHERM¢0450     STX SCR1+4¢0460 START¢0470     JMP ANIMATE¢0480 ;¢0490 DPL¢0500     .BYTE $70¢0510     .BYTE $47¢0520     .WORD SCR¢0530     .BYTE 7¢0540     .BYTE 'A¢0550     .WORD DPL¢0560 ;¢0570 ;¢0580 ANIMATE¢0590     LDX #0¢0600     LDY #0¢0610     LDA #3      ; LOOP 3 KEER¢0620     STA COUNT¢0630 ANIMLOOP ;      VERANDER¢0640     LDA KARS,X  ; DE DATA VAN¢0650     STA $9008,Y ; KAR.1¢0660     LDA KARS+24,X ; EN¢0670     STA $9010,Y ; KAR.2¢0680     INX ¢0690     INY ¢0700     CPY #8      ; 8 BYTES¢0710     BNE ANIMLOOP¢0720     JSR PAUSE¢0730     JSR STOP¢0740     LDY #0¢0750     DEC COUNT¢0760     BNE ANIMLOOP¢0770     JMP ANIMATE¢0780 ;¢0790 STOP¢0800     LDA 53279¢0810     CMP #6      ; STARTKNOP ?¢0820     BNE STOP1¢0830     JMP ($0A)   ; JA, DOS¢0840 STOP1¢0850     RTS ¢0860 ;¢0870 PAUSE¢0880     PHA ¢0890     TXA ¢0900     PHA ¢0910     TYA ¢0920     PHA ¢0930     INC 708¢0940     LDX #$A0¢0950 P1¢0960     LDY #$00¢0970 P2¢0980     DEY ¢0990     BNE P2¢1000     DEX ¢1010     BNE P1¢1020     PLA ¢1030     TAY ¢1040     PLA ¢1050     TAX ¢1060     PLA ¢1070     RTS ¢1080 ;¢1090 COUNT .BYTE 0¢1100 ;¢1110 SCR¢1120     .WORD 0,0,0,0,0,0,0,0,0,0¢1130 SCR1¢1140     .WORD 0,0,0,0,0,0,0,0,0,0¢1150 ;¢1160 ; DATA OP $08000¢1170 ;¢1180     *=  $8000¢1190 KARS¢1200     .BYTE 255,249,249,255,231,126,129,255¢1210     .BYTE 255,153,153,255,231,126,129,255¢1220     .BYTE 255,159,159,255,231,126,129,255¢1230     .BYTE 195,195,227,3,3,3,3,7¢1240     .BYTE 195,195,195,195,195,195,195,231¢1250     .BYTE 195,195,199,192,192,192,192,224¢