lib/fortran/src/f$w4.asm

   1 * (F$W4)       REBUILD 1
   2 *
   3 *
   4 *
   5 * PROGRAM TITLE: F$W4
   6 *                OUTPUT BCD ON LINE PRINTER
   7 *
   8 *
   9 *
  10 *  USE
  11 *
  12 *    CALLING SEQUENCE
  13 *
  14 *          CALL F$W4
  15 *          DAC  N         WHERE N IS THE LOCATION OF THE FORMAT
  16 *                         DESCRIPTOR LIST
  17 *
  18         SUBR    F$W4,FW4
  19 *
  20 *
  21 *
  22         REL
  23 FW4     DAC     **
  24         CALL    F$IO
  25 FW4A    DAC     **
  26         LDA*    FW4A
  27         STA     FW4H
  28         LDA*    FW4H
  29 *
  30         LRL     8
  31         CAS     ='261
  32         JMP     FW4B
  33         JMP     FW4C
  34         CAS     *+1
  35         OCT     260
  36         JMP     FW4D
  37         CAS     ='255
  38         JMP     FW4B
  39         JMP     FW4F
  40         CAS     ='253
  41         JMP     FW4B
  42         JMP     FW4F
  43 FW4B    JST     FW4J
  44         JMP     FW4G
  45 FW4C    JST     FW4J
  46         CAS     =-60
  47         JMP     FW4C
  48         JMP     FW4F
  49         JMP     FW4C
  50 FW4D    JST     FW4J
  51 FW4E    JST     FW4J
  52 FW4F    LDA*    FW4H
  53         ANA     ='377
  54         ERA     ='120000
  55         STA*    FW4H
  56 FW4G    CALL    O$LC    CARRIAGE RETURN ONLY
  57         CALL    O$LP    OUTPUT ONE LINE OF INFORMATION
  58 FW4H    ***     **
  59         IRS     FW4A
  60         JMP*    FW4A
  61 FW4J    DAC     **
  62         CALL    O$PF    LF ONLY
  63         IRS     CNTR
  64         JMP*    FW4J
  65         LDA     =-17
  66         STA     CNTR
  67 *
  68 FW4K    CALL    O$PF    LF ONLY
  69         IRS     CNTR
  70         JMP     FW4K
  71         LDA     =-60
  72         STA     CNTR
  73         JMP*    FW4J
  74 CNTR    OCT     -60
  75 FW4L    LDA     ='377
  76         LLL     8
  77         STA*    FW4H
  78         JMP     FW4G+1
  79         END