.GLOBL	BEGIN,DECODE,DISPO,KBFIX,LIST
	.GLOBL	LPON,SAV,SUBTAG,TABLEB,TABLEN
	.GLOBL	TVALUE,SAVE,START,COPY,FILER
/
/
/
	.LOC 7000
	.IODEV 3,4,5,6
IDCF=700704
IDLA=700606
IDRS=700504
DBR=703344
IDRC=700712
DBK=703304
IOF=700002
ISA=705504
CAF=703302
TLS=700406
TSF=700401
TCF=700402
IDSI=700601
IDSP=700701
IDVE=700501
IDHE=701001
IDSC=701012
IDRA=700512
/
/
/
TSTART	JMP	START
/
LENGTH=200
/
/
/
/    THIS IS THE DISPLAY SUBROUTINES FOLLOWED BY THE 
/     USERS FILES
TABLEB	.DSA	0
	.REPT 10
	.DSA	0
	.BLOCK 600
TVALUE	.DSA	0
	.REPT 10
	.DSA	0
	.BLOCK 300
/
/
/  COMPONENTS
/
/
RV	100100
	220000
	202210
	204020
	204220
	204020
	204220
	204020
	204220
	204020
	202210
	220000
	400000
RH	100100
	200040
	204004
	310010
	210010
	310010
	210010
	310010
	210010
	310010
	204004
	200040
	400000
LETTER	174120
	220000+LETEND
	220000
	060120
	.SIXBT	<36><34>'DELET'<37>
	020000
	060210
	.SIXBT	<36><34>'ADD'<37>
	020000
	060270
	.SIXBT	<36><34>'NODE'<37>
	020000
	060350
	.SIXBT	<36><34>'BRNCH'<37>
	020100	/ TO PNT  SCALE=00
	220005
	100470
	210000	/ RESISTOR
	201204
	202010
	202210
	202010
	202210
	202010
	202210
	202010
	201204
	610000
	020000
	220005	/ INDUCTOR
	100560	/ 500+30=530
	213000
	204002
	200005
	302001
	302201
	200205
	205202
	202000
	204002
	200005
	302001
	302201
	200205
	204202
	613000
	020000	/ CAPACITOR
	220005
	100640
	216400
	200010
	002400
	200220
	102400
	200010
	002400
	616400
	020000
	220005	/ VOLTAGE SOURCE
	100720
	212000
	206214
	206014
	306014
	306214
	005206
	202004
	302004
	202004
	005206
	612000
	020000
	220005
	101000
	212000	/ CURRENT SOURCE
	206214
	206014
	306014
	306214
	002400
	205000
	301603
	000006
	201603
	003400
	612000
	020000
	220064	/ GROUND BY DJS
	161060
	600000+G
	020120
	061150
	.SIXBT	<36><34>'WIRE'<37>
	020000
	061310
	.SIXBT	<36><34>'HORZ'<37>
	020000
	061370
	.SIXBT	<36><34>'VERT'<37>
	020000
	061530
	.SIXBT	<36><34>'OKAY'<37>
	020000
	061610
	.SIXBT	<36><34>'GRID'<35><37>
	160000
LETEND	0
/
/
LH	100100
	200054
	302020
	305000
	301210
	201210
	205000
	202020
	200010
	302020
	305000
	301210
	201210
	205000
	202020
	200054
	400000
LV	100100
	226000
	210004
	200012
	304002
	304202
	200212
	210204
	204000
	210004
	200012
	304002
	304202
	200212
	210204
	226000
	400000
CV	100100
	235400
	200020
	005000
	200240
	105000
	200020
	005000
	235400
	400000
CH	100100
	200073
	310000
	000012
	220000
	000212
	310000
	000012
	200073
	400000
VV	100100
	224000
	214230
	214030
	314030
	314230
	012214
	204010
	304010
	204010
	012214
	224000
	400000
VH	100100
	200050
	214030
	314030
	314230
	214230
	102014
	204010
	304010
	204010
	102014
	200050
	400000
IV	100100
	224000
	214230
	214030
	314030
	314230
	005000
	214000
	303206
	000014
	203206
	007000
	224000
	400000
IH	100100
	200050
	214030
	314030
	314230
	214230
	000012
	200030
	203206
	106000
	203006
	000016
	200050
	400000
