lib/fortran/src/uc.asm

   1 *    UPPER CHAR
   2 *    UC(INTEGER) RETURN THE ARGUMENT'S FIRST 8 BIT IN LOWER 8 BIT
   3 *
   4 *    USAGE:
   5 *    JST  UC
   6 *    DAC  ARG1
   7 *
   8 *    RESULT WILL BE IN A-REG
   9 *
  10 *
  11 *******
  12         SUBR    UCHAR,UC
  13         SUBR    UC
  14 *
  15         REL
  16 UC      DAC     **
  17         LDA*    UC
  18         IRS     UC      RETURN ADDRESS
  19         ICL
  20         JMP*    UC
  21 *******
  22         END