Mercurial > hg > Members > kono > os9 > sbc09
annotate trace.c @ 52:51b437557f42
boot without disk image
dir -e on other directory
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Sun, 22 Jul 2018 15:52:39 +0900 |
| parents | 52f7ad4c2ebb |
| children |
| 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; |
| 38 | 125 int ppc = paddr(pcreg,mmu); |
| 0 | 126 if (bpskip) { // skip unbreak instruction |
| 127 bpskip--; | |
| 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 | |
| 38 | 152 #ifdef USE_MMU |
| 153 if (phymem[ppc]==0x3b||(phymem[ppc]==0x10&&phymem[ppc+1]==0x3f)) | |
| 154 goto restart0; | |
| 155 #else | |
| 156 if (mem[ppc]==0x3b||(mem[ppc]==0x10&&mem[ppc+1]==0x3f)) | |
| 157 goto restart0; | |
| 158 #endif | |
| 0 | 159 if (sreg < stkskip ) return; |
| 160 } | |
| 161 restart0: | |
| 162 stkskip = 0; | |
| 163 restore_term(); | |
| 9 | 164 #ifdef USE_MMU |
| 38 | 165 Byte *phyadr = phymem + ppc; |
| 9 | 166 prog = (char*)phyadr - pcreg; |
| 167 #endif | |
| 0 | 168 do_trace(stdout); |
| 169 if (trskip>1) { // show trace and step | |
| 170 trskip--; | |
| 35 | 171 int watch; // watch point |
| 0 | 172 set_term(escchar); |
| 173 return; | |
| 174 } | |
| 175 restart: | |
| 176 printf("v09>"); | |
| 28 | 177 fgets(s, sizeof(s)-1, stdin); |
| 178 s[strlen(s)-1] = 0; // chop | |
| 0 | 179 switch (s[0]) { |
| 21 | 180 case 'n': // step over |
| 181 if (nexti()) { | |
| 182 bpskip = -1; | |
| 183 break; | |
| 184 } | |
| 0 | 185 case 's': // one step trace |
| 186 trskip = 1; | |
| 187 if (s[1]) { | |
| 188 trskip = getarg(s+1,0); | |
| 189 } | |
| 190 bpskip = 0; | |
| 191 attention = escape = 1; | |
| 192 break; | |
| 193 case 'f': // finish this call (until stack pop) | |
| 194 stkskip = sreg + 2; | |
| 195 attention = escape = 1; | |
| 196 break; | |
| 197 case 'b': // set break point | |
| 21 | 198 if (s[1]) { |
| 199 char *next; | |
| 200 int count = 0; | |
| 23 | 201 int adr = getarg(s+1,&next); |
| 21 | 202 if (next[0]) { |
| 203 count = getarg(next,&next); | |
| 204 } | |
| 205 setbreak(adr,count); | |
| 206 } else { | |
| 207 setbreak(pcreg,0); | |
| 0 | 208 } |
| 209 bpskip = -1; | |
| 210 goto restart; | |
| 28 | 211 case 'B': // break point list |
| 0 | 212 for(BPTR bp = breakpoint; bp ; bp = bp->next) { |
| 21 | 213 #ifdef USE_MMU |
| 35 | 214 printf("0x%x p=0x%x c=%d w=0x%x\n", bp->laddr, bp->address, bp->count, bp->watch); |
| 21 | 215 #else |
| 35 | 216 printf("0x%x c=%d w=0x%x\n", bp->address, bp->count,bp->watch); |
| 21 | 217 #endif |
| 0 | 218 } |
| 219 goto restart; | |
| 220 case 'd': // delte break point list | |
| 221 if (s[1]) { | |
| 222 int trskip = getarg(s+1,0); | |
| 223 BPTR *prev = &breakpoint; | |
| 22 | 224 for(BPTR bp = breakpoint; bp ; prev=&bp->next, bp = bp->next) { |
| 0 | 225 if (trskip-- == 0) { |
| 22 | 226 BPTR next = bp->next; |
| 21 | 227 free(bp); |
| 22 | 228 *prev = next; |
| 0 | 229 break; |
| 230 } | |
| 231 prev = &bp->next; | |
| 232 } | |
| 233 } | |
| 234 goto restart; | |
| 235 case 'c': // continue; | |
| 236 bpskip = -1; | |
| 237 attention = escape = 1; | |
| 238 if (s[1]) { | |
| 239 bpskip = getarg(s+1,0); | |
| 240 } | |
| 241 break; | |
| 28 | 242 case 'x': // dump |
| 243 { char *next = s+1; | |
| 244 if (s[1]=='i') next=s+2; | |
| 245 else if (s[1]=='p') { | |
| 246 next = s+2; | |
| 247 if (next[0]) { | |
| 248 page = getarg(next,&next); | |
| 249 } | |
| 250 } | |
| 251 if (next[0]) { | |
| 252 int adr = getarg(next,&next); | |
| 0 | 253 int len = 32; |
| 254 if (next[0]) { | |
| 255 len = getarg(next,&next); | |
| 256 } | |
| 28 | 257 if (s[1]=='i') { |
|
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
258 Word end = adr + len; |
|
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
259 while(adr < end) { |
| 9 | 260 #ifdef USE_MMU |
|
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
261 Byte *phyadr = mem0(phymem,adr,mmu); |
|
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
262 prog = (char*)phyadr - adr ; |
|
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
263 if (phyadr > phymem+memsize) goto restart; |
| 9 | 264 #endif |
|
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
265 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
|
266 adr = disasm(adr,adr+len); |
| 9 | 267 } |
| 0 | 268 } else { |
| 9 | 269 #ifdef USE_MMU |
| 270 for(int i=0; len > 0 ; i+=16, len-=16) { | |
| 28 | 271 if (s[1]=='p') { |
| 272 int phy = page * 0x2000 + adr + i; | |
| 273 if (phy > rommemsize) goto restart; | |
| 274 hexadump(phymem+phy,len>16?16:len,adr+i,16); | |
| 9 | 275 } else { |
| 11 | 276 Byte *phyadr = mem0(phymem,adr+i,mmu); |
| 28 | 277 if (phyadr > phymem+rommemsize) goto restart; |
| 9 | 278 hexadump(phyadr,len>16?16:len,adr+i,16); |
| 279 } | |
| 280 } | |
| 281 #else | |
| 0 | 282 for(int i=0; len > 0 ; i+=16, len-=16) { |
| 283 hexadump(mem+adr+i,len>16?16:len,adr+i,16); | |
| 284 } | |
| 9 | 285 #endif |
| 0 | 286 } |
| 287 } else | |
| 288 disasm(pcreg,pcreg+32); | |
| 289 goto restart; | |
| 28 | 290 } |
| 0 | 291 case 'L': |
| 292 if (logfile) | |
| 293 fclose(logfile); | |
| 294 logfile = 0; | |
| 295 if (s[1]) { | |
| 1 | 296 int i=1; while(s[i]==' ') i++; |
| 297 logfile = fopen(s + i, "w"); | |
| 0 | 298 } |
| 299 break; | |
| 300 case 'S': | |
| 301 if (infile) | |
| 302 fclose(infile); | |
| 303 infile = 0; | |
| 304 if (s[1]) { | |
| 1 | 305 int i=1; while(s[i]==' ') i++; |
| 306 infile = fopen(s + i, "r"); | |
| 0 | 307 } |
| 308 break; | |
| 309 case 'h': | |
| 310 case '?': | |
| 311 printhelp(); | |
| 312 goto restart; | |
| 313 case 'X': | |
| 314 case 'q': | |
| 315 if (!xmstat) | |
| 316 do_exit(); | |
| 317 else { | |
| 318 xmstat = 0; | |
| 319 fclose(xfile); | |
| 320 xfile = 0; | |
| 321 } | |
| 322 break; | |
| 1 | 323 case '0': |
| 324 case '1': | |
| 325 { FILE **drv = &disk[ s[0]-'0'] ; | |
| 326 if (*drv) | |
| 327 fclose(*drv); | |
| 328 *drv = 0; | |
| 329 if (s[1]) { | |
| 330 int i=1; while(s[i]==' ') i++; | |
| 331 *drv = fopen(s + i, "r+b"); | |
| 332 if ( *drv == 0 ) { printf("can't open %s\n", &s[i]); } | |
| 333 } | |
| 334 } | |
| 335 break; | |
| 0 | 336 case 'U': |
| 337 if (xfile) | |
| 338 fclose(xfile); | |
| 339 xfile = 0; | |
| 340 if (s[1]) { | |
| 1 | 341 int i=1; while(s[i]==' ') i++; |
| 342 xfile = fopen(s + i, "rb"); | |
| 343 if ( xfile == 0 ) { printf("can't open %s\n", &s[i]); } | |
| 0 | 344 } |
| 345 if (xfile) | |
| 346 xmstat = 1; | |
| 347 else | |
| 348 xmstat = 0; | |
| 349 xidx = 0; | |
| 350 acknak = 21; | |
| 351 rcvdnak = EOF; | |
| 352 blocknum = 1; | |
| 353 break; | |
| 354 case 'D': | |
| 355 if (xfile) | |
| 356 fclose(xfile); | |
| 357 xfile = 0; | |
| 358 if (s[1]) { | |
| 1 | 359 int i=1; while(s[i]==' ') i++; |
| 360 xfile = fopen(s + i, "wb"); | |
| 361 if ( xfile == 0 ) { printf("can't open %s\n", &s[i]); } | |
| 0 | 362 } |
| 363 if (xfile) | |
| 364 xmstat = 2; | |
| 365 else | |
| 366 xmstat = 0; | |
| 367 xidx = 0; | |
| 368 acknak = 21; | |
| 369 blocknum = 1; | |
| 370 break; | |
| 371 case 'R': | |
| 372 pcreg = (mem[0xfffe] << 8) + mem[0xffff]; | |
| 13 | 373 bpskip = 0; |
| 24 | 374 #ifdef USE_MMU |
| 375 mmu = &mem[0xffa0]; | |
| 28 | 376 mem[0xffa7]=0x3f; |
| 24 | 377 #endif |
| 13 | 378 attention = escape = 1; |
| 0 | 379 break; |
|
52
51b437557f42
boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
38
diff
changeset
|
380 default: // one step trace |
|
51b437557f42
boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
38
diff
changeset
|
381 trskip = 1; |
|
51b437557f42
boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
38
diff
changeset
|
382 bpskip = 0; |
|
51b437557f42
boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
38
diff
changeset
|
383 attention = escape = 1; |
| 0 | 384 } |
| 385 if (tracing||breakpoint||trskip||bpskip||stkskip) { attention = escape = 1; } | |
| 386 else attention = 0; | |
| 387 set_term(escchar); | |
| 388 } | |
| 389 | |
| 21 | 390 void setbreak(int adr, int count) { |
| 391 BPTR bp = calloc(1,sizeof(BP)); | |
| 392 bp->count = count; | |
| 22 | 393 bp->laddr = adr; |
| 394 bp->address = paddr(adr,mmu); | |
| 35 | 395 #ifdef USE_MMU |
|
52
51b437557f42
boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
38
diff
changeset
|
396 if (bp->address >= memsize) { free(bp); return; } |
| 35 | 397 bp->watch = *mem0(phymem,adr,mmu); |
| 398 #else | |
| 399 bp->watch = mem[adr]; | |
| 400 #endif | |
|
52
51b437557f42
boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
38
diff
changeset
|
401 bp->next = breakpoint; |
|
51b437557f42
boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
38
diff
changeset
|
402 breakpoint = bp; |
| 21 | 403 } |
| 404 | |
| 405 int nexti(void) { | |
| 22 | 406 #ifdef USE_MMU |
| 407 int op1 = *mem0(phymem,pcreg,mmu); | |
| 408 int op2 = *mem0(phymem,pcreg+1,mmu); | |
| 409 #else | |
| 410 int op1 = mem[pcreg]; | |
| 411 int op2 = mem[pcreg+1]; | |
| 412 #endif | |
| 21 | 413 int ofs = 0; |
| 414 switch(op1) { | |
| 415 case 0x17: // LBSR | |
| 416 case 0xbd: // JSR extended | |
| 22 | 417 ofs=3; break; |
| 21 | 418 case 0x10: // page2 |
| 419 { | |
| 420 if (op2==0x3f) { // os9 system call | |
| 22 | 421 ofs=3; break; |
| 21 | 422 } |
| 423 } | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
28
diff
changeset
|
424 break; |
| 21 | 425 case 0x11: // page3 |
| 426 { | |
| 427 if (op2==0x3f) { // SWI3 | |
| 22 | 428 ofs=2; break; |
| 21 | 429 } |
| 430 } | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
28
diff
changeset
|
431 break; |
| 21 | 432 case 0x3f: // SWI |
| 22 | 433 ofs=1; break; |
| 21 | 434 case 0x3c: // CWAI |
| 435 case 0x8d: // BSR | |
| 436 case 0x9d: // JSR direct | |
| 22 | 437 ofs=2; break; |
| 21 | 438 case 0xad: // JSR index |
| 439 { | |
| 440 if (op2<0x80) ofs = 2; // 5bit ofs | |
| 441 else switch (op2&0xf) { | |
| 442 case 8: case 0xc: | |
| 443 ofs = 3; break; | |
| 444 case 9: case 0xd: case 0xf: | |
| 445 ofs = 4; break; | |
| 446 default: | |
| 447 ofs = 2; break; | |
| 448 } | |
| 449 } | |
| 450 break; | |
| 451 } | |
| 22 | 452 if (ofs) setbreak(pcreg+ofs,-1); |
| 453 return ofs; | |
| 21 | 454 } |
| 455 | |
| 456 | |
| 457 | |
| 458 | |
| 459 | |
| 460 | |
| 461 | |
| 462 |