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