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 / 26for.s < prev    next >
Text File  |  1980-02-17  |  693b  |  72 lines
  1. /
  2. / FORS
  3. /
  4. _FOR1U:
  5.     mov    (sp)+,r2
  6.     movb    (r2),r1
  7.     sxt    r0
  8.     incb    (r2)
  9.     br    1f
  10. _FOR2U:
  11.     mov    (sp)+,r2
  12.     mov    (r2),r1
  13.     sxt    r0
  14.     inc    (r2)
  15.     br    1f
  16. _FOR4U:
  17.     mov    (sp)+,r2
  18.     mov    (r2)+,r0
  19.     mov    (r2),r1
  20.     add    $1,(r2)
  21.     adc    -2(r2)
  22. 1:
  23.     mov    (sp)+,r2
  24.     mov    (sp)+,r3
  25.     cmp    r0,r2
  26.     beq    1f
  27.     bgt    2f
  28.     add    (lc),lc
  29.     return
  30. 1:
  31.     cmp    r1,r3
  32.     bhis    2f
  33.     add    (lc),lc
  34.     return
  35. 2:
  36.     tst    (lc)+
  37.     return
  38. _FOR1D:
  39.     mov    (sp)+,r2
  40.     movb    (r2),r1
  41.     sxt    r0
  42.     decb    (r2)
  43.     br    1f
  44. _FOR2D:
  45.     mov    (sp)+,r2
  46.     mov    (r2),r1
  47.     sxt    r0
  48.     dec    (r2)
  49.     br    1f
  50. _FOR4D:
  51.     mov    (sp)+,r2
  52.     mov    (r2)+,r0
  53.     mov    (r2),r1
  54.     sub    $1,(r2)
  55.     sbc    -2(r2)
  56. 1:
  57.     mov    (sp)+,r2
  58.     mov    (sp)+,r3
  59.     cmp    r0,r2
  60.     beq    1f
  61.     blt    2f
  62.     add    (lc),lc
  63.     return
  64. 1:
  65.     cmp    r1,r3
  66.     blos    2f
  67.     add    (lc),lc
  68.     return
  69. 2:
  70.     tst    (lc)+
  71.     return
  72.