lib/fortran/src/f$w4.asm

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