sw/f4/FRTSRC/sign.ra

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