home *** CD-ROM | disk | FTP | other *** search
- 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
- 1110 STA $0314
- 1120 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
-