MAP TITLE 'DMTMAP (RSCS) VM/370 - RELEASE 6' 00001000
*. 00002000
* MODULE NAME - 00003000
* 00004000
* DMTMAP 00005000
* 00006000
* FUNCTION - 00007000
* 00008000
* THE DMTMAP MODULE DESCRIBES THE NON-FIXED ADDRESS 00009000
* MSUP STATUS STORAGE AREAS IN MAIN STORAGE. 00010000
* 00011000
* ATTRIBUTES - 00012000
* 00013000
* THERE IS NO EXECUTABLE CODE IN THIS MODULE 00014000
* 00015000
* ENTRY POINTS - 00016000
* 00017000
* DMTMAPMS - THE START OF THE MAIN STORAGE MAP 00018000
* DMTMAPME - THE END OF THE MAIN STORAGE MAP 00019000
* DMTMAPQU - THE START OF THE SUPERVISOR QUEUE 00020000
* DMTMAPQE - THE END OF THE SUPERVISOR QUEUE 00021000
* 00022000
* 00023000
* EXTERNAL REFERENCES - 00024000
* 00025000
* NONE 00026000
* 00027000
* 00028000
* NOTES - 00029000
* 00030000
* THE PAGE ZERO SUPERVISOR QUEUE EXTENT IS GENERATED AT 00031000
* LABEL 'DMTMAPQU' BY THE GENQ MACRO. THE 'NUM=' KEYWORD 00032000
* SPECIFIES THE TOTAL NUMBER OF FREE QUEUE ELEMENTS 00033000
* TO BE GENERATED. THIS NUMBER IS CHOSEN SO AS TO MOVE 00034000
* THE LAST MODULE IN MSUP (ORDINARILY, DMTAKE) AS NEAR 00035000
* TO THE END OF PAGE ZERO AS POSSIBLE IN ORDER TO MAKE 00036000
* THE BEST USE OF STORAGE. IF THE LAST MODULE IN MSUP 00037000
* SHOULD EXTEND BEYOND THE END OF PAGE ZERO THE PORTION 00038000
* RESIDING IN PAGE ONE WILL BE OVERWRITTEN BY DMTINI 00039000
* WHEN THAT ROUTINE INITIALIZES THE SUPERVISOR QUEUE 00040000
* EXTENTION IN THAT PAGE. ANY MODIFICATIONS TO THE MSUP 00041000
* SOFTWARE SHOULD TAKE THIS INTO ACCOUNT AND ADJUST THE 00042000
* 'NUM=' VALUE ACCORDINGLY. 00043000
* 00044000
* OPERATION - 00045000
* 00046000
* 00047000
* INCLUDED IN DMTMAP ARE: 00048000
* 00049000
* 1. THE MAIN STORAGE MAP -- A TABLE COMPRISING 00050000
* ONE BYTE FOR EACH PAGE IN ACCESSABLE MAIN 00051000
* STORAGE, WITH EACH BYTE DISPLACEMENT IN THE 00052000
* TABLE IMPLYING ASSOCIATED MAIN STORAGE PAGE 00053000
* NUMBER; 00054000
* 00055000
* 2. THE FIRST (FIXED) EXTENT OF THE 00056000
* SUPERVISOR STATUS QUEUE -- A CHAIN OF 16-BYTE 00057000
* ELEMENTS OF SUCH LENGTH AS TO MOVE THE 00058000
* SUPERVISOR UP TO THE END OF THE LAST PAGE IT 00059000
* OCCUPIES (PAGE 0). 00060000
* 00061000
* 00062000
*. 00063000
EJECT 00064000
DMTMAP CSECT 00065000
ENTRY DMTMAPMS,DMTMAPME,DMTMAPQU,DMTMAPQE 00066000
SPACE 00067000
DMTMAPMS DC 128X'00' STORAGE MAP - 128 PAGES (512K) 00068000
DMTMAPME EQU * 00069000
SPACE 00070000
DMTMAPQU GENQ LEN=4,NUM=32 TO BE EXTENDED BY DMTINI 00071000
DMTMAPQE EQU * 00072000
SPACE 00073000
END 00074000