UNIX 6th Ed. - /usr/source/fort/rt/rf.s

   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)

Defined functions