Charles (et al),
I like the entry being at the CSECT and the base pointing to the entry
of the CSECT (and I am lazy) so I borrowed a neat technique from Ed Jaffe
I marked it with "<--- this is new " in your sample
It costs only 4bytes and helps me.
TEST CSECT
MAIN1 LOCTR
J MYENTRY <--------- this is new
M1 DC 'Eyecatcher at front of CSECT'
MAIN2 LOCTR
DS H alignment
MYENTRY EQU *
ENTRY MYENTRY <--------- this is superfloush now
SAVE ...
LARL R12,TEST no more BALRs!
USING TEST,R12
code ...
MAIN1 LOCTR
* put any macros that need a base in little subroutines here
LTORG
Small constants and, if CSECT not relocatable, work areas
MAIN2 LOCTR
Any large buffers or tables
END
Martin
