Compucolor.org – Virtual Media

Listing of file='MLFIX.SRC;08' on disk='vmedia/mldp_fix-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	FIX FOR MLDP FOR USE WITH AUTO-REPEAT
;

KBDFL	EQU	81DFH
KBCHA	EQU	81FEH
READY	EQU	81FFH

	ORG	0F1E9H

	JMP	GETCHR	;JUMP TO PATCH

	ORG	0FEE7H

GETCHR:	MVI	A,12
	STA	KBDFL
	XRA	A
	STA	READY
GT10:	LDA	READY
	CPI	80H
	JNZ	GT10
	LDA	KBCHA
	RET

	END