Flitloader punch

b,	cla
	sto ck
	feed 40
	load pc1, add 17660

q,	clad pc1
	add (-add
	punch

pc1,	xx
	punch
	add pc1
	add (1
	sto pc1
	add (-add-17703
	trn q
	add (trn 17666
	punch
	feed 10
	load s, llr 17704

s,	xx
	lac
	punch
	lac
	add ck
	sto ck
	clad s
	add (1
	sto s
	add (-llr-17775
	trn s

	llr ck
	lcc
	punch
	feed 10
	llr (17703
	lac
	punch
	lcc
	punch
	punch
	llr (trn 17760
	lac
	punch
	lcc
	punch
	feed 10
	add (tra 17744
	punch
	feed 100
	hlt
	tra b

ck,	0

constants

noinput

|Flitloader

17660|

cks,	0
la,	-bla-1
t,	0
one,	1
rel,	0
mrl,	0

z,	slr t
	r3c
	alr
	add cks
	sto cks
	lac
	add t

fa,	sto p
	llr fa
	lac
	add one
	sto fa
	add la
	trn z+1		|set to trn cwt by first block.

|End of read-in mode block, execute trn z+1.

p,	r3c
	add cks
	trn mz

ckr,	clc
	alr+hlt-opr

beg,	r3c
	sto cks
	trn bla
	add rel
	sto fa
	r3c
	alr
	add cks
	sto cks
	lac
	add mrl
	sto la

cwr,	r3c+cyr-opr
	sto cw
	cyl
	add cks
	sto cks
	llr fa
	lcc
	add msv
	sto cwc

re,	llr cw
	lal
	trn rl
	cyl
	sto cw
	lro
	tra z

cz,	tbr
	llr msk
	anl
	lcc
	add one
	sto mrl
	com
	sto rel

mz,	add one
	trn ckr
	tra beg

cwt,	lac
	add cwc
	trn re
	tra cwr

msv,	-7
msk,	17777

rl,	cyl
	sto cw
	llr mrl
	trn z
	llr rel
	tra z

bla,	add rel
	sto .+1

cwc,	0
cw,	0

start b
m