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

   1 /
   2 / VERSION 5A 4-27-77  PT
   3 /
   4         SECT    FLOAT
   5         BASE    0
   6         FLDA    0
   7         STARTD
   8         FSTA    RETRN           /SAVE RETURN
   9         FADD    TWO             /ADDR OF ARG POINTER
  10         FSTA    3
  11         FLDA%   3               /ADDR OF ARG
  12         FSTA    3
  13         STARTF
  14         FLDA%   3               /GET ARG
  15 RETRN,  0;0                     /FLOAT IS A NOP
  16 TWO,    0;2
  17         END
  18 \f