Deck MTR Part 008

62 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
06951  M02S00942.273l780 ---|*         USES   CM - CM+4, CN - CN+2, CS - CS+4.

Seq #  *Modification Id* Act 
----------------------------+
06952  M02S00120.ns2748  ---|*         USES   CM - CM+4, CN - CN+2.
06953  M01S00001.ns2748  +++|*         USES   CM - CM+4, CN - CN+4.
06954  M01S00943.271l716 +++|*

Seq #  *Modification Id* Act 
----------------------------+
06955  M02S00944.273l780 ---|*         CALLS  CFL, CPR, ISR, SCP, TIM, WXP.
06956  M01S00121.273l780 +++|*         CALLS  CFL, CPR, ISR, SCP, WXP.
06957  M01S00011.mtr36   +++|*

Seq #  *Modification Id* Act 
----------------------------+
06958  M02S00012.273l780 ---|*         ERROR  EXIT TO *HGM* IF CP 0 FL .GE. 300K OCTAL.

Seq #  *Modification Id* Act 
----------------------------+
06959  M02S00122.ns2748  ---|*         ERROR  EXIT TO *HGM* IF CMR SIZE .GE. 300K OCTAL.
06960  M01S00002.ns2748  +++|*         ERROR  EXIT TO *HGM* IF CMR SIZE .GE. MCMR*100B.
06961  M01S04463.mtr     +++|
06962  M01S04464.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
06963  M02S04465.271l716 ---| MFL1     LDD    CP

Seq #  *Modification Id* Act 
----------------------------+
06964  M02S04466.271l716 ---|          ADN    STSW

Seq #  *Modification Id* Act 
----------------------------+
06965  M02S04467.271l716 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
06966  M02S04468.271l716 ---|          LDD    CM

Seq #  *Modification Id* Act 
----------------------------+
06967  M02S04469.271l716 ---|          SHN    -11

Seq #  *Modification Id* Act 
----------------------------+
06968  M02S04470.271l716 ---|          LMN    BCPS

Seq #  *Modification Id* Act 
----------------------------+
06969  M02S04471.271l716 ---|          ZJN    MFL2        IF ACTIVE IN CPU - 1

Seq #  *Modification Id* Act 
----------------------------+
06970  M02S04472.271l716 ---|          LDN    1           REQUEST CPU - 0

Seq #  *Modification Id* Act 
----------------------------+
06971  M02S04473.271l716 ---| MFL2     LMN    1

Seq #  *Modification Id* Act 
----------------------------+
06972  M02S04474.271l716 ---|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
06973  M02S04475.271l716 ---|          LMM    MAFD,T1

Seq #  *Modification Id* Act 
----------------------------+
06974  M02S04476.271l716 ---|          RJM    CPR

Seq #  *Modification Id* Act 
----------------------------+
06975  M02S04477.271l716 ---|          RJM    CFL         CLEAR FL INCREASE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
06976  M02S04478.271l716 ---|          RJM    WXP         WAIT FL CHANGE

Seq #  *Modification Id* Act 
----------------------------+
06977  M02S04479.271l716 ---|          LDD    CP          CHECK IF CHANGE MADE

Seq #  *Modification Id* Act 
----------------------------+
06978  M02S04480.271l716 ---|          ADD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
06979  M02S04481.271l716 ---|          CRD    CS

Seq #  *Modification Id* Act 
----------------------------+
06980  M02S04482.271l716 ---|          LDM    CS,OR+4

Seq #  *Modification Id* Act 
----------------------------+
06981  M02S04483.271l716 ---|          LMD    OR+1

Seq #  *Modification Id* Act 
----------------------------+
06982  M02S04484.271l716 ---|          ZJN    MFLX        IF CHANGE MADE

Seq #  *Modification Id* Act 
----------------------------+
06983  M02S04485.271l716 ---| MFL3     LDD    OR+1        HAVE *CPUMTR* CHANGE FL

Seq #  *Modification Id* Act 
----------------------------+
06984  M02S04486.271l716 ---|          SBM    CS,OR+4

Seq #  *Modification Id* Act 
----------------------------+
06985  M02S04487.271l716 ---|          STD    CN

Seq #  *Modification Id* Act 
----------------------------+
06986  M02S04488.271l716 ---|          LDD    CP          SET CP ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
06987  M02S04489.271l716 ---|          STD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
06988  M02S04490.271l716 ---|          LDD    OR+4        SET FL TYPE

Seq #  *Modification Id* Act 
----------------------------+
06989  M02S04491.271l716 ---|          LMN    4

Seq #  *Modification Id* Act 
----------------------------+
06990  M02S04492.271l716 ---|          STD    CN+1

Seq #  *Modification Id* Act 
----------------------------+
06991  M02S04493.271l716 ---|          LDD    OR+2

Seq #  *Modification Id* Act 
----------------------------+
06992  M02S04494.271l716 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
06993  M02S04495.271l716 ---|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
06994  M02S04496.271l716 ---| MFLA     LJM    MFL1        (DUAL CPU)

Seq #  *Modification Id* Act 
----------------------------+
06995  M02S04497.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
06996  M02S04498.271l716 ---|*         LDM    MAFD,T1     (SINGLE CPU)

Seq #  *Modification Id* Act 
----------------------------+
06997  M02S04499.271l716 ---|          RJM    CPR

Seq #  *Modification Id* Act 
----------------------------+
06998  M02S04500.271l716 ---|          RJM    CFL         CLEAR FL INCREASE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
06999  M02S04501.271l716 ---| MFL4     RJM    TIM         WAIT FOR FL CHANGE

Seq #  *Modification Id* Act 
----------------------------+
07000  M02S04502.271l716 ---|          LDD    CP

Seq #  *Modification Id* Act 
----------------------------+
07001  M02S04503.271l716 ---|          ADD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07002  M02S04504.271l716 ---|          CRD    CS

Seq #  *Modification Id* Act 
----------------------------+
07003  M02S04505.271l716 ---|          LDM    CS,OR+4

Seq #  *Modification Id* Act 
----------------------------+
07004  M02S04506.271l716 ---|          LMD    OR+1

Seq #  *Modification Id* Act 
----------------------------+
07005  M02S04507.271l716 ---|          NJN    MFL4        IF CHANGE NOT MADE

Seq #  *Modification Id* Act 
----------------------------+
07006  M02S04508.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07007  M02S04509.271l716 ---| MFL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07008  M02S04510.271l716 ---|          LDD    OR+2

Seq #  *Modification Id* Act 
----------------------------+
07009  M02S04511.271l716 ---|          SHN    21-7

Seq #  *Modification Id* Act 
----------------------------+
07010  M02S04512.271l716 ---|          MJN    MFLX        IF SPECIAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07011  M02S04513.271l716 ---|          LDD    CP

Seq #  *Modification Id* Act 
----------------------------+
07012  M02S04514.271l716 ---|          NJP    MFL3        IF NOT CP 0

Seq #  *Modification Id* Act 
----------------------------+
07013  M02S04515.271l716 ---|          LDD    OR+1

Seq #  *Modification Id* Act 
----------------------------+
07014  M02S04516.271l716 ---|          ADC    -3000

Seq #  *Modification Id* Act 
----------------------------+
07015  M03S04517.271l716 ---|          PJN    *           HANG IF CP 0 .GE. 300K OCTAL

Seq #  *Modification Id* Act 
----------------------------+
07016  M02S00013.271l716 ---|          PJN    MFL0        IF CP 0 .GE. 300K OCTAL

Seq #  *Modification Id* Act 
----------------------------+
07017  M02S04518.271l716 ---|          LDD    OR+1        SET FIELD LENGTH

Seq #  *Modification Id* Act 
----------------------------+
07018  M02S04519.271l716 ---|          STD    CS+4

Seq #  *Modification Id* Act 
----------------------------+
07019  M02S04520.271l716 ---|          LDD    OR+3        STORE STATUS

Seq #  *Modification Id* Act 
----------------------------+
07020  M02S04521.271l716 ---|          CWD    CS

