home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pokey's Magazine 19
/
Pokeys_Magazine_19_1992_04___nl_Side_B.atr
/
crapr.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
1 lines
0100 .OPT NO LIST¢0110 ; ¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¢0120 ; ¬ááááááס∩δσ∙º≤áלβτβ·Θ∈σáááááᬢ0130 ; ¬ááááááט∩∙≤⌠Θπδá≥∩⌡⌠Θ∈σáááááᬢ0140 ; ¬áááááááááááááááááááááááááááᬢ0150 ; ¬ááááááא∙áטβπδá¿טתá¿õ¨¨Ø⌐⌐ááᬢ0160 ; ¬áááááááááááááááááááááááááááᬢ0170 ; ¬ááááááה∩≥ááááááááááááááááááᬢ0180 ; ¬ááááááב∩Σσפ⌡∈∈σ≥áááááááááááᬢ0190 ; ¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¢0195 ;¢0200 *= $8000¢0210 JOY = $0278¢0215 ;¢0220 JMP MAIN¢0230 DPL¢0240 .BYTE $70,$70,$70,$70¢0250 .BYTE $46¢0260 .WORD SC¢0270 .BYTE 6,6,6,6,6,6,6,6¢0280 .BYTE $70,$70,$70,$70¢0290 .BYTE 'A¢0300 .WORD DPL¢0330 ;¢0340 MAIN¢0350 LDA #DPL&255¢0360 STA $0230¢0370 LDA #DPL/256¢0380 STA $0231¢0381 ;¢0382 ; Onderstaande routine behandelt¢0383 ; alle joystick richtingen....¢0384 ;¢0390 CLC ¢0400 JM¢0410 LDA JOY¢0420 TAX ¢0430 EOR #15¢0440 BEQ JM¢0450 TXA ¢0460 AND #12¢0470 EOR #12 ; Als nul dan¢0480 BEQ J1 ; naar op / neer¢0490 AND #8¢0500 BEQ LFT ; Naar links/rechts¢0510 RGT¢0520 LDA SB+2 ; Zet wat op het¢0530 STA SC+8 ; scherm¢0540 SEC ¢0550 BCS J1¢0560 LFT¢0570 LDA SB+3¢0580 STA SC+8¢0590 J1¢0600 TXA ; Kijk naar¢0610 CLC ; op of neer.¢0620 LSR A ; En of dat¢0630 BCC UP ; wel van¢0640 CLC ; toepassing¢0650 LSR A ; is.¢0660 BCS J2¢0670 DWN¢0680 LDA SB+1¢0690 STA SC+10¢0700 SEC ¢0710 BCS J2¢0720 UP LDA SB¢0730 STA SC+10¢0740 J2¢0750 JMP JM¢0751 BRK ¢0752 SB .SBYTE "ONRL"¢0760 SC = *¢