ddt part 4

fet,	lio (-0	/fetch
	dio dff
	jmp dep 2

dep,	0	/deposit
	dzm dff
	dap dpx
	lac tas
	sma
	jmp dpx-1
	lac tsp
	sza
	jmp dp2	/internal register
	lac ts2
	jda trc
dp0,	law 7777	/entry from E search
	and tas
	xct pvs
	jmp dpc	/in core
	lio dff
	spi i
	ior pvp
	lia
	dia
	law 1
	lio dff
	spi
	ior pvp
	swp
	law dep
	dcc
	jmp dre
	lac dep
dpx,	jmp .

dpc,	dap pvp
	lio dff
	eem
	lac i pvp
	spi i
	lac dep
	dac i pvp
	lem
dxp,	dac dep
	jmp dpx


















                
                                
dp2,	lio dff
	law 7777
	and tas
	dap dp3
	sub (ac
	spa
	jmp err
	sub (ll-ac
	spa
	jmp dp4	/A,I,X,G,F, or M
	sub (2	/M+1,M+2, or B etc.
	sma
	jmp dp6	/B etc.
dp7,	spi	/M+1,M+2, or X
	jmp dp3
	law 7777
	and dep
	dac i dp3
	lac ul
	sub ll
	sma
	jmp dpx-1
	jmp err
dp6,	sub (nbp	/B etc.
	sma
	jmp err
	spi
	jmp dp9	/fet from B
	lac dep	/dep in B
	sad (-0
	jmp . 4
	ral 6s
	and (17
	jda trc
	clc>>05<<lia
	lac dep
	sas (-0
	and (177777
	b=0
	repeat nbp,sad bk1 b	dio bk1 b	b=b 1
	jmp dp3 3
dp9,	lac i dp3
	sma
	jmp dxp
	law 56
	jda tys
	clc
	dac lwt
	jmp pn2

dp3,	lac .
	spi i
	lac dep
	dac i dp3
	jmp dxp
dp4,	sad (-4	/A,I,X,G,F, or M
	jmp dp7	/X
	sad (-3	/A,I,G,F, or M
	spi	/G






                
                                	jmp dp3	/fet from G, or others
	lac dep	/dep in G
	ral 6s
	and (17
	jda trc
	lac dep
	jmp dp3 3



























































                
                                
yn1,	nop
	lac t
	dap pvp
	xct pvs
	jmp yc	/in core
	lio pvp
	dia
	lac rb1
	sub la
	lia
	lac la
	dcc
	jmp dre
	jmp nb
yc,	eem
	lac i la
	dac i pvp
	idx pvp
	index la,rb1,yc 1
	lem
	jmp nb
vy1,	lac lc2	/set up for V or Y
	dac syl
	xct xsw
	jmp vy2
	clc
	dac chc
	lac fa
	and (177777
	dac fa
	lac wrd
	and (177777
	add (1
	dac la
	sub fa
	spq
	jmp err
	jmp vy3
vy2,	move ll,fa
	move ul,la
	jsp ck2
	move est,wc
vy3,	move fa,sys
	move la,sys 1
	move est,wc
	jsp ar
	xct i vyx
	idx vyx
vy4,	cla
	xct xsw
	dip t
	xct xsw
	dip ch
	lac sys
	sub t
	spa
	cla
	lia
	adm t






                
                                	lai
	adm la
	lac sys 1
	sub ch
	sma
	cla
	adm rb1
	sub la
	spq
	jmp nb
	xct xsw
vyx,	jmp .
	law i 7777
	and t
	ral 6s
	jda trc
	jmp vyx
nb,	jsp rbk
	jmp vy4

zr2,	spi i
	jmp . 3
	dzm fa
	law 7777
	dac la
	lac lc2
zr3,	dac syl
	jsp ck2
	xct pvs
	jmp zc	/core
	dzm lo
zb,	dzm i lo
	index lo,est,zb
	dzm sys
	law wr

std,	dap stx	/set up drum swap
	lac fa
	sad la
	jmp lse
	lac la
	sub fa
	sub est
	sma
	cla
	add est
	dac wc
	move fa,lo
	adm fa
stx,	jmp .

zc,	lac pvp
	dip fa
	adm la
	eem
zc2,	dzm i fa
	index fa,la,zc2
	jmp lse

ckf,	dap cux	/check field






                
                                	jmp cf2
cku,	dap cux	/set up save or unsave
	lac fa
	add (add
	xct xsw
	cla
	dac sys
	dac sys 1
	jsp ck1
cf2,	law 77
	and wrd
	sas wrd
	jmp err
	rar 6s
	dac wrd
	dac lo
	and (370000
	sza i
	jmp err
	sub (270000
	sma
	jmp err
	lac wrd
cux,	jmp .










































                
                                
sav,	jsp cku
	xct pvs
	jmp svc	/in core
	dzm sys 1
	lio pvp
	lac wrd
	dio wrd
	dac pvp
	jmp su2

uns,	jsp cku
	xct pvs
	jmp usc
	dzm sys

su2,	jsp std
	lac lo	/read
	add sys 1
	and (7777
	lia
	dia
	lac wrd
	add wc
	lia
	cla
	dcc
	jmp dre

wr,	lac lo	/write
	add sys
	and (7777
	add pvp
	lia
	dia
	lio wc
	cla
	dcc
	jmp dre
	jmp std 1

svc,	dzm wrd
	jmp . 2
usc,	dzm lo
	lac fa	/swap with core
	add sys
	dap lo
	lac la
	sub fa
	dap wrd
	lac fa
	dap pvp
	lio lo
	dia
	lio wrd
	lac pvp
	dcc
	jmp dre
	jmp lse







                
                                
wrd,	0		/quantity being assembled
sym,	0	0	/alpha symbol being assembled
sys,	0	0	/alpha symbol saved for define
chc,	0		/character count
chi,	0		/+0 when letter or number has been
			/typed since last typeout or c.r. input
let,	0		/+0 when letter in syllable, otherwise -0
ch,	0		/character
syl,	0		/syllable
t,	0		/temporary storage
fa,	0		/lower limit
la,	0		/upper limit
t1,	0
t3,	0
mod,	0		/mode, -0 for "type-in"
opd,dnm,	0		/decimal number
op2,	0
op1,	0

pvp,	0		/has core module or drum field for pv
pvf,	0		/drum location of buffer for pv

df1,	0		/value for defining symbol

loc,	add		/current location
lc2,	0		/current field
lcp,	0		/current location flop
tas,	0		/current examine address
			/sign bit on if register open
ts2,	0		/current examine field
tsp,	0		/current examine flop
iif,	0		/goes on when A I M B typed

dff,	0		/deposit-fetch flop, 0 dep, -0 fet
lo,	.
wc,	.
opc,	0	/pc saved during X
obf,	0	/bkf saved during X
bkf,	0	/on if stop was at breakpoint
buf,	0	/reader buffer
buf 100/

constants
foo,	/get the bad news
start lis