Type ASSEMBLE
Source Lines : 6,694
Fixes Applied : 3
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R15210DS]

Module

        DMSDLK  (DOSLKED)

Function

   TRANSLATORS INTO EXECUTABLE PROGRAMS. THE CORE IMAGE PHASES
   ARE ADDED TO THE END OF THE SPECIFIED DOSLIB.

Attributes

        NON-REUSABLE  NON-RESIDENT

Operation

        CONTROL ENTERS DMSDLK AT THE DLKINL
   CSECT.  THE COMMAND LINE IS SCANNED FOR ERRORS AND
   ADCONS ARE RELOCATED.  THEN SYSRES IS LOCATED AND, IF
   THE DISK OPTION IS DESIRED, THE OLD MAP FILE IS
   ERASED IF IT EXISTS AND A NEW ONE CREATED.
   A CHECK IS MADE TO SEE IF OLD TEMPORARY FILES WITH
   A FILENAME OF 'FN' ARE PRESENT AND, IF SO, TO ERASE
   THEM.   THE PRIVATE RELOCATABLE LIBRARY, IF
   SPECIFIED, IS LOCATED AND ADDRESSES ARE CALCULATED.
   DOSLIB IS THEN FILEDEFED AND OPENED.  A CHECK IS
   MADE FOR DOSLNK AND, IF NOT AVAILABLE, A DUMMY
   INCLUDE CARD IS SET UP AND CONTROL PASSES TO
   NORMAL PROCESSING.  IF DOSLNK IS AVAILABLE, THE
   FILE IS READ AND ACTION CARDS ARE PROCESSED.
   WHEN THE FIRST NON-ACTION CARD IS LOCATED, THE
   OPTIONS SPECIFIED ON THE ACTION CARDS (IF ANY)
   ARE PROCESSED AND CONTROL PASSES TO NORMAL
   PROCESSING.  WHEN THE CSECT HAS COMPLETED ITS
   PROCESSING, IT WILL BE OVERLAID WITH WORK TABLES
   AND BUFFER AREAS BY SUBSEQUENT PROCESSING.

        PHASES FORMED FROM LANGUAGE TRANSLATOR RELOCATABLE MODULES
   ARE ASSIGNED AREAS OF MAIN STORAGE.
   WHEN ACTION REL IS SPECIFIED OR DEFAULT AND ACCEPTED FOR
   A PHASE, A RELOCATABLE PHASE WILL RESULT.
   WHEN ACTION NOREL IS SPECIFIED OR DEFAULT OR ACTION REL
   NOT ACCEPTED FOR A PHASE THE RESULTING PHASE WILL BE
   NOT RELOCATABLE.

        THE FOLLOWING CONTROL CARDS ARE PROCESSED DURING
   NORMAL PROCESSING:

   PHASE - AS EACH PHASE IS BUILT, THE INFORMATION FOR
        THE PHASE IS SET UP IN CPHENT.  THE NAME IS
        CHECKED FOR DUPLICATES AND THE ORIGIN IS
        DETERMINED.  IF THIS IS NOT THE FIRST PHASE
        THE PREVIOUS PHASE IS INSERTED IN THE CONTROL
        DICTIONARY TABLE AND THE NUMBER OF BLOCKS ON
        SYSUT2 CONTAINING BOTH TEXT AND RLD INFORMATION ARE
        DETERMINED.  IF THE PHASE IS RELOCATABLE, A SWITCH
        IS SET AND PASS 3 OF RLD RECORDS IS INDICATED.

   INCLUDE - IF AN UNNAMED SUB-MODULE, CARD IS IGNORED.
        OTHERWISE, THE NAME IS COMPARED AGAINST THE
        PRIVATE RELOCATABLE DIRECTORY, CMS TEXT FILES
        AND SYSTEM RELOCATABLE DIRECTORY.  IF NOT FOUND
        AN ERROR MESSAGE IS ISSUED AND PROCESSING
        CONTINUES.  IF FOUND, THE PREVIOUS FILE'S
        ADDRESSES ARE STORED AND THE NEW FILE IS READ AND
        PROCESSED.  WHEN AN END CARD IS READ THE
        PREVIOUS FILE'S ADDRESSES ARE RESTORED AND ITS
        PROCESSING CONTINUES.

   ENTRY - IF NOAUTO HAS NOT BEEN SET EXTERNAL REFERENCES,
        IF ANY, ARE RESOLVED, IF POSSIBLE, BY AUTOLINKING
        THE REQUIRED MODULES INTO THE PHASE.  CONTROL
        IS THEN PASSED TO END PROCESSING.  THE TRANSFER
        ADDRESS, IF SPECIFIED, IS OBTAINED AND THE
        NUMBER OF TEXT BLOCKS AND RLD BLOCKS IS CALCULATED.
        IF NOMAP WAS NO SPECIFIED, THE MAP IS PRINTED,
        TYPED, OR WRITTEN ONTO DISK AS SPECIFIED BY THE
        OPTION LIST OF THE COMMAND LINE.  THE RLD
        RECORDS ARE THEN PROCESSED AND WRITTEN ONTO
        SYSUT2.  THE STOW TABLE ENTRY IS THEN COMPUTED
        AND WRITTEN ONTO DOSLIB AS THE FIRST RECORD.
        THEN SYSUT2 IS READ AND WRITTEN ONTO DOSLIB IN
        1024 BYTE BLOCKS WITH THE EXCEPTION OF THE LAST
        RECORD, WHICH CAN BE ANY LENGTH.  A STOW IS
        THEN ISSUED TO INSERT THE NAME OF THE PHASE IN
        THE DIRECTORY.  THE SYSUT1 AND SYSUT2 FILES ARE
        THEN ERASED, DOSLNK AND DOSLIB FILES ARE
        CLOSED, AND CONTROL RETURNS TO CMS.

Calls to Other Routines

        DMSERS, DMSFNS, DMSPRT, DMSBRD, DMSSTT, DMSERR,
        DMSBWR