X	110100
	002204
	206214
	120000
	206014
	000010
	306014
	020000
	306214
	502204
G	100100
	314000
	000214
	200030
	104204
	200220
	104004
	200010
	400000
/
VHVS	440000
HHVS	400100
/
/
/
SAVES	XX
	XX
	XX
	XX
TABLEN	.DSA	0
	.REPT 73
	.DSA	0
	174177
	.DSA	420000+GGRID
BEGIN	174137
	.BLOCK 500
TOVFOW	XX
	XX
	XX
	XX
NODET	170136
	.DSA	560004+BEGIN
	.BLOCK 300
GGRID	221770
	122010
	.BLOCK 555
NODE	LAC	STAR
	SZA
	JMP	YES
	LAC*	DISEND
	SAD	GBEFO
	JMP	.+5
	ADD	(2
	DAC*	DISEND
	DAC	ENDS3
	JMP	ION
	DZM	NNUM#
	IDRA
	TAD	(-2	/ TWO FOR LATE L.P. CYCLING
	DAC	DSAVE#
	IDSC
	TAD	(-1
	DAC	TDSAVE
	SPA
	JMP	NSUB
	LAC	DSAVE
	DAC	TDSAVE
	LAC*	TDSAVE
	SPA
	JMP	.+3
	ISZ	TDSAVE
	JMP	.-4
	LAC	TDSAVE
	DAC	EECOMP#
	LAC	TDSAVE
	TAD	(-1
	DAC	TDSAVE
	LAC*	TDSAVE
	RTL
	SZL
	JMP	.-6
	ISZ	TDSAVE
	LAC	TDSAVE
	DAC	SSCOMP#
	LAC	VERTM
	DAC	YPERM#
	LAC	HORZM
	DAC	XPERM#
	LAC	EECOMP
	DAC	DSAVE
	JMP	NDOWN
NSUB	LAW	17777
	DAC	DSAVE
	LAC	TDSAVE
	TAD	(-2
	DAC	PLACE
	LAC*	PLACE
	AND	(1777
	DAC	YPERM
	ISZ	PLACE
	LAC*	PLACE
	AND	(1777
	DAC	XPERM
	LAC	HORZM
	TAD	(-100
	CMA
	TAD	(1
	TAD	XPERM
	SMA
	JMP	.+4
	LAC	XPERM
	ADD	(LENGTH
	DAC	XPERM
	LAC	VERTM
	TAD	(-100
	CMA
	TAD	(1
	TAD	YPERM
	SMA
	JMP	.+4
	LAC	YPERM
	ADD	(LENGTH
	DAC	YPERM
NDOWN	LAC	XPERM
	DAC	HORZ1
	LAC	YPERM
	DAC	VERT1
	JMS	HIDDEN
	JMP	ION
NFIX	XX
	DZM	NMB#
	ISZ	NNUM
	LAC	(TABLEN
	DAC	PLACE
	ISZ	NMB
	LAC	NMB
	SAD	(25
	JMP	M6
	LAC*	PLACE
	SNA
	JMP	.+5
	LAC	PLACE
	ADD	(3
	DAC	PLACE
	JMP	NFIX+5
	LAC	XPERM
	DAC*	PLACE
	ISZ	PLACE
	LAC	YPERM
	DAC*	PLACE
	ISZ	PLACE
	LAC	DSAVE
	DAC*	PLACE
	JMS	OCTDEC
	LAC	TENS
	SZA
	JMP	.+7
	LAC	UNITS
	CLL
	ALS+14
	XOR	(3737
	DAC	WORD1#
	JMP*	NFIX
	CLL
	ALS+6
	XOR	UNITS
	ALS+6
	XOR	(37
	DAC	WORD1
	JMP*	NFIX
/
/
/
YES	LAC	TCROSS
	SZA
	JMP	.+3
	DZM	STAR
	JMP	M7
	LAC	HORZM
	SAD	HORZ2
	SKP
	JMP	.+10
	LAC	VERTM
	SAD	VERT2
	SKP
	JMP	.+4
	LAC	NNUM
	SZA
	JMP	ION
	LAC*	DISEND
	SAD	GBEFO
	SKP
	JMP	.+5
	TAD	(-2
	DAC*	DISEND
	DAC	ENDS3
	JMP	ION
	LAC	NNUM
	SZA
	JMP	.+7
	LAC	MODE
	SAD	(12
	JMS	NFIX
	LAC	MODE
	SAD	(14
	JMS	BFIX
	LAC	HORZM
	DAC	HORZ2
	LAC	VERTM
	DAC	VERT2
	LAC	FNODE
	DAC	PLACE
	LAC*	PLACE
	AND	(617777
	XOR	(020000
	DAC*	PLACE
	ISZ	PLACE
	LAC	(220000
	ADD	VERT2
	DAC*	PLACE
	ISZ	PLACE
	LAC	(060000
	ADD	HORZ2
	DAC*	PLACE
	ISZ	PLACE
	LAC	WORD1
	DAC*	PLACE
	LAC	MODE
	SAD	(12
	JMP	.+4
	ISZ	PLACE
	LAC	WORD2#
	DAC*	PLACE
	ISZ	PLACE
	LAC	(160000
	DAC*	PLACE
	LAC	PLACE
	DAC	TNODE
	ISZ	PLACE
	LAC	(560000
	ADD	DISEND
	DAC*	PLACE
	JMP	ION
/
/
/
/
BRANCH	LAC	STAR
	SZA
	JMP	YES
	LAC*	DISEND
	SAD	GBEFO
	JMP	.+5
	ADD	(2
	DAC*	DISEND
	DAC	ENDS3
	JMP	ION
	DZM	NNUM
	LAC	VERTM
	DAC	VERT1
	LAC	HORZM
	DAC	HORZ1
	IDSC		/ READ ASR
	TAD	(-1
	SMA
	JMP	CCLEAR
	AND	(17777
	DAC	TDSAVE
	DAC	DSAVE
	LAC	(TABLEB
	ADD	(1
	DAC	PLACE
	LAC*	PLACE
	SAD	DSAVE
	JMP	CCLEAR
	SNA
	JMP	.+5
	LAC	PLACE
	ADD	(4
	DAC	PLACE
	JMP	.-10
	JMS	SPART
	LAC	PART#
	SAD	(32
	JMP	CCLEAR
	JMS	HIDDEN
	JMP	ION
CCLEAR	LAC	DISPO
	DAC	TCNTR
	LAC*	DISPO
	AND	(617777
	XOR	(160000
	DAC*	DISPO
	DZM	TCROSS
	JMS	WINDUP
	JMP	ION
/
/
/
/
BFIX	XX
	ISZ	NNUM
	DZM	BNMB#
	LAC	PART
	CLL
	ALS+14
	DAC	TPART#
	ISZ	BNMB
	LAC	(TABLEB
	DAC	PLACE
	LAC*	PLACE
	SNA
	JMP	BINCR+4
	AND	(770000
	SAD	TPART
	SKP
	JMP	BINCR
	LAC*	PLACE
	AND	(777
	SAD	BNMB
	JMP	BFIX+7
BINCR	LAC	PLACE
	ADD	(4
	DAC	PLACE
	JMP	BFIX+12
	JMS	FORMB
	LAC	PART
	CLL
	ALS+3
	XOR	DIRECT
	ALS+11
	XOR	BNMB
	DAC*	PLACE
	ISZ	PLACE
	LAC	DSAVE
	DAC*	PLACE
	ISZ	PLACE
	LAW	17777
	DAC*	PLACE
	ISZ	PLACE
	DAC*	PLACE
	ISZ	PLACE
	DZM*	PLACE
	ISZ	PLACE
	DZM*	PLACE
	ISZ	PLACE
	DZM*	PLACE
	ISZ	PLACE
	DZM*	PLACE
	JMP*	BFIX
/
/
/
/
OCTDEC	XX
	LAC	NMB
	LMQ
	CLA!CLL
	DIV
	.DSA	12
	ADD	(60
	DAC	UNITS#
	LACQ
	SZA
	JMP	.+3
	DZM	TENS#
	JMP*	OCTDEC
	ADD	(60
	DAC	TENS
	JMP*	OCTDEC
/
/
DECOCT	XX
	LAC	TENS
	SZA
	JMP	.+5
	LAC	UNITS
	TAD	(-60
	DAC	NMB
	JMP*	DECOCT
	TAD	(-60
	CLL
	MUL
	.DSA	12
	LACQ
	ADD	UNITS
	TAD	(-60
	DAC	NMB
	JMP*	DECOCT
/
/
FORMB	XX
	LAC	BNMB
	DAC	NMB
	JMS	OCTDEC
	LAC	PART
	SAD	(20	/R
	LAC	(224000
	SAD	(22	/L
	LAC	(144000
	SAD	(24	/C
	LAC	(034000
	SAD	(26	/V
	LAC	(264000
	SAD	(30	/I
	LAC	(114000
	DAC	WORD1
	LAC	TENS
	SNA
	JMP	.+11
	XOR	WORD1
	DAC	WORD1
	LAC	UNITS
	CLL
	ALS+14
	XOR	(3737
	DAC	WORD2
	JMP*	FORMB
	LAC	UNITS
	XOR	WORD1
	DAC	WORD1
	LAC	(373737
	DAC	WORD2
	JMP*	FORMB
/
/
LCOMP	XX
	JMS	SPART
	LAC*	TDSAVE
	DAC	SWORD3#
	LAC	DIRECT
	SAD	(1
	JMP	.+4
	LAC	HHV
	DAC*	TDSAVE
	JMP*	LCOMP
	LAC	VHV
	DAC*	TDSAVE
	JMP*	LCOMP
/
/
SPART	XX
	LAC	(SUBTAG
	ADD	(1
	DAC	COMPAR#
	LAC	(20
	DAC	PART
	LAC	(1
	DAC	DIRECT
	LAC*	TDSAVE
	SAD*	COMPAR
	JMP	BDOWN
	ISZ	DIRECT
	ISZ	COMPAR
	LAC*	TDSAVE
	SAD*	COMPAR
	JMP	BDOWN
	LAC	PART
	ADD	(2
	DAC	PART
	ISZ	COMPAR
	JMP	SPART+6
BDOWN	LAC*	COMPAR
	AND	(017777
	DAC	SSCOMP
	ISZ	COMPAR
	LAC*	COMPAR
	AND	(017777
	DAC	EECOMP
	JMP*	SPART
/
/
VORS	XX
	LAW	17764
	DAC	COMPAR
	LAC	(1
	DAC	RVORS#
	LAC	(SUBTAG
	ADD	(1
	DAC	PLACE#
	LAC*	TDSAVE#
	SAD*	PLACE
	JMP	.+6
	ISZ	PLACE
	ISZ	COMPAR
	JMP	.-4
	DZM	RVORS
	JMP*	VORS
	LAC	TDSAVE
	TAD	(-1
	DAC	COMPAR
	LAC*	COMPAR
	AND	(160000
	SAD	(160000
	JMP*	VORS
	JMP	.-11
/
/
DATA	.DSA	0
PROTCT	.DSA	0
/
/
DELETE	LAC*	DISEND
	SAD	GBEFO
	JMP	.+5
	ADD	(2
	DAC*	DISEND
	DAC	ENDS3
	JMP	ION
	LAC	PROTCT
	SZA
	JMP	ION
	ISZ	PROTCT
	IDSC		/ READ ASR - WAS IT COMPONENT
	SMA
	JMP	NOSUBR	/ NO
	TAD	(-1
	AND	(17777
	DAC	TDSAVE
	DAC	DSAVE
	LAC	(14		/ DELETING A BRANCH
	DAC	TYPE#
	JMP	D2
NOSUBR	IDRA		/ EITHER WIRE OR TAG UNDER L.P.
	TAD	(-2	/ EXTRA MINUS FOR L.P. CYCLE
	DAC	TDSAVE
	DAC	DSAVE
	CMA
	TAD	(1
	TAD	(TOVFOW	/ IS IT IN TAG FILE
	SMA
	JMP	HNODE	/ NO! THEN WIRE
	JMS	FNODET	/RELATE TAG TO CIRCUIT
	ISZ	DATA
	LAC	TYPE	/WAS TAG FOR BRANCH
	SAD	(14
	JMP	D2	/ YES
	LAC	TDSAVE	/ WAS NODE A POINT
	SAD	(777777	/ AND NO REFERENCE
	JMP	D2+1	/ YES
HNODE	LAC	(12
	DAC	TYPE
	LAC*	TDSAVE
	SPA
	JMP	.+3
	ISZ	TDSAVE
	JMP	.-4
	LAC	TDSAVE
	DAC	EECOMP
	LAC	TDSAVE
	TAD	(-1
	DAC	TDSAVE
	LAC*	TDSAVE
	RTL
	SZL
	JMP	.-6
	ISZ	TDSAVE
	LAC	TDSAVE
	DAC	SSCOMP
	TAD	(-1
	DAC	TDSAVE
	ISZ	TDSAVE
	LAC*	TDSAVE
	AND	(577777
	DAC*	TDSAVE
	LAC	TDSAVE
	SAD	EECOMP
	JMP	.+3
	JMP	.-7
D2	JMS	LCOMP
	LAC	DATA
	SNA
	JMS	FDATA
	LAC	DATA
	SZA
	JMS	HLABEL
	JMP	ION
/
/
/
HLABEL	XX
	LAC	TYPE
	SAD	(14
	JMP	.+11
	LAC	ELABEL#
	TAD	(-1
	DAC	PLACE
	LAC*	PLACE
	DAC	SWORD1#
	LAC	(404037
	DAC*	PLACE
	JMP*	HLABEL
	LAC	SLABEL#
	ADD	(3
	DAC	PLACE
	LAC*	PLACE
	DAC	SWORD1
	LAC	(404040
	DAC*	PLACE
	ISZ	PLACE
	LAC*	PLACE
	DAC	SWORD2#
	LAC	(373737
	DAC*	PLACE
	JMP*	HLABEL
/
/
FNODET	XX
	LAC*	TDSAVE
	AND	(77
	SAD	(37
	JMP	.+3
	ISZ	TDSAVE
	JMP	.-5
	LAC	TDSAVE
	TAD	(-1
	DAC	TDSAVE
	LAC*	TDSAVE
	AND	(770000
	SAD	(060000
	SKP
	JMP	LBRAN
	ISZ	TDSAVE
	LAC*	TDSAVE
	CLL
	LRS+14
	DAC	TENS
	CLA
	LLS+6
	SAD	(37
	JMP	.+3
	DAC	UNITS
	JMP	.+4
	LAC	TENS
	DAC	UNITS
	DZM	TENS
	JMS	DECOCT
	LAC	NMB
	DAC	NNMB#
	LAC	TDSAVE
	TAD	(-3
	DAC	SLABEL
	ADD	(4
	DAC	ELABEL
	LAC	(TABLEN
	ADD	NMB
	ADD	NMB
	ADD	NMB
	TAD	(-3
	DAC	LPLACE#
	ADD	(2
	DAC	PLACE
	LAC*	PLACE
	DAC	TDSAVE
	DAC	DSAVE
	LAC	(12
	DAC	TYPE
	JMP*	FNODET
LBRAN	LAC	TDSAVE
	TAD	(-3
	DAC	SLABEL
	ADD	(5
	DAC	ELABEL
	LAC*	TDSAVE
	AND	(770000
	SAD	(220000	/R
	LAC	(20
	SAD	(140000	/L
	LAC	(22
	SAD	(030000	/C
	LAC	(24
	SAD	(260000	/V
	LAC	(26
	SAD	(110000	/I
	LAC	(30
	DAC	PART
	LAC*	TDSAVE
	AND	(77
	DAC	TENS
	ISZ	TDSAVE
	LAC*	TDSAVE
	AND	(770000
	CLL
	LRS+14
	DAC	UNITS
	SAD	(37
	SKP
	JMP	.+4
	LAC	TENS
	DAC	UNITS
	DZM	TENS
	JMS	DECOCT
	LAC	NMB
	DAC	BNMB
	LAC	(TABLEB
	DAC	PLACE
	LAC	PART
	CLL
	ALS+14
	DAC	TPART
LBRAN1	LAC*	PLACE
	AND	(770000
	SAD	TPART
	SKP
	JMP	.+5
	LAC*	PLACE
	AND	(777
	SAD	BNMB
	JMP	.+5
	LAC	PLACE
	ADD	(4
	DAC	PLACE
	JMP	LBRAN1
	LAC*	PLACE
	AND	(007000
	CLL
	LRS+11
	DAC	DIRECT
	LAC	PLACE
	DAC	LPLACE
	ISZ	PLACE
	LAC*	PLACE
	DAC	DSAVE
	DAC	TDSAVE
	LAC	(14
	DAC	TYPE
	JMP*	FNODET
/
/
/
FDATA	XX
	LAC	TYPE
	SAD	(14
	JMP	FBDATA
	DZM	NNMB
	LAC	(TABLEN
	ADD	(2
	DAC	PLACE
	ISZ	NNMB
	LAC*	PLACE
	SAD	EECOMP
	JMP	.+10
	LAC	NNMB
	SAD	(25
	JMP*	FDATA
	LAC	PLACE
	ADD	(3
	DAC	PLACE
	JMP	FDATA+10
	LAC	PLACE
	TAD	(-2
	DAC	LPLACE
	LAC	NNMB
	DAC	NMB
	JMS	OCTDEC
	LAC	TENS
	SZA
	JMP	.+7
	LAC	UNITS
	CLL
	ALS+14
	XOR	(3737
	DAC	WORD1
	JMP	.+7
	CLL
	ALS+6
	XOR	UNITS
	ALS+6
	XOR	(37
	DAC	WORD1
	LAC	(NODET
	DAC	PLACE
	LAC	WORD1
	ISZ	PLACE
	SAD*	PLACE
	SKP
	JMP	.-3
	LAC	PLACE
	TAD	(-3
	DAC	SLABEL
	ADD	(4
	DAC	ELABEL
	ISZ	DATA
	JMP*	FDATA
FBDATA	LAC	(TABLEB
	ADD	(1
	DAC	PLACE
	LAC*	PLACE
	SNA
	JMP*	FDATA
	SAD	DSAVE
	JMP	.+5
	LAC	PLACE
	ADD	(4
	DAC	PLACE
	JMP	.-10
	LAC	PLACE
	TAD	(-1
	DAC	LPLACE
	LAC*	LPLACE
	AND	(777
	DAC	BNMB
	JMS	FORMB
	LAC	(NODET
	DAC	PLACE
	LAC	WORD1
	ISZ	PLACE
	SAD*	PLACE
	SKP
	JMP	.-3
	ISZ	PLACE
	LAC	WORD2
	SAD*	PLACE
	SKP
	JMP	.-7
	LAC	PLACE
	TAD	(-4
	DAC	SLABEL
	ADD	(5
	DAC	ELABEL
	ISZ	DATA
	JMP*	FDATA
/
/
/
DFIX	XX
	LAC	PROTCT
	SZA
	JMP	.+3
	DZM	STAR
	JMP*	DFIX
	LAC	STAR
	SZA
	JMP	DDLETE
	LAC	TYPE
	SAD	(14
	JMP	BDFIX
	LAC	DATA
	SNA
	JMP	.+11
	LAC	SLABEL
	ADD	(3
	DAC	PLACE
	LAC	SWORD1
	DAC*	PLACE
	LAC	DSAVE
	SAD	(777777
	JMP	DWIND
	LAC*	SSCOMP
	XOR	(200000
	DAC*	SSCOMP
	LAC	SSCOMP
	SAD	EECOMP
	JMP	DWIND
	ISZ	SSCOMP
	JMP	.-7
BDFIX	LAC	SWORD3
	DAC*	DSAVE
	LAC	DATA
	SNA
	JMP	DWIND
	LAC	SLABEL
	ADD	(3
	DAC	PLACE
	LAC	SWORD1
	DAC*	PLACE
	ISZ	PLACE
	LAC	SWORD2
	DAC*	PLACE
	JMP	DWIND
DDLETE	LAC	TYPE
	SAD	(14
	JMP	DBDLET
	LAC	DATA
	SNA
	JMP	.+7
	LAC	DSAVE
	SAD	(777777
	SKP
	JMP	.+3
	DZM	BNMB
	SKP
	JMS	REMOVE
	LAC	DATA
	SNA
	JMP	.+7
	DZM*	LPLACE
	ISZ	LPLACE
	DZM*	LPLACE
	ISZ	LPLACE
	DZM*	LPLACE
	JMS	RLABEL
	JMS	UPDATE
	JMP	DWIND
DBDLET	LAC	DSAVE
	DAC	EECOMP
	DAC	SSCOMP
	JMS	REMOVE
	LAC	DATA
	SZA
	JMP	.+3
	JMS	UPDATE
	JMP	DWIND
	JMS	RLABEL
	LAC	LPLACE
	ADD	(2
	DAC	PLACE
	LAC*	PLACE
	DAC	VPNT#		/ ADDRESS OF COMPONENT'S VALUE
	ISZ	PLACE
	ISZ	PLACE
	LAC*	PLACE
	SNA
	JMP	.+5
	DAC*	LPLACE
	ISZ	PLACE
	ISZ	LPLACE
	JMP	.-6
	DZM*	LPLACE
	ISZ	LPLACE
	DZM*	LPLACE
	ISZ	LPLACE
	DZM*	LPLACE
	ISZ	LPLACE
	DZM*	LPLACE
	JMS	UPDATE
	LAC	VPNT	/ ADDRESS CARRIED IN AC
	JMS	RVALUE	/ GO DELETE VALUE
DWIND	DZM	DATA
	DZM	STAR
	DZM	TYPE
	DZM	PROTCT
	JMP*	DFIX
/
/
/
/  THIS SUBROUTINE REMOVES COMPONRNT'S VALUE FROM  TVALUE
/  TABLE AND UPDATES ANY NECESSARY POINTERS
/
RVALUE	XX
	DAC	VPNT
	DAC	PLACE
	DAC	COMPAR
	CMA
	SNA
	JMP*	RVALUE	/LOOK FOR CODE 777777 FOR
	ISZ	PLACE	/VALUE TERMINATOR
	LAC*	PLACE
	CMA
	SZA
	JMP	.-4
	ISZ	PLACE
	LAC*	PLACE	/WAS IT LAST VALUE IN THE TABLE
	SZA
	JMP	.+3
	DZM*	VPNT
	JMP*	RVALUE
	LAC	PLACE
	CMA
	TAD	(1
	TAD	VPNT
	DAC	NMB	/ NMB OF LOCATIONS MOVED
	LAC*	PLACE
	DAC*	VPNT
	ISZ	PLACE
	ISZ	VPNT
	LAC*	PLACE
	SZA
	JMP	.-5
	DZM*	VPNT
	LAC	(TABLEB
	ADD	(2
	DAC	PLACE
	LAC*	PLACE
	SNA
	JMP*	RVALUE
	CMA
	TAD	(1
	TAD	COMPAR
	SMA
	JMP	.+4
	LAC*	PLACE
	TAD	NMB
	DAC*	PLACE
	LAC	PLACE
	ADD	(4
	DAC	PLACE
	JMP	.-16
/
/
/
REMOVE	XX
	LAC	SSCOMP
	TAD	(-3
	DAC	SSCOMP
	ISZ	EECOMP
	LAC	SSCOMP
	DAC	NNMB
	LAC	EECOMP
	CMA
	TAD	(1
	TAD	SSCOMP
	DAC	BNMB
	LAC	EECOMP
	SAD	DISPO
	JMP	.+6
	LAC*	EECOMP
	DAC*	SSCOMP
	ISZ	EECOMP
	ISZ	SSCOMP
	JMP	.-7
	LAC	(160120
	DAC*	SSCOMP
	LAC	SSCOMP
	DAC	DISPO
	DAC	TCNTR
	JMS	WINDUP
	JMP*	REMOVE
/
/
/
RLABEL	XX
	LAC	ELABEL
	SAD	FNODE
	JMP	.+16
	LAC	SLABEL
	SAD	(NODET
	JMP	.+3
	LAC*	ELABEL
	DAC*	SLABEL
	ISZ	SLABEL
	ISZ	ELABEL
	LAC	ELABEL
	SAD	FNODE
	SKP
	JMP	.-7
	LAC*	ELABEL
	DAC*	SLABEL
	LAC*	SLABEL
	AND	(617777
	XOR	(160000
	DAC*	SLABEL
	LAC	SLABEL
	DAC	FNODE
	DAC	TNODE
	ISZ	SLABEL
	LAC	(560004
	ADD	DISPO
	DAC*	SLABEL
	JMP*	RLABEL
/
/
/
UPDATE	XX
	LAC	BNMB
	SNA
	JMP*	UPDATE
	LAW	17754
	DAC	COMPAR
	LAC	NNMB
	CMA
	TAD	(1
	DAC	NNMB
	LAC	(TABLEN
	ADD	(2
	DAC	PLACE
	LAC*	PLACE
	TAD	NNMB
	SPA
	JMP	.+4
	LAC*	PLACE
	TAD	BNMB
	DAC*	PLACE
	LAC	PLACE
	ADD	(3
	DAC	PLACE
	ISZ	COMPAR
	JMP	.-13