Seq #  *Modification Id* Act 
----------------------------+
07021  M02S00001.271l716 ---|          LDD    OR+2        CHECK FOR ECS REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07022  M02S00002.271l716 ---|          LPN    1

Seq #  *Modification Id* Act 
----------------------------+
07023  M02S00003.271l716 ---|          NJN    MFLX        IF ECS REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07024  M02S04522.271l716 ---|          LDD    FT          SET 4000 + NFL FOR CP 0

Seq #  *Modification Id* Act 
----------------------------+
07025  M02S04523.271l716 ---|          STD    CS+3

Seq #  *Modification Id* Act 
----------------------------+
07026  M02S04524.271l716 ---|          LDD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07027  M02S04525.271l716 ---|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
07028  M02S04526.271l716 ---|          CWD    CS

Seq #  *Modification Id* Act 
----------------------------+
07029  M02S04527.271l716 ---|          UJN    MFLX

Seq #  *Modification Id* Act 
----------------------------+
07030  M02S00014.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07031  M02S00015.271l716 ---| MFL0     RJM    HGM         HANG *MTR* (NO RETURN)

Seq #  *Modification Id* Act 
----------------------------+
07032  M02S04528.271l716 ---| MRA      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
07033  M02S04529.271l716 ---|**        MRA - MODIFY RA.

Seq #  *Modification Id* Act 
----------------------------+
07034  M02S04530.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07035  M02S04531.271l716 ---|*         ENTRY  (CP) = CONTROL POINT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
07036  M02S04532.271l716 ---|*                (MM+1) = INCREMENT.

Seq #  *Modification Id* Act 
----------------------------+
07037  M02S04533.271l716 ---|*                (CS - CS+4) = FL STATUS WORD.

Seq #  *Modification Id* Act 
----------------------------+
07038  M02S04534.271l716 ---|*                (OR+2) = XX00 IF CM REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07039  M02S04535.271l716 ---|*                       = XX01 IF ECS REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07040  M02S04536.271l716 ---|*                (OR+3) = *CMRL*/*FLSW* IF CM REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07041  M02S04537.271l716 ---|*                       = *ECRL*/*ECSW* IF ECS REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07042  M02S04538.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07043  M02S04539.271l716 ---|*         USES   CS+2, CS+3, T1, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
07044  M02S04540.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07045  M02S04541.271l716 ---|*         PROGRAMMING NOTE - THE RAE FIELD OF THE EXCHANGE PACKAGE

Seq #  *Modification Id* Act 
----------------------------+
07046  M02S04542.271l716 ---|*         IS NOT UPDATED BECAUSE THE CPU MAY BE ACTIVE AT THE

Seq #  *Modification Id* Act 
----------------------------+
07047  M02S04543.271l716 ---|*         CONTROL POINT AND THE EXCHANGE PACKAGE NOT IN THE CPA.

Seq #  *Modification Id* Act 
----------------------------+
07048  M02S04544.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07049  M02S04545.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07050  M02S04546.271l716 ---| MRA3     LDD    CS+2        FORM RA - NFL

Seq #  *Modification Id* Act 
----------------------------+
07051  M02S04547.271l716 ---|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
07052  M02S04548.271l716 ---|          ADD    CS+3

Seq #  *Modification Id* Act 
----------------------------+
07053  M02S04549.271l716 ---|          SBD    CS

Seq #  *Modification Id* Act 
----------------------------+
07054  M02S04550.271l716 ---|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
07055  M02S04551.271l716 ---|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
07056  M02S04552.271l716 ---|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
07057  M02S04553.271l716 ---|          LDD    FT          FORM 4000 + NFL

Seq #  *Modification Id* Act 
----------------------------+
07058  M02S04554.271l716 ---|          ADD    CS

Seq #  *Modification Id* Act 
----------------------------+
07059  M02S04555.271l716 ---|          STD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
07060  M02S04556.271l716 ---|          LDD    CS+4

Seq #  *Modification Id* Act 
----------------------------+
07061  M02S04557.271l716 ---|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
07062  M02S04558.271l716 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
07063  M02S04559.271l716 ---|          STD    CM

Seq #  *Modification Id* Act 
----------------------------+
07064  M02S04560.271l716 ---|          LDD    CP          WRITE FLSW+1

Seq #  *Modification Id* Act 
----------------------------+
07065  M02S04561.271l716 ---|          ADD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07066  M02S04562.271l716 ---|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
07067  M02S04563.271l716 ---|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
07068  M02S04564.271l716 ---| MRA4     LDD    CP          WRITE FLSW/ECSW

Seq #  *Modification Id* Act 
----------------------------+
07069  M02S04565.271l716 ---|          ADD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07070  M02S04566.271l716 ---|          CWD    CS

Seq #  *Modification Id* Act 
----------------------------+
07071  M02S04567.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07072  M02S04568.271l716 ---| MRA      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07073  M02S04569.271l716 ---|          LDD    MM+1        DETERMINE SIGN OF INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
07074  M02S04570.271l716 ---|          SHN    0-13

Seq #  *Modification Id* Act 
----------------------------+
07075  M02S04571.271l716 ---|          ZJN    MRA2        IF POSITIVE

Seq #  *Modification Id* Act 
----------------------------+
07076  M02S04572.271l716 ---|          LCN    0

Seq #  *Modification Id* Act 
----------------------------+
07077  M02S04573.271l716 ---| MRA2     STD    T1

Seq #  *Modification Id* Act 
----------------------------+
07078  M02S04574.271l716 ---|          LDD    MM+1        INCREMENT/DECREMENT LOWER HALF

Seq #  *Modification Id* Act 
----------------------------+
07079  M02S04575.271l716 ---|          RAD    CS+3

Seq #  *Modification Id* Act 
----------------------------+
07080  M02S04576.271l716 ---|          SHN    -14         INCREMENT/DECREMENT UPPER HALF

Seq #  *Modification Id* Act 
----------------------------+
07081  M02S04577.271l716 ---|          ADD    T1

Seq #  *Modification Id* Act 
----------------------------+
07082  M02S04578.271l716 ---|          RAD    CS+2

Seq #  *Modification Id* Act 
----------------------------+
07083  M02S04579.271l716 ---|          SHN    -14         SAVE END-AROUND CARRY

Seq #  *Modification Id* Act 
----------------------------+
07084  M02S04580.271l716 ---|          RAD    CS+3

Seq #  *Modification Id* Act 
----------------------------+
07085  M02S04581.271l716 ---|          SHN    -14         CARRY INTO UPPER HALF

Seq #  *Modification Id* Act 
----------------------------+
07086  M02S04582.271l716 ---|          RAD    CS+2

Seq #  *Modification Id* Act 
----------------------------+
07087  M02S04583.271l716 ---|          SHN    0-13        CORRECT FOR NEGATIVE ZERO RAE

Seq #  *Modification Id* Act 
----------------------------+
07088  M02S04584.271l716 ---|          RAD    CS+3

Seq #  *Modification Id* Act 
----------------------------+
07089  M02S04585.271l716 ---|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
07090  M02S04586.271l716 ---|          RAD    CS+2

Seq #  *Modification Id* Act 
----------------------------+
07091  M02S04587.271l716 ---|          LDD    OR+2

Seq #  *Modification Id* Act 
----------------------------+
07092  M02S04588.271l716 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
07093  M02S04589.271l716 ---|          NJN    MRA4        IF USER ECS

Seq #  *Modification Id* Act 
----------------------------+
07094  M02S04590.271l716 ---|          LDD    CP          READ EXCHANGE PACKAGE RA

Seq #  *Modification Id* Act 
----------------------------+
07095  M02S04591.271l716 ---|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
07096  M02S04592.271l716 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
07097  M02S04593.271l716 ---|          STD    T1          SAVE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
07098  M02S04594.271l716 ---|          LDD    CS+3        RESET RA

Seq #  *Modification Id* Act 
----------------------------+
07099  M02S04595.271l716 ---|          SHN    6

