Google
 

Trailing-Edge - PDP-10 Archives - BB-AE97C-BM - sources/translate.req
There are 10 other files named translate.req in the archive. Click here to see a list.
!++
! This file, TRANSLATE.REQ, contains the definitions of the translate tables
! used for string searches, and of the names of the unprintable characters.
 !****************************************************************************
 !*									     *
 !*  COPYRIGHT (c) 1984, 1985                                                *
 !*  BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.			     *
 !*		ALL RIGHTS RESERVED.					     *
 !* 									     *
 !*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED  *
 !*  ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE  *
 !*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER  *
 !*  COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY  *
 !*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY  *
 !*  TRANSFERRED.							     *
 !* 									     *
 !*  THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE  *
 !*  AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT  *
 !*  CORPORATION.							     *
 !* 									     *
 !*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS  *
 !*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		     *
 !*									     *
 !****************************************************************************
!
! Revision history:
!
! 1-001	- Original.  JBS 15-Jul-1982
! 1-002	- Add the fallbacks for the DEC Multinational supplementary set.  JBS 10-Aug-1982
! 1-003	- Improve the structure of the fallbacks list to improve compile time.  JBS 11-Aug-1982
! 1-004	- Fix some bugs in the fallbacks list.  JBS 20-Aug-1982
! 1-005	- Convert the fallbacks list to the (nearly identical) compose list.  JBS 20-Aug-1982
! 1-006	- Fix the representation list entry for Mu.  JBS 22-Aug-1982
! 1-007	- Fix Mu again.  JBS 23-Aug-1982
! 1-008	- Update the representation list based on the draft terminal interface architecture
!	   keyboard level 2 spec, revision 0.0, section 8.2.9.10.  JBS 14-Sep-1982
! 1-009	- Correct errors in the translate tables for oe, OE, and y".  JBS 07-Dec-1982
! 1-010	- Add conditional for VT220 support.  JBS 10-Feb-1983
! 1-011	- Fix the macros to compile when VT220 support is turned off.  JBS 12-Feb-1983
! 3-001 - Modify for Tops10/20.  GB 16-May-1983
! 3-002 - Remove VT220 conditional and modify tables. CJG 25-Nov-1983
!--

!+
!Define some useful things for this library
!

MACRO
    BFLD (VAL, MSK) = ((VAL) ^ (%NBITSU (MSK AND -MSK) -1)) %;

LITERAL
    FLD_LHS = %O'777777000000',
    FLD_9B1 = %O'777000000000',
    FLD_9B2 = %O'000777000000',
    FLD_9B3 = %O'000000777000';

!<BLF/PAGE>
!+
! A translate table that leaves characters alone.
! This is only used as a prototype for constructing other tables.
!-

MACRO
    CHAR_EXACT_TAB = 				!
	%X'00', %X'01', %X'02', %X'03', %X'04', %X'05', %X'06', %X'07', 	! 00 - 07
	%X'08', %X'09', %X'0A', %X'0B', %X'0C', %X'0D', %X'0E', %X'0F', 	! 08 - 0F
	%X'10', %X'11', %X'12', %X'13', %X'14', %X'15', %X'16', %X'17', 	! 10 - 17
	%X'18', %X'19', %X'1A', %X'1B', %X'1C', %X'1D', %X'1E', %X'1F', 	! 18 - 1F
	%X'20', %X'21', %X'22', %X'23', %X'24', %X'25', %X'26', %X'27', 	! 20 - 27
	%X'28', %X'29', %X'2A', %X'2B', %X'2C', %X'2D', %X'2E', %X'2F', 	! 28 - 2F
	%X'30', %X'31', %X'32', %X'33', %X'34', %X'35', %X'36', %X'37', 	! 30 - 37
	%X'38', %X'39', %X'3A', %X'3B', %X'3C', %X'3D', %X'3E', %X'3F', 	! 38 - 3F
	%X'40', %X'41', %X'42', %X'43', %X'44', %X'45', %X'46', %X'47', 	! 40 - 47
	%X'48', %X'49', %X'4A', %X'4B', %X'4C', %X'4D', %X'4E', %X'4F', 	! 48 - 4F
	%X'50', %X'51', %X'52', %X'53', %X'54', %X'55', %X'56', %X'57', 	! 50 - 57
	%X'58', %X'59', %X'5A', %X'5B', %X'5C', %X'5D', %X'5E', %X'5F', 	! 58 - 5F
	%X'60', %X'61', %X'62', %X'63', %X'64', %X'65', %X'66', %X'67', 	! 60 - 67
	%X'68', %X'69', %X'6A', %X'6B', %X'6C', %X'6D', %X'6E', %X'6F', 	! 68 - 6F
	%X'70', %X'71', %X'72', %X'73', %X'74', %X'75', %X'76', %X'77', 	! 70 - 77
	%X'78', %X'79', %X'7A', %X'7B', %X'7C', %X'7D', %X'7E', %X'7F',		! 78 - 7F
	%X'80', %X'81', %X'82', %X'83', %X'84', %X'85', %X'86', %X'87', 	! 80 - 87
	%X'88', %X'89', %X'8A', %X'8B', %X'8C', %X'8D', %X'8E', %X'8F', 	! 88 - 8F
	%X'90', %X'91', %X'92', %X'93', %X'94', %X'95', %X'96', %X'97', 	! 90 - 97
	%X'98', %X'99', %X'9A', %X'9B', %X'9C', %X'9D', %X'9E', %X'9F', 	! 98 - 9F
	%X'A0', %X'A1', %X'A2', %X'A3', %X'A4', %X'A5', %X'A6', %X'A7', 	! A0 - A7
	%X'A8', %X'A9', %X'AA', %X'AB', %X'AC', %X'AD', %X'AE', %X'AF', 	! A8 - AF
	%X'B0', %X'B1', %X'B2', %X'B3', %X'B4', %X'B5', %X'B6', %X'B7', 	! B0 - B7
	%X'B8', %X'B9', %X'BA', %X'BB', %X'BC', %X'BD', %X'BE', %X'BF', 	! B8 - BF
	%X'C0', %X'C1', %X'C2', %X'C3', %X'C4', %X'C5', %X'C6', %X'C7', 	! C0 - C7
	%X'C8', %X'C9', %X'CA', %X'CB', %X'CC', %X'CD', %X'CE', %X'CF', 	! C8 - CF
	%X'D0', %X'D1', %X'D2', %X'D3', %X'D4', %X'D5', %X'D6', %X'D7', 	! D0 - D7
	%X'D8', %X'D9', %X'DA', %X'DB', %X'DC', %X'DD', %X'DE', %X'DF', 	! D8 - DF
	%X'E0', %X'E1', %X'E2', %X'E3', %X'E4', %X'E5', %X'E6', %X'E7', 	! E0 - E7
	%X'E8', %X'E9', %X'EA', %X'EB', %X'EC', %X'ED', %X'EE', %X'EF', 	! E8 - EF
	%X'F0', %X'F1', %X'F2', %X'F3', %X'F4', %X'F5', %X'F6', %X'F7', 	! F0 - F7
	%X'F8', %X'F9', %X'FA', %X'FB', %X'FC', %X'FD', %X'FE', %X'FF'		! F8 - FF

    %;

