TITLE 'LOCK INTERFACE TABLE' 00068402 * /* START OF SPECIFICATIONS **** 00078402 * 00088402 *01* MODULE-NAME = IEAVELIT 00098402 * 00109202 *02* CSECT-NAME = IEAVELIT 00109602 * 00109802 *01* DESCRIPTIVE-NAME = LOCK INTERFACE TABLE. 00109902 * 00115202 *01* COPYRIGHT = NONE 00115602 * 00116602 *01* STATUS = VERSION 1. 00119902 * 00122302 *01* FUNCTION = MEANS THROUGH WHICH THE SETLOCK MACRO EXPANSION 00122702 * INITIALIZES THE ENTRY REGISTERS AND ENTERS THE APPROPRIATE LOCK 00122802 * ROUTINE. 00122902 * 00123202 *02* OPERATION = NONE, MODULE IS READ ONLY. 00123302 * 00129402 *01* NOTES = IEAVELIT IS A READ ONLY MODULE. FOR DESCRIPTION OF TABLE 00129802 * ORGANIZATION SEE COMMENTS PRECEDING TABLE. 00134002 * 00138302 *02* DEPENDENCIES = NONE. 00142502 * 00146702 *03* CHARACTER-CODE-DEPENDENCIES = NONE. 00147102 * 00147702 *02* RESTRICTIONS = NONE. 00148402 * 00149202 *02* REGISTER-CONVENTIONS = NONE. 00149602 * 00161002 *02* PATCH-LABEL = NONE. IEAVELIT IS A FIXED RESIDENT MODULE IN THE 00171002 * NUCLEUS. 00171402 * 00172202 *01* MODULE-TYPE = TABLE. 00172702 * 00173502 *02* PROCESSOR = ASSEMBLER 00173602 * 00181502 *02* MODULE-SIZE = 624 BYTES 00181902 * 00182502 *02* ATTRIBUTES = NUCLEUS 00184702 * 00189002 *01* ENTRY-POINT = IEAVELIT 00191202 * 00195502 *02* PURPOSE = NOT ENTERED, ENTRY POINT USED AS REFERENCE POINT AS 00199002 * BEGINNING OF TABLE. 00199402 * 00201402 *02* LINKAGE = IEAVELIT IS NOT CALLED BUT ONLY REFERENCED AS A 00201802 * TABLE. 00203802 * 00204002 *02* INPUT = NONE. 00204402 * 00205502 *02* OUTPUT = NONE. 00208602 * 00211002 *01* EXIT-NORMAL = NONE. 00214802 * 00218602 *02* CONDITIONS = NONE. 00220602 * 00221402 *02* OUTPUT = NONE. 00221502 * 00223602 *02* RETURN-CODES = NONE. 00223702 * 00224202 *01* EXIT-ERROR = NONE. 00224302 * 00226202 *02* CONDITIONS = NONE. 00226302 * 00226902 *02* OUTPUT = NONE. 00227002 * 00232402 *02* RETURN-CODES = NONE. 00232602 * 00234502 *01* EXTERNAL-REFERENCES = (1) SYSTEM LOCKS (2) IEAVELKS ENTRIES 00234902 * (1) DISPLOCK - THE DISPATCHER LOCK 00235002 * SALCLOCK - THE SALLOC LOCK 00235102 * OPTLOCK - THE OPTIMIZER LOCK 00236402 * CMSLOCK - THE CMS LOCK 00238402 * 00238802 * (2) GSLMCOBT - THE GLOBAL SPIN LOCK CONDITION OBTAIN ROUTINE FOR 00239202 * LOCKS WHOSE ADDRESS IS SUPPLIED BY THE CALLER 00239302 * GSLSCOBT - THE GLOBAL SPIN LOCK CONDITION OBTAIN ROUTINE FOR 00239402 * LOCKS WHOSE ADDRESS IS KNOWN BY THE SYSTEM 00239502 * GSLMUOBT - THE GLOBAL SPIN LOCK UNCONDITION OBTAIN ROUTINE 00239602 * FOR LOCKS WHOSE ADDRESS IS SUPPLIED BY THE CALLER 00240602 * GSLSUOBT - THE GLOBAL SPIN LOCK UNCONDITION OBTAIN ROUTINE 00242002 * FOR LOCKS WHOSE ADDRESS IS KNOWN BY THE SYSTEM 00242402 * GSLMREL - THE GLOBAL SPIN LOCK RELEASE ROUTINE FOR LOCKS 00243002 * WHOSE ADDRESS IS SUPPLIED BY THE CALLER 00243102 * GSLSREL - THE GLOBAL SPIN LOCK RELEASE ROUTINE FOR LOCKS 00243402 * WHOSE ADDRESS IS KNOWN BY THE SYSTEM 00243802 * GSLMRELD - THE GLOBAL SPIN LOCK RELEASE DISABLE ROUTINE FOR 00243902 * LOCKS WHOSE ADDRESS IS SUPPLIED BY THE CALLER 00248602 * GSLSRELD - THE GLOBAL SPIN LOCK RELEASE DISABLE ROUTINE FOR 00257302 * LOCKS WHOSE ADDRESS IS KNOWN BY THE SYSTEM 00259302 * CMSCOBT - THE CMS LOCK CONDITION OBTAIN ROUTINE 00262002 * CMSUOBT - THE CMS LOCK UNCONDITION OBTAIN ROUTINE 00266702 * CMSREL - THE CMS LOCK RELEASE ROUTINE 00271402 * LLCOBT - THE LOCAL LOCK CONDITIONAL OBTAIN ROUTINE 00276102 * LLUOBT - THE LOCAL LOCK UNCONDITIONAL OBTAIN ROUTINE 00280802 * LLREL - THE LOCAL LOCK RELEASE ROUTINE 00285502 * RELGS - THE RELEASE MULTIPLE GLOBAL SPIN LOCKS ROUTINE 00290202 * 00299602 * PSACLHT ENTRIES ARE REFERENCED AS ABSOLUTE LOW CORE ADDRESS 00304302 * AND NOT BY EXTERNAL SYMBOLS. 00309002 * 00313702 *02* ROUTINES = NONE. 00318402 * 00323102 *02* DATA-AREAS = NONE. 00327802 * 00332502 *02* CONTROL-BLOCKS = NONE. ONLY PROVIDES ADDRESSES OF SYSTEM 00337202 * LOCKS AND ALL LOCKS PSACLHT ENTRIES. 00341902 * 00346602 *01* TABLES = NONE. 00351302 * 00356002 *01* MACROS = NONE. 00360702 * 00365402 *02* SERIALIZATION = NONE. 00370102 * 00374802 *01* CHANGE-ACTIVITY = Y02715,Y02752 00379502 * 00384202 *01* MESSAGES = NONE. 00388902 * 00393602 *01* ABEND-CODES = NONE 00398302 **** END OF SPECIFICATIONS ***/ 00403002 TITLE 'LOCK INTERFACE TABLE' 00412402 IEAVELIT CSECT 00417102 *********************************************************************** 00421802 * THE LOCK INTERFACE TABLE * 00426502 * EACH TYPE OF GLOBAL SPIN LOCK HAS A MAJOR ENTRY IN THE LOCK * 00431202 * INTERFACE TABLE. EACH MAJOR ENTRY FOR A GLOBAL SPIN LOCK * 00435902 * HAS 4 MINOR ENTRIES. THE MINOR ENTRIES REPRESENT THE * 00440602 * FOLLOWING FUNCTIONS PERTAINING TO THAT LOCK: * 00445302 * 1) CONDITIONAL OBTAIN * 00450002 * 2) UNCONDITIONAL OBTAIN * 00500002 * 3) RELEASE * 00550002 * 4) RELEASE DISABLE * 00600002 * EACH TYPE OF SUSPEND LOCK ALSO HAS A MAJOR ENTRY, BUT ITS * 00650002 * MAJOR ENTRY ONLY CONSIST OF THE FIRST 3 MINOR ENTRIES LISTED * 00700002 * ABOVE. * 00750002 * * 00800002 * EACH MINOR ENTRY CONSISTS OF THREE WORDS. THESE WORDS CONTAIN* 00850002 * 1) LOCKWORD ADDRESS OR ZEROS * 00900002 * 2) LOCK'S ENTRY OFFSET IN CPU LOCK'S HELD TABLE IF THE * 00950002 * FIRST WORD IS ZERO, OR MASK TO UPDATE CPU LOCKS HELD 00982002 * STRING IF ADDRESS IS IN FIRST WORD. 00992002 * 3) LOCK ROUTINE'S ENTRY POINT ADDRESS FOR TYPE OF REQUEST* 01000002 * * 01050002 * THERE IS ONE SPECIAL ENTRY PROVIDED FOR MULTIPLE RELEASE OF * 01080002 * SPIN LOCKS, CONTAINING THREE WORDS: 01084002 * A) MASK FOR CHECKING OF SPIN LOCKS HELD: X'FFFFFFFC' 01086002 * B) POINTER TO A TABLE CONTAINING ONE WORD PER LEVEL 01094002 * IN THE ORDER OF THE HIERARCHY. EACH WORD CONTAINS 01096002 * THE ADDRESS OF A WORD WHICH ITSELF POINTS TO THE 01098002 * LOCKWORD HELD AT THIS LEVEL IF THERE IS ONE. 01098102 * C) ENTRY POINT ADDRESS OF RELGS, THE ROUTINE WHICH * 01098402 * WILL RELEASE THE SPECIFIED SPIN LOCKS 01098802 * * 01132602 * THIS IS A READ ONLY STORAGE TABLE * 01133302 *********************************************************************** 01150002 USING FLC,0 01200002 *********************************************************************** 01350002 * DISPATCHER LOCK * 01400002 *********************************************************************** 01450002 ***** CONDITIONAL OBTAIN ***** 01500002 ADISP DC V(DISPLOCK) DISPATCHER'S LOCK ADDRESS 01550002 DC A(DISP) MASK FOR DISP LOCK OBTAIN 01600002 DC V(GSLSCOBT) SETLOCK'S COND. OBTAIN RTN EP 01650002 ***** UNCONDITIONAL OBTAIN ***** 01700002 DC V(DISPLOCK) DISPATCHER'S LOCK ADDRESS 01750002 DC A(DISP) MASK FOR DISP LOCK OBTAIN 01800002 DC V(GSLSUOBT) SETLOCK'S COND. OBTAIN RTN EP 01850002 ***** RELEASE ***** 01900002 DC V(DISPLOCK) DISPATCHER'S LOCK ADDRESS 01950002 DC AL2(FF,FF-DISP) MASK FOR DISP LOCK RELEASE 02000002 DC V(GSLSREL) SETLOCK'S RELEASE RTN EP 02050002 ***** RELEASE DISABLED ***** 02100002 DC V(DISPLOCK) DISPACTHER'S LOCK ADDRESS 02150002 DC AL2(FF,FF-DISP) MASK FOR DISP LOCK RELEASE 02200002 DC V(GSLSRELD) SETLOCK'S RELEASE DISABLE RTN 02250002 *********************************************************************** 02300002 * IOSCAT LOCK * 02350002 *********************************************************************** 02400002 ***** CONDITIONAL OBTAIN ***** 02450002 DC A(0) IOS WILL FURNISH LOCK ADDR 02500002 DC A(PSAIOSCL-PSACLHT) IOSCAT LOCK'S OFFSET IN CLHT 02550002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN RTN EP 02552002 ***** UNCONDITIONAL OBTAIN ***** 02554002 DC A(0) IOS WILL FURNISH LOCK ADDR 02556002 DC A(PSAIOSCL-PSACLHT) IOSCAT LOCK'S OFFSET IN CLHT 02558002 DC V(GSLMUOBT) SETLOCK'S COND. OBTAIN RTN EP 02558402 ***** RELEASE 02558802 DC A(0) IOS WILL FURNISH LOCK ADDR 02559202 DC A(PSAIOSCL-PSACLHT) IOSCAT LOCK'S OFFSET IN CLHT 02560002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 03000002 ***** RELEASE DISABLED ***** 03050002 DC A(0) IOS WILL FURNISH LOOK ADDR 03100002 DC A(PSAIOSCL-PSACLHT) IOSCAT LOCK'S OFFSET IN CLHT 03160002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLED RTN 03200002 *********************************************************************** 03250002 * IOSUCB LOCK * 03300002 *********************************************************************** 03350002 ***** CONDITIONAL OBTAIN ***** 03400002 DC A(0) IOS WILL FURNISH LOCK ADDR 03450002 DC A(PSAIOSUL-PSACLHT) IOSUCB LOCK'S CLHT OFFSET 03510002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN RTN EP 03550002 ***** UNCONDITIONAL OBTAIN ***** 03600002 DC A(0) IOS WILL FURNISH LOCK ADDR 03650002 DC A(PSAIOSUL-PSACLHT) IOSUCB LOCK'S CLHT OFFSET 03700002 DC V(GSLMUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 03750002 ***** RELEASE ***** 03800002 DC A(0) IOS WILL FURNISH LOCK ADDR 03850002 DC A(PSAIOSUL-PSACLHT) IOSUCB LOCK'S CLHT OFFSET 03900002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 03950002 ***** RELEASE DISABLED ***** 04000002 DC A(0) IOS WILL FURNISH LOCK ADDR 04050002 DC A(PSAIOSUL-PSACLHT) IOSUCB LOCK'S CLHT ENTRY 04100002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLE RTN 04150002 *********************************************************************** 04200002 * IOSLCH LOCK * 04250002 *********************************************************************** 04300002 ***** CONDITIONAL OBTAIN ***** 04350002 DC A(0) IOS WILL FURNISH LOCK ADDR 04400002 DC A(PSAIOSLL-PSACLHT) IOSLCH LOCK'S CLHT OFFSET 04450002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN RTN EP 04500002 ***** UNCONDITIONAL OBTAIN ***** 04550002 DC A(0) IOS WILL FURNISH LOCK ADDR 04600002 DC A(PSAIOSLL-PSACLHT) IOSLCH LOCK'S CLHT OFFSET 04660002 DC V(GSLMUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 04700002 ***** RELEASE ***** 04750002 DC A(0) IOS WILL FURNISH LOCK ADDR 04800002 DC A(PSAIOSLL-PSACLHT) IOSLCH LOCK'S CLHT OFFSET 04860002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 04900002 ***** RELEASE DISABLE ***** 04950002 DC A(0) IOS WILL FURNISH LOCK ADR 05000002 DC A(PSAIOSLL-PSACLHT) IOSLCH LOCK'S CLHT OFFSET 05050002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLE RTN 05100002 *********************************************************************** 05150002 * IOSYNCH LOCK * 05200002 *********************************************************************** 05250002 ***** CONDITIONAL OBTAIN ***** 05300002 DC A(0) IOS WILL FURNISH LOCK ADDR 05350002 DC A(PSAIOSSL-PSACLHT) IOSYNCH LOCK'S CLHT OFFSET 05410002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN RTN EP 05450002 ***** UNCONDITIONAL OBTAIN ***** 05500002 DC A(0) IOS WILL FURNISH LOCK ADDR 05550002 DC A(PSAIOSSL-PSACLHT) IOSYNCH LOCK'S CLHT OFFSET 05610002 DC V(GSLMUOBT) SETLOCK'S UNCOND OBTAIN RTN EP 05650002 ***** RELEASE ***** 05700002 DC A(0) IOS WILL FURNISH LOCK ADDR 05750002 DC A(PSAIOSSL-PSACLHT) IOSYNCH LOCK'S CLHT OFFSET 05800002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 05850002 ***** RELEASE DISABLE ***** 05860002 DC A(0) IOS WILL FURNISH LOCK ADR 05870002 DC A(PSAIOSSL-PSACLHT) IOSYNCH LOCK'S CLHT OFFSET 05882002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLE RTN 05890002 *********************************************************************** 05900002 * TPNCB LOCK * 05950002 *********************************************************************** 06000002 ***** CONDITIONAL OBTAIN ***** 06050002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 06100002 DC A(PSATPNCL-PSACLHT) TPNCB LOCK'S CLHT OFFSET 06160002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN RTN EP 06200002 ***** UNCONDITIONAL OBTAIN ***** 06250002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 06300002 DC A(PSATPNCL-PSACLHT) TPNCB LOCK'S CLHT OFFSET 06360002 DC V(GSLMUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 06400002 ***** RELEASE ***** 06450002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 06500002 DC A(PSATPNCL-PSACLHT) TPNCB LOCK'S CLHT OFFSET 06550002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 06600002 ***** RELEASE DISABLED ***** 06650002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 06700002 DC A(PSATPNCL-PSACLHT) TPNCB LOCK'S CLHT OFFSET 06760002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLE RTN 06800002 *********************************************************************** 06850002 * TPDNCB LOCK * 06900002 *********************************************************************** 06950002 ***** CONDITIONAL OBTAIN ***** 07000002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 07050002 DC A(PSATPDNL-PSACLHT) TPDNCB LOCK'S CLHT OFFSET 07100002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN RTN EP 07150002 ***** UNCONDITIONAL OBTAIN ***** 07200002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 07250002 DC A(PSATPDNL-PSACLHT) TPDNCB LOCK'S CLHT OFFSET 07310002 DC V(GSLMUOBT) SETLOCK'S UNCOND. OBTAIN RTNEP 07350002 ***** RELEASE ***** 07400002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 07450002 DC A(PSATPDNL-PSACLHT) TPDNCB LOCK'S CLHT OFFSET 07510002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 07550002 ***** RELEASE DISABLED ***** 07600002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 07650002 DC A(PSATPDNL-PSACLHT) TPDNCB LOCK'S CLHT OFFSET 07710002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLE RTN 07750002 *********************************************************************** 07800002 * TPACBDEB LOCK * 07850002 *********************************************************************** 07900002 ***** CONDITIONAL OBTAIN ***** 07950002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 08000002 DC A(PSATPACL-PSACLHT) TPACBDEB LOCK'S CLHT OFFSET 08050002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN RTN 08100002 ***** UNCONDITIONAL OBTAIN ***** 08150002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 08200002 DC A(PSATPACL-PSACLHT) TPACBDEB LOCK'S CLHT OFFSET 08260002 DC V(GSLMUOBT) SETLOCK'S UNCOND. OBTAIN RTN 08300002 ***** RELEASE ***** 08350002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 08400002 DC A(PSATPACL-PSACLHT) TPACBDEB LOCK'S CLHT OFFSET 08410002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 08500002 ***** RELEASE DISABLED ***** 08550002 DC A(0) ATCAM WILL FURNISH LOCK ADDR 08600002 DC A(PSATPACL-PSACLHT) TPACBDEB LOCK'S CLHT OFFSET 08610002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLE RTN 08700002 *********************************************************************** 08750002 * ASM LOCK * 08800002 *********************************************************************** 08850002 ***** CONDITIONAL OBTAIN ***** 08900002 DC A(0) ASM WILL FURNISH LOCK ADDR 08950002 DC A(PSAASML-PSACLHT) ASM LOCK'S CLNT OFFSET 09000002 DC V(GSLMCOBT) SETLOCK'S COND. OBTAIN ROUTINE 09050002 ***** UNCONDITIONAL OBTAIN ***** 09100002 DC A(0) ASM WILL FURNISH LOCK ADDR 09150002 DC A(PSAASML-PSACLHT) ASM LOCK'S CLNT OFFSET 09210002 DC V(GSLMUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 09250002 ***** RELEASE ***** 09300002 DC A(0) ASM WILL FURNISH LOCK ADDRESS 09350002 DC A(PSAASML-PSACLHT) ASM LOCK'S CLNT OFFSET 09410002 DC V(GSLMREL) SETLOCK'S RELEASE RTN EP 09450002 ***** RELEASE DISABLED ***** 09500002 DC A(0) ASM WILL FURNISH LOCK ADDRESS 09550002 DC A(PSAASML-PSACLHT) ASM LOCK'S CLNT OFFSET 09560002 DC V(GSLMRELD) SETLOCK'S RELEASE DISABLED RTN 09650002 *********************************************************************** 09700002 * SALLOC LOCK * 09750002 *********************************************************************** 09800002 ***** CONDITIONAL OBTAIN ***** 09850002 ASALLOC DC V(SALCLOCK) SALLOC LOCKWORD ADDRESS 09900002 DC A(SALLOC) MASK FOR SALLOC LOCK OBTAIN 09950002 DC V(GSLSCOBT) SETLOCK'S COND. OBTAIN RTN EP 10000002 ***** UNCONDITIONAL OBTAIN ***** 10050002 DC V(SALCLOCK) SALLOC LOCKWORD ADDRESS 10100002 DC A(SALLOC) MASK FOR SALLOC LOCK OBTAIN 10160002 DC V(GSLSUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 10200002 ***** RELEASE ***** 10250002 DC V(SALCLOCK) SALLOC LOCKWORD ADDRESS 10300002 DC AL2(FF,FF-SALLOC) MASK FOR SALLOC LOCK RELEASE 10350002 DC V(GSLSREL) SETLOCK'S RELEASE RTN EP 10400002 ***** RELEASE DISABLED ***** 10450002 DC V(SALCLOCK) SALLOC LOCKWORD ADDRESS 10500002 DC AL2(FF,FF-SALLOC) MASK FOR SALLOC LOCK RELEASE 10510002 DC V(GSLSRELD) SETLOCK'S RELEASE DISABLED RTN 10600002 *********************************************************************** 10650002 * SRM LOCK * 10700002 *********************************************************************** 10750002 ***** CONDITIONAL OBTAIN ***** 10800002 ASRM DC V(OPTLOCK) SRM LOCKWORD ADDRESS 10850002 DC A(SRM) MASK FOR SRM LOCK OBTAIN 10900002 DC V(GSLSCOBT) SETLOCK'S COND. OBTAIN RTN EP 10950002 ***** UNCONDITIONAL OBTAIN ***** 11000002 DC V(OPTLOCK) SRM LOCKWORD ADDRESS 11050002 DC A(SRM) MASK FOR SRM LOCK OBTAIN 11110002 DC V(GSLSUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 11150002 ***** RELEASE ***** 11200002 DC V(OPTLOCK) SRM LOCKWORD ADDRESS 11250002 DC AL2(FF,FF-SRM) MASK FOR SRM LOCK RELEASE 11300002 DC V(GSLSREL) SETLOCK'S RELEASE RTN EP 11350002 ***** RELEASE DISABLED ***** 11400002 DC V(OPTLOCK) SRM LOCKWORD ADDRESS 11450002 DC AL2(FF,FF-SRM) MASK FOR SRM LOCK RELEASE 11510002 DC V(GSLSRELD) SETLOCK'S RELEASE DISABLED RTN 11550002 *********************************************************************** 11600002 * CMS LOCK * 11650002 *********************************************************************** 11700002 ***** CONDITIONAL OBTAIN ***** 11750002 ACMS DC V(CMSLOCK) CMS LOCKWORD ADDRESS 11800002 DC A(CMS) MASK FOR CMS LOCK OBTAIN 11850002 DC V(CMSCOBT) SETLOCK'S COND. OBTAIN RTN EP 11900002 ***** UNCONDITIONAL OBTAIN ***** 11950002 DC V(CMSLOCK) CMS LOCKWORD ADDRESS 12000002 DC A(CMS) MASK FOR CMS LOCK OBTAIN 12010002 DC V(CMSUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 12100002 ***** RELEASE ***** 12150002 DC V(CMSLOCK) CMS LOCKWORD ADDRESS 12200002 DC AL2(FF,FF-CMS) MASK FOR CMS LOCK RELEASE 12250002 DC V(CMSREL) SETLOCK'S RELEASE RTN EP 12300002 *********************************************************************** 12350002 * LOCAL LOCK * 12400002 *********************************************************************** 12450002 ***** CONDITIONAL OBTAIN ***** 12500002 DC A(0) CURRENT ASCB WILL CONTAIN LOCK 12550002 DC A(LOCAL) MASK FOR LOCAL LOCK OBTAIN 12600002 DC V(LLCOBT) SETLOCK'S COND. OBTAIN RTN EP 12650002 ***** UNCONDITIONAL OBTAIN ***** 12700002 DC A(0) CURRENT ASCB WILL CONTAIN LOCK 12750002 DC A(LOCAL) MASK FOR LOCAL LOCK OBTAIN 12760002 DC V(LLUOBT) SETLOCK'S UNCOND. OBTAIN RTN EP 12850002 ***** RELEASE ***** 12900002 DC A(0) CURRENT ASCB WILL CONTAIN LOCK 12950002 DC AL2(FF,FF-LOCAL) MASK FOR LOCAL LOCK RELEASE 13000002 DC V(LLREL) SETLOCK'S RELEASE RTN EP 13050002 *********************************************************************** 13100002 * RELEASE MULTIPLE SPIN LOCKS * 13150002 *********************************************************************** 13200002 DC X'FFFFFFFC' MASK TO CHECK SPIN LOCKS HELD 13210002 DC A(IEAVELKT) INDIRECT LOCK ADDRESSES TABLE 13250002 DC V(RELGS) RELEASE GLOBAL SPIN LOCKS 13350002 *********************************************************************** 13360002 * INDIRECT LOCKWORD ADDRESSES TABLE * 13370002 *********************************************************************** 13380002 IEAVELKT DC 0H'0' 13390002 ENTRY IEAVELKT 13390402 DC A(ADISP) DISPATCHER LOCK ADDRESS 13390802 DC A(PSAASML-FLC) SAM LOCK ADDRESS 13391202 DC A(ASALLOC) SALLOC LOCK ADDRESS 13391602 DC A(PSAIOSSL-FLC) IOSYNCH LOCK ADDRESS 13391702 DC A(PSAIOSCL-FLC) IOSCAT LOCK ADDRESS 13391802 DC A(PSAIOSUL-FLC) IOSUCB LOCK ADDRESS 13391902 DC A(PSAIOSLL-FLC) IOSLCH LOCK ADDRESS 13392502 DC A(PSATPNCL-FLC) TPNCB LOCK ADDRESS 13392902 DC A(PSATPDNL-FLC) TPDNCB LOCK ADDRESS 13393302 DC A(PSATPACL-FLC) TPACBDEB LOCK ADDRESS 13393702 DC A(ASRM) SRM LOCK ADDDRESS 13393802 LOCAL EQU 1 13394002 CMS EQU LOCAL*2 13394602 SRM EQU CMS*2 13396002 TPACBDEB EQU SRM*2 13398002 TPDNCB EQU TPACBDEB*2 13398402 TPNCB EQU TPDNCB*2 13398802 IOSLCH EQU TPNCB*2 13399202 IOSUCB EQU IOSLCH*2 13399602 IOSCAT EQU IOSUCB*2 13399702 IOSYNCH EQU IOSCAT*2 13399802 SALLOC EQU IOSYNCH*2 13400002 ASM EQU SALLOC*2 13403202 DISP EQU ASM*2 13405202 FF EQU X'FFFF' 13405602 ***** END OF TABLE ***** 13406702 TITLE 'LOCK INTERFACE TABLE - PSA EXPANSION' 13410002 IHAPSA 13420002 END IEAVELIT 13450002