         PCC      0
************************************************************************
*
*
*M*      ESTD      EBCD STANDARD KEYBOARD TRANSLATION TABLE FOR COC HANDLER
*
*
************************************************************************
*P*  NAME:    ESTD
*P*  PURPOSE: PROVIDE INPUT AND OUTPUT TRANSLATION INFORMATION TO
*P*           THE COC HANDLER FOR EBCD STANDARD TERMINALS.
************************************************************************
*
         DEF      ESTD:             XDELTA/PATCHING SYMBOL
         DEF      ESTD              EBCD STANDARD OUTPUT TRANSLATE TABLE
         DEF      ESTDLC            EBCD STANDARD INPUT TRANSLATE TABLE FOR
*,*                                 LOWER CASE CHARACTERS
         DEF      ESTDUC            EBCD STANDARD INPUT TRANSLATE TABLE FOR
*,*                                 UPPER CASE CHARACTERS
         DEF      ESTDTX            DEF WHOSE VALUE IS NAME OF TABLE
ESTDTX   EQU      X'7FFFFFFF'||-(X'7FFFFFFF'&'ESTD'+1)
*
ESTD:    EQU      %
         TITLE    '2741 EBCD STANDARD INPUT TRANSLATION TABLE'
2741ARUB SET      0
************************************************************************
*F*  NAME:    ESTDLC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR EBCD STANDARD LOWER CASE CHARACTERS.
*F*  DESCRIPTION:  ESTDLC, INDEXED BY A LOWER CASE EBCD STANDARD
*F*           CHARACTER, YIELDS THE CORRESPONDING EBCDIC CHARACTER.
************************************************************************
*
ESTDLC   EQU      %       EBCD STANDARD TO EBCDIC - LOWER CASE INPUT
*
*   0
         DATA     X'40607C50'         BLANK ,   '-'  ,   '@'  ,   '&'
         DATA     X'F898A888'          '8'  ,  LC'Q' ,  LC'Y' ,  LC'H'
         DATA     X'F494A484'          '4'  ,  LC'M' ,  LC'U' ,  LC'D'
         DATA     X'12030214'       PN-->DC2,RES->ETX,BY-->STX,PF-->DC4
*   1
         DATA     X'F292A282'          '2'  ,  LC'K' ,  LC'S' ,  LC'B
         DATA     X'F0000000'         ZERO  , UNUSED , UNUSED , UNUSED
         DATA     X'F696A686'          '6'  ,  LC'O' ,  LC'W' ,  LC'F'
         DATA     X'00081700'       UC-->N/A,  'BS'  ,EOB->ETB,LC-->N/A
*   2
         DATA     X'F1916181'          '1'  ,  LC'J' ,   '/'  ,  LC'A'
         DATA     X'F999A989'          '9'  ,  LC'R' ,  LC'Z' ,  LC'I'
         DATA     X'F595A585'          '5'  ,  LC'N' ,  LC'V' ,  LC'E'
         DATA     X'130D2005'       RS-->DC3,NL->'CR',LF->INDX,  'HT'
*   3
         DATA     X'F393A383'          '3'  ,  LC'L' ,  LC'T' ,  LC'C'
         DATA     X'7B5B6B4B'          '#'  ,   '%'  ,   ','  ,   '.'
         DATA     X'F797A787'          '7'  ,  LC'P' ,  LC'X' ,  LC'G'
         DATA     X'04000100'         'EOT' ,IL-->IGN,PRE->SOH,DEL->IGN
*
         PAGE
************************************************************************
*F*  NAME:    ESTDUC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR EBCD STANDARD UPPER CASE CHARACTERS.
*F*  DESCRIPTION:  ESTDUC, INDEXED BY AN UPPER CASE EBCD STANDARD
*F*           CHARACTER, YIELDS THE CORRESPONDING EBCDIC CHARACTER.
************************************************************************
*
ESTDUC   EQU      %       EBCD STANDARD TO EBCDIC - UPPER CASE INPUT
*
*   0
         DATA     X'406D6A4E'         BLANK ,UNDERLIN,  CENTS ,   '+'
         TEXT     '*QYH'               '*'  ,   'Q'  ,   'Y'  ,   'H'
         TEXT     ':MUD'               ':'  ,   'M'  ,   'U'  ,   'D'
         DATA     X'12030214'       PN-->DC2,RES->ETX,BY-->STX,PF-->DC4
