test conversions
This commit is contained in:
parent
96e98f82ba
commit
b06908c2fd
|
@ -55,11 +55,9 @@
|
||||||
@x32-is-negative ( x/** -> bool^ ) POP2 #7fff GTH2 JMP2r
|
@x32-is-negative ( x/** -> bool^ ) POP2 #7fff GTH2 JMP2r
|
||||||
|
|
||||||
@x32-from-u8 ( x^ -> x/** )
|
@x32-from-u8 ( x^ -> x/** )
|
||||||
#0000 ROT OVR SWP DENOM32 !u32-mul
|
#00 SWP ( >> )
|
||||||
|
|
||||||
@x32-from-u16 ( x* -> x/** )
|
@x32-from-u16 ( x* -> x/** )
|
||||||
#0000 SWP2 DENOM32 !u32-mul
|
#0000 SWP2 ( >> )
|
||||||
|
|
||||||
@x32-from-u32 ( x** -> x/** )
|
@x32-from-u32 ( x** -> x/** )
|
||||||
DENOM32 !u32-mul
|
DENOM32 !u32-mul
|
||||||
|
|
||||||
|
|
|
@ -6,6 +6,16 @@
|
||||||
|
|
||||||
( program )
|
( program )
|
||||||
|0100
|
|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 )
|
#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 )
|
#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 )
|
#7fff #ffff #7fff #ffff LIT "+ ;x32-add #7fff #ffff test-binop ( inf + inf = inf )
|
||||||
|
|
Loading…
Reference in New Issue