2.9BSD - /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