* /* MACCOMP Y-2 SC1D0/SJD48  */                                        01002002
* /* MACSTAT Y-2 73194/021090 */                                        01004002
         MACRO                                                          01006002
&LABEL   IGGSTAE &NAMELOC                                               01008002
.* /* START OF SPECIFICATIONS ****                                      01010002
.*                                                                      01020002
.*01  MODULE-NAME = IGGSTAE                                             01030002
.*                                                                      01042002
.*01  COPYRIGHT = NONE                                                  01044002
.*                                                                      01046002
.*01  STATUS = VS2 RELEASE 2, LEVEL 1                                   01048002
.*                                                                      01048402
.*01  CHANGE-ACTIVITY = AS FOLLOWS:                                     01048802
.*     VS2 RELEASE 02 DELETIONS                                         01049202
.*                                                               YM1140 01049302
.*                                                                      01049402
.*01  DESCRIPTIVE-NAME = ESTAE ROUTINE BOOTSTRAP                        01049602
.*                                                                      01049702
.*01  FUNCTION = LOCATE AND ENTER TASK RECOVERY ROUTINE                 01049802
.*                                                                      01049902
.*01  NOTES = SEE BELOW                                                 01066602
.*                                                                      01076602
.*02    DEPENDENCIES = NONE                                             01078602
.*                                                                      01080602
.*02    REGISTER-CONVENTIONS = NO REGISTER LABELS ARE USED              01088802
.*                                                                      01093202
.*01  MODULE-TYPE = MACRO                                               01093602
.*                                                                      01093702
.*02    MACRO-SIZE = 75 STATEMENTS                                      01153902
.*                                                                      01163902
.*02    PARAMETER-RECEIVED = 1                                          01173902
.*03      TYPE = CHARACTER STRING                                       01185502
.*04        LENGTH+MODE = 8 CHARACTERS                                  01186202
.*                                                                      01188202
.*04        VALUE = NAME OF RECOVERY ROUTINE                            01188302
.*                                                                      01190202
.*02    EXTERNAL-REFERENCES = NONE                                      01190602
.*                                                                      01193602
.*02    DATA-AREA = NONE                                                01193802
.*                                                                      01224502
.*01  INNER-MACROS = NONE                                               01226502
.*                                                                      01227002
.*01  SYSTEM-MACROS = IHASDWA                                           01227102
.*                                                                      01238302
.**** END OF SPECIFICATIONS ***/                                        01243902
         PUSH  USING                                                    01293902
         DROP                                                           01343902
&LABEL   LA    15,12                    CODE PASSED IF NO RTCA          01500002
         CR    15,0                     WAS AN RTCA PROVIDED            02000002
         BER   14                       NO--RETURN TO RTM               02500002
         USING SDWA,1                   YES--BASE DSECT                 03000002
         STM   14,12,12(13)             SAVE REGS FOR RECOVERY RTN      03500002
         BALR  12,0                     ESTABLISH BASE FOR CONSTANTS    04500002
         USING *,12                                                     05000002
         MVC   SDWACSCT,=CL8'&SYSECT'   STORE CSECT NAME IN RTCA        05500002
         MVC   SDWAREXN,&NAMELOC        STORE ESTAE NAME IN RTCA        06000002
         DROP  1                                                        07500002
         L     1,16                     CVT POINTER              YM1140 07510002
         USING CVT,1                    CVT REGISTER             YM1140 07520002
         L     2,CVTLINK                ADDR OF SYS1.LINKLIB DCB YM1140 07530002
         DROP  1                                                 YM1140 07540002
         LOAD  EPLOC=&NAMELOC,DCB=(2)   LOAD RECOVERY RTN        YM1140 07550002
         LR    5,0                      SAVE ENTRY POINT ADDRESS        07600002
         DELETE EPLOC=&NAMELOC          DELETE IT                       07650002
         DROP  12                                                       07700002
         LR    15,5                     ADDRESS OF RECOVERY RTN         10500002
         L     14,12(13)                RTM RETURN ADDRESS              15000002
         LM    0,12,20(13)              RESTORE REGISTERS               15500002
         BR    15                       GO TO RECOVERY ROUTINE          16000002
         POP   USING                                                    16050002
         MEND                                                           16500002