|System tape

	xx=hlt
	pen=opr 100
	las=dis+lad-opr
	anl=opr 305
	ana=opr 325
	orl=opr 105
	ora=opr 125
	lcc=lac+com-opr
	laz=clc+lad-opr
	lal=cla 12
	pnl=prt+cyl-opr
	cry=opr 12
	amz=opr 51
	flt=14000

define	call A
	llr (tra .+2
	tra A
	term

define	subr A, B
	llr (tra B
	tra A
	term

define	clad A
	cla
	add A
	term

define	load A, B
	llr (B
	slr A
	term

define	acst A, B
	add (A
	sto B
	term
define	print A
	add (A
	pnt
	pnt
	pna
	term

define	punch
	p7h
	p7h
	p7a
	term

define	feed N
	add (-N
	alr
	p6s+lpd-opr
	add (1
	trn .-3
	term

start