#IRQ

... 0 ORG 8192 20 SEI 30 LDA #147 40 JSR $FFD2 50 LDA #$7F 60 STA $DC0D 70 LDA #$FA 80 STA $D012 90 LDA ^IRQ (YOU USE THE UP ARROW) 100 STA $0315 110 LDA #IRQ 120 STA $0314 130 LDA #$F1 140 STA $D01A 150 CLI 160 EVER JMP EVER 170 IRQ LDA #01 180 STA $D019 190 LDA $D011 200 AND #$7F 210 STA $D011 220 LDA #$FA 230 STA $D012 240 LDX #00 250 BACK LDA COLS,X 260 STA 53280 270 JSR DELAY 280 INX 290 CPX #12 300 BNE BACK 310 LDX #00 320 BACK1 LDA COLS1,X 330 STA 53280 340 JSR DELAY 350 INX 360 CPX #12 370 BNE BACK1 380 LDX #00 390 BACK2 LDA COLS2,X 400 STA 53280 410 JSR DELAY 420 INX 430 CPX #12 440 BNE BACK2 450 LDX #00 460 BACK3 LDA COLS3,X 470 STA 53280 4 ...

... 40 JSR $FFD2 50 LDA #$7F 60 STA $DC0D 70 LDA #00 80 STA $D012 90 STA IRQCOUNT 100 LDA (UPARROW)IRQ - YOU JUST TYPE THE UP ARROW 110 STA $0315 120 LDA #IRQ 130 STA $0314 140 LDA $D01A 150 ORA #01 160 STA $D01A 165 CLI 170 LOOP JMP LOOP 180 IRQ LDA #01 190 STA $D019 200 LDA $D011 210 AND #$7F 220 STA $D011 230 LDA IRQCOUNT 240 BEQ INT1 250 CMP #01 260 BEQ INT2 270 JMP RESET 280 INT1 LDA #100 290 STA $D012 300 INC IRQCOUNT 310 LDA #02 320 STA 53280 330 STA 53281 340 JMP $EA31 350 INT2 LDA #200 360 STA $D012 370 INC IRQCOUNT 380 LDA #03 390 STA 53280 400 STA 53281 410 JMP $FEBC 420 RESET LDA #00 430 STA IRQCOUNT 440 STA $D012 450 LDA #05 460 STA 5328 ...