IBM Mainframe, zOS Assembler, ASCV ASCR, Samp.Ouput

Sample Output from the DA390 Advanced Disassembler

The disAssembled listing contains a header providing basic information and additionally shows how DA390 has sub-divided the module. Type Z sections are for example code

Other features to look out for are:

                                      1 ***********************************************************************         
                                      2 *                                                                     *         
                                      3 *    Module: UNBAATCH                                                 *         
                                      4 *                                                                     *         
                                      5 *    DisAssemble was run at: 13:15:19 on Saturday October 22, 2016    *         
                                      6 *                                                                     *         
                                      7 *    Items array at end of Pass 1                                     *         
                                      8 *    036 items as offsets(item type, hex-len):                        *         
                                      9 *    ==========================================================       *         
                                     10 *     0.  00000(Z,4)     00004(U,24)   +00008(B,8)     00028(Z,D0)    *         
                                     11 *     4.  000F8(L,4)     000FC(Z,128)   00224(B,8)     0022C(Z,88)    *         
                                     12 *     8.  002B4(L,4)     002B8(Z,B8)    00370(U,4)     00374(Z,18)    *         
                                     13 *    12.  0038C(U,4)     00390(Z,24)    003B4(B,8)     003BC(Z,98)    *         
                                     14 *    16.  00454(U,4)     00458(Z,10)    00468(U,4)     0046C(Z,96)    *         
                                     15 *    20.  00508(B,8)     00510(B,8)     00518(B,4)     0051C(B,4)     *         
                                     16 *    24.  00520(I,4)     00524(B,2)     00526(L,2)     00528(L,2)     *         
                                     17 *    28.  0052A(B,2)     0052C(B,2)     0052E(B,3)     00531(I,13)    *         
                                     18 *    32.  00544(B,8)     0054C(*,58)    005A4(*,38)    005DC(B,48)    *         
                                     19 *                                                                     *         
                                     20 ***********************************************************************         
000000                00000 00624    21 UNBAATCH CSECT                                                                  
000000                               22 UNBAATCH AMODE 31                                                               
000000                               23 UNBAATCH RMODE 31                                                               
000000           R:F  00000          24 UNBAATCH USING *,R15                                                            
000000 47F0 F028            00028    25          B     LBL00001                                                         
000004 24                            26          DC    AL1(36)                                                          
000005 E4D540                        27          DC    C'UN '                                                           
000008 E4D5C2C1C1E3C3C8              28 ITM00002 DC    C'UNBAATCH'                                                      
000010 40D3E4D5C1F1F1F0              29          DC    C' LUNA110 06.25 05/27/09'                                       
000018 40F0F64BF2F540F0                                                                                                 
000020 F561F2F761F0F9                                                                                                   
000027 00                            30          DC    AL1(0)                                                           
000028                               31 LBL00001 DS    0H                                                               
000028 90EC D00C                     32          STM   R14,R12,12(R13)                                                  
                                     33          DROP  R15                                                              
00002C 18CF                          34          LR    R12,R15                                                          
                 R:C  00000          35          USING UNBAATCH,R12                                                     
