FLIT I 8-19-60 = SECTION I

|FLEXOWRITER INTERROGATION TAPE

	lcc=lac+com-opr	laz=clc+lad-opr
	lal=cla 12	amz=opr 51
	anl=opr 305	orl=opr 105
	ana=anl+20	ora=orl+20
	cry=opr 12	xx=hlt

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

define	clad A

	cla
	add 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

	cla
	add A
	add (1
	sto 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

	tra erp

|Permanent symbols

	nsm=52

	-flex cal	740200
	-flex prt	624000
	-flex pnt	624600
	-flex p7h	627600
	-flex p6h	626600
	-flex lro	600200
	-flex cll	700000
	-flex cyl	600031
	-flex com	600040
	-flex hlt	630000
	-flex dsa	622021
	-flex dis	622000
	-flex r3c	763000
	-flex dsc	622061
	-flex r1r	761600
	-flex r1c	761000
	-flex p7a	627021
	-flex pna	624021
	-flex p6a	626021
	-flex p6s	766000
	-flex lad	600032
	-flex tac	740004
	-flex lac	740022
	-flex pnc	624061
	-flex ala	600221
	-flex cla	740000
	-flex ios	760000
	-flex alr	600201
	-flex shr	600400
	-flex alc	600261

	-flex clr	640000
	-flex cyr	600600
	-flex clc	740040
	-flex lpd	600022
	-flex opr	600000
	-flex tbr	740023
	-flex sto	000000
	-flex slr	100000
	-flex add	200000
	-flex llr	300000
	-flex trn	400000
	-flex tra
syt,			500000

|Character dispatch table

	xx=tra lsn

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

	tra tab	tra tab	| tabulate
	tra l	tra i	| 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 puo	| 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 uni	| m
	tra ucs	tra lsn	| upper case
	tra l	tra dst	| x
	xx	xx	| n.u.
	tra l	tra pud	| v
	tra lsn	tra lcs	| lower case
	tra n-8	tra pso	| 8
	tra del	tra del	| delete

	xx=hlt

|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
	llr dnm
	lal
	ala+10
	cyl
	lad
	add t1
	sto dnm
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

|Period and apostrophy logic

per,	clc
aps,	sto t
	clad ign
	trn igc
	add let
	add lni
	trn .+2
	tra e
	llr (1
	slr lni
	cla
	add t

	trn pe1
	llr onm
	slr dnm
	tra lsn
pe1,	llr dnm
	slr onm
	tra lsn

|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

rst,	cla
	add (101001
	pna
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
	sto pun
	llr (lac
	slr psn
rsp,	llr (cla
	slr fcn
	cla
	sto ppr
rss,	cal+com-opr
	slr onm
	slr dnm
	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
	lal
	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
	call evl
	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
	clc
	add rdx
	llr onm
	trn fsn
	llr dnm
	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
	slr dnm
	tra lsn
cu1,	llr lwt
	tra as1

|Double bar logic

dbr,	add ign
	trn igc
	add rop
	trn e
	sto pun
	tra lsn

|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 pun
	trn .+3
	call p1r
	add 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
	llr fld
	slr sym
	call dfn
	tra tlt
	tra rsl
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 cm1
	clad syc
	add lni
	add chc
	trn e
	llr arc
	lcc
	add (3
	trn e
	call twd
	add udf
	trn uds
	subr tar,rsw
cm1,	add syc
	add psi
	add def
	com
	trn e
	add let
	add rop
	add (-1
	trn e
	add lni
	add chc
	add chn
	sto chn
	llr adr
	slr wrd
	llr (tra rsw
	slr dfx
	call evl
	tra df4
	tra tlt

|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,tsu
pfo,	subr ecl,irp
pud,	clc
puo,	sto t6
	subr ecl,.+10
psd,	clc
pso,	sto t6
	call ecl
	call ppm
	add t6
	trn dnp
	tra onp
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 tsu
	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
k