Retro1.org codex

*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