00002E 5010 D008            00008    36          ST    R1,8(,R13)                                                       
000032 50D0 1004            00004    37          ST    R13,4(,R1)                                                       
000036 18D1                          38          LR    R13,R1                                                           
000038 4100 D100            00100    39          LA    R0,256(,R13)                                                     
00003C 4110 0400            00400    40          LA    R1,1024                                                          
000040 17FF                          41          XR    R15,R15                                                          
000042 0E0E                          42          MVCL  R0,R14                                                           
000044 D207 D048 C008 00048 00008    43          MVC   72(8,R13),ITM00002                                               
00004A 5810 D004            00004    44          L     R1,4(,R13)                                                       
00004E D200 D0E8 10E8 000E8 000E8    45          MVC   232(1,R13),232(R1)                                               
000054 5810 D054            00054    46          L     R1,84(,R13)                                                      
000058 5880 1000            00000    47          L     R8,0(,R1)                                                        
00005C 9120 B020                     48          TM    32(R11),X'20'                                                    
000060 4710 C4EE            004EE    49          BO    LBL00027                                                         
000064 9180 8032                     50          TM    50(R8),X'80'                                                     
000068 4710 C07C            0007C    51          BO    LBL00002                                                         
00006C 9680 8032                     52          OI    50(R8),X'80'                                                     
000070 58F0 B284            00284    53          L     R15,644(,R11)                                                    
000074 41F0 F001            00001    54          LA    R15,1(,R15)                                                      
000078 50F0 B284            00284    55          ST    R15,644(,R11)                                                    
00007C                               56 LBL00002 DS    0H                                                               
00007C D503 B458 C518 00458 00518    57          CLC   1112(4,R11),ITM00022                                             
000082 4780 C0DE            000DE    58          BE    LBL00004                                                         
000086 41E0 D068            00068    59          LA    R14,104(,R13)                                                    
00008A D753 E000 E000 00000 00000    60          XC    0(84,R14),0(R14)                                                 
000090 D201 E004 C524 00004 00524    61          MVC   4(2,R14),ITM00025                                                
000096 D202 E008 C52E 00008 0052E    62          MVC   8(3,R14),ITM00030                                                
00009C 9280 E006                     63          MVI   6(R14),X'80'                                                     
0000A0 41F0 8018            00018    64          LA    R15,24(,R8)                                                      
0000A4 50F0 E014            00014    65          ST    R15,20(,R14)                                                     
0000A8 41F0 0008            00008    66          LA    R15,8                                                            
0000AC 40F0 E018            00018    67          STH   R15,24(,R14)                                                     
0000B0 58F0 B3F0            003F0    68          L     R15,1008(,R11)                                                   
0000B4 5810 D050            00050    69          L     R1,80(,R13)                                                      
0000B8 1211                          70          LTR   R1,R1                                                            
0000BA 4770 C0C8            000C8    71          BNZ   LBL00003                                                         
0000BE 5810 B420            00420    72          L     R1,1056(,R11)                                                    
0000C2 0DE1                          73          BASR  R14,R1                                                           
0000C4 5810 D050            00050    74          L     R1,80(,R13)                                                      
0000C8                               75 LBL00003 DS    0H                                                               
0000C8 D713 1054 1054 00054 00054    76          XC    84(20,R1),84(R1)                                                 
0000CE D200 10E8 D0E8 000E8 000E8    77          MVC   232(1,R1),232(R13)                                               
0000D4 41E0 D068            00068    78          LA    R14,104(,R13)                                                    
0000D8 50E0 1054            00054    79          ST    R14,84(,R1)                                                      
0000DC 0DEF                          80          BASR  R14,R15                                                          
0000DE                               81 LBL00004 DS    0H                                                               
0000DE 4820 82D0            002D0    82          LH    R2,720(,R8)                                                      
0000E2 4A20 82D2            002D2    83          AH    R2,722(,R8)                                                      
0000E6 4C20 C526            00526    84          MH    R2,ITM00026                                                      
0000EA 4100 2020            00020    85          LA    R0,32(,R2)                                                       
0000EE 5000 D068            00068    86          ST    R0,104(,R13)                                                     
0000F2 0700                          87          CNOP  0,4                                                              
0000F4 47F0 C0FC            000FC    88          B     LBL00005                                                         
0000F8 00000930                      89 ITM00004 DC    AL4(2352)                                                        
0000FC                               90 LBL00005 DS    0H                                                               
0000FC 58F0 C0F8            000F8    91          L     R15,ITM00004                                                     
000100 58E0 0010            00010    92          L     R14,16                                                           
000104 58EE 0304            00304    93          L     R14,772(R14)     <-- use (,R14)                                  
000108 58EE 00A0            000A0    94          L     R14,160(R14)     <-- use (,R14)                                  
00010C B218 E000      00000          95          PC    0(R14)                                                           
000110 5010 D06C            0006C    96          ST    R1,108(,R13)                                                     
000114 12FF                          97          LTR   R15,R15                                                          
000116 4770 C4DC            004DC    98          BNZ   LBL00025                                                         
00011A 41E0 A000            00000    99          LA    R14,0(,R10)                                                      
00011E D71F 1000 1000 00000 00000   100          XC    0(32,R1),0(R1)                                                   
000124 92E5 1000                    101          MVI   0(R1),X'E5'                                                      
000128 92FF 1001                    102          MVI   1(R1),X'FF'                                                      
00012C 9209 1002                    103          MVI   2(R1),X'09'                                                      
000130 50E0 100C            0000C   104          ST    R14,12(,R1)                                                      
000134 58F0 D068            00068   105          L     R15,104(,R13)                                                    
000138 50F0 1008            00008   106          ST    R15,8(,R1)                                                       
00013C 5800 E7B4            007B4   107          L     R0,1972(,R14)                                                    
000140                              108 LBL00006 DS    0H                                                               
000140 411F 0000            00000   109          LA    R1,0(R15)        <-- use (,R15)                                  
000144 BA01 E7B4                    110          CS    R0,R1,1972(R14)                                                  
000148 4770 C140            00140   111          BNE   LBL00006                                                         
00014C 5810 D06C            0006C   112          L     R1,108(,R13)                                                     
000150 5010 82D4            002D4   113          ST    R1,724(,R8)                                                      
000154 D207 1018 8018 00018 00018   114          MVC   24(8,R1),24(R8)                                                  
00015A 4820 82D0            002D0   115          LH    R2,720(,R8)                                                      
00015E 41E0 1020            00020   116          LA    R14,32(,R1)                                                      
000162 50E0 D108            00108   117          ST    R14,264(,R13)                                                    
000166                              118 LBL00007 DS    0H                                                               
000166 181E                         119          LR    R1,R14                                                           
000168 D71F 1000 1000 00000 00000   120          XC    0(32,R1),0(R1)                                                   
00016E 41E0 1020            00020   121          LA    R14,32(,R1)                                                      
000172 50E0 1000            00000   122          ST    R14,0(,R1)                                                       
000176 4620 C166            00166   123          BCT   2,LBL00007                                                       
00017A 58E0 D108            00108   124          L     R14,264(,R13)                                                    
00017E 50E1 0000            00000   125          ST    R14,0(R1)        <-- use (,R1)                                   
000182 50E0 82D8            002D8   126          ST    R14,728(,R8)                                                     
000186 50E0 82DC            002DC   127          ST    R14,732(,R8)                                                     
00018A 41E0 1020            00020   128          LA    R14,32(,R1)                                                      
00018E 50E0 D108            00108   129          ST    R14,264(,R13)                                                    
000192 4820 82D2            002D2   130          LH    R2,722(,R8)                                                      
000196                              131 LBL00008 DS    0H                                                               
000196 181E                         132          LR    R1,R14                                                           
000198 D71F 1000 1000 00000 00000   133          XC    0(32,R1),0(R1)                                                   
00019E 41E0 1020            00020   134          LA    R14,32(,R1)                                                      
0001A2 50E0 1000            00000   135          ST    R14,0(,R1)                                                       
0001A6 4620 C196            00196   136          BCT   2,LBL00008                                                       
0001AA 58E0 D108            00108   137          L     R14,264(,R13)                                                    
0001AE 50E1 0000            00000   138          ST    R14,0(R1)        <-- use (,R1)                                   
0001B2 50E0 82E8            002E8   139          ST    R14,744(,R8)                                                     
0001B6 50E0 82EC            002EC   140          ST    R14,748(,R8)                                                     
0001BA D507 8018 C508 00018 00508   141          CLC   24(8,R8),ITM00020                                                
0001C0 4780 C4EE            004EE   142          BE    LBL00027                                                         
0001C4 5820 82E8            002E8   143          L     R2,744(,R8)                                                      
0001C8 D203 82E8 2000 002E8 00000   144          MVC   744(4,R8),0(R2)                                                  
0001CE 9680 2004                    145          OI    4(R2),X'80'                                                      
0001D2 9200 2005                    146          MVI   5(R2),X'00'                                                      
0001D6 D203 2008 B244 00008 00244   147          MVC   8(4,R2),580(R11)                                                 
0001DC B205 D068      00000         148          STCK  104(R13)                                                         
0001E0 9801 D068                    149          LM    R0,R1,104(R13)                                                   
0001E4 8C00 000C                    150          SRDL  R0,R0,12(R0)                                                     
0001E8 5010 2018            00018   151          ST    R1,24(,R2)                                                       
0001EC D203 82F0 C51C 002F0 0051C   152          MVC   752(4,R8),ITM00023                                               
0001F2 D203 82F4 C51C 002F4 0051C   153          MVC   756(4,R8),ITM00023                                               
0001F8 96C0 2004                    154          OI    4(R2),X'C0'                                                      
0001FC 4120 B49C            0049C   155          LA    R2,1180(,R11)                                                    
000200 D247 808C C5DC 0008C 005DC   156          MVC   140(72,R8),ITM00035                                              
000206 4110 8088            00088   157          LA    R1,136(,R8)                                                      
00020A 5080 1000            00000   158          ST    R8,0(,R1)                                                        
00020E 41F0 808C            0008C   159          LA    R15,140(,R8)                                                     
000212 41E0 F01C            0001C   160          LA    R14,28(,R15)                                                     
000216 50E0 F000            00000   161          ST    R14,0(,R15)                                                      
00021A D207 F01C C224 0001C 00224   162          MVC   28(8,R15),ITM00006                                               
000220 47F0 C22C            0022C   163          B     LBL00009                                                         
000224 E4D5C2E6C9D5C9E3             164 ITM00006 DC    C'UNBWINIT'                                                      
00022C                              165 LBL00009 DS    0H                                                               
00022C 5020 F008            00008   166          ST    R2,8(,R15)                                                       
000230 9248 F037                    167          MVI   55(R15),X'48'                                                    
000234 9680 F008                    168          OI    8(R15),X'80'                                                     
000238 947F F03C                    169          NI    60(R15),X'7F'                                                    
00023C 9201 F03D                    170          MVI   61(R15),X'01'                                                    
000240 0A2A                         171          SVC   42                                                               
000242 12FF                         172          LTR   R15,R15                                                          
000244 4770 C480            00480   173          BNZ   LBL00023                                                         
000248 5010 86FC            006FC   174          ST    R1,1788(,R8)                                                     
00024C 47F0 C4EE            004EE   175          B     LBL00027                                                         
000250 41E0 D068            00068   176          LA    R14,104(,R13)                                                    
000254 41F0 B4D8            004D8   177          LA    R15,1240(,R11)                                                   
000258 50F0 E000            00000   178          ST    R15,0(,R14)                                                      
00025C 58F0 B3F4            003F4   179          L     R15,1012(,R11)                                                   
000260 5810 D050            00050   180          L     R1,80(,R13)                                                      
000264 1211                         181          LTR   R1,R1                                                            
000266 4770 C274            00274   182          BNZ   LBL00011                                                         
00026A 5810 B420            00420   183          L     R1,1056(,R11)                                                    
00026E 0DE1                         184          BASR  R14,R1                                                           
000270 5810 D050            00050   185          L     R1,80(,R13)                                                      
000274                              186 LBL00011 DS    0H                                                               
000274 D713 1054 1054 00054 00054   187          XC    84(20,R1),84(R1)                                                 
00027A D200 10E8 D0E8 000E8 000E8   188          MVC   232(1,R1),232(R13)                                               
000280 41E0 D068            00068   189          LA    R14,104(,R13)                                                    
000284 50E0 1054            00054   190          ST    R14,84(,R1)                                                      
000288 0DEF                         191          BASR  R14,R15                                                          
00028A 1891                         192          LR    R9,R1                                                            
00028C D207 9018 C510 00018 00510   193          MVC   24(8,R9),ITM00021                                                
000292 58F0 87C4            007C4   194          L     R15,1988(,R8)                                                    
000296                              195 LBL00012 DS    0H                                                               
000296 41E0 F001            00001   196          LA    R14,1(,R15)                                                      
00029A BAFE 87C4                    197          CS    R15,R14,1988(R8)                                                 
00029E 4770 C296            00296   198          BNE   LBL00012                                                         
0002A2 41E0 D068            00068   199          LA    R14,104(,R13)                                                    
0002A6 4100 014C            0014C   200          LA    R0,332                                                           
0002AA 5000 D068            00068   201          ST    R0,104(,R13)                                                     
0002AE 0700                         202          CNOP  0,4                                                              
0002B0 47F0 C2B8            002B8   203          B     LBL00013                                                         
0002B4 08000412                     204 ITM00008 DC    AL4(134218770)                                                   
0002B8                              205 LBL00013 DS    0H                                                               
0002B8 58F0 C2B4            002B4   206          L     R15,ITM00008                                                     
0002BC 58E0 0010            00010   207          L     R14,16                                                           
0002C0 58EE 0304            00304   208          L     R14,772(R14)     <-- use (,R14)                                  
0002C4 58EE 00A0            000A0   209          L     R14,160(R14)     <-- use (,R14)                                  
0002C8 B218 E000      00000         210          PC    0(R14)                                                           
0002CC 5010 D06C            0006C   211          ST    R1,108(,R13)                                                     
0002D0 49F0 C528            00528   212          CH    R15,ITM00027                                                     
0002D4 4780 C2E6            002E6   213          BE    LBL00014                                                         
0002D8 1801                         214          LR    R0,R1                                                            
0002DA 5810 D068            00068   215          L     R1,104(,R13)                                                     
0002DE 17FF                         216          XR    R15,R15                                                          
0002E0 0E0E                         217          MVCL  R0,R14                                                           
0002E2 5810 D06C            0006C   218          L     R1,108(,R13)                                                     
0002E6                              219 LBL00014 DS    0H                                                               
0002E6 41E0 A000            00000   220          LA    R14,0(,R10)                                                      
0002EA 92C4 1000                    221          MVI   0(R1),X'C4'                                                      
0002EE 92FF 1001                    222          MVI   1(R1),X'FF'                                                      
0002F2 9204 1002                    223          MVI   2(R1),X'04'                                                      
0002F6 50E0 100C            0000C   224          ST    R14,12(,R1)                                                      
0002FA 58F0 D068            00068   225          L     R15,104(,R13)                                                    
0002FE 50F0 1008            00008   226          ST    R15,8(,R1)                                                       
000302 5800 E7B4            007B4   227          L     R0,1972(,R14)                                                    
000306                              228 LBL00015 DS    0H                                                               
000306 411F 0000            00000   229          LA    R1,0(R15)        <-- use (,R15)                                  
00030A BA01 E7B4                    230          CS    R0,R1,1972(R14)                                                  
00030E 4770 C306            00306   231          BNE   LBL00015                                                         
000312 5810 D06C            0006C   232          L     R1,108(,R13)                                                     
000316 1861                         233          LR    R6,R1                                                            
000318 5060 9138            00138   234          ST    R6,312(,R9)                                                      
00031C D207 6028 9018 00028 00018   235          MVC   40(8,R6),24(R9)                                                  
000322 D257 6038 C54C 00038 0054C   236          MVC   56(88,R6),ITM00033                                               
000328 D237 9140 C5A4 00140 005A4   237          MVC   320(56,R9),ITM00034                                              
00032E 4170 6038            00038   238          LA    R7,56(,R6)                                                       
000332 D207 7028 6028 00028 00028   239          MVC   40(8,R7),40(R6)                                                  
000338 41F0 9140            00140   240          LA    R15,320(,R9)                                                     
00033C 50F0 7000            00000   241          ST    R15,0(,R7)                                                       
000340 9684 7020                    242          OI    32(R7),X'84'                                                     
000344 D207 D100 C544 00100 00544   243          MVC   256(8,R13),ITM00032                                              
00034A 4110 D100            00100   244          LA    R1,256(,R13)                                                     
00034E 5071 0004            00004   245          ST    R7,4(R1)         <-- use (,R1)                                   
000352 1801                         246          LR    R0,R1                                                            
000354 1B11                         247          SR    R1,R1                                                            
000356 0A13                         248          SVC   19                                                               
000358 9110 7030                    249          TM    48(R7),X'10'                                                     
00035C 4710 C362            00362   250          BO    LBL00016                                                         
000360 0000                         251          DC    H'0'      <----- Intentional Abend ?                             
000362                              252 LBL00016 DS    0H                                                               
000362 4120 871C            0071C   253          LA    R2,1820(,R8)                                                     
000366 D247 808C C5DC 0008C 005DC   254          MVC   140(72,R8),ITM00035                                              
00036C 4510 C374            00374   255          BAL   R1,LBL00017                                                      
000370 0000003C                     256 ITM00010 DC    F'60'                                                            
000374                              257 LBL00017 DS    0H                                                               
000374 5810 1000            00000   258          L     R1,0(,R1)                                                        
000378 0A6B                         259          SVC   107                                                              
00037A 5830 021C            0021C   260          L     R3,540                                                           
00037E 5830 30B4            000B4   261          L     R3,180(,R3)                                                      
000382 94FE 30EC                    262          NI    236(R3),X'FE'                                                    
000386 0700                         263          CNOP  0,4                                                              
000388 4510 C390            00390   264          BAL   R1,LBL00018                                                      
00038C 00000020                     265 ITM00012 DC    F'32'                                                            
000390                              266 LBL00018 DS    0H                                                               
000390 5810 1000            00000   267          L     R1,0(,R1)                                                        
000394 0A6B                         268          SVC   107                                                              
000396 4110 8088            00088   269          LA    R1,136(,R8)                                                      
00039A 5080 1000            00000   270          ST    R8,0(,R1)                                                        
00039E 41F0 808C            0008C   271          LA    R15,140(,R8)                                                     
0003A2 41E0 F01C            0001C   272          LA    R14,28(,R15)                                                     
0003A6 50E0 F000            00000   273          ST    R14,0(,R15)                                                      
0003AA D207 F01C C3B4 0001C 003B4   274          MVC   28(8,R15),ITM00014                                               
0003B0 47F0 C3BC            003BC   275          B     LBL00019                                                         
0003B4 E4D5C2E6C9D5C9E3             276 ITM00014 DC    C'UNBWINIT'                                                      
0003BC                              277 LBL00019 DS    0H                                                               
0003BC 5020 F008            00008   278          ST    R2,8(,R15)                                                       
0003C0 41E0 004E            0004E   279          LA    R14,78                                                           
0003C4 50E0 F010            00010   280          ST    R14,16(,R15)                                                     
0003C8 5070 F030            00030   281          ST    R7,48(,R15)                                                      
0003CC 9248 F037                    282          MVI   55(R15),X'48'                                                    
0003D0 9680 F008                    283          OI    8(R15),X'80'                                                     
0003D4 945F F03C                    284          NI    60(R15),X'5F'                                                    
0003D8 9602 F03C                    285          OI    60(R15),X'02'                                                    
0003DC 9640 F034                    286          OI    52(R15),X'40'                                                    
0003E0 9201 F03D                    287          MVI   61(R15),X'01'                                                    
0003E4 0A2A                         288          SVC   42                                                               
0003E6 184F                         289          LR    R4,R15                                                           
0003E8 41E0 D068            00068   290          LA    R14,104(,R13)                                                    
0003EC D753 E000 E000 00000 00000   291          XC    0(84,R14),0(R14)                                                 
0003F2 D201 E004 C52A 00004 0052A   292          MVC   4(2,R14),ITM00028                                                
0003F8 D202 E008 C52E 00008 0052E   293          MVC   8(3,R14),ITM00030                                                
0003FE 9280 E006                    294          MVI   6(R14),X'80'                                                     
000402 41F0 C531            00531   295          LA    R15,ITM00031                                                     
000406 50F0 E014            00014   296          ST    R15,20(,R14)                                                     
00040A 41F0 0013            00013   297          LA    R15,19                                                           
00040E 40F0 E018            00018   298          STH   R15,24(,R14)                                                     
000412 58F0 B3F0            003F0   299          L     R15,1008(,R11)                                                   
000416 5810 D050            00050   300          L     R1,80(,R13)                                                      
00041A 1211                         301          LTR   R1,R1                                                            
00041C 4770 C42A            0042A   302          BNZ   LBL00020                                                         
000420 5810 B420            00420   303          L     R1,1056(,R11)                                                    
000424 0DE1                         304          BASR  R14,R1                                                           
000426 5810 D050            00050   305          L     R1,80(,R13)                                                      
00042A                              306 LBL00020 DS    0H                                                               
00042A D713 1054 1054 00054 00054   307          XC    84(20,R1),84(R1)                                                 
000430 D200 10E8 D0E8 000E8 000E8   308          MVC   232(1,R1),232(R13)                                               
000436 41E0 D068            00068   309          LA    R14,104(,R13)                                                    
00043A 50E0 1054            00054   310          ST    R14,84(,R1)                                                      
00043E 0DEF                         311          BASR  R14,R15                                                          
000440 4110 C520            00520   312          LA    R1,ITM00024                                                      
000444 1BFF                         313          SR    R15,R15                                                          
000446 4100 0091            00091   314          LA    R0,145                                                           
00044A 8900 0018                    315          SLL   R0,R0,24(R0)                                                     
00044E 0A2F                         316          SVC   47                                                               
000450 4510 C458            00458   317          BAL   R1,LBL00021                                                      
000454 00000030                     318 ITM00016 DC    F'48'                                                            
000458                              319 LBL00021 DS    0H                                                               
000458 5810 1000            00000   320          L     R1,0(,R1)                                                        
00045C 0A6B                         321          SVC   107                                                              
00045E 9601 30EC                    322          OI    236(R3),X'01'                                                    
000462 0700                         323          CNOP  0,4                                                              
000464 4510 C46C            0046C   324          BAL   R1,LBL00022                                                      
000468 00000024                     325 ITM00018 DC    F'36'                                                            
00046C                              326 LBL00022 DS    0H                                                               
00046C 5810 1000            00000   327          L     R1,0(,R1)                                                        
000470 0A6B                         328          SVC   107                                                              
000472 12F4                         329          LTR   R15,R4                                                           
000474 4770 C480            00480   330          BNZ   LBL00023                                                         
000478 5010 86FC            006FC   331          ST    R1,1788(,R8)                                                     
00047C 47F0 C4EE            004EE   332          B     LBL00027                                                         
                                    334 ***********************************************************************         
                                    335 *                                                                     *         
                                    336 ***********************************************************************         
