Type ASSEMBLE
Source Lines : 334
Fixes Applied : 0
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [Unmodified]

Module

      DMSOR2                                                 *
                                                             *

Function

      THE FUNCTION OF DMSOR2 IS TO RELOCATE ALL DTF TABLE    *
      ADDRESS CONSTANTS FROM THE ASSEMBLED ADDRESSES TO      *
      EXECUTABLE STORAGE ADDRESSES.  THIS IS ACCOMPLISHED BY *
      SUBTRACTING FROM THE BAL ADDRESS PROVIDED BY THE       *
      OPENR MACRO IN REGISTER 0 A FOUR BYTE ASSEMBLED        *
      ADDRESS CONSTANT OF THE BAL ADDRESS.  ANY DIFFERENCE   *
      INDICATES THAT THE PROGRAM HAS BEEN RELOCATED.         *
      RELOCATION IS PERFORMED FOR DTFCP AND DTFDI DTFS.      *
                                                             *

Attributes

      DISCONTIGUOUS SHARED SEGMENT                           *
      REENTRANT                                              *
                                                             *

Operation

      DMSOR2 PERFORMS THE FOLLOWING FUNCTIONS:               *
                         1.  DETERMINES IF RELOCATION IS RE- *
                             QUIRED.  IF NOT EXIT IS MADE TO *
                             $$BOPEN TO OPEN THE FILE.       *
                                                             *
                         2.  DETERMINES WHAT DTF TYPE IS THE *
                             OBJECT OF THE OPENR MACRO.      *
                                                             *
                             MODIFIES THE ADCONS IN THE      *
                             DTFCP AND DTFDI DTFS.           *
                                                             *
                         3.  A CHECK IS MADE TO SEE IF MORE  *
                             FILES REMAIN TO BE OPENED.  IF  *
                             SO, ADDRESS MODIFICATION IS PER-*
                             FORMED ON THOSE DTFS AND THEN AN*
                             SVC 2 IS ISSUED TO FETCH $$BOPEN*

Calls to Other Routines

      DMSBOP (SVC 2)                                         *
                                                             *