10 *=$4000
20 LDX #$FF
30 STX $2FC
40 ;
50 ;
60 LOOP LDA $D40B
70 STA $D40A
80 STA $D01A
90 LDX $2FC
0100 CPX #$FF
0110 BNE QUIT
0120 JMP LOOP
0130 QUIT
0140 END