*   1
         TEXT     '<KSB'               '<'  ,   'K'  ,   'S'  ,   'B'
         DATA     X'5D000000'          ')'  , UNUSED , UNUSED , UNUSED
         DATA     X'7DD6E6C6'          '''  ,   'O'  ,   'W'  ,   'F'
         DO       2741ARUB=1
         DATA     X'00181700'       UC-->N/A,BS-->CAN,EOB->ETB,LC-->N/A
         ELSE
         DATA     X'00081700'       UC-->N/A,  'BS'  ,EOB->ETB,LC-->N/A
         FIN
*   2
         DATA     X'7ED16FC1'          '='  ,   'J'  ,QUEST MK,   'A'
         TEXT     '(RZI'               '('  ,   'R'  ,   'Z'  ,   'I'
         TEXT     '%NVE'               '%'  ,   'N'  ,   'V'  ,   'E'
         DATA     X'13152005'       RS-->DC3,  'NL'  ,LF->INDX,  'HT'
*   3
         TEXT     ';LTC'               ';'  ,   'L'  ,   'T'  ,   'C'
         DATA     X'7F5A4F5F'       QUOTE MK,EXCL. MK,LOGIC OR,LOGIC NOT
         TEXT     '>PXG'               '>'  ,   'P'  ,   'X'  ,   'G'
         DATA     X'04000100'         'EOT' ,IL-->IGN,PRE->SOH,DEL->IGN
         TITLE    '2741 EBCD STANDARD OUTPUT TRANSLATION TABLE'
************************************************************************
*F*  NAME:    ESTD
*F*  PURPOSE: PROVIDE OUTPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR EBCD STANDARD CHARACTERS.
*F*  DESCRIPTION:  ESTD, INDEXED BY AN EBCDIC CHARACTER, YIELDS 1 OF
*F*           THE FOLLOWING:
*F*           1   IF THE .80 BIT IS SET, A COC INTERNAL CONTROL CODE.
*F*           2   ELSE, IF THE .40 BIT IS SET, AN EBCD UPPER CASE
*F*               CHARACTER (AFTER STRIPPING THE .40 BIT).
*F*           3   ELSE, AN EBCD LOWER CASE CHARACTER.
************************************************************************
*
ESTD     EQU      %       EBCDIC TO EBCD STANDARD
*
*   0
         DATA     X'3D3E0E0D'       NUL-->IL,SOH->PRE,STX-->BY,ETX->RES
         DATA     X'EA813D3D'         'EOT' ,  'HT'  ,ACK-->IL,BEL-->IL
         DATA     X'8B3D3D3D'         'BS'  ,ENQ-->IL,NAK-->IL,VT--->IL
         DATA     X'80833D3D'         'FF'  ,CR->'NL',SO--->IL,SI--->IL
*   1
         DATA     X'3D3D4C2C'       DLE-->IL,DC1-->IL,DC2-->PN,DC3-->RS
         DATA     X'4F833D5E'       DC4-->PF,  'NL'  ,SYN-->IL,ETB->EOB
         DATA     X'8B3D8E3D'       CAN-->BS,EM--->IL,SUB->.NE.,ESC->IL
         DATA     X'3D3D3DE4'       FS--->IL,GS--->IL,RS--->IL,SP ATTN
*   2
         DATA     X'8D3D3D3D'       INDX->LF,FS--->IL,GS--->IL,RS--->IL
         DATA     X'3D3D2242'       US--->IL,   SYN  ,   '/'  , CRCMFLX
         DATA     X'602D3D5D'          '='  ,  'NL'  ,EOT->IL ,  'BS'
         DATA     X'542F6E34'          ')'  ,   'HT' ,   'LF' , BE->'#'
*   3
         DATA     X'8486853D'        F ATTN , BS ATTN, X ATTN ,  SYN
         DATA     X'D2C3CBD3'        U ATTN , ( ATTN , ) ATTN , T ATTN
         DATA     X'D53DD7D5'        S ATTN ,   SYN  , C ATTN , O ATTN
         DATA     X'3D3D8788'          SYN  ,   SYN  , R ATTN , N ATTN
         PAGE
*   4
         DATA     X'40345334'         SPACE ,   SUB  ,APL'DCD',   SUB
         DATA     X'4B6B3434'       APL'MIN',APL'EPS',   SUB  ,   SUB
         DATA     X'47674237'     APL'DLTA',APL'IN-GN', CENTS ,   '.'
         DATA     X'50644376'          '<'  ,   '('  ,   '+'  ,LOGIC OR
*   5
         DATA     X'03343471'          '&'  ,   SUB  ,   SUB  ,APL'QUAD'
         DATA     X'34695934'          SUB  ,APL'NCD',APL'CRC',   SUB
         DATA     X'34347535'          SUB  ,   SUB  ,EXCL. MK,   '%'
         DATA     X'44AC7077'          '*'  ,   ')'  ,   ';'  ,LOGIC NOT
*   6
         DATA     X'01A65234'          '-'  ,   '/'  ,APL'MAX',   SUB
         DATA     X'4A345A7A'     APL'D-ARW',   SUB  ,APL'OMG',APL'SPST'
         DATA     X'3434A736'          SUB  ,   SUB  , CRCMFLX,   ','
         DATA     X'68417862'          '%'  ,UNDERLIN,   '>'  ,QUEST MK
*   7
         DATA     X'54605034'       APL'AND',APL'Q-M',APL'OVR',   SUB
         DATA     X'48345834'        APL'LE',   SUB  , APL'GE',   SUB
         DATA     X'34644834'          SUB  , APL'OR',   ':'  ,   '#'
         DATA     X'0258A874'          '@'  ,   '''  ,   '='  ,QUOTE MK
