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