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

   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)

Defined functions