BASIC-MTHPAK

* NAME BASIC-MTHPAK DOC. 70181832000 REV. A PAGE 15

0482 * 0483 00223 0 04 00200 STA HIGH STORE THE HIGH MANTISSA 0484 00224 0 02 00273 LDA C100 LOAD THE LOW ROUNDING FACTOR 0485 00225 000201 IAB STORE THE LOW MANTISSA 0486 00226 0 04 00201 STA LOW X 0487 00227 140040 CRA LOAD THE HIGH ROUNDING FACTOR 0488 00230 0 10 00155 JST DADD 0489 * 0490 * TEST THE MANTISSA EQUAL TO NEGATIVE ONE 0491 * 0492 00231 0 11 00276 CAS MLNN TEST HIGH MANTISSA EQUAL TO -1 0493 00232 0 01 00244 JMP N3 NO-JUMP TO PACK THE MANTISSA 0494 00233 000201 IAB YES-LOAD LOW MANTISSA 0495 00234 0 03 00275 ANA MLMA MASK SIGNIFICANT BITS OF THE LOW MANTISSA 0496 00235 100040 SZE TEST LOW MANTISSA EQUAL TO ZERO 0497 00236 0 01 00243 JMP N4 NO-JUMP TO PACK MANTISSA 0498 00237 0 12 00152 IRS EXPT YES-MANTISSA EQUALS NEGATIVE ONE-INCREMENT 0499 * THE EXPONENT BY ONE 0500 00240 000201 IAB AND GENERATE A MANTISSA OF NEGATIVE ONE 0501 00241 0405 77 ARS 1 HALF 0502 00242 100000 SKP 0503 * 0504 * FILL BII ONE OF LOW MANTISSA AND MAKE ROOM FOR THE EXPONENT 0505 * 0506 00243 000201 N4 IAB 0507 00244 0401 71 N3 LRS 7 MAKE ROOM FOR THE EXPONENT 0508 00245 000201 IAB AND FILL BIT ONE OF THE LOW MANTISSA 0509 00246 0414 77 LGL 1 X 0510 00247 000201 IAB X 0511 00250 0400 77 LRL 1 0512 00251 0414 77 LGL 1 BUT SAVE THE SIGN OF THE MANTISSA 0513 00252 0405 77 ARS 1 0514 * 0515 * CHECK FOR OVERFLOW AND UNDERFLOW 0516 * 0517 00253 0 13 00152 IMA EXPT LOAD THE EXPONENT 0518 00254 0 07 00272 SUB CNTR SUBTRACT THE NORMALIZING COUNT 0519 00255 100400 SPL TEST FOR UNDERFLOW 0520 00256 0 01 00266 JMP N6 YES-JUMP TO FLAG UNDERFLOW 0521 00257 0 07 00274 SUB C400 NO-TEST FOR OVERFLOW 0522 00260 101400 SMI X 0523 00261 0 01 00270 JMP N7 YES-JUMP TO FLAG OVERFLOW 0524 00262 0 06 00274 ADD C400 NO-RESTORE THE EXPONENT 0525 * 0526 * FORM TOTAL WORD AND RETURN 0527 * 0528 00263 0414 71 LGL 7 POSITION THE EXPONENT 0529 00264 0 05 00152 ERA EXPT FORM TOTAL WORD 0530 00265 -0 01 00202 JMP* NORM RETURN 0531 *