6 static BPSLIST *bps[BPSTABSIZE];
11 static CERR cerr_bps[] = {
12 { 101, "break point already defined" },
13 { 102, "break point table is full" },
14 { 103, "break point not found" },
15 { 104, "break point address not set" },
16 { 105, "illegal break point address" },
20 * @brief ブレークポイントのエラーをエラーリストに追加する
24 void addcerrlist_bps();
27 unsigned adrhash(WORD adr)
31 key[0] = malloc_chk(sizeof(HKEY), "adrhash.key");
34 h = hash(1, key, BPSTABSIZE);
39 void addcerrlist_bps()
41 addcerrlist(ARRAYSIZE(cerr_bps), cerr_bps);
48 for(p = bps[adrhash(adr)]; p != NULL; p = p->next) {
61 /* 登録されたラベルを検索。すでに登録されている場合は終了 */
62 if(getbps(adr) == true) {
63 fprintf(stderr, "%04X: Breakpoint is already defined.\n", adr);
67 p = malloc_chk(sizeof(BPSLIST), "bps.next");
71 p->next = bps[h = adrhash(adr)];
82 p = bps[h = adrhash(adr)];
93 for(; p->next != NULL; p = p->next) {
112 fprintf(stdout, "List of breakpoints\n");
113 for(i = 0; i < BPSTABSIZE; i++) {
114 for(p = bps[i]; p != NULL; p = p->next) {
115 fprintf(stdout, "#%04X\n", p->adr);
120 fprintf(stdout, "(No breakpoints.)\n");
124 void freebpslist(BPSLIST *head)
127 for(p = head; p != NULL; p = q) {
136 for(i = 0; i < BPSTABSIZE; i++) {
142 MONARGS *monargstok(const char *str)
144 MONARGS *args = malloc_chk(sizeof(MONARGS), "args");
145 char *p, *q, *r, *sepp; /* pは文字列全体の先頭位置、qはトークンの先頭位置、rは文字の位置 */
152 p = q = r = strdup_chk(str, "argstok.p");
154 while(*q == ' ' || *q == '\t'){
157 sepp = r + strcspn(r, " ");
160 args->argv[++(args->argc)-1] = strdup_chk(q, "args.argv[]");
162 } while(sepc == ' ');
167 MONCMDLINE *monlinetok(const char *line)
171 MONCMDLINE *moncmdl = NULL;
173 if(*line == '\n' || *line == '\0') {
176 p = tokens = strdup_chk(line, "tokens");
177 moncmdl = malloc_chk(sizeof(MONCMDLINE), "moncmdl");
179 moncmdl->cmd = malloc_chk((l = strcspn(p, " \t\n")) + 1, "moncmdl.cmd");
180 strncpy(moncmdl->cmd, p, l);
181 /* コマンドと引数の間の空白をスキップ */
183 while(*p == ' ' || *p == '\t') {
186 /* 引数として、改行までの文字列を取得 */
187 if((l = strcspn(p, "\n")) > 0) {
188 moncmdl->args = monargstok(p);
190 moncmdl->args = malloc_chk(sizeof(MONARGS), "moncmdl.args");
191 moncmdl->args->argc = 0;
197 bool stracmp(char *str1, int str2c, char *str2v[])
203 for(i = 0; i < str2c; i++) {
204 if(strcmp(str1, str2v[i]) == 0) {
211 void mon_break(int argc, char *argv[])
214 if(stracmp(argv[0], 2, (char* []){"l", "list"})) {
216 } 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"})) {
226 if(addbps(w) == true) {
227 fprintf(stdout, "#%04X: breakpoint added\n", w);
229 fprintf(stdout, "No breakpoint added\n");
231 } else if(stracmp(argv[0], 2, (char* []){"d", "del"})) {
232 if(delbps(w) == true) {
233 fprintf(stdout, "#%04X: breakpoint deleted\n", w);
235 fprintf(stdout, "No breakpoint deleted\n");
237 } else if(stracmp(argv[0], 3, (char* []){"?", "h", "help"})) {
238 fprintf(stdout, "breakpoint manipulate:\n");
239 fprintf(stdout, " b[reak] a[dd] <address>\n");
240 fprintf(stdout, " b[reak] d[el] <address>\n");
241 fprintf(stdout, " b[reak] l[ist]\n");
242 fprintf(stdout, " b[reak] r[eset]\n");
244 fprintf(stderr, "%s: Not breakpoint manipulate command. see `b ?'.\n", argv[0]);
249 bool monitorcmd(char *cmd, MONARGS *args)
252 if(stracmp(cmd, 2, (char* []){"s", "step"})) {
253 execmode.step = true;
255 } else if(stracmp(cmd, 2, (char* []){"b", "break"})) {
256 mon_break(args->argc, args->argv);
257 } else if(stracmp(cmd, 2, (char* []){"c", "continue"})) {
258 execmode.step = false;
260 } else if(stracmp(cmd, 2, (char* []){"t", "trace"})) {
261 if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"a", "auto"})) {
262 execmode.logical = false;
263 execmode.trace = true;
264 } else if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"no", "noauto"})) {
265 execmode.trace = false;
267 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
270 } else if(stracmp(cmd, 2, (char* []){"T", "tracelogical"})) {
271 if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"a", "auto"})) {
272 execmode.logical = true;
273 execmode.trace = true;
274 } else if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"no", "noauto"})) {
275 execmode.trace = false;
277 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
280 } else if(stracmp(cmd, 2, (char* []){"d", "dump"})) {
281 if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"a", "auto"})) {
282 execmode.dump = true;
283 } else if(args->argc > 0 && stracmp(args->argv[0], 2, (char* []){"no", "noauto"})) {
284 execmode.dump = false;
288 } else if(stracmp(cmd, 3, (char* []){"?", "h", "help"})) {
289 fprintf(stdout, "b[reak] -- Manipulate Breakpoints. Details in `b ?'.\n");
290 fprintf(stdout, "s[tep] -- Step by step running your program until next interaction.\n");
291 fprintf(stdout, "c[ontinue] -- Continue running your program.\n");
292 fprintf(stdout, "t[race] -- Display CPU register. `t[race] a[uto]/n[oauto]' set auto/noauto display. \n");
293 fprintf(stdout, "d[ump] -- Display memory dump. `d[ump] a[uto]/n[oauto]' set auto/noauto display.\n");
294 fprintf(stdout, "?/h[elp] -- Display this help.\n");
299 void free_moncmdline(MONCMDLINE *moncmdl)
302 assert(moncmdl != NULL);
303 if(moncmdl->args != NULL) {
304 for(i = 0; i < moncmdl->args->argc; i++) {
305 FREE(moncmdl->args->argv[i]);
309 if(moncmdl->cmd != NULL) {
312 if(moncmdl != NULL) {
323 fprintf(stdout, "COMET II (Type ? for help) > ");
324 buf = malloc_chk(MONINSIZE + 1, "monitor.buf");
325 fgets(buf, MONINSIZE, stdin);
326 if((p = strchr(buf, '\n')) != NULL) {
329 if((moncmdl = monlinetok(buf)) != NULL) {
330 next = monitorcmd(moncmdl->cmd, moncmdl->args);
331 free_moncmdline(moncmdl);
334 } while(next == false);