sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/hptoas.ft

   1 C       -+-+-+-+-+ \ e  H P T O A S . F T  \ e -+-+-+-+-+
   2         INTEGER FUNCTION TOASCI (IPA1)
   3 C       TOASCI:  INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS
   4 C         LESS THAN 100. LEADING '0' IS NOT SUPPRESSED.
   5 C         THE RESULT IS L.J.B.F. .
   6         INTEGER IPA1,
   7      *  SHIFT,IOR,IATX,
   8      *  TE
   9         EXTERNAL SHIFT,IOR,IATX
  10 C
  11         TE=IATX(48)
  12         TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24,
  13      *  IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)),
  14      *   IOR(IATX(MOD(IPA1,10)),TE))))
  15         END
  16 C       -+-+-+-+-+ \ e  H P T O A S . F T  \ e -+-+-+-+-+
  17         INTEGER FUNCTION TOASCI (IPA1)
  18 C       TOASCI:  INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS
  19 C         LESS THAN 100. LEADING '0' IS NOT SUPPRESSED.
  20 C         THE RESULT IS L.J.B.F. .
  21         INTEGER IPA1,
  22      *  SHIFT,S1,IOR,IATX,
  23      *  TE
  24         EXTERNAL SHIFT,S1,IOR,IATX
  25 C
  26         TE=IATX(48)
  27         TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24,
  28      *  IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)),
  29      *   IOR(IATX(MOD(IPA1,10)),TE))))
  30         END
  31 \1a