Seq #  *Modification Id* Act 
----------------------------+
07100  M02S04596.271l716 ---|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
07101  M02S04597.271l716 ---|          LMD    CS+2

Seq #  *Modification Id* Act 
----------------------------+
07102  M02S04598.271l716 ---|          SHN    6

Seq #  *Modification Id* Act 
----------------------------+
07103  M02S04599.271l716 ---|          STD    CM

Seq #  *Modification Id* Act 
----------------------------+
07104  M02S04600.271l716 ---|          LDD    T1          REWRITE EXCHANGE PACKAGE

Seq #  *Modification Id* Act 
----------------------------+
07105  M02S04601.271l716 ---|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
07106  M02S04602.271l716 ---|          LJM    MRA3        REWRITE FL STATUS WORD
07107  M01S00945.271l716 +++| MFL4     LDD    CP          SET CP/PCP NUMBER
07108  M01S00946.271l716 +++|          STD    CN+2
07109  M01S00947.271l716 +++|          LDN    0           CLEAR UNUSED FIELDS
07110  M01S00948.271l716 +++|          STD    CN+4
07111  M01S00949.271l716 +++|          LDN    SMRL        SET REQUEST IN PROGRESS
07112  M01S00950.271l716 +++|          CWD    CN
07113  M01S00951.271l716 +++| MFL5     LDD    CP          FORM CP/PCP AREA ADDRESS
07114  M01S00952.271l716 +++|          RJM    SCP
07115  M01S00953.271l716 +++|          ADN    STSW        GET STATUS WORD
07116  M01S00954.271l716 +++|          CRD    CM
07117  M01S00955.271l716 +++|          LDD    CM          CHECK CPU STATUS
07118  M01S00956.271l716 +++|          SHN    -11
07119  M01S00957.271l716 +++|          LMN    ACPS
07120  M01S00958.271l716 +++|          ZJN    MFL6        IF ACTIVITY IN CPU - 0
07121  M01S00959.271l716 +++|          LDC    10000
07122  M01S00960.271l716 +++| MFL6     LMN    MFLF        MODIFY FIELD LENGTH
07123  M01S00961.271l716 +++|          RJM    CPR
07124  M01S00962.271l716 +++|          RJM    WXP         WAIT REQUEST COMPLETE
07125  M01S00963.271l716 +++|          LDN    SMRL
07126  M01S00964.271l716 +++|          CRD    CN          FETCH REQUEST STATUS
07127  M01S00965.271l716 +++|          LDD    CN
07128  M01S00966.271l716 +++|          NJN    MFL5        IF CHANGE NOT MADE
07129  M01S00967.271l716 +++|
07130  M01S00968.271l716 +++| MFL      SUBR               ENTRY/EXIT
07131  M01S00969.271l716 +++|          LDD    OR+2
07132  M01S00970.271l716 +++|          LPC    1S11+1S10+1S7
07133  M01S00971.271l716 +++|          NJN    MFLX        IF SPECIAL REQUEST
07134  M01S00972.271l716 +++|          STD    CN+3
07135  M01S00973.271l716 +++|          LDD    CP

Seq #  *Modification Id* Act 
----------------------------+
07136  M02S00974.273l780 ---|          NJN    MFL2        IF NOT CONTROL POINT ZERO
07137  M01S00123.273l780 +++|          NJN    MFL2        IF NOT CMR REQUEST
07138  M01S00975.271l716 +++|          LDD    OR+1

Seq #  *Modification Id* Act 
----------------------------+
07139  M02S00976.ns2748  ---|          SBK    3000

Seq #  *Modification Id* Act 
----------------------------+
07140  M02S00977.ns2748  ---|          MJN    MFL3        IF REQUEST .LT. 300K OCTAL
07141  M01S00003.ns2748  +++|          SBK    MCMR
07142  M01S00004.ns2748  +++|          MJN    MFL3        IF REQUEST .LT. MCMR*100B
07143  M01S00978.271l716 +++|
07144  M01S00979.271l716 +++| MFL1     RJM    HGM         HANG *MTR* (NO RETURN)
07145  M01S00980.271l716 +++|
07146  M01S00981.271l716 +++| MFL2     RJM    CFL         CLEAR FL INCREASE REQUEST
07147  M01S00982.271l716 +++| MFL3     LDD    OR+1
07148  M01S00983.271l716 +++|          SBM    CS,OR+4     SET MEMORY INCREMENT
07149  M01S00984.271l716 +++|          STD    CN
07150  M01S00985.271l716 +++|          ZJN    MFLX        IF NO CHANGE
07151  M01S00986.271l716 +++|          LDD    OR+4
07152  M01S00987.271l716 +++|          SHN    6           SET TYPE OF FL + TYPE OF MEMORY
07153  M01S00988.271l716 +++|          LMD    T5
07154  M01S00989.271l716 +++|          STD    CN+1
07155  M01S00990.271l716 +++| MFLA     LJM    MFL4        (DUAL CPU)
07156  M01S00991.271l716 +++|
07157  M01S00992.271l716 +++|*         LDN    MFLF        (SINGLE CPU)
07158  M01S00993.271l716 +++|*         RJM    ISR
07159  M01S00994.271l716 +++|          CON    ISR
07160  M01S00995.271l716 +++|          UJP    MFLX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07161  M02S04603.271l716 ---| PVE      SPACE  4,10
07162  M01S00996.271l716 +++| PVE      SPACE  4,20
07163  M01S04604.mtr     +++|**        PVE - PROCESS SPECIAL REQUEST.
07164  M01S00997.271l716 +++|*
07165  M01S00998.271l716 +++|*         ENTRY  (T5) = 0 IF CM REQUEST.
07166  M01S00999.271l716 +++|*                (T5) = 1 IF XM REQUEST.
07167  M01S01000.271l716 +++|*                (OR+1) = REQUESTED MEMORY INCREMENT.
07168  M01S01001.271l716 +++|*                (OR - OR+4) = UPDATED OUTPUT REGISTER.
07169  M01S04605.mtr     +++|*
07170  M01S04606.mtr     +++|*         EXIT   (A) .GT. 0 IF INCREASE.

Seq #  *Modification Id* Act 
----------------------------+
07171  M02S04607.271l716 ---|*                (A) .LT. 0 IF DECREASE.

Seq #  *Modification Id* Act 
----------------------------+
07172  M02S04608.271l716 ---|*                (A) = 0 IF CALLER NOT *VER*.

Seq #  *Modification Id* Act 
----------------------------+
07173  M02S04609.271l716 ---|*                (T6) = LAST CONTROL POINT.

Seq #  *Modification Id* Act 
----------------------------+
07174  M02S04610.271l716 ---|*                (CP) = LAST CONTROL POINT ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
07175  M02S04611.271l716 ---|*                (T7) = AMOUNT OF INCREASE/DECREASE.

Seq #  *Modification Id* Act 
----------------------------+
07176  M02S04612.271l716 ---|*                OUTPUT REGISTER WRITTEN.

Seq #  *Modification Id* Act 
----------------------------+
07177  M02S04613.271l716 ---|*                (AMFA) = *ADD T1* IF DECREASE.

Seq #  *Modification Id* Act 
----------------------------+
07178  M02S04614.271l716 ---|*                       = *SBD T1* IF INCREASE.

