6 static BPSLIST *bps[BPSTABSIZE];
9 * @brief comet2monitorのプロンプト
11 static char *monitor_prompt = "(comet2 monitor)";
13 unsigned adrhash(WORD adr)
17 key[0] = malloc_chk(sizeof(HKEY), "adrhash.key");
20 h = hash(1, key, BPSTABSIZE);
29 for(p = bps[adrhash(adr)]; p != NULL; p = p->next) {
42 /* 登録されたラベルを検索。すでに登録されている場合は終了 */
43 if(getbps(adr) == true) {
44 fprintf(stderr, "%04X: Breakpoint is already defined.\n", adr);
48 p = malloc_chk(sizeof(BPSLIST), "bps.next");
52 p->next = bps[h = adrhash(adr)];
64 p = bps[h = adrhash(adr)];
75 for(; p->next != NULL; p = p->next) {
94 fprintf(stdout, "List of breakpoints\n");
95 for(i = 0; i < BPSTABSIZE; i++) {
96 for(p = bps[i]; p != NULL; p = p->next) {
97 fprintf(stdout, "#%04X\n", p->adr);
102 fprintf(stdout, "(No breakpoints.)\n");
106 void freebpslist(BPSLIST *head)
110 for(p = head; p != NULL; p = q) {
118 for(int i = 0; i < BPSTABSIZE; i++) {
124 MONARGS *monargstok(const char *str)
126 MONARGS *args = malloc_chk(sizeof(MONARGS), "args");
132 if(!str || !str[0]) {
135 tok = p = strdup_chk(str, "argstok.p");
137 int i = strcspn(p, " ");
139 args->argv[(args->argc)++] = strndup_chk(p, i, "args->argv[]");
141 } while(sepc == ' ');
146 MONCMDLINE *monlinetok(const char *line)
151 MONCMDLINE *moncmdl = NULL;
153 if(!line[0] || line[0] == '\n') {
156 p = tokens = strdup_chk(line, "tokens");
158 strip_casl2_comment(p);
162 moncmdl = malloc_chk(sizeof(MONCMDLINE), "moncmdl");
164 i = strcspn(p, " \t\n");
165 moncmdl->cmd = strndup_chk(p, i, "moncmdl->cmd");
166 /* コマンドと引数の間の空白をスキップ */
168 while(*p == ' ' || *p == '\t') {
171 /* 引数として、改行までの文字列を取得 */
172 if(strcspn(p, "\n") > 0) {
173 moncmdl->args = monargstok(p);
175 moncmdl->args = malloc_chk(sizeof(MONARGS), "moncmdl.args");
176 moncmdl->args->argc = 0;
182 bool stracmp(char *str1, int str2c, char *str2v[])
188 for(i = 0; i < str2c; i++) {
189 if(strcmp(str1, str2v[i]) == 0) {
196 void warn_ignore_arg(int argc, char *argv[])
199 for(i = 0; i < argc; i++) {
201 fprintf(stderr, " ");
203 fprintf(stderr, "%s", argv[i]);
205 fprintf(stderr, ": ignored.\n");
208 void mon_break(int argc, char *argv[])
212 if(stracmp(argv[0], 2, (char* []){"l", "list"})) {
215 } else if(stracmp(argv[0], 2, (char* []){"r", "reset"})) {
218 fprintf(stdout, "All breakpoints are deleted.\n");
221 if((w = nh2word(argv[1])) == 0x0) {
222 fprintf(stderr, "%s: address error\n", argv[1]);
225 if(stracmp(argv[0], 2, (char* []){"a", "add"})) {
227 if(addbps(w) == true) {
228 fprintf(stdout, "#%04X: breakpoint added\n", w);
230 fprintf(stdout, "No breakpoint added\n");
232 } else if(stracmp(argv[0], 2, (char* []){"d", "del"})) {
234 if(delbps(w) == true) {
235 fprintf(stdout, "#%04X: breakpoint deleted\n", w);
237 fprintf(stdout, "No breakpoint deleted\n");
239 } else if(stracmp(argv[0], 3, (char* []){"?", "h", "help"})) {
241 fprintf(stdout, "breakpoint manipulate:\n");
242 fprintf(stdout, " b[reak] a[dd] <address>\n");
243 fprintf(stdout, " b[reak] d[el] <address>\n");
244 fprintf(stdout, " b[reak] l[ist]\n");
245 fprintf(stdout, " b[reak] r[eset]\n");
247 fprintf(stderr, "%s: Not breakpoint manipulate command. see `b ?'.\n", argv[0]);
250 warn_ignore_arg(argc - i, argv + i);
255 void mon_dump(int argc, char *argv[])
258 WORD dump_start = 0, dump_end = 0x40;
259 if(argc > 0 && stracmp(argv[0], 2, (char* []){"a", "auto"})) {
260 execmode.dump = true;
262 } else if(argc > 0 && stracmp(argv[0], 2, (char* []){"no", "noauto"})) {
263 execmode.dump = false;
267 dump_start = nh2word(argv[i++]);
269 if(argv[i][0] =='+') {
270 dump_end = dump_start + nh2word(argv[i] + 1);
272 dump_end = nh2word(argv[i]);
275 dump_end += dump_start;
280 warn_ignore_arg(argc - i, argv + i);
282 dumpmemory(dump_start, dump_end);
283 execmode.dump_start = dump_start;
284 execmode.dump_end = dump_end;
287 MONCMDTYPE monitorcmd(char *cmd, MONARGS *args)
289 MONCMDTYPE cmdtype = MONREPEAT;
290 if(stracmp(cmd, 2, (char* []){"a", "assemble"})) {
291 if(args->argc == 0) {
292 fprintf(stderr, "Error: Input file name.\n");
293 } else if(args->argc == 1) {
294 assemble(1, (char* []){args->argv[0]}, 0);
296 assemble(1, (char* []){args->argv[0]}, nh2word(args->argv[1]));
298 } else if(stracmp(cmd, 2, (char* []){"b", "break"})) {
299 mon_break(args->argc, args->argv);
300 } else if(stracmp(cmd, 2, (char* []){"c", "continue"})) {
301 execmode.step = false;
303 } else if(stracmp(cmd, 2, (char* []){"d", "dump"})) {
304 mon_dump(args->argc, args->argv);
305 } else if(stracmp(cmd, 2, (char* []){"l", "load"})) {
306 execptr->end = loadassemble(args->argv[0], nh2word(args->argv[1]));
307 } else if(stracmp(cmd, 2, (char* []){"n", "next"})) {
308 execmode.step = true;
310 } else if(stracmp(cmd, 2, (char* []){"q", "quit"})) {
311 fprintf(stdout, "Quit: COMET II monitor\n");
313 } else if(stracmp(cmd, 2, (char* []){"r", "reverse"})) {
314 if(args->argc == 2) {
315 disassemble_memory(nh2word(args->argv[0]), nh2word(args->argv[1]));
317 } else if(stracmp(cmd, 1, (char* []){"reset"})) {
318 fprintf(stdout, "Reset COMET II.\n");
319 reset(sys->memsize, sys->clocks); /* COMET II仮想マシンのリセット */
320 } else if(stracmp(cmd, 2, (char* []){"t", "trace"})) {
321 if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"a", "auto"})) {
322 execmode.logical = false;
323 execmode.trace = true;
324 } else if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"no", "noauto"})) {
325 execmode.trace = false;
327 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
330 } else if(stracmp(cmd, 2, (char* []){"T", "tracelogical"})) {
331 if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"a", "auto"})) {
332 execmode.logical = true;
333 execmode.trace = true;
334 } else if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"no", "noauto"})) {
335 execmode.trace = false;
337 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
340 } else if(stracmp(cmd, 3, (char* []){"?", "h", "help"})) {
341 fprintf(stdout, "b[reak] -- Manipulate Breakpoints. See details, `b ?'.\n");
342 fprintf(stdout, "c[ontinue] -- Continue running your program.\n");
343 fprintf(stdout, "d[ump] -- Display memory dump. `d[ump] a[uto]/n[oauto]' set auto/noauto display.\n");
344 fprintf(stdout, "l[oad] -- Load object from a file to the memory. `l[oad] <filepath> <address>' if address is omitted, load to address 0.\n");
345 fprintf(stdout, "n[ext] -- Go next instruction.\n");
346 fprintf(stdout, "q[uit] -- Quit running your program.\n");
347 fprintf(stdout, "reset -- Reset the system.\n");
348 fprintf(stdout, "r[everse] -- Disassemble memory. `r[everse] <start address> <end address>.\n");
349 fprintf(stdout, "s[ave] -- Save object from the memory to a file. `s[ave] <filepath> [<start address1> [<end address>]]' if <start address> and <end address> is omitted, save the whole memory. if <end address> is omitted, save the memory after <start address>.\n");
350 fprintf(stdout, "t[race] -- Display CPU register. `t[race] a[uto]/n[oauto]' set auto/noauto display. \n");
351 fprintf(stdout, "T[race] -- Display CPU register as logical value. `t[race] a[uto]/n[oauto]' set auto/noauto display. \n");
352 fprintf(stdout, "?/h[elp] -- Display this help.\n");
357 void free_moncmdline(MONCMDLINE *moncmdl)
360 assert(moncmdl != NULL);
361 if(moncmdl->args != NULL) {
362 for(i = 0; i < moncmdl->args->argc; i++) {
363 FREE(moncmdl->args->argv[i]);
367 if(moncmdl->cmd != NULL) {
370 if(moncmdl != NULL) {
380 free_cmdtable(HASH_CMDTYPE);
381 free_cmdtable(HASH_CODE);
392 MONCMDLINE *moncmdl = NULL;
393 MONCMDTYPE cmdtype = MONREPEAT;
396 fprintf(stdout, "%s ", monitor_prompt);
397 buf = malloc_chk(MONINSIZE + 1, "monitor.buf");
398 fgets(buf, MONINSIZE, stdin);
402 strip_end(buf); /* 文字列末尾の改行と空白を削除 */
403 fprintf(stdout, "%s\n", buf);
404 if((moncmdl = monlinetok(buf)) != NULL) {
405 cmdtype = monitorcmd(moncmdl->cmd, moncmdl->args);
406 free_moncmdline(moncmdl);
409 if(cmdtype == MONQUIT) {
412 } while(cmdtype == MONREPEAT);