duskos

commit 8508adafee4c3aa2bff622b58d3d7a7ebda4acde
parent f40f3e9f6ddb1c0d02bc29844dcd4cd9251d2820
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sat,  5 Nov 2022 16:29:36 -0400

asm/i386: add 8b support for shl/shr ops

Diffstat:
M
fs/asm/i386.fs
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/fs/asm/i386.fs b/fs/asm/i386.fs
@@ -250,12 +250,12 @@ $240420 op and,    $0c0108 op or,      $340630 op xor,     $000086 op xchg,
 \ Shifts. They come in 2 versions. The "naked" version is imm-only. The "cl"
 \ versions has CL as an inherent argument.
 : op ( opcode -- ) doer , does> @ dup 8 rshift ( opcode opreg )
-  imm? _assert opreg! $ff and op, msd, imm c, asm$ ;
-$04c1 op shl,         $05c1 op shr,
+  imm? _assert opreg! $ff and maybe8b op, msd, imm c, asm$ ;
+$04c0 op shl,         $05c0 op shr,
 
 : op ( opcode -- ) doer , does> @ dup 8 rshift ( opcode opreg )
-  imm? not _assert opreg! $ff and op, msd, asm$ ;
-$04d3 op shlcl,         $05d3 op shrcl,
+  imm? not _assert opreg! $ff and maybe8b op, msd, asm$ ;
+$04d2 op shlcl,         $05d2 op shrcl,
 
 \ Push/Pop
 : op ( op -- ) doer c, does> c@ ( opcode -- )