home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pokey's Magazine 20
/
Pokeys_Magazine_20_1992_05___nl_Side_B.atr
/
crme1.src
< prev
next >
Wrap
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 DE¢0250 ; EIGEN 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 START¢0390 JMP ANIMATE¢0400 ;¢0410 DPL¢0420 .BYTE $70¢0430 .BYTE $47¢0440 .WORD SCR¢0450 .BYTE 7¢0460 .BYTE 'A¢0470 .WORD DPL¢0480 ;¢0490 ANIMATE¢0500 LDX #3 ; KARAKTER 3¢0510 ANIMATE1¢0520 TXA ; NAAR ACC¢0530 STA SCR ; OP SCHERM¢0531 STA SCR+2¢0532 STA SCR+4¢0540 CLC ¢0550 ADC #3 ; KARAKTER 6¢0560 STA SCR+20 ; OP SCHERM¢0561 STA SCR+22¢0562 STA SCR+24¢0570 LDA $D01F¢0580 CMP #6 ; STARTKNOP ?¢0590 BNE ANIMATE2 ; NEE, VERDER¢0600 JMP ($0A) ; JA, DOS¢0610 ANIMATE2¢0620 JSR PAUSE ; VERTRAAG¢0630 DEX ; VERLAAG NUMMER¢0640 BNE ANIMATE1 ; VAN HET¢0650 JMP ANIMATE ; KARAKTER¢0660 ;¢0670 PAUSE¢0680 PHA ¢0690 TXA ¢0700 PHA ¢0710 TYA ¢0720 PHA ¢0730 INC 708¢0740 LDX #$A0¢0750 P1¢0760 LDY #$00¢0770 P2¢0780 DEY ¢0790 BNE P2¢0800 DEX ¢0810 BNE P1¢0820 PLA ¢0830 TAY ¢0840 PLA ¢0850 TAX ¢0860 PLA ¢0870 RTS ¢0880 ;¢0890 SCR¢0900 .WORD 0,0,0,0,0,0,0,0,0,0¢0910 SCR1¢0920 .WORD 0,0,0,0,0,0,0,0,0,0¢0930 ;¢0940 *= $9000¢0950 KARS¢0960 .BYTE 0,0,0,0,0,0,0,0¢0970 .BYTE 255,249,249,255,231,126,129,255¢0980 .BYTE 255,153,153,255,231,126,129,255¢0990 .BYTE 255,159,159,255,231,126,129,255¢1000 .BYTE 195,195,227,3,3,3,3,7¢1010 .BYTE 195,195,195,195,195,195,195,231¢1020 .BYTE 195,195,199,192,192,192,192,224¢