Seq #  *Modification Id* Act 
----------------------------+
07179  M02S04615.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07180  M02S04616.271l716 ---|*         USES   CP, T6, T7, CM - CM+4.
07181  M01S01002.271l716 +++|*                    .LT. 0 IF DECREASE.
07182  M01S01003.271l716 +++|*                (CP) = LAST CONTROL POINT.
07183  M01S01004.271l716 +++|*                (T6) = MCT ORDINAL OF LAST CONTROL POINT.
07184  M01S01005.271l716 +++|*                (T7) = AMOUNT OF INCREASE / DECREASE.
07185  M01S01006.271l716 +++|*                (CS - CS+4) = FL CONTROL WORD FOR LAST CONTROL POINT.
07186  M01S01007.271l716 +++|*
07187  M01S01008.271l716 +++|*         USES   CP, T6, T7, CM - CM+4, CS - CS+4.
07188  M01S01009.271l716 +++|*
07189  M01S01010.271l716 +++|*         CALLS  AMF, HNG, SCP.
07190  M01S04617.mtr     +++|
07191  M01S04618.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
07192  M02S04619.271l716 ---| PVE2     LDN    0
07193  M01S01011.271l716 +++| PVE2     LDN    **          SET CP TO LAST CONTROL POINT
07194  M01S01012.271l716 +++|*         LDN    (NC)-1
07195  M01S01013.271l716 +++| PVEA     EQU    *-1
07196  M01S01014.271l716 +++|          STD    CP
07197  M01S01015.271l716 +++|          STD    T6
07198  M01S01016.271l716 +++|          RJM    SCP         READ FL CONTROL WORD
07199  M01S01017.271l716 +++|          ADD    OR+3
07200  M01S01018.271l716 +++|          CRD    CS
07201  M01S01019.271l716 +++|          LDD    OA          STORE OUTPUT REGISTER
07202  M01S01020.271l716 +++|          CWD    OR
07203  M01S01021.271l716 +++|          LDD    OR+1        SET MEMORY INCREMENT
07204  M01S01022.271l716 +++|          STD    T7
07205  M01S01023.271l716 +++|          SHN    21-13       CHECK REQUEST TYPE
07206  M01S01024.271l716 +++|          PJN    PVEX        IF *VER* REQUESTING MEMORY
07207  M01S01025.271l716 +++|          LDN    11          SET REQUEST TYPE
07208  M01S01026.271l716 +++|          RJM    AMF         SET UNASSIGNED MEMORY AFTER LAST CP
07209  M01S01027.271l716 +++|          LCN    1           INDICATE *VER* RETURNING MEMORY
07210  M01S04620.mtr     +++|
07211  M01S04621.mtr     +++| PVE      SUBR               ENTRY/EXIT
07212  M01S04622.mtr     +++|          LDD    OA          VERIFY CALLER
07213  M01S04623.mtr     +++|          SBN    1
07214  M01S04624.mtr     +++|          CRD    CM
07215  M01S04625.mtr     +++|          LDD    CM+1
07216  M01S04626.mtr     +++|          SCN    77
07217  M01S04627.mtr     +++|          SHN    6
07218  M01S04628.mtr     +++|          LMD    CM
07219  M01S04629.mtr     +++|          LMC    3RRVE

Seq #  *Modification Id* Act 
----------------------------+
07220  M02S04630.271l716 ---|          NJN    PVE2        IF CALLER IS NOT *VER*

Seq #  *Modification Id* Act 
----------------------------+
07221  M02S04631.271l716 ---|          LDD    NC          SET LAST CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
07222  M02S04632.271l716 ---|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
07223  M02S04633.271l716 ---|          STD    T6

Seq #  *Modification Id* Act 
----------------------------+
07224  M02S04634.271l716 ---|          SHN    7

Seq #  *Modification Id* Act 
----------------------------+
07225  M02S04635.271l716 ---|          STD    CP

Seq #  *Modification Id* Act 
----------------------------+
07226  M02S04636.271l716 ---|          LDD    OR+1        SET REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07227  M02S04637.271l716 ---|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
07228  M02S04638.271l716 ---|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
07229  M02S04639.271l716 ---|          LDD    OA          STORE OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
07230  M02S04640.271l716 ---|          CWD    OR

Seq #  *Modification Id* Act 
----------------------------+
07231  M02S04641.271l716 ---|          LDD    OR+1

Seq #  *Modification Id* Act 
----------------------------+
07232  M02S04642.271l716 ---|          SHN    21-13

Seq #  *Modification Id* Act 
----------------------------+
07233  M02S04643.271l716 ---|          PJN    PVE1        IF INCREASE

Seq #  *Modification Id* Act 
----------------------------+
07234  M03S04644.271l716 ---|          LDC    ADDI+T1

Seq #  *Modification Id* Act 
----------------------------+
07235  M03S04645.271l716 ---|          STM    AMFA        SET ADJUSTMENT

Seq #  *Modification Id* Act 
----------------------------+
07236  M02S00034.271l716 ---|          ISTORE AMFA,(ADD T1)  SET ADJUSTMENT

Seq #  *Modification Id* Act 
----------------------------+
07237  M02S04646.271l716 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
07238  M02S04647.271l716 ---|          SBD    T7

Seq #  *Modification Id* Act 
----------------------------+
07239  M02S04648.271l716 ---|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
07240  M02S04649.271l716 ---| PVE0     LJM    PVEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07241  M02S04650.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07242  M03S04651.271l716 ---| PVE1     LDC    SBDI+T1

Seq #  *Modification Id* Act 
----------------------------+
07243  M03S04652.271l716 ---|          STM    AMFA        SET ADJUSTMENT

Seq #  *Modification Id* Act 
----------------------------+
07244  M02S00035.271l716 ---| PVE1     ISTORE AMFA,(SBD T1)  SET ADJUSTMENT

Seq #  *Modification Id* Act 
----------------------------+
07245  M02S04653.271l716 ---|          UJN    PVE0        RETURN
07246  M01S01028.271l716 +++|          ZJN    PVE2        IF CALLER IS *VER*
07247  M01S01029.271l716 +++| PVE1     RJM    HNG         HANG PP
07248  M01S01030.271l716 +++| RSB      SPACE  4,15
07249  M01S01031.271l716 +++|**        RSB - RETURN SIZE OF UNASSIGNED MEMORY BLOCK.
07250  M01S01032.271l716 +++|*
07251  M01S01033.271l716 +++|*         ENTRY  (A) = ORDINAL OF MCT ENTRY.
07252  M01S01034.271l716 +++|*                (T5) = 0 IF CM REQUEST.
07253  M01S01035.271l716 +++|*                     = 1 IF XM REQUEST.
07254  M01S01036.271l716 +++|*
07255  M01S01037.271l716 +++|*         EXIT   (A) = (T0) = BLOCK SIZE.
07256  M01S01038.271l716 +++|*                (T2) = ORDINAL OF MCT ENTRY.
07257  M01S01039.271l716 +++|*                (CM - CM+4) = MCT ENTRY.
07258  M01S01040.271l716 +++|*
07259  M01S01041.271l716 +++|*         USES   T0, T2, CM - CM+4.
07260  M01S01042.271l716 +++|*
07261  M01S01043.271l716 +++|*         CALLS  STA.
07262  M01S01044.271l716 +++|*
07263  M01S01045.271l716 +++|*         ERROR  TO *HGM* IF MCT ENTRY DESTROYED.
07264  M01S01046.271l716 +++|
07265  M01S01047.271l716 +++|
07266  M01S01048.271l716 +++| RSB2     LDC    3777        RETURN MAXIMUM MEMORY
07267  M01S01049.271l716 +++| RSB3     STD    T0
07268  M01S01050.271l716 +++|
07269  M01S01051.271l716 +++| RSB      SUBR               ENTRY/EXIT
07270  M01S01052.271l716 +++|          STD    T2
07271  M01S01053.271l716 +++|          RJM    STA         FETCH MCT ENTRY
07272  M01S01054.271l716 +++|          CRD    CM
07273  M01S01055.271l716 +++|          LDD    CM+3        VERIFY ENTRY
07274  M01S01056.271l716 +++|          SHN    21-13
07275  M01S01057.271l716 +++|          MJN    RSB1        IF MCT ENTRY BAD
07276  M01S01058.271l716 +++|          SHN    14-6
07277  M01S01059.271l716 +++|          LMD    CM+4        CHECK UNASSIGNED MEMORY
07278  M01S01060.271l716 +++|          SBK    3777
07279  M01S01061.271l716 +++|          PJN    RSB2        IF .GE. MAXIMUM FOR JOB
07280  M01S01062.271l716 +++|          LDD    CM+4
07281  M01S01063.271l716 +++|          UJN    RSB3        RETURN
07282  M01S01064.271l716 +++|
07283  M01S01065.271l716 +++| RSB1     RJM    HGM         HANG *MTR* (NO RETURN)
07284  M01S01066.271l716 +++| SCP      SPACE  4,10
07285  M01S01067.271l716 +++|**        SCP - SET CP/PCP AREA ADDRESS.
07286  M01S01068.271l716 +++|*
07287  M01S01069.271l716 +++|*         ENTRY  (A) = CP/PCP NUMBER.
07288  M01S01070.271l716 +++|*                (NC) = SYSTEM CP NUMBER.
07289  M01S01071.271l716 +++|*
07290  M01S01072.271l716 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
07291  M01S01073.271l716 +++|
07292  M01S01074.271l716 +++|
07293  M01S01075.271l716 +++| SCP1     ADD    NC          SET REAL CP AREA ADDRESS
07294  M01S01076.271l716 +++|          SHN    7
07295  M01S01077.271l716 +++|
07296  M01S01078.271l716 +++| SCP      SUBR               ENTRY/EXIT
07297  M01S01079.271l716 +++|          SBD    NC
07298  M01S01080.271l716 +++|          MJN    SCP1        IF REAL CP
07299  M01S01081.271l716 +++|          ZJN    SCP1        IF SYSTEM CP
07300  M01S01082.271l716 +++|          SHN    7
07301  M01S01083.271l716 +++|          ADC    0           ADD BASE PCPA ADDRESS - CPA LENGTH
07302  M01S01084.271l716 +++| SCPA     EQU    *-1
07303  M01S01085.271l716 +++|          UJN    SCPX        RETURN
07304  M01S04654.mtr     +++| SFL      SPACE  4,15
07305  M01S04655.mtr     +++|**        SFL - SET FL INCREASE.
07306  M01S04656.mtr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
07307  M02S04657.271l716 ---|*         ENTRY  (OR+1) = FL TO SET FOR INCREASE.

