ORG	0E000H
CRTC	EQU	66
ERRORS	EQU	045DH
START	MOV	E,M	;GET HL
	INX	H
	MOV	D,M
	INX	H
	PUSH	D	;AND SAVE
	MOV	E,M	;GET DE
	INX	H
	MOV	D,M
	POP	H	;RESTORE HL
	MOV	C,A	;CDOS CODE
	RST	7
	DB	CRTC
	JC	ERRORS	;IF READ ERROR
	RET