# 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

_FOR1D defined in line 38; never used
_FOR1U defined in line 4; never used
_FOR2D defined in line 44; never used
_FOR2U defined in line 10; never used
_FOR4D defined in line 50; never used
_FOR4U defined in line 16; never used

Last modified: 1981-07-10 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 541 |