2.11BSD#431 - /usr/src/ucb/pascal/px/26for.s

   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

Defined functions