Seq #  *Modification Id* Act 
----------------------------+
07308  M02S04658.271l716 ---|*                (OR+2,6) = 1 IF SET *FLIW*

Seq #  *Modification Id* Act 
----------------------------+
07309  M02S04659.271l716 ---|*                (OR+2) = XX00 IF CM REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07310  M02S04660.271l716 ---|*                       = XX01 IF ECS REQUEST.
07311  M01S01086.271l716 +++|*         ENTRY  (CP) = CONTROL POINT NUMBER.
07312  M01S01087.271l716 +++|*                (T5) = 0 IF CM REQUEST.
07313  M01S01088.271l716 +++|*                     = 1 IF XM REQUEST.
07314  M01S01089.271l716 +++|*                (OR+1) = FL TO SET FOR INCREASE.
07315  M01S04661.mtr     +++|*                (OR+4) = 0 IF NEGATIVE FL REQUEST.
07316  M01S04662.mtr     +++|*                (CS - CS+4) = CP FL STATUS WORD.

Seq #  *Modification Id* Act 
----------------------------+
07317  M02S04663.271l716 ---|*                (CP) = CONTROL POINT ADDRESS.
07318  M01S04664.mtr     +++|*
07319  M01S04665.mtr     +++|*         USES   CM - CM+4.
07320  M01S04666.mtr     +++|*
07321  M01S04667.mtr     +++|*         MACROS MONITOR.
07322  M01S04668.mtr     +++|
07323  M01S04669.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
07324  M02S04670.271l716 ---| SFL4     LDD    OR+1        SET ECS FL REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
07325  M02S04671.271l716 ---|          STD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
07326  M02S04672.271l716 ---| SFL5     LDD    CP          REWRITE FL INCREASE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
07327  M02S04673.271l716 ---|          ADN    FLIW
07328  M01S01090.271l716 +++| SFL5     LDD    OR+1        SET XM FL REQUIRED
07329  M01S01091.271l716 +++|          STD    CM+3
07330  M01S01092.271l716 +++| SFL6     LDD    CP          SET CP ADDRESS
07331  M01S01093.271l716 +++|          SHN    7
07332  M01S01094.271l716 +++|          ADN    FLIW        REWRITE FL INCREASE CONTROL WORD
07333  M01S04674.mtr     +++|          CWD    CM
07334  M01S04675.mtr     +++|          LDN    0           CLEAR INPUT FILE SCHEDULING FLAG
07335  M01S04676.mtr     +++|          STD    CM+2
07336  M01S04677.mtr     +++|          MONITOR  RSJM      REQUEST JOB SCHEDULER
07337  M01S04678.mtr     +++|
07338  M01S04679.mtr     +++| SFL      SUBR               ENTRY/EXIT
07339  M01S04680.mtr     +++|          LDD    OR+2
07340  M01S04681.mtr     +++|          SHN    21-6
07341  M01S04682.mtr     +++|          PJN    SFLX        IF DO NOT SET *FLIW*

Seq #  *Modification Id* Act 
----------------------------+
07342  M02S04683.271l716 ---|          LDD    CP          READ FL INCREASE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
07343  M02S04684.271l716 ---|          ADN    FLIW

Seq #  *Modification Id* Act 
----------------------------+
07344  M02S04685.271l716 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
07345  M02S04686.271l716 ---|          LDD    OR+2

Seq #  *Modification Id* Act 
----------------------------+
07346  M02S04687.271l716 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
07347  M02S04688.271l716 ---|          NJN    SFL4        IF ECS REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07348  M02S04689.271l716 ---|          LDD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
07349  M02S04690.271l716 ---|          ZJN    SFL3.1      IF NO CM INCREASE PENDING

Seq #  *Modification Id* Act 
----------------------------+
07350  M02S04691.271l716 ---|          LDD    OR+4

Seq #  *Modification Id* Act 
----------------------------+
07351  M02S04692.271l716 ---|          ZJN    SFL1        IF NFL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07352  M02S04693.271l716 ---| SFL0     LDD    CS
07353  M01S01095.271l716 +++|          LDD    CP
07354  M01S01096.271l716 +++|          SHN    7
07355  M01S01097.271l716 +++|          ADN    FLIW        READ FL INCREASE CONTROL WORD
07356  M01S01098.271l716 +++|          CRD    CM
07357  M01S01099.271l716 +++|          LDD    T5
07358  M01S01100.271l716 +++|          NJN    SFL5        IF XM REQUEST
07359  M01S01101.271l716 +++|          LDD    CM+4
07360  M01S01102.271l716 +++|          ZJN    SFL4        IF NO CM INCREASE PENDING
07361  M01S01103.271l716 +++|          LDD    OR+4
07362  M01S01104.271l716 +++|          ZJN    SFL2        IF NFL REQUEST
07363  M01S01105.271l716 +++| SFL1     LDD    CS
07364  M01S04694.mtr     +++|          UJN    SFL3        COMPUTE TOTAL CM FL
07365  M01S04695.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
07366  M02S04696.271l716 ---| SFL1     LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
07367  M02S04697.271l716 ---|          NJN    SFLX        IF REISSUE OF NFL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
07368  M02S04698.271l716 ---|          LDD    OR+1        COMPUTE NFL INCREASE AMOUNT

Seq #  *Modification Id* Act 
----------------------------+
07369  M02S04699.271l716 ---|          SBD    CS

Seq #  *Modification Id* Act 
----------------------------+
07370  M02S04700.271l716 ---|          STD    CM+2
07371  M01S01106.271l716 +++| SFL2     LDD    CM+2
07372  M01S01107.271l716 +++|          NJN    SFLX        IF REISSUE OF NFL REQUEST
07373  M01S01108.271l716 +++|          LDD    OR+1
07374  M01S01109.271l716 +++|          SBD    CS
07375  M01S01110.271l716 +++|          STD    CM+2        COMPUTE NFL INCREASE AMOUNT
07376  M01S04701.mtr     +++|          LDD    CM+4
07377  M01S04702.mtr     +++|          SBD    CS
07378  M01S04703.mtr     +++| SFL3     ADD    OR+1
07379  M01S04704.mtr     +++|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
07380  M02S04705.271l716 ---|          LJM    SFL5        REWRITE FL INCREASE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
07381  M02S04706.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07382  M02S04707.271l716 ---| SFL3.1   LDD    OR+4

