Deck CPUMTR Part 001

308 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
01426  M01S00145.271l750 +++|          VFD    18/B0
01427  M00S00865.cpumtr  +++| +        VFD    24/RA
01428  M00S00866.cpumtr  +++|          VFD    18/A1
01429  M00S00867.cpumtr  +++|          VFD    18/B1

Seq #  *Modification Id* Act 
----------------------------+
01430  M01S00868.cpumt80 ---| +        VFD    3/
01431  M01S00869.cpumt80 ---|          TVFD   21/FL

Seq #  *Modification Id* Act 
----------------------------+
01432  M01S00001.cpumt80 +++|+         TVFD   24/FL
01433  M00S00870.cpumtr  +++|          TVFD   18/A2
01434  M00S00871.cpumtr  +++|          VFD    18/B2
01435  M00S00872.cpumtr  +++|          IFC    EQ,$EM$$

Seq #  *Modification Id* Act 
----------------------------+
01436  M01S00873.252l678 ---|+         TVFD   12/0,EEMC+60B,EEMC,CP176

Seq #  *Modification Id* Act 
----------------------------+
01437  M01S00081.252l678 +++| +        TVFD   12/0,EEMC+60B,CP176,EEMC
01438  M00S00874.cpumtr  +++|          ELSE
01439  M00S00875.cpumtr  +++|          TVFD   12/EM
01440  M00S00876.cpumtr  +++|          ENDIF
01441  M00S00877.cpumtr  +++|          VFD    12/
01442  M00S00878.cpumtr  +++|          TVFD   18/A3
01443  M00S00879.cpumtr  +++|          VFD    18/B3
01444  M00S00880.cpumtr  +++| +        VFD    3/
01445  M00S00881.cpumtr  +++|          TVFD   21/RAX
01446  M00S00882.cpumtr  +++|          TVFD   18/A4
01447  M00S00883.cpumtr  +++|          VFD    18/B4
01448  M00S00884.cpumtr  +++| +        TVFD   24/FLX
01449  M00S00885.cpumtr  +++|          TVFD   18/A5
01450  M00S00886.cpumtr  +++|          VFD    18/B5
01451  M00S00887.cpumtr  +++| +        VFD    6/
01452  M00S00888.cpumtr  +++|          TVFD   18/MA
01453  M00S00889.cpumtr  +++|          TVFD   18/A6
01454  M00S00890.cpumtr  +++|          VFD    18/B6
01455  M00S00891.cpumtr  +++| +        VFD    6/
01456  M00S00892.cpumtr  +++|          IFC    EQ,$EA$$,2
01457  M00S00893.cpumtr  +++|          TVFD   18/0,EEAD
01458  M00S00894.cpumtr  +++|          ELSE   1
01459  M00S00895.cpumtr  +++|          TVFD   18/EA
01460  M00S00896.cpumtr  +++|          TVFD   18/A7
01461  M00S00897.cpumtr  +++|          VFD    18/B7
01462  M00S00898.cpumtr  +++|+         VFD    60/X0
01463  M00S00899.cpumtr  +++|          VFD    60/X1
01464  M00S00900.cpumtr  +++|          VFD    60/X2
01465  M00S00901.cpumtr  +++|          VFD    60/X3
01466  M00S00902.cpumtr  +++|          VFD    60/X4
01467  M00S00903.cpumtr  +++|          VFD    60/X5
01468  M00S00904.cpumtr  +++|          VFD    60/X6
01469  M00S00905.cpumtr  +++|          VFD    60/X7
01470  M00S00906.cpumtr  +++|          ENDM
01471  M00S00907.cpumtr  +++| MNR      SPACE  4
01472  M00S00908.cpumtr  +++|***       MNR - GENERATE PPU MONITOR PROGRAM MODE FUNCTION TABLE ENTRY.
01473  M00S00909.cpumtr  +++|*
01474  M00S00910.cpumtr  +++|*
01475  M00S00911.cpumtr  +++|*         MNR    FCN,A
01476  M00S00912.cpumtr  +++|*         ENTRY  *FCN* = FUNCTION CODE NAME.
01477  M00S00913.cpumtr  +++|*                *A* = ENTRY ADDRESS.
01478  M00S00914.cpumtr  +++|
01479  M00S00915.cpumtr  +++|
01480  M00S00916.cpumtr  +++|          PURGMAC  MNR
01481  M00S00917.cpumtr  +++|
01482  M00S00918.cpumtr  +++| MNR      MACRO  FCN,A

Seq #  *Modification Id* Act 
----------------------------+
01483  M01S00146.271l750 +++|          MACREF MNR
01484  M00S00919.cpumtr  +++|          LOC    FCN
01485  M00S00920.cpumtr  +++|          BSS    0
01486  M00S00921.cpumtr  +++|          ORG    TMNR+FCN
01487  M00S00922.cpumtr  +++|          VFD    42/
01488  M00S00923.cpumtr  +++|          IFC    NE,*A**
01489  M00S00924.cpumtr  +++|          TVFD   18/,A
01490  M00S00925.cpumtr  +++|          ELSE   1
01491  M00S00926.cpumtr  +++|          VFD    18//PROGRAM/.FCN
01492  M00S00927.cpumtr  +++|          USE    *
01493  M00S00928.cpumtr  +++| .FCN     BSS    0
01494  M00S00929.cpumtr  +++|          ENDM
01495  M00S00930.cpumtr  +++| PMN      SPACE  4
01496  M00S00931.cpumtr  +++|**        PMN - GENERATE PPU MONITOR FUNCTION TABLE ENTRY.
01497  M00S00932.cpumtr  +++|*
01498  M00S00933.cpumtr  +++|*
01499  M00S00934.cpumtr  +++|*         PMN    FCN,A
01500  M00S00935.cpumtr  +++|*         ENTRY  *FCN* = FUNCTION CODE NAME.
01501  M00S00936.cpumtr  +++|*                *A* = ENTRY ADDRESS.
01502  M00S00937.cpumtr  +++|
01503  M00S00938.cpumtr  +++|
01504  M00S00939.cpumtr  +++|          PURGMAC  PMN
01505  M00S00940.cpumtr  +++|
01506  M00S00941.cpumtr  +++| PMN      MACRO  FCN,A

Seq #  *Modification Id* Act 
----------------------------+
01507  M01S00147.271l750 +++|          MACREF PMN
01508  M00S00942.cpumtr  +++|          LOC    FCN
01509  M00S00943.cpumtr  +++|          BSS    0
01510  M00S00944.cpumtr  +++|          ORG    TPMN-1+FCN
01511  M00S00945.cpumtr  +++|          VFD    42/

Seq #  *Modification Id* Act 
----------------------------+
01512  M01S00946.271l750 ---|          IFC    NE,*A**

Seq #  *Modification Id* Act 
----------------------------+
01513  M01S00148.271l750 +++| .1       SET    0
01514  M01S00149.271l750 +++|          IRP    A
01515  M01S00150.271l750 +++| .1       SET    .1+1
01516  M01S00151.271l750 +++|          IRP
01517  M01S00152.271l750 +++|          IFEQ   .1,0,1
01518  M01S00153.271l750 +++|          VFD    18//MONITOR/.FCN
01519  M01S00154.271l750 +++|          IFEQ   .1,1,1
01520  M01S00155.271l750 +++|          VFD    18//MONITOR/A
01521  M01S00156.271l750 +++|          IFGT   .1,1,1
01522  M00S00947.cpumtr  +++|          TVFD   18/,A

Seq #  *Modification Id* Act 
----------------------------+
01523  M01S00948.271l750 ---|          ELSE   1
01524  M01S00949.271l750 ---|          VFD    18//MONITOR/.FCN
01525  M00S00950.cpumtr  +++|          USE    *
01526  M00S00951.cpumtr  +++| .FCN     BSS    0
01527  M00S00952.cpumtr  +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
01528  M01S00953.253l688 ---|          SPACE  4,30

Seq #  *Modification Id* Act 
----------------------------+
01529  M01S00245.253l688 +++| PPR      SPACE  4,30
01530  M00S00954.cpumtr  +++|**        PPR - GENERATE PPU REQUEST PROCESSOR TABLE ENTRY.
01531  M00S00955.cpumtr  +++|*
01532  M00S00956.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01533  M01S00957.273l780 ---|*         PPR    FCN,MON,PRG,SCP,CPA

Seq #  *Modification Id* Act 
----------------------------+
01534  M02S00958.273l780 ---|*         ENTRY  *CPA* = PERFORM FUNCTION ON SPECIFIED CP.

Seq #  *Modification Id* Act 
----------------------------+
01535  M02S00009.273l780 ---|*         ENTRY  *CPA* = PERFORM FUNCTION ON SPECIFIED CP/PCP.

Seq #  *Modification Id* Act 
----------------------------+
01536  M01S00959.273l780 ---|*                *FCN* = FUNCTION CODE NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
01537  M01S00002.273l780 +++|*         PPR    FCN,MON,PRG,SCP
01538  M01S00003.273l780 +++|*         ENTRY  *FCN* = FUNCTION CODE NUMBER.
01539  M00S00960.cpumtr  +++|*                *MON* = MONITOR MODE PROCESSOR.
01540  M00S00961.cpumtr  +++|*                *PRG* = PROGRAM MODE PROCESSOR.
01541  M00S00962.cpumtr  +++|*                *SCP* = *DCP*, DROP CPU OPERATION NEEDS ACTIVE CPU.
01542  M00S00963.cpumtr  +++|*                *SCP* = *FEX*, FAST EXIT WITHOUT FULL PARAMETER SETUP.

Seq #  *Modification Id* Act 
----------------------------+
01543  M01S00964.273l780 ---|*                   *DCP* IS IGNORED WITH THIS OPTION.

Seq #  *Modification Id* Act 
----------------------------+
01544  M01S00004.273l780 +++|*                   ACTIVE CPU CHECK IS NOT MADE WITH *FEX* OPTION.
01545  M00S00965.cpumtr  +++|*
01546  M00S00966.cpumtr  +++|*                THE *MON* AND *PRG* ADDRESSES MAY BE CONDITIONAL
01547  M00S00967.cpumtr  +++|*                VALUES THAT ARE SET DURING PRESET.  THEY ARE SPECIFIED
01548  M00S00968.cpumtr  +++|*                IDENTICALLY TO THE WAY CONDITIONAL ADDRESSES ARE
01549  M00S00969.cpumtr  +++|*                SPECIFIED IN THE CONDITIONAL JUMP MACROES.
01550  M00S00970.cpumtr  +++|*                FOR EXAMPLE THE FOLLOWING INSTRUCTION SETS THE
01551  M00S00971.cpumtr  +++|*                MONITOR MODE PROCESSOR ADDRESS TO EITHER /MMF/IAU
01552  M00S00972.cpumtr  +++|*                OR /0MMF/IAU DEPENDING ON THE PRESENCE OF MMF.
01553  M00S00973.cpumtr  +++|*
01554  M00S00974.cpumtr  +++|*         PPR    IAUM,(/MMF/IAU,/0MMF/IAU,MMF)
01555  M00S00975.cpumtr  +++|*
01556  M00S00976.cpumtr  +++|*         THE CORRECT ENTRY ADDRESS IS SET DEPENDING IN THIS CASE
01557  M00S00977.cpumtr  +++|*         UPON THE PRESENCE OF THE MMF BLOCK.
01558  M00S00978.cpumtr  +++|*
01559  M00S00979.cpumtr  +++|*         NOTE CPUMTR PROGRAM MODE FUNCTIONS MUST ALWAYS
01560  M00S00980.cpumtr  +++|*         BE PROCESSED IN THE SAME CPU, THAT IS CPU-0
01561  M00S00981.cpumtr  +++|*         IF BOTH CPU-S ARE AVAILABLE.
01562  M00S00982.cpumtr  +++|
01563  M00S00983.cpumtr  +++|
01564  M00S00984.cpumtr  +++|          PURGMAC  PPR
01565  M00S00985.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
01566  M01S00986.273l780 ---| PPR      MACRO  FCN,A,B,C,D

Seq #  *Modification Id* Act 
----------------------------+
01567  M01S00005.273l780 +++| PPR      MACRO  FCN,A,B,C

Seq #  *Modification Id* Act 
----------------------------+
01568  M01S00157.271l750 +++|          MACREF PPR
01569  M00S00987.cpumtr  +++|          LOC    FCN
01570  M00S00988.cpumtr  +++|          BSS    0
01571  M00S00989.cpumtr  +++|          IFC    NE,*B**,3
01572  M00S00990.cpumtr  +++|          IFC    NE,*C**,2
01573  M00S00991.cpumtr  +++|          IFC    NE,*C*FEX*,1
01574  M00S00992.cpumtr  +++|          ERR    PROGRAM MODE/CPU SELECTION CONFLICT
01575  M00S00993.cpumtr  +++|          ORG    TPPR+FCN-CPUM

Seq #  *Modification Id* Act 
----------------------------+
01576  M01S00994.273l780 ---| .3       SET    0
01577  M00S00995.cpumtr  +++| .2       SET    0

Seq #  *Modification Id* Act 
----------------------------+
01578  M01S00996.273l780 ---|          IFC    EQ,*C*DCP*,2

Seq #  *Modification Id* Act 
----------------------------+
01579  M01S00006.273l780 +++|          IFC    EQ,*C*FEX*,1
01580  M01S00007.273l780 +++| .2       SET    4000B
01581  M01S00008.273l780 +++|          IFC    EQ,*C*DCP*,1
01582  M00S00997.cpumtr  +++| .2       SET    2000B

Seq #  *Modification Id* Act 
----------------------------+
01583  M01S00998.273l780 ---| .3       SET    400B
01584  M01S00999.273l780 ---|          IFC    EQ,*C*FEX*,1
01585  M01S01000.273l780 ---| .3       SET    4000B
01586  M01S01001.273l780 ---|          IFC    NE,*D**,2
01587  M01S01002.273l780 ---| .2       SET    2000B
01588  M01S01003.273l780 ---| .3       SET    .3+1000B
01589  M01S01004.273l780 ---| .3       SET    .3+.2
01590  M01S01005.273l780 ---|          VFD    12/.3