!<BLF/PAGE>

!+
! Translation table to convert lower case letters to upper case.
!-

MACRO
    CHAR_CI_TAB = 					!
	%X'00', %X'01', %X'02', %X'03', %X'04', %X'05', %X'06', %X'07', 	! 00 - 07
	%X'08', %X'09', %X'0A', %X'0B', %X'0C', %X'0D', %X'0E', %X'0F', 	! 08 - 0F
	%X'10', %X'11', %X'12', %X'13', %X'14', %X'15', %X'16', %X'17', 	! 10 - 17
	%X'18', %X'19', %X'1A', %X'1B', %X'1C', %X'1D', %X'1E', %X'1F', 	! 18 - 1F
	%X'20', %X'21', %X'22', %X'23', %X'24', %X'25', %X'26', %X'27', 	! 20 - 27
	%X'28', %X'29', %X'2A', %X'2B', %X'2C', %X'2D', %X'2E', %X'2F', 	! 28 - 2F
	%X'30', %X'31', %X'32', %X'33', %X'34', %X'35', %X'36', %X'37', 	! 30 - 37
	%X'38', %X'39', %X'3A', %X'3B', %X'3C', %X'3D', %X'3E', %X'3F', 	! 38 - 3F
	%X'40', %X'41', %X'42', %X'43', %X'44', %X'45', %X'46', %X'47', 	! 40 - 47
	%X'48', %X'49', %X'4A', %X'4B', %X'4C', %X'4D', %X'4E', %X'4F', 	! 48 - 4F
	%X'50', %X'51', %X'52', %X'53', %X'54', %X'55', %X'56', %X'57', 	! 50 - 57
	%X'58', %X'59', %X'5A', %X'5B', %X'5C', %X'5D', %X'5E', %X'5F', 	! 58 - 5F
	%X'60', %X'41', %X'42', %X'43', %X'44', %X'45', %X'46', %X'47', 	! 60 - 67
	%X'48', %X'49', %X'4A', %X'4B', %X'4C', %X'4D', %X'4E', %X'4F', 	! 68 - 6F
	%X'50', %X'51', %X'52', %X'53', %X'54', %X'55', %X'56', %X'57', 	! 70 - 77
	%X'58', %X'59', %X'5A', %X'7B', %X'7C', %X'7D', %X'7E', %X'7F', 	! 78 - 7F
	%X'80', %X'81', %X'82', %X'83', %X'84', %X'85', %X'86', %X'87', 	! 80 - 87
	%X'88', %X'89', %X'8A', %X'8B', %X'8C', %X'8D', %X'8E', %X'8F', 	! 88 - 8F
	%X'90', %X'91', %X'92', %X'93', %X'94', %X'95', %X'96', %X'97', 	! 90 - 97
	%X'98', %X'99', %X'9A', %X'9B', %X'9C', %X'9D', %X'9E', %X'9F', 	! 98 - 9F
	%X'A0', %X'A1', %X'A2', %X'A3', %X'A4', %X'A5', %X'A6', %X'A7', 	! A0 - A7
	%X'A8', %X'A9', %X'AA', %X'AB', %X'AC', %X'AD', %X'AE', %X'AF', 	! A8 - AF
	%X'B0', %X'B1', %X'B2', %X'B3', %X'B4', %X'B5', %X'B6', %X'B7', 	! B0 - B7
	%X'B8', %X'B9', %X'BA', %X'BB', %X'BC', %X'BD', %X'BE', %X'BF', 	! B8 - BF
	%X'C0', %X'C1', %X'C2', %X'C3', %X'C4', %X'C5', %X'C6', %X'C7', 	! C0 - C7
	%X'C8', %X'C9', %X'CA', %X'CB', %X'CC', %X'CD', %X'CE', %X'CF', 	! C8 - CF
	%X'D0', %X'D1', %X'D2', %X'D3', %X'D4', %X'D5', %X'D6', %X'D7', 	! D0 - D7
	%X'D8', %X'D9', %X'DA', %X'DB', %X'DC', %X'DD', %X'DE', %X'DF', 	! D8 - DF
	%X'C0', %X'C1', %X'C2', %X'C3', %X'C4', %X'C5', %X'C6', %X'C7', 	! E0 - E7
	%X'C8', %X'C9', %X'CA', %X'CB', %X'CC', %X'CD', %X'CE', %X'CF', 	! E8 - EF
	%X'F0', %X'D1', %X'D2', %X'D3', %X'D4', %X'D5', %X'D6', %X'D7', 	! F0 - F7
	%X'D8', %X'D9', %X'DA', %X'DB', %X'DC', %X'DD', %X'FE', %X'FF' %;	! F8 - FF


