1                               High Level Assembler Option Summary                                             Page    1
-                                                                                           jHLASM 1.0   2016/06/05 09.38
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/06/05 09.38
0CXSTR     SD 00000001 00000000 00000370             07                                                                  
1                                                                                                               Page    3
   Active Usings: None                                                                                                   
0  Loc    Object Code      Addr1    Addr2    Stmt  Source Statement                         jHLASM 1.0   2016/06/05 09.38
0                                               1 * This file was put into the public domain 2016-06-05                  
                                                2 * by John P. Hartmann.  You can use it for anything you like,          
                                                3 * as long as this notice remains.                                      
000000000                00000000 00000370      5 cxstr start 0                                                          
                                                6 cxstr amode any                                                        
                                                7 cxstr rmode any                                                        
                     R:F 00000000               8  using *,15                                                            
                                                9  punch '* *Testcase csxtr csdtr cxstr cxutr &sysdatc &systime'         
                                                 + punch '* *Testcase csxtr csdtr cxstr cxutr 20160605 09.38'            
                                               10  punch '* sysclear'                                                    
                                               11  punch '* archlvl z'                                                   
 00000000                00000000 00000140     12  org cxstr+x'140' SVC old                                              
 00000140                                      13 svcold ds 2d                                                           
 00000150                00000150 000001A0     14  org cxstr+x'1a0' Restart new                                          
 000001A0 0000000180000000                     15  dc x'0000000180000000',ad(go)                                         
 000001B0                000001B0 000001C0     16  org cxstr+x'1c0' SVC new                                              
 000001C0 0002000180000000                     17  dc x'0002000180000000',ad(0)                                          
 000001D0                000001D0 000001D0     18  org cxstr+x'1d0' Program new                                          
 000001D0 0002000180000000                     19  dc x'0002000180000000',ad(0)                                          
 000001E0                000001E0 00000200     20  org cxstr+x'200'                                                      
 00000200                                      21 go ds 0h                                                               
                                               22  punch '* *Program 7'                                                  
 00000200 B3EB 0040                            23  CSXTR 4,0,0 Convert 31 signed digits to (GG3,GG4)                     
 00000204 B600 F350               00000350     24  stctl 0,0,cr0                                                         
 00000208 9604 F351      00000351              25  oi cr0+1,x'04'                                                        
 0000020C B700 F350               00000350     26  lctl 0,0,cr0                                                          
 00000210 6800 F358               00000358     27  LD 0,=LD'1234567890123456789012345678901234' 34 digits                
 00000214 6820 F360               00000360     28  LD 2,=LD'1234567890123456789012345678901234'+8                        
 00000218 B3EB 0040                            29  CSXTR 4,0,0 Convert 31 signed digits to (GG3,GG4)                     
 0000021C EB45 F310 0024          00000310     30  STMG 4,5,reg45 Store low-order 31 digits and sign                     
 00000222 ED00 001F 0049          0000001F     31  SRXT 0,0,31 Shift, keeping 3 high-order digits                        
 00000228 6000 F300               00000300     32  std 0,shifted                                                         
 0000022C 6020 F308               00000308     33  std 2,shifted+8                                                       
 00000230 B3EA 0040                            34  CUXTR 4,0 Convert 3 unsigned digits                                   
 00000234 4050 F320               00000320     35  STH 5,Packed Store remaining 3 digits                                 
                                               36 *                                                                      
 00000238 6840 F368               00000368     37  ld 4,=dd'1234567890123456'                                            
 0000023C B3E3 0064                            38  csdtr 6,4,0                                                           
 00000240 E360 F328 0024          00000328     39  stg 6,reg6                                                            
                                               40 *                                                                      
 00000246 EB45 F310 0004          00000310     41  lmg 4,5,reg45                                                         
 0000024C B3FB 0004                            42  cxstr 0,4 Convert low part back                                       
 00000250 6000 F330               00000330     43  std 0,cxhi                                                            
 00000254 6020 F338               00000338     44  std 2,cxlow                                                           
                                               45 *                                                                      
 00000258 EB55 0004 000C          00000004     46  srlg 5,5,4   Drop sign                                                
 0000025E B3FA 0004                            47  cxutr 0,4 Convert low part back                                       
 00000262 6000 F340               00000340     48  std 0,cxuhi                                                           
 00000266 6020 F348               00000348     49  std 2,cxulow                                                          
                                               50 *                                                                      
 0000026A 12EE                                 51  ltr 14,14                                                             
 0000026C 077E                                 52  bnzr 14                                                               
 0000026E 0AFF                                 53  svc 255                                                               
 00000270                00000270 00000300     54  org cxstr+x'300'                                                      
1                                                                                                               Page    4
   Active Usings: CXSTR,R15                                                                                              