Seq #  *Modification Id* Act 
----------------------------+
01591  M01S00009.273l780 +++|          VFD    12/.2
01592  M00S01006.cpumtr  +++| .1       SET    0
01593  M00S01007.cpumtr  +++|          IRP    B
01594  M00S01008.cpumtr  +++| .1       SET    .1+1
01595  M00S01009.cpumtr  +++|          IRP
01596  M00S01010.cpumtr  +++|          IFEQ   .1,0,1
01597  M00S01011.cpumtr  +++|          VFD    18//PROGRAM/HNG
01598  M00S01012.cpumtr  +++|          IFEQ   .1,1,1
01599  M00S01013.cpumtr  +++|          VFD    18//PROGRAM/B
01600  M00S01014.cpumtr  +++|          IFGT   .1,1,1
01601  M00S01015.cpumtr  +++|          TVFD   18/,B
01602  M00S01016.cpumtr  +++|          VFD    12/0
01603  M00S01017.cpumtr  +++| .1       SET    0
01604  M00S01018.cpumtr  +++|          IRP    A
01605  M00S01019.cpumtr  +++| .1       SET    .1+1
01606  M00S01020.cpumtr  +++|          IRP
01607  M00S01021.cpumtr  +++|          IFEQ   .1,0,1
01608  M00S01022.cpumtr  +++|          VFD    18//MONITOR/.FCN
01609  M00S01023.cpumtr  +++|          IFEQ   .1,1,1
01610  M00S01024.cpumtr  +++|          VFD    18//MONITOR/A
01611  M00S01025.cpumtr  +++|          IFGT   .1,1,1
01612  M00S01026.cpumtr  +++|          TVFD   18/,A
01613  M00S01027.cpumtr  +++|          USE    *
01614  M00S01028.cpumtr  +++| .FCN     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01615  M01S00246.253l688 +++| PPR      ENDM
01616  M01S00247.253l688 +++| SFMACRO  SPACE  4,25
01617  M01S00248.253l688 +++|**        SFMACRO - DEFINE THE MACRO TO BUILD A SUBFUNCTION TABLE.
01618  M01S00249.253l688 +++|*
01619  M01S00250.253l688 +++|* F       SFMACRO  PIF,OPT,BIAS
01620  M01S00251.253l688 +++|*
01621  M01S00252.253l688 +++|*         *SFMACRO* DEFINES A MACRO (NAMED BY THE *F* PARAMETER) THAT
01622  M01S00253.253l688 +++|*         WILL BUILD SUBFUNCTION TABLE ENTRIES THAT ARE PACKED TWO PER
01623  M01S00254.253l688 +++|*         WORD.  IF *PAIRED* IS SPECIFIED, THERE IS AN ENTRY FOR EVERY
01624  M01S00255.253l688 +++|*         TWO CONSECUTIVE SUBFUNCTION CODES.  EACH ENTRY CONSISTS OF AN
01625  M01S00256.253l688 +++|*         ADDRESS IN THE LOWER 18 BITS OF THE WORD AND AN OPTION CODE
01626  M01S00257.253l688 +++|*         PACKED INTO THE UPPER 12 BITS OF THE WORD.  WHEN OPTIONS ARE
01627  M01S00258.253l688 +++|*         ALLOWED, THEIR CODES AND VALUES ARE SPECIFIED BY THE *OPT*
01628  M01S00259.253l688 +++|*         PARAMETER.  THE SECOND ENTRY IS CORRECTLY POSITIONED IN THE
01629  M01S00260.253l688 +++|*         WORD.  THE FIRST ENTRY IS POSITIONED BY LEFT SHIFTING THE
01630  M01S00261.253l688 +++|*         WORD BY 30 BITS.
01631  M01S00262.253l688 +++|*
01632  M01S00263.253l688 +++|*         F = FIRST THREE CHARACTERS OF MONITOR FUNCTION NAME.
01633  M01S00264.253l688 +++|*         PIF = PAIRED/INDIVIDUAL FLAG.
01634  M01S00265.253l688 +++|*             = *INDIVIDUAL*, IF THERE IS ONE SUBFUNCTION PER ENTRY.
01635  M01S00266.253l688 +++|*             = *PAIRED*, IF THERE ARE TWO SUBFUNCTIONS PER ENTRY.
01636  M01S00267.253l688 +++|*         OPT = AN OPTIONAL LIST OF OPTIONS TO BE ALLOWED FOR EACH
01637  M01S00268.253l688 +++|*               ENTRY.  (O=X,P=Y,Q=Z,...)
01638  M01S00269.253l688 +++|*               O,P,Q = 1 OR 2 CHARACTER OPTION CODES.
01639  M01S00270.253l688 +++|*               X,Y,Z = THE VALUE TO BE USED WHEN CODE IS SPECIFIED.
01640  M01S00271.253l688 +++|*               OPTIONS ARE ADDED TOGETHER WHEN MORE THAN ONE IS USED.
01641  M01S00272.253l688 +++|*         BIAS = NUMBER OF THE FIRST SUBFUNCTION (DEFAULT = 0).
01642  M01S00273.253l688 +++|
01643  M01S00274.253l688 +++|
01644  M01S00275.253l688 +++|          PURGMAC  SFMACRO
01645  M01S00276.253l688 +++|
01646  M01S00277.253l688 +++|          MACRO  SFMACRO,F,PIF,OPT,BIAS
01647  M01S00278.253l688 +++| .A       IFC    EQ,/PIF/INDIVIDUAL/
01648  M01S00279.253l688 +++| .1       MICRO  1,,$*$      DELETE PAIRED-ONLY LINES
01649  M01S00280.253l688 +++| .A       ELSE
01650  M01S00281.253l688 +++|          IFC    NE,/PIF/PAIRED/,1
01651  M01S00282.253l688 +++|          ERR    PARAMETER MUST BE *INDIVIDUAL* OR *PAIRED*
01652  M01S00283.253l688 +++| .1       MICRO  0,,$$       INCLUDE PAIRED-ONLY LINES
01653  M01S00284.253l688 +++| .A       ENDIF
01654  M01S00285.253l688 +++| .A       IFC    EQ,/OPT//
01655  M01S00286.253l688 +++| .2       MICRO  1,,$*$      DELETE OPTION-ONLY LINES
01656  M01S00287.253l688 +++| .A       ELSE
01657  M01S00288.253l688 +++| .2       MICRO  0,,$$       INCLUDE OPTION-ONLY LINES
01658  M01S00289.253l688 +++| .A       ENDIF
01659  M01S00290.253l688 +++| F        SFMACR0  ".1",".2",OPT,BIAS
01660  M01S00291.253l688 +++|          ENDM
01661  M01S00292.253l688 +++| SFMACR0  SPACE  4,15
01662  M01S00293.253l688 +++|**        SFMACR0 - THE REAL MACRO THAT DOES THE WORK OF *SFMACRO*.
01663  M01S00294.253l688 +++|*
01664  M01S00295.253l688 +++|* F       SFMACR0  PIF,OPF,OPT,BIAS
01665  M01S00296.253l688 +++|*
01666  M01S00297.253l688 +++|*         F = FIRST THREE CHARACTERS OF MONITOR FUNCTION NAME.
01667  M01S00298.253l688 +++|*         PIF = PAIRED/INDIVIDUAL FLAG.
01668  M01S00299.253l688 +++|*             = *INDIVIDUAL*, IF THERE IS ONE SUBFUNCTION PER ENTRY.
01669  M01S00300.253l688 +++|*             = *PAIRED*, IF THERE ARE TWO SUBFUNCTIONS PER ENTRY.
01670  M01S00301.253l688 +++|*         OPF = OPTIONS FLAG.
01671  M01S00302.253l688 +++|*             = -*-, IF OPTIONS MAY BE SPECIFIED FOR THE SUBFUNCTIONS.
01672  M01S00303.253l688 +++|*             = NULL, IF OPTIONS ARE NOT USED.
01673  M01S00304.253l688 +++|*         OPT = SAME AS *SFMACRO* PARAMETER.
01674  M01S00305.253l688 +++|*         BIAS = SAME AS *SFMACRO* PARAMETER.
01675  M01S00306.253l688 +++|
01676  M01S00307.253l688 +++|
01677  M01S00308.253l688 +++|          PURGMAC  SFMACR0
01678  M01S00309.253l688 +++|
01679  M01S00310.253l688 +++|          MACRO  SFMACR0,F,PIF,OPF,OPT,BIAS
01680  M01S00311.253l688 +++| .A       IFC    EQ,/PIF/*/
01681  M01S00312.253l688 +++| .1       MICRO  0,,$$       OMIT *SF2* PARAMETER
01682  M01S00313.253l688 +++| .A       ELSE
01683  M01S00314.253l688 +++| .B       IFC    EQ,/PIF//
01684  M01S00315.253l688 +++| .1       MICRO  1,,$SF2,$   INCLUDE *SF2* PARAMETER
01685  M01S00316.253l688 +++| .B       ELSE
01686  M01S00317.253l688 +++|          ERR    PAIRED FLAG MUST BE -*- OR OMITTED
01687  M01S00318.253l688 +++| .B       ENDIF
01688  M01S00319.253l688 +++| .A       ENDIF
01689  M01S00320.253l688 +++|
01690  M01S00321.253l688 +++| .A       IFC    EQ,/OPF//
01691  M01S00322.253l688 +++| .1       MICRO  1,,$".1"OP,$  INCLUDE *OP* PARAMETER
01692  M01S00323.253l688 +++|          IRP    OPT         DEFINE OPTION CODES
01693  M01S00324.253l688 +++| .4       MICRO  1,,=OPT=    GET MNEMONIC
01694  M01S00325.253l688 +++| .4       MICCNT .4
01695  M01S00326.253l688 +++| .5       MICRO  .4+2,,$OPT$ GET VALUE
01696  M01S00327.253l688 +++| .F_M.".4" EQU    ".5"
01697  M01S00328.253l688 +++|          IRP
01698  M01S00329.253l688 +++| .A       ELSE
01699  M01S00330.253l688 +++| .B       IFC    NE,/OPF/*/
01700  M01S00331.253l688 +++|          ERR    OPTIONS FLAG MUST BE -*- OR OMITTED
01701  M01S00332.253l688 +++| .B       ENDIF
01702  M01S00333.253l688 +++| .A       ENDIF
01703  M01S00334.253l688 +++|
01704  M01S00335.253l688 +++|          PURGMAC  F
01705  M01S00336.253l688 +++|
01706  M01S00337.253l688 +++| F        MACRO  SF1,".1"BLOCK
01707  M01S00338.253l688 +++| .6       SET    SF1
01708  M01S00339.253l688 +++|PIF .6    SET    SF1/2
01709  M01S00340.253l688 +++| .7       SET    0_BIAS/2
01710  M01S00341.253l688 +++|PIF .7    SET    0_BIAS/4
01711  M01S00342.253l688 +++|          ERRNZ  T_F+.6-.6/2-.7-*O  SUBFUNCTION OUT OF ORDER
01712  M01S00343.253l688 +++| .6       MICRO  1,17,$/MONITOR/.F_M_SF1$
01713  M01S00344.253l688 +++|PIF       ERRNZ  SF1/2*2-SF1 FIRST SUBFUNCTION MUST BE EVEN
01714  M01S00345.253l688 +++|PIF       IFC    NE,/SF2//,3
01715  M01S00346.253l688 +++|PIF .7    MICRO  1,17,$/MONITOR/.F_M_SF2$
01716  M01S00347.253l688 +++|PIF       ERRNZ  SF1*1+1-SF2   SUBFUNCTIONS MUST BE CONSECUTIVE
01717  M01S00348.253l688 +++|PIF       ERRNZ  ".6"-".7"   SUBFUNCTIONS NOT DEFINED ON SAME *SUBFUN*
01718  M01S00349.253l688 +++|
01719  M01S00350.253l688 +++|          ORG    T1
01720  M01S00351.253l688 +++|          LOC    SF1
01721  M01S00352.253l688 +++|          VFD    18/".6"
01722  M01S00353.253l688 +++| .8       SET    2000B
01723  M01S00354.253l688 +++|OPF       IRP    OP
01724  M01S00355.253l688 +++|OPF .8    SET    .8+.F_M.OP  OP IS AN UNDEFINED OPTION
01725  M01S00356.253l688 +++|OPF       IRP
01726  M01S00357.253l688 +++| .C       IFEQ   .6,.6/2*2   IF FIRST ENTRY IN WORD
01727  M01S00358.253l688 +++|          ORG    T_F+.6/2-.7
01728  M01S00359.253l688 +++|          VFD    12/..SF1_NO,18/".6"
01729  M01S00360.253l688 +++| .D       IFC    NE,$BLOCK$$
01730  M01S00361.253l688 +++|          SAC    18,".6",BLOCK,/MONITOR/HNG1
01731  M01S00362.253l688 +++| .D       ENDIF
01732  M01S00363.253l688 +++|          VFD    12/.8,18/..SF1_NA
01733  M01S00364.253l688 +++| .8       MICRO  1,, ..SF1
01734  M01S00365.253l688 +++| ..SF1_NO OCTMIC 4000B
01735  M01S00366.253l688 +++| ..SF1_NA MICRO  1,,$/MONITOR/HNG1$
01736  M01S00367.253l688 +++|          RMT
01737  M01S00368.253l688 +++| ..SF1_NO EQU    "..SF1_NO"B
01738  M01S00369.253l688 +++| ..SF1_NA EQU    "..SF1_NA"
01739  M01S00370.253l688 +++|          RMT
01740  M01S00371.253l688 +++| .C       ELSE
01741  M01S00372.253l688 +++|          ORG    T_F+.6/2-.7+1
01742  M01S00373.253l688 +++| ".8"NO   OCTMIC .8
01743  M01S00374.253l688 +++| ".8"NA   MICRO  1,,$".6"$
01744  M01S00375.253l688 +++| .D       IFC    NE,$BLOCK$$
01745  M01S00376.253l688 +++|          SAC    18,".6",BLOCK,/MONITOR/HNG1
01746  M01S00377.253l688 +++| .D       ENDIF
01747  M01S00378.253l688 +++| .C       ENDIF
01748  M01S00379.253l688 +++|          ENDM
01749  M01S00380.253l688 +++| SFMACRO  ENDM
01750  M01S00381.253l688 +++| SUBFUN   SPACE  4,15
01751  M01S00382.253l688 +++|**        SUBFUN - DEFINE SUBFUNCTION PROCESSOR.
01752  M01S00383.253l688 +++|*
01753  M01S00384.253l688 +++|* SFA     SUBFUN FNC,(SFN)
01754  M01S00385.253l688 +++|*         ENTRY  SFA = SUBFUNCTION PROCESSOR ENTRY NAME.
01755  M01S00386.253l688 +++|*                FNC = FUNCTION NAME.
01756  M01S00387.253l688 +++|*                SFN = ONE OR MORE SUBFUNCTION NAMES.
01757  M01S00388.253l688 +++|*
01758  M01S00389.253l688 +++|*         THIS MACRO DEFINES A SYMBOL, QUALIFIED BY *MONITOR*, FOR EACH
01759  M01S00390.253l688 +++|*         SUBFUNCTION IN THE LIST.  THE SYMBOL NAME IS *.FNCSFN*,
01760  M01S00391.253l688 +++|*         TRUNCATED TO 8 CHARACTERS.  IT IS SET TO THE ADDRESS OF THE
01761  M01S00392.253l688 +++|*         PROCESSOR.
01762  M01S00393.253l688 +++|
01763  M01S00394.253l688 +++|
01764  M01S00395.253l688 +++|          PURGMAC  SUBFUN
01765  M01S00396.253l688 +++|
01766  M01S00397.253l688 +++|          MACRO  SUBFUN,SFA,FNC,SFN
01767  M01S00398.253l688 +++| SFA      BSS    0
01768  M01S00399.253l688 +++|          QUAL   MONITOR
01769  M01S00400.253l688 +++|          IRP    SFN
01770  M01S00401.253l688 +++| .1       MICRO  1,8,$.FNC_SFN$
01771  M01S00402.253l688 +++| ".1"     BSS    0
01772  M01S00403.253l688 +++|          IRP
01773  M01S00404.253l688 +++|          QUAL   *
01774  M00S01029.cpumtr  +++|          ENDM
01775  M00S01030.cpumtr  +++| RUE      SPACE  4,10
01776  M00S01031.cpumtr  +++|**        RUE - READ USER ECS.
01777  M00S01032.cpumtr  +++|*
01778  M00S01033.cpumtr  +++|*         RUE    MODE
01779  M00S01034.cpumtr  +++|*
01780  M00S01035.cpumtr  +++|*         ENTRY  *MODE* = *MONITOR* IF CALLED FROM MONITOR MODE,
01781  M00S01036.cpumtr  +++|*                OTHERWISE CALLED FROM PROGRAM MODE.
01782  M00S01037.cpumtr  +++|*                (A0) = CM ADDRESS.
01783  M00S01038.cpumtr  +++|*                (B4) = WORD COUNT TO READ FROM USER ECS.
01784  M00S01039.cpumtr  +++|*                (B6) = RETURN ADDRESS.
01785  M00S01040.cpumtr  +++|*                (X0) = 30/ CM ADDRESS, 30/ ECS ADDRESS.
01786  M00S01041.cpumtr  +++|*
01787  M00S01042.cpumtr  +++|*         USES   A - 2, 3, 6, 7, IF */SUE/RUM* ROUTINE CALLED.
01788  M00S01043.cpumtr  +++|*
01789  M00S01044.cpumtr  +++|*         CALLS  /SUE/RUM, IF SIMULTANEOUS UEM/ESM DEFINED.
01790  M00S01045.cpumtr  +++|
01791  M00S01046.cpumtr  +++|
01792  M00S01047.cpumtr  +++| RUE      MACRO  MODE

Seq #  *Modification Id* Act 
----------------------------+
01793  M01S01048.253l688 ---|+         VFD    12/0

Seq #  *Modification Id* Act 
----------------------------+
01794  M01S00405.253l688 +++|          LOCAL  S
01795  M01S00406.253l688 +++|+         VFD    12/0400B

