lib/fortran/src/vpunch.1

   1 *    (VPUNCH) 27.05.2005
   2 *
   3 *
   4 *    PUNCH VISIBLE TEXT ON THE PAPER TAPE PUNCH
   5 *
   6 *
   7 *    AUTHOR
   8 *      PHILIPP HACHTMANN
   9 *
  10 *    USAGE
  11 *      JST VCHAR
  12 *      DAC ARG
  13 *
  14 *
  15         SUBR    VPUNCH,STRT
  16         REL
  17 *
  18 STRT    DAC     **
  19         LDA*    STRT    ARGUMENT HOLEN
  20         IRS     STRT    RUECKSPRUNG KORRIGIEREN
  21         ALS     3       ZEICHENOFFSET GENERIEREN
  22         ADD     FP      FONTADRESSE ADDIEREN
  23         STA     POS     UND IN POINTER TUN
  24         LDA     =-8
  25         STA     CNT     LOOPCOUNTER INITIALISIEREN
  26         OCP     2
  27 LOOP    LDA*    POS
  28         ICA
  29         OTA     2
  30         JMP     *-1
  31         ICA
  32         OTA     2
  33         JMP     *-1
  34         IRS     POS
  35         IRS     CNT
  36         JMP     LOOP
  37         JMP*    STRT    RETURN
  38 *
  39 *
  40 POS     DEC     0
  41 CNT     DEC     0
  42 FP      DAC     FONT    POINTER TO THE FONT BASE (8X16)
  43 *
  44 **** HIER WIRD ANGEBAUT *****