Google
 

Trailing-Edge - PDP-10 Archives - tops20-v7-ft-dist2-clock - language-sources/dixcst.bli
There are 21 other files named dixcst.bli in the archive. Click here to see a list.
%TITLE 'Library definitions for character conversion tables'

!  COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983, 1986.
!  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 THAT IS NOT SUPPLIED BY DIGITAL.

!++
! .chapter >DIXCST
! 
!   This file is the source for the library DIXCST.  This library
! defines the character conversion tables for all character sets known
! to the DIX string module.
! 
!   These are defined in a library so that an auxiliary program could be
! written which would search the library and print authoritative
! character conversion tables.  Also, putting the definitions in a
! library eliminates the necessity of compiling them every time the
! string module (DIXSTR) is compiled.
!--

LIBRARY 'DIXLIB';                       ! \.p;\ is used.
LIBRARY 'FIELDS';                       ! \.p;\ is used.

! ;   Library XPORT is used.

%BLISS32 (

LIBRARY 'SYS$LIBRARY:XPORT';

)
%BLISS36 (

LIBRARY 'BLI:XPORT';

)
%sbttl 'Edit History'                   ! [7] Add this entire subsection

!++
! .hl 1 Edit History
!
!   The edit history/version number information in this file is used
! to build a literal, dix$k_dixcst_version, giving the full version
! information.  Modules that use this library (in particular, the
! DIXSTR module) should make an OWN location called
! dix$g_dixcst_version and initialize it to dix$k_dixcst_version.
! This makes it possible to tell at debug time what version of the
! library was actually compiled against.
!--

LIBRARY 'VERSION';

! ; .autotable

!++ COPY 

new_version (1, 0)

edit (7, '23-Aug-82', 'David Dyer-Bennet')
 %( Change version and revision standards everywhere.
    Files: All. )%

Edit (%O'30', '19-Jan-83', 'David Dyer-Bennet')
%(  Update copyright notices, add mark at end of edit histories.
)%

Edit (%O'35', '10-Mar-83', 'Charlotte L. Richardson')
%( Declare version 1.  All modules.
)%

new_version (1, 1)

new_version (2, 0)

Edit (%O'36', '11-Apr-84', 'Sandy Clemens')
%( Put all Version 2 DIX development files under edit control.  Some of
   the files listed below have major code edits, or are new modules.  Others
   have relatively minor changes, such as cleaning up a comment.
   FILES: COMDIX.VAX-COM, COMPDX.CTL, DIXCST.BLI, DIXDEB.BLI,
   DIXDN.BLI (NEW), DIXFBN.BLI, DIXFP.BLI, DIXGBL.BLI, DIXGEN.BLI,
   DIXHST.BLI, DIXINT.PR1, DIXINT.PR2, DIXLIB.BLI, DIXPD.BLI (NEW),
   DIXREQ.REQ, DIXSTR.BLI, DIXUTL.BLI, DXCM10.10-CTL, MAKDIXMSG.BLI,
   STAR36.BLI, VERSION.REQ.
)%

Edit (%O'50', '8-Oct-84', 'Sandy Clemens')
  %( Add new format of COPYRIGHT notice.  FILES:  ALL )%

new_version (2, 1)

Edit (%O'53', '3-Jul-86', 'Sandy Clemens')
  %( Add remaining sources to V2.1 area.  Update copyright notices. )%

! **EDIT**
!-- .autoparagraph

LITERAL
    dix$k_dixcst_version = version_number
        (major = major_version,
        minor = minor_version,
        edit_no = edit_number);

UNDECLARE 
    major_version, minor_version, edit_number, sequence_check_edits;
%SBTTL 'Character Set Tables (CST)'

!++
! .hl 1 Character set tables (>CST>)
!
!   Each of these tables defines one character set and its translation to the
! String Intermediate (SI) form, and vs.
!
!   The structure prefix for character set tables is CST.
!
!   Each table entry contains the information to go from its index character
! (the character whose code is its index into the table) to the proper SI
! character, and from an SI character (used as an index) to the appropriate
! character of the character set defined.
!
!   The SI form is ASCII for the printing characters and formatting controls.
! The other positions are arbitrary.
!--

! ; .HL 2 BLISS definition of CST format
! ; .literal
!++ copy

$field

    cst_fields =
	SET
	cst$v_to_si_char = [$byte],		! Equiv SI char for this index
	cst$v_to_si_valid = [$bit],		! Set if conversion is "valid"
	cst$v_to_si_format_err = [$bit],	! Set if conversion doesn't 
                                                ! preserve formatting
	cst$v_to_si_noprint_err = [$bit],	! Set if conversion doesn't
                                                ! preserve nonprinting
	cst$v_to_si_graphic_err = [$bit],	! Set if conversion doesn't
                                                ! preserve graphic
    	cst$v_kludge = [$bit],			! Initialized to prevent overlap
	$align (WORD) blf$comma			! Force efficient alignment
	cst$v_to_typ_char = [$byte],    ! Equiv char set char for this index
	cst$v_to_typ_valid = [$bit],		! Set if conversion is "valid"
	cst$v_to_typ_format_err = [$bit],	! Set if conversion doesn't
                                                ! preserve formatting
	cst$v_to_typ_noprint_err = [$bit],	! Set if conversion doesn't 
                                                ! preserve non-printing
	cst$v_to_typ_graphic_err = [$bit]	! Set if conversion doesn't 
                                                ! preserve graphic
	TES;