Seq #  *Modification Id* Act 
----------------------------+
01796  M01S01049.252l678 ---|          SAC    12,0400B,0114B,SUE

Seq #  *Modification Id* Act 
----------------------------+
01797  M01S00082.252l678 +++|          SAC    12,0400B,SUE,0114B

Seq #  *Modification Id* Act 
----------------------------+
01798  M01S01050.253l688 ---|          VFD    18/0

Seq #  *Modification Id* Act 
----------------------------+
01799  M01S00407.253l688 +++|          VFD    18/S
01800  M00S01051.cpumtr  +++| .A       IFC    EQ,*MODE*MONITOR*

Seq #  *Modification Id* Act 
----------------------------+
01801  M01S01052.252l678 ---|          SAC    18,/SUE/RUM1,000000B,SUE

Seq #  *Modification Id* Act 
----------------------------+
01802  M02S00083.253l688 ---|          SAC    18,/SUE/RUM1,SUE,000000B

Seq #  *Modification Id* Act 
----------------------------+
01803  M01S00408.253l688 +++| S        SAC    18,/SUE/RUM1,SUE,000000B
01804  M00S01053.cpumtr  +++| .A       ELSE

Seq #  *Modification Id* Act 
----------------------------+
01805  M01S01054.252l678 ---|          SAC    18,/SUE/RUM,000000B,SUE

Seq #  *Modification Id* Act 
----------------------------+
01806  M02S00084.253l688 ---|          SAC    18,/SUE/RUM,SUE,000000B

Seq #  *Modification Id* Act 
----------------------------+
01807  M01S00409.253l688 +++| S        SAC    18,/SUE/RUM,SUE,000000B
01808  M00S01055.cpumtr  +++| .A       ENDIF
01809  M00S01056.cpumtr  +++|          ENDM
01810  M00S01057.cpumtr  +++| WUE      SPACE  4,10
01811  M00S01058.cpumtr  +++|**        WUE - WRITE USER ECS.
01812  M00S01059.cpumtr  +++|*
01813  M00S01060.cpumtr  +++|*         WUE    MODE
01814  M00S01061.cpumtr  +++|*
01815  M00S01062.cpumtr  +++|*         ENTRY  *MODE* = *MONITOR* IF CALLED FROM MONITOR MODE,
01816  M00S01063.cpumtr  +++|*                OTHERWISE CALLED FROM PROGRAM MODE.
01817  M00S01064.cpumtr  +++|*                (A0) = CM ADDRESS.
01818  M00S01065.cpumtr  +++|*                (B4) = WORD COUNT TO WRITE TO USER ECS.
01819  M00S01066.cpumtr  +++|*                (B6) = RETURN ADDRESS.
01820  M00S01067.cpumtr  +++|*                (X0) = 30/ CM ADDRESS, 30/ ECS ADDRESS.
01821  M00S01068.cpumtr  +++|*
01822  M00S01069.cpumtr  +++|*         USES   A - 2, 3, 6, 7, IF */SUE/WUM* ROUTINE CALLED.
01823  M00S01070.cpumtr  +++|*
01824  M00S01071.cpumtr  +++|*         CALLS  /SUE/WUM, IF SIMULTANEOUS UEM/ESM DEFINED.
01825  M00S01072.cpumtr  +++|
01826  M00S01073.cpumtr  +++|
01827  M00S01074.cpumtr  +++| WUE      MACRO  MODE

Seq #  *Modification Id* Act 
----------------------------+
01828  M01S01075.253l688 ---|+         VFD    12/0

Seq #  *Modification Id* Act 
----------------------------+
01829  M01S00410.253l688 +++|          LOCAL  S
01830  M01S00411.253l688 +++|+         VFD    12/0400B

Seq #  *Modification Id* Act 
----------------------------+
01831  M01S01076.252l678 ---|          SAC    12,0400B,0124B,SUE

Seq #  *Modification Id* Act 
----------------------------+
01832  M01S00085.252l678 +++|          SAC    12,0400B,SUE,0124B

Seq #  *Modification Id* Act 
----------------------------+
01833  M01S01077.253l688 ---|          VFD    18/0

Seq #  *Modification Id* Act 
----------------------------+
01834  M01S00412.253l688 +++|          VFD    18/S
01835  M00S01078.cpumtr  +++| .A       IFC    EQ,*MODE*MONITOR*

Seq #  *Modification Id* Act 
----------------------------+
01836  M01S01079.252l678 ---|          SAC    18,/SUE/WUM1,000000B,SUE

Seq #  *Modification Id* Act 
----------------------------+
01837  M02S00086.253l688 ---|          SAC    18,/SUE/WUM1,SUE,000000B

Seq #  *Modification Id* Act 
----------------------------+
01838  M01S00413.253l688 +++| S        SAC    18,/SUE/WUM1,SUE,000000B
01839  M00S01080.cpumtr  +++| .A       ELSE

Seq #  *Modification Id* Act 
----------------------------+
01840  M01S01081.252l678 ---|          SAC    18,/SUE/WUM,000000B,SUE

Seq #  *Modification Id* Act 
----------------------------+
01841  M02S00087.253l688 ---|          SAC    18,/SUE/WUM,SUE,000000B

Seq #  *Modification Id* Act 
----------------------------+
01842  M01S00414.253l688 +++| S        SAC    18,/SUE/WUM,SUE,000000B
01843  M00S01082.cpumtr  +++| .A       ENDIF
01844  M00S01083.cpumtr  +++|          ENDM
01845  M00S01084.cpumtr  +++|          SPACE  4,10
01846  M00S01085.cpumtr  +++|*         DEFINE *QUAL* ORDER IN CROSS REFERENCE.
01847  M00S01086.cpumtr  +++|
01848  M00S01087.cpumtr  +++|          QUAL   MONITOR
01849  M00S01088.cpumtr  +++|          QUAL   PROGRAM
01850  M00S01089.cpumtr  +++|          QUAL   PRESET
01851  M00S01090.cpumtr  +++|          QUAL
01852  M00S01091.cpumtr  +++|          TITLE  TABLES.
01853  M00S01092.cpumtr  +++| TMNR     SPACE  4,10
01854  M00S01093.cpumtr  +++|**        NOTE - THE FOLLOWING TABLES *TMNR*, *TPMN*, AND *TPPR*
01855  M00S01094.cpumtr  +++|*         MUST BE CONTIGOUS AND THE UPPER FOUR BITS OF THE ENTRIES
01856  M00S01095.cpumtr  +++|*         IN THE FIRST TWO TABLES MUST BE 0 DUE TO CODE IN ROUTINE
01857  M00S01096.cpumtr  +++|*         */MONITOR/PPR*.
01858  M00S01097.cpumtr  +++|
01859  M00S01098.cpumtr  +++|
01860  M00S01099.cpumtr  +++|**        TMNR - TABLE OF *MTR* PROGRAM MODE REQUEST PROCESSORS.
01861  M00S01100.cpumtr  +++|*         ENTRY  1 WORD.
01862  M00S01101.cpumtr  +++|*
01863  M00S01102.cpumtr  +++|*         INDEXED BY *MTR* PROGRAM MODE FUNCTION.
01864  M00S01103.cpumtr  +++|*
01865  M00S01104.cpumtr  +++|*T        4/0,38/,18/  ADDR

Figure

01866  M00S01105.cpumtr  +++|*
01867  M00S01106.cpumtr  +++|*         ADDR   ADDRESS OF PROCESSOR.
01868  M00S01107.cpumtr  +++|
01869  M00S01108.cpumtr  +++|
01870  M00S01109.cpumtr  +++|          QUAL   PROGRAM
01871  M00S01110.cpumtr  +++|          USE    TMNR
01872  M00S01111.cpumtr  +++| TMNR     BSS    0
01873  M00S01112.cpumtr  +++|          DUP    PMXF,1
01874  M00S01113.cpumtr  +++|          VFD    42/0,18//PROGRAM/HNG
01875  M00S01114.cpumtr  +++|
01876  M00S01115.cpumtr  +++|          USE    *
01877  M00S01116.cpumtr  +++|          QUAL   *
01878  M00S01117.cpumtr  +++| TPMN     SPACE  4,10
01879  M00S01118.cpumtr  +++|**        TPMN - PPU MONITOR REQUESTS.
01880  M00S01119.cpumtr  +++|*         ENTRY = 1 WORD.
01881  M00S01120.cpumtr  +++|*
01882  M00S01121.cpumtr  +++|*         INDEXED BY PPU MONITOR FUNCTION.
01883  M00S01122.cpumtr  +++|*
01884  M00S01123.cpumtr  +++|*T        4/0,38/,18/  ADDR

Figure

01885  M00S01124.cpumtr  +++|*
01886  M00S01125.cpumtr  +++|*         ADDR   ADDRESS OF PROCESSOR.
01887  M00S01126.cpumtr  +++|
01888  M00S01127.cpumtr  +++|
01889  M00S01128.cpumtr  +++|          USE    TPMN
01890  M00S01129.cpumtr  +++| TPMN     BSS    0
01891  M00S01130.cpumtr  +++|          DUP    MXPF-1,1
01892  M00S01131.cpumtr  +++|          VFD    42/0,18//MONITOR/HNG
01893  M00S01132.cpumtr  +++|
01894  M00S01133.cpumtr  +++|          USE    *
01895  M00S01134.cpumtr  +++| TPPR     SPACE  4,10
01896  M00S01135.cpumtr  +++|**        TPPR - PPU REQUEST TABLE.
01897  M00S01136.cpumtr  +++|*         ENTRY = 1 WORD.
01898  M00S01137.cpumtr  +++|*
01899  M00S01138.cpumtr  +++|*         INDEXED BY MONITOR FUNCTION.
01900  M00S01139.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01901  M01S01140.273l780 ---|*T        4/  S,8/,18/  PRG,12/,18/  MTR

Figure

Seq #  *Modification Id* Act 
----------------------------+
01902  M01S00010.273l780 +++|*T        1/F,1/D,10/,18/  PRG,12/,18/  MTR

Figure

01903  M00S01141.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01904  M01S01142.273l780 ---|*         S      FUNCTION OPTION SELECTION BITS.

Seq #  *Modification Id* Act 
----------------------------+
01905  M01S00011.273l780 +++|*         F      *SCP* = *FEX* SPECIFIED.
01906  M01S00012.273l780 +++|*         D      *SCP* = *DCP* SPECIFIED.
01907  M00S01143.cpumtr  +++|*         PRG    PROGRAM MODE PROCESSOR ADDRESS.
01908  M00S01144.cpumtr  +++|*         MTR    MONITOR MODE PROCESSOR ADDRESS.
01909  M00S01145.cpumtr  +++|
01910  M00S01146.cpumtr  +++|
01911  M00S01147.cpumtr  +++|          USE    TPPR

Seq #  *Modification Id* Act 
----------------------------+
01912  M01S01148.cpum187 ---|          DUP    CPUM-MXPF+1-PMXF+1,1

Seq #  *Modification Id* Act 
----------------------------+
01913  M01S00001.cpum187 +++| .1       SET    CPUM-MXPF+1-PMXF
01914  M01S00002.cpum187 +++|          IFGT   .1,0,2
01915  M01S00003.cpum187 +++|          DUP    .1,1
01916  M00S01149.cpumtr  +++|          VFD    42/0,18//MONITOR/HNG
01917  M00S01150.cpumtr  +++| TPPR     BSS    0
01918  M00S01151.cpumtr  +++|          DUP    MXFM-CPUM,1
01919  M00S01152.cpumtr  +++|          VFD    42/0,18//MONITOR/HNG
01920  M00S01153.cpumtr  +++|
01921  M00S01154.cpumtr  +++| TPPRL    BSS    0
01922  M00S01155.cpumtr  +++|          USE    *
01923  M00S01156.cpumtr  +++| TREL     SPACE  4,10
01924  M00S01157.cpumtr  +++|**        THE FOLLOWING DECLARATIONS ESTABLISH THE *TREL* USE BLOCK
01925  M00S01158.cpumtr  +++|*         FOR THE *SAC* MACRO.  *CPUMLD* LOADS THIS BLOCK (FOLLOWED
01926  M00S01159.cpumtr  +++|*         BY THE *TBLK* BLOCK) AFTER ALL OTHER BLOCKS THAT ARE
01927  M00S01160.cpumtr  +++|*         INCLUDED IN THE LOAD.
01928  M00S01161.cpumtr  +++|
01929  M00S01162.cpumtr  +++|
01930  M00S01163.cpumtr  +++|          QUAL   PRESET
01931  M00S01164.cpumtr  +++|          USE    /TREL/
01932  M00S01165.cpumtr  +++| REL      BSS    0
01933  M00S01166.cpumtr  +++|          USE    *
01934  M00S01167.cpumtr  +++|          QUAL   *
01935  M00S01168.cpumtr  +++| TJMP     SPACE  4,10
01936  M00S01169.cpumtr  +++|**        ESTABLISH *TJMP* BLOCK
01937  M00S01170.cpumtr  +++|
01938  M00S01171.cpumtr  +++|
01939  M00S01172.cpumtr  +++|          QUAL   PRESET
01940  M00S01173.cpumtr  +++|          USE    /TJMP/
01941  M00S01174.cpumtr  +++| TJMP     BSS    0
01942  M00S01175.cpumtr  +++|          USE    *
01943  M00S01176.cpumtr  +++|          QUAL   *
01944  M00S01177.cpumtr  +++|          TITLE  DATA.
01945  M00S01178.cpumtr  +++| DATA     SPACE  4
01946  M00S01179.cpumtr  +++| ORG      BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01947  M01S00158.271l750 +++| DATA     SPACE  4
01948  M01S00159.271l750 +++|**        *CPUMTR* LOW MEMORY LOCATIONS.
01949  M01S00160.271l750 +++|
01950  M01S00161.271l750 +++|
01951  M01S00162.271l750 +++| CL       BSS    0
01952  M01S00163.271l750 +++|
01953  M01S00164.271l750 +++|          ORG    CL+CBLP     LOADED BLOCK TABLE POINTER
01954  M01S00165.271l750 +++|
01955  M01S00166.271l750 +++|          VFD    42/0,18//MONITOR/LBAT
01956  M01S00167.271l750 +++|
01957  M01S00168.271l750 +++|          ORG    CL+CSXP     SYSTEM CP EXCHANGE PACKAGE TABLE ADDRESS
01958  M01S00169.271l750 +++|
01959  M01S00170.271l750 +++|          VFD    42/0,18//MONITOR/MNRA
01960  M01S00171.271l750 +++|
01961  M01S00172.271l750 +++|          ORG    CL+CXBP     *EXPACS* BLOCK POINTER
01962  M01S00173.271l750 +++|
01963  M01S00174.271l750 +++|          VFD    42/0,18//MONITOR/MXP
01964  M01S00175.271l750 +++|
01965  M01S00176.271l750 +++|          ORG    CL+CFPP     FAST PP LOADER TABLE POINTERS
01966  M01S00177.271l750 +++|
01967  M01S00178.271l750 +++|          VFD    24/0,6//MONITOR/TPPIL,6//MONITOR/TFPLL,6/0,18//MONITOR/
01968  M01S00179.271l750 +++|,TFPL
01969  M01S00180.271l750 +++|
01970  M01S00181.271l750 +++|          ORG    CL+CMST     MONITOR MODE STATUS BY CPU
01971  M01S00182.271l750 +++|
01972  M01S00183.271l750 +++|          VFD    60/0
01973  M01S00184.271l750 +++|          VFD    60/0
01974  M01S00185.271l750 +++|
01975  M01S00186.271l750 +++|          ORG    CL+CPBT     PROGRAM MODE BASE TIME BY CPU
01976  M01S00187.271l750 +++|
01977  M01S00188.271l750 +++|          CON    0
01978  M01S00189.271l750 +++|          CON    0
01979  M01S00190.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
01980  M01S00013.273l780 +++|          ORG    CL+CACX     ALTERNATE CPU EXCHANGE REQUESTS BY CPU
01981  M01S00014.273l780 +++|
01982  M01S00015.273l780 +++|          CON    0
01983  M01S00016.273l780 +++|          CON    0
01984  M01S00017.273l780 +++|

