home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / re.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  497 b   |  58 lines
  1. /
  2. /
  3.  
  4. / re -- comparison of 8-byte quantities
  5.  
  6. .globl    rle8
  7. .globl    rlt8
  8. .globl    req8
  9. .globl    rne8
  10. .globl    rge8
  11. .globl    rgt8
  12. rlt8:
  13.     jsr    pc,compar
  14.     blt    one
  15.     br    zero
  16.  
  17. rle8:
  18.     jsr    pc,compar
  19.     ble    one
  20.     br    zero
  21.  
  22. req8:
  23.     jsr    pc,compar
  24.     beq    one
  25.     br    zero
  26.  
  27. rne8:
  28.     jsr    pc,compar
  29.     bne    one
  30.     br    zero
  31.  
  32. rge8:
  33.     jsr    pc,compar
  34.     bge    one
  35.     br    zero
  36.  
  37. rgt8:
  38.     jsr    pc,compar
  39.     bgt    one
  40.     br    zero
  41.  
  42. one:
  43.     mov    $1,-(sp)
  44.     jmp    *(r4)+
  45.  
  46. zero:
  47.     clr    -(sp)
  48.     jmp    *(r4)+
  49.  
  50. compar:
  51.     setd
  52.     mov    (sp)+,r0
  53.     movf    (sp)+,fr0
  54.     cmpf    (sp)+,fr0
  55.     cfcc
  56.     jmp    (r0)
  57.  
  58.