         PCC      0
************************************************************************
*
*
*M*      CALL360   CALL360 KEYBOARD TRANSLATION TABLE FOR COC HANDLER
*
*
************************************************************************
*P*  NAME:    CALL360
*P*  PURPOSE: PROVIDE INPUT AND OUTPUT TRANSLATION INFORMATION TO
*P*           THE COC HANDLER FOR CALL360 TERMINALS.
************************************************************************
         DEF      CALL360:          XDELTA/PATCHING SYMBOL
         DEF      COCSTR0           'STAR' FOR IDENTIFYING TERMINAL
         DEF      COCITT0           INPUT LOWER CASE TABLE ADR
         DEF      COCITT1           INPUT UPPER CASE TABLE ADR
         DEF      COCOTT0           OUTPUT TABLE ADR
         DEF      COCOTT1           OUTPUT TABLE ADR
*
COCSTR0  EQU      X'13'             'STAR' FOR IDENTIFYING TERMINAL
*
CALL360: EQU      %
         DEF      COCSTX0           DEF WHOSE VALUE IS NAME OF TABLE
         DEF      COCSTX1           DEF WHOSE VALUE IS NAME OF TABLE
COCSTX0,COCSTX1 EQU X'7FFFFFFF'||-(X'7FFFFFFF'&'C360'+1)
         DEF      COCBPR0           BS EDIT POSITION RIGHT CHAR
         DEF      COCBPR1           BS EDIT POSITION RIGHT CHAR
COCBPR0,COCBPR1 EQU X'40'           BLANK
         TITLE    '2741 CALL360 INPUT TRANSLATION TABLE'
************************************************************************
*F*  NAME:    CALL360LC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR CALL360 LOWER CASE CHARACTERS.
*F*  DESCRIPTION:  CALL360LC, INDEXED BY A LOWER CASE CALL360
*F*           CHARACTER, YIELDS THE CORRESPONDING EBCDIC CHARACTER.
************************************************************************
*
COCITT0  EQU      %                 LOWER CASE INPUT TRANSLATE TABLE
*0
         TEXT     ' =TJ'
         DATA     X'F4D6D31A'     4       ,O      ,L      ,NONE
         TEXT     '5)EP'          '5'     ,')'    ,'E'    ,'P'
         DATA     X'12030214'     PN-->DC2,RES->ETX,BY->STX,PF->DC4
*1
         TEXT     '2.N*'          '2'     ,'.'    ,'N'    ,'*'
         DATA     X'E91A1A1A'     'Z'     ,NONE   ,NONE  ,NONE
         TEXT     '6IKQ'          '6'     ,'I'    ,'K'    ,'Q'
         DATA     X'00081700'     UC->N.A.,BS     ,EOB->ETB,LC=>N.A.
*2
         TEXT     '1MXG'          '1'     ,'M'    .'X'    ,'G'
         TEXT     '0SHY'          '0'     ,'S'    ,'H'    ,'Y'
         TEXT     '7RD('          '7'     ,'R'    ,'D'    ,'('
         DATA     X'130D2005'     RS->DC3,NL-->CR,LF->INDX,'HT'
*3
         TEXT     '3VUF'          '3'     ,'V'    ,'U'    ,'F'
         TEXT     '9WB+'          '9'     ,'W'    ,'B'    ,'+'
         TEXT     '8AC,'          '8'     ,'A'    ,'C'    ,','
         DATA     X'04000100'     'EOT'   ,IL-->IGN,PRE->SOH,DEL->IGN
         PAGE
************************************************************************
*F*  NAME:    CALL360UC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR CALL360 UPPER CASE CHARACTERS.
*F*  DESCRIPTION:  CALL360UC, INDEXED BY AN UPPER CASE CALL360
*F*           CHARACTER, YIELDS THE CORRESPONDING EBCDIC CHARACTER.
************************************************************************
*
COCITT1  EQU      %                 UPPER CASE INPUT TRANSLATE TABLE
*0
         DATA     X'401A1A59'     SPACE   NONE    NONE    ,DEGREE
         DATA     X'741A1A1A'     '.LE.'  ,NONE   ,NONE   ,NONE
         DATA     X'581A1A6A'     '.NE.'  ,NONE   ,NONE   ,UP ARROW
         DATA     X'12030214'     PN-->DC2,RES->ETX,BY->STX,PF->DC4
