Type ASSEMBLE
Source Lines : 332
Fixes Applied : 1
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [HRC371DS]

Module

       DMSEXC (EXEC)

Function

       BOOTSTRAP FOR DISK VERSION OF EXEC.

Attributes

       NUCLEUS, REENTRANT, SHARED

Operation

       0.  Read the first line of the user program, and scan HRC371DS
           to determine if the first word in the line is     HRC371DS
           '/*'.  If so, call REXX via SVC 202 to execute    HRC371DS
           the program, then return to our caller.           HRC371DS
                                                             HRC371DS
       1.  DETERMINE FROM EXLEVEL IN OPSECT WHETHER OR NOT THE
           EXECTOR  MODULE MUST BE READ IN.

       2.  IF LEVEL=1 THEN CALL STATE TO SEE IF THE MODULE EXISTS.
           IF THE FILE EXISTS, GET ENOUGH FREE STORAGE(VIA FREE)
           TO HOLD IT AND READ IT IN(RDBUF).  ONCE THE FILE IS
           READ IN, CALL FINIS TO END THE READING OPERATION,
           AND SET THE EXECRUN FLAG ON.

       3.  SET THE ENTRY CONDITIONS REQUIRED FOR EXECTOR AND
           BALR THERE.

       4.  DECREMENT EXLEVEL AND STORE THE NEW VALUE.  IF IT IS 0,
           RETURN THE FREE STORAGE(VIA FRET).

       5.  SET EXECRUN FLAG OFF AND RETURN.

Calls to Other Routines

       FREE - GET FREE STORAGE
       FRET - RETURNS FREE STORAGE
       STATE - SEE IF EXECTOR MODULE EXISTS
       RDBUF - READ IN EXECTOR MODULE
       FINIS - CLOSE THE READING OF EXECTOR MODULE
       REXX - Execute a REXX procedure                       HRC371DS