trot.s

来自「IBM的解析xml的工具Xerces的源代码」· S 代码 · 共 58 行

*
* Copyright 1999-2004 The Apache Software Foundation.
* 
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
* 
*      http://www.apache.org/licenses/LICENSE-2.0
* 
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or      
* implied. See the License for the specific language governing
* permissions and limitations under the License.
*

*
* $Log: trot.s,v $
* Revision 1.3  2004/09/17 09:58:09  cargilld
* Updates to build on OS390 from Steve Dulin.
*
* Revision 1.2  2004/09/08 13:56:46  peiyongz
* Apache License Version 2.0
*
* Revision 1.1  2004/02/06 15:02:11  cargilld
* Intrinsic transcoding support for 390.
*
*

TROT     CSECT
TROT     RMODE ANY
         USING   *,15
         STM     14,12,12(13)  Save register content
         USING   PARMS,1       R1 = parameters
         L       6,INPUT       R6 = input data
         L       4,LENGTH@     
         L       9,0(4)        R9 = length of input data
         L       4,STOP
         L       0,0(4)        R0 = Stop Character
         LA      4,0
         LA      5,1
         L       8,OUTPUT      R8 = output data
         L       1,TBL         R1 = Translate table @
RETR     TROT    8,6   Translate input pointed to output buffer pointed
         BZ      END           Branch to END if done
         BM      END           Branch to END if Stop Char encountered
         B       RETR          Continue translate
END      L       14,12(,13)    Restore the registers
         LM      2,12,28(13)
         BALR    1,14          Return
PARMS    DSECT
INPUT    DS A
OUTPUT   DS A
LENGTH@  DS A
TBL      DS A
STOP     DS A
   END