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