X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fstruct.c;h=2d3c67f0d5d39e308809c80eca9ae0b732cca29a;hb=3482948c47ace39da08b8546f6b466d5b623a877;hp=31be1e661b7da8351423c64d5c83903976c82b0f;hpb=faec695d5b7ecf7dd3e4a07ac926ea93ca89020b;p=YACASL2.git diff --git a/src/struct.c b/src/struct.c index 31be1e6..2d3c67f 100644 --- a/src/struct.c +++ b/src/struct.c @@ -1,47 +1,50 @@ -#include "casl2.h" - -/* COMET IIのメモリ */ -WORD *memory; - -/* COMET IIのCPUレジスタ */ -WORD GR[REGSIZE], SP, PR, FR; - -/* エラーメッセージ */ -int cerrno = 0; -char *cerrmsg; - -/* レジストリの内容を表示する場合はtrue */ -bool tracemode = false; - -/* レジストリの内容を論理値(0〜65535)で表示する場合はtrue */ -bool logicalmode = false; - -/* メモリの内容を表示する場合はtrue */ -bool dumpmode = false; - -/* ソースを表示する場合はtrue */ -bool srcmode = false; - -/* ラベル表を表示する場合はtrue */ -bool labelmode = false; - -/* ラベル表を表示して終了する場合はtrue */ -bool onlylabelmode = false; - -/* アセンブラ詳細結果を表示する場合はtrue */ -bool asdetailmode = false; - -/* アセンブルだけを行う場合はtrue */ -bool onlyassemblemode = false; - -/* メモリーサイズ */ -int memsize = DEFAULT_MEMSIZE; - -/* クロック周波数 */ -int clocks = DEFAULT_CLOCKS; - -/* 実行開始番地 */ -WORD startptr = 0x0; - -/* 実行終了番地 */ -WORD endptr = 0x0; +#include "struct.h" +#include "cmem.h" + +/** + * COMET IIの仮想実行マシンシステム + */ +SYSTEM *sys; + +/** + * プログラム実行時の開始と終了のアドレス + */ +EXECPTR *execptr; + +/** + * 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を初期化 */ + sys->cpu = malloc_chk(sizeof(CPU), "cpu"); + for(i = 0; i < GRSIZE; i++) { /* 汎用レジスタ */ + sys->cpu->gr[i] = 0x0; + } + 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仮想マシンのシャットダウン + */ +void shutdown() +{ + FREE(execptr); + FREE(sys->memory); + FREE(sys->cpu); + FREE(sys); +}