lib/fortran/src/pchar_lp.asm

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