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     ! 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.