Seq #  *Modification Id* Act 
----------------------------+
01985  M01S00191.271l750 +++|          ORG    CL+CMTLL
01986  M01S00192.271l750 +++|
01987  M00S01180.cpumtr  +++|          QUAL   MONITOR

Seq #  *Modification Id* Act 
----------------------------+
01988  M01S01181.271l750 ---| DATA     SPACE  4
01989  M01S01182.271l750 ---|**        DATA.
01990  M01S01183.271l750 ---| DSDI     SPACE  4,10
01991  M01S01184.271l750 ---|**        DSDI - DSDI DUMP POINTER WORD.
01992  M01S01185.271l750 ---|*         MUST BE FIRST WORD OF *CPUMTR*.
01993  M01S01186.271l750 ---|*         SET FOR *DSDI* SO THAT IT CAN LOCATE THE EXCHANGE
01994  M01S01187.271l750 ---|*         PACKAGES FOR ALL PP-S AND BOTH CPU-S.
01995  M01S01188.271l750 ---|
01996  M01S01189.271l750 ---|
01997  M01S01190.271l750 ---| DSDI     VFD    30//DCP/IXP1  CPU-1 IDLE EXCHANGE PACKAGE
01998  M01S01191.271l750 ---|          VFD    30//MONITOR/MXP  *MTR*-S PP EXCHANGE PACKAGE
01999  M01S01192.271l750 ---|
02000  M01S01193.271l750 ---|*         ERRNZ  DSDI

Seq #  *Modification Id* Act 
----------------------------+
02001  M02S00013.271l750 ---| ST       SPACE  4
02002  M02S00014.271l750 ---|**        ST - CPU START TIMES.
02003  M02S00015.271l750 ---|*
02004  M02S00016.271l750 ---|*         THE START TIME OF EACH CPU IS UPDATED EACH TIME THAT THE
02005  M02S00017.271l750 ---|*         CPU JOB TIME IS UPDATED.
02006  M02S00018.271l750 ---|*
02007  M02S00019.271l750 ---|*         INDEXED BY CPU NUMBER.
02008  M02S00020.271l750 ---|
02009  M02S00021.271l750 ---| ST       CON    0,0         CPU START TIMES
02010  M02S00022.271l750 ---|
02011  M02S00023.271l750 ---|          ERRNZ  ST-DSDI-1   *1MA* ASSUMES *ST* IS AT CPUMTR+1

Seq #  *Modification Id* Act 
----------------------------+
02012  M02S00001.271l750 ---| LBAT     SPACE  4,10
02013  M02S00002.271l750 ---|**        LBAT - LOADED *CPUMTR* BLOCK TABLE POINTER.
02014  M02S00003.271l750 ---|
02015  M02S00004.271l750 ---|

Seq #  *Modification Id* Act 
----------------------------+
02016  M03S00005.271l750 ---|          CON    LBAT        LOADED *CPUMTR* BLOCK ADDRESS TABLE

Seq #  *Modification Id* Act 
----------------------------+
02017  M02S00415.271l750 ---| BL       CON    LBAT        LOADED *CPUMTR* BLOCK ADDRESS TABLE
02018  M02S00416.271l750 ---|
02019  M02S00417.271l750 ---|          ERRNZ  BL-DSDI-BLTP  CHANGE *COMSMSC* IF TEST FAILS

Seq #  *Modification Id* Act 
----------------------------+
02020  M02S00001.251l664 ---| ST       SPACE  4
02021  M02S00002.251l664 ---|**        ST - CPU START TIMES.
02022  M02S00003.251l664 ---|*         THE STARTING TIMES OF EACH CPU ARE UPDATED EACH TIME
02023  M02S00004.251l664 ---|*         THAT THE CPU JOB TIME IS UPDATED.
02024  M02S00005.251l664 ---|*         INDEXED BY CPU NUMBER.
02025  M02S00006.251l664 ---|
02026  M02S00007.251l664 ---| ST       CON    0,0         CPU START TIMES
02027  M02S00008.251l664 ---|
02028  M02S00009.251l664 ---|          ERRNZ  ST-DSDI-1   *1MA* ASSUMES *ST* IS AT CPUMTR+1
02029  M00S01194.cpumtr  +++| PX       SPACE  4
02030  M00S01195.cpumtr  +++|**        PX - PROGRAM MODE EXIT REQUEST.
02031  M00S01196.cpumtr  +++|*         (PX) IS SET FOR IN THE FOLLOWING CASES.
02032  M00S01197.cpumtr  +++|*         (PX) = 1 INDICATES THAT PROGRAM MODE MONITOR IS COMPLETE.
02033  M00S01198.cpumtr  +++|*         (PX) = -1 INDICATES A PP IS REQUESTED BY PROGRAM MODE MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
02034  M01S00418.253l688 +++|*         (PX) = -2 INDICATES AN *MTR*-LIKE FUNCTION IS REQUESTED BY
02035  M01S00419.253l688 +++|*                PROGRAM MODE MONITOR.  (SEE *PMN*.)
02036  M00S01199.cpumtr  +++|
02037  M00S01200.cpumtr  +++|
02038  M00S01201.cpumtr  +++| PX       CON    0           PROGRAM MODE EXIT REQUEST
02039  M00S01202.cpumtr  +++| PR       SPACE  4
02040  M00S01203.cpumtr  +++|**        PR - PROGRAM MODE REQUESTS.
02041  M00S01204.cpumtr  +++|*         (PR) CONTAINS A STACK OF REQUESTS FOR PROGRAM MODE
02042  M00S01205.cpumtr  +++|*         EXECUTION.
02043  M00S01206.cpumtr  +++|*
02044  M00S01207.cpumtr  +++|*T, PR    1/,11/  MF,20/  PF,1/  PS,27/

Figure PR

02045  M00S01208.cpumtr  +++|*         MF     *MTR* PROGRAM MODE REQUESTS.
02046  M00S01209.cpumtr  +++|*         PF     PP PROGRAM MODE REQUESTS.
02047  M00S01210.cpumtr  +++|*         PS     PSEUDO-PP REQUEST.
02048  M00S01211.cpumtr  +++|
02049  M00S01212.cpumtr  +++|
02050  M00S01213.cpumtr  +++| PR       CON    0
02051  M00S01214.cpumtr  +++| SMPR     SPACE  4,10
02052  M00S01215.cpumtr  +++|**        SMPR - STORAGE MOVE PROGRAM REQUEST.
02053  M00S01216.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02054  M01S01217.271l716 ---|*         THIS WORD CONTAINS THE REQUEST FOR THE STORAGE MOVE

Seq #  *Modification Id* Act 
----------------------------+
02055  M01S00010.271l716 +++|*         WORD *SMPR* CONTAINS THE REQUEST FOR THE STORAGE MOVE
02056  M00S01218.cpumtr  +++|*         (PROGRAM MODE) EXCHANGE PACKAGE.  IT WILL CONTAIN EITHER
02057  M00S01219.cpumtr  +++|*         *MSTF*+1 OR *MECF*+1, DEPENDING ON WHETHER THE CURRENT
02058  M00S01220.cpumtr  +++|*         STORAGE MOVE REQUEST IS FOR CM OR ECS/ESM/UEM.  IF NO
02059  M00S01221.cpumtr  +++|*         REQUESTS ARE PENDING OR IN PROGRESS, THIS WORD WILL BE
02060  M00S01222.cpumtr  +++|*         ZERO.  NOTE THAT THIS MECHANISM CANNOT STACK REQUESTS.
02061  M00S01223.cpumtr  +++|
02062  M00S01224.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02063  M01S01225.271l716 ---| SMPR     CON    0

Seq #  *Modification Id* Act 
----------------------------+
02064  M01S00011.271l716 +++| SMPR     CON    0,0
02065  M01S00012.271l716 +++| SMIN     EQU    SMPR+1      STORAGE MOVE INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
02066  M01S01226.ns2418  ---| ST       SPACE  4
02067  M01S01227.ns2418  ---|**        ST - CPU START TIMES.
02068  M01S01228.ns2418  ---|*         THE STARTING TIMES OF EACH CPU ARE UPDATED EACH TIME
02069  M01S01229.ns2418  ---|*         THAT THE CPU JOB TIME IS UPDATED
02070  M01S01230.ns2418  ---|*         INDEXED BY CPU NUMBER.
02071  M01S01231.ns2418  ---|
02072  M01S01232.ns2418  ---| ST       CON    0,0         CPU START TIMES

Seq #  *Modification Id* Act 
----------------------------+
02073  M02S01233.ns2418  ---| NP       SPACE  4
02074  M02S01234.ns2418  ---|**        NP - NEXT AVAILABLE PPU.
02075  M02S01235.ns2418  ---|*         THE INPUT REGISTERS OF ALL AVAILABLE PPU,S ARE LINKED.
02076  M02S01236.ns2418  ---|*         TOGETHER TO PROVIDE A STACK FOR REQUESTS FOR PPU JOBS.
02077  M02S01237.ns2418  ---|*         THE START OF THE STACK IS CONTAINED IN (NP).  THE END OF
02078  M02S01238.ns2418  ---|*         THE STACK IS DENOTED BY A ZERO ADDRESS.  WHEN A PPU IS
02079  M02S01239.ns2418  ---|*         ASSIGNED, THE CONTENTS OF ITS INPUT REGISTER ARE PLACED
02080  M02S01240.ns2418  ---|*         IN (NP).  WHEN A PPU IS DROPPED, (NP) ARE STORED IN ITS
02081  M02S01241.ns2418  ---|*         INPUT REGISTER AND THE INPUT REGISTER ADDRESS ARE PLACED IN
02082  M02S01242.ns2418  ---|*         (NP).
02083  M02S01243.ns2418  ---|
02084  M02S01244.ns2418  ---|
02085  M02S01245.ns2418  ---| NP       EQU    PPAL        ADDRESS OF NEXT AVAILABLE PP

Seq #  *Modification Id* Act 
----------------------------+
02086  M01S01246.ns2418  ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
02087  M01S00010.ns2418  +++| DD       SPACE  4,10
02088  M00S01247.cpumtr  +++|**        DD - INPUT REGISTER FOR DAYFILE DUMP PROCESSOR.
02089  M00S01248.cpumtr  +++|
02090  M00S01249.cpumtr  +++|
02091  M00S01250.cpumtr  +++| DD       VFD    18/3L1DD,42/0
02092  M00S01251.cpumtr  +++| MP       SPACE  4
02093  M00S01252.cpumtr  +++|**        MP - INPUT REGISTER FOR MONITOR AUXILLARY PROCESSOR.
02094  M00S01253.cpumtr  +++|*         USED FOR ASSIGNING THE MONITOR AUXILLARY PROCESSOR TO
02095  M00S01254.cpumtr  +++|*         PROCESS REQUESTS FOR STORAGE INCREASES.
02096  M00S01255.cpumtr  +++|
02097  M00S01256.cpumtr  +++|
02098  M00S01257.cpumtr  +++| MP       VFD    18/0L1MA,3/2,39/0

Seq #  *Modification Id* Act 
----------------------------+
02099  M02S00001.271l750 ---| MS       SPACE  4,10
02100  M02S00002.271l750 ---|**        MS = MONITOR MODE START TIME ON 180 SERIES MACHINES.

Seq #  *Modification Id* Act 
----------------------------+
02101  M01S00193.271l750 +++| MT       SPACE  4,10
02102  M01S00194.271l750 +++|**        MT - MONITOR MODE TIME. (180 MACHINES).

Seq #  *Modification Id* Act 
----------------------------+
02103  M01S00003.ns2443  +++|
02104  M01S00004.ns2443  +++|

Seq #  *Modification Id* Act 
----------------------------+
02105  M02S00005.271l750 ---| MS       CON    0           MONITOR START TIME
02106  M02S00006.271l750 ---| MT       CON    0           MONITOR TIME ADJUSTMENT
02107  M02S00007.271l750 ---| BN       CON    0           ACCOUNTING TIME ADJUSTMENT

Seq #  *Modification Id* Act 
----------------------------+
02108  M01S00195.271l750 +++| MT       CON    0,0         MONITOR MODE TIME BY CPU
02109  M01S00196.271l750 +++| SA       SPACE  4,10
02110  M01S00197.271l750 +++|**        SA - CPU SLICE TIME ACCUMULATED SINCE CPU SWITCH.
02111  M01S00198.271l750 +++|
02112  M01S00199.271l750 +++|
02113  M01S00200.271l750 +++| SA       CON    0,0         SLICE TIME ACCUMULATED BY CPU
02114  M00S01258.cpumtr  +++|          SPACE  4
02115  M00S01259.cpumtr  +++|**        RC - RA+1 AUTO RECALL REQUEST.
02116  M00S01260.cpumtr  +++|
02117  M00S01261.cpumtr  +++|
02118  M00S01262.cpumtr  +++| RC       VFD    24/0LRCLP,36/0
02119  M00S01263.cpumtr  +++| AM       SPACE  4,10
02120  M00S01264.cpumtr  +++|**        AM - ACTIVITY MASK FOR PP-S AND TAPE.
02121  M00S01265.cpumtr  +++|
02122  M00S01266.cpumtr  +++|
02123  M00S01267.cpumtr  +++| AM       CON    00370000000000007760B
02124  M00S01268.cpumtr  +++|          SPACE  4,10
02125  M00S01269.cpumtr  +++|**        IP - INCREASE PRIORITY ON I/O COMPLETION.
02126  M00S01270.cpumtr  +++|*
02127  M00S01271.cpumtr  +++|*         IP = 20, GIVES NEXT JOB STARTED EXTRA PRIORITY OVER
02128  M00S01272.cpumtr  +++|*                  EQUAL PRIORITY JOB. THIS IS SET BY
02129  M00S01273.cpumtr  +++|*                  *DPPM* AND *RCLM* FUNCTIONS.
02130  M00S01274.cpumtr  +++|*
02131  M00S01275.cpumtr  +++|*         IP = 0, NO CHANGE IN PRIORITY.
02132  M00S01276.cpumtr  +++|
02133  M00S01277.cpumtr  +++|
02134  M00S01278.cpumtr  +++| IP       CON    0

Seq #  *Modification Id* Act 
----------------------------+
02135  M01S00201.271l750 +++|          SPACE  4
02136  M01S00202.271l750 +++|**        WT - *WQ* TERMINATOR.
02137  M01S00203.271l750 +++|*
02138  M01S00204.271l750 +++|*         THE LAST ENTRY IN *WQ* POINTS TO THIS LOCATION.
02139  M01S00205.271l750 +++|
02140  M01S00206.271l750 +++|
02141  M01S00207.271l750 +++| WT       VFD    12/2000B,48/0
02142  M01S00208.271l750 +++| TPRC     SPACE  4,10
02143  M01S00209.271l750 +++|**        PRIORITY CONTROL TABLE.
02144  M01S00210.271l750 +++|
02145  M01S00211.271l750 +++|
02146  M01S00212.271l750 +++| TPRC     BSS    0
02147  M01S00213.271l750 +++|          DUP    MPRS+1,1
02148  M01S00214.271l750 +++|          CON    0
02149  M00S01279.cpumtr  +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
02150  M01S01280.ns2418  ---|**        THE FOLLOWING ARE USED FOR TEMPORARY STORAGE

