BASIC-MTHPAK

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

1042 * 1043 * 1044 * TEST FOR INTEGER ROUTINE 1045 * 1046 * CALLLNG SEQUENCE: 1047 * 1048 * JST TINT ASSUMES FLOATING POINT IN A AND B REGISTERS 1049 * ......INTEGER RETURN - INTEGER IN A REGISTER 1050 * ......FLOATING POINT RETURN - FLOATING POINT IN A AND B 1051 * REGISTERS. CONVERSION NOT MADE BECAUSE 1052 * FLOATING POINT IS OUT OF INTEGER RANGE, 1053 * OR CONTAINED FRACTIONAL BITS. 1054 * 1055 * 1056 * THIS ROUTINE CALLS UPON THE FLOATING POINT TO INTEGER CON- 1057 * VERSION. IF OUT OF RANGE RETURN IS TAKEN, THE FLOATING POINT 1058 * RETURN IS MADE. IF THE NORMAL RETURN IS TAKEN, THE INTEGER IS CON- 1059 * VERTED TO FLOATING POINT AND SUBTRACTED FROM THE ORIGINAL FLOATING 1060 * POINT. IF THE RESULT IS ZERO, THE INTEGER RETURN IS MADE. OTHER- 1061 * WISE, THE FLOATING POINT RETURN IS MADE. 1062 * 1063 * NOTE: E$22 MAKES USE OF THE FACT THAT THE INTEGER WILL ALSO BE IN 1064 * CTMP, AND THE FLOATING POINT WILL ALSO BE IN FTMP. 1065 * 1066 * 1067 00627 0 000000 TINT DAC ** ENTRY 1068 00630 0 10 00104 JST H$22 SAVE THE FLOATING POINT ARGUMENT 1069 00631 0 001017 DAC FTMP 1070 00632 0 10 00604 JST IFLT FLOATING POINT TO INTEGER CONVERSION 1071 00633 0 01 00644 JMP T101 OUT OF RANGE RETURN - TAKE FLOATING POINT 1072 * RETURN 1073 00634 0 04 00650 STA CTMP INTEGER RETURN-SAVE THE INTEGER 1074 00635 0 10 00573 JST FINT CONVERT IT TO FLOATING POINT FORMAT 1075 00636 0 10 00277 JST S$22 SUBTRACT IT FROM ORIGINAL FLOATING POINT 1076 00637 0 001017 DAC FTMP 1077 00640 100040 SZE TEST ZERO DIFFERENCE 1078 00641 0 01 00644 JMP T101 NO - TAKE FLOATING POINT RETURN 1079 00642 0 02 00650 LDA CTMP YES-LOAD THE INTEGER 1080 00643 -0 01 00627 JMP* TINT INTEGER RETURN 1081 00644 0 10 00100 T101 JST L$22 LOAD ORIGINAL FLOATING POINT 1082 00645 0 001017 DAC FTMP 1083 00646 0 12 00627 IRS TINT FLOATING POINT RETURN 1084 00647 -0 01 00627 JMP* TINT 1085 * 1086 * 1087 00650 000000 CTMP BSZ 1 1088 EJCT