** 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     CSECTTROT     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 translateEND      L       14,12(,13)    Restore the registers         LM      2,12,28(13)         BALR    1,14          ReturnPARMS    DSECTINPUT    DS AOUTPUT   DS ALENGTH@  DS ATBL      DS ASTOP     DS A   END