*20
//MOD41
	 
/DECODE MODULE 41
/BLOCK 63
	 
/CONTENTS
/   TABSET
/   INTABLE
/   MISSNG
/   INUNIT
/   OUTUNIT
	 
	LODSYM
	 
	SEGMNT 4
	*1400
	41
	 
	ADD COMAND
	ADA I
	JMP .+4
	STC .+2
	STC COMAND
	JMP
/
	JMP TABST
	JMP MISS
	JMP TABLIN
	JMP OUTUN
	JMP INUN
/
/
TABST,	FETCH
	ROL 2
	ADA I
	TABTAB
	STC BETA1
	FETCH
	STA BETA1
	FETCH
	STA I BETA1
	FETCH
	ROL 1
	STA I BETA1
	CLR
	STA I BETA1
	JMP GOUSER
	EJECT
/INPUT TABLE HANDLER
/
TABLIN,	TYPEC
	TMES
	JMP FIXTAB
MOTAB,	JMP DECOD
/
	JMP TDF
	LDH
	INBUF
	SHD I
	4500 	/CR
	JMP FINTAB
	LDA
	INBUF
	STA FILPTR
	INPUT
	INBUF
	FIX
	0
	ISTOR2
	MOBUF
	ADD MOBUF
	STA I FILPTR
	EJECT
	SET I BETA3
	4\INBUF-1
	LDH I BETA3
	SHD I
	4500 	/CR
	JMP MOTX
	SAE I
	55 	/DASH
	JMP .-6
/
	LDH I BETA3
	INPUT
	BETA3
	FIX
	0
	ISTOR2
	T1
/
MODASH,	LDA FILPTR
	SAE
	T1
	SKP
	JMP MOTX
	ADD ONE
	STC T2
	ADD INBUF
	STA I FILPTR
	LDA I
T2,	0
	STA I FILPTR
	XSK I BETA1
	JMP MODASH
	JMP FULL 	/TABLE FULL
	EJECT
MOTX,	XSK I BETA1
	SKP
	JMP FULL 	/TABLE FULL
	LDA I FILPTR
	JMP MOTAB
/
TMES,	4543
	0516
	2405
	2240
	2401
	0214
	0545
	4372
/
FINTAB,	CLR
	STA FILPTR
	STA I FILPTR
	XSK I BETA1
	SKP
	JMP GOUSER
	LDA I FILPTR
	JMP FINTAB
	EJECT
	 
	 
FIXTAB,	SET 15
	0
	FETCH
	ROL 2
	ADA I
	TABTAB
	STC BETA1
	LDA BETA1
	STC MTEM+5	/TABLE LDF
	LDA I BETA1
	STC FILPTR
	LDA I BETA1
	SCR 1
	COM
	STC BETA1 	/CNTR
	JMP 15
	EJECT
	 
TDF,	LDA		/SET TABLE DF
	MTEM+5
	STC .+1
	0
	JMP 0		/LEAVE
	 
/ROUTINE TO CHECK FOR
/MISSING ENTRIES IN
/TABLE
/
MISS,	JMP FIXTAB
	JMP TDF
	LDA FILPTR
	AZE
	JMP YESM
	SKPFIL
	XSK I BETA1
	JMP .-5
	JMP EX1 	/NONE MISSING
	EJECT
YESM,	TYPE
	CR
	TYPE
	MISMES
/
	REXC 3
	JMP GOUSER
/
	SETWRD
	0400
/
NB,	JMP TDF
	LDA FILPTR
	STC MOBUF
	LDA I FILPTR
	STC MTEM
	STC MTEM+1
	DFLOAT
	MTEM
	OUTPUT
	MOBUF+1
/
	TYPE 
	MOBUF
/
QB,	JMP TDF
	XSK I BETA1
	SKP
	JMP GOUSER
	LDA I FILPTR
	AZE
	JMP NB
	LDA I FILPTR
	JMP QB
/
MOBUF,	0
T1,	0
	0
	4543
/
MISMES,	1511
	2323
	1116
	0745
	4300
	EJECT
/ROUTINE TO SET UP
/INUNIT LIST
/
INUN,	TYPEC
	INU
	JMP DECOD
	LDA I
	4\INLST-1
	STA
	IUPTR
	JMP GETUNI
	STC ITCNT
	COM
	STC INFLG
	ADD SAVDIR
	APO I
	JMP GOUSER
	CLR
	STC SAVDIR
	JMP GOUSER
/
/
/ROUTINE TO SET UP
/OUTUNIT LIST
/
OUTUN,	TYPEC
	OUTU
	JMP DECOD
	LDA I
	4\OUTLST-1
	STA
	OUPTR
	JMP GETUNI
	STC OTCNT
	COM
	STC OUTFLG
	ADD SAVDIR
	APO
	JMP GOUSER
	CLR
	STC SAVDIR
	JMP GOUSER
	EJECT
/
/
GETUNI,	SET 15
	0
	STC BETA2
	SET I BETA1
	4\INBUF-1
	SET I BETA3
	0
NU,	CLR
	STC MTEM
	LDH I BETA1
	SHD I
	4500
	JMP DU
	SHD I
	5400 	/COMMA
	JMP PU
	SHD I
	5600 	/PERIOD
	JMP PU
	BCL I
	7760
	STC MTEM+1
	ADD MTEM
	MUL I
	12
	ADD MTEM+1
	STC MTEM
	JMP NU+2
/
PU,	LDA
	MTEM
	STH I BETA2
	XSK I BETA3
	JMP NU
/
DU,	LDA
	MTEM
	STH I BETA2
	XSK I BETA3
	LDA I
	77
	STH I BETA2
	LDA
	BETA3
	JMP 15
	EJECT
INU,	4543
	1116
	2516
	1124
	2372
/
OUTU,	4543
	1725
	2425
	1611
	2423
AA41,	7200
/
/MOD41
/FEB 74
	REXC=540