home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / px / 17ind.s < prev    next >
Text File  |  1980-02-17  |  397b  |  40 lines
  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
  40.