lib/fortran/src/pchar.asm

   1 *               PRINT CHAR
   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         SKS     '104    TEST IF ASR BUSY
  20         JMP     *-1     JUMP BACK
  21         OCP     '104    ASR START
  22         CAL             CLEAR UPPER BITS
  23         OTA     4       OUTPUT CHAR
  24         JMP     *-1     SECURITY
  25         IRS     P       RETURN ADDRESS
  26         JMP*    P
  27 *******
  28 TMP1    DEC     0
  29 TMP2    DEC     0
  30 *******
  31         END