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