FLIT I  2-12-60 = SECTION III

|Psuedo instruction list

pil,	-flex beg	tra bgn
	-flex cle	tra cl
	-flex oct	tra sro
	-flex dec	tra srd
	-flex sig	tra sns
	-flex uns	tra snu
	-flex ins	tra sip
	-flex con	tra spc
	-flex abs	tra sla
	-flex sym	tra sls
	-flex rea	tra red
	-flex pri	tra pho
	-flex wor	tra wds
	-flex add	tra ads
	-flex sur	tra sur
	-flex inp	tra inp
	-flex pun	tra pbb
	-flex sta	tra sta
	-flex res	tra res
	-flex tab	tra tbl
	-flex fee	tra in4
	-flex bre	tra brk
	-flex pro	tra pro

npi=27

|Search for psuedo instruction

spi,	load evx,tra erp
	load evy,tra sp1
	clad (-llr-pil+2
	llr (llr pil+npi+npi-2
	tra ev0
sp1,	clad ev1
	acst tra-llr+1,dot
	acst -tra-pil+1,pin
	cla
	tra tsc

|Perform psuedo instruction

do,	cal+com-opr
	slr wdc
	sto chn
dot,	xx

|Reset

res,	load lim,syt-nsm-nsm
	load syt-nsm-nsm,tra erp
	tra rsl

|Octal, decimal, etc.

sns,	add (1
snu,	sto sou
	tra rsl
srd,	add (1
sro,	sto rdx
	tra rsl
spc,	add arc
	trn sc1
	cla
	call maa
	add ar1
	llr ar2
sc0,	slr cul
	sto cdl
	tra rsl
sc1,	llr (-17777
	cla
	tra sc0
sip,	cal
	add (20000
	tra sc0
sls,	add arc
	trn sl1
	cla
	call maa
	add ar1
	llr ar2
sl0,	slr sul
	sto sll
	tra rsl
sl1,	llr (-17777
	cla
	tra sl0
sla,	cal
	add (20000
	tra sl0

|Define symbol

dfn,	slr dfy
	lac
	add (1
	sto dfx
	call evl
	tra df4
	add ev2
	acst slr-llr,df2
	add (-slr-syt+nsm+nsm
	trn df3
	lcc
	add wrd
	trn .+3
	clc
dfy,	xx
	add (1
	trn .-3
	tra df6
df4,	add lim
	add (-2
	sto lim
	add (1
	sto df1
	acst slr-sto+1,df2
	acst -2,df5
	llr sym
	lcc
df1,	xx
	llr (tra erp
df5,	xx
df3,	llr wrd
df2,	xx
df6,	cla
dfx,	xx

|Evaluate symbol

evl,	slr evx
	lac
	add (1
	sto evy
	llr (llr syt-1
	clad lim
	com
	add (-llr+1
ev0,	slr ev1
	sto tt0
ev1,	xx
	lac
	add sym
	trn ev3
evi,	clad ev1
	add (-2
	sto ev1
	add tt0
	com
	trn ev1
	cal+com-opr

evx,	xx
ev3,	add (1
	trn evi
	add ev1
	sto ev2
	cla
ev2,	xx
evy,	xx

|Mask arguments and check

mab,	add (1
maa,	slr max
	acst llr ar1,ma1
	acst 1,ma2
	clad (017777
ma1,	xx
	anl
	slr ar1
ma2,	xx
	anl
	lcc
	sto ar2
	add ar1
	com
	trn erp
	cla
max,	xx

|Read in symbol table

tbl,	add arc
	trn tb1
	cla
	subr maa, tb4
tb1,	sto ar1
	add (-17777
	sto ar2
tb4,	call ski	
	llr rb1
	lcc
	acst-llr+sto,tt1
	clad (llr buf
	tra tbi
tb2,	xx
	lcc
	sto sym
tb3,	xx
	slr wrd
	lac
	cyr
	llr (370000
	anl
	laz

	trn tb6
tb0,	call dfn
	sto tli
tbj,	clad tb3
	add (1
tbi,	sto tb2
	acst 1,tb3
	add tt1
	trn tb2
tb5,	clad lst
	llr (77
	anl
	clc+lad-opr
	trn rb0
	call rbk
	tra rb0
tb6,	llr wrd
	lcc
	add ar1
	trn .+2
	tra tbj
	lac
	add ar2
	trn tb0
	tra tbj

|Read in binary tape

	r3c
red,	r3c +com-opr
	trn .-2
	load sai,1
	load rbr,tra rd1
	load rbx,tra rb0
	tra rb0
rd1,	lcc
	add lim
	trn rd2
rd3,	slr .+2
	r3c
	xx
	tra rb3
rd2,	clc
	sto tli
	add (opr
	sto rd3+2
	tra rd3+1

|Surprise

sur,	add (101001
	pnc
	add arc
	trn su3
	cla
	subr maa,su4
su3,	sto ar1
	add lim
	add (-1
	com
	sto ar2
su4,	call ski

	load su1,llr buf
	llr adr
sup,	lac
	sto lwt
	acst add,su2
	lcc
	add ar1
	trn .+2
	tra sui
	lac
	add ar2
	trn .+2
	tra rb0
	lcc
	add lim
	trn suf
su1,	xx
	cla
su2,	xx
	sto tt1
	lpd
	trn sue
	com+cry-opr
	trn sut
sue,	slr tt0
	cla
	call prl
	llr tt1
	slr lwt
	call prw
	llr tt0
	slr lwt
	load wdc,4
	redd
	subr prw,sui
suf,	clc
	sto tli
	tra rb0
sut,	add (1
	trn sue
sui,	cstep su1
	clad adr
	add (1
	alr
	slr adr
	add lst
	trn sup
	tra rb0

|Skip input and read binary block

	r3c
ski,	r3c+com-opr
	trn .-2
rbk,	slr rbx
	llr rb2
	slr rbr
rb0,	load rb1,sto buf
	r3c+alr-opr
	trn dox
	add (add
	trn dox
	slr adr
	slr tt0
	r3c
	sto lst
	lad
	sto cks
rbr,	xx
rb1,	xx
rb3,	add cks
	sto cks
	clad rb1
	add (1
	sto rb1
	add (-sto-buf-100
	trn .+2
	tra erp
	lac
	add (1
	alr
	add lst
	trn rbr
rb2,	r3c
	add cks
	com
	trn chk
	amz
	com
	trn chk
rbx,	xx

|Clear routine

cl,	add arc
	trn cl5
	cla
	subr maa,cl6
cl5,	slr ar1
	add lim
	add (-1
	com
	sto ar2
cl6,	call asq
	sto cl3
	cla
	add ar3
cl3,	xx
	tra asi

|Word and address search

ads,	add (17777
wds,	ala
	add arc
	trn erp
	add (-3
	trn .+4
	cla
	add ar4
	ana
	slr tt2
	cla
	add ar1
	ana
	slr tt0
	add arc
	add (-1
	trn sr1
	cla
	subr mab,sr2
sr1,	cla
	sto ar1
	add lim
	com
	acst +1,ar2
sr2,	clad (101001
	pna
	call asq
	slr lwt
	add (llr
	sto .+1
	xx
	slr tt1
	clad tt2
	ana
	add tt0
	lpd
	trn asi
	com+cry-opr
	com
	trn asi
	amz
	com
	trn asi

	call prl
	load wdc,4
	llr tt1
	slr lwt
	subr prw,asi

|Print horizontal

pho,	add arc
	trn erp
	cla
	call maa
	load ph0,opr
	add (101001
	prt
	pna
	call asq
ph0,	xx
	sto tt0
	llr (-3
	anl
	slr lwt
	com+lad-opr
	sto tt1
	cla
	call prl
	llr tt1
	lcc
	add (1
	sto wdc
	cla
	tra ph2
ph1,	clad (100101
	prt
	pna
ph2,	add tt1
	add (1
	sto tt1
	trn ph1
	load ph0,tra phr
	tra php
phr,	llr (3
	anl
	clc+lad-opr
	trn ph5
php,	clad adr
	acst llr,ph4
ph4,	xx
	slr lwt
	cla
	subr prw,asi
ph5,	llr adr
	slr lwt
	cla
	sto wdc
	subr prl,php

|Address sequencer

asq,	slr asx
	llr ar1
	slr adr
asr,	lcc
	add lim
	trn tlt
	lac
asx,	xx
asi,	cla
	add adr
	add (1
	sto adr
	alr
	add ar2
	trn asr
	tra rst

|Begin

bgn,	add arc
	trn bg4
	llr ar1
bg5,	cla
	add (17777
	anl
	lac
	add (tra
	sto bgx
	load bdo,tra erp
	cla
	add arc
	add (-1
	trn bg1
	add (-1
	trn bg2
	llr ar3
	cla
	tra bg3
bg1,	cal
	tra bgx
bg2,	cal
bg3,	add ar2
bgx,	xx
bg4,	clad sai
	llr sad
	trn bg5
	tra erp

|Break point returns

ent,	slr lr
	lro
	tra en0
	slr lr
	llr (1
	tra en0
	slr lr
	llr (2
	tra en0
	slr lr
	llr (3
en0,	sto acc
	lac
	acst llr bop,en1
	acst brp-bop,en2
en1,	xx
	slr bdo
en2,	xx
	lac
	sto lwt
	acst tra+1,brt
	cla
	sto chn
	sto wdc
	call prl
	load wdc,3
	slr pin
	print 000110+022200+004000
	add acc
	llr (tra en3
	tra en4
en3,	print 100100+020200+004000
	add lr
	llr (tra rst
en4,	sto t1
	slr prx
	tra onp

|Psuedo instruction proceed

pro,	cla
	add acc
	llr lr
bdo,	cla
brt,	tra erp

|Psuedo instruction break

brk,	add bpc
	trn set
	add (-1
	sto bpc
	acst llr bop,br3
	acst brp-bop,br1
br1,	xx
	lac
	trn brk
	acst slr,br2
br3,	xx
br2,	xx
	clc
	tra brk
set,	add arc
	sto bpc
se0,	trn sex
	add (-1
	sto arc
	acst llr ar1,se1
	acst sto brp-llr-ar1,se5
	sto se6
	acst slr bop-sto-brp,se3
se1,	xx
	lac
	trn se7
	com
	add lim
	trn se7
	lac
se5,	xx
	sto se4
	acst llr,se2
se2,	xx
se3,	xx
	clad arc
	cyl+200
	lad
	add (tra ent
se4,	xx
se8,	clad arc
	tra se0
se7,	clc
	sto tli
se6,	xx
	tra se8
sex,	llr tli
	lac
	trn tlt
	tra rsl

|Punch input routine

inp,	llr (100
	p6s+lpd-opr
	add (-1
	alr+com-opr
	trn .-3
	llr 17760
in2,	lac
	add (1
	alr+com-opr
	add 17775
	trn in3
	lac
	add (add
	sto in1
	lac
	p7h
	p7h
	p7a
in1,	xx
	p7h
	p7h
	p7a
	tra in2
in3,	add (trn 17744
	p7h
	p7h
	p7a
in4,	llr (40
in5,	p6s+lpd-opr
	add (-1
	alr+com-opr
	trn .-3
	tra rsl

|Punch binary blocks

pbb,	add arc
	trn erp
	llr (tra rsl
p1r,	slr pby
	cla
	call maa
	load pbx,opr
	add ar1
pb0,	com
	llr (777700
	anl
	lcc
	add ar2
	add (1
	trn pb1
	load pbx,tra pby
	llr ar2
pb1,	p6s
	add ar1

	p7h
	p7h
	p7a
	lac
	p7h
	p7h
	p7a
	lac
	add ar1
	sto cks
	slr ar3
	clad ar1
	add (llr
	sto pbr
	lac
	acst-llr,tt0
pbr,	xx
	lac
	add cks
	sto cks
	lac
	p7h
	p7h
	p7a
	step pbr
	add tt0
	trn pbr
	llr cks
	lcc
	p7h
	p7h
	p7h
	p6s
	p6s+40
pbx,	xx
	llr ar3
	lcc
	add (1
	sto ar1
	tra pb0
pby,	xx

|Punch start block

sta,	llr (40
	p6s+lpd-opr
	add (-1
	alr+com-opr
	trn .-3
	add ar1
	add (add
	p7h
	p7h
	p7a
	llr (100
	tra in5

|INDICATORS

adr,	+0
wrd,	+0
loc,	+0
lwt,	+0
lr,	+0
acc,	+0
pin,	+0
chc,	+0
arc,	+0
syc,	+0
wdc,	+0
chn,	+0
udf,	+0
ign,	+0
tai,	-0
let,	+0
psi,	+0
cas,	+1
coi,	+0
pun,	+0
gon,	-0
rop,	+0
lni,	+0
rdx,	-0
def,	+0
sou,	-0
tli,	+0
sym,	+0
onm,	+0
dnm,	+0
fld,	+0
flv,	+0
ppr,	+0
nps,	+0
nfc,	+0
syl,	+0
bpc,	-0
lst,	+0
cks,	+0
cdl,	+0
cul,	20000
sll,	+0
sul,	20000
lim,	syt-nsm-nsm
sai,	+0
sad,	+0
t,	+0
t1,	+0
t2,	+0
t3,	+0
t4,	+0
tt0,	+0
tt1,	+0
tt2,	+0
t5,	+0
t6,	+0

ar1,	0	ar2,	0
ar3,	0	ar4,	0
bop,	0	0	0	0
brp,	0	0	0	0


buf,	buf+101|

scp,	llr (lac
scn,	llr (lcc

constants

start add rst
t