0  Loc    Object Code      Addr1    Addr2    Stmt  Source Statement                         jHLASM 1.0   2016/06/05 09.38
000000300                                      55 shifted ds 2d                                                          
 00000310                                      56 reg45 ds 2d                                                            
 00000320                                      57 Packed ds h Packed digits and sign Figure 455.                         
 00000328                                      58 reg6 ds d                                                              
 00000330                                      59 cxhi ds d                                                              
 00000338                                      60 cxlow ds d                                                             
 00000340                                      61 cxuhi ds d                                                             
 00000348                                      62 cxulow ds d                                                            
                                               63 *                                                                      
 00000350                                      64 cr0 ds f                                                               
                                               65  print data                                                            
 00000358                                      66  ltorg                                                                 
 00000358 2608134B9C1E28E5                     67                =LD'1234567890123456789012345678901234'                 
 00000360 6F3C127177823534                                                                                               
 00000368 263934B9C1E28E56                     68                =dd'1234567890123456'                                   
                                               69  punch '* runtest .1'                                                  
                                               70  punch '* runtest program .1'                                          
                                               71  punch '* *Compare'                                                    
                                               72  punch '* r 300.10'                                                    
                                               73  punch '* r 310.10'                                                    
                                               74  punch '* *Want "csxtr/srxt low" 45678901 23456789 01234567 8901234C'  
                                               75  punch '* r 320.2'                                                     
                                               76  punch '* *Want "csxtr/srxt high" 0123'                                
                                               77  punch '* r 328.8'                                                     
                                               78  punch '* *Want "csdtr" 23456789 0123456C'                             
                                               79  punch '* r 330.10'                                                    
                                               80  punch '* *Want "cxstr" 2208004B 9C1E28E5 6F3C1271 77823534'           
                                               81  punch '* r 340.10'                                                    
                                               82  punch '* *Want "cxutr" 2208045D E08D4D2E 70781271 77823534'           
                                               83  punch '* *Done'                                                       
                                               84  end                                                                   
1                                                 Relocation Dictionary                                         Page    5
-   Pos.Id   Rel.Id   Address  Type  Action                                                 jHLASM 1.0   2016/06/05 09.38
0  00000001 00000001 000001A8   A 8     +                                                                                
1                               Ordinary Symbol and Literal Cross Reference                                     Page    6
-Symbol   Length   Value     Id    R Type Asm  Program   Defn References                    jHLASM 1.0   2016/06/05 09.38
0cr0           4 00000350 00000001     F  F                64   24S   25M   26                                           
 cxhi          8 00000330 00000001     D  D                59   43S                                                      
 cxlow         8 00000338 00000001     D  D                60   44S                                                      
 cxstr         1 00000000 00000001     J                    5    6     7    12    14    16    18    20    54             
 cxuhi         8 00000340 00000001     D  D                61   48S                                                      
 cxulow        8 00000348 00000001     D  D                62   49S                                                      
 go            2 00000200 00000001     H  H                21   15                                                       
 Packed        2 00000320 00000001     H  H                57   35S                                                      
 reg45         8 00000310 00000001     D  D                56   30S   41                                                 
 reg6          8 00000328 00000001     D  D                58   39S                                                      
 shifted       8 00000300 00000001     D  D                55   32S   33S                                                
 =dd'1234567890123456'                                                                                                   
               8 00000368 00000001     D                   68   37                                                       
 =LD'1234567890123456789012345678901234'                                                                                 
              16 00000358 00000001     L                   67   27    28                                                 
1                                  Unreferenced Symbols Defined in CSECTs                                       Page    7
-  Defn  Symbol                                                                             jHLASM 1.0   2016/06/05 09.38
0    13  svcold                                                                                                          
1                                                      Using Map                                                Page    8
-                                                                                           jHLASM 1.0   2016/06/05 09.38
   Stmt  -----Location----- Action ----------------Using----------------- Reg Max     Last Label and Using Text          
           Count      Id           Type          Value    Range     Id        Disp    Stmt                               
0     8  00000000  00000001 USING  ORDINARY    00000000 00001000 00000001  15 00368     49 *,15                          
1                                   General Purpose Register Cross Reference                                    Page    9
- Register  References (S=set, M=modified, B=branch, U=using, D=drop, N=index)              jHLASM 1.0   2016/06/05 09.38
0    0(0)    (no references identified)                                                                                  
     1(1)    (no references identified)                                                                                  
     2(2)    (no references identified)                                                                                  
     3(3)    (no references identified)                                                                                  
     4(4)      23S   29S   30    34S   41S   42    47                                                                    
     5(5)      23S   29S   30    34S   35    41S   42    46M   46    47                                                  
     6(6)      38S   39                                                                                                  
     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)      51S   51    52B                                                                                           
    15(F)       8U                                                                                                       
1                                  Diagnostic Cross Reference and Assembler Summary                             Page   10
-                                                                                           jHLASM 1.0   2016/06/05 09.38
0     No Statements Flagged in this Assembly                                                                             
0John's High Level Assembler Release 1.0, May 30 2016 20:36:44                                                           
0System:  Linux release 3.19.0-59-generic on jbox (i686)                                                                 
0Data Sets Allocated for this Assembly                                                                                   
  Type     Mtime                File path                                                                                
  input    2016-06-05 09:18:08  csxtr.assemble                                                                           
0Assembly Start Time: 09.38.32 Stop Time: 09.38.33 Processor Time: 00.00.00.0359.
 
                                     
 Return Code 000                                                                                                         