LITERAL
    cst_size = $field_set_size,
    si$k_invalid = 26;                  ! ASCII SUB

!-- .end literal

!++
! .hl 1 Mechanism of definition
! 
!   The full details of the mechanism used in defining CST's are
! complicated.  This scheme was adopted because it is extremely
! powerful, and because the work of adding a new character set
! definition is very simple if approached in a cook-book fashion
! (recipes below).
! 
!   However, the price of this is that the mechanism is non-trivial.  If
! the mechanism itself breaks, you will need to understand it.
! Therefore a full explanation of it is included here.  Note, however,
! that if all you want to do is add a new character set, or change a few
! of the existing definitions, you don't need to know the full details.
! 
!   See the module that performs the actual string conversions (DIXSTR)
! for details of how the tables built here are used.
! 
!   Each character set is assigned a name.  This name must conform to
! the rules for BLISS names when appended to the end of a valid BLISS
! name.  Many of the macros used in defining character set tables take
! the character set name as a string literal as one of their arguments.
! It is a very important name.  Each string data type has, as one of its
! defining parameters, the name of the character set used to encode the
! data.  The association between the data types and the character sets
! is made solely in terms of the character set name.
! 
!   To define a character set, the following things must be done:
! .s 1.list 1
! .le;Select the character set name.
! .le;In file DIXCST, insert a definition of a macro DEF_CST_name, where
! "name" is the character set name selected.
! 
!   The body of the macro should consist of a series of calls to the
! macros LOC_DEF_TO_SI, LOC_DEF_TO_TYP, and DEF_SI_AND_TYP.  In all
! three cases the parameter list is the same -- see documentation on
! DEF_TO_SI or DEF_TO_TYP below.  LOC_DEF_TO_SI defines a conversion
! from the character set to SI.  LOC_DEF_TO_TYP defines a conversion
! from SI to the character set.  DEF_SI_AND_TYP does both.
! .le;After the definition of DEF_CST_name, place a call to COUNT_CST
! giving the name of the character set as the argument.
! .le;In file DIXSTR, place a call to BUILD_CST giving the character set
! name as the argument.  This expands to the actual conversion table.
! .end list
! 
!   In defining DEF_CST_name, be sure to include a conversion from SI
! >SI$K_INVALID>.  This is the SI code that will be presented if the
! source contains some invalid character. 
! 
!   The reason for the two "LOC" macros is as follows:  In the library
! pre-compilation of DIXCST, the DEF_CST_name macros are expanded once
! to find the maximum type and SI characters present in the table.  In
! the compilation of DIXSTR, the DEF_CST_name macros are expanded again
! to build the actual table initialization information.  These two
! different effects are obtained from expanding a single macro by
! establishing different defintions of the "LOC" macros in the two
! situations.  (DEF_SI_AND_TYP simply calls both "LOC" functions, so it
! needs no LOC definition).
!--


! ; .hl 2 Specific macros used

