X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fexec.c;h=a757dfaa0bfb7161a547edd76b4d8518b446df32;hb=f1803bd560071fb724b2c7ff2f5f35fa5086d10a;hp=ec9687f4db22a2cd0ee43336367f67ed61eb3d6a;hpb=dbba1efb7f290dec54755c26baa05e263459560d;p=YACASL2.git diff --git a/src/exec.c b/src/exec.c index ec9687f..a757dfa 100644 --- a/src/exec.c +++ b/src/exec.c @@ -30,20 +30,20 @@ void svcin() void svcout() { int i; - char c; + WORD w; - for(i = 0; i < GR[2]; i++) { + for(i = 0; i < memory[GR[2]]; i++) { if(GR[1] + i >= memsize - 1) { setcerr(203, NULL); /* SVC output - out of Comet II memory */ return; } - if(memory[GR[1]+i] == '\0') { + if((w = memory[GR[1]+i]) == '\0') { break; } /* 「文字の組」の符号表に記載された文字と、改行(CR)/タブを表示 */ /* それ以外の文字は、「.」で表す */ - if(((c = (char)(memory[GR[1]+i])) >= 0x20 && c <= 0x7E) || c == 0xA || c == '\t') { - putchar(c); + if((w >= 0x20 && w <= 0x7E) || w == 0xA || w == '\t') { + putchar((char)w); } else { putchar('.'); } @@ -149,7 +149,7 @@ WORD sla(WORD val0, WORD val1) last = res & 0x4000; res <<= 1; } - res = sign | res; + res = sign | (res & 0x7F); /* OFに、レジスタから最後に送り出されたビットの値を設定 */ if(last > 0x0) { FR += OF; @@ -273,7 +273,7 @@ void exec() char *errpr = malloc(8); clock_t clock_begin, clock_end; - if((&execmode)->tracemode) { + if((&execmode)->trace) { fprintf(stdout, "\nExecuting machine codes\n"); } /* フラグレジスタの初期値設定 */ @@ -309,15 +309,15 @@ void exec() if(cerrno > 0) { goto execerr; } - if((&execmode)->tracemode){ + if((&execmode)->trace){ fprintf(stdout, "#%04X: Register::::\n", PR); dspregister(); } - if((&execmode)->dumpmode){ + if((&execmode)->dump){ fprintf(stdout, "#%04X: Memory::::\n", PR); dumpmemory(); } - if((&execmode)->dumpmode || (&execmode)->tracemode) { + if((&execmode)->dump || (&execmode)->trace) { fprintf(stdout, "\n"); } PR++;