BASIC-MTHPAK

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

1265 01003 0 01 00756 JMP E$06 LOOP TO TEST LSB OF THE EXPONENT 1266 * 1267 * TEST SIGN OF EXPONENT, INVERT RESULT IF SIGN IS NEGATIVE, AND 1268 * RETURN 1269 * 1270 01004 0 02 00650 E$05 LDA CTMP LOAD SIGNED EXPONENT 1271 01005 100400 SPL TEST THE SIGN 1272 01006 0 01 01012 JMP E$07 JUMP IF NEGATIVE 1273 01007 0 10 00100 JST L$22 LOAD RESULT 1274 01010 0 001221 DAC Z0 1275 01011 -0 01 00714 JMP* E$22 EXIT 1276 01012 0 10 00100 E$07 JST L$22 NEGATIVE EXPONENT - LOAD ONE 1277 01013 0 001144 DAC F1 1278 01014 0 10 00361 JST D$22 DIVIDE BY RESULT TO INVERT 1279 01015 0 001221 DAC Z0 1280 01016 -0 01 00714 JMP* E$22 EXIT 1281 * 1282 * 1283 01017 000000 FTMP BSZ 2 1284 01021 000000 ETMP BSZ 2 1285 * 1286 * 1287 * 1288 FIN 1289 EJCT