# 2.11BSD#431 - /usr/src/ucb/pascal/px/21rang.s

       1: /
       2: / range checking
       3: /
       4: _RANG42:
       5:         bne     1f
       6:         mov     (lc)+,r3
       7: 1:
       8:         mov     2(sp),r0
       9:         sxt     r1
      10:         cmp     r1,(sp)
      11:         bne     9f
      12:         br      2f
      13: _RANG2:
      14:         bne     1f
      15:         mov     (lc)+,r3
      16: 1:
      17:         mov     (sp),r0
      18: 2:
      19:         cmp     r0,r3
      20:         blt     9f
      21:         cmp     r0,(lc)+
      22:         bgt     9f
      23:         return
      24: _RSNG42:
      25:         bne     1f
      26:         mov     (lc)+,r3
      27: 1:
      28:         mov     2(sp),r0
      29:         sxt     r1
      30:         cmp     r1,(sp)
      31:         bne     9f
      32:         cmp     r0,r3
      33:         bhi     9f
      34:         return
      35: _RSNG2:
      36:         bne     1f
      37:         mov     (lc)+,r3
      38: 1:
      39:         cmp     (sp),r3
      40:         bhi     9f
      41:         return
      42: _RSNG4:
      43:         mov     (sp),r0
      44:         bmi     9f
      45:         mov     2(sp),r1
      46:         br      2f
      47: _RSNG24:
      48:         mov     (sp),r1
      49:         bmi     9f
      50:         sxt     r0
      51:         br      2f
      52: _RANG24:
      53:         mov     (sp),r1
      54:         sxt     r0
      55:         br      1f
      56: _RANG4:
      57:         mov     (sp),r0
      58:         mov     2(sp),r1
      59: 1:
      60:         cmp     r0,(lc)+
      61:         blt     9f
      62:         bgt     1f
      63:         cmp     r1,(lc)
      64:         blo     9f
      65: 1:
      66:         tst     (lc)+
      67: 2:
      68:         cmp     r0,(lc)+
      69:         bgt     9f
      70:         blt     1f
      71:         cmp     r1,(lc)
      72:         bhi     9f
      73: 1:
      74:         tst     (lc)+
      75:         return
      76: 9:
      77:         mov     $ERANGE,_perrno
      78:         error   ERANGE

#### Defined functions

_RANG2 defined in line 13; never used
_RANG24 defined in line 52; never used
_RANG4 defined in line 56; never used
_RANG42 defined in line 4; never used
_RSNG2 defined in line 35; never used
_RSNG24 defined in line 47; never used
_RSNG4 defined in line 42; never used
_RSNG42 defined in line 24; never used

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