cdc:nos2.source:opl.opl871:deck:cpumtr.002
Deck CPUMTR Part 002
308 Modifications
Listing Sections
- Deck CPUMTR Start
- Deck CPUMTR Part 1 (Line 1426)
- Deck CPUMTR Part 2 (Line 2835)
- Deck CPUMTR Part 3 (Line 4189)
- Deck CPUMTR Part 4 (Line 5202)
- Deck CPUMTR Part 5 (Line 6708)
- Deck CPUMTR Part 6 (Line 8299)
- Deck CPUMTR Part 7 (Line 9638)
- Deck CPUMTR Part 8 (Line 10916)
- Deck CPUMTR Part 9 (Line 11967)
- Deck CPUMTR Part 10 (Line 13138)
- Deck CPUMTR Part 11 (Line 14282)
- Deck CPUMTR Part 12 (Line 15410)
- Deck CPUMTR Part 13 (Line 16567)
- Deck CPUMTR Part 14 (Line 17788)
- Deck CPUMTR Part 15 (Line 19052)
- Deck CPUMTR Part 16 (Line 20073)
- Deck CPUMTR Part 17 (Line 21429)
- Deck CPUMTR Part 18 (Line 22828)
- Deck CPUMTR Part 19 (Line 24227)
- Deck CPUMTR Part 20 (Line 25696)
- Deck CPUMTR Part 21 (Line 26966)
- Deck CPUMTR Part 22 (Line 28134)
- Deck CPUMTR Part 23 (Line 29251)
- Deck CPUMTR Part 24 (Line 30351)
- Deck CPUMTR Part 25 (Line 31361)
- Deck CPUMTR Part 26 (Line 32485)
- Deck CPUMTR Part 27 (Line 33477)
- Deck CPUMTR Part 28 (Line 34727)
- Deck CPUMTR Part 29 (Line 36372)
- Deck CPUMTR Part 30 (Line 38175)
- Deck CPUMTR Part 31 (Line 39467)
- Deck CPUMTR Part 32 (Line 41032)
- Deck CPUMTR Part 33 (Line 42467)
- Deck CPUMTR Part 34 (Line 44089)
- Deck CPUMTR Part 35 (Line 45392)
- Deck CPUMTR Part 36 (Line 46832)
- Deck CPUMTR Part 37 (Line 47923)
- Deck CPUMTR Part 38 (Line 49530)
- Deck CPUMTR Part 39 (Line 50976)
- Deck CPUMTR Part 40 (Line 52390)
- Deck CPUMTR Part 41 (Line 53539)
- Deck CPUMTR Part 42 (Line 54779)
- Deck CPUMTR Part 43 (Line 56002)
- Deck CPUMTR Part 44 (Line 57163)
- Deck CPUMTR Part 45 (Line 58215)
- Deck CPUMTR Part 46 (Line 59341)
Source
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
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
04094 M00S02332.cpumtr +++|*T ADDR+1 10/ 0,10/ MS,10/ 0,10/ MT,10/ 0,10/ PF
Figure ADDR+1
| 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
| 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
04097 M00S02334.cpumtr +++|*T ADDR+3 36/ 0,12/ EM,12/ CM
Figure ADDR+3
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
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/cpumtr.002.txt · Last modified: by 127.0.0.1