1000 ;
1010 ; STI 4 SCA
1020 ;
1030 ;
1040 ORG 20000
1050 ;
1060 SID EQU 54272
1070 EFFECT EQU 53600
1080 GET EQU $FFE4
1090 SPEED2 EQU $DC05
1100 NORMAL EQU 75
1110 ;
1120 ;
1130 ANFANG LDA #4
1140 JMP HIERHER
1150 ;
1160 INIT SEI
1170 LDA #200
1180 STA 650
1190 ;
1200 LDX #30
1210 LDA #0
1220 SIDRESET STA SID,X
1230 DEX
1240 BPL SIDRESET
1250 ;
1260 LDA #$35
1270 STA 1
1280 LDA #<ISR
1290 STA 788
1300 LDA #>ISR
1310 STA 789
1320 LDA #0
1330 SI JSR 64738
1340 LDA #NORMAL
1350 STA SPEED
1360 STA SPEED2
1370 LDA #$37
1380 STA 1
1390 CLI
1400 ;
1410 LOOP LDA 53265
1420 BMI LOOP
1430 DEC EFFECT
1440 LOOP1 LDA 53265
1450 BPL LOOP1
1460 ;
1470 JSR GET
1480 CMP #43 ; '+'
1490 BNE P1
1500 LDX SPEED
1510 BEQ LOOP
1520 DEX
1530 STX SPEED
1540 STX SPEED2
1550 JMP LOOP
1560 ;
1570 P1 CMP #45 ; '-'
1580 BNE P2
1590 LDX SPEED
1600 CPX #255
1610 BEQ LOOP
1620 INX
1630 STX SPEED
1640 STX SPEED2
1650 JMP LOOP
1660 ;
1670 P2 CMP #49 ; '1'
1680 BCC LOOP
1690 CMP #54 ; '6'
1700 BCS LOOP
1710 ;
1720 SEC
1730 SBC #49
1740 HIERHER ASL
1750 ASL
1760 TAX
1770 SEI
1780 LDA SOUNDTAB,X
1790 STA SI+1
1800 LDA SOUNDTAB+1,X
1810 STA SI+2
1820 LDA SOUNDTAB+2,X
1830 STA SP+1
1840 LDA SOUNDTAB+3,X
1850 STA SP+2
1860 JMP INIT
1870 ;
1880 DFB ""
1890 ;
1900 ISR LDA #$35
1910 STA 1
1920 INC EFFECT
1930 SP JSR 64738
1940 LDA #$37
1950 STA 1
1960 JMP $EA31
1970 ;
1980 SPEED DFB 0
1990 ;
2000 SOUNDTAB DFB $00,$E9,$37,$EA
2010 DFB $0D,$80,$13,$80
2020 DFB $0C,$90,$3C,$9E
2030 DFB $8A,$70,$E4,$70
2040 DFB $00,$0D,$69,$0D
READY.
