FLIT FOR MAC-FLT  6-18-62 = SECTION III

|Psuedo instruction list

pil,	-flex beg	tra bgn
	-flex cle	tra cl
	-flex ins	tra sip
	-flex con	tra spc
	-flex abs	tra sla
	-flex sym	tra sls
	-flex wor	tra wds
	-flex add	tra ads
	-flex res	tra res
	-flex bre	tra brk
	-flex pro	tra pro
	-flex tap	tra tap
	-flex typ	tra tpe
	-flex ass	tra ass
	-flex lis	tra lis
	-flex sto	tra np1

npi=20

spi,	load sp0,llr pil
sp0,	xx
	lac
	add sym
	trn sp2
sp1,	clad sp0
	acst 2,sp0
	add (-llr-pil-npi-npi+1
	trn sp0
	tra erp
sp2,	add (1
	trn sp1
	add sp0
	acst tra-llr,dot
	acst -tra-pil+1,pin
	cla
	tra tsc

|Perform psuedo instruction

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

|Instructions, constants, absolute, symbolic

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
	add (1
	tra sl0
sla,	cal
	add (20000
	tra sl0

|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

|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

|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

|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

|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
	acst 1,brt+1
	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 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

|Psuedo instruction proceed

pro,	clad cvi
	trn .+3
	amz
	trn prg
	clc
	add eri
	trn erp
	cla
	sto eri
	tra alx
prg,	cla
	add acc
	llr lr
bdo,	tra erp
brt,	xx
	xx

|Psuedo instruction restore

	res=rm

|Psuedo instructions tape and type

tpe,	cla
tap,	sto t
	clc
	add eri
	com
	trn erp
	add cvi
	trn tp1
	amz
	trn .+2
	tra erp
	sto cvi
	add fad
	sto lim
	acst slr,rfd
	load rfe,333333
tp1,	clad t
	llr (r1c
	trn .+4
	load ls3,tra tp2
	llr (tra lsn
	slr rd
	trn rft
	tra rb
tp2,	llr t
	lal
	com
	add (111111
	trn tp3
	tra rd3
tp3,	llr rfg
	slr rcc
	llr rff
	slr wc0
	tra del

|Psuedo instruction assemble

ass,	clad cvi
	trn .+2
	tra erp
	add eri
	com
	trn erp
	add fad
	acst llr,rc1
	load rcc,333333
	load cvi,1
	tra ps2

|Pseudo instruction LIST

lis,	add arc
	trn erp
	llr ar1
	lcc
	add (mil-1
	trn erp
	lac
	trn erp
	sto fad
	tra rsl

|Write character subroutine

wch,	slr wcx
	llr wc0
	lac
	acst llr-slr,wc3
	slr wc2
	llr rcc
	lac
	cyr
	alr
	sto rcc
	trn wc1
	add wc0
	acst -333333+1,wc0
	add (-slr-mil+1
	trn wc1
	add (flex ptl-1
	llr (tra erp
	tra alm
wc5,	llr rcc
	lal
wc3,	xx	| llr fxl+
	ana
	add t
	ora
wc2,	xx	| slr fxl+
wcx,	xx
wc4,	clad t
	cyr
	sto t
wc1,	lal
	alr
	trn wc4
	tra wc5
wc0,	xx


|Read character routine

rch,	slr rcx
	llr rcc
	lcc
rc1,	xx	|llr flx+
	anl+com-opr
	cyr
	sto rcc
	tra rc4
rc2,	lal
	ala
	add t
rc4,	cyl
	sto t
	trn rc2
	slr t
	
	clad rcc
	trn rc3
	add rc1
	acst 1-333333,rc1
	acst sto-llr-1,rc5
	alc
	add cvi
	trn rc3
	slr lim
	cla
rc5,	xx
rc3,	clad t
	llr lim
rcx,	xx	|exit

|Read tape or typing into flexo list

rfw,	call wch
rd,	xx	| r1c or tra lsn
	ala
rd3,	slr t
	ldx (-5
rd2,	lax rd1+5
	lpd
	tze rd8
	tix rd2
rot,	xx
rd8,	trx rbr
	tra rd
	tra rfw
rsc,	xx
rtb,	xx
rcr,	xx
rbr,	xx

rft,	llr rfe
	slr rcc
	llr rfd
	slr wc0
	load rtb,tra rd
	slr rcr
	slr rsc
	load rbr,tra rf1
	slr rot
	tra rd
rf1,	load rcr,tra rf2
	load rtb,tra rfw
	slr rbr
	slr rot
	tra rfw
rf2,	call wch
	add rfd
	acst llr-slr,rc1
	llr rfe
	slr rcc

	call rch
	cyr
	cyr
	prt+cyl-opr
	add (-202002
	trn .+2
	tra rch+1
	add (1
	trn rch+1
rb,	llr rfd
	slr wc0
	llr rfe
	slr rcc
	load rsc,tra rfw
	load rtb,tra rcr
	clad (111101
	pna
	tra rb2+2
rb2,	call wch
	llr wc0
	slr rff
	llr rcc
	slr rfg

	load rcr,tra rfw
	load rbr,tra ri
	load rs,llr rsr
	llr (tra rs
	slr rot
	tra rd

ri,	load rcr,tra rb2
	load rot,tra rd
	tra rd

rs,	xx
	lcc
	add t
	trn rs2
rsn,	load rot,tra rfw
rb1,	load rcr,tra rb2
	load rbr,tra rot
	tra rfw
rs2,	add (1
	trn rsn
	add rs
	sto rs
	add (-llr-rsr-5+1
	trn rb1
rb3,	load rcr,tra rb4
	load rot,tra rfw
	tra rfw

rb4,	call wch
	add rfd
	acst llr-slr,rc1
	llr rfe
	slr rcc
	llr rff
	slr rfd
	llr rfg
	slr rfe
	tra np2

rsr,	char ls
	char lt
	char la
	char lr
	char lt

rcc,	0
rfd,	0	rfe,	0
rff,	0	rfg,	0

rd1,	444444	040000	440004
	400404	404004	000404

|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
gon,	-0
rop,	+0
lni,	+0
def,	+0
sym,	+0
onm,	+0
fld,	+0
flv,	+0
ppr,	+0
nps,	+0
nfc,	+0
syl,	+0
bpc,	-0
cdl,	20000
cul,	+0
sll,	+1
sul,	-17777
lim,	mil-1
sai,	+0
sad,	+0
t,	+0
t1,	+0
t2,	+0
t3,	+0
t4,	+0
t5,	+0
t6,	+0
tt0,	+0
tt1,	+0
tt2,	+0
cvi,	+0
eri,	+0
tli,	+0
fad,	fxl
ar1,	0	ar2,	0
ar3,	0	ar4,	0
bop,	0	0	0	0
brp,	0	0	0	0

scp,	llr (lac
scn,	llr (lcc

constants

start add rm

