A86: Re: $44B3 and $44BB, help?
[Prev][Next][Index][Thread]
A86: Re: $44B3 and $44BB, help?
woohoo! thanks!
-josh
On Mon, 14 Sep 1998 10:11:36 -0700 Pat Milheron <pmilheron@ti.com>
writes:
>
>
>--BeyondBoundary_2_Mon_Sep_14_10:11:37_1998__4823
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7Bit
>
>;
>;---------------------------------------------------------
>; CKOP1INT : CHECK OP1 = FP INTEGER |
>; |
>; OUTPUT : Z = 0 IF NON INT, =1 IF INT |
>; |
>;@ USES: SAME AS CKINT |
>;---------------------------------------------------------
>;
>_CKOP1INT equ 44B3h
>
>;
>;---------------------------------------------------------
>; CKINT : CHECK 16 DIGIT FLOATING POINT |
>; NUMBER TO BE AN INTEGER, NON DESTROYING. |
>; |
>; INPUT: (HL) = LSB OF EXP OF NUMBER TO CHECK |
>; OUTPUT: Z=1 IF INTEGER, Z=0 IF NON INTEGER |
>; |
>;@ USES: A,BC,DE,HL, 0 BYTES STACK |
>;---------------------------------------------------------
>;
>_CKINT equ 44B7h
>
>;
>;---------------------------------------------------------
>; CKOP1ODD : CHECKS IF FLOATING POINT OP1 IS AN ODD #. |
>; |
>; INPUT : NONE |
>; |
>; OUTPUT : Z=1 IF EVEN ; ELSE RETURN Z=0 FOR ODD |
>;@ USES: A,BC,DE,HL, 2 BYTES STACK |
>;---------------------------------------------------------
>;
>_CKOP1ODD equ 44BBh
>
>
>
>Later,
>Pat
>
_____________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]
References: