# 2.11BSD#431 - /usr/src/ucb/pascal/px/24case.s

       1: /
       2: / CASE OPERATORS
       3: /
       4: _CASE1OP:
       5:         bne     1f
       6:         mov     (lc)+,r3
       7: 1:
       8:         mov     lc,r0
       9:         add     r3,r0
      10:         add     r3,r0
      11:         mov     r3,r2
      12:         tst     (sp)+
      13: 1:
      14:         cmpb    (r0)+,-2(sp)
      15:         beq     5f
      16:         sob     r3,1b
      17:         mov     $ECASE,_perrno
      18:         error   ECASE
      19: _CASE2OP:
      20:         bne     1f
      21:         mov     (lc)+,r3
      22: 1:
      23:         mov     lc,r0
      24:         add     r3,r0
      25:         add     r3,r0
      26:         mov     r3,r2
      27:         tst     (sp)+
      28: 1:
      29:         cmp     (r0)+,-2(sp)
      30:         beq     5f
      31:         sob     r3,1b
      32:         mov     $ECASE,_perrno
      33:         error   ECASE
      34: _CASE4OP:
      35:         bne     1f
      36:         mov     (lc)+,r3
      37: 1:
      38:         mov     lc,r0
      39:         add     r3,r0
      40:         add     r3,r0
      41:         mov     r3,r2
      42:         cmp     (sp)+,(sp)+
      43: 1:
      44:         cmp     (r0)+,-4(sp)
      45:         beq     2f
      46:         tst     (r0)+
      47:         br      3f
      48: 2:
      49:         cmp     (r0)+,-2(sp)
      50:         beq     5f
      51: 3:
      52:         sob     r3,1b
      53:         mov     $ECASE,_perrno
      54:         error   ECASE
      55: 5:
      56:         sub     r3,r2
      57:         add     r2,r2
      58:         add     lc,r2
      59:         add     (r2),lc
      60:         return

#### Defined functions

_CASE1OP defined in line 4; never used
_CASE2OP defined in line 19; never used
_CASE4OP defined in line 34; never used

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