cdc:nos2.source:opl.opl871:deck:1ck.002
Deck 1CK Part 002
24 Modifications
Listing Sections
- Deck 1CK Start
- Deck 1CK Part 1 (Line 1346)
- Deck 1CK Part 2 (Line 2844)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02844 M01S00021.271l716 +++| ASW1 LDN 0 INITIALIZE CP NUMBER 02845 M01S00022.271l716 +++| STD T7 02846 M00S02083.1ck +++| ASW2 RJM FJO FIND JOB 02847 M00S02084.1ck +++| ZJN ASW5 IF SCAN COMPLETE 02848 M00S02085.1ck +++|* ZJN ASWX (AFTER FIRST CP SCAN) 02849 M00S02086.1ck +++| ASWD EQU *-1 02850 M00S02087.1ck +++| LCN 1 02851 M00S02088.1ck +++| STD T1 02852 M00S02089.1ck +++| ASW3 LDN 2 02853 M00S02090.1ck +++| RAD T1 02854 M00S02091.1ck +++| LDM ASWB,T1
| Line S02092 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02855 M01S02092.271l716 ---| ZJN ASW1 IF END OF LIST
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02856 M01S00023.271l716 +++| ZJN ASW2 IF END OF LIST 02857 M00S02093.1ck +++| LMD CN+2 02858 M00S02094.1ck +++| NJN ASW3 IF NOT SELECTED SUBSYSTEM
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02859 M01S00024.271l716 +++| RJM CCP CHANGE CONTROL POINT ASSIGNMENT 02860 M01S00025.271l716 +++| ZJN ASW2 IF JOB GONE 02861 M00S02095.1ck +++| LDM ASWB+1,T1 02862 M00S02096.1ck +++|* UJN ASW6 (AFTER FIRST CP SCAN) 02863 M00S02097.1ck +++| ASWE EQU *-2 02864 M00S02098.1ck +++| ZJN ASW4 IF NO SENSE SWITCHES TO CHANGE 02865 M00S02099.1ck +++| SCN 77 02866 M00S02100.1ck +++| STM ASWA SET SWITCH MASK 02867 M00S02101.1ck +++| LDM ASWB+1,T1 02868 M00S02102.1ck +++| SHN 6 02869 M00S02103.1ck +++| STM ASWB+1,T1 ISOLATE SWITCHES TO SET 02870 M00S02104.1ck +++| LDD T7 SET SENSE SWITCHES 02871 M00S02105.1ck +++| SHN 7 02872 M00S02106.1ck +++| ADN SNSW 02873 M00S02107.1ck +++| CRD CM 02874 M00S02108.1ck +++| LDD CM+4 02875 M00S02109.1ck +++| LPC ** PRESERVE SELECTED SWITCHES 02876 M00S02110.1ck +++| ASWA EQU *-1 02877 M00S02111.1ck +++| LMM ASWB+1,T1 SET SELECTED SWITHES 02878 M00S02112.1ck +++| STD CM+4 02879 M00S02113.1ck +++| LDD T7 02880 M00S02114.1ck +++| SHN 7 02881 M00S02115.1ck +++| ADN SNSW 02882 M00S02116.1ck +++| CWD CM 02883 M00S02117.1ck +++| ASW4 LDN ODET ABORT SUBSYSTEM 02884 M00S02118.1ck +++| STD CM+1 02885 M00S02119.1ck +++| MONITOR CEFM 02886 M00S02120.1ck +++| LDC ASWC * SYSTEM CHECKPOINT ABORT.* 02887 M00S02121.1ck +++| RJM DFM
| Line S02122 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02888 M01S02122.271l716 ---| LJM ASW1 LOOP
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02889 M01S00026.271l716 +++| RJM CSC CHANGE TO SYSTEM CP 02890 M01S00027.271l716 +++| LJM ASW2 FIND NEXT JOB 02891 M00S02123.1ck +++| 02892 M00S02124.1ck +++|** TABLE OF SENSE SWITCHES TO CLEAR/SET ON SUBSYSTEMS. 02893 M00S02125.1ck +++|* 02894 M00S02126.1ck +++|*T ASWB 12/ ID, 6/ MSK, 6/ SET
Figure ASWB
02895 M00S02127.1ck +++|* 02896 M00S02128.1ck +++|* ID = SUBSYSTEM ID. 02897 M00S02129.1ck +++|* MSK = SENSE SWITCH MASK - SEE NOTE. 02898 M00S02130.1ck +++|* SET = SENSE SWITCHES TO SET. 02899 M00S02131.1ck +++|* 02900 M00S02132.1ck +++|* NOTE - *MSK* MUST INCLUDE SWITCHES WHICH WILL BE SET AS WELL 02901 M00S02133.1ck +++|* AS SWITCHES TO BE CLEARED. OTHERWISE, *SET* WILL CAUSE 02902 M00S02134.1ck +++|* SWITCHES TO BE TOGGLED. 02903 M00S02135.1ck +++| 02904 M00S02136.1ck +++| ASWB BSS 0 02905 M00S02137.1ck +++| VFD 12/IFSI IAF 02906 M00S02138.1ck +++| VFD 6/56 CLEAR SWITCHES 5 AND 1 02907 M00S02139.1ck +++| VFD 6/1 SET SWITCH 1 02908 M00S02140.1ck +++| CON 0 END OF LIST 02909 M00S02141.1ck +++| 02910 M00S02142.1ck +++| ASWC DATA C* SYSTEM CHECKPOINT ABORT.* 02911 M00S02143.1ck +++| 02912 M00S02144.1ck +++| ASWF BSS 0 02913 M00S02145.1ck +++| LOC ASWE 02914 M00S02146.1ck +++| UJN ASW6 CONTINUE 02915 M00S02147.1ck +++| LOC *O
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 02916 M01S00001.273l780 +++| CCA SPACE 4,10 02917 M01S00002.273l780 +++|** CCA - COMPUTE CPA/PCPA ADDRESS. 02918 M01S00003.273l780 +++|* 02919 M01S00004.273l780 +++|* ENTRY (A) = CP/PCP NUMBER. 02920 M01S00005.273l780 +++|* (NC) = NUMBER OF CONTROL POINTS. 02921 M01S00006.273l780 +++|* 02922 M01S00007.273l780 +++|* EXIT (A) = CPA/PCPA ADDRESS. 02923 M01S00008.273l780 +++| 02924 M01S00009.273l780 +++| 02925 M01S00010.273l780 +++| CCA1 ADD NC 02926 M01S00011.273l780 +++| SHN 7 02927 M01S00012.273l780 +++| 02928 M01S00013.273l780 +++| CCA SUBR ENTRY/EXIT 02929 M01S00014.273l780 +++| SBD NC 02930 M01S00015.273l780 +++| MJN CCA1 IF CONTROL POINT 02931 M01S00016.273l780 +++| ZJN CCA1 IF SYSTEM CONTROL POINT 02932 M01S00017.273l780 +++| SHN 7 02933 M01S00018.273l780 +++| CCAA ADC ** (PCP AREAS BASE ADDRESS) 02934 M01S00019.273l780 +++| UJN CCAX RETURN
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02935 M01S00028.271l716 +++| CCP SPACE 4,10 02936 M01S00029.271l716 +++|** CCP - CHANGE CONTROL POINT ASSIGNMENT. 02937 M01S00030.271l716 +++|* 02938 M01S00031.271l716 +++|* ENTRY (T7) = CONTROL POINT NUMBER. 02939 M01S00032.271l716 +++|* 02940 M01S00033.271l716 +++|* EXIT (A) = EJT ORDINAL IF CHANGE MADE. 02941 M01S00034.271l716 +++|* = 0 IF JOB GONE. 02942 M01S00035.271l716 +++|* 02943 M01S00036.271l716 +++|* USES CM - CM+4, CN - CN+4. 02944 M01S00037.271l716 +++|* 02945 M01S00038.271l716 +++|* CALLS DEL. 02946 M01S00039.271l716 +++|* 02947 M01S00040.271l716 +++|* MACROS MONITOR. 02948 M01S00041.271l716 +++| 02949 M01S00042.271l716 +++| 02950 M01S00043.271l716 +++| CCP2 LDD CN 02951 M01S00044.271l716 +++| 02952 M01S00045.271l716 +++| CCP SUBR ENTRY/EXIT 02953 M01S00046.271l716 +++| CCP1 LDD T7 02954 M01S00047.271l716 +++| STD CM+1 02955 M01S00048.271l716 +++| MONITOR CCAM 02956 M01S00049.271l716 +++| LDD T7 02957 M01S00050.271l716 +++| SHN 7 02958 M01S00051.271l716 +++| ADK TFSW 02959 M01S00052.271l716 +++| CRD CN 02960 M01S00053.271l716 +++| LDD CN 02961 M01S00054.271l716 +++| ZJN CCPX IF JOB GONE 02962 M01S00055.271l716 +++| LDD CM+1 02963 M01S00056.271l716 +++| ZJN CCP2 IF CHANGE MADE 02964 M01S00057.271l716 +++| RJM DEL DELAY FOR 5O MS 02965 M01S00058.271l716 +++| UJN CCP1 RETRY 02966 M00S02148.1ck +++| CCS SPACE 4,20 02967 M00S02149.1ck +++|** CCS - COMPUTE CHECKPOINT FILE SIZE. 02968 M00S02150.1ck +++|* 02969 M00S02151.1ck +++|* COMPUTE CHECKPOINT FILE SIZE BASED ON THE 02970 M00S02152.1ck +++|* FOLLOWING FORMULA - 02971 M00S02153.1ck +++|* 02972 M00S02154.1ck +++|* SECTORS = (CMR + TOTAL UEM - USER UEM 02973 M00S02155.1ck +++|* + 1/2 (RPL + RCL + PLD))/100B 02974 M00S02156.1ck +++|*
| Line S02157 Modification History | |
|---|---|
M01 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 02975 M01S02157.1ck11 ---|* USES T8, T9, CM - CM+4, CN - CN+4, ES - ES+4, 02976 M01S02158.1ck11 ---|* T0 - T5.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 02977 M01S00025.1ck11 +++|* ERROR TO *DPP* IF CHECKPOINT FILE TOO LARGE. 02978 M00S02159.1ck +++|*
| Line S02160 Modification History | |
|---|---|
M01 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 02979 M01S02160.1ck11 ---|* MACROS MONITOR.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 02980 M01S00026.1ck11 +++|* USES T8, T9, CM - CM+4, CN - CN+4, ES - ES+4, T0 - T0+4. 02981 M01S00027.1ck11 +++|* 02982 M01S00028.1ck11 +++|* CALLS DFM. 02983 M00S02161.1ck +++| 02984 M00S02162.1ck +++| 02985 M00S02163.1ck +++| CCS SUBR ENTRY/EXIT
| Line S02164 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02986 M01S02164.252l678 ---| LDK ECRL GET USER UEM SIZE 02987 M01S02165.252l678 ---| CRD T0 02988 M01S02166.252l678 ---| ADK MEFL-ECRL GET TOTAL UEM SIZE 02989 M01S02167.252l678 ---| CRD ES 02990 M01S02168.252l678 ---| ADK RPLP-MEFL GET RPL FWA
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02991 M01S00088.252l678 +++| LDK RPLP GET RPL FWA 02992 M00S02169.1ck +++| CRD CM 02993 M00S02170.1ck +++| ADK PSTP-RPLP GET LWA+1 OF PLD 02994 M00S02171.1ck +++| CRD CN 02995 M00S02172.1ck +++| LDD CN+2 COMPUTE 1/2 * (RPL + RCL + PLD)/100B 02996 M00S02173.1ck +++| SBD CM 02997 M00S02174.1ck +++| SHN 14 02998 M00S02175.1ck +++| ADD CN+3 02999 M00S02176.1ck +++| SBD CM+1 03000 M00S02177.1ck +++| SHN -6-1 1/2 * (RPL + RCL + PLD)/100B 03001 M00S02178.1ck +++| STD T9 03002 M00S02179.1ck +++| SHN -14 03003 M00S02180.1ck +++| STD T8 03004 M00S02181.1ck +++| 03005 M00S02182.1ck +++|* ADD (TOTAL UEM - USER UEM)/100B. 03006 M00S02183.1ck +++|
| Line S02184 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03007 M01S02184.252l678 ---| UJN CCS1 (AVOID UEM COMPUTATION) 03008 M01S02185.252l678 ---|* LDD ES+3 (UEM PRESENT) 03009 M01S02186.252l678 ---| CCSA EQU *-1 03010 M01S02187.252l678 ---| SBD T0+2 03011 M01S02188.252l678 ---| SHN 3 (TOTAL UEM - USER UEM)/100B
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03012 M01S00089.252l678 +++| LDM UCPA MST ADDRESS FOR UEM
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03013 M02S00090.1ck11 ---| ZJN CCS1 IF NO USER EM IN UEM
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03014 M01S00029.1ck11 +++| ZJN CCS1 IF NO EST ENTRY FOR UEM
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03015 M01S00091.252l678 +++| SHN 3 GET TOTAL UEM SIZE 03016 M01S00092.252l678 +++| ADK TDGL 03017 M01S00093.252l678 +++| CRD ES 03018 M01S00094.252l678 +++| LDK ECRL GET USER UEM SIZE 03019 M01S00095.252l678 +++| CRD T0
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03020 M02S00096.1ck11 ---| LDD T0+1 CONVERT TO 1000 WORD BLOCKS 03021 M02S00097.1ck11 ---| CCSA SHN 0 03022 M02S00098.1ck11 ---|* SHN UESC 03023 M02S00099.1ck11 ---| STD CM+1 03024 M02S00100.1ck11 ---| SHN -14 03025 M02S00101.1ck11 ---| STD CM
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03026 M01S00102.252l678 +++| AOD ES UEM TRACKS 03027 M01S00103.252l678 +++| SHN 6 03028 M01S00104.252l678 +++| ADD ES TRACKS * 101
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03029 M02S00105.1ck11 ---| CCSB SHN 0 03030 M02S00106.1ck11 ---|* SHN EMSC ADJUST TRACK SIZE BY BLOCKING FACTOR 03031 M02S00107.1ck11 ---| ADN 3 ROUND UP 03032 M02S00108.1ck11 ---| SHN -2 TOTAL SECTORS OF UEM 03033 M02S00109.1ck11 ---| SHN 21-2 03034 M02S00110.1ck11 ---| SBD CM+1 03035 M02S00111.1ck11 ---| STD CM+1 03036 M02S00112.1ck11 ---| SHN -14 03037 M02S00113.1ck11 ---| SBD CM 03038 M02S00114.1ck11 ---| SHN 14 03039 M02S00115.1ck11 ---| ADD CM+1 03040 M02S00116.1ck11 ---| SBD T0+2 SUBTRACT SECTORS OF USER EXTENDED MEMORY 03041 M02S00117.1ck11 ---| SHN 3
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03042 M01S00030.1ck11 +++| CCSB ADN ** ROUND UP 03043 M01S00031.1ck11 +++|* ADN 3 (TRACK SHIFT COUNT = 0) 03044 M01S00032.1ck11 +++|* ADN 1 (TRACK SHIFT COUNT = 1) 03045 M01S00033.1ck11 +++|* ADN 0 (TRACK SHIFT COUNT .GE. 2) 03046 M01S00034.1ck11 +++| CCSC SHN ** TOTAL NUMBER OF SECTORS IN UEM 03047 M01S00035.1ck11 +++|* SHN EMSC-2 03048 M01S00036.1ck11 +++| CCSD SHN **-3+22 CONVERT TO *USER EM* SIZED BLOCKS 03049 M01S00037.1ck11 +++|* SHN -UESC-3+22 03050 M01S00038.1ck11 +++| SBD T0+1 SUBTRACT NUMBER OF *USER EM* BLOCKS 03051 M01S00039.1ck11 +++| CCSE SHN **+3 CONVERT TO SECTORS 03052 M01S00040.1ck11 +++|* SHN UESC+3 03053 M00S02189.1ck +++| RAD T9 03054 M00S02190.1ck +++| SHN -14 03055 M00S02191.1ck +++| RAD T8 03056 M00S02192.1ck +++| 03057 M00S02193.1ck +++|* ADD CMR SIZE/100B. 03058 M00S02194.1ck +++| 03059 M00S02195.1ck +++| CCS1 LDK CMRL 03060 M00S02196.1ck +++| CRD CM 03061 M00S02197.1ck +++| LDD CM+4 03062 M00S02198.1ck +++| RAD T9 03063 M00S02199.1ck +++| STM ACFA 03064 M00S02200.1ck +++| SHN -14 03065 M00S02201.1ck +++| RAD T8
| Line S02202 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03066 M01S02202.252l678 ---| SCN 37
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03067 M01S00118.252l678 +++| SCN 77 03068 M00S02203.1ck +++| ZJN CCS2 IF SECTOR COUNT NOT TOO LARGE 03069 M00S02204.1ck +++| LDC ABTB * CHECKPOINT ABORTED.* 03070 M00S02205.1ck +++| RJM DFM 03071 M00S02206.1ck +++| LJM DPP DROP PP 03072 M00S02207.1ck +++| 03073 M00S02208.1ck +++| CCS2 LDD T8 SET HIGH BYTE OF SECTOR COUNT 03074 M00S02209.1ck +++| RAM ACFA-1 03075 M00S02210.1ck +++| LJM CCSX RETURN 03076 M00S02211.1ck +++| CET SPACE 4,10 03077 M00S02212.1ck +++|** CET - COMPUTE ELAPSED TIME. 03078 M00S02213.1ck +++|* 03079 M00S02214.1ck +++|* ENTRY (ES - ES+4) = *RTCL*. 03080 M00S02215.1ck +++|* 03081 M00S02216.1ck +++|* EXIT (A) .GE. 0 IF TIMEOUT. 03082 M00S02217.1ck +++|* 03083 M00S02218.1ck +++|* USES CM - CM+4. 03084 M00S02219.1ck +++| 03085 M00S02220.1ck +++| 03086 M00S02221.1ck +++| CET SUBR ENTRY/EXIT 03087 M00S02222.1ck +++| LDK RTCL 03088 M00S02223.1ck +++| CRD CM 03089 M00S02224.1ck +++| LDD CM+1 03090 M00S02225.1ck +++| SBD ES+1 03091 M00S02226.1ck +++| PJN CET1 IF NO ROLLOVER 03092 M00S02227.1ck +++| ADC 10000 03093 M00S02228.1ck +++| CET1 SBK MXTT 03094 M00S02229.1ck +++| UJN CETX RETURN 03095 M00S02230.1ck +++| CSC SPACE 4,10 03096 M00S02231.1ck +++|** CSC - CHANGE TO SYSTEM CONTROL POINT. 03097 M00S02232.1ck +++|* 03098 M00S02233.1ck +++|* ENTRY (NC) = SYSTEM CONTROL POINT NUMBER. 03099 M00S02234.1ck +++|* 03100 M00S02235.1ck +++|* EXIT (A) = 0. 03101 M00S02236.1ck +++|* 03102 M00S02237.1ck +++|* USES CM+1. 03103 M00S02238.1ck +++|* 03104 M00S02239.1ck +++|* MACROS MONITOR. 03105 M00S02240.1ck +++| 03106 M00S02241.1ck +++| 03107 M00S02242.1ck +++| CSC SUBR ENTRY/EXIT 03108 M00S02243.1ck +++| LDD NC 03109 M00S02244.1ck +++| STD CM+1 03110 M00S02245.1ck +++| MONITOR CCAM 03111 M00S02246.1ck +++| UJN CSCX RETURN 03112 M00S02247.1ck +++| CSS SPACE 4,10 03113 M00S02248.1ck +++|** CSS - CHECK FOR SPECIAL SUBSYSTEM. 03114 M00S02249.1ck +++|* 03115 M00S02250.1ck +++|* ENTRY (CN+2) = BYTE 2 OF WORD *JCIW*. 03116 M00S02251.1ck +++|* 03117 M00S02252.1ck +++|* EXIT (A) .NE. 0 IF SPECIAL SUBSYSTEM. 03118 M00S02253.1ck +++|* .EQ. 0 OTHERWISE. 03119 M00S02254.1ck +++|* 03120 M00S02255.1ck +++|* USES T1. 03121 M00S02256.1ck +++| 03122 M00S02257.1ck +++| 03123 M00S02258.1ck +++| CSS SUBR ENTRY/EXIT 03124 M00S02259.1ck +++| LCN 1 03125 M00S02260.1ck +++| STD T1 03126 M00S02261.1ck +++| CSS1 AOD T1 INCREMENT INDEX 03127 M00S02262.1ck +++| LDM CSSA,T1 03128 M00S02263.1ck +++| ZJN CSSX IF END OF SPECIAL SUBSYSTEMS 03129 M00S02264.1ck +++| LMD CN+2 03130 M00S02265.1ck +++| NJN CSS1 IF NOT THIS SPECIAL SUBSYSTEM 03131 M00S02266.1ck +++| LDN 1 03132 M00S02267.1ck +++| UJN CSSX RETURN WITH SPECIAL SUBSYSTEM 03133 M00S02268.1ck +++| 03134 M00S02269.1ck +++| CSSA BSS 0 03135 M00S02270.1ck +++| LIST D 03136 M00S02271.1ck +++| .SUB HERE 03137 M00S02272.1ck +++| LIST * 03138 M00S02273.1ck +++| CON 0 END OF TABLE 03139 M00S02274.1ck +++| DEL SPACE 4,10 03140 M00S02275.1ck +++|** DEL - DELAY. 03141 M00S02276.1ck +++| 03142 M00S02277.1ck +++| 03143 M00S02278.1ck +++| DEL SUBR ENTRY/EXIT 03144 M00S02279.1ck +++| DELAY 64D*8D DELAY 64 MILLISECONDS 03145 M00S02280.1ck +++| UJN DELX RETURN 03146 M00S02281.1ck +++| DRJ SPACE 4,15 03147 M00S02282.1ck +++|** DRJ - DISPOSE OF REMAINING JOBS. 03148 M00S02283.1ck +++|* 03149 M00S02284.1ck +++|* THIS ROUTINE ABORTS JOBS STILL AT CONTROL POINT THAT ARE 03150 M00S02285.1ck +++|* NOT IN THE PROCESS OF ROLLING. ONLY THOSE SUBSYSTEMS THAT 03151 M00S02286.1ck +++|* MAY BE NEEDED FOR JOB TERMINATION ARE LEFT UNAFFECTED. 03152 M00S02287.1ck +++|*
| Line S02288 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03153 M01S02288.271l716 ---|* ENTRY (NC) = NUMBER OF CONTROL POINTS. 03154 M01S02289.271l716 ---|* 03155 M01S02290.271l716 ---|* USES T1, T7, CM+1. 03156 M01S02291.271l716 ---|* 03157 M01S02292.271l716 ---|* CALLS CSC, CSS, DFM, FJO. 03158 M01S02293.271l716 ---|* 03159 M01S02294.271l716 ---|* MACROS MONITOR.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03160 M01S00059.271l716 +++|* ENTRY (A) = 0. 03161 M01S00060.271l716 +++|* 03162 M01S00061.271l716 +++|* USES T7, CM - CM+7. 03163 M01S00062.271l716 +++|* 03164 M01S00063.271l716 +++|* CALLS CSS, DFM, FJO. 03165 M01S00064.271l716 +++|* 03166 M01S00065.271l716 +++|* MACROS MONITOR, SFA. 03167 M00S02295.1ck +++| 03168 M00S02296.1ck +++| 03169 M00S02297.1ck +++| DRJ SUBR ENTRY/EXIT
| Line S02298 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03170 M01S02298.271l716 ---| LDD NC
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03171 M01S00066.271l716 +++|* LDN 0 03172 M00S02299.1ck +++| STD T7 03173 M00S02300.1ck +++| DRJ1 RJM FJO FIND JOB 03174 M00S02301.1ck +++| ZJN DRJX IF NO MORE JOBS 03175 M00S02302.1ck +++| RJM CSS CHECK FOR SPECIAL SUBSYSTEM
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03176 M01S00067.271l716 +++| NJN DRJ1 IF SPECIAL SUBSYSTEM
| Line S02303 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03177 M01S02303.271l716 ---| ZJN DRJ3 IF NOT SPECIAL SUBSYSTEM 03178 M01S02304.271l716 ---| DRJ2 RJM CSC CHANGE TO SYSTEM CP 03179 M01S02305.271l716 ---| UJN DRJ1 GET NEXT JOB 03180 M01S02306.271l716 ---| 03181 M01S02307.271l716 ---| DRJ3 LDN SSET ABORT JOB
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03182 M01S00068.271l716 +++| LDC 4000+SSET ABORT JOB 03183 M00S02308.1ck +++| STD CM+1
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03184 M01S00069.271l716 +++| LDD CA STORE EJT ORDINAL IN *CEFM* REQUEST 03185 M01S00070.271l716 +++| STD CM+2 03186 M01S00071.271l716 +++| SFA EJT STORE JSN IN *CEFM* REQUEST 03187 M01S00072.271l716 +++| ADK JSNE 03188 M01S00073.271l716 +++| CRD CM+3 03189 M00S02309.1ck +++| MONITOR CEFM
| Line S02310 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03190 M01S02310.271l716 ---| LDC ASWC *SYSTEM CHECKPOINT ABORT.* 03191 M01S02311.271l716 ---| RJM DFM 03192 M01S02312.271l716 ---| UJN DRJ2 CHANGE BACK TO SYSTEM CP
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03193 M01S00074.271l716 +++| UJN DRJ1 CHECK NEXT JOB 03194 M00S02313.1ck +++| FJO SPACE 4,20 03195 M00S02314.1ck +++|** FJO - FIND JOB. 03196 M00S02315.1ck +++|*
| Line S02316 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03197 M01S02316.271l716 ---|* *FJO* SCANS THE CONTROL POINTS IN REVERSE ORDER LOOKING FOR 03198 M01S02317.271l716 ---|* JOBS. WHEN ONE IS FOUND, CONTROL POINT ASSIGNMENT IS 03199 M01S02318.271l716 ---|* CHANGED VIA *CCAM* AND THE ROUTINE IS EXITED. IF NO JOB IS 03200 M01S02319.271l716 ---|* FOUND, *FJO* RETURNS WITH (A) = 0. 03201 M01S02320.271l716 ---|* 03202 M01S02321.271l716 ---|* ENTRY (T7) = STARTING CP NUMBER + 1. 03203 M01S02322.271l716 ---|* 03204 M01S02323.271l716 ---|* EXIT (A) = (T7) = NUMBER OF CP WITH ACTIVE JOB. 03205 M01S02324.271l716 ---|* (A) = (T7) = 0 IF END OF SCAN REACHED. 03206 M01S02325.271l716 ---|* (CN - CN+4) = *JCIW* OF CP . 03207 M01S02326.271l716 ---|* 03208 M01S02327.271l716 ---|* USES CM - CM+4, CN - CN+4, FS - FS+4. 03209 M01S02328.271l716 ---|* 03210 M01S02329.271l716 ---|* CALLS CSC, DEL. 03211 M01S02330.271l716 ---|* 03212 M01S02331.271l716 ---|* MACROS MONITOR.
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03213 M01S00075.271l716 +++|* THIS ROUTINE LOOKS FOR JOBS ASSIGNED TO CONTROL POINTS OR 03214 M01S00076.271l716 +++|* PSEUDO-CONTROL POINTS. IT WILL RETURN TO THE CALLER ONLY 03215 M01S00077.271l716 +++|* UPON FINDING AN ACTIVE CP/PCP OR REACHING THE END OF ITS 03216 M01S00078.271l716 +++|* SCAN. 03217 M01S00079.271l716 +++|* 03218 M01S00080.271l716 +++|* ENTRY (T7) = STARTING CP/PCP NUMBER - 1. 03219 M01S00081.271l716 +++|* 03220 M01S00082.271l716 +++|* EXIT (A) .NE. 0 IF ACTIVE CP/PCP FOUND. 03221 M01S00083.271l716 +++|* = 0 IF END OF SCAN REACHED AND NO ACTIVE CP/PCP 03222 M01S00084.271l716 +++|* FOUND. 03223 M01S00085.271l716 +++|* (NC) = NUMBER OF CONTROL POINTS. 03224 M01S00086.271l716 +++|* (T7) = CP/PCP NUMBER IF ACTIVE ONE FOUND. 03225 M01S00087.271l716 +++|* (CA - CA+4) = WORD *TFSW* OF CPA/PCPA. 03226 M01S00088.271l716 +++|* (CN - CN+4) = WORD *JCIW* OF CPA/PCPA. 03227 M01S00089.271l716 +++|* (FS - FS+4) = WORD *STSW* OF CPA/PCPA. 03228 M01S00090.271l716 +++|* 03229 M01S00091.271l716 +++|* USES T7, CA - CA+4, CN - CN+4, FS - FS+4. 03230 M01S00092.271l716 +++|*
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03231 M02S00093.273l780 ---|* MACROS LCPA.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03232 M01S00020.273l780 +++|* CALLS CCA. 03233 M00S02332.1ck +++| 03234 M00S02333.1ck +++| 03235 M00S02334.1ck +++| FJO SUBR ENTRY/EXIT
| Line S02335 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03236 M01S02335.271l716 ---| FJO1 SOD T7 DECREMENT CURRENT CP NUMBER
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03237 M01S00094.271l716 +++| FJO1 AOD T7 ADVANCE CP/PCP NUMBER 03238 M01S00095.271l716 +++| LMD NC 03239 M01S00096.271l716 +++| ZJN FJO1 IF SYSTEM CONTROL POINT 03240 M01S00097.271l716 +++| LMD NC 03241 M01S00098.271l716 +++| LMC ** 03242 M01S00099.271l716 +++| FJOB EQU *-1 (SCAN LIMIT) 03243 M00S02336.1ck +++| ZJN FJOX IF END OF SCAN
| Line S02337 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03244 M01S02337.271l716 ---| FJO2 LDD T7 03245 M01S02338.271l716 ---| SHN 7 03246 M01S02339.271l716 ---| ADN STSW
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03247 M02S00100.273l780 ---| FJO2 LCPA STSW,T7
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03248 M01S00021.273l780 +++| FJO2 LDD T7 SET CP/PCP ADDRESS 03249 M01S00022.273l780 +++| RJM CCA 03250 M01S00023.273l780 +++| ADK STSW 03251 M00S02340.1ck +++| CRD FS 03252 M00S02341.1ck +++| ADN JCIW-STSW 03253 M00S02342.1ck +++| CRD CN 03254 M00S02343.1ck +++| ADN TFSW-JCIW
| Line S02344 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03255 M01S02344.271l716 ---| CRD CM 03256 M01S02345.271l716 ---| LDD CM
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03257 M01S00101.271l716 +++| CRD CA 03258 M01S00102.271l716 +++| LDD CA 03259 M00S02346.1ck +++| ZJN FJO1 IF NO JOB 03260 M00S02347.1ck +++| LDD FS+1 03261 M00S02348.1ck +++| LMK PEET 03262 M00S02349.1ck +++| ZJN FJO1 IF CM PARITY ERROR 03263 M00S02350.1ck +++| LDN 0 03264 M00S02351.1ck +++|* LDN 1 (WAIT MODE) 03265 M00S02352.1ck +++| FJOA EQU *-1
| Line S02353 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03266 M01S02353.271l716 ---| NJN FJO3 IF WAIT MODE
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03267 M01S00103.271l716 +++| NJN FJOX IF WAIT MODE 03268 M00S02354.1ck +++| LDD FS+1 03269 M00S02355.1ck +++| LMN SSET 03270 M00S02356.1ck +++| ZJN FJO1 IF *SSET* ALREADY SET 03271 M00S02357.1ck +++| LDD FS+2 03272 M00S02358.1ck +++| LPN 1 03273 M00S02359.1ck +++| NJN FJO1 IF ROLLOUT REQUESTED
| Line S02360 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03274 M01S02360.271l716 ---| FJO3 LDD T7 03275 M01S02361.271l716 ---| STD CM+1 03276 M01S02362.271l716 ---| MONITOR CCAM 03277 M01S02363.271l716 ---| LDD CM+1 03278 M01S02364.271l716 ---| ZJN FJO4 IF CHANGE NOT REJECTED 03279 M01S02365.271l716 ---| RJM DEL DELAY 50 MS 03280 M01S02366.271l716 ---| UJN FJO2 RETRY CHANGE 03281 M01S02367.271l716 ---| 03282 M01S02368.271l716 ---| FJO4 LDD T7 03283 M01S02369.271l716 ---| SHN 7 03284 M01S02370.271l716 ---| ADN TFSW 03285 M01S02371.271l716 ---| CRD CM 03286 M01S02372.271l716 ---| LDD CM 03287 M01S02373.271l716 ---| ZJN FJO5 IF JOB GONE 03288 M01S02374.271l716 ---| LDD T7 03289 M01S02375.271l716 ---| LJM FJOX RETURN 03290 M01S02376.271l716 ---| 03291 M01S02377.271l716 ---| FJO5 RJM CSC CHANGE TO SYSTEM CP 03292 M01S02378.271l716 ---| LJM FJO1 LOOP FOR NEXT CP
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03293 M01S00104.271l716 +++| LDN 1 INDICATE ACTIVE CP/PCP FOUND 03294 M01S00105.271l716 +++| UJP FJOX RETURN 03295 M00S02379.1ck +++| ROJ SPACE 4,15 03296 M00S02380.1ck +++|** ROJ - ROLLOUT NON-SUBSYSTEM JOBS. 03297 M00S02381.1ck +++|*
| Line S02382 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03298 M01S02382.271l716 ---|* ENTRY (NC) = NUMBER OF CONTROL POINTS.
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03299 M01S00106.271l716 +++|* ENTRY (A) = 0. 03300 M00S02383.1ck +++|* 03301 M00S02384.1ck +++|* EXIT (A) = 0. 03302 M00S02385.1ck +++|*
| Line S02386 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03303 M01S02386.271l716 ---|* USES T7, CM+1.
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03304 M01S00107.271l716 +++|* USES T1, T7, CM+1, CM+2. 03305 M00S02387.1ck +++|*
| Line S02388 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03306 M01S02388.271l716 ---|* CALLS CSC, FJO.
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03307 M01S00108.271l716 +++|* CALLS DEL, FJO. 03308 M00S02389.1ck +++|* 03309 M00S02390.1ck +++|* MACROS MONITOR. 03310 M00S02391.1ck +++| 03311 M00S02392.1ck +++| 03312 M00S02393.1ck +++| ROJ SUBR ENTRY/EXIT
| Line S02394 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03313 M01S02394.271l716 ---| LDD NC
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03314 M01S00109.271l716 +++|* LDN 0 03315 M00S02395.1ck +++| STD T7 03316 M00S02396.1ck +++| ROJ1 RJM FJO FIND JOB 03317 M00S02397.1ck +++| ZJN ROJX IF END OF SCAN 03318 M00S02398.1ck +++| LDD CN+2 03319 M00S02399.1ck +++| SBK LSSI+1
| Line S02400 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03320 M01S02400.271l716 ---| PJN ROJ2 IF NOT TO BE ROLLED 03321 M01S02401.271l716 ---| LDN ROSR
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03322 M01S00110.271l716 +++| PJN ROJ1 IF NOT TO BE ROLLED 03323 M01S00111.271l716 +++| LDN 10D SET *ROCM* RETRY COUNT 03324 M01S00112.271l716 +++| STD T1 03325 M01S00113.271l716 +++| ROJ2 LDC ROSR+4000 SELECT JOB SCHEDULER, ALTERNATE CP/PCP 03326 M00S02402.1ck +++| STD CM+1
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03327 M01S00114.271l716 +++| LDD T7 SET CP/PCP NUMBER 03328 M01S00115.271l716 +++| STD CM+2 03329 M00S02403.1ck +++| MONITOR ROCM
| Line S02404 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03330 M01S02404.271l716 ---| ROJ2 RJM CSC CHANGE TO SYSTEM CP 03331 M01S02405.271l716 ---| UJN ROJ1 FIND NEXT JOB
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03332 M01S00116.271l716 +++| LDD CM+1 03333 M01S00117.271l716 +++| ZJN ROJ1 IF *ROCM* ACCEPTED 03334 M01S00118.271l716 +++| SOD T1 03335 M01S00119.271l716 +++| MJN ROJ1 IF RETRY LIMIT REACHED 03336 M01S00120.271l716 +++| RJM DEL DELAY 50 MS 03337 M01S00121.271l716 +++| UJN ROJ2 RETRY 03338 M00S02406.1ck +++| WFJ SPACE 4,20 03339 M00S02407.1ck +++|** WFJ - WAIT FOR JOBS TO ROLLOUT OR TERMINATE. 03340 M00S02408.1ck +++|* 03341 M00S02409.1ck +++|* THIS ROUTINE ALLOWS ALL JOBS *MXTT* 03342 M00S02410.1ck +++|* SECONDS TO TERMINATE. ANY JOB STILL AT A 03343 M00S02411.1ck +++|* CONTROL POINT AND NOT ROLLING AFTER *MXTT* 03344 M00S02412.1ck +++|* SECONDS HAVE ELAPSED WILL BE ROLLED. THIS 03345 M00S02413.1ck +++|* ROUTINE WILL NOT BE EXITED UNTIL ALL 03346 M00S02414.1ck +++|* CONTROL POINTS ARE CLEAR (JOBS WITH 03347 M00S02415.1ck +++|* *PEET* ERROR FLAG SET MAY BE LEFT AT CONTROL 03348 M00S02416.1ck +++|* POINT). 03349 M00S02417.1ck +++|*
| Line S02418 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03350 M01S02418.271l716 ---|* ENTRY (NC) = NUMBER OF CONTROL POINTS. 03351 M01S02419.271l716 ---|* 03352 M00S02420.1ck +++|* EXIT (A) = 0. 03353 M00S02421.1ck +++|* 03354 M00S02422.1ck +++|* USES T7, CM - CM+4, ES - ES+4. 03355 M00S02423.1ck +++|*
| Line S02424 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03356 M01S02424.271l716 ---|* CALLS CET, CSC, CSS, DEL, FJO.
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03357 M01S00122.271l716 +++|* CALLS CET, CSS, DEL, FJO. 03358 M00S02425.1ck +++|* 03359 M00S02426.1ck +++|* MACROS DELAY, MONITOR. 03360 M00S02427.1ck +++| 03361 M00S02428.1ck +++| 03362 M00S02429.1ck +++| WFJ SUBR ENTRY/EXIT 03363 M00S02430.1ck +++| LDK RTCL SET TIMEOUT 03364 M00S02431.1ck +++| CRD ES 03365 M00S02432.1ck +++| AOM FJOA INDICATE WAIT MODE
| Line S02433 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03366 M01S02433.271l716 ---| WFJ1 LDD NC
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03367 M01S00123.271l716 +++| WFJ1 LDN 0 03368 M00S02434.1ck +++| STD T7 03369 M00S02435.1ck +++| WFJ2 RJM FJO FIND JOB 03370 M00S02436.1ck +++| NJN WFJ3 IF JOB FOUND 03371 M00S02437.1ck +++| UJN WFJX RETURN 03372 M00S02438.1ck +++|* UJN *+1 (TIMEOUT) 03373 M00S02439.1ck +++| WFJA EQU *-1 03374 M00S02440.1ck +++| ERRPL WFJ6-WFJB-40 RANGE ERROR 03375 M00S02441.1ck +++| LDC UJNI+WFJ6-WFJB 03376 M00S02442.1ck +++| STM WFJB 03377 M00S02443.1ck +++| LDN 77-WFJA+WFJX-1 03378 M00S02444.1ck +++| ERRNG 40-WFJA+WFJX RANGE ERROR 03379 M00S02445.1ck +++| RAM WFJA 03380 M00S02446.1ck +++| UJN WFJ1 WAIT FOR CLEAR CONTROL POINTS 03381 M00S02447.1ck +++| 03382 M00S02448.1ck +++| WFJ3 RJM CSS CHECK FOR SELECTED SUBSYSTEM 03383 M00S02449.1ck +++|* UJN WFJ6 (TIMEOUT/ONLY SELECTED SUBSYSTEMS REMAIN) 03384 M00S02450.1ck +++| WFJB EQU *-2 03385 M00S02451.1ck +++| ZJN WFJ4 IF NOT SELECTED SUBSYSTEM 03386 M00S02452.1ck +++| LDC UJNI+1 03387 M00S02453.1ck +++| STM WFJA
| Line S02454 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03388 M01S02454.271l716 ---| RJM CSC CHANGE BACK TO SYSTEM CONTROL POINT 03389 M00S02455.1ck +++| UJN WFJ2 CHECK NEXT JOB 03390 M00S02456.1ck +++| 03391 M00S02457.1ck +++|* CALCULATE ELAPSED TIME. 03392 M00S02458.1ck +++| 03393 M00S02459.1ck +++| WFJ4 RJM CET COMPUTE ELAPSED TIME 03394 M00S02460.1ck +++| MJN WFJ7 IF NOT TIMEOUT YET 03395 M00S02461.1ck +++| LDC UJNI+1 03396 M00S02462.1ck +++| STM WFJA 03397 M00S02463.1ck +++| WFJ6 LDD FS+2 03398 M00S02464.1ck +++| LPN 1 03399 M00S02465.1ck +++| ADD FS+1 03400 M00S02466.1ck +++| NJN WFJ7 IF ROLLOUT REQUESTED OR ERROR FLAG SET
| Line S02467 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03401 M01S02467.271l716 ---| LDN ROSR ROLLOUT JOB
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03402 M01S00124.271l716 +++| LDC ROSR+4000 SELECT SCHEDULER ROLLOUT, ALTERNATE CP/PCP 03403 M00S02468.1ck +++| STD CM+1
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03404 M01S00125.271l716 +++| LDD T7 SET CP/PCP NUMBER 03405 M01S00126.271l716 +++| STD CM+2 03406 M00S02469.1ck +++| MONITOR ROCM
| Line S02470 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03407 M01S02470.271l716 ---| WFJ7 RJM CSC CHANGE BACK TO SYSTEM CP 03408 M01S02471.271l716 ---| RJM DEL DELAY 50 MS
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03409 M01S00127.271l716 +++| WFJ7 RJM DEL DELAY 50 MS 03410 M00S02472.1ck +++| LJM WFJ1 FIND JOB
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03411 M01S00041.1ck11 +++| TITLE PRESET. 03412 M00S02473.1ck +++| PRS SPACE 4,10 03413 M00S02474.1ck +++|** PRS - PRESET. 03414 M00S02475.1ck +++|*
| Line S02476 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03415 M01S02476.271l716 ---|* USES CM - CM+4.
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03416 M02S00128.1ck11 ---|* USES CM - CM+4, CN - CN+4.
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03417 M01S00042.1ck11 +++|* USES T1, T2, CM - CM+4, ES - ES+4, T3 - T3+4. 03418 M00S02477.1ck +++|*
| Line S02478 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03419 M01S02478.271l716 ---|* MACROS SFA.
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03420 M01S00129.271l716 +++|* CALLS IFP. 03421 M01S00130.271l716 +++|*
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03422 M02S00131.273l780 ---|* MACROS IPCP, SFA.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03423 M01S00024.273l780 +++|* MACROS SFA. 03424 M00S02479.1ck +++| 03425 M00S02480.1ck +++| 03426 M00S02481.1ck +++| PRS SUBR ENTRY/EXIT
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03427 M01S00132.271l716 +++| RJM IFP INITIALIZE *COMPGFP*
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03428 M02S00133.273l780 ---| IPCP INITIALIZE *COMPPCP*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03429 M01S00025.273l780 +++| LDK PCPP SET FWA OF PCPA-S 03430 M01S00026.273l780 +++| CRD CM 03431 M01S00027.273l780 +++| LDD CM+3 03432 M01S00028.273l780 +++| SHN 14 03433 M01S00029.273l780 +++| LMD CM+4 03434 M01S00030.273l780 +++| SBK 200B 03435 M01S00031.273l780 +++| STM CCAA+1 03436 M01S00032.273l780 +++| SHN -14 03437 M01S00033.273l780 +++| RAM CCAA
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03438 M01S00134.271l716 +++| LDD CM+2 03439 M01S00135.271l716 +++| ERRNZ MCTP-PCPP CODE DEPENDS ON VALUE 03440 M01S00136.271l716 +++| STM FJOB STORE TOTAL OF CP-S + PCP-S + 2
| Line S02482 Modification History | |
|---|---|
M01 (Removed by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 03441 M01S02482.243l647 ---| LDC UJNI+2 ENABLE SETTING *VALID CHECKPOINT FILE*
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03442 M02S00043.1ck11 ---| LDD IR+2 03443 M02S00044.1ck11 ---| LMN 10
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2593 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03444 M02S00022.1ck11 ---| ZJN PRS0 IF CALLED FROM *1MB* 03445 M02S00023.1ck11 ---| LMN 13&10
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03446 M02S00045.1ck11 ---| NJN PRS1 IF NOT CALLED FROM *1MB*
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
M02 (Removed by) | ns2593 |
M03 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03447 M03S00046.1ck11 ---| LDC SCK8 SET EXIT PROCESSING ADDRESS
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2593 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03448 M02S00024.1ck11 ---| PRS0 LDC SCK8 SET EXIT PROCESSING ADDRESS
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03449 M01S00043.1ck11 +++| ISTORE SMDA,(UJN SMD4) CHECKPOINT REQUESTED FLAG IMMATERIAL 03450 M01S00044.1ck11 +++| ISTORE SMDB,(UJN SMD6) SKIP UTILITY INTERLOCK 03451 M01S00045.1ck11 +++| LDD NC SET CONTROL POINT NUMBER IN *1MB* CALL 03452 M01S00046.1ck11 +++| RAM SCKE+1 03453 M01S00047.1ck11 +++| LDD IR+3 SET *1MB* FUNCTION CODE 03454 M01S00048.1ck11 +++| STM SCKE+2 03455 M01S00049.1ck11 +++| LDK MEFL GET TRACK SHIFT COUNT AND USER EM SHIFT 03456 M01S00050.1ck11 +++| CRD CM 03457 M01S00051.1ck11 +++| LDD CM+2 TRACK SHIFT COUNT (EMSC) 03458 M01S00052.1ck11 +++| SHN -5 03459 M01S00053.1ck11 +++| LPN 3 03460 M01S00054.1ck11 +++| STD T1 03461 M01S00055.1ck11 +++| RAM CUAB 03462 M01S00056.1ck11 +++| LDD T1 03463 M01S00057.1ck11 +++| RAM CUAA 03464 M01S00058.1ck11 +++| LDD T1 03465 M01S00059.1ck11 +++| SBN 2 SET ROUND UP 03466 M01S00060.1ck11 +++| PJN PRS1 IF NO ROUND UP NEEDED 03467 M01S00061.1ck11 +++| STD T0 03468 M01S00062.1ck11 +++| SHN 1 03469 M01S00063.1ck11 +++| LPN 3 3 IF EMSC=0, 1 IF EMSC=1 03470 M01S00064.1ck11 +++| RAM CCSB 03471 M01S00065.1ck11 +++| LDD T0 03472 M01S00066.1ck11 +++| LPN 77 03473 M01S00067.1ck11 +++| PRS1 RAM CCSC 03474 M01S00068.1ck11 +++| LDD CM+2 USER SHIFT COUNT (UESC) 03475 M01S00069.1ck11 +++| SHN -11 03476 M01S00070.1ck11 +++| STD T2 03477 M01S00071.1ck11 +++| SBD T1 03478 M01S00072.1ck11 +++| RAM UCPB 03479 M01S00073.1ck11 +++| LDD T2 03480 M01S00074.1ck11 +++| RAM CCSE 03481 M01S00075.1ck11 +++| LDN 0 03482 M01S00076.1ck11 +++| SBD T2 03483 M01S00077.1ck11 +++| RAM CCSD 03484 M01S00078.1ck11 +++| LDD IR+2 CHECK FUNCTION CODE 03485 M01S00079.1ck11 +++| SBN 2 03486 M01S00080.1ck11 +++| MJN PRS3 IF FUNCTION 0 OR 1 03487 M01S00081.1ck11 +++| SBN 10-2 03488 M01S00082.1ck11 +++| ZJN PRS2 IF FUNCTION 10 03489 M01S00083.1ck11 +++| SBN 13-10 03490 M01S00084.1ck11 +++| NJP PRSX IF NOT FUNCTION 13 03491 M01S00085.1ck11 +++| PRS2 LDC SCK8 SET EXIT PROCESSING ADDRESS
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 03492 M01S00047.243l647 +++| STM DPPA
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03493 M02S00048.1ck11 ---| PRS1 LDC UJNI+2 ENABLE SETTING *VALID CHECKPOINT FILE*
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03494 M01S00086.1ck11 +++| PRS3 LDC UJNI+2 ENABLE SETTING *VALID CHECKPOINT FILE* 03495 M00S02483.1ck +++| STM WLAG
| Line S02484 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03496 M01S02484.252l678 ---| LDN EMEQ 03497 M01S02485.252l678 ---| SFA EST
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03498 M01S00119.252l678 +++| LDN ESTP SEARCH FOR UEM EQUIPMENT 03499 M01S00120.252l678 +++| CRD T3 03500 M01S00121.252l678 +++| LDN NOPE-1 03501 M01S00122.252l678 +++| STD T5
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03502 M02S00123.1ck11 ---| PRS2 AOD T5
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03503 M01S00087.1ck11 +++| PRS4 AOD T5
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03504 M01S00124.252l678 +++| LMD T6
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03505 M02S00125.271l716 ---| ZJN PRSX IF NO UEM EQUIPMENT
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03506 M02S00137.1ck11 ---| ZJN PRS3 IF NO UEM EQUIPMENT
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03507 M01S00088.1ck11 +++| ZJN PRS5 IF NO UEM EQUIPMENT
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03508 M01S00126.252l678 +++| SFA EST,T5 03509 M00S02486.1ck +++| ADK EQDE
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03510 M01S00127.252l678 +++| CRD ES 03511 M01S00128.252l678 +++| LDD ES 03512 M01S00129.252l678 +++| SHN 21-13
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03513 M02S00130.1ck11 ---| PJN PRS2 IF NOT MASS STORAGE
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03514 M01S00089.1ck11 +++| PJN PRS4 IF NOT MASS STORAGE
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03515 M01S00131.252l678 +++| LDD ES+4 CHECK MEMORY TYPE 03516 M01S00132.252l678 +++| SHN 3 03517 M01S00133.252l678 +++| ADN DILL 03518 M00S02487.1ck +++| CRD CM 03519 M00S02488.1ck +++| LDD CM+3
| Line S02489 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03520 M01S02489.252l678 ---| ZJN PRSX IF NO UEM PRESENT 03521 M01S02490.252l678 ---| LDN EXML 03522 M01S02491.252l678 ---| CRD CM 03523 M01S02492.252l678 ---| LDD CM+4 03524 M00S02493.1ck +++| SHN -6 03525 M00S02494.1ck +++| LPN 7 03526 M00S02495.1ck +++| LMN 4
| Line S02496 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03527 M01S02496.252l678 ---| NJN PRSX IF NO UEM PRESENT
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03528 M02S00134.1ck11 ---| NJN PRS2 IF NOT UEM MEMORY TYPE
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03529 M01S00090.1ck11 +++| NJN PRS4 IF NOT UEM MEMORY TYPE 03530 M00S02497.1ck +++| LDC LDDI+ST ENABLE UEM CHECKPOINT
| Line S02498 Modification History | |
|---|---|
M01 (Removed by) | ns2477 |
Seq # *Modification Id* Act ----------------------------+ 03531 M01S02498.ns2477 ---| STM WSTB
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2477 |
Seq # *Modification Id* Act ----------------------------+ 03532 M01S00021.ns2477 +++| STM WSTA
| Line S02499 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03533 M01S02499.252l678 ---| LDC LDDI+ES+3 ENABLE UEM COMPUTATION 03534 M01S02500.252l678 ---| STM CCSA
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03535 M01S00135.252l678 +++| LDD ES+4 SET UEM MST ADDRESS 03536 M01S00136.252l678 +++| STM UCPA
| Line S02501 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03537 M01S02501.271l716 ---| LJM PRSX RETURN
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03538 M02S00138.1ck11 ---| PRS3 LJM PRSX RETURN 03539 M02S00139.1ck11 ---| SPACE 4
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03540 M01S00091.1ck11 +++| PRS5 LJM PRSX RETURN 03541 M01S00092.1ck11 +++| SPACE 4,10
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03542 M01S00140.271l716 +++| IFP HERE REMOTE *IFP* ASSEMBLY
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03543 M02S00141.1ck11 ---| SPACE 4
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03544 M01S00093.1ck11 +++| SPACE 4,10
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03545 M02S00142.273l780 ---|* COMMON DECKS. 03546 M02S00143.273l780 ---|
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ck11 |
M03 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03547 M03S00144.273l780 ---| LIST X
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03548 M02S00094.273l780 ---|
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03549 M02S00145.273l780 ---|*CALL COMPPCP
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ck11 |
M03 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03550 M03S00146.273l780 ---| LIST *
| Line S02502 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 03551 M01S02502.273l780 ---| SPACE 4,10 03552 M00S02503.1ck +++|* OVERFLOW CHECKS. 03553 M00S02504.1ck +++| 03554 M00S02505.1ck +++|
| Line S02506 Modification History | |
|---|---|
M01 (Removed by) | ns2439 |
Seq # *Modification Id* Act ----------------------------+ 03555 M01S02506.ns2439 ---| OVERFLOW
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2439 |
M02 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03556 M02S00001.1ck11 ---| OVERFLOW ENTX
| Line S02507 Modification History | |
|---|---|
M01 (Removed by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03557 M01S02507.1ck11 ---| ERRPL OVL+ZTDL-10000 0TD WRAPS PP 03558 M01S02508.1ck11 ---| ERRPL OVL+ZSDL-10000 0SD WRAPS PP
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | 1ck11 |
Seq # *Modification Id* Act ----------------------------+ 03559 M01S00095.1ck11 +++| ERRNG EPFW-OVL0-ZTDL *0TD* OVERFLOW 03560 M01S00096.1ck11 +++| ERRNG EPFW-OVL0-ZSDL *0SD* OVERFLOW 03561 M01S00097.1ck11 +++| 03562 M01S00098.1ck11 +++| 03563 M01S00099.1ck11 +++| OVERFLOW OVLA,EPFW
| Line S00244 Modification History | |
|---|---|
M01 (Added by) | ns2780 |
Seq # *Modification Id* Act ----------------------------+ 03564 M01S00244.ns2780 +++| TTL 1CK/3CL - ADDITIONAL CHECKPOINT FUNCTIONS. 03565 M01S00245.ns2780 +++| TITLE 03566 M01S00246.ns2780 +++| QUAL 3CL 03567 M01S00247.ns2780 +++| IDENT 3CL,OVLA 03568 M01S00248.ns2780 +++|*COMMENT 1CK - ADDITIONAL CHECKPOINT FUNCTIONS. 03569 M01S00249.ns2780 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1995. 03570 M01S00250.ns2780 +++| SPACE 4,10 03571 M01S00251.ns2780 +++|*** 3CL - ADDITIONAL CHECKPOINT FUNCTIONS. 03572 M01S00252.ns2780 +++| SPACE 4,10 03573 M01S00253.ns2780 +++| ORG OVLA 03574 M01S00254.ns2780 +++| SPACE 4,10 03575 M01S00255.ns2780 +++| ENT SUBR ENTRY 03576 M01S00256.ns2780 +++| LJM 0,PA PROCESS SELECTED FUNCTION 03577 M01S00257.ns2780 +++| TITLE MAIN ROUTINES. 03578 M01S00258.ns2780 +++| IDC SPACE 4,10 03579 M01S00259.ns2780 +++|** FUNCTION 5. 03580 M01S00260.ns2780 +++|* INITIALIZED DEVICE CHECKPOINT. 03581 M01S00261.ns2780 +++|* 03582 M01S00262.ns2780 +++|* ENTRY (IR+3) = EST ORDINAL. 03583 M01S00263.ns2780 +++|* (IR+4) = PREVIOUS ACCESS STATUS (MMF). 03584 M01S00264.ns2780 +++| 03585 M01S00265.ns2780 +++| 03586 M01S00266.ns2780 +++| IDC BSS 0 ENTRY 03587 M01S00267.ns2780 +++| RJM SDP SET DEVICE PARAMETERS 03588 M01S00268.ns2780 +++| NJP DPP IF DEVICE IS INACCESSIBLE 03589 M01S00269.ns2780 +++| RJM WTT WRITE TRT 03590 M01S00270.ns2780 +++| SETMS IO,(ND,NS),WBUF 03591 M01S00271.ns2780 +++| RJM WLS WRITE LABEL SECTORS 03592 M01S00272.ns2780 +++| RJM IDI INITIALIZE DEVICE INFORMATION SECTOR 03593 M01S00273.ns2780 +++| RJM FIB FLUSH I/O BUFFERS 03594 M01S00274.ns2780 +++| RJM CIL CLEAR INTERLOCKS 03595 M01S00275.ns2780 +++| CMSTF LIPF CLEAR PF INITIALIZATION FLAG 03596 M01S00276.ns2780 +++| CMSTF LIAL CLEAR FULL INITIALIZE FLAG 03597 M01S00277.ns2780 +++| CMSTF LIHD CLEAR HALF TRACK INITIALIZE FLAG 03598 M01S00278.ns2780 +++| CMSTF LIFD CLEAR FULL TRACK INITIALIZE FLAG 03599 M01S00279.ns2780 +++| RJM SDA SET DEVICE AVAILABLE 03600 M01S00280.ns2780 +++| LDD ES+4 READ FAMILY NAME 03601 M01S00281.ns2780 +++| SHN 3 03602 M01S00282.ns2780 +++| ADN PFGL 03603 M01S00283.ns2780 +++| CRD CA 03604 M01S00284.ns2780 +++| ADN MDGL-PFGL GET PF STATUS OF DEVICE 03605 M01S00285.ns2780 +++| CRD CM 03606 M01S00286.ns2780 +++| LDD CM 03607 M01S00287.ns2780 +++| LPC 2000 03608 M01S00288.ns2780 +++| NJN IDC1 IF AUXILIARY DEVICE 03609 M01S00289.ns2780 +++| RJM GFO ENTER FAMILY NAME IN FOT 03610 M01S00290.ns2780 +++| SCN 1 03611 M01S00291.ns2780 +++| ZJN IDC1 IF ENTRY FOUND/CREATED 03612 M01S00292.ns2780 +++| LDN STFF SET ERROR FLAG = *FOT FULL* 03613 M01S00293.ns2780 +++| RJM SES 03614 M01S00294.ns2780 +++| IDC1 LDC MMFL READ MMF STATUS WORD 03615 M01S00295.ns2780 +++| CRD CN 03616 M01S00296.ns2780 +++| SOD CN+2 DECREMENT INITIALIZED DEVICE COUNT 03617 M01S00297.ns2780 +++| MJN IDC3 IF NOT MMF SYSTEM 03618 M01S00298.ns2780 +++| LMC 4000 03619 M01S00299.ns2780 +++| NJN IDC2 IF NOT END OF DEVICE INITIALIZATION 03620 M01S00300.ns2780 +++| STD CN+2 03621 M01S00301.ns2780 +++| LCN DATI CLEAR FLAG REGISTER INTERLOCK 03622 M01S00302.ns2780 +++| RJM IFR 03623 M01S00303.ns2780 +++| IDC2 LDC MMFL STORE MMF STATUS WORD 03624 M01S00304.ns2780 +++| CWD CN 03625 M01S00305.ns2780 +++| LDD IR+4 03626 M01S00306.ns2780 +++| ZJN IDC3 IF NO PREVIOUS ACCESS IN DAT 03627 M01S00307.ns2780 +++| LDD ES CHECK DEVICE STATUS 03628 M01S00308.ns2780 +++| SHN 21-11 03629 M01S00309.ns2780 +++| PJN IDC4 IF NON-SHARED DEVICE 03630 M01S00310.ns2780 +++| LDD ES+4 READ MST ACTIVITY WORD 03631 M01S00311.ns2780 +++| SHN 3 03632 M01S00312.ns2780 +++| ADN SDGL 03633 M01S00313.ns2780 +++| CRD CM 03634 M01S00314.ns2780 +++| LDD CM CHECK ECS POINTER 03635 M01S00315.ns2780 +++| ADD CM+1 03636 M01S00316.ns2780 +++| IDC3 NJN IDC4 IF MST/TRT ECS RESIDENT 03637 M01S00317.ns2780 +++| LDD IR+3 03638 M01S00318.ns2780 +++| STD CM+1 03639 M01S00319.ns2780 +++| LDN SB0S 03640 M01S00320.ns2780 +++| STD CM+2 03641 M01S00321.ns2780 +++| LDD HN SET DEVICE UNAVAILABLE 03642 M01S00322.ns2780 +++| STD CM+4 03643 M01S00323.ns2780 +++| LMC -0 03644 M01S00324.ns2780 +++| STD CM+3 03645 M01S00325.ns2780 +++| MONITOR SEQM 03646 M01S00326.ns2780 +++| IDC4 LJM DPP DROP PP 03647 M01S00327.ns2780 +++| RAC SPACE 4,10 03648 M01S00328.ns2780 +++|** FUNCTIONS 6 AND 7. 03649 M01S00329.ns2780 +++|* RECOVERY ABORT CHECKPOINT. 03650 M01S00330.ns2780 +++| 03651 M01S00331.ns2780 +++| 03652 M01S00332.ns2780 +++| RAC BSS 0 ENTRY 03653 M01S00333.ns2780 +++| LDC 4000 FLAG CHECKPOINT ABORT PROCESSING 03654 M01S00334.ns2780 +++| STD TS 03655 M01S00335.ns2780 +++| LDC RAC1 SET RETURN FROM *PFC* 03656 M01S00336.ns2780 +++| STM PFCB 03657 M01S00337.ns2780 +++| LJM PFC CHECKPOINT ALL DEVICES 03658 M01S00338.ns2780 +++| 03659 M01S00339.ns2780 +++| RAC1 LDN MS2W-MS1W 03660 M01S00340.ns2780 +++| STD T1 03661 M01S00341.ns2780 +++| LDD IR+2 03662 M01S00342.ns2780 +++| LMN 7 03663 M01S00343.ns2780 +++| NJN RAC2 IF BUFFERED DEVICES CHECKPOINTED 03664 M01S00344.ns2780 +++| LDC =C*NON-BUFFERED EQ-S CHECKPOINTED.* 03665 M01S00345.ns2780 +++| STM RACA 03666 M01S00346.ns2780 +++| RAC2 LDC DSCP*CPAS+MS1W 03667 M01S00347.ns2780 +++| CWM =C*ALL EQ-S CHECKPOINTED.*,T1 03668 M01S00348.ns2780 +++| RACA EQU *-1 03669 M01S00349.ns2780 +++| CWM RACB,TR *RECOVERY ABORTED.* 03670 M01S00350.ns2780 +++| UJN * HANG DEADSTART 03671 M01S00351.ns2780 +++| 03672 M01S00352.ns2780 +++| RACB DATA C*RECOVERY ABORTED.* 03673 M01S00353.ns2780 +++| RLT SPACE 4,10 03674 M01S00354.ns2780 +++|*** FUNCTION 12. 03675 M01S00355.ns2780 +++|* REPAIR LABEL TRACK. 03676 M01S00356.ns2780 +++|* 03677 M01S00357.ns2780 +++|* ENTRY (IR+3) = EST ORDINAL. 03678 M01S00358.ns2780 +++| 03679 M01S00359.ns2780 +++| 03680 M01S00360.ns2780 +++| RLT BSS 0 ENTRY 03681 M01S00361.ns2780 +++| RJM SDP SET DEVICE PARAMETERS 03682 M01S00362.ns2780 +++| SETMS IO,(AD,DF,ND,RW),WBUF 03683 M01S00363.ns2780 +++| RJM WTT WRITE TRT 03684 M01S00364.ns2780 +++| SETMS IO,(AD,DF,ND),WBUF 03685 M01S00365.ns2780 +++| RJM WLS WRITE LABEL SECTORS 03686 M01S00366.ns2780 +++| ENDMS 03687 M01S00367.ns2780 +++| 03688 M01S00368.ns2780 +++| RLT1 RJM CIL CLEAR INTERLOCKS 03689 M01S00369.ns2780 +++| LDD IA SET REPAIR-ATTEMPTED FLAG FOR *1MV* 03690 M01S00370.ns2780 +++| CRD IR 03691 M01S00371.ns2780 +++| LDD IR+3 03692 M01S00372.ns2780 +++| SCN 40 03693 M01S00373.ns2780 +++| LMN 40 03694 M01S00374.ns2780 +++| STD IR+3 03695 M01S00375.ns2780 +++| LDD IA 03696 M01S00376.ns2780 +++| CWD IR 03697 M01S00377.ns2780 +++| LJM PPR RETURN TO *1MV* 03698 M01S00378.ns2780 +++| TITLE SUBROUTINES. 03699 M01S00379.ns2780 +++| IDI SPACE 4,10 03700 M01S00380.ns2780 +++|** IDI - INITIALIZE DEVICE INFORMATION SECTOR. 03701 M01S00381.ns2780 +++|* 03702 M01S00382.ns2780 +++|* ENTRY (T4) = CHANNEL. 03703 M01S00383.ns2780 +++|* (T5) = EQUIPMENT. 03704 M01S00384.ns2780 +++|* (T6) = LABEL TRACK. 03705 M01S00385.ns2780 +++|* LABEL TRACK INTERLOCKED. 03706 M01S00386.ns2780 +++|* 03707 M01S00387.ns2780 +++|* USES T1, T7. 03708 M01S00388.ns2780 +++|* 03709 M01S00389.ns2780 +++|* CALLS WMS. 03710 M01S00390.ns2780 +++|* 03711 M01S00391.ns2780 +++|* MACROS ENDMS, SETMS. 03712 M01S00392.ns2780 +++| 03713 M01S00393.ns2780 +++| 03714 M01S00394.ns2780 +++| IDI SUBR ENTRY/EXIT 03715 M01S00395.ns2780 +++| LDC 100*5 CLEAR SECTOR 03716 M01S00396.ns2780 +++| STD T1 03717 M01S00397.ns2780 +++| IDI1 LDN 0 03718 M01S00398.ns2780 +++| STM BFMS+2-1,T1 03719 M01S00399.ns2780 +++| SOD T1 03720 M01S00400.ns2780 +++| NJN IDI1 IF NOT COMPLETE 03721 M01S00401.ns2780 +++| LDN DILT SET SECTOR 03722 M01S00402.ns2780 +++| STD T7 03723 M01S00403.ns2780 +++| ADN 1 SET CONTROL BYTES 03724 M01S00404.ns2780 +++| STM BFMS 03725 M01S00405.ns2780 +++| LDD HN 03726 M01S00406.ns2780 +++| STM BFMS+1 03727 M01S00407.ns2780 +++| SETMS IO,(ND,NS,RW) 03728 M01S00408.ns2780 +++| LDC BFMS+WLSF WRITE SECTOR 03729 M01S00409.ns2780 +++| RJM WMS 03730 M01S00410.ns2780 +++| ENDMS 03731 M01S00411.ns2780 +++| UJN IDIX RETURN 03732 M01S00412.ns2780 +++| SPACE 4,10 03733 M01S00413.ns2780 +++|** COMMON DECKS. 03734 M01S00414.ns2780 +++| 03735 M01S00415.ns2780 +++| 03736 M01S00416.ns2780 +++|*CALL COMPIFR 03737 M01S00417.ns2780 +++|*CALL COMPSDA 03738 M01S00418.ns2780 +++| QUAL UFT 03739 M01S00419.ns2780 +++| QUAL$ EQU 0 DONT REQUALIFY COMMON DECK 03740 M01S00420.ns2780 +++| GFO$ EQU 0 DEFINE FOT ACCESS ROUTINE 03741 M01S00421.ns2780 +++| FN EQU CA CM WORD BUFFER (5 LOCATIONS) 03742 M01S00422.ns2780 +++|*CALL COMPUFT 03743 M01S00423.ns2780 +++| QUAL * 03744 M01S00424.ns2780 +++| GFO EQU /UFT/GFO 03745 M01S00425.ns2780 +++| SPACE 4,10 03746 M01S00426.ns2780 +++|* OVERFLOW CHECKS. 03747 M01S00427.ns2780 +++| 03748 M01S00428.ns2780 +++| ERRNG BUF-* OVERFLOW INTO COMMON BUFFER AREA 03749 M01S00429.ns2780 +++| 03750 M01S00430.ns2780 +++| OVERFLOW OVLA,EPFW 03751 M00S02509.1ck +++| SPACE 4
| Line S02510 Modification History | |
|---|---|
M01 (Removed by) | ns2780 |
Seq # *Modification Id* Act ----------------------------+ 03752 M01S02510.ns2780 ---| TTL 1CK - SYSTEM CHECK POINT.
| Line S00431 Modification History | |
|---|---|
M01 (Added by) | ns2780 |
Seq # *Modification Id* Act ----------------------------+ 03753 M01S00431.ns2780 +++| TTL 1CK - SYSTEM CHECKPOINT. 03754 M00S02511.1ck +++| END
cdc/nos2.source/opl.opl871/deck/1ck.002.txt · Last modified: by 127.0.0.1