1000 ;
1010 ;SOUNDPLAYER
1020 ;
1030 ORG $5000
1040 ;
1050 SOUNDFLAG EQU 2
1060 ;
1070 ANFANG SEI
1080 LDA #<MAIN
1090 STA 788
1100 LDA #>MAIN
1110 STA 789
1120 LDA #127
1130 STA 56333
1140 LDA #100 ; RASTER
1150 STA 53266
1160 LDA #27
1170 STA 53265
1180 LDA #129
1190 STA 53274
1200 JSR $4022
1210 CLI
1220 ;
1230 NEUSOUND JSR 65508
1240 BEQ END
1250 SEC
1260 SBC #49 ; '1' -> #0
1270 CMP #7
1280 BPL END
1290 JSR COPYSOUND
1300 END JMP NEUSOUND
1310 ;
1320 ;
1330 COPYSOUND LDX #1
1340 STX SOUNDFLAG
1350 ASL
1360 ASL
1370 ASL
1380 ASL
1390 CLC
1400 ADC #$90 ; 1.SOUND
1410 STA 253
1420 LDY #0
1430 STY 252
1440 STY 254
1450 LDX #$40
1460 STX 255
1470 LDX #16
1480 COPY LDA (252),Y
1490 STA (254),Y
1500 INY
1510 BNE COPY
1520 INC 253
1530 INC 255
1540 DEX
1550 BNE COPY
1560 STY SOUNDFLAG
1570 RTS
1580 ;
1590 ;
1600 ;
1610 MAIN LDA #1
1620 STA 53273
1630 INC 53280
1640 LDA SOUNDFLAG
1650 BNE NOSOUND
1660 JSR $4002
1670 NOSOUND DEC 53280
1680 JMP $EA31
1690 PLA
1700 TAY
1710 PLA
1720 TAX
1730 PLA
1740 RTI
1750 ;
1760 ;
1770 ;
READY.