MACRO
    cst (table_size) =                  ! \.p;
    !
    ! ; Macro to define a CST of specified size.  Size should be MAX (max 
    ! ; type character, max SI character) + 1 .
    !
        BLOCKVECTOR [table_size, cst_size]   ! 
        FIELD (cst_fields)
    %,						! End CST definition
    cst_ref (addr, char_index, field_name) =    ! \.p;>
    !
    ! ; Make general structure reference to CST entry given necessary data.
    !
        BLOCKVECTOR [(addr), (char_index), field_name;  ! 
            1, cst_size]                ! Repetition count must be ctce, but is errelevant
    %,						! End cst_ref definition
    def_si_and_typ (char_index, si_index, format_err,   ! \.p;>
        print_err, graphic_err) =       ! \
    !
    ! ; This macro calls the local to-SI and to-TYP macros, one for each half
    ! ; of the 1-to-1 character conversion specified.
    !
        loc_def_to_si (char_index, si_index, format_err, print_err, graphic_err)
        loc_def_to_typ (char_index, si_index, format_err, print_err, graphic_err)
    %,						! End def_si_and_typ definition
    def_to_si (char_index, si_index, format_err,        ! \.p;>
        print_err, graphic_err) =       ! \
    !
    ! ; This macro generates preset-entries for the to-SI half of a character
    ! ; conversion.
    !
        [char_index, cst$v_to_si_char] = si_index,
        [char_index, cst$v_to_si_valid] = 1,
        [char_index, cst$v_to_si_format_err] = format_err,
        [char_index, cst$v_to_si_noprint_err] = print_err,
        [char_index, cst$v_to_si_graphic_err] = graphic_err,
    %,                                  ! End def_to_si definition
    def_to_typ (char_index, si_index, format_err,       ! \.p;>
        print_err, graphic_err) =       ! \
    !
    ! ; This macro generates preset-entries for the to-type half of a character
    ! ; conversion.
    !
        [si_index, cst$v_to_typ_char] = char_index,
        [si_index, cst$v_to_typ_valid] = 1,
        [si_index, cst$v_to_typ_format_err] = format_err,
        [si_index, cst$v_to_typ_noprint_err] = print_err,
        [si_index, cst$v_to_typ_graphic_err] = graphic_err,
    %,                                  ! End def_to_typ
    count_cst (char_set_name) =         ! \.p;>
    !
    ! ; This macro, when called with a valid character set name and a proper
    ! ; prior definition of DEF_CST_name, will define:
    ! ; .list 0, " "
    ! ; .le;CST$K_name_MAX          Max character code occurring in set
    ! ; .le;CST$K_name_SI_MAX       Max SI code assigned to character in set
    ! ; .end list
    !
        !
        ! First, go through that stack of data to determine maximum ASCII 
        ! and SI characters involved.
        !
        MACRO
            %QUOTE %QUOTE loc_def_to_si (typ_char, si_char, skp1, skp2, skp3) =
                %ASSIGN (si_max, MAX (si_max, si_char))
                %ASSIGN (typ_max, MAX (typ_max, typ_char)) 
            %QUOTE %,
            !
            ! Define to-typ to be same as to-si, since all we care about are
            ! the max values of some params, and they're in the same order
            ! for both.
            !
            %QUOTE %QUOTE loc_def_to_typ = loc_def_to_si
            %QUOTE %
        ;

        !
        ! Now, extract that information from the above table.
        !

        COMPILETIME
            si_max = 0,
            typ_max = 0;

        %NAME ('def_cst_', char_set_name)

        LITERAL
            %NAME ('cst$k_', char_set_name, '_max') = %NUMBER (typ_max),
            %NAME ('cst$k_', char_set_name, '_si_max') = %NUMBER (si_max);

        %PRINT (%NAME ('cst$k_', char_set_name, '_max'), '=',
            %NUMBER (%NAME ('cst$k_', char_set_name, '_max')))
        %PRINT (%NAME ('cst$k_', char_set_name, '_si_max'), '=', 
            %NUMBER (%NAME ('cst$k_', char_set_name, '_si_max')))

        UNDECLARE
            si_max,
            typ_max,
            %QUOTE %QUOTE loc_def_to_si,
            %QUOTE %QUOTE loc_def_to_typ;
    % ,					! End count_cst definition
    build_cst (char_set_name) =         ! \.p;>
    !++
    ! This macro, when called with a valid character set name and a proper
    ! prior definition of DEF_CST_name, CST$K_name_MAX, and CST$K_name_SI_MAX
    ! will define:
    ! .list  0, " "
    ! .le;DIX$ACST_name           CST for character set
    ! .end list
    !
    !   DEF_CST_name must be previously defined to call def_si_and_typ or 
    ! either of the local half-conversion macros passing
    ! character code, SI equivalent, and flags for format preservation
    ! error, non-printing preservation error, and graphic preservation error
    ! for each character in the character set.
    !--

        MACRO
            %QUOTE %QUOTE loc_def_to_si = %QUOTE %QUOTE def_to_si
                %QUOTE % ,
            %QUOTE %QUOTE loc_def_to_typ = %QUOTE %QUOTE def_to_typ
                %QUOTE % ;

        OWN                             ! ;   Place CST tables in OWN storage.
            %NAME ('dix$acst_', char_set_name) :
                cst (MAX (%NAME ('cst$k_', char_set_name, '_max'),
                    %NAME ('cst$k_', char_set_name, '_si_max')) + 1)
                                        ! Define character set table 
    		PSECT (readonly_psect)  ! \Assign to \.
                PRESET (                ! Begin PRESET
                %NAME ('def_cst_', char_set_name)
                [%NAME ('cst$k_', char_set_name, '_max'), cst$v_kludge] = 1 !
                                        ! Previous macro leaves trailing comma
                );                      ! End PRESET

        UNDECLARE                       ! Clean up our mess
            %QUOTE %QUOTE loc_def_to_si,
            %QUOTE %QUOTE loc_def_to_typ;

    %                                   ! End bld_cst definition
;                                       ! End MACRO statement
%SBTTL 'Define ASCII conversion table (dix$acst_ascii)'

!++
! .hl 1 Character set ASCII
!--

