ascii.s

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

*
* 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: ascii.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 14:52:38  cargilld
* Intrinsic transcoding support for 390.
*
*

TROTASC  CSECT
TROTASC  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       10,LENGTH@    R10 = @ of length
         L       9,0(4)        R9 = length of input data
         L       4,STOP
         L       0,0(4)        R0 = Stop Character
         LR      4,6           Store input data @ in R4
         LA      5,1
         L       8,OUTPUT      R8 = output data
         L       11,FLAG       R11 = @ of FLAG
         L       1,TBL         R1 = Translate table @
RETR     TROT    8,6   Translate input pointed to output buffer pointed
         BO      RETR          Not done yet
         BZ      END           Branch to END if done
         ST      5,0(11)       FLAG = 1 none-ASCII character found
         B       END           Branch to END if Stop Char found
END      SR      6,4           Number of characters processed
         ST      6,0(10)       Store number of characters to Length
         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
FLAG     DS A
   END