Type ASSEMBLE
Source Lines : 576
Fixes Applied : 1
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R10248DS]
Module
DMSOR1 *
*
Function
THE FUNCTION OF DMSOR1 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. *
*
Attributes
DISCONTIGUOUS SHARED SEGMENT *
REENTRANT *
*
Operation
DMSOR1 PERFORMS THE FOLLOWING FUNCTIONS: *
1. DETERMINES IF RELOCATION IS RE- *
QUIRED. IF NOT EXIT IS MADE TO *
$$BOPEN TO OPEN THE FILE. *
*
2. IF ADDRESS MODIFICATION IS RE- *
QUIRED, THE CCB AND LOGIC MODULE*
ADDRESSES WHICH ARE COMMON TO *
ALL DTFS ARE MODIFIED. *
*
*
3. DETERMINES WHAT DTF TYPE IS THE *
OBJECT OF THE OPENR MACRO. *
*
IF UNIT RECORD DTF TYPE, ISSUES *
SVC 2 TO FETCH $$BOPNR3 TO *
CONTINUE ADDRESS MODIFICATION. *
*
IF DTFCP OR DTFDI, ISSUES SVC 2 *
TO FETCH $$BOPNR3 TO CONTINUE *
ADDRESS MODIFICATION. *
*
ALL OTHER DTF TYPES - INCLUDING*
DTFMT AND DTFSD - ADDRESS *
MODIFICATION IS PERFORMED IN *
THIS ROUTINE. *
*
4. 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*
TO PERFORM THE ACTUAL OPEN. *
Calls to Other Routines
DMSOR3 (SVC 2) *
DMSBOP (SVC 2) *
DMSFREB *
*