1000 ORG $7530
1010 ;
1020 FARB EQU 1024+32768
1030 ;
1040 LDA #0
1050 STA 53280
1060 STA 53265
1070 LDX #255
1080 TXA
1090 HUND CMP 53266
1100 BNE HUND
1110 DEX
1120 BNE HUND
1130 LDA #149
1140 STA 56576
1150 LDA #24
1160 STA 53272
1170 LDA #59
1180 STA 53265
1190 ;
1200 LDX #0
1210 LABEL LDA FARBTAB,X
1220 BEQ FERTG
1230 CMP #255
1240 BEQ SPACEWART
1250 ;
1260 LDY #230
1270 SYNCHRO CPY 53266
1280 BNE SYNCHRO
1290 ;
1300 LDY #0
1310 MACH STA FARB+$000,Y
1320 STA FARB+$100,Y
1330 STA FARB+$200,Y
1340 STA FARB+$300,Y
1350 INY
1360 BNE MACH
1370 ;
1380 HEIRI INX
1390 BNE LABEL
1400 FERTG LDA #0
1410 STA 53265
1420 JMP $0810
1430 ;
1440 ;
1450 SPACEWART STX 2
1460 JSR 65508
1470 LDX 2
1480 CMP #32
1490 BNE SPACEWART
1500 BEQ HEIRI
1510 ;
1520 FARBTAB DFB $B0,$B0,$C0,$C0,$F0,$F0,$10,255
1530 DFB $F0,$F0,$C0,$C0,$B0,$B0,0
READY.