Seq #  *Modification Id* Act 
----------------------------+
07383  M02S04708.271l716 ---|          NJN    SFL0        IF NOT NFL INCREASE

Seq #  *Modification Id* Act 
----------------------------+
07384  M02S04709.271l716 ---|          LDD    OR+1        COMPUTE NFL INCREASE

Seq #  *Modification Id* Act 
----------------------------+
07385  M02S04710.271l716 ---|          SBD    CS

Seq #  *Modification Id* Act 
----------------------------+
07386  M02S04711.271l716 ---|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
07387  M02S04712.271l716 ---|          LDD    CS+4        COMPUTE TOTAL FL

Seq #  *Modification Id* Act 
----------------------------+
07388  M02S04713.271l716 ---|          UJN    SFL3        ADD NFL TO CM FL

Seq #  *Modification Id* Act 
----------------------------+
07389  M02S04714.271l716 ---| UFL      SPACE  4
07390  M01S01111.271l716 +++|          LJM    SFL6        REWRITE FL INCREASE CONTROL WORD
07391  M01S01112.271l716 +++|
07392  M01S01113.271l716 +++| SFL4     LDD    OR+4
07393  M01S01114.271l716 +++|          NJN    SFL1        IF NOT NFL INCREASE
07394  M01S01115.271l716 +++|          LDD    OR+1
07395  M01S01116.271l716 +++|          SBD    CS
07396  M01S01117.271l716 +++|          STD    CM+2        COMPUTE NFL INCREASE
07397  M01S01118.271l716 +++|          LDD    CS+4
07398  M01S01119.271l716 +++|          UJN    SFL3        ADD NFL TO CM FL
07399  M01S01120.271l716 +++| STA      SPACE  4,10
07400  M01S01121.271l716 +++|**        STA - SET MEMORY CONTROL TABLE ADDRESS.
07401  M01S01122.271l716 +++|*
07402  M01S01123.271l716 +++|*         ENTRY  (A) = CP/PCP NUMBER.
07403  M01S01124.271l716 +++|*                (T5) = 0 IF CM REQUEST.
07404  M01S01125.271l716 +++|*                     = 1 IF XM REQUEST.
07405  M01S01126.271l716 +++|*
07406  M01S01127.271l716 +++|*         EXIT   (A) = ABSOLUTE TABLE ADDRESS.
07407  M01S01128.271l716 +++|
07408  M01S01129.271l716 +++|
07409  M01S01130.271l716 +++| STA      SUBR               ENTRY/EXIT
07410  M01S01131.271l716 +++|          SHN    1
07411  M01S01132.271l716 +++|          ADC    0           APPEND BASE MCT ADDRESS
07412  M01S01133.271l716 +++| STAA     EQU    *-1
07413  M01S01134.271l716 +++|          ADD    T5
07414  M01S01135.271l716 +++|          UJN    STAX        RETURN
07415  M01S01136.271l716 +++| UFL      SPACE  4,20
07416  M01S04715.mtr     +++|**        UFL - SET UNASSIGNED FIELD LENGTHS.
07417  M01S04716.mtr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
07418  M02S04717.271l716 ---|*         ENTRY  (OR+3) = *CMRL*/*FLSW* IF CM REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07419  M02S04718.271l716 ---|*                       = *ECRL*/*ECSW* IF ECS REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
07420  M02S04719.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07421  M02S04720.271l716 ---|*         EXIT   UNASSIGNED FIELD LENGTHS IN *TUFL*.

Seq #  *Modification Id* Act 
----------------------------+
07422  M02S04721.271l716 ---|*                (T5) = TOTAL AVAILABLE MEMORY.

Seq #  *Modification Id* Act 
----------------------------+
07423  M02S04722.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07424  M02S04723.271l716 ---|*         USES   T1, T2, T3, T5, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
07425  M02S04724.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07426  M02S04725.271l716 ---|*         CALLS  CMO, TIM.

Seq #  *Modification Id* Act 
----------------------------+
07427  M02S00016.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07428  M02S00017.271l716 ---|*         ERROR  EXIT TO *HGM* IF UNASSIGNED MEMORY AFTER LAST CP.
07429  M01S01137.271l716 +++|*         ENTRY  (CP) = CP/PCP NUMBER.
07430  M01S01138.271l716 +++|*                (NC) = SYSTEM CP NUMBER.
07431  M01S01139.271l716 +++|*                (T5) = 0 IF CM REQUEST.
07432  M01S01140.271l716 +++|*                     = 1 IF XM REQUEST.
07433  M01S01141.271l716 +++|*                (T7) = AMOUNT OF MEMORY REQUIRED.
07434  M01S01142.271l716 +++|*                (OR+4) = 0 IF NFL REQUEST.
07435  M01S01143.271l716 +++|*                (CS - CS+4) = FL CONTROL WORD OF REQUESTING CP.
07436  M01S01144.271l716 +++|*
07437  M01S01145.271l716 +++|*         EXIT   (A) .LT. 0 IF MEMORY UNAVAILABLE.
07438  M01S01146.271l716 +++|*                (T8) = MCT ORDINAL OF MEMORY HOLE.
07439  M01S01147.271l716 +++|*
07440  M01S01148.271l716 +++|*         USES   T1, T3, T4, T7, T8, CM - CM+4, CN - CN+4.
07441  M01S01149.271l716 +++|*
07442  M01S01150.271l716 +++|*         CALLS  RSB, TIM.
07443  M01S04726.mtr     +++|
07444  M01S04727.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
07445  M02S04728.271l716 ---| UFL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07446  M02S04729.271l716 ---|          RJM    TIM         UPDATE REAL TIME CLOCK

Seq #  *Modification Id* Act 
----------------------------+
07447  M02S04730.271l716 ---|          LDD    OR+3        READ ALLOCATION WORD

Seq #  *Modification Id* Act 
----------------------------+
07448  M02S04731.271l716 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
07449  M02S04732.271l716 ---|          LDN    0           CLEAR AVAILABLE MEMORY

Seq #  *Modification Id* Act 
----------------------------+
07450  M02S04733.271l716 ---|          STD    T1          CLEAR CP NUMBER

Seq #  *Modification Id* Act 
----------------------------+
07451  M02S04734.271l716 ---|          STD    CM+2        CLEAR UPPER HALF OF RA

Seq #  *Modification Id* Act 
----------------------------+
07452  M02S04735.271l716 ---| UFL1     STD    T5

Seq #  *Modification Id* Act 
----------------------------+
07453  M02S04736.271l716 ---| UFL2     LDD    CM+3        SET RA+FL

Seq #  *Modification Id* Act 
----------------------------+
07454  M02S04737.271l716 ---|          ADD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
07455  M02S04738.271l716 ---|          STD    T3          SAVE LOWER 12 BITS

Seq #  *Modification Id* Act 
----------------------------+
07456  M02S04739.271l716 ---|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
07457  M02S04740.271l716 ---|          ADD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
07458  M02S04741.271l716 ---|          STD    T2          SAVE UPPER BITS

Seq #  *Modification Id* Act 
----------------------------+
07459  M02S04742.271l716 ---|          AOD    T1          ADVANCE CP

Seq #  *Modification Id* Act 
----------------------------+
07460  M02S04743.271l716 ---|          SHN    7

Seq #  *Modification Id* Act 
----------------------------+
07461  M02S04744.271l716 ---|          ADD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07462  M02S04745.271l716 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
07463  M02S04746.271l716 ---|          SHN    -7

Seq #  *Modification Id* Act 
----------------------------+
07464  M02S04747.271l716 ---|          LMD    NC

Seq #  *Modification Id* Act 
----------------------------+
07465  M02S04748.271l716 ---|          ZJN    UFL3        IF LAST CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
07466  M02S04749.271l716 ---|          LDD    CM+2        FORM FWA OF CURRENT CP