000480                              337 LBL00023 DS    0H                                                               
000480 41E0 D068            00068   338          LA    R14,104(,R13)                                                    
000484 D753 E000 E000 00000 00000   339          XC    0(84,R14),0(R14)                                                 
00048A D201 E004 C52C 00004 0052C   340          MVC   4(2,R14),ITM00029                                                
000490 D202 E008 C52E 00008 0052E   341          MVC   8(3,R14),ITM00030                                                
000496 9280 E006                    342          MVI   6(R14),X'80'                                                     
00049A 41F0 8018            00018   343          LA    R15,24(,R8)                                                      
00049E 50F0 E014            00014   344          ST    R15,20(,R14)                                                     
0004A2 41F0 0008            00008   345          LA    R15,8                                                            
0004A6 40F0 E018            00018   346          STH   R15,24(,R14)                                                     
0004AA 58F0 B3F0            003F0   347          L     R15,1008(,R11)                                                   
0004AE 5810 D050            00050   348          L     R1,80(,R13)                                                      
0004B2 1211                         349          LTR   R1,R1                                                            
0004B4 4770 C4C2            004C2   350          BNZ   LBL00024                                                         
0004B8 5810 B420            00420   351          L     R1,1056(,R11)                                                    
0004BC 0DE1                         352          BASR  R14,R1                                                           
0004BE 5810 D050            00050   353          L     R1,80(,R13)                                                      
0004C2                              354 LBL00024 DS    0H                                                               
0004C2 D713 1054 1054 00054 00054   355          XC    84(20,R1),84(R1)                                                 
0004C8 D200 10E8 D0E8 000E8 000E8   356          MVC   232(1,R1),232(R13)                                               
0004CE 41E0 D068            00068   357          LA    R14,104(,R13)                                                    
0004D2 50E0 1054            00054   358          ST    R14,84(,R1)                                                      
0004D6 0DEF                         359          BASR  R14,R15                                                          
0004D8 47F0 C4E6            004E6   360          B     LBL00026                                                         
                                    362 ***********************************************************************         
                                    363 *                                                                     *         
                                    364 ***********************************************************************         
