10 IF PEEK(&H10D)<&H80 THEN 720
20 EXEC &H6C00
30 ALL
40 ORG 490
50 @FLAG EQU $E6
60 @BUTTONS EQU $E7
70 @XPOS EQU $F8
80 @STAT EQU $F9
90 @YPOS EQU $FA
100 @IRQVECT RMB 2
110 @START LDA #$18
120 STA $FF07
130 LDA #$1
140 STA $FF06
150 LDX $10D
160 STX @IRQVECT
170 LEAX @IRQ,PCR
180 STX $10D
190 LDA #3
200 STA @FLAG
210 RTS
220 @IRQ LDA $FF05
230 ANDA #8
240 BEQ @FIN
250 LDB $FF04
260 LDA @FLAG
270 DECA
280 STA @FLAG
290 CMPA #2
300 BEQ @CTRL
310 TSTA
320 BEQ @YDIR
330 ANDB #$3F
340 LDA @STAT
350 ANDA #$3
360 BEQ @XADD
370 PSHS B
380 LDB #63
390 SUBB ,S+
400 PSHS B
410 LDB @XPOS
420 SUBB ,S+
430 STB @XPOS
440 BRA @FIN
450 @XADD ADDB @XPOS
460 STB @XPOS
470 BRA @FIN
480 @YDIR LDA #3
490 STA @FLAG
500 ANDB #$3F
510 LDA @STAT
520 ANDA #$C
530 BEQ @YADD
540 PSHS B
550 LDB #63
560 SUBB ,S+
570 PSHS B
580 LDB @YPOS
590 SUBB ,S+
600 STB @YPOS
610 BRA @FIN
620 @YADD ADDB @YPOS
630 STB @YPOS
640 BRA @FIN
650 @CTRL STB @STAT
660 ANDB #$30
670 STB @BUTTONS
680 LDA #2
690 STA @FLAG
700 @FIN JMP [@IRQVECT]
710 END @START
720 CLS
730 PRINT@0,PEEK(&HF8),PEEK(&HFA)
740 PRINTPEEK(&HE7)
750 GOTO 730