[188] | 1 | *
|
---|
| 2 | * The Apache Software License, Version 1.1
|
---|
| 3 | *
|
---|
| 4 | * Copyright (c) 2004 The Apache Software Foundation. All rights
|
---|
| 5 | * reserved.
|
---|
| 6 | *
|
---|
| 7 | * Redistribution and use in source and binary forms, with or without
|
---|
| 8 | * modification, are permitted provided that the following conditions
|
---|
| 9 | * are met:
|
---|
| 10 | *
|
---|
| 11 | * 1. Redistributions of source code must retain the above copyright
|
---|
| 12 | * notice, this list of conditions and the following disclaimer.
|
---|
| 13 | *
|
---|
| 14 | * 2. Redistributions in binary form must reproduce the above copyright
|
---|
| 15 | * notice, this list of conditions and the following disclaimer in
|
---|
| 16 | * the documentation and/or other materials provided with the
|
---|
| 17 | * distribution.
|
---|
| 18 | *
|
---|
| 19 | * 3. The end-user documentation included with the redistribution,
|
---|
| 20 | * if any, must include the following acknowledgment:
|
---|
| 21 | * "This product includes software developed by the
|
---|
| 22 | * Apache Software Foundation (http://www.apache.org/)."
|
---|
| 23 | * Alternately, this acknowledgment may appear in the software
|
---|
| 24 | * itself, if and wherever such third-party acknowledgments
|
---|
| 25 | * normally appear.
|
---|
| 26 | *
|
---|
| 27 | * 4. The names "Xerces" and "Apache Software Foundation" must
|
---|
| 28 | * not be used to endorse or promote products derived from this
|
---|
| 29 | * software without prior written permission. For written
|
---|
| 30 | * permission, please contact apache\@apache.org.
|
---|
| 31 | *
|
---|
| 32 | * 5. Products derived from this software may not be called "Apache",
|
---|
| 33 | * nor may "Apache" appear in their name, without prior written
|
---|
| 34 | * permission of the Apache Software Foundation.
|
---|
| 35 | *
|
---|
| 36 | * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
|
---|
| 37 | * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
---|
| 38 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
---|
| 39 | * DISCLAIMED. IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
|
---|
| 40 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
---|
| 41 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
---|
| 42 | * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
|
---|
| 43 | * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
---|
| 44 | * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
---|
| 45 | * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
|
---|
| 46 | * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
---|
| 47 | * SUCH DAMAGE.
|
---|
| 48 | * ====================================================================
|
---|
| 49 | *
|
---|
| 50 | * This software consists of voluntary contributions made by many
|
---|
| 51 | * individuals on behalf of the Apache Software Foundation, and was
|
---|
| 52 | * originally based on software copyright (c) 1999, International
|
---|
| 53 | * Business Machines, Inc., http://www.ibm.com . For more information
|
---|
| 54 | * on the Apache Software Foundation, please see
|
---|
| 55 | * <http://www.apache.org/>.
|
---|
| 56 | *
|
---|
| 57 |
|
---|
| 58 | *
|
---|
| 59 | * $Log: trot.s,v $
|
---|
| 60 | * Revision 1.1 2004/02/06 15:02:11 cargilld
|
---|
| 61 | * Intrinsic transcoding support for 390.
|
---|
| 62 | *
|
---|
| 63 | *
|
---|
| 64 |
|
---|
| 65 | TROT CSECT
|
---|
| 66 | TROT RMODE ANY
|
---|
| 67 | USING *,15
|
---|
| 68 | STM 14,12,12(13) Save register content
|
---|
| 69 | USING PARMS,1 R1 = parameters
|
---|
| 70 | L 6,INPUT R6 = input data
|
---|
| 71 | L 4,LENGTH@
|
---|
| 72 | L 9,0(4) R9 = length of input data
|
---|
| 73 | L 4,STOP
|
---|
| 74 | L 0,0(4) R0 = Stop Character
|
---|
| 75 | LA 4,0
|
---|
| 76 | LA 5,1
|
---|
| 77 | L 8,OUTPUT R8 = output data
|
---|
| 78 | L 1,TBL R1 = Translate table @
|
---|
| 79 | RETR TROT 8,6 Translate input pointed to output buffer pointed
|
---|
| 80 | BZ END Branch to END if done
|
---|
| 81 | BM END Branch to END if Stop Char encountered
|
---|
| 82 | B RETR Continue translate
|
---|
| 83 | END L 14,12(,13) Restore the registers
|
---|
| 84 | LM 2,12,28(13)
|
---|
| 85 | BALR 1,14 Return
|
---|
| 86 | PARMS DSECT
|
---|
| 87 | INPUT DS A
|
---|
| 88 | OUTPUT DS A
|
---|
| 89 | LENGTH@ DS A
|
---|
| 90 | TBL DS A
|
---|
| 91 | STOP DS A
|
---|
| 92 | END
|
---|