1000 !
1010 ! ASSEMBLE AND TYPE SYS 49152 !
1020 ! BY ANDY PANDY, DECEMBER '89 !
1021 ! THIS SOURCE IS PRETTY LAME !
1030 !
1040 *=49152
1050 !
1060 JSR INIT
1070 JSR E(null)TRIP
1080 !
1090 SETIRQ !
1100 SEI
1110 LDA #$7F
1120 STA $DC0D
1130 LDA $DC0D
1140 LDA #$1B
1150 STA $D011
1160 LDA #$32
1170 STA $D012
1180 LDA #<IRQ
1190 STA $314
1200 LDA #>IRQ
1210 STA $315
1220 LDA #1
1230 STA $D019
1240 STA $D01A
1250 CLI
1260 RTS
1270 !
1280 !
1290 COLTAB= $CE00
1300 DELTAB= $CF00
1310 !
1320 IRQ !
1330 LDX #$D
1340 I1 DEX
1350 BNE I1
1360 I2 LDY DELTAB,X
1370 LDA COLTAB,X
1380 I3 DEY
1390 BNE I3
1400 STA $D016
1410 STA $D016
1420 INX
1430 CPX #$42
1440 BNE I2
1450 LDX #8
1460 I4 DEX
1470 BNE I4
1480 !
1490 JSR WAVE
1491 !
1500 LDA #1
1510 STA $D019
1520 JMP $EA31
1530 !
1540 INIT !
1550 LDX #0
1560 IN0 LDY #0
1570 IN1 LDA DTAB,Y
1580 STA DELTAB,X
1590 INX
1600 INY
1610 CPY #8
1620 BCC IN1
1630 CPX #$80
1640 BCC IN0
1650 RTS
1660 !
1670 DTAB BYT 8,8,8,8,8,8,8,1
1680 !
1690 WAVETAB !
1700 BYT 219,219,219,219,219,219,219
1710 BYT 218,217,217,216,216,216,217,217,218,219,220,221,221,222,222,222
1720 BYT 221,221,220,219,219
1730 BYT 219,219,219,219,219,219,219
1740 BYT 219,219,219,219,219,219,219
1750 !
1760 W1 BYT 00
1770 WCOUNT BYT 2
1780 !
1790 WAVE !
1800 !
1810 DEC WCOUNT
1820 LDA WCOUNT ! THIS SLOWS THE WAVE
1830 BEQ YES !    DOWN.
1840 RTS
1850 YES !
1860 LDA #2 ! <- ALTER FOR SPEED !!
1870 STA WCOUNT
1880 !
1890 LDX #0
1900 WW !
1910 LDA COLTAB+1,X ! ROTATE THE TABLE
1920 STA COLTAB,X !   ROUND AND ROUND !
1930 INX
1940 CPX #80
1950 BNE WW
1960 !
1970 INC W1
1980 LDA W1
1990 CMP #41
2000 BNE NO16
2010 LDA #0
2020 STA W1
2030 NO16 !
2040 TAX
2050 LDA WAVETAB,X ! POP THE VALUE IN
2060 STA COLTAB+78 ! THE TABLE !
2070 RTS
2080 !
2090 E(null)TRIP !
2100 LDA #<TEXT
2110 LDY #>TEXT
2120 LDX #0
2130 JSR $AB1E
2140 RTS
2150 !
2160 TEXT !
2170 BYT "[147]"
2180 BYT "           [176][192][192][174] [176][192][192][201] [192][192][192][201] [201]  [201]          "
2190 BYT "           [221]  [221] [221]  [221]    [221] [221]  [221]          "
2200 BYT "           [171][192][192][179] [221]  [221] [221]  [221] [202][192][192][179]          "
2210 BYT "           [221]  [221] [221]  [221] [221]  [221]    [221]          "
2220 BYT "           [221]  [221] [221]  [221] [202][192][192][203] [192][192][192][203]          ",0