!<BLF/PAGE>
!+
! Translate table to convert characters to their non-diacritical equivalents.
!-

MACRO
    CHAR_DI_TAB = 					!
	%X'00', %X'01', %X'02', %X'03', %X'04', %X'05', %X'06', %X'07', 	! 00 - 07
	%X'08', %X'09', %X'0A', %X'0B', %X'0C', %X'0D', %X'0E', %X'0F', 	! 08 - 0F
	%X'10', %X'11', %X'12', %X'13', %X'14', %X'15', %X'16', %X'17', 	! 10 - 17
	%X'18', %X'19', %X'1A', %X'1B', %X'1C', %X'1D', %X'1E', %X'1F', 	! 18 - 1F
	%X'20', %X'21', %X'22', %X'23', %X'24', %X'25', %X'26', %X'27', 	! 20 - 27
	%X'28', %X'29', %X'2A', %X'2B', %X'2C', %X'2D', %X'2E', %X'2F', 	! 28 - 2F
	%X'30', %X'31', %X'32', %X'33', %X'34', %X'35', %X'36', %X'37', 	! 30 - 37
	%X'38', %X'39', %X'3A', %X'3B', %X'3C', %X'3D', %X'3E', %X'3F', 	! 38 - 3F
	%X'40', %X'41', %X'42', %X'43', %X'44', %X'45', %X'46', %X'47', 	! 40 - 47
	%X'48', %X'49', %X'4A', %X'4B', %X'4C', %X'4D', %X'4E', %X'4F', 	! 48 - 4F
	%X'50', %X'51', %X'52', %X'53', %X'54', %X'55', %X'56', %X'57', 	! 50 - 57
	%X'58', %X'59', %X'5A', %X'5B', %X'5C', %X'5D', %X'5E', %X'5F', 	! 58 - 5F
	%X'60', %X'61', %X'62', %X'63', %X'64', %X'65', %X'66', %X'67', 	! 60 - 67
	%X'68', %X'69', %X'6A', %X'6B', %X'6C', %X'6D', %X'6E', %X'6F', 	! 68 - 6F
	%X'70', %X'71', %X'72', %X'73', %X'74', %X'75', %X'76', %X'77', 	! 70 - 77
	%X'78', %X'79', %X'7A', %X'7B', %X'7C', %X'7D', %X'7E', %X'7F', 	! 78 - 7F
	%X'80', %X'81', %X'82', %X'83', %X'84', %X'85', %X'86', %X'87', 	! 80 - 87
	%X'88', %X'89', %X'8A', %X'8B', %X'8C', %X'8D', %X'8E', %X'8F', 	! 88 - 8F
	%X'90', %X'91', %X'92', %X'93', %X'94', %X'95', %X'96', %X'97', 	! 90 - 97
	%X'98', %X'99', %X'9A', %X'9B', %X'9C', %X'9D', %X'9E', %X'9F', 	! 98 - 9F
	%X'A0', %X'A1', %X'A2', %X'A3', %X'A4', %X'A5', %X'A6', %X'A7', 	! A0 - A7
	%X'A8', %X'A9', %X'AA', %X'AB', %X'AC', %X'AD', %X'AE', %X'AF', 	! A8 - AF
	%X'B0', %X'B1', %X'B2', %X'B3', %X'B4', %X'B5', %X'B6', %X'B7', 	! B0 - B7
	%X'B8', %X'B9', %X'BA', %X'BB', %X'BC', %X'BD', %X'BE', %X'BF', 	! B8 - BF
	%X'41', %X'41', %X'41', %X'41', %X'41', %X'41', %X'C6', %X'43', 	! C0 - C7
	%X'45', %X'45', %X'45', %X'45', %X'49', %X'49', %X'49', %X'49', 	! C8 - CF
	%X'D0', %X'4E', %X'4F', %X'4F', %X'4F', %X'4F', %X'4F', %X'D7', 	! D0 - D7
	%X'4F', %X'55', %X'55', %X'55', %X'55', %X'59', %X'DE', %X'DF', 	! D8 - DF
	%X'61', %X'61', %X'61', %X'61', %X'61', %X'61', %X'E6', %X'63', 	! E0 - E7
	%X'65', %X'65', %X'65', %X'65', %X'69', %X'69', %X'69', %X'69', 	! E8 - EF
	%X'F0', %X'6E', %X'6F', %X'6F', %X'6F', %X'6F', %X'6F', %X'F7', 	! F0 - F7
	%X'6F', %X'75', %X'75', %X'75', %X'75', %X'79', %X'FE', %X'FF' %;	! F8 - FF

!<BLF/PAGE>
!+
! Translation table to convert lower case letters to upper case
! and remove diacritical marks.
!-

