Compucolor.org – Virtual Media

Listing of file='LOX.MAC;03' on disk='vmedia/disasm-sideA-sector.ccvf'

;
;	COMPUCOLOR PRINT ROUTINE
;
	EXTRN	CO

	ENTRY	LOX

LOX:	PUSH	D	;SAVE <DE>
	MOV	E,A	;CHARACTER TO BE PRINTED
LOX1:	IN	03H	;EXACT COPY OF ROM ROUTINE
	ANI	10H	;SHOWS CLEAR-TO-SEND HANDSHAKE
	JZ	LOX1	;JUMP IF XMT BUFFER NOT EMPTY
	IN	01H	;CLEAR-TO-SEND OK?
	ANI	80H	;
	JZ	LOX1	;NO
	MOV	A,E	;GET CHARACTER
	OUT	06H	;SEND IT
	CALL	CO	;DISPLAY IT ON THE SCREEN TOO!
	POP	D	;RESTORE <DE>
	RET

	END