X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fstruct.c;h=2d3c67f0d5d39e308809c80eca9ae0b732cca29a;hp=9e3d256f9eb3f88b57937a76f25289a8c0c9c4bb;hb=60d4c2573a30a48520545195b9ef89814fc60708;hpb=555c5e8b851becc08ba661a9cb19f617d5a00c12

diff --git a/src/struct.c b/src/struct.c
index 9e3d256..2d3c67f 100644
--- a/src/struct.c
+++ b/src/struct.c
@@ -1,38 +1,50 @@
-#include "casl2.h"
+#include "struct.h"
+#include "cmem.h"
 
-/* COMET IIの仮装実行マシンシステム */
+/**
+ * COMET IIの仮想実行マシンシステム
+ */
 SYSTEM *sys;
 
-/* CASL IIプログラムのプロパティ */
-PROGPROP *prog;
+/**
+ * プログラム実行時の開始と終了のアドレス
+ */
+EXECPTR *execptr;
 
-/* COMET II仮想マシンのリセット */
+/**
+ * COMET II仮想マシンのリセット
+ */
 void reset(int memsize, int clocks)
 {
     int i;
 
     sys = malloc_chk(sizeof(SYSTEM), "sys");
-    /* メモリサイズの設定 */
+    /* メモリサイズを設定 */
     sys->memsize = memsize;
-    /* クロック周波数の設定 */
+    /* クロック周波数を設定 */
     sys->clocks = clocks;
-    /* メモリの初期化 */
+    /* メモリを初期化 */
     sys->memory = calloc_chk(sys->memsize, sizeof(WORD), "memory");
-    /* CPUの初期化 */
+    /* CPUを初期化 */
     sys->cpu = malloc_chk(sizeof(CPU), "cpu");
-    for(i = 0; i < GRSIZE; i++) {
+    for(i = 0; i < GRSIZE; i++) {                    /* 汎用レジスタ  */
         sys->cpu->gr[i] = 0x0;
     }
-    sys->cpu->sp = sys->cpu->pr = sys->cpu->fr = 0x0;
-    /* CASL2プログラムのプロパティ */
-    prog = malloc_chk(sizeof(PROGPROP), "prog");
+    sys->cpu->sp = sys->memsize;   /* スタックポインタ */
+    sys->cpu->pr = 0x0;            /* プログラムレジスタ */
+    sys->cpu->fr = 0x0;            /* フラグレジスタ */
+    /* CASL2プログラムの開始と終了のアドレスを初期化 */
+    execptr = malloc_chk(sizeof(EXECPTR), "execptr");
+    execptr->stop = false;
 }
 
-/* COMET II仮想マシンのシャットダウン */
+/**
+ * COMET II仮想マシンのシャットダウン
+ */
 void shutdown()
 {
-    free_chk(prog, "prog");
-    free_chk(sys->memory, "sys.memory");
-    free_chk(sys->cpu, "sys.cpu");
-    free_chk(sys, "sys");
+    FREE(execptr);
+    FREE(sys->memory);
+    FREE(sys->cpu);
+    FREE(sys);
 }