*   8
         DATA     X'34231333'          SUB  ,  LC'A' ,  LC'B' ,  LC'C'
         DATA     X'0B2B1B3B'         LC'D' ,  LC'E' ,  LC'F' ,  LC'G'
         DATA     X'07273434'         LC'H' ,  LC'I' ,   SUB  ,   SUB
         DATA     X'34343434'          SUB  ,   SUB  ,   SUB  ,   SUB
*   9
         DATA     X'34211131'          SUB  ,  LC'J' ,  LC'K' ,  LC'L'
         DATA     X'09291939'         LC'M' ,  LC'N' ,  LC'O' ,  LC'P'
         DATA     X'05253434'         LC'Q' ,  LC'R' ,   SUB  ,   SUB
         DATA     X'34343434'          SUB  ,   SUB  ,   SUB  ,   SUB
         PAGE
*   A
         DATA     X'34341232'          SUB  ,   SUB  ,  LC'S' ,  LC'T'
         DATA     X'0A2A1A3A'         LC'U' ,  LC'V' ,  LC'W' ,  LC'X'
         DATA     X'06263434'         LC'Y  ,  LC'Z' ,   SUB  ,   SUB
         DATA     X'34343434'           SUB ,   SUB  ,   SUB  ,   SUB
*   B
         DATA     X'34226454'          SUB  ,BK SLASH, (BRACE , BRACE)
         DATA     X'64543434'        (BRACK , BRACK) ,   SUB  ,   SUB
         DATA     X'34343434'           SUB ,   SUB  ,   SUB  ,   SUB
         DATA     X'3434EF34'           SUB ,   SUB  ,LOSTDATA,   SUB
*   C
         DATA     X'40635373'         SPACE ,   'A'  ,   'B'  ,   'C'
         DATA     X'4B6B5B7B'          'D'  ,   'E'  ,   'F'  ,   'G'
         DATA     X'47673434'          'H'  ,   'I ' ,   SUB  ,   SUB
         DATA     X'34343434'          SUB  ,   SUB  ,   SUB  ,   SUB
*   D
         DATA     X'34615171'          SUB  ,   'J'  ,   'K ' ,   'L'
         DATA     X'49695979'          'M'  ,   'N'  ,   'O'  ,   'P'
         DATA     X'45653434'          'Q'  ,   'R'  ,   SUB  ,   SUB
         DATA     X'34343434'          SUB  ,   SUB  ,   SUB  ,   SUB
*   E
         DATA     X'01345272'          '-'  ,   SUB  ,   'S'  ,   'T'
         DATA     X'4A6A5A7A'          'U'  ,   'V'  ,   'W'  ,   'X'
         DATA     X'46663434'          'Y'  ,   'Z'  ,   SUB  ,   SUB
         DATA     X'34343434'          SUB  ,   SUB  ,   SUB  ,   SUB
*   F
         DATA     X'14201030'          '0'  ,   '1'  ,   '2'  ,   '3'
         DATA     X'08281838'          '4'  ,   '5'  ,   '6'  ,   '7'
         DATA     X'04240343'          '8'  ,   '9'  ,APL'MLT',APL'DIV'
         DATA     X'4202347F'     APL'ARW',APL'U-ARW',   SUB  , 'DEL'
*
*
         END

