*DECK C$XTAB
          IDENT  C$XTAB 
 CBXTAB   TITLE  CBXTAB - UNIVAC - CYBER TRANSLATE TABLE
  
          MACHINE   ANY,I 
          COMMENT   CODE-SET TRANSLATE TABLE
          SST 
  
 C.XTAB   SPACE  4
**        C.XTAB - UNIVAC 1100 SERIES FIELDATA TO 
*                            CDC CYBER 170 SERIES DISPLAY CODE
*                            TRANSLATE TABLE
* 
*         TABLE  FORMAT:  
* 
*         VFD    30/CY_UNI,30/UNI_CY
* 
*                ACCESS EITHER DIRECTLY (C.XTAB) OR VIA 
*                A POINTER IN COMMON BLAOCK -C.XLATE-.
* 
          ENTRY  C.XTAB 
          USE    /C.XLATE/
          VFD    18/3RUNI,24/0,18/C.XTAB   -UNI- IS AN -IN CORE- FLAG 
          USE    *
  
  
 C.XTAB   BSS    0
          VFD    30/46B,30/61B     00 
          VFD    30/06B,30/75B     01 
          VFD    30/07B,30/70B     02 
          VFD    30/10B,30/77B     03 
          VFD    30/11B,30/73B     04 
          VFD    30/12B,30/55B     05 
          VFD    30/13B,30/01B     06 
          VFD    30/14B,30/02B     07 
          VFD    30/15B,30/03B     10 
          VFD    30/16B,30/04B     11 
          VFD    30/17B,30/05B     12 
          VFD    30/20B,30/06B     13 
          VFD    30/21B,30/07B     14 
          VFD    30/22B,30/10B     15 
          VFD    30/23B,30/11B     16 
          VFD    30/24B,30/12B     17 
          VFD    30/25B,30/13B     20 
          VFD    30/26B,30/14B     21 
          VFD    30/27B,30/15B     22 
          VFD    30/30B,30/16B     23 
          VFD    30/31B,30/17B     24 
          VFD    30/32B,30/20B     25 
          VFD    30/33B,30/21B     26 
          VFD    30/34B,30/22B     27 
          VFD    30/35B,30/23B     30 
          VFD    30/36B,30/24B     31 
          VFD    30/37B,30/25B     32 
          VFD    30/60B,30/26B     33 
          VFD    30/61B,30/27B     34 
          VFD    30/62B,30/30B     35 
          VFD    30/63B,30/31B     36 
          VFD    30/64B,30/32B     37 
          VFD    30/65B,30/52B     40 
          VFD    30/66B,30/46B     41 
          VFD    30/67B,30/45B     42 
          VFD    30/70B,30/76B     43 
          VFD    30/71B,30/54B     44 
          VFD    30/42B,30/63B     45 
 CH1      IFEQ   OP.CH63,OP.NO
          VFD    30/41B,30/00B     46 
 CH1      ELSE
          VFD    30/41B,30/63B     46 
 CH1      ENDIF 
          VFD    30/50B,30/53B     47 
          VFD    30/74B,30/47B     50 
          VFD    30/51B,30/51B     51 
          VFD    30/40B,30/65B     52 
          VFD    30/47B,30/74B     53 
          VFD    30/44B,30/72B     54 
          VFD    30/05B,30/66B     55 
          VFD    30/56B,30/56B     56 
          VFD    30/75B,30/60B     57 
          VFD    30/57B,30/33B     60 
          VFD    30/00B,30/34B     61 
          VFD    30/77B,30/35B     62 
 CH2      IFEQ   OP.CH63,OP.NO
          VFD    30/45B,30/36B     63 
 CH2      ELSE
          VFD    30/46B,30/36B     63 
 CH2      ENDIF 
          VFD    30/72B,30/37B     64 
          VFD    30/52B,30/40B     65 
          VFD    30/55B,30/41B     66 
          VFD    30/76B,30/42B     67 
          VFD    30/02B,30/43B     70 
          VFD    30/73B,30/44B     71 
          VFD    30/54B,30/64B     72 
          VFD    30/04B,30/71B     73 
          VFD    30/53B,30/50B     74 
          VFD    30/01B,30/57B     75 
          VFD    30/43B,30/67B     76 
          VFD    30/03B,30/62B     77 
  
          END 
