| Routines

25088: Make a sound effect

Used by the routines at 26352 (to make the sound effect of Sam being shot) and 28646 (to make the sound effect of a sniper firing).
Input
A | Initial border colour
D | Pitch adjustment
E | Initial pitch
25088 | ADD A,17 | Flip bit 4 of A and increment the border colour in bits 0-2
25090 | AND 23 | Retain only bits 0-2 and 4
25092 | OUT (254),A | Change the border colour and speaker state
25094 | LD B,E | Perform the pitch delay
25095 | DJNZ 25095
25097 | LD B,A | Save A briefly
25098 | LD A,E | Adjust the pitch delay for the next pass
25099 | ADD A,D
25100 | LD E,A
25101 | LD A,B | Restore A
25102 | JR NZ,25088 | Jump back unless the pitch delay is now 0
25104 | RET |