TITLE	GETSAV
; THIS PROGRAM READS THE FIRST FILE (WHICH HAPPENS TO BE
; SAVE.SAV) FROM YOUR TAPE, AND STORES IT AS SAVE.SAV ON
; THE LOGGED-IN DISK AREA.  IT'S PRETTY PRIMITIVE, BUT 
; NOT A BAD BOOTSTRAP.

START:	INIT	1,14
	SIXBIT	/DSK/
	XWD	OBUF,0
	Z
	ENTER	1,ENTAB
	Z
	INIT	2,414	;SPECIAL MODE BITS TO GET 556 BPI
	SIXBIT	/MTA0/	;OR WHATEVER
	IBUF
	Z
	JSP	1,RD1	;FIRST FOUR WORDS ARE DIRECTORY
	JSP	1,RD1	; INFORMATION
	JSP	1,RD1
	JSP	1,RD1
LOOP:	JSP	1,RD1	;SIMPLE COPY, CLOSES AND EXITS ON EOF
	SOSG	OBUF+2
	OUTPUT	1,
	IDPB	2,OBUF+1
	JRST	LOOP

RD1:	SOSLE	IBUF+2
	JRST	OKIN
	IN	2,
	JRST	OKIN
	RELEASE	1,	;ASSUME NO ERRORS, THUS EOF
	RELEASE	2,
	CALLI	12	;QUIT
OKIN:	ILDB	2,IBUF+1
	JRST	(1)

OBUF:	BLOCK	3

IBUF:	BLOCK	3


ENTAB:	SIXBIT	/SAVE/
	SIXBIT	/SAV/
	Z
	Z


	END	START