MINICERN/packlib/zebra/fq/fzicvfh.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1997/03/14 17:19:51  mclareni
   6 * WNT mods
   7 *
   8 * Revision 1.1.1.1.2.1  1997/01/21 11:33:41  mclareni
   9 * All mods for Winnt 96a on winnt branch
  10 *
  11 * Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
  12 * Zebra
  13 *
  14 *
  15 *   convert ASCII -> Display Code
  16 *
  17 * fzicvfh.inc
  18 *
  19 #if defined(CERNLIB_QMCDC)
  20       NTHR = NWDO
  21   522 NTH  = MIN (NTHR,24)
  22       NCH  = 4*NTH
  23       CALL UPKCH (MS(JMS+1),IQUEST,NCH,IPKVU)
  24       DO 529  JCH=1,NCH
  25       J = MIN (MAX(IQUEST(JCH)-JCHMIN,0), JCHMAX)
  26   529 IQUEST(JCH) = MTAB(J+1)
  27       CALL PKCHAR (IQUEST,MT(JMT+1),NCH,IPKVP)
  28       JMT  = JMT + NTH
  29       JMS  = JMS + NTH
  30       NTHR = NTHR - NTH
  31       IF (NTHR.NE.0)               GO TO 522
  32       GO TO 801
  33 #endif
  34 *   left adjust 4 ASCII ch., blank fill
  35 *
  36 * fzicvfh.inc
  37 *
  38 #if defined(CERNLIB_QMCRY)
  39       DO 519  JL=1,NWDO
  40       MT(JMT+1) = SHIFTL (MS(JMS+1), 32) .OR. IBL32
  41       JMT = JMT + 1
  42   519 JMS = JMS + 1
  43       GO TO 801
  44 #endif
  45 *   left adjust 4 ASCII ch., blank fill
  46 *
  47 * fzicvfh.inc
  48 *
  49 #if (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  50       DO 519  JL=1,NWDO
  51       MT(JMT+1) = ISHFT (MS(JMS+1), 32) .OR. IBL32
  52       JMT = JMT + 1
  53   519 JMS = JMS + 1
  54       GO TO 801
  55 #endif
  56 *   invert ASCII characters
  57 *
  58 * fzicvfh.inc
  59 *
  60 #if defined(CERNLIB_QMDOS) || defined(CERNLIB_WINNT)
  61 #include "fzcvhpc.inc"
  62 #endif
  63 *   convert ASCII -> EBCDIC
  64 *
  65 * fzicvfh.inc
  66 *
  67 #if defined(CERNLIB_QMIBM)
  68 #include "fzcvhibm.inc"
  69 #endif
  70 *   convert ASCII -> EBCDIC
  71 *
  72 * fzicvfh.inc
  73 *
  74 #if defined(CERNLIB_QMIBMD)
  75 #include "fzcvhibm.inc"
  76 #endif
  77 *   invert ASCII characters
  78 *
  79 * fzicvfh.inc
  80 *
  81 #if defined(CERNLIB_QMLNX)
  82 #include "fzcvhlnx.inc"
  83 #endif
  84 *   invert ASCII characters
  85 *
  86 * fzicvfh.inc
  87 *
  88 #if defined(CERNLIB_QMTMO)
  89 #include "fzcvhtmo.inc"
  90 #endif
  91 *   invert ASCII characters
  92 *
  93 * fzicvfh.inc
  94 *
  95 #if defined(CERNLIB_QMVAX)
  96 #include "fzcvhvax.inc"
  97 #endif
  98 *   invert ASCII characters
  99 *
 100 * fzicvfh.inc
 101 *
 102 #if defined(CERNLIB_QMVMI)
 103 #include "fzcvhvmi.inc"
 104 #endif