2.9BSD - /usr/src/ucb/pascal/px/17ind.s

   1: /
   2: / INDS
   3: /
   4: _IND2:
   5:         mov     *(sp)+,-(sp)
   6:         return
   7: _IND4:
   8:         mov     (sp),r0
   9:         tst     -(sp)
  10:         mov     sp,r2
  11:         mov     (r0)+,(r2)+
  12:         mov     (r0)+,(r2)+
  13:         return
  14: _IND1:
  15:         movb    *(sp),r0
  16:         mov     r0,(sp)
  17:         return
  18: _IND8:
  19:         mov     $8,r3
  20: _IND:
  21:         bne     1f
  22:         mov     (lc)+,r3
  23: 1:
  24:         mov     (sp)+,r0
  25: _INDcon:
  26:         add     r3,r0
  27:         asr     r3
  28:         bcc     1f
  29:         movb    -(r0),r1
  30:         bic     $!377,r1
  31:         mov     r1,-(sp)                / clean for sets, e.g.
  32: 1:
  33:         inc     r3
  34:         br      2f
  35: 1:
  36:         mov     -(r0),-(sp)
  37: 2:
  38:         sob     r3,1b
  39:         return

Defined functions