/PROGRAM TO READ RECORDS FROM D0: AND PRINT
/THEM ON THE TTY UNTIL STOPPED BY THE USER.
*200
	CLA
	TAD	K4005		/ASSIGN D0:
	ASD			/DO IT
	SZA
	HLT			/DIE IF DEVICE BUSY
LOOP,	CLA
	TAD	KFCB
	DTXA			/READ BLOCK
	DTRB			/SEE IF SUCCESSFUL
	AND	K7776		/CLEAR DTF BIT
	SZA			/CONTINUE IF NO ERR
	HLT			/DIE ON ERROR
	TAD	M0201
	DCA	XRB		/PRINT 129 CHARS
	TAD	BUFFM1
	DCA	XRB+1		/STARTING AT (BUFFER)
	TAD	KXRB		/POINT AT 'XRB'
	SAS			/PRINT CHARS
	JMP	.-2		/RETRY UNTIL DONE
	ISZ	FCB+1
	JMP	LOOP		/LOOP UNTIL ERROR OR ^BS
	HLT			/DIE ON OVERFLOW
/DATA BLOCKS AND POINTERS:
K4005,	4005
KFCB,	FCB
K7776,	7776
M0201,	-201
KXRB,	XRB
BUFFM1,	BUFFER-1
FCB,	20			/READ
	1			/STARTING WITH BLOCK 1
	BUFFER-1		/TRANSFERRING INTO (BUFFER)
XRB,	0			/THIS BLOCK IS INIT'D IN PROG
	0
BUFFER,				/BUFFER FOR CHARS
$