;
;THE FOLLOWING ROUTINES ARE THE SERIAL INTERFACE DRIVERS FOR THE PROGRAMMER
;BINCHK MUST RETURN 00 IN THE ACCUMULATOR IF NOTHING HAS BEEN RECEIVED
;	OR IF A CHARACTER HAS BEEN RECEIVED, THEN RETURN IT IN THE
;	ACCUMULATOR.
;BOUT SIMPLY OUTPUTS THE ACCUMULATOR TO THE PROGRAMMER

;THE FOLLOWING EQUATES MUST BE DEFINED

STATUS	EQU	??????????
DATA	EQU	??????????


; TYPICAL PORT DRIVERS ************************************

; FOR 8251 TYPE UART
;INMASK	EQU	02
;OUTMASK EQU	01


;FOR ZILOG SIO OR DART
INMASK EQU	01
OUTMASK EQU	04

	ORG	100H
	JMP	START
	JMP	INIT
	JMP	BINCHK
	JMP	BOUT

;DONT MODIFY THIS ROUTINE
START:	LXI	H,1000		;TIMOUT FOR BINCHK
	JMP	203H
BINCHK	IN	STATUS
	ANI	INMASK
	RZ		;NOTHING IN RECEIVE BUFFER
	IN	DATA
	ORA	A	;SET FLAGS
	RET

BOUT	PUSH	PSW	;SAVE THE CHARACTER
BO1	IN	STATUS
	ANI	OUTMASK
	JZ	BO1	;WAIT TIL TRANSMIT BUFFER READY
	POP	PSW
	OUT	DATA
	RET

INIT:	RET		;PUT ANY INITIALIZING CODE
			;FOR YOUR UART, BAUD RATE GEN, ETC. HERE
;*************************************************************

	END

;THIS PROGRAM MUST NOT GO PAST 1FFH OR IT WILL OVERLAY THE MAIN PGX PROGRAM