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

   1 /
   2 / VERSION 5A 4-27-77  PT
   3 /
   4         SECT    DIM
   5         ENTRY   IDIM
   6         JA      #ST
   7 #XR,    ORG     .+10
   8 #BASE,  ORG     .+3
   9 A,      ORG     .+3
  10 B,      ORG     .+3
  11         BASE    #BASE
  12 IDIM,
  13 #ST,    STARTD
  14         0210
  15         FSTA    #RTN,0
  16         0200
  17         SETX    #XR
  18         SETB    #BASE
  19         LDX     0,1
  20         FSTA    #BASE
  21         FLDA%   #BASE,1+
  22         FSTA    A
  23         FLDA%   #BASE,1+
  24         FSTA    B
  25         STARTF
  26         FLDA%   A
  27         FSUB%   B
  28         JGE     #RTN
  29         FCLA
  30 #RTN,   JA      .
  31         END
  32 \f