ts ddt part 3

def,	lac let		/define symbol
sk1,	sza
	jmp err
	law pn2

de,	dap dex
	lio df1
	jsp evl
	jmp df2
	law i 1
	add est
	dap est
	dio i est
	sub one
	dap est
	lio sym
	dio i est
	jmp dex

df2,	dio i ev2
dex,	jmp .

oct,	law odv	/H
	jmp .+2
dec,	law ddv	/U
	dap ops
	jmp lse

cns,	law opt	/C 
	dap pns
	jmp lse

oad,	law pvl	/O
	jmp .+2
rad,	law pev	/R
	dap pa1
	jmp lse

cpr,	move wrd,df1	/)
	dio lwt
	jmp def

del,	jmp pn2	/x

/eval routines

eas,	law be	/E
	spi
	jmp n1
	law ea1	/e search
	jmp ws

ar,	law ac	/A
	spi
	jmp n1
	lac wrd
	dac ac
	dac lwt
	jmp lse

bk,	law bk1	/B
	spi
	jmp n1
	lac wrd
	dac bk1
	jmp ar 5

smb,	law pi	/S
	spi
	jmp cns 1
	lac wrd
	dac io
	law lr
	jmp bgn 2

ir,	law io	/I
	spi
	jmp n1
	lac wrd
	dac io
	jmp ar 5

eql,	dac lwt	/=
	jsp lct
	lac lwt
	jda opt
pn2,	jsp lct
	jmp bax 2

arw,	dac lwt	/.
	jsp lct
	jda pi
ar1,	jmp del
                
                                
pls,	lac cad	/+,space,(
	jmp ssn

min,	spi
	dio wrd
	lac csu	/-
	jmp ssn

uni,	jmp ssn-1	/>>05<<

isc,	lac can	/^
	jmp ssn

tab,	jsp dep	/tab
ta3,	and (7777
	dac lwt
	jsp lcc
	xct jmc
	jmp rpd-2
	sub est
	sma
	jmp spd
	lac lwt
	jda pad
rpd,	law 7221
	lio tpi
	spi i
	law 7456
	jda tys

ta5,	dzm loc
	dap loc
ta6,	dap tas
	init ope,600
	xct jmc
	jmp gec
	lac loc
	sub est
	spa
	jmp okp
	add est
	sub (bk1 4
	sma
	jmp err
	add (4
	sma
	jmp pob
	add (7
	spa
	jmp err
okp,	jsp lct
	lac i tas
rkp,	lio tpi
	spi i
	jmp . 4
	dac lwt
bax,	jda .		/pi, opt or lwt
	jsp lct
bax 2,	clc
	jmp lss 2

bs,	jsp dep	/backspace
	idx loc
	jmp ta3

fs,	jsp dep	/^
	law i 1
	adm loc
	jmp ta3

bac,	law opt	/[
	jmp .+2
bas,	law pi	/]
	dap bax
bar,	lac lwt	//
	spi
	jmp ta6
	lac wrd
	jmp ta5

uc8,	jsp dep	/>
	jmp ta6
                
                                
vb,	dzm tpi
	jmp bar

cr,	jsp dep	/car. ret.
	dac lwt
	law 72
	jda tys
	init ope,0
	jmp lss

start