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

Module

      DMSOR3                                                 *
                                                             *

Function

      THE FUNCTION OF DMSOR3 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 UNIT RECORD DTFS.          *
                                                             *

Attributes

      DISCONTIGUOUS SHARED SEGMENT                           *
      REENTRANT                                              *
                                                             *

Operation

      DMSOR3 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      *
                             UNIT RECORD DTFS.               *
                                                             *
                         3.  AN SVC 2 (FETCH) FOR DMSOR2 IS  *
                             ISSUED FOR DTFCP OR 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)                                         *
      DMSOR2 (SVC 2) TO MODIFY DTFCP/DTFDI ADCONS            *
                                                             *