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

	fxl=1000	mil=6000

	
	typ=psx+1	tsx=ts2-1
	rtb=rsc+1

	lax=360000


10242|
	rm=.
	np2=rm+1
	ps2=np2+1
	alx=ps2+1
	alm=alx+1
	evl=alm+1
	np1=evl+1
	dfn=np1+1

	low=7416		|MACRO symbol table origin

14006|	
	tra ep1
	tra ep2
	tra erp
	tra err
	tra rst
	tra opt
	tra rch
	tra rch+1
	tra rsl

	tra rst

|FLEXOWRITER INTERROGATION TAPE


	xx=hlt
	dc=400000	ns1=12
	lc=000000	ns2=12
	uc=200000	nsd=2

define	clad A

	lda A
	terminate

define	acst A,B

	add (A
	sto B
	terminate

define	load A,B

	llr (B
	slr A
	terminate

define	step A

	add A
	add (1
	sto A
	terminate

define	cstep A

	ado A
	terminate

define	call A

	llr (tra .+2
	tra A
	terminate

define	subr A,T

	llr (tra T
	tra A
	terminate

define	type A

	llr .
	tra typ
	A
	terminate

define	print A

	llr .
	tra psy
	A
	terminate

define	redd

	llr .
	tra cor
	terminate

define	black

	llr .
	tra cob
	terminate

|Character dispatch table

dsp,	tra lsn	tra lsn	| n.u.
	xx	xx	| n.u.
	tra l	tra i	| e
	tra n-8	tra i	| 8
	xx	xx	| n.u.
	tra bar	tra i	|
	tra l	tra int	| a
	tra n-3	tra i	| 3
	tra pos	tra pos	| space
	tra pfi	tra dnf	| +
	tra l	tra dst	| s
	tra n-4	tra i	| 2
	tra l	tra pfo	| i
	tra pos	tra hnd	| -
	tra l	tra uni	| u
	tra n-2	tra i	| 0
	tra lsn	tra lsn	| color
	tra i	tra i	|
	tra l	tra i	| d
	tra n-5	tra i	| 3
	tra l	tra i	| r
	tra n-1	tra i	| .
	tra l	tra i	| j
	tra n-7	tra i	| 5
	tra l	tra i	| n
	tra cma	tra dfc	| 
	tra l	tra dlt	| f
	tra n-6	tra i	| 4
	tra l	tra i	| c
	tra neg	tra i	| 9
	tra l	tra i	| k
	xx	xx	| n.u.
	tra l	tra i	| t
	xx	xx	| n.u.
	tra l	tra i	| z
	tra bs	tra bs	| backspace
	tra l	tra ast	| l

	tra tab	tra tab	| tabulate
	tra l	tra cuc	| w
	xx	xx	| n.u.
	tra l	tra i	| h
	tra cr	tra cr	| carriage return
	tra l	tra i	| y
	xx	xx	| n.u.
	tra l	tra i	| p
	xx	xx	| n.u.
	tra l	tra i	| q
	xx	xx	| n.u.
	tra l	tra i	| o
	tra lsn	tra lsn	| stop
	tra l	tra i	| b
	xx	xx	| n.u.
	tra l	tra i	| g
	xx	xx	| n.u.
	tra n-7	tra i	| 7
	xx	xx	| n.u.
	tra l	tra i	| m
	tra ucs	tra lsn	| upper case
	tra l	tra tms	| x
	xx	xx	| n.u.
	tra l	tra i	| v
	tra lsn	tra lcs	| lower case
	tra n	tra i	| 8
	tra del	tra del	| delete

|Letter and number logic

l,	add ign
	trn igc
	llr lni
	lcc
	trn e
	llr (1
	slr let
	tra ln
	add (1
	add (1
	add (1
	add (1
	add (1
	add (1
	add (1
	add (1
	add (1
n,	sto t1
	clad ign
	trn igc
	llr lni
	lcc
	trn e
	llr onm
	lal
	cyl
	cyl
	add t1
	sto onm
ln,	clad chc
	add (1

	alr
	add (-3
	trn ln1
	cla
	add let
	trn ln2
	clc
	add rop
	add pin
	trn .+2
	tra e
	add (1
	sto psi
	tra ln2
ln1,	cla
	add sym
	cyr
	add t
	sto sym
ln2,	slr chc
	tra lsn

|Terminate product subroutine

tpd,	slr tpx
	call tsy
	llr ppr
psn,	xx		|lac or lcc
	add wrd
	sto wrd
tpx,	xx

|Terminate word subroutine

twd,	slr twx
	call tpd
	alc
	add syc
	trn tw1
	slr lwt
tw1,	cla
twx,	xx

|Case shifts

ucs,	add (1
lcs,	amz
	sto cas
	tra lsn

|Plus, space, minus, etc

int,	llr (ana
	tra sso
uni,	llr (ora
	tra sso
dst,	llr (tra pad
	tra sso
tms,	llr (tra mul
sso,	slr nfc
	llr (tra e
	slr ssa
	slr ssc
	llr (tra ss0
	slr ssb
	tra ss2
pos,	llr scp
	tra ss1
neg,	llr scn
ss1,	slr ssa
	slr ssb
	llr (opr
	slr ssc
ss2,	add ign
	trn igc
	add chc
	trn ss3
	cla
	add psi
	trn ssb
ssc,	xx		|opr or tra e
ssb,	xx		|llr (lac or lcc,  or  tra ss0
	slr nps
	call tpd
	llr nps
	slr psn
	tra rsp
ss3,	add lni
	trn ssa
	tra ssb
ssa,	xx		|llr (lac or lcc,  or  tra e

	slr fsn
	step chn
	tra lsn
ss0,	call tsy
	llr nfc
	slr fcn
	tra rss

|Reset line, word, product and syllable

err,	load eri,1
	tra er2
ep2,	slr sad
cal+com-opr
	sto sai
	add lim
	acst slr+1,.+2
	xx
	tra np1
rst,	cla
	sto cvi
	sto eri
	load lim,mil-1
ep1,	clad (101001
	pna
er2,	load ls3,lal
rsl,	cal+com-opr
	slr tli
	slr ar1
	slr ar2
	slr ar3
	slr ar4
	sto rop
	sto pin
	sto def
	slr wdc
	sto chn
	sto arc
	sto gon
	black
rnw,	type 0
rsw,	cal+com-opr
	slr wrd
	slr ign
	sto syc
	slr udf
	llr (lac
	slr psn
rsp,	llr (cla
	slr fcn
	cla
	sto ppr
rss,	cal+com-opr
	slr onm
	slr sym
	sto psi
	sto let
	sto lni
	sto chc
	llr (lac
	slr fsn

|Listen, expand and dispatch

lsn,	cal
ls1,	sto t
	acst-6+1,t1
	lcc
	trn .-1
ls2,	lal
	trn .+3
	ala
	tra .+3
	ala
	add (400000
	add t
	cyl
	cyl
	cyl
	sto t
	clad t1
	acst 1,t1
	trn ls2
ls3,	xx
	cyl
	add cas
	acst tra dsp-200,.+3
	cla
	xx

|Terminate syllable subroutine

tsy,	slr tsx
	cla
	add let
	trn ts2
	llr psi
	lcc
	trn spi
	cla
	add sym
	call evl
	trn .+2
	tra .+2
	sto udf
fsn,	xx		|lac or lcc
	ala
	add ppr
fcn,	xx		|cla, ana, ora, tra mul, or tra pad
fc1,	slr ppr
	load syc,1
tsc,	add lni
	add chc
tsk,	add (1
	add chn
	sto chn
tsx,	xx
ts2,	add lni
	add chc
	trn tsk
	llr onm
	tra fsn
pad,	lpd
	ala
	tra fc1
mul,	slr t1
	cal
	add (-21
mu0,	sto t
	cla
	add ppr
	cyl
	sto ppr
	trn mu1
	lal
	tra mu2
mu1,	lal
	add t1
mu2,	ala
	add t
	add (1
	trn mu0
	lac
	cyr
	ala
	tra fc1

|Present contents and present location logic

dlt,	add (1
cuc,	amz
ast,	ala
	add ign
	trn igc
	add chc
	add lni
	com
	trn e
	add (1
	sto lni
	lac
	trn cu1
	amz
	llr loc
	trn as1
	clad (-1
	add lim
	alr
as1,	slr onm
	tra lsn
cu1,	llr lwt
	tra as1

|Tabulate and carriage return

ta1,	cla
	sto tai
	add (-1
	add chn
	sto chn
	clc
	call tcs
	add rop
	trn rnw
	tra cr1
cr,	call twd
	add rop
	trn cr3
	black
	clc
	sto rop
cr1,	clad udf
	trn uds
	llr adr
	slr ar1
	slr ar2
	clad syc
	trn cr2
	lac
	add (slr
	sto .+2
	llr lwt
	xx
cr2,	clad gon
	trn cr5
	clc
	sto gon
	tra bs1
tab,	call twd
	add pin
	add def
	trn ta1
	cla
	add (101001
	pnc
cr3,	add pin
	trn cr4
	clad udf
	trn uds
	add syc
	trn do
	subr tar,do
cr4,	clad def
	trn rsl
	clad udf
	trn uds
	clad fld
	llr wrd
	tra dfn
cr5,	add rop
	trn rsl
	tra rnw

|Backspace logic

bs,	add ign
	trn igd
	add wdc
	add lni
	add chc
	add syl
	trn bs1
	clad (101001
	pna
	add (1
	sto gon
	tra cr
bs1,	clad loc
	add (1
	llr (17777
	ana
	slr lwt
	sto wdc
	sto chn
	subr prl,ba1

|Bar logic

bar,	add syc
	add lni
	add chc
	trn ba2
	clad pin
	add psi
	add def
	add rop
	com
	trn e
	call twd
	add udf
	trn uds
	add (17777
	llr lwt
	ana+com-opr
	slr lwt
	llr (tra ba1
	slr prx
	llr chn
	cla
	tra tc2-2
ba1,	llr lwt
	slr loc
	slr adr
	lcc
	add lim
	trn tlt
	lac
	load rop,1
	add (llr
	sto .+1
	xx
	slr lwt
	cla
	subr prw,rnw
ba2,	sto ign
	tra lsn

|Comma logic

cma,	add ign
	trn igc
	add pin
	trn e
	clad syc
	add lni
	add chc
	trn e
	llr arc
	lcc
	add (3
	trn e
	call twd
	add udf
	trn uds
	subr tar,rsw

|Terminate arguments subroutine

tar,	slr tax
	cstep arc
	add (slr ar1-1
	sto .+2
	llr lwt
	xx
tax,	xx

|Definition logic

dnf,	add ign
	trn igc
	add syc
	add psi
	add rop
	com
	trn e
	add let
	trn e
	sto def
	llr sym
	slr fld
	tra rsw

|Print control characters

pfi,	subr ecl,onp
pfo,	subr ecl,irp
dfc,	clc
hnd,	sto t
	call ecl
	add lwt
	llr (17777
	ana
	lcc
	add lim
	trn tlt
	lac
	add (llr
	slr adr
	sto .+1
	xx
	slr lwt
	slr t1
	clad t
	trn onp
	tra irp

|Equality logic subroutine

ecl,	slr ecx
	clad ign
	trn igc
	add psi
	add pin
	add def
	com
	trn e
	add lni
	add chc
	add syl
	llr rop
	com+lpd-opr
	trn e
	lac
	trn ec2
	black
	tra .+2
ec2,	sto wdc
	call twd
	add udf
	trn uds
	llr lwt
	slr t1
	llr (tra rnw
	slr prx
ecx,	xx

start
