17 unsigned adrhash(WORD adr);
22 static int bpscnt = 0;
27 static BPSTAB *bps[BPSTABSIZE];
32 static CERR cerr_bps[] = {
33 { 101, "break point already defined" },
34 { 102, "break point table is full" },
35 { 103, "break point not found" },
39 * @brief アドレスのハッシュ値を返す
45 unsigned adrhash(WORD adr);
48 * @brief ブレークポイントのエラーをエラーリストに追加する
52 void addcerrlist_bps();
55 unsigned adrhash(WORD adr)
59 key[0] = malloc_chk(sizeof(HKEY), "adrhash.key");
62 h = hash(1, key, BPSTABSIZE);
67 void addcerrlist_bps()
69 addcerrlist(ARRAYSIZE(cerr_bps), cerr_bps);
76 for(p = bps[adrhash(adr)]; p != NULL; p = p->next) {
89 /* 登録されたラベルを検索。すでに登録されている場合はエラー発生 */
90 if(getbps(adr) == true) {
91 setcerr(101, ""); /* breakpoint already defined */
95 p = malloc_chk(sizeof(BPSTAB), "bps.next");
101 p->next = bps[h = adrhash(adr)];
106 bool delbps(WORD adr)
111 p = bps[h = adrhash(adr)];
112 if(p->adr == adr && p->next != NULL) {
117 for(; p != NULL; p = p->next) {
134 fprintf(stdout, "breakpoints list\n");
135 for(i = 0; i < BPSTABSIZE; i++) {
136 for(p = bps[i]; p != NULL; p = p->next) {
137 fprintf(stdout, "#%04X\n", p->adr);
147 for(i = 0; i < BPSTABSIZE; i++) {
148 for(p = bps[i]; p != NULL; p = q) {
155 DBARGS *dbargstok(const char *str)
157 DBARGS *args = malloc_chk(sizeof(DBARGS), "args");
158 char *p, *q, *r, *sepp; /* pは文字列全体の先頭位置、qはトークンの先頭位置、rは文字の位置 */
165 p = q = r = strdup_chk(str, "argstok.p");
167 while(*q == ' ' || *q == '\t'){
170 sepp = r + strcspn(r, " ");
173 args->argv[(++args->argc)-1] = strdup_chk(q, "args.argv[]");
175 } while(sepc == ' ');
180 DBCMDLINE *dblinetok(const char *line)
182 char *tokens, *p, *sepp;
183 DBCMDLINE *dbcmdl = NULL;
188 tokens = strdup_chk(line, "tokens");
190 dbcmdl = malloc_chk(sizeof(DBCMDLINE), "dbcmdl");
192 if(*p == '\n' || *p == '\0') { /* コマンドがない場合は、終了 */
193 dbcmdl->dbcmd = '\0';
196 sepp = p + strcspn(p, " \t\n");
198 dbcmdl->dbcmd = strdup_chk(p, "dbcmdl.dbcmd");
200 /* コマンドと引数の間の空白をスキップ */
201 while(*p == ' ' || *p == '\t') {
205 if((sepp = p + strcspn(p, "\n")) > p) {
207 dbcmdl->dbargs = dbargstok(p);
209 dbcmdl->dbargs = malloc_chk(sizeof(DBARGS), "dbcmdl.dbargs");
210 dbcmdl->dbargs->argc = 0;
217 bool stracmp(char *str1, int str2c, char *str2v[])
220 for(i = 0; i < str2c; i++) {
221 if(strcmp(str1, str2v[i]) == 0) {
230 char *buf = malloc_chk(DBINSIZE + 1, "debugger.buf"), *cmd;
231 DBCMDLINE *dbcmdl = malloc_chk(sizeof(DBCMDLINE), "dbcmdl");
234 fprintf(stdout, "COMET II (Type ? for help) > ");
235 fgets(buf, DBINSIZE, stdin);
236 dbcmdl = dblinetok(buf);
238 arg = dbcmdl->dbargs;
239 if(*buf == '\n' || stracmp(cmd, 2, (char* []){"s", "step"})) {
241 } else if(stracmp(cmd, 2, (char* []){"c", "continue"})) {
242 execmode.debugger = false;
244 } else if(stracmp(cmd, 2, (char* []){"t", "trace"})) {
245 if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"a", "auto"})) {
246 execmode.logical = false;
247 execmode.trace = true;
248 } else if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"no", "noauto"})) {
249 execmode.trace = false;
251 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
254 } else if(stracmp(cmd, 2, (char* []){"T", "tracelogical"})) {
255 if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"a", "auto"})) {
256 execmode.logical = true;
257 execmode.trace = true;
258 } else if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"no", "noauto"})) {
259 execmode.trace = false;
261 fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);
264 } else if(stracmp(cmd, 2, (char* []){"d", "dump"})) {
265 if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"a", "auto"})) {
266 execmode.dump = true;
267 } else if(arg->argc > 0 && stracmp(arg->argv[0], 2, (char* []){"no", "noauto"})) {
268 execmode.dump = false;
272 } else if(*buf == '?') {
273 fprintf(stdout, "s (default) -- Step by step running your program until next interaction.\n");
274 fprintf(stdout, "c -- Continue running your program.\n");
275 fprintf(stdout, "t -- Display CPU register.\n");
276 fprintf(stdout, "d -- Display memory dump.\n");