Compucolor.org – Virtual Media

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	PING AND PONG SOUNDS
;
	EXTRN	GENSND,FINFLG

	ENTRY	PING,PONG

PING:	LXI	H,120
	JMP	PP
PONG:	LXI	H,300
PP:	MVI	D,5
	MVI	E,10
	XRA	A
	MOV	B,A
	MOV	C,A
WP:	LDA	FINFLG
	ORA	A
	JZ	WP
	MVI	A,1
	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