*20
//MOD37
	 
/DECODE MODULE 37
/BLOCK 61
	 
/CONTENTS
/   ASSIGN
/   DEASSIGN
	 
	LODSYM
	 
	SEGMNT 4
	*1400
	37
	 
	ADD COMAND
	ADA I
	JMP .+4
	STC .+2
	STC COMAND
	JMP 
/
	JMP DASS
	JMP ASSIG
/USER ASSIGN
	LDA I
	6145
	STC INBUF
ASSIG,	ADD CURU
	STC LV+1
	JMP DESS
/
	LDA I
	4\OUTLST-1
	STC OUPTR
	ADD IUPTR
	AZE I
	JMP GETU-3
	SAE I
	4\INLST-1
	SKP
	JMP .+4
	ADD M1
	ADA I
	4000
	STC IUPTR
	COM
	STC INFLG
	STC SAVDIR
	EJECT
GETU,	INPUT
	INBUF
	FIX
	0
	ISTOR1
	ASSFLG
	ADD ASSFLG
	AZE I
	ADD ONE
	STA
	ASSFLG
	STC CURU
	JMP SETRDE
	JMP DIR
/
	LDA
	3377
	SAE I
	5757
	SKP
	JMP LV
/BAD TAPE
	TYPE
	TAPMSG
	JMP LV
	EJECT
DASS,	ADD CURU
	STC LV+1
	ADD ASSFLG
	AZE
/ONE UNIT SYSTEM
	JMP DASS1
/MULTIUNIT SYSTEM
	JMP DESS
	JMP LV
/
DASS1,	STC CURU
	STC ASSFLG 	/CLR FLAG
	JMP SETWRI
	JMP DIR
/
/
LV,	LDA I
	0 	/CURU
	STC CURU
	JMP GOUSER
	EJECT
DESS,	ADD 0
	STC DESSX
	ADD OUTFLG
	APO I
	JMP DODIR	/OUTFLG SET
/OUTFLG NOT SET
/CHECK FOR SAVED OUTPUT DIR
	LDA
	SAVDIR
	ADD M1
	AZE
	JMP DESSX	/NONE SAVED
/SAVED OUPUT DIR, GET IT
	SET BETA1
	OUPTR
	LDH BETA1
	STC CURU
/SAVE CURRENT DIRECTORY
	IOB I 12
	6066
/GET SAVED OUTPUT DIR
	IOB 12
	6067
/DEASSIGN
DODIR,	JMP SETWRI
	COM
	STC OUTFLG 	/CLR FLAG
	JMP DIR
/REPLACE DIRECTORY
	IOB 12
	6066
DESSX,	JMP
	EJECT
	 
	 
SETRDE,	LDA I
	RDC
	STC RW
	LDA I
	IOB 12
	STC OI
	JMP 0
/
SETWRI,	LDA I
	WRC
	STC RW
	LDA I
	IOB I 12
	STC OI
	JMP 0
/
DIR,	ADD 0
	STC DIRX
	ADD CURU
	JMP SETU
	LDA I
	6000
	JMP RWBLK
	LDF 3
DIRX,	JMP
	EJECT
/ROUTINE TO SET AXO
/TAPE UNIT. ENTER WITH
/UNIT NO. IN AC
/
SETU,	SCR 1
	STC XT 	/FOR XOB
	ADD CURU
	BCL I
	7776
	ROL 3
	BSE I
RW,	RDC 	/OR WRC
	STC XU 	/TAPE COMMAND
	JMP 0
	EJECT
/ROUTINE TO READ OR 
/WRITE FILES.
/HANDLES MULTIPLE TAPE
/OR DISK UNITS.
/ENTER WITH QN-BN IN AC
/
RWBLK,	STC RB
	ADD 0
	STC RBX
	ADD CURU
	ADA I
	-7
	APO I
	JMP RDSK
	LDA I
XT,	0
	AXO
XU,	RDC 	/OR WRC
RB,	0
	CLR
	AXO
	LDA
	RB
RBX,	JMP
/DISK
RDSK,	ADD M1
	APO
	CLR
	STC .+2
/SET DISK PARTITION
	IOB 13
	0
/OPERATE DISK
	LDA
	RB
	STC .+2
OI,	IOB 12 	/OR OPR I 12
	0
	IOB 13
	0
AA37,	JMP RBX-2
/
/
/MOD37
/FEB 74