Type ASSEMBLE
Source Lines : 867
Fixes Applied : 2
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R14326DS]
Module
DMSSLN
Function
HANDLE OS CONTENTS MANAGEMENT REQUESTS ISSUED
UNDER CMS. (LINK, LOAD, XCTL, DELETE, ATTACH,EXIT)
Attributes
REENTRANT, SEGMENT RESIDENT
Operation
DMSSLN7 - XCTL
1. IF XCTL IS FROM NON-DYNAMICALLY LOADED
PHASE GO TO DMSSLN6 STEP 2 (BELOW)
2. RELEASE STORAGE OCCUPIED BY CURRENT PHASE (LATEST
RB ON LINK CHAIN DEFINES STORAGE AREA)
3. GO TO DYNAMIC (BELOW)
DMSSLN6 - LINK
1. CALL RESIDENT (BELOW) TO CHECK FOR LINK TO CMS
RESIDENT FUNCTION.
2. ISSUE GETMAIN FOR A NEW REQUEST BLOCK
3. IF ATTACH REQUEST SAVE ATTACHER'S R13 AND R15
IN THE RB. POINT R13 TO RB SAVE AREA FOR ATTACHEE
4. IF THIS IS A LOAD REQUEST GO TO STEP 7
5. CHAIN THIS RB AS LATEST ON LINK CHAIN. SAVE
RESUME PSW IN RB.
6. IF COMPILER SWITCH IS ON GO TO LODMOD (BELOW),
OTHERWISE, GO TO DYNAMIC (BELOW).
7. CHAIN THIS RB ON LOAD LIST. SET ZERO USE COUNT
GO TO DYNAMIC STEP 2 (BELOW).
DMSSLN42 - ATTACH
1. ISSUE STAE MACRO IF STAI EXIT IS REQUESTED BY
ATTACHER.
2. GO TO DMSSLN6 (ABOVE).
DMSSLN8 - LOAD
1. IF REQUESTED PHASE IS ON LOAD RB CHAIN GO TO
DYNAMIC STEP 6 (BELOW).
STEP 2 (ABOVE).
3. IF COMPILER SWITCH IS ON GO TO LODMOD
STEP 2 (BELOW; OTHERWISE GO TO DMSSLN6 STEP 2
(ABOVE).
DMSSLN9 - DELETE
1. IF COMPILER SWITCH IS ON RETURN TO DMSITS.
2. IF REQUESTED PHASE IS NOT ON LOAD RB CHAIN SET
RETURN CODE 4 IN R15. AND RETURN TO DMSITS.
3. DECREMENT USE COUNT BY ONE. IF USE COUNT IS NOT
ZERO RETURN TO DMSITS.
4. RELEASE PHASE STORAGE AREA, UNCHAIN AND FREEMAIN
LOAD REQUEST BLOCK. ZERO R15 AND RETURN TO DMSITS.
DMSSLN3 - EXIT FROM CALLED PHASE
1. IF NOT RETURN FROM SUBTASK (ATTACH) GO TO STEP 3.
2. POST ECB, EXECUTE END OF TASK EXIT ROUTINE IF ONE
WAS REQUESTED.
3. RELEASE PHASE STORAGE, UNCHAIN AND FREE LATEST RB O
LINK RB CHAIN. RESTORE REGISTERS IF RETURN FROM SUBTAS
RETURN TO DMSITS.
DYNAMIC - CALL CMS LOADER
1. IF REQUESTED PHASE IS ON LOAD REQUEST BLOCK CHAIN
GO TO STEP 6.
2. SET PHASE NAME IN RB. ISSUE CONDITIONAL GETMAIN FOR
AN AREA TO LOAD REQUESTED PHASE INTO. SET LOCATION
COUNTER TO PHASE AREA. CALL DMSLDRB TO INCLUDE PHASE.
3. IF DMSLDR RETURNS AN ERROR CODE >4 ISSUE ABEND
X'15A'. OTHERWISE RESET LOADER TABLE COUNT TO PRE-INCL
COUNT.
4. RELEASE EXCESS PHASE STORAGE.
5. DETERMINE PHASE ENTRY POINT:
A.USE STRTADDR VALUE IN NUCON IF COMPILER SWITCH IS O
B.USE STRTADDR IF PHASE NAME OCCURED AS A MEMBER NAME
IN A CMS TXTLIB (OS FORM - REF. TXTLIB COMMAND).
C.USE ALIASENT IN NUCON IF PHASE NAME OCCURED IN LOAD
CSECTS BUT WAS NOT THE TXTLIB MEMBER NAME (REAL ALI
D.USE STRTADDR FOR ALL OTHER CASES (SYMBOLIC ALIAS).
6. RESET DYNAMIC FLAGS.
7. IF THIS IS A LOAD REQUEST GO TO STEP 9.
8. SET PHASE ENTRY ADDRESS IN CMS OLD PSW AND R15, SET
THAT CALLED PHASE WILL RETURN TO AN SVC 3 INSTRUCTION.
RETURN TO DMSITS WHICH WILL TRANSFER TO CALLED PHASE.
9. IF COMPILER SWITCH IS OFF INCREASE USE COUNT IN RB
ONE AND SAVE ENTRY LOCATION IN LOAD RB.
10. SET R0 TO ENTRY LOCATION. RETURN TO DMSITS.
THE ENTRY ADDR. IS FROM THE LOAD RB IF PHASE WAS ALREA
IN STORAGE.
LODMOD - LOADMOD A PHASE
1. SAVE REQUESTED NAME IN RB. IF REQUESTED NAME IS
ON LOAD RB CHAIN GO TO DYNAMIC STEP 6 (ABOVE).
2. CALL DMSMOD TO BRING IN REQUESTED PHASE AS A CMS MO
IF DMSMOD RETURNS NON ZERO RETURN CODE ISSUE ABEND X'1
3. GO TO DYNAMIC STEP 5 (ABOVE).
RESIDENT
CHECK REQUESTED PHASE NAME AGAINST CMS RESIDENT LIST
(IECQBFG1 IS ONLY ENTRY). IF EQUAL GO TO RESIDENT ROUT
OTHERWISE RETURN TO INTERNAL CALLER.
DMSSLNAB - ABEND RECOVERY
ENTERED WHEN AN ABEND (SVC 13) OCCURS IN CMS. DMSSLNAB
RELEASES THE LOAD AND LINK REQUEST BLOCK CHAINS BY
ZEROING THEIR RESPECTIVE ANCHORS IN NUCON. RETURN
TO DMSABN.
Calls to Other Routines
DMSMOD, DMSLDRB