*20
//MOD2
	 
/DECODE MODULE 2
/BLOCK 24
	 
/CONTENTS
/   LIST
	 
	 
	LODSYM
	 
	SEGMNT 4
	*1400
	2
	 
LISTH,	LDF 7
	IOB 2
	26
	JMP SAV67
	LDA I
	3333
	STC LS1
/
	LDF 4
	INPUT
	INBUF
	FIX
	FAC
	ISTOR1
	LUN
	LDA I
LUN,	0
	AZE I
	JMP NORAD
	BCL I
	7760
	STC LUN
	LDF 4
	ADD LUN
	ADA I
	-7
	APO
	JMP ISTAP
	ADA I
	-1
	APO
	JMP GOUSER
	STC .+2
	IOB 13
	0
	IOB 12
	6000
	JMP GLIST
/
ISTAP,	LDA
	LUN
	ROR I 1
	BCL I
	7774
	AXO
	BCL I
	7777
	ROL I 4
	BSE I
	RDC
	STC .+1
	RDC
	6000
	SETAXO
/
GLIST,	LDA I
	LDF 4
	STC DIRUMB
	JMP SCOLST
NORAD,	LDA I
	LDF 3
	STC DIRUMB
	JMP SCOLST
	EJECT
TYPLST,	SET I BETA3
	2400
	JMP FORM
	LDA I
	2400
	STC TPL
/
NTYP,	IOB 11
	24
	212
	7
TPL,	2400
	JMP .-5
	IOB 1
	24
	.+3
	JMP .-3
	IOB 5
/
	LDF 7
	LDH BETA3
	SHD I
	4300
	JMP .+3
	LDH I BETA3
	JMP .-4
	LDH I BETA3
	SHD I
	3400
	JMP TYX
	LDA
	BETA3
	STC TPL
	JMP NTYP
/
TYX,	JMP FORM
	EJECT
LISXIT,	LDF 7
	IOB 13
	0
	IOB 12
	2022
	JMP GET67
/
CFIL,	4006
	1114
	0523
	4543
/
FORM,	SET 17
	0
	IOB 11
	7724
	-1
	4
	214
	JMP .-5
	JMP 17
	EJECT
SCOLST,	SET I BETA3
	2377
	SET I BETA2
	-125
	SET I FILPTR
	3000
	CLR
	STC FCOUNT
	LDF 7
	LDA I
	4543
	STA I BETA3
/
NSCOP,	SET 14
	FILPTR
	JMP DIRUMB
/
NS2,	LDA 14
	SAE I
	5757
	JMP PUTOUT
	LDA I
	3
	ADD FILPTR
	STC FILPTR
	XSK I BETA2
	JMP NSCOP
/
	LDF 7
	LDA I
	4543
	STA I BETA3
	STA I BETA3
	XSK I BETA3
	SFLOAT
	FCOUNT
	SETWRD
	200
	LDF 7
	OUTPUT
	BETA3
	SET I 17
	CFIL-1
	LDA I 17
	STA I BETA3
	SAE I
	4543
	JMP .-4
	LDA I
	3434
	STA I BETA3
	EJECT
/SCOPE OR PRINT
	SNS 5
	JMP TYPLST
	IOB 11
	26
	0
	4
	DISBUF
	JMP .-5
/
	SNS 5
	JMP .+3
	IOB 7
	JMP .-3
	IOB 2
	26
	IOB 7
	JMP LISXIT
/
DISBUF,	0
	0
	0
	340
	LDF 7
	2400
	4001
	4000
	EJECT
PUTOUT,	SET 17
	0
	LDF 7
	STA I BETA3
	JMP DIRUMB
	LDA I
	1
	ADM I
FCOUNT,	0
	LDA I 14
	STC TEMP
	XSK I BETA3
	LDF 7
	DFLOAT
	TEMP
	SETWRD
	400
	OUTPUT
	BETA3
	XSK I BETA3
	XSK I BETA3
	JMP DIRUMB
	LDA I 14
	BCL I
	7000
	STC TEMP
	LDF 7
	SFLOAT
	TEMP
	OUTPUT
	BETA3
	XSK I BETA3
	LDA I
	4040
	STA I BETA3
	STA I BETA3
	SRO I
LS1,	3333
	JMP .+4
	LDA I
	4543
	STA I BETA3
	JMP DIRUMB
	JMP 17
/
DIRUMB,	0
	JMP 0
/
TEMP,	0
AA2,	0
/
/
/MOD2
/FEB 74