Table of Contents

ISHARED

Table Of Contents

Source Code

ISHARED.txt 
  1. *IDENT ISHARED 
  2. */       THIS MODSET IS A FIX TO NOS, PLUS MODS TO MAKE A FIXED SET OF
  3. */       MAINFRAME-S EXECUTE ON SHARED RMS.  EACH MAINFRAME MUST HAVE
  4. */       AN IDENT NUMBER TO SET IN THE STOM FILES FOR EXEC TO KNOW
  5. */       WHICH SLAVE IN OPERATING IN WHICH MAINFRAME.
  6. */       THIS MODSET SHOULD FORCE THE EXEC TO 1 AND THE SLAVES TO
  7. */       2 THROUGH 4 FOR INDENTIFICATION.
  8. */
  9. */       IF MULTI-ISHARE FAMILIES ARE TO BE USED, THESE FAMILIES MUST
  10. */       COME IN THE SAME ORDER IN THE EQUIPMENT SHARED TABLE (EST) ON
  11. */       EACH MAINFRAME SO THAT THE SLAVE AND EXEC COMMUNICATE ABOUT
  12. */       THE SAME FAMILY.
  13. */
  14. */
  15. */
  16. *IDENT MACMUT1
  17. */    PROBLEM - MAC2 GETFAM TAKES THE UPPER MOST BIT (THE MULTI-MAINFRAM
  18. */              FLAG) FOR AN EQUIPMENT TYPE.
  19. */
  20. */              (THESE TWO LINES MIGHT BE IN PSR ALREADY)
  21. */
  22. */    SOLUTION - MASK ONLY 11 BITS FOR THE EQUIPMENT ENTRY.
  23. *DECK MAC2
  24. *I,786
  25.           MX0    -9
  26. *D,NS22000.70          (789)
  27. */
  28. */
  29. */             *****   NOTE:  THIS IS A SUGGESTED MODSET ONLY.  ***
  30. */             *****   NOTE:  THIS IS A SUGGESTED MODSET ONLY.  ***
  31. */
  32. */        THERE ARE TWO MODSETS FOR MAC2.
  33. */        USE ONLY ONE.
  34. */        ONE SHOULD WORK FOR ISHARED IN THE DEFAULT FAMILY OR
  35. */        THE SECOND ONE FOR THE ISHARED FAMILY AS THE LINK DEVICE.
  36. */
  37. */
  38. */
  39. *IDENT MACMUT2
  40. */
  41. */    FORCES SHARED RMS TO USE THE DEFAULT FAMILY AS THE
  42. */    SHARED DEVICE.
  43. */
  44. *DECK MAC2
  45. *D,846,NS22000.85
  46.           NZ     B3,GTF4A    IF NOT *ECS*
  47.           SB3    B2          USE DEFAULT FAMILY ORDINAL
  48.  GTF4A    SB7    B0+
  49. */        END OF MODSET.
  50. *EDIT MAC2
  51. */
  52. */
  53. *IDENT MACMUT2
  54. */        ISHARE AS THE LINK DEVICE.
  55. */        THIS CODE CHECKS FOR A LINK DEVICE AND IF PRESENT,
  56. */        USES ITS FAMILY.
  57. */
  58. */        (USE THIS CODE OR ABOVE CODE BUT NOT BOTH)
  59. */
  60. *DECK MAC2
  61. *D,803
  62.           LX6    59-57
  63.           PL     X6,GTF1A    NOT A LINK DEVICE
  64.           NZ     B3,GTF1A    LINK DEVICE FOUND
  65.           SB3    B4
  66.  GTF1A    LX6    57-54
  67. *D,NS22000.81           (831)
  68.  GTF3     ZR     B3,GTF3A    IF NOT A LINK FAMILY
  69.           SB2    B3
  70.  GTF3A    SX1    B2
  71. *EDIT MAC2
  72. */
  73. */
  74. */
  75. *IDENT SXINMUT
  76. */    CODE NEED BY SSEXEC AND SSSLV TO EXECUTE ON SHARED RMS.
  77. */    THIS CODE IS FOR MULTIPLE SHARED RMS MAINFRAMES.
  78. */    THE DEFAULT FAMILY ON EACH OF THE FOUR MACHINES
  79. */    MUST ALSO BE THE SHARED FAMILY.   THIS DEFAULT FAMILY WILL BE THE
  80. */    LINK DEVICE FOR THE STOM FILES.
  81. *DECK SXINIT
  82. *D,1625
  83.         MFINDEX = 1;     # MASTER MACHINE INDEX #
  84. *EDIT SXINIT
  85. *IDENT SXXVMUT
  86. */        WHEN EACH SLAVE IS BROUGHT UP ON A DIFFERENT MAINFRAME,
  87. */        THE PARAMETER SX, SHOULD BE USED BEHIND EACH SSSLV CALL.
  88. */        X = 2 THROUGH 4.
  89. */        THE *MSESLAV* PROC PROGRAM *SSSLV* CALL IS CHANGED FOR
  90. */        EACH SLAVE MAINFRAME USED.
  91. */             EXAMPLE:
  92. */                      SSSLV,S2.   FIRST SLAVE MAINFRAME.
  93. */                      SSSLV,S4.   FOR THE LAST SLAVE MAINFRAME.
  94. */
  95. */
  96. *DECK SXSLV
  97. *D,673
  98. #
  99. *        CONVERT FROM DISPLAY CODE TO BINARY.
  100. #
  101.  
  102.       MIDX = C<0>ARG$SC[0] - O"33";    # SLAVE MACHINE INDEX #
  103. *D,697,704
  104. *EDIT SXSLV