NUC TITLE 'DMSNUC (CMS) VM/370 - RELEASE 6' 00001000 SPACE 2 00002000 *. 00004100 * MODULE NAME: 00005000 * 00006000 * DMSNUC 00007000 * 00008000 * FUNCTION: 00009000 * 00010000 * CONTAINS CSECTS FOR NUCLEUS WORK AREAS AND PERMANENT STORAGE. 00011000 * 00012000 * ATTRIBUTES: 00013000 * 00014000 * NUCLEUS RESIDENT 00015000 * 00016000 * ENTRY POINTS: 00017000 * 00018000 * NUCON - NUCLEUS CONSTANT AREA 00019000 * SYSREF - NUCLEUS ADDRESS TABLE 00020000 * DEVTAB - DEVICE TABLE 00021000 * ADTSECT - ACTIVE DISK TABLES 00022000 * AFTSECT - ACTIVE FILE TABLES 00023000 * EXTSECT - EXTERNAL INTERRUPT STORAGE 00024000 * IOSECT - I/O INTERRUPT STORAGE 00025000 * PGMSECT - PROGRAM INTERRUPT STORAGE 00026000 * SVCSECT - SVC INTERRUPT STORAGE 00027000 * DIOSECT - DISK I/O STORAGE 00028000 * FVS - FILE SYSTEM STORAGE 00029000 * OPSECT - PARAMETER LISTS 00030000 * CVTSECT - SIMULATED OS CVT 00031000 * DBGSECT - DEBUG STORAGE 00032000 *| TSOBLKS - TSO CONTROL BLOCKS 00033000 * 00034000 * ENTRY CONDITIONS: 00035000 * 00036000 * N/A 00037000 * 00038000 * EXIT CONDITIONS: 00039000 * 00040000 * N/A 00041000 * CALLS TO OTHER ROUTINES: 00042000 * 00043000 * N/A 00044000 * EXTERNAL REFERENCES: 00045000 * 00046000 * NONE 00047000 * 00048000 * TABLES/WORKAREAS: 00049000 * 00050000 * N/A 00051000 * 00052000 * REGISTER USAGE: 00053000 * 00054000 * N/A 00055000 * 00056000 * NOTES: 00057000 * 00058000 * DMSNUC CONTAINS NO EXECUTABLE CODE. THE CSECTS MAY 00059000 * BE REFERENCED BY OTHER MODULES AND THE APPROPRIATE 00060000 * DSECT USED TO REFERENCE DATA WITHIN EACH CSECT. 00061000 * 00062000 * OPERATION: 00063000 * 00064000 * N/A 00065000 * 00066000 * CHANGE ACTIVITY: HRC004DS 00066100 * HRC004DS 00066200 * HRC004DS - FOR REASSEMBLY FOR DIOSECT EXPANSION HRC004DS 00066300 * HRC004DS 00066400 * HRC002DS - FOR REASSEMBLY FOR DEVTAB EXPANSION HRC004DS 00066500 * HRC004DS 00066600 *. 00067000 EJECT 00068000 DMSNUC START 0 00069000 ENTRY DMSNUCU 00070000 EXTRN NUCEND 00071000 NUCON CSECT 00072000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00072100 DOSCON CSECT @V305066 00072200 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00072300 ENTRY RURTBL "RURTBL" CSECT: @V305032 00072400 RURTBL DC 32F'0' 32-FULL-WORD "RURTBL" @V305032 00072500 DC X'FFFFFFFF' SENTINEL - MUST FOLLOW RURTBL. @V305032 00072600 EJECT 00072700 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00072800 DEVTAB CSECT 00073000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00073500 ADTSECT CSECT 00074000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00074500 AFTSECT CSECT 00075000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00075500 EXTSECT CSECT 00076000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00076500 IOSECT CSECT 00077000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00077500 PGMSECT CSECT 00078000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00078500 SVCSECT CSECT 00079000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00079500 DIOSECT CSECT 00080000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00080500 FVS CSECT 00081000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00081500 CMSCVT CSECT 00082000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00083500 DMSERT CSECT 00084000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00084500 DMSFRT CSECT 00085000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00085500 DMSABW CSECT 00086000 SYSNAMES CSECT @V305614 00086100 * USABRV = TABLE GIVING LOCATION OF USER-DEFINED-ABBREVIATIONS (IF ANY) 00087000 * AND STANDARD SYSTEM ABBREVIATIONS. 00087100 * 00087200 * PLEASE KEEP THE FOLLOWING SEVEN AD-CON'S IN ORDER ........ 00087300 * (REFERENCED BY DMSINA, DMSSYN, AND DMSQRY) 00087400 * 00087500 ENTRY USABRV NOTE: SUPPORT CODE = @V305032 @V305032 00087600 USABRV DC F'0' NO. DBL-WORDS FREE-STORAGE IN USER-TABLE. @V305032 00087700 DC A(*-*) ADDRESS OF 1ST ITEM IN USER-ABRV-TABLE@V305032 00087800 DC F'17' (FOR BXLE) @V305032 00087900 DC A(*-*) ADDR OF LAST ITEM IN USER-ABRV-TABLE. @V305032 00088000 * 00088100 DC V(DMSINA1S) REFERENCE 'REGULAR' TABLE ... @V305032 00088200 DC F'9' (FOR BXLE) @V305032 00088300 DC V(DMSINALT) (FOR BXLE) @V305032 00088400 EJECT 00088500 CORG 0,2048 HALF-PAGE-ALIGN FOR CHANGE OF KEY @V305032 00088600 DMSNUCU EQU * NUCLEUS-AREA SET WITH USER KEY @V305032 00088700 DBGSECT CSECT @V305032 00088800 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00088900 IO CSECT 00089000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00089500 ENTRY DMSERL 00090000 DMSERL DMSERR MF=L,MAXSUBS=20 00091000 EJECT 00092000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00092500 TSOBLKS CSECT 00093000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00093500 SUBSECT CSECT P3047 00094000 CORG 0,16 16-BYTE ALIGN (FOR MAINTAINABILITY) @V305032 00094500 USERSECT CSECT P1105 00095000 NUC$END DS 0D END OF "DMSNUC" INFORMATION. @V305032 00095500 DMSNUC CSECT 00096000 CORG 0,X'1000' ALIGN ON PAGE BOUNDARY 00097000 EJECT 00098000 EQUATES 00099000 END 00100000