*20
//MOD5
	 
/DECODE MODULE 5
/BLOCK 27
	 
/CONTENTS
/   LEVEL 1 MOVE
/   LEVEL 1 CREATE
	 
	LODSYM
	 
	SEGMNT 4
	*1400
	5
	 
	JMP SAV67
	ADD COMAND
	ADA I
	JMP .+4
	STC .+2
	STC COMAND
	JMP
	 
	JMP CREATE
	 
MOVEH,	INPUT
	INBUF
	FIX
	FAC
	ISTOR1
	FROM
/NEXT NUMBER
	JMP DELIM
	ADD FROM
	BCL I
	7760
	STC FROM
	ADD TO
	BCL I
	7760
	STC TO
	LDA I
	4000
	STC BLKT
/
	SET I 14
	-66
NBR,	JMP MREAD
	JMP MWRIT
	LDA I
BLKT,	0
	ADA I
	10
	STC BLKT
	XSK I 14
	JMP NBR
/
MTDX,	SETAXO
	JMP GET67
	EJECT
MREAD,	SET BETA3
	0
	LDA I
FROM,	0
	ADA I
	-7
	APO
	JMP TR
/DISK READ
	LDA
	FROM
	SHD I
	1000
	JMP MTDX
	ADA I
	-10
	STC .+2
	IOB 13
	0
/
	LDA I
	IOB 12
	STC R
	JMP READ
/TAPE READ
TR,	LDA
	FROM
	JMP TAPSET
	BSE I
	RDC
	STC R
/
READ,	LDA
	BLKT
	STC R+1
	LDF 6
R,	RDC
	0
	CLR
	ADD C1001
	LAM
	R+1
	SRO I
	3567
	JMP R
	LDF 7
	BSE I
	4000
	STC R+1
	SRO I
	2525
	JMP R
/
RDX,	CLR
	JMP BETA3
	EJECT
MWRIT,	SET BETA3
	0
	LDA I
TO,	0
	ADA I
	-7
	APO
	JMP TW
/DISK
	LDA
	TO
	SHD I
C1001,	1001
	JMP RDX
	ADA I
	-10
	STC .+2
	IOB 13
	0
/
	LDA I
	IOB I 12
	STC W
	JMP WRIT
/TAPE WRITE
TW,	LDA
	TO
	JMP TAPSET
	BSE I
	WRI
	STC W
/
WRIT,	LDA
	BLKT
	STC W+1
	LDF 6
W,	WRI
	0
	CLR
	ADD C1001
	LAM
	W+1
	SRO I
	3567
	JMP W
	LDF 7
	BSE I
	4000
	STC W+1
	SRO I
	2525
	JMP W
/CHECK
	LDA
	W
	SAE I
	IOB I 12
	SKP
	JMP RDX
	BSE I
	7
	STC CH
	ADD BLKT
	STC CH+1
	LDA I
	377
	STC CHCT
/
CH,	CHK
	0
	AZE
	JMP MWRIT+2
	LDA I
	1
	ADD CH+1
	STC CH+1
	SRO I
CHCT,	0
	JMP CH
	JMP RDX
	EJECT
TAPSET,	ROR I 1
	BCL I
	7774
	AXO
	BCL I
	7777
	ROL I 4
	JMP 0
	EJECT
CREATE,	SET I BETA2
	-200
	INPUT
	INBUF
	FIX
	FAC
	ISTOR1
	NC
	JMP DELIM
	ADD NC
	BCL I
	7600
	COM
	STC 17
	LDF 6
	SET I FILPTR
	3777
	WIPE
	XSK I BETA2
	JMP .-2
	LDF 6
	SET I FILPTR
	3777
	XSK 17
	SKP
	JMP .+5
	HOLD
	XSK I 17
	NOP
	JMP .-6
	LDA I
	4000
	STC BLKT
	ADD TO
	BCL I
	7760
	AZE I
	ADD ONE
	STC TO
	JMP MWRIT
	JMP GET67
NC,	0
	EJECT
	HOLD=JMP .
	LDA I
	3232
	STA I FILPTR
	CLR
	STA I FILPTR
	STA I FILPTR
	JMP 0
	EJECT
DELIM,	LDA
	0
	STC DELIMX
	SET I 14
	INBUF
DL1,	LDH I 14
	SHD I
	5400
	JMP DL2
	SHD I
	5600
	JMP DL2
	SHD I
	4500
	JMP DL3
	SHD I
	4300
	JMP DL3
	JMP DL1
/
DL2,	LDH I 14
DL3,	LDA
	14
	STC .+2
	INPUT
	0
	FIX
	FAC
	ISTOR1
AA5,	TO
/
DELIMX,	JMP
/
/MOD5
/FEB 74