
Macro ii-a symbol punch

flx|

py,	llr pss
	slr t3
	llr pch
	slr t4
	cal
	sto t2
	feed 30
	sto pss
	sto pch

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,	feed 30
	add (trn 17743
	punch
	feed 20
	clad t2
	trn pqm
	clad low
	llr (low+1

|Common copy routine

pqc,	add mon
	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
	sto wrd
	tra tb4

pyz,	tra .+1
	clc
	add t2
	trn pqm

pqs,	feed 20
	add (trn ps3-1
	punch
	feed 60
	llr t4
	slr pch
	llr t3
	lac
	sto pss
	trn 1st
	tra s6

pqm,	load pyz, tra pqp
	clad (add mai
	llr mai
	tra pqc

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

constants

start add py
m