Seq #  *Modification Id* Act 
----------------------------+
07467  M02S04750.271l716 ---|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
07468  M02S04751.271l716 ---|          ADD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
07469  M02S04752.271l716 ---|          SBD    CM

Seq #  *Modification Id* Act 
----------------------------+
07470  M02S04753.271l716 ---|          RJM    CMO         CHECK MEMORY OVERLAP

Seq #  *Modification Id* Act 
----------------------------+
07471  M02S04754.271l716 ---|          RAD    T5          ACCUMULATE UNASSIGNED MEMORY

Seq #  *Modification Id* Act 
----------------------------+
07472  M02S04755.271l716 ---|          SHN    -13

Seq #  *Modification Id* Act 
----------------------------+
07473  M02S04756.271l716 ---|          ZJN    UFL2        IF TOTAL .LE. 3777

Seq #  *Modification Id* Act 
----------------------------+
07474  M02S04757.271l716 ---|          LDC    3777        SET MAXIMUM

Seq #  *Modification Id* Act 
----------------------------+
07475  M02S04758.271l716 ---|          UJN    UFL1        CHECK NEXT CP

Seq #  *Modification Id* Act 
----------------------------+
07476  M02S04759.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07477  M02S04760.271l716 ---| UFL3     LDD    OR+2

Seq #  *Modification Id* Act 
----------------------------+
07478  M02S04761.271l716 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
07479  M02S04762.271l716 ---|          NJN    UFL4        IF USER ECS

Seq #  *Modification Id* Act 
----------------------------+
07480  M02S04763.271l716 ---|          LDD    MA          READ MACHINE FL

Seq #  *Modification Id* Act 
----------------------------+
07481  M02S04764.271l716 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
07482  M02S04765.271l716 ---|          LDN    0           CLEAR LAST BYTE

Seq #  *Modification Id* Act 
----------------------------+
07483  M02S04766.271l716 ---|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
07484  M02S04767.271l716 ---| UFL4     LDD    CM+2        FORM FWA

Seq #  *Modification Id* Act 
----------------------------+
07485  M02S04768.271l716 ---|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
07486  M02S04769.271l716 ---|          ADD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
07487  M02S04770.271l716 ---|          ADD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
07488  M02S04771.271l716 ---|          RJM    CMO         CHECK MEMORY OVERLAP

Seq #  *Modification Id* Act 
----------------------------+
07489  M03S04772.271l716 ---|          NJN    *           IF UNASSIGNED MEMORY AFTER LAST CP

Seq #  *Modification Id* Act 
----------------------------+
07490  M02S00018.271l716 ---|          NJN    UFL5        IF UNASSIGNED MEMORY AFTER LAST CP

Seq #  *Modification Id* Act 
----------------------------+
07491  M02S04773.271l716 ---|          RJM    TIM         UPDATE REAL TIME CLOCK

Seq #  *Modification Id* Act 
----------------------------+
07492  M02S04774.271l716 ---|          LJM    UFLX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
07493  M02S00019.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
07494  M02S00020.271l716 ---| UFL5     RJM    HGM         HANG *MTR* (NO RETURN)
07495  M01S01151.271l716 +++| UFL11    LDD    T4
07496  M01S01152.271l716 +++|          NJN    UFL12       IF CP HAS MEMORY ASSIGNED
07497  M01S01153.271l716 +++|          LDD    OR+4
07498  M01S01154.271l716 +++|          ZJN    UFL12       IF NFL REQUEST
07499  M01S01155.271l716 +++|          LDN    MSCL        GET MEMORY PAD SIZE
07500  M01S01156.271l716 +++|          CRD    CN
07501  M01S01157.271l716 +++|          LDD    T7          CHECK REQUEST SIZE
07502  M01S01158.271l716 +++|          ADD    CN+4
07503  M01S01159.271l716 +++|          SBK    3770
07504  M01S01160.271l716 +++|          MJN    UFL12       IF REQUEST SHORT ENOUGH TO PAD
07505  M01S01161.271l716 +++|          LDN    0
07506  M01S01162.271l716 +++|          STD    CN+4
07507  M01S01163.271l716 +++| UFL12    LDD    CM          CHECK CENTRAL MEMORY
07508  M01S01164.271l716 +++|          SHN    14
07509  M01S01165.271l716 +++|          LMD    CM+1        TOTAL UNASSIGNED MEMORY
07510  M01S01166.271l716 +++| UFL13    SBD    T7
07511  M01S01167.271l716 +++|          PJN    UFL1        IF SUFFICIENT TO SATISFY REQUEST
07512  M01S01168.271l716 +++|
07513  M01S01169.271l716 +++| UFL      SUBR               ENTRY/EXIT
07514  M01S01170.271l716 +++|          LDD    CS
07515  M01S01171.271l716 +++|          ADD    CS+4        TOTAL ASSIGNED MEMORY
07516  M01S01172.271l716 +++|          STD    T4
07517  M01S01173.271l716 +++|          LDN    ACML        FETCH UNASSIGNED MEMORY COUNT
07518  M01S01174.271l716 +++|          CRD    CM
07519  M01S01175.271l716 +++|          LDN    0           CLEAR MEMORY ASSIGNMENT PAD
07520  M01S01176.271l716 +++|          STD    CN+4
07521  M01S01177.271l716 +++|          STD    T8          SET MEMORY HOLE NOT FOUND
07522  M01S01178.271l716 +++|          LDD    T5
07523  M01S01179.271l716 +++|          ZJN    UFL11       IF REQUEST FOR CENTRAL MEMORY
07524  M01S01180.271l716 +++|          LDD    CM+3
07525  M01S01181.271l716 +++|          UJN    UFL13       CHECK UNASSIGNED EXTENDED MEMORY
07526  M01S01182.271l716 +++|
07527  M01S01183.271l716 +++| UFL1     SBD    CN+4
07528  M01S01184.271l716 +++|          PJN    UFL3        IF SUFFICIENT MEMORY FOR REQUEST + PAD
07529  M01S01185.271l716 +++|          ADD    CN+4
07530  M01S01186.271l716 +++|          SBD    T4
07531  M01S01187.271l716 +++|          PJN    UFL6        IF ENOUGH MEMORY TO WARRANT HOLE SEARCH
07532  M01S01188.271l716 +++| UFL2     LDN    0
07533  M01S01189.271l716 +++|          UJN    UFLX        RETURN
07534  M01S01190.271l716 +++|
07535  M01S01191.271l716 +++| UFL3     SBD    T4
07536  M01S01192.271l716 +++|          PJN    UFL5        IF HOLE SEARCH FOR REQUEST + PAD
07537  M01S01193.271l716 +++|          LDD    CN+4
07538  M01S01194.271l716 +++|          RAD    T7
07539  M01S01195.271l716 +++| UFL4     UJN    UFLX        RETURN
07540  M01S01196.271l716 +++|
07541  M01S01197.271l716 +++| UFL5     LDD    CN+4        APPEND PAD TO REQUEST
07542  M01S01198.271l716 +++|          RAD    T7
07543  M01S01199.271l716 +++| UFL6     LDD    OR+4
07544  M01S01200.271l716 +++|          ZJN    UFLX        IF NFL REQUEST
07545  M01S01201.271l716 +++|          LDD    CP
07546  M01S01202.271l716 +++|          SBN    2

