6 static BPSLIST *bps[BPSTABSIZE];
8 unsigned adrhash(WORD adr)
12 key[0] = malloc_chk(sizeof(HKEY), "adrhash.key");
15 h = hash(1, key, BPSTABSIZE);
24 for(p = bps[adrhash(adr)]; p != NULL; p = p->next) {
37 /* 登録されたラベルを検索。すでに登録されている場合は終了 */
38 if(getbps(adr) == true) {
39 fprintf(stderr, "%04X: Breakpoint is already defined.\n", adr);
43 p = malloc_chk(sizeof(BPSLIST), "bps.next");
47 p->next = bps[h = adrhash(adr)];
58 p = bps[h = adrhash(adr)];
69 for(; p->next != NULL; p = p->next) {
88 fprintf(stdout, "List of breakpoints\n");
89 for(i = 0; i < BPSTABSIZE; i++) {
90 for(p = bps[i]; p != NULL; p = p->next) {
91 fprintf(stdout, "#%04X\n", p->adr);
96 fprintf(stdout, "(No breakpoints.)\n");
100 void freebpslist(BPSLIST *head)
103 for(p = head; p != NULL; p = q) {
112 for(i = 0; i < BPSTABSIZE; i++) {
118 MONARGS *monargstok(const char *str)
120 MONARGS *args = malloc_chk(sizeof(MONARGS), "args");
121 char *p, *q, *r, *sepp; /* pは文字列全体の先頭位置、qはトークンの先頭位置、rは文字の位置 */
128 p = q = r = strdup_chk(str, "argstok.p");
130 while(*q == ' ' || *q == '\t'){
133 sepp = r + strcspn(r, " ");
136 args->argv[++(args->argc)-1] = strdup_chk(q, "args.argv[]");
138 } while(sepc == ' ');
143 MONCMDLINE *monlinetok(const char *line)
147 MONCMDLINE *moncmdl = NULL;
149 if(!line[0] || line[0] == '\n') {
152 p = tokens = strdup_chk(line, "tokens");
153 moncmdl = malloc_chk(sizeof(MONCMDLINE), "moncmdl");
155 moncmdl->cmd = malloc_chk((l = strcspn(p, " \t\n")) + 1, "moncmdl.cmd");
156 strncpy(moncmdl->cmd, p, l);
157 /* コマンドと引数の間の空白をスキップ */
159 while(*p == ' ' || *p == '\t') {
162 /* 引数として、改行までの文字列を取得 */
163 if((l = strcspn(p, "\n")) > 0) {
164 moncmdl->args = monargstok(p);
166 moncmdl->args = malloc_chk(sizeof(MONARGS), "moncmdl.args");
167 moncmdl->args->argc = 0;
173 bool stracmp(char *str1, int str2c, char *str2v[])
179 for(i = 0; i < str2c; i++) {
180 if(strcmp(str1, str2v[i]) == 0) {
187 void mon_break(int argc, char *argv[])
190 if(stracmp(argv[0], 2, (char* []){"l", "list"})) {
192 } else if(stracmp(argv[0], 2, (char* []){"r", "reset"})) {
194 fprintf(stdout, "All breakpoints are deleted.\n");
197 if((w = nh2word(argv[1])) == 0x0) {
198 fprintf(stderr, "%s: address error\n", argv[1]);
201 if(stracmp(argv[0], 2, (char* []){"a", "add"})) {
202 if(addbps(w) == true) {
203 fprintf(stdout, "#%04X: breakpoint added\n", w);
205 fprintf(stdout, "No breakpoint added\n");
207 } else if(stracmp(argv[0], 2, (char* []){"d", "del"})) {
208 if(delbps(w) == true) {
209 fprintf(stdout, "#%04X: breakpoint deleted\n", w);
211 fprintf(stdout, "No breakpoint deleted\n");
213 } else if(stracmp(argv[0], 3, (char* []){"?", "h", "help"})) {
214 fprintf(stdout, "breakpoint manipulate:\n");
215 fprintf(stdout, " b[reak] a[dd] <address>\n");
216 fprintf(stdout, " b[reak] d[el] <address>\n");
217 fprintf(stdout, " b[reak] l[ist]\n");
218 fprintf(stdout, " b[reak] r[eset]\n");
220 fprintf(stderr, "%s: Not breakpoint manipulate command. see `b ?'.\n", argv[0]);
225 void mon_dump(int argc, char *argv[])
228 WORD start = 0, end = 0xFFFF;
229 if(argc > 0 && stracmp(argv[0], 2, (char* []){"a", "auto"})) {
230 execmode.dump = true;
231 } else if(argc > 0 && stracmp(argv[0], 2, (char* []){"no", "noauto"})) {
232 execmode.dump = false;
235 start = nh2word(argv[0]);
237 end = nh2word(argv[1]);
240 dumpmemory(start, end);
242 for(i = 2; i < argc; i++) {
244 fprintf(stderr, " ");
246 fprintf(stderr, "%s", argv[i+1]);
248 fprintf(stderr, ": ignored.\n");
253 MONCMDTYPE monitorcmd(char *cmd, MONARGS *args)
255 MONCMDTYPE cmdtype = MONREPEAT;
256 if(stracmp(cmd, 2, (char* []){"a", "assemble"})) {
257 if(args->argc == 0) {
258 fprintf(stderr, "Error: Input file name.\n");
259 } else if(args->argc == 1) {
260 assemble(1, (char* []){args->argv[0]}, 0);
262 assemble(1, (char* []){args->argv[0]}, nh2word(args->argv[1]));
264 } else if(stracmp(cmd, 2, (char* []){"b", "break"})) {
265 mon_break(args->argc, args->argv);
266 } else if(stracmp(cmd, 2, (char* []){"c", "continue"})) {
267 execmode.step = false;
269 } else if(stracmp(cmd, 2, (char* []){"d", "dump"})) {
270 mon_dump(args->argc, args->argv);
271 } else if(stracmp(cmd, 2, (char* []){"l", "load"})) {
272 loadassemble(args->argv[0], nh2word(args->argv[1]));
273 } else if(stracmp(cmd, 2, (char* []){"n", "next"})) {
274 execmode.step = true;
276 } else if(stracmp(cmd, 2, (char* []){"q", "quit"})) {
277 fprintf(stdout, "Quit: COMET II monitor\n");
279 } else if(stracmp(cmd, 2, (char* []){"r", "reverse"})) {
280 if(args->argc == 2) {
281 disassemble_memory(nh2word(args->argv[0]), nh2word(args->argv[1]));
283 } else if(stracmp(cmd, 1, (char* []){"reset"})) {
284 fprintf(stdout, "Reset COMET II.\n");
285 reset(sys->memsize, sys->clocks); /* COMET II仮想マシンのリセット */
286 } else if(stracmp(cmd, 2, (char* []){"t", "trace"})) {
287 if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"a", "auto"})) {
288 execmode.logical = false;
289 execmode.trace = true;
290 } else if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"no", "noauto"})) {
291 execmode.trace = false;
293 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
296 } else if(stracmp(cmd, 2, (char* []){"T", "tracelogical"})) {
297 if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"a", "auto"})) {
298 execmode.logical = true;
299 execmode.trace = true;
300 } else if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"no", "noauto"})) {
301 execmode.trace = false;
303 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
306 } else if(stracmp(cmd, 3, (char* []){"?", "h", "help"})) {
307 fprintf(stdout, "b[reak] -- Manipulate Breakpoints. See details, `b ?'.\n");
308 fprintf(stdout, "c[ontinue] -- Continue running your program.\n");
309 fprintf(stdout, "d[ump] -- Display memory dump. `d[ump] a[uto]/n[oauto]' set auto/noauto display.\n");
310 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");
311 fprintf(stdout, "n[ext] -- Go next instruction.\n");
312 fprintf(stdout, "q[uit] -- Quit running your program.\n");
313 fprintf(stdout, "reset -- Reset the system.\n");
314 fprintf(stdout, "r[everse] -- Disassemble memory. `r[everse] <start address> <end address>.\n");
315 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");
316 fprintf(stdout, "t[race] -- Display CPU register. `t[race] a[uto]/n[oauto]' set auto/noauto display. \n");
317 fprintf(stdout, "T[race] -- Display CPU register as logical value. `t[race] a[uto]/n[oauto]' set auto/noauto display. \n");
318 fprintf(stdout, "?/h[elp] -- Display this help.\n");
323 void free_moncmdline(MONCMDLINE *moncmdl)
326 assert(moncmdl != NULL);
327 if(moncmdl->args != NULL) {
328 for(i = 0; i < moncmdl->args->argc; i++) {
329 FREE(moncmdl->args->argv[i]);
333 if(moncmdl->cmd != NULL) {
336 if(moncmdl != NULL) {
345 MONCMDTYPE cmdtype = MONREPEAT;
348 fprintf(stdout, "- ");
349 buf = malloc_chk(MONINSIZE + 1, "monitor.buf");
350 fgets(buf, MONINSIZE, stdin);
351 if((p = strchr(buf, '\n')) != NULL) {
354 if((moncmdl = monlinetok(buf)) != NULL) {
355 cmdtype = monitorcmd(moncmdl->cmd, moncmdl->args);
356 free_moncmdline(moncmdl);
359 if(cmdtype == MONQUIT) {
362 free_cmdtable(HASH_CODE);
366 } while(cmdtype == MONREPEAT);