BASIC-MTHPAK

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

0968 * 0969 * INTEGER TO FLOATING POINT CONVERSION 0970 * 0971 * CALLING SEQUNCE: 0972 * 0973 * JST FINT ASSUMES INTEGER IN A REGISTER 0974 * ......RETURN FLOATING POINT IN A AND B REGISTERS 0975 * 0976 * 0977 * THE INTEGER IS PUT IN DOUBLE PREISION FIXED POINT FORM BY 0978 * CLEARING THE B REGISTER. THE EXPONENT IS INITIALIZED AT '217 - 0979 * '200 FOR BIAS AND '17 TO MOVE THE BINARY POINT BETWEEN BITS 1 AND 0980 * 2 OF THE A REGISTER. THEN THE FLOATING POINT NORMALIZING ROUTINE 0981 * IS USED TO PACK IT INTO FLOATING POINT FORMAT. 0982 * 0983 * 0984 00573 0 000000 FINT DAC ** ENTRY 0985 00574 0 04 00152 STA EXPT SAVE THE INTEGER 0986 00575 140040 CRA CLEAR THE B REGISTER 0987 00576 000201 IAB 0988 00577 0 02 00603 LDA C217 INITIALIZE EXPONENT TO BIAS PLUS FACTOR 0989 * TO MOVE BINARY POINT TO THE END OF THE 0990 * A REGISTER 0991 00600 0 13 00152 IMA EXPT RECOVER THE INTEGER 0992 00601 0 10 00202 JST NORM NORMALIZE TO CONVERT 0993 00602 -0 01 00573 JMP* FINT EXIT 0994 * 0995 * 0996 00603 000217 C217 OCT 217 0997 EJCT