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         REL
  13         SUBR UC
  14 UC      DAC     **
  15         LDA*    UC
  16         IRS     UC      RETURN ADDRESS
  17         ICL
  18         JMP*    UC
  19 *******
  20         END