tpc

|Title punch. Calling sequence: llr ., tra tpc.

reloc
entry tpc
exit rtn

tpc,	slr xit
	feed 20

li,	cal
	lcc
	trn .-1
	add (-1000
	cyr
	trn .-1
	com
	add (add tba-400200
	sto li1
	add (1
	sto li2
	cla
li1,	xx
	trn don
	p6h
	p6o
li2,	xx
	p6h
	p6h
	p6o
	p6s
	tra li

don,	feed 40
	tra rtn

xit=17740

const

|title punch constants

tba,	0	0	0	0
	313113	701007	212112	343443
	0	0	111111	0
	211311	344744	210012	343443
	0	0	001010	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
	12	444443	300000	742111
	131111	445564	2	11
	313111	701000	213112	303443
	211112	340043	300	700
	111311	421124	0	0

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

	211112	344443	223232	227272
	313113	343443	0	0
	211112	300743	0	0
	211202	344743	0	0
	131111	465544	130000	260000
	120021	421124	0	0
	111220	444231	320000	640000
	211112	344443	333333	777777

start