Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.compcma +++| CTEXT COMPCMA - CENTRAL MEMORY AVAILABLE ON RECOVERY.
00002 M00S00002.compcma +++| SPACE 4
00003 M00S00003.compcma +++| IF -DEF,QUAL$,1
00004 M00S00004.compcma +++| QUAL COMPCMA
| Line S00005 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M00S00006.compcma +++| SPACE 4
00008 M00S00007.compcma +++|*** CMA - CENTRAL MEMORY AVAILABLE ON RECOVERY.
00009 M00S00008.compcma +++|* A. J. BEEKMAN. 74/06/18.
00010 M00S00009.compcma +++|* P. D. HAAS. 80/03/17.
00011 M00S00010.compcma +++| SPACE 4
00012 M00S00011.compcma +++|*** CMA BUILDS A FOUR WORD TABLE OUTLINING THE
00013 M00S00012.compcma +++|* LARGEST AREA OF CENTRAL MEMORY THAT NEED NOT REMAIN
00014 M00S00013.compcma +++|* INTACT DURING A RECOVERY DEADSTART. THE TABLE IS
00015 M00S00014.compcma +++|* BUILT AT THE ADDRESS PASSED BY THE CALLING PROGRAM.
00016 M00S00015.compcma +++|* THE TABLE FORMAT IS-
00017 M00S00016.compcma +++|*
00018 M00S00017.compcma +++|*T 12/ U FA RA
00019 M00S00018.compcma +++|*T, 12/ L FA RA
00020 M00S00019.compcma +++|*T, 12/ U FA FL
00021 M00S00020.compcma +++|*T, 12/ L FA FL
00022 M00S00021.compcma +++|*
00023 M00S00022.compcma +++|* U UPPER BYTE OF ADDRESS.
00024 M00S00023.compcma +++|* L LOWER BYTE OF ADDRESS.
00025 M00S00024.compcma +++|* FA FREE AREA BLOCK FOLLOWING SUBSYSTEM BLOCK.
00026 M00S00025.compcma +++|* RA REFERENCE ADDRESS/ 100.
00027 M00S00026.compcma +++|* FL FIELD LENGTH/ 100.
| Line S00027 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00028 M01S00027.271l716 ---|*
00029 M01S00028.271l716 ---|* COMPCMA CHECKS TO SEE THAT THE RA OF EACH SUBSYSTEM IS
00030 M01S00029.271l716 ---|* GREATER THAN OR EQUAL TO CMR SIZE OR THE RA + FL OF THE
00031 M01S00030.271l716 ---|* PREVIOUS SUBSYSTEM. IF EITHER OF THESE CHECKS IS
00032 M01S00031.271l716 ---|* FOUND TO BE FALSE, THE TABLE IS SET TO SHOW THAT NO
00033 M01S00032.271l716 ---|* FREE AREA EXISTS BY FOUR WORDS OF ZERO.
00034 M00S00033.compcma +++|*
| Line S00034 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00035 M01S00034.ns21000 ---|* ENTRY (A) = ADDRESS AT WHICH TO BUILD TABLE.
| Line S00001 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00036 M01S00001.ns21000 +++|* ENTRY (A) = 6/ MSZL, 12/ TFAB.
00037 M01S00002.ns21000 +++|* MSZL = MEMORY SIZE LIMIT FLAG.
00038 M01S00003.ns21000 +++|* 0 = CHECK ENTIRE MACHINE FL FOR FREE AREA.
00039 M01S00004.ns21000 +++|* 1 = CHECK UP TO 262K.
00040 M01S00005.ns21000 +++|* 2 = CHECK UP TO 131K.
00041 M01S00006.ns21000 +++|* TFAB = ADDRESS TO BUILD TABLE FOR FREE AREA BLOCK.
00042 M00S00035.compcma +++|*
| Line S00036 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00043 M01S00036.271l716 ---|* EXIT (T1) = LWA + 1 OF TABLE.
00044 M01S00037.271l716 ---|*
00045 M01S00038.271l716 ---|* USES T1 - T4, CM - CM+4.
| Line S00001 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00046 M01S00001.271l716 +++|* EXIT (A) = 0.
00047 M01S00002.271l716 +++|* (T5) = LWA + 1 OF TABLE.
00048 M01S00003.271l716 +++|*
00049 M01S00004.271l716 +++|* USES CM - CM+4, T1 - T7.
00050 M00S00039.compcma +++|*
| Line S00040 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00051 M01S00040.ns21000 ---|* CALLS SAT.
| Line S00007 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00052 M01S00007.ns21000 +++|* CALLS CLF.
00053 M00S00041.compcma +++|*
| Line S00042 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00054 M01S00042.ns21000 ---|* XREF COMSSSD.
| Line S00008 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00055 M01S00008.ns21000 +++|* XREF COMSSSD, COMSPIM.
00056 M00S00043.compcma +++|
00057 M00S00044.compcma +++|
00058 M00S00045.compcma +++| CMA SUBR ENTRY/EXIT
| Line S00046 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00059 M01S00046.ns21000 ---| STM CLFA
| Line S00009 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00060 M02S00009.271l716 ---| STM CLFA SAVE TABLE FWA
00061 M02S00010.271l716 ---| SHN -14
00062 M02S00011.271l716 ---| STM CLFB SAVE MEMORY SIZE LIMIT FLAG
00063 M02S00012.271l716 ---| ADC SHNI+77-15
00064 M02S00013.271l716 ---| STM CLFC
00065 M02S00014.271l716 ---| STM CLFD
| Line S00047 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00066 M01S00047.271l716 ---| LDN NCPL FETCH NUMBER OF CONTROL POINTS
00067 M01S00048.271l716 ---| CRD CM
00068 M01S00049.271l716 ---| AOD CM+1
00069 M01S00050.271l716 ---| SHN 7
00070 M01S00051.271l716 ---| RAM CMAA
00071 M01S00052.271l716 ---| LDN 1 INITIALIZE CONTROL POINT NUMBER
00072 M01S00053.271l716 ---| STD T0
00073 M01S00054.271l716 ---| SHN 7 FETCH RA OF CONTROL POINT 1
00074 M01S00055.271l716 ---| ADN FLSW
00075 M01S00056.271l716 ---| CRD CM
| Line S00057 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00076 M02S00057.271l716 ---| LJM CMA5 SET CMR SIZE
| Line S00015 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00077 M02S00015.271l716 ---| UJN CMA2 SET CMR SIZE
| Line S00005 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00078 M01S00005.271l716 +++| STM CLBA SET TABLE FWA
00079 M01S00006.271l716 +++| SHN -14
00080 M01S00007.271l716 +++| STM CLBB SAVE MEMORY SIZE LIMIT FLAG
00081 M01S00008.271l716 +++| ADC SHNI+77-15
00082 M01S00009.271l716 +++| STM CLBC
00083 M01S00010.271l716 +++| STM CLBD
00084 M01S00011.271l716 +++| LDN NCPL FETCH NUMBER OF CONTROL POINTS
00085 M01S00012.271l716 +++| CRD T6
00086 M01S00013.271l716 +++| ADN MCTP-NCPL GET MCT POINTER
00087 M01S00014.271l716 +++| CRD CM
00088 M01S00015.271l716 +++| AOD T7 SET SYSTEM CP NUMBER
00089 M01S00016.271l716 +++| LDN 1
00090 M01S00017.271l716 +++| STD T6 INITIALIZE MCT ORDINAL
00091 M01S00018.271l716 +++| CMAA LDD CM+1
00092 M01S00019.271l716 +++|* UJN CMA1 (PRESET COMPLETE)
00093 M01S00020.271l716 +++| STM CMAB
00094 M01S00021.271l716 +++| LDD CM SET MCT BASE ADDRESS
00095 M01S00022.271l716 +++| RAM CMAB-1
00096 M01S00023.271l716 +++| IF -DEF,SCA
00097 M01S00024.271l716 +++| ERRNZ MCTP-PCPP CODE DEPENDS ON VALUE
00098 M01S00025.271l716 +++| LDD CM+4
00099 M01S00026.271l716 +++| STM SCAA
00100 M01S00027.271l716 +++| LDD CM+3 SET FWA OF PCP-S
00101 M01S00028.271l716 +++| RAM SCAA-1
00102 M01S00029.271l716 +++| ENDIF
00103 M01S00030.271l716 +++| LDC * INSERT SKIP AROUND PRESET CODE
00104 M01S00031.271l716 +++| ORG *-1
00105 M01S00032.271l716 +++| LOC CMAA
00106 M01S00033.271l716 +++| UJN CMA1 ENTER MAIN LOOP
00107 M01S00034.271l716 +++| LOC *O
00108 M01S00035.271l716 +++| STM CMAA
00109 M00S00058.compcma +++|
00110 M00S00059.compcma +++|* MAIN LOOP.
00111 M00S00060.compcma +++|
| Line S00061 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00112 M01S00061.ns21000 ---| CMA1 AOD T0 ADVANCE CONTROL POINT
00113 M01S00062.ns21000 ---| SHN 7
00114 M01S00063.ns21000 ---| ADN FLSW READ FIELD LENGTH CONTROL WORD
00115 M01S00064.ns21000 ---| CRD CM
00116 M01S00065.ns21000 ---| LMC FLSW
00117 M01S00066.ns21000 ---| CMAA EQU *-1
00118 M01S00067.ns21000 ---| NJN CMA3 IF NOT END OF CONTROL POINTS
00119 M01S00068.ns21000 ---| LDC MABL READ MACHINE SIZE
00120 M01S00069.ns21000 ---| CRD CM
00121 M01S00070.ns21000 ---| LDN 0 CLEAR NFL FIELD
00122 M01S00071.ns21000 ---| STD CM
00123 M01S00072.ns21000 ---| RJM CLF
00124 M01S00073.ns21000 ---| LJM CMAX RETURN
00125 M01S00074.ns21000 ---|
00126 M01S00075.ns21000 ---| CMA3 RJM CLF CHECK FREE MEMORY
00127 M01S00076.ns21000 ---| CMA5 LDD CM+2 SET NEXT CHECK FOR INCREASING RA
| Line S00016 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00128 M02S00016.271l716 ---| CMA1 RJM CLF CHECK FREE MEMORY
00129 M02S00017.271l716 ---| CMA2 LDD CM+2 SET NEXT CHECK FOR INCREASING RA
| Line S00077 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00130 M01S00077.271l716 ---| STD T2
00131 M01S00078.271l716 ---| LDD CM+3
00132 M01S00079.271l716 ---| STD T3
00133 M01S00080.271l716 ---| LDD CM+4 SAVE FL
00134 M01S00081.271l716 ---| STD T4
00135 M01S00082.271l716 ---| LDD T0
00136 M01S00083.271l716 ---| SHN 7
00137 M01S00084.271l716 ---| ADN JCIW
00138 M01S00085.271l716 ---| CRD CM
00139 M01S00086.271l716 ---| LDD CM+2 CHECK ID
00140 M01S00087.271l716 ---| SBK LSSI
| Line S00088 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00141 M02S00088.271l716 ---| MJN CMA6 IF NOT SUBSYSTEM
| Line S00018 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00142 M02S00018.271l716 ---| MJN CMA3 IF NOT SUBSYSTEM
| Line S00089 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00143 M01S00089.271l716 ---| SBN DSSI-LSSI
| Line S00090 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00144 M02S00090.271l716 ---| ZJN CMA6 IF DEADSTART SEQUENCING ACTIVE
| Line S00019 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00145 M02S00019.271l716 ---| ZJN CMA3 IF DEADSTART SEQUENCING ACTIVE
| Line S00091 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00146 M01S00091.271l716 ---| LDD T4 APPEND SUBSYSTEM FL TO RA
00147 M01S00092.271l716 ---| RAD T3 UPDATE LWA
00148 M01S00093.271l716 ---| SHN -14
00149 M01S00094.271l716 ---| RAD T2
| Line S00095 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00150 M02S00095.271l716 ---| CMA6 LJM CMA1 LOOP FOR NEXT CONTROL POINT
| Line S00020 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00151 M02S00020.271l716 ---| CMA3 AOD T0 ADVANCE CONTROL POINT
00152 M02S00021.271l716 ---| SHN 7
00153 M02S00022.271l716 ---| ADN FLSW READ FIELD LENGTH CONTROL WORD
00154 M02S00023.271l716 ---| CRD CM
00155 M02S00024.271l716 ---| LMC FLSW
00156 M02S00025.271l716 ---| CMAA EQU *-1
00157 M02S00026.271l716 ---| NJN CMA1 IF NOT END OF CONTROL POINTS
00158 M02S00027.271l716 ---| LDC MABL READ MACHINE SIZE
00159 M02S00028.271l716 ---| CRD CM
00160 M02S00029.271l716 ---| LDN 0 CLEAR NFL FIELD
00161 M02S00030.271l716 ---| STD CM
00162 M02S00031.271l716 ---| RJM CLF
00163 M02S00032.271l716 ---| LJM CMAX RETURN
| Line S00096 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00164 M01S00096.271l716 ---| CLF SPACE 4,15
00165 M01S00097.271l716 ---|** CLF - CHECK LARGEST FREE MEMORY BLOCK.
00166 M01S00098.271l716 ---|*
00167 M01S00099.271l716 ---|* ENTRY (CM - CM+4) = CURRENT CP *FLSW* WORD.
00168 M01S00100.271l716 ---|* (T2,T3) = LWA OF PREVIOUS CP.
00169 M01S00101.271l716 ---|* (CLFA) = FWA OF TABLE.
| Line S00033 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00170 M02S00033.271l716 ---|* (CLFB) = MEMORY SIZE LIMIT FLAG.
00171 M02S00034.271l716 ---|* (CLFC) = (CLFD) = SHIFT INSTRUCTION FOR MEMORY
00172 M02S00035.271l716 ---|* SIZE LIMIT CHECK.
| Line S00102 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00173 M01S00102.271l716 ---|*
00174 M01S00103.271l716 ---|* EXIT (TABLE,T1) = LARGEST FREE AREA FOUND.
00175 M01S00104.271l716 ---|* EXIT TO *CMAX* WITH THE TABLE ENTRY ZERO IF
00176 M01S00105.271l716 ---|* MEMORY OVERLAP IS DETECTED.
00177 M01S00106.271l716 ---|*
00178 M01S00107.271l716 ---|* CALLS SAT.
00179 M01S00108.271l716 ---|
00180 M01S00109.271l716 ---|
00181 M01S00110.271l716 ---| CLF SUBR ENTRY/EXIT
00182 M01S00111.271l716 ---| LDC 0 RESET TABLE FWA
00183 M01S00112.271l716 ---| CLFA EQU *-1
00184 M01S00113.271l716 ---| STD T1
00185 M01S00114.271l716 ---| LDD CM+2 FORM FREE MEMORY SIZE
00186 M01S00115.271l716 ---| SBD T2
00187 M01S00116.271l716 ---| SHN 14
00188 M01S00117.271l716 ---| ADD CM+3
00189 M01S00118.271l716 ---| SBD T3
00190 M01S00119.271l716 ---| SBD CM
| Line S00036 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00191 M02S00036.271l716 ---| ZJN CLFX IF NO FREE SPACE
| Line S00120 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00192 M01S00120.271l716 ---| PJN CLF1 IF NO OVERLAP EXISTS
00193 M01S00121.271l716 ---| LDN 0 FLAG MEMORY OVERLAP
00194 M01S00122.271l716 ---| RJM SAT
00195 M01S00123.271l716 ---| LDN 0
00196 M01S00124.271l716 ---| RJM SAT
00197 M01S00125.271l716 ---| LJM CMAX RETURN
00198 M01S00126.271l716 ---|
| Line S00127 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00199 M02S00127.271l716 ---| CLF1 ZJN CLFX IF NO FREE SPACE, RETURN
00200 M02S00128.271l716 ---| STD CM+1 SAVE LOWER 12 BITS OF FREE FL
| Line S00037 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00201 M02S00037.271l716 ---| CLF0 LDD CM REDUCE FL AND RECHECK
00202 M02S00038.271l716 ---| SHN 14
00203 M02S00039.271l716 ---| ADD CM+1
00204 M02S00040.271l716 ---| SBN 1
00205 M02S00041.271l716 ---| CLF1 STD CM+1 SAVE LOWER 12 BITS OF FREE FL
| Line S00129 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00206 M01S00129.271l716 ---| SHN -14
00207 M01S00130.271l716 ---| STD CM SAVE UPPER 12 BITS OF FREE FL
00208 M01S00131.271l716 ---|
00209 M01S00132.271l716 ---|* CHECK IF THIS AREA IS THE LARGEST.
00210 M01S00133.271l716 ---|
00211 M01S00134.271l716 ---| SBP 2,T1
00212 M01S00135.271l716 ---| SHN 14
00213 M01S00136.271l716 ---| ADD CM+1
00214 M01S00137.271l716 ---| SBP 3,T1
00215 M01S00138.271l716 ---| MJN CLF2 IF THIS NOT LARGEST FREE AREA
| Line S00139 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00216 M02S00139.271l716 ---| .CTI IF -DEF,.CTI
| Line S00042 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00217 M02S00042.271l716 ---| LDC 0 CHECK FOR MEMORY SIZE LIMIT
00218 M02S00043.271l716 ---|* LDC 1 (262K MEMORY LIMIT)
00219 M02S00044.271l716 ---|* LDC 2 (131K MEMORY LIMIT)
00220 M02S00045.271l716 ---| CLFB EQU *-1
00221 M02S00046.271l716 ---| ZJN CLF1.1 IF NO MEMORY SIZE LIMIT
| Line S00140 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00222 M01S00140.271l716 ---| LDD T3
| Line S00141 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00223 M02S00141.271l716 ---| SHN -13
| Line S00047 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00224 M02S00047.271l716 ---| CLFC SHN -13 131K MEMORY LIMIT
00225 M02S00048.271l716 ---|* SHN -14 (262K MEMORY LIMIT)
| Line S00142 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00226 M01S00142.271l716 ---| ADD T2
| Line S00143 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00227 M02S00143.271l716 ---| NJN CLF2 IF RA BEYOND 131K
| Line S00049 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00228 M02S00049.271l716 ---| NJN CLF2 IF RA BEYOND LIMIT
| Line S00144 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00229 M01S00144.271l716 ---| LDD T3
00230 M01S00145.271l716 ---| ADD CM+1
| Line S00146 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00231 M02S00146.271l716 ---| SHN -13
| Line S00050 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00232 M02S00050.271l716 ---| CLFD SHN -13 131K MEMORY LIMIT
00233 M02S00051.271l716 ---|* SHN -14 (262K MEMORY LIMIT)
| Line S00147 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00234 M01S00147.271l716 ---| ADD CM
| Line S00148 Modification History |
M01 (Removed by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00235 M02S00148.271l716 ---| ZJN CLF1.1 IF RA + FL WITHIN 131K
00236 M02S00149.271l716 ---| LDD CM
00237 M02S00150.271l716 ---| SHN 14
00238 M02S00151.271l716 ---| ADD CM+1
00239 M02S00152.271l716 ---| SBN 1 REDUCE FL AND RECHECK
00240 M02S00153.271l716 ---| UJN CLF1 CHECK REDUCED FL
00241 M02S00154.271l716 ---| .CTI ENDIF
| Line S00052 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00242 M02S00052.271l716 ---| NJN CLF0 IF RA + FL NOT WITHIN LIMIT
| Line S00155 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00243 M01S00155.271l716 ---| CLF1.1 LDD T2 STORE RA
00244 M01S00156.271l716 ---| SHN 14
00245 M01S00157.271l716 ---| ADD T3
00246 M01S00158.271l716 ---| RJM SAT
00247 M01S00159.271l716 ---| LDD CM STORE FL
00248 M01S00160.271l716 ---| SHN 14
00249 M01S00161.271l716 ---| ADD CM+1
00250 M01S00162.271l716 ---| RJM SAT
00251 M01S00163.271l716 ---| CLF2 LJM CLFX RETURN
00252 M01S00164.271l716 ---| SPACE 4
00253 M01S00165.271l716 ---|** SAT - STORE ADDRESS IN TABLE.
00254 M01S00166.271l716 ---|*
00255 M01S00167.271l716 ---|* ENTRY (A) = 18 BIT ADDRESS TO STORE IN TABLE.
00256 M01S00168.271l716 ---|* (T1) = TABLE ADDRESS.
00257 M01S00169.271l716 ---|*
00258 M01S00170.271l716 ---|* EXIT (T1) ADVANCED BY 2.
00259 M01S00171.271l716 ---|*
00260 M01S00172.271l716 ---|* USES T1.
00261 M01S00173.271l716 ---|
00262 M01S00174.271l716 ---|
00263 M01S00175.271l716 ---| SAT SUBR ENTRY/EXIT
00264 M01S00176.271l716 ---| STP 1,T1
00265 M01S00177.271l716 ---| SHN -14
00266 M01S00178.271l716 ---| STI T1 STORE UPPER BYTE
00267 M01S00179.271l716 ---| LDN 2 SET TABLE ADDRESS FOR NEXT STORAGE
00268 M01S00180.271l716 ---| RAD T1
00269 M01S00181.271l716 ---| UJN SATX RETURN
| Line S00036 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00270 M01S00036.271l716 +++| CMA1 LDD T6 CONVERT ORDINAL TO INDEX
00271 M01S00037.271l716 +++| SHN 1
00272 M01S00038.271l716 +++| ADC 0 READ MCT ENTRY
00273 M01S00039.271l716 +++| CMAB EQU *-1
00274 M01S00040.271l716 +++| CRD CM
00275 M01S00041.271l716 +++| RJM CLB CHECK FREE MEMORY
00276 M01S00042.271l716 +++| LDD CM+1
00277 M01S00043.271l716 +++| STD T6 FORWARD LINK = NEXT MCT ORDINAL
00278 M01S00044.271l716 +++| LMD T7
00279 M01S00045.271l716 +++| NJN CMA1 IF NOT SYSTEM CP
00280 M01S00046.271l716 +++|* LDN 0
00281 M01S00047.271l716 +++| UJP CMAX RETURN
00282 M01S00048.271l716 +++| CLB SPACE 4,10
00283 M01S00049.271l716 +++|** CLB - CHECK LARGEST FREE MEMORY BLOCK.
00284 M01S00050.271l716 +++|*
00285 M01S00051.271l716 +++|* ENTRY (T6) = MCT ORDINAL = CP/PCP NUMBER.
00286 M01S00052.271l716 +++|* (CM - CM+4) = MCT ENTRY.
00287 M01S00053.271l716 +++|*
00288 M01S00054.271l716 +++|* USES CM+3, CM+4, T0 - T5.
00289 M01S00055.271l716 +++|*
00290 M01S00056.271l716 +++|* CALLS SAT, SCA.
00291 M01S00057.271l716 +++|
00292 M01S00058.271l716 +++|
00293 M01S00059.271l716 +++| CLB1 SOD CM+4
00294 M01S00060.271l716 +++| PJN CLB2 IF NO UNDERFLOW
00295 M01S00061.271l716 +++| AOD CM+4
00296 M01S00062.271l716 +++| SOD CM+3 DECREMENT HOLE SIZE
00297 M01S00063.271l716 +++|
00298 M01S00064.271l716 +++|* CHECK IF CURRENT AREA IS LARGEST.
00299 M01S00065.271l716 +++|
00300 M01S00066.271l716 +++| CLB2 LDP 2,T5 CHECK REDUCED HOLE SIZE
00301 M01S00067.271l716 +++| SBD CM+3
00302 M01S00068.271l716 +++| SHN 14 COMPARE WITH PREVIOUSLY FOUND
00303 M01S00069.271l716 +++| ADP 3,T5
00304 M01S00070.271l716 +++| SBD CM+4
00305 M01S00071.271l716 +++| PJN CLBX IF THIS NOT LARGEST FREE AREA
00306 M01S00072.271l716 +++|
00307 M01S00073.271l716 +++|* VERIFY RA + HOLE SIZE WITHIN REQUESTED BOUNDS.
00308 M01S00074.271l716 +++|
00309 M01S00075.271l716 +++| CLB3 LDC 0 CHECK FOR MEMORY SIZE LIMIT
00310 M01S00076.271l716 +++|* LDC 1 (262K MEMORY LIMIT)
00311 M01S00077.271l716 +++|* LDC 2 (131K MEMORY LIMIT)
00312 M01S00078.271l716 +++| CLBB EQU *-1
00313 M01S00079.271l716 +++| ZJN CLB4 IF NO MEMORY SIZE LIMIT
00314 M01S00080.271l716 +++| LDD T3
00315 M01S00081.271l716 +++| CLBC SHN -13 131K MEMORY LIMIT
00316 M01S00082.271l716 +++|* SHN -14 (262K MEMORY LIMIT)
00317 M01S00083.271l716 +++| ADD T2
00318 M01S00084.271l716 +++| NJN CLBX IF RA BEYOND LIMIT
00319 M01S00085.271l716 +++| LDD T3
00320 M01S00086.271l716 +++| ADD CM+4
00321 M01S00087.271l716 +++| CLBD SHN -13 131K MEMORY LIMIT
00322 M01S00088.271l716 +++|* SHN -14 (262K MEMORY LIMIT)
00323 M01S00089.271l716 +++| ADD CM+3
00324 M01S00090.271l716 +++| NJN CLB1 IF RA + HOLE NOT WITHIN LIMIT
00325 M01S00091.271l716 +++| CLB4 LDD T2
00326 M01S00092.271l716 +++| SHN 14
00327 M01S00093.271l716 +++| ADD T3 SET RA IN PARAMETER BUFFER
00328 M01S00094.271l716 +++| RJM SAT
00329 M01S00095.271l716 +++| LDD CM+3
00330 M01S00096.271l716 +++| SHN 14
00331 M01S00097.271l716 +++| ADD CM+4 SET HOLE SIZE
00332 M01S00098.271l716 +++| RJM SAT
00333 M01S00099.271l716 +++|
00334 M01S00100.271l716 +++| CLB SUBR ENTRY/EXIT
00335 M01S00101.271l716 +++| LDC 0
00336 M01S00102.271l716 +++| CLBA EQU *-1
00337 M01S00103.271l716 +++| STD T5 RESET TABLE FWA
00338 M01S00104.271l716 +++| LDP 2,T5
00339 M01S00105.271l716 +++| SBD CM+3
00340 M01S00106.271l716 +++| SHN 14 CHECK CURRENT BLOCK WITH PREVIOUS
00341 M01S00107.271l716 +++| ADP 3,T5
00342 M01S00108.271l716 +++| SBD CM+4
00343 M01S00109.271l716 +++| PJN CLBX IF HOLE SIZE .LE. PREVIOUS
00344 M01S00110.271l716 +++| LDD T6
00345 M01S00111.271l716 +++| RJM SCA SET CP/PCP ADDRESS
00346 M01S00112.271l716 +++| ADN FLSW
00347 M01S00113.271l716 +++| CRD T0 GET FL CONTROL WORD
00348 M01S00114.271l716 +++| LDD T4
00349 M01S00115.271l716 +++| RAD T3 RA OF HOLE = RA + FL OF CP/PCP
00350 M01S00116.271l716 +++| SHN -14
00351 M01S00117.271l716 +++| RAD T2
00352 M01S00118.271l716 +++| UJP CLB3 CHECK HOLE WITHIN BOUNDS
00353 M01S00119.271l716 +++| SPACE 4,10
00354 M01S00120.271l716 +++|** SAT - STORE ADDRESS IN TABLE.
00355 M01S00121.271l716 +++|*
00356 M01S00122.271l716 +++|* ENTRY (A) = 18 BIT ADDRESS TO STORE.
00357 M01S00123.271l716 +++|* (T5) = TABLE ADDRESS.
00358 M01S00124.271l716 +++|*
00359 M01S00125.271l716 +++|* EXIT (T5) ADVANCED BY 2.
00360 M01S00126.271l716 +++|
00361 M01S00127.271l716 +++|
00362 M01S00128.271l716 +++| SAT SUBR ENTRY/EXIT
00363 M01S00129.271l716 +++| STP 1,T5
00364 M01S00130.271l716 +++| SHN -14 SET ADDRESS IN TABLE
00365 M01S00131.271l716 +++| STI T5
00366 M01S00132.271l716 +++| LDN 2 ADVANCE TABLE ADDRESS
00367 M01S00133.271l716 +++| RAD T5
00368 M01S00134.271l716 +++| UJN SATX RETURN
00369 M01S00135.271l716 +++| IF -DEF,SCA
00370 M01S00136.271l716 +++| SCA SPACE 4,10
00371 M01S00137.271l716 +++|** SCA - SET CP/PCP AREA ADDRESS.
00372 M01S00138.271l716 +++|*
00373 M01S00139.271l716 +++|* ENTRY (A) = CP/PCP NUMBER.
00374 M01S00140.271l716 +++|* (T7) = SYSTEM CP NUMBER.
00375 M01S00141.271l716 +++|*
00376 M01S00142.271l716 +++|* EXIT (A) = CPA/PCPA ADDRESS.
00377 M01S00143.271l716 +++|
00378 M01S00144.271l716 +++|
00379 M01S00145.271l716 +++| SCA1 ADD T7 SET REAL CP AREA ADDRESS
00380 M01S00146.271l716 +++| SHN 7
00381 M01S00147.271l716 +++|
00382 M01S00148.271l716 +++| SCA SUBR ENTRY/EXIT
00383 M01S00149.271l716 +++| SBD T7
00384 M01S00150.271l716 +++| MJN SCA1 IF REAL CP
00385 M01S00151.271l716 +++| ZJN SCA1 IF SYSTEM CP
00386 M01S00152.271l716 +++| SBN 1 SET PCP AREA ORDINAL
00387 M01S00153.271l716 +++| SHN 7
00388 M01S00154.271l716 +++| ADC 0 ADD BASE PCPA ADDRESS
00389 M01S00155.271l716 +++| SCAA EQU *-1
00390 M01S00156.271l716 +++| UJN SCAX RETURN
00391 M01S00157.271l716 +++| ENDIF
00392 M00S00182.compcma +++| SPACE 4
00393 M00S00183.compcma +++| QUAL$ IF -DEF,QUAL$
00394 M00S00184.compcma +++| QUAL *
00395 M00S00185.compcma +++| CMA EQU /COMPCMA/CMA
00396 M00S00186.compcma +++| SAT EQU /COMPCMA/SAT
00397 M00S00187.compcma +++| QUAL$ ENDIF
00398 M00S00188.compcma +++| ENDX