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