Deck 1RM Part 001

20 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00001 Modification History
M01 (Added by) 1rm2a
M02 (Removed by) 242l642
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01482  M03S00001.252l678 ---|          LDN    0
Line S00004 Modification History
M01 (Added by) 1rm2
M02 (Removed by) 242l642
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01483  M03S00004.252l678 ---|          STD    CM+3
Line S00005 Modification History
M01 (Added by) 1rm2
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01484  M02S00005.252l678 ---|          LDN    SB2S
01485  M02S00006.252l678 ---|          STD    CM+2
01486  M02S00007.252l678 ---|          MONITOR  SEQM
Line S00034 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01487  M01S00034.252l678 +++|          MONITOR  UTEM
Line S01198 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01488  M01S01198.242l642 ---|          LDN    0           PRESET VALIDATION LOOP
Line S00098 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01489  M01S00098.242l642 +++|*         LDN    0           PRESET VALIDATION LOOP
01490  M00S01199.1rm     +++|          STD    LU
01491  M00S01200.1rm     +++|          STD    T5
01492  M00S01201.1rm     +++|          STD    T7
01493  M00S01202.1rm     +++|          LDD    LT
01494  M00S01203.1rm     +++|          STD    T6
Line S00010 Modification History
M01 (Added by) 1rm5
Seq #  *Modification Id* Act 
----------------------------+
01495  M01S00010.1rm5    +++|          AOM    SCFB        FLAG *RD* ALTERED
Line S01204 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01496  M01S01204.242l642 ---|          SETMS  READ,NR
Line S00099 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01497  M01S00099.242l642 +++|          SETMS  IO,(AD,DF,NR)
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01498  M01S00001.ns2776  +++|          LDM    MSD         CHECK STATUS
01499  M01S00002.ns2776  +++|          LPC    100
01500  M00S01205.1rm     +++|          LJM    SCFX        RETURN
Line S00011 Modification History
M01 (Added by) 1rm5
Seq #  *Modification Id* Act 
----------------------------+
01501  M01S00011.1rm5    +++|
01502  M01S00012.1rm5    +++| SCFB     CON    0           *RD* DEVICE ALTERED FLAG
Line S00035 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01503  M01S00035.252l678 +++| SCFC     VFD    6/EQAE,6/12D,6/24D,42/0
01504  M00S01206.1rm     +++| SCH      SPACE  4,10
01505  M00S01207.1rm     +++|**        SCH - SET CHANNEL(S) IN EST.
01506  M00S01208.1rm     +++|*
Line S01209 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01507  M01S01209.252l678 ---|*         ENTRY  (A) = 6/  EQ,12/  CH.
01508  M01S01210.252l678 ---|*                      EQ = EQUIPMENT.
01509  M01S01211.252l678 ---|*                      CH = CHANNEL(S).
Line S00036 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01510  M01S00036.252l678 +++|*         ENTRY  (A) = EQUIPMENT.
01511  M01S00037.252l678 +++|*                (CN+1 - CN+2) = CHANNEL(S).
01512  M00S01212.1rm     +++|*
01513  M00S01213.1rm     +++|*         USES   CM - CM+4.
01514  M00S01214.1rm     +++|*
01515  M00S01215.1rm     +++|*         MACROS MONITOR.
01516  M00S01216.1rm     +++|
01517  M00S01217.1rm     +++|
01518  M00S01218.1rm     +++| SCH      SUBR               ENTRY/EXIT
Line S01219 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01519  M01S01219.252l678 ---|          STD    CM+3        ENTER CALL PARAMETERS
01520  M01S01220.252l678 ---|          SHN    -14
Line S00038 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01521  M01S00038.252l678 +++|          STD    CM+1        ENTER CALL PARAMETERS
01522  M01S00039.252l678 +++|          LDD    CN+1
Line S01221 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01523  M01S01221.252l678 ---|          STD    CM+1
Line S00040 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01524  M01S00040.252l678 +++|          STD    CM+2
01525  M01S00041.252l678 +++|          LDD    CN+2
01526  M01S00042.252l678 +++|          STD    CM+4
01527  M00S01222.1rm     +++|          LDN    SCHS        SET CHANNEL(S) IN EST
Line S01223 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01528  M01S01223.252l678 ---|          STD    CM+2
01529  M01S01224.252l678 ---|          LDN    0
01530  M01S01225.252l678 ---|          STD    CM+4
Line S00043 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01531  M01S00043.252l678 +++|          STD    CM+3
Line S01226 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01532  M01S01226.252l678 ---|          MONITOR  SEQM      SET EQUIPMENT PARAMETERS
Line S00044 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01533  M01S00044.252l678 +++|          MONITOR  SCSM      SET CHANNELS
01534  M00S01227.1rm     +++|          UJN    SCHX        RETURN
01535  M00S01228.1rm     +++| SDI      SPACE  4,10
01536  M00S01229.1rm     +++|**        SDI - SET *DATI* INTERLOCK.
01537  M00S01230.1rm     +++|*
01538  M00S01231.1rm     +++|*         ENTRY  (MF) = MMF LINK DEVICE.
01539  M00S01232.1rm     +++|*
01540  M00S01233.1rm     +++|*         EXIT   (A) .NE. 0 IF ABORT COMMAND ENTERED.
01541  M00S01234.1rm     +++|*
01542  M00S01235.1rm     +++|*         USES   CN - CN+4.
01543  M00S01236.1rm     +++|*
01544  M00S01237.1rm     +++|*         CALLS  IFR.
01545  M00S01238.1rm     +++|*
01546  M00S01239.1rm     +++|*         MACROS COMMAND, IFCOM.
01547  M00S01240.1rm     +++|
01548  M00S01241.1rm     +++|
01549  M00S01242.1rm     +++| SDI2     COMMAND            RESET LEGAL COMMANDS
01550  M00S01243.1rm     +++|          LDC    4000        SET DAT INTERLOCK INDICATION
01551  M00S01244.1rm     +++|          STD    CN+2
01552  M00S01245.1rm     +++|          LDC    MMFL        WRITE INTERLOCK INDICATOR
01553  M00S01246.1rm     +++|          CWD    CN
01554  M00S01247.1rm     +++| SDI3     LDN    0           RETURN STATUS
01555  M00S01248.1rm     +++|
01556  M00S01249.1rm     +++| SDI      SUBR               ENTRY/EXIT
01557  M00S01250.1rm     +++|          LDD    MF
01558  M00S01251.1rm     +++|          ZJN    SDIX        IF NOT MULTI-MAINFRAME
01559  M00S01252.1rm     +++|          LDC    MMFL        CHECK *DATI* INTERLOCK HELD
01560  M00S01253.1rm     +++|          CRD    CN
01561  M00S01254.1rm     +++|          LDD    CN+2
01562  M00S01255.1rm     +++|          NJN    SDI3        IF INTERLOCK PREVIOUSLY SET
01563  M00S01256.1rm     +++|          COMMAND  ABORT     ENABLE *ABORT* COMMAND
01564  M00S01257.1rm     +++|
01565  M00S01258.1rm     +++| SDI1     LDN    DATI        ATTEMPT TO SET INTERLOCK
01566  M00S01259.1rm     +++|          RJM    IFR
01567  M00S01260.1rm     +++|          LDD    CM+1
01568  M00S01261.1rm     +++|          ZJN    SDI2        IF INTERLOCK SET
01569  M00S01262.1rm     +++|          IFCOM  ABORT,SDIX  IF ABORT COMMAND ENTERED
01570  M00S01263.1rm     +++|          UJN    SDI1        RECHECK INTERLOCK
01571  M00S01264.1rm     +++| SDU      SPACE  4,10
01572  M00S01265.1rm     +++|**        SDU - SPIN DOWN UNITS.
01573  M00S01266.1rm     +++|*
01574  M00S01267.1rm     +++|*         THIS ROUTINE MONITORS THE SPINNING DOWN OF UNITS TO BE
01575  M00S01268.1rm     +++|*         RECONFIGURED OR RECABLED.
01576  M00S01269.1rm     +++|*
01577  M00S01270.1rm     +++|*         ENTRY  (RU) = UNITS TO BE RECONFIGURED OR RECABLED.
01578  M00S01271.1rm     +++|*
Line S01272 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01579  M01S01272.242l642 ---|*         EXIT   (A) .NE. 0 IF *ABORT* ENTERED.
Line S00100 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01580  M01S00100.242l642 +++|*         EXIT   (A) .NE. 0 IF *ABORT* ENTERED OR A CONTROL POINT
01581  M01S00101.242l642 +++|*                           ERROR FLAG IS SET.
01582  M00S01273.1rm     +++|*
01583  M00S01274.1rm     +++|*         USES   LU, T7, CN - CN+4.
01584  M00S01275.1rm     +++|*
01585  M00S01276.1rm     +++|*         CALLS  CNR, DOS, SCF, SPU.
01586  M00S01277.1rm     +++|*
Line S01278 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01587  M01S01278.ns22000 ---|*         MACROS COMMAND, IFCOM, MESG.
Line S00055 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01588  M01S00055.ns22000 +++|*         MACROS COMMAND, IFCOM, MESG, SFA.
01589  M00S01279.1rm     +++|
01590  M00S01280.1rm     +++|
01591  M00S01281.1rm     +++| SDU4     LDN    0
01592  M00S01282.1rm     +++|
01593  M00S01283.1rm     +++| SDU      SUBR               ENTRY/EXIT
01594  M00S01284.1rm     +++|          LDN    MSTL        SET *RD* DEVICE
01595  M00S01285.1rm     +++|          STD    T7
Line S01286 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01596  M01S01286.ns22000 ---|          LDD    EQ          SET OLD DEVICE PARAMETERS
01597  M01S01287.ns22000 ---|          ADM    ESTS
Line S00056 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01598  M01S00056.ns22000 +++|          SFA    EST,EQ      SET OLD DEVICE PARAMETERS
01599  M01S00057.ns22000 +++|          ADK    EQDE
01600  M00S01288.1rm     +++|          CRD    CN
01601  M00S01289.1rm     +++|          LDD    MS
01602  M00S01290.1rm     +++|          SHN    3
01603  M00S01291.1rm     +++|          CRM    BFMS,T7
01604  M00S01292.1rm     +++|          RJM    SCF         SET COMMON *RD* DEVICE FIELDS
Line S00102 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01605  M01S00102.242l642 +++|          NJN    SDUX        IF ERROR FLAG SET
01606  M00S01293.1rm     +++|          UJN    SDU2        ENTER LOOP
01607  M00S01294.1rm     +++|
01608  M00S01295.1rm     +++|*         FIND UNITS TO PROCESS AND WAIT FOR *NOT READY*.
01609  M00S01296.1rm     +++|
01610  M00S01297.1rm     +++| SDU1     COMMAND            CLEAR COMMAND LIST
01611  M00S01298.1rm     +++|          AOD    LU          ADVANCE UNIT
01612  M00S01299.1rm     +++|          LDD    SL
01613  M00S01300.1rm     +++|          RAD    T7
01614  M00S01301.1rm     +++|          SBM    SLM
01615  M00S01302.1rm     +++|          PJN    SDU4        IF NO MORE UNITS
01616  M00S01303.1rm     +++| SDU2     LDD    RU          CHECK IF PROCESSING THIS UNIT
01617  M00S01304.1rm     +++|          LMM    TMSK,LU
01618  M00S01305.1rm     +++|          SBD    RU
01619  M00S01306.1rm     +++|          PJN    SDU1        IF NOT THIS UNIT
01620  M00S01307.1rm     +++|          LDD    RM
01621  M00S01308.1rm     +++|          RJM    SPU         SET PHYSICAL UNIT NUMBER
01622  M00S01309.1rm     +++|          STM    SDUA+10
01623  M00S01310.1rm     +++|          MESG   SDUA        * SPIN DOWN UNIT XX.*
01624  M00S01311.1rm     +++| SDU3     RJM    CNR         CHECK NOT READY
01625  M00S01312.1rm     +++|          ZJN    SDU1        IF NOT READY
01626  M00S01313.1rm     +++|          COMMAND  (ABORT,IGNORE)
01627  M00S01314.1rm     +++|          IFCOM  IGNORE,SDU1 IF *IGNORE*
01628  M00S01315.1rm     +++|          IFCOM  ABORT,SDUX  IF *ABORT*
01629  M00S01316.1rm     +++|          RJM    DOS         DELAY
01630  M00S01317.1rm     +++|          UJN    SDU3        RETRY
01631  M00S01318.1rm     +++|
01632  M00S01319.1rm     +++| SDUA     DATA   C* SPIN DOWN UNIT XX.*
01633  M00S01320.1rm     +++| SEQ      SPACE  4,10
01634  M00S01321.1rm     +++|**        SEQ - SET EQUIPMENT PARAMETERS.
01635  M00S01322.1rm     +++|*
01636  M00S01323.1rm     +++|*         EXIT   (DI) = DAT INDEX FOR EQUIPMENT.
Line S01324 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01637  M01S01324.ns22000 ---|*                (EQ) = EQUIPMENT NUMBER FROM CALL BLOCK.
Line S00058 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01638  M01S00058.ns22000 +++|*                (EQ) = EST ORDINAL FROM CALL BLOCK.
01639  M00S01325.1rm     +++|*                (GL) = DEVICE UNAVAILABLE FLAG.
01640  M00S01326.1rm     +++|*                (LT) = LABEL TRACK FOR EQUIPMENT.
01641  M00S01327.1rm     +++|*                (MS) = MST ADDRESS FOR EQUIPMENT.
01642  M00S01328.1rm     +++|*                (NU) = NUMBER OF UNITS IN EQUIPMENT.
01643  M00S01329.1rm     +++|*                (RU) = UNITS FOR RECONFIGURATION OR REPAIR.
01644  M00S01330.1rm     +++|*                (SL) = SINGLE UNIT SECTOR LIMIT.
01645  M00S01331.1rm     +++|*
01646  M00S01332.1rm     +++|*         USES   DI, EQ, GL, LT, MS, NU, RU, SL, CM - CM+4, T5 - T7.
01647  M00S01333.1rm     +++|*
Line S01334 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01648  M01S01334.ns22000 ---|*         MACROS LDBUF, MONITOR.
Line S00059 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01649  M01S00059.ns22000 +++|*         MACROS LDBUF, MONITOR, SFA.
01650  M00S01335.1rm     +++|
01651  M00S01336.1rm     +++|
01652  M00S01337.1rm     +++| SEQ      SUBR               ENTRY/EXIT
Line S01338 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01653  M01S01338.ns22000 ---|          LDBUF  CUEQ        GET CURRENT EQUIPMENT NUMBER
Line S00060 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01654  M01S00060.ns22000 +++|          LDBUF  CUEQ        GET CURRENT EST ORDINAL
01655  M00S01339.1rm     +++|          CRD    CM
01656  M00S01340.1rm     +++|          ADN    URCD-CUEQ   GET RECONFIGURATION AND REPAIR UNITS
01657  M00S01341.1rm     +++|          CRD    CM-1
01658  M00S01342.1rm     +++|          ADN    ESTD-URCD   GET EST ENTRY
01659  M00S01343.1rm     +++|          CRD    CM-2
01660  M00S01344.1rm     +++|          ADN    MSTD-ESTD+ALGL  GET LABEL TRACK
01661  M00S01345.1rm     +++|          CRD    CM-3
Line S01346 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01662  M01S01346.ns22000 ---|          LDD    CM+4        SET EQUIPMENT NUMBER
Line S00061 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01663  M01S00061.ns22000 +++|          LDD    CM+4        SET EST ORDINAL
01664  M00S01347.1rm     +++|          STD    EQ
01665  M00S01348.1rm     +++|          LDD    CM-1+4      SET UNITS
01666  M00S01349.1rm     +++|          STD    RU
01667  M00S01350.1rm     +++|          LDD    CM-2+4      SET MST ADDRESS
01668  M00S01351.1rm     +++|          STD    MS
01669  M00S01352.1rm     +++|          LDD    CM-3+1      SET LABEL TRACK
01670  M00S01353.1rm     +++|          STD    LT
01671  M00S01354.1rm     +++|          LDBUF  MSTD+MDGL   READ DAT INDEX
01672  M00S01355.1rm     +++|          CRD    CM-2
01673  M00S01356.1rm     +++|          ADN    DDLL-MDGL   READ NUMBER OF UNITS
01674  M00S01357.1rm     +++|          CRD    CM
01675  M00S01358.1rm     +++|          LDD    CM-2        SET DAT INDEX
01676  M00S01359.1rm     +++|          LPC    377
01677  M00S01360.1rm     +++|          STD    DI
01678  M00S01361.1rm     +++|          LDD    CM-2+1      SET SINGLE UNIT SECTOR LIMIT
01679  M00S01362.1rm     +++|          LPC    3777
01680  M00S01363.1rm     +++|          STD    SL
01681  M00S01364.1rm     +++|          LDD    CM          SET NUMBER OF UNITS
Line S01365 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01682  M01S01365.ns22000 ---|          LPN    3
Line S00062 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01683  M01S00062.ns22000 +++|          LPN    7
01684  M00S01366.1rm     +++|          ADN    1
01685  M00S01367.1rm     +++|          STD    NU
01686  M00S01368.1rm     +++|          LDD    CM
01687  M00S01369.1rm     +++|          SHN    21-12
01688  M00S01370.1rm     +++|          PJN    SEQ1        IF NOT NULL EQUIPMENT
01689  M00S01371.1rm     +++|          SOD    NU
Line S01372 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01690  M01S01372.ns22000 ---| SEQ1     LDD    EQ          SET DEVICE UNAVAILABLE FLAG
01691  M01S01373.ns22000 ---|          ADM    ESTS
Line S00063 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01692  M01S00063.ns22000 +++| SEQ1     SFA    EST,EQ      SET DEVICE UNAVAILABLE FLAG
01693  M01S00064.ns22000 +++|          ADK    EQDE
01694  M00S01374.1rm     +++|          CRD    CM
01695  M00S01375.1rm     +++|          LDD    CM
01696  M00S01376.1rm     +++|          LPC    100
01697  M00S01377.1rm     +++|          STD    GL
01698  M00S01378.1rm     +++| SEQ2     LJM    SEQX        RETURN
01699  M00S01379.1rm     +++| SLC      SPACE  4,10
01700  M00S01380.1rm     +++|**        SLC - SET LEGAL COMMAND.
01701  M00S01381.1rm     +++|*
01702  M00S01382.1rm     +++|*         ENTRY  (A) = BIT MASK OF LEGAL COMMANDS.
01703  M00S01383.1rm     +++|*
01704  M00S01384.1rm     +++|*         MACROS LDBUF.
01705  M00S01385.1rm     +++|
01706  M00S01386.1rm     +++|
01707  M00S01387.1rm     +++| SLC1     LDN    ZERL        CLEAR LEGAL COMMANDS
01708  M00S01388.1rm     +++|          CRM    SLCA,ON
01709  M00S01389.1rm     +++|          LDBUF  TCOM        CLEAR COMMANDS ENTERED
01710  M00S01390.1rm     +++|          CWM    SLCA,ON
01711  M00S01391.1rm     +++|          SBN    1+TCOM-TPAR
01712  M00S01392.1rm     +++|          CWM    SLCA,ON
01713  M00S01393.1rm     +++|
01714  M00S01394.1rm     +++| SLC      SUBR               ENTRY/EXIT
01715  M00S01395.1rm     +++|          ZJN    SLC1        IF CLEARING COMMANDS
01716  M00S01396.1rm     +++|          STM    SLCA+4      CLEAR LEGAL COMMANDS
01717  M00S01397.1rm     +++|          SHN    -14
01718  M00S01398.1rm     +++|          STM    SLCA+3
01719  M00S01399.1rm     +++|          LDBUF  TPAR        SET LEGAL COMMANDS
01720  M00S01400.1rm     +++|          CWM    SLCA,ON
01721  M00S01401.1rm     +++|          UJN    SLCX        RETURN
01722  M00S01402.1rm     +++|
01723  M00S01403.1rm     +++| SLCA     BSSZ   5           LEGAL COMMANDS
01724  M00S01404.1rm     +++| SNC      SPACE  4,10
01725  M00S01405.1rm     +++|**        SNC - SET CHANNEL SPECIFIED BY *NC*.
01726  M00S01406.1rm     +++|*
01727  M00S01407.1rm     +++|*         ENTRY  (NC) = CHANNEL FLAG, 0 = FIRST CHANNEL.
01728  M00S01408.1rm     +++|*
01729  M00S01409.1rm     +++|*         EXIT   (A) = 0 IF CHANNEL SET IN *RD* DEVICE.
01730  M00S01410.1rm     +++|*                (A) .NE. 0 IF CHANNEL DOWN OR NOT PRESENT.
01731  M00S01411.1rm     +++|*
Line S01412 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01732  M01S01412.252l678 ---|*         USES   CH, CM - CM+4.
Line S00045 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01733  M01S00045.252l678 +++|*         USES   CH, CM - CM+4, CN - CN+4.
01734  M00S01413.1rm     +++|*
01735  M00S01414.1rm     +++|*         CALLS  SCH.
01736  M00S01415.1rm     +++|*
01737  M00S01416.1rm     +++|*         MACROS LDBUF.
01738  M00S01417.1rm     +++|
01739  M00S01418.1rm     +++|
01740  M00S01419.1rm     +++| SNC2     LDN    1           SET CHANNEL NOT PRESENT
01741  M00S01420.1rm     +++|
01742  M00S01421.1rm     +++| SNC      SUBR               ENTRY/EXIT
Line S01422 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01743  M01S01422.252l678 ---|          LDBUF  ESTD        READ NEW EST
01744  M01S01423.252l678 ---|          CRD    CM
01745  M00S01424.1rm     +++|          LDD    NC
Line S01425 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01746  M01S01425.252l678 ---|          SHN    21
01747  M01S01426.252l678 ---|          LMD    CM+1
01748  M01S01427.252l678 ---|          PJN    SNC1        IF FIRST CHANNEL
01749  M01S01428.252l678 ---|          SHN    -6
Line S00046 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01750  M01S00046.252l678 +++|          ZJN    SNC1        IF FIRST CHANNEL
01751  M01S00047.252l678 +++|          LDD    CN+2
01752  M01S00048.252l678 +++|          ZJN    SNC2        IF NO SECOND CHANNEL
01753  M01S00049.252l678 +++|          STD    CN+1
01754  M01S00050.252l678 +++|          LDN    0
01755  M01S00051.252l678 +++| SNC1     STD    CN+2
01756  M00S01429.1rm     +++|          LPN    77
Line S01430 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01757  M01S01430.252l678 ---|          ZJN    SNC2        IF NO SECOND CHANNEL
01758  M01S01431.252l678 ---| SNC1     LPN    77
01759  M01S01432.252l678 ---|          STD    CM+1
01760  M00S01433.1rm     +++|          STD    CH
Line S01434 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01761  M01S01434.252l678 ---|          SHN    21-5
Line S00052 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01762  M01S00052.252l678 +++|          SHN    21-12
01763  M00S01435.1rm     +++|          MJN    SNCX        IF DOWN CHANNEL
Line S01436 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01764  M01S01436.252l678 ---|          SHN    5-21
Line S00053 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01765  M01S00053.252l678 +++|          LDN    0
01766  M00S01437.1rm     +++|          RJM    SCH         SET CHANNEL IN EST
Line S00054 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01767  M01S00054.252l678 +++|          LDBUF  ESTD        RESTORE EST
01768  M01S00055.252l678 +++|          CRD    CN
01769  M00S01438.1rm     +++|          LDN    0
01770  M00S01439.1rm     +++|          UJN    SNCX        RETURN
01771  M00S01440.1rm     +++| SPU      SPACE  4,10
01772  M00S01441.1rm     +++|**        SPU - SET PHYSICAL UNIT.
01773  M00S01442.1rm     +++|*
01774  M00S01443.1rm     +++|*         ENTRY  (LU) = LOGICAL UNIT NUMBER.
01775  M00S01444.1rm     +++|*                (A) = MST ADDRESS CONTAINING UNIT.
01776  M00S01445.1rm     +++|*
01777  M00S01446.1rm     +++|*         EXIT   (PU) = UNIT NUMBER.
01778  M00S01447.1rm     +++|*                (A) = DISPLAY CODE UNIT NUMBER.
01779  M00S01448.1rm     +++|*
01780  M00S01449.1rm     +++|*         USES   PU, T0, CM - CM+4.
01781  M00S01450.1rm     +++|*
01782  M00S01451.1rm     +++|*         CALLS  C2D.
01783  M00S01452.1rm     +++|
01784  M00S01453.1rm     +++|
01785  M00S01454.1rm     +++| SPU      SUBR               ENTRY/EXIT
01786  M00S01455.1rm     +++|          SHN    3           READ *DDLL* MST WORD
01787  M00S01456.1rm     +++|          ADN    DDLL
01788  M00S01457.1rm     +++|          CRD    CM
01789  M00S01458.1rm     +++|          LDN    CM*2+11     SET BYTE POINTER = CM+4 - LU/2
01790  M00S01459.1rm     +++|          SBD    LU
01791  M00S01460.1rm     +++|          SHN    21
01792  M00S01461.1rm     +++|          STD    T0
01793  M00S01462.1rm     +++|          LMD    T0
01794  M00S01463.1rm     +++|          LMI    T0
01795  M00S01464.1rm     +++|          MJN    SPU1        IF FIRST UNIT IN BYTE
01796  M00S01465.1rm     +++|          SHN    -6
01797  M00S01466.1rm     +++| SPU1     LPN    77
01798  M00S01467.1rm     +++|          STD    PU
01799  M00S01468.1rm     +++|          RJM    C2D         CONVERT TO DISPLAY CODE
01800  M00S01469.1rm     +++|          UJN    SPUX        RETURN
01801  M00S01470.1rm     +++| SSP      SPACE  4,20
01802  M00S01471.1rm     +++|**        SSP - SET SUSPEND STATUS ON DEVICE.
01803  M00S01472.1rm     +++|*
Line S01473 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01804  M01S01473.242l642 ---|*         ENTRY  (MS) = MST ADDRESS OF EQUIPMENT.
Line S00103 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01805  M01S00103.242l642 +++|*         ENTRY  (EQ) = EST ORDINAL.
01806  M01S00104.242l642 +++|*                (MS) = MST ADDRESS.
01807  M00S01474.1rm     +++|*                (SC) = CURRENT COUNT OF SUSPENDED DEVICES.
01808  M00S01475.1rm     +++|*
Line S01476 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01809  M01S01476.242l642 ---|*         EXIT   SUSPEND STATUS SET FOR DEVICE.
Line S00105 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01810  M01S00105.242l642 +++|*         EXIT   (A) .NE. 0 IF A CONTROL POINT ERROR FLAG IS SET.
01811  M00S01477.1rm     +++|*                (SC) = UPDATED SUSPEND COUNT.
01812  M00S01478.1rm     +++|*
Line S01479 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01813  M01S01479.242l642 ---|*         USES   SC, T5, CM - CM+4.
Line S00106 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01814  M01S00106.242l642 +++|*         USES   CM+1, CM+2, SC, T5.
01815  M00S01480.1rm     +++|*
01816  M00S01481.1rm     +++|*         CALLS  C2D.
01817  M00S01482.1rm     +++|*
Line S01483 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01818  M01S01483.242l642 ---|*         MACROS MESG, CMSTF.
Line S00107 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01819  M01S00107.242l642 +++|*         MACROS CMSTF, MESG, MONITOR.
01820  M00S01484.1rm     +++|
01821  M00S01485.1rm     +++|
01822  M00S01486.1rm     +++| SSP      SUBR               ENTRY/EXIT
01823  M00S01487.1rm     +++|
Line S01488 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01824  M01S01488.242l642 ---|*         SET REDEFINITION IN PROGRESS BIT.
01825  M01S01489.242l642 ---|
01826  M01S01490.242l642 ---|          LDD    MS          READ MST WORD
01827  M01S01491.242l642 ---|          SHN    3
01828  M01S01492.242l642 ---|          ADN    DDLL
01829  M01S01493.242l642 ---|          CRD    CM
01830  M01S01494.242l642 ---|          LDD    CM          SET BIT
01831  M01S01495.242l642 ---|          SHN    21-13
01832  M01S01496.242l642 ---|          MJN    SSPX        IF SUSPEND PREVIOUSLY SET
01833  M01S01497.242l642 ---|          LDC    4000
01834  M01S01498.242l642 ---|          RAD    CM
01835  M01S01499.242l642 ---|          LDD    MS          REWRITE MST WORD
01836  M01S01500.242l642 ---|          SHN    3
01837  M01S01501.242l642 ---|          ADN    DDLL
01838  M01S01502.242l642 ---|          CWD    CM
Line S00108 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01839  M01S00108.242l642 +++|*         SET DOWN STATUS.
01840  M01S00109.242l642 +++|
01841  M01S00110.242l642 +++|          LDD    EQ
01842  M01S00111.242l642 +++|          STD    T5
01843  M01S00112.242l642 +++|          STD    CM+1
01844  M01S00113.242l642 +++|          LDK    DWES
01845  M01S00114.242l642 +++|          STD    CM+2
01846  M01S00115.242l642 +++|          MONITOR  SEQM
01847  M00S01503.1rm     +++|          AOD    SC          UPDATE SUSPEND COUNT
Line S00116 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01848  M01S00116.242l642 +++|          AOM    CSPA        SET DEVICE STATE CHANGE FLAG
01849  M00S01504.1rm     +++|          LDD    EQ          SET EQUIPMENT
01850  M00S01505.1rm     +++|          STD    T5
Line S01506 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01851  M01S01506.ns22000 ---|          RJM    C2D
01852  M01S01507.ns22000 ---|          STM    SSPA+1
Line S00065 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01853  M01S00065.ns22000 +++|          SHN    -3          CONVERT UPPER TWO DIGITS OF EST ORDINAL
01854  M01S00066.ns22000 +++|          RJM    C2D
01855  M01S00067.ns22000 +++|          STM    SSPA+1
01856  M01S00068.ns22000 +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
01857  M01S00069.ns22000 +++|          LPN    7
01858  M01S00070.ns22000 +++|          SHN    6
01859  M01S00071.ns22000 +++|          ADC    2R0,
01860  M01S00072.ns22000 +++|          STM    SSPA+2
01861  M00S01508.1rm     +++|          CMSTF  LFPR        FORCE UPDATE OF LOCAL MST TO ECS
01862  M00S01509.1rm     +++|          MESG   SSPA
Line S00117 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01863  M01S00117.242l642 +++|          LDN    0
Line S01510 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01864  M01S01510.ns22000 ---|          UJN    SSPX        RETURN
Line S00073 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01865  M01S00073.ns22000 +++|          LJM    SSPX        RETURN
01866  M00S01511.1rm     +++|
Line S01512 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01867  M01S01512.ns22000 ---| SSPA     DATA   C*EQXX SYSTEM USAGE OF DEVICE SUSPENDED.*
Line S00074 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01868  M01S00074.ns22000 +++| SSPA     DATA   C*EQXXX, SYSTEM USAGE OF DEVICE SUSPENDED.*
01869  M00S01513.1rm     +++| SUU      SPACE  4,10
01870  M00S01514.1rm     +++|**        SUU - SPIN UP UNITS.
01871  M00S01515.1rm     +++|*
01872  M00S01516.1rm     +++|*         ENTRY  (RU) = UNITS TO BE RECONFIGURED OR RECABLED.
01873  M00S01517.1rm     +++|*
Line S01518 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01874  M01S01518.242l642 ---|*         EXIT   (A) .NE. 0 IF *ABORT*.
Line S00118 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01875  M01S00118.242l642 +++|*         EXIT   (A) .NE. 0 IF *ABORT* ENTERED OR CP ERROR FLAG IS SET.
01876  M00S01519.1rm     +++|*
01877  M00S01520.1rm     +++|*         USES   LU, T7, CN - CN+4.
01878  M00S01521.1rm     +++|*
01879  M00S01522.1rm     +++|*         CALLS  CNR, DOS, PSA, SCF, SPU.
01880  M00S01523.1rm     +++|*
01881  M00S01524.1rm     +++|*         MACROS COMMAND, IFCOM, LDBUF, MESG.
01882  M00S01525.1rm     +++|
01883  M00S01526.1rm     +++|
01884  M00S01527.1rm     +++| SUU      SUBR               ENTRY/EXIT
01885  M00S01528.1rm     +++|          LDN    MSTL        SET *RD* DEVICE
01886  M00S01529.1rm     +++|          STD    T7
01887  M00S01530.1rm     +++|          LDBUF  ESTD        SET NEW DEVICE PARAMETERS
01888  M00S01531.1rm     +++|          CRD    CN
01889  M00S01532.1rm     +++|          ADN    MSTD-ESTD
01890  M00S01533.1rm     +++|          CRM    BFMS,T7
01891  M00S01534.1rm     +++|          RJM    SCF         SET COMMON *RD* DEVICE FIELDS
Line S00119 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01892  M01S00119.242l642 +++|          NJN    SUUX        IF CONTROL POINT ERROR FLAG SET
01893  M01S00120.242l642 +++|
01894  M01S00121.242l642 +++|
01895  M00S01535.1rm     +++|          UJN    SUU2        ENTER LOOP
01896  M00S01536.1rm     +++|
01897  M00S01537.1rm     +++| SUU1     COMMAND            CLEAR COMMAND LIST
01898  M00S01538.1rm     +++|          AOD    LU          ADVANCE UNIT
01899  M00S01539.1rm     +++|          LDD    SL
01900  M00S01540.1rm     +++|          RAD    T7
01901  M00S01541.1rm     +++|          SBM    SLM
01902  M00S01542.1rm     +++|          ZJN    SUUX        IF END OF UNITS
01903  M00S01543.1rm     +++| SUU2     LDD    RU
01904  M00S01544.1rm     +++|          LMM    TMSK,LU
01905  M00S01545.1rm     +++|          SBD    RU
01906  M00S01546.1rm     +++|          PJN    SUU1        IF NOT CHANGING THIS UNIT
01907  M00S01547.1rm     +++|          LDD    MS
01908  M00S01548.1rm     +++|          RJM    SPU         GET OLD UNIT NUMBER
01909  M00S01549.1rm     +++|          STM    SUUA+12
01910  M00S01550.1rm     +++|          LDD    RM
01911  M00S01551.1rm     +++|          RJM    SPU         GET NEW UNIT NUMBER
01912  M00S01552.1rm     +++|          STM    SUUA+20
01913  M00S01553.1rm     +++|          COMMAND  (ABORT,IGNORE)  SET LEGAL COMMANDS
01914  M00S01554.1rm     +++|          MESG   SUUA        *MOVE PACK FROM UNIT XX TO UNIT YY ...*
01915  M00S01555.1rm     +++| SUU3     RJM    CNR         CHECK IF UNIT READY
01916  M00S01556.1rm     +++|          NJN    SUU4        IF READY CHECK SERVO TIMING
01917  M00S01557.1rm     +++|          RJM    DOS         DELAY
01918  M00S01558.1rm     +++|          IFCOM  IGNORE,SUU1 IF IGNORE OF NOT READY
01919  M00S01559.1rm     +++|          IFCOM  ABORT,SUUX  IF *ABORT*
01920  M00S01560.1rm     +++|          UJN    SUU3        RECHECK UNIT
01921  M00S01561.1rm     +++|
01922  M00S01562.1rm     +++| SUU4     RJM    PSA         PROCESS SERVO ADJUSTMENT
01923  M00S01563.1rm     +++|          NJN    SUU5        IF *ABORT*
01924  M00S01564.1rm     +++|          LJM    SUU1        PROCESS NEXT UNIT
01925  M00S01565.1rm     +++|
01926  M00S01566.1rm     +++| SUU5     LJM    SUUX        RETURN
01927  M00S01567.1rm     +++|
01928  M00S01568.1rm     +++| SUUA     DATA   C*MOVE PACK FROM UNIT XX  TO UNIT YY AND SPIN UP.*
01929  M00S01569.1rm     +++| ULD      SPACE  4,20
01930  M00S01570.1rm     +++|**        ULD - UPDATE LINKED DEVICE MST-S.
01931  M00S01571.1rm     +++|*
01932  M00S01572.1rm     +++|*         ENTRY  (NU) = NUMBER OF UNITS FOR EQUIPMENT.
01933  M00S01573.1rm     +++|*                (MS) = MST ADDRESS/10B OF EQUIPMENT TO RECONFIGURE.
01934  M00S01574.1rm     +++|*
01935  M00S01575.1rm     +++|*         USES   T7, CM - CM+4, CN - CN+4, T1 - T3.
Line S00075 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01936  M01S00075.ns22000 +++|*
01937  M01S00076.ns22000 +++|*         MACROS SFA.
01938  M00S01576.1rm     +++|
01939  M00S01577.1rm     +++|
01940  M00S01578.1rm     +++| ULD      SUBR               ENTRY/EXIT
01941  M00S01579.1rm     +++|
01942  M00S01580.1rm     +++|*         CHECK IF UNIT IS IN FIRST EQUIPMENT OF LINKED DEVICE.
01943  M00S01581.1rm     +++|
01944  M00S01582.1rm     +++|          LDD    MS          GET ORIGINAL NUMBER OF UNITS - 1
01945  M00S01583.1rm     +++|          SHN    3
Line S01584 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01946  M01S01584.ns22000 ---|          ADN    STLL
01947  M01S01585.ns22000 ---|          CRD    CN
01948  M01S01586.ns22000 ---|          LDD    CN+4        CHECK IF IN FIRST EQUIPMENT IN CHAIN
01949  M01S01587.ns22000 ---|          LPN    70
Line S00077 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01950  M01S00077.ns22000 +++|          ADN    DDLL
01951  M01S00078.ns22000 +++|          CRD    CM
01952  M01S00079.ns22000 +++|          LDD    CM
01953  M00S01588.1rm     +++|          SHN    -3
Line S00080 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01954  M01S00080.ns22000 +++|          LPN    7
01955  M00S01589.1rm     +++|          ADN    1
01956  M00S01590.1rm     +++|          STD    T1          SAVE POSITION IN UNIT LIST
01957  M00S01591.1rm     +++|          SBD    NU
01958  M00S01592.1rm     +++|          PJN    ULDX        IF UNITS IN FIRST EQUIPMENT IN CHAIN
01959  M00S01593.1rm     +++|
01960  M00S01594.1rm     +++|*         BUILD TABLE OF UNITS IN *TDAT*.
01961  M00S01595.1rm     +++|
Line S01596 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01962  M01S01596.ns22000 ---|          LDD    MS          READ UNIT LIST
01963  M01S01597.ns22000 ---|          SHN    3
01964  M01S01598.ns22000 ---|          ADN    DDLL
01965  M01S01599.ns22000 ---|          CRD    CM
01966  M00S01600.1rm     +++|          LDN    0           INITIALIZE LOOP
01967  M00S01601.1rm     +++|          STD    T2
01968  M00S01602.1rm     +++|          LDN    4
01969  M00S01603.1rm     +++|          STD    T3
01970  M00S01604.1rm     +++| ULD1     LDM    CM,T3       SET UNITS
01971  M00S01605.1rm     +++|          SHN    14
01972  M00S01606.1rm     +++|          STM    TDAT+1,T2
01973  M00S01607.1rm     +++|          SHN    -14
01974  M00S01608.1rm     +++|          STM    TDAT,T2
01975  M00S01609.1rm     +++|          LDN    2           ADVANCE TABLE POINTER
01976  M00S01610.1rm     +++|          RAD    T2
01977  M00S01611.1rm     +++|          SOD    T3
01978  M00S01612.1rm     +++|          NJN    ULD1        IF MORE UNITS IN *DDLL*
01979  M00S01613.1rm     +++|
01980  M00S01614.1rm     +++|*         GET NEXT EQUIPMENT IN CHAIN.
01981  M00S01615.1rm     +++|
Line S01616 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01982  M01S01616.ns22000 ---| ULD2     LDD    CN+4
01983  M01S01617.ns22000 ---|          SHN    -6
Line S00081 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01984  M01S00081.ns22000 +++| ULD2     LDD    MS
01985  M01S00082.ns22000 +++|          SHN    3
01986  M01S00083.ns22000 +++|          ADN    STLL
01987  M01S00084.ns22000 +++|          CRD    CN
01988  M01S00085.ns22000 +++|          LDD    CN+4
01989  M01S00086.ns22000 +++|          SHN    -3
Line S01618 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01990  M01S01618.ns22000 ---|          ADM    ESTS
Line S00087 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01991  M01S00087.ns22000 +++|          SFA    EST
01992  M01S00088.ns22000 +++|          ADK    EQDE
01993  M00S01619.1rm     +++|          CRD    CM
01994  M00S01620.1rm     +++|          LDD    CM+4
01995  M00S01621.1rm     +++|          STD    T7          SAVE MST ADDRESS
01996  M00S01622.1rm     +++|          SHN    3
Line S01623 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01997  M01S01623.ns22000 ---|          ADN    STLL        READ NEXT LINK
01998  M01S01624.ns22000 ---|          CRD    CN
01999  M01S01625.ns22000 ---|          ADN    DDLL-STLL
Line S00089 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02000  M01S00089.ns22000 +++|          ADN    DDLL
02001  M00S01626.1rm     +++|          CRD    CM
02002  M00S01627.1rm     +++|          LDD    CM
02003  M00S01628.1rm     +++|          SHN    21-12
02004  M00S01629.1rm     +++|          MJN    ULD2        IF NULL EQUIPMENT
Line S01630 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02005  M01S01630.ns22000 ---|          LDD    CN+4        SET NUMBER OF UNITS FOR THIS EQUIPMENT
Line S00090 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02006  M01S00090.ns22000 +++|          LDD    CM          SET NUMBER OF UNITS - 1 FOR THIS EQUIPMENT
02007  M00S01631.1rm     +++|          SHN    -3
02008  M00S01632.1rm     +++|          LPN    7
02009  M00S01633.1rm     +++|          STD    T2
02010  M00S01634.1rm     +++|
02011  M00S01635.1rm     +++|*         RESET UNIT LIST FROM TABLE OF UNITS.
02012  M00S01636.1rm     +++|
02013  M00S01637.1rm     +++|          LDN    CM+4        PRESET LOOP
02014  M00S01638.1rm     +++|          STD    T3
02015  M00S01639.1rm     +++| ULD3     LDI    T3          REPLACE LOWER UNIT
02016  M00S01640.1rm     +++|          SCN    77
02017  M00S01641.1rm     +++|          LMM    TDAT,T1
02018  M00S01642.1rm     +++|          STI    T3
02019  M00S01643.1rm     +++|          AOD    T1          ADVANCE TABLE POINTER
02020  M00S01644.1rm     +++|          SBD    NU
02021  M00S01645.1rm     +++|          PJN    ULD4        IF END OF UNITS
02022  M00S01646.1rm     +++|          SOD    T2
02023  M00S01647.1rm     +++|          MJN    ULD4        IF END OF EQUIPMENT
02024  M00S01648.1rm     +++|          LDI    T3          REPLACE UPPER UNIT
02025  M00S01649.1rm     +++|          SHN    14
02026  M00S01650.1rm     +++|          SCN    77
02027  M00S01651.1rm     +++|          LMM    TDAT,T1
02028  M00S01652.1rm     +++|          SHN    6
02029  M00S01653.1rm     +++|          STI    T3
02030  M00S01654.1rm     +++|          SOD    T3
02031  M00S01655.1rm     +++|          AOD    T1          ADVANCE TABLE POINTER
02032  M00S01656.1rm     +++|          SBD    NU
02033  M00S01657.1rm     +++|          PJN    ULD4        IF END OF UNITS
02034  M00S01658.1rm     +++|          SOD    T2
02035  M00S01659.1rm     +++|          PJN    ULD3        IF MORE UNITS IN THIS EQUIPMENT
02036  M00S01660.1rm     +++| ULD4     LDD    T7          REWRITE UNIT LIST
02037  M00S01661.1rm     +++|          SHN    3
02038  M00S01662.1rm     +++|          ADN    DDLL
02039  M00S01663.1rm     +++|          CWD    CM
02040  M00S01664.1rm     +++|          LDD    T1
02041  M00S01665.1rm     +++|          SBD    NU
02042  M00S01666.1rm     +++|          PJN    ULD5        IF END OF UNITS
02043  M00S01667.1rm     +++|          LJM    ULD2        GET NEXT EQUIPMENT IN CHAIN
02044  M00S01668.1rm     +++|
02045  M00S01669.1rm     +++| ULD5     LJM    ULDX        RETURN
02046  M00S01670.1rm     +++| VLB      SPACE  4,20
02047  M00S01671.1rm     +++|**        VLB - VERIFY LABEL.
02048  M00S01672.1rm     +++|*
02049  M00S01673.1rm     +++|*         ENTRY  (T5) = 0, *RD* PSEUDO EQUIPMENT.
02050  M00S01674.1rm     +++|*                (T6) = LABEL TRACK.
02051  M00S01675.1rm     +++|*                (T7) = LU * SINGLE UNIT SECTOR LIMIT.
02052  M00S01676.1rm     +++|*                (LU) = LOGICAL UNIT NUMBER, 0 - 7.
02053  M00S01677.1rm     +++|*                (PU) = PHYSICAL UNIT NUMBER, 0 - 77.
02054  M00S01678.1rm     +++|*                (CH) = CHANNEL(S) TO CHECK.
02055  M00S01679.1rm     +++|*
02056  M00S01680.1rm     +++|*         EXIT   (A) .NE. 0 IF ABORT ENTERED.
02057  M00S01681.1rm     +++|*
02058  M00S01682.1rm     +++|*         USES   CM - CM+4.
02059  M00S01683.1rm     +++|*
02060  M00S01684.1rm     +++|*         CALLS  PUE, RDS.
02061  M00S01685.1rm     +++|*
02062  M00S01686.1rm     +++|*         MACROS ENDMS, SETMS.
02063  M00S01687.1rm     +++|
02064  M00S01688.1rm     +++|
02065  M00S01689.1rm     +++| VLB5     LDC    VLBB        * UNIT XX LABEL VERIFY ERROR.*
02066  M00S01690.1rm     +++|          RJM    PUE         PROCESS UNIT ERROR
02067  M00S01691.1rm     +++|          MJN    VLB1        IF *RECHECK*
02068  M00S01692.1rm     +++|*         UJN    VLBX        RETURN *ABORT* OR *IGNORE* STATUS
02069  M00S01693.1rm     +++|
02070  M00S01694.1rm     +++| VLB      SUBR               ENTRY/EXIT
Line S01695 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02071  M01S01695.242l642 ---| VLB1     SETMS  READ,NR
Line S00122 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02072  M01S00122.242l642 +++| VLB1     SETMS  IO,(AD,DF,NR)
02073  M00S01696.1rm     +++|          LDC    BFMS        READ LABEL SECTOR
02074  M00S01697.1rm     +++|          RJM    RDS
02075  M00S01698.1rm     +++|          PJN    VLB2        IF NO READ ERROR
02076  M00S01699.1rm     +++|          LDC    VLBA        * UNIT XX LABEL READ ERROR.*
02077  M00S01700.1rm     +++|          RJM    PUE         PROCESS UNIT ERROR
02078  M00S01701.1rm     +++|          MJN    VLB1        IF *RECHECK*
02079  M00S01702.1rm     +++|          NJN    VLBX        IF *ABORT*
02080  M00S01703.1rm     +++|*         UJN    VLB2        IGNORE READ ERROR
02081  M00S01704.1rm     +++|
02082  M00S01705.1rm     +++| VLB2     ENDMS
02083  M00S01706.1rm     +++|
02084  M00S01707.1rm     +++|*         VERIFY CONTROL BYTES, TRACK AND EQUIPMENT TYPE.
02085  M00S01708.1rm     +++|
02086  M00S01709.1rm     +++|          LDM    BFMS        CHECK CONTROL BYTES
02087  M00S01710.1rm     +++|          LMC    3777
02088  M00S01711.1rm     +++| VLB3     NJN    VLB5        IF NOT PROPER CONTROL BYTE
02089  M00S01712.1rm     +++|          LDM    BFMS+1
02090  M00S01713.1rm     +++|          LMN    77
02091  M00S01714.1rm     +++|          NJN    VLB3        IF NOT PROPER WORD COUNT
02092  M00S01715.1rm     +++|          LDM    FTSS
02093  M00S01716.1rm     +++|          LMD    LT
02094  M00S01717.1rm     +++|          NJN    VLB3        IF NOT PROPER TRACK
Line S01718 Modification History
M01 (Removed by) ns2550
Seq #  *Modification Id* Act 
----------------------------+
02095  M01S01718.ns2550  ---|          LDM    LLSS
02096  M01S01719.ns2550  ---|          LMN    1
02097  M01S01720.ns2550  ---|          NJN    VLB3        IF NOT PROPER LABEL LEVEL
02098  M00S01721.1rm     +++|          LDD    MS          READ FAMILY AND DEVICE NUMBER
02099  M00S01722.1rm     +++|          SHN    3
02100  M00S01723.1rm     +++|          ADN    PFGL
02101  M00S01724.1rm     +++|          CRD    CM
02102  M00S01725.1rm     +++|          LDM    E4SS        CHECK EQUIPMENT TYPE
02103  M00S01726.1rm     +++|          LMD    CN+3
02104  M00S01727.1rm     +++|          LPC    3777
02105  M00S01728.1rm     +++| VLB4     NJN    VLB3        IF NOT CORRECT EQUIPMENT TYPE
02106  M00S01729.1rm     +++|
02107  M00S01730.1rm     +++|*         VERIFY FAMILY, DEVICE NUMBER AND RELATIVE UNIT.
02108  M00S01731.1rm     +++|
02109  M00S01732.1rm     +++|          LDD    CM+4        SET RELATIVE UNIT
02110  M00S01733.1rm     +++|          SCN    70
02111  M00S01734.1rm     +++|          STD    CM+4
02112  M00S01735.1rm     +++|          LDD    LU
02113  M00S01736.1rm     +++|          SHN    3
02114  M00S01737.1rm     +++|          RAD    CM+4
02115  M00S01738.1rm     +++|          LDM    N4SS+5*PFGL COMPARE FAMILY AND DEVICE NUMBER
02116  M00S01739.1rm     +++|          LMD    CM
02117  M00S01740.1rm     +++|          NJN    VLB4        IF NO MATCH
02118  M00S01741.1rm     +++|          LDM    N4SS+5*PFGL+1
02119  M00S01742.1rm     +++|          LMD    CM+1
02120  M00S01743.1rm     +++|          NJN    VLB4        IF NO MATCH
02121  M00S01744.1rm     +++|          LDM    N4SS+5*PFGL+2
02122  M00S01745.1rm     +++|          LMD    CM+2
02123  M00S01746.1rm     +++|          NJN    VLB4        IF NO MATCH
02124  M00S01747.1rm     +++|          LDM    N4SS+5*PFGL+3
02125  M00S01748.1rm     +++|          LMD    CM+3
02126  M00S01749.1rm     +++|          NJN    VLB4        IF NO MATCH
02127  M00S01750.1rm     +++|          LDM    N4SS+5*PFGL+4  COMPARE RELATIVE UNIT AND TOTAL UNITS
02128  M00S01751.1rm     +++|          LMD    CM+4
02129  M00S01752.1rm     +++|          LPN    77
02130  M00S01753.1rm     +++|          NJN    VLB4        IF NO MATCH
02131  M00S01754.1rm     +++|          LJM    VLBX        RETURN
02132  M00S01755.1rm     +++|
02133  M00S01756.1rm     +++| VLBA     DATA   C* UNIT XX, CHYY LABEL READ ERROR.*
02134  M00S01757.1rm     +++| VLBB     DATA   C* UNIT XX, CHYY LABEL VERIFICATION ERROR.*
02135  M00S01758.1rm     +++| WAM      SPACE  4,10
02136  M00S01759.1rm     +++|**        WAM - WAIT FOR ALL MACHINES TO SYNCHRONIZE PROCESSING.
02137  M00S01760.1rm     +++|*
02138  M00S01761.1rm     +++|*         ENTRY  (A) = CONDITIONAL JUMP INSTRUCTION FOR *WAMB*.
02139  M00S01762.1rm     +++|*                (MF) = MULTI-MAINFRAME FLAG.
02140  M00S01763.1rm     +++|*                (MM) = MACHINE MASK OF THIS MACHINE.
02141  M00S01764.1rm     +++|*
02142  M00S01765.1rm     +++|*         EXIT   (A) .NE. 0 IF COMMAND ABORTED.
02143  M00S01766.1rm     +++|*
02144  M00S01767.1rm     +++|*         USES   CN - CN+2.
02145  M00S01768.1rm     +++|*
02146  M00S01769.1rm     +++|*         CALLS  RDE.
02147  M00S01770.1rm     +++|*
Line S01771 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02148  M01S01771.ns22000 ---|*         MACROS COMMAND, IFCOM, MESG.
Line S00091 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02149  M01S00091.ns22000 +++|*         MACROS COMMAND, IFCOM, MESG, SFA.
02150  M00S01772.1rm     +++|
02151  M00S01773.1rm     +++|
02152  M00S01774.1rm     +++| WAM5     COMMAND            CLEAR COMMAND LIST
02153  M00S01775.1rm     +++|          LDN    1           RETURN ABORT STATUS
02154  M00S01776.1rm     +++|
02155  M00S01777.1rm     +++| WAM      SUBR               ENTRY/EXIT
02156  M00S01778.1rm     +++|          STM    WAMB        CHANGE CONDITIONAL JUMP INSTRUCTION
02157  M00S01779.1rm     +++|          ERRNG  37+WAMB-WAM4  IF OUT OF RANGE
02158  M00S01780.1rm     +++|          LDD    MF
02159  M00S01781.1rm     +++|          ZJN    WAMX        IF NOT MULTI-MAINFRAME
Line S01782 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02160  M01S01782.ns22000 ---|          LDD    EQ          TEST FOR SHARED DEVICE
02161  M01S01783.ns22000 ---|          ADM    ESTS
Line S00092 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02162  M01S00092.ns22000 +++|          SFA    EST,EQ      TEST FOR SHARED DEVICE
02163  M01S00093.ns22000 +++|          ADK    EQDE
02164  M00S01784.1rm     +++|          CRD    CM
02165  M00S01785.1rm     +++|          LDD    CM
02166  M00S01786.1rm     +++|          LPC    1000
02167  M00S01787.1rm     +++|          ZJN    WAMX        IF DEVICE NOT SHARED
02168  M00S01788.1rm     +++|
Line S01789 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02169  M01S01789.242l642 ---|*         CHECK FOR SUSPEND STATUS SET/CLEAR ON ALL MACHINES ACTIVE
02170  M01S01790.242l642 ---|*         AND SHARING THIS DEVICE.
Line S00123 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02171  M01S00123.242l642 +++|*         CHECK FOR DOWN STATUS SET/CLEAR ON ALL ACTIVE MACHINES
02172  M01S00124.242l642 +++|*         SHARING THIS DEVICE.
02173  M00S01791.1rm     +++|
02174  M00S01792.1rm     +++|          LDN    1           INITIALIZE MACHINE SEARCH LOOP
02175  M00S01793.1rm     +++|          STD    CN          MACHINE INDEX
02176  M00S01794.1rm     +++|          STD    CN+1        MACHINE MASK
02177  M00S01795.1rm     +++|          LDN    0
02178  M00S01796.1rm     +++|          STD    CN+2        MST LOCAL AREA INDEX
02179  M00S01797.1rm     +++| WAM1     RJM    RDE         READ DAT ENTRY
02180  M00S01798.1rm     +++|          NJN    WAM5        IF *ABORT*
02181  M00S01799.1rm     +++| WAM2     LDM    TDAT+5+4    CHECK ACCESS BIT
02182  M00S01800.1rm     +++|          LMD    CN+1
02183  M00S01801.1rm     +++|          SBM    TDAT+5+4
02184  M00S01802.1rm     +++|          PJN    WAM3        IF NO ACCESS SET FOR MACHINE
02185  M00S01803.1rm     +++|          LDD    MM
02186  M00S01804.1rm     +++|          LMD    CN+1
02187  M00S01805.1rm     +++|          ZJN    WAM3        IF THIS MACHINE
Line S01806 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02188  M01S01806.242l642 ---|          LDM    BFMS+2+DDLL*5,CN+2
02189  M01S01807.242l642 ---|          SHN    21-13
02190  M01S01808.242l642 ---| WAMB     PJN    WAM4        IF DEVICE NOT SUSPENDED
02191  M01S01809.242l642 ---|*         MJN    WAM4        IF DEVICE STILL SUSPENDED
Line S00125 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02192  M01S00125.242l642 +++|          LDM    BFMS+2+DALL*5,CN+2
02193  M01S00126.242l642 +++|          SHN    0-10
02194  M01S00127.242l642 +++|          LMN    3
02195  M01S00128.242l642 +++|          NJN    WAM4        IF DEVICE NOT DOWN
02196  M01S00129.242l642 +++|*         ZJN    WAM4        IF DEVICE STILL DOWN
02197  M01S00130.242l642 +++| WAMB     EQU    *-1
02198  M00S01810.1rm     +++| WAM3     LDD    CN+1        ADVANCE MACHINE
02199  M00S01811.1rm     +++|          RAD    CN+1
02200  M00S01812.1rm     +++|          LDN    LLLL*5
02201  M00S01813.1rm     +++|          RAD    CN+2
02202  M00S01814.1rm     +++|          AOD    CN
02203  M00S01815.1rm     +++|          LMN    MXMF+1
02204  M00S01816.1rm     +++|          NJN    WAM2        IF NOT END OF MACHINES
02205  M00S01817.1rm     +++|          COMMAND            CLEAR LEGAL COMMAND TABLE
02206  M00S01818.1rm     +++|          LDN    0
02207  M00S01819.1rm     +++|          LJM    WAMX        RETURN
02208  M00S01820.1rm     +++|
02209  M00S01821.1rm     +++| WAM4     COMMAND  (ABORT,IGNORE)  ENABLE COMMAND PROCESSING
Line S01822 Modification History
M01 (Removed by) 1rm3
Seq #  *Modification Id* Act 
----------------------------+
02210  M01S01822.1rm3    ---|          LDM    BFMS+2+STLL*5+2  SET MACHINE ID
Line S00001 Modification History
M01 (Added by) 1rm3
Seq #  *Modification Id* Act 
----------------------------+
02211  M01S00001.1rm3    +++|          LDM    BFMS+2+STLL*5+2,CN+2  SET MACHINE ID
02212  M00S01823.1rm     +++|          STM    WAMA+14
02213  M00S01824.1rm     +++|          MESG   WAMA        SET MESSAGE IN K-DISPLAY
02214  M00S01825.1rm     +++|          IFCOM  IGNORE,WAM3 IF *IGNORE* COMMAND ENTERED
02215  M00S01826.1rm     +++|          IFCOM  ABORT,WAM5  IF *ABORT* COMMAND ENTERED
02216  M00S01827.1rm     +++|          LJM    WAM1        RECHECK THIS MACHINE INDEX
02217  M00S01828.1rm     +++|
02218  M00S01829.1rm     +++| WAMA     DATA   C* WAITING FOR MACHINE ID=XX.*
02219  M00S01830.1rm     +++| WFC      SPACE  4,10
02220  M00S01831.1rm     +++|**        WFC - WAIT FOR COMMAND TO BE ENTERED.
02221  M00S01832.1rm     +++|*
02222  M00S01833.1rm     +++|*         EXIT   (A) .LT. 0 IF *RECHECK* COMMAND ENTERED.
02223  M00S01834.1rm     +++|*                (A) = 0 IF *IGNORE* OR *NEXT* COMMAND ENTERED.
02224  M00S01835.1rm     +++|*                (A) .GT. 0 IF *ABORT* COMMAND ENTERED.
02225  M00S01836.1rm     +++|*                COMMAND LIST CLEARED.
02226  M00S01837.1rm     +++|*
02227  M00S01838.1rm     +++|*         USES   T1.
02228  M00S01839.1rm     +++|*
02229  M00S01840.1rm     +++|*         MACROS COMMAND, IFCOM.
02230  M00S01841.1rm     +++|
02231  M00S01842.1rm     +++|
02232  M00S01843.1rm     +++| WFC2     COMMAND            CLEAR COMMAND LIST
02233  M00S01844.1rm     +++|          SOD    T1          RETURN COMMAND CODE
02234  M00S01845.1rm     +++|
02235  M00S01846.1rm     +++| WFC      SUBR               ENTRY/EXIT
02236  M00S01847.1rm     +++| WFC1     LDN    0           PRESET COMMAND CODE
02237  M00S01848.1rm     +++|          STD    T1
02238  M00S01849.1rm     +++|          IFCOM  RECHECK,WFC2  IF *RECHECK*
02239  M00S01850.1rm     +++|          AOD    T1
02240  M00S01851.1rm     +++|          IFCOM  (IGNORE,NEXT),WFC2  IF *IGNORE* OR *NEXT*
02241  M00S01852.1rm     +++|          AOD    T1
02242  M00S01853.1rm     +++|          IFCOM  ABORT,WFC2  IF *ABORT*
02243  M00S01854.1rm     +++|          UJN    WFC1        RECHECK COMMAND ENTRY
02244  M00S01855.1rm     +++|          TITLE  COMMON DECKS.
Line S01856 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02245  M01S01856.ns22000 ---|*         COMMON DECKS.
Line S00094 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02246  M01S00094.ns22000 +++|**        COMMON DECKS.
02247  M00S01857.1rm     +++|
02248  M00S01858.1rm     +++|
02249  M00S01859.1rm     +++|*CALL     COMPC2D
02250  M00S01860.1rm     +++|*CALL     COMPIFR
02251  M00S01861.1rm     +++|*CALL     COMPTGB
02252  M00S01862.1rm     +++|*CALL     COMPTLB
02253  M00S01863.1rm     +++|*CALL     COMPMSV
02254  M00S01864.1rm     +++|          SPACE  4
02255  M00S01865.1rm     +++|          USE    LITERALS
02256  M00S01866.1rm     +++| TABLES   SPACE  4,10
02257  M00S01867.1rm     +++| TMSK     BSS    0           TABLE OF MASK BITS INDEXED BY ORDINAL
02258  M00S01868.1rm     +++|          CON    1
02259  M00S01869.1rm     +++|          CON    2
02260  M00S01870.1rm     +++|          CON    4
02261  M00S01871.1rm     +++|          CON    10
02262  M00S01872.1rm     +++|          CON    20
02263  M00S01873.1rm     +++|          CON    40
02264  M00S01874.1rm     +++|          CON    100
02265  M00S01875.1rm     +++|          CON    200
02266  M00S01876.1rm     +++|          CON    400
02267  M00S01877.1rm     +++|          CON    1000
02268  M00S01878.1rm     +++|          CON    2000
02269  M00S01879.1rm     +++|          CON    4000
02270  M00S01880.1rm     +++|
02271  M00S01881.1rm     +++| TDAT     EQU    *           TWO CM WORD BUFFER FOR DAT ENTRY
02272  M00S01882.1rm     +++| OVLA     EQU    TDAT+5*2    OVERLAY AREA
02273  M00S01883.1rm     +++| L.1RM    EQU    OVLA+1+ZPXL END OF *1RM* PLUS *0PI*
02274  M00S01884.1rm     +++|          ERRPL  L.1RM-BFMS  *OPI* EXTENDS INTO BFMS
02275  M00S01885.1rm     +++| PRS      TITLE  PRESET.
02276  M00S01886.1rm     +++|**        PRS - PRESET.
02277  M00S01887.1rm     +++|*
02278  M00S01888.1rm     +++|*         EXIT   (SC) = 0, SUSPENDED DEVICE COUNT.
Line S00131 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02279  M01S00131.242l642 +++|*                (EQ) = *RD* EQUIPMENT EST ORDINAL.
02280  M00S01889.1rm     +++|*                (RM) = *RD* DEVICE MST ADDRESS.
02281  M00S01890.1rm     +++|*                (MF) = MULTI-MAINFRAME LINK DEVICE NUMBER.
02282  M00S01891.1rm     +++|*                (TUNL) = DDLL MST WORD FOR NEW DEFINITION.
02283  M00S01892.1rm     +++|*
Line S01893 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02284  M01S01893.242l642 ---|*         USES   MF, MM, RM, SC, CM - CM+4.
Line S00132 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02285  M01S00132.242l642 +++|*         USES   EQ, MF, MM, RM, SC, CM - CM+4.
02286  M00S01894.1rm     +++|*
02287  M00S01895.1rm     +++|*         CALLS  DFM.
02288  M00S01896.1rm     +++|*
Line S01897 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S01897.ns22000 ---|*         MACROS MONITOR.
Line S00095 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02290  M01S00095.ns22000 +++|*         MACROS MONITOR, SFA.
02291  M00S01898.1rm     +++|
02292  M00S01899.1rm     +++|
02293  M00S01900.1rm     +++| PRS      SUBR               ENTRY/EXIT
02294  M00S01901.1rm     +++|
02295  M00S01902.1rm     +++|*         CHECK STATUS WORD ADDRESS.
02296  M00S01903.1rm     +++|
02297  M00S01904.1rm     +++|          LDD    IR+3        CHECK ADDRESS
02298  M00S01905.1rm     +++|          LPN    77
02299  M00S01906.1rm     +++|          SHN    14
02300  M00S01907.1rm     +++|          MJN    PRS1        IF OUT OF RANGE
02301  M00S01908.1rm     +++|          ADD    IR+4
02302  M00S01909.1rm     +++|          ADN    CBMX
02303  M00S01910.1rm     +++|          SHN    -6
02304  M00S01911.1rm     +++|          SBD    FL
02305  M00S01912.1rm     +++|          PJN    PRS1        IF .GT. FL - 1
02306  M00S01913.1rm     +++|          LDD    IR+3        SET ADDRESS - 2
02307  M00S01914.1rm     +++|          LPN    77
02308  M00S01915.1rm     +++|          SHN    14
02309  M00S01916.1rm     +++|          ADD    IR+4
02310  M00S01917.1rm     +++|          SBN    2
02311  M00S01918.1rm     +++|          PJN    PRS2        IF .GT. RA + 1
Line S01919 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02312  M01S01919.v23l617 ---| PRS1     LDC    =C* 1RM INVALID REQUEST.*
Line S00007 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02313  M01S00007.v23l617 +++| PRS1     LDC    =C* 1RM INCORRECT REQUEST.*
02314  M00S01920.1rm     +++|          LJM    PRS3        ISSUE ERROR MESSAGE AND ABORT
02315  M00S01921.1rm     +++|
02316  M00S01922.1rm     +++|*         CHECK FOR LEGAL ACCESS.
02317  M00S01923.1rm     +++|
02318  M00S01924.1rm     +++| PRS2     LDD    CP          GET QUEUE PRIORITY
02319  M00S01925.1rm     +++|          ADN    JCIW
02320  M00S01926.1rm     +++|          CRD    CM
02321  M00S01927.1rm     +++|          LDC    MSSI
02322  M00S01928.1rm     +++|          LMD    CM+2
02323  M00S01929.1rm     +++|          ZJN    PRS4        IF LEGAL ACCESS
Line S01930 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02324  M01S01930.v23l617 ---|          LDC    =C* 1RM INVALID USER ACCESS.*
Line S00008 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02325  M01S00008.v23l617 +++|          LDC    =C* 1RM USER ACCESS NOT VALID.*
02326  M00S01931.1rm     +++| PRS3     RJM    DFM         ISSUE MESSAGE
02327  M00S01932.1rm     +++|          MONITOR  ABTM
02328  M00S01933.1rm     +++|          LJM    PPR         EXIT
02329  M00S01934.1rm     +++|
02330  M00S01935.1rm     +++|*         GET MASS STORAGE EQUIPMENT EST POINTERS.
Line S01936 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02331  M01S01936.ns22000 ---|
02332  M00S01937.1rm     +++|*         SET MULTI-MAINFRAME STATUS.
02333  M00S01938.1rm     +++|
Line S01939 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02334  M01S01939.ns22000 ---| PRS4     LDC    MMFL        GET EQUIPMENT NUMBER OF LINK DEVICE
Line S00096 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02335  M01S00096.ns22000 +++| PRS4     LDC    MMFL        GET EST ORDINAL OF LINK DEVICE
02336  M00S01940.1rm     +++|          CRD    CM
02337  M00S01941.1rm     +++|          LDD    CM+1        SET MMF STATUS
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02338  M01S00001.251l664 +++|          LPC    777
02339  M00S01942.1rm     +++|          STD    MF
02340  M00S01943.1rm     +++|          LDD    CM+3        SET MACHINE MASK
Line S01944 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02341  M01S01944.251l664 ---|          LPN    17
02342  M00S01945.1rm     +++|          STD    MM
Line S01946 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02343  M01S01946.ns22000 ---|          LDM    ESTS        SET *RD* MST ADDRESS
Line S00097 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02344  M01S00097.ns22000 +++|          LDN    RDEQ        READ *RD* EST ENTRY
Line S00133 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02345  M01S00133.242l642 +++|          STD    EQ
Line S00098 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02346  M01S00098.ns22000 +++|          SFA    EST
02347  M01S00099.ns22000 +++|          ADK    EQDE
02348  M00S01947.1rm     +++|          CRD    CM
02349  M00S01948.1rm     +++|          LDD    CM+4
02350  M00S01949.1rm     +++|          STD    RM
02351  M00S01950.1rm     +++|          LDN    0           CLEAR SUSPENDED DEVICE COUNT
02352  M00S01951.1rm     +++|          STD    SC
Line S00070 Modification History
M01 (Added by) 1rm1
Seq #  *Modification Id* Act 
----------------------------+
02353  M01S00070.1rm1    +++|          LDK    CHTP        READ FWA OF CHANNEL TABLES
02354  M01S00071.1rm1    +++|          CRD    CM
02355  M01S00072.1rm1    +++|          LDD    CM+2        PRESET FWA OF CONTROLWARE TABLE
02356  M01S00073.1rm1    +++|          SHN    14
02357  M01S00074.1rm1    +++|          LMD    CM+3
02358  M01S00075.1rm1    +++|          ADN    CTALL*2
02359  M01S00076.1rm1    +++|          STM    GCIA+1
02360  M01S00077.1rm1    +++|          SHN    -14
02361  M01S00078.1rm1    +++|          RAM    GCIA
02362  M00S01952.1rm     +++|          LJM    PRSX        RETURN
02363  M00S01953.1rm     +++|          SPACE  4
02364  M00S01954.1rm     +++|          END