MACRO
    CHAR_GENERAL_TAB = 				!
	%X'00', %X'01', %X'02', %X'03', %X'04', %X'05', %X'06', %X'07', 	! 00 - 07
	%X'08', %X'09', %X'0A', %X'0B', %X'0C', %X'0D', %X'0E', %X'0F', 	! 08 - 0F
	%X'10', %X'11', %X'12', %X'13', %X'14', %X'15', %X'16', %X'17', 	! 10 - 17
	%X'18', %X'19', %X'1A', %X'1B', %X'1C', %X'1D', %X'1E', %X'1F', 	! 18 - 1F
	%X'20', %X'21', %X'22', %X'23', %X'24', %X'25', %X'26', %X'27', 	! 20 - 27
	%X'28', %X'29', %X'2A', %X'2B', %X'2C', %X'2D', %X'2E', %X'2F', 	! 28 - 2F
	%X'30', %X'31', %X'32', %X'33', %X'34', %X'35', %X'36', %X'37', 	! 30 - 37
	%X'38', %X'39', %X'3A', %X'3B', %X'3C', %X'3D', %X'3E', %X'3F', 	! 38 - 3F
	%X'40', %X'41', %X'42', %X'43', %X'44', %X'45', %X'46', %X'47', 	! 40 - 47
	%X'48', %X'49', %X'4A', %X'4B', %X'4C', %X'4D', %X'4E', %X'4F', 	! 48 - 4F
	%X'50', %X'51', %X'52', %X'53', %X'54', %X'55', %X'56', %X'57', 	! 50 - 57
	%X'58', %X'59', %X'5A', %X'5B', %X'5C', %X'5D', %X'5E', %X'5F', 	! 58 - 5F
	%X'60', %X'41', %X'42', %X'43', %X'44', %X'45', %X'46', %X'47', 	! 60 - 67
	%X'48', %X'49', %X'4A', %X'4B', %X'4C', %X'4D', %X'4E', %X'4F', 	! 68 - 6F
	%X'50', %X'51', %X'52', %X'53', %X'54', %X'55', %X'56', %X'57', 	! 70 - 77
	%X'58', %X'59', %X'5A', %X'7B', %X'7C', %X'7D', %X'7E', %X'7F', 	! 78 - 7F
	%X'80', %X'81', %X'82', %X'83', %X'84', %X'85', %X'86', %X'87', 	! 80 - 87
	%X'88', %X'89', %X'8A', %X'8B', %X'8C', %X'8D', %X'8E', %X'8F', 	! 88 - 8F
	%X'90', %X'91', %X'92', %X'93', %X'94', %X'95', %X'96', %X'97', 	! 90 - 97
	%X'98', %X'99', %X'9A', %X'9B', %X'9C', %X'9D', %X'9E', %X'9F', 	! 98 - 9F
	%X'A0', %X'A1', %X'A2', %X'A3', %X'A4', %X'A5', %X'A6', %X'A7', 	! A0 - A7
	%X'A8', %X'A9', %X'AA', %X'AB', %X'AC', %X'AD', %X'AE', %X'AF', 	! A8 - AF
	%X'B0', %X'B1', %X'B2', %X'B3', %X'B4', %X'B5', %X'B6', %X'B7', 	! B0 - B7
	%X'B8', %X'B9', %X'BA', %X'BB', %X'BC', %X'BD', %X'BE', %X'BF', 	! B8 - BF
	%X'41', %X'41', %X'41', %X'41', %X'41', %X'41', %X'C6', %X'43', 	! C0 - C7
	%X'45', %X'45', %X'45', %X'45', %X'49', %X'49', %X'49', %X'49', 	! C8 - CF
	%X'D0', %X'4E', %X'4F', %X'4F', %X'4F', %X'4F', %X'4F', %X'D7', 	! D0 - D7
	%X'4F', %X'55', %X'55', %X'55', %X'55', %X'59', %X'DE', %X'DF', 	! D8 - DF
	%X'41', %X'41', %X'41', %X'41', %X'41', %X'41', %X'C6', %X'43', 	! E0 - E7
	%X'45', %X'45', %X'45', %X'45', %X'49', %X'49', %X'49', %X'49', 	! E8 - EF
	%X'F0', %X'4E', %X'4F', %X'4F', %X'4F', %X'4F', %X'4F', %X'D7', 	! F0 - F7
	%X'4F', %X'55', %X'55', %X'55', %X'55', %X'59', %X'FE', %X'FF' %;	! F8 - FF

!<BLF/PAGE>
!+
! Definitions of the text names of the characters.
! Only those characters with text names other than Xnn are listed here.
! Form feed is handled as a special case since its text can be changed.
!-
!<BLF/NOMACRO>

