;*********************************************************************
;*
;*			I/O PATCH FOR PIP.COM 
;*	THIS PATCH IS TO BE USED FOR IMPLEMENTING DUPLEX
;*	HANDSHAKING IN COMPUTER-TO-COMPUTER COMMUNICATIONS.
;*		DONATED TO PUBLIC DOMAIN FOR NON-COMMERCIAL USE
;*			STEVEN FISHER CDP 2/5/82
;*
;*	SOURCE SYNTAX IS:	PIP OUT:=drive:filename.typ,EOF:
;*
;*	DESTINATION SYNTAX IS:	PIP INP:=drive:filename.typ
;*
;*********************************************************************
;
	ORG	103H		;LOCATE THIS IN PIP'S PATCH AREA
;
RDRF	EQU	03H		;READER FUNCTION RETURNS CHARACTER IN A
PUNF	EQU	04H		;PUNCH FUNCTION SENDS CHARACTER FROM E
BDOS	EQU	0005H		;SYSTEM FUNCTION ENTRY POINT

RCVJP:	JMP	RCV		;PIP INP: ENTRY POINT
XMTJP:	JMP	XMT		;PIP OUT: ENTRY POINT
;
RCVDTA:	DB	0		;RECEIVED DATA
;
RCV:	MVI	C,RDRF
	CALL	BDOS		;READ INTO A
	STA	RCVDTA		;SAVE IT
	MOV	E,A
	MVI	C,PUNF
	CALL	BDOS		;PUNCH FROM E
	RET

XMT:	MOV	E,C		;CHARACTER TO SEND GOES FROM E
	MVI	C,PUNF
	CALL	BDOS		;PUNCH FROM E
	MVI	C,RDRF
	CALL	BDOS		;READ INTO A
	RET

	END			;END OF PIPIO SOURCE