User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:cpumtr.020

Deck CPUMTR Part 020

308 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S15350 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
25696  M01S15350.242l642 ---|
25697  M01S15351.242l642 ---|*         COUNT FILES REMAINING ON SAME EQUIPMENT.
25698  M01S15352.242l642 ---|
25699  M01S15353.242l642 ---| PLF17    ZR     X7,PPR1     IF FILE COUNT NOT REQUIRED
25700  M01S15354.242l642 ---|          SA2    B7+FLSW     GET NFL SIZE
Line S00549 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
25701  M01S00549.242l642 +++|          EQ     PPR1        RETURN
25702  M01S00550.242l642 +++|
25703  M01S00551.242l642 +++|*         COUNT FILES ON EQUIPMENT SPECIFIED IN FST.
25704  M01S00552.242l642 +++|
25705  M01S00553.242l642 +++| PLF17    SA2    B7+FLSW     FETCH NFL SIZE
25706  M00S15355.cpumtr  +++|          MX7    12
25707  M00S15356.cpumtr  +++|          BX2    X7*X2
Line S15357 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
25708  M01S15357.242l642 ---|          SX3    FNTN
25709  M01S15358.242l642 ---|          LX2    6+12        NFL
25710  M01S15359.242l642 ---|          SX6    LENF        COMPUTE ADDRESS OF LAST FNT ENTRY
25711  M01S15360.242l642 ---|          IX2    X2-X3
25712  M01S15361.242l642 ---|          PX5    X6
Line S00554 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
25713  M01S00554.242l642 +++|          SX6    FNTN
25714  M01S00555.242l642 +++|          LX2    6+12        NFL
25715  M01S00556.242l642 +++|          IX2    X2-X6
25716  M01S00557.242l642 +++|          SX3    LENF        COMPUTE ADDRESS OF LAST FNT SLOT
25717  M01S00558.242l642 +++|          PX5    X3
25718  M00S15362.cpumtr  +++|          PX2    X2
25719  M00S15363.cpumtr  +++|          NX5    X5
25720  M00S15364.cpumtr  +++|          FX1    X2/X5
25721  M00S15365.cpumtr  +++|          UX1    B6,X1
25722  M00S15366.cpumtr  +++|          LX1    X1,B6
Line S15367 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
25723  M01S15367.242l642 ---|          IX5    X1*X6
25724  M01S15368.242l642 ---|          BX0    X7*X0       EST ORDINAL
25725  M01S15369.242l642 ---|          SA4    RA
25726  M01S15370.242l642 ---|          SX5    X5+FNTN-FSTL
25727  M01S15371.242l642 ---|          SB4    B0          INITIALIZE FILE COUNT
25728  M01S15372.242l642 ---|          IX6    X4-X5       ADDRESS OF LAST FNT
25729  M01S15373.242l642 ---|          SX2    FNTN-LENF-FSTL
25730  M01S15374.242l642 ---|          EWX0   X6
25731  M01S15375.242l642 ---|          SX1    FNTN-LENF*2-FSTL
25732  M01S15376.242l642 ---|          IX2    X4-X2
25733  M01S15377.242l642 ---|          IX1    X4-X1
25734  M01S15378.242l642 ---|          SX3    LENF*2
25735  M01S15379.242l642 ---| PLF18    IX1    X1-X3
25736  M01S15380.242l642 ---|          IX2    X2-X3
25737  M01S15381.242l642 ---|          ERX4   X1
25738  M01S15382.242l642 ---|          ERX5   X2
25739  M01S15383.242l642 ---|          BX4    X4-X0
25740  M01S15384.242l642 ---|          BX5    X5-X0
25741  M01S15385.242l642 ---|          BX4    X7*X4
25742  M01S15386.242l642 ---|          BX5    X7*X5
25743  M01S15387.242l642 ---|          ZR     X4,PLF20    IF EQ MATCH
25744  M01S15388.242l642 ---| PLF19    NZ     X5,PLF18    IF NO EQ MATCH
25745  M01S15389.242l642 ---|          BX4    X6-X2
25746  M01S15390.242l642 ---|          ZR     X4,PLF21    IF LAST ENTRY
25747  M01S15391.242l642 ---|          SB4    B4+1        INCREMENT FILE COUNT
25748  M01S15392.242l642 ---|          EQ     PLF18       LOOP
25749  M01S15393.242l642 ---|
25750  M01S15394.242l642 ---| PLF20    BX4    X1-X6
25751  M01S15395.242l642 ---|          ZR     X4,PLF21    IF LAST ENTRY
25752  M01S15396.242l642 ---|          SB4    B4+B1       INCREMENT FILE COUNT
25753  M01S15397.242l642 ---|          EQ     PLF19       IF LAST ENTRY
25754  M01S15398.242l642 ---|
25755  M01S15399.242l642 ---|*         RETURN FILE COUNT.
25756  M01S15400.242l642 ---|
25757  M01S15401.242l642 ---| PLF21    EWX4   X6          CLEAR LAST ENTRY
25758  M01S15402.242l642 ---|          SX7    B4+
25759  M01S15403.242l642 ---|          LX7    12
Line S00559 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
25760  M01S00559.242l642 +++|          IX6    X1*X3
25761  M01S00560.242l642 +++|          MX7    59          INITIALIZE FILE COUNT
25762  M01S00561.242l642 +++|          SX6    X6+FNTN-FSTL
25763  M01S00562.242l642 +++|          SA4    RA          FETCH REFERENCE ADDRESS
25764  M01S00563.242l642 +++|          SX5    B1
25765  M01S00564.242l642 +++|          IX6    X4-X6       ADDRESS OF LAST FST SLOT IN NFL
25766  M01S00565.242l642 +++|          SX1    FNTN-FSTL-LENF
25767  M01S00566.242l642 +++|          IX1    X4-X1       INITIALIZE NFL SCAN
25768  M01S00567.242l642 +++|          EWX0   X6
25769  M01S00568.242l642 +++| PLF18    IX1    X1-X3
25770  M01S00569.242l642 +++|          ERX4   X1          READ FST ENTRY
25771  M01S00570.242l642 +++|          BX2    X4-X0
25772  M01S00571.242l642 +++|          AX2    48
25773  M01S00572.242l642 +++|          NZ     X2,PLF18    IF NOT MATCHING EST ORDINAL
25774  M01S00573.242l642 +++|          BX4    X1-X6
25775  M01S00574.242l642 +++|          IX7    X7+X5       INCREMENT FILE COUNT
25776  M01S00575.242l642 +++|          NZ     X4,PLF18    IF NOT END OF NFL
25777  M01S00576.242l642 +++|          LX7    12
25778  M01S00577.242l642 +++|          EWX4   X6          CLEAR SEARCH OBJECTIVE
25779  M00S15404.cpumtr  +++|          EQ     PPR1        EXIT
25780  M00S15405.cpumtr  +++| PSM      SPACE  4,20
25781  M00S15406.cpumtr  +++|**        PSM - PRESET STORAGE MOVE.
25782  M00S15407.cpumtr  +++|*
25783  M00S15408.cpumtr  +++|*         ENTRY  (X0) = ADDRESS TO MOVE FROM.
25784  M00S15409.cpumtr  +++|*                (X1) = (X0) - ADDRESS TO MOVE TO.
25785  M00S15410.cpumtr  +++|*                (B4) = WORD COUNT.
25786  M00S15411.cpumtr  +++|*                (B5) = RETURN ADDRESS.
25787  M00S15412.cpumtr  +++|*                (B6) = RETURN ADDRESS FOR CALLING ROUTINE.
25788  M00S15413.cpumtr  +++|*
25789  M00S15414.cpumtr  +++|*         EXIT   (X0) = ADDRESS TO MOVE FROM.
25790  M00S15415.cpumtr  +++|*                (X1) = ADDRESS TO MOVE TO.
25791  M00S15416.cpumtr  +++|*                (X4) = INCREMENT (1 OR -1).
25792  M00S15417.cpumtr  +++|*                (B4) = BLOCK COUNT (WORD COUNT / 10B).
25793  M00S15418.cpumtr  +++|*                (B6) = RETURN ADDRESS FOR CALLING ROUTINE.
25794  M00S15419.cpumtr  +++|*
25795  M00S15420.cpumtr  +++|*         USES   X - 0, 1, 4, 6, 7.
25796  M00S15421.cpumtr  +++|*                B - 4.
25797  M00S15422.cpumtr  +++|*
25798  M00S15423.cpumtr  +++|*         CALLS  RB6.
25799  M00S15424.cpumtr  +++|*
25800  M00S15425.cpumtr  +++|*         THE ADDRESSES ARE ADJUSTED TO PREVENT OVERLAP, IF NECESSARY.
25801  M00S15426.cpumtr  +++|
25802  M00S15427.cpumtr  +++|
25803  M00S15428.cpumtr  +++| PSM      SX4    B1+         INCREMENT
25804  M00S15429.cpumtr  +++|          SX7    B4          WORD COUNT
25805  M00S15430.cpumtr  +++|          MX6    -3
25806  M00S15431.cpumtr  +++|          BX6    -X6*X7      REMAINDER
25807  M00S15432.cpumtr  +++|          IX7    X0-X1       ADDRESS TO MOVE TO
25808  M00S15433.cpumtr  +++|          PL     X1,PSM1     IF DOWNWARD MOVE
25809  M00S15434.cpumtr  +++|          SX1    B4+         WORD COUNT
25810  M00S15435.cpumtr  +++|          IX0    X0+X1       FWA = LWA+1
25811  M00S15436.cpumtr  +++|          IX7    X7+X1
25812  M00S15437.cpumtr  +++|          IX0    X0-X4       FWA = LWA
25813  M00S15438.cpumtr  +++|          IX7    X7-X4
25814  M00S15439.cpumtr  +++|          BX6    -X6         COMPLEMENT REMAINDER
25815  M00S15440.cpumtr  +++|          BX4    -X4         COMPLEMENT INCREMENT
25816  M00S15441.cpumtr  +++| PSM1     BX1    X7          FWA OF MOVE
25817  M00S15442.cpumtr  +++|          SX7    B4          WORD COUNT
25818  M00S15443.cpumtr  +++|          AX7    3           TRUNCATE WORD COUNT
25819  M00S15444.cpumtr  +++|          SB4    X7          BLOCK COUNT (WORD COUNT / 10B)
25820  M00S15445.cpumtr  +++| PSM2     ZR     X6,PSM3     IF NO REMAINDER
25821  M00S15446.cpumtr  +++|          ERX7   X0          MOVE REMAINDER
25822  M00S15447.cpumtr  +++|          IX0    X0+X4
25823  M00S15448.cpumtr  +++|          EWX7   X1
25824  M00S15449.cpumtr  +++|          IX1    X1+X4
25825  M00S15450.cpumtr  +++|          IX6    X6-X4
25826  M00S15451.cpumtr  +++|          EQ     PSM2        LOOP FOR NEXT WORD
25827  M00S15452.cpumtr  +++|
25828  M00S15453.cpumtr  +++| PSM3     ZR     B4,RB6      IF MOVE COMPLETE
25829  M00S15454.cpumtr  +++|          JP     B5          RETURN
Line S00051 Modification History
M01 (Added by) ns2418
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25830  M02S00051.271l750 ---| RTC      SPACE  4,10
Line S01475 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25831  M01S01475.271l750 +++| RTC      SPACE  4,15
Line S00052 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25832  M01S00052.ns2418  +++|**        RTC - UPDATE REAL-TIME CLOCK FROM CPU MICROSECOND CLOCK.
25833  M01S00053.ns2418  +++|*
25834  M01S00054.ns2418  +++|*         READS THE CPU MICROSECOND CLOCK AND UPDATES THE REAL TIME
25835  M01S00055.ns2418  +++|*         CLOCK (RTCL) WHEN PROCESSING *MTR* REQUESTS.
25836  M01S00056.ns2418  +++|*
Line S01476 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25837  M01S01476.271l750 +++|*         ENTRY  (X5) = CPU MICROSECOND CLOCK.
25838  M01S01477.271l750 +++|*
Line S00057 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25839  M01S00057.ns2418  +++|*         EXIT   (RTCL) = UPDATED TO NEAREST SECOND AND MILLISECOND.
Line S01478 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25840  M01S01478.271l750 +++|*                (X5) = CPU MICROSECOND CLOCK AT ENTRY.
Line S00058 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25841  M01S00058.ns2418  +++|*
25842  M01S00059.ns2418  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
Line S00060 Modification History
M01 (Added by) ns2418
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25843  M02S00060.271l750 ---|*                A - 1, 2, 3, 6, 7.
Line S01479 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25844  M01S01479.271l750 +++|*                A - 1, 2, 3, 5, 6, 7.
Line S00061 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25845  M01S00061.ns2418  +++|*                B - 4.
25846  M01S00062.ns2418  +++|
25847  M01S00063.ns2418  +++|
25848  M01S00064.ns2418  +++| RTC      SA2    RTCA        CPU CLOCK VALUE AT LAST WHOLE MILLISECOND
Line S00065 Modification History
M01 (Added by) ns2418
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25849  M02S00065.271l750 ---|          BX3    X3-X3
25850  M02S00066.271l750 ---|          RC     X5          READ THE CURRENT CPU MICROSECOND CLOCK
Line S01480 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25851  M01S01480.271l750 +++|          SX3    B0+
Line S00067 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25852  M01S00067.ns2418  +++|          IX1    X5-X2       MICROSECONDS SINCE LAST WHOLE MILLISECOND
25853  M01S00068.ns2418  +++|          PL     X1,RTC1     IF NO OVERFLOW
25854  M01S00069.ns2418  +++|
25855  M01S00070.ns2418  +++|*         SINCE THE 48 BIT CPU CLOCK ON A CYBER 180 WILL OVERFLOW ONLY
25856  M01S00071.ns2418  +++|*         AFTER APPROXIMATELY 9 YEARS, IT IS SAFE TO ASSUME THAT IF AN
25857  M01S00072.ns2418  +++|*         OVERFLOW HAS OCCURRED IT IS ON A CYBER 170-865/875, WHICH
25858  M01S00073.ns2418  +++|*         USES A 32 BIT CPU CLOCK WHICH OVERFLOWS EVERY 1.2 HOURS.
25859  M01S00074.ns2418  +++|
25860  M01S00075.ns2418  +++|          SX3    B1+         CORRECT FOR OVERFLOW
25861  M01S00076.ns2418  +++|          LX3    32
25862  M01S00077.ns2418  +++|          IX1    X1+X3
25863  M01S00078.ns2418  +++| RTC1     SX6    1000        ONE MILLISECOND
25864  M01S00079.ns2418  +++|          IX7    X1-X6
25865  M01S00080.ns2418  +++|          PX1    X1
Line S00081 Modification History
M01 (Added by) ns2418
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25866  M02S00081.271l716 ---|          NG     X7,/MONITOR/PMN0  IF LESS THAN ONE MILLISECOND
Line S01469 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25867  M01S01469.271l716 +++|          NG     X7,/MONITOR/PMN1  IF .LT. ONE MILLISECOND
Line S01481 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25868  M01S01481.271l750 +++|          BX7    X5
25869  M01S01482.271l750 +++|          SA7    RTCE        SAVE ENTRY CLOCK VALUE
Line S00082 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25870  M01S00082.ns2418  +++|          PX7    X6
25871  M01S00083.ns2418  +++|          NX7    X7
25872  M01S00084.ns2418  +++|          FX7    X1/X7       CALCULATE MILLISECONDS
25873  M01S00085.ns2418  +++|          UX7    X7,B4
25874  M01S00086.ns2418  +++|          LX7    B4          INTEGER MILLISECONDS
25875  M01S00087.ns2418  +++|          IX6    X6*X7
25876  M01S00088.ns2418  +++|          IX6    X2+X6       MICROSECONDS AT NEW WHOLE MILLISECOND
25877  M01S00089.ns2418  +++|          BX6    -X3*X6      CLEAR POSSIBLE OVERFLOW (CYBER 865/875)
25878  M01S00090.ns2418  +++|          SA6    A2
25879  M01S00091.ns2418  +++|          MX2    24
25880  M01S00092.ns2418  +++|          SA3    RTCC        *RTCL* AT LAST *CPUMTR* UPDATE
25881  M01S00093.ns2418  +++|          BX1    -X2*X3      ISOLATE OLD *RTCL* COMPONENTS
25882  M01S00094.ns2418  +++|          BX3    X2*X3
25883  M01S00095.ns2418  +++|          IX7    X1+X7       CURRENT MILLISECONDS
25884  M01S00096.ns2418  +++|          SA1    RTCB        MICROSECONDS AT LAST WHOLE SECOND
25885  M01S00097.ns2418  +++|          LX3    24
25886  M01S00098.ns2418  +++|          BX7    -X2*X7      NEW *RTCL* MILLISECOND COMPONENT
25887  M01S00099.ns2418  +++|          BX2    X2-X2
25888  M01S00100.ns2418  +++|          SX4    B1
25889  M01S00101.ns2418  +++|          IX1    X5-X1       MICROSECONDS SINCE LAST WHOLE SECOND
Line S00001 Modification History
M01 (Added by) cpum189
Seq #  *Modification Id* Act 
----------------------------+
25890  M01S00001.cpum189 +++|          SB4    10-1
Line S00102 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25891  M01S00102.ns2418  +++|          PL     X1,RTC2     IF NO OVERFLOW
25892  M01S00103.ns2418  +++|          SX2    B1          CORRECT FOR OVERFLOW
25893  M01S00104.ns2418  +++|          LX2    32
25894  M01S00105.ns2418  +++|          IX1    X1+X2
25895  M01S00106.ns2418  +++|          IX5    X5+X2
25896  M01S00107.ns2418  +++| RTC2     SX6    1000000/100B
25897  M01S00108.ns2418  +++|          LX6    6
25898  M01S00109.ns2418  +++|          IX6    X1-X6
25899  M01S00110.ns2418  +++|          NG     X6,RTC3     IF LESS THAN ONE SECOND
Line S00002 Modification History
M01 (Added by) cpum189
Seq #  *Modification Id* Act 
----------------------------+
25900  M01S00002.cpum189 +++|          NG     B4,RTC3     IF MORE THAN A 10 SECOND UPDATE
Line S00111 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25901  M01S00111.ns2418  +++|          BX1    X6
Line S00003 Modification History
M01 (Added by) cpum189
Seq #  *Modification Id* Act 
----------------------------+
25902  M01S00003.cpum189 +++|          SB4    B4-B1
Line S00112 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25903  M01S00112.ns2418  +++|          IX3    X3+X4       INCREMENT SECONDS
25904  M01S00113.ns2418  +++|          NZ     X6,RTC2     IF NOT WHOLE SECONDS
25905  M01S00114.ns2418  +++| RTC3     IX6    X5-X1       MICROSECONDS AT NEW WHOLE SECOND
25906  M01S00115.ns2418  +++|          MX1    -24
25907  M01S00116.ns2418  +++|          BX6    -X2*X6      CLEAR POSSIBLE OVERFLOW (CYBER 865/875)
25908  M01S00117.ns2418  +++|          SA6    A1
25909  M01S00118.ns2418  +++|          BX3    -X1*X3      NEW *RTCL* SECONDS COMPONENT
25910  M01S00119.ns2418  +++|          LX3    36
25911  M01S00120.ns2418  +++|          BX7    X3+X7       UPDATE REAL TIME CLOCK
25912  M01S00121.ns2418  +++|          SA7    A3+         SAVE NEW *RTCL* VALUE
25913  M01S00122.ns2418  +++|          SA7    RTCL
Line S00001 Modification History
M01 (Added by) cpum200
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25914  M02S00001.271l716 ---|          PL     B4,/MONITOR/PMN0  IF NOT AN EXCESSIVE UPDATE
Line S01470 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25915  M02S01470.271l750 ---|          PL     B4,/MONITOR/PMN1  IF NOT AN EXCESSIVE UPDATE
Line S01483 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25916  M01S01483.271l750 +++|          PL     B4,RTC4     IF NOT AN EXCESSIVE UPDATE
Line S00002 Modification History
M01 (Added by) cpum200
Seq #  *Modification Id* Act 
----------------------------+
25917  M01S00002.cpum200 +++|          SA1    RTCD        COPY OPERATOR MESSAGE
25918  M01S00003.cpum200 +++|          BX6    X1
25919  M01S00004.cpum200 +++|          SA1    A1+B1
25920  M01S00005.cpum200 +++|          TA6    MS2W,SCA
25921  M01S00006.cpum200 +++|          BX6    X1
25922  M01S00007.cpum200 +++|          SA1    A1+B1
25923  M01S00008.cpum200 +++|          SA6    A6+B1
25924  M01S00009.cpum200 +++|          BX6    X1
25925  M01S00010.cpum200 +++|          SA6    A6+B1
Line S01484 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25926  M01S01484.271l750 +++| RTC4     SA5    RTCE        RESTORE ENTRY CLOCK VALUE
Line S00123 Modification History
M01 (Added by) ns2418
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25927  M02S00123.271l716 ---|          EQ     /MONITOR/PMN0  EXIT TO PROCESS *MTR* REQUEST
Line S01471 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
25928  M01S01471.271l716 +++|          EQ     /MONITOR/PMN1  EXIT TO PROCESS *MTR* REQUEST
Line S00124 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
25929  M01S00124.ns2418  +++|
25930  M01S00125.ns2418  +++|
25931  M01S00126.ns2418  +++| RTCA     CON    0           MICROSECONDS AT LAST WHOLE MILLISECOND
25932  M01S00127.ns2418  +++| RTCB     CON    0           MICROSECONDS AT LAST WHOLE SECOND
25933  M01S00128.ns2418  +++| RTCC     CON    377777000000000000B  *RTCL* INITIAL AND PREVIOUS
Line S00011 Modification History
M01 (Added by) cpum200
Seq #  *Modification Id* Act 
----------------------------+
25934  M01S00011.cpum200 +++| RTCD     DATA   C*CLOCK UPDATE WARNING.*
Line S01485 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
25935  M01S01485.271l750 +++| RTCE     CON    0           CPU CLOCK AT ENTRY
25936  M00S15455.cpumtr  +++| SMI      SPACE  4,15
25937  M00S15456.cpumtr  +++|**        SMI - PROGRAM MODE STORAGE MOVE USING
25938  M00S15457.cpumtr  +++|*               CM TO CM COPY INSTRUCTION.
25939  M00S15458.cpumtr  +++|*
25940  M00S15459.cpumtr  +++|*         ENTRY  (X0) = ADDRESS FROM MOVE TO.
25941  M00S15460.cpumtr  +++|*                (X1) = (X0) - ADDRESS TO MOVE TO.
25942  M00S15461.cpumtr  +++|*                (B4) = WORD COUNT OF MOVE.
25943  M00S15462.cpumtr  +++|*                (B6) = RETURN ADDRESS.
25944  M00S15463.cpumtr  +++|*
25945  M00S15464.cpumtr  +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
25946  M00S15465.cpumtr  +++|*                B - 4, 5.
25947  M00S15466.cpumtr  +++|*
25948  M00S15467.cpumtr  +++|*         CALLS  RB6.
25949  M00S15468.cpumtr  +++|
25950  M00S15469.cpumtr  +++|
25951  M00S15470.cpumtr  +++| SMI      SB5    400B        MAXIMUM WORD COUNT / TRANSFER
25952  M00S15471.cpumtr  +++|          SX7    B4+         WORD COUNT
25953  M00S15472.cpumtr  +++|          GE     B4,B5,SMI1  IF WORD COUNT .GE. TRANSFER SIZE
25954  M00S15473.cpumtr  +++|          SB5    B4+         SET TRANSFER SIZE TO WORD COUNT
25955  M00S15474.cpumtr  +++| SMI1     SX4    B5          WORD COUNT / TRANSFER
25956  M00S15475.cpumtr  +++|          BX2    X0          PRESET FWA OF MOVE
25957  M00S15476.cpumtr  +++|          PL     X1,SMI3     IF DOWNWARD MOVE
25958  M00S15477.cpumtr  +++|          IX6    X4+X1
25959  M00S15478.cpumtr  +++|          NG     X6,SMI2     IF DIFFERENCE BIG ENOUGH
25960  M00S15479.cpumtr  +++|          BX4    -X1         USE DIFFERENCE AS WORD COUNT
25961  M00S15480.cpumtr  +++| SMI2     IX6    X7+X0       LWA+1 OF BLOCK TO BE MOVED
25962  M00S15481.cpumtr  +++|          IX2    X6-X4       FWA OF MOVE = LWA+1 - INCREMENT
25963  M00S15482.cpumtr  +++|          EQ     SMI4        DETERMINE BLOCK COUNT
25964  M00S15483.cpumtr  +++|
25965  M00S15484.cpumtr  +++| SMI3     IX6    X4-X1
25966  M00S15485.cpumtr  +++|          NG     X6,SMI4     IF DIFFERENCE BIG ENOUGH
25967  M00S15486.cpumtr  +++|          BX4    X1          USE DIFFERENCE AS WORD COUNT
25968  M00S15487.cpumtr  +++|
25969  M00S15488.cpumtr  +++|*         DETERMINE BLOCK COUNT.
25970  M00S15489.cpumtr  +++|
25971  M00S15490.cpumtr  +++| SMI4     PX0    X4          WORD COUNT / TRANSFER
25972  M00S15491.cpumtr  +++|          PX6    X7          WORD COUNT
25973  M00S15492.cpumtr  +++|          NX0    X0
25974  M00S15493.cpumtr  +++|          FX0    X6/X0
25975  M00S15494.cpumtr  +++|          UX0,B4 X0
25976  M00S15495.cpumtr  +++|          LX6    X0,B4
25977  M00S15496.cpumtr  +++|          IX0    X6*X4       BLOCK COUNT
25978  M00S15497.cpumtr  +++|          IX3    X7-X0       REMAINDER
25979  M00S15498.cpumtr  +++|
25980  M00S15499.cpumtr  +++|*         SET UP FOR MOVE.
25981  M00S15500.cpumtr  +++|
25982  M00S15501.cpumtr  +++|          IX0    X2-X1       ADDRESS TO MOVE TO
25983  M00S15502.cpumtr  +++|          LX2    30
25984  M00S15503.cpumtr  +++|          BX0    X0+X2       INSERT ADDRESS TO MOVE FROM
25985  M00S15504.cpumtr  +++|          SB5    X4          WORD COUNT / TRANSFER
25986  M00S15505.cpumtr  +++|          PL     X1,SMI5     IF DOWNWARD MOVE
25987  M00S15506.cpumtr  +++|          BX4    -X4         COMPLEMENT INCREMENT
25988  M00S15507.cpumtr  +++| SMI5     MX2    -30         BUILD INCREMENT WORD
25989  M00S15508.cpumtr  +++|          BX7    -X2*X4
25990  M00S15509.cpumtr  +++|          BX4    -X2*X4
25991  M00S15510.cpumtr  +++|          LX7    30
25992  M00S15511.cpumtr  +++|          BX4    X7+X4
25993  M00S15512.cpumtr  +++|          SB4    X6+         BLOCK COUNT
25994  M00S15513.cpumtr  +++|
25995  M00S15514.cpumtr  +++|*         MOVE STORAGE (MAIN LOOP).
25996  M00S15515.cpumtr  +++|
25997  M00S15516.cpumtr  +++| SMI6     WE     B5          MOVE STORAGE
25998  M00S15517.cpumtr  +++|+         SB4    B4-B1       DECREMENT BLOCK COUNT
25999  M00S15518.cpumtr  +++|          IX0    X0+X4       INCREMENT/DECREMENT ADDRESSES
26000  M00S15519.cpumtr  +++|          GT     B4,B0,SMI6  IF NOT COMPLETE
26001  M00S15520.cpumtr  +++|          ZR     X3,RB6      IF NO REMAINDER
26002  M00S15521.cpumtr  +++|
26003  M00S15522.cpumtr  +++|*         MOVE REMAINDER.
26004  M00S15523.cpumtr  +++|
26005  M00S15524.cpumtr  +++|          SB5    X3+         REMAINING STORAGE LENGTH
26006  M00S15525.cpumtr  +++|          PL     X4,SMI7     IF DOWNWARD MOVE
26007  M00S15526.cpumtr  +++|          IX0    X0-X4       RESET LAST INCREMENT/DECREMENT
26008  M00S15527.cpumtr  +++|          IX0    X0-X3       DECREMENT REMAINING LENGTH
26009  M00S15528.cpumtr  +++|          LX3    30
26010  M00S15529.cpumtr  +++|          IX0    X0-X3
26011  M00S15530.cpumtr  +++| SMI7     WE     B5          MOVE REMAINDER
26012  M00S15531.cpumtr  +++|+         JP     B6          RETURN
Line S00337 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26013  M01S00337.v23l617 +++| VLM      SPACE  4,10
26014  M01S00338.v23l617 +++|**        VLM - VERIFY FIELD LENGTH STARTUP PROCESSOR.
26015  M01S00339.v23l617 +++|*
Line S00340 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2355
Seq #  *Modification Id* Act 
----------------------------+
26016  M02S00340.ns2355  ---|*         ENTRY  (B7) = CONTROL POINT TO BE CHECKED.
26017  M02S00341.ns2355  ---|*
Line S00342 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26018  M02S00342.271l750 ---|*         EXIT   TO  */MONITOR/RCC0*.
Line S01486 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26019  M01S01486.271l750 +++|*         EXIT   TO  */MONITOR/RCC1*.
Line S00343 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26020  M01S00343.v23l617 +++|*                (VFLR) = 24/0, 18/ CPA, 18/ PP OR
26021  M01S00344.v23l617 +++|*                TO  */MONITOR/PPR1*,  IF *VLFM* IN PROGRESS.
Line S00725 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26022  M01S00725.273l780 +++|*
26023  M01S00726.273l780 +++|*         USES   X - 1, 4, 6, 7.
26024  M01S00727.273l780 +++|*                A - 1, 6.
26025  M01S00728.273l780 +++|*                B - 3, 6.
Line S00345 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26026  M01S00345.v23l617 +++|
26027  M01S00346.v23l617 +++|
Line S00347 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2355
Seq #  *Modification Id* Act 
----------------------------+
26028  M02S00347.ns2355  ---| VLM      SA1    VFLR        VFL REQUEST WORD
26029  M02S00348.ns2355  ---|          SX6    B7          CONTROL POINT ADDRESS
26030  M02S00349.ns2355  ---|          SX7    B1+B1       PRESET RESPONSE
26031  M02S00350.ns2355  ---|          SX4    A5          OUTPUT REGISTER ADDRESS
Line S00020 Modification History
M01 (Added by) ns2355
Seq #  *Modification Id* Act 
----------------------------+
26032  M01S00020.ns2355  +++| VLM      LX1    7-36        GET CONTROL POINT
Line S00729 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26033  M01S00729.273l780 +++|          SX4    7600B
Line S00021 Modification History
M01 (Added by) ns2355
Seq #  *Modification Id* Act 
----------------------------+
26034  M01S00021.ns2355  +++|          BX6    X4*X1
26035  M01S00022.ns2355  +++|          SA1    VFLR        VFL REQUEST WORD
Line S00023 Modification History
M01 (Added by) ns2355
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26036  M02S00023.273l780 ---|          SX7    B1+B1       PRESET RESPONSE
Line S00730 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26037  M01S00730.273l780 +++|          SX7    2           PRESET RESPONSE
Line S00024 Modification History
M01 (Added by) ns2355
Seq #  *Modification Id* Act 
----------------------------+
26038  M01S00024.ns2355  +++|          NZ     X6,VLM1     IF CONTROL POINT SPECIFIED
Line S00025 Modification History
M01 (Added by) ns2355
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26039  M02S00025.273l780 ---|          SX6    B7
Line S00731 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26040  M01S00731.273l780 +++|          SX6    B7+
Line S00026 Modification History
M01 (Added by) ns2355
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26041  M02S00026.271l750 ---| VLM1     SX4    A5          OUTPUT REGISTER ADDRESS
Line S01487 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26042  M01S01487.271l750 +++| VLM1     SX4    A5+         OUTPUT REGISTER ADDRESS
Line S00351 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26043  M01S00351.v23l617 +++|          LX6    18
Line S00352 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26044  M02S00352.271l750 ---|          MX2    -57
Line S00353 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26045  M01S00353.v23l617 +++|          LX7    36
26046  M01S00354.v23l617 +++|          SB6    VFLXP       EXCHANGE PACKAGE ADDRESS
26047  M01S00355.v23l617 +++|          SB3    /MONITOR/MTRX  *RCC* RETURN ADDRESS
26048  M01S00356.v23l617 +++|          BX6    X6+X4       ASSEMBLE REQUEST
26049  M01S00357.v23l617 +++|          NZ     X1,PPR1     IF *VFLM* ALREADY IN PROGRESS
26050  M01S00358.v23l617 +++|          SA6    A1          SET REQUEST
Line S00359 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26051  M02S00359.271l750 ---|          EQ     /MONITOR/RCC0  RECALL CPU
Line S01488 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26052  M01S01488.271l750 +++|          EQ     /MONITOR/RCC  RECALL CPU
Line S00360 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26053  M01S00360.v23l617 +++| VFLXP    SPACE  4,10
26054  M01S00361.v23l617 +++|**        VFLXP - FIELD LENGTH VERIFICATION EXCHANGE PACKAGE.
26055  M01S00362.v23l617 +++|*
26056  M01S00363.v23l617 +++|*         THIS EXCHANGE PACKAGE IS USED TO VERIFY THE FIELD LENGTH
26057  M01S00364.v23l617 +++|*         OF A PROGRAM AFTER A MEMORY PARITY ERROR HAS BEEN DETECTED.
26058  M01S00365.v23l617 +++|*         IT MUST BE SEPARATE FROM THE REST OF THE SYSTEM BECAUSE IT
26059  M01S00366.v23l617 +++|*         MAY ABORT DUE TO A HARD DOUBLE-BIT ERROR IN THE FIELD LENGTH
26060  M01S00367.v23l617 +++|*         IN QUESTION.
26061  M01S00368.v23l617 +++|
26062  M01S00369.v23l617 +++|
Line S00370 Modification History
M01 (Added by) v23l617
M02 (Removed by) cpum115
Seq #  *Modification Id* Act 
----------------------------+
26063  M02S00370.cpum115 ---| VFLXP    EXP    P=/CME/VFL,FL=(,MXM),A5=VFLR,B1=1,MA=VFLXP,EM=EEMC
Line S00001 Modification History
M01 (Added by) cpum115
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26064  M02S00001.252l678 ---| VFLXP    EXP    P=/CME/VFL,FL=(,MCM),A5=VFLR,B1=1,MA=VFLXP,EM=EEMC
Line S00724 Modification History
M01 (Added by) 252l678
M02 (Removed by) cpum195
Seq #  *Modification Id* Act 
----------------------------+
26065  M02S00724.cpum195 ---| VFLXP    EXP    P=/CME/VFL,FL=(,MCM),A5=VFLR,B1=1,MA=VFLXP,EM=(,CXPFE)
Line S00004 Modification History
M01 (Added by) cpum195
Seq #  *Modification Id* Act 
----------------------------+
26066  M01S00004.cpum195 +++| VFLXP    EXP    P=/CME/VFL,FL=(,MCM),FLX=(,MXM),A5=VFLR,B1=1,MA=VFLXP,E
26067  M01S00005.cpum195 +++|,M=(,CXPFE)
Line S00371 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26068  M01S00371.v23l617 +++|
26069  M01S00372.v23l617 +++|*         STSW.
26070  M01S00373.v23l617 +++|
26071  M01S00374.v23l617 +++|          VFD    3/ZCPS      INITIAL CPU STATUS
26072  M01S00375.v23l617 +++|          VFD    57/0
26073  M01S00376.v23l617 +++|
Line S00377 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26074  M02S00377.271l750 ---|*         JCIW.
Line S01489 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26075  M01S01489.271l750 +++|*         CWQW.
Line S00378 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26076  M01S00378.v23l617 +++|
Line S00379 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
26077  M02S00379.271l716 ---|          VFD    11/100B     CPU PRIORITY - EQUAL TO STORAGE MOVE.
26078  M02S00380.271l716 ---|          VFD    1/0
Line S01472 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26079  M02S01472.271l750 ---|          VFD    12/MPRS     CPU PRIORITY = STORAGE MOVE-S
Line S00381 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26080  M02S00381.271l750 ---|          VFD    12/0        SELECT EITHER CPU
26081  M02S00382.271l750 ---|          VFD    36/0
Line S01490 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26082  M01S01490.271l750 +++|          VFD    2/1
26083  M01S01491.271l750 +++|          VFD    7/MPRS      CPU PRIORITY
26084  M01S01492.271l750 +++|          VFD    1/0
26085  M01S01493.271l750 +++|          VFD    1/0         CPU SLICE ACTIVE
26086  M01S01494.271l750 +++|          VFD    1/0         RECALL FLAG
26087  M01S01495.271l750 +++|          VFD    1/1         EXTENDED CPU SLICE INCOMPLETE
26088  M01S01496.271l750 +++|          VFD    2/0
26089  M01S01497.271l750 +++|          VFD    9/0         SERVICE CYCLE
26090  M01S01498.271l750 +++|          VFD    9/SSSC*JCBE  SERVICE PARAMETERS INDEX
26091  M01S01499.271l750 +++|          VFD    1/0         *MTR* BYPASS FLAG
26092  M01S01500.271l750 +++|          VFD    2/0         NO CPU SELECTION
26093  M01S01501.271l750 +++|          VFD    3/0
26094  M01S01502.271l750 +++|          VFD    3/FVXT      FL VERIFICATION EXCHANGE PACKAGE TYPE
26095  M01S01503.271l750 +++|          VFD    18/0        *WQ* LINKAGE
Line S00383 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26096  M01S00383.v23l617 +++|
Line S00384 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26097  M02S00384.271l750 ---|*         CRCW.
Line S01504 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26098  M01S01504.271l750 +++|*         CSAW.
Line S00385 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26099  M01S00385.v23l617 +++|
Line S00386 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26100  M02S00386.271l750 ---|          VFD    12/0
26101  M02S00387.271l750 ---|          VFD    24/0        CONTROL POINT ASSIGNMENT
26102  M02S00388.271l750 ---|          VFD    24/VFLXP    EXCHANGE PACKAGE
Line S01505 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26103  M01S01505.271l750 +++|          VFD    60/0
26104  M01S01506.271l750 +++|
26105  M01S01507.271l750 +++|*         *CTMW*.
26106  M01S01508.271l750 +++|
26107  M01S01509.271l750 +++|          VFD    60/0
Line S00389 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26108  M01S00389.v23l617 +++| VFL      SPACE  4,10
26109  M01S00390.v23l617 +++|**        VFL - VERIFY FIELD LENGTH.
26110  M01S00391.v23l617 +++|*
26111  M01S00392.v23l617 +++|*         ENTRY  (A5) = VFLR.
26112  M01S00393.v23l617 +++|*
26113  M01S00394.v23l617 +++|*         CALLS  CSM.
26114  M01S00395.v23l617 +++|
26115  M01S00396.v23l617 +++|
26116  M01S00397.v23l617 +++| VFLX     XJ                 RETURN
26117  M01S00398.v23l617 +++|
26118  M01S00399.v23l617 +++|*         CLEAR CM FL.
26119  M01S00400.v23l617 +++|
26120  M01S00401.v23l617 +++| VFL      SA5    A5          GET REQUEST
26121  M01S00402.v23l617 +++|          AX5    18          SHIFT TO CONTROL POINT ADDRESS
26122  M01S00403.v23l617 +++|          SA2    X5+1        RA
26123  M01S00404.v23l617 +++|          SA1    X5+2        FL
26124  M01S00405.v23l617 +++|          AX2    36          FWA TO CLEAR
26125  M01S00406.v23l617 +++|          AX1    36          WORD COUNT
26126  M01S00407.v23l617 +++|          SB3    VFL1        *CSM* RETURN ADDRESS
26127  M01S00408.v23l617 +++|          EQ     CSM         CLEAR STORAGE
26128  M01S00409.v23l617 +++|
26129  M01S00410.v23l617 +++|*         CHECK CM FL.
26130  M01S00411.v23l617 +++|
26131  M01S00412.v23l617 +++| VFL1     SA5    A5          GET REQUEST
26132  M01S00413.v23l617 +++|          AX5    18
26133  M01S00414.v23l617 +++|          SA3    X5+FLSW     GET NEGATIVE FL LENGTH
26134  M01S00415.v23l617 +++|          SA2    X5+1        RA
26135  M01S00416.v23l617 +++|          SA1    X5+2        FL
26136  M01S00417.v23l617 +++|          SX4    B1          SET INCREMENT
26137  M01S00418.v23l617 +++|          AX3    48
26138  M01S00419.v23l617 +++|          AX2    36          FWA
26139  M01S00420.v23l617 +++|          AX1    36          WORD COUNT
26140  M01S00421.v23l617 +++|          LX3    6           NEGATIVE FL OFFSET
26141  M01S00422.v23l617 +++|          IX2    X2-X3       START FWA AT END OF NFL
26142  M01S00423.v23l617 +++|          IX1    X1+X3       ADD NFL SIZE TO WORD COUNT
26143  M01S00424.v23l617 +++|          IX1    X1-X4       PRE-DECREMENT WORD COUNT
26144  M01S00425.v23l617 +++| VFL2     ERX3   X2
26145  M01S00426.v23l617 +++|          NO
26146  M01S00427.v23l617 +++|          IX1    X1-X4       DECREMENT WORD COUNT
26147  M01S00428.v23l617 +++|          IX2    X2+X4       INCREMENT ADDRESS
26148  M01S00429.v23l617 +++|          PL     X1,VFL2     IF NOT COMPLETE
Line S00001 Modification History
M01 (Added by) cpum157
Seq #  *Modification Id* Act 
----------------------------+
26149  M01S00001.cpum157 +++|          TNO    /CME/VFL5,XUEM  (865/875 AND USER EM IN EXTERNAL EM)
Line S00430 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26150  M01S00430.v23l617 +++|
26151  M01S00431.v23l617 +++|*         CLEAR UEM FL.
26152  M01S00432.v23l617 +++|
26153  M01S00433.v23l617 +++|          SA5    A5          GET REQUEST
26154  M01S00434.v23l617 +++|          AX5    18          SHIFT TO CONTROL POINT ADDRESS
26155  M01S00435.v23l617 +++|          SA2    X5+4        RAE
26156  M01S00436.v23l617 +++|          SA1    X5+5        FLE
26157  M01S00437.v23l617 +++|          AX2    36          FWA TO CLEAR
26158  M01S00438.v23l617 +++|          AX1    36          WORD COUNT
Line S00725 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26159  M01S00725.252l678 +++|          TLX2   (6,ESM170,0)
26160  M01S00726.252l678 +++|          TLX1   (6,ESM170,0)
Line S00439 Modification History
M01 (Added by) v23l617
M02 (Removed by) cpum195
Seq #  *Modification Id* Act 
----------------------------+
26161  M02S00439.cpum195 ---|          SB3    VFL3        *CSM* RETURN ADDRESS
26162  M02S00440.cpum195 ---|          EQ     CSM         CLEAR STORAGE
Line S00006 Modification History
M01 (Added by) cpum195
Seq #  *Modification Id* Act 
----------------------------+
26163  M01S00006.cpum195 +++|          ZR     X1,VFL5     IF FLE = 0
26164  M01S00007.cpum195 +++|          BX7    X7-X7
26165  M01S00008.cpum195 +++|          SX6    B1+
26166  M01S00009.cpum195 +++| VFL2.1   WX7    X2          CLEAR USER EM
26167  M01S00010.cpum195 +++|          IX1    X1-X6
26168  M01S00011.cpum195 +++|          IX2    X2+X6
26169  M01S00012.cpum195 +++|          NZ     X1,VFL2.1   IF NOT END OF USER EM
Line S00441 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26170  M01S00441.v23l617 +++|
26171  M01S00442.v23l617 +++|*         CHECK UEM FL.
26172  M01S00443.v23l617 +++|
26173  M01S00444.v23l617 +++| VFL3     SA5    A5          GET REQUEST
26174  M01S00445.v23l617 +++|          AX5    18
26175  M01S00446.v23l617 +++|          SA2    X5+4        RAE
26176  M01S00447.v23l617 +++|          SA1    X5+5        FLE
26177  M01S00448.v23l617 +++|          SX4    B1          SET INCREMENT
26178  M01S00449.v23l617 +++|          AX2    36          FWA
26179  M01S00450.v23l617 +++|          AX1    36          WORD COUNT
Line S00727 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26180  M01S00727.252l678 +++|          TLX2   (6,ESM170,0)
26181  M01S00728.252l678 +++|          TLX1   (6,ESM170,0)
Line S00451 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26182  M01S00451.v23l617 +++|          IX1    X1-X4       PRE-DECREMENT WORD COUNT
Line S00452 Modification History
M01 (Added by) v23l617
M02 (Removed by) cpum195
Seq #  *Modification Id* Act 
----------------------------+
26183  M02S00452.cpum195 ---| VFL4     ERX3   X2
Line S00013 Modification History
M01 (Added by) cpum195
Seq #  *Modification Id* Act 
----------------------------+
26184  M01S00013.cpum195 +++| VFL4     RX3    X2
Line S00453 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26185  M01S00453.v23l617 +++|          NO
26186  M01S00454.v23l617 +++|          IX1    X1-X4       DECREMENT WORD COUNT
26187  M01S00455.v23l617 +++|          IX2    X2+X4       INCREMENT ADDRESS
26188  M01S00456.v23l617 +++|          PL     X1,VFL4     IF NOT COMPLETE
26189  M01S00457.v23l617 +++|
26190  M01S00458.v23l617 +++|*         SET RESPONSE.
26191  M01S00459.v23l617 +++|
Line S00460 Modification History
M01 (Added by) v23l617
M02 (Removed by) cpum157
Seq #  *Modification Id* Act 
----------------------------+
26192  M02S00460.cpum157 ---|          SA5    A5          GET REQUEST
Line S00002 Modification History
M01 (Added by) cpum157
Seq #  *Modification Id* Act 
----------------------------+
26193  M01S00002.cpum157 +++| VFL5     SA5    A5          GET REQUEST
Line S00461 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26194  M01S00461.v23l617 +++|          SX6    X5          EXTRACT PP OUTPUT REGISTER ADDRESS
26195  M01S00462.v23l617 +++|          SA6    A5
26196  M01S00463.v23l617 +++|          EQ     VFLX        RETURN
26197  M01S00464.v23l617 +++|
26198  M01S00465.v23l617 +++|
26199  M01S00466.v23l617 +++| VFLR     VFD    24/0
26200  M01S00467.v23l617 +++|          VFD    18/0        CONTROL POINT ADDRESS
26201  M01S00468.v23l617 +++|          VFD    18/0        PP OUTPUT REGISTER ADDRESS
Line S00079 Modification History
M01 (Added by) ns2443
Seq #  *Modification Id* Act 
----------------------------+
26202  M01S00079.ns2443  +++| XJ2      SPACE  4,10
26203  M01S00080.ns2443  +++|**        XJ2 - ACCUMULATE ACCOUNTING ADJUSTMENTS.
Line S01510 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26204  M01S01510.271l750 +++|*
26205  M01S01511.271l750 +++|*         EXIT   TO  */MONITOR/XJ1.1*.
26206  M01S01512.271l750 +++|*
26207  M01S01513.271l750 +++|*         USES   X - 1, 2, 4, 6, 7.
26208  M01S01514.271l750 +++|*                A - 1, 2, 6, 7.
26209  M01S01515.271l750 +++|*                B - 6.
Line S00081 Modification History
M01 (Added by) ns2443
Seq #  *Modification Id* Act 
----------------------------+
26210  M01S00081.ns2443  +++|
26211  M01S00082.ns2443  +++|
26212  M01S00083.ns2443  +++| XJ2      TNO    /NVE/XJ1,NVE
Line S00084 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26213  M02S00084.271l750 ---| XJ3      SA1    /MONITOR/MS
26214  M02S00085.271l750 ---|          SA2    /MONITOR/MT MONITOR TIME ADJUSTMENT
26215  M02S00086.271l750 ---|          RC     X6
26216  M02S00087.271l750 ---|          ZR     X1,/MONITOR/XJ1.1  IF RA+1
26217  M02S00088.271l750 ---|          SX4    B1
26218  M02S00089.271l750 ---|          SA3    /MONITOR/BN EXCHANGE ADJUSTMENT
26219  M02S00090.271l750 ---|          TX7    ACAD        RESET ACCOUNTING ADJUSTMENT
26220  M02S00091.271l750 ---|          IX5    X6-X1       MONITOR MODE TIME
26221  M02S00092.271l750 ---|          SA7    A3+
26222  M02S00093.271l750 ---|          IX7    X3+X5       EXCHANGE+MONITOR
Line S01516 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26223  M01S01516.271l750 +++| XJ3      SA1    CL+CMST+A0  MONITOR MODE STATUS
26224  M01S01517.271l750 +++|          SA2    MT+A0       MONITOR MODE TIME ACCUMULATOR
26225  M01S01518.271l750 +++|          TX7    ACAD        EXCHANGE JUMP OVERHEAD FACTOR
26226  M01S01519.271l750 +++|          SX6    B0          CLEAR BASE TIME TO FLAG MONITOR MODE EXIT
26227  M01S01520.271l750 +++|          UX1,B6 X1          EXTRACT MONITOR MODE BASE TIME
26228  M01S01521.271l750 +++|          PX6    B6,X6
26229  M01S01522.271l750 +++|          ZR     B6,XJ5      IF NOT TO ACCUMULATE MONITOR MODE TIME
26230  M01S01523.271l750 +++|          RC     X4
26231  M01S01524.271l750 +++|          IX7    X2+X7       ADD EXCHANGE FACTOR
26232  M01S01525.271l750 +++|          IX5    X4-X1       MONITOR MODE TIME INCREMENT
Line S00094 Modification History
M01 (Added by) ns2443
Seq #  *Modification Id* Act 
----------------------------+
26233  M01S00094.ns2443  +++|          PL     X5,XJ4      IF NO OVERFLOW
Line S01526 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26234  M01S01526.271l750 +++|
26235  M01S01527.271l750 +++|*         NOTE - THE MICROSECOND CLOCK ON THE CYBER 170-865 AND 170-875
26236  M01S01528.271l750 +++|*         WILL WRAP APPROXIMATELY EVERY 1.2 HOURS, SINCE IT IS ONLY 32
26237  M01S01529.271l750 +++|*         BITS WIDE.  ALL OTHER MODELS IN THE 170-800 SERIES HAVE 48
26238  M01S01530.271l750 +++|*         BIT COUNTERS, WHICH WILL WRAP ONLY ONCE EVERY 9 YEARS OR SO.
26239  M01S01531.271l750 +++|*         SINCE THIS COUNTER IS RESET AT DEADSTART, IT IS SAFE TO
26240  M01S01532.271l750 +++|*         ASSUME THAT IF A WRAP IS DETECTED, THE COUNTER IS ONLY 32
26241  M01S01533.271l750 +++|*         BITS WIDE.
26242  M01S01534.271l750 +++|
26243  M01S01535.271l750 +++|          SX4    1
Line S00095 Modification History
M01 (Added by) ns2443
Seq #  *Modification Id* Act 
----------------------------+
26244  M01S00095.ns2443  +++|          LX4    32
Line S00096 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26245  M02S00096.271l750 ---|          IX7    X7+X4
26246  M02S00097.271l750 ---| XJ4      IX7    X7+X2
26247  M02S00098.271l750 ---|          SA7    A2          UPDATE MONITOR TIME ADJUSTMENT
Line S01536 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
26248  M01S01536.271l750 +++|          IX5    X5+X4
26249  M01S01537.271l750 +++| XJ4      IX7    X7+X5
26250  M01S01538.271l750 +++|          SA7    MT+A0       UPDATE MONITOR MODE TIME
26251  M01S01539.271l750 +++| XJ5      SA6    A1          UPDATE MONITOR MODE STATUS
Line S00099 Modification History
M01 (Added by) ns2443
Seq #  *Modification Id* Act 
----------------------------+
26252  M01S00099.ns2443  +++|          EQ     /MONITOR/XJ1.1  EXCHANGE TO PROGRAM
26253  M00S15532.cpumtr  +++|
26254  M00S15533.cpumtr  +++|          ENDBLK
26255  M00S15534.cpumtr  +++|          BLOCK  0CME,(NO CENTRAL MEMORY EXTENSION.)
26256  M00S15535.cpumtr  +++|          SPACE  4,10
26257  M00S15536.cpumtr  +++| HNG      EQU    /MONITOR/HNG
26258  M00S15537.cpumtr  +++| PPR1     EQU    /MONITOR/PPR1
26259  M00S15538.cpumtr  +++| T1       EQU    /MONITOR/T1
26260  M00S15539.cpumtr  +++| T2       EQU    /MONITOR/T2
26261  M00S15540.cpumtr  +++| T3       EQU    /MONITOR/T3
26262  M00S15541.cpumtr  +++| RA       EQU    /MONITOR/RA
26263  M00S15542.cpumtr  +++| RA1      EQU    /MONITOR/RA1
Line S00017 Modification History
M01 (Added by) cpum107
Seq #  *Modification Id* Act 
----------------------------+
26264  M01S00017.cpum107 +++| APQ      SPACE  4,10
26265  M01S00018.cpum107 +++|**        APQ - CHECK FOR *1LT* ASSIGNMENT.
26266  M01S00019.cpum107 +++|*
26267  M01S00020.cpum107 +++|*         ENTRY  (X6) = REQUEST.
26268  M01S00021.cpum107 +++|*
26269  M01S00022.cpum107 +++|*         EXIT   (X2) = PP AVAILABILITY MASK.
26270  M01S00023.cpum107 +++|*                (APQC) = NEW PP ALLOCATION MASK.
26271  M01S00024.cpum107 +++|*
26272  M01S00025.cpum107 +++|*         USES   X - 1, 2, 3, 4, 7.
26273  M01S00026.cpum107 +++|*                A - 1, 7.
26274  M01S00027.cpum107 +++|*                B - 6.
26275  M01S00028.cpum107 +++|
26276  M01S00029.cpum107 +++| APQ9     SX3    3R1LT
26277  M01S00030.cpum107 +++|          MX1    18
26278  M01S00031.cpum107 +++|          LX3    -18
Line S00032 Modification History
M01 (Added by) cpum107
M02 (Removed by) ns2332b
Seq #  *Modification Id* Act 
----------------------------+
26279  M02S00032.ns2332b ---|          MX7    20          RESET SELECTION MASK
Line S00033 Modification History
M01 (Added by) cpum107
Seq #  *Modification Id* Act 
----------------------------+
26280  M01S00033.cpum107 +++|          BX3    X3-X6
Line S00034 Modification History
M01 (Added by) cpum107
M02 (Removed by) ns2332b
Seq #  *Modification Id* Act 
----------------------------+
26281  M02S00034.ns2332b ---|          LX7    -12
Line S00035 Modification History
M01 (Added by) cpum107
Seq #  *Modification Id* Act 
----------------------------+
26282  M01S00035.cpum107 +++|          BX1    X1*X3
Line S00036 Modification History
M01 (Added by) cpum107
M02 (Removed by) ns2332b
Seq #  *Modification Id* Act 
----------------------------+
26283  M02S00036.ns2332b ---|          SA7    /MONITOR/APQC
Line S00037 Modification History
M01 (Added by) cpum107
Seq #  *Modification Id* Act 
----------------------------+
26284  M01S00037.cpum107 +++|          NZ     X1,/MONITOR/APQ1.0  IF NOT *1LT*
26285  M01S00038.cpum107 +++|          SA1    APQD        GET ASSIGNMENT MASK
26286  M01S00039.cpum107 +++|          MX3    10
26287  M01S00040.cpum107 +++|          TX4    A5-1,-FP
26288  M01S00041.cpum107 +++|          LX3    -12
26289  M01S00042.cpum107 +++|          LX4    -3
26290  M01S00043.cpum107 +++|          SB6    X4-12B
26291  M01S00044.cpum107 +++|          PL     B6,APQ10    IF SECOND PP CHASSIS
26292  M01S00045.cpum107 +++|          SB6    X4+
26293  M01S00046.cpum107 +++| APQ10    AX4    B6,X1       ADJUST PP MASK
26294  M01S00047.cpum107 +++|          LX1    B6,X1
26295  M01S00048.cpum107 +++|          BX4    X3*X4       FIRST PP CHASSIS SELECTION
26296  M01S00049.cpum107 +++|          LX3    -10
26297  M01S00050.cpum107 +++|          BX1    X3*X1       SECOND PP CHASSIS SELECTION
26298  M01S00051.cpum107 +++|          BX7    X4+X1
Line S00052 Modification History
M01 (Added by) cpum107
M02 (Removed by) ns2332b
Seq #  *Modification Id* Act 
----------------------------+
26299  M02S00052.ns2332b ---|          MX4    5
Line S00053 Modification History
M01 (Added by) cpum107
Seq #  *Modification Id* Act 
----------------------------+
26300  M01S00053.cpum107 +++|          BX2    X7*X2       ALLOWABLE PP SELECTION
26301  M01S00054.cpum107 +++|          SA7    /MONITOR/APQC  SET SELECTION MASK
26302  M01S00055.cpum107 +++|          EQ     /MONITOR/APQ1.0  ASSIGN THE PP
26303  M01S00056.cpum107 +++|
26304  M01S00057.cpum107 +++| APQD     VFD    45/-040120060050020B,15/0
Line S15543 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26305  M01S15543.273l780 ---| CSM      SPACE  4,10
Line S00732 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26306  M01S00732.273l780 +++| CSM      SPACE  4,15
26307  M00S15544.cpumtr  +++|**        CSM - CLEAR STORAGE THROUGH CPU (MONITOR MODE).
26308  M00S15545.cpumtr  +++|*
26309  M00S15546.cpumtr  +++|*         ENTRY  (X1) = WORD COUNT.
26310  M00S15547.cpumtr  +++|*                (X2) = FWA.
26311  M00S15548.cpumtr  +++|*                (B3) = RETURN ADDRESS.
26312  M00S15549.cpumtr  +++|*
Line S15550 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26313  M01S15550.273l780 ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
Line S00733 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26314  M01S00733.273l780 +++|*         EXIT   (X7) = 0.
26315  M01S00734.273l780 +++|*
26316  M01S00735.273l780 +++|*         USES   X - 0, 1, 3, 5, 6, 7.
Line S15551 Modification History
M01 (Removed by) cpum191
Seq #  *Modification Id* Act 
----------------------------+
26317  M01S15551.cpum191 ---|*                A - 6, 7.
Line S00001 Modification History
M01 (Added by) cpum191
Seq #  *Modification Id* Act 
----------------------------+
26318  M01S00001.cpum191 +++|*                A - 3, 6, 7.
26319  M00S15552.cpumtr  +++|*
26320  M00S15553.cpumtr  +++|*         CALLS  /MONITOR/RB3.
26321  M00S15554.cpumtr  +++|
26322  M00S15555.cpumtr  +++|
Line S15556 Modification History
M01 (Removed by) cpum191
Seq #  *Modification Id* Act 
----------------------------+
26323  M01S15556.cpum191 ---| CSM      MX3    -3          INITIALIZE
26324  M01S15557.cpum191 ---|          BX7    X7-X7
26325  M01S15558.cpum191 ---|          BX5    -X3*X1      REMAINDER
26326  M01S15559.cpum191 ---|          BX6    X6-X6
26327  M01S15560.cpum191 ---|          AX1    3           10B WORD BLOCK COUNT
26328  M01S15561.cpum191 ---|          ZR     X1,CSM4     IF .LT. 10B
26329  M01S15562.cpum191 ---|          SA6    X2          FWA
26330  M01S15563.cpum191 ---|          SX0    B1
26331  M01S15564.cpum191 ---|          SA7    A6+B1
26332  M01S15565.cpum191 ---|          IX1    X1-X0
26333  M01S15566.cpum191 ---|          EQ     CSM2        ENTER LOOP
26334  M01S15567.cpum191 ---|
26335  M01S15568.cpum191 ---| CSM1     SA6    A7+B1       CLEAR STORAGE
Line S00002 Modification History
M01 (Added by) cpum191
Seq #  *Modification Id* Act 
----------------------------+
26336  M01S00002.cpum191 +++| CSM      SA3    X2-1        GET FWA - 1
26337  M01S00003.cpum191 +++|          BX7    X3
26338  M01S00004.cpum191 +++|          SX0    B1
26339  M01S00005.cpum191 +++|          SA7    A3          INITIALIZE A7
26340  M01S00006.cpum191 +++|          MX3    -3
26341  M01S00007.cpum191 +++|          BX5    -X3*X1      EXTRACT REMAINDER
26342  M01S00008.cpum191 +++|          SX6    B0
26343  M01S00009.cpum191 +++|          AX1    3           SET BLOCK COUNT
26344  M01S00010.cpum191 +++|          BX7    X7-X7
26345  M01S00011.cpum191 +++|          ZR     X1,CSM3     IF .LT. 8 WORDS TO CLEAR
26346  M01S00012.cpum191 +++|
26347  M01S00013.cpum191 +++|*         CLEAR 8 WORD BLOCKS.
26348  M01S00014.cpum191 +++|
26349  M01S00015.cpum191 +++| CSM1     SA6    A7+B1
26350  M00S15569.cpumtr  +++|          IX1    X1-X0       DECREMENT BLOCK COUNT
26351  M00S15570.cpumtr  +++|          SA7    A6+1
26352  M00S15571.cpumtr  +++| CSM2     SA6    A7+B1
26353  M00S15572.cpumtr  +++|          SA7    A6+B1
26354  M00S15573.cpumtr  +++|          SA6    A7+B1
26355  M00S15574.cpumtr  +++|          SA7    A6+B1
26356  M00S15575.cpumtr  +++|          SA6    A7+B1
26357  M00S15576.cpumtr  +++|          SA7    A6+B1
26358  M00S15577.cpumtr  +++|          NZ     X1,CSM1     IF NOT COMPLETE
26359  M00S15578.cpumtr  +++| CSM3     ZR     X5,/MONITOR/RB3  IF COMPLETE
26360  M00S15579.cpumtr  +++|          IX5    X5-X0
26361  M00S15580.cpumtr  +++|          SA7    A7+B1       CLEAR REMAINDER
26362  M00S15581.cpumtr  +++|          NZ     X5,CSM3     IF NOT COMPLETE
26363  M00S15582.cpumtr  +++|          JP     B3          RETURN
Line S15583 Modification History
M01 (Removed by) cpum191
Seq #  *Modification Id* Act 
----------------------------+
26364  M01S15583.cpum191 ---|
26365  M01S15584.cpum191 ---| CSM4     ZR     X5,/MONITOR/RB3  IF COMPLETE
26366  M01S15585.cpum191 ---|          IX5    X5-X0
26367  M01S15586.cpum191 ---|          SA7    X2          FWA
26368  M01S15587.cpum191 ---|          EQ     CSM3        CLEAR REMAINDER
26369  M00S15588.cpumtr  +++| PLF      SPACE  4,10
26370  M00S15589.cpumtr  +++|**        PLF - PROCESS LOCAL FNT.
26371  M00S15590.cpumtr  +++|
26372  M00S15591.cpumtr  +++|
26373  M00S15592.cpumtr  +++| PLF      SA3    B7+FLSW     GET RA AND NFL SIZE
26374  M00S15593.cpumtr  +++|          MX0    -12
26375  M00S15594.cpumtr  +++|          AX3    12
26376  M00S15595.cpumtr  +++|          BX4    -X0*X3
26377  M00S15596.cpumtr  +++|          AX3    36
26378  M00S15597.cpumtr  +++|          ZR     X3,HNG      IF NO NFL
26379  M00S15598.cpumtr  +++|          LX4    6
26380  M00S15599.cpumtr  +++|          BX6    X6-X6
26381  M00S15600.cpumtr  +++|          LX3    6           NFL
26382  M00S15601.cpumtr  +++|          SB5    X4          RA
26383  M00S15602.cpumtr  +++|          SA1    B5-FNTN+LENF  GET FIRST FNT ENTRY
26384  M00S15603.cpumtr  +++|          BX1    -X0*X5      EXTRACT NFL ADDRESS
26385  M00S15604.cpumtr  +++|          LX5    24
26386  M00S15605.cpumtr  +++|          MX0    -3
26387  M00S15606.cpumtr  +++|          BX2    -X0*X5      EXTRACT SUBFUNCTION
26388  M00S15607.cpumtr  +++|          MX0    -18
26389  M00S15608.cpumtr  +++|          LX5    59-41-24
26390  M00S15609.cpumtr  +++|          SB6    X2-TPLFL-1
26391  M00S15610.cpumtr  +++|          PL     B6,HNG      IF ILLEGAL SUBFUNCTION
26392  M00S15611.cpumtr  +++|          JP     TPLF+TPLFL+1+B6  JUMP TO PROCESSOR
26393  M00S15612.cpumtr  +++|
26394  M00S15613.cpumtr  +++|*         EXIT TO FUNCTION PROCESSOR WITH -
26395  M00S15614.cpumtr  +++|*
26396  M00S15615.cpumtr  +++|*         (X0) = 42/-0,18/0.
26397  M00S15616.cpumtr  +++|*         (X1) = NFL ADDRESS/PARAMETER.
26398  M00S15617.cpumtr  +++|*         (X3) = NFL SIZE.
26399  M00S15618.cpumtr  +++|*         (X5) = REQUEST WORD LEFT-SHIFTED 59-35.
26400  M00S15619.cpumtr  +++|*         (A1) = ADDRESS OF FIRST FNT ENTRY.
26401  M00S15620.cpumtr  +++|*         (B5) = RA.
26402  M00S15621.cpumtr  +++|
26403  M00S15622.cpumtr  +++| TPLF     BSS    0
26404  M00S15623.cpumtr  +++|          LOC    0
26405  M00S15624.cpumtr  +++|
26406  M00S15625.cpumtr  +++|+         IX4    X3-X1       (DLFS) - DELETE ENTRY
26407  M00S15626.cpumtr  +++|          EQ     PLF14
26408  M00S15627.cpumtr  +++|
Line S15628 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26409  M01S15628.242l642 ---|+         SX7    B1          (DLCS) - DELETE ENTRY, RETURN FILE COUNT
Line S00578 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26410  M01S00578.242l642 +++|+         SX7    B1          (DLCS) - RETURN FILE COUNT
26411  M00S15629.cpumtr  +++|          IX4    X3-X1
26412  M00S15630.cpumtr  +++|          EQ     PLF14
26413  M00S15631.cpumtr  +++|
26414  M00S15632.cpumtr  +++|*         EQ     PLF1        (CRFS) - CREATE LOCAL FNT ENTRY
26415  M00S15633.cpumtr  +++|
26416  M00S15634.cpumtr  +++| TPLFL    BSS    0
26417  M00S15635.cpumtr  +++|          LOC    *O
26418  M00S15636.cpumtr  +++|
26419  M00S15637.cpumtr  +++|*         SET UP FOR FNT SEARCH.
26420  M00S15638.cpumtr  +++|
26421  M00S15639.cpumtr  +++| PLF1     SA4    A5+B1       FILE NAME
26422  M00S15640.cpumtr  +++|          BX6    X6-X6
26423  M00S15641.cpumtr  +++|          SX2    X3-FNTN     COMPUTE ADDRESS OF LAST FNT ENTRY
26424  M00S15642.cpumtr  +++|          SX3    LENF
26425  M00S15643.cpumtr  +++|          PX2    X2
26426  M00S15644.cpumtr  +++|          PX3    X3
26427  M00S15645.cpumtr  +++|          NX3    X3
26428  M00S15646.cpumtr  +++|          FX1    X2/X3
26429  M00S15647.cpumtr  +++|          BX7    X0*X4
26430  M00S15648.cpumtr  +++|          UX1    B6,X1
26431  M00S15649.cpumtr  +++|          SA2    A1-LENF
26432  M00S15650.cpumtr  +++|          SX3    LENF
26433  M00S15651.cpumtr  +++|          LX1    X1,B6
26434  M00S15652.cpumtr  +++|          IX3    X1*X3
26435  M00S15653.cpumtr  +++|          SB6    X3+FNTN
26436  M00S15654.cpumtr  +++|          SB3    LENF*2      SEARCH INCREMENT
26437  M00S15655.cpumtr  +++|          SB6    B5-B6       ADDRESS OF LAST ENTRY
26438  M00S15656.cpumtr  +++|          SA7    B6
26439  M00S15657.cpumtr  +++|          SB4    B5-FNTN     ALLOW USE OF SPECIAL FILE RESERVED ENTRY
26440  M00S15658.cpumtr  +++|          NG     X5,PLF4     IF SPECIAL FILE
26441  M00S15659.cpumtr  +++|          SB4    B4-SRFE*LENF  PREVENT USE OF RESERVED ENTRIES
26442  M00S15660.cpumtr  +++|
26443  M00S15661.cpumtr  +++|*         SEARCH FOR MATCH OR EMPTY ENTRY.
26444  M00S15662.cpumtr  +++|*
26445  M00S15663.cpumtr  +++|*         NOTE - THE SEARCH METHOD USED THROUGHOUT THIS PROCESSOR
26446  M00S15664.cpumtr  +++|*                IS TO STORE THE TARGET ENTRY AT THE END OF THE
26447  M00S15665.cpumtr  +++|*                TABLE, THUS GUARANTEEING A MATCH.  ONCE IT IS
26448  M00S15666.cpumtr  +++|*                FOUND, THE LAST ENTRY IS CLEARED, AND THE ADDRESS
26449  M00S15667.cpumtr  +++|*                RETURNED IS CHECKED AGAINST THE LAST ENTRY.  IF
26450  M00S15668.cpumtr  +++|*                THEY MATCH, THE SEARCH IS DEEMED UNSUCCESSFUL.
26451  M00S15669.cpumtr  +++|
26452  M00S15670.cpumtr  +++| PLF4     SA1    A1-B3
26453  M00S15671.cpumtr  +++|          SA2    A2-B3
26454  M00S15672.cpumtr  +++|          BX3    X4-X1
26455  M00S15673.cpumtr  +++|          BX7    X4-X2
26456  M00S15674.cpumtr  +++|          BX3    X0*X3
26457  M00S15675.cpumtr  +++|          BX7    X0*X7
26458  M00S15676.cpumtr  +++|          ZR     X3,PLF7     IF FOUND
26459  M00S15677.cpumtr  +++|          ZR     X7,PLF6     IF FOUND
26460  M00S15678.cpumtr  +++|          ZR     X1,PLF8     IF EMPTY
26461  M00S15679.cpumtr  +++| PLF4.1   NZ     X2,PLF4     IF NOT EMPTY
26462  M00S15680.cpumtr  +++|          SX7    A2-B4
26463  M00S15681.cpumtr  +++|          PL     X7,PLF4     IF USE OF RESERVED ENTRY NOT ALLOWED
26464  M00S15682.cpumtr  +++|          SX6    A2
26465  M00S15683.cpumtr  +++|          BX6    -X0*X6
26466  M00S15684.cpumtr  +++|
26467  M00S15685.cpumtr  +++|*         EMPTY ENTRY FOUND, SEARCH FOR MATCH.
26468  M00S15686.cpumtr  +++|
26469  M00S15687.cpumtr  +++| PLF5     SA1    A1-B3
26470  M00S15688.cpumtr  +++|          SA2    A2-B3
26471  M00S15689.cpumtr  +++|          BX3    X4-X1
26472  M00S15690.cpumtr  +++|          BX7    X4-X2
26473  M00S15691.cpumtr  +++|          BX3    X3*X0
26474  M00S15692.cpumtr  +++|          BX7    X7*X0
26475  M00S15693.cpumtr  +++|          ZR     X3,PLF7     IF FOUND
26476  M00S15694.cpumtr  +++|          NZ     X7,PLF5     IF NOT FOUND
26477  M00S15695.cpumtr  +++| PLF6     SA1    A2+
26478  M00S15696.cpumtr  +++| PLF7     BX7    X7-X7       CLEAR LAST ENTRY
26479  M00S15697.cpumtr  +++|          SX3    A1-B6
26480  M00S15698.cpumtr  +++|          SA7    B6+
26481  M00S15699.cpumtr  +++|          ZR     X3,PLF10    IF LAST ENTRY
26482  M00S15700.cpumtr  +++|          SB4    A1
26483  M00S15701.cpumtr  +++|          SX3    B5-B4       NFL ADDRESS
26484  M00S15702.cpumtr  +++|          LX3    36          BYTE 1 OF RESPONSE
26485  M00S15703.cpumtr  +++|          SX7    B1          STATUS = FILE ALREADY EXISTS
26486  M00S15704.cpumtr  +++|          BX7    X7+X3
26487  M00S15705.cpumtr  +++|          EQ     PPR1        EXIT
26488  M00S15706.cpumtr  +++|
26489  M00S15707.cpumtr  +++|*         EMPTY ENTRY FOUND.
26490  M00S15708.cpumtr  +++|
26491  M00S15709.cpumtr  +++| PLF8     SX7    A1-B4
26492  M00S15710.cpumtr  +++|          PL     X7,PLF4.1   IF USE OF RESERVED ENTRY NOT ALLOWED
26493  M00S15711.cpumtr  +++|          SX6    A1          SET ADDRESS OF FREE ENTRY
26494  M00S15712.cpumtr  +++|          BX6    -X0*X6
26495  M00S15713.cpumtr  +++|          EQ     PLF5        SEARCH FOR MATCH
26496  M00S15714.cpumtr  +++|
26497  M00S15715.cpumtr  +++|*         NO MATCH FOUND, CREATE ENTRY.
26498  M00S15716.cpumtr  +++|
26499  M00S15717.cpumtr  +++| PLF10    SA1    B5-LFCN     INCREMENT LOCAL FILE COUNT
26500  M00S15718.cpumtr  +++|          SX2    X1-MXLF+SRFE+2  CHECK MAXIMUM FILE COUNT
26501  M00S15719.cpumtr  +++|          ZR     X6,PLF11    IF NO FREE ENTRY FOUND
26502  M00S15720.cpumtr  +++|          SB4    X6
26503  M00S15721.cpumtr  +++|          SX3    B5-B4
26504  M00S15722.cpumtr  +++|          SX3    X3-FNTN-SRFE*LENF-LENF
26505  M00S15723.cpumtr  +++|          MX7    1
26506  M00S15724.cpumtr  +++|          BX7    -X3*X7
26507  M00S15725.cpumtr  +++|          LX7    1
26508  M00S15726.cpumtr  +++|          IX7    X1+X7       INCREMENT FILE COUNT IF NOT SPECIAL FILE
26509  M00S15727.cpumtr  +++|          SX2    X7-MXLF+SRFE+1
26510  M00S15728.cpumtr  +++|          PL     X2,PLF11    IF FILE LIMIT EXCEEDED (MAXIMUM NFL)
26511  M00S15729.cpumtr  +++|          SA7    A1
26512  M00S15730.cpumtr  +++|          BX4    X0*X4
26513  M00S15731.cpumtr  +++|          SX7    LOFT*100B   SET LOCAL FILE TYPE
26514  M00S15732.cpumtr  +++|          BX7    X7+X4
26515  M00S15733.cpumtr  +++|          SA7    X6
26516  M00S15734.cpumtr  +++|          SX7    4           SET FST - OPERATION COMPLETE, NOT BUSY
26517  M00S15735.cpumtr  +++|          SA7    A7+FSTL
26518  M00S15736.cpumtr  +++|          SX7    B5-B4       NFL ADDRESS OF FNT ENTRY
26519  M00S15737.cpumtr  +++|          LX7    36
26520  M00S15738.cpumtr  +++|          EQ     PPR1        EXIT WITH RESPONSE
26521  M00S15739.cpumtr  +++|
26522  M00S15740.cpumtr  +++| PLF11    SX7    B1+B1       STATUS = LOCAL FILE LIMIT
26523  M00S15741.cpumtr  +++|          PL     X2,PPR1     IF FILE LIMIT EXCEEDED (MAXIMUM NFL)
26524  M00S15742.cpumtr  +++|          LX7    1           STATUS = NEED MORE NFL
26525  M00S15743.cpumtr  +++|          EQ     PPR1        EXIT
26526  M00S15744.cpumtr  +++|
26527  M00S15745.cpumtr  +++|*         DELETE FNT ENTRY.
26528  M00S15746.cpumtr  +++|
26529  M00S15747.cpumtr  +++| PLF14    NG     X4,HNG      IF NFL ADDRESS OUT OF RANGE
26530  M00S15748.cpumtr  +++|          SB3    X1
26531  M00S15749.cpumtr  +++|          SA2    B5-B3       CLEAR FNT ENTRY
Line S00579 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26532  M01S00579.242l642 +++|          ZR     X2,HNG      IF EMPTY FNT SLOT
26533  M01S00580.242l642 +++|          MX5    12
26534  M00S15750.cpumtr  +++|          SA4    A2+B1       READ *FST* ENTRY (FOR *DLCS* FILE COUNT)
Line S15751 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26535  M01S15751.242l642 ---|          ZR     X2,HNG      IF EMPTY
Line S00581 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26536  M01S00581.242l642 +++|          NZ     X7,PLF17    IF COUNTING FILES
26537  M00S15752.cpumtr  +++|          ERRNZ  FSTL-1
26538  M00S15753.cpumtr  +++|          SA6    A2
26539  M00S15754.cpumtr  +++|          SA6    A2+B1
26540  M00S15755.cpumtr  +++|          SA6    A6+B1
26541  M00S15756.cpumtr  +++|          ERRNZ  LENF-3
Line S15757 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26542  M01S15757.242l642 ---|          SX1    X1-FNTN-SRFE*LENF-LENF
Line S00582 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26543  M01S00582.242l642 +++|          SX4    X1-FNTN-SRFE*LENF-LENF
26544  M00S15758.cpumtr  +++|          MX6    1
26545  M00S15759.cpumtr  +++|          SA2    B5-LFCN     DECREMENT FILE COUNT IF NOT SPECIAL FILE
Line S15760 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26546  M01S15760.242l642 ---|          BX6    -X1*X6
Line S00583 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26547  M01S00583.242l642 +++|          BX6    -X4*X6
26548  M00S15761.cpumtr  +++|          LX6    1
26549  M00S15762.cpumtr  +++|          IX6    X2-X6
26550  M00S15763.cpumtr  +++|          NG     X6,HNG      IF NEGATIVE FILE COUNT
26551  M00S15764.cpumtr  +++|          SA6    A2
26552  M00S15765.cpumtr  +++|          SA2    B7+EOCW     CHECK FOR EXECUTE-ONLY FILE
Line S15766 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26553  M01S15766.242l642 ---|          MX5    12
26554  M01S15767.242l642 ---|          BX6    X5*X2
26555  M01S15768.242l642 ---|          SX1    B3          CURRENT FNT ADDRESS
26556  M01S15769.242l642 ---|          LX6    12
26557  M01S15770.242l642 ---|          BX6    X6-X1
26558  M01S15771.242l642 ---|          NZ     X6,PLF17    IF NO MATCH ON EXECUTE-ONLY FNT
26559  M01S15772.242l642 ---|          BX6    -X5*X2      CLEAR FNT POINTER
26560  M01S15773.242l642 ---|          SA6    A2+
26561  M01S15774.242l642 ---|
26562  M01S15775.242l642 ---|*         COUNT FILES REMAINING ON SAME EQUIPMENT.
26563  M01S15776.242l642 ---|
26564  M01S15777.242l642 ---| PLF17    ZR     X7,PPR1     IF FILE COUNT NOT RETURNED (SF = DLFS)
26565  M01S15778.242l642 ---|          SX6    LENF
26566  M01S15779.242l642 ---|          SX2    X3-FNTN     COMPUTE ADDRESS OF LAST FNT ENTRY
26567  M01S15780.242l642 ---|          SB3    LENF*2      SEARCH INCREMENT
Line S00584 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26568  M01S00584.242l642 +++|          BX6    -X5*X2
26569  M01S00585.242l642 +++|          AX2    48          POSITION FNT ADDRESS
26570  M01S00586.242l642 +++|          BX1    X2-X1
26571  M01S00587.242l642 +++|          NZ     X1,PPR1     IF NOT DELETING EXECUTE-ONLY FNT
26572  M01S00588.242l642 +++|          SA6    A2
26573  M01S00589.242l642 +++|          EQ     PPR1        RETURN
26574  M01S00590.242l642 +++|
26575  M01S00591.242l642 +++|*         COUNT FILES ON EQUIPMENT SPECIFIED IN FST.
26576  M01S00592.242l642 +++|
26577  M01S00593.242l642 +++| PLF17    SX6    LENF
26578  M01S00594.242l642 +++|          SX2    X3-FNTN     COMPUTE ADDRESS OF LAST FNT SLOT
26579  M00S15781.cpumtr  +++|          PX3    X6
26580  M00S15782.cpumtr  +++|          PX2    X2
26581  M00S15783.cpumtr  +++|          NX3    X3
26582  M00S15784.cpumtr  +++|          FX1    X2/X3
Line S15785 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26583  M01S15785.242l642 ---|          BX7    X0*X4
Line S00595 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26584  M01S00595.242l642 +++|          SX5    B1
26585  M00S15786.cpumtr  +++|          UX1    B6,X1
26586  M00S15787.cpumtr  +++|          LX1    X1,B6
26587  M00S15788.cpumtr  +++|          IX3    X1*X6
26588  M00S15789.cpumtr  +++|          SA1    B5-FNTN+LENF+FSTL  FIRST FNT ENTRY
Line S15790 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26589  M01S15790.242l642 ---|          SB6    X3+FNTN
26590  M01S15791.242l642 ---|          SB4    B0          INITIALIZE FILE COUNT
26591  M01S15792.242l642 ---|          SB6    B5-B6       ADDRESS OF LAST ENTRY
26592  M01S15793.242l642 ---|          SA2    A1-LENF
26593  M01S15794.242l642 ---|          SA7    B6+FSTL
26594  M01S15795.242l642 ---|          SB6    B6+FSTL
26595  M01S15796.242l642 ---| PLF18    SA1    A1-B3
26596  M01S15797.242l642 ---|          SA2    A2-B3
26597  M01S15798.242l642 ---|          BX1    X4-X1
26598  M01S15799.242l642 ---|          BX2    X4-X2
26599  M01S15800.242l642 ---|          BX1    X5*X1
26600  M01S15801.242l642 ---|          BX2    X5*X2
26601  M01S15802.242l642 ---|          ZR     X1,PLF20    IF EQ MATCH
26602  M01S15803.242l642 ---| PLF19    NZ     X2,PLF18    IF NO EQ MATCH
26603  M01S15804.242l642 ---|          SX7    A2-B6
26604  M01S15805.242l642 ---|          ZR     X7,PLF21    IF LAST ENTRY
26605  M01S15806.242l642 ---|          SB4    B4+1
26606  M01S15807.242l642 ---|          EQ     PLF18       GET NEXT ENTRY
26607  M01S15808.242l642 ---|
26608  M01S15809.242l642 ---| PLF20    SX7    A1-B6
26609  M01S15810.242l642 ---|          ZR     X7,PLF21    IF LAST ENTRY
26610  M01S15811.242l642 ---|          SB4    B4+B1
26611  M01S15812.242l642 ---|          EQ     PLF19       CHECK NEXT ENTRY
26612  M01S15813.242l642 ---|
26613  M01S15814.242l642 ---|*         RETURN FILE COUNT (SF = DLCS).
26614  M01S15815.242l642 ---|
26615  M01S15816.242l642 ---| PLF21    SA7    B6          CLEAR LAST ENTRY
26616  M01S15817.242l642 ---|          SX7    B4+
26617  M01S15818.242l642 ---|          LX7    12
Line S00596 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
26618  M01S00596.242l642 +++|          SB6    X3+FNTN-FSTL
26619  M01S00597.242l642 +++|          BX6    X4          STORE SEARCH OBJECTIVE AT END OF NFL
26620  M01S00598.242l642 +++|          SB6    B5-B6
26621  M01S00599.242l642 +++|          MX7    59          INITIALIZE FILE COUNT
26622  M01S00600.242l642 +++|          SA6    B6
26623  M01S00601.242l642 +++| PLF18    SA1    A1-LENF     READ FST ENTRY
26624  M01S00602.242l642 +++|          BX2    X4-X1
26625  M01S00603.242l642 +++|          AX2    48
26626  M01S00604.242l642 +++|          NZ     X2,PLF18    IF NOT MATCHING EST ORDINAL
26627  M01S00605.242l642 +++|          SX6    A1-B6
26628  M01S00606.242l642 +++|          IX7    X7+X5       INCREMENT FILE COUNT
26629  M01S00607.242l642 +++|          NZ     X6,PLF18    IF NOT END OF NFL
26630  M01S00608.242l642 +++|          LX7    12
26631  M01S00609.242l642 +++|          SA6    B6          CLEAR SEARCH OBJECTIVE
26632  M00S15819.cpumtr  +++|          EQ     PPR1        EXIT
26633  M00S15820.cpumtr  +++|
26634  M00S15821.cpumtr  +++|          ENDBLK
26635  M00S15822.cpumtr  +++|          BLOCK  CMUMTR,(1 CPU MONITOR MODE CMU MOVE.),MONITOR
26636  M00S15823.cpumtr  +++| MSM      SPACE  4
26637  M00S15824.cpumtr  +++|**        MSM - MONITOR MODE CMU MOVE.
26638  M00S15825.cpumtr  +++|*
26639  M00S15826.cpumtr  +++|*         ENTRY  (X0) = ADDRESS TO MOVE FROM.
26640  M00S15827.cpumtr  +++|*                (B4) = WORD COUNT OF MOVE.
26641  M00S15828.cpumtr  +++|*                (X1) = (X0) - ADDRESS TO MOVE TO.
26642  M00S15829.cpumtr  +++|*                (B6) = EXIT ADDRESS.
26643  M00S15830.cpumtr  +++|*
26644  M00S15831.cpumtr  +++|*         USES   X - 0, 1, 4, 6, 7. (*MSM* AND *MSR* REGISTER USAGE)
Line S15832 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
26645  M01S15832.271l716 ---|*                B - 4.
Line S01473 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
26646  M01S01473.271l716 +++|*                B - 4, 5.
26647  M00S15833.cpumtr  +++|*                A - 1, 4, 6, 7.
26648  M00S15834.cpumtr  +++|
26649  M00S15835.cpumtr  +++|
26650  M00S15836.cpumtr  +++| MSM      SB5    X1          MOVE DIFFERENCE
26651  M00S15837.cpumtr  +++|          SA1    X0          FWA TO MOVE FROM
26652  M00S15838.cpumtr  +++|          SX1    B4          SET CHARACTER COUNT OF BLOCK
26653  M00S15839.cpumtr  +++|          SX0    B4+B4
26654  M00S15840.cpumtr  +++|          LX1    3
26655  M00S15841.cpumtr  +++|          MX6    -4
26656  M00S15842.cpumtr  +++|          IX1    X1+X0
26657  M00S15843.cpumtr  +++|          BX0    -X6*X1      LL
26658  M00S15844.cpumtr  +++|          BX1    X6*X1       LU
26659  M00S15845.cpumtr  +++|          LX0    30-4
26660  M00S15846.cpumtr  +++|          SX6    A1
26661  M00S15847.cpumtr  +++|          LX1    48-4
26662  M00S15848.cpumtr  +++|          BX1    X1+X0
26663  M00S15849.cpumtr  +++|          MX7    -18
26664  M00S15850.cpumtr  +++|          SX0    A1-B5       SET ADDRESS OF MOVE
26665  M00S15851.cpumtr  +++|          BX6    -X7*X6
26666  M00S15852.cpumtr  +++|          BX0    -X7*X0
26667  M00S15853.cpumtr  +++|          LX6    30
26668  M00S15854.cpumtr  +++|          BX0    X1+X0       MERGE CHARACTER COUNT
26669  M00S15855.cpumtr  +++|          BX6    X0+X6
26670  M00S15856.cpumtr  +++|          SA6    MSMA        STORE DESRCIPTOR WORD
26671  M00S15857.cpumtr  +++|          IM     MSMA
26672  M00S15858.cpumtr  +++|          JP     B6          RETURN
26673  M00S15859.cpumtr  +++|
26674  M00S15860.cpumtr  +++| MSMA     CON    0           INDIRECT MOVE DESCRIPTOR WORD
26675  M00S15861.cpumtr  +++|
26676  M00S15862.cpumtr  +++|          ENDBLK
26677  M00S15863.cpumtr  +++|          BLOCK  0CMUMTR,(REGISTER MOVE.),MONITOR
26678  M00S15864.cpumtr  +++| MSM      SPACE  4
26679  M00S15865.cpumtr  +++|**        MSR - MONITOR MODE MOVE STORAGE WITH REGISTERS.
26680  M00S15866.cpumtr  +++|*
26681  M00S15867.cpumtr  +++|*         ENTRY  (X0) = ADDRESS TO MOVE FROM.
26682  M00S15868.cpumtr  +++|*                (B4) = WORD COUNT OF MOVE.
26683  M00S15869.cpumtr  +++|*                (X1) = (X0) - ADDRESS TO MOVE TO.
26684  M00S15870.cpumtr  +++|*                (B6) = EXIT ADDRESS.
26685  M00S15871.cpumtr  +++|*
26686  M00S15872.cpumtr  +++|*         USES   X - 0, 1, 4, 6, 7. (*MSM* AND *MSR* REGISTER USAGE)
Line S15873 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
26687  M01S15873.271l716 ---|*                B - 4.
Line S01474 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
26688  M01S01474.271l716 +++|*                B - 4, 5.
26689  M00S15874.cpumtr  +++|*                A - 1, 4, 6, 7.
26690  M00S15875.cpumtr  +++|
26691  M00S15876.cpumtr  +++|
26692  M00S15877.cpumtr  +++| MSR      SB5    X1+         MOVE DIFFERENCE
26693  M00S15878.cpumtr  +++|          SA1    X0+         FWA TO MOVE FROM
26694  M00S15879.cpumtr  +++|          SB4    B4-10B
26695  M00S15880.cpumtr  +++|          NG     B4,MSR2     IF LESS THAN 10B WORDS TO MOVE
26696  M00S15881.cpumtr  +++|
26697  M00S15882.cpumtr  +++|*         REGISTER MOVE LOOP.
26698  M00S15883.cpumtr  +++|
26699  M00S15884.cpumtr  +++| MSR1     BX6    X1
26700  M00S15885.cpumtr  +++|          SB4    B4-10B      DECREMENT WORD COUNT
26701  M00S15886.cpumtr  +++|          SA4    A1+B1
26702  M00S15887.cpumtr  +++|          SA6    A1-B5
26703  M00S15888.cpumtr  +++|          LX7    X4
26704  M00S15889.cpumtr  +++|          SA1    A4+B1
26705  M00S15890.cpumtr  +++|          SA7    A4-B5
26706  M00S15891.cpumtr  +++|          BX6    X1
26707  M00S15892.cpumtr  +++|          SA4    A1+B1
26708  M00S15893.cpumtr  +++|          SA6    A1-B5
26709  M00S15894.cpumtr  +++|          LX7    X4
26710  M00S15895.cpumtr  +++|          SA1    A4+B1
26711  M00S15896.cpumtr  +++|          SA7    A4-B5
26712  M00S15897.cpumtr  +++|          BX6    X1
26713  M00S15898.cpumtr  +++|          SA4    A1+B1
26714  M00S15899.cpumtr  +++|          SA6    A1-B5
26715  M00S15900.cpumtr  +++|          LX7    X4
26716  M00S15901.cpumtr  +++|          SA1    A4+B1
26717  M00S15902.cpumtr  +++|          SA7    A4-B5
26718  M00S15903.cpumtr  +++|          BX6    X1
26719  M00S15904.cpumtr  +++|          SA4    A1+B1
26720  M00S15905.cpumtr  +++|          SA6    A1-B5
26721  M00S15906.cpumtr  +++|          LX7    X4
26722  M00S15907.cpumtr  +++|          SA1    A4+B1
26723  M00S15908.cpumtr  +++|          SA7    A4-B5
26724  M00S15909.cpumtr  +++|          PL     B4,MSR1     IF MORE 10 WORD BLOCKS TO MOVE
26725  M00S15910.cpumtr  +++| MSR2     SB4    B4+10B
26726  M00S15911.cpumtr  +++|          EQ     MSR4
26727  M00S15912.cpumtr  +++|
26728  M00S15913.cpumtr  +++| MSR3     SB4    B4-B1
26729  M00S15914.cpumtr  +++|          BX6    X1
26730  M00S15915.cpumtr  +++|          SA6    A1-B5
26731  M00S15916.cpumtr  +++|          SA1    A1+B1
26732  M00S15917.cpumtr  +++| MSR4     GT     B4,B0,MSR3  IF MORE WORDS TO MOVE
26733  M00S15918.cpumtr  +++|          JP     B6          RETURN
26734  M00S15919.cpumtr  +++|
26735  M00S15920.cpumtr  +++|          ENDBLK
Line S00477 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26736  M01S00477.251l664 +++|          BLOCK  CPP,(CONCURRENT PP REQUEST CODE.)
26737  M01S00478.251l664 +++| CPR      SPACE  4,10
26738  M01S00479.251l664 +++|**        CPR - *CPRM* FUNCTION PROCESSOR.
26739  M01S00480.251l664 +++|*
26740  M01S00481.251l664 +++|*         ENTRY  (X1) = CALLING PARAMETERS.
Line S00014 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26741  M02S00014.273l780 ---|*                (X4) = 7600B.
Line S00015 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26742  M01S00015.ns2447  +++|*                (X7) = 0.
Line S00482 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26743  M01S00482.251l664 +++|*
26744  M01S00483.251l664 +++|*         EXIT   (X7) = REASON CODE AND STATUS.
26745  M01S00484.251l664 +++|
Line S00485 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26746  M02S00485.ns2447  ---| CPR      LX1    -12         PRESERVE BARREL PARAMETER
26747  M02S00486.ns2447  ---|          AX1    36-12
26748  M02S00487.ns2447  ---|          SB4    X1-1        GET SUBFUNCTION
26749  M02S00488.ns2447  ---|          AX1    60-36
26750  M02S00489.ns2447  ---|          SX6    X1          GET BARREL PARAMETER
26751  M02S00490.ns2447  ---|          SX7    5           SET ERROR CODE
Line S00016 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26752  M02S00016.273l780 ---| CPR      AX1    36          GET SUBFUNCTION
Line S00736 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26753  M01S00736.273l780 +++|
26754  M01S00737.273l780 +++| CPR      BSS    0           ENTRY
26755  M01S00738.273l780 +++|          AX1    36          GET SUBFUNCTION
Line S00491 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26756  M01S00491.251l664 +++|          SB5    /MONITOR/PPRX  ERROR EXIT ADDRESS
Line S00492 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26757  M02S00492.ns2447  ---|          GT     B4,B1,/MONITOR/HNG1  IF INCORRECT SUBFUNCTION
26758  M02S00493.ns2447  ---|          EQ     B4,B1,CPR9  IF RETURN CPP (SUBFUNCTION 2)
26759  M02S00494.ns2447  ---|          SB6    X1-2        DETERMINE IF REQUEST IS FOR A LEGAL BARREL
26760  M02S00495.ns2447  ---|          NG     B6,CPR3     IF INCORRECT BARREL PARAMETER
Line S00017 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26761  M01S00017.ns2447  +++|          MX6    -12
26762  M01S00018.ns2447  +++|          SB4    X1
26763  M01S00019.ns2447  +++|          SA1    CPPL
26764  M01S00020.ns2447  +++|          BX6    -X6*X5      GET PARAMETER
26765  M01S00021.ns2447  +++|          GT     B4,B1,CPR8  IF NOT ASSIGN OPERATION
26766  M01S00022.ns2447  +++|          SB6    X6-2        DETERMINE IF REQUEST IS FOR A LEGAL BARREL
26767  M01S00023.ns2447  +++|          SX7    5           RC = *INCORRECT CIO BARREL NUMBER*
26768  M01S00024.ns2447  +++|          NG     B6,CPR2     IF INCORRECT BARREL PARAMETER
26769  M01S00025.ns2447  +++|          GT     B6,B1,CPR2  IF INCORRECT BARREL PARAMETER
26770  M01S00026.ns2447  +++|          SB3    5           SET CPP-S PER BARREL
Line S00027 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26771  M02S00027.273l780 ---|          SB5    B1-B4       SET *WPR* INCREMENT FLAG
Line S00496 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26772  M01S00496.251l664 +++|          ZR     B6,CPR1     IF BARREL ZERO REQUESTED
Line S00497 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26773  M02S00497.ns2447  ---|          GT     B6,B1,CPR3  IF INCORRECT BARREL PARAMETER
26774  M02S00498.ns2447  ---|          SA1    CPPL        CHECK IF BARREL 1 EXISTS
Line S00499 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26775  M01S00499.251l664 +++|          SX2    X1
26776  M01S00500.251l664 +++|          AX2    12
26777  M01S00501.251l664 +++|          SX2    X2-6
Line S00502 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26778  M02S00502.ns2447  ---|          NG     X2,CPR3     IF BARREL 1 NOT PRESENT
Line S00028 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26779  M01S00028.ns2447  +++|          NG     X2,CPR2     IF BARREL 1 NOT PRESENT
Line S00503 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26780  M01S00503.251l664 +++|          SB6    50B         SET TO SCAN BARREL 1
26781  M01S00504.251l664 +++|
26782  M01S00505.251l664 +++|*         SUBFUNCTION 0 (ASSIGN CPP).
26783  M01S00506.251l664 +++|
Line S00507 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26784  M02S00507.ns2447  ---| CPR1     SB3    5           PP BARREL COUNT
26785  M02S00508.ns2447  ---| CPR2     TA3    B6,FPC
26786  M02S00509.ns2447  ---|          ZR     X3,CPR4     IF FREE CPP FOUND
Line S00029 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26787  M01S00029.ns2447  +++| CPR1     TA3    B6,FPC
26788  M01S00030.ns2447  +++|          ZR     X3,CPR3     IF FREE CPP FOUND
Line S00510 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26789  M01S00510.251l664 +++|          SB3    B3-1
26790  M01S00511.251l664 +++|          SB6    B6+10B
Line S00512 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26791  M02S00512.ns2447  ---|          NZ     B3,CPR2     IF MORE CPP-S TO CHECK
26792  M02S00513.ns2447  ---|          SX7    3           SET ST=0 RC=3 FOR RETURN STATUS
26793  M02S00514.ns2447  ---| CPR3     LX7    24-0        POSITION ERROR CODES
Line S00031 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26794  M01S00031.ns2447  +++|          NZ     B3,CPR1     IF MORE CPP-S TO CHECK
26795  M01S00032.ns2447  +++|          SX7    3           RC = *CPP NOT AVAILABLE*
26796  M01S00033.ns2447  +++| CPR2     LX7    24-0        POSITION ERROR CODES
Line S00515 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26797  M01S00515.251l664 +++|          EQ     /MONITOR/MTRC  STORE OUTPUT REGISTER AND EXIT MONITOR
26798  M01S00516.251l664 +++|
Line S00517 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26799  M02S00517.ns2447  ---| CPR4     ZR     B4,CPR6     IF ASSIGN AND LOAD CPP (SUBFUNCTION 1)
Line S00034 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26800  M01S00034.ns2447  +++| CPR3     EQ     B4,B1,CPR5  IF ASSIGN AND LOAD CPP (SUBFUNCTION 1)
Line S00518 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26801  M01S00518.251l664 +++|          SA2    CPRA        CHECK IF CALL FOR NOS/VE PP
26802  M01S00519.251l664 +++|          SA4    A5+B1
26803  M01S00520.251l664 +++|          BX2    X2-X4
26804  M01S00521.251l664 +++|          MX0    18
26805  M01S00522.251l664 +++|          BX2    X0*X2
26806  M01S00523.251l664 +++|          SB3    B7+
Line S00524 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26807  M02S00524.ns2447  ---|          SB4    CPR5        RETURN ADDRESS
Line S00035 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26808  M01S00035.ns2447  +++|          SB4    CPR4        RETURN ADDRESS
Line S00525 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26809  M01S00525.251l664 +++|          NZ     X2,WPR      IF CALL NOT FOR NOS/VE PP
26810  M01S00526.251l664 +++|          TB3    SCA         SYSTEM CONTROL POINT NUMBER
26811  M01S00527.251l664 +++|          EQ     WPR         WRITE PARAMETER WORDS
26812  M01S00528.251l664 +++|
Line S00529 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26813  M02S00529.ns2447  ---| CPR5     SX7    A3
Line S00036 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26814  M01S00036.ns2447  +++| CPR4     SX7    A3
Line S00530 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26815  M01S00530.251l664 +++|          LX7    36-0        SET ST=INPUT REGISTER AND RC=0
26816  M01S00531.251l664 +++|          EQ     /MONITOR/MTRC  STORE (OR) AND EXIT MONITOR MODE
26817  M01S00532.251l664 +++|
26818  M01S00533.251l664 +++|*         ASSIGN AND LOAD CPP (SUBFUNCTION 1).
26819  M01S00534.251l664 +++|
Line S00535 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26820  M02S00535.ns2447  ---| CPR6     SB3    B7          CONTROL POINT ADDRESS
26821  M02S00536.ns2447  ---|          SB4    CPR7        RETURN ADDRESS
Line S00037 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26822  M01S00037.ns2447  +++| CPR5     SB3    B7          CONTROL POINT ADDRESS
26823  M01S00038.ns2447  +++|          SB4    CPR6        RETURN ADDRESS
Line S00537 Modification History
M01 (Added by) 251l664
M02 (Removed by) cpum150
Seq #  *Modification Id* Act 
----------------------------+
26824  M02S00537.cpum150 ---|          SX2    B1          CALL NOT FROM A SYSTEM CONTROL POINT
Line S00538 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26825  M01S00538.251l664 +++|          TB7    SCA         SET CONTROL POINT FOR *1MA* CALL
26826  M01S00539.251l664 +++|          EQ     WPR         WRITE PARAMETER WORDS
26827  M01S00540.251l664 +++|
Line S00541 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26828  M02S00541.ns2447  ---| CPR7     SA1    A5+B1
Line S00039 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26829  M01S00039.ns2447  +++| CPR6     SA1    A5+B1
Line S00542 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26830  M01S00542.251l664 +++|          BX6    X1
Line S00543 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26831  M02S00543.ns2447  ---|          SB6    CPR8+400000B  RETURN ADDRESS AND CPP FLAG
Line S00040 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26832  M01S00040.ns2447  +++|          SB6    CPR7+400000B  RETURN ADDRESS AND CPP FLAG
Line S00544 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26833  M01S00544.251l664 +++|          EQ     /MONITOR/SPL  SEARCH PERIPHERAL LIBRARY
26834  M01S00545.251l664 +++|
Line S00546 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26835  M02S00546.ns2447  ---| CPR8     SB4    CPR3
26836  M02S00547.ns2447  ---|          BX6    X7
26837  M02S00548.ns2447  ---|          SX2    B1          SET UPPER BYTE FOR *1MA* CALL
26838  M02S00549.ns2447  ---|          SX7    7
26839  M02S00550.ns2447  ---|          NG     X1,CPC      IF LIBRARY LOCKED
26840  M02S00551.ns2447  ---|          SX7    10B
26841  M02S00552.ns2447  ---|          NZ     X5,CPC      IF PP PROGRAM NOT FOUND
Line S00041 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26842  M01S00041.ns2447  +++| CPR7     BX6    X7
26843  M01S00042.ns2447  +++|          SX2    B1
26844  M01S00043.ns2447  +++|          SX7    7           RC = *LIBRARY LOCKED*
26845  M01S00044.ns2447  +++|          NG     X1,CPR9     IF LIBRARY LOCKED
Line S00553 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26846  M01S00553.251l664 +++|          LX2    48
Line S00045 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26847  M01S00045.ns2447  +++|          SX7    X7+B1       RC = *PROGRAM NOT FOUND*
26848  M01S00046.ns2447  +++|          NZ     X5,CPR9     IF PP PROGRAM NOT FOUND
Line S00047 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26849  M02S00047.273l780 ---|          SA1    B3+STSW     INHIBIT ROLLOUT AND ADVANCE
Line S00554 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26850  M01S00554.251l664 +++|          BX7    X6+X2
Line S00555 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26851  M02S00555.ns2447  ---|          SA7    A3+B1
Line S00048 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26852  M02S00048.273l780 ---|          SX2    1S8+1S4
Line S00049 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26853  M01S00049.ns2447  +++|          SA7    A3+B1       SET CPP OUTPUT REGISTER
Line S00050 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26854  M02S00050.273l780 ---|          IX7    X1+X2
26855  M02S00051.273l780 ---|          SA7    A1
Line S00556 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26856  M01S00556.251l664 +++|          SX7    A3          SET ST = CPP INPUT REGISTER, RC = 0
26857  M01S00557.251l664 +++|          LX7    36-0
26858  M01S00558.251l664 +++|          SA7    A5
26859  M01S00559.251l664 +++|          SA1    CPRB        SET UP *1MA* CALL
26860  M01S00560.251l664 +++|          SX0    A3          *IR* OF CPP
Line S00561 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26861  M02S00561.ns2447  ---|          SX2    A5+         *OR* OF CALLING PP
Line S00052 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26862  M01S00052.ns2447  +++|          SX2    A5          *OR* OF CALLING PP
Line S00562 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26863  M01S00562.251l664 +++|          LX2    12-0
26864  M01S00563.251l664 +++|          BX2    X0+X2
26865  M01S00564.251l664 +++|          BX6    X1+X2       PP CALL FORMAT
26866  M01S00565.251l664 +++|          SB4    /MONITOR/LA1MA  SET INDEX INTO *TAPQ* TABLE
26867  M01S00566.251l664 +++|          SB3    /MONITOR/MTRX  EXIT ADDRESS
26868  M01S00567.251l664 +++|          EQ     /MONITOR/APQ  ASSIGN PP
26869  M01S00568.251l664 +++|
26870  M01S00569.251l664 +++|*         SUBFUNCTION 2 (RETURN CPP).
26871  M01S00570.251l664 +++|
Line S00571 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26872  M02S00571.ns2447  ---| CPR9     SA1    CPPL        VALIDATE THAT CPP-S EXIT
26873  M02S00572.ns2447  ---|          SX0    X1
Line S00053 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26874  M02S00053.273l780 ---| CPR8     SB4    B4-3        CHECK SUBFUNCTION
26875  M02S00054.273l780 ---|          ZR     B4,CPR10    IF ADD CPP (SUBFUNCTION 3)
Line S00739 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26876  M01S00739.273l780 +++| CPR8     SB4    B4-2        CHECK SUBFUNCTION
Line S00055 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26877  M01S00055.ns2447  +++|          GT     B4,B0,/MONITOR/HNG1  IF INCORRECT SUBFUNCTION
26878  M01S00056.ns2447  +++|          SX0    X1          VALIDATE THAT CPP EXISTS
Line S00573 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26879  M01S00573.251l664 +++|          AX0    12
Line S00574 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26880  M02S00574.ns2447  ---|          SX7    4           SET ERROR CODE
Line S00057 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26881  M01S00057.ns2447  +++|          SX7    4           RC = *INCORRECT CPP NUMBER*
Line S00575 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26882  M01S00575.251l664 +++|          IX1    X0-X6
26883  M01S00576.251l664 +++|          LX6    3           MULTIPLY BY 10B
Line S00577 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26884  M02S00577.ns2447  ---|          NG     X1,CPR3     IF CPP DOES NOT EXIST
Line S00058 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26885  M01S00058.ns2447  +++|          NG     X1,CPR2     IF CPP DOES NOT EXIST
Line S00578 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26886  M01S00578.251l664 +++|          TA3    X6,FPC
26887  M01S00579.251l664 +++|          MX0    18
26888  M01S00580.251l664 +++|          BX3    X0*X3
26889  M01S00581.251l664 +++|          SA1    CPRA
Line S00582 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26890  M02S00582.ns2447  ---|          SB4    CPR3
26891  M02S00583.ns2447  ---|          SX7    10001B      SET ERROR CODE
Line S00059 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26892  M01S00059.ns2447  +++|          TB3    SCA         SYSTEM CONTROL POINT NUMBER
26893  M01S00060.ns2447  +++|          SX7    10001B      RC = *CPP NOT ASSIGNED*
Line S00584 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26894  M01S00584.251l664 +++|          BX0    X1-X3
Line S00585 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26895  M02S00585.ns2447  ---|          NZ     X0,CPR3     IF CPP IS NOT ASSIGNED TO *VER*
Line S00061 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26896  M01S00061.ns2447  +++|          NZ     X0,CPR2     IF CPP IS NOT ASSIGNED TO *VER*
Line S00586 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26897  M01S00586.251l664 +++|          BX7    X7-X7
Line S00587 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26898  M02S00587.ns2447  ---|          TB3    SCA         SYSTEM CONTROL POINT NUMBER
26899  M02S00588.ns2447  ---|          EQ     CPC         CLEAR PARAMETER WORD
Line S00062 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26900  M02S00062.273l780 ---|          SA2    B3+STSW     DECREMENT CONTROL POINT PP COUNT
26901  M02S00063.273l780 ---|          SX0    1
Line S00740 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26902  M01S00740.273l780 +++| CPR9     SA2    B3+STSW
26903  M01S00741.273l780 +++|          SA1    PPAL
26904  M01S00742.273l780 +++|          SX0    B1
Line S00064 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26905  M01S00064.ns2447  +++|          LX0    48-0
Line S00065 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26906  M02S00065.273l780 ---|          IX6    X2-X0
26907  M02S00066.273l780 ---|          SA6    A2+
26908  M02S00067.273l780 ---| CPR9     SA1    PPAL        INCREMENT AVAILABLE CPP COUNT
26909  M02S00068.273l780 ---|          SX0    B1
26910  M02S00069.273l780 ---|          LX0    12-0
26911  M02S00070.273l780 ---|          IX6    X0+X1
Line S00743 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26912  M01S00743.273l780 +++|          IX6    X2-X0       DECREMENT PP COUNT AT CP
26913  M01S00744.273l780 +++|          SA6    A2
26914  M01S00745.273l780 +++|          LX0    12-48
26915  M01S00746.273l780 +++|          IX6    X0+X1       INCREMENT AVAILABLE CPP COUNT
Line S00071 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26916  M01S00071.ns2447  +++|          SA6    A1
26917  M01S00072.ns2447  +++|          BX6    X6-X6       CLEAR INPUT REGISTER
Line S00747 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26918  M01S00747.273l780 +++|          TX1    A3,-FP
Line S00073 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26919  M01S00073.ns2447  +++|          SA6    A3
Line S00748 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26920  M01S00748.273l780 +++|          LX1    PPXES-PPCES
Line S00749 Modification History
M01 (Added by) 273l780
M02 (Removed by) cpum231
Seq #  *Modification Id* Act 
----------------------------+
26921  M02S00749.cpum231 ---|          SA6    X1+ACPP     CLEAR CP ASSIGNMENT
Line S00001 Modification History
M01 (Added by) cpum231
Seq #  *Modification Id* Act 
----------------------------+
26922  M01S00001.cpum231 +++|          TA6    X1+ACPP,FPX CLEAR CP ASSIGNMENT
Line S00074 Modification History
M01 (Added by) ns2447
Seq #  *Modification Id* Act 
----------------------------+
26923  M01S00074.ns2447  +++|          EQ     CPR2        EXIT
Line S00075 Modification History
M01 (Added by) ns2447
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26924  M02S00075.273l780 ---|
26925  M02S00076.273l780 ---|*         SUBFUNCTION 3 (ADD CPP).
26926  M02S00077.273l780 ---|
26927  M02S00078.273l780 ---| CPR10    SA3    X6          GET CPP INPUT REGISTER
26928  M02S00079.273l780 ---|          SX0    B1
26929  M02S00080.273l780 ---|          TB3    X6,-FPC
26930  M02S00081.273l780 ---|          TX6    X6,-SP
26931  M02S00082.273l780 ---|          NG     B3,/MONITOR/HNG1  IF NOT CPP INPUT REGISTER ADDRESS
26932  M02S00083.273l780 ---|          PL     X6,/MONITOR/HNG1  IF NOT CPP INPUT REGISTER ADDRESS
26933  M02S00084.273l780 ---|          LX3    -36+7       EXTRACT CONTROL POINT ADDRESS
26934  M02S00085.273l780 ---|          BX3    X4*X3
26935  M02S00086.273l780 ---|          SA4    X3+STSW
26936  M02S00087.273l780 ---|          SX6    1S8+1S4     ENABLE ADVANCE AND ROLLOUT
26937  M02S00088.273l780 ---|          LX0    48
26938  M02S00089.273l780 ---|          IX6    X4-X6
26939  M02S00090.273l780 ---|          IX6    X6+X0       INCREMENT PP COUNT
26940  M02S00091.273l780 ---|          SA6    A4
26941  M02S00092.273l780 ---|          EQ     /MONITOR/MTRC  EXIT
Line S00589 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
26942  M01S00589.251l664 +++|
26943  M01S00590.251l664 +++|
26944  M01S00591.251l664 +++| CPRA     VFD    18/3L*VP,42/0  SIGNIFIES A NOS/VE PP
26945  M01S00592.251l664 +++| CPRB     VFD    18/0L1MA,6/0,12/10B,24/0
Line S00593 Modification History
M01 (Added by) 251l664
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
26946  M02S00593.273l780 ---| DCP      SPACE  4,10
26947  M02S00594.273l780 ---|**        DCP - *DPPM* EXTENSION FOR CONCURRENT PPS.
26948  M02S00595.273l780 ---|*
26949  M02S00596.273l780 ---|*         ENTRY  (A5) = *OR* ADDRESS OF CPP TO DROP.
26950  M02S00597.273l780 ---|*
26951  M02S00598.273l780 ---|*         EXIT   TO *DPP1*, IF REQUEST IS NOT FROM A CPP.
26952  M02S00599.273l780 ---|*                TO *APQ*, TO CALL *1MA* WHICH WILL IDLE THE CPP.
26953  M02S00600.273l780 ---|
26954  M02S00601.273l780 ---|
26955  M02S00602.273l780 ---| DCP      TB3    A5,-FPC
26956  M02S00603.273l780 ---|          NG     B3,/MONITOR/DPP1  IF NOT CPP
26957  M02S00604.273l780 ---|          SX7    3L*MA       RESET INPUT REGISTER
26958  M02S00605.273l780 ---|          LX7    59-17
26959  M02S00606.273l780 ---|          MX2    18
26960  M02S00607.273l780 ---|          BX7    X2*X7
26961  M02S00608.273l780 ---|          SA7    A5-B1
26962  M02S00609.273l780 ---|          SA2    PPAL        INCREMENT COUNT OF AVAILABLE CPP-S
26963  M02S00610.273l780 ---|          SX3    10000B
26964  M02S00611.273l780 ---|          IX7    X2+X3
26965  M02S00612.273l780 ---|          SA7    A2
Proceed to Part 21
cdc/nos2.source/opl.opl871/deck/cpumtr.020.txt ยท Last modified: by 127.0.0.1