1000 *=$C000 1010 SEI 1020 JSR INIT 1030 LDA #$7F 1040 STA $DC0D 1050 LDA $DC0D 1060 LDA #$1B 1070 STA $D011 1080 LDA #$32 1090 STA $D012 1100 LDA #IRQ 1130 STA $0315 1140 LDA #$01 1150 STA $D019 1160 STA $D01A 1170 CLI 1180 LOOP JMP LOOP 1190 ; 1200 IRQ LDX #$0C 1210 L1 DEX 1220 BNE L1 1230 L2 LDY DELTAB,X 1240 LDA COLTAB,X 1250 L3 DEY 1260 BNE L3 1270 STA $D020 1280 STA $D021 1290 INX 1300 CPX #$C7 1310 BNE L2 1320 JSR COLOURS 1330 LDX CTR 1340 LDY SINUS,X 1350 LDX #$00 1360 L4 LDA BARCOL,X 1370 STA COLTAB,Y 1380 INX 1390 INY 1400 CPX #$09 1410 BNE L4 1420 INC CTR 1430 LDA #$01 1440 STA $D019 1450 JMP $EA31 1460 CTR BYT $00 1470 INIT JSR $E544 1480 LDA #$00 1490 STA $D015 1500 LDX #$00 1510 L5 LDY #$00 1520 L6 LDA DTAB,Y 1530 STA DELTAB,X 1540 INX 1550 INY 1560 CPY #$08 1570 BNE L6 1580 CPX #$C7 1590 BCC L5 1600 COLOURS LDX #$00 1610 L7 LDA STOREDCOLS,X 1620 STA COLTAB,X 1630 INX 1640 CPX #$C7 1650 BNE L7 1660 RTS 1670 *=$C100 1680 DELTAB ; 1690 *=$C200 1700 SINUS BYT $5F,$61,$63,$65,$68,$6A,$6C,$6F,$71,$73,$76,$78,$7A,$7C,$7F,$81 1710 BYT $83,$85,$87,$89,$8B,$8D,$8F,$91,$93,$95,$97,$99,$9B,$9D,$9E,$A0 1720 BYT $A2,$A3,$A5,$A6,$A8,$A9,$AB,$AC,$AD,$AF,$B0,$B1,$B2,$B3,$B4,$B5 1730 BYT $B6,$B7,$B8,$B9,$B9,$BA,$BB,$BB,$BC,$BC,$BC,$BD,$BD,$BD,$BD,$BD 1740 BYT $BD,$BD,$BD,$BD,$BD,$BD,$BC,$BC,$BC,$BB,$BB,$BA,$B9,$B9,$B8,$B7 1750 BYT $B6,$B5,$B4,$B3,$B2,$B1,$B0,$AF,$AD,$AC,$AB,$A9,$A8,$A6,$A5,$A3 1760 BYT $A2,$A0,$9E,$9D,$9B,$99,$97,$95,$93,$91,$8F,$8D,$8B,$89,$87,$85 1770 BYT $83,$81,$7F,$7C,$7A,$78,$76,$73,$71,$6F,$6C,$6A,$68,$65,$63,$61 1780 BYT $5F,$5C,$5A,$58,$55,$53,$51,$4E,$4C,$4A,$47,$45,$43,$41,$3E,$3C 1790 BYT $3A,$38,$36,$34,$32,$30,$2E,$2C,$2A,$28,$26,$24,$22,$20,$1F,$1D 1800 BYT $1B,$1A,$18,$17,$15,$14,$12,$11,$10,$0E,$0D,$0C,$0B,$0A,$09,$08 1810 BYT $07,$06,$05,$04,$04,$03,$02,$02,$01,$01,$01,$00,$00,$00,$00,$00 1820 BYT $00,$00,$00,$00,$00,$00,$01,$01,$01,$02,$02,$03,$04,$04,$05,$06 1830 BYT $07,$08,$09,$0A,$0B,$0C,$0D,$0E,$10,$11,$12,$14,$15,$17,$18,$1A 1840 BYT $1B,$1D,$1F,$20,$22,$24,$26,$28,$2A,$2C,$2E,$30,$32,$34,$36,$38 1850 BYT $3A,$3C,$3E,$41,$43,$45,$47,$4A,$4C,$4E,$51,$53,$55,$58,$5A,$5C 1860 *=$C300 1870 COLTAB ; 1880 *=$C400 1890 STOREDCOLS ; 1900 BYT 0,9,2,10,2,9,0,6,6,14,14,3,3,1,1,15,12,11,0,11,12,15,1,7,7,8,8,2,2 1910 BYT 0,11,0,0,11,12,15,1,1,13,5,9,0,3,3,0,9,5,5,13,13,13,1,15,12,15,12,15 1920 BYT 1,13,13,13,5,5,9,0,5,13,5,0,1,1,3,14,6,3,6,3,6,14,3,1,1,15,7,15,7,15,7 1930 BYT 15,7,15,2,0,9,5,0,6,14,3,0,11,12,15,1,15,12,11,0,3,14,6,0,5,9,0,2,0,0 1940 BYT 9,8,9,8,7,1,7,8,9,8,9,0,11,11,12,12,15,15,1,0,6,14,3,1,3,14,6,0,1,15 1950 BYT 15,12,12,11,11,0,9,2,9,2,10,10,2,9,2,9,5,0,13,13,0,7,7,15,7,15,7,7 1960 BYT 0,13,13,0,5,0,6,3,6,3,7,6,3,7,1,7,3,6,7,3,6,3,0 1970 *=$C500 1980 BARCOL BYT 0,1,1,5,13,5,1,1,0 1990 DTAB BYT 8,8,8,8,8,8,8,1