Listing of file='GAMSND.MAC;0A' on disk='vmedia/laser_gun_joystick-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ROUTINES TO MAKE GAME SOUNDS ; TITLE GAMSND ; VALUES ON ENTRY: ; IRRELEVANT ; ; RETURNS: ; NOTHING ; ; DESTROYS: ; ALL REGISTERS ; ; ; EXTERNALS - REQUIRED SUBROUTINES ; EXTRN GENSND ;USES "OVERLAPPED" SOUNDWARE ROUTINE SNDADR EQU 30H SNDDAT EQU 31H ;.............................................................. ; ; MAKE "EXPLOSION" SOUND ; ENTRY BOOM BOOM: DI MVI A,6 OUT SNDADR XRA A OUT SNDDAT MVI A,7 OUT SNDADR IN SNDADR ANI 0CFH OUT SNDDAT MVI A,9 OUT SNDADR MVI A,16 MOV B,A OUT SNDDAT MVI A,10 OUT SNDADR MVI A,B OUT SNDDAT MVI A,12 OUT SNDADR MVI A,35 OUT SNDDAT MVI A,13 OUT SNDADR XRA A OUT SNDDAT EI RET ; ; MAKE LASER SOUND ; ENTRY LASER LASER: LXI H,50 MVI D,2 MVI E,1 MVI B,1 MVI C,0 MVI A,60 CALL GENSND RET END