SYS TITLE 'DMTSYS (RSCS) VM/370 - RELEASE 6' 00001000
*. 00002000
* MODULE NAME - 00003000
* 00004000
* DMTSYS 00005000
* 00006000
* FUNCTION - 00007000
* 00008000
* THIS MODULE SERVES AS THE COMMON SYSTEM CONTROL 00009000
* INFORMATION AREA WHICH IS SHARED BY ALL TASK LEVEL 00010000
* FUNCTIONS OF RSCS. ALL INSTALLATION VARIABLE INFOR- 00011000
* MATION USED BY AN RSCS SYSTEM IS REFLECTED IN THE 00012000
* ASSEMBLY OF THIS MODULE, SO THIS MODULE IS THE ONLY 00013000
* MODULE WHICH MUST BE ASSEMBLED AS PART OF AN RSCS 00014000
* SYSTEM GENERATION. 00015000
* 00016000
* ATTRIBUTES - 00017000
* 00018000
* SHARED 00019000
* 00020000
* ENTRY POINTS - 00021000
* 00022000
* DMTSYSLK - START OF THE LINK TABLE CONTROL AREA 00023000
* DMTSYSRT - START OF THE ROUTING TABLE CONTROL AREA 00024000
* DMTSYSPT - START OF THE ALLOCATABLE PORT TABLE CONTROL AREA 00025000
* DMTSYSTQ - START OF THE FILE TAG QUEUE CONTROL AREA 00026000
* DMTSYSND - END OF DMTSYS, AND END OF THE REX TASK 00027000
* 00028000
* ENTRY CONDITIONS - 00029000
* 00030000
* THIS MODULE CONTAINS NO EXECUTABLE CODE. 00031000
* 00032000
* 00033000
EJECT 00034000
* EXTERNAL REFERENCES - 00035000
* 00036000
* NONE 00037000
* 00038000
* TABLES / WORKAREAS - 00039000
* 00040000
* 1. LINK TABLE - EACH ENTRY IN THE LINK TABLE SECTION 00041000
* DESCRIBES A DEFINED LINK, OR REPRESENTS A 00042000
* LINK WHICH MAY BE DEFINED BY CONSOLE COMMAND 00043000
* 00044000
* 2. ROUTING TABLE - EACH ENTRY IN THE ROUTING TABLE 00045000
* DESCRIBES A LINK WHICH CAN HANDLE FILES 00046000
* WHICH ARE ADDRESSED TO A PARTICULAR LOCATION 00047000
* OTHER THAN THE LINK'S LOCATION 00048000
* 00049000
* 3. PORT TABLE - EACH ENTRY IN THE PORT TABLE DESCRIBES 00050000
* A SWITCHED LINE PORT WHICH MAY BE ALLOCATED 00051000
* FOR USE BY ANY LINK TO BE ACTIVATED 00052000
* 00053000
* 4. TAG QUEUE - EACH TAG QUEUE ELEMENT MAY REPRESENT 00054000
* ONE SPOOL FILE WHICH IS TO BE PROCESSED BY 00055000
* RSCS. INACTIVE FILE TAGS ARE ENQUEUED ON 00056000
* THE LINK TABLE FOR THE LINK ON WHICH THEY 00057000
* ARE TO BE TRANSMITTED. ACTIVE INPUT FILES 00058000
* AND ACTIVE OUTPUT FILES ARE ENQUEUED ON 00059000
* THEIR RESPECTIVE QUEUES, ANCHORED IN THE 00060000
* TAG QUEUE CONTROL AREA. 00061000
* NOTES - 00062000
* 00063000
* EACH OF THE FIELDS IN THE VARIOUS SHARED AREAS IS 00064000
* ASSIGNED TO A PARTICULAR TASK FOR MODIFICATION. 00065000
* OTHER TASKS MAY READ THE FIELDS, BUT MODIFICATION IS 00066000
* PERMITTED ONLY BY THE TASK WHICH OWNS THE FIELD. 00067000
* 00068000
*. 00069000
EJECT 00070000
COPY LINKTABL 00071000
EJECT 00072000
COPY ROUTE 00073000
EJECT 00074000
COPY TAG 00075000
EJECT 00076000
DMTSYS CSECT 00077000
ENTRY DMTSYSLK,DMTSYSRT,DMTSYSPT,DMTSYSTQ,DMTSYSND 00078000
DMTSYSLK DC 0D'0',A((LINKEND-LINKS)/LINKLEN),AL2(16),AL2(0) 00079000
LINKS EQU * 00080000
COPY AXSLINKS 00081000
LINKEND EQU * 00082000
EJECT 00083000
DMTSYSRT DC 0D'0',A((ROUTEND-ROUTES)/ROUTSIZE),A(0) 00084000
ROUTES EQU * 00085000
COPY AXSROUTE 00086000
ROUTEND EQU * 00087000
EJECT 00088000
DMTSYSPT DC 0D'0',A((LINEND-LINES)/LINLEN),A(0) 00089000
LINES EQU * 00090000
COPY LAXLINES 00091000
LINEND EQU * 00092000
LINLEN EQU 2 00093000
EJECT 00094000
DMTSYSTQ DC 0D'0' TAG QUEUE CONTROL AREA 00095000
SYSTFREE DC A(SYSTAGS) START OF FILE TAG SLOTS 00096000
SYSACIN DC A(0) START OF ACTIVE INPUT QUEUE 00097000
SYSACOUT DC A(0) START OF ACTIVE OUTPUT QUEUE 00098000
SYSTGOT DC H'0' NUMBER OF FREE SLOTS LEFT 00099000
SYSTHOLD DC H'0' NUMBER OF SLOTS TO BE HELD 00100000
SPACE 00101000
TAGWORDS EQU (TAGLEN+3)/4 LENGTH OF A FILE TAG IN WORDS 00102000
SPACE 00103000
COPY TAGQUEUE @VM01091 00104000
SPACE 00105000
DMTSYSND EQU * 00106000
EJECT 00107000
COPY RSSEQU 00108000
END 00109000