/character display routine

.>>05<<1/

dw,	0
	and (77
	sal 1
	add dto
	dap do
do,	lio .
	spi
	jmp dk
	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 2006
	add dc7-1
	and (-3000
	dac dc7-1
dz,	jmp i dw

dx,	dio d.q
	add dc7-1
	lia
	rar 9s
	dpy-i 200
	lio dq
	jmp dy

dk,	rir 1
	dap . 2
	spi
	jmp .
	law i 2000
	adm dc7-1
	ril 1
  	jmp da-3
        
                                      
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
ddw,	law dtl	dac dto
	jmp i dw	0
	0	0

	175014	30137	/0
	100200	200401	//
	221245	104400	/s
	10764	104400	/t
	171004	17400	/u
	70404	4016	/v
	171003	10036	/w
	210501	5042	/x
	417104	207700	/y
	211445	111442	/z
	0	0
	500200	0	/,
	jmp i dw	0	/black
	jmp i dw	0	/red
dc7,	law 77	ior dc7-1	/tab
	add . 2	jmp ds 2
         
                                        
	1	0	/_
	501004	107500	/j
	376202	210400	/k
	1774	0	/l
	370047	200474	/m
	370040	117000	/n
	161044	107000	/o
	776110	220600	/p
	414110	237720	/q
	370040	101000	/r
	0	0
	0	0
	20100	201004	/-
	1012	43400	/)
	2010	420100	/.
	342	50100	/(

	0	0
	161044	117440	/a
	377104	206000	/b
	161044	105000	/c
	161044	117700	/d
	161245	113000	/e
	21760	220200	/f
	415114	227700	/g
	376100	216000	/h
	7	240000	/i
	jmp i dw	0
	4	0	/.
	rar 1	jmp ddu	/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
       
                                             
dtu,	rar 1	jmp ds
	30	300	/1
	0	60000	/2
	4010	420200	/3
	104422	44216	/4
	70402	4016	/5
	70020	40216	/6
	20242	50100	/7
	1012	42404	/8
	20027	360202	/9
	0	0
	rar 1	jmp i dw	/stop code
	51253	142404	/pointer
ddu,	law dtu	dac dto
	jmp i dw	0
	0	0
 
	20102	243404	/0
	4015	21103	//
	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
	rar 1	jmp dc7	/tab
	0	0
    
                                                
	201004	10040	/_
	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
	20103	341004	/+
	1014	37700	/]
	7	360000	/|
	1774	30100	/[

	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
	rar 1	jmp ddw
	104240	202421	/x
	jmp i dw	0	/up
	jmp i dw	0	/back
	0	0
	rar 1	jmp ddo
       
                       
variables
constants
start