Compucolor.org – Virtual Media

Listing of file='TXSER.MAC;01' on disk='vmedia/asm_utilities_macros-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	TXSER - TRANSMIT TO THE SERIAL PORT
;
;	VALUES ON ENTRY:
;	   E - CHARACTER TO SEND
;
;	RETURNS:
;	   NOTHING
;
;	DESTROYS:
;	   A REG ONLY
;

	ENTRY	TXSER

TXSER:	IN	03H	;EXACT COPY OF ROM ROUTINE
			;SHOWS CLEAR-TO-SEND HANDSHAKE
	ANI	10H	;TX BUFFER EMPTY?
	JZ	TXSER	;   NO
	IN	01H	;CLEAR TO SEND OK?
	ANI	80H
	JZ	TXSER	;   NO
	MOV	A,E	;SEND IT
	OUT	06H
	RET

	END