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