skpc.S revision 1.3
11.3Sthorpej/* $NetBSD: skpc.S,v 1.3 1999/11/11 01:53:46 thorpej Exp $ */ 21.2Scgd 31.1Scgd/* 41.1Scgd * Copyright (c) 1988 University of Utah. 51.1Scgd * Copyright (c) 1980, 1990 The Regents of the University of California. 61.1Scgd * All rights reserved. 71.1Scgd * 81.1Scgd * This code is derived from software contributed to Berkeley by 91.1Scgd * the Systems Programming Group of the University of Utah Computer 101.1Scgd * Science Department. 111.1Scgd * 121.1Scgd * Redistribution and use in source and binary forms, with or without 131.1Scgd * modification, are permitted provided that the following conditions 141.1Scgd * are met: 151.1Scgd * 1. Redistributions of source code must retain the above copyright 161.1Scgd * notice, this list of conditions and the following disclaimer. 171.1Scgd * 2. Redistributions in binary form must reproduce the above copyright 181.1Scgd * notice, this list of conditions and the following disclaimer in the 191.1Scgd * documentation and/or other materials provided with the distribution. 201.1Scgd * 3. All advertising materials mentioning features or use of this software 211.1Scgd * must display the following acknowledgement: 221.1Scgd * This product includes software developed by the University of 231.1Scgd * California, Berkeley and its contributors. 241.1Scgd * 4. Neither the name of the University nor the names of its contributors 251.1Scgd * may be used to endorse or promote products derived from this software 261.1Scgd * without specific prior written permission. 271.1Scgd * 281.1Scgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 291.1Scgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 301.1Scgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 311.1Scgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 321.1Scgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 331.1Scgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 341.1Scgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 351.1Scgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 361.1Scgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 371.1Scgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 381.1Scgd * SUCH DAMAGE. 391.1Scgd * 401.1Scgd * from: Utah Hdr: locore.s 1.58 91/04/22 411.2Scgd * @(#)locore.s 7.11 (Berkeley) 5/9/91 421.1Scgd */ 431.1Scgd 441.1Scgd#include "DEFS.h" 451.1Scgd 461.1Scgd/* 471.1Scgd * Emulate fancy VAX string operations: 481.1Scgd * skpc(mask, count, startc) 491.1Scgd */ 501.1ScgdENTRY(skpc) 511.3Sthorpej movl %sp@(8),%d0 | get length 521.1Scgd jeq Lskdone | nothing to do, return 531.3Sthorpej movb %sp@(7),%d1 | mask to use 541.3Sthorpej movl %sp@(12),%a0 | where to start 551.3Sthorpej subqw #1,%d0 | adjust for dbcc 561.1ScgdLskloop: 571.3Sthorpej cmpb %a0@+,%d1 | compate with mask 581.3Sthorpej dbne %d0,Lskloop | keep going til no more or zero 591.3Sthorpej addqw #1,%d0 | overshot by one 601.1ScgdLskdone: 611.1Scgd rts 62