X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fexec.c;h=353dc24b8cdb649d730655c64adaa8167802133a;hb=f656c0e92ba6a746a6301bc8a26c6f5b5a4cdc3a;hp=00cee8ddee097ed89b8e498d6695fcc25165125f;hpb=93cd1261d2f4247c3324a2bcb69dc4a077a4aa77;p=YACASL2.git

diff --git a/src/exec.c b/src/exec.c
index 00cee8d..353dc24 100644
--- a/src/exec.c
+++ b/src/exec.c
@@ -1,6 +1,9 @@
 #include "casl2.h"
 #include "exec.h"
 
+/* 実行モード: trace, logical, dump */
+EXECMODE execmode = {false, false, false};
+
 /* 標準入力から文字データを読込（SVC 1） */
 void svcin()
 {
@@ -149,7 +152,7 @@ WORD sla(WORD val0, WORD val1)
         last = res & 0x4000;
         res <<= 1;
     }
-    res = sign | res;
+    res = sign | (res & 0x7FFF);
     /* OFに、レジスタから最後に送り出されたビットの値を設定 */
     if(last > 0x0) {
         FR += OF;