1000 ORG 20000
1010 ;
1020 ;
1030 ;
1040 MAIN JSR FARBCYCLE
1050 JSR HOLEN
1060 JSR WARTE
1070 JMP MAIN
1080 ;
1090 FARBCYCLE LDY #39
1100 SUB1 LDA FARBTAB,Y
1110 STA $D800,Y
1120 STA $D800+80,Y
1130 STA $D800+160,Y
1140 STA $D800+240,Y
1150 STA $D800+320,Y
1160 STA $D800+400,Y
1170 STA $D800+480,Y
1180 STA $D800+560,Y
1190 STA $D800+640,Y
1200 STA $D800+720,Y
1210 STA $D800+800,Y
1220 STA $D800+880,Y
1230 STA $D800+960,Y
1240 DEY
1250 BPL SUB1
1260 ;
1270 LDY #0
1280 LDX #39
1290 SUB2 LDA FARBTAB,X
1300 STA $D800+40,Y
1310 STA $D800+120,Y
1320 STA $D800+200,Y
1330 STA $D800+280,Y
1340 STA $D800+360,Y
1350 STA $D800+440,Y
1360 STA $D800+520,Y
1370 STA $D800+600,Y
1380 STA $D800+680,Y
1390 STA $D800+760,Y
1400 STA $D800+840,Y
1410 STA $D800+920,Y
1420 DEX
1430 INY
1440 CPY #39
1450 BNE SUB2
1460 ;
1470 LDY #38
1480 LDX FARBTAB+39
1490 ROTATE LDA FARBTAB,Y
1500 STA FARBTAB+1,Y
1510 DEY
1520 BPL ROTATE
1530 TXA
1540 STA FARBTAB
1550 RTS
1560 ;
1570 FARBTAB DFB 0,0,2,2,9,9,8,8,7,7,1,1,7,7,8,8,9,9,2,2,0,0,6,6
1580 DFB 4,4,14,14,3,3,1,1,3,3,14,14,4,4,6,6
1590 ;
1600 WARTE LDA 53265
1610 BPL WARTE
1620 WART2 LDA 53265
1630 BMI WART2
1640 RTS
1650 ;
1660 HOLEN JSR 65508
1670 CMP #32
1680 BNE HOLEN2
1690 PLA
1700 PLA
1710 HOLEN2 RTS
READY.
