sw/os8/v3d/sources/fortran/all/dsign.ra

   1 /
   2 / VERSION 5A 4-27-77  PT
   3 /
   4         SECT    DSIGN
   5         JA      #ST
   6 #XR,    ORG     .+10
   7         TEXT    'DSIGN '
   8 #BASE,  ORG     .+6
   9 A,      ORG     .+6
  10 B,      ORG     .+6
  11         ORG     #BASE+31
  12         JA      #BASE
  13 GOBACK, 0;0;0
  14         BASE    #BASE
  15         DPCHK
  16 #ST,    STARTD
  17         0210                    /FLDA 10
  18         FSTA    GOBACK+1,0
  19         0200
  20         SETX    #XR
  21         SETB    #BASE
  22         LDX     0,1
  23         FSTA    #BASE
  24         FLDA%   #BASE,1+
  25         FSTA    A
  26         FLDA%   #BASE,1+
  27         FSTA    B
  28         STARTE
  29         FLDA%   B               /NEG?
  30         JLT     #50             /B POS
  31         FLDA%   A
  32         JLT     #100
  33         JA      GOBACK+1        /A+,B+
  34 #50,    FLDA%   A
  35         JLT     GOBACK+1        /A-,B-
  36 #100,   FNEG                    /OPP. SIGNS
  37         JA      GOBACK+1
  38         END
  39 \f