         PCC      0
************************************************************************
*
*
*M*      SSTD     SELECTRIC STANDARD KEYBOARD TRANSLATION TABLE FOR COC HANDLER
*
*
************************************************************************
*P*  NAME:    SSTD
*P*  PURPOSE: PROVIDE INPUT AND OUTPUT TRANSLATION INFORMATION TO
*P*           THE COC HANDLER FOR SELECTRIC STANDARD TERMINALS.
************************************************************************
*
         DEF      SSTD:             XDELTA/PATCHING SYMBOL
         DEF      SSTD              SELECTRIC STANDARD OUTPUT TRANSLATE TABLE
         DEF      SSTDLC            SELECTRIC STANDARD INPUT TRANSLATE TABLE FOR
*,*                                 LOWER CASE CHARACTERS
         DEF      SSTDUC            SELECTRIC STANDARD INPUT TRANSLATE TABLE FOR
*,*                                 UPPER CASE CHARACTERS
         DEF      SSTDTX            DEF WHOSE VALUE IS NAME OF TABLE
SSTDTX   EQU      X'7FFFFFFF'||-(X'7FFFFFFF'&'SSTD'+1)
*
SSTD:    EQU      %
         TITLE    '2741 SELECTRIC STANDARD INPUT TRANSLATION TABLE'
2741ARUB SET      0
************************************************************************
*F*  NAME:    SSTDLC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR SELECTRIC STANDARD LOWER CASE CHARACTERS.
*F*  DESCRIPTION:  SSTDLC, INDEXED BY A LOWER CASE SELECTRIC STANDARD
*F*           CHARACTER, YIELDS THE CORRESPONDING SELECTRIC CHARACTER.
************************************************************************
*
SSTDLC   EQU      %      SELECTRIC STANDARD LOWER CASE TO EBCDIC
*
*   0
         DATA     X'405AA391'         SPACE ,EXCL. MK,  LC'T' ,  LC'J'
         DATA     X'F4969361'          '4'  ,  LC'O' ,  LC'L' ,   '/'
         DATA     X'F57D8597'          '5'  ,   '''  ,  LC'E' ,  LC'P'
         DATA     X'12030214'       PN-->DC2,RES->ETX,BY-->STX,PF-->DC4
*   1
         DATA     X'F24B957E'          '2'  ,   '.'  ,  LC'N' ,   '='
         DATA     X'A9000000'         LC'Z' , UNUSED , UNUSED , UNUSED
         DATA     X'F6899298'          '6'  ,  LC'I' ,  LK'K' ,  LC'Q'
         DATA     X'00081700'       UC->N.A.,  'BS'  ,EOB->ETB,LC->N.A.
*   2
         DATA     X'F194A787'          '1'  ,  LC'M' ,  LC'X' ,  LC'G'
         DATA     X'F0A288A8'          '0'  ,  LC'S' ,  LC'H' ,  LC'Y'
         DATA     X'F799845E'          '7'  ,  LC'R' ,  LC'D' ,   ';'
         DATA     X'130D2005'       RS-->DC3,NL--->CR,LF->INDX,  'HT'
*   3
         DATA     X'F3A5A486'          '3'  ,  LC'V' ,  LC'U' ,  LC'F'
         DATA     X'F9A68260'          '9'  ,  LC'W' ,  LC'B' ,   '-'
         DATA     X'F881836B'          '8'  ,  LC'A' ,  LC'C' ,   ','
         DATA     X'04000100'         'EOT' ,IL-->IGN,PRE->SOH,DEL->IGN
         PAGE
************************************************************************
*F*  NAME:    SSTDUC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR SELECTRIC STANDARD UPPER CASE CHARACTERS.
*F*  DESCRIPTION:  SSTDUC, INDEXED BY AN UPPER CASE SELECTRIC STANDARD
*F*           CHARACTER, YIELDS THE CORRESPONDING SELECTRIC CHARACTER.
************************************************************************
*
SSTDUC   EQU      %      SELECTRIC STANDARD UPPER CASE TO EBCDIC
*
*   0
         DATA     X'404FE3D1'         SPACE ,DGR-->OR,   'T'  ,   'J'
         DATA     X'5BD6D36F'          '%'  ,   'O'  ,   'L'  ,QUEST MK
         DATA     X'6C7FC5D7'          '%'  ,  QUOTE ,   'E'      'P'
         DATA     X'12030214'       PN-->DC2,RES->ETX,BY-->STX,PF-->DC4
*   1
         DATA     X'7C4CD54E'          '@'  ,   '<'  ,   'N'  ,   '+'
         DATA     X'E9000000'          'Z'  , UNUSED , UNUSED , UNUSED
         DATA     X'6AC9D2D8'         CENTS ,   'I'  ,   'K'  ,   'Q'
         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'5FD4E7C7'      '+-'->NOT,   'M'  ,   'X'  ,   'G'
         TEXT     ')SHY'               ')'  ,   'S'  ,   'H'  ,   'Y'
         TEXT     '&RD:'               '&   ,   'R'  ,   'D'  ,   ':'
         DATA     X'13152005'       RS-->DC3,  'NL'  ,LF->INDX,  'HT'
*   3
         TEXT     '#VUF'               '#'  ,   'V'  ,   'U'  ,   'F'
         DATA     X'4DE6C26D'          '('  ,   'W'  ,   'B'  ,UNDERLINE
         DATA     X'5CC1C36E'          '*'  ,   'A'  ,   'C'  ,   '>'
         DATA     X'04000100'         'EOT' ,IL-->IGN,PRE->SOH,DEL->IGN
*
         TITLE    '2741 SELECTRIC STANDARD OUTPUT TRANSLATION TABLE'
************************************************************************
*F*  NAME:    SSTD
*F*  PURPOSE: PROVIDE OUTPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR SELECTRIC STANDARD CHARACTERS.
*F*  DESCRIPTION:  SSTD, INDEXED BY A SELECTRIC 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, A SELECTRIC UPPER CASE
*F*               CHARACTER (AFTER STRIPPING THE .40 BIT).
*F*           3   ELSE, A SELECTRIC LOWER CASE CHARACTER.
************************************************************************
*
SSTD     EQU      %
*
*   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'3D3D0758'       US--->IL,   SYN  ,   '/'  ,CRCMFLX
         DATA     X'132D3D5D'          '='  ,  'NL'  ,EOT->IL ,  'BS'
         DATA     X'642F6E70'          ')'  ,   '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'40707670'         SPACE ,   SUB  ,APL'DCD',   SUB
         DATA     X'6A4A7070'       APL'MIN',APL'EPS',   SUB  ,   SUB
         DATA     X'66595811'      APL'DLTA',APL'N-GN',  CENTS ,   '.'
         DATA     X'51745341'       '<'->'.',   '('  ,   '+'  ,OR--->DEG
*   5
         DATA     X'68707046'          '&'  ,   SUB  ,   SUB  ,  QUAD
         DATA     X'70524570'          SUB  , ENCODE ,CIRCULAR,   SUB
         DATA     X'70700144'          SUB  ,   SUB  ,EXCL. MK,   '%'
         DATA     X'78AC2B60'          '*'  ,   ')'  ,   ';'  ,NOT->'+-'
*   6
         DATA     X'37A66570'          '-'  ,   '/'  ,MAXIMUM,   SUB
         DATA     X'72707562'     APL'D-ARW',   SUB  ,APL'OMG',APL'SPST'
         DATA     X'7070A73B'          SUB  ,   SUB  , CRCMFLX,   ','
         DATA     X'48777B47'          '%'  ,UNDRLINE,'>'->',',QUEST MK
*   7
         DATA     X'64605070'       APL'AND' ,APL QUOT,APL OVER,  SUB
         DATA     X'44705870'       APL'LE' ,   SUB  , APL'GE',   SUB
         DATA     X'70746B70'          SUB  ,APL'OR' ,   ':'  ,   '#'
         DATA     X'5009A849'          '@'  ,   '''  ,   '='  ,QUOTE MK
