1                               High Level Assembler Option Summary                                             Page    1
-                                                                                           jHLASM 1.0   2016/01/16 12.28
0  No Overriding ASMAOPT Parameters                                                                                      
   Overriding Parameters-  term                                                                                          
   No Process Statements                                                                                                 
                                                                                                                         
                                                                                                                         
   Options for this Assembly                                                                                             
0  NOADATA                                                                                                               
     ALIGN                                                                                                               
   NOASA                                                                                                                 
     BATCH                                                                                                               
     CODEPAGE(047C)                                                                                                      
   NOCOMPAT                                                                                                              
   NODBCS                                                                                                                
   NODECK                                                                                                                
     DXREF                                                                                                               
     ESD                                                                                                                 
   NOEXIT                                                                                                                
     FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)                                              
   NOFOLD                                                                                                                
   NOGOFF                                                                                                                
   NOINFO                                                                                                                
     LANGUAGE(EN)                                                                                                        
   NOLIBMAC                                                                                                              
     LINECOUNT(60)                                                                                                       
     LIST(121)                                                                                                           
     MACHINE(,NOLIST)                                                                                                    
     MXREF(SOURCE)                                                                                                       
     OBJECT                                                                                                              
     OPTABLE(UNI,NOLIST)                                                                                                 
   NOPCONTROL                                                                                                            
   NOPESTOP                                                                                                              
   NOPROFILE                                                                                                             
   NORA2                                                                                                                 
   NORENT                                                                                                                
     RLD                                                                                                                 
     RXREF                                                                                                               
     SECTALGN(8)                                                                                                         
     SIZE(MAX)                                                                                                           
   NOSUPRWARN                                                                                                            
     SYSPARM()                                                                                                           
 3   TERM                                                                                                                
   NOTEST                                                                                                                
     THREAD                                                                                                              
   NOTRANSLATE                                                                                                           
     TYPECHECK(MAGNITUDE,REGISTER)                                                                                       
     USING(NOLIMIT,MAP,WARN(15))                                                                                         
   NOWORKFILE                                                                                                            
     XREF(SHORT,UNREFS)                                                                                                  
                                                                                                                         
   No Overriding DD Names                                                                                                
1                                              External Symbol Dictionary                                       Page    2
-Symbol   Type   Id     Address  Length   Owner Id Flags Alias-of                           jHLASM 1.0   2016/01/16 12.28
0MVCLE     SD 00000001 00000000 00000228             00                                                                  
1                                                                                                               Page    3
   Active Usings: None                                                                                                   
0  Loc    Object Code      Addr1    Addr2    Stmt  Source Statement                         jHLASM 1.0   2016/01/16 12.28
0                                               1 * move long extended test case                                         
0                                               3 * This file was put into the public domain 2016-01-16                  
                                                4 * by John P. Hartmann.  You can use it for anything you like,          
                                                5 * as long as this notice remains.                                      
