BASIC-MTHPAK

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

1480 01204 0 000000 FP03 DAC ** 1481 01205 0 13 01213 FP02 IMA FP01 DECREMENT THE COEFFICIENT POINTER IN THE 1482 01206 0 07 00506 SUB C2 ADDITION CALL SO THAT IT POINTS TO THE 1483 01207 0 13 01213 IMA FP01 NEXT COEFFICIENT 1484 01210 0 10 00530 JST M$22 MULTIPLY BY THE ARGUMENT 1485 01211 0 001221 DAC Z0 X 1486 01212 0 10 00304 JST A$22 ADD THE COEFFICIENT 1487 01213 0 000000 FP01 DAC ** X 1488 01214 0 12 01220 IRS FPCR INCREMENT THE COUNTER 1489 01215 0 01 01205 JMP FP02 LOOP UNTIL COUNTER EQUALS ZERO 1490 01216 0 12 01172 IRS FPLY SET-UP RETURN ADDRESS 1491 01217 -0 01 01172 JMP* FPLY RETURN 1492 * 1493 * 1494 01220 000000 FPCR BSZ 1 1495 01221 000000 Z0 BSZ 2 1496 EJCT