MACRO
    !
    ! Put all the ascii conversion information into a macro definition
    !
    def_cst_ascii =
        def_si_and_typ (  0,   0, 0, 0, 0)	! NUL
        def_si_and_typ (  1,   1, 0, 0, 0)	! (arbitrary)
        def_si_and_typ (  2,   2, 0, 0, 0)	! (arbitrary)
        def_si_and_typ (  3,   3, 0, 0, 0)	! (arbitrary)
        def_si_and_typ (  4,   4, 0, 0, 0)	! (arbitrary)
        def_si_and_typ (  5,   5, 0, 0, 0)	! (arbitrary)
        def_si_and_typ (  6,   6, 0, 0, 0)	! (arbitrary)
        def_si_and_typ (  7,   7, 0, 0, 0)	! BEL (ring bell)
        def_si_and_typ (  8,   8, 0, 0, 0)	! BS (backspace)
        def_si_and_typ (  9,   9, 0, 0, 0)	! HT (horizontal tab)
        def_si_and_typ ( 10,  10, 0, 0, 0)	! LF (line feed)
        def_si_and_typ ( 11,  11, 0, 0, 0)	! VT (vertical tab)
        def_si_and_typ ( 12,  12, 0, 0, 0)	! FF (form feed)
        def_si_and_typ ( 13,  13, 0, 0, 0)	! CR (carriage return)
        def_si_and_typ ( 14,  14, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 15,  15, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 16,  16, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 17,  17, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 18,  18, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 19,  19, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 20,  20, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 21,  21, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 22,  22, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 23,  23, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 24,  24, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 25,  25, 0, 0, 0)	! (arbitrary)
        loc_def_to_si ( 26, si$k_invalid, 0, 0, 0)      ! SUB (invalid character)
        loc_def_to_typ ( 92, si$k_invalid, 0, 0, 1)     ! Invalid converts to "\"
        def_si_and_typ ( 27,  27, 0, 0, 0)	! ESC (escape sequence start)
        def_si_and_typ ( 28,  28, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 29,  29, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 30,  30, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 31,  31, 0, 0, 0)	! (arbitrary)
        def_si_and_typ ( 32,  32, 0, 0, 0)	! Space
        def_si_and_typ ( 33,  33, 0, 0, 0)	! "!"
        def_si_and_typ ( 34,  34, 0, 0, 0)	! '"' (double quote)
        def_si_and_typ ( 35,  35, 0, 0, 0)	! "#"
        def_si_and_typ ( 36,  36, 0, 0, 0)	! "$"
        def_si_and_typ ( 37,  37, 0, 0, 0)	! "%"
        def_si_and_typ ( 38,  38, 0, 0, 0)	! "&"
        def_si_and_typ ( 39,  39, 0, 0, 0)	! "'" (single quote)
        def_si_and_typ ( 40,  40, 0, 0, 0)	! "("
        def_si_and_typ ( 41,  41, 0, 0, 0)	! ")"
        def_si_and_typ ( 42,  42, 0, 0, 0)	! "*"
        def_si_and_typ ( 43,  43, 0, 0, 0)	! "+"
        def_si_and_typ ( 44,  44, 0, 0, 0)	! "," (comma)
        def_si_and_typ ( 45,  45, 0, 0, 0)	! "-" (minus)
        def_si_and_typ ( 46,  46, 0, 0, 0)	! "." (period)
        def_si_and_typ ( 47,  47, 0, 0, 0)	! "/" (slash)
        def_si_and_typ ( 48,  48, 0, 0, 0)	! "0" (zero)
        def_si_and_typ ( 49,  49, 0, 0, 0)	! "1" (one)
        def_si_and_typ ( 50,  50, 0, 0, 0)	! "2"
        def_si_and_typ ( 51,  51, 0, 0, 0)	! "3"
        def_si_and_typ ( 52,  52, 0, 0, 0)	! "4"
        def_si_and_typ ( 53,  53, 0, 0, 0)	! "5"
        def_si_and_typ ( 54,  54, 0, 0, 0)	! "6"
        def_si_and_typ ( 55,  55, 0, 0, 0)	! "7"
        def_si_and_typ ( 56,  56, 0, 0, 0)	! "8"
        def_si_and_typ ( 57,  57, 0, 0, 0)	! "9"
        def_si_and_typ ( 58,  58, 0, 0, 0)	! ":" (colon)
        def_si_and_typ ( 59,  59, 0, 0, 0)	! ";" (semicolon)
        def_si_and_typ ( 60,  60, 0, 0, 0)	! "<" (less than)
        def_si_and_typ ( 61,  61, 0, 0, 0)	! "=" (equals)
        def_si_and_typ ( 62,  62, 0, 0, 0)	! ">" (greater than)
        def_si_and_typ ( 63,  63, 0, 0, 0)	! "?"
        def_si_and_typ ( 64,  64, 0, 0, 0)	! "@" (at sign)
        def_si_and_typ ( 65,  65, 0, 0, 0)	! "A" (capital A)
        def_si_and_typ ( 66,  66, 0, 0, 0)	! "B"
        def_si_and_typ ( 67,  67, 0, 0, 0)	! "C"
        def_si_and_typ ( 68,  68, 0, 0, 0)	! "D"
        def_si_and_typ ( 69,  69, 0, 0, 0)	! "E"
        def_si_and_typ ( 70,  70, 0, 0, 0)	! "F"
        def_si_and_typ ( 71,  71, 0, 0, 0)	! "G"
        def_si_and_typ ( 72,  72, 0, 0, 0)	! "H"
        def_si_and_typ ( 73,  73, 0, 0, 0)	! "I"
        def_si_and_typ ( 74,  74, 0, 0, 0)	! "J"
        def_si_and_typ ( 75,  75, 0, 0, 0)	! "K"
        def_si_and_typ ( 76,  76, 0, 0, 0)	! "L"
        def_si_and_typ ( 77,  77, 0, 0, 0)	! "M"
        def_si_and_typ ( 78,  78, 0, 0, 0)	! "N"
        def_si_and_typ ( 79,  79, 0, 0, 0)	! "O"
        def_si_and_typ ( 80,  80, 0, 0, 0)	! "P"
        def_si_and_typ ( 81,  81, 0, 0, 0)	! "Q"
        def_si_and_typ ( 82,  82, 0, 0, 0)	! "R"
        def_si_and_typ ( 83,  83, 0, 0, 0)	! "S"
        def_si_and_typ ( 84,  84, 0, 0, 0)	! "T"
        def_si_and_typ ( 85,  85, 0, 0, 0)	! "U"
        def_si_and_typ ( 86,  86, 0, 0, 0)	! "V"
        def_si_and_typ ( 87,  87, 0, 0, 0)	! "W"
        def_si_and_typ ( 88,  88, 0, 0, 0)	! "X"
        def_si_and_typ ( 89,  89, 0, 0, 0)	! "Y"
        def_si_and_typ ( 90,  90, 0, 0, 0)	! "Z"
        def_si_and_typ ( 91,  91, 0, 0, 0)	! "[" (left square bracket)
        def_si_and_typ ( 92,  92, 0, 0, 0)	! "\" (back slash)
        def_si_and_typ ( 93,  93, 0, 0, 0)	! "]" (right square bracket)
        def_si_and_typ ( 94,  94, 0, 0, 0)	! "^" (caret)
        def_si_and_typ ( 95,  95, 0, 0, 0)	! "_" (underscore)
        def_si_and_typ ( 96,  96, 0, 0, 0)	! "`" (accent grave)
        def_si_and_typ ( 97,  97, 0, 0, 0)	! "a" (lower case A)
        def_si_and_typ ( 98,  98, 0, 0, 0)	! "b"
        def_si_and_typ ( 99,  99, 0, 0, 0)	! "c"
        def_si_and_typ (100, 100, 0, 0, 0)	! "d"
        def_si_and_typ (101, 101, 0, 0, 0)	! "e"
        def_si_and_typ (102, 102, 0, 0, 0)	! "f"
        def_si_and_typ (103, 103, 0, 0, 0)	! "g"
        def_si_and_typ (104, 104, 0, 0, 0)	! "h"
        def_si_and_typ (105, 105, 0, 0, 0)	! "i"
        def_si_and_typ (106, 106, 0, 0, 0)	! "j"
        def_si_and_typ (107, 107, 0, 0, 0)	! "k"
        def_si_and_typ (108, 108, 0, 0, 0)	! "l"
        def_si_and_typ (109, 109, 0, 0, 0)	! "m"
        def_si_and_typ (110, 110, 0, 0, 0)	! "n"
        def_si_and_typ (111, 111, 0, 0, 0)	! "o"
        def_si_and_typ (112, 112, 0, 0, 0)	! "p"
        def_si_and_typ (113, 113, 0, 0, 0)	! "q"
        def_si_and_typ (114, 114, 0, 0, 0)	! "r"
        def_si_and_typ (115, 115, 0, 0, 0)	! "s"
        def_si_and_typ (116, 116, 0, 0, 0)	! "t"
        def_si_and_typ (117, 117, 0, 0, 0)	! "u"
        def_si_and_typ (118, 118, 0, 0, 0)	! "v"
        def_si_and_typ (119, 119, 0, 0, 0)	! "w"
        def_si_and_typ (120, 120, 0, 0, 0)	! "x"
        def_si_and_typ (121, 121, 0, 0, 0)	! "y"
        def_si_and_typ (122, 122, 0, 0, 0)	! "z"
        def_si_and_typ (123, 123, 0, 0, 0)	! "{" (left curly brace)
        def_si_and_typ (124, 124, 0, 0, 0)	! "|" (vertical bar)
        def_si_and_typ (125, 125, 0, 0, 0)	! "}" (right curly brace)
        def_si_and_typ (126, 126, 0, 0, 0)	! "~" (tilde)
        def_si_and_typ (127, 127, 0, 0, 0) 	! (arbitrary)
    %;
