
Midas alphabetic symbol print

loc+1|

cp,	lda cnl
	tze sp0
	write 6
Constants area 9
	lda pss
	tze cp0
	write 6used

9
	tra cp4

cp5,	add (-trn
	llr (flex +r
	tra cp6

cp0,	write 6reserved
9
cp4,	stz t0

cpl,	ldx t0
	lax cor
	trn cp5
	llr .-1
cp6,	slr t2
	tsx opt
	lda t2
	trn cp7
	pnt
	pno
cp7,	write 6	to9
	lda (100101
	pno
	ldx t0
	aux pss
	lax cor+1
	tsx opt
	lda t2
	trn cp9
	pnt
	pno
cp9,	lda (101001
	pno
	ado t0
	ado t0
	ado t0
	com
	add cnl
	trn sp0
	tra cpl

sp0,	move low, t1
	write 6
Defined symbols alpha

9

sp1,	ldx t1
	lax low
	llr (opr
	anc
	trn sp6		|pseudo or macro
sp3,	lax low+1
	ana
	add (-add
	tze sp6

sp4,	lax low+1
	llx low
	tsx spt
	lda (char r=
	pno
	ldx t1
	lax low+2
	tsx opt
	ldx t1
	lax low+1
	trn sp7

sp5,	lda (101001
	pno
sp6,	ado t1
	ado t1
	ado t1
	add one
	trn sp1
	lda pss
	tze 1st
	tra s6

sp7,	cyl
	llr (flexo -r 
	trn .+2
	llr (flexo +r
	lac
	pnt
	pno
	tra sp5

wr,	llx 0
	ixl

wr1,	ixl
	lax 1
	aux .-1
	pnt
	pnt
	prt+ixl-opr
	tix wr1
	ixl
	trx 1

constants

start add cp
