*COPY SHRTABLE                                                          00001000
         PUSH  PRINT                                                    00001200
         AIF   ('&SYSPARM' NE 'SUP').SHR01                              00001400
         PRINT OFF,NOGEN                                                00001600
.SHR01   ANOP                                                           00001800
SHRTABLE DSECT                                                          00002000
         SPACE                                                          00003000
***            SHRTABLE  -  SHARED SEGMENT TABLE FOR SAVED SYSTEMS      00004000
*                                                                       00005000
*          0   +-----------------------+-----------------------+        00006000
*              | S*1 |  SHRFPNT        |        SHRBPNT        |        00007000
*          8   +-----------------------+-----------------------+        00008000
*              |                    SHRNAME                    |        00009000
*         10   +-----------+-----------+-----------------------+        00010000
*              |  SHRTSIZE |  SHRUSECT |        SHRSEGCT       |        00011000
*         18   +-----------+-----------+-----------------------+        00012000
*              |        SHRSEGNM       |        SHRSEGNM       |        00013000
*              +-----------------------+-----------------------+        00014000
*              |        SHRPAGE        |        SHRPAGE        |        00015000
*              +-----------------------+-----------------------+        00016000
*                                                                       00017000
***            SHRTABLE  -  SHARED SEGMENT TABLE FOR SAVED SYSTEMS      00018000
         SPACE                                                          00019000
SHRFPNT  DS    1F             POINTER TO NEXT SHRTABLE                  00020000
         ORG   SHRFPNT                                                  00020100
SHRFLAG  DS    1X         S*1 SHARED SEGMENT FLAG BYTE                  00020200
         DS    3X                                                       00020300
SHRBPNT  DS    1F             POINTER TO PREVIOUS SHRTABLE              00021000
SHRNAME  DS    CL8            NAME OF SAVED SYSTEM                      00022000
SHRTSIZE DS    1H             SIZE OF SHRTABLE IN DOUBLE WORDS          00023000
SHRUSECT DS    1H             NUMBER OF USERS IPL'ED TO THIS NAME       00024000
SHRSEGCT DS    1F             NUMBER OF SHARED SEGMENTS                 00025000
SHRSEGNM DS    1F             CONTAINS SHARED SEGMENT NUMBERS           00026000
*                             UP TO FOUR SEGMENT NUMBERS PER WORD       00027000
SHRPAGE  DS    1F             POINTERS TO EACH OF THE SHARED PAGTABLES  00028000
*                             THERE IS ONE WORD FOR EACH SHARED SEGMENT 00029000
*                             THE ENTRY IS THE SAME AS 'S*1 SEGPAGE' IN 00030000
*                             THE SEGTABLE                              00030500
*                                                                       00030600
* FLAG BITS DEFINED IN SHRFLAG                                          00030700
SHRNOPRT EQU   X'40'          NONPROTECTED SHARED SEGMENTS              00030800
         SPACE 2                                                        00030900
* NOTE: IN ATTACHED PROCESSOR MODE, THERE WILL BE                       00031001
* TWO SETS OF PAGTABLES FOR EACH SHARED SEGMENT, ONE FOR                00031002
* THE MAIN PROCESSOR AND ONE FOR THE ATTACHED PROCESSOR.                00031003
* SHRPAGE WILL POINT TO THE PAGTABLES FOR THE MAIN PROCESSOR            00031004
* AND THE PAGTABLES FOR THE ATTACHED PROCESSOR WILL BE AT               00031005
* A FIXED OFFSET FROM THE PAGTABLES FOR THE MAIN PROCESSOR.             00031006
         EJECT                                                          00031010
         SPACE 1                                                        00031020
VMABLOK  DSECT                                                          00031030
         SPACE 1                                                        00031040
***                  VMABLOK - SHARED SYSTEMS RUNNING WITH VMA          00031050
*                                                                       00031060
*           0  +-----------------------+-----------------------+        00031070
*              |        VMAFPNT        |        VMASHRBK       |        00031080
*          8   +-----------------------+-----------------------+        00031090
*              |                    VMANAME                    |        00031100
*              +-----------------------------------------------+        00031110
*                                                                       00031120
***                  VMABLOK - SHARED SYSTEMS RUNNING WITH VMA          00031130
         SPACE 1                                                        00031140
VMAFPNT  DS    1F             FORWARD POINTER TO NEXT VMABLOK           00031150
VMASHRBK DS    1F             ADDRESS OF SHARE TABLE (SHRTABLE)         00031160
VMANAME  DS    CL8            IDENTIFICATION OF NAMED SHARED SYSTEM     00031170
         SPACE 1                                                        00031180
VMASIZE  EQU   (*-VMABLOK)/8  VMABLOK SIZE IN DOUBLE WORDS              00031190
         EJECT                                                          00032000
         POP   PRINT                                                    00033000
         SPACE                                                          00034000