BASIC-MTHPAK

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

0822 00476 140320 CSA CLEAR A1 SO THAT NEGATIVE ONE ISN'T 0823 * GENERATED INADVERTENTLY 0824 00477 101001 SSC SKIP IF RESULTANT SIGN IS NEGATIVE 0825 00500 0 02 00000 LDA M1 LOAD NEGATIVE ONE IF RESULTANT SIGN IS 0826 * POSITIVE 0827 00501 0 13 00355 IMA TEMP SAVE RESULTANT SIGN FLAG, RECOVER HIGH 0828 * WORD OF SECOND ARGUMENT 0829 * 0830 * SET SECOND ARGUMENT POSITIVE AND UNPACK IT 0831 * 0832 00502 100400 SPL SKIP IF POSITIVE 0833 00503 0 10 00122 JST N$22 COMPLIMENT IF NEGATIVE 0834 00504 0 10 00134 JST UNPK UNPACK THE SECOND ARGUMENT 0835 00505 -0 01 00455 JMP* MDAH RETURN 0836 * 0837 00506 000002 C2 OCT 2 0838 EJCT