# 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

_REL2 defined in line 4; never used
_REL24 defined in line 14; never used
_REL28 defined in line 39; never used
_REL4 defined in line 18; never used
_REL42 defined in line 8; never used
_REL48 defined in line 42; never used
_REL8 defined in line 59; never used
_REL82 defined in line 47; never used
_REL84 defined in line 52; never used
_RELG defined in line 64; never used
false defined in line 122; never used
ifeq defined in line 125; used 1 times

- in line 88

ifge defined in line 145; used 1 times

- in line 93

ifgt defined in line 137; used 1 times

- in line 91

ifle defined in line 141; used 1 times

- in line 92

iflt defined in line 133; used 1 times

- in line 90

ifne defined in line 129; used 1 times

- in line 89

iftra defined in line 149; used 6 times

- in line 126-146(6)

releq defined in line 95; used 1 times

- in line 82

relge defined in line 115; used 1 times

- in line 87

relgt defined in line 107; used 1 times

- in line 85

relle defined in line 111; used 1 times

- in line 86

rellt defined in line 103; used 1 times

- in line 84

relne defined in line 99; used 1 times

- in line 83

true defined in line 119; used 6 times

- in line 96-116(6)

#### Defined variables

reltab defined in line 81; used 8 times

- in line 7, 31-38(3), 46, 58-63(2), 79

Last modified: 1981-12-07 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 548 |