C64 Software  <  SCA: The C64 Software Collection / CYCLE 1

  Run
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.