/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                         REXX Exec :STARTASM                       */         
/*                                                                   */         
/*                      ***** Edit Macro *****                       */         
/*                                                                   */         
/*  Description : Create a skeleton Assembler Program                */         
/*                                                                   */         
/*  Created on : 22 Mar 2018                                         */         
/*  Created by : Kevin Ferguson                                      */         
/*             : Userid MIT001                                       */         
/*             : Using ABBYDALE.DEVL.REXX(STARTASM)                  */         
/*                                                                   */         
/*  Called by : Edit Macro                                           */         
/*                                                                   */         
/*  Calls :  Nothing                                                 */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
ADDRESS ISREDIT "MACRO"                                                         
ADDRESS ISREDIT "(DSNAME) = DATASET"                                            
ADDRESS ISREDIT "(MEMBER) = MEMBER"                                             
ADDRESS ISREDIT '(LASTLINE) = LINENUM .ZLAST'                                   
if  lastline > 0 then                                                           
ADDRESS ISREDIT "(LINE) = LINE 1"                                               
address ISredit "Profile unlock"                                                
address ISredit "HILITE ASM"                                                    
address ISredit "Profile lock"                                                  
ADDRESS ISREDIT "RESET"                                                         
uline = translate(LINE)                                                         
s = USERID()                                                                    
ascb = storage(224,4)                             /* psaaold  */                
asxb = storage(d2x(c2d(ascb)+108),4)              /* ascbasxb */                
acee = storage(d2x(c2d(asxb)+200),4)              /* acee     */                
unam = storage(d2x(c2d(acee)+100),4)              /* aceeunam */                
name=strip(storage(d2x(c2d(unam)+1),20))          /* Get name */                
row = 0                                                                         
mem = left(member,8,' ')                                                        
mline = '         PRINT NOGEN'                                                  
call putcode                                                                    
mline = mem 'START 0'                                                           
call putcode                                                                    
mline = mem 'AMODE 31'                                                          
call putcode                                                                    
mline = mem 'RMODE ANY'                                                         
call putcode                                                                    
mline = '         COPY ASLEQUC              Register equates'                   
call putcode                                                                    
mline = '         IEFJSSIB'                                                     
call putcode                                                                    
mline = '         IEFSSOBH'                                                     
call putcode                                                                    
mline = mem 'TITLE ''Your Title - Copyright Abbydale Systems LLC'''             
call putcode                                                                    
mline = '         ASLDATA DATA=YES,LIST=YES,INFO=YES'                           
call putcode                                                                    
fill = '-'                                                                      
tline = '-'                                                                     
call putline                                                                    
fill = ' '                                                                      
tline = member                                                                  
call putline                                                                    
fill = '-'                                                                      
tline = '-'                                                                     
call putline                                                                    
fill = ' '                                                                      
tline = ' '                                                                     
call putline                                                                    
tline = 'Description :'                                                         
call putleft                                                                    
tline = ' '                                                                     
call putline                                                                    
tline = 'Created on : 'date()                                                   
call putleft                                                                    
tline = 'Created by : 'name                                                     
call putleft                                                                    
tline = '           : Userid('s')'                                              
call putleft                                                                    
tline = '           : Using' dsname'('member')'                                 
call putleft                                                                    
tline = ' '                                                                     
call putline                                                                    
tline = 'Called by :'                                                           
call putleft                                                                    
tline = ' '                                                                     
call putline                                                                    
tline = 'Calls :'                                                               
call putleft                                                                    
tline = ' '                                                                     
call putline                                                                    
tline = 'Change Activity :'                                                     
call putleft                                                                    
tline = ' '                                                                     
call putline                                                                    
fill = '-'                                                                      
tline = '-'                                                                     
call putline                                                                    
fill = ' '                                                                      
tline = '©Copyright of Abbydale Systems LLC.'                                   
call putline                                                                    
fill = '-'                                                                      
tline = '-'                                                                     
call putline                                                                    
mline = mem 'BEGIN R12,VER=1.0'                                                 
call putcode                                                                    
mline = '         EOJ   C=(R15)             Return to caller'                   
call putcode                                                                    
ADDRESS ISREDIT '(LASTLINE) = LINENUM .ZLAST'                                   
row = lastline                                                                  
tline = '-'                                                                     
call putline                                                                    
fill = ' '                                                                      
tline = 'End of 'member                                                         
call putline                                                                    
fill = '-'                                                                      
tline = '-'                                                                     
call putline                                                                    
mline = '         LTORG'                                                        
call putcode                                                                    
mline = '         END' member                                                   
call putcode                                                                    
mline = '         PUNCH '' MODE AMODE(31)''   BINDER AMODE STATEMENT.'          
call putcode                                                                    
mline = '         PUNCH '' MODE RMODE(ANY)''  BINDER RMODE STATEMENT.'          
call putcode                                                                    
mline = '         PUNCH '' ENTRY 'member'''     MODULE ENTRY POINT.'            
call putcode                                                                    
mline = '         PUNCH '' NAME  'member'(R)''   MODULE NAME.'                  
call putcode                                                                    
mline = '         END'                                                          
call putcode                                                                    
exit                                                                            
putline:                                                                        
mline = '*'CENTER(tline,69,fill)'*'                                             
Address ISREDIT "LINE_AFTER "row "= '"mline"'"                                  
row = row + 1                                                                   
return                                                                          
putleft:                                                                        
mline = '*  'LEFT(tline,67,fill)'*'                                             
putcode:                                                                        
Address ISREDIT "LINE_AFTER "row "= DATALINE (mline)"                           
row = row + 1                                                                   
return                                                                          
/*-------------------------------------------------------------------*/         
/*                           End of STARTASM                         */         
/*-------------------------------------------------------------------*/