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$LC    CARRIAGE RETURN ONLY
  58         CALL    O$LP    OUTPUT ONE LINE OF INFORMATION
  59 FW4H    ***     **
  60         IRS     FW4A
  61         JMP*    FW4A
  62 FW4J    DAC     **
  63         CALL    O$LF    LF ONLY
  64         IRS     CNTR
  65         JMP*    FW4J
  66         LDA     =-17
  67         STA     CNTR
  68 *
  69 FW4K    CALL    O$LF    LF ONLY
  70         IRS     CNTR
  71         JMP     FW4K
  72         LDA     =-60
  73         STA     CNTR
  74         JMP*    FW4J
  75 CNTR    OCT     -60
  76 FW4L    LDA     ='377
  77         LLL     8
  78         STA*    FW4H
  79         JMP     FW4G+1
  80         END