|CHARACTER PLOT SUBROUTINE  OS-3 = 6-12-61

	zz=.	zzd=	|address of data

define
	plot
	llr (tra .+2	tra zz	term

define
	basept A
	llr A	slr zz+52	term

|begin routine

zz,	slr zz+40
	cyl+lro-opr
	lad
	add (llr zzd
zz+4,	sto .+1
	hlt
zz+6,	cla
	add zz+53
	ial+cry-lpd
	trn zz+41
	ial
	add zz+46
	trn zz+10
	add zz+47
	add zz+52
	sto zz+52
	cla
	add zz+51
	cyl
	sto zz+51
	trn zz+6
	cyl
	sto zz+51
	trn zz+34
	cla
	add zz+5
	add (1
	tra zz+4
zz+34,	cla
	add zz+52
	add zz+50
	sto zz+52
zz+40,	hlt
zz+41,	ial+com-opr
	add zz+52
	dis+com-opr
	add zz+52
	tra zz+13
zz+46,	1	|col cnt index
	1000-1	|baspt index
	2000	|space after character
	622622	|counter
	0	|basepoint
	-10	|column counter set

|END OF SUBROUTINE

|SIZE CONTROL ROUTINE

define
	size N
	llr (tra .+4
	slr zz+76
	llr (N
	tra zz+54
	term

zz+54,	lal	cyl	cyl
	com
	sto zz+53
	cyl	cyl	cyl
	cyl	cyl	cyl
	lad
	com
	sto zz+47
	lad
	cyl
	sto zz+50
	slr zz+46
zz+76,	hlt

|END SIZE CONTROL ROUTINE

start

v