0004DC                              365 LBL00025 DS    0H                                                               
0004DC 41F0 0014            00014   366          LA    R15,20                                                           
0004E0 0000                         367          DC    H'0'      <----- Intentional Abend ?                             
0004E2 47F0 C4F0            004F0   368          B     LBL00028                                                         
                                    370 ***********************************************************************         
                                    371 *                                                                     *         
                                    372 ***********************************************************************         
0004E6                              373 LBL00026 DS    0H                                                               
0004E6 41F0 0008            00008   374          LA    R15,8                                                            
0004EA 47F0 C4F0            004F0   375          B     LBL00028                                                         
                                    377 ***********************************************************************         
                                    378 *                                                                     *         
                                    379 ***********************************************************************         
0004EE                              380 LBL00027 DS    0H                                                               
0004EE 17FF                         381          XR    R15,R15                                                          
0004F0                              382 LBL00028 DS    0H                                                               
0004F0 58D0 D004            00004   383          L     R13,4(,R13)                                                      
0004F4 58E0 D00C            0000C   384          L     R14,12(,R13)                                                     
0004F8 982C D01C                    385          LM    R2,R12,28(R13)                                                   
0004FC 9601 D00F                    386          OI    15(R13),X'01'                                                    
000500 07FE                         387          BR    R14                                                              
000508 5CD4C1E2E3C5D95C             388 ITM00020 DC    C'*MASTER*'                                                      
000510 E2E8E2D3C9D5D240             389 ITM00021 DC    C'SYSLINK '                                                      
000518 00000000                     390 ITM00022 DC    4X'0'                                                            
00051C 00000001                     391 ITM00023 DC    X'00000001'                                                      
000520 00000064                     392 ITM00024 DC    X'00000064'                                                      
000524 0011                         393 ITM00025 DC    X'0011'                                                          
000526 0020                         394 ITM00026 DC    AL2(32)                                                          
000528 0014                         395 ITM00027 DC    AL2(20)                                                          
00052A 0000                         396 ITM00028 DC    X'0000'                                                          
00052C 0013                         397 ITM00029 DC    X'0013'                                                          
00052E E4D5C2                       398 ITM00030 DC    C'UNB'                                                           
000531 E3E2D640C1A3A381             399 ITM00031 DC    C'TSO Attach complete'                                           
000539 8388408396949793                                                                                                 
000541 85A385                                                                                                           
000544 8000000000000000             400 ITM00032 DC    X'8000000000000000'                                              
                                    401 ITM00033 DCB   DDNAME=MODEL                                                     