-                                               8  punch '* *Testcase mvcle-370'                                         
                                                9  punch '* sysclear'                                                    
                                               10  punch '* archmode s/370'                                              
 00000000                00000000 00000228     11 mvcle start 0                                                          
                     R:0 00000000              12  using *,0                                                             
 00000000 0000000000000200                     13  dc a(0,go) /370 restart PSW                                           
 00000008                00000008 00000068     14  org mvcle+x'68' /370 program                                          
 00000068 00020000DEADDEAD                     15  dc x'0002 0000',a(x'deaddead')                                        
 00000070                00000070 000001A0     16  org mvcle+x'1a0' Restart                                              
 000001A0 0000000180000000                     17  dc x'0000 0001 8000 0000',ad(go)                                      
 000001B0                000001B0 000001D0     18  org mvcle+x'1d0' Program                                              
 000001D0 0002000180000000                     19  dc x'0002 0001 8000 0000',ad(x'deaddead') z                           
 000001E0                000001E0 00000200     20  org mvcle+x'200'                                                      
                         00000200              21 go equ *                                                               
 00000200 4120 0200               00000200     22  la 2,go                                                               
 00000204 4130 0004               00000004     23  la 3,4                                                                
 00000208 4110 0006               00000006     24  la 1,6                                                                
 0000020C A802 0001               00000001     25  mvcle 0,2,1                                                           
 00000210 8200 0218      00000218              26  lpsw stop                                                             
 00000218                                      27  ds 0d                                                                 
 00000218 0002000000000000                     28 stop dc x'0002 0000',f'0',ad(0)  Both /370 and z                       
 00000228                                      29  ltorg                                                                 
                                               30  punch '* *Program 0001' Expect program check                           00240000
                                               31  punch '* runtest .1'                                                  
                                               32  punch '* *Compare'                                                    
                                               33  punch '* r 0.8'                                                       
                                               34  punch '* *Want 00000000 00000200'                                     
                                               35  punch '* *Done'                                                       
                                               36  end                                                                   
1                                                 Relocation Dictionary                                         Page    4
-   Pos.Id   Rel.Id   Address  Type  Action                                                 jHLASM 1.0   2016/01/16 12.28
0  00000001 00000001 00000004   A 4     +                                                                                
   00000001 00000001 000001A8   A 8     +                                                                                
1                               Ordinary Symbol and Literal Cross Reference                                     Page    5
-Symbol   Length   Value     Id    R Type Asm  Program   Defn References                    jHLASM 1.0   2016/01/16 12.28
0go            1 00000200 00000001     U                   21   13    17    22                                           
 mvcle         1 00000000 00000001     J                   11   14    16    18    20                                     
 stop          4 00000218 00000001     X  X                28   26                                                       
1                                                      Using Map                                                Page    6
-                                                                                           jHLASM 1.0   2016/01/16 12.28
   Stmt  -----Location----- Action ----------------Using----------------- Reg Max     Last Label and Using Text          
           Count      Id           Type          Value    Range     Id        Disp    Stmt                               
0    12  00000000  00000001 USING  ORDINARY    00000000 00001000 00000001   0 00218     26 *,0                           
1                                   General Purpose Register Cross Reference                                    Page    7
- Register  References (S=set, M=modified, B=branch, U=using, D=drop, N=index)              jHLASM 1.0   2016/01/16 12.28
0    0(0)      12U   25M                                                                                                 
     1(1)      24S   25M                                                                                                 
     2(2)      22S   25M                                                                                                 
     3(3)      23S   25M                                                                                                 
     4(4)    (no references identified)                                                                                  
     5(5)    (no references identified)                                                                                  
     6(6)    (no references identified)                                                                                  
     7(7)    (no references identified)                                                                                  
     8(8)    (no references identified)                                                                                  
     9(9)    (no references identified)                                                                                  
    10(A)    (no references identified)                                                                                  
    11(B)    (no references identified)                                                                                  
    12(C)    (no references identified)                                                                                  
    13(D)    (no references identified)                                                                                  
    14(E)    (no references identified)                                                                                  
    15(F)    (no references identified)                                                                                  
1                                  Diagnostic Cross Reference and Assembler Summary                             Page    8
-                                                                                           jHLASM 1.0   2016/01/16 12.28
0     No Statements Flagged in this Assembly                                                                             
0John's High Level Assembler Release 1.0, Oct  7 2015 15:59:07                                                           
0System:  Linux release 3.19.0-43-generic on jbox (i686)                                                                 
0Data Sets Allocated for this Assembly                                                                                   
  Con DDname   Data Set Name                                Volume  Member                                               
   P1 SYSIN    mvcle.assemble                                                                                            
0Assembly Start Time: 12.28.39 Stop Time: 12.28.39 Processor Time: 00.00.00.0084.
 
                                     
 Return Code 000                                                                                                         
