ô > SoundSup/s 0.10 ,ô 12-Nov-1992 v0.10 JGH: Initial version ô (@ô Intercept OSWORD 7 SOUND call to adjust parameters to make 2&ô more compatible with BBC series. <: F<ô chn>=&2000 claimed to stop non-sound commands going to P(ô sound system (eg SOUND -257 MIDI). Zô d?ô pitch<&0400 reduced to pitch &00xx to allow programs that n>ô use eg SOUND chn,vol,ASCMID$(S$,... and depend on b8-b15 xô being ignored. ‚ô Œ.ô To do: chn &xx0x queue without flushing. –: : ªver$="0.10" ´date$="12 Nov 1992" ¾î … ö:ñ ž:à È: ÒÞ mcode% &8000, L% -1 Üsp=13:link=14:pc=15 æã opt%=0 ¸ 1 ðP%=0:O%=mcode% ú[OPT opt%*3+4 EQUD 0:\ Start EQUD Initialise EQUD Finalise "EQUD 0:\ Service ,EQUD TitleStr 6EQUD HelpStr @EQUD 0:\ command table JEQUD 0:\ SWI chunk number TEQUD 0:\ SWI chunk handler ^EQUD 0:\ SWI decoding table hEQUD 0:\ SWI decoding code r: | .TitleStr †EQUS "SoundSupport":EQUB 0 ALIGN š.HelpStr ¤JEQUS "SoundSupport"+½9+ver$+" ("+date$+") "+½169+" J.G.Harston":EQUB 0 ® ALIGN ¸: Â.Initialise Ìstmfd (sp)!,{link} Ö#mov r0,#7 ; OswordVec àadr r1,MyOsword êldr r2,[r12] ô+swi "OS_Claim" ; Hook into OS_Word þ: 1mov r0,#0 ; Read number of channels mov r1,#0 mov r2,#0 &mov r3,#0 0mov r4,#0 :swi "Sound_Configure" D1cmp r0,#8 ; If less than 8 channels N,movlt r0,#8 ; set to 8 channels Xswilt "Sound_Configure" b: l,mov r0,#127 ; Ensure full volume vswi "Sound_Volume" €: Šldmfd (sp)!,{pc} ”: ž: ¨ .Finalise ²stmfd (sp)!,{link} ¼#mov r0,#7 ; OswordVec Æadr r1,MyOsword Ðldr r2,[r12] Ú)swi "OS_Release" ; Release OS_Word äldmfd (sp)!,{pc} î: ø: .MyOsword cmp r0,#7 'movnes pc,link ; Not Ô, pass on : *.ldrb r0,[r1,#1] ; Get channel high byte 4'cmp r0,#&20 ; channel>=&2000 >movcs r0,#7 H/ldmcsfd (sp)!,{pc} ; Claim to prevent sound R: \,ldrb r0,[r1,#5] ; Get pitch high byte fcmp r0,#&04 p6movcc r0,#0 ; If pitch<&0400 force to &00xx zstrccb r0,[r1,#5] „: Ž-ldrb r0,[r1,#0] ; Get channel low byte ˜*and r0,r0,#&10 ; Mask Flush nybble ¢-cmp r0,#&00 ; Is No-Flush selected ¬#movne r0,#7 ; Restore R0 ¶.movnes pc,link ; Not No-Flush, pass on À: Ê/\ Needs to wait for current sound to finish Ô: Þ#mov r0,#7 ; Restore R0 è movs pc,link ; Pass on ò: ü]í (ÿ"SAVE SoundSupp "+Ã~mcode%+" "+Ã~O% *SetType SoundSupp Module *Stamp SoundSupp ÿ