Return to 26for.s CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / px

Annotation of 41BSD/cmd/px/26for.s, revision 1.1.1.1

1.1       root        1: #
                      2: # Copyright (c) 1979 Regents of the University of California
                      3: #
                      4: # char sccsid[] = "@(#)26for.s 4.1 10/10/80";
                      5: #
                      6: # FORS
                      7: #
                      8: _FOR1U:
                      9:        incl    r10
                     10:        movl    (sp)+,r0        #r0 ptrs to index variable
                     11:        movl    (sp)+,r1        #r1 has limit
                     12:        cmpb    r1,(r0)         #check for done
                     13:        bleq    done
                     14:        incb    (r0)            #increment pointer
                     15:        cvtwl   (r10),r1
                     16:        addl2   r1,r10
                     17:        jmp     (r8)
                     18: done:
                     19:        addl2   $2,r10
                     20:        jmp     (r8)
                     21: _FOR2U:
                     22:        incl    r10
                     23:        movl    (sp)+,r0        #r0 ptrs to index variable
                     24:        movl    (sp)+,r1        #r1 has limit
                     25:        cmpw    r1,(r0)         #check for done
                     26:        bleq    done
                     27:        incw    (r0)            #increment pointer
                     28:        cvtwl   (r10),r1
                     29:        addl2   r1,r10
                     30:        jmp     (r8)
                     31: _FOR4U:
                     32:        incl    r10
                     33:        movl    (sp)+,r0        #r0 ptrs to index variable
                     34:        cmpl    (sp)+,(r0)      #check for done
                     35:        bleq    done
                     36:        incl    (r0)            #increment pointer
                     37:        cvtwl   (r10),r1
                     38:        addl2   r1,r10
                     39:        jmp     (r8)
                     40: _FOR1D:
                     41:        incl    r10
                     42:        movl    (sp)+,r0        #r0 ptrs to index variable
                     43:        movl    (sp)+,r1        #r1 has limit
                     44:        cmpb    r1,(r0)         #check for done
                     45:        bgeq    done
                     46:        decb    (r0)            #increment pointer
                     47:        cvtwl   (r10),r1
                     48:        addl2   r1,r10
                     49:        jmp     (r8)
                     50: _FOR2D:
                     51:        incl    r10
                     52:        movl    (sp)+,r0        #r0 ptrs to index variable
                     53:        movl    (sp)+,r1        #r1 has limit
                     54:        cmpw    r1,(r0)         #check for done
                     55:        bgeq    done
                     56:        decw    (r0)            #increment pointer
                     57:        cvtwl   (r10),r1
                     58:        addl2   r1,r10
                     59:        jmp     (r8)
                     60: _FOR4D:
                     61:        incl    r10
                     62:        movl    (sp)+,r0        #r0 ptrs to index variable
                     63:        cmpl    (sp)+,(r0)      #check for done
                     64:        bgeq    done
                     65:        decl    (r0)            #increment pointer
                     66:        cvtwl   (r10),r1
                     67:        addl2   r1,r10
                     68:        jmp     (r8)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.