1000 ORG 20000
1010 ;
1020 BARH1 EQU 2
1030 ;
1040 ;
1050 SEI
1060 LDA #<MAIN
1070 STA 788
1080 LDA #>MAIN
1090 STA 789
1100 LDA #127
1110 STA 56333
1120 LDA #0
1130 STA 53266
1140 LDA #0
1150 STA 53265
1160 LDA #129
1170 STA 53274
1180 LDA #1
1190 STA 53273
1200 LDA #0
1210 STA BARH1
1220 CLI
1230 RTS
1240 ;
1250 MAIN LDA #1
1260 STA 53273
1270 JSR RASTER
1280 JSR COLROTATE
1290 ;JMP $EA31
1300 PLA
1310 TAX
1320 PLA
1330 TAY
1340 PLA
1350 RTI
1360 ;
1370 ;
1380 RASTER LDX #50;GENAUOBEN
1390 LDY #192
1400 RAS2 LDA FARBTAB,Y
1410 RAS1 CPX 53266
1420 BCS RAS1
1430 STA 53280
1440 INX
1450 DEY
1460 BNE RAS2
1470 LDX 53266
1480 RAS3 CPX 53266
1490 BEQ RAS3
1500 STY 53280
1510 RTS
1520 ;
1530 ;
1540 COLROTATE INC BARH1
1550 CMP #192
1560 BEQ BAR1RESET
1570 COLR1 LDX BARH1
1580 LDY #31
1590 COLR2 LDA BAR1,Y
1600 STA FARBTAB,X
1610 INX
1620 DEY
1630 BPL COLR2
1640 RTS
1650 ;
1660 BAR1RESET LDA #0
1670 STA BARH1
1680 JMP COLR1
1690 ;
1700 ;
1710 FARBTAB DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1720 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1730 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1740 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1750 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1760 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1770 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1780 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1790 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1800 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1810 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1820 DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1830 ;
1840 ;
1850 ;
1860 BAR1 DFB 0,2,0,2,2,10,2,10,10,7,10,7,7,1
1870 DFB 7,1,1,7,1,7,7,10,7,10,10,2,10,2,2,0,2,0
READY.
