|DECIMAL INTEGER PRINT  OF-1

	zz=.

define	decpnt	llr (trn .+2	tra zz	term

zz,	slr zz+14
	llr (char r--char r+
	trn .+2
	com+lro-opr
	slr tt+1
	llr (trn zz+43
	slr zz+36
	alo
	add (add zz+47+5+1
zz+11,	add (-1
	sto zz+25
	add (-add-zz-47+1
zz+14,	hlt
	add (-1
	trn .+5
	cla
	tra .+3
	ial
	add (1
zz+23,	ial
	sto tt
zz+25,	hlt
	trn .-5
	lac
	trn .+5
	add (add zz+47+6
	sto .+1
	hlt
	llr (cyr
	add (flex +0t
zz+36,	hlt
	pno
	llr tt
	add zz+25
	tra zz+11
zz+43,	slr zz+36
	add tt+1
	pnt
	tra zz+37

zz+47,
decimal	1	10	100	1000	10000	100000
octal
	zz=flex +0t+add

	flex  0 -zz-.
	flex +1t-zz-.
	flex +2t-zz-.
	flex +3t-zz-.
	flex +4t-zz-.
	flex +5t-zz-.
	flex +6t-zz-.
	flex +7t-zz-.
	flex +8t-zz-.
	flex +9t-zz-.

|END DECPNT SUBROUTINE

start

|DECIMAL FRACTION PRINT  OF-2

	zz=.	alp=anl+20

define	frapnt	llr (tra .+2	tra zz	term

zz,	slr zz+52
	llr (char r-+char m.
	trn .+3
	com
	llr (char r++char m.
	ial
	pnt
	pno
	lcc
	llr (777
	alp
	sto tt
	slr tt+1
	cla
	add zz+53
zz+17,	add (1
	sto tt+2
	llr tt+1
	lal
	cyl
	lad
	cyl
	llr (777
	alp
	slr tt+1
	llr tt
	ial+cry-lpd
	cyl
	add tt
	cyl
	lad
	llr (377000
	alp
	slr tt
	cyl
	add (add zz+54
	sto .+1
	hlt
	pno
	add tt+2
	trn zz+17
	cal
zz+52,	hlt
zz+53,	-5
zz+54,	char r0-add-.
	char r1-add-.
	char r2-add-.
	char r3-add-.
	char r4-add-.
	char r5-add-.
	char r6-add-.
	char r7-add-.
	char r8-add-.
	char r9-add-.

|END FRACTION PRINT SUBROUTINE

start

|OCTAL PRINT SUBROUTINE  OF-3

	zz=.

define
	octpnt
	llr (tra .+2
	tra zz
	term
zz,	slr zz+31
	sto tt
	llr (trn zz+21
	slr zz+17
zz+4,	llr tt
	lal
	cyl
	cyl
	sto tt
	llr (7
	ana
	add (add zz+33
	sto .+2
	llr zz+23
	hlt
zz+17,	hlt
	slr zz+17
zz+21,	pno
	add zz+32
	cyr
	sto zz+32
	trn zz+4
	cyl
	trn zz+3
	cal
zz+31,	hlt
zz+32,	171717
zz+33,	flex  0t-add-.
	flex 11 -add-.
	flex 22 -add-.
	flex 33 -add-.
	flex 44 -add-.
	flex 55 -add-.
	flex 66 -add-.
	flex 77 -add-.

|END OCTAL PRINT SUBROUTINE

start