Seq #  *Modification Id* Act 
----------------------------+
02151  M01S00011.ns2418  +++|**        THE FOLLOWING ARE USED FOR TEMPORARY STORAGE.
02152  M00S01281.cpumtr  +++|
02153  M00S01282.cpumtr  +++|          QUAL   MONITOR
02154  M00S01283.cpumtr  +++| RA       BSS    1           ADDRESS OF RA
02155  M00S01284.cpumtr  +++| RA1      BSS    1           ADDRESS OF RA+1
02156  M00S01285.cpumtr  +++|          ERRNZ  RA1-RA-1
02157  M00S01286.cpumtr  +++|
02158  M00S01287.cpumtr  +++| T1       BSS    1
02159  M00S01288.cpumtr  +++| T2       BSS    1
02160  M00S01289.cpumtr  +++| T3       BSS    1
02161  M00S01290.cpumtr  +++|          QUAL   *
02162  M00S01291.cpumtr  +++|          SPACE  4
02163  M00S01292.cpumtr  +++|****      THE FOLLOWING ARE CONSTANTS.
02164  M00S01293.cpumtr  +++|
02165  M00S01294.cpumtr  +++|
02166  M00S01295.cpumtr  +++| TH       CON    0.001P48+1  .001
02167  M00S01296.cpumtr  +++|          CON    1000.P      1000
02168  M00S01297.cpumtr  +++| TTH      CON    0.0001P48+1 .0001
02169  M00S01298.cpumtr  +++|          CON    10000.P     10000
02170  M00S01299.cpumtr  +++| HTH      CON    0.0000001P48+1
02171  M00S01300.cpumtr  +++|****
02172  M00S01301.cpumtr  +++|          TTL    CPUMTR/MONITOR - MONITOR MODE EXECUTION.
02173  M00S01302.cpumtr  +++|          TITLE  MTR - MAIN PROGRAM.
02174  M00S01303.cpumtr  +++| MTR      SPACE  4
02175  M00S01304.cpumtr  +++|**        MONITOR MODE EXECUTION REGISTER USAGE.
02176  M00S01305.cpumtr  +++|*
02177  M00S01306.cpumtr  +++|*         INVIOLATE USAGE.
02178  M00S01307.cpumtr  +++|*
02179  M00S01308.cpumtr  +++|*         (A0) = CPU NUMBER (0 OR 1).

Seq #  *Modification Id* Act 
----------------------------+
02180  M01S00215.271l750 +++|*         (A5) = OUTPUT REGISTER ADDRESS FOR ALL ROUTINES THAT MAY HAVE
02181  M01S00216.271l750 +++|*                BEEN ENTERED FROM A POOL PP EXCHANGE.
02182  M00S01309.cpumtr  +++|*         (B1) = 1.
02183  M00S01310.cpumtr  +++|*         (B2) = ADDRESS OF CALLER-S EXCHANGE PACKAGE.
02184  M00S01311.cpumtr  +++|*         (B7) = CONTROL POINT ADDRESS.
02185  M00S01312.cpumtr  +++|*
02186  M00S01313.cpumtr  +++|*         NOTE - CMU MAY NOT BE USED IN MONITOR MODE ON A DUAL CPU
02187  M00S01314.cpumtr  +++|*         MACHINE WITH ONLY A SINGLE CMU BECAUSE THE CMU MAY BE IN
02188  M00S01315.cpumtr  +++|*         USE ON THE OTHER CPU, CAUSING MONITOR MODE TO WAIT FOR THE
02189  M00S01316.cpumtr  +++|*         CMU TO BECOME FREE.
02190  M00S01317.cpumtr  +++|*
02191  M00S01318.cpumtr  +++|*         CONVENTIONS.
02192  M00S01319.cpumtr  +++|*
02193  M00S01320.cpumtr  +++|*         (B3) = SUBROUTINE EXIT ADDRESS.
02194  M00S01321.cpumtr  +++| MTRX     SPACE  4
02195  M00S01322.cpumtr  +++|**        MTRX - MONITOR EXIT.
02196  M00S01323.cpumtr  +++|*         THE FOLLOWING RULES MUST BE FOLLOWED ON EXIT -
02197  M00S01324.cpumtr  +++|*
02198  M00S01325.cpumtr  +++|*         1)     ALL EXITS MUST CHECK FOR A POSSIBLE MODE ERROR THAT
02199  M00S01326.cpumtr  +++|*         WAS IN PROCESS (HAD NOT GENERATED AN EXCHANGE) AT THE TIME
02200  M00S01327.cpumtr  +++|*         OF THE EXCHANGE INTERRUPT. IF THIS IS NOT DONE MODE
02201  M00S01328.cpumtr  +++|*         ERRORS WILL NOT BE PROCESSED CORRECTLY ON MACHINES SUCH
02202  M00S01329.cpumtr  +++|*         AS THE CYBER 73.
02203  M00S01330.cpumtr  +++|*
02204  M00S01331.cpumtr  +++|*         2)     ALL EXITS MUST SET (X0) = 0 AND BRANCH TO */NVE/XJ1*
02205  M00S01332.cpumtr  +++|*         (IF PRESENT) IMMEDIATELY PRIOR TO THE *XJ*.  THIS IS A
02206  M00S01333.cpumtr  +++|*         MICROCODE REQUIREMENT.
02207  M00S01334.cpumtr  +++|*
02208  M00S01335.cpumtr  +++|*         3)     ALL EXITS MUST CHECK FOR A CPU SWITCH REQUEST.
02209  M00S01336.cpumtr  +++|
02210  M00S01337.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02211  M01S00420.253l688 +++| MTRC     SA7    A5+         STORE OUTPUT REGISTER FOR PPU REQUEST
02212  M01S00421.253l688 +++| PPR1     EQU    MTRC
02213  M01S00422.253l688 +++|          EQ     MTRX        EXIT MONITOR MODE
02214  M01S00423.253l688 +++|
02215  M00S01338.cpumtr  +++| MTRP     SA1    RA1         ADDRESS OF RA+1
02216  M00S01339.cpumtr  +++|          NO
02217  M00S01340.cpumtr  +++|          EWX7   X1          SET RA+1

Seq #  *Modification Id* Act 
----------------------------+
02218  M01S01341.253l688 ---|          EQ     MTRX        EXIT MONITOR MODE
02219  M01S01342.253l688 ---|
02220  M01S01343.253l688 ---| MTRC     SA7    A5+         STORE OUTPUT REGISTER FOR PPU REQUEST
02221  M01S01344.253l688 ---|*PPR1     EQU    MTRC
02222  M00S01345.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02223  M01S01346.271l716 ---| MTRX     SA2    A0+CSWL     CHECK PP *MTR* CPU SWITCH REQUEST
02224  M01S01347.271l716 ---|*PPRX     EQU    MTRX

Seq #  *Modification Id* Act 
----------------------------+
02225  M01S00013.271l716 +++| MTRX     TNO    /MONITOR/MTRX+1,NTRACE
02226  M01S00014.271l716 +++|*PPRX     EQU    MTRX
02227  M01S00015.271l716 +++|          JP     /TRACE/TRP  CHECK FOR TRAP CONDITION
02228  M01S00016.271l716 +++|          SA2    A0+CSWL     CHECK FOR CPU SWITCH REQUEST
02229  M00S01348.cpumtr  +++|          SA3    B2+         CHECK FOR MODE ERROR

Seq #  *Modification Id* Act 
----------------------------+
02230  M01S01349.271l716 ---|          NG     X2,ACS1     IF CPU SWITCH REQUEST

Seq #  *Modification Id* Act 
----------------------------+
02231  M02S00017.271l750 ---|          NG     X2,ACS2     IF CPU SWITCH REQUEST

Seq #  *Modification Id* Act 
----------------------------+
02232  M01S00217.271l750 +++|          NG     X2,BNJ1     IF CPU SWITCH REQUEST

Seq #  *Modification Id* Act 
----------------------------+
02233  M01S01350.cpumt96 ---|          AX3    36
02234  M01S01351.cpumt96 ---|          BX0    X0-X0

Seq #  *Modification Id* Act 
----------------------------+
02235  M01S00001.cpumt96 +++|          AX3    36+1        CHECK FOR P = 0 OR 1
02236  M01S00002.cpumt96 +++|          SB4    XJ1         *CJS* RETURN ADDRESS
02237  M00S01352.cpumtr  +++|          ZR     X3,MTR2     IF MODE ERROR
02238  M00S01353.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02239  M01S00003.cpumt96 +++| XJ1      SX0    B0+

Seq #  *Modification Id* Act 
----------------------------+
02240  M01S01354.ns2443  ---|          TNO    /NVE/XJ1,NVE

Seq #  *Modification Id* Act 
----------------------------+
02241  M01S00008.ns2443  +++|          TNO    /CME/XJ2,CME
02242  M00S01355.cpumtr  +++| XJ1.1    XJ     B2          EXCHANGE TO PROGRAM
02243  M00S01356.cpumtr  +++|
02244  M00S01357.cpumtr  +++|          TNO    /IH819/XJ2,IH819  CHECK STEP CONDITION
02245  M00S01358.cpumtr  +++|
02246  M00S01359.cpumtr  +++| XJ2      SA1    CPSL

Seq #  *Modification Id* Act 
----------------------------+
02247  M01S00218.271l750 +++|          RC     X3          GET MONITOR MODE START TIME IF 180 MACHINE
02248  M01S00219.271l750 +++|          PX6    B0,X3
02249  M01S00220.271l750 +++|          SA6    CL+CMST+A0  SET CPU CALL AND BASE TIME
02250  M00S01360.cpumtr  +++|          NZ     X1,MTR3     IF PP EXCHANGE REQUESTED
02251  M00S01361.cpumtr  +++| MTR      SPACE  4
02252  M00S01362.cpumtr  +++|*         ENTRY FROM CPU PROGRAM.
02253  M00S01363.cpumtr  +++|
02254  M00S01364.cpumtr  +++|
02255  M00S01365.cpumtr  +++| MTR      SA2    B2+B1       SET RA
02256  M00S01366.cpumtr  +++|          SX7    B1
02257  M00S01367.cpumtr  +++|          TA5    20B,SP      SET FAKE RA
02258  M00S01368.cpumtr  +++|          AX2    36          RA
02259  M00S01369.cpumtr  +++|          BX6    X2
02260  M00S01370.cpumtr  +++|          IX7    X2+X7       RA+1
02261  M00S01371.cpumtr  +++|          ERX5   X7          READ RA+1
02262  M00S01372.cpumtr  +++|          SA6    RA          STORE RA
02263  M00S01373.cpumtr  +++|          SB3    A6          ADDRESS OF RA ADDRESS
02264  M00S01374.cpumtr  +++|          SA7    A6+B1       STORE RA+1
02265  M00S01375.cpumtr  +++|          ZR     X2,MNR      IF RA = 0, CHECK MONITOR REQUEST
02266  M00S01376.cpumtr  +++|          NZ     X5,CPR      PROCESS CPU REQUEST IF (RA+1) " 0

Seq #  *Modification Id* Act 
----------------------------+
02267  M01S01377.252l678 ---|          TEQ    (/MONITOR/PPE,/MONITOR/MTRX,CP176)  CHECK MODE ERROR

Seq #  *Modification Id* Act 
----------------------------+
02268  M01S00088.252l678 +++|          TEQ    (/MONITOR/PPE,CP176,/MONITOR/MTRX)  CHECK MODE ERROR
02269  M00S01378.cpumtr  +++|
02270  M00S01379.cpumtr  +++|*         PROCESS MODE ERROR.
02271  M00S01380.cpumtr  +++|
02272  M00S01381.cpumtr  +++| MTR2     SA1    CPAL+A0
02273  M00S01382.cpumtr  +++|          SB6    B2          SET EXCHANGE PACKAGE ADDRESS
02274  M00S01383.cpumtr  +++|          AX1    24
02275  M00S01384.cpumtr  +++|          SB7    X1
02276  M00S01385.cpumtr  +++|          JP     CJS
02277  M00S01386.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02278  M01S01387.v23l617 ---| MTR3     SA1    SD4L        COUNT EXCHANGE REQUESTS

Seq #  *Modification Id* Act 
----------------------------+
02279  M02S00002.273l780 ---| MTR3     TA1    PRXS,SDA    COUNT EXCHANGE REQUESTS

Seq #  *Modification Id* Act 
----------------------------+
02280  M01S00018.273l780 +++|*         PROCESS PP PRIORITY EXCHANGE.
02281  M01S00019.273l780 +++|
02282  M01S00020.273l780 +++| MTR3     SX6    B0          CLEAR EXCHANGE REQUESTED
02283  M01S00021.273l780 +++|          SA6    A1
02284  M01S00022.273l780 +++|          TA1    PRXS,SDA    COUNT EXCHANGE REQUESTS

Seq #  *Modification Id* Act 
----------------------------+
02285  M01S01388.ns2443  ---|          SA2    TSCL+A0

Seq #  *Modification Id* Act 
----------------------------+
02286  M02S00009.271l750 ---|          TNO    /MONITOR/MTR3.1,NCME
02287  M02S00010.271l750 ---|          RC     X6          SET MONITOR MODE START TIME
02288  M02S00011.271l750 ---|          SA6    MS
02289  M02S00012.271l750 ---| MTR3.1   SA2    TSCL+A0

Seq #  *Modification Id* Act 
----------------------------+
02290  M01S00221.271l750 +++|          SA2    TSCL+A0
02291  M00S01389.cpumtr  +++|          SX0    B1
02292  M00S01390.cpumtr  +++|          IX6    X1+X0

Seq #  *Modification Id* Act 
----------------------------+
02293  M01S01391.271l716 ---|          AX2    48+1

Seq #  *Modification Id* Act 
----------------------------+
02294  M02S00018.271l750 ---|          LX2    59-57

Seq #  *Modification Id* Act 
----------------------------+
02295  M01S00222.271l750 +++|          AX2    48+3

Seq #  *Modification Id* Act 
----------------------------+
02296  M01S01392.v23l617 ---|          LX6    42

Seq #  *Modification Id* Act 
----------------------------+
02297  M01S00003.v23l617 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
02298  M01S01393.271l716 ---|          SX2    X2-LSCS-1

Seq #  *Modification Id* Act 
----------------------------+
02299  M01S01394.v23l617 ---|          NG     X6,MTR4     IF COUNTER OVERFLOW
02300  M01S01395.v23l617 ---|          LX6    -42
02301  M01S01396.v23l617 ---|          SA6    A1+         UPDATE COUNTER
02302  M01S01397.v23l617 ---| MTR4     PL     X2,MTR      IF SYSTEM PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
02303  M02S00004.271l716 ---|          PL     X2,MTR      IF SYSTEM PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
02304  M02S00019.271l750 ---|          NG     X2,MTR      IF SYSTEM PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
02305  M02S00223.ns2731  ---|          SX2    X2-LSCS-200B-1

Seq #  *Modification Id* Act 
----------------------------+
02306  M01S00001.ns2731  +++|          SX2    X2-LSCS-200B

Seq #  *Modification Id* Act 
----------------------------+
02307  M01S00224.271l750 +++|          PL     X2,MTR      IF SYSTEM PRIORITY
02308  M00S01398.cpumtr  +++|          EQ     SXS         PLACE CONTROL POINT IN RECALL

