Compucolor.org – Virtual Media

Listing of file='GETKEY.SRC;01' on disk='vmedia/agilis-sector.ccvf'

	ORG 82A0H

KBCHAR	EQU	81FEH
KBRDY	EQU	81FFH

BEGIN:	PUSH	H
LOOP:	LDA	KBRDY
	ORA	A
	JZ	LOOP
	LDA	KBCHAR
	MOV	E,A
	XRA	A
	STA	KBRDY
	POP	H
	RET

	END	BEGIN