MACRO
    CHAR_NAMES_TAB =
	CNT_ENT (%X'0A', %C'L', %C'F', %O'0'),
	CNT_ENT (%X'0B', %C'V', %C'T', %O'0'),
	CNT_ENT (%X'0D', %C'C', %C'R', %O'0'),
	CNT_ENT (%X'1B', %C'E', %C'S', %C'C'),
	CNT_ENT (%X'7F', %C'D', %C'E', %C'L'),
	CNT_ENT (%X'84', %C'I', %C'N', %C'D'),
	CNT_ENT (%X'85', %C'N', %C'E', %C'L'),
	CNT_ENT (%X'86', %C'S', %C'S', %C'A'),
	CNT_ENT (%X'87', %C'E', %C'S', %C'A'),
	CNT_ENT (%X'88', %C'H', %C'T', %C'S'),
	CNT_ENT (%X'89', %C'H', %C'T', %C'J'),
	CNT_ENT (%X'8A', %C'V', %C'T', %C'S'),
	CNT_ENT (%X'8B', %C'P', %C'L', %C'D'),
	CNT_ENT (%X'8C', %C'P', %C'L', %C'U'),
	CNT_ENT (%X'8D', %C'R', %C'I', %O'0'),
	CNT_ENT (%X'8E', %C'S', %C'S', %C'2'),
	CNT_ENT (%X'8F', %C'S', %C'S', %C'3'),
	CNT_ENT (%X'90', %C'D', %C'C', %C'S'),
	CNT_ENT (%X'91', %C'P', %C'U', %C'1'),
	CNT_ENT (%X'92', %C'P', %C'U', %C'2'),
	CNT_ENT (%X'93', %C'S', %C'T', %C'S'),
	CNT_ENT (%X'94', %C'C', %C'C', %C'H'),
	CNT_ENT (%X'95', %C'M', %C'W', %O'0'),
	CNT_ENT (%X'96', %C'S', %C'P', %C'A'),
	CNT_ENT (%X'97', %C'E', %C'P', %C'A'),
	CNT_ENT (%X'9B', %C'C', %C'S', %C'I'),
	CNT_ENT (%X'9C', %C'S', %C'T', %O'0'),
	CNT_ENT (%X'9D', %C'O', %C'S', %C'C'),
	CNT_ENT (%X'9E', %C'P', %C'M', %O'0'),
	CNT_ENT (%X'9F', %C'A', %C'P', %C'C'),
	CNT_ENT (%X'A1', %C'!', %C'!', %O'0'),
	CNT_ENT (%X'A2', %C'C', %C'/', %O'0'),
	CNT_ENT (%X'A3', %C'L', %C'-', %O'0'),
	CNT_ENT (%X'A5', %C'Y', %C'-', %O'0'),
	CNT_ENT (%X'A7', %C'S', %C'0', %O'0'),
	CNT_ENT (%X'A8', %C'X', %C'0', %O'0'),
	CNT_ENT (%X'A9', %C'C', %C'0', %O'0'),
	CNT_ENT (%X'AA', %C'a', %C'_', %O'0'),
	CNT_ENT (%X'AB', %C'<', %C'<', %O'0'),
	CNT_ENT (%X'B0', %C'0', %C'^', %O'0'),
	CNT_ENT (%X'B1', %C'+', %C'-', %O'0'),
	CNT_ENT (%X'B2', %C'2', %C'^', %O'0'),
	CNT_ENT (%X'B3', %C'3', %C'^', %O'0'),
	CNT_ENT (%X'B5', %C'/', %C'U', %O'0'),
	CNT_ENT (%X'B6', %C'P', %C'!', %O'0'),
	CNT_ENT (%X'B7', %C'.', %C'^', %O'0'),
	CNT_ENT (%X'B9', %C'1', %C'^', %O'0'),
	CNT_ENT (%X'BA', %C'o', %C'_', %O'0'),
	CNT_ENT (%X'BB', %C'>', %C'>', %O'0'),
	CNT_ENT (%X'BC', %C'1', %C'4', %O'0'),
	CNT_ENT (%X'BD', %C'1', %C'2', %O'0'),
	CNT_ENT (%X'BF', %C'?', %C'?', %O'0'),
	CNT_ENT (%X'C0', %C'A', %C'`', %O'0'),
	CNT_ENT (%X'C1', %C'A', %C'''', %O'0'),
	CNT_ENT (%X'C2', %C'A', %C'^', %O'0'),
	CNT_ENT (%X'C3', %C'A', %C'~', %O'0'),
	CNT_ENT (%X'C4', %C'A', %C'"', %O'0'),
	CNT_ENT (%X'C5', %C'A', %C'*', %O'0'),
	CNT_ENT (%X'C6', %C'A', %C'E', %O'0'),
	CNT_ENT (%X'C7', %C'C', %C',', %O'0'),
	CNT_ENT (%X'C8', %C'E', %C'`', %O'0'),
	CNT_ENT (%X'C9', %C'E', %C'''', %O'0'),
	CNT_ENT (%X'CA', %C'E', %C'^', %O'0'),
	CNT_ENT (%X'CB', %C'E', %C'"', %O'0'),
	CNT_ENT (%X'CC', %C'I', %C'`', %O'0'),
	CNT_ENT (%X'CD', %C'I', %C'''', %O'0'),
	CNT_ENT (%X'CE', %C'I', %C'^', %O'0'),
	CNT_ENT (%X'CF', %C'I', %C'"', %O'0'),
	CNT_ENT (%X'D1', %C'N', %C'~', %O'0'),
	CNT_ENT (%X'D2', %C'O', %C'`', %O'0'),
	CNT_ENT (%X'D3', %C'O', %C'''', %O'0'),
	CNT_ENT (%X'D4', %C'O', %C'^', %O'0'),
	CNT_ENT (%X'D5', %C'O', %C'~', %O'0'),
	CNT_ENT (%X'D6', %C'O', %C'"', %O'0'),
	CNT_ENT (%X'D7', %C'O', %C'E', %O'0'),
	CNT_ENT (%X'D8', %C'O', %C'/', %O'0'),
	CNT_ENT (%X'D9', %C'U', %C'`', %O'0'),
	CNT_ENT (%X'DA', %C'U', %C'''', %O'0'),
	CNT_ENT (%X'DB', %C'U', %C'^', %O'0'),
	CNT_ENT (%X'DC', %C'U', %C'"', %O'0'),
	CNT_ENT (%X'DD', %C'Y', %C'"', %O'0'),
	CNT_ENT (%X'DF', %C's', %C's', %O'0'),
	CNT_ENT (%X'E0', %C'a', %C'`', %O'0'),
	CNT_ENT (%X'E1', %C'a', %C'''', %O'0'),
	CNT_ENT (%X'E2', %C'a', %C'^', %O'0'),
	CNT_ENT (%X'E3', %C'a', %C'~', %O'0'),
	CNT_ENT (%X'E4', %C'a', %C'"', %O'0'),
	CNT_ENT (%X'E5', %C'a', %C'*', %O'0'),
	CNT_ENT (%X'E6', %C'a', %C'e', %O'0'),
	CNT_ENT (%X'E7', %C'c', %C',', %O'0'),
	CNT_ENT (%X'E8', %C'e', %C'`', %O'0'),
	CNT_ENT (%X'E9', %C'e', %C'''', %O'0'),
	CNT_ENT (%X'EA', %C'e', %C'^', %O'0'),
	CNT_ENT (%X'EB', %C'e', %C'"', %O'0'),
	CNT_ENT (%X'EC', %C'i', %C'`', %O'0'),
	CNT_ENT (%X'ED', %C'i', %C'''', %O'0'),
	CNT_ENT (%X'EE', %C'i', %C'^', %O'0'),
	CNT_ENT (%X'EF', %C'i', %C'"', %O'0'),
	CNT_ENT (%X'F1', %C'n', %C'~', %O'0'),
	CNT_ENT (%X'F2', %C'o', %C'`', %O'0'),
	CNT_ENT (%X'F3', %C'o', %C'''', %O'0'),
	CNT_ENT (%X'F4', %C'o', %C'^', %O'0'),
	CNT_ENT (%X'F5', %C'o', %C'~', %O'0'),
	CNT_ENT (%X'F6', %C'o', %C'"', %O'0'),
	CNT_ENT (%X'F7', %C'o', %C'e', %O'0'),
	CNT_ENT (%X'F8', %C'o', %C'/', %O'0'),
	CNT_ENT (%X'F9', %C'u', %C'`', %O'0'),
	CNT_ENT (%X'FA', %C'u', %C'''', %O'0'),
	CNT_ENT (%X'FB', %C'u', %C'^', %O'0'),
	CNT_ENT (%X'FC', %C'u', %C'"', %O'0'),
	CNT_ENT (%X'FD', %C'y', %C'"', %O'0')
    %;


MACRO
    CNT_ENT (NAM, CH1, CH2, CH3) =
	BFLD (CH1, FLD_9B1) +
	BFLD (CH2, FLD_9B2) +
	BFLD (CH3, FLD_9B3) %;

!<BLF/MACRO>
!<BLF/PAGE>
!+
! Table of information about each character.
!
!	bit 0	 = this is a lower-case letter
!
!	bit 1	 = this is an upper-case letter
!
!	bits 2-3 = display information, coded as follows:
!		 0 = display as self on all terminals
!		 1 = display as ^X
!		 2 = display as <name>, except on 8-bit terminals if the
!		     character is %X'80' or above, in which case display as self
!		 3 = display as <Xnn>
!
!	bits 4-7 = diacritical information, coded as follows:
!		 0 = no diacritical
!		 1 = diacritical, base letter is "A" or "a"
!		 2 = diacritical, base letter is "C" or "c"
!		 3 = diacritical, base letter is "E" or "e"
!		 4 = diacritical, base letter is "I" or "i"
!		 5 = diacritical, base letter is "N" or "n"
!		 6 = diacritical, base letter is "O" or "o"
!		 7 = diacritical, base letter is "U" or "u"
!		 8 = diacritical, base letter is "Y" or "y"
!		 9 - E unused
!
!	bit 8	 = this character is a digit
!
!	bit 9	 = this character is ESC, CSI, or SS3
!
!	bit 10   = this character is a letter (either bit 1 or bit 0 will be set)
!
!	bits 11-12 = length of character name (0 - 3)
!
!	bits 18-35 = offset into CHAR_NAMES table
!
! The following macros define the bit positions:
!

MACRO
    CI_LC  = 0, 0, 1, 0 %,		! Lower case letter
    CI_UC  = 0, 1, 1, 0 %,		! Upper case letter
    CI_DSP = 0, 2, 2, 0 %,		! Display format
    CI_DIA = 0, 4, 4, 0 %,		! Diacritical information
    CI_DIG = 0, 8, 1, 0 %,		! Digit
    CI_ESC = 0, 9, 1, 0 %,		! Escape character
    CI_LET = 0,10, 1, 0 %,		! Any letter
    CI_FLG = 0, 0,11, 0 %,		! All the above fields
    CI_LEN = 0,11, 2, 0 %,		! Length of name
    CI_PTR = 0,18,18, 0 %;		! Pointer into CHAR_INFO

!<BLF/PAGE>
MACRO
    CHAR_INFO_TAB = 					!
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 000
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 001
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 002
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 003
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 004
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 005
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 006
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 007
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 010
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 011
	CIT_ENT	(  1,  2,  0,  0,  0,  2,  0,  0),	! 012
	CIT_ENT	(  2,  2,  0,  0,  0,  2,  0,  0),	! 013
	CIT_ENT	(  0,  0,  0,  0,  0,  2,  0,  0),	! 014
	CIT_ENT	(  3,  2,  0,  0,  0,  2,  0,  0),	! 015
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 016
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 017
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 020
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 021
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 022
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 023
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 024
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 025
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 026
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 027
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 030
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 031
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 032
	CIT_ENT	(  4,  3,  1,  0,  0,  2,  0,  0),	! 033
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 034
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 035
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 036
	CIT_ENT	(  0,  0,  0,  0,  0,  1,  0,  0),	! 037
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 040
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 041
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 042
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 043
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 044
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 045
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 046
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 047
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 050
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 051
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 052
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 053
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 054
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 055
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 056
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 057
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 060
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 061
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 062
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 063
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 064
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 065
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 066
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 067
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 070
	CIT_ENT	(  0,  0,  0,  1,  0,  0,  0,  0),	! 071
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 072
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 073
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 074
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 075
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 076
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 077
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 100
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 101
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 102
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 103
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 104
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 105
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 106
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 107
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 110
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 111
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 112
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 113
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 114
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 115
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 116
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 117
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 120
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 121
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 122
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 123
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 124
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 125
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 126
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 127
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 130
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 131
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  1,  0),	! 132
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 133
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 134
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 135
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 136
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 137
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 140
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 141
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 142
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 143
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 144
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 145
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 146
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 147
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 150
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 151
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 152
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 153
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 154
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 155
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 156
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 157
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 160
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 161
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 162
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 163
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 164
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 165
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 166
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 167
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 170
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 171
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  1),	! 172
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 173
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 174
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 175
	CIT_ENT	(  0,  0,  0,  0,  0,  0,  0,  0),	! 176
	CIT_ENT	(  5,  3,  0,  0,  0,  2,  0,  0),	! 177
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 200
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 201
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 202
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 203
	CIT_ENT	(  6,  3,  0,  0,  0,  2,  0,  0),	! 204
	CIT_ENT	(  7,  3,  0,  0,  0,  2,  0,  0),	! 205
	CIT_ENT	(  8,  3,  0,  0,  0,  2,  0,  0),	! 206
	CIT_ENT	(  9,  3,  0,  0,  0,  2,  0,  0),	! 207
	CIT_ENT	( 10,  3,  0,  0,  0,  2,  0,  0),	! 210
	CIT_ENT	( 11,  3,  0,  0,  0,  2,  0,  0),	! 211
	CIT_ENT	( 12,  3,  0,  0,  0,  2,  0,  0),	! 212
	CIT_ENT	( 13,  3,  0,  0,  0,  2,  0,  0),	! 213
	CIT_ENT	( 14,  3,  0,  0,  0,  2,  0,  0),	! 214
	CIT_ENT	( 15,  2,  0,  0,  0,  2,  0,  0),	! 215
	CIT_ENT	( 16,  3,  0,  0,  0,  2,  0,  0),	! 216
	CIT_ENT	( 17,  3,  1,  0,  0,  2,  0,  0),	! 217
	CIT_ENT	( 18,  3,  0,  0,  0,  2,  0,  0),	! 220
	CIT_ENT	( 19,  3,  0,  0,  0,  2,  0,  0),	! 221
	CIT_ENT	( 20,  3,  0,  0,  0,  2,  0,  0),	! 222
	CIT_ENT	( 21,  3,  0,  0,  0,  2,  0,  0),	! 223
	CIT_ENT	( 22,  3,  0,  0,  0,  2,  0,  0),	! 224
	CIT_ENT	( 23,  2,  0,  0,  0,  2,  0,  0),	! 225
	CIT_ENT	( 24,  3,  0,  0,  0,  2,  0,  0),	! 226
	CIT_ENT	( 25,  3,  0,  0,  0,  2,  0,  0),	! 227
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 230
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 231
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 232
	CIT_ENT	( 26,  3,  1,  0,  0,  2,  0,  0),	! 233
	CIT_ENT	( 27,  2,  0,  0,  0,  2,  0,  0),	! 234
	CIT_ENT	( 28,  3,  0,  0,  0,  2,  0,  0),	! 235
	CIT_ENT	( 29,  2,  0,  0,  0,  2,  0,  0),	! 236
	CIT_ENT	( 30,  3,  0,  0,  0,  2,  0,  0),	! 237
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 240
	CIT_ENT	( 31,  2,  0,  0,  0,  2,  0,  0),	! 241
	CIT_ENT	( 32,  2,  0,  0,  0,  2,  0,  0),	! 242
	CIT_ENT	( 33,  2,  0,  0,  0,  2,  0,  0),	! 243
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 244
	CIT_ENT	( 34,  2,  0,  0,  0,  2,  0,  0),	! 245
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 246
	CIT_ENT	( 35,  2,  0,  0,  0,  2,  0,  0),	! 247
	CIT_ENT	( 36,  2,  0,  0,  0,  2,  0,  0),	! 250
	CIT_ENT	( 37,  2,  0,  0,  0,  2,  0,  0),	! 251
	CIT_ENT	( 38,  2,  0,  0,  0,  2,  0,  0),	! 252
	CIT_ENT	( 39,  2,  0,  0,  0,  2,  0,  0),	! 253
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 254
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 255
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 256
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 257
	CIT_ENT	( 40,  2,  0,  0,  0,  2,  0,  0),	! 260
	CIT_ENT	( 41,  2,  0,  0,  0,  2,  0,  0),	! 261
	CIT_ENT	( 42,  2,  0,  0,  0,  2,  0,  0),	! 262
	CIT_ENT	( 43,  2,  0,  0,  0,  2,  0,  0),	! 263
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 264
	CIT_ENT	( 44,  2,  0,  0,  0,  2,  0,  0),	! 265
	CIT_ENT	( 45,  2,  0,  0,  0,  2,  0,  0),	! 266
	CIT_ENT	( 46,  2,  0,  0,  0,  2,  0,  0),	! 267
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 270
	CIT_ENT	( 47,  2,  0,  0,  0,  2,  0,  0),	! 271
	CIT_ENT	( 48,  2,  0,  0,  0,  2,  0,  0),	! 272
	CIT_ENT	( 49,  2,  0,  0,  0,  2,  0,  0),	! 273
	CIT_ENT	( 50,  2,  0,  0,  0,  2,  0,  0),	! 274
	CIT_ENT	( 51,  2,  0,  0,  0,  2,  0,  0),	! 275
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 276
	CIT_ENT	( 52,  2,  0,  0,  0,  2,  0,  0),	! 277
	CIT_ENT	( 53,  2,  0,  0,  1,  2,  1,  0),	! 300
	CIT_ENT	( 54,  2,  0,  0,  1,  2,  1,  0),	! 301
	CIT_ENT	( 55,  2,  0,  0,  1,  2,  1,  0),	! 302
	CIT_ENT	( 56,  2,  0,  0,  1,  2,  1,  0),	! 303
	CIT_ENT	( 57,  2,  0,  0,  1,  2,  1,  0),	! 304
	CIT_ENT	( 58,  2,  0,  0,  1,  2,  1,  0),	! 305
	CIT_ENT	( 59,  2,  0,  0,  0,  2,  1,  0),	! 306
	CIT_ENT	( 60,  2,  0,  0,  2,  2,  1,  0),	! 307
	CIT_ENT	( 61,  2,  0,  0,  3,  2,  1,  0),	! 310
	CIT_ENT	( 62,  2,  0,  0,  3,  2,  1,  0),	! 311
	CIT_ENT	( 63,  2,  0,  0,  3,  2,  1,  0),	! 312
	CIT_ENT	( 64,  2,  0,  0,  3,  2,  1,  0),	! 313
	CIT_ENT	( 65,  2,  0,  0,  4,  2,  1,  0),	! 314
	CIT_ENT	( 66,  2,  0,  0,  4,  2,  1,  0),	! 315
	CIT_ENT	( 67,  2,  0,  0,  4,  2,  1,  0),	! 316
	CIT_ENT	( 68,  2,  0,  0,  4,  2,  1,  0),	! 317
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 320
	CIT_ENT	( 69,  2,  0,  0,  5,  2,  1,  0),	! 321
	CIT_ENT	( 70,  2,  0,  0,  6,  2,  1,  0),	! 322
	CIT_ENT	( 71,  2,  0,  0,  6,  2,  1,  0),	! 323
	CIT_ENT	( 72,  2,  0,  0,  6,  2,  1,  0),	! 324
	CIT_ENT	( 73,  2,  0,  0,  6,  2,  1,  0),	! 325
	CIT_ENT	( 74,  2,  0,  0,  6,  2,  1,  0),	! 326
	CIT_ENT	( 75,  2,  0,  0,  0,  2,  1,  0),	! 327
	CIT_ENT	( 76,  2,  0,  0,  0,  2,  1,  0),	! 330
	CIT_ENT	( 77,  2,  0,  0,  7,  2,  1,  0),	! 331
	CIT_ENT	( 78,  2,  0,  0,  7,  2,  1,  0),	! 332
	CIT_ENT	( 79,  2,  0,  0,  7,  2,  1,  0),	! 333
	CIT_ENT	( 80,  2,  0,  0,  7,  2,  1,  0),	! 334
	CIT_ENT	( 81,  2,  0,  0,  8,  2,  1,  0),	! 335
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 336
	CIT_ENT	( 82,  2,  0,  0,  0,  2,  0,  0),	! 337
	CIT_ENT	( 83,  2,  0,  0,  1,  2,  0,  1),	! 340
	CIT_ENT	( 84,  2,  0,  0,  1,  2,  0,  1),	! 341
	CIT_ENT	( 85,  2,  0,  0,  1,  2,  0,  1),	! 342
	CIT_ENT	( 86,  2,  0,  0,  1,  2,  0,  1),	! 343
	CIT_ENT	( 87,  2,  0,  0,  1,  2,  0,  1),	! 344
	CIT_ENT	( 88,  2,  0,  0,  1,  2,  0,  1),	! 345
	CIT_ENT	( 89,  2,  0,  0,  0,  2,  0,  1),	! 346
	CIT_ENT	( 90,  2,  0,  0,  2,  2,  0,  1),	! 347
	CIT_ENT	( 91,  2,  0,  0,  3,  2,  0,  1),	! 350
	CIT_ENT	( 92,  2,  0,  0,  3,  2,  0,  1),	! 351
	CIT_ENT	( 93,  2,  0,  0,  3,  2,  0,  1),	! 352
	CIT_ENT	( 94,  2,  0,  0,  3,  2,  0,  1),	! 353
	CIT_ENT	( 95,  2,  0,  0,  4,  2,  0,  1),	! 354
	CIT_ENT	( 96,  2,  0,  0,  4,  2,  0,  1),	! 355
	CIT_ENT	( 97,  2,  0,  0,  4,  2,  0,  1),	! 356
	CIT_ENT	( 98,  2,  0,  0,  4,  2,  0,  1),	! 357
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 360
	CIT_ENT	( 99,  2,  0,  0,  5,  2,  0,  1),	! 361
	CIT_ENT	(100,  2,  0,  0,  6,  2,  0,  1),	! 362
	CIT_ENT	(101,  2,  0,  0,  6,  2,  0,  1),	! 363
	CIT_ENT	(102,  2,  0,  0,  6,  2,  0,  1),	! 364
	CIT_ENT	(103,  2,  0,  0,  6,  2,  0,  1),	! 365
	CIT_ENT	(104,  2,  0,  0,  6,  2,  0,  1),	! 366
	CIT_ENT	(105,  2,  0,  0,  0,  2,  0,  1),	! 367
	CIT_ENT	(106,  2,  0,  0,  0,  2,  0,  1),	! 370
	CIT_ENT	(107,  2,  0,  0,  7,  2,  0,  1),	! 371
	CIT_ENT	(108,  2,  0,  0,  7,  2,  0,  1),	! 372
	CIT_ENT	(109,  2,  0,  0,  7,  2,  0,  1),	! 373
	CIT_ENT	(110,  2,  0,  0,  7,  2,  0,  1),	! 374
	CIT_ENT	(111,  2,  0,  0,  8,  2,  0,  1),	! 375
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0),	! 376
	CIT_ENT	(  0,  0,  0,  0,  0,  3,  0,  0)	! 377

    %;

MACRO
    CIT_ENT (PTR, LEN, ESC, DIG, DIA, DSP, UC, LC) =

	BFLD (PTR, FLD_LHS) +
	(LEN * %O'4000') +
	((UC OR LC) * %O'2000') +
	(ESC * %O'1000') +
	(DIG * %O'400') +
	(DIA * %O'20') +
	(DSP * 4) +
	(UC * 2) +
	LC %;


UNDECLARE
    FLD_LHS,
    FLD_9B1,
    FLD_9B2,
    FLD_9B3;

!	End of file TRANSLATE.REQ