Seq #  *Modification Id* Act 
----------------------------+
02309  M01S01399.v23l617 ---| MNR      SPACE  4
02310  M01S01400.v23l617 ---|**        MNR - MONITOR REQUEST PROCESSOR.
02311  M01S01401.v23l617 ---|*         PROCESS TERMINATION OF PROGRAM MODE MONITOR.
02312  M01S01402.v23l617 ---|
02313  M01S01403.v23l617 ---|
02314  M01S01404.v23l617 ---| MNR      TB4    B2,-SCA
02315  M01S01405.v23l617 ---|          NZ     B4,MNR4     IF NOT SYSTEM CONTROL POINT XP
02316  M01S01406.v23l617 ---|          TA2    IORQ
02317  M01S01407.v23l617 ---|          SA1    PX          CHECK PROGRAM MODE EXIT
02318  M01S01408.v23l617 ---|          SX0    B0
02319  M01S01409.v23l617 ---|          BX7    X7-X7
02320  M01S01410.v23l617 ---|          TNZ    X2,(/BUFIO/IOC,/MONITOR/MNR0,BUFIO)  IF BUFFER MANAGER
02321  M01S01411.v23l617 ---| MNR0     SA2    B2+3        CHECK FOR 819 RECALL
02322  M01S01412.v23l617 ---|          SA7    A1
02323  M01S01413.v23l617 ---|          LX2    59-39
02324  M01S01414.v23l617 ---|          TNG    X2,(/MONITOR/PPE,/MONITOR/MNR0,IH819)  IF STEP MODE
02325  M01S01415.v23l617 ---|          ZR     X1,MTRX     IF PROGRAM MODE NOT COMPLETE - EXIT
02326  M01S01416.v23l617 ---|          SA2    PR          CHECK FOR REQUESTS PRESENT
02327  M01S01417.v23l617 ---|          NG     X1,MNR1     IF PP REQUESTED FROM PROGRAM MODE MONITOR
02328  M01S01418.v23l617 ---|          ZR     X2,BNJ      IF NO REQUESTS - END PROGRAM MODE MONITOR
02329  M01S01419.v23l617 ---|          EQ     MTRX
02330  M01S01420.v23l617 ---|
02331  M01S01421.v23l617 ---|*         PROCESS PP REQUEST.
02332  M01S01422.v23l617 ---|
02333  M01S01423.v23l617 ---| MNR1     SX1    B0+         PRESET RESPONSE
02334  M01S01424.v23l617 ---|          SB6    MNR2        *CAL* RETURN ADDRESS - NO LIMIT
02335  M01S01425.v23l617 ---|          SB3    MNR3        *CAL* RETURN ADDRESS - ACTIVITY LIMIT
02336  M01S01426.v23l617 ---|          EQ     CAL         CHECK ACTIVITY LIMIT
02337  M01S01427.v23l617 ---|
02338  M01S01428.v23l617 ---| MNR2     SA2    B2+16B      PARAMETER WORD IN (X6)
02339  M01S01429.v23l617 ---|          SA5    B2+17B      PP CALL IN (X7)
02340  M01S01430.v23l617 ---|          BX7    X2
02341  M01S01431.v23l617 ---|          BX6    X5
02342  M01S01432.v23l617 ---|          SA7    APQA
02343  M01S01433.v23l617 ---|          EQ     APQ         ASSIGN PP
02344  M01S01434.v23l617 ---|
02345  M01S01435.v23l617 ---| MNR3     BX7    X1
02346  M01S01436.v23l617 ---|          SA7    A5-B1       RETURN STATUS IN (X6)
02347  M01S01437.v23l617 ---|          EQ     MTRX        EXIT
02348  M01S01438.v23l617 ---|
02349  M01S01439.v23l617 ---| MNR4     SB4    B2-SMPXP
02350  M01S01440.v23l617 ---|          TNZ    B4,(/BUFIO/MNR,/MONITOR/MNR4,BUFIO)  IF PSEUDO-PP
02351  M01S01441.v23l617 ---|          SA1    SMPR        CHECK FOR REQUESTS
02352  M01S01442.v23l617 ---|          NZ     X1,MTRX     IF REQUEST OUTSTANDING
02353  M01S01443.v23l617 ---|          EQ     TSM         TERMINATE STORAGE MOVE

Seq #  *Modification Id* Act 
----------------------------+
02354  M01S00005.v23l617 +++| MNR      SPACE  4,10
02355  M01S00006.v23l617 +++|**        MNR - MONITOR REQUEST PROCESSING.
02356  M01S00007.v23l617 +++|*
02357  M01S00008.v23l617 +++|*         THIS ROUTINE DOES THE START-UP AND EXIT PROCESSING FOR THE
02358  M01S00009.v23l617 +++|*         VARIOUS PROGRAM-MODE EXCHANGE PACKAGES CONTAINED WITHIN
02359  M01S00010.v23l617 +++|*         *CPUMTR*.

Seq #  *Modification Id* Act 
----------------------------+
02360  M01S00225.271l750 +++|*
02361  M01S00226.271l750 +++|*         ENTRY  (X3) = MONITOR MODE START TIME IF 180 MACHINE.

Seq #  *Modification Id* Act 
----------------------------+
02362  M01S00011.v23l617 +++|
02363  M01S00012.v23l617 +++|

Seq #  *Modification Id* Act 
----------------------------+
02364  M02S00013.ns2443  ---| MNR      SA1    MNRA        PROCESSOR ADDRESS TABLE

Seq #  *Modification Id* Act 
----------------------------+
02365  M02S00013.271l750 ---| MNR      TNO    /MONITOR/MNR0,NCME
02366  M02S00014.271l750 ---|          RC     X6          SET MONITOR MODE START TIME
02367  M02S00015.271l750 ---|          SA6    MS
02368  M02S00016.271l750 ---| MNR0     SA1    MNRA        PROCESSOR ADDRESS TABLE

Seq #  *Modification Id* Act 
----------------------------+
02369  M02S00014.271l750 ---|          SB4    -B2         COMPLEMENT EXCHANGE PACKAGE ADDRESS
02370  M02S00015.271l750 ---| MNR1     SX2    X1+B4
02371  M02S00016.271l750 ---|          ZR     X2,MNR2     IF PROCESSOR FOUND
02372  M02S00017.271l750 ---|          SA1    A1+B1       NEXT ENTRY
02373  M02S00018.271l750 ---|          NZ     X1,MNR1     IF NOT END OF TABLE
02374  M02S00019.271l750 ---|          EQ     *           HANG - PROCESSOR NOT FOUND
02375  M02S00020.271l750 ---|
02376  M02S00021.271l750 ---| MNR2     AX1    18          SHIFT TO PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02377  M01S00227.271l750 +++| MNR      SA1    B2+CWQW     GET EXCHANGE PACKAGE TYPE
02378  M01S00228.271l750 +++|          MX2    -3
02379  M01S00229.271l750 +++|          LX1    -18
02380  M01S00230.271l750 +++|          BX1    -X2*X1      EXCHANGE PACKAGE TYPE
02381  M01S00231.271l750 +++|          SA1    MNRA+X1     GET PROCESSOR ADDRESS
02382  M01S00232.271l750 +++|          AX1    18          SHIFT TO PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02383  M01S00022.v23l617 +++|          SB4    X1
02384  M01S00023.v23l617 +++|          JP     B4          JUMP TO PROCESSOR
02385  M01S00024.v23l617 +++|
02386  M01S00025.v23l617 +++|*         PROCESS EXIT FROM CONTROL POINT N+1.
02387  M01S00026.v23l617 +++|

Seq #  *Modification Id* Act 
----------------------------+
02388  M02S00027.ns2579  ---| MNR3     TNO    /BUFIO/MNR,BUFIO  IF BUFFERED I/O PRESENT
02389  M02S00028.ns2579  ---|          SX0    B0+

Seq #  *Modification Id* Act 
----------------------------+
02390  M01S00001.ns2579  +++| MNR3     SB7    B2          SET CONTROL POINT ADDRESS
02391  M01S00002.ns2579  +++|          TNO    /BUFIO/MNR,BUFIO  IF BUFFERED I/O PRESENT
02392  M01S00003.ns2579  +++|          BX0    X0-X0

Seq #  *Modification Id* Act 
----------------------------+
02393  M01S00029.v23l617 +++| MNR4     SA1    PX          PROGRAM MODE EXIT STATUS
02394  M01S00030.v23l617 +++|          SA2    PR          PROGRAM MODE REQUESTS
02395  M01S00031.v23l617 +++|          BX7    X7-X7
02396  M01S00032.v23l617 +++|          SA7    A1          CLEAR EXIT STATUS
02397  M01S00033.v23l617 +++|          ZR     X1,MTRX     IF PROGRAM MODE NOT COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
02398  M02S00034.253l688 ---|          NG     X1,MNR5     IF PP REQUEST

Seq #  *Modification Id* Act 
----------------------------+
02399  M01S00424.253l688 +++|          SB3    X1+3
02400  M01S00425.253l688 +++|          TNG    X1,(/ISD/MNR5,ISD,/MONITOR/MNR5)  IF REQUEST

Seq #  *Modification Id* Act 
----------------------------+
02401  M01S00035.v23l617 +++|          ZR     X2,BNJ      IF NO MORE REQUESTS TO PROCESS
02402  M01S00036.v23l617 +++|          EQ     MTRX        RETURN TO PROGRAM MODE
02403  M01S00037.v23l617 +++|
02404  M01S00038.v23l617 +++|*         PROCESS PP REQUEST FROM CONTROL POINT N+1.
02405  M01S00039.v23l617 +++|
02406  M01S00040.v23l617 +++| MNR5     SX1    B0+         PRESET RESPONSE
02407  M01S00041.v23l617 +++|          SB6    MNR6        *CAL* RETURN ADDRESS - NO LIMIT
02408  M01S00042.v23l617 +++|          SB3    MNR7        *CAL* RETURN ADDRESS - ACTIVITY LIMIT
02409  M01S00043.v23l617 +++|          EQ     CAL         CHECK ACTIVITY LIMIT
02410  M01S00044.v23l617 +++|
02411  M01S00045.v23l617 +++| MNR6     SA2    B2+16B      PARAMETER WORD IN (X6)
02412  M01S00046.v23l617 +++|          SA5    B2+17B      PP CALL IN (X7)

Seq #  *Modification Id* Act 
----------------------------+
02413  M01S00001.cpum155 +++|          SB4    -1

Seq #  *Modification Id* Act 
----------------------------+
02414  M01S00047.v23l617 +++|          BX7    X2
02415  M01S00048.v23l617 +++|          BX6    X5
02416  M01S00049.v23l617 +++|          SA7    APQA
02417  M01S00050.v23l617 +++|          EQ     APQ         ASSIGN PP
02418  M01S00051.v23l617 +++|
02419  M01S00052.v23l617 +++| MNR7     BX7    X1
02420  M01S00053.v23l617 +++|          SA7    A5-B1       RETURN STATUS IN (X6)
02421  M01S00054.v23l617 +++|          EQ     MTRX        RETURN
02422  M01S00055.v23l617 +++|
02423  M01S00056.v23l617 +++|*         PROCESS STORAGE MOVE EXIT PROCESSING.
02424  M01S00057.v23l617 +++|
02425  M01S00058.v23l617 +++| MNR8     SA1    SMPR        STORAGE MOVE REQUESTS
02426  M01S00059.v23l617 +++|          NZ     X1,MTRX     IF NOT YET COMPLETE, RETURN
02427  M01S00060.v23l617 +++|          EQ     TSM         TERMINATE STORAGE MOVE
02428  M01S00061.v23l617 +++|
02429  M01S00062.v23l617 +++|

Seq #  *Modification Id* Act 
----------------------------+
02430  M01S00233.271l750 +++|*         THE FOLLOWING TABLE MUST BE MAINTAINED IN THE ORDER OF THE
02431  M01S00234.271l750 +++|*         PROGRAM MODE EXCHANGE PACKAGE TYPES DEFINED IN *COMSMTR*.
02432  M01S00235.271l750 +++|*
02433  M01S00236.271l750 +++|*         ENTRY FORMAT -
02434  M01S00237.271l750 +++|*
02435  M01S00238.271l750 +++|*         24/ 0,18/ PROCESSOR ADDRESS,18/ EXCHANGE PACKAGE ADDRESS
02436  M01S00239.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
02437  M01S00063.v23l617 +++| MNRA     VFD    24/0,18/MNR3      CONTROL POINT N+1
02438  M01S00064.v23l617 +++|          TVFD   18/0,SCA
02439  M01S00065.v23l617 +++|
02440  M01S00066.v23l617 +++|          VFD    24/0,18/MNR8,18//PROGRAM/SMPXP  STORAGE MOVE XP
02441  M01S00067.v23l617 +++|

Seq #  *Modification Id* Act 
----------------------------+
02442  M01S00240.271l750 +++|          VFD    24/0        FIELD LENGTH VERIFICATION XP
02443  M01S00241.271l750 +++|          TVFD   18/0,(/CME/MNR,CME,0)
02444  M01S00242.271l750 +++|          TVFD   18/0,(/CME/VFLXP,CME,0)
02445  M01S00243.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
02446  M01S00068.v23l617 +++|          VFD    24/0        PSEUDO-PP EXCHANGE PACKAGE

Seq #  *Modification Id* Act 
----------------------------+
02447  M02S00069.252l678 ---|          TVFD   18/0,(/BUFIO/MNR1,/MONITOR/MNR,BUFIO)
02448  M02S00070.252l678 ---|          TVFD   18/0,(/BUFIO/CPP,0,BUFIO)

Seq #  *Modification Id* Act 
----------------------------+
02449  M01S00089.252l678 +++|          TVFD   18/0,(/BUFIO/MNR1,BUFIO,/MONITOR/MNR)
02450  M01S00090.252l678 +++|          TVFD   18/0,(/BUFIO/CPP,BUFIO,0)

Seq #  *Modification Id* Act 
----------------------------+
02451  M01S00071.v23l617 +++|

Seq #  *Modification Id* Act 
----------------------------+
02452  M02S00072.271l750 ---|          VFD    24/0        FIELD LENGTH VERIFICATION XP

Seq #  *Modification Id* Act 
----------------------------+
02453  M03S00073.271l750 ---|          TVFD   18/0,(/CME/MNR,0,CME)
02454  M03S00074.271l750 ---|          TVFD   18/0,(/CME/VFLXP,0,CME)

Seq #  *Modification Id* Act 
----------------------------+
02455  M02S00091.271l750 ---|          TVFD   18/0,(/CME/MNR,CME,0)
02456  M02S00092.271l750 ---|          TVFD   18/0,(/CME/VFLXP,CME,0)

Seq #  *Modification Id* Act 
----------------------------+
02457  M01S00244.271l750 +++|*         ALL FOLLOWING ENTRIES WILL HANG *MNR*.
02458  M01S00245.271l750 +++|
02459  M01S00246.271l750 +++|          VFD    24/0,18/MNR,18/IXP  CPU 0 IDLE PACKAGE XP
02460  M01S00247.271l750 +++|
02461  M01S00248.271l750 +++|          VFD    24/0,18/MNR         CPU 1 IDLE PACKAGE XP
02462  M01S00249.271l750 +++|          TVFD   18/0,(/DCP/IXP1,DCP,0)
02463  M01S00250.271l750 +++|
02464  M01S00251.271l750 +++|          VFD    24/0,18/MNR,18/0    ILLEGAL
02465  M01S00252.271l750 +++|
02466  M01S00253.271l750 +++|          VFD    24/0,18/MNR,18/0    ILLEGAL

