ar    r15,r3             add length of text                    01290005
         stcm  r15,b'0011',msgtxt  Set the length                       01300005
         bctr  r3,0               subtract 1                            01310005
         l     r15,msgtxta        Get source address                    01320005
         ex    r3,mvcins          Move it                               01330005
                                                                        01340000
         mvc   wtoe,wto1          init the execute form                 01350007
         la    r3,msgtxt                                                01360005
         slr   r0,r0                                                    01370000
         wto   text=(r3),mf=(E,wtoe)                                    01380005
         j     exit               exit                                  01390000
                                                                        01400000
                                                                        02250000
exit     ds    0h                                                       02260000