/IPB GENASYS HELPER

	FIELD	3		/ARBITRARILY

	*200			/WHY NOT

START,	CAF			/CLEAN UP
	HLT			/WAIT FOR A P?S/8 TAPE TO BE MOUNTED
	CDF	00		/ALL TRANSFERS TO FIELD 0
	TBLS			/SEND A ZERO
	STA			/-1
	JMS	XMIT		/SEND REQUEST
	TAD	(100)		/ASK FOR
	JMS	XMIT		/1 BLOCK
	JMS	XMIT		/ASK FOR
	JMS	XMIT		/BLOCK 0
	TSKF			/FLAG UP ?
	JMP	.-1		/NO, WAIT FOR IT
	RSKF			/ANYTHING IN ?
	JMP	.-1		/NO, WAIT
	RRBC			/YES, READ IT IN
	DCA I	BUTPTR		/PUT INTO CORE
	ISZ	BUTPTR		/BUMP TO NEXT
	JMP	.-5		/GO BACK
	CIF	00		/ON TO FIELD 0
	JMP	200		/FINISH THERE

XMIT,	.-.			/TRANSMIT ROUTINE
	TSKF			/FLAG UP ?
	JMP	.-1		/NO, WAIT
	TBLS			/YES, SEND IT
	RRBS			/CLEAR RECEIVE FLAG NOW
BUTPTR,	7600			/CLEAN UP
	JMP I	XMIT		/RETURN

/INTERPROCESSOR DEFINITIONS
 
	DEVCOD=	62^10		/DEVICE CODE FOR BUFFER
	RSKF=	6001+DEVCOD	/SKIP ON RECEIVE
	RTIE=	6002+DEVCOD	/INT ENABLE/DISABLE
	RRBS=	6004+DEVCOD	/READ REC STATIC, CLEAR REC FLAG
	RRBC=	RRBS RTIE	/READ REC, CLEAR REC FLAG, SET OTHER XMIT FLAG
	TSKF=	RSKF+10		/SKIP ON XMIT FLAG
	TCLF=	RTIE+10		/CLEAR XMIT BUFF, FLAG
	TLBC=	RRBS+10		/OR AC, XMIT BUFF
	TBLS=	TCLF TLBC	/LOAD XMIT BUFF, CLEAR XMIT FLAG, SET OTHER REC FLAG

	$			/THAT'S ALL FOLK!