BASIC-MTHPAK

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

1215 00732 100040 SZE TEST ZERO 1216 00733 0 01 00740 JMP *+5 IF NOT, JUMP OVER NEXT FEW LINES 1217 00734 0 11 01017 CAS FTMP IF ZERO, COMPARE WITH EXPONENT 1218 00735 0 10 00000 JST ERR ZERO TO NEGATIVE POWER - FLAG DIVISION 1219 00736 142332 BCI 1,DZ BY ZERO 1220 00737 -0 01 00714 JMP* E$22 ZERO TO POSITIVE POWER - EXIT WITH ZERO 1221 * 1222 * COMPUTE EXP(ARG2*LN(ARG1)) 1223 * 1224 00740 0 10 01023 JST LOGF COMPUTE NATURAL LOG OF FIRST ARGUMENT 1225 00741 0 001021 DAC ETMP 1226 00742 0 10 00530 JST M$22 MULTIPLY BY THE EXPONENT 1227 00743 0 001017 DAC FTMP 1228 00744 0 10 00104 JST H$22 STORE IT 1229 00745 0 001017 DAC FTMP 1230 00746 0 10 01107 JST EXPF COMPUTE EXP(B*LN(A)) 1231 00747 0 001017 DAC FTMP 1232 00750 -0 01 00714 JMP* E$22 EXIT 1233 * 1234 * TEST IF THE ABSOLUTE VALUE OF THE INTEGER IS LESS THAN 64 1235 * 1236 00751 100400 E$01 SPL SKIP IF POSITIVE 1237 00752 140407 TCA COMPLIMENT IF NEGATIVE 1238 00753 0 11 00273 CAS C100 TEST FOR LESS THAN 64 1239 00754 101000 NOP 1240 00755 0 01 00730 JMP E$03 JUMP IF NOT 1241 * 1242 * HERE IF EXPONENT IS AN INTEGER WHOSE ABSOLUTE VALUE IS LESS THAN 64 1243 * 1244 00756 101100 E$06 SLN TEST LSB OF EXPONENT 1245 00757 0 01 00770 JMP E$04 JUMP IF ZERO 1246 00760 0 13 01222 IMA Z0+1 IF ONE, LOAD THE INTERMEDIATE RESULT 1247 00761 000201 IAB 1248 00762 0 02 01221 LDA Z0 1249 00763 0 10 00530 JST M$22 MULTIPLY BY POWER OF FIRST ARGUMENT 1250 00764 0 001021 DAC ETMP 1251 00765 0 04 01221 STA Z0 SAVE THE RESULT 1252 00766 000201 IAB 1253 00767 0 13 01222 IMA Z0+1 AND RECOVER THE EXPONENT 1254 00770 0404 77 E$04 LGR 1 SHIFT EXPONENT 1255 00771 101040 SNZ TEST IF THE EXPONENT EQUALS ZER0 1256 00772 0 01 01004 JMP E$05 IF ZER0, JUMP TO TEST SIGN OF EXPONENT 1257 00773 0 04 00450 STA HGHC IF NON-ZERO, SAVE THE EXPONENT 1258 00774 0 10 00100 JST L$22 LOAD POWER OF FIRST ARGUMENT 1259 00775 0 001021 DAC ETMP 1260 00776 0 10 00530 JST M$22 MULTIPLY BY ITSELF 1261 00777 0 001021 DAC ETMP 1262 01000 0 10 00104 JST H$22 SAVE AS THE FIRST ARGUMENT 1263 01001 0 001021 DAC ETMP 1264 01002 0 02 00450 LDA HGHC LOAD THE EXPOMENT