2.11BSD#431 - /usr/src/ucb/pascal/px/02rel.s

   1: /
   2: / RELATIONAL OPERATORS
   3: /
   4: _REL2:
   5:         mov     (sp)+,r0
   6:         cmp     (sp)+,r0
   7:         jmp     *reltab(r3)
   8: _REL42:
   9:         mov     (sp)+,r0
  10:         mov     (sp)+,r1
  11:         tst     (sp)
  12:         sxt     r2
  13:         br      2f
  14: _REL24:
  15:         mov     (sp)+,r1
  16:         sxt     r0
  17:         br      1f
  18: _REL4:
  19:         mov     (sp)+,r0
  20:         mov     (sp)+,r1
  21: 1:
  22:         mov     (sp)+,r2
  23: 2:
  24:         cmp     r2,r0
  25:         bne     1f
  26:         cmp     (sp)+,r1
  27:         bhi     3f
  28:         beq     2f
  29:         tst     $-1
  30: 2:
  31:         jmp     *reltab(r3)
  32: 3:
  33:         tst     $1
  34:         jmp     *reltab(r3)
  35: 1:
  36:         tst     (sp)+
  37:         cmp     r2,r0
  38:         jmp     *reltab(r3)
  39: _REL28:
  40:         tst     (sp)
  41:         sxt     -(sp)
  42: _REL48:
  43:         movif   (sp)+,fr0
  44:         cmpf    (sp)+,fr0
  45:         cfcc
  46:         jmp     *reltab(r3)
  47: _REL82:
  48:         movf    (sp)+,fr0
  49:         tst     (sp)
  50:         sxt     -(sp)
  51:         br      1f
  52: _REL84:
  53:         movf    (sp)+,fr0
  54: 1:
  55:         movif   (sp)+,fr2
  56:         cmpf    fr2,fr0
  57:         cfcc
  58:         jmp     *reltab(r3)
  59: _REL8:
  60:         movf    (sp)+,fr0
  61:         cmpf    (sp)+,fr0
  62:         cfcc
  63:         jmp     *reltab(r3)
  64: _RELG:
  65:         mov     sp,r0
  66:         mov     (lc),r2
  67:         inc     r2
  68:         bic     $1,r2
  69:         add     r2,sp
  70:         mov     sp,r1
  71:         add     r2,sp
  72:         mov     (lc)+,r2
  73: 1:
  74:         cmpb    (r1)+,(r0)+
  75:         bne     1f
  76:         sob     r2,1b
  77:         tst     $0
  78: 1:
  79:         jmp     *reltab(r3)
  80: .data
  81: reltab:
  82:         releq
  83:         relne
  84:         rellt
  85:         relgt
  86:         relle
  87:         relge
  88:         ifeq
  89:         ifne
  90:         iflt
  91:         ifgt
  92:         ifle
  93:         ifge
  94: .text
  95: releq:
  96:         beq     true
  97:         clr     -(sp)
  98:         return
  99: relne:
 100:         bne     true
 101:         clr     -(sp)
 102:         return
 103: rellt:
 104:         blt     true
 105:         clr     -(sp)
 106:         return
 107: relgt:
 108:         bgt     true
 109:         clr     -(sp)
 110:         return
 111: relle:
 112:         ble     true
 113:         clr     -(sp)
 114:         return
 115: relge:
 116:         bge     true
 117:         clr     -(sp)
 118:         return
 119: true:
 120:         mov     $1,-(sp)
 121:         return
 122: false:
 123:         clr     -(sp)
 124:         return
 125: ifeq:
 126:         bne     iftra
 127:         tst     (lc)+
 128:         return
 129: ifne:
 130:         beq     iftra
 131:         tst     (lc)+
 132:         return
 133: iflt:
 134:         bge     iftra
 135:         tst     (lc)+
 136:         return
 137: ifgt:
 138:         ble     iftra
 139:         tst     (lc)+
 140:         return
 141: ifle:
 142:         bgt     iftra
 143:         tst     (lc)+
 144:         return
 145: ifge:
 146:         blt     iftra
 147:         tst     (lc)+
 148:         return
 149: iftra:
 150:         add     (lc),lc
 151:         return

Defined functions

Defined variables