1                               High Level Assembler Option Summary                                             Page    1
-                                                                                           jHLASM 1.0   2016/12/11 12.44
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                                                                                                
1AGF                                           External Symbol Dictionary                                       Page    2
-Symbol   Type   Id     Address  Length   Owner Id Flags Alias-of                           jHLASM 1.0   2016/12/11 12.44
0AGF       SD 00000001 00000000 00000900             07                                                                  
1AGF      agf test case                                                                                         Page    3
   Active Usings: None                                                                                                   
0  Loc    Object Code      Addr1    Addr2    Stmt  Source Statement                         jHLASM 1.0   2016/12/11 12.44
0                                               3 * This file was put into the public domain 2015-11-12                  
                                                4 * by John P. Hartmann.  You can use it for anything you like,          
                                                5 * as long as this notice remains.                                      
0                                               7  punch '*Testcase agf &sysdatc &systime'                               
                                                 + punch '*Testcase agf 20161211 12.44'                                  
                                                8  punch 'sysclear'                                                      
                                                9  punch 'archlvl z'                                                     
 00000000                00000000 00000900     10 agf start 0                                                            
                                               11 agf rmode any                                                          
                                               12 agf amode any                                                          
                     R:F 00000000              13  using agf,15                                                          
 00000000                00000000 000001A0     14  org agf+x'1a0'                                                        
 000001A0 0000000180000000                     15  dc x'0000000180000000',ad(x'200')                                     
 000001B0                000001B0 000001D0     16  org agf+x'1d0' Program new                                            
 000001D0 0002000180000000                     17  dc x'0002000180000000',ad(x'deaddead')                                
 000001E0                000001E0 00000200     18  org agf+x'200'                                                        
 00000200 4100 0009               00000009     19  LA 0,testcount   0=Number of test data                                
 00000204 4110 F250               00000250     20  LA 1,TEST1       1=>Test data table                                   
 00000208 41A0 F900               00000900     21  LA 10,rES1       10=>Result table                                     
 0000020C 1B88                                 22  Sr 8,8          Clear CC register                                     
 0000020E E340 1000 0004          00000000     23 A LG 4,0(,1)     Load 4=TESTn                                          
 00000214 5850 1008               00000008     24  L 5,8(,1)       Load 5=TESTn+8                                        
 00000218 E340 1008 0018          00000008     25  AGF 4,8(,1)     Add fullword at TESTn+8                               
 0000021E B222 0080                            26  IPM 8            8=Cond code and pgm mask                             
 00000222 E340 A000 0024          00000000     27  STG 4,0(,10)    Store 4 in result table                               
 00000228 5080 A008               00000008     28  ST 8,8(,10)     Store CC in table                                     
 0000022C 41A0 A010               00000010     29  LA 10,16(,10)   15=>next result table                                 
 00000230 4110 1010               00000010     30  LA 1,16(,1)     1=>Next TESTn                                         
 00000234 4600 F20E               0000020E     31  BCT 0,A          Loop to end of TEST table                            
 00000238 12EE                                 32  ltr 14,14     Have a return address?                                  
 0000023A 077E                                 33  bnzr 14       return if so                                            
 0000023C B2B2 F240      00000240              34  LPSWE WAITPSW     Load wait PSW                                       
 00000240                                      35  ds 0d                                                                 
 00000240 0002000180000000                     36 WAITPSW dc x'0002000180000000',ad(0) OK wait state PSW                 
 00000250 0000000000000005                     37 TEST1 DC fd'5',F'3'                                                    
 0000025C 00000000                                                                                                       
 00000260 FFFFFFFFFFFFFFFB                     38 TEST2 DC fd'-5',F'-3'                                                  
 0000026C 00000000                                                                                                       
 00000270 FFFFFFFFFFFFFFFB                     39 TEST3 DC fd'-5',F'3'                                                   
 0000027C 00000000                                                                                                       
 00000280 8000000000000000                     40 TEST4 DC fd'-9223372036854775808',F'1'                                 
 0000028C 00000000                                                                                                       
 00000290 7FFFFFFFFFFFFFFF                     41 TEST5 DC fd'9223372036854775807',F'-2147483648'                        
 0000029C 00000000                                                                                                       
 000002A0 00000000FFFFFFFF                     42 TEST6 DC fd'4294967295',F'1'                                           
 000002AC 00000000                                                                                                       
 000002B0 0000000100000000                     43 TEST7 DC fd'4294967296',F'1'                                           
 000002BC 00000000                                                                                                       
 000002C0 0000000100000000                     44 TEST8 DC fd'4294967296',F'-1'                                          
 000002CC 00000000                                                                                                       
 000002D0 0000000000000000                     45  dc fd'0',f'0'                                                         
 000002E0                                      46  ds 0d Align                                                           
                         00000009              47 testcount equ (*-test1)/16                                             
 000002E0                000002E0 00000900     48  org agf+x'900'                                                        
