lib/fortran/src/lpchar.asm

   1 * (LPCHAR)         PRINT CHAR ON LINE PRINTER
   2 *
   3 *
   4 ****** USAGE
   5 *
   6 *      JST LPCHAR
   7 *      DAC Arg1
   8 *
   9 *
  10 *
  11         SUBR    LPCHAR,P
  12         REL
  13 *
  14 *
  15 P       DAC     **
  16         LDA*    P       ERSTE ARG-ADRESSE
  17         STA     TMP1    POINTER
  18         LDA*    TMP1    IN
  19         CAL             CLEAR UPPER BITS
  20         OTA     0       OUTPUT CHAR
  21         JMP     *-1     SECURITY
  22         IRS     P       RETURN ADDRESS
  23         JMP*    P
  24 *******
  25 TMP1    DEC     0
  26 TMP2    DEC     0
  27 *******
  28         END