
Microflit symbol table loader 2

lis|

tl,	load tb5, slr syt+10
	llr (17777
	cla+hlt-opr
g,	llr (17777
	tac
	anc+lro-opr
	slr AR1		|relocation
	sto AR2
	r3c+lro-opr
	stz LA
	tsx rbk

tb1,	tsx rbk
	ldx (buf
	tra tbe

tbg,	lda		|lda sym
	llx 1		|llr value
	tra inv

tb4,	llr SY
tb5,	slr		|slr sym
	ado tb5
	ado tb5
	ldx tbg
	aux (2
tbe,	sxa tbg
	xcc
	add rbs
	trn tb1
	tra tbg

rbk,	sxa rbx
	load rbs, sto buf
	r3c
	trn rst
	alr+com-opr
	add la
	slr la
	com
	trn rst
	r3c+lad-opr
	alr+xro-opr

rb1,	r3c
rbs,	xx		|sto buf
	lad
	alr
	ado rbs
	tix rb1
	r3c+lad-opr
rbx,	tze .

ckr,	lda (flex chk
	pnt	pnt	pno
	lda (flex sm
	pnt	pnt	pno 40
	hlt+alr-opr
	tra rbk+1

rst,	lda tb5
	add (-slr+1
	com
	sto est
	hlt+cal-opr
	tra g

inv,	sto sy
	trn in1
	cla
inx,	lad
	ldx tb5
	stx 1
	lda sy
	stz sy
	llr (-opr
	anc
	alo
	add (add ind
	sto ina

inq,	add (trn-add-ind-3
	trn tb4
	ldx (-46
	lac

inr,	alr
ina,	xx
	tix .+1
	trn inr

	lda sy
	cyr
	adx inl+45
	sto sy
	ado ina
	tra inq

in1,	cyl
	trn in2
	lda ar1
	tra inx

in2,	lda ar2
	tra inx

ind,	deci
	1369
	37
	1
	octal

inl,	0
	char l0	char l1
	char l2	char l3
	char l4	char l5
	char l6	char l7
	char l8	char l9
	char la	char lb
	char lc	char ld
	char le	char lf
	char lg	char lh
	char li	char lj
	char lk	char ll
	char lm	char ln
	char lo	char lp
	char lq	char lr
	char ls	char lt
	char lu	char lv
	char lw	char lx
	char ly	char lz

vari
const

buf,

start add tl
