sw/os8/v3d/sources/fortran/dectapes/dectape2/ltr.ra

   1 / LTR (LOAD TRUTH) EMULATION ROUTINES
   2 /
   3 / VERSION 5A 4-26-77 MH
   4 /
   5         SECT    #LTR
   6         ENTRY   #EQ
   7         FLDA    TRUE
   8         STARTF
   9 #EQ,    JA      .
  10         JEQ     #EQ-3
  11         FCLA
  12         JA      #EQ-1
  13         ENTRY   #NE
  14 #NE,    JA      .
  15         JEQ     .+4
  16         FLDA    TRUE
  17         STARTF
  18         JA      #NE
  19         ENTRY   #GE
  20         FLDA    TRUE
  21         STARTF
  22 #GE,    JA      .
  23         JGE     #GE-3
  24         FCLA
  25         JA      #GE-1
  26         ENTRY   #LE
  27         FLDA    TRUE
  28         STARTF
  29 #LE,    JA      .
  30         JLE     #LE-3
  31         FCLA
  32         JA      #LE-1
  33         ENTRY   #GT
  34         FLDA    TRUE
  35         STARTF
  36 #GT,    JA      .
  37         JGT     #GT-3
  38         FCLA
  39         JA      #GT-1
  40         ENTRY   #LT
  41         FLDA    TRUE
  42         STARTF
  43 #LT,    JA      .
  44         JLT     #LT-3
  45         FCLA
  46         JA      #LT-1
  47 TRUE,   F       1.0
  48         F 0.0
  49         END
  50 \f