/PROGRAM TO READ RECORDS FROM DTA0: AND DUMP
/THEM IN OCTAL, ASCII, AND SIXBIT ON TTY: UNTIL
/HALTED.
BSW=7002	/PAL-D DOESN'T KNOW BSW FOR SOME REASON
*200
	CLA
	TAD	K4005		/ASSIGN D0:
	ASD			/DO IT
	SZA
	HLT			/DIE IF DEVICE BUSY
	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 10		/PUT AUTOINDEXING PTR
LOOP2,	TAD I 10	/GET A WORD
	DCA TEMP	/SAVE
	TAD TEMP	/GET BACK
	JMS PROCT	/PRINT IT
	TAD TAB		/PRINT TAB
	TLS
	CLA
	TAD TEMP	/GET BACK
	TLS		/PRINT (ASCII)
	CLA
	TAD TAB		/PRINT TAB
	TLS
	CLA
	TAD TEMP	/GET CHAR
	BSW		/ROTATE TO AC6-AC11
	AND K0077
	TAD BLANK	/CVT TO ASCII
	TLS		/PRINT
	CLA
	TAD TEMP	/GET CHAR
	AND K0077
	TAD BLANK
	TLS		/PRINT LOW CHAR
	CLA
	TAD CR		/CR
	TLS
	CLA
	TAD LF		/LF
	TLS
	CLA
	ISZ XRB		/DONE?
	JMP LOOP2	/NO, LOOP
	HLT		/HALT WHEN DONE
/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
K0077,	77
TEMP,	0
CR,	215
LF,	212
TAB,	211
BLANK,	240
/
PROCT,	0
	DCA PROCT1	/SAVE #
	TAD PROCT1	/GET BACK
	RTL		/1ST DIG
	RTL
	JMS DIGIT	/PRINT IT
	TAD PROCT1	/GET BACK
	BSW		/2ND DIG
	JMS DIGIT	/PRINT IT
	TAD PROCT1	/GET BACK
	RTR
	RAR
	JMS DIGIT	/PRINT IT
	TAD PROCT1	/4TH DIG
	JMS DIGIT	/PRINT IT
	JMP I PROCT	/RETURN
/
DIGIT,	0
	AND K0007	/MASK OUT UPPER 9 BITS
	TAD K0260	/CVT TO ASCII
	TLS		/PRINT
	CLA
	JMP I DIGIT	/RETURN
/
PROCT1,	0	/TEMP BUFFER FOR #
K0007,	7	/MASK TO REMOVE UPPER 9 BITS
K0260,	260	/ASCII('0')
/
BUFFER,				/BUFFER FOR CHARS
$