*   8
         DATA     X'7039363A'          SUB  ,  LC'A' ,  LC'B' ,  LC'C'
         DATA     X'2A0A3323'         LC'D' ,  LC'E' ,  LC'F' ,  LC'G'
         DATA     X'26197070'         LC'H' ,  LC'I' ,   SUB  ,   SUB
         DATA     X'70707070'          SUB  ,   SUB  ,   SUB  ,   SUB
*   9
         DATA     X'70031A06'          SUB  ,  LC'J' ,  LC'K' ,  LC'L'
         DATA     X'2112050B'         LC'M' ,  LC'N' ,  LC'O' ,  LC'P'
         DATA     X'1B297070'         LC'Q' ,  LC'R' ,   SUB  ,   SUB
         DATA     X'70707070'          SUB  ,   SUB  ,   SUB  ,   SUB
         PAGE
*   A
         DATA     X'70702502'          SUB  ,   SUB  ,  LC'S' ,  LC'T'
         DATA     X'32313522'         LC'U' ,  LC'V' ,  LC'W' ,  LC'X'
         DATA     X'27147070'         LC'Y' ,  LC'Z' ,   SUB  ,   SUB
         DATA     X'70707070'          SUB  ,   SUB  ,   SUB  ,   SUB
*   B
         DATA     X'70077464'          SUB  ,BK SLASH, (BRACE , BRACE)
         DATA     X'74647070'        (BRACK , BRACK) ,   SUB  ,   SUB
         DATA     X'70707070'          SUB  ,   SUB  ,   SUB  ,   SUB
         DATA     X'7070EF70'          SUB  ,   SUB  ,LOSTDATA,   SUB
*   C
         DATA     X'4079767A'         SPACE ,   'A'  ,   'B'  ,   'C'
         DATA     X'6A4A7363'          'D'  ,   'E'  ,   'F' ,   'G'
         DATA     X'66597070'          'H'  ,   'I'  ,   SUB  ,   SUB
         DATA     X'70707070'          SUB  ,   SUB  ,   SUB  ,   SUB
*   D
         DATA     X'70435A46'          SUB  ,   'J'  ,   'K'  ,   'L'
         DATA     X'6152454B'          'M'  ,   'N'  ,   'O'  ,   'P'
         DATA     X'5B697070'          'Q'  ,   'R'  ,   SUB  ,   SUB
         DATA     X'70707070'          SUB  ,   SUB  ,   SUB  ,   SUB
*   E
         DATA     X'37706542'          '-'  ,   SUB  ,   'S'  ,   'T'
         DATA     X'72717562'          'U'  ,   'V'  ,   'W'  ,   'X'
         DATA     X'67547070'          'Y'  ,   'Z'  ,   SUB  ,   SUB
         DATA     X'70707070'          SUB  ,   SUB  ,   SUB  ,   SUB
*   F
         DATA     X'24201030'          '0'  ,   '1'  ,   '2'  ,   '3'
         DATA     X'04081828'          '4'  ,   '5'  ,   '6'  ,   '7'
         DATA     X'38341353'          '8'  ,   '9'  ,APL MULT, APL DIV
         DATA     X'4101707F'      APL'ARROW',APL'B-ARROW',SUB, 'DEL'
         END