Seq #  *Modification Id* Act 
----------------------------+
02467  M01S00075.v23l617 +++|
02468  M01S00076.v23l617 +++|          CON    0           END OF TABLE
02469  M00S01444.cpumtr  +++|          TITLE  UTILITY SUBROUTINES.
02470  M00S01445.cpumtr  +++| APP      SPACE  4
02471  M00S01446.cpumtr  +++| AAD      SPACE  4
02472  M00S01447.cpumtr  +++|**        AAD - APPLY ADDER INCREMENT TO SRU ACCUMULATOR.
02473  M00S01448.cpumtr  +++|*
02474  M00S01449.cpumtr  +++|*         NEW SRU = AD (UNITS) + OLD SRU.
02475  M00S01450.cpumtr  +++|*
02476  M00S01451.cpumtr  +++|*         ENTRY  (X1) = INCREMENT (INTEGER FORMAT).
02477  M00S01452.cpumtr  +++|*                (B3) = EXIT ADDRESS.
02478  M00S01453.cpumtr  +++|*                (B4) = OVERFLOW FLAG.
02479  M00S01454.cpumtr  +++|*
02480  M00S01455.cpumtr  +++|*         EXIT   EXITS THRU ROUTINE *AIO* TO APPLY FINAL
02481  M00S01456.cpumtr  +++|*                INCREMENT TO SRU ACCUMULATOR.
02482  M00S01457.cpumtr  +++|*
02483  M00S01458.cpumtr  +++|*         USES   X - 1, 2, 3, 6.
02484  M00S01459.cpumtr  +++|*                A - 2, 3, 6.
02485  M00S01460.cpumtr  +++|
02486  M00S01461.cpumtr  +++|
02487  M00S01462.cpumtr  +++| AAD      ZR     X1,AIO2     IF NO INCREMENT
02488  M00S01463.cpumtr  +++|          SX2    10000000/200B
02489  M00S01464.cpumtr  +++|          IX1    X1*X2
02490  M00S01465.cpumtr  +++|          LX1    7
02491  M00S01466.cpumtr  +++|          EQ     AIO1        (X1) = SRU INCREMENT
02492  M00S01467.cpumtr  +++| ACB      SPACE  4,15
02493  M00S01468.cpumtr  +++|**        ACB - ASSIGN COMMUNICATION BUFFER.
02494  M00S01469.cpumtr  +++|*
02495  M00S01470.cpumtr  +++|*         *ACB* ALLOCATES A BUFFER FOR COMMUNICATION BETWEEN
02496  M00S01471.cpumtr  +++|*         *CPUMTR* AND A PP.  IT IS THE RESPONSIBILITY OF THE
02497  M00S01472.cpumtr  +++|*         PP TO CLEAR THE FIRST WORD OF ITS ASSIGNED BUFFER
02498  M00S01473.cpumtr  +++|*         WHEN COMPLETE. THIS *RETURNS* THE BUFFER TO THE
02499  M00S01474.cpumtr  +++|*         SYSTEM FOR FURTHER USAGE.  *CPUMTR* WILL NOT ASSIGN
02500  M00S01475.cpumtr  +++|*         THE BUFFER TO ANYONE ELSE AS LONG AS THE FIRST WORD
02501  M00S01476.cpumtr  +++|*         OF THE BUFFER IS NON-ZERO.
02502  M00S01477.cpumtr  +++|*
02503  M00S01478.cpumtr  +++|*         ENTRY  (B3) = RETURN ADDRESS.
02504  M00S01479.cpumtr  +++|*                (B3) .LT. 0  IF RETURN TO */PROGRAM/APS1*.
02505  M00S01480.cpumtr  +++|*
02506  M00S01481.cpumtr  +++|*         EXIT   (X1) = ADDRESS OF BUFFER.
02507  M00S01482.cpumtr  +++|*                (X1) = 0  IF NO BUFFER AVAILABLE.
02508  M00S01483.cpumtr  +++|*
02509  M00S01484.cpumtr  +++|*         USES   X - 1, 6.
02510  M00S01485.cpumtr  +++|*                A - 1, 6.
02511  M00S01486.cpumtr  +++|
02512  M00S01487.cpumtr  +++|
02513  M00S01488.cpumtr  +++| ACB      SX6    B0+         INITIALIZE BUFFER INDEX
02514  M00S01489.cpumtr  +++| ACB1     SX1    X6-MCBLL
02515  M00S01490.cpumtr  +++|          ZR     X1,ACB3     IF END OF BUFFER(S)
02516  M00S01491.cpumtr  +++|          SX1    MCB+X6      ADDRESS OF BUFFER
02517  M00S01492.cpumtr  +++|          SX6    X6+MCBL     INCREMENT TO NEXT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02518  M01S01493.cpum242 ---|
02519  M01S01494.cpum242 ---|*         THE NEXT THREE INSTRUCTIONS MUST BE PERFORMED IN ONE WORD.
02520  M01S01495.cpum242 ---|
02521  M01S01496.cpum242 ---|+         SA1    X1          READ FIRST WORD
02522  M01S01497.cpum242 ---|          NZ     X1,ACB1     IF BUFFER IN USE
02523  M01S01498.cpum242 ---|          SA6    A1          SET BUFFER BUSY

Seq #  *Modification Id* Act 
----------------------------+
02524  M01S00001.cpum242 +++|+         SA1    X1                       **** PERFORM IN ONE WORD ****
02525  M01S00002.cpum242 +++|          NZ     X1,ACB1     IF ASSIGNED  **** PERFORM IN ONE WORD ****
02526  M01S00003.cpum242 +++|          SA6    A1                       **** PERFORM IN ONE WORD ****
02527  M00S01499.cpumtr  +++|          SX1    A1+         ADDRESS OF BUFFER
02528  M00S01500.cpumtr  +++| ACB2     NG     B3,/PROGRAM/APS1  IF CALLED BY *APS*
02529  M00S01501.cpumtr  +++|          JP     B3          RETURN
02530  M00S01502.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02531  M01S01503.v23l617 ---| ACB3     SA1    SD4L        INCREMENT STATISTIC
02532  M01S01504.v23l617 ---|          SX6    B1+
02533  M01S01505.v23l617 ---|          LX6    18
02534  M01S01506.v23l617 ---|          IX6    X6+X1
02535  M01S01507.v23l617 ---|          LX6    24
02536  M01S01508.v23l617 ---|          BX1    X1-X1       CLEAR RESPONSE
02537  M01S01509.v23l617 ---|          NG     X6,ACB2     IF COUNTER OVERFLOW
02538  M01S01510.v23l617 ---|          LX6    -24
02539  M01S01511.v23l617 ---|          SA6    A1          UPDATE COUNTER

Seq #  *Modification Id* Act 
----------------------------+
02540  M01S00077.v23l617 +++| ACB3     TA1    CBNS,SDA    COUNT BUFFER NOT AVAILABLE
02541  M01S00078.v23l617 +++|          SX6    B1
02542  M01S00079.v23l617 +++|          IX6    X1+X6
02543  M01S00080.v23l617 +++|          SA6    A1
02544  M01S00081.v23l617 +++|          SX1    B0          SET BUFFER NOT AVAILABLE
02545  M00S01512.cpumtr  +++|          EQ     ACB2        RETURN
02546  M00S01513.cpumtr  +++| MCB      SPACE  4,10
02547  M00S01514.cpumtr  +++|**        MCB - MONITOR COMMUNICATION BUFFER(S).
02548  M00S01515.cpumtr  +++|*
02549  M00S01516.cpumtr  +++|*         THESE BUFFERS ARE USED BY *CPUMTR* TO PASS INFORMATION
02550  M00S01517.cpumtr  +++|*         TO A PP REQUESTED BY IT (SUCH AS *1MA* AND *1MC*).
02551  M00S01518.cpumtr  +++|*         THE ASSEMBLY CONSTANTS ARE DEFINED IN *COMSMSC*.
02552  M00S01519.cpumtr  +++|*
02553  M00S01520.cpumtr  +++|*         NMCB = NUMBER OF BUFFER(S).
02554  M00S01521.cpumtr  +++|*         MCBL = LENGTH OF BUFFER.
02555  M00S01522.cpumtr  +++|
02556  M00S01523.cpumtr  +++|
02557  M00S01524.cpumtr  +++| MCB      BSS    0
02558  M00S01525.cpumtr  +++| .A       DUP    NMCB
02559  M00S01526.cpumtr  +++|          CON    0           FWA OF BUFFER - NOT BUSY
02560  M00S01527.cpumtr  +++|          BSS    MCBL-1
02561  M00S01528.cpumtr  +++| .A       ENDD
02562  M00S01529.cpumtr  +++| MCBLL    EQU    *-MCB       TOTAL LENGTH OF BUFFER(S)

Seq #  *Modification Id* Act 
----------------------------+
02563  M01S00254.271l750 +++| ACS      SPACE  4,25
02564  M01S00255.271l750 +++|**        ACS - ADVANCE CPU SERVICE CYCLE.
02565  M01S00256.271l750 +++|*
02566  M01S00257.271l750 +++|*         ENTRY  (B3) = EXIT ADDRESS.
02567  M01S00258.271l750 +++|*                (X1 BITS 0 - 17) = ADDRESS OF FIRST *WQ* ENTRY AT OR
02568  M01S00259.271l750 +++|*                                   BELOW PRIORITY (WITHOUT FLAGS) OF
02569  M01S00260.271l750 +++|*                                   NEW JOB.
02570  M01S00261.271l750 +++|*                (X3) = NEW JOB *CWQW* (DELINKED FROM *WQ*).
02571  M01S00262.271l750 +++|*                (A3) = ADDRESS OF NEW JOB *CWQW*.
02572  M01S00263.271l750 +++|*                (B4) = NEW JOB CPU PRIORITY (WITH FLAGS).
02573  M01S00264.271l750 +++|*
02574  M01S00265.271l750 +++|*         EXIT   SERVICE CYCLE UPDATED FOR PRIORITY.
02575  M01S00266.271l750 +++|*                CPU SCHEDULING ACSUMULATORS AND FLAGS RESET FOR
02576  M01S00267.271l750 +++|*                  NEW JOB AND ALL *WQ* ENTRIES AT THE SAME CPU
02577  M01S00268.271l750 +++|*                  PRIORITY.
02578  M01S00269.271l750 +++|*                (X7) = *CSAW* FOR NEW SERVICE CYCLE.
02579  M01S00270.271l750 +++|*                (B4) = NEW JOB CPU PRIORITY (WITH FLAGS).
02580  M01S00271.271l750 +++|*                (B6) = NEW JOB CPU PRIORITY (WITHOUT FLAGS).
02581  M01S00272.271l750 +++|*
02582  M01S00273.271l750 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
02583  M01S00274.271l750 +++|*                A - 1, 2, 6, 7.
02584  M01S00275.271l750 +++|*                B - 5, 6.
02585  M01S00276.271l750 +++|
02586  M01S00277.271l750 +++|
02587  M01S00278.271l750 +++| ACS      BSS    0           ENTRY
02588  M01S00279.271l750 +++|
02589  M01S00280.271l750 +++|*         ADVANCE SERVICE CYCLE FOR PRIORITY AND UPDATE NEW JOB CPU
02590  M01S00281.271l750 +++|*         SCHEDULING PARAMETERS.
02591  M01S00282.271l750 +++|
02592  M01S00283.271l750 +++|          SX6    B4
02593  M01S00284.271l750 +++|          AX6    3
02594  M01S00285.271l750 +++|          SA2    TPRC+X6     GET SERVICE CYCLE FOR PRIORITY
02595  M01S00286.271l750 +++|          MX7    6
02596  M01S00287.271l750 +++|          SX0    B1
02597  M01S00288.271l750 +++|          LX6    3
02598  M01S00289.271l750 +++|          LX0    54-0
02599  M01S00290.271l750 +++|          SB6    X6          SET PRIORITY WITHOUT FLAGS FOR COMPARISON
02600  M01S00291.271l750 +++|          BX6    X7*X2       OLD SERVICE CYCLE
02601  M01S00292.271l750 +++|          BX2    -X7*X2
02602  M01S00293.271l750 +++|          IX6    X6+X0
02603  M01S00294.271l750 +++|          BX7    X7*X6       NEW SERVICE CYCLE
02604  M01S00295.271l750 +++|          BX6    X2+X7       MERGE NEW SERVICE CYCLE
02605  M01S00296.271l750 +++|          SX2    24B
02606  M01S00297.271l750 +++|          SA6    A2+         UPDATE *TPRC* ENTRY
02607  M01S00298.271l750 +++|          LX2    45
02608  M01S00299.271l750 +++|          BX3    X3+X2       SET SLICE ACTIVE/INCOMPLETE FLAGS
02609  M01S00300.271l750 +++|          SX5    A3+
02610  M01S00301.271l750 +++|          BX6    X3
02611  M01S00302.271l750 +++|          UX0,B4 X3          SET PRIORITY WITH ACTIVE FLAG
02612  M01S00303.271l750 +++|
02613  M01S00304.271l750 +++|*         UPDATE CPU SCHEDULING PARAMETERS FOR ALL *WQ* ENTRIES AT
02614  M01S00305.271l750 +++|*         PRIORITY OF NEW JOB.
02615  M01S00306.271l750 +++|
02616  M01S00307.271l750 +++| ACS1     SA1    X1          GET NEXT *WQ* ENTRY
02617  M01S00308.271l750 +++|          SA6    X5          UPDATE PRIORITY FLAGS
02618  M01S00309.271l750 +++|          SA7    X5+B1       SET SERVICE CYCLE AND CLEAR ACSUMULATORS
02619  M01S00310.271l750 +++|          ERRNZ  CSAW-CWQW-1
02620  M01S00311.271l750 +++|          SX5    A1
02621  M01S00312.271l750 +++|          UX0,B5 X1          UNPACK PRIORITY WITH FLAGS
02622  M01S00313.271l750 +++|          BX6    X1+X2       SET SLICE ACTIVE FLAGS
02623  M01S00314.271l750 +++|          LE     B6,B5,ACS1  IF PRIORITY (NO FLAGS) SAME AS NEW JOB
02624  M01S00315.271l750 +++|          JP     B3          RETURN
02625  M00S01530.cpumtr  +++| AIO      SPACE  4
02626  M00S01531.cpumtr  +++|**        AIO - APPLY IO INCREMENT TO SRU ACCUMULATOR.
02627  M00S01532.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02628  M01S01533.ns2753  ---|*         IO = S2*MS + S3*MT + S4*PF

Seq #  *Modification Id* Act 
----------------------------+
02629  M01S00001.ns2753  +++|*         IO = S2*MS + S3*MT + S4*PF + S5*OD
02630  M00S01534.cpumtr  +++|*
02631  M00S01535.cpumtr  +++|*         NEW SRU = IOM*IO + OLD SRU
02632  M00S01536.cpumtr  +++|*
02633  M00S01537.cpumtr  +++|*         ENTRY  (X1) = INCREMENT (INTEGER FORMAT).
02634  M00S01538.cpumtr  +++|*                (X2) = INCREMENT INDEX.
02635  M00S01539.cpumtr  +++|*                (B3) = EXIT ADDRESS.
02636  M00S01540.cpumtr  +++|*                (B4) = OVERFLOW FLAG.
02637  M00S01541.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02638  M01S01542.ns2753  ---|*         USES   X - 1, 2, 3, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
02639  M01S00002.ns2753  +++|*         USES   X - 0, 1, 2, 3, 4, 6.
02640  M00S01543.cpumtr  +++|*                B - 4, 6.
02641  M00S01544.cpumtr  +++|*                A - 2, 3, 4, 6.
02642  M00S01545.cpumtr  +++|
02643  M00S01546.cpumtr  +++|
02644  M00S01547.cpumtr  +++| AIO      ZR     X1,AIO2     IF NO INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
02645  M01S01548.ns2753  ---|          SA2    AIOA+X2     INCREMENT MULTIPLIER  (S2, S3 OR S4)

Seq #  *Modification Id* Act 
----------------------------+
02646  M01S00003.ns2753  +++|          SA2    AIOA+1+X2   INCREMENT MULTIPLIER  (S2, S3, S4 OR S5)
02647  M00S01549.cpumtr  +++|          SA3    B7+MP3W     IO MULTIPLIER (IOM)
02648  M00S01550.cpumtr  +++|          MX6    -30
02649  M00S01551.cpumtr  +++|          PX1    X1
02650  M00S01552.cpumtr  +++|          BX3    -X6*X3      ISOLATE IOM
02651  M00S01553.cpumtr  +++|          NX1    X1
02652  M00S01554.cpumtr  +++|          PX3    X3

Seq #  *Modification Id* Act 
----------------------------+
02653  M01S01555.ns2753  ---|          RX1    X2*X1       IO = (S2, S3 OR S4) * (MS, MT OR PF)

Seq #  *Modification Id* Act 
----------------------------+
02654  M01S00004.ns2753  +++|          RX1    X2*X1       IO = (S2, S3, S4, S5) * (MS, MT, PF, OD)
02655  M00S01556.cpumtr  +++|          NX3    X3
02656  M00S01557.cpumtr  +++|          RX1    X3*X1       IOM * IO
02657  M00S01558.cpumtr  +++|          UX1,B6 X1
02658  M00S01559.cpumtr  +++|          LX1    B6          (X1) = SRU INCREMENT
02659  M00S01560.cpumtr  +++|          NE     B1,B4,AIO1  IF NOT PF ACCUMULATOR
02660  M00S01561.cpumtr  +++|          SB4    B4+1
02661  M00S01562.cpumtr  +++|
02662  M00S01563.cpumtr  +++|*         UPDATE SRU ACCUMULATOR.
02663  M00S01564.cpumtr  +++|*         (X1) = INCREMENT.

