ISHARED 
*IDENT ISHARED
*/       THIS MODSET IS A FIX TO NOS, PLUS MODS TO MAKE A FIXED SET OF
*/       MAINFRAME-S EXECUTE ON SHARED RMS.  EACH MAINFRAME MUST HAVE 
*/       AN IDENT NUMBER TO SET IN THE STOM FILES FOR EXEC TO KNOW
*/       WHICH SLAVE IN OPERATING IN WHICH MAINFRAME. 
*/       THIS MODSET SHOULD FORCE THE EXEC TO 1 AND THE SLAVES TO 
*/       2 THROUGH 4 FOR INDENTIFICATION. 
*/
*/       IF MULTI-ISHARE FAMILIES ARE TO BE USED, THESE FAMILIES MUST 
*/       COME IN THE SAME ORDER IN THE EQUIPMENT SHARED TABLE (EST) ON
*/       EACH MAINFRAME SO THAT THE SLAVE AND EXEC COMMUNICATE ABOUT
*/       THE SAME FAMILY. 
*/
*/
*/
*IDENT MACMUT1
*/    PROBLEM - MAC2 GETFAM TAKES THE UPPER MOST BIT (THE MULTI-MAINFRAM
*/              FLAG) FOR AN EQUIPMENT TYPE.
*/
*/              (THESE TWO LINES MIGHT BE IN PSR ALREADY) 
*/
*/    SOLUTION - MASK ONLY 11 BITS FOR THE EQUIPMENT ENTRY. 
*DECK MAC2
*I,786
          MX0    -9 
*D,NS22000.70          (789)
*/
*/
*/             *****   NOTE:  THIS IS A SUGGESTED MODSET ONLY.  *** 
*/             *****   NOTE:  THIS IS A SUGGESTED MODSET ONLY.  *** 
*/
*/        THERE ARE TWO MODSETS FOR MAC2. 
*/        USE ONLY ONE. 
*/        ONE SHOULD WORK FOR ISHARED IN THE DEFAULT FAMILY OR
*/        THE SECOND ONE FOR THE ISHARED FAMILY AS THE LINK DEVICE. 
*/
*/
*/
*IDENT MACMUT2
*/
*/    FORCES SHARED RMS TO USE THE DEFAULT FAMILY AS THE
*/    SHARED DEVICE.
*/
*DECK MAC2
*D,846,NS22000.85 
          NZ     B3,GTF4A    IF NOT *ECS* 
          SB3    B2          USE DEFAULT FAMILY ORDINAL 
 GTF4A    SB7    B0+
*/        END OF MODSET.
*EDIT MAC2
*/
*/
*IDENT MACMUT2
*/        ISHARE AS THE LINK DEVICE.
*/        THIS CODE CHECKS FOR A LINK DEVICE AND IF PRESENT,
*/        USES ITS FAMILY.
*/
*/        (USE THIS CODE OR ABOVE CODE BUT NOT BOTH)
*/
*DECK MAC2
*D,803
          LX6    59-57
          PL     X6,GTF1A    NOT A LINK DEVICE
          NZ     B3,GTF1A    LINK DEVICE FOUND
          SB3    B4 
 GTF1A    LX6    57-54
*D,NS22000.81           (831) 
 GTF3     ZR     B3,GTF3A    IF NOT A LINK FAMILY 
          SB2    B3 
 GTF3A    SX1    B2 
*EDIT MAC2
*/
*/
*/
*IDENT SXINMUT
*/    CODE NEED BY SSEXEC AND SSSLV TO EXECUTE ON SHARED RMS. 
*/    THIS CODE IS FOR MULTIPLE SHARED RMS MAINFRAMES.
*/    THE DEFAULT FAMILY ON EACH OF THE FOUR MACHINES 
*/    MUST ALSO BE THE SHARED FAMILY.   THIS DEFAULT FAMILY WILL BE THE 
*/    LINK DEVICE FOR THE STOM FILES. 
*DECK SXINIT
*D,1625 
        MFINDEX = 1;     # MASTER MACHINE INDEX # 
*EDIT SXINIT
*IDENT SXXVMUT
*/        WHEN EACH SLAVE IS BROUGHT UP ON A DIFFERENT MAINFRAME, 
*/        THE PARAMETER SX, SHOULD BE USED BEHIND EACH SSSLV CALL.
*/        X = 2 THROUGH 4.
*/        THE *MSESLAV* PROC PROGRAM *SSSLV* CALL IS CHANGED FOR
*/        EACH SLAVE MAINFRAME USED.
*/             EXAMPLE: 
*/                      SSSLV,S2.   FIRST SLAVE MAINFRAME.
*/                      SSSLV,S4.   FOR THE LAST SLAVE MAINFRAME. 
*/
*/
*DECK SXSLV 
*D,673
# 
*        CONVERT FROM DISPLAY CODE TO BINARY. 
# 
  
      MIDX = C<0>ARG$SC[0] - O"33";    # SLAVE MACHINE INDEX #
*D,697,704
*EDIT SXSLV 
