Return to vaxbsubs.s CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / tn3270

Annotation of 43BSD/ucb/tn3270/vaxbsubs.s, revision 1.1

1.1     ! root        1: /*
        !             2:  *     Copyright 1984, 1985 by the Regents of the University of
        !             3:  *     California and by Gregory Glenn Minshall.
        !             4:  *
        !             5:  *     Permission to use, copy, modify, and distribute these
        !             6:  *     programs and their documentation for any purpose and
        !             7:  *     without fee is hereby granted, provided that this
        !             8:  *     copyright and permission appear on all copies and
        !             9:  *     supporting documentation, the name of the Regents of
        !            10:  *     the University of California not be used in advertising
        !            11:  *     or publicity pertaining to distribution of the programs
        !            12:  *     without specific prior permission, and notice be given in
        !            13:  *     supporting documentation that copying and distribution is
        !            14:  *     by permission of the Regents of the University of California
        !            15:  *     and by Gregory Glenn Minshall.  Neither the Regents of the
        !            16:  *     University of California nor Gregory Glenn Minshall make
        !            17:  *     representations about the suitability of this software
        !            18:  *     for any purpose.  It is provided "as is" without
        !            19:  *     express or implied warranty.
        !            20:  */
        !            21: 
        !            22: /* This is taken from bcmp.s from 4.2.
        !            23:  * The output of bunequal is the offset of the byte which didn't match;
        !            24:  * if all the bytes match, then we return n.
        !            25:  *
        !            26:  * BUGNOTE:  This has no chance of working for lengths greater than 64K.
        !            27:  *             (so, if you use this somewhere else, you may need to
        !            28:  *             fix it...)
        !            29:  */
        !            30: /* @(#)vaxbsubs.s      1.2     1.2 */
        !            31: /* bunequal(s1, s2, n) */
        !            32: 
        !            33: #include "DEFS.h"
        !            34: 
        !            35: ENTRY(bunequal)
        !            36:        movl    4(ap),r1
        !            37:        movl    8(ap),r3
        !            38:        movl    12(ap),r4
        !            39: 1:
        !            40:        movzwl  $65535,r0
        !            41:        cmpl    r4,r0
        !            42:        jleq    2f
        !            43:        subl2   r0,r4
        !            44:        cmpc3   r0,(r1),(r3)
        !            45:        jeql    1b
        !            46:        addl2   r4,r0
        !            47:        /* changes... */
        !            48:        subl3   r0,12(ap),r0
        !            49:        /* end of changes for bunequal... */
        !            50:        ret
        !            51: 2:
        !            52:        cmpc3   r4,(r1),(r3)
        !            53:        /* changes... */
        !            54:        subl3   r0,12(ap),r0
        !            55:        /* end of changes for bunequal... */
        !            56:        ret
        !            57: 
        !            58: 
        !            59: 
        !            60: 
        !            61: /* brand new code, using the above as base... */
        !            62: /* bskip(s1, n, b) : finds the first occurrence of any byte != 'b' in the 'n'
        !            63:  * bytes beginning at 's1'.
        !            64:  *
        !            65:  * BUGNOTE:  This has no chance of working for lengths greater than 64K.
        !            66:  *             (so, if you use this somewhere else, you may need to
        !            67:  *             fix it...)
        !            68:  */
        !            69: 
        !            70: ENTRY(bskip)
        !            71:        movl    4(ap),r1
        !            72:        movl    8(ap),r3
        !            73:        movl    12(ap),r4
        !            74: 1:
        !            75:        movzwl  $65535,r0
        !            76:        cmpl    r3,r0
        !            77:        jleq    2f
        !            78:        subl2   r0,r3
        !            79:        skpc    r4,r0,(r1)
        !            80:        jeql    1b
        !            81:        addl2   r3,r0
        !            82:        subl3   r0,8(ap),r0
        !            83:        ret
        !            84: 2:
        !            85:        skpc    r4,r3,(r1)
        !            86:        subl3   r0,8(ap),r0
        !            87:        ret

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