character display routine
dw,	0
	and (77
	sal 1
	add dto
	dap do
do,	lio .
	spi
	jmp i do
	idx do
	dzm .dm
	law i 21
da,	dac .dt
	dac .dc
dn,	lac dm
	sub (406007
	and (407007
	spa
	add (401000
	dac dm
	ril 1
	spi
	jmp dx
dy,	isp dc
	jmp dn
	xct do
	law i 22
	sas dt
	jmp da
ds,	law 6
	add dc7-1
	and (-1000
	dac dc7-1
dz,	jmp i dw
dx,	dio d.q
	add dc7-1
	lia
	rar 9s
	dpy-i 200
	lio dq
	jmp dy                                              
dtl,	rar 1	jmp ds	/space
	27	360000	/1
	305215	31143	/2
	105014	31133	/3
	36100	217704	/4
	137114	631130	/5
	175114	231131	/6
	3610	620501	/7
	155114	231133	/8
	15114	225117	/9
dto,	dtl	0
	rar 1	jmp i dw	/stop code
	51253	142404	/pointer
	0	0
	nop	lac (300500
	dac dc7-1	jmp i dw
	175014	30137	/0
	100200	200401	//
	115114	231131	/s
	2017	760100	/t
	177004	410037	/u
	76404	404017	/v
	177003	410037	/w
	306240	602461	/x
	6047	600401	/y
	303214	630541	/z
	0	0
	50241	102412	/=
	jmp i dw	0	/black
	jmp i dw	0	/red
dc7,	law 77	ior dc7-1	/tab
	add . 2	jmp ds 2
                
                                
	1	0	/_
	101004	410037	/j
	376101	504240	/k
	377004	10040	/l
	376020	500277	/m
	376040	602077	/n
	175014	30137	/o
	376110	221103	/p
	175015	24157	/q
	376111	225143	/r
	0	0
	0	0
	20100	201004	/-
	1012	43400	/)
	2010	420100	/.
	342	50100	/(

	0	0
	370221	22276	/a
	377114	231133	/b
	175014	30121	/c
	377014	30137	/d
	377114	631140	/e
	376110	621100	/f
	175015	32131	/g
	376100	601077	/h
	1017	370100	/i
	jmp i dw	0
	4	0	/.
	jmp i dw	0	/up
	jmp i dw	0	/back
	0	0
	rar 1
ddo,	lac dc7-1
	sub (14000
	and (777000
	add (500
	dac dc7-1
	jmp i dw                               
variables
constants
start