*20
//MOD6
	 
/DECODE MODULE 6
/BLOCK 30
	 
/CONTENTS
/   COMEXC DEFINE HANDLER
	 
	LODSYM
	 
	SEGMNT 4
	*1400
	6
	 
/COMEXC DEFINE HANDLER
/
/ENTER WITH TEXT POINTER IN AC
/EXIT WITH
/AC=DILUN
/MQ=DILBLK
/
	STC HP
	ADD 0
	STC DEFX
	LDA I
HP,	0
	BCL I
	2000
	JMP GTDILQ
	JMP FNDDIQ
	 JMP ENDCOM
/
	LDA
	DILBLK
	SCR 13
	LDA
	DILUN
	LIF 0
DEFX,	JMP
	EJECT
/GET NAME FROM TEXT STRING
/ENTER WITH POINTER IN AC
GTDILQ,	STC BETA3
	ADD 0
	STC GTDIXQ
	SET I BETA2
	4\DILNAM-1
	SET I 17
	-10
PDQ,	LDH I BETA3
	SHD I
	4300
	JMP FIL77Q
	SHD I
	4500
	JMP FIL77Q
	SHD I
	5400
	JMP FIL77Q
	SHD I
	5600
	JMP FIL77Q
	STH I BETA2
	XSK I 17
	JMP PDQ
	LDH I BETA3
	JMP UCHKQ
	EJECT
FIL77Q,	CLR
	COM
	STH I BETA2
	XSK I 17
	JMP .-2
/
UCHKQ,	LDF 3
	LDA I
	2000
	STC DILUN
	LDH
	4\CURFIL
	STH
	4\DILUN
/
	LDH BETA3
	SAE I
	54
	SKP
	JMP .+4
	SAE I
	56
	JMP GTDIXQ
	LDH I BETA3
	SAE I
	15
	SKP
	LDH I BETA3
	BCL I
	7770
	STH
	4\DILUN
GTDIXQ,	JMP
	EJECT
/SEARCH DIAL INDEX
/ENTER WITH DILNAM
/SET UP
FNDDIQ,	SET 14
	0
/DIAL INDEX
	LDH
	4\DILUN
	AZE
	JMP NOTZEQ
/UNIT ZERO INDEX
	LDA I
	34
	JMP TRYDSK
	JMP SRINDQ
	SETAXO
	RDC
	1034
	RDC
	2035
	JMP SRINDQ
/
NOTZEQ,	JMP SETUNQ
	STA
	RZ1Q
	STC RZ2Q
/
	LDA I
	400
	TMA
RZ1Q,	RDC
	346
	LDA I
	1000
	TMA
RZ2Q,	RDC
	347
/
SRINDQ,	SET I 17
	-200
	SET I BETA3
	377
	EJECT
NPQ,	CLR
	STC GFLGQ
	SET I BETA2
	DILNAM-1
	LDA I BETA2
	SAE I BETA3
	STC GFLGQ
	SRO I
	3567
	JMP .-5
	LDA I
GFLGQ,	0
	AZE
	SKP
	APO
	SKP
	JMP MTCHQ
	XSK I 17
	JMP NPQ
	JMP RSQ
/
MTCHQ,	LDA
	DILUN
/CHECK MS OR BINARY
	ROL 1
	APO
	JMP .+3
/BINARY
	XSK I BETA3
	XSK I BETA3
	LDA I BETA3
/CHECK EXISTENCE
	SAE I
	5757
	XSK I 14
	STC DILBLK
	EJECT
RSQ,	LDA I
	21
	JMP TRYDSK
	JMP 14
	SETAXO
	RDC
	1021
	RDC
	2022
	LDF 3
	JMP 14
	EJECT
SETUNQ,	LDA
	0
	STC SETUQ
	ADD DILUN
	ROR 1
	BCL I
	7774
	BSE I
	1020
	AXO
	LDA
	DILUN
	ROL 3
	BCL I
	7767
	BSE I
	RDC
SETUQ,	JMP
	EJECT
TRYDSK,	SET 17
	0
	STC DBLQ
	LDA I
	-3
	ADD DEFX
	STC 15
	LDF 0
	LDA 15
	SAE I
	NOP
	JMP DAQ
	XSK I 17
	JMP 17 	/TAPE SYSTEM
/
DAQ,	LDF 3
	LDA I
	-1000+1
	STA
	3750
	IOB
	6753
	LDA I
	377
	STA
	3751
	IOB
	6755
	LDA
	DBLQ
	ROR 4
	BCL I
	377
	STC D32A
	LDA I
	10
	IOB
	6732
	BSE I
	100
	IOB
	6615
/
	LDA I
D32A,	0
	IOB
	6603
	LDA I
DBLQ,	0
	IOB
	6733
/
DWQ,	IOB
	6622
	SKP
	JMP ERQ
	IOB
	6745
	JMP DWQ
/
ERQ,	IOB
	6747 	/6621
	SKP 	/JMP DAQ
	JMP DAQ 	/NOP
/
	IOB
	6742
	IOB
	6611
	IOB
	6601
AA6,	JMP 17
/
/
/MOD6
/FEB 74