Compucolor.org – Virtual Media

Listing of file='LTPEN2.MAC;1D' on disk='vmedia/sound_light_pen-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	LIGHT-PEN ROUTINE
;
	EXTRN	CO,OSTR
	EXTRN	SPULSE,COORDS

	ENTRY	LTPEN

LTPEN:	CALL	SPULSE
	LXI	H,6001H
	LXI	D,BUF
LT10:	MOV	A,M
	STAX	D
	INX	H
	INX	H
	INX	D
	MOV	A,H
	CPI	70H
	JNZ	LT10
	CALL	COORDS
	PUSH	D
	LXI	H,6001H
	LXI	D,BUF
LT20:	LDAX	D
	MOV	M,A
	INX	H
	INX	H
	INX	D
	MOV	A,H
	CPI	70H
	JNZ	LT20
	POP	D
	RET

BUF:	DS	800H

	END