sw/rescue/lab8e_goettingen/disk1_im6100/rka/paroff/ltr.ra

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