 
1ô > SoundTo/src v0.01 20-Jan-2019 J.G.Harston ô Redirect SOUND to file : (Þ mcode% &200 2load%=&FFFF09D8 <OSWORD=&FFF1:OSARGS=&FFDA FOSFIND=&FFCE:OSGBPB=&FFD1 PwordV=&20C Z: dã P=0 ¸ 1 nP%=load%:O%=mcode% x[OPT P*3+4 ‚.errCantOpen Œ+BRK:EQUB 192:EQUS "Can't open file":BRK –:  .go% ª%LDA #1:LDX #&A8:LDY #0:JSR OSARGS ´#LDA (&A8),Y:CMP #13:BNE SoundOn ¾,\ Should check if SoundTo is actually on È!LDA #0:LDY channel:JSR OSFIND ÒLDA oldWordV+0:STA wordV+0 ÜLDA oldWordV+1:STA wordV+1 æRTS ð.SoundOn ú'LDX &A8:LDY &A9:LDA #&80:JSR OSFIND#TAY:BEQ errCantOpen:STA channelPHP:SEILDA wordV+0:STA oldWordV+0"LDA wordV+1:STA oldWordV+1,"LDA #newWord € 255:STA wordV+06"LDA #newWord  256:STA wordV+1@PLP:RTSJ:T.newWord^CMP #7:BEQ SoundTo :\ SOUNDh"CMP #8:BEQ SoundTo :\ ENVELOPEr.oldWord|JMP (oldWordV)†.SoundToPHA:TYA:PHA:TXA:PHAšLDA waiting:BNE running¤LDX #time0 € 255®LDY #time0  256¸-LDA #1:JSR oldWord     :\ Read start TIMEÂ-LDA #0:STA buffer+0    :\ Initial delta=0ÌSTA buffer+1:BEQ startedÖ:à.runningêLDX #buffer € 255ôLDY #buffer  256þ/LDA #1:JSR oldWord     :\ Read current TIMELDX #0:SEC.timedelta)LDA buffer,X:SBC time0,X:STA buffer,X&INX:TXA:‚ #2:BNE timedelta0.started:TSXDLDA &101,X:STA &F0NLDA &102,X:STA &F1X"LDA &103,X:CMP #8:BEQ envelopeb:l'LDY #1:LDA (&F0),Y     :\ %000h00ssv8CMP #&20:BCS exit      :\ Not internal SOUND command€'ASL A:ASL A            :\ %0h00ss00Š&DEY:„A (&F0),Y        :\ %000f00cc”&„A #&80:STA bufferD+0 :\ %1h0fssccž7LDX #bufferD-buffer    :\ %1xxxxxxx indicates SOUND¨.soundlp².INY:INY:LDA (&F0),Y    :\ Copy vol,pit,dur¼INX:STA buffer,XÆCPY #8:BNE soundlpÐ,TXA:BNE output         :\ Number to saveÚ:ä.envelopeîLDY #13ø.envelopelpLDA (&F0),Y:STA bufferD,Y3DEY:BPL envelopelp     :\ %0000nnnn indicates â,LDA #16                :\ Number to save :*.output4,STA gbpb+5                      :\ count>,LDA #buffer € 255:STA gbpb+1  :\ addressH.LDA channel:STA gbpb+0          :\ channelR#LDX #gbpb € 255:LDY #gbpb  256\!LDA #1:STA waiting:JSR OSGBPBf\p	.exitzPLA:TAX:PLA:TAY:PLA„JMP oldWordŽ:˜.waiting¢
EQUB 0¬:¶
.time0À
EQUW 0Ê:Ô.bufferÞEQUW 0  :\ time deltaè.bufferDò"EQUD 0  :\ SOUND/ENVELOPE dataüEQUD 0  :\ ENVELOPE dataEQUD 0  :\ ENVELOPE dataEQUW 0  :\ ENVELOPE data:$	.gbpb.EQUB 0       :\ channel8EQUW buffer  :\ addressBEQUW &FFFF   :\ I/O addressLEQUD 8       :\ countVEQUD 0       :\ offset`:j]tchannel=P%~oldWordV=P%+1ˆí’)ç(P%€&FFFF)+3>&B00:ñ"Code over-run":àœEñ " *SAVE SoundTo ";~mcode%;" ";~O%;" ";~go%„&FFFF0000;" ";~load%ÿ