count_cst ('ascii')
%SBTTL 'Define SIXBIT conversion table (dix$acst_sixbit)'

!++
! .hl 1 Character set SIXBIT
!--

MACRO
    def_cst_sixbit =
        def_si_and_typ (0, 32, 0, 0, 0) ! Space
        def_si_and_typ (1, 33, 0, 0, 0) ! "!" (exclamation mark)
        def_si_and_typ (2, 34, 0, 0, 0) ! '"' (double quote)
        def_si_and_typ (3, 35, 0, 0, 0) ! "#" (commercial pould/hash/sharp)
        def_si_and_typ (4, 36, 0, 0, 0) ! "$" (dollar sign)
        def_si_and_typ (5, 37, 0, 0, 0) ! "%" (percent sign)
        def_si_and_typ (6, 38, 0, 0, 0) ! "&" (ampersand)
        def_si_and_typ (7, 39, 0, 0, 0) ! "'" (single quote/apostrophe)
        def_si_and_typ (8, 40, 0, 0, 0) ! "(" (left paren)
        def_si_and_typ (9, 41, 0, 0, 0) ! ")" (right paren)
        def_si_and_typ (10, 42, 0, 0, 0)        ! "*" (asterisk)
        def_si_and_typ (11, 43, 0, 0, 0)        ! "+" (plus)
        def_si_and_typ (12, 44, 0, 0, 0)        ! "," (comma)
        def_si_and_typ (13, 45, 0, 0, 0)        ! "-" (minus)
        def_si_and_typ (14, 46, 0, 0, 0)        ! "." (period)
        def_si_and_typ (15, 47, 0, 0, 0)        ! "/" (slash)
        def_si_and_typ (16, 48, 0, 0, 0)        ! "0" (digit zero)
        def_si_and_typ (17, 49, 0, 0, 0)        ! "1" (digit one)
        def_si_and_typ (18, 50, 0, 0, 0)        ! "2" (digit two)
        def_si_and_typ (19, 51, 0, 0, 0)        ! "3"
        def_si_and_typ (20, 52, 0, 0, 0)        ! "4"
        def_si_and_typ (21, 53, 0, 0, 0)        ! "5"
        def_si_and_typ (22, 54, 0, 0, 0)        ! "6"
        def_si_and_typ (23, 55, 0, 0, 0)        ! "7"
        def_si_and_typ (24, 56, 0, 0, 0)        ! "8"
        def_si_and_typ (25, 57, 0, 0, 0)        ! "9"
        def_si_and_typ (26, 58, 0, 0, 0)        ! ":" (colon)
        def_si_and_typ (27, 59, 0, 0, 0)        ! ";" (semi-colon)
        def_si_and_typ (28, 60, 0, 0, 0)        ! "<" (greater-than/left angle bracket)
        def_si_and_typ (29, 61, 0, 0, 0)        ! "=" (equals)
        def_si_and_typ (30, 62, 0, 0, 0)        ! ">" (less-than/right angle bracket)
        def_si_and_typ (31, 63, 0, 0, 0)        ! "?" (question mark)
        def_si_and_typ (32, 64, 0, 0, 0)        ! "@" (at sign)
        def_si_and_typ (33, 65, 0, 0, 0)        ! "A" (capital A)
        def_si_and_typ (34, 66, 0, 0, 0)        ! "B"
        def_si_and_typ (35, 67, 0, 0, 0)        ! "C"
        def_si_and_typ (36, 68, 0, 0, 0)        ! "D"
        def_si_and_typ (37, 69, 0, 0, 0)        ! "E"
        def_si_and_typ (38, 70, 0, 0, 0)        ! "F"
        def_si_and_typ (39, 71, 0, 0, 0)        ! "G"
        def_si_and_typ (40, 72, 0, 0, 0)        ! "H"
        def_si_and_typ (41, 73, 0, 0, 0)        ! "I"
        def_si_and_typ (42, 74, 0, 0, 0)        ! "J"
        def_si_and_typ (43, 75, 0, 0, 0)        ! "K"
        def_si_and_typ (44, 76, 0, 0, 0)        ! "L"
        def_si_and_typ (45, 77, 0, 0, 0)        ! "M"
        def_si_and_typ (46, 78, 0, 0, 0)        ! "N"
        def_si_and_typ (47, 79, 0, 0, 0)        ! "O" (capital letter O)
        def_si_and_typ (48, 80, 0, 0, 0)        ! "P"
        def_si_and_typ (49, 81, 0, 0, 0)        ! "Q"
        def_si_and_typ (50, 82, 0, 0, 0)        ! "R"
        def_si_and_typ (51, 83, 0, 0, 0)        ! "S"
        def_si_and_typ (52, 84, 0, 0, 0)        ! "T"
        def_si_and_typ (53, 85, 0, 0, 0)        ! "U"
        def_si_and_typ (54, 86, 0, 0, 0)        ! "V"
        def_si_and_typ (55, 87, 0, 0, 0)        ! "W"
        def_si_and_typ (56, 88, 0, 0, 0)        ! "X"
        def_si_and_typ (57, 89, 0, 0, 0)        ! "Y"
        def_si_and_typ (58, 90, 0, 0, 0)        ! "Z"
        def_si_and_typ (59, 91, 0, 0, 0)        ! "[" (left square bracket)
        def_si_and_typ (60, 92, 0, 0, 0)        ! "\" (backslash)
        def_si_and_typ (61, 93, 0, 0, 0)        ! "]" (right square bracket)
        def_si_and_typ (62, 94, 0, 0, 0)        ! "^" (caret/uparrow)
        def_si_and_typ (63, 95, 0, 0, 0)        ! "_" (underscore)
        loc_def_to_typ (33, 97, 0, 0, 0)        ! lc to UC => A
        loc_def_to_typ (34, 98, 0, 0, 0)        ! lc to UC => B
        loc_def_to_typ (35, 99, 0, 0, 0)        ! lc to UC => C
        loc_def_to_typ (36, 100, 0, 0, 0)       ! lc to UC => D
        loc_def_to_typ (37, 101, 0, 0, 0)       ! lc to UC => E
        loc_def_to_typ (38, 102, 0, 0, 0)       ! lc to UC => F
        loc_def_to_typ (39, 103, 0, 0, 0)       ! lc to UC => G
        loc_def_to_typ (40, 104, 0, 0, 0)       ! lc to UC => H
        loc_def_to_typ (41, 105, 0, 0, 0)       ! lc to UC => I
        loc_def_to_typ (42, 106, 0, 0, 0)       ! lc to UC => J
        loc_def_to_typ (43, 107, 0, 0, 0)       ! lc to UC => K
        loc_def_to_typ (44, 108, 0, 0, 0)       ! lc to UC => L
        loc_def_to_typ (45, 109, 0, 0, 0)       ! lc to UC => M
        loc_def_to_typ (46, 110, 0, 0, 0)       ! lc to UC => N
        loc_def_to_typ (47, 111, 0, 0, 0)       ! lc to UC => O
        loc_def_to_typ (48, 112, 0, 0, 0)       ! lc to UC => P
        loc_def_to_typ (49, 113, 0, 0, 0)       ! lc to UC => Q
        loc_def_to_typ (50, 114, 0, 0, 0)       ! lc to UC => R
        loc_def_to_typ (51, 115, 0, 0, 0)       ! lc to UC => S
        loc_def_to_typ (52, 116, 0, 0, 0)       ! lc to UC => T
        loc_def_to_typ (53, 117, 0, 0, 0)       ! lc to UC => U
        loc_def_to_typ (54, 118, 0, 0, 0)       ! lc to UC => V
        loc_def_to_typ (55, 119, 0, 0, 0)       ! lc to UC => W
        loc_def_to_typ (56, 120, 0, 0, 0)       ! lc to UC => X
        loc_def_to_typ (57, 121, 0, 0, 0)       ! lc to UC => Y
        loc_def_to_typ (58, 122, 0, 0, 0)       ! lc to UC => Z
        loc_def_to_typ (60, si$k_invalid, 0, 0, 1) ! SI invalid prints as "\"
        loc_def_to_typ (59, 123, 0, 0, 1)       ! SI "{" becomes "["
        loc_def_to_typ (61, 125, 0, 0, 1)       ! SI "}" becomes "]"
    %;
