Compucolor.org – Virtual Media

Listing of file='BOOM.MAC;01' on disk='vmedia/joystick_sound-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;	MAKE 'BOOM'
;
;

	ENTRY	BOOM

SNDADR	EQU	30H
SNDDAT	EQU	31H

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
	MOV	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


	END