オペランドに文字定数が指定された場合の動作を修正

[YACASL2.git] / src / dump.c

diff --git a/src/dump.c b/src/dump.c
index 2c77520..8fab87d 100644 (file)
--- a/src/dump.c
+++ b/src/dump.c
@@ -1,25 +1,6 @@
 #include "casl2.h"
 #include "exec.h"
 
-/* WORD値を2進数表記に変換 */
-char *word2bit(const WORD word)
-{
-    WORD mask = 0x8000;
-    char *bit, *p;
-    bit = malloc(16 + 1);
-    p = bit;
-       while(mask > 0){
-           if((word & mask) == 0) {
-            *p++ = '0';
-        } else {
-            *p++ = '1';
-        }
-        mask = (mask >> 1);
-    }
-    *p = '\0';
-    return bit;
-}
-
 /* COMET IIのメモリを表示 */
 void dumpmemory()
 {
@@ -32,7 +13,7 @@ void dumpmemory()
     }
     fprintf(stdout, "\n");
     /* Memory */
-    for(i = 0; i < MEMSIZE; i++) {
+    for(i = 0; i < memsize; i++) {
         if(i % col == 0) {
             fprintf(stdout, "#%04X: %04X: ", PR, i);
         }
@@ -50,7 +31,7 @@ void dspregister()
 {
     int i;
     for(i = 0; i < REGSIZE; i++ ) {
-        if(logicalmode == true) {
+        if((&execmode)->logicalmode == true) {
             fprintf(stdout, "#%04X: GR%d: %6d = #%04X = %s\n",
                     PR, i, GR[i], GR[i], word2bit(GR[i]));
         } else {