
Macro convert symbol punch

	mai=10000
	low=17740
	psi=7200
	ps3=1516

1510|	tra ent

20|

ent,	load pyj, sto t2
	load pyz, tra pyz+1
	clc
	add psi
	trn py
	add (3
	sto psi
	add (-1
	tra pxa

px1,	xx	|llr sym 0
px2,	xx	|slr +3
px3,	xx	|llr syn 1
px4,	xx	|slr +4
	cla
px5,	xx	|add loc 2
	add (llr-add
px6,	xx	|sto loc 5

	clad px6
	add (-3
pxa,	sto px6
	add (slr-1
	sto px4
	add (-1
	sto px2
	add (add-slr-1
	sto px5
	add (llr-add-1
	sto px3
	add (-1
	sto px1
	add (-llr-psi-11-11-11-1+trn
	trn px1

pxb,	load psi+1+11+11+11, 233717
	load psi+2+11+11+11, 377777
	load px7, llr ttb
	load px8, slr psi+1+2

px7,	xx	|llr ttb
px8,	xx	|slr psi
	clad px8
	add (3
	sto px8
	clad px7
	add one
	sto px7
	add (-llr-ttb+1-12
	trn px7

py,	cal
	sto t2
	feed 30

py1,	cal
	lcc
	trn .-1
	add (-1000
	cyr
	trn .-1
	com
	add (add ftp-400200
	sto py2
	add one
	sto py3
	lac
	add (-624000
	trn py5
	add (-644000+624000
	trn py6
	cla

py2,	xx
	trn py1
	p6h
	p6a

py3,	xx
	p6h
	p6h
	p6a
	p6s
	tra py1

py5,	add one		|tab
	trn py2-1

pyl,	cal
	lcc
	trn .-1
	add (740000
	trn pym
	add (644000-740000
	trn pyc
	add (450000-644000
	trn pys
	tra pyl

pym,	add one
	trn pyl
	clc
	tra pyj

pys,	add one
	trn pyl
pyj,	sto t2
	llr .+2
	slr .-2
	tra pyl

pyc,	add one
	trn pyl

py6,	add one		|car. ret.
	trn py2-1

pyf,	cla
	feed 30
	add (trn 17743
	punch
	feed 20
	clad t2
	trn pqm
	clc
	add low
	trn pqm
	llr (low+1

|Common copy routine

pqc,	add (-1
	sto pyw
	add (-add+1
	sto org
	sto cks
	com
	sto loc
	lcc
	add (-add+1
	sto t1
	load bs, tra py8
	load ts, sto loc+1

py8,	clad pyw
	add one
	sto pyw
	add t1
	trn py9

	load bs, tra pyz
	add loc
	add org
	trn pun
	tra pyz

py9,	cla
pyw,	xx
	ala
	add loc
	add (-1
	sto loc
	lac
ts,	xx
	add cks
	sto cks
	llr loc
	lcc
	sto wrd
	llr (77
	anl
	laz
	trn pun

tb1,	clad ts
	add one
	sto ts
	tra bs


|Punch binary block.

pun,	p6s
	add loc
	add one
	sto loc
	com
	ala
	add pub
	sto pua
	p6s
	p6s

pu,	cla
pua,	xx
	punch
	add pua
	add one
	sto pua
	add loc
pub,	add org
	add (-add-loc-1
	trn pu

	clad cks
	com+lad-opr
	punch
	p6s
	p6s

|Form origin for next block

bnp,	llr wrd
	lcc
	amz
	com
	llr (17777
	anl
	slr cks

b3,	slr org
	lcc
	sto loc
	load ts, sto loc+1
bs,	xx


pyz,	tra .+1
	clc
	add t2
	trn pqm

pqs,	cla
	sto low
	sto mai
	feed 20
	add (trn ps3-1
	punch
	feed 60
	hlt+cal-opr
	tra .-1

pqm,	load pyz,tra pqp
	clc
	add mai
	trn pqs
	ala
	add (add mai
	tra pqc

pqp,	load pyz, tra pqs
	clad (add psi
	llr psi
	tra pqc

one,	1
cks,	0
t1,	0
t2,	0
wrd,	0


ttb,	trn 1406
	trn 1220
	trn 1222
	trn 1260
	trn 1232
	trn 1225
	trn 2014
	trn 2054
	trn 3312
	trn 1277


ftp,

-0	0	-0	0
313113	701007	212112	343443
-0	0	111111	000000
211311	344744	210012	343443
0	0	0	0
212012	303443	021300	322722
200002	311113	000300	011711
111112	444443	210213	344307

-0	0	22	11
311113	344443	313012	703443
311311	344324	020002	111113
000012	444443	300000	742111
131111	445564	2	11
313111	701000	213112	303443
211112	340043	000300	000700
111311	421124	-0	0

300000	711111	-0	0
300213	742007	-0	0
111113	000007	-0	0
111132	445562	-0	0
111311	444744	-0	0
120000	421111	-0	0
311311	344300	-0	0
211112	344525	-0	0

211112	344443	-0	0
313113	343443	-0	0
211112	300743	-0	0
211202	344743	-0	0
131111	465544	-0	0
120021	421124	-0	0
111220	444231	-0	0
211112	344443	-0	0

const

org,	0
loc,	0

start add pqm-2
v