00054C                              402.ITM00033 DS    0F                                                               
00054C 0000000000000000             403.         DC    BL16'0'                                                          
000554 0000000000000000                                                                                                 
00055C 00000000                     404.         DC    A(0)                                                             
000560 00                           405.         DC    AL1(0)                                                           
000561 000001                       406.         DC    AL3(1)                                                           
000564 0000                         407.         DC    AL2(0)                                                           
000566 0200                         408.         DC    BL2'0000001000000000'                                            
000568 00000001                     409.         DC    A(1)                                                             
00056C 00                           410.         DC    BL1'0'                                                           
00056D 000001                       411.         DC    AL3(1)                                                           
000570 00                           412.         DC    BL1'0'                                                           
000571 000000                       413.         DC    AL3(0)                                                           
000574 D4D6C4C5D3404040             414.         DC    C'MODEL   '                                                      
00057C 02                           415.         DC    BL1'00000010'                                                    
00057D 00                           416.         DC    BL1'0'                                                           
00057E 2400                         417.         DC    BL2'0010010000000000'                                            
000580 00                           418.         DC    BL1'0'                                                           
000581 000001                       419.         DC    AL3(1)                                                           
000584 00000001                     420.         DC    A(1)                                                             
000588 0000                         421.         DC    H'0'                                                             
00058A 0000                         422.         DC    AL2(0)                                                           
00058C 00000000                     423.         DC    F'0'                                                             
000590 00000001                     424.         DC    A(1)                                                             
000594 00                           425.         DC    AL1(0)                                                           
000595 000001                       426.         DC    AL3(1)                                                           
000598 00000001                     427.         DC    A(1)                                                             
00059C 0000                         428.         DC    AL1(0,0)                                                         
00059E 0000                         429.         DC    AL2(0)                                                           
0005A0 00000001                     430.         DC    A(1)                                                             
                      00058         431 LEN00033 EQU   *-ITM00033                                                       
                                    432 ITM00034 DCBE                                                                   
