From b06908c2fd4d9d8cb1f4d7431181341e852f04a2 Mon Sep 17 00:00:00 2001 From: d_m Date: Tue, 10 Sep 2024 10:39:36 -0400 Subject: [PATCH] test conversions --- fix32.tal | 6 ++---- test-fix32.tal | 10 ++++++++++ 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/fix32.tal b/fix32.tal index 311a3c1..f234448 100644 --- a/fix32.tal +++ b/fix32.tal @@ -55,11 +55,9 @@ @x32-is-negative ( x/** -> bool^ ) POP2 #7fff GTH2 JMP2r @x32-from-u8 ( x^ -> x/** ) - #0000 ROT OVR SWP DENOM32 !u32-mul - + #00 SWP ( >> ) @x32-from-u16 ( x* -> x/** ) - #0000 SWP2 DENOM32 !u32-mul - + #0000 SWP2 ( >> ) @x32-from-u32 ( x** -> x/** ) DENOM32 !u32-mul diff --git a/test-fix32.tal b/test-fix32.tal index 1651b37..e26991b 100644 --- a/test-fix32.tal +++ b/test-fix32.tal @@ -6,6 +6,16 @@ ( program ) |0100 + #00 x32-from-u8 x32-emit #0a18 DEO + #01 x32-from-u8 x32-emit #0a18 DEO + #0a x32-from-u8 x32-emit #0a18 DEO + #ff x32-from-u8 x32-emit #0a18 DEO + #0100 x32-from-u16 x32-emit #0a18 DEO + #1000 x32-from-u16 x32-emit #0a18 DEO + #7fff x32-from-u16 x32-emit #0a18 DEO + #8000 x32-from-u16 x32-emit #0a18 DEO + #ffff x32-from-u16 x32-emit #0a18 DEO + #0a18 DEO #0000 #03e8 #0000 #07d0 LIT "+ ;x32-add #0000 #0bb8 test-binop ( 1 + 2 = 3 ) #ffff #fc18 #ffff #fc18 LIT "+ ;x32-add #ffff #f830 test-binop ( -1 + -1 = -2 ) #7fff #ffff #7fff #ffff LIT "+ ;x32-add #7fff #ffff test-binop ( inf + inf = inf )