BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 49

1703 * HERE T0 CLOSE OUT EXPONENT PROCESSING 1704 * 1705 01654 0 02 00056 IL16 LDA ILT1 GET EXPONENT VALUE 1706 01655 0 12 00060 IRS ILT3 TEST FOR NEGITIVE EXPONENT 1707 01656 100000 SKP NO 1708 01657 140407 TCA YES...NEGATE THE EXPONENT 1709 01660 100000 SKP A GO FINISH UP 1710 * 1711 * HERE TO CLOSE OUT CONSTANT CONVERSION 1712 * 1713 01661 140040 IL13 CRA ZERO EXPONENT BY DEFAULT 1714 01662 0 06 00057 ADD ILT2 PUT IN DECIMAL POINT DISPLACEMENT 1715 01663 0 11 00467 CAS M21 CAN ERRONEOUS UNDERFLOW RESULT ? 1716 01664 0 01 01675 JMP IL24 NO 1717 01665 0 01 01675 JMP IL24 NO 1718 01666 0 04 00056 STA ILT1 YES ... DO THE REDUCTION IN TWO STEPS 1719 01667 0 10 03203 JST LCVL CVAL = CVAL*10**(-17) 1720 01670 0 10 00000 JST M$22 X 1721 01671 0 000450 DAC F10R X 1722 01672 0 10 03207 JST SCVL X 1723 01673 0 02 00056 LDA ILT1 ADJUST EXPONENT TO COVER ADJUSTMENT 1724 01674 0 07 00467 SUB M21 X 1725 01675 0 10 00000 IL24 JST FINT FLOAT FINAL EXPONENT 1726 01676 0 10 00000 JST H$22 SAVE THE TRUE EXPONENT 1727 01677 0 000043 DAC LVAL X 1728 01700 0 10 00000 JST L$22 RAISE 10 TO THE PROPER POWER 1729 01701 0 000446 DAC F10 X 1730 01702 0 10 00000 JST E$22 X 1731 01703 0 000043 DAC LVAL X 1732 01704 0 10 00000 JST M$22 GET TRUE VALUE OF THE CONSTANT 1733 01705 0 000041 DAC CVAL X 1734 01706 0 10 00000 JST TINT IS THE NUMBER AN INTEGER ? 1735 01707 0 01 01727 JMP IL17 YES...GO STORE IT 1736 * 1737 01710 0 04 00041 STA CVAL NO...STORE REAL NUMBERS 1738 01711 0 02 00456 LDA RELF PLACE REAL CONSTANT FLAG IN BUFFER 1739 01712 0 10 03133 JST SCHR 1740 01713 0 02 00041 LDA CVAL GET FIRST WORD OF CONSTANT 1741 01714 141340 ICA POSITION FIRST BYTE 1742 01715 0 10 03133 JST SCHR STORE IT 1743 01716 141340 ICA POSITION 2ND BYTE 1744 01717 0 10 03133 IL18 JST SCHR STORE IT 1745 01720 000201 IAB GET NEXT WORD OF VALUE 1746 01721 141340 ICA POSITION FIRST BYTE 1747 01722 0 10 03133 JST SCHR STORE IT 1748 01723 141340 ICA POSITON SECOND BYTE 1749 01724 0 10 03133 JST SCHR STORE IT 1750 01725 0 10 03065 JST UCHR BACK UP OVER UNPROCESSED CHARACTERS 1751 01726 0 01 01517 JMP IL32 GO CONTINUE SCAN 1752 *