BASIC-MTHPAK

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

1430 * 1431 * 1432 * POLYNOMIAL EVALUATION ROUYINE 1433 * 1434 * CALLING SEQUENCE: 1435 * 1436 * JST FPLY ARGUMENT IN THE A AND B REGISTERS 1437 * DAC CPLC ADDRESS OF COEFFICIENT POINTER AND TWO'S 1438 * COMPLIMENT OF THE DEGREE OF THE POLYNOMIAL 1439 * ......RETURN RESULT RETURNED IN THE A AND B REGISTERS 1440 * . 1441 * . 1442 * . 1443 * DEC C0 1444 * DEC C1 1445 * . 1446 * . 1447 * . 1448 * CNAD DEC CN 1449 * . 1450 * . 1451 * . 1452 * CPLC DAC CNAD 1453 * DEC -N 1454 * 1455 * 1456 * THIS ROUTINE EVALUATES THE POLYNOMIAL OF THE FORM: 1457 * C0+C1*X+C2*X^2+C3*X^3+...+CN*X^N. THE ARGUMENT PASSED IN THE A AND 1458 * B REGISTERS IS SAVED, AND THE COEFFICIENT POINTER AND THE TWO'S 1459 * COMPLIMENT OF THE DEGREE OF THE POLYNOMIAL ARE LOADED. THE COEF- 1460 * FICIENT POINTER IS SAVED IN THE ADDITION CALL IN THE LOOP. THE 1461 * TWO'S COMPLIMENT OF THE DEGREE OF THE POLYNOMIAL IS SAVED AS A LOOP 1462 * COUNTER. THE NTH COEFFICIENT IS LOADED, AND THE COEFFICIENT 1463 * POINTER IS DECREMENTED TO POINT AT THE NEXT COEFFICIENT. THE 1464 * CURRENT RESULT IS MULTIPLIED BY THE ARGUMENT, AND THE NEXT COEF- 1465 * FICIENT IS ADDED. THE LOOP COUNTER IS INCREMENTED BY ONE, AND IF 1466 * IT IS EQUAL TO ZERO RETURN IS MADE. OTHERWISE THE ROUTINE LOOPS 1467 * TO DECREMENT THE COEFFICIENT POINTER. 1468 * 1469 * 1470 01172 0 000000 FPLY DAC ** ENTRY 1471 01173 0 10 00104 JST H$22 SAVE THE ARGUMENT 1472 01174 0 001221 DAC Z0 1473 01175 0 02 01172 LDA FPLY LOAD THE COEFFICIENT POINTER 1474 01176 0 10 00070 JST LARG AND THE LOOP COUNTER 1475 01177 0 04 01213 STA FP01 SAVE COEDDICIENT POINTER IN ADDITION CALL 1476 01200 0 04 01204 STA FP03 SAVE TO LOAD THE NTH COEFFICIENT 1477 01201 000201 IAB LOAD LOOP COUNTER 1478 01202 0 04 01220 STA FPCR AND SAVE 1479 01203 0 10 00100 JST L$22 LOAD THE NTH COEFFICIENT