/*-------------------------------------------------------------------*/
/*                                                                   */
/*                         REXX Exec :STARTASM                       */
/*                                                                   */
/*  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
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 "= '"mline"'"
row = row + 1
return
/*-------------------------------------------------------------------*/
/*                           End of STARTASM                         */
/*-------------------------------------------------------------------*/