1AGF      agf test case                                                                                         Page    4
   Active Usings: AGF,R15                                                                                                
0  Loc    Object Code      Addr1    Addr2    Stmt  Source Statement                         jHLASM 1.0   2016/12/11 12.44
000000900                                      49 res1 ds 0d                                                             
 00000900                                      50  ltorg                                                                 
                                               51  punch 'runtest .1'                                                    
                                               52  punch '*Compare'                                                      
                                               53  punch 'r 900.9'                                                       
                                               54  punch '*Want 00000000 00000008 20'                                    
                                               55  punch 'r 910.9'                                                       
                                               56  punch '*Want FFFFFFFF FFFFFFF8 10'                                    
                                               57  punch 'r 920.9'                                                       
                                               58  punch '*Want FFFFFFFF FFFFFFFE 10'                                    
                                               59  punch 'r 930.9'                                                       
                                               60  punch '*Want 80000000 00000001 10'                                    
                                               61  punch 'r 940.9'                                                       
                                               62  punch '*Want 7FFFFFFF 7FFFFFFF 20'                                    
                                               63  punch 'r 950.9'                                                       
                                               64  punch '*Want 00000001 00000000 20'                                    
                                               65  punch 'r 960.9'                                                       
                                               66  punch '*Want 00000001 00000001 20'                                    
                                               67  punch 'r 970.9'                                                       
                                               68  punch '*Want 00000000 FFFFFFFF 20'                                    
                                               69  punch 'r 980.9'                                                       
                                               70  punch '*Want 00000000 00000000 00'                                    
                                               71  punch '*Done'                                                         
                                               72  END  ,                                                                
1AGF                            Ordinary Symbol and Literal Cross Reference                                     Page    5
-Symbol   Length   Value     Id    R Type Asm  Program   Defn References                    jHLASM 1.0   2016/12/11 12.44
0A             6 0000020E 00000001     I                   23   31B                                                      
 agf           1 00000000 00000001     J                   10   11    12    13U   14    16    18    48                   
 res1          8 00000900 00000001     D  D                49   21                                                       
 TEST1         8 00000250 00000001     F  FD               37   20    47                                                 
 testcount                                                                                                               
               1 00000009 00000001 A   U                   47   19                                                       
 WAITPSW       8 00000240 00000001     X  X                36   34                                                       
1AGF                               Unreferenced Symbols Defined in CSECTs                                       Page    6
-  Defn  Symbol                                                                             jHLASM 1.0   2016/12/11 12.44
0    38  TEST2                                                                                                           
     39  TEST3                                                                                                           
     40  TEST4                                                                                                           
     41  TEST5                                                                                                           
     42  TEST6                                                                                                           
     43  TEST7                                                                                                           
     44  TEST8                                                                                                           
1AGF                                                   Using Map                                                Page    7
-                                                                                           jHLASM 1.0   2016/12/11 12.44
   Stmt  -----Location----- Action ----------------Using----------------- Reg Max     Last Label and Using Text          
           Count      Id           Type          Value    Range     Id        Disp    Stmt                               
0    13  00000000  00000001 USING  ORDINARY    00000000 00001000 00000001  15 00900     34 agf,15                        
1                                   General Purpose Register Cross Reference                                    Page    8
- Register  References (S=set, M=modified, B=branch, U=using, D=drop, N=index)              jHLASM 1.0   2016/12/11 12.44
0    0(0)      19S   31M                                                                                                 
     1(1)      20S   23    24    25    30S   30                                                                          
     2(2)    (no references identified)                                                                                  
     3(3)    (no references identified)                                                                                  
     4(4)      23S   25M   27                                                                                            
     5(5)      24S                                                                                                       
     6(6)    (no references identified)                                                                                  
     7(7)    (no references identified)                                                                                  
     8(8)      22M   22    26M   28                                                                                      
     9(9)    (no references identified)                                                                                  
    10(A)      21S   27    28    29S   29                                                                                
    11(B)    (no references identified)                                                                                  
    12(C)    (no references identified)                                                                                  
    13(D)    (no references identified)                                                                                  
    14(E)      32S   32    33B                                                                                           
    15(F)      13U                                                                                                       
1AGF                               Diagnostic Cross Reference and Assembler Summary                             Page    9
-                                                                                           jHLASM 1.0   2016/12/11 12.44
0     No Statements Flagged in this Assembly                                                                             
0John's High Level Assembler Release 1.0, Dec  8 2016 15:28:27                                                           
0System:  Linux release 3.13.0-101-generic on jack (x86_64)                                                              
0Data Sets Allocated for this Assembly                                                                                   
  Type     Mtime                File path                                                                                
  input    2016-12-02 10:11:13  agf.assemble                                                                             
0Assembly Start Time: 12.44.51 Stop Time: 12.44.51 Processor Time: 00.00.00.0021.
 
                                     
 Return Code 000                                                                                                         
