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 #0
1400 RAS2 LDA FARBTAB,Y
1410 RAS1 CPX 53266
1420 BCS RAS1
1430 STA 53280
1440 INX
1450 INY
1451 CPY #192
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 ;
2000 FARBTAB DFB 11,0,11,12,0,11,12,15,0,11,12,15
2010 DFB 1,15,12,11,0,15,12,11,0,12,11,0,11
2020 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2030 DFB 0,0,0,0,0,0,0,0,0,0,6,0
2040 DFB 6,14,0,6,14,3,0,6,14,3,7,0
2050 DFB 6,14,3,7,1,7,8,10,9,0,7,8
2060 DFB 10,9,0,8,10,9,0,10,9,0,9,0
2070 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2080 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2090 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2100 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2110 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2120 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2130 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2140 DFB 0,0,0,0,0,0,0,0,0,0,0,0
2150 DFB 0,0,0,0,0,0,0,0,0,0,1
2160 ;
2170 ;
2180 BAR1 DFB 0,2,0,2,2,10,2,10,10,7,10,7,7,1
2190 DFB 7,1,1,7,1,7,7,10,7,10,10,2,10,2,2,0,2,0
READY.
