
Macro ii-a symbol print

	define
	write A
	tslr wr
	tra A
	term

loc+1|

ctb,	clad pss
	trn sye
	llr cn6
	lac
	add (-sto-cor
	trn sye
	lcc
	add (-add
	sto t
	write syt
	text |

Constants

|
syt,	add (add cor
	tra ct9

ct4,	clad tb
	pna

ct1,	xx
	call opt
	print flex 	to
	add tb
	pna

ct2,	xx
	call opt
	add cr
	pna
	add ct2
	add one

ct9,	sto ct1
	add one
	sto ct2
	add t
	trn ct4

sye,	write syu
	text |

Defined symbols

|
syu,	sto t
	add (add ist
	sto sy3
	add one
	sto sy4

sya,	llr t
	slr t3
	clc
	sto t
	add (llr 1-add
	add low
	sto syb

syb,	xx		|add mai(a,1)
	slr t2
	clad t3
	lpd
	trn q5
	amz
	trn syc
	com+cry-opr	|same sign, mai and floor:>>61<<. t2-t3.
	trn syi		|If below floor.

q2,	clad t
	lpd
	trn q3
	com+cry-opr	|t2-t
	trn q4		|If not above ceiling.

syi,	clad syb
	add (2
	sto syb
	add (-llr-low
	trn syb
	llr t3
	lcc
	trn sya
	amz
	trn csx		|Check for -0 floor.
	tra sya

q5,	lpd
	trn syi
	tra q2

q3,	lpd+com-opr
	trn syi
q4,	slr t
	tra syi

syc,	add syb
	add mon
	sto syp
	sto syf

syg,	llr t2
	lcc
sy4,	xx		|add ist(b,1)
	com
	trn syp
	amz
	trn syf

syd,	clad sy4
	add one
	sto sy3
	add one
	sto sy4
	tra syg

syp,	xx		|llr mai(a,0)
	lcc
	call spt
	add (char r=
	pna
	add t2
	call opt
	add cr
	pna
	tra syi

syf,	xx		|llr mai(a,0)
sy3,	xx		|add ist(b,0)
	lpd
	trn syp
	amz
	trn syi
	tra syp

csx,	add pss
	trn 1st
	tra s6

|Write subroutine.

wr,	lac
	add (2
	sto wr1
	add (add 1-llr
	sto wr2

wr1,	xx
	slr wrx
	lcc
	add (tra-add+1
	sto wr1

	cla
wr2,	xx
	call spt
	step wr2
	add wr1
	trn wr2-1
	cal
wrx,	xx

constants

start add ctb
v