AB16-CMT5

* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 6

0227 00120 0 000000 COSI DAC ** CORE SIZING ROUTINE 0228 00121 000013 EXA 0229 00122 0 10 00123 JST *+1 0230 00123 0 000000 COSE DAC ** 0231 00124 0 02 00123 LDA COSE DETERMINE BOTTOM OF PROGRAM 0232 00125 0 05 00760 ERA ='123 0233 00126 101040 SNZ 0234 00127 0 01 00151 JMP COSC 0235 00130 0 03 00757 ANA ='77000 0236 00131 0 04 00674 STA NOW SAVE CURRENT DISPLACEMENT 0237 00132 0 02 00756 LDA ='21 0238 00133 0 04 00700 STA NFA 0239 00134 0 04 00676 STA CFA 0240 00135 0 02 00123 LDA COSE 0241 00136 0 07 00755 SUB =4 0242 00137 0 04 00701 STA NLA 0243 00140 0 04 00677 STA CLA 0244 00141 000021 COSD RMP 0245 00142 0 02 00674 LDA NOW FETCH THE CURRENT DISPLACEMLNT 0246 00143 0 06 00675 ADD NOWB AND ADD DISPLACEMENT IN PROGRAM 0247 00144 010000 OCT 10000 (STA 0) STORE THE ADDRESS 0248 00145 0 02 00674 LDA NOW AND FORWARD THE CURRENT PGM 0249 00146 110000 OCT 110000 (STA* 0) LOCATION TO THE SECOND SECTOR 0250 00147 101000 NOP 0251 00150 -0 01 00120 JMP* COSI 0252 * 0253 * 0254 * 0255 00151 0 02 00705 COSC LDA PNTZ WRITE ADDRESS AS CONTENTS INTO MEMORY 0256 00152 0 04 00676 STA CFA LOCATIONS ABOVE PROGRAM 0257 00153 0 04 00700 STA NFA 0258 00154 140040 COSS CRA 0259 00155 0 04 00000 STA 0 0260 00156 0 12 00676 IRS CFA 0261 00157 0 02 00676 LDA CFA 0262 00160 -0 04 00676 STA* CFA 0263 00161 0 02 00000 LDA 0 0264 00162 100040 SZE 0265 00163 0 01 00172 JMP COSB 0266 00164 -0 02 00676 LDA* CFA 0267 00165 0 11 00676 CAS CFA 0268 00166 0 01 00170 JMP *+2 0269 00167 0 01 00154 JMP COSS 0270 00170 100040 SZE 0271 00171 0 01 00154 JMP COSS 0272 00172 0 02 00676 COSB LDA CFA 0273 00173 0 07 00754 SUB =1 0274 00174 0 04 00701 STA NLA 0275 00175 0 04 00677 STA CLA 0276 00176 140040 CRA