Mercurial > hg > Members > kono > os9 > sbc09
annotate trace.c @ 35:01519215ec70
add watch point
0xfe00 fixed ram area in MMU
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 15 Jul 2018 20:29:55 +0900 |
parents | 7c5379eb406e |
children | 52f7ad4c2ebb |
rev | line source |
---|---|
9 | 1 /* 6808 Simulator V092 |
20 | 2 * |
3 * tracer | |
0 | 4 |
5 */ | |
6 | |
7 #include<stdio.h> | |
8 #include<stdlib.h> | |
9 #include<ctype.h> | |
10 #include<signal.h> | |
11 #include<sys/time.h> | |
12 | |
13 #include <unistd.h> | |
14 #include <fcntl.h> | |
15 #include <string.h> | |
1 | 16 #include <time.h> |
0 | 17 |
18 #ifdef USE_TERMIOS | |
19 #include <termios.h> | |
20 #endif | |
21 | |
22 #define engine extern | |
23 #include "v09.h" | |
24 | |
25 struct termios termsetting; | |
26 | |
27 int xmstat; /* 0= no XMODEM transfer, 1=send, 2=receiver */ | |
28 unsigned char xmbuf[132]; | |
29 int xidx; | |
30 int acknak; | |
31 int rcvdnak; | |
32 int blocknum; | |
33 | |
20 | 34 extern FILE *logfile; |
35 extern FILE *infile; | |
36 extern FILE *xfile; | |
37 extern FILE *disk[]; | |
0 | 38 |
39 extern void hexadump( unsigned char *b, int l, int loc, int w); | |
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
40 extern int disasm(int,int); |
20 | 41 extern void restore_term(void) ; |
42 | |
9 | 43 #ifdef USE_MMU |
44 extern char *prog ; // for disass | |
11 | 45 extern Byte * mem0(Byte *iphymem, Word adr, Byte *immu) ; |
21 | 46 extern int paddr(Word adr, Byte *immu) ; |
47 #else | |
48 #define paddr(a,m) (a) | |
9 | 49 #endif |
50 | |
0 | 51 void do_exit(void) { |
52 restore_term(); | |
53 exit(0); | |
54 } | |
55 | |
4 | 56 |
0 | 57 typedef struct bp { |
21 | 58 int address; // physical address |
59 int laddr; | |
0 | 60 int count; |
35 | 61 int watch; // watch point |
0 | 62 struct bp *next; |
63 } BP, *BPTR; | |
64 | |
65 BPTR breakpoint = 0; | |
66 int bpskip = 0; | |
67 int trskip = 0; | |
68 int stkskip = 0; | |
69 | |
70 int getarg(char *buf, char** next) { | |
35 | 71 int value = strtol(buf,next,0); |
72 for(;next;) { | |
73 if ( **next == '+' ) { | |
74 value += strtol(*next+1,next,0); | |
75 } else if ( **next == '*' ) { | |
76 value *= strtol(*next+1,next,0); | |
77 } else if ( **next == '/' ) { | |
78 value /= strtol(*next+1,next,0); | |
79 } else if ( **next == '-' ) { | |
80 value -= strtol(*next+1,next,0); | |
81 } else if ( **next == '&' ) { | |
82 value &= strtol(*next+1,next,0); | |
83 } else if ( **next == '|' ) { | |
84 value |= strtol(*next+1,next,0); | |
85 } else break; | |
86 } | |
87 return value; | |
0 | 88 } |
89 | |
90 void printhelp(void) | |
91 { | |
92 printf( | |
93 " s [count] one step trace\n" | |
94 " n step over\n" | |
95 " f finish this call (until stack pop)\n" | |
28 | 96 " b [adr] set break point (on current physical addreaa)\n" |
33 | 97 " B break point list\n" |
0 | 98 " d [n] delte break point list\n" |
99 " c [count] continue;\n" | |
33 | 100 " x [adr] [count] dump\n" |
9 | 101 #ifdef USE_MMU |
28 | 102 " xp page [adr] dump physical memory\n" |
9 | 103 #endif |
33 | 104 " xi [adr] [count] disassemble\n" |
1 | 105 " 0 file disk drive 0 image\n" |
106 " 1 file disk drive 1 image\n" | |
0 | 107 " L file start log to file\n" |
108 " S file set input file\n" | |
109 " X exit\n" | |
110 " q exit\n" | |
111 " U file upload from srecord file \n" | |
112 " D file download to srecord file \n" | |
113 " R do reset\n" | |
114 " h,? print this\n" | |
115 ); | |
116 } | |
117 | |
21 | 118 |
119 void setbreak(int adr,int count) ; | |
22 | 120 int nexti(void); |
21 | 121 |
0 | 122 void do_escape(void) { |
123 char s[80]; | |
28 | 124 int adr,page; |
0 | 125 if (bpskip) { // skip unbreak instruction |
126 bpskip--; | |
24 | 127 int ppc = paddr(pcreg,mmu); |
21 | 128 BPTR *prev = &breakpoint; |
22 | 129 for(BPTR b = breakpoint; b ; prev=&b->next, b=b->next ) { |
35 | 130 #ifdef USE_MMU |
131 int watch = phymem[b->address]; | |
132 #else | |
133 int watch = mem[b->address]; | |
134 #endif | |
135 if (ppc==b->address || b->watch != watch ) { | |
136 b->watch = watch; | |
21 | 137 if (b->count==-1) { // temporaly break point |
138 BPTR next = b->next; | |
139 free(b); | |
22 | 140 *prev = next; |
21 | 141 goto restart0; |
142 } | |
0 | 143 if (b->count) b->count--; |
144 if (b->count==0) { | |
145 goto restart0; | |
146 } | |
147 } | |
148 } | |
149 return; | |
150 } | |
151 if (stkskip) { // skip until return | |
152 if (sreg < stkskip ) return; | |
153 } | |
154 restart0: | |
155 stkskip = 0; | |
156 restore_term(); | |
9 | 157 #ifdef USE_MMU |
11 | 158 Byte *phyadr = mem0(phymem,pcreg,mmu); |
9 | 159 prog = (char*)phyadr - pcreg; |
160 #endif | |
0 | 161 do_trace(stdout); |
162 if (trskip>1) { // show trace and step | |
163 trskip--; | |
35 | 164 int watch; // watch point |
0 | 165 set_term(escchar); |
166 return; | |
167 } | |
168 restart: | |
169 printf("v09>"); | |
28 | 170 fgets(s, sizeof(s)-1, stdin); |
171 s[strlen(s)-1] = 0; // chop | |
0 | 172 switch (s[0]) { |
21 | 173 case 'n': // step over |
174 if (nexti()) { | |
175 bpskip = -1; | |
176 break; | |
177 } | |
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
28
diff
changeset
|
178 default: |
0 | 179 case 's': // one step trace |
180 trskip = 1; | |
181 if (s[1]) { | |
182 trskip = getarg(s+1,0); | |
183 } | |
184 bpskip = 0; | |
185 attention = escape = 1; | |
186 break; | |
187 case 'f': // finish this call (until stack pop) | |
188 stkskip = sreg + 2; | |
189 attention = escape = 1; | |
190 break; | |
191 case 'b': // set break point | |
21 | 192 if (s[1]) { |
193 char *next; | |
194 int count = 0; | |
23 | 195 int adr = getarg(s+1,&next); |
21 | 196 if (next[0]) { |
197 count = getarg(next,&next); | |
198 } | |
199 setbreak(adr,count); | |
200 } else { | |
201 setbreak(pcreg,0); | |
0 | 202 } |
203 bpskip = -1; | |
204 goto restart; | |
28 | 205 case 'B': // break point list |
0 | 206 for(BPTR bp = breakpoint; bp ; bp = bp->next) { |
21 | 207 #ifdef USE_MMU |
35 | 208 printf("0x%x p=0x%x c=%d w=0x%x\n", bp->laddr, bp->address, bp->count, bp->watch); |
21 | 209 #else |
35 | 210 printf("0x%x c=%d w=0x%x\n", bp->address, bp->count,bp->watch); |
21 | 211 #endif |
0 | 212 } |
213 goto restart; | |
214 case 'd': // delte break point list | |
215 if (s[1]) { | |
216 int trskip = getarg(s+1,0); | |
217 BPTR *prev = &breakpoint; | |
22 | 218 for(BPTR bp = breakpoint; bp ; prev=&bp->next, bp = bp->next) { |
0 | 219 if (trskip-- == 0) { |
22 | 220 BPTR next = bp->next; |
21 | 221 free(bp); |
22 | 222 *prev = next; |
0 | 223 break; |
224 } | |
225 prev = &bp->next; | |
226 } | |
227 } | |
228 goto restart; | |
229 case 'c': // continue; | |
230 bpskip = -1; | |
231 attention = escape = 1; | |
232 if (s[1]) { | |
233 bpskip = getarg(s+1,0); | |
234 } | |
235 break; | |
28 | 236 case 'x': // dump |
237 { char *next = s+1; | |
238 if (s[1]=='i') next=s+2; | |
239 else if (s[1]=='p') { | |
240 next = s+2; | |
241 if (next[0]) { | |
242 page = getarg(next,&next); | |
243 } | |
244 } | |
245 if (next[0]) { | |
246 int adr = getarg(next,&next); | |
0 | 247 int len = 32; |
248 if (next[0]) { | |
249 len = getarg(next,&next); | |
250 } | |
28 | 251 if (s[1]=='i') { |
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
252 Word end = adr + len; |
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
253 while(adr < end) { |
9 | 254 #ifdef USE_MMU |
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
255 Byte *phyadr = mem0(phymem,adr,mmu); |
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
256 prog = (char*)phyadr - adr ; |
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
257 if (phyadr > phymem+memsize) goto restart; |
9 | 258 #endif |
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
259 int len = adr+16<end? 16 : end-adr -1 ; |
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
260 adr = disasm(adr,adr+len); |
9 | 261 } |
0 | 262 } else { |
9 | 263 #ifdef USE_MMU |
264 for(int i=0; len > 0 ; i+=16, len-=16) { | |
28 | 265 if (s[1]=='p') { |
266 int phy = page * 0x2000 + adr + i; | |
267 if (phy > rommemsize) goto restart; | |
268 hexadump(phymem+phy,len>16?16:len,adr+i,16); | |
9 | 269 } else { |
11 | 270 Byte *phyadr = mem0(phymem,adr+i,mmu); |
28 | 271 if (phyadr > phymem+rommemsize) goto restart; |
9 | 272 hexadump(phyadr,len>16?16:len,adr+i,16); |
273 } | |
274 } | |
275 #else | |
0 | 276 for(int i=0; len > 0 ; i+=16, len-=16) { |
277 hexadump(mem+adr+i,len>16?16:len,adr+i,16); | |
278 } | |
9 | 279 #endif |
0 | 280 } |
281 } else | |
282 disasm(pcreg,pcreg+32); | |
283 goto restart; | |
28 | 284 } |
0 | 285 case 'L': |
286 if (logfile) | |
287 fclose(logfile); | |
288 logfile = 0; | |
289 if (s[1]) { | |
1 | 290 int i=1; while(s[i]==' ') i++; |
291 logfile = fopen(s + i, "w"); | |
0 | 292 } |
293 break; | |
294 case 'S': | |
295 if (infile) | |
296 fclose(infile); | |
297 infile = 0; | |
298 if (s[1]) { | |
1 | 299 int i=1; while(s[i]==' ') i++; |
300 infile = fopen(s + i, "r"); | |
0 | 301 } |
302 break; | |
303 case 'h': | |
304 case '?': | |
305 printhelp(); | |
306 goto restart; | |
307 case 'X': | |
308 case 'q': | |
309 if (!xmstat) | |
310 do_exit(); | |
311 else { | |
312 xmstat = 0; | |
313 fclose(xfile); | |
314 xfile = 0; | |
315 } | |
316 break; | |
1 | 317 case '0': |
318 case '1': | |
319 { FILE **drv = &disk[ s[0]-'0'] ; | |
320 if (*drv) | |
321 fclose(*drv); | |
322 *drv = 0; | |
323 if (s[1]) { | |
324 int i=1; while(s[i]==' ') i++; | |
325 *drv = fopen(s + i, "r+b"); | |
326 if ( *drv == 0 ) { printf("can't open %s\n", &s[i]); } | |
327 } | |
328 } | |
329 break; | |
0 | 330 case 'U': |
331 if (xfile) | |
332 fclose(xfile); | |
333 xfile = 0; | |
334 if (s[1]) { | |
1 | 335 int i=1; while(s[i]==' ') i++; |
336 xfile = fopen(s + i, "rb"); | |
337 if ( xfile == 0 ) { printf("can't open %s\n", &s[i]); } | |
0 | 338 } |
339 if (xfile) | |
340 xmstat = 1; | |
341 else | |
342 xmstat = 0; | |
343 xidx = 0; | |
344 acknak = 21; | |
345 rcvdnak = EOF; | |
346 blocknum = 1; | |
347 break; | |
348 case 'D': | |
349 if (xfile) | |
350 fclose(xfile); | |
351 xfile = 0; | |
352 if (s[1]) { | |
1 | 353 int i=1; while(s[i]==' ') i++; |
354 xfile = fopen(s + i, "wb"); | |
355 if ( xfile == 0 ) { printf("can't open %s\n", &s[i]); } | |
0 | 356 } |
357 if (xfile) | |
358 xmstat = 2; | |
359 else | |
360 xmstat = 0; | |
361 xidx = 0; | |
362 acknak = 21; | |
363 blocknum = 1; | |
364 break; | |
365 case 'R': | |
366 pcreg = (mem[0xfffe] << 8) + mem[0xffff]; | |
13 | 367 bpskip = 0; |
24 | 368 #ifdef USE_MMU |
369 mmu = &mem[0xffa0]; | |
28 | 370 mem[0xffa7]=0x3f; |
24 | 371 #endif |
13 | 372 attention = escape = 1; |
0 | 373 break; |
374 } | |
375 if (tracing||breakpoint||trskip||bpskip||stkskip) { attention = escape = 1; } | |
376 else attention = 0; | |
377 set_term(escchar); | |
378 } | |
379 | |
21 | 380 void setbreak(int adr, int count) { |
381 BPTR bp = calloc(1,sizeof(BP)); | |
382 bp->next = breakpoint; | |
383 breakpoint = bp; | |
384 bp->count = count; | |
22 | 385 bp->laddr = adr; |
386 bp->address = paddr(adr,mmu); | |
35 | 387 #ifdef USE_MMU |
388 bp->watch = *mem0(phymem,adr,mmu); | |
389 #else | |
390 bp->watch = mem[adr]; | |
391 #endif | |
21 | 392 } |
393 | |
394 int nexti(void) { | |
22 | 395 #ifdef USE_MMU |
396 int op1 = *mem0(phymem,pcreg,mmu); | |
397 int op2 = *mem0(phymem,pcreg+1,mmu); | |
398 #else | |
399 int op1 = mem[pcreg]; | |
400 int op2 = mem[pcreg+1]; | |
401 #endif | |
21 | 402 int ofs = 0; |
403 switch(op1) { | |
404 case 0x17: // LBSR | |
405 case 0xbd: // JSR extended | |
22 | 406 ofs=3; break; |
21 | 407 case 0x10: // page2 |
408 { | |
409 if (op2==0x3f) { // os9 system call | |
22 | 410 ofs=3; break; |
21 | 411 } |
412 } | |
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
28
diff
changeset
|
413 break; |
21 | 414 case 0x11: // page3 |
415 { | |
416 if (op2==0x3f) { // SWI3 | |
22 | 417 ofs=2; break; |
21 | 418 } |
419 } | |
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
28
diff
changeset
|
420 break; |
21 | 421 case 0x3f: // SWI |
22 | 422 ofs=1; break; |
21 | 423 case 0x3c: // CWAI |
424 case 0x8d: // BSR | |
425 case 0x9d: // JSR direct | |
22 | 426 ofs=2; break; |
21 | 427 case 0xad: // JSR index |
428 { | |
429 if (op2<0x80) ofs = 2; // 5bit ofs | |
430 else switch (op2&0xf) { | |
431 case 8: case 0xc: | |
432 ofs = 3; break; | |
433 case 9: case 0xd: case 0xf: | |
434 ofs = 4; break; | |
435 default: | |
436 ofs = 2; break; | |
437 } | |
438 } | |
439 break; | |
440 } | |
22 | 441 if (ofs) setbreak(pcreg+ofs,-1); |
442 return ofs; | |
21 | 443 } |
444 | |
445 | |
446 | |
447 | |
448 | |
449 | |
450 | |
451 |