BASIC-MTHPAK

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

0106 * 0107 * 0108 * ABSOLUTE VALUE FUNCTION 0109 * 0110 * CALLING SEQUENCE: 0111 * 0112 * JST ABSF 0113 * DAC ARG ADDRESS OF ARGUMENT 0114 * ......RETURN FLOATING POINT RESULT IN A AND B REGISTERS 0115 * 0116 * 0117 * THE ARGUMENT IS LOADED, AND ITS SIGN IS TESTED. IF THE SIGN 0118 * IS MINUS, THEN THE FLOATING POINT ARGUMENT IS TWO'S COMPLIMENTED. 0119 * 0120 * 0121 00014 0 000000 ABSF DAC ** ENTRY 0122 00015 0 02 00014 LDA ABSF LOAD THE ARGUMENT 0123 00016 0 10 00070 JST LARG X 0124 00017 100400 SPL SKIP IF POSITIVE 0125 00020 0 10 00122 JST N$22 COMPLIMENT IF NEGATIVE 0126 00021 -0 01 00120 JMP* LHTS+1 RETURN 0127 EJCT