Seq #  *Modification Id* Act 
----------------------------+
02664  M01S00005.ns2753  +++|*         (B4) = 0B FOR NO OVERFLOW,
02665  M01S00006.ns2753  +++|*                1B FOR ADDER OVERFLOW,
02666  M01S00007.ns2753  +++|*                2B FOR PF OVERFLOW,
02667  M01S00008.ns2753  +++|*                4B FOR TAPE OVERFLOW,
02668  M01S00009.ns2753  +++|*               10B FOR MS OVERFLOW,
02669  M01S00010.ns2753  +++|*               20B FOR MP OVERFLOW,
02670  M01S00011.ns2753  +++|*               40B FOR AUC OVERFLOW,
02671  M01S00012.ns2753  +++|*              100B FOR OD OVERFLOW.
02672  M00S01565.cpumtr  +++|
02673  M00S01566.cpumtr  +++| AIO1     SA2    B7+SRUW     SRU ACCUMULATOR
02674  M00S01567.cpumtr  +++|          MX0    -42
02675  M00S01568.cpumtr  +++|          BX6    X2
02676  M00S01569.cpumtr  +++|          SA4    B7+MP3W     CHECK FOR SRU ACCUMULATION DISABLED
02677  M00S01570.cpumtr  +++|          NG     X4,AIO2     IF SRU ACCUMULATION DISABLED
02678  M00S01571.cpumtr  +++|          BX4    -X0*X2      ISOLATE ACCUMULATOR
02679  M00S01572.cpumtr  +++|          SA3    B7+STLW     GET SRU LIMIT
02680  M00S01573.cpumtr  +++|          IX4    X4+X1       APPLY INCREMENT
02681  M00S01574.cpumtr  +++|          BX3    -X0*X3      ISOLATE LIMIT VALUE
02682  M00S01575.cpumtr  +++|          IX6    X2+X1
02683  M00S01576.cpumtr  +++|          IX4    X3-X4       COMPARE LIMIT TO NEW VALUE
02684  M00S01577.cpumtr  +++|          SA6    A2
02685  M00S01578.cpumtr  +++|          PL     X4,AIO2     IF LIMIT NOT EXCEEDED
02686  M00S01579.cpumtr  +++|          SB4    B4+20000B   SET SRU LIMIT FLAG
02687  M00S01580.cpumtr  +++| AIO2     NZ     B4,AIO3     IF OVERFLOW OR LIMIT HAS OCCURRED
02688  M00S01581.cpumtr  +++|          JP     B3
02689  M00S01582.cpumtr  +++|
02690  M00S01583.cpumtr  +++| AIO3     SA2    B7+SRUW     SET LIMIT FLAGS
02691  M00S01584.cpumtr  +++|          SX0    B4

Seq #  *Modification Id* Act 
----------------------------+
02692  M01S00001.ns2392  +++|          BX3    X2
02693  M00S01585.cpumtr  +++|          LX0    43          POSITION FLAGS

Seq #  *Modification Id* Act 
----------------------------+
02694  M01S00002.ns2392  +++|          LX3    59-53
02695  M01S00003.ns2392  +++|          NG     X3,RB3      IF RESOURCE LIMITS DISABLED
02696  M00S01586.cpumtr  +++|          BX6    X2+X0
02697  M00S01587.cpumtr  +++|          SA6    A2
02698  M00S01588.cpumtr  +++|          JP     B3          EXIT
02699  M00S01589.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02700  M01S01590.ns2753  ---| AIOA     CON    "S4SRM","S3SRM","S2SRM"  S4, S3, S2 MULTIPLIERS

Seq #  *Modification Id* Act 
----------------------------+
02701  M01S00013.ns2753  +++| AIOA     CON    "S5SRM","S4SRM","S3SRM","S2SRM"  S5,S4,S3,S2
02702  M00S01591.cpumtr  +++| AMP      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
02703  M01S01592.ns2753  ---|**        AMP - ADD MAP PROCESSOR INCREMENT.

Seq #  *Modification Id* Act 
----------------------------+
02704  M01S00014.ns2753  +++|**        AMP - ADD MAP PROCESSOR OR OPTICAL DISK INCREMENT.
02705  M00S01593.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02706  M01S01594.ns2753  ---|*         NEW SRU = M1 * MAP MULTIPLIER * (X1) + OLD SRU

Seq #  *Modification Id* Act 
----------------------------+
02707  M01S00015.ns2753  +++|*         IF OD, EXITS TO *AIO* TO APPLY IO INCREMENT.
02708  M00S01595.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02709  M01S00016.ns2753  +++|*         IF MAP, NEW SRU = M1 * MAP MULTIPLIER * (X1) + OLD SRU
02710  M01S00017.ns2753  +++|*
02711  M00S01596.cpumtr  +++|*         ENTRY  (X1) = INCREMENT (INTEGER FORMAT)

Seq #  *Modification Id* Act 
----------------------------+
02712  M01S00018.ns2753  +++|*                (X2) = 0 IF MAP INCREMENT,
02713  M01S00019.ns2753  +++|*                       1 IF OD INCREMENT.
02714  M00S01597.cpumtr  +++|*                (B3) = EXIT ADDRESS
02715  M00S01598.cpumtr  +++|*                (B4) = OVERFLOW FLAG
02716  M00S01599.cpumtr  +++|*
02717  M00S01600.cpumtr  +++|*         EXIT   EXITS THRU ROUTINE *AIO* TO APPLY FINAL
02718  M00S01601.cpumtr  +++|*                INCREMENT TO SRU ACCUMULATOR.
02719  M00S01602.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02720  M01S01603.ns2753  ---|*         USES   A - 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
02721  M01S00020.ns2753  +++|*         USES   A - 3.
02722  M00S01604.cpumtr  +++|*                B - 4.

Seq #  *Modification Id* Act 
----------------------------+
02723  M01S01605.ns2753  ---|*                X - 1, 2, 3, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
02724  M01S00021.ns2753  +++|*                X - 1, 2, 3, 6.
02725  M00S01606.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02726  M01S01607.ns2753  ---|
02727  M00S01608.cpumtr  +++| AMP      ZR     X1,AIO2     IF NO INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
02728  M01S00022.ns2753  +++|          NZ     X2,AMP1     IF OD INCREMENT
02729  M00S01609.cpumtr  +++|          SA3    B7+MPAW     GET M1 * MAP MULTIPLIER
02730  M00S01610.cpumtr  +++|          MX6    18
02731  M00S01611.cpumtr  +++|          BX2    X6*X3       ISOLATE MULTIPLIER
02732  M00S01612.cpumtr  +++|          LX2    18
02733  M00S01613.cpumtr  +++|          IX1    X1*X2       M1 * MAP MULTIPLIER * INCREMENT
02734  M00S01614.cpumtr  +++|          ZR     B4,AIO1     IF NO OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
02735  M01S01615.v22l602 ---|          SB4    20B         SET OVERFLOW FLAG TO MAP III

Seq #  *Modification Id* Act 
----------------------------+
02736  M01S00001.v22l602 +++|          SB4    20B         SET OVERFLOW FLAG TO MAP
02737  M00S01616.cpumtr  +++|          EQ     AIO1        UPDATE SRU ACCUMULATION

Seq #  *Modification Id* Act 
----------------------------+
02738  M01S00023.ns2753  +++|
02739  M01S00024.ns2753  +++| AMP1     SX2    -1          SET INDEX TO *S5*
02740  M01S00025.ns2753  +++|          ZR     B4,AIO      IF NO OVERFLOW
02741  M01S00026.ns2753  +++|          SB4    100B        SET OVERFLOW FLAG TO OD
02742  M01S00027.ns2753  +++|          EQ     AIO         UPDATE IO SRU ACCUMULATION
02743  M01S00028.ns2753  +++|
02744  M00S01617.cpumtr  +++| APQ      SPACE  4,10
02745  M00S01618.cpumtr  +++|**        APQ - ASSIGN PP OR IF UNASSIGNABLE ENTER IN REQUEST QUEUE.
02746  M00S01619.cpumtr  +++|*
02747  M00S01620.cpumtr  +++|*         ENTRY  (X6) = PP CALL.

Seq #  *Modification Id* Act 
----------------------------+
02748  M01S01621.cpum107 ---|*                (X1) = 0  IF RETURN ON UNASSIGNABLE PP REQUEST.
02749  M00S01622.cpumtr  +++|*                (B3) = EXIT ADDRESS.
02750  M00S01623.cpumtr  +++|*                (B4) = INDEX INTO *TFPL* IF LIBRARY SEARCH NOT NEEDED.
02751  M00S01624.cpumtr  +++|*                (B4) = 0 IF LIBRARY SEARCH NEEDED.
02752  M00S01625.cpumtr  +++|*                (B4) .LT. 0 RETURN REQUESTED WHEN PP UNASSIGNABLE.
02753  M00S01626.cpumtr  +++|*                (B7) = CONTROL POINT ADDRESS.
02754  M00S01627.cpumtr  +++|*                       NOTE THAT THE CONTROL POINT NUMBER IS ENTERED
02755  M00S01628.cpumtr  +++|*                       INTO THE PP CALL BY THIS ROUTINE.
02756  M00S01629.cpumtr  +++|*                (A5) = OUTPUT REGISTER OF REQUESTING PP, IF ANY.
02757  M00S01630.cpumtr  +++|*                (APQA) = PARAMETER WORD.

Seq #  *Modification Id* Act 
----------------------------+
02758  M01S00001.cpumt85 +++|*                (APQC) = MASK FOR *PPAL* SELECTION.
02759  M00S01631.cpumtr  +++|*
02760  M00S01632.cpumtr  +++|*         EXIT   (X1) = 0 IF PP UNASSIGNABLE AND RETURN REQUESTED.
02761  M00S01633.cpumtr  +++|*                (X1) = -0  IF REJECT FOR STORAGE MOVE.
02762  M00S01634.cpumtr  +++|*                (X1) = *IR* ADDRESS IF PP ASSIGNED.
02763  M00S01635.cpumtr  +++|*
02764  M00S01636.cpumtr  +++|*         USES   X - 1, 2, 3, 4, 7.
02765  M00S01637.cpumtr  +++|*                B - 6.
02766  M00S01638.cpumtr  +++|*                A - 1, 2, 6, 7.
02767  M00S01639.cpumtr  +++|*
02768  M00S01640.cpumtr  +++|*         PRESERVES  X0, B7, B4, B3, A5, A0.
02769  M00S01641.cpumtr  +++|*
02770  M00S01642.cpumtr  +++|*         CALLS  APQ, SPL.
02771  M00S01643.cpumtr  +++|
02772  M00S01644.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02773  M01S01645.ns2210  ---| APQ      SA2    NP          CHECK PP AVAILABILITY

Seq #  *Modification Id* Act 
----------------------------+
02774  M01S00001.ns2210  +++| APQ      SA2    PPAL        CHECK PP AVAILABILITY

Seq #  *Modification Id* Act 
----------------------------+
02775  M01S00024.251l664 +++|          MX3    20
02776  M01S00025.251l664 +++|          LX3    -12
02777  M01S00026.251l664 +++|          BX2    X3*X2

Seq #  *Modification Id* Act 
----------------------------+
02778  M01S00001.cpum108 +++|          SA3    SCRL        CHECK EMERGENCY STEP

Seq #  *Modification Id* Act 
----------------------------+
02779  M01S01646.cpum107 ---|          SX7    B7

Seq #  *Modification Id* Act 
----------------------------+
02780  M01S00002.cpum108 +++|          LX3    59-56
02781  M01S00003.cpum108 +++|          NG     X3,APQ8     IF EMERGENCY STEP SET

Seq #  *Modification Id* Act 
----------------------------+
02782  M01S01647.ns2332b ---|          MX4    5
02783  M00S01648.cpumtr  +++|
02784  M00S01649.cpumtr  +++|*         ENTERED HERE FROM *PPQ*.
02785  M00S01650.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
02786  M01S01651.cpum107 ---| APQ1     ZR     X2,APQ8     IF NO PP AVAILABLE
02787  M01S01652.cpum107 ---|          SA1    CMCL        CHECK MOVE REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
02788  M02S00001.ns2332b ---| APQ1     TNO    /0CME/APQ9,NCME

Seq #  *Modification Id* Act 
----------------------------+
02789  M01S00001.ns2332b +++| APQ1     MX7    20          INITIALIZE PP SELECTION MASK
02790  M01S00002.ns2332b +++|          LX7    -12
02791  M01S00003.ns2332b +++|          SA7    APQC
02792  M01S00004.ns2332b +++|
02793  M01S00005.ns2332b +++|*         CHECK FOR SPECIAL PRE-PROCESSING REQUIRED.
02794  M01S00006.ns2332b +++|*                EXIT TO *CSP* IF CYBER 810/830.
02795  M01S00007.ns2332b +++|*                EXIT TO *APQ9* IF CYBER 170.
02796  M01S00008.ns2332b +++|

Seq #  *Modification Id* Act 
----------------------------+
02797  M02S00009.253l688 ---|          TJMP   /MONITOR/CSP,CP830,/0CME/APQ9,NCME,/MONITOR/APQ1.0

Seq #  *Modification Id* Act 
----------------------------+
02798  M01S00426.253l688 +++|          TJP    (/MONITOR/CSP,CP830,/0CME/APQ9,NCME,/MONITOR/APQ1.0)

Seq #  *Modification Id* Act 
----------------------------+
02799  M01S00002.cpum107 +++| APQ1.0   BX3    X2

Seq #  *Modification Id* Act 
----------------------------+
02800  M01S00010.ns2332b +++|          MX4    5

Seq #  *Modification Id* Act 
----------------------------+
02801  M01S00003.cpum107 +++|          SA2    CMCL        CHECK MOVE REQUESTED
02802  M01S00004.cpum107 +++|          SX7    B7
02803  M00S01653.cpumtr  +++|          LX4    40-59
02804  M00S01654.cpumtr  +++|          LX7    36-7        MERGE CONTROL POINT NUMBER
02805  M00S01655.cpumtr  +++|          BX6    -X4*X6

Seq #  *Modification Id* Act 
----------------------------+
02806  M01S01656.cpum107 ---|          LX1    40-59
02807  M01S01657.cpum107 ---|          BX6    X6+X7
02808  M01S01658.cpum107 ---|          BX1    X4*X1
02809  M01S01659.cpum107 ---|          MX4    18
02810  M01S01660.cpum107 ---|          BX1    X1-X7
02811  M01S01661.cpum107 ---|          ZR     X1,APQ7     IF MOVE REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
02812  M02S00005.271l716 ---|          LX2    40-59
02813  M02S00006.271l716 ---|          BX6    X6+X7
02814  M02S00007.271l716 ---|          BX2    X4*X2
02815  M02S00008.271l716 ---|          MX4    18

Seq #  *Modification Id* Act 
----------------------------+
02816  M01S00020.271l716 +++|          AX2    48
02817  M01S00021.271l716 +++|          BX6    X6+X7
02818  M01S00022.271l716 +++|          LX2    36

Seq #  *Modification Id* Act 
----------------------------+
02819  M01S00009.cpum107 +++|          BX2    X2-X7
02820  M01S00010.cpum107 +++|          ZR     X2,APQ7     IF MOVE REQUESTED
02821  M01S00011.cpum107 +++|          ZR     X3,APQ8     IF NO PP AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
02822  M01S01662.cpumt85 ---|          SB6    APQ2

Seq #  *Modification Id* Act 
----------------------------+
02823  M01S00002.cpumt85 +++|
02824  M01S00003.cpumt85 +++|*         ENTER HERE FOR SPECIAL *1VP* ASSIGNMENT REQUEST.
02825  M01S00004.cpumt85 +++|
02826  M01S00005.cpumt85 +++| APQ1.1   SB6    APQ2        *SPL* RETURN ADDRESS
02827  M00S01663.cpumtr  +++|          LT     B4,B1,SPL   IF LIBRARY SEARCH / NO PP RECALL
02828  M00S01664.cpumtr  +++|          SA2    PLDP
02829  M00S01665.cpumtr  +++|          SA1    TFPL-1+B4   GET PP DIRECTORY ADDRESS
02830  M00S01666.cpumtr  +++|          AX2    36

Seq #  *Modification Id* Act 
----------------------------+
02831  M01S01667.271l716 ---|          SX1    X1

Seq #  *Modification Id* Act 
----------------------------+
02832  M01S00023.271l716 +++|          SX1    X1+
02833  M01S00024.271l716 +++|          MX3    1
02834  M00S01668.cpumtr  +++|          ZR     X2,APQ7     IF LIBRARY LOCKED

Proceed to Part 2