1000 ;SAVE""
1010 ORG 16384
1020 JOY EQU 56320
1030 NORMAL EQU 75 ; ANFANGSSPEED
1040 ;
1050 ANF JMP INIT
1060 ANF1 LDA #0
1070 TAX
1080 TAY
1090 SOUNDI JSR $900C
1100 JSR WAITNOBUTT
1110 ;
1120 LOOP JSR WAITTIMER
1130 LDA #0
1140 LDX #0
1150 LDY #0
1160 SOUNDP JSR $9E3C
1170 LDA DONE
1180 BNE LOOP
1190 LDX SOUNDNR
1200 CPX #4
1210 BCC NEXTSOUND
1220 LDX #255
1230 NEXTSOUND INX
1240 STX SOUNDNR
1250 TXA
1260 ASL
1270 ASL
1280 TAX
1290 SEI
1300 LDA JUMPTAB,X
1310 STA SOUNDI+1
1320 LDA JUMPTAB+1,X
1330 STA SOUNDI+2
1340 LDA JUMPTAB+2,X
1350 STA SOUNDP+1
1360 LDA JUMPTAB+3,X
1370 STA SOUNDP+2
1380 CLI
1390 JMP ANF1
1400 ;
1410 ;
1420 WAITNOBUTT LDA JOY
1430 AND #31
1440 CMP #31
1450 BNE WAITNOBUTT
1460 ;
1470 ISR PHA
1480 TXA
1490 PHA
1500 TYA
1510 PHA
1520 ;
1530 LDA 53273
1540 STA 53273
1550 ;
1560 LDX JOY
1570 TXA
1580 AND #2 ; RUNTER
1590 BNE ISR1
1600 LDA SPEED
1610 CMP #255
1620 BEQ ISR1
1630 INC SPEED
1640 JMP ISROUT
1650 ISR1 TXA
1660 AND #1 ; RAUF
1670 BNE ISR2
1680 LDA SPEED
1690 BEQ ISR2
1700 DEC SPEED
1710 JMP ISROUT
1720 ISR2 TXA
1730 AND #16 ; KNOPF
1740 BNE ISROUT
1750 ;
1760 FERTG LDA #0
1770 STA DONE
1780 ;
1790 ISROUT PLA
1800 TAY
1810 PLA
1820 TAX
1830 PLA
1840 RTI
1850 ;
1860 INIT SEI
1870 LDA #53
1880 STA 1
1890 LDA #%00000001
1900 STA 56333
1910 LDA 56333
1920 LDX #0
1930 TXA
1940 INIT1 STA 54296,X
1950 INX
1960 BPL INIT1
1970 LDA #<ISR
1980 STA 65534
1990 LDA #>ISR
2000 STA 65535
2010 LDA #27
2020 STA 53265
2030 STA 53266
2040 STA DONE
2050 LDA #%10000001
2060 STA 53274
2070 LDA #15
2080 STA 54296
2090 LDA #NORMAL
2100 STA SPEED
2110 ;
2120 DEC 1
2130 LDX #2
2140 INIT2 LDA 0,X
2150 STA 53248,X
2160 LDA #0
2170 STA 0,X
2180 INX
2190 BNE INIT2
2200 INC 1
2210 ;
2220 LDX #255 ; 1. SOUND
2230 JMP NEXTSOUND
2240 ;
2250 WAITTIMER LDA SPEED
2260 STA 56325
2270 WAITTIMER1 LDA 56333
2280 AND #1
2290 BEQ WAITTIMER1
2300 RTS
2310 ;
2320 ;
2330 SPEED DFB 70
2340 DONE DFB 1
2350 SOUNDNR DFB 0
2360 ;
2370 JUMPTAB DFB $00,$0D,$69,$0D
2380 DFB $8A,$70,$E4,$70
2390 DFB $09,$90,$3C,$9E
2400 DFB $0D,$80,$13,$80
2410 DFB $00,$E9,$37,$EA
READY.
