RDBUFF	&INDEV,&BUFADR,&RECLTH

	CLEAR 	X 	CLEAR LOOP COUNTER
　 	CLEAR 	A 	　
　 	CLEAR 	S 	　
　 	+LDT 	#4096 	SET MAXIMUM RECORD LENGTH
　 	TD 	=X'&INDEV' 	TEST INPUT DEVICE
　 	JEQ 	*-3 	LOOP UNTIL READY
　 	RD 	=X'&INDEV' 	READ CHARACTER INTO REG A
　 	COMPR 	A,S 	TEST FOR END OF RECORD
　 	JEQ 	*+11 	EXIT LOOP IF EOR
　 	STCH 	&BUFADR,X 	STORE CHARCTER IN BUFFER
　 	TIXR 	T 	LOOP UNLESS MAXIMUM LENGTH
　 	JLT 	*-19 	HAS BEEN REACHED
　 	STX 	&RECLTH 	SAVE RECORD LENGTH
　 	MEND 	　 	　

WRBUFF	&OUTDEV,&BUFADR,&RECLTH

　 	CLEAR 	X 	CLEAR LOOP COUNTER
　 	LDT 	&RECLTH 	　
　 	LDCH 	&BUFADR,X 	GET CHARCTER FROM BUFFER
　 	TD 	=X'&OUTDEV' 	TEST OUTPUT DEVICE
　 	JEQ 	*-3 	LOOP UNTIL READ
　 	WD 	=X'&OUTDEV' 	WRITE CHARACTER
　 	TIXR 	T 	LOOP UNTIL ALL CHARACTERS
　 	JLT 	*-14 	HAVE BEEN WRITTEN
　 	MEND