ppm pnm

reloc
entry ppm, pnm

ppm,	slr ppx
	alr 40
	trn pp1
	alr 40
pn1,	add (char r--char r+
pp1,	add (char r+
	lad
	pno
pn2,	add ppx
	add (tra-llr+2
	sto ppx
	add (-tra+llr-2+1
	ial
ppx,	xx

pnm,	slr ppx
	alr 40
	trn pn1
	alo
	tra pn2

const
start
m