BASIC-MTHPAK

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

1139 00672 0 02 00712 LDA LRSM YES - SHIFT OUT ALL BITS EXCEPT SIGN 1140 00673 0 04 00676 STA IN02 STORE RIGHT SHIFT 1141 00674 0 05 00711 ERA C1K FORM LEFT SHIFT INSTRUCTION 1142 00675 0 13 00677 IMA IN03 AND STORE, RECOVER HIGH 1143 00676 0401 00 IN02 LRS ** SHIFT OUT FRACTIONAL 1144 00677 0411 00 IN03 LLS ** RESTORE FORMAT 1145 * 1146 * BE SURE THAT NEGATIVE ONE IS RETURNED FOR ARGUMENTS IN THE 1147 * RANGE OF NEGATIVE ONE AND ZERO 1148 * 1149 00700 0 11 00276 CAS MLNN SPECIAL CHECK SO THAT -1 IS GENERATED FOR 1150 * NUMBERS BETWEEN -1 AND 0 1151 00701 0 01 00663 JMP IN04 JUMP TO REPACK 1152 00702 0 13 00677 IMA IN03 LOAD THE SHIFT INSTRUCTION 1153 00703 0 11 00713 CAS LLSM TEST IF ALL MANTISSA BITS WERE SHIFTED OUT 1154 00704 0 01 00662 JMP IN04-1 NO - JUMP TO REPACK 1155 00705 0 02 00000 LDA FM1 YES - LOAD -1 1156 00706 -0 01 00120 JMP* LHTS+1 AND RETURN 1157 * 1158 * 1159 00707 177551 M227 OCT -227 1160 00710 177742 M36 OCT -36 1161 00711 001000 C1K OCT 1000 1162 00712 040142 LRSM OCT 40142 1163 00713 041142 LLSM OCT 41142 1164 EJCT