Pokey's Magazine 19/Pokeys_Magazine_19_1992_04___nl_Side_B.atr/crapr.src

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  =   *¢