count_cst ('sixbit')
%SBTTL 'Define EBCDIC conversion table (dix$acst_ebcdic)'

!++
! .HL 1 Character set EBCDIC
!   This is based on EBCDIC, not IBM multinational.  The definitions come from
! the DEC multinational standard, and the existing DEC-20 COBOL conversions.
!--

MACRO
    def_cst_ebcdic =
        def_si_and_typ (%X'05', %X'09', 0, 0, 0)        ! Horizontal Tab
        def_si_and_typ (%X'0B', %X'0B', 0, 0, 0)        ! Vertical Tab
        def_si_and_typ (%X'0C', %X'0C', 0, 0, 0)        ! Form Feed
        def_si_and_typ (%X'15', %X'0D', 0, 0, 0)        ! Carriage return/new line
    	def_si_and_typ (%X'16', %X'08', 0, 0, 0)	! Back space
        def_si_and_typ (%X'25', %X'0A', 0, 0, 0)        ! Line feed
        def_si_and_typ (%X'27', %X'16', 0, 0, 0)        ! Escape
        def_si_and_typ (%X'2F', %X'07', 0, 0, 0)        ! Bell
        def_si_and_typ (%X'40', %X'20', 0, 0, 0)        ! Space
        def_si_and_typ (%X'4B', %X'2E', 0, 0, 0)        ! period/decimal point
        def_si_and_typ (%X'4C', %X'3C', 0, 0, 0)        ! Less than
        def_si_and_typ (%X'4D', %X'28', 0, 0, 0)        ! Open paren
        def_si_and_typ (%X'4E', %X'2B', 0, 0, 0)        ! Plus
        loc_def_to_si (%X'4F', %X'7C', 0, 0, 1)         ! Short vertical bar -> vertical bar
        def_si_and_typ (%X'50', %X'26', 0, 0, 0)        ! Ampersand
        def_si_and_typ (%X'5A', %X'21', 0, 0, 0)        ! Exclamation point
        def_si_and_typ (%X'5B', %X'24', 0, 0, 0)        ! Dollar sign
        def_si_and_typ (%X'5C', %X'2A', 0, 0, 0)        ! Asterisk
        def_si_and_typ (%X'5D', %X'29', 0, 0, 0)        ! Close paren
        def_si_and_typ (%X'5E', %X'3B', 0, 0, 0)        ! Semicolon
        def_si_and_typ (%X'60', %X'2D', 0, 0, 0)        ! hyphen/minus
        def_si_and_typ (%X'61', %X'2F', 0, 0, 0)        ! slash/slant/solidus
        def_si_and_typ (%X'6A', %X'7C', 0, 0, 0)        ! vertical line
        def_si_and_typ (%X'6B', %X'2C', 0, 0, 0)        ! Comma
        def_si_and_typ (%X'6C', %X'25', 0, 0, 0)        ! Percent sign
        def_si_and_typ (%X'6D', %X'5F', 0, 0, 0)        ! Underline
        def_si_and_typ (%X'6E', %X'3E', 0, 0, 0)        ! Greater than
        def_si_and_typ (%X'6F', %X'3F', 0, 0, 0)        ! Question mark
        def_si_and_typ (%X'79', %X'60', 0, 0, 0)        ! opening single quote
        def_si_and_typ (%X'7A', %X'3A', 0, 0, 0)        ! Colon
        def_si_and_typ (%X'7B', %X'23', 0, 0, 0)        ! Number/pound sign
        def_si_and_typ (%X'7C', %X'40', 0, 0, 0)        ! Commercial at
        def_si_and_typ (%X'7D', %X'27', 0, 0, 0)        ! Apostrophe
        def_si_and_typ (%X'7E', %X'3D', 0, 0, 0)        ! Equals
        def_si_and_typ (%X'7F', %X'22', 0, 0, 0)        ! Double quotes
        def_si_and_typ (%X'81', %X'61', 0, 0, 0)        ! small a
        def_si_and_typ (%X'82', %X'62', 0, 0, 0)        ! small b
        def_si_and_typ (%X'83', %X'63', 0, 0, 0)        ! small c
        def_si_and_typ (%X'84', %X'64', 0, 0, 0)        ! small d
        def_si_and_typ (%X'85', %X'65', 0, 0, 0)        ! small e
        def_si_and_typ (%X'86', %X'66', 0, 0, 0)        ! small f
        def_si_and_typ (%X'87', %X'67', 0, 0, 0)        ! small g
        def_si_and_typ (%X'88', %X'68', 0, 0, 0)        ! small h
        def_si_and_typ (%X'89', %X'69', 0, 0, 0)        ! small i
        def_si_and_typ (%X'91', %X'6A', 0, 0, 0)        ! small j
        def_si_and_typ (%X'92', %X'6B', 0, 0, 0)        ! small k
        def_si_and_typ (%X'93', %X'6C', 0, 0, 0)        ! small l
        def_si_and_typ (%X'94', %X'6D', 0, 0, 0)        ! small m
        def_si_and_typ (%X'95', %X'6E', 0, 0, 0)        ! small n
        def_si_and_typ (%X'96', %X'6F', 0, 0, 0)        ! small o
        def_si_and_typ (%X'97', %X'70', 0, 0, 0)        ! small p
        def_si_and_typ (%X'98', %X'71', 0, 0, 0)        ! small q
        def_si_and_typ (%X'99', %X'72', 0, 0, 0)        ! small r
        def_si_and_typ (%X'A1', %X'7E', 0, 0, 0)        ! tilde
        def_si_and_typ (%X'A2', %X'73', 0, 0, 0)        ! small s
        def_si_and_typ (%X'A3', %X'74', 0, 0, 0)        ! small t
        def_si_and_typ (%X'A4', %X'75', 0, 0, 0)        ! small u
        def_si_and_typ (%X'A5', %X'76', 0, 0, 0)        ! small v
        def_si_and_typ (%X'A6', %X'77', 0, 0, 0)        ! small w
        def_si_and_typ (%X'A7', %X'78', 0, 0, 0)        ! small x
        def_si_and_typ (%X'A8', %X'79', 0, 0, 0)        ! small y
        def_si_and_typ (%X'A9', %X'7A', 0, 0, 0)        ! small z
    	def_si_and_typ (%X'AD', %X'5B', 0, 0, 0)	! left square bracket
    	def_si_and_typ (%X'BD', %X'5D', 0, 0, 0)	! right square bracket
        def_si_and_typ (%X'C0', %X'7B', 0, 0, 0)        ! opening brace
        def_si_and_typ (%X'C1', %X'41', 0, 0, 0)        ! "A"
        def_si_and_typ (%X'C2', %X'42', 0, 0, 0)        ! "B"
        def_si_and_typ (%X'C3', %X'43', 0, 0, 0)        ! "C"
        def_si_and_typ (%X'C4', %X'44', 0, 0, 0)        ! "D"
        def_si_and_typ (%X'C5', %X'45', 0, 0, 0)        ! "E"
        def_si_and_typ (%X'C6', %X'46', 0, 0, 0)        ! "F"
        def_si_and_typ (%X'C7', %X'47', 0, 0, 0)        ! "G"
        def_si_and_typ (%X'C8', %X'48', 0, 0, 0)        ! "H"
        def_si_and_typ (%X'C9', %X'49', 0, 0, 0)        ! "I"
        def_si_and_typ (%X'D0', %X'7D', 0, 0, 0)        ! closing brace
        def_si_and_typ (%X'D1', %X'4A', 0, 0, 0)        ! "J"
        def_si_and_typ (%X'D2', %X'4B', 0, 0, 0)        ! "K"
        def_si_and_typ (%X'D3', %X'4C', 0, 0, 0)        ! "L"
        def_si_and_typ (%X'D4', %X'4D', 0, 0, 0)        ! "M"
        def_si_and_typ (%X'D5', %X'4E', 0, 0, 0)        ! "N"
        def_si_and_typ (%X'D6', %X'4F', 0, 0, 0)        ! "O"
        def_si_and_typ (%X'D7', %X'50', 0, 0, 0)        ! "P"
        def_si_and_typ (%X'D8', %X'51', 0, 0, 0)        ! "Q"
        def_si_and_typ (%X'D9', %X'52', 0, 0, 0)        ! "R"
        def_si_and_typ (%X'E0', %X'5C', 0, 0, 0)        ! Back slash
        def_si_and_typ (%X'E2', %X'53', 0, 0, 0)        ! "S"
        def_si_and_typ (%X'E3', %X'54', 0, 0, 0)        ! "T"
        def_si_and_typ (%X'E4', %X'55', 0, 0, 0)        ! "U"
        def_si_and_typ (%X'E5', %X'56', 0, 0, 0)        ! "V"
        def_si_and_typ (%X'E6', %X'57', 0, 0, 0)        ! "W"
        def_si_and_typ (%X'E7', %X'58', 0, 0, 0)        ! "X"
        def_si_and_typ (%X'E8', %X'59', 0, 0, 0)        ! "Y"
        def_si_and_typ (%X'E9', %X'5A', 0, 0, 0)        ! "Z"
        def_si_and_typ (%X'F0', %X'30', 0, 0, 0)        ! Digit 0
        def_si_and_typ (%X'F1', %X'31', 0, 0, 0)        ! Digit 1
        def_si_and_typ (%X'F2', %X'32', 0, 0, 0)        ! Digit 2
        def_si_and_typ (%X'F3', %X'33', 0, 0, 0)        ! Digit 3
        def_si_and_typ (%X'F4', %X'34', 0, 0, 0)        ! Digit 4
        def_si_and_typ (%X'F5', %X'35', 0, 0, 0)        ! Digit 5
        def_si_and_typ (%X'F6', %X'36', 0, 0, 0)        ! Digit 6
        def_si_and_typ (%X'F7', %X'37', 0, 0, 0)        ! Digit 7
        def_si_and_typ (%X'F8', %X'38', 0, 0, 0)        ! Digit 8
        def_si_and_typ (%X'F9', %X'39', 0, 0, 0)        ! Digit 9
    	loc_def_to_typ (%X'E0', si$k_invalid, 0, 0, 0)	! for invalid
    % ;                                 ! end def_cst_ebcdic
count_cst ('ebcdic')
%sbttl 'Cleanup'

!++
! .hl 1 Cleanup
! 
!   XPORT isn't housebroken yet, so it is necessary to trash this
! definition:
!--

UNDECLARE
    %QUOTE $descriptor;			! \\