Seq # *Modification Id* Act
----------------------------+
02835 M00S01669.cpumtr +++| ZR X1,SPL IF FAST PP LOADER TABLE NOT BUILT
Line S01670 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02836 M01S01670.271l716 ---| MX3 1
Line S00025 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02837 M01S00025.271l716 +++| MX4 18
02838 M00S01671.cpumtr +++| SA1 X1 READ DIRECTORY ENTRY
02839 M00S01672.cpumtr +++| LX3 41-59
02840 M00S01673.cpumtr +++| BX1 -X4*X1
02841 M00S01674.cpumtr +++| IX7 X1+X3
02842 M00S01675.cpumtr +++| BX7 -X3*X7
02843 M00S01676.cpumtr +++| TNO /PROBE/SPL,PROBE
02844 M00S01677.cpumtr +++|
02845 M00S01678.cpumtr +++| APQ2 ZR X1,APQ8 IF LIBRARY LOCKED
Line S00006 Modification History
M01 (Added by) cpumt85
Seq # *Modification Id* Act
----------------------------+
02846 M01S00006.cpumt85 +++| SA2 APQC GET SELECTION MASK
Line S01679 Modification History
M01 (Removed by) ns2210
Seq # *Modification Id* Act
----------------------------+
02847 M01S01679.ns2210 ---| SA2 NP GET NEXT AVAILABLE PP
02848 M01S01680.ns2210 ---| SX3 B1 SET LIBRARY SEARCHED FLAG
02849 M01S01681.ns2210 ---| SA1 X2 RESET NEXT AVAILABLE PP
Line S00002 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02850 M01S00002.ns2210 +++| SA1 PPAL ASSIGN NEXT PP
Line S00007 Modification History
M01 (Added by) cpumt85
Seq # *Modification Id* Act
----------------------------+
02851 M01S00007.cpumt85 +++| BX2 X2*X1
Line S00003 Modification History
M01 (Added by) ns2210
M02 (Removed by) ns2332
Seq # *Modification Id* Act
----------------------------+
02852 M02S00003.ns2332 ---| MX3 1
Line S00001 Modification History
M01 (Added by) ns2332
M02 (Removed by) ns2332b
Seq # *Modification Id* Act
----------------------------+
02853 M02S00001.ns2332b ---| TNO /MONITOR/CSP,CP830 IF CYBER 810/830 CPU
02854 M02S00002.ns2332b ---|
02855 M02S00003.ns2332b ---|* RE-ENTERED HERE FROM *CSP*.
02856 M02S00004.ns2332b ---|
02857 M02S00005.ns2332b ---| APQ2.0 MX3 1
Line S00011 Modification History
M01 (Added by) ns2332b
Seq # *Modification Id* Act
----------------------------+
02858 M01S00011.ns2332b +++| MX3 1
Line S00004 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02859 M01S00004.ns2210 +++| LX3 -12
Line S00005 Modification History
M01 (Added by) ns2210
M02 (Removed by) cpumt85
Seq # *Modification Id* Act
----------------------------+
02860 M02S00005.cpumt85 ---| NX2 B6,X1 SELECT NEXT AVAILABLE PP
Line S00008 Modification History
M01 (Added by) cpumt85
Seq # *Modification Id* Act
----------------------------+
02861 M01S00008.cpumt85 +++| NX2 B6,X2 SELECT NEXT AVAILABLE PP
Line S00006 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02862 M01S00006.ns2210 +++| SX2 B6
02863 M01S00007.ns2210 +++| SX4 B6-11B-1
02864 M01S00008.ns2210 +++| AX3 B6,X3
02865 M01S00009.ns2210 +++| BX1 X1-X3 CLEAR PP AVAILABLE
02866 M01S00010.ns2210 +++| NG X4,APQ2.1 IF NOT SECOND BANK
02867 M01S00011.ns2210 +++|
02868 M01S00012.ns2210 +++|* THE PPS IN THE SECOND BANK ARE ASSIGNED IN REVERSE ORDER.
02869 M01S00013.ns2210 +++|* PP = (31B-20B+12B+12B-BIT NUMBER) = (35B-BIT NUMBER)
02870 M01S00014.ns2210 +++|
02871 M01S00015.ns2210 +++| SX4 35B REVERSE ORDER OF SECOND BANK
02872 M01S00016.ns2210 +++| IX2 X4-X2
Line S00017 Modification History
M01 (Added by) ns2210
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02873 M02S00017.273l780 ---| APQ2.1 LX2 3
Line S00023 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02874 M01S00023.273l780 +++| APQ2.1 LX2 PPCES
Line S00018 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02875 M01S00018.ns2210 +++| MX4 48
Line S00019 Modification History
M01 (Added by) ns2210
M02 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
02876 M02S00019.282l826 ---| SX3 B1
Line S00001 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
02877 M01S00001.282l826 +++| R= X3,ASCM
Line S00020 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02878 M01S00020.ns2210 +++| BX1 X4*X1
02879 M01S00021.ns2210 +++| TX2 X2,FP SET PP COMMUNICATION BLOCK ADDRESS
02880 M00S01682.cpumtr +++| LX3 48
02881 M00S01683.cpumtr +++| BX7 X7+X3
02882 M00S01684.cpumtr +++| SA4 APQB-1 PRESET SEARCH OF TABLE
02883 M00S01685.cpumtr +++| SA7 X2+B1 SET PP OR (LOAD PARAMETERS)
02884 M00S01686.cpumtr +++| MX7 18
Line S01687 Modification History
M01 (Removed by) ns2210
Seq # *Modification Id* Act
----------------------------+
02885 M01S01687.ns2210 ---| APQ2.1 SA4 A4+B1 GET NEXT TABLE ENTRY
Line S00022 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02886 M01S00022.ns2210 +++| APQ2.2 SA4 A4+B1 GET NEXT TABLE ENTRY
02887 M00S01688.cpumtr +++| ZR X4,APQ5 IF END OF TABLE
02888 M00S01689.cpumtr +++| SB6 X4 SAVE LOAD PARAMETER ADDRESS
02889 M00S01690.cpumtr +++| BX4 X4-X6
02890 M00S01691.cpumtr +++| BX4 X7*X4
Line S01692 Modification History
M01 (Removed by) ns2210
Seq # *Modification Id* Act
----------------------------+
02891 M01S01692.ns2210 ---| NZ X4,APQ2.1 IF PP NAME DOES NOT MATCH
Line S00023 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02892 M01S00023.ns2210 +++| NZ X4,APQ2.2 IF PP NAME DOES NOT MATCH
02893 M00S01693.cpumtr +++| EQ B4,B6,APQ3 IF *CPUCIO* REQUEST
02894 M00S01694.cpumtr +++| TX4 A5-1,-SP
02895 M00S01695.cpumtr +++| NZ X4,APQ5 IF NOT PSEUDO-PP REQUEST
02896 M00S01696.cpumtr +++| SA4 A5+2 LOAD MB+1
02897 M00S01697.cpumtr +++| EQ APQ4 TRANSFER DATA
02898 M00S01698.cpumtr +++|
02899 M00S01699.cpumtr +++| APQ3 SA4 /CPUCIO/MB
02900 M00S01700.cpumtr +++| APQ4 BX7 X4 MOVE MB TO MB
02901 M00S01701.cpumtr +++| SA7 A7+B1
02902 M00S01702.cpumtr +++| SA4 A4+B1
02903 M00S01703.cpumtr +++| ERRNZ /CPUCIO/MB1-/CPUCIO/MB-1
02904 M00S01704.cpumtr +++| BX7 X4 MB1 TO MB+1
02905 M00S01705.cpumtr +++| SA7 A7+B1
02906 M00S01706.cpumtr +++| SA4 A4+B1
02907 M00S01707.cpumtr +++| ERRNZ /CPUCIO/MB2-/CPUCIO/MB1-1
02908 M00S01708.cpumtr +++| BX7 X4 MB2 TO MB+2
02909 M00S01709.cpumtr +++| SA7 A7+B1
02910 M00S01710.cpumtr +++| EQ APQ6 SKIP PARAMETER WORD CHECK
02911 M00S01711.cpumtr +++|
02912 M00S01712.cpumtr +++| APQ5 SA4 APQA MOVE PARAMETER WORD
02913 M00S01713.cpumtr +++| BX7 X4
02914 M00S01714.cpumtr +++| SA7 A7+B1 MOVE TO MB
Line S01715 Modification History
M01 (Removed by) ns2210
Seq # *Modification Id* Act
----------------------------+
02915 M01S01715.ns2210 ---| APQ6 SA6 X2 STORE PP IR
02916 M01S01716.ns2210 ---| BX7 X1
Line S00024 Modification History
M01 (Added by) ns2210
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02917 M02S00024.273l780 ---| APQ6 BX7 X1
Line S00024 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02918 M01S00024.273l780 +++| APQ6 SX4 B7
02919 M01S00025.273l780 +++| SX7 B7 SET FUNCTION PROCESSING CP ADDRESS
02920 M01S00026.273l780 +++| LX4 24 SET CP ADDRESS
02921 M01S00027.273l780 +++| BX7 X7+X4
02922 M01S00028.273l780 +++| LX4 24-7 SET CP NUMBER
02923 M01S00029.273l780 +++| BX7 X7+X4
02924 M01S00030.273l780 +++| TX4 X2,-FP
02925 M01S00031.273l780 +++| LX4 PPXES-PPCES
02926 M01S00032.273l780 +++| TA7 X4+ACPP,FPX SET CP ASSIGNMENT
02927 M01S00033.273l780 +++| BX7 X1
Line S00027 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
02928 M01S00027.251l664 +++| MX4 20
02929 M01S00028.251l664 +++| LX4 -12
02930 M01S00029.251l664 +++| BX1 X4*X1
Line S00025 Modification History
M01 (Added by) ns2210
Seq # *Modification Id* Act
----------------------------+
02931 M01S00025.ns2210 +++| CX1 X1
02932 M01S00026.ns2210 +++| SA6 X2 STORE PP INPUT REGISTER
02933 M01S00027.ns2210 +++| BX7 X7+X1
Line S00028 Modification History
M01 (Added by) ns2210
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02934 M02S00028.273l780 ---| SA7 A1
Line S00034 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02935 M01S00034.273l780 +++| SA7 A1+
02936 M00S01717.cpumtr +++| SA1 B7+STSW INCREMENT PP COUNT
Line S01718 Modification History
M01 (Removed by) ns2210
Seq # *Modification Id* Act
----------------------------+
02937 M01S01718.ns2210 ---| SA7 A2
02938 M00S01719.cpumtr +++| IX7 X1+X3
Line S01720 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02939 M01S01720.271l716 ---| SA7 A1+
Line S00026 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02940 M01S00026.271l716 +++| SA7 A1
02941 M00S01721.cpumtr +++| SX1 A6 RETURN *IR* ADDRESS
02942 M00S01722.cpumtr +++| JP B3 RETURN
02943 M00S01723.cpumtr +++|
Line S01724 Modification History
M01 (Removed by) cpum107
Seq # *Modification Id* Act
----------------------------+
02944 M01S01724.cpum107 ---| APQ7 BX1 -X1+X1
02945 M01S01725.cpum107 ---| APQ8 NG B4,RB3 IF NO QUEUEING REQUESTED
Line S00012 Modification History
M01 (Added by) cpum107
Seq # *Modification Id* Act
----------------------------+
02946 M01S00012.cpum107 +++| APQ7 BX1 -X1+X1
02947 M01S00013.cpum107 +++| NG B4,RB3 IF NO QUEUEING REQUESTED
02948 M01S00014.cpum107 +++| APQ8 BX1 X1-X1
02949 M01S00015.cpum107 +++| NG B4,RB3 IF NO QUEUEING REQUESTED
02950 M01S00016.cpum107 +++| MX4 6
02951 M00S01726.cpumtr +++| SA3 APQA
02952 M00S01727.cpumtr +++| SX2 PQ
Line S01728 Modification History
M01 (Removed by) cpum107
M02 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02953 M02S01728.242l642 ---| MX4 6
Line S01729 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02954 M01S01729.242l642 ---| LX4 -6
02955 M01S01730.242l642 ---| BX4 -X4*X3
02956 M01S01731.242l642 ---| SX3 NPPR NO PP AVAILABLE
02957 M01S01732.242l642 ---| LX3 -12
02958 M01S01733.242l642 ---| BX7 X4+X3
Line S00001 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02959 M01S00001.242l642 +++| BX7 X3
02960 M00S01734.cpumtr +++| SA7 AQRA
02961 M00S01735.cpumtr +++| EQ AQR ASSIGN QUEUE REQUEST
02962 M00S01736.cpumtr +++|
02963 M00S01737.cpumtr +++|
02964 M00S01738.cpumtr +++| APQA BSS 1 PARAMETER WORD
02965 M00S01739.cpumtr +++|
02966 M00S01740.cpumtr +++|* TABLE OF PP-S REQUIRING SPECIAL PROCESSING FOR *CPUCIO*.
02967 M00S01741.cpumtr +++|
02968 M00S01742.cpumtr +++| APQB VFD 18/3L1MS,24/,18/LA1MS
02969 M00S01743.cpumtr +++| VFD 18/3L1MI,24/,18/LA1MI
02970 M00S01744.cpumtr +++| VFD 18/3L1ML,24/,18/LA1ML
Line S00001 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
02971 M01S00001.274l797 +++| VFD 18/3L1OD,24/,18//MONITOR/LA1OD
02972 M00S01745.cpumtr +++| CON 0 END OF TABLE
Line S00009 Modification History
M01 (Added by) cpumt85
Seq # *Modification Id* Act
----------------------------+
02973 M01S00009.cpumt85 +++|
02974 M01S00010.cpumt85 +++| APQC VFD 12/0,20/-0,28/0 *PPAL* SELECTION MASK
02975 M00S01746.cpumtr +++| TFPL SPACE 4,10
02976 M00S01747.cpumtr +++|** TFPL - FAST PP LOADER TABLE.
02977 M00S01748.cpumtr +++|*
02978 M00S01749.cpumtr +++|* THIS TABLE CONTAINS THE ABSOLUTE MEMORY ADDRESS OF THE *PLD*
02979 M00S01750.cpumtr +++|* ENTRY FOR THE CORRESPONDING PP PROGRAM. IT IS UPDATED
02980 M00S01751.cpumtr +++|* BY *SLL* OR *REC* WHEN A LIBRARY CHANGE OR RELOAD OCCURS.
02981 M00S01752.cpumtr +++|
02982 M00S01753.cpumtr +++|
02983 M00S01754.cpumtr +++| TFPL BSS 0
02984 M00S01755.cpumtr +++| LOC 1
02985 M00S01756.cpumtr +++|
02986 M00S01757.cpumtr +++| LA1MS VFD 17/0,1/1,18/3L1MS,24/0 *1MS* LIBRARY ENTRY ADDRESS
02987 M00S01758.cpumtr +++| LA1AJ VFD 17/0,1/1,18/3L1AJ,24/0 *1AJ* LIBRARY ENTRY ADDRESS
02988 M00S01759.cpumtr +++| LA1MI VFD 17/0,1/1,18/3L1MI,24/0 *1MI* LIBRARY ENTRY ADDRESS
Line S00027 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02989 M01S00027.271l716 +++| LA1RO VFD 17/0,1/1,18/3L1RO,24/0 *1RO* LIBRARY ENTRY ADDRESS
02990 M00S01760.cpumtr +++| LA1SJ VFD 17/0,1/1,18/3L1SJ,24/0 *1SJ* LIBRARY ENTRY ADDRESS
02991 M00S01761.cpumtr +++| LA1MA VFD 17/0,1/1,18/3L1MA,24/0 *1MA* LIBRARY ENTRY ADDRESS
02992 M00S01762.cpumtr +++| LACPM VFD 17/0,1/1,18/3LCPM,24/0 *CPM* LIBRARY ENTRY ADDRESS
02993 M00S01763.cpumtr +++| LALDR VFD 17/0,1/1,18/3LLDR,24/0 *LDR* LIBRARY ENTRY ADDRESS
02994 M00S01764.cpumtr +++| LA1ML VFD 17/0,1/1,18/3L1ML,24/0 *1ML* LIBRARY ENTRY ADDRESS
Line S00002 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
02995 M01S00002.274l797 +++| LA1OD VFD 17/0,1/1,18/3L1OD,24/0 *1OD* LIBRARY ENTRY POINTER
Line S00427 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
02996 M01S00427.253l688 +++| LA1FA VFD 17/0,1/1,18/3L1FA,24/0 *1FA* LIBRARY ENTRY ADDRESS
02997 M01S00428.253l688 +++| LA1RU VFD 17/0,1/1,18/3L1RU,24/0 *1RU* LIBRARY ENTRY ADDRESS
02998 M01S00429.253l688 +++| LA1BP VFD 17/0,1/1,18/3L1BP,24/0 *1BP* LIBRARY ENTRY ADDRESS
02999 M01S00430.253l688 +++| LA3RX VFD 17/0,1/1,18/3L3RX,24/0 *3RX* LIBRARY ENTRY ADDRESS
Line S00035 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
03000 M01S00035.273l780 +++| LA1CP VFD 17/0,1/1,18/3L1CP,24/0 *1CP* LIBRARY ENTRY ADDRESS
Line S00002 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
03001 M01S00002.242l642 +++|
03002 M01S00003.242l642 +++| TMSD EQU *O-1
03003 M01S00004.242l642 +++| LOC 1
03004 M01S00005.242l642 +++| LA6DI VFD 18/1,18/3L6DI,24/0 *6DI* PLD ENTRY ADDRESS
03005 M01S00006.242l642 +++| LA6DJ VFD 18/1,18/3L6DJ,24/0 *6DJ* PLD ENTRY ADDRESS
03006 M01S00007.242l642 +++| LA6DP VFD 18/1,18/3L6DP,24/0 *6DP* PLD ENTRY ADDRESS
03007 M01S00008.242l642 +++| LA6DE VFD 18/1,18/3L6DE,24/0 *6DE* PLD ENTRY ADDRESS
03008 M01S00009.242l642 +++| LA6DX VFD 18/1,18/3L6DX,24/0 *6DX* PLD ENTRY ADDRESS
Line S00030 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
03009 M01S00030.251l664 +++| LA6DC VFD 18/1,18/3L6DC,24/0 *6DC* PLD ENTRY ADDRESS
Line S00093 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
03010 M01S00093.252l678 +++| LA6DD VFD 18/1,18/3L6DD,24/0 *6DD* PLD ENTRY ADDRESS
Line S00010 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
03011 M01S00010.242l642 +++| LA6MX BSS 0 END OF DRIVERS
03012 M00S01765.cpumtr +++|
03013 M00S01766.cpumtr +++| LOC *O
03014 M00S01767.cpumtr +++|
03015 M00S01768.cpumtr +++| TFPLL EQU *-TFPL FAST PP LOADER TABLE LENGTH
03016 M00S01769.cpumtr +++| TPPI SPACE 4,10
03017 M00S01770.cpumtr +++|** TPPI - TABLE OF PRE-PROCESSOR INDICES.
03018 M00S01771.cpumtr +++|*
03019 M00S01772.cpumtr +++|* THIS TABLE CONTAINS THE PRE-PROCESSOR NAME AND
03020 M00S01773.cpumtr +++|* DEFAULT FL/100B CORRESPONDING TO THE INDEX FOR
03021 M00S01774.cpumtr +++|* THE *ENEJ* SUBFUNCTION OF THE *EJT* RA+1 CALL.
03022 M00S01775.cpumtr +++|* THIS TABLE MUST IMMEDIATELY FOLLOW THE *TFPL*
03023 M00S01776.cpumtr +++|* TABLE SO IT CAN BE LOCATED AND REBUILT BY *SLL*
03024 M00S01777.cpumtr +++|* AFTER A LIBRARY CHANGE IS MADE.
03025 M00S01778.cpumtr +++|
03026 M00S01779.cpumtr +++|
03027 M00S01780.cpumtr +++| TPPI BSS 0
03028 M00S01781.cpumtr +++| LOC 0
03029 M00S01782.cpumtr +++|
03030 M00S01783.cpumtr +++| VFD 42/4LLDR=,18/0
03031 M00S01784.cpumtr +++| VFD 42/4LSORT,18/0
03032 M00S01785.cpumtr +++| VFD 42/4LPACK,18/0
03033 M00S01786.cpumtr +++|
03034 M00S01787.cpumtr +++| LOC *O
03035 M00S01788.cpumtr +++|
03036 M00S01789.cpumtr +++| TPPIL EQU *-TPPI
03037 M00S01790.cpumtr +++| AQR SPACE 4,10
03038 M00S01791.cpumtr +++|** AQR - ASSIGN QUEUE REQUEST.
03039 M00S01792.cpumtr +++|*
03040 M00S01793.cpumtr +++|* ENTRY (X0) = ORDERED QUEUE PARAMETER.
03041 M00S01794.cpumtr +++|* (X2) = QUEUE INDEX.
03042 M00S01795.cpumtr +++|* = RQ, IMPLIES AN ORDERED QUEUE REQUIRING X0 SET.
03043 M00S01796.cpumtr +++|* (X6) = REQUEST.
03044 M00S01797.cpumtr +++|* (A5) = OUTPUT REGISTER ADDRESS (PRIORITY PP REQUEST).
03045 M00S01798.cpumtr +++|* (B3) = EXIT ADDRESS.
03046 M00S01799.cpumtr +++|* (B7) = CONTROL POINT ADDRESS.
03047 M00S01800.cpumtr +++|* (AQRA) = PARAMETER WORD.
03048 M00S01801.cpumtr +++|*
03049 M00S01802.cpumtr +++|* EXIT (A2) = ADDRESS OF QUEUE ENTRY LINKED TO NEW ENTRY.
03050 M00S01803.cpumtr +++|*
03051 M00S01804.cpumtr +++|* USES X - 1, 2, 3, 4, 6, 7.
03052 M00S01805.cpumtr +++|* B - 6.
03053 M00S01806.cpumtr +++|* A - 1, 3, 6, 7.
03054 M00S01807.cpumtr +++|*
03055 M00S01808.cpumtr +++|* PRESERVES B3, A5, B7, A0.
03056 M00S01809.cpumtr +++|
03057 M00S01810.cpumtr +++|
03058 M00S01811.cpumtr +++| AQR SA1 B7+STSW ALLOCATE RECALL SLOT
03059 M00S01812.cpumtr +++| ZR X6,* IF PP CALL ZERO
03060 M00S01813.cpumtr +++| SA2 TAQR+X2 READ PROCESSING PARAMETERS
03061 M00S01814.cpumtr +++| MX7 -4
03062 M00S01815.cpumtr +++| BX4 -X7*X1 NEXT FREE RECALL SLOT
03063 M00S01816.cpumtr +++|*
03064 M00S01817.cpumtr +++|* CONTINUING AT THIS POINT WILL YIELD CATASTROPHIC
03065 M00S01818.cpumtr +++|* RESULTS AND COVER UP THE AUDIT TRAIL, SO STOP.
03066 M00S01819.cpumtr +++|*
03067 M00S01820.cpumtr +++| ZR X4,* IF CONFUSED, HANG
03068 M00S01821.cpumtr +++| SB6 B7+RCCW-1
03069 M00S01822.cpumtr +++| BX7 X7*X1
03070 M00S01823.cpumtr +++| SA3 B6+X4 READ NEXT FREE RECALL SLOT
03071 M00S01824.cpumtr +++| SA6 A3+RECW-RCCW STORE REQUEST TO RECALL
03072 M00S01825.cpumtr +++| SA4 AQRA GET PARAMETER WORD
03073 M00S01826.cpumtr +++| MX6 1
03074 M00S01827.cpumtr +++| BX6 X4+X6
03075 M00S01828.cpumtr +++| SA6 A3+REPW-RCCW
03076 M00S01829.cpumtr +++| UX2,B6 X2 SET RECALL ADDER
03077 M00S01830.cpumtr +++| SX3 X3+B6
03078 M00S01831.cpumtr +++| SB6 X2 SET PROCESSOR ADDRESS
03079 M00S01832.cpumtr +++| IX7 X7+X3
03080 M00S01833.cpumtr +++| AX2 18 GET START OF QUEUE
03081 M00S01834.cpumtr +++| SA7 A1
03082 M00S01835.cpumtr +++| MX7 -18
Line S00001 Modification History
M01 (Added by) cpumt61
Seq # *Modification Id* Act
----------------------------+
03083 M01S00001.cpumt61 +++| BX1 X1-X1
03084 M00S01836.cpumtr +++| JP B6 JUMP TO PROCESSOR
03085 M00S01837.cpumtr +++|
03086 M00S01838.cpumtr +++|* PLACE ENTRY AT END OF QUEUE.
03087 M00S01839.cpumtr +++|* USED FOR PQ AND CQ.
03088 M00S01840.cpumtr +++|*
03089 M00S01841.cpumtr +++|* LOOP IS REPLICATED FOR PERFORMANCE.
03090 M00S01842.cpumtr +++|
Line S00002 Modification History
M01 (Added by) cpumt61
Seq # *Modification Id* Act
----------------------------+
03091 M01S00002.cpumt61 +++| AQR0 MX1 1 SET NO ROLL FLAG
03092 M00S01843.cpumtr +++| AQR1 SA2 X2
03093 M00S01844.cpumtr +++| BX3 -X7*X2
03094 M00S01845.cpumtr +++| ZR X3,AQR1.1 IF END OF QUEUE
03095 M00S01846.cpumtr +++| SA2 X2
03096 M00S01847.cpumtr +++| BX3 -X7*X2
03097 M00S01848.cpumtr +++| NZ X3,AQR1 IF NOT END OF QUEUE
03098 M00S01849.cpumtr +++| AQR1.1 BX2 X7*X2
03099 M00S01850.cpumtr +++| BX7 X7-X7 CLEAR END OF QUEUE
Line S00003 Modification History
M01 (Added by) cpumt61
Seq # *Modification Id* Act
----------------------------+
03100 M01S00003.cpumt61 +++| BX7 X1+X7
03101 M00S01851.cpumtr +++| SA7 A3
03102 M00S01852.cpumtr +++| SX7 A3 EXTEND END OF QUEUE
03103 M00S01853.cpumtr +++| BX7 X7+X2 INSERT LINK
03104 M00S01854.cpumtr +++| SX1 A3 RETURN QUEUE ADDRESS
03105 M00S01855.cpumtr +++| SA7 A2+
03106 M00S01856.cpumtr +++| JP B3 RETURN
03107 M00S01857.cpumtr +++|
03108 M00S01858.cpumtr +++|* ASSIGN ENTRY TO ORDERED QUEUE.
03109 M00S01859.cpumtr +++|
03110 M00S01860.cpumtr +++| AQR2 SA2 X2+ FIND FIRST ENTRY
03111 M00S01861.cpumtr +++| MX4 -12
03112 M00S01862.cpumtr +++| BX0 X4*X0
03113 M00S01863.cpumtr +++| AQR3 BX7 -X4*X2 EXTRACT LINKAGE
03114 M00S01864.cpumtr +++| SB6 A2
03115 M00S01865.cpumtr +++| ZR X7,AQR4 IF END OF QUEUE
03116 M00S01866.cpumtr +++| SA2 X7 READ NEXT QUEUE ENTRY
03117 M00S01867.cpumtr +++| IX3 X2-X0
03118 M00S01868.cpumtr +++| NG X3,AQR3 IF NOT .LT. THIS QUEUE ENTRY
03119 M00S01869.cpumtr +++| AQR4 BX7 X7+X0
03120 M00S01870.cpumtr +++| SX3 A3 SET RECALL SLOT ADDRESS
03121 M00S01871.cpumtr +++| SA2 B6 REPLACE LINK TO NEW RECALL ENTRY
03122 M00S01872.cpumtr +++| SA7 A3
03123 M00S01873.cpumtr +++| BX2 X4*X2
03124 M00S01874.cpumtr +++| BX7 X2+X3
03125 M00S01875.cpumtr +++| SA7 A2+
03126 M00S01876.cpumtr +++| JP B3 RETURN
03127 M00S01877.cpumtr +++|
03128 M00S01878.cpumtr +++|* PLACE ENTRY AT BEGINNING OF QUEUE.
03129 M00S01879.cpumtr +++|
03130 M00S01880.cpumtr +++| AQR5 SA2 X2 PLACE ENTRY AT HEAD OF QUEUE
03131 M00S01881.cpumtr +++| BX2 -X7*X2
03132 M00S01882.cpumtr +++| SX7 A5
03133 M00S01883.cpumtr +++| LX7 18
03134 M00S01884.cpumtr +++| BX7 X7+X2
03135 M00S01885.cpumtr +++| SA7 A3
03136 M00S01886.cpumtr +++| SX7 A3
03137 M00S01887.cpumtr +++| SA7 A2
03138 M00S01888.cpumtr +++| JP B3 RETURN
03139 M00S01889.cpumtr +++|
03140 M00S01890.cpumtr +++|
03141 M00S01891.cpumtr +++| AQRA BSS 1
03142 M00S01892.cpumtr +++| TAQR SPACE 4,10
03143 M00S01893.cpumtr +++|** TAQR - TABLE OF QUEUE PROCESSING PARAMETERS.
03144 M00S01894.cpumtr +++|*
03145 M00S01895.cpumtr +++|* ENTRY 1 WORD
03146 M00S01896.cpumtr +++|*T, TAQR 12/ 2000+RC,12/,18/ QS,18/ QP
Figure
TAQR
0 17 18 29 QP QS 30 35 36 47 48 59 QS 2000+RC
03147 M00S01897.cpumtr +++|* RC RECALL COUNT TO INCREMENT *STSW*.
03148 M00S01898.cpumtr +++|* QS START OF QUEUE POINTER.
03149 M00S01899.cpumtr +++|* QP QUEUE PROCESSOR.
03150 M00S01900.cpumtr +++|
03151 M00S01901.cpumtr +++|
03152 M00S01902.cpumtr +++| TAQR BSS 0
03153 M00S01903.cpumtr +++| LOC 0
03154 M00S01904.cpumtr +++|
03155 M00S01905.cpumtr +++| BQ VFD 12/2420B,12/0,18/BQRL,18/AQR2 BUFFER MANAGER
03156 M00S01906.cpumtr +++| RQ VFD 12/2020B,12/0,18/RQRL,18/AQR2 *MTR* RECALL
03157 M00S01907.cpumtr +++| NRQ VFD 12/2420B,12/0,18/RQRL,18/AQR2
03158 M00S01908.cpumtr +++| CQ VFD 12/2420B,12/0,18/CQRL,18/AQR1 *CPUCIO* REQUEST QUEUE
03159 M00S01909.cpumtr +++| PQ VFD 12/2020B,12/0,18/PQRL,18/AQR1 PP REQUEST QUEUE
Line S00004 Modification History
M01 (Added by) cpumt61
Seq # *Modification Id* Act
----------------------------+
03160 M01S00004.cpumt61 +++| NPQ VFD 12/2420B,12/0,18/PQRL,18/AQR0 PP NO ROLL REQUEST
03161 M00S01910.cpumtr +++| PRP VFD 12/2420B,12/0,18/PQRL,18/AQR5 PRIORITY PP REQUEST
03162 M00S01911.cpumtr +++| LOC *O
Line S01912 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03163 M01S01912.271l750 ---| BNJ SPACE 4
Line S00316 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03164 M01S00316.271l750 +++| BNJ SPACE 4,25
03165 M00S01913.cpumtr +++|** BNJ - BEGIN NEW JOB.
03166 M00S01914.cpumtr +++|*
Line S01915 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03167 M01S01915.271l750 ---|* BNJ SELECTS THE FIRST ENTRY IN *WQ* WHICH CAN USE THIS
03168 M01S01916.271l750 ---|* CPU AND STARTS THE ASSOCIATED EXCHANGE PACKAGE. THE OLD
03169 M01S01917.271l750 ---|* JOBS CPU TIME IS ACCUMULATED AND THE NEW JOB STARTED.
03170 M01S01918.271l750 ---|* IF ENTERED AT BNJ1 THE CPU STATUS IS ASSUMED TO HAVE BEEN
03171 M01S01919.271l750 ---|* SET PRIOR TO ENTRY. IF ENTERED AT BNJ (B7) IS THE ACTIVE
03172 M01S01920.271l750 ---|* CONTROL POINT AND (X7) IS THE CPU STATUS TO SET FOR THAT
03173 M01S01921.271l750 ---|* CONTROL POINT.
Line S00317 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03174 M01S00317.271l750 +++|* THIS ROUTINE UPDATES THE CPU TIME FOR THE CURRENTLY ACTIVE
03175 M01S00318.271l750 +++|* JOB (OLD JOB) IN THIS CPU AND STARTS THE HIGHEST PRIORITY JOB
03176 M01S00319.271l750 +++|* (NEW JOB) THAT CAN USE THIS CPU.
03177 M01S00320.271l750 +++|*
03178 M01S00321.271l750 +++|* IF ENTERED AT *BNJ*, (B7) IS THE ACTIVE (OLD JOB) CONTROL
03179 M01S00322.271l750 +++|* POINT AND (X7) IS THE CPU STATUS TO SET FOR THE OLD JOB.
03180 M01S00323.271l750 +++|*
03181 M01S00324.271l750 +++|* IF ENTERED AT *BNJ1*, THE OLD JOB CPU STATUS IS ASSUMED TO
03182 M01S00325.271l750 +++|* HAVE BEEN SET PRIOR TO ENTRY IF NOT *A* OR *B* STATUS.
03183 M01S00326.271l750 +++|*
03184 M01S00327.271l750 +++|* IF THE OLD JOB CPU STATUS IS *A* OR *B* ON ENTRY, THE CPU
03185 M01S00328.271l750 +++|* STATUS WILL BE CHANGED TO *W* AND THE JOB WILL BE INSERTED IN
03186 M01S00329.271l750 +++|* *WQ* ACCORDING TO PRIORITY AND CPU SLICE EXPIRATION CRITERIA.
03187 M00S01922.cpumtr +++|*
03188 M00S01923.cpumtr +++|* EXIT EXCHANGE PACKAGE AT (B2) RESET FOR PPU USE.
03189 M00S01924.cpumtr +++|* RUNNING TIME UPDATED.
03190 M00S01925.cpumtr +++|*
03191 M00S01926.cpumtr +++|* USES X - ALL.
Line S01927 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03192 M01S01927.271l750 ---|* B - 4, 5, 6.
Line S00330 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03193 M01S00330.271l750 +++|* B - 3, 4, 5, 6.
03194 M00S01928.cpumtr +++|* A - 1, 2, 3, 4, 5, 6, 7.
03195 M00S01929.cpumtr +++|*
Line S01930 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03196 M01S01930.271l750 ---|* CALLS CPT, ESC, /DCP/BNJ, MSM, MSR.
Line S00331 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03197 M01S00331.271l750 +++|* CALLS ACS, CPT, ESC, /DCP/BNJ, MSM, MSR.
03198 M00S01931.cpumtr +++|
03199 M00S01932.cpumtr +++|
Line S01933 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03200 M01S01933.271l750 ---| BNJ MX0 3 CLEAR OLD STATUS AND SET NEW
03201 M01S01934.271l750 ---| SA1 B7+STSW
Line S00332 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03202 M01S00332.271l750 +++| BNJ SA1 B7+STSW
03203 M01S00333.271l750 +++| MX0 3 CLEAR OLD STATUS AND SET NEW
03204 M00S01935.cpumtr +++| LX7 -3
03205 M00S01936.cpumtr +++| BX1 -X0*X1
03206 M00S01937.cpumtr +++| BX7 X7+X1
03207 M00S01938.cpumtr +++| SA7 A1+
Line S00334 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03208 M01S00334.271l750 +++|
03209 M01S00335.271l750 +++|* ENTRY IF CPU STATUS ALREADY SET OR IF *W* STATUS TO BE SET.
03210 M01S00336.271l750 +++|
03211 M00S01939.cpumtr +++| BNJ1 SB3 BNJ2 *CPT* RETURN ADDRESS
Line S01940 Modification History
M01 (Removed by) ns2443
Seq # *Modification Id* Act
----------------------------+
03212 M01S01940.ns2443 ---| TJMP /CME/CPT,CME,/MONITOR/CP76,CP176,/MONITOR/CPT
Line S00017 Modification History
M01 (Added by) ns2443
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03213 M02S00017.253l688 ---| TJMP /CME/CPT1,CME,/MONITOR/CP76,CP176,/MONITOR/CPT
Line S00431 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03214 M02S00431.271l750 ---| TJP (/CME/CPT1,CME,/MONITOR/CP76,CP176,/MONITOR/CPT)
Line S00337 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03215 M01S00337.271l750 +++| SB6 200B SET CPU SWITCH FLAG
03216 M01S00338.271l750 +++| TJP (/NVE/CPT1,NVE,/CME/CPT1,CME,/MONITOR/CP76,CP176,/MONIT
03217 M01S00339.271l750 +++|,OR/CPT)
03218 M01S00340.271l750 +++| BNJ2 SA2 X1+STSW GET CONTROL POINT *STSW*
03219 M01S00341.271l750 +++| SX6 B0+
03220 M01S00342.271l750 +++| SX4 1
03221 M01S00343.271l750 +++| SA6 SA+A0 CLEAR CPU SWITCH ACCUMULATED TIME
03222 M01S00344.271l750 +++| LX4 56
03223 M01S00345.271l750 +++| BX7 X4*X2
03224 M01S00346.271l750 +++| SB4 X1+ EXCHANGE PACKAGE ADDRESS IF SUB-CP ACTIVE
03225 M01S00347.271l750 +++| TNZ X7,(/MONITOR/ESC,SUBCP,/MONITOR/BNJ2) IF SUB-CP ACTIVE
03226 M01S00348.271l750 +++| LX1 24
03227 M01S00349.271l750 +++| SB4 X1 EXCHANGE PACKAGE ADDRESS IF NOT SUB-CP
03228 M00S01941.cpumtr +++|
Line S01942 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03229 M01S01942.271l750 ---| BNJ2 NZ X1,BNJ3 IF NOT IDLE CONTROL POINT
03230 M01S01943.271l750 ---| SA1 CPAL+A0
03231 M01S01944.271l750 ---| BNJ3 SA2 X1+STSW CHECK FOR SUBCP ACTIVE
03232 M01S01945.271l750 ---| SX4 B1+
03233 M01S01946.271l750 ---| LX4 56
03234 M01S01947.271l750 ---| BX7 X4*X2
Line S01948 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03235 M02S01948.271l750 ---| TNZ X7,(/MONITOR/ESC,/MONITOR/BNJ3,SUBCP) IF SUBCP ACTIVE
Line S00094 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03236 M02S00094.271l750 ---| TNZ X7,(/MONITOR/ESC,SUBCP,/MONITOR/BNJ3) IF SUBCP ACTIVE
Line S01949 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03237 M01S01949.271l750 ---| BNJ4 SA2 WQRL SELECT NEXT JOB
Line S00350 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03238 M01S00350.271l750 +++|* UPDATE CPU SLICE ACCUMULATORS AND FLAGS FOR OLD JOB.
03239 M01S00351.271l750 +++|* INCREMENT CPU SLICE ACCUMULATOR BY TIME USED.
03240 M01S00352.271l750 +++|* CLEAR EXTENDED CPU SLICE INCOMPLETE FLAG IF .LT. RECALL CPU
03241 M01S00353.271l750 +++|* SLICE REMAINING IN EXTENDED CPU SLICE.
03242 M01S00354.271l750 +++|* CLEAR CPU SLICE ACTIVE FLAG IF .LT. RECALL CPU SLICE
03243 M01S00355.271l750 +++|* REMAINING IN CPU SLICE.
03244 M01S00356.271l750 +++|* CLEAR RECALL FLAG IF RECALL CPU SLICE LIMIT REACHED.
03245 M01S00357.271l750 +++|* CLEAR RECALL SLICE ACCUMULATOR IF RECALL FLAG CLEARED.
03246 M01S00358.271l750 +++|
03247 M01S00359.271l750 +++| BNJ3 SA3 B4+CWQW GET *WQ* PARAMETERS
03248 M01S00360.271l750 +++| SA1 B4+STSW GET EXCHANGE PACKAGE *STSW*
03249 M01S00361.271l750 +++| SA4 A3+B1 GET CPU SLICE ACCUMULATORS
03250 M01S00362.271l750 +++| ERRNZ CSAW-CWQW-1
03251 M01S00363.271l750 +++| TAX0 (6,CME,11,CP176,0) SCALE CPU TIME FOR ACCUMULATORS
03252 M01S00364.271l750 +++| MX7 -9
03253 M01S00365.271l750 +++| LX7 27
03254 M01S00366.271l750 +++| BX7 -X7*X3 SERVICE PARAMETERS INDEX
03255 M01S00367.271l750 +++| BX2 X1
03256 M01S00368.271l750 +++| SX6 A0+ACPS+WCPS
03257 M01S00369.271l750 +++| AX2 57
03258 M01S00370.271l750 +++| LX7 -27
03259 M01S00371.271l750 +++| SB3 X2 (B3) .GT. 0 IF *A* OR *B* CPU STATUS
03260 M01S00372.271l750 +++| LX6 -3
03261 M01S00373.271l750 +++| SB5 X2 SET STATUS FOR DRIVER RECALL CHECK
03262 M01S00374.271l750 +++| LE B3,B0,BNJ4 IF NOT TO SET *W* STATUS
03263 M01S00375.271l750 +++| BX6 X1-X6 SET *W* STATUS
03264 M01S00376.271l750 +++| SB5 WCPS-7 SET *W* STATUS FOR DRIVER RECALL CHECK
03265 M01S00377.271l750 +++| SA6 A1+
03266 M01S00378.271l750 +++| BNJ4 TA2 X7+CSAT,JCB GET CPU SCHEDULING PARAMETERS
03267 M01S00379.271l750 +++| GT B3,B0,BNJ5 IF *W* STATUS SET (JOB PREEMPTED)
03268 M01S00380.271l750 +++| NZ X0,BNJ5 IF CPU SLICE INCREMENT NOT NULL
03269 M01S00381.271l750 +++| SX0 1 SET VALUE TO INSURE SLICE EXPIRATION
03270 M01S00382.271l750 +++| BNJ5 SX5 X4 CPU SLICE ACCUMULATOR
03271 M01S00383.271l750 +++| SX7 X2 EXTENDED CPU SLICE LIMIT
03272 M01S00384.271l750 +++| IX5 X5+X0
03273 M01S00385.271l750 +++| IX5 X5-X7 CHECK TIME LEFT IN EXTENDED CPU SLICE
03274 M01S00386.271l750 +++| LX3 59-48 POSITION RECALL FLAG
03275 M01S00387.271l750 +++| NG X5,BNJ6 IF .GE. RECALL SLICE LEFT IN EXTENDED
03276 M01S00388.271l750 +++| MX7 6
03277 M01S00389.271l750 +++| SX1 7 SET TO CLEAR ALL CPU SCHEDULING FLAGS
03278 M01S00390.271l750 +++| BX7 X7*X4 SET TO CLEAR ALL ACCUMULATORS
03279 M01S00391.271l750 +++| LX7 -18
03280 M01S00392.271l750 +++| LE B3,B0,BNJ8 IF *W* STATUS NOT SET
03281 M01S00393.271l750 +++| PL X3,BNJ8 IF RECALL FLAG NOT SET
03282 M01S00394.271l750 +++| LX4 -18
03283 M01S00395.271l750 +++| LX2 -18
03284 M01S00396.271l750 +++| SX6 X4 RECALL CPU SLICE ACCUMULATOR
03285 M01S00397.271l750 +++| SX1 X2 RECALL CPU SLICE LIMIT
03286 M01S00398.271l750 +++| IX6 X6+X0
03287 M01S00399.271l750 +++| IX6 X6-X1
03288 M01S00400.271l750 +++| SX1 7 SET TO CLEAR ALL CPU SCHEDULING FLAGS
03289 M01S00401.271l750 +++| PL X6,BNJ8 IF NO TIME REMAINING IN RECALL SLICE
03290 M01S00402.271l750 +++| SX1 5 SET TO CLEAR ALL BUT RECALL FLAG
03291 M01S00403.271l750 +++| EQ BNJ8 UPDATE ACCUMULATORS AND FLAGS
03292 M01S00404.271l750 +++|
03293 M01S00405.271l750 +++| BNJ6 IX4 X4+X0 INCREMENT CPU SLICE ACCUMULATOR
03294 M01S00406.271l750 +++| LX4 -18
03295 M01S00407.271l750 +++| SX1 6 SET TO CLEAR NORMAL SLICE AND RECALL FLAGS
03296 M01S00408.271l750 +++| SX6 X4 RECALL CPU SLICE ACCUMULATOR
03297 M01S00409.271l750 +++| IX7 X4-X6 CLEAR RECALL CPU SLICE ACCUMULATOR
03298 M01S00410.271l750 +++| LE B3,B0,BNJ8 IF *W* STATUS NOT SET
03299 M01S00411.271l750 +++| LX2 -18
03300 M01S00412.271l750 +++| SX1 X2+ RECALL CPU SLICE LIMIT
03301 M01S00413.271l750 +++| LX2 -18
03302 M01S00414.271l750 +++| PL X3,BNJ7 IF RECALL CPU SLICE NOT ACTIVE
03303 M01S00415.271l750 +++| IX6 X6+X0
03304 M01S00416.271l750 +++| IX6 X6-X1
03305 M01S00417.271l750 +++| PL X6,BNJ7 IF NO TIME REMAINING IN RECALL CPU SLICE
03306 M01S00418.271l750 +++| IX7 X4+X0 INCREMENT RECALL CPU SLICE ACCUMULATOR
03307 M01S00419.271l750 +++| SX1 B0 SET TO PRESERVE ALL FLAGS
03308 M01S00420.271l750 +++| EQ BNJ8 UPDATE ACCUMULATORS AND FLAGS
03309 M01S00421.271l750 +++|
03310 M01S00422.271l750 +++| BNJ7 SX2 X2 CPU SLICE RECALL EXTENSION
03311 M01S00423.271l750 +++| IX2 X2+X5 CHECK TIME LEFT IN UNEXTENDED CPU SLICE
03312 M01S00424.271l750 +++| MX1 1
03313 M01S00425.271l750 +++| BX2 -X2
03314 M01S00426.271l750 +++| BX1 X1*X2 SET TO CLEAR SLICE ACTIVE IF LIMIT
03315 M01S00427.271l750 +++| LX1 2-59
03316 M01S00428.271l750 +++| SX1 X1+2 SET TO CLEAR RECALL FLAG
03317 M01S00429.271l750 +++|
03318 M01S00430.271l750 +++|* WRITE ACCUMULATORS AND UPDATE CPU SCHEDULING FLAGS.
03319 M01S00431.271l750 +++|
03320 M01S00432.271l750 +++| BNJ8 LX7 18 RESTORE *CSAW*
03321 M01S00433.271l750 +++| LX1 58
03322 M01S00434.271l750 +++| SA7 A4 UPDATE CPU SLICE ACCUMULATORS
03323 M01S00435.271l750 +++| BX3 -X1*X3 CLEAR SELECTED SCHEDULING FLAGS
03324 M01S00436.271l750 +++| SX1 B5
03325 M01S00437.271l750 +++| SX6 B1
03326 M01S00438.271l750 +++| AX1 1
03327 M01S00439.271l750 +++| LX6 57-0
03328 M01S00440.271l750 +++| SX1 X1+B1 (X1) = 0 IF *W* OR *X* STATUS
03329 M01S00441.271l750 +++| BX3 X3+X6 SET DRIVER RECALL NOT REQUIRED
03330 M01S00442.271l750 +++| NZ X1,BNJ9 IF NOT *W* OR *X* STATUS
03331 M01S00443.271l750 +++| NG X3,BNJ9 IF *W* STATUS WITH RECALL
03332 M01S00444.271l750 +++| BX3 -X6*X3 CLEAR DRIVER RECALL NOT REQUIRED
03333 M01S00445.271l750 +++|
03334 M01S00446.271l750 +++|* INITIALIZE TO RESET *WQ* LINKAGE.
03335 M01S00447.271l750 +++|
03336 M01S00448.271l750 +++| BNJ9 MX6 42
03337 M01S00449.271l750 +++| LX3 48-59 RESTORE *CWQW*
03338 M01S00450.271l750 +++| SX1 B0+
03339 M01S00451.271l750 +++| LE B3,B0,BNJ14 IF *W* STATUS NOT SET
03340 M01S00452.271l750 +++| SA2 WQRL
03341 M01S00453.271l750 +++| UX0,B4 X3 OLD JOB CPU PRIORITY AND FLAGS
03342 M01S00454.271l750 +++| BX4 X3
03343 M01S00455.271l750 +++| LX4 59-49
03344 M01S00456.271l750 +++| SX7 A3+ OLD JOB *CWQW* ADDRESS
03345 M01S00457.271l750 +++| PL X4,BNJ11 IF CPU SLICE INACTIVE
03346 M01S00458.271l750 +++|
03347 M01S00459.271l750 +++|* INSERT OLD JOB IN *WQ* AS FIRST AT PRIORITY.
03348 M01S00460.271l750 +++|* LOOP REPLICATED FOR PERFORMANCE.
03349 M01S00461.271l750 +++|
03350 M01S00462.271l750 +++| BNJ10 SA4 X2
03351 M01S00463.271l750 +++| UX0,B5 X4
03352 M01S00464.271l750 +++| GE B4,B5,BNJ13 IF POSITION FOUND
03353 M01S00465.271l750 +++| SA2 X4
03354 M01S00466.271l750 +++| UX0,B5 X2
03355 M01S00467.271l750 +++| LT B4,B5,BNJ10 IF POSITION NOT FOUND
03356 M01S00468.271l750 +++| EQ BNJ12 SET *WQ* LINKAGE
03357 M01S00469.271l750 +++|
03358 M01S00470.271l750 +++|* INSERT OLD JOB IN *WQ* AS LAST AT PRIORITY.
03359 M01S00471.271l750 +++|* LOOP REPLICATED FOR PERFORMANCE.
03360 M01S00472.271l750 +++|
03361 M01S00473.271l750 +++| BNJ11 SA4 X2
03362 M01S00474.271l750 +++| UX0,B5 X4
03363 M01S00475.271l750 +++| GT B4,B5,BNJ13 IF POSITION FOUND
03364 M01S00476.271l750 +++| SA2 X4
03365 M01S00477.271l750 +++| UX0,B5 X2
03366 M01S00478.271l750 +++| LE B4,B5,BNJ11 IF POSITION NOT FOUND
03367 M01S00479.271l750 +++|
03368 M01S00480.271l750 +++|* SET LINKAGE FOR JOB INSERTED IN *WQ*.
03369 M01S00481.271l750 +++|
03370 M01S00482.271l750 +++| BNJ12 BX1 X6*X4 CLEAR LINK
03371 M01S00483.271l750 +++| BX7 X1+X7 MERGE NEW LINK
03372 M01S00484.271l750 +++| SX1 A2 SET LINK TO NEXT ENTRY
03373 M01S00485.271l750 +++| SA7 A4
03374 M01S00486.271l750 +++| EQ BNJ14 UPDATE LINK
03375 M01S00487.271l750 +++|
03376 M01S00488.271l750 +++| BNJ13 BX1 X6*X2 CLEAR LINK
03377 M01S00489.271l750 +++| BX7 X1+X7 MERGE NEW LINK
03378 M01S00490.271l750 +++| SX1 A4 SET LINK TO NEXT ENTRY
03379 M01S00491.271l750 +++| SA7 A2
03380 M01S00492.271l750 +++|
03381 M01S00493.271l750 +++|* UPDATE OLD JOB PRIORITY FLAGS AND *WQ* LINKAGE.
03382 M01S00494.271l750 +++|
03383 M01S00495.271l750 +++| BNJ14 BX3 X6*X3
03384 M01S00496.271l750 +++| BX7 X3+X1 MERGE LINK
03385 M01S00497.271l750 +++| SA7 A3+ UPDATE *CWQW*
03386 M01S00498.271l750 +++|
03387 M01S00499.271l750 +++|* SELECT NEW JOB, UPDATE *WQ* POINTER, AND ADVANCE CPU SERVICE
03388 M01S00500.271l750 +++|* CYCLE IF JOB WITH INACTIVE CPU SLICE SELECTED.
03389 M01S00501.271l750 +++|
03390 M01S00502.271l750 +++| BNJ15 SA1 WQRL SELECT NEXT JOB
03391 M00S01950.cpumtr +++|* EQ /DCP/BNJ (DUAL CPU MACHINE)
Line S01951 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03392 M01S01951.271l750 ---| MX3 -18
03393 M01S01952.271l750 ---| SA4 X2
03394 M01S01953.271l750 ---| NO
03395 M01S01954.271l750 ---| BX6 -X3*X4
03396 M01S01955.271l750 ---| SA6 A2+
03397 M01S01956.271l750 ---| BNJ5 SX7 A0+ACPS+WCPS SET ACTIVE STATUS
Line S01957 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03398 M02S01957.271l750 ---| SA1 A4+STSW-JCIW
03399 M02S01958.271l750 ---| SX3 B1
03400 M02S01959.271l750 ---| LX7 -3
03401 M02S01960.271l750 ---| SA2 A4+B1 READ CPU CONTROL
03402 M02S01961.271l750 ---| ERRNZ CRCW-JCIW-1
Line S00028 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03403 M02S00028.271l750 ---| SA1 A4+STSW-JCIW
03404 M02S00029.271l750 ---| SX3 B1
Line S00503 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03405 M01S00503.271l750 +++| SA3 X1 GET *CWQW* ENTRY
03406 M01S00504.271l750 +++| UX0,B4 X3 UNPACK PRIORITY
03407 M01S00505.271l750 +++| ZR B4,BNJ15 IF NOT VALID *WQ* FIRST ENTRY
03408 M01S00506.271l750 +++| BX7 X6*X3 CLEAR *WQ* LINK
03409 M01S00507.271l750 +++| BX6 -X6*X3 EXTRACT *WQ* LINK
03410 M01S00508.271l750 +++| SA7 A3
03411 M01S00509.271l750 +++| SA6 A1 UPDATE *WQ* POINTER
03412 M01S00510.271l750 +++| BX3 X7
03413 M01S00511.271l750 +++| LX7 59-49
03414 M01S00512.271l750 +++| NG X7,BNJ16 IF ACTIVE CPU SLICE
03415 M01S00513.271l750 +++| SB3 BNJ16 SET *ACS* RETURN ADDRESS
03416 M01S00514.271l750 +++| BX1 X6
03417 M01S00515.271l750 +++| EQ ACS ADVANCE CPU SERVICE CYCLE
03418 M01S00516.271l750 +++|
03419 M01S00517.271l750 +++|* SET ACTIVE CPU STATUS AND CLEAR *MTR* BYPASS FLAG FOR JOB
03420 M01S00518.271l750 +++|* WITH CPU SWITCH REQUEST. THE SWITCH REQUEST MAY HAVE BEEN
03421 M01S00519.271l750 +++|* FOR A JOB OTHER THAN THE SELECTED NEW JOB.
03422 M01S00520.271l750 +++|
03423 M01S00521.271l750 +++| BNJ16 SA1 A3+STSW-CWQW GET CPU STATUS
03424 M01S00522.271l750 +++| SA2 CSWL+A0
03425 M01S00523.271l750 +++| LX3 -27
03426 M01S00524.271l750 +++| MX6 -9
03427 M01S00525.271l750 +++| SX7 A0+ACPS+WCPS
03428 M01S00526.271l750 +++| MX5 -3
03429 M01S00527.271l750 +++| BX6 -X6*X3 SERVICE PARAMETERS INDEX
03430 M01S00528.271l750 +++| LX3 9
Line S00030 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
03431 M01S00030.271l716 +++| LX7 -3
Line S00031 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03432 M02S00031.271l750 ---| SA2 A4+B1
03433 M02S00032.271l750 ---| ERRNZ CRCW-JCIW-1 CODE DEPENDS ON VALUE
Line S01962 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03434 M02S01962.271l750 ---| LX3 48
Line S00033 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03435 M02S00033.271l750 ---| LX3 55
Line S01963 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03436 M01S01963.271l750 ---| BX7 X1-X7
Line S00529 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03437 M01S00529.271l750 +++| BX5 -X5*X3 EXCHANGE PACKAGE TYPE
03438 M01S00530.271l750 +++| BX7 X1-X7 SET ACTIVE STATUS
03439 M01S00531.271l750 +++| LX2 -36
Line S01964 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03440 M01S01964.271l716 ---| SA7 A1 UPDATE CPU STATUS
03441 M01S01965.271l716 ---| BX7 X3*X4 EXTRACT RECALL FLAG
03442 M01S01966.271l716 ---| BX6 -X3*X4 CLEAR RECALL FLAG
03443 M01S01967.271l716 ---| LX3 -10
03444 M01S01968.271l716 ---| BX6 -X3*X6 CLEAR INTERLOCK FLAG
03445 M01S01969.271l716 ---| SA6 A4 UPDATE JCIW
03446 M01S01970.271l716 ---| UX0,B5 X6 EXTRACT CPU PRIORITY
03447 M01S01971.271l716 ---| SA3 RTCL SET TIME SLICE CONTROL
03448 M01S01972.271l716 ---| SA4 MSCL
03449 M01S01973.271l716 ---| MX0 -36
03450 M01S01974.271l716 ---| MX5 -12
03451 M01S01975.271l716 ---| BX3 -X0*X3
03452 M01S01976.271l716 ---| BX6 -X5*X4 EXTRACT MINIMUM TIME SLICE
03453 M01S01977.271l716 ---| AX4 12
03454 M01S01978.271l716 ---| MX1 12
03455 M01S01979.271l716 ---| BX4 -X5*X4 EXTRACT MAXIMUM TIME SLICE
03456 M01S01980.271l716 ---| ZR X7,BNJ6 IF NOT RECALL REQUEST OF CPU
Line S01981 Modification History
M01 (Removed by) cpumt99
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03457 M02S01981.271l716 ---| BX1 X1*X2 EXTRACT RECALL ACCUMULATOR
03458 M02S01982.271l716 ---| LX1 12
03459 M02S01983.271l716 ---| IX4 X4-X1
03460 M02S01984.271l716 ---| ZR X1,BNJ6 IF INTERRUPTED REQUEST OF CPU
03461 M02S01985.271l716 ---| BX4 X6 USE MINIMUM TIME SLICE FOR MAXIMUM
Line S00001 Modification History
M01 (Added by) cpumt99
M02 (Removed by) cpum99a
M03 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03462 M03S00001.271l716 ---| BX4 X1*X2 EXTRACT REMAINING SLICE TIME
03463 M03S00002.271l716 ---| LX4 12
Line S00001 Modification History
M01 (Added by) cpum99a
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03464 M02S00001.271l716 ---| BX7 X1*X2 EXTRACT REMAINING SLICE TIME
03465 M02S00002.271l716 ---| LX7 12
03466 M02S00003.271l716 ---| ZR X7,BNJ6 IF NO REMAINING TIME
03467 M02S00004.271l716 ---| SX4 X7+
Line S01986 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03468 M01S01986.271l716 ---| BNJ6 IX7 X4+X3
03469 M01S01987.271l716 ---| PX3 X3,B5 INSERT CPU PRIORITY
03470 M01S01988.271l716 ---| SA7 CSWL+A0 SET CPU SWITCH CONTROL
03471 M01S01989.271l716 ---| IX6 X6+X3
03472 M01S01990.271l716 ---| SA6 TSCL+A0 SET TIME SLICE CONTROL
Line S01991 Modification History
M01 (Removed by) cpumt57
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03473 M02S01991.271l716 ---| SA3 X2+B1 READ RA
Line S01992 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03474 M01S01992.271l716 ---| LX2 -24
03475 M01S01993.271l716 ---| SA1 X2+TFSW GET JOB SEQUENCE NUMBER FOR NEW JOB
03476 M01S01994.271l716 ---| MX7 12
03477 M01S01995.271l716 ---| BX7 X7*X1
03478 M01S01996.271l716 ---| LX7 12
Line S01997 Modification History
M01 (Removed by) 261l700
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03479 M02S01997.271l716 ---| SX1 EJTE
03480 M02S01998.271l716 ---| IX1 X1*X7
Line S00001 Modification History
M01 (Added by) 261l700
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03481 M02S00001.271l716 ---| CX1 X7,EJT CONVERT EJT ORDINAL TO OFFSET
Line S01999 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03482 M01S01999.271l716 ---| LX2 24
03483 M01S02000.271l716 ---| TA1 X1+JSNE,EJT
03484 M01S02001.271l716 ---| MX7 24
03485 M01S02002.271l716 ---| BX6 X7*X1
Line S00034 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
03486 M01S00034.271l716 +++| SA7 A1 UPDATE CPU STATUS
Line S00035 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03487 M02S00035.271l750 ---| BX6 X4
03488 M02S00036.271l750 ---| BX0 X4
03489 M02S00037.271l750 ---| LX0 59-54
03490 M02S00038.271l750 ---| ERRNZ MPRS-100B CODE DEPENDS ON VALUE
03491 M02S00039.271l750 ---| NG X0,BNJ6 IF SYSTEM PRIORITY
03492 M02S00040.271l750 ---| BX6 -X3*X4 CLEAR RECALL FLAG
03493 M02S00041.271l750 ---| BNJ6 LX2 -24
03494 M02S00042.271l750 ---| LX3 38-55
03495 M02S00043.271l750 ---| SA1 X2+TFSW GET EJT ORDINAL
03496 M02S00044.271l750 ---| BX6 -X3*X6 CLEAR INTERLOCK
03497 M02S00045.271l750 ---| LX2 24
03498 M02S00046.271l750 ---| SA6 A4+ UPDATE *JCIW*
03499 M02S00047.271l750 ---| MX5 12
03500 M02S00048.271l750 ---| SA3 RTCL READ REAL TIME CLOCK
03501 M02S00049.271l750 ---| BX6 X4 PRESERVE RECALL FLAG
03502 M02S00050.271l750 ---| BX4 X5*X1 EJT ORDINAL
03503 M02S00051.271l750 ---| MX0 -36
03504 M02S00052.271l750 ---| LX4 -48
03505 M02S00053.271l750 ---| CX1 X4,EJT CONVERT EJT ORDINAL TO OFFSET
03506 M02S00054.271l750 ---| MX7 6
03507 M02S00055.271l750 ---| TA1 X1+JSNE,EJT GET JSN
03508 M02S00056.271l750 ---| BX3 -X0*X3 REAL TIME
03509 M02S00057.271l750 ---| BX6 X5*X6 CPU PRIORITY FROM *JCIW*
03510 M02S00058.271l750 ---| SA4 A1+SCLE-JSNE GET SERVICE CLASS
03511 M02S00059.271l750 ---| BX4 X7*X4 SERVICE CLASS
03512 M02S00060.271l750 ---| LX4 -54+3
03513 M02S00061.271l750 ---| ERRNZ JCBE-10B CODE DEPENDS ON VALUE
03514 M02S00062.271l750 ---| TA4 X4+MECT,JBC GET CPU SLICE
03515 M02S00063.271l750 ---| BX4 X5*X4 CPU SLICE
03516 M02S00064.271l750 ---| LX4 -48
03517 M02S00065.271l750 ---| IX7 X4+X3 COMPUTE CPU SWITCH TIME
03518 M02S00066.271l750 ---| SA7 CSWL+A0
03519 M02S00067.271l750 ---| LX4 36
03520 M02S00068.271l750 ---| BX6 X6+X4 MERGE PRIORITY AND SLICE
03521 M02S00069.271l750 ---| SA6 TSCL+A0
03522 M02S00070.271l750 ---| BX6 X0*X1 JSN
Line S02003 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03523 M01S02003.271l750 ---| SA4 CPJL+A0
Line S00071 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03524 M02S00071.271l750 ---| SA1 CPAL+A0
Line S02004 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03525 M02S02004.271l750 ---| SA1 CPAL+A0
03526 M02S02005.271l750 ---| BX7 -X7*X4
Line S00072 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03527 M02S00072.271l750 ---| BX7 -X0*X4
Line S02006 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03528 M01S02006.271l750 ---| BX7 X7+X6
Line S02007 Modification History
M01 (Removed by) cpumt57
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03529 M02S02007.271l750 ---| SA7 A4+
03530 M02S02008.271l750 ---| BX6 X0*X3
Line S00001 Modification History
M01 (Added by) cpumt57
M02 (Removed by) 271l716
M03 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03531 M03S00001.271l750 ---| SA7 A4
Line S00073 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03532 M02S00073.271l750 ---| SA7 A4+ STORE NEW EXECUTING JSN
Line S00002 Modification History
M01 (Added by) cpumt57
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03533 M02S00002.271l750 ---| MX7 -24
03534 M02S00003.271l750 ---| BX3 -X7*X2 NEW EXCHANGE PACKAGE ADDRESS
03535 M02S00004.271l750 ---| BX6 -X7*X1 OLD EXCHANGE PACKAGE ADDRESS
03536 M02S00005.271l750 ---| IX6 X3-X6
03537 M02S00006.271l750 ---| SX7 /MONITOR/MXP
Line S00007 Modification History
M01 (Added by) cpumt57
M02 (Removed by) 271l716
M03 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03538 M03S00007.271l750 ---| SX3 B2
Line S00074 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03539 M02S00074.271l750 ---| SX3 B2
Line S00008 Modification History
M01 (Added by) cpumt57
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03540 M02S00008.271l750 ---| IX7 X3-X7
Line S00009 Modification History
M01 (Added by) cpumt57
M02 (Removed by) 271l716
M03 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03541 M03S00009.271l750 ---| SA3 X2+B1 READ RA
Line S00075 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03542 M02S00075.271l750 ---| SA3 X2+1 READ RA
Line S00010 Modification History
M01 (Added by) cpumt57
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03543 M02S00010.271l750 ---| NZ X7,BNJ6.1 IF NOT THE *MTR* EXCHANGE PACKAGE
03544 M02S00011.271l750 ---| NZ X6,BNJ6.1 IF CORRECT RA AT NEW ADDRESS
03545 M02S00012.271l750 ---| SA3 B2+1
03546 M02S00013.271l750 ---| BNJ6.1 BX6 X0*X3
Line S02009 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03547 M01S02009.271l750 ---| MX7 -48
03548 M01S02010.271l750 ---| BX7 -X7*X2
Line S00532 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03549 M01S00532.271l750 +++| SX2 X2
03550 M01S00533.271l750 +++| ZR X2,BNJ17 IF NO *WQ* ENTRY WITH *MTR* BYPASS SET
03551 M01S00534.271l750 +++| SA2 X2 GET *WQ* ENTRY WITH BYPASS FLAG
03552 M01S00535.271l750 +++| SX7 B1
03553 M01S00536.271l750 +++| LX7 26-0
03554 M01S00537.271l750 +++| BX7 -X7*X2 CLEAR *MTR* BYPASS FLAG
03555 M01S00538.271l750 +++| SA7 A2
03556 M01S00539.271l750 +++|
03557 M01S00540.271l750 +++|* SET CPU SCHEDULING CMR POINTERS.
03558 M01S00541.271l750 +++|
03559 M01S00542.271l750 +++| BNJ17 SA4 A3+CSAW-CWQW GET *CSAW* ACCUMULATORS
03560 M01S00543.271l750 +++| SA1 RTCL
03561 M01S00544.271l750 +++| TA2 X6+CSJT,JCB GET CPU SCHEDULING SERVICE PARAMETERS
03562 M01S00545.271l750 +++| SA3 BNJA
03563 M01S00546.271l750 +++| MX6 -36
03564 M01S00547.271l750 +++| MX7 -12
03565 M01S00548.271l750 +++| SX0 X4+ CPU SLICE ACCUMULATOR
03566 M01S00549.271l750 +++| BX1 -X6*X1 REAL TIME MILLISECOND CLOCK
03567 M01S00550.271l750 +++| PX0 X0
03568 M01S00551.271l750 +++| BX6 -X7*X2 CPU SLICE LIMIT
Line S00552 Modification History
M01 (Added by) 271l750
M02 (Removed by) cpum224
Seq # *Modification Id* Act
----------------------------+
03569 M02S00552.cpum224 ---| FX0 X0*X3
Line S00002 Modification History
M01 (Added by) cpum224
Seq # *Modification Id* Act
----------------------------+
03570 M01S00002.cpum224 +++| NO (NON - CME MACHINE)
03571 M01S00003.cpum224 +++| SAC 15,40003B,CME,46000B
03572 M01S00004.cpum224 +++|* FX0 X0*X3 (CME MACHINE)
Line S00553 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03573 M01S00553.271l750 +++| LX2 -12
03574 M01S00554.271l750 +++| UX0 X0
03575 M01S00555.271l750 +++| BX2 -X7*X2 RECALL SLICE LIMIT
03576 M01S00556.271l750 +++| IX6 X6-X0 TIME REMAINING IN CPU SLICE
03577 M01S00557.271l750 +++| IX3 X1+X2 MILLISECOND CLOCK AT END OF RECALL SLICE
03578 M01S00558.271l750 +++| IX0 X6-X2
03579 M01S00559.271l750 +++| IX6 X1+X6 MILLISECOND CLOCK AT END OF CPU SLICE
03580 M01S00560.271l750 +++| PX7 B4,X3 MERGE CPU PRIORITY AND RECALL SLICE LIMIT
03581 M01S00561.271l750 +++| PL X0,BNJ18 IF .GE. RECALL SLICE IN UNEXTENDED SLICE
03582 M01S00562.271l750 +++| BX6 X3 SET TO SWITCH CPU AT END OF RECALL SLICE
03583 M01S00563.271l750 +++| BNJ18 SA6 CSWL+A0 SET CPU SWITCH CONTROL
03584 M01S00564.271l750 +++| SA7 TSCL+A0 SET PRIORITY AND RECALL SLICE LIMIT
03585 M01S00565.271l750 +++|
03586 M01S00566.271l750 +++|* SET CPU PROGRAM CONTROL CMR POINTERS. NOTE THAT THE OLD
03587 M01S00567.271l750 +++|* EXCHANGE PACKAGE ADDRESS IN *CPAL* IS THE ADDRESS IN THE
03588 M01S00568.271l750 +++|* JOB-S FIELD LENGTH TO WHICH THE SUB-CONTROL POINT EXCHANGE
03589 M01S00569.271l750 +++|* PACKAGE WILL BE COPIED IF A SUB-CONTROL POINT WAS ACTIVE.
03590 M01S00570.271l750 +++|* EXIT IS MADE TO *MTRX* WITHOUT UPDATING *CPAL* AND *ACPL* IF
03591 M01S00571.271l750 +++|* THE OLD AND NEW JOBS ARE THE SAME TO AVOID THE OVERHEAD OF
03592 M01S00572.271l750 +++|* AN EXCHANGE PACKAGE COPY AND BECAUSE THE RA VALUE READ FROM
03593 M01S00573.271l750 +++|* THE NEW EXCHANGE PACKAGE AREA WILL NOT BE CORRECT IF MONITOR
03594 M01S00574.271l750 +++|* MODE WAS ENTERED FROM A PP EXCHANGE.
03595 M01S00575.271l750 +++|
03596 M01S00576.271l750 +++| SA2 CPAL+A0
03597 M01S00577.271l750 +++| SX1 A4-CSAW NEW JOB EXCHANGE PACKAGE ADDRESS
03598 M01S00578.271l750 +++| LX5 42
03599 M01S00579.271l750 +++| SA3 X1+B1 READ RA
03600 M01S00580.271l750 +++| BX7 X1+X5 SET NEW EXCHANGE PACKAGE ADDRESS AND TYPE
03601 M01S00581.271l750 +++| SX4 X1
03602 M01S00582.271l750 +++| ZR X5,BNJ19 IF CONTROL POINT EXCHANGE PACKAGE
03603 M01S00583.271l750 +++| TX4 SCA SET SYSTEM CONTROL POINT ADDRESS
03604 M01S00584.271l750 +++| BNJ19 MX0 -24
03605 M01S00585.271l750 +++| SB7 X4 NEW CONTROL POINT ADDRESS
03606 M01S00586.271l750 +++| MX6 24
03607 M01S00587.271l750 +++| LX4 24
03608 M01S00588.271l750 +++| BX2 -X0*X2 OLD JOB EXCHANGE PACKAGE ADDRESS
03609 M01S00589.271l750 +++| BX6 X6*X3 NEW JOB RA
03610 M01S00590.271l750 +++| IX0 X1-X2
03611 M01S00591.271l750 +++| BX7 X7+X4 MERGE CONTROL POINT ADDRESS
03612 M01S00592.271l750 +++| ZR X0,MTRX IF RESTARTING OLD JOB
03613 M00S02011.cpumtr +++| SA6 ACPL+A0 SET RA FOR *MTR* RA+1 CHECK
Line S02012 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03614 M01S02012.271l716 ---| SA7 A1 SET ACCOUNTING CONTROL
Line S00076 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03615 M02S00076.271l750 ---| SA7 A1+ SET ACCOUNTING CONTROL
Line S00593 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03616 M01S00593.271l750 +++| SA7 CPAL+A0 SET EXCHANGE PACKAGE POINTERS
03617 M01S00594.271l750 +++| SX3 B2+ OLD EXCHANGE ADDRESS
03618 M01S00595.271l750 +++| SB2 X1 NEW EXCHANGE ADDRESS
03619 M01S00596.271l750 +++| IX1 X3-X2 EXCHANGE PACKAGE MOVE DIFFERENTIAL
03620 M01S00597.271l750 +++| TNO /NVE/SVS,NVE
03621 M00S02013.cpumtr +++|
Line S02014 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03622 M01S02014.271l750 ---|* ENTERED HERE FROM *XJR* AND *ESC*.
03623 M01S02015.271l750 ---|* (X1) = (CPAL+A0) = ACCOUNTING CONTROL FOR ACTIVE JOB.
03624 M01S02016.271l750 ---|* (X2) = *CRCW* FOR NEW JOB.
Line S00598 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03625 M01S00598.271l750 +++|* COPY EXCHANGE PACKAGE.
03626 M01S00599.271l750 +++|* ENTRY FROM *XJP* AND *ESC*.
03627 M01S00600.271l750 +++|* RETURN FROM */NVE/SVS*.
03628 M01S00601.271l750 +++|* (B2) = NEW PROGRAM MODE EXCHANGE PACKAGE ADDRESS.
03629 M01S00602.271l750 +++|* (X1) = EXCHANGE PACKAGE MOVE DIFFERENTIAL.
03630 M01S00603.271l750 +++|* (X3) = ADDRESS OF EXCHANGE PACKAGE FOR COPY.
03631 M00S02017.cpumtr +++|
Line S02018 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03632 M01S02018.271l750 ---| BNJ7 MX0 -24
Line S02019 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03633 M02S02019.271l750 ---| SX3 B2 EXCHANGE ADDRESS
Line S00077 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03634 M02S00077.271l750 ---| SX3 B2+ EXCHANGE ADDRESS
Line S02020 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03635 M01S02020.271l750 ---| BX4 -X0*X1 OLD ACTIVE EXCHANGE ADDRESS
03636 M01S02021.271l750 ---| SB2 X2 NEW EXCHANGE PACKAGE ADDRESS
03637 M01S02022.271l750 ---| IX1 X3-X4 EXCHANGE PACKAGE MOVE DIFFERENTIAL
03638 M01S02023.271l750 ---| AX2 24
03639 M01S02024.271l750 ---| IX3 X1+X4 OLD EXCHANGE ADDRESS
Line S02025 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03640 M02S02025.271l750 ---| SB7 X2 NEW CP ADDRESS
Line S00078 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03641 M02S00078.271l750 ---| SB7 X2+ NEW CP ADDRESS
Line S02026 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03642 M01S02026.271l750 ---| TNO /NVE/SVS,NVE
03643 M01S02027.271l750 ---| BNJ8 ZR X1,MTR IF NO EXCHANGE PACKAGE COPY
03644 M01S02028.271l750 ---|
03645 M01S02029.271l750 ---|* COPY EXCHANGE PACKAGE.
03646 M01S02030.271l750 ---|
Line S00604 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03647 M01S00604.271l750 +++| BNJ20 ZR X1,MTR IF NO EXCHANGE PACKAGE COPY
03648 M00S02031.cpumtr +++| TX2 MCMS SET MACHINE FIELD LENGTH
03649 M00S02032.cpumtr +++| SB4 20B (B4) = LENGTH OF MOVE
03650 M00S02033.cpumtr +++| LX2 36+6
03651 M00S02034.cpumtr +++| BX0 X3 FWA OF EXCHANGE COPY
Line S02035 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03652 M01S02035.271l750 ---| SB6 BNJ9 *MSM* *MSR* RETURN ADDRESS
Line S00605 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03653 M01S00605.271l750 +++| SB6 BNJ21 *MSM* *MSR* RETURN ADDRESS
Line S02036 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03654 M01S02036.253l688 ---| TJMP /CME/MSR,CME,/MONITOR/MSM,CMUMTR,/MONITOR/MSR
Line S00432 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03655 M01S00432.253l688 +++| TJP (/CME/MSR,CME,/MONITOR/MSM,CMUMTR,/MONITOR/MSR)
Line S02037 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03656 M01S02037.271l750 ---|
03657 M01S02038.271l750 ---| BNJ9 SX6 B1 RA = 0, B1 = 1
Line S00606 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03658 M01S00606.271l750 +++| BNJ21 SX6 B1 RA = 0, B1 = 1
03659 M00S02039.cpumtr +++| BX7 X2+X3 FL, B2
03660 M00S02040.cpumtr +++| SA6 X3+B1
03661 M00S02041.cpumtr +++| SX4 A5 MERGE FLS AND (A5)
03662 M00S02042.cpumtr +++| TX6 XPFE
03663 M00S02043.cpumtr +++| LX4 18
03664 M00S02044.cpumtr +++| SA7 A6+B1
03665 M00S02045.cpumtr +++| LX6 48
03666 M00S02046.cpumtr +++| TX1 MECS SET MACHINE FLX
Line S00095 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
03667 M01S00095.252l678 +++| TLX1 (6,ESM170,0)
03668 M01S00096.252l678 +++| TX2 MECNF
03669 M01S00097.252l678 +++| BX1 X1+X2
03670 M00S02047.cpumtr +++| SA6 A7+B1
Line S02048 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
03671 M01S02048.252l678 ---| LX1 36+9
Line S00098 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
03672 M01S00098.252l678 +++| TLX1 (36+3,ESM170,36+9)
03673 M00S02049.cpumtr +++| TX6 RAEX SET RAE BASE ADDRESS
Line S02050 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
03674 M01S02050.252l678 ---| LX6 36+9
Line S00099 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
03675 M01S00099.252l678 +++| TLX6 (36+3,ESM170,36+9)
03676 M00S02051.cpumtr +++| BX7 X1+X4
03677 M00S02052.cpumtr +++| SA6 A6+B1 (RAX)=0
03678 M00S02053.cpumtr +++| SA7 A6+B1 FLX, A5
03679 M00S02054.cpumtr +++| BX6 X6-X6
03680 M00S02055.cpumtr +++| SA6 A7+B1 (MA) = 0
Line S02056 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
03681 M01S02056.252l678 ---| TEQ (/MONITOR/BNJ10,/MONITOR/MTR,CP176)
Line S00100 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03682 M02S00100.271l750 ---| TEQ (/MONITOR/BNJ10,CP176,/MONITOR/MTR)
Line S00607 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03683 M01S00607.271l750 +++| TEQ (/MONITOR/BNJ30,CP176,/MONITOR/MTR)
03684 M01S00608.271l750 +++|
03685 M01S00609.271l750 +++|
03686 M01S00610.271l750 +++| BNJA CON 0.064P48+1 MICROSECONDS/64 TO MILLISECONDS CONVERSION
Line S00611 Modification History
M01 (Added by) 271l750
M02 (Removed by) cpum224
Seq # *Modification Id* Act
----------------------------+
03687 M02S00611.cpum224 ---|* CON 1.P (ACCUMULATOR IN MILLISECONDS)
03688 M00S02057.cpumtr +++| CAL SPACE 4,15
03689 M00S02058.cpumtr +++|** CAL - CHECK ACTIVITY LIMIT.
03690 M00S02059.cpumtr +++|*
03691 M00S02060.cpumtr +++|* *CAL* ADDS UP THE ACTIVITY ON THE CONTROL POINT
03692 M00S02061.cpumtr +++|* (PP-S ACTIVE, TAPE ACTIVITY, AND PP-S IN RECALL),
03693 M00S02062.cpumtr +++|* AND CHECKS TO SEE IF THEY EXCEED THE ALLOWED LIMIT.
03694 M00S02063.cpumtr +++|* IF THE CONTROL POINT IS THE SYSTEM CONTROL POINT,
03695 M00S02064.cpumtr +++|* PP-S ACTIVE ARE NOT INCLUDED IN THE SUM.
03696 M00S02065.cpumtr +++|*
03697 M00S02066.cpumtr +++|* ENTRY (B3) = RETURN ADDRESS IF ACTIVITY LIMIT.
03698 M00S02067.cpumtr +++|* (B6) = RETURN ADDRESS IF NO LIMIT.
03699 M00S02068.cpumtr +++|*
03700 M00S02069.cpumtr +++|* USES X - 2, 3, 4.
03701 M00S02070.cpumtr +++|* B - 5.
03702 M00S02071.cpumtr +++|* A - 2.
03703 M00S02072.cpumtr +++|
03704 M00S02073.cpumtr +++|
03705 M00S02074.cpumtr +++| CAL SA2 B7+STSW GET CONTROL POINT STATUS
03706 M00S02075.cpumtr +++| MX3 -4
03707 M00S02076.cpumtr +++| LX2 -4
03708 M00S02077.cpumtr +++| BX4 -X3*X2 PP RECALL, TAPE ACTIVITY
Line S02078 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
03709 M01S02078.242l642 ---| LX2 -48+4
03710 M01S02079.242l642 ---| BX2 -X3*X2 PP-S ACTIVE
03711 M01S02080.242l642 ---| TB5 B7,-SCA
03712 M01S02081.242l642 ---| NZ B5,CAL1 IF NOT SYSTEM CONTROL POINT
03713 M01S02082.242l642 ---| SX2 B0 DO NOT INCLUDE PP-S ACTIVE
03714 M01S02083.242l642 ---| CAL1 IX2 X2+X4 TOTAL
03715 M01S02084.242l642 ---| SX2 X2-NPPCP
Line S00011 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
03716 M01S00011.242l642 +++| TB5 B7,-SCA
03717 M01S00012.242l642 +++| LX2 4-48
03718 M01S00013.242l642 +++| ZR B5,CAL1 IF SYSTEM CONTROL POINT
03719 M01S00014.242l642 +++| BX2 -X3*X2
03720 M01S00015.242l642 +++| IX4 X2+X4 INCLUDE PP ACTIVITY COUNT
03721 M01S00016.242l642 +++| CAL1 SX2 X4-NPPCP
03722 M00S02085.cpumtr +++| PL X2,RB3 IF ACTIVITY LIMIT
03723 M00S02086.cpumtr +++| JP B6 RETURN
03724 M00S02087.cpumtr +++| CIA SPACE 4,20
03725 M00S02088.cpumtr +++|** CIA - CHECK *IAF* ACCESSIBILITY.
03726 M00S02089.cpumtr +++|*
03727 M00S02090.cpumtr +++|* *CIA* CHECKS IF *IAF* IS ACCESSIBLE BY LOOKING AT THE
03728 M00S02091.cpumtr +++|* SUBSYSTEM CONTROL POINT TABLE (SSCT). THE *IAF* STATUS WORD
03729 M00S02092.cpumtr +++|* STSW IS ALSO CHECKED FOR AN ERROR FLAG, BECAUSE IAF MUST BE
03730 M00S02093.cpumtr +++|* CONSIDERED INACCESSIBLE IF AN ERROR FLAG IS SET SO THAT *PP*S
03731 M00S02094.cpumtr +++|* AT IAF-S CONTROL POINT WILL DROP AND ALLOW *1AJ* TO PROCESS
03732 M00S02095.cpumtr +++|* THE ERROR FLAG.
03733 M00S02096.cpumtr +++|*
03734 M00S02097.cpumtr +++|* ENTRY (B3) = RETURN ADDRESS.
03735 M00S02098.cpumtr +++|*
03736 M00S02099.cpumtr +++|* EXIT (B4) = 0, IF *IAF* IS ACCESSIBLE AND NO ERROR FLAGS
03737 M00S02100.cpumtr +++|* ARE SET.
03738 M00S02101.cpumtr +++|* .NE. 0, IF *IAF* IS UNACCESSIBLE OR AN ERROR FLAG
03739 M00S02102.cpumtr +++|* IS SET.
03740 M00S02103.cpumtr +++|* (X2) = SSCT WORD.
03741 M00S02104.cpumtr +++|*
03742 M00S02105.cpumtr +++|* USES X - 0, 2, 3.
03743 M00S02106.cpumtr +++|* A - 2, 3.
03744 M00S02107.cpumtr +++|* B - 4.
03745 M00S02108.cpumtr +++|
03746 M00S02109.cpumtr +++|
03747 M00S02110.cpumtr +++| CIA SA2 SSCP GET SSCT ADDRESS
03748 M00S02111.cpumtr +++| SB4 B1 SET RETURN PARAMETER NON-ZERO
03749 M00S02112.cpumtr +++| AX2 12
03750 M00S02113.cpumtr +++| SA2 X2+ GET SUBSYSTEM CONTROL POINT TABLE ENTRY
03751 M00S02114.cpumtr +++| PL X2,RB3 IF *IAF* NOT ACCESSIBLE
03752 M00S02115.cpumtr +++| SA3 VCPT*200B+STSW CHECK FOR ERROR FLAG
03753 M00S02116.cpumtr +++| MX0 -12
03754 M00S02117.cpumtr +++| LX3 -36
03755 M00S02118.cpumtr +++| BX3 -X0*X3
03756 M00S02119.cpumtr +++| SB4 X3 INDICATE IF IAF IS ACCESSIBLE
03757 M00S02120.cpumtr +++| JP B3 RETURN
03758 M00S02121.cpumtr +++| CJS SPACE 4,20
03759 M00S02122.cpumtr +++|** CJS - CHECKS JOB STATUS FOR THE FOLLOWING ITEMS.
03760 M00S02123.cpumtr +++|*
03761 M00S02124.cpumtr +++|* MODE ERRORS, PROGRAM STOPS, TIME AND SRU LIMITS.
03762 M00S02125.cpumtr +++|*
03763 M00S02126.cpumtr +++|* ENTRY (B4) = EXIT ADDRESS.
03764 M00S02127.cpumtr +++|* (B6) = EXCHANGE PACKAGE ADDRESS TO BE CHECKED.
03765 M00S02128.cpumtr +++|* (B7) = CONTROL POINT ADDRESS.
03766 M00S02129.cpumtr +++|*
03767 M00S02130.cpumtr +++|* EXIT EXITS TO SEF IF ERRORS DETECTED.
03768 M00S02131.cpumtr +++|*
03769 M00S02132.cpumtr +++|* USES X - 2, 3, 4, 6, 7.
03770 M00S02133.cpumtr +++|* A - 2, 3, 4.
03771 M00S02134.cpumtr +++|
03772 M00S02135.cpumtr +++|
03773 M00S02136.cpumtr +++| CJS SA3 B6+B1 READ RA
03774 M00S02137.cpumtr +++| AX3 36
03775 M00S02138.cpumtr +++| SA2 B6 READ P
03776 M00S02139.cpumtr +++| SA4 A3+B1 READ FL
03777 M00S02140.cpumtr +++| AX2 36
03778 M00S02141.cpumtr +++| AX4 36
03779 M00S02142.cpumtr +++| IX7 X2+X3 RA + P
03780 M00S02143.cpumtr +++| IX6 X2-X4 P - FL
03781 M00S02144.cpumtr +++| PL X6,CJS2 IF P .GE. FL
03782 M00S02145.cpumtr +++| AX6 X2,B1
03783 M00S02146.cpumtr +++| ERX1 X7 READ RA + P
03784 M00S02147.cpumtr +++| R= X7,TLET PRESET TIME LIMIT ERROR FLAG
03785 M00S02148.cpumtr +++| ZR X6,CJS3 IF P = 0, 1
03786 M00S02149.cpumtr +++| CJS1 SA2 B7+SRUW CHECK FOR LIMITS
03787 M00S02150.cpumtr +++| MX4 6
03788 M00S02151.cpumtr +++| BX6 X4*X1
03789 M00S02152.cpumtr +++| LX1 X2,B1
03790 M00S02153.cpumtr +++| ZR X6,CJS2 IF PROGRAM STOP
03791 M00S02154.cpumtr +++| LX2 59-56
03792 M00S02155.cpumtr +++| BX4 X2+X1
03793 M00S02156.cpumtr +++| NG X4,CJS5 IF LIMIT
03794 M00S02157.cpumtr +++| SA1 B7+STSW READ CP STATUS
Line S02158 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
03795 M01S02158.252l678 ---| TJP 0,(/MONITOR/CJS7,B4,CP176)
Line S00101 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03796 M02S00101.253l688 ---| TJP 0,(/MONITOR/CJS7,CP176,B4)
Line S00433 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03797 M01S00433.253l688 +++| TJP (/MONITOR/CJS7,CP176,B4)
03798 M00S02159.cpumtr +++|
03799 M00S02160.cpumtr +++| CJS2 SX7 PSET SET PROGRAM STOP ERROR FLAG
03800 M00S02161.cpumtr +++| JP SEF
03801 M00S02162.cpumtr +++|
03802 M00S02163.cpumtr +++| CJS3 ZR X2,CJS4 IF NOT SETCORE
03803 M00S02164.cpumtr +++| NZ X1,CJS1 IF RA+1 NOT PROCESSED
03804 M00S02165.cpumtr +++| CJS4 SA4 A4+B1 CLEAR EXIT MODE BITS
03805 M00S02166.cpumtr +++| SA2 MABL CHECK MAINFRAME TYPE
03806 M00S02167.cpumtr +++| MX6 2
03807 M00S02168.cpumtr +++| ERX3 X3 READ (RA)
03808 M00S02169.cpumtr +++| LX2 59-47
03809 M00S02170.cpumtr +++| LX6 -7
03810 M00S02171.cpumtr +++| AX3 51
03811 M00S02172.cpumtr +++| PL X2,CJS4.5 IF CYBER 170-8X5
03812 M00S02173.cpumtr +++| BX6 -X6*X4
03813 M00S02174.cpumtr +++| SA6 A4
03814 M00S02175.cpumtr +++| CJS4.5 R= X7,ARET
03815 M00S02176.cpumtr +++| ZR X3,SEF IF ARITHMETIC ERROR
03816 M00S02177.cpumtr +++| AX3 54-51 SHIFT OFF MODE FLAG BITS
03817 M00S02178.cpumtr +++| NZ X3,SEF IF NOT PARITY ERROR
03818 M00S02179.cpumtr +++| NG X2,CJS4.6 IF CYBER 170-8X5
03819 M00S02180.cpumtr +++| LX2 20-16
03820 M00S02181.cpumtr +++| CJS4.6 PL X2,SEF IF NOT A CYBER 170
03821 M00S02182.cpumtr +++| SX7 PEET SET PARITY ERROR
03822 M00S02183.cpumtr +++| EQ SEF SET ERROR FLAG
03823 M00S02184.cpumtr +++|
03824 M00S02185.cpumtr +++| CJS5 NG X1,CJS6 IF TIME LIMIT
03825 M00S02186.cpumtr +++| SX7 SRET SET SRU LIMIT FLAG
03826 M00S02187.cpumtr +++| CJS6 SA2 B7+TFSW CHECK FOR INTERACTIVE JOB
03827 M00S02188.cpumtr +++| MX6 12
Line S02189 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
03828 M01S02189.261l700 ---| BX2 X6*X2 EJT ORDINAL
03829 M01S02190.261l700 ---| LX2 12
03830 M01S02191.261l700 ---| SX6 EJTE
03831 M01S02192.261l700 ---| IX2 X6*X2
Line S00002 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
03832 M01S00002.261l700 +++| BX6 X6*X2 EJT ORDINAL
03833 M01S00003.261l700 +++| LX6 12
03834 M01S00004.261l700 +++| CX2 X6,EJT CONVERT EJT ORDINAL TO OFFSET
03835 M01S00005.261l700 +++| MX6 -4
03836 M00S02193.cpumtr +++| TA2 X2+JSNE,EJT GET CONNECTION STATUS FROM EJT ENTRY
Line S02194 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
03837 M01S02194.261l700 ---| MX6 -4
03838 M00S02195.cpumtr +++| AX2 7
03839 M00S02196.cpumtr +++| BX2 -X6*X2 CONNECTION STATUS
03840 M00S02197.cpumtr +++| SX6 OLCS
03841 M00S02198.cpumtr +++| BX6 X2-X6
03842 M00S02199.cpumtr +++| ZR X6,RB4 IF ON-LINE INTERACTIVE JOB
03843 M00S02200.cpumtr +++| R= X1,DTCS
03844 M00S02201.cpumtr +++| BX2 X1-X2
03845 M00S02202.cpumtr +++| ZR X2,RB4 IF DETACHED INTERACTIVE JOB
03846 M00S02203.cpumtr +++| TA2 SP CHECK PSEUDO-PP IR
03847 M00S02204.cpumtr +++| SX4 7600B CONTROL POINT MASK
03848 M00S02205.cpumtr +++| SX3 B7
03849 M00S02206.cpumtr +++| AX2 36-7
03850 M00S02207.cpumtr +++| BX2 X4*X2
03851 M00S02208.cpumtr +++| BX3 X2-X3
03852 M00S02209.cpumtr +++| ZR X3,RB4 IF PSEUDO-PP ASSIGNED TO THIS C.P.
03853 M00S02210.cpumtr +++| EQ SEF SET ERROR FLAG
Line S02211 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03854 M01S02211.271l750 ---| CPT SPACE 4
03855 M01S02212.271l750 ---|** CPT - UPDATE CP TIME AND SRU ACCUMULATOR.
Line S00612 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03856 M01S00612.271l750 +++| CPT SPACE 4,30
03857 M01S00613.271l750 +++|** CPT - UPDATE CPU TIME AND SRU ACCUMULATOR.
03858 M00S02213.cpumtr +++|*
03859 M00S02214.cpumtr +++|* CP = S0 * CP0 * SC + S1 * CP1 * SC
03860 M00S02215.cpumtr +++|* S0 = SITE DEFINABLE CPU MULTIPLIER FOR CPU 0.
03861 M00S02216.cpumtr +++|* S1 = SITE DEFINABLE CPU MULTIPLIER FOR CPU 1.
03862 M00S02217.cpumtr +++|* CP0 = CPU TIME USED BY CPU 0 IN MACHINES UNITS.
03863 M00S02218.cpumtr +++|* CP1 = CPU TIME USED BY CPU 1 IN MACHINES UNITS.
03864 M00S02219.cpumtr +++|* SC = SCALING FACTOR TO CONVERT MACHINES UNITS INTO
03865 M00S02220.cpumtr +++|* QUARTER NANOSECONDS.
03866 M00S02221.cpumtr +++|* MACHINE UNITS ARE MILLISECONDS FOR CYBER 6000,
03867 M00S02222.cpumtr +++|* CYBER 70 AND CYBER 171 - 175 MAINFRAMES.
03868 M00S02223.cpumtr +++|* MACHINE UNITS ARE 27.5 NANOSECONDS FOR CYBER 176.
03869 M00S02224.cpumtr +++|* MACHINE UNITS ARE MICROSECONDS FOR CYBER 8X5.
03870 M00S02225.cpumtr +++|*
03871 M00S02226.cpumtr +++|* NEW SRU = CPM*CP + OLD SRU
03872 M00S02227.cpumtr +++|*
03873 M00S02228.cpumtr +++|* ENTRY (B3) = EXIT ADDRESS.
03874 M00S02229.cpumtr +++|*
Line S02230 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03875 M01S02230.271l750 ---|* EXIT (X1) = CONTROL POINT ACCOUNTING PERFORMED TO.
03876 M01S02231.271l750 ---|* (X6) = UPDATED CP ACCUMULATOR (QUARTER NANO SECONDS).
Line S00614 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03877 M01S00614.271l750 +++|* EXIT (X1) = *CPAL* SHIFTED LEFT CIRCULAR 36 BITS.
03878 M01S00615.271l750 +++|* (X6) = UPDATED CP ACCUMULATOR (QUARTER NANO SECONDS)
03879 M01S00616.271l750 +++|* (X0) = CPU TIME SINCE CPU SWITCH IN MACHINE UNITS.
03880 M00S02232.cpumtr +++|*
Line S02233 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03881 M01S02233.271l750 ---|* USES X - 1, 2, 3, 6, 7.
Line S00617 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03882 M01S00617.271l750 +++|* USES X - 0, 1, 2, 3, 6, 7.
03883 M00S02234.cpumtr +++|* B - 4, 6.
03884 M00S02235.cpumtr +++|* A - 1, 2, 3, 6, 7.
03885 M00S02236.cpumtr +++|
03886 M00S02237.cpumtr +++|
03887 M00S02238.cpumtr +++| CPT SA1 RTCL READ MACHINE UNITS
Line S00618 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03888 M01S00618.271l750 +++| SA2 CL+CPBT+A0 READ BASE TIME
Line S00619 Modification History
M01 (Added by) 271l750
M02 (Removed by) cpum224
Seq # *Modification Id* Act
----------------------------+
03889 M02S00619.cpum224 ---| SA2 CL+CPBT+A0 READ BASE TIME
03890 M00S02239.cpumtr +++| MX7 -36
Line S02240 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03891 M01S02240.271l750 ---| BX6 -X7*X1
Line S00620 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03892 M01S00620.271l750 +++| BX6 -X7*X1 MILLISECOND CLOCK
03893 M01S00621.271l750 +++| SA6 A2 SET NEW BASE TIME
03894 M01S00622.271l750 +++| IX0 X6-X2 TIME USED IN MACHINE UNITS
03895 M00S02241.cpumtr +++|
03896 M00S02242.cpumtr +++|* ENTER HERE IF OTHER THAN MILLISECOND CLOCK USED.
Line S00623 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03897 M01S00623.271l750 +++|* (X0) = CPU TIME INCREMENT IN MACHINE UNITS.
03898 M00S02243.cpumtr +++|
Line S02244 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03899 M01S02244.271l750 ---| CPT1 SA2 ST+A0 READ START TIME
Line S02245 Modification History
M01 (Removed by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03900 M02S02245.271l750 ---| TNO /NVE/CPT,NVE IF *DSCB* PRESENT
Line S02246 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03901 M01S02246.271l750 ---| CPT1.1 SA1 CPAL+A0
03902 M01S02247.271l750 ---| SA6 A2 SET NEW START TIME
03903 M01S02248.271l750 ---| AX1 24
Line S02249 Modification History
M01 (Removed by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03904 M02S02249.271l750 ---| CPT1.2 SA3 CPTA+A0 READ CONVERSION FACTOR
03905 M02S02250.271l750 ---| IX6 X6-X2 COMPUTE TIME USED IN MACHINE UNITS
03906 M02S02251.271l750 ---| IX3 X3*X6 S0 * CP0 * SC OR S1 * CP1 * SC
03907 M02S02252.271l750 ---| ZR X1,RB3 IF CONTROL POINT ZERO
Line S00018 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
03908 M02S00018.271l750 ---| CPT1.2 IX6 X6-X2 COMPUTE TIME USED IN MACHINE UNITS
03909 M02S00019.271l750 ---| SA3 MT CLEAR MONITOR TIME ADJUSTMENT
03910 M02S00020.271l750 ---| BX7 X7-X7
03911 M02S00021.271l750 ---| SA7 A3
03912 M02S00022.271l750 ---| BX7 X6
03913 M02S00023.271l750 ---| ZR X1,RB3 IF CONTROL POINT ZERO
03914 M02S00024.271l750 ---| TNO /MONITOR/CPT1.3,NPIT IF NOT USING PIT ACCOUNTING
03915 M02S00025.271l750 ---| MX7 28
03916 M02S00026.271l750 ---| BX7 -X7-X0 (X0) = PIT FROM /CME/CPT
03917 M02S00027.271l750 ---| CPT1.3 IX6 X7-X3 ADJUST FOR MONITOR MODE TIME
03918 M02S00028.271l750 ---| PL X6,CPT1.4 IF NO UNDERFLOW ON ADJUSTMENT
03919 M02S00029.271l750 ---| BX6 X6-X6
03920 M02S00030.271l750 ---| CPT1.4 SA3 CPTA+A0
03921 M02S00031.271l750 ---| IX3 X3*X6
Line S00624 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03922 M01S00624.271l750 +++| CPT1 SA1 CPAL+A0
03923 M01S00625.271l750 +++| SA2 SA+A0
03924 M01S00626.271l750 +++| SA3 CPTA+A0
03925 M01S00627.271l750 +++| LX1 -42
03926 M01S00628.271l750 +++| IX6 X2+X0
03927 M01S00629.271l750 +++| IX3 X3*X0 SCALE CPU TIME FOR CPU TYPE
03928 M01S00630.271l750 +++| SX2 X1 EXCHANGE PACKAGE TYPE
03929 M01S00631.271l750 +++| SA6 SA+A0 UPDATE TIME ACCUMULATED SINCE CPU SWITCH
03930 M01S00632.271l750 +++| BX0 X6
03931 M01S00633.271l750 +++| NZ X2,CPT5 IF INTERNAL *CPUMTR* EXCHANGE PACKAGE
03932 M01S00634.271l750 +++|
03933 M01S00635.271l750 +++|* UPDATE CPU TIME AND SRU ACCUMULATOR.
03934 M01S00636.271l750 +++|
03935 M01S00637.271l750 +++| LX1 18 POSITION CONTROL POINT ADDRESS
03936 M00S02253.cpumtr +++| SA2 CPTW+X1 READ CONTROL POINT ACCUMULATOR
03937 M00S02254.cpumtr +++| IX6 X3+X2
03938 M00S02255.cpumtr +++| SA6 A2
03939 M00S02256.cpumtr +++| SA2 X1+CPLW READ TIME LIMIT WORD
03940 M00S02257.cpumtr +++| IX7 X2-X6
03941 M00S02258.cpumtr +++| PX3 X3
03942 M00S02259.cpumtr +++| NG X7,CPT4 IF TIME LIMIT
Line S02260 Modification History
M01 (Removed by) ns2392
Seq # *Modification Id* Act
----------------------------+
03943 M01S02260.ns2392 ---| SA2 X1+MP3W READ CPM
03944 M01S02261.ns2392 ---| CPT2 NG X2,RB3 IF SRU ACCUMULATION DISABLED
Line S00004 Modification History
M01 (Added by) ns2392
Seq # *Modification Id* Act
----------------------------+
03945 M01S00004.ns2392 +++| CPT2 SA2 X1+MP3W READ CPM
03946 M01S00005.ns2392 +++| NG X2,RB3 IF SRU ACCUMULATION DISABLED
03947 M00S02262.cpumtr +++| AX2 30
03948 M00S02263.cpumtr +++| PX2 X2
03949 M00S02264.cpumtr +++| NX7 X3
03950 M00S02265.cpumtr +++| NX2 X2
03951 M00S02266.cpumtr +++| SA3 CPTB CONVERT TO MILLIUNITS
03952 M00S02267.cpumtr +++| RX2 X2*X7 CPM*CP
03953 M00S02268.cpumtr +++| RX2 X2*X3 CPM * CP / 4000000
03954 M00S02269.cpumtr +++| SA3 X1+SRUW READ SRU ACCUMULATOR
03955 M00S02270.cpumtr +++| UX2,B4 X2
03956 M00S02271.cpumtr +++| LX2 B4
03957 M00S02272.cpumtr +++| IX7 X3+X2
03958 M00S02273.cpumtr +++| SA7 A3
03959 M00S02274.cpumtr +++| SA3 X1+STLW READ SRU LIMIT
03960 M00S02275.cpumtr +++| MX2 -42
03961 M00S02276.cpumtr +++| BX7 -X2*X7
03962 M00S02277.cpumtr +++| BX3 -X2*X3
03963 M00S02278.cpumtr +++| IX3 X7-X3
03964 M00S02279.cpumtr +++| PL X3,CPT3 IF SRU LIMIT
03965 M00S02280.cpumtr +++| JP B3 RETURN
03966 M00S02281.cpumtr +++|
03967 M00S02282.cpumtr +++| CPT3 SA2 X1+SRUW SET SRU LIMIT FLAG
03968 M00S02283.cpumtr +++| SX7 B1
Line S00006 Modification History
M01 (Added by) ns2392
Seq # *Modification Id* Act
----------------------------+
03969 M01S00006.ns2392 +++| BX3 X2
03970 M00S02284.cpumtr +++| LX7 56
Line S00007 Modification History
M01 (Added by) ns2392
Seq # *Modification Id* Act
----------------------------+
03971 M01S00007.ns2392 +++| LX3 59-53
03972 M01S00008.ns2392 +++| NG X3,RB3 IF RESOURCE LIMITS DISABLED
03973 M00S02285.cpumtr +++| BX7 X2+X7
03974 M00S02286.cpumtr +++| SA7 A2
03975 M00S02287.cpumtr +++| JP B3 RETURN
03976 M00S02288.cpumtr +++|
03977 M00S02289.cpumtr +++| CPT4 SA2 X1+SRUW SET TIME LIMIT FLAG
Line S00009 Modification History
M01 (Added by) ns2392
Seq # *Modification Id* Act
----------------------------+
03978 M01S00009.ns2392 +++| BX7 X2
03979 M01S00010.ns2392 +++| LX7 59-53
03980 M01S00011.ns2392 +++| NG X7,CPT2 IF RESOURCE LIMITS DISABLED
03981 M00S02290.cpumtr +++| SX7 B1
03982 M00S02291.cpumtr +++| LX7 58
03983 M00S02292.cpumtr +++| BX7 X2+X7
03984 M00S02293.cpumtr +++| SA7 A2
Line S02294 Modification History
M01 (Removed by) ns2392
Seq # *Modification Id* Act
----------------------------+
03985 M01S02294.ns2392 ---| SA2 X1+MP3W
03986 M00S02295.cpumtr +++| EQ CPT2 CHECK SRU LIMIT
03987 M00S02296.cpumtr +++|
Line S00638 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
03988 M01S00638.271l750 +++|* UPDATE CPU TIME FOR INTERNAL *CPUMTR* EXCHANGE PACKAGE.
03989 M01S00639.271l750 +++|
03990 M01S00640.271l750 +++| CPT5 LX1 42 POSITION EXCHANGE PACKAGE ADDRESS
03991 M01S00641.271l750 +++| SA2 X1+CTMW UPDATE ACCUMULATOR
03992 M01S00642.271l750 +++| IX6 X2+X3
03993 M01S00643.271l750 +++| LX1 -24 POSITION *CPAL* TO CONTROL POINT
03994 M01S00644.271l750 +++| SA6 A2
03995 M01S00645.271l750 +++| JP B3 RETURN
03996 M01S00646.271l750 +++|
03997 M00S02297.cpumtr +++| CPTA CON 4000000 QUARTER NANOUNITS PER MACHINE UNIT * S0
03998 M00S02298.cpumtr +++| CON 4000000 QUARTER NANOUNITS PER MACHINE UNIT * S1
03999 M00S02299.cpumtr +++|
04000 M00S02300.cpumtr +++| CPTB DATA 0.25E-6 MILLISECONDS PER QUARTER NANOSECOND
04001 M00S02301.cpumtr +++| CPTC CON 4000000.0 QUARTER NANOUNITS PER MILLISECOND
Line S00036 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
04002 M01S00036.273l780 +++| EFP SPACE 4,20
04003 M01S00037.273l780 +++|** EFP - EXECUTE FUNCTION POST PROCESSOR OVERLAY.
04004 M01S00038.273l780 +++|*
04005 M01S00039.273l780 +++|* ENTRY (X5) = 12/0, 48/OUTPUT REGISTER RESPONSE.
04006 M01S00040.273l780 +++|* (X7) = OVERLAY CALL PARAMETERS.
04007 M01S00041.273l780 +++|* (B4) = OVERLAY PLD POINTER.
04008 M01S00042.273l780 +++|* (B3) = RETURN ADDRESS.
04009 M01S00043.273l780 +++|*
04010 M01S00044.273l780 +++|* EXIT OUTPUT REGISTER RESPONSE SET IN WORD *SBFP + 0* IN
04011 M01S00045.273l780 +++|* EXTENDED PP COMMUNICATION BLOCK.
04012 M01S00046.273l780 +++|* PARAMETERS SET IN WORD *SBFP + 1* OF EXTENDED PP
04013 M01S00047.273l780 +++|* COMMUNICATION BLOCK.
04014 M01S00048.273l780 +++|* *BOTM* FUNCTION ISSUED TO PP.
04015 M01S00049.273l780 +++|* TO *HNG* IF OVERLAY NOT CM RESIDENT.
04016 M01S00050.273l780 +++|*
04017 M01S00051.273l780 +++|* *BOTM* FUNCTION FORMAT -
04018 M01S00052.273l780 +++|*
04019 M01S00053.273l780 +++|* 12/ *BOTM*,24/ OVERLAY CODE FWA,24/ *SBFP + 2* ADDRESS
04020 M01S00054.273l780 +++|*
04021 M01S00055.273l780 +++|* USES X - 1, 2, 3, 4, 7.
04022 M01S00056.273l780 +++|* A - 1, 3, 4, 7.
04023 M01S00057.273l780 +++|
04024 M01S00058.273l780 +++|
04025 M01S00059.273l780 +++| EFP BSS 0 ENTRY
04026 M01S00060.273l780 +++|
04027 M01S00061.273l780 +++|* SET PARAMETERS AND OUTPUT REGISTER RESPONSE.
04028 M01S00062.273l780 +++|* A *PRLM* WILL BE SET IN THE OUTPUT REGISTER IF THERE IS A
04029 M01S00063.273l780 +++|* MOVE REQUEST FOR THE CP/PCP IN CASE STORAGE MOVE HAD BEEN
04030 M01S00064.273l780 +++|* ENABLED PREVIOUSLY.
04031 M01S00065.273l780 +++|
04032 M01S00066.273l780 +++| TX3 A5-1,-FP
04033 M01S00067.273l780 +++| SA1 CMCL
04034 M01S00068.273l780 +++| LX3 PPXES-PPCES
04035 M01S00069.273l780 +++| TA3 X3+ACPP,FPX GET CP/PCP ASSIGNMENT
04036 M01S00070.273l780 +++| SA4 B4 GET PLD POINTERS
04037 M01S00071.273l780 +++| SA7 A3+SBFP+1-ACPP SET CALL PARAMETERS
04038 M01S00072.273l780 +++| BX3 X3-X1
04039 M01S00073.273l780 +++| BX7 X5
04040 M01S00074.273l780 +++| AX3 48
04041 M01S00075.273l780 +++| SX1 A7+B1 COMMUNICATION BLOCK POINTER FOR CALL
04042 M01S00076.273l780 +++| NZ X3,EFP1 IF NO MOVE REQUEST FOR CP/PCP
04043 M01S00077.273l780 +++| SX2 PRLM SET PAUSE REQUEST
04044 M01S00078.273l780 +++| LX2 48
04045 M01S00079.273l780 +++| BX7 X7+X2
04046 M01S00080.273l780 +++| EFP1 AX4 24
04047 M01S00081.273l780 +++| SA7 A7-B1 SET OUTPUT REGISTER
04048 M01S00082.273l780 +++|
04049 M01S00083.273l780 +++|* ISSUE *BOTM* FUNCTION TO PP.
04050 M01S00084.273l780 +++|
04051 M01S00085.273l780 +++| SX4 X4+1-400000B
04052 M01S00086.273l780 +++| SX7 BOTM
04053 M01S00087.273l780 +++| LX4 24 OVERLAY CODE FWA
04054 M01S00088.273l780 +++| LX7 48
04055 M01S00089.273l780 +++| BX4 X4+X1
04056 M01S00090.273l780 +++| BX7 X7+X4
04057 M01S00091.273l780 +++| SA7 A5+ SET *BOTM* FUNCTION AND PARAMETERS
04058 M01S00092.273l780 +++| JP B3 RETURN
Line S02302 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
04059 M01S02302.271l750 ---| EPR SPACE 4,20
Line S00647 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
04060 M01S00647.271l750 +++| EPR SPACE 4,15
04061 M00S02303.cpumtr +++|** EPR - ENTER PROGRAM REQUEST.
04062 M00S02304.cpumtr +++|* THIS ROUTINE CAN ONLY BE ENTERED FROM CPU-0 IF BOTH
04063 M00S02305.cpumtr +++|* CPU-S ARE IN USE. THIS INSURES THAT *PR* IS
04064 M00S02306.cpumtr +++|* INTERLOCKED PROPERLY.
04065 M00S02307.cpumtr +++|*
04066 M00S02308.cpumtr +++|* ENTRY (X0) = REQUEST BIT.
04067 M00S02309.cpumtr +++|*
04068 M00S02310.cpumtr +++|* USES X - 2, 6.
Line S02311 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
04069 M01S02311.271l750 ---|* B - 7.
04070 M01S02312.271l750 ---|* A - 2.
Line S00648 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
04071 M01S00648.271l750 +++|* B - 3, 6.
04072 M01S00649.271l750 +++|* A - 2, 6.
04073 M00S02313.cpumtr +++|*
04074 M00S02314.cpumtr +++|* CALLS RCC.
04075 M00S02315.cpumtr +++|
04076 M00S02316.cpumtr +++|
04077 M00S02317.cpumtr +++| EPR SA2 PR SET REQUEST BIT
Line S00650 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
04078 M01S00650.271l750 +++| SB3 MTRX SET *RCC* RETURN ADDRESS
04079 M01S00651.271l750 +++| TB6 SCA SET EXCHANGE PACKAGE ADDRESS
04080 M00S02318.cpumtr +++| BX6 X2+X0
04081 M00S02319.cpumtr +++| SA6 A2
Line S02320 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
04082 M01S02320.271l750 ---| TB7 SCA BEGIN CENTRAL PROGRAM
04083 M00S02321.cpumtr +++| EQ RCC RECALL CPU
04084 M00S02322.cpumtr +++| IAA SPACE 4,40
04085 M00S02323.cpumtr +++|** IAA - INCREMENT AUC ACCUMULATOR.
04086 M00S02324.cpumtr +++|*
Line S02325 Modification History
M01 (Removed by) ns2753a
Seq # *Modification Id* Act
----------------------------+
04087 M01S02325.ns2753a ---|* ENTRY (B3) = EXIT ADDRESS.
04088 M01S02326.ns2753a ---|* (B7) = CONTROL POINT AREA ADDRESS.
04089 M01S02327.ns2753a ---|* (X2) = ABSOLUTE PARAMETER BLOCK ADDRESS.
04090 M01S02328.ns2753a ---|*
04091 M00S02329.cpumtr +++|* PARAMETER BLOCK FORMAT -
04092 M00S02330.cpumtr +++|*
04093 M00S02331.cpumtr +++|*T ADDR 6/ BC,22/ 0,32/ CP
Figure
ADDR
0 29 CP 30 31 32 53 54 59 CP 0 BC
04094 M00S02332.cpumtr +++|*T ADDR+1 10/ 0,10/ MS,10/ 0,10/ MT,10/ 0,10/ PF
Figure
ADDR+1
0 9 10 19 20 29 PF 0 MT 30 39 40 49 50 59 0 MS 0
Line S02333 Modification History
M01 (Removed by) ns2753
Seq # *Modification Id* Act
----------------------------+
04095 M01S02333.ns2753 ---|*T ADDR+2 20/ 0,20/ MP,20/ AU
Figure
ADDR+2
0 19 20 29 AU MP 30 39 40 59 MP 0
Line S00029 Modification History
M01 (Added by) ns2753
Seq # *Modification Id* Act
----------------------------+
04096 M01S00029.ns2753 +++|*T ADDR+2 10/ 0,10/ OD,20/ MP,20/ AU
Figure
ADDR+2
0 19 20 29 AU MP 30 39 40 49 50 59 MP OD 0
04097 M00S02334.cpumtr +++|*T ADDR+3 36/ 0,12/ EM,12/ CM
Figure
ADDR+3
0 11 12 23 24 29 CM EM 0 30 59 0
04098 M00S02335.cpumtr +++|*
04099 M00S02336.cpumtr +++|* BC = BLOCK CODE = 01B.
04100 M00S02337.cpumtr +++|* CP = CP TIME (QUARTER NANOUNITS).
04101 M00S02338.cpumtr +++|* MS = MS UNITS.
04102 M00S02339.cpumtr +++|* MT = MT UNITS.
04103 M00S02340.cpumtr +++|* PF = PF UNITS.
Line S00001 Modification History
M01 (Added by) ns2753a
Seq # *Modification Id* Act
----------------------------+
04104 M01S00001.ns2753a +++|* OD = OD UNITS.
04105 M00S02341.cpumtr +++|* MP = MP UNITS.
04106 M00S02342.cpumtr +++|* AU = AUC MILLIUNITS.
04107 M00S02343.cpumtr +++|* EM = EXTENDED MEMORY SIZE/1000B.
04108 M00S02344.cpumtr +++|* CM = CENTRAL MEMORY SIZE/100B.
04109 M00S02345.cpumtr +++|*
04110 M00S02346.cpumtr +++|* SRU INCREMENT =
04111 M00S02347.cpumtr +++|*
04112 M00S02348.cpumtr +++|* M1(CP + M2*IO + M3(CP+IO)CM +
04113 M00S02349.cpumtr +++|* M4(CP+IO)EC + MM*MP + AU)
04114 M00S02350.cpumtr +++|*
04115 M00S02351.cpumtr +++|* = M1((1 + M3*CM + M4*EC)CP +
04116 M00S02352.cpumtr +++|* (M2 + M3*CM + M4*EC)IO + MM*MP + AU)
04117 M00S02353.cpumtr +++|*
04118 M00S02354.cpumtr +++|* = (M1 + M1*M3*CM + M1*M4*EC)CP +
04119 M00S02355.cpumtr +++|* (M1*M2 + M1*M3*CM + M1*M4*EC)IO + M1*MM*MP + M1*AU
04120 M00S02356.cpumtr +++|*
04121 M00S02357.cpumtr +++|* = CPM*CP + IOM*IO + M1M*MP + M1*AU.
04122 M00S02358.cpumtr +++|*
04123 M00S02359.cpumtr +++|* AUC INCREMENT = SRU INCREMENT / M1.
04124 M00S02360.cpumtr +++|*
Line S00002 Modification History
M01 (Added by) ns2753a
Seq # *Modification Id* Act
----------------------------+
04125 M01S00002.ns2753a +++|* ENTRY (B3) = EXIT ADDRESS.
04126 M01S00003.ns2753a +++|* (B7) = CONTROL POINT AREA ADDRESS.
04127 M01S00004.ns2753a +++|* (X2) = ABSOLUTE PARAMETER BLOCK ADDRESS.
04128 M01S00005.ns2753a +++|*
04129 M00S02361.cpumtr +++|* EXIT (B3) = EXIT ADDRESS.
04130 M00S02362.cpumtr +++|* (B4) = OVERFLOW FLAG.
04131 M00S02363.cpumtr +++|* (B5) = 0, IF NO ERROR.
04132 M00S02364.cpumtr +++|* = 1, IF EXCESSIVE INCREMENT.
Line S00006 Modification History
M01 (Added by) ns2753a
Seq # *Modification Id* Act
----------------------------+
04133 M01S00006.ns2753a +++|* (B7) = CONTROL POINT AREA ADDRESS.
04134 M01S00007.ns2753a +++|* (X5) = PRESERVED.
04135 M00S02365.cpumtr +++|* TO *AIO1* TO INCREMENT SRU ACCUMULATOR.
Line S00008 Modification History
M01 (Added by) ns2753a
Seq # *Modification Id* Act
----------------------------+
04136 M01S00008.ns2753a +++|*
04137 M01S00009.ns2753a +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
04138 M01S00010.ns2753a +++|* A - 1, 2, 3, 6.
04139 M01S00011.ns2753a +++|* B - 4, 5, 6, 7.
04140 M00S02366.cpumtr +++|
04141 M00S02367.cpumtr +++| IAA BX3 X2 GET PARAMETER BLOCK CODE
04142 M00S02368.cpumtr +++| ERX3 X3
04143 M00S02369.cpumtr +++| MX6 6
04144 M00S02370.cpumtr +++| BX6 X6*X3
04145 M00S02371.cpumtr +++| LX6 6
04146 M00S02372.cpumtr +++| SB4 X6
04147 M00S02373.cpumtr +++| SB5 B0+ SET NO ERROR
04148 M00S02374.cpumtr +++| EQ B4,B1,IAA1 IF CODE = 01
04149 M00S02375.cpumtr +++| JP B3 EXIT
04150 M00S02376.cpumtr +++|
04151 M00S02377.cpumtr +++| IAA1 SA1 B7+MP2W M1*1000
04152 M00S02378.cpumtr +++| LX1 36
04153 M00S02379.cpumtr +++| MX0 -18
04154 M00S02380.cpumtr +++| BX6 -X0*X1 M12
04155 M00S02381.cpumtr +++| AX1 18
04156 M00S02382.cpumtr +++| BX1 -X0*X1 M1*1000
04157 M00S02383.cpumtr +++| SB4 X1 SAVE M1*1000
04158 M00S02384.cpumtr +++| SX4 3 GET *EM* AND *CM*
04159 M00S02385.cpumtr +++| IX4 X2+X4
04160 M00S02386.cpumtr +++| ERX4 X4
04161 M00S02387.cpumtr +++| SB6 X6 SAVE M12
04162 M00S02388.cpumtr +++| MX6 -12
04163 M00S02389.cpumtr +++| BX1 -X6*X4 CM/100B
04164 M00S02390.cpumtr +++| AX4 12
04165 M00S02391.cpumtr +++| BX7 -X6*X4 EM/1000B
04166 M00S02392.cpumtr +++| MX6 -3
04167 M00S02393.cpumtr +++| IX1 X1-X6 ROUND CM/100B WITH 7B
04168 M00S02394.cpumtr +++| AX1 3 CM = (CM/100B + 7B)/10B
04169 M00S02395.cpumtr +++| SB5 X1 SAVE CM/1000B
04170 M00S02396.cpumtr +++| ERRNZ MP2W-MP1W-1 CODE DEPENDS ON CONTIGUOUS WORDS
04171 M00S02397.cpumtr +++| SA1 A1-B1 GET M13 AND M14
04172 M00S02398.cpumtr +++| LX1 36
04173 M00S02399.cpumtr +++| BX6 -X0*X1 ISOLATE M14
04174 M00S02400.cpumtr +++| IX7 X7*X6 M14 * EM/1000B
04175 M00S02401.cpumtr +++| AX1 18
04176 M00S02402.cpumtr +++| BX1 -X0*X1 ISOLATE M13
04177 M00S02403.cpumtr +++| SX6 B5 CM/1000B
04178 M00S02404.cpumtr +++| IX1 X6*X1 CM/1000B * M13
04179 M00S02405.cpumtr +++| IX1 X1+X7 M13*CM + M14*EC
04180 M00S02406.cpumtr +++| BX7 X1
04181 M00S02407.cpumtr +++| MX6 -54 CHECK *CP* SIZE
04182 M00S02408.cpumtr +++| BX4 -X6*X3
04183 M00S02409.cpumtr +++| MX6 -32 ISOLATE *CP*
04184 M00S02410.cpumtr +++| BX3 -X6*X3
04185 M00S02411.cpumtr +++| IX6 X4-X3
04186 M00S02412.cpumtr +++| NZ X6,IAA7 IF INCREMENT TOO LARGE
04187 M00S02413.cpumtr +++| SX6 B4 M1*1000
04188 M00S02414.cpumtr +++| IX1 X1+X6 M1*1000 + M13*CM + M14*EC