Seq #  *Modification Id* Act 
----------------------------+
07547  M02S01203.273l780 ---|          MJN    UFL2        IF CONTROL POINT 0 OR 1
07548  M01S00124.273l780 +++|          MJN    UFL2        IF CMR OR CP 1
07549  M01S01204.271l716 +++|          ADN    3
07550  M01S01205.271l716 +++|          LMD    NC
07551  M01S01206.271l716 +++| UFL7     ZJN    UFL4        IF LAST REAL CP
07552  M01S01207.271l716 +++|          LDD    T7
07553  M01S01208.271l716 +++|          RAD    T4          INCLUDE CURRENT INCREASE
07554  M01S01209.271l716 +++|          LDC    0
07555  M01S01210.271l716 +++| UFLA     EQU    *-1         (NUMBER OF MCT ENTRIES)
07556  M01S01211.271l716 +++|          SBN    3
07557  M01S01212.271l716 +++|          STD    T1
07558  M01S01213.271l716 +++|          LDN    1           INITIALIZE FORWARD LINK
07559  M01S01214.271l716 +++|          STD    CM+1
07560  M01S01215.271l716 +++|          LCN    0           PRESET HOLE SIZE
07561  M01S01216.271l716 +++|          STD    T3
07562  M01S01217.271l716 +++| UFL8     LDD    CM+1        SAVE FORWARD LINK
07563  M01S01218.271l716 +++|          STM    UFLB
07564  M01S01219.271l716 +++|          RJM    TIM         UPDATE CLOCK
07565  M01S01220.271l716 +++|          LDC    **
07566  M01S01221.271l716 +++| UFLB     EQU    *-1
07567  M01S01222.271l716 +++|          RJM    RSB
07568  M01S01223.271l716 +++|          SBD    T4
07569  M01S01224.271l716 +++|          MJN    UFL9        IF HOLE NOT FOUND
07570  M01S01225.271l716 +++|          SBD    T3
07571  M01S01226.271l716 +++|          PJN    UFL9        IF THIS HOLE LARGER
07572  M01S01227.271l716 +++|          RAD    T3
07573  M01S01228.271l716 +++|          LDD    T2          SAVE ORDINAL OF HOLE
07574  M01S01229.271l716 +++|          STD    T8
07575  M01S01230.271l716 +++|          LDD    T0          CHECK HOLE SIZE
07576  M01S01231.271l716 +++|          SBD    T4
07577  M01S01232.271l716 +++|          ZJN    UFL7        IF EXACT FIT
07578  M01S01233.271l716 +++| UFL9     SOD    T1
07579  M01S01234.271l716 +++|          ZJN    UFL7        IF SCAN COMPLETE
07580  M01S01235.271l716 +++|          UJN    UFL8        CHECK NEXT MCT ENTRY
07581  M01S04775.mtr     +++|          SPACE  4,10
07582  M01S04776.mtr     +++|*         MEMORY ALLOCATION ADDRESSES / FUNCTIONS.
07583  M01S04777.mtr     +++|
07584  M01S04778.mtr     +++|
07585  M01S04779.mtr     +++| MAFA     CON    FLSW,ECSW
07586  M01S04780.mtr     +++| MAFC     CON    MSTF,MECF

Seq #  *Modification Id* Act 
----------------------------+
07587  M02S04781.271l716 ---| MAFD     CON    MFLF,MFEF
07588  M01S04782.mtr     +++|
07589  M01S04783.mtr     +++|          ERRNZ  FLSW-CMRL
07590  M01S04784.mtr     +++|          ERRNZ  ECSW-ECRL
07591  M01S04785.mtr     +++|          TITLE  SUBROUTINES.
07592  M01S04786.mtr     +++| ACP      SPACE  4
07593  M01S04787.mtr     +++|**        NOTE - SUBROUTINES WILL NOT ALTER OA, CP, OR - OR+4.

Seq #  *Modification Id* Act 
----------------------------+
07594  M02S04788.252l678 ---| CCD      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
07595  M02S04789.252l678 ---|**        CCD - CHECK CHANNEL DOWN.

Seq #  *Modification Id* Act 
----------------------------+
07596  M02S04790.252l678 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07597  M02S04791.252l678 ---|*         ENTRY  (OR+3) = CHANNEL NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
07598  M03S04792.252l678 ---|*                (CN - CN+4) = EST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
07599  M02S00084.252l678 ---|*                (CS - CS+4) = *EQDE* WORD OF EST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
07600  M02S04793.252l678 ---|*

Seq #  *Modification Id* Act 
----------------------------+
07601  M02S04794.252l678 ---|*         EXIT   (A) =  0040 IF PRIMARY CHANNEL AND UP.

Seq #  *Modification Id* Act 
----------------------------+
07602  M02S04795.252l678 ---|*                       4000 IF SECONDARY CHANNEL AND UP.

Seq #  *Modification Id* Act 
----------------------------+
07603  M02S04796.252l678 ---|*                      -0040 IF PRIMARY CHANNEL AND DOWN.

Seq #  *Modification Id* Act 
----------------------------+
07604  M02S04797.252l678 ---|*                      -4000 IF SECONDARY CHANNEL AND DOWN.

Seq #  *Modification Id* Act 
----------------------------+
07605  M02S04798.252l678 ---|*                TO *HNG* IF CHANNEL NOT DEFINED IN EST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
07606  M02S04799.252l678 ---|

Seq #  *Modification Id* Act 
----------------------------+
07607  M02S04800.252l678 ---|

Seq #  *Modification Id* Act 
----------------------------+
07608  M02S04801.252l678 ---| CCD2     LDC    4000-40

Seq #  *Modification Id* Act 
----------------------------+
07609  M02S04802.252l678 ---| CCD3     ADN    40          CHECK CHANNEL DOWN

Seq #  *Modification Id* Act 
----------------------------+
07610  M03S04803.252l678 ---|          LMD    CN+1

Seq #  *Modification Id* Act 
----------------------------+
07611  M03S04804.252l678 ---|          SBD    CN+1

Seq #  *Modification Id* Act 
----------------------------+
07612  M02S00085.252l678 ---|          LMD    CS+1

Seq #  *Modification Id* Act 
----------------------------+
07613  M02S00086.252l678 ---|          SBD    CS+1

Seq #  *Modification Id* Act 
----------------------------+
07614  M02S04805.252l678 ---|

Seq #  *Modification Id* Act 
----------------------------+
07615  M02S04806.252l678 ---| CCD      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
07616  M03S00305.252l678 ---|          LDD    CN

Seq #  *Modification Id* Act 
----------------------------+
07617  M02S00087.252l678 ---|          LDD    CS

Seq #  *Modification Id* Act 
----------------------------+
07618  M02S00306.252l678 ---|          LMD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07619  M02S00307.252l678 ---|          LPN    40

Seq #  *Modification Id* Act 
----------------------------+
07620  M02S00308.252l678 ---|          NJN    CCD1        IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
07621  M03S04807.252l678 ---|          LDD    CN+1

Seq #  *Modification Id* Act 
----------------------------+
07622  M02S00088.252l678 ---|          LDD    CS+1

Seq #  *Modification Id* Act 
----------------------------+
07623  M02S04808.252l678 ---|          LMD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07624  M02S04809.252l678 ---|          LPN    37

Seq #  *Modification Id* Act 
----------------------------+
07625  M02S04810.252l678 ---|          ZJN    CCD3        IF PRIMARY CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
07626  M03S04811.252l678 ---|          LDD    CN+1

Seq #  *Modification Id* Act 
----------------------------+
07627  M02S00089.252l678 ---|          LDD    CS+1

Seq #  *Modification Id* Act 
----------------------------+
07628  M02S04812.252l678 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
07629  M02S04813.252l678 ---|          ZJN    CCD1        IF NO SECOND CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
07630  M02S04814.252l678 ---|          LMD    OR+3

Seq #  *Modification Id* Act 
----------------------------+
07631  M02S04815.252l678 ---|          LPN    37

Seq #  *Modification Id* Act 
----------------------------+
07632  M02S04816.252l678 ---|          ZJN    CCD2        IF SECONDARY CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
07633  M03S04817.252l678 ---| CCD1     LJM    HNG         HANG PP

Seq #  *Modification Id* Act 
----------------------------+
07634  M02S00309.252l678 ---| CCD1     RJM    HNG         HANG PP

Seq #  *Modification Id* Act 
----------------------------+
07635  M02S04818.273l780 ---| CDA      SPACE  4,10
07636  M01S00125.273l780 +++| CDA      SPACE  4,15
07637  M01S04819.mtr     +++|**        CDA - CLEAR DEVICE ACTIVITY.
07638  M01S04820.mtr     +++|*

Proceed to Part 9