Compucolor.org – Virtual Media

Listing of file='PING.MAC;04' on disk='vmedia/table_tennis_for_two-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	PING AND PONG SOUNDS
;
	EXTRN	GENSND

	ENTRY	PING,PONG

PING:	LXI	H,120
	JMP	PP
PONG:	LXI	H,240
PP:	MVI	D,5
	MVI	E,10
	XRA	A
	MOV	B,A
	MOV	C,A
	INR	A
	CALL	GENSND
	RET

	ENTRY	WARBLE

WARBLE:	LXI	H,2300	;MAKE 'BUZZ' SOUND TO INDICATE MISS
	MVI	D,5
	MVI	E,10
	MVI	B,129
	MVI	C,127
	MVI	A,10
	CALL	GENSND
	RET

	END