MINICERN/packlib/zebra/fq/fzicvd2.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:09  mclareni
   6 * Zebra
   7 *
   8 *
   9 *
  10 * fzicvd2.inc
  11 *
  12 #if defined(CERNLIB_QMCDC)
  13       DATA  IPKVU  / 8, 4, 0,28, 0 /
  14       DATA  IPKVP  / 6, 4, 0, 0, O"555555555555" /
  15       DATA  MTAB   /
  16      +       57,  45,  54,  52,  48,  43,  51,  55,  56,  41
  17      +,      42,  39,  37,  46,  38,  47,  40,  27,  28,  29
  18      +,      30,  31,  32,  33,  34,  35,  36,  51,  63,  58
  19      +,      44,  59,  57,  60,   1,   2,   3,   4,   5,   6
  20      +,       7,   8,   9,  10,  11,  12,  13,  14,  15,  16
  21      +,      17,  18,  19,  20,  21,  22,  23,  24,  25,  26
  22      +,      49,  61,  50,  62,  53,  57,   1,   2,   3,   4
  23      +,       5,   6,   7,   8,   9,  10,  11,  12,  13,  14
  24      +,      15,  16,  17,  18,  19,  20,  21,  22,  23,  24
  25      +,      25,  26,  57 /
  26
  27 C-    ?     !  "  #  $  %  &  '  (    )  *  +  ,  -  .  /  0  1  2
  28 C-    3  4  5  6  7  8  9  :  ;  <    =  >  ?  @  A  B  C  D  E  F
  29 C-    G  H  I  J  K  L  M  N  O  P    Q  R  S  T  U  V  W  X  Y  Z
  30 C-    [  \  ]  ^  _  ?  a  b  c  d    e  f  g  h  i  j  k  l  m  n
  31 C-    o  p  q  r  s  t  u  v  w  x    y  z  ?
  32 #endif
  33 *
  34 * fzicvd2.inc
  35 *
  36 #if defined(CERNLIB_QMIBM)
  37       DATA  IPKVEC / 8, 0, 0, 0, 0 /
  38       DATA  MTAB   /
  39      +      111,  64,  90, 127, 123,  91, 108,  80, 125,  77
  40      +,      93,  92,  78, 107,  96,  75,  97, 240, 241, 242
  41      +,     243, 244, 245, 246, 247, 248, 249, 122,  94,  76
  42      +,     126, 110, 111, 124, 193, 194, 195, 196, 197, 198
  43      +,     199, 200, 201, 209, 210, 211, 212, 213, 214, 215
  44      +,     216, 217, 226, 227, 228, 229, 230, 231, 232, 233
  45      +,     173, 224, 189, 106, 109, 121, 129, 130, 131, 132
  46      +,     133, 134, 135, 136, 137, 145, 146, 147, 148, 149
  47      +,     150, 151, 152, 153, 162, 163, 164, 165, 166, 167
  48      +,     168, 169, 139,  79, 155,  95, 111 /
  49
  50 C-    ?     !  "  #  $  %  &  '  (    )  *  +  ,  -  .  /  0  1  2
  51 C-    3  4  5  6  7  8  9  :  ;  <    =  >  ?  @  A  B  C  D  E  F
  52 C-    G  H  I  J  K  L  M  N  O  P    Q  R  S  T  U  V  W  X  Y  Z
  53 C-    [  \  ]  ^  _  `  a  b  c  d    e  f  g  h  i  j  k  l  m  n
  54 C-    o  p  q  r  s  t  u  v  w  x    y  z  {  |  }  ~  ?
  55 #endif
  56 *
  57 * fzicvd2.inc
  58 *
  59 #if defined(CERNLIB_QMIBMD)
  60       DATA  IPKVEC / 8, 0, 0, 0, 0 /
  61       DATA  MTAB   /
  62      +      111,  64,  90, 127, 123,  91, 108,  80, 125,  77
  63      +,      93,  92,  78, 107,  96,  75,  97, 240, 241, 242
  64      +,     243, 244, 245, 246, 247, 248, 249, 122,  94,  76
  65      +,     126, 110, 111, 124, 193, 194, 195, 196, 197, 198
  66      +,     199, 200, 201, 209, 210, 211, 212, 213, 214, 215
  67      +,     216, 217, 226, 227, 228, 229, 230, 231, 232, 233
  68      +,     173, 224, 189, 106, 109, 121, 129, 130, 131, 132
  69      +,     133, 134, 135, 136, 137, 145, 146, 147, 148, 149
  70      +,     150, 151, 152, 153, 162, 163, 164, 165, 166, 167
  71      +,     168, 169, 139,  79, 155,  95, 111 /
  72
  73 C-    ?     !  "  #  $  %  &  '  (    )  *  +  ,  -  .  /  0  1  2
  74 C-    3  4  5  6  7  8  9  :  ;  <    =  >  ?  @  A  B  C  D  E  F
  75 C-    G  H  I  J  K  L  M  N  O  P    Q  R  S  T  U  V  W  X  Y  Z
  76 C-    [  \  ]  ^  _  `  a  b  c  d    e  f  g  h  i  j  k  l  m  n
  77 C-    o  p  q  r  s  t  u  v  w  x    y  z  {  |  }  ~  ?
  78 #endif