diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-11 16:24:25 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-11 16:24:25 -0500 |
| commit | bf7fe756a175a90dd82e970e5d620c6d8c459c17 (patch) | |
| tree | 82dab52271f35db08177410ab1ef94cfe1d66be7 /forth/test/core.fr | |
| parent | f186ff2a22459ebf2fd83b63b66370d018dcbbef (diff) | |
u. um*
Diffstat (limited to 'forth/test/core.fr')
| -rw-r--r-- | forth/test/core.fr | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/forth/test/core.fr b/forth/test/core.fr index d2724e1..519124d 100644 --- a/forth/test/core.fr +++ b/forth/test/core.fr @@ -328,19 +328,18 @@ T{ MID-UINT+1 1 RSHIFT 2 * -> MID-UINT+1 }T T{ MID-UINT+1 2 RSHIFT 4 * -> MID-UINT+1 }T T{ MID-UINT+1 1 RSHIFT MID-UINT+1 OR 2 * -> MID-UINT+1 }T -." HEY! UM* IS NOT IMPLEMENTED!" CR -\ T{ 0 0 UM* -> 0 0 }T -\ T{ 0 1 UM* -> 0 0 }T -\ T{ 1 0 UM* -> 0 0 }T -\ T{ 1 2 UM* -> 2 0 }T -\ T{ 2 1 UM* -> 2 0 }T -\ T{ 3 3 UM* -> 9 0 }T -\ -\ T{ MID-UINT+1 1 RSHIFT 2 UM* -> MID-UINT+1 0 }T -\ T{ MID-UINT+1 2 UM* -> 0 1 }T -\ T{ MID-UINT+1 4 UM* -> 0 2 }T -\ T{ 1S 2 UM* -> 1S 1 LSHIFT 1 }T -\ T{ MAX-UINT MAX-UINT UM* -> 1 1 INVERT }T +T{ 0 0 UM* -> 0 0 }T +T{ 0 1 UM* -> 0 0 }T +T{ 1 0 UM* -> 0 0 }T +T{ 1 2 UM* -> 2 0 }T +T{ 2 1 UM* -> 2 0 }T +T{ 3 3 UM* -> 9 0 }T + +T{ MID-UINT+1 1 RSHIFT 2 UM* -> MID-UINT+1 0 }T +T{ MID-UINT+1 2 UM* -> 0 1 }T +T{ MID-UINT+1 4 UM* -> 0 2 }T +T{ 1S 2 UM* -> 1S 1 LSHIFT 1 }T +T{ MAX-UINT MAX-UINT UM* -> 1 1 INVERT }T \ ------------------------------------------------------------------------ ." TESTING DIVIDE: FM/MOD SM/REM UM/MOD */ */MOD / /MOD MOD" CR |