                     /scan 1, cn, scan 2

s1,	zero ldl
	zero ucd
	zero num
	zero psi
	zero chi
	zero g
	zero r
	zero cm
	sett fc, 40
	sett fu, 100

s10,	call rch
	store chr
	trze s11
	tgrec 20, s11
s12,	step1 psi
	test1 ldl, s13
	sett ldl, 1
s13,	testnl chr, (20, s14
	clear
s14,	store dig
	load num
	x10dec
	addi dig
	store num
	goto s10

s11,	test0 ldl, s15
	zero ldl
	test0 ucd, s17
	tgrec 1, s16
	move num, n2
	goto s16
s17,	move num, n1
	store n2
	zero num
s16,	step1 ucd

s15,	test0 chr, s18
	trel (21, s18
	step1 chi
	step1 psi
	load chr
	ftrel (73, s19
	ftrel (27, s1a
	ftrel (51, s1b
	ftrel (67, s1c
	trel (33, s1d
	goto s10
                
                                
s19,	move fc, fu
s1a,	halfof fc
	goto s10

s1b,	step1 r
	goto s10
s1c,	step1 g
	goto s10
s1d,	step1 cm
	goto s10

s18,	step1 tc
	move chr, trm
	test0 psi, te
	load ucd
	addi cm
	trze pc
	test1 chi, s1e
	test1 ao, ps
	testnl tbc, (1, s98
	move n1, bc1
s98,	testel n1, bc2, te
	complaint flexo bbl
	move n1, bc2
	goto te

s1e,	zero ao
	load r
	tlesc 2, s1f
	complaint flexo tmr
	sett r, 1
s1f,	load g
	tlesc 2, s1g
	complaint flexo tmg
	sett g, 1
s1g,	load cm
	tlesc 2, s1h
	complaint flexo tmc
	sett cm, 1

s1h,	load cm
	addi r
	addi ucd
	tgrec 2, s1y
	test1 cm,s1s
	load r
	addi g
	addi ucd
	subt (2
	trmi s1x
	trnz s1t
	test0 g, s1t
	sett rt, 1
	goto sli
                
                                
s1s,	sett rt, 2
	goto sli

s1t,	zero rt
sli,	test1 r, s1k
	test1 ucd, s1j
	load (2
	goto s1l
s1j,	clear
	goto s1l
s1k,	test1 sid, sk1
	load nl
	lookup not
	band (117777
	addi (400000
	store t1
	load nl
	putback not, t1
sk1,	load (1
s1l,	store lt
	test0 rt, s1n
	tgrec 1, s1m
	sett tim, 2
	goto s1o

s1m,	testm tim, s1w
	goto s1o

s1n,	sett tim, 100
	sett t2, 1
	move n2, t1
	trze s1v
	tgrec 100, s1v

s1q,	halfof t1
	trze s1p
	halfof tim
	halfof fu
	double t2
	goto s1q

s1p,	testnl n2, t2, s1v
	test1 fu, s1o
	complaint flexo dtu

s1o,	load tim
	halve
	store fc
	goto s2
                
                                /scan 2

s2,	zero fu
	zero sr
	zero 3i
	zero si
	zero aci
	zero acc
	zero et
	zero ete
	call rrc

s20,	call rch
	store chr
	trze s21
	tgrec 20, s21
	goto s20

s21,	load chr
	search s2z, 25, s20
	dispatch s2y

s2b,	sett sv, 200000
	goto s2a
s2c,	sett sv, 400000
	goto s2a
2sr,	sett sv, 20000
	goto s2a
2ss,	sett sv, 40000
	goto s2a
s2d,	zero sv
s2a,	stepa si, 1
	goto s20
s2e,	stepa sr, 14
	goto s20
s2f,	istepa sr, 14
	goto s20
s2g,	sett 3i, 100000
	goto s20
s2h,	testm aci, s24
	step1 acc
	goto s25
s2i,	testm aci, s24
	istepa acc, 1
s25,	sett aci, 1
	goto s20
s24,	complaint flexo nor
	goto s20
s2j,	testel aci, (1, s26
                
                                
s27,	sett aci, -1
	goto s20
s26,	complaint flexo nor
	zero acc
	goto s27

s2k,	load (1
	goto s28
s2l,	load (2
	goto s28
s2m,	load (3
	goto s28
s2n,	load (4
	goto s28
s2o,	load (5
	goto s28
s38,	load (6
s28,	store et
	test0 ete, s29
	complaint flexo tme
s29,	move et, ete
	goto s20

s2p,	step fu, fc
s2q,	halfof fc
	goto s20

s2r,	test0 si, s51
	trel (1, s52
	complaint flexo tms

s51,	move ss, sv
s52,	test1 cm, s69
	move 3i, ccc

2s3,	load tim
	addi fu
	store nft
	store nfp
	test1 g, 2s1
	zero gi
	test0 rob, s2s
	load nft
	subt rob
	store nft
	tlesc 2, 2s2
22s,	zero rob
	goto s2s

2s2,	load nft
	tgrel rob, 22s
	move nls, nl
	zero rob
	complaint flexo itg
	goto 2s3
                
                                2s1,	step rob, tim
	sett gi, 1
	goto s2s

s69,	move nfp, nft
	test1 3i, s2t
	move ccc, 3i

s2t,	test0 fu, 2s4
	complaint flexo tic

2s4,	test1 g, 2s1
	zero gi

s2s,	test0 lt, s2u
	tgrec 1, sv2
	load aci
	addi ete
	trze s2w
	complaint flexo air
s2w,	sett tne, 200
	goto s70

s2u,	load n1
	addi sr
	addi st
	store ton
	trmi s40
	tlesc 44, s2v
s40,	complaint flexo uat
	goto s2w
sv2,	testel tne, (200, s70
s2v,	test0 aci, s31
	load ton
	lookup nt
	addi acc
	store t1
	tlesc 2, s41
	load t1
	tlesc 77, s42
s41,	complaint flexo aor
	goto s2w
s42,	load ton
	putback mt, t1

s31,	load ton
	lookup mt
	addi tll
	store tne
	tlesc 2, s40
	load tne
	tgrec 76, s40
	load tne
	x2to7
	store tne
s30,	test0 ete, s70
	test0 3i, s71
s72,	complaint flexo etr
	goto s70
                
                                s71,	load ete
	lookup ebl-1
	subt nft
	trze s99
	complement
s99,	store ex
	trpl s73

s79,	complaint flexo eit
	goto s70

s73,	load ton
	addi (1
	lookup mt
	addi tll
	store tnf
	tlesc 2, s39
	load tnf
	tgrec 76, s39
	load tnf
	x2to7
	store tnf
	load ton
	subt (1
	lookup mt
	addi tll
	store tnd
	tlesc 2, s39
	load tnd
	tgrec 76, s39
	load tnd
	x2to7
	store tnd
	load ete
	dispatch ebd-1

s81,	load (2
	addi tne
	call cn
	load (2
	addi tnd
	call cn
	goto s75

s82,	zero cut
	goto s76
                
                                
s83,	sett cut, 4
s76,	load nft
	band (3
	trnz s79
s77,	load nft
	subt cut
	trze s78
	load (2
	addi tnf
	call cn
	load (2
	addi tne
	call cn
	stepa cut, 4
	goto s77

s84,	load (400002
	addi tnf
	call cn
	load (400002
	addi tne
	call cn

	load (400002
	addi tnd
	call cn
	goto s75

s85,	load (2
	addi tne
	call cn
	goto s83

s86,	load (1
	addi tnf
	call cn
	load (1
	addi tne
	call cn
	load (1
	addi tnf
	call cn

s75,	load ex
	addi (2
	addi tne
	addi sv
	call cn
	goto s32
                
                                
s78,	load ete
	dispatch ebe-1

s93,	load (2
	addi tnd
	call cn
	load (2
	addi tne
	call cn
	goto s32

s95,	load (2
	addi tnf
	call cn
	goto s32

cn,	answer cnx
	store nf
	call snl
	putback not, nf
cnx,	exit cn


s39,	complaint flexo eor

s70,	load nft
	addi tne
	addi sv
	addi 3i
	call cn
	test0 gi, 2sa
	test1 gis, 2sb
	sett gis, 1
	grow nl, -1, nls
	goto 2sb

2sa,	zero gis
2sb,	test0 3i, s32
	load nft
	x2to1
	store tu
	goto s33

s32,	load nft
	store tu
	x2to1
	addi tu
	store tu
s33,	step mm, tu
	move si, sid
	goto te
                
                                
s2z,	22	/s
	43	/l
	65	/e
	61	/a
	62	/b
	63	/c
	57	/( +
	54	/-
	55	/) =
	64	/d
	44	/m
	45	/n
	47	/p
	24	/u
	26	/w
	73	/.
	27	/x
	21	// |
	00	/ space
	50	/q
	70	/h

s2z+25,
s2y,	s2b	s2c	s2d	s2e	s2f	s2g
	s2h	s2i	s2j	s2k	s2l	s2m
	s38	s2n	s2o	s2p	s2q	s2r
	s2r	2sr	2ss

s2y+25,
ebl,	6	/d
	4	/m
	10	/n
	10	/u
	4	/w
	5	/p

ebl+6,
ebd,	s81	s82	s83	s84	s85	s86

ebd+6,
ebe,	s32	s32	s93	s32	s95	s32

ebe+6,

start
                
                                                                                                                                                      

