Compucolor.org – Virtual Media

Listing of file='GAMSND.MAC;01' on disk='vmedia/taylor-sideB-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	ROUTINES TO MAKE GAME SOUNDS
;
	TITLE	GAMSND

;	VALUES ON ENTRY:
;	   IRRELEVANT
;
;	RETURNS:
;	   NOTHING
;
;	DESTROYS:
;	   ALL REGISTERS
;
;
;	EXTERNALS - REQUIRED SUBROUTINES
;
	EXTRN	SOUND,PITCH,DURN,NSTEPS,STEP1,STEP2
			;USES "OVERLAPPED" SOUNDWARE ROUTINE

;..............................................................
;
;	MAKE "EXPLOSION" SOUND
;
	ENTRY	BOOM

BOOM:	LXI	H,0240H
	SHLD	PITCH
	LXI	H,4
	SHLD	DURN
	MVI	A,5
	STA	NSTEPS
	MVI	A,129
	STA	STEP1
	MVI	A,127
	STA	STEP2
	CALL	SOUND
	RET

;
;	MAKE LASER SOUND
;
	ENTRY	LASER

LASER:	LXI	H,0102H
	SHLD	PITCH
	LXI	H,10
	SHLD	DURN
	MVI	A,10
	STA	NSTEPS
	MVI	A,1
	STA	STEP1
	XRA	A
	STA	STEP2
	CALL	SOUND
	RET

	END