/CHARACTER DISPATCH TABLE AND DRAWING ROUTINES
/
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
DYCHAR=20000	/ABSOLUTE LOCATION OF TABLE AND ROUTINES
	.LOC	DYCHAR
	5400	/CHARACTER CODE 00 - SET CASE BIT
D=DYCHAR
	C101-D	/CHARACTER CODE 01 - A
	C102-D	/B
	C103-D	/C
	C104-D	/D
	C105-D	/E
	C106-D	/F
	C107-D	/G
	C110-D	/H
	C111-D	/I
	C112-D	/J
	C113-D	/K
	C114-D	/L
	C115-D	/M
	C116-D	/N
	C117-D	/O
	C120-D	/P
	C121-D	/Q
	C122-D	/R
	C123-D	/S
	C124-D	/T
	C125-D	/U
	C126-D	/V
	C127-D	/W
	C130-D	/X
	C131-D	/Y
	C132-D	/Z
	C133-D	/[
	C134-D	/\
	C135-D	/]
	C136-D	/^
	C137-D	/_
	C040-D+2000	/SPACE
	C041-D	/!
	C042-D 	/"
	C043-D	/#
	6100	/CR
	C012-D+2000	/LF (SHORT VECTOR MODE)
	6040	/ESCAPE TO CONTROL STATE
	C047-D	/'
	C050-D	/(
	C051-D	/)
	C052-D	/*
	C053-D	/+
	C054-D	/,
/	
	C055-D	/-
	C056-D	/.
	C057-D	//
	C060-D	/0
	C061-D	/1
	C062-D	/2
	C063-D	/3
	C064-D	/4
	C065-D	/5
	C066-D	/6
	C067-D	/7
	C070-D	/8
	C071-D	/9
	C072-D	/:
	C073-D	/;
	C074-D	/<
	C075-D	/=
	C076-D	/>
	C077-D	/?
/
/ UPPER CASE CHARACTERS
	5000	/CLEAR CASE BIT
	C100-D	/@
	C044-D	/$
	C045-D	/%
	C046-D	/&
	6100	/CR
	C012-D+2000	/LF
	6040	/ESCAPE
	4555	/SC1 LPOF INT 5
	6020	/COUNT SCALE UP
	6030	/COUNT SCALE DOWN
	6004	/COUNT INT. UP
	6006	/COUNT INT DOWN
	6400	/ENTER 6-BIT CODE MODE
	6600	/ENTER 7-BIT CODEMODE
	.EJECT
/
/CHARACTER ROUTINES
C012	3140
C040	47
	1762;	1272;	5250;	7616;	6630;	0
C041	1050; 1272; 6237; 2706 	/!
C042	3251; 6210; 5066; 3707	/"
C043	5062; 5412; 5250; 6210; 5066; 5016
	5654; 6630; 0	/#
C044	2772;	7272;	6723;	6556;	5711
	6756;	5515;	6330;	3007
C045	5271;	5124;	6456;	5017;	6754
	5117;	1007
C047	3250; 5162; 3736; 1000	/'
C046	1050; 1051; 7451; 1454; 5150; 5214; 5461; 5660
	3627; 0	/&
C050	3132;	1210;	7566;	6730;	0000
C051	1671;	6263;	3727;	0700
C052	5212; 5257; 7134; 5457; 3056; 5557; 3006  /*
C053	1710;	7264;	2062;	2660;	3702
C054	5751;	5230;	2702
/
C055	3270;	6027;	0600
C056	6052;	5430;	2007	/.
C057	5155;	1171;	3706	//
C060	7262;	5160;	5776;	5655;	6413
	7137;	0700		/0
C061	7053;	7262;	5537;	2700	/1
C062	7151; 5253; 6455; 3616; 5670; 5020; 0	/2
C063	7051;	5253;	5420;	6253;	6455
	3656;	3731;	0700
C064	2050;	7272;	7560;	1060;	2706
C065	5257;	6051;	5253;	7472;	7050
	3726;	0600
/
C066	7270;	1152;	5364;	5556;	3616
	7051;	5227;	0000
C067	1662;	7151;	5274;	5437;	3700
C070	6212;	6251;	6057;	5655;	6436
	1470;	5152;	2700
C071	5257;	6051;	7252;	5364;	5556
	5760;	3700
C072	2050;	2252;	3700
C073	5751;	5212;	5237;	1000
C074	3010;	7361;	2726;	1700
C075	2252; 6060; 1534; 5670; 5030; 0600	/=
C076	7163;	3717;	1700
C077	3262; 5160; 5765; 5616; 5630; 1000	/?
/
	.EJECT
C100	3064; 5372; 5160; 5776; 5453; 5251; 3707	/@
C101	1672;	7251;	6057;	7666;	2274
	3721;	0700
C102	1672;	7252;	7057;	5655;	6430
	6655;	6430;	2000
C103	7262;	5160;	5735;	1557;	6051
	3006
C104	7272;	7057;	7656;	5574;	3030
	0000
C105	7272; 7035; 6025; 5660; 6020; 0	/E
C106	7272;	7050;	3514;	6025;	5630
	3000		/F
C107	7262;	5160;	5725;	1470;	6655
	6430;	2000
C110	1672;	7252;	3670;	3250;	7676
	2000
/
C111	1070;	5372;	2370;	5537;	1706
C112	5257;	6051;	7262;	2736;	700
C113	1672;	7252;	3127;	7524;	7757
	2000
C114	7272;	3626;	5670;	5020;	0000
C115	1672;	7252;	6761;	7676;	2000
C116	1672;	7252;	7750;	7236;	7620
	0000
C117	7262;	5160;	5776;	5655;	6430
	2000
C120	1672;	7252;	7057;	5655;	6437
	2000
C121	7262;	5160;	5776;	3477;	1364
	2051;	2701
/
C122	1672;	7252;	7057;	5655;	6477
	2000
C123	5257;	6051;	5253;	6453;	5251
	6057;	3716;	0600
C124	3222;	1270;	6024;	7676;	3000
C125	7272; 3050; 7676; 7454; 3030	/U
	0000
C126	1272;	6230;	5076;	1075;	5337
	2100
C127	7272;	3050;	7666;	5553;	5215
	5630;	2000
C130	1662;	7151;	5234;	5456;	5717
	6756;	2000
C131	1050;	7263;	5230;	5010;	6537
	700
/
C132	5271;	5152;	7454;	2657;	1050
	2555;	7050;	2000
C133	7024;	7272;	6037;	2607
C134	3252; 7757; 2000	/\
C135	7072;	7264;	3727;	0700
C136	3252; 6167; 7457; 7630; 1000	/^
C137 	3073; 6176; 5150; 2707	/_
/
	.END
}