*1
         DATA     X'7F7A1A61'     '"'     ,':'    ,NONE   ,'/'
         DATA     X'6C1A1A1A'     '%'     ,NONE   ,NONE   ,NONE
         DATA     X'761A1A1A'     '.GE.'  ,NONE   ,NONE   ,NONE
         DATA     X'00081700'     UC->N.A.,BS     ,EOB->ETB,LC=>N.A.
*2
         DATA     X'7D1A5A1A'     'QUOTE' ,NONE   ,EXCL PT ,NONE
         DATA     X'507B1A1A'     '&'     ,#      ,NONE   ,NONE
         DATA     X'6E1A5B1A'     '>'     ,NONE   ,'%'    ,NONE
         DATA     X'130D2005'     RS->DC3,NL-->CR,LF->INDX,'HT'
*3
         DATA     X'4C6F1A6D'     '<'     ,'Q MARK,NONE ,'UNDERSC
         DATA     X'4F1A1A60'     'RESIDUE',NONE  ,NONE ,'-'
         DATA     X'427C4A5E'     'DECODE','@'    ,'CENT',SEMI
         DATA     X'04000100'     'EOT'   ,IL-->IGN,PRE->SOH,DEL->IGN
         TITLE    '2741 CALL360 OUTPUT TRANSLATION TABLE'
************************************************************************
*F*  NAME:    CALL360
*F*  PURPOSE: PROVIDE OUTPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR CALL360 CHARACTERS.
*F*  DESCRIPTION:  CALL360, 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, A CALL360 UPPER CASE
*F*               CHARACTER (AFTER STRIPPING THE .40 BIT).
*F*           3   ELSE, A CALL360 LOWER CASE CHARACTER.
************************************************************************
*
COCOTT0  EQU      %                 OUTPUT TRANSLATE TABLE
COCOTT1  EQU      %                 OUTPUT TRANSLATE TABLE
*0
         DATA     X'3D3E0E0D'
         DATA     X'EA813D3D'
         DATA     X'8B3D3D3D'
         DATA     X'80833D3D'
*1
         DATA     X'3D3D4C2C'
         DATA     X'4F833D5E'
         DATA     X'3D3D8E3D'
         DATA     X'3D3D3DE4'
*2
         DATA     X'8D3D3D3D'
         DATA     X'3D3D534B'
         DATA     X'012D3D5D'
         DATA     X'092F6E65'
*3
         DATA     X'8486853D'
         DATA     X'D2C3CBD3'
         DATA     X'D53DD7D5'
         DATA     X'3D3D8788'
*4
         DATA     X'00587858'
         DATA     X'58585858'
         DATA     X'58587A11'
         DATA     X'702B3774'
*5
         DATA     X'64585858'
         DATA     X'58585858'
         DATA     X'4843626A'
         DATA     X'13AC7B58'
*6
         DATA     X'77A65858'
         DATA     X'58585858'
         DATA     X'5858A73B'
         DATA     X'54736871'
*7
         DATA     X'58585858'
         DATA     X'44585858'
         DATA     X'58585165'
         DATA     X'7960A850'
*8
         DATA     X'5839363A'
         DATA     X'2A0A3323'
         DATA     X'26195858'
         DATA     X'58585858'
*9
         DATA     X'58041A06'
         DATA     X'2112050B'
         DATA     X'1B295858'
         DATA     X'58585858'
*A
         DATA     X'58582502'
         DATA     X'32313522'
         DATA     X'27145858'
         DATA     X'58585858'
*B
         DATA     X'58582B09'
         DATA     X'2B095858'
         DATA     X'58585858'
         DATA     X'2B09EF58'
*C
         DATA     X'5839363A'
         DATA     X'2A0A3323'
         DATA     X'26195858'
         DATA     X'58585858'
*D
         DATA     X'58031A06'
         DATA     X'2112050B'
         DATA     X'1B295858'
         DATA     X'58585858'
*E
         DATA     X'58582502'
         DATA     X'32313522'
         DATA     X'27145858'
         DATA     X'58585858'
*F
         DATA     X'24201030'
         DATA     X'04081828'
         DATA     X'38345858'
         DATA     X'58585858'
         END

