Type ASSEMBLE
Source Lines : 415
Fixes Applied : 0
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [Unmodified]
Module
DMSOPL *
*
Function
DMSOPL READS THE APPROPRIATE SYSTEM DIRECTORY RECORDS *
AND DIRECTORY HEADER (S) AND CHECKS IF THE SPECIFIED *
LIBRARIES CONTAIN ANY ACTIVE MEMBERS. IT SUPPLIES *
THE CALLER WITH THE DISK ADDRESS OF THE SPECIFIED *
SYSTEM LIBRARY AND INDICATES WHETHER OR NOT THERE ARE *
ACTIVE MEMBERS IN THE LIBRARIES TO BE ACCESSED. IF *
A PRIVATE LIBRARY IS TO BE ACCESSED, IT MUST HAVE BEEN *
OPENED (USING DMSBOP) PRIOR TO CALLING THIS PHASE AND *
ITS DISK ADDRESS MUST BE AVAILABLE IN INTERFACE FIELD *
'BUCK1'. *
*
Attributes
DISCONTIGUOUS SHARED SEGMENT *
REENTRANT *
*
Operation
THE FOLLOWING ACTIVITIES ARE PERFORMED BY DMSOPL IN THE*
SPECIFIED ORDER: *
*
1. R2 IS RESTORED FROM THE LTA SAVEAREA*
R2 CONTAINS A POINTER TO THE TEN *
BYTE FIELD PASSED TO THE MODULE. *
*
2. READ SYSTEM SOURCE STATEMENT *
LIBRARY DIRECTORY RECORD. *
*
3. IF LIBRARY EXISTS, READ FIRST *
SYSTEM LIBRARY DIRECTORY BLOCK. *
*
4. IF ACTIVE LIBRARY MEMBERS INDICATE *
IN FIELD TO BE PASSED BACK TO CALLER*
*
5. IF NO SYSTEM SOURCE STATEMENT LIBE *
EXISTS OR AFTER THE SYSTEM SOURCE *
STATEMENT LIBRARY DIRECTORY RECORDS *
HAVE BEEN PROCESSED, PREPARE TO *
OPEN THE PRIVATE SOURCE STATEMENT *
LIBRARY. *
*
6. IS THIS A PRIVATE LIBRARY OPEN ? *
(INDICATOR PASSED TO DMSOPL FROM *
CALLER) *
*
7. LOCATE DOSCB FOR PRIVATE SOURCE *
STATEMENT LIBRARY. *
*
8. READ FIRST DIRECTORY BLOCK FOR *
PRIVATE LIBRARY. *
*
9. INDICATE ACTIVE MEMBERS IN THE *
FIELD TO BE PASSED BACK TO THE *
CALLER, IF THEY EXIST *
*
10. RETURN TO CALLER VIA SVC 11 *
*
11. WHEN ERRORS ARE ENCOUNTERED, *
AN APPROPRIATE ERROR MESSAGE IS *
ISSUED AND EXIT MADE VIA AN SVC 6. *
(CANCEL - ABNORMAL TERMINATION) *
Calls to Other Routines
DMSXCP *
*