text: <html>
          <head> <meta charset="UTF-8">
          <style>
          table, th, td {
              border: 1px solid black;
              font-size: 10px;
          }
          </style> </head>
          <body>
          <table frame="hsides" rules="groups" width="100%%">
              [html]<thead><tr><td>•</td><tdcolspan="3">Register</td><td>* 00230000</td><td>*</td></tr></thead><tbody><tr><td>Convention :</td><tdcolspan="3">R1 po1nts to the Parameter 11st</td><td>* 00240000</td><td>*</td></tr><tr><td>: 12 base register</td><tdcolspan="3">00250000</td><td>•</td><td>* 00260000</td></tr><tr><td>*</td><tdcolspan="3">Patch Label :</td><td>PSPACE</td><td>* 00270000</td></tr><tr><td>*</td><tdcolspan="3">* 00280000</td><td>*</td><td>Input :</td></tr><tr><td>Parameter 11st po1nted to by Reg1ster 1</td><tdcolspan="3">* 00290000</td><td>*</td><td>Parameter 11st contains addresses of :</td></tr><tr><td>* 00300000</td><tdcolspan="3">*</td><td>- message 1ength</td><td>* 00310000</td></tr><tr><td>*</td><tdcolspan="3">- message text</td><td>* 00320000</td><td>*</td></tr><tr><td>* 00330000</td><tdcolspan="3">*</td><td>Output :</td><td>None</td></tr><tr><td>* 00340000</td><tdcolspan="3">*</td><td>* 00350000</td><td>*</td></tr><tr><td>Return codes :</td><tdcolspan="3">* 00360000</td><td>*</td><td>* 00370000</td></tr><tr><td>•</td><tdcolspan="3">NORMAL :</td><td>R15 – return code from WT0</td><td>* 00380000</td></tr><tr><td>*</td><tdcolspan="3">* 00390000</td><td>*</td><td>Ex1 ts :</td></tr><tr><td>Return to caller v1a BR 14</td><tdcolspan="3">* 00400000</td><td>*</td><td>* 00410000</td></tr><tr><td>*</td><tdcolspan="3">Externa1</td><td>References :</td><td>* 00420000</td></tr><tr><td>*</td><tdcolspan="3">* 00430000</td><td>*</td><td>Change</td></tr><tr><td>Act 1 v1 ty :</td><tdcolspan="3">See below</td><td>* 00440000</td><td>*</td></tr><tr><td>* 00450000</td><tdcolspan="3">*</td><td>Ver Re</td><td>Mod</td></tr><tr><td>Date</td><tdcolspan="3">Description of Change</td><td>* 00460000</td><td>*</td></tr><tr><td>* 00470000</td><tdcolspan="3">*</td><td>0</td><td>00</td></tr><tr><td>04 / 05 / 00</td><tdcolspan="3">Release 7.2</td><td>* 00480000</td><td>*</td></tr><tr><td>* 00490000</td><tdcolspan="3">******</td><td>A + A + A +</td><td>END OF MODULE SPECIFICATIONS</td></tr><tr><td>********************************************************************************************************************************************************************************************************</td><tdcolspan="3">00500000</td><td>ARSLOG</td><td>csect</td></tr><tr><td>00510000</td><tdcolspan="3">ARSL0G</td><td>rrmode any</td><td>00520000</td></tr><tr><td>ARSL0G</td><tdcolspan="3">amode</td><td>31</td><td>00530000</td></tr><tr><td>using</td><tdcolspan="3">*, r15</td><td>00540000</td><td>b</td></tr><tr><td>pastcopy</td><tdcolspan="3">00550000</td><td>dc</td><td>C ' ARSLOG ' s date '</td></tr><tr><td>00560000</td><tdcolspan="3">dc</td><td>C ' 5622 - 662 ( C ) COPYR1GHT 1BM CORP. 2013 '</td><td>00570000</td></tr><tr><td>dc</td><tdcolspan="3">C * ALL RIGHTS RESERVED</td><td>00580000</td><td>dc</td></tr><tr><td>C ' LICENSED MATERIALS - PROPERTY OF IBM '</td><tdcolspan="3">00590000</td><td>pastcopy</td><td>ds</td></tr><tr><td>0h</td><tdcolspan="3">00600000</td><td>s tm</td><td>14.12.12 ( r13 )</td></tr><tr><td>00610001</td><tdcolspan="3">1 r</td><td>r12, r15</td><td>00620000</td></tr><tr><td>1 r</td><tdcolspan="3">r2, r1</td><td>00630000</td><td>us ing</td></tr><tr><td>p11 st, r2</td><tdcolspan="3">00640000</td><td>drop</td><td>r15</td></tr><tr><td>00650000</td><tdcolspan="3">using</td><td>ARSL0G, r12</td><td>00660000</td></tr><tr><td>stora</td><td>QBTA1N, 1ength = work1.1oc = ANY, cond = YES</td><tdcolspan="3">00670000</td><td>1 tr</td></tr><tr><td>r15, r15</td><td>00680000</td><tdcolspan="3">JinZ</td><td>bag1t</td></tr><tr><td>0069000</td><td>st</td><tdcolspan="3">r13.4 (, r1 )</td><td>00700000</td></tr><tr><td>st</td><td>r1.8 (, r13 )</td><tdcolspan="3">00710000</td><td>1 r</td></tr><tr><td>r13, r1</td><td>00720000</td><tdcolspan="3">us ing</td><td>workarea, r13</td></tr><tr><td>00730000</td><td>*</td><tdcolspan="3">00740000</td><td>* Det</td></tr><tr><td>ne</td><tdcolspan="3">e message</td><td>1ength</td><td>00750005</td></tr><tr><td>*</td><tdcolspan="3">00760000</td><td>s1r -</td><td>r1, r1</td></tr><tr><td>Number of bytes</td><tdcolspan="3">00770005</td><td>1</td><td>r15, msgtxta</td></tr><tr><td>get starting address</td><tdcolspan="3">00780005</td><td>nu11oop</td><td>ds</td></tr><tr><td>0h</td><tdcolspan="3">00790006</td><td>c11</td><td>0 ( r15 ), × ' 00 '</td></tr><tr><td>Is 1t zero?</td><tdcolspan="3">00800005</td><td>Je</td><td>nomore</td></tr><tr><td>Yes - quit</td><tdcolspan="3">00810005</td><td>1a</td><td>r1.1 (, r1 )</td></tr><tr><td>Bump count</td><tdcolspan="3">00820005</td></tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr><tr><tdcolspan="3"</tr></tbody>
          </table> </body> </html>