Previous File Previous Page Single Page Next Page Next File

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

0338 * 0339 * 0340 * UNPACK A FLOATING POINT 0341 * 0342 * CALLING SEQUENCE: 0343 * 0344 * JST UNPK FLOATING POINT IN A AND B REGISTERS 0345 * ......RETURN MANTISA IN A AND B REGISTERS, EXPONENT IN 0346 * SPECIFIED TEMPORARY STORAGE LOCATION 0347 * 0348 * 0349 * THE EXPONENT IS RIGHT JUSTIFIED, AND IF THE FLOATING POINT 0350 * NUMBER IS NEGATIVE,IT IS COMPLIMENTED. THE MANTISSA IS RIGHT JUS- 0351 * TIFIED SO THAT THE BINARY POINT IS BETWEEN THE FIRST TWO BITS OF 0352 * THE A REGISTER. THE FIRST BIT OF THE B REGISTER IS CLEARED TO 0353 * LEAVE THE MANTISSA IN DOUBLE WORD FIXED POINT FORMAT. 0354 * 0355 * 0356 00134 0 000000 UNPK DAC ** ENTRY 0357 00135 0 04 00152 STA EXPT SAVE THE HIGH WORD 0358 * 0359 * EXTRACT THE EXPONENT AND SAVE IT 0360 * 0361 00136 0405 71 ARS 7 RIGHT JUSTIFY THE EXPONENT 0362 00137 100400 SPL SKIP IF POSITIVE 0363 00140 140401 CMA ONE'S COMPLIMENT IF NEGATIVE 0364 00141 0 13 00152 IMA EXPT SAVE THE EXPONENT, RECOVER THE HIGH WORD 0365 * 0366 * PUT THE MANTISSA IN DOUBLE WORD FIXED POINT FORMAT 0367 * 0368 00142 0 03 00153 ANA MSEX STRIP THE EXPONENT 0369 00143 100400 SPL SKIP IF POSITIVE 0370 00144 0 05 00154 ERA MES MOVE THE SIGN IF NEGATIVE 0371 00145 0410 70 LLL 8 LEFT JUSTIFY THE MANTISSA 0372 00146 000201 IAB CLEAR BIT ONE OF THE LOW MANTISSA 0373 00147 0404 77 LGR 1 X 0374 00150 000201 IAB X 0375 00151 -0 01 00134 JMP* UNPK RETURN 0376 * 0377 * 0378 00152 000000 EXPT BSZ 1 0379 00153 100177 MSEX OCT 100177 0380 00154 100200 MES OCT 100200 0381 EJCT
Previous File Previous Page Single Page Next Page Next File