Chapter 11. Exits 255
*        Register                                                     * 00230000
*          Convention:  R1  points to the Parameter list              * 00240000
*                       R12 base register                               00250000
*                                                                     * 00260000
*        Patch Label:   PSPACE                                        * 00270000
*                                                                     * 00280000
*     Input:            Parameter list pointed to by Register 1       * 00290000
*                           Parameter list contains addresses of:     * 00300000
*                           - message length                          * 00310000
*                           - message text                            * 00320000
*                                                                     * 00330000
*     Output:           None                                          * 00340000
*                                                                     * 00350000
*     Return codes:                                                   * 00360000
*                                                                     * 00370000
*        NORMAL:        R15 = return code from WTO                    * 00380000
*                                                                     * 00390000
*     Exits:            Return to caller via BR 14                    * 00400000
*                                                                     * 00410000
*     External References:                                            * 00420000
*                                                                     * 00430000
*     Change Activity:  See below                                     * 00440000
*                                                                     * 00450000
*     Ver Rel Mod    Date    Description of Change                    * 00460000
*     ___________  ________  _______________________________________  * 00470000
*      0?  0?  00  04/05/00  Release ?.?                              * 00480000
*                                                                     * 00490000
********************  END OF MODULE SPECIFICATIONS  ******************* 00500000
ARSLOG   csect                                                          00510000
ARSLOG   rmode any                                                      00520000
ARSLOG   amode 31                                                       00530000
         using *,r15                                                    00540000
         b     pastcopy                                                 00550000
         dc    C'ARSLOG  &sysdate'                                      00560000
         dc    C'5622-662 (C) COPYRIGHT IBM CORP. 2013'                 00570000
         dc    C'ALL RIGHTS RESERVED'                                   00580000
         dc    C'LICENSED MATERIALS-PROPERTY OF IBM'                    00590000
pastcopy ds    0h                                                       00600000
         stm   14,12,12(r13)                                            00610001
         lr    r12,r15                                                  00620000
         lr    r2,r1                                                    00630000
         using plist,r2                                                 00640000
         drop  r15                                                      00650000
         using ARSLOG,r12                                               00660000
         storage OBTAIN,length=workl,loc=ANY,cond=YES                   00670000
         ltr   r15,r15                                                  00680000
         jnz   bagit                                                    00690000
         st    r13,4(,r1)                                               00700000
         st    r1,8(,r13)                                               00710000