0005A4                              433.ITM00034 DS    0F                                                               
0005A4 C4C3C2C5                     434.         DC    C'DCBE'                                                          
0005A8 0038                         435.         DC    H'56'                                                            
0005AA 0000                         436.         DC    X'0000'                                                          
0005AC 00000000                     437.         DC    A(0)                                                             
0005B0 00000000                     438.         DC    4X'0'                                                            
0005B4 00                           439.         DC    BL1'0'                                                           
0005B5 80                           440.         DC    BL1'10000000'                                                    
0005B6 0000                         441.         DC    H'0'                                                             
0005B8 00                           442.         DC    BL1'0'                                                           
0005B9 000000                       443.         DC    X'000000'                                                        
0005BC 00000000                     444.         DC    4X'0'                                                            
0005C0 00000000                     445.         DC    F'0'                                                             
0005C4 0000000000000000             446.         DC    8X'0'                                                            
0005CC 00000000                     447.         DC    A(0)                                                             
0005D0 00000000                     448.         DC    A(0)                                                             
0005D4 000000000000                 449.         DC    6X'0'                                                            
0005DA 0000                         450.         DC    AL1(0,0)                                                         
                      00038         451 LEN00034 EQU   *-ITM00034                                                       
0005DC 0000000000000000             452 ITM00035 DC    X'00000000000000008000000000000000'                              
0005E4 8000000000000000                                                                                                 
0005EC 0000000000000000             453          DC    X'00000000000000000000000000000000'                              
0005F4 0000000000000000                                                                                                 
0005FC 0000000000000000             454          DC    X'00000000000000000000000000000000'                              
000604 0000000000000000                                                                                                 
00060C 0000000000000048             455          DC    X'00000000000000480000000000010000'                              
000614 0000000000010000                                                                                                 
00061C 0000000000000000             456          DC    X'0000000000000000'                                              
                      00000         457 R0       EQU   0                                                                
                      00001         458 R1       EQU   1                                                                
                      00002         459 R2       EQU   2                                                                
                      00003         460 R3       EQU   3                                                                
                      00004         461 R4       EQU   4                                                                
                      00005         462 R5       EQU   5                                                                
                      00006         463 R6       EQU   6                                                                
                      00007         464 R7       EQU   7                                                                
                      00008         465 R8       EQU   8                                                                
                      00009         466 R9       EQU   9                                                                
                      0000A         467 R10      EQU   10                                                               
                      0000B         468 R11      EQU   11                                                               
                      0000C         469 R12      EQU   12                                                               
                      0000D         470 R13      EQU   13                                                               
                      0000E         471 R14      EQU   14                                                               
                      0000F         472 R15      EQU   15                                                               
                                    473          END