cpu 49 include/struct.h CPU *cpu; /**<CPU */ cpu 9 src/dump.c fprintf(stdout, "#%04X: adr :", sys->cpu->pr); cpu 22 src/dump.c fprintf(stdout, "#%04X: %04X: ", sys->cpu->pr, i); cpu 40 src/dump.c char *sp = word2bit(sys->cpu->sp); cpu 41 src/dump.c char *pr = word2bit(sys->cpu->pr); cpu 42 src/dump.c char *fr = word2bit(sys->cpu->fr); cpu 47 src/dump.c fprintf(stdout, "#%04X: GR%d: ", sys->cpu->pr, i); cpu 48 src/dump.c print_dumpword(sys->cpu->gr[i], execmode.logical); cpu 51 src/dump.c fprintf(stdout, "#%04X: SP: %6d = #%04X = %s\n", sys->cpu->pr, sys->cpu->sp, sys->cpu->sp, sp); cpu 52 src/dump.c fprintf(stdout, "#%04X: PR: %6d = #%04X = %s\n", sys->cpu->pr, sys->cpu->pr, sys->cpu->pr, pr); cpu 53 src/dump.c fprintf(stdout, "#%04X: FR (OF SF ZF): %s\n", sys->cpu->pr, fr + L3BIT); /* FRは下位3けたを表示 */ cpu 115 src/exec.c sys->memory[sys->cpu->gr[1]] = sys->memory[sys->cpu->gr[2]] = 0x0; cpu 123 src/exec.c if(sys->cpu->gr[1] + i > execptr->end) { cpu 128 src/exec.c sys->memory[sys->cpu->gr[1] + i] = buf[i]; cpu 130 src/exec.c sys->memory[sys->cpu->gr[2]] = i + 1; cpu 139 src/exec.c for(i = 0; i < sys->memory[sys->cpu->gr[2]]; i++) { cpu 140 src/exec.c if(sys->cpu->gr[1] + i > execptr->end) { cpu 147 src/exec.c if(((w = sys->memory[sys->cpu->gr[1]+i]) >= 0x20 && w <= 0x7E) || /* JIS X 0201ラテン文字 */ cpu 160 src/exec.c sys->cpu->fr = 0x0; cpu 163 src/exec.c sys->cpu->fr += SF; cpu 167 src/exec.c sys->cpu->fr += ZF; cpu 177 src/exec.c setcerr(205, s = pr2str(sys->cpu->pr)); /* r/r1 in word #1 - not GR */ cpu 190 src/exec.c setcerr(206, s = pr2str(sys->cpu->pr)); /* r/r1 in word #1 - not GR */ cpu 203 src/exec.c a += sys->cpu->gr[x]; cpu 214 src/exec.c setcerr(207, s = pr2str(sys->cpu->pr + 1)); /* address in word #2 - out of memory */ cpu 229 src/exec.c sys->cpu->pr += 1; cpu 234 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 235 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] = get_val_adr_x(w[1], w[0])); cpu 236 src/exec.c sys->cpu->pr += 2; cpu 241 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 242 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] = sys->cpu->gr[get_x_r2(w[0])]); cpu 243 src/exec.c sys->cpu->pr += 1; cpu 248 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 249 src/exec.c sys->memory[get_adr_x(w[1], w[0])] = sys->cpu->gr[get_r_r1(w[0])]; cpu 250 src/exec.c sys->cpu->pr += 2; cpu 255 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 256 src/exec.c sys->cpu->gr[get_r_r1(w[0])] = get_adr_x(w[1], w[0]); cpu 257 src/exec.c sys->cpu->pr += 2; cpu 264 src/exec.c sys->cpu->fr = 0x0; cpu 267 src/exec.c if((tmp = (short)(sys->cpu->gr[r]) + (short)val) > 32767 || tmp < -32768) { cpu 268 src/exec.c sys->cpu->fr += OF; cpu 271 src/exec.c sys->cpu->gr[r] = (WORD)(tmp & 0xFFFF); cpu 272 src/exec.c if((sys->cpu->gr[r] & 0x8000) == 0x8000) { cpu 273 src/exec.c sys->cpu->fr += SF; cpu 274 src/exec.c } else if(sys->cpu->gr[r] == 0x0) { cpu 275 src/exec.c sys->cpu->fr += ZF; cpu 281 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 283 src/exec.c sys->cpu->pr += 2; cpu 288 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 289 src/exec.c adda(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]); cpu 290 src/exec.c sys->cpu->pr += 1; cpu 295 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 297 src/exec.c sys->cpu->pr += 2; cpu 302 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 303 src/exec.c adda(get_r_r1(w[0]), ~(sys->cpu->gr[get_x_r2(w[0])]) + 1); cpu 304 src/exec.c sys->cpu->pr += 1; cpu 312 src/exec.c o = sys->cpu->gr[r]; cpu 313 src/exec.c sys->cpu->fr = 0; /* flag initialize */ cpu 318 src/exec.c sys->cpu->fr += OF; cpu 322 src/exec.c sys->cpu->fr += OF; cpu 329 src/exec.c sys->cpu->gr[r] = (WORD)s; cpu 332 src/exec.c sys->cpu->fr += SF; cpu 335 src/exec.c sys->cpu->fr += ZF; cpu 341 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 343 src/exec.c sys->cpu->pr += 2; cpu 348 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 349 src/exec.c addl_gr(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])], true); cpu 350 src/exec.c sys->cpu->pr += 1; cpu 355 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 357 src/exec.c sys->cpu->pr += 2; cpu 362 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 363 src/exec.c addl_gr(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])], false); cpu 364 src/exec.c sys->cpu->pr += 1; cpu 369 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 370 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] &= get_val_adr_x(w[1], w[0])); cpu 371 src/exec.c sys->cpu->pr += 2; cpu 376 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 377 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] &= sys->cpu->gr[get_x_r2(w[0])]); cpu 378 src/exec.c sys->cpu->pr += 1; cpu 383 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 384 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] |= get_val_adr_x(w[1], w[0])); cpu 385 src/exec.c sys->cpu->pr += 2; cpu 390 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 391 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] |= sys->cpu->gr[get_x_r2(w[0])]); cpu 392 src/exec.c sys->cpu->pr += 1; cpu 397 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 398 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] ^= get_val_adr_x(w[1], w[0])); cpu 399 src/exec.c sys->cpu->pr += 2; cpu 404 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 405 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] ^= sys->cpu->gr[get_x_r2(w[0])]); cpu 406 src/exec.c sys->cpu->pr += 1; cpu 411 src/exec.c sys->cpu->fr = 0; cpu 412 src/exec.c if((short)sys->cpu->gr[r] < (short)val) { cpu 413 src/exec.c sys->cpu->fr = SF; cpu 414 src/exec.c } else if(sys->cpu->gr[r] == val) { cpu 415 src/exec.c sys->cpu->fr = ZF; cpu 421 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 423 src/exec.c sys->cpu->pr += 2; cpu 428 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 429 src/exec.c cpa(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]); cpu 430 src/exec.c sys->cpu->pr += 1; cpu 435 src/exec.c sys->cpu->fr = 0x0; cpu 436 src/exec.c if(sys->cpu->gr[r] < val) { cpu 437 src/exec.c sys->cpu->fr = SF; cpu 438 src/exec.c } else if(sys->cpu->gr[r] == val) { cpu 439 src/exec.c sys->cpu->fr = ZF; cpu 445 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 447 src/exec.c sys->cpu->pr += 2; cpu 452 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 453 src/exec.c cpl(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]); cpu 454 src/exec.c sys->cpu->pr += 1; cpu 459 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 461 src/exec.c WORD sign = sys->cpu->gr[r] & 0x8000; cpu 464 src/exec.c sys->cpu->fr = 0; cpu 465 src/exec.c sys->cpu->gr[r] &= 0x7FFF; cpu 467 src/exec.c last = sys->cpu->gr[r] & 0x4000; cpu 468 src/exec.c sys->cpu->gr[r] <<= 1; cpu 470 src/exec.c sys->cpu->gr[r] = sign | (sys->cpu->gr[r] & 0x7FFF); cpu 473 src/exec.c sys->cpu->fr += OF; cpu 477 src/exec.c sys->cpu->fr += SF; cpu 480 src/exec.c if(sys->cpu->gr[r] == 0x0) { cpu 481 src/exec.c sys->cpu->fr += ZF; cpu 483 src/exec.c sys->cpu->pr += 2; cpu 488 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 490 src/exec.c WORD sign = sys->cpu->gr[r] & 0x8000; cpu 493 src/exec.c sys->cpu->fr = 0; cpu 494 src/exec.c sys->cpu->gr[r] &= 0x7FFF; cpu 496 src/exec.c last = sys->cpu->gr[r] & 0x1; cpu 497 src/exec.c sys->cpu->gr[r] >>= 1; cpu 499 src/exec.c sys->cpu->gr[r] |= 0x4000; cpu 502 src/exec.c sys->cpu->gr[r] = sign | sys->cpu->gr[r]; cpu 505 src/exec.c sys->cpu->fr += OF; cpu 509 src/exec.c sys->cpu->fr += SF; cpu 512 src/exec.c if(sys->cpu->gr[r] == 0x0) { cpu 513 src/exec.c sys->cpu->fr += ZF; cpu 515 src/exec.c sys->cpu->pr += 2; cpu 520 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 524 src/exec.c sys->cpu->fr = 0x0; cpu 526 src/exec.c last = sys->cpu->gr[r] & 0x8000; cpu 527 src/exec.c sys->cpu->gr[r] <<= 1; cpu 531 src/exec.c sys->cpu->fr += OF; cpu 534 src/exec.c if((sys->cpu->gr[r] & 0x8000) > 0x0) { cpu 535 src/exec.c sys->cpu->fr += SF; cpu 538 src/exec.c if(sys->cpu->gr[r] == 0x0) { cpu 539 src/exec.c sys->cpu->fr += ZF; cpu 541 src/exec.c sys->cpu->pr += 2; cpu 546 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 550 src/exec.c sys->cpu->fr = 0x0; cpu 552 src/exec.c last = sys->cpu->gr[r] & 0x0001; cpu 553 src/exec.c sys->cpu->gr[r] >>= 1; cpu 557 src/exec.c sys->cpu->fr += OF; cpu 560 src/exec.c if((sys->cpu->gr[r] & 0x8000) > 0x0) { cpu 561 src/exec.c sys->cpu->fr += SF; cpu 564 src/exec.c if(sys->cpu->gr[r] == 0x0) { cpu 565 src/exec.c sys->cpu->fr += ZF; cpu 567 src/exec.c sys->cpu->pr += 2; cpu 572 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 573 src/exec.c if((sys->cpu->fr & (SF | ZF)) == 0) { cpu 574 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]); cpu 576 src/exec.c sys->cpu->pr += 2; cpu 582 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 583 src/exec.c if((sys->cpu->fr & SF) > 0) { cpu 584 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]); cpu 586 src/exec.c sys->cpu->pr += 2; cpu 592 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 593 src/exec.c if((sys->cpu->fr & ZF) == 0) { cpu 594 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]); cpu 596 src/exec.c sys->cpu->pr += 2; cpu 602 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 603 src/exec.c if((sys->cpu->fr & ZF) > 0) { cpu 604 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]); cpu 606 src/exec.c sys->cpu->pr += 2; cpu 612 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 613 src/exec.c if((sys->cpu->fr & OF) > 0) { cpu 614 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]); cpu 616 src/exec.c sys->cpu->pr += 2; cpu 622 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 623 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]); cpu 628 src/exec.c assert(sys->cpu->sp > execptr->end && sys->cpu->sp <= sys->memsize); cpu 629 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 630 src/exec.c sys->memory[--(sys->cpu->sp)] = get_adr_x(w[1], w[0]); cpu 631 src/exec.c sys->cpu->pr += 2; cpu 636 src/exec.c assert(sys->cpu->sp > execptr->end); cpu 637 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]}; cpu 640 src/exec.c if(sys->cpu->sp >= sys->memsize) { cpu 641 src/exec.c setcerr(203, s = pr2str(sys->cpu->pr)); /* Stack Pointer (SP) - stack underflow */ cpu 644 src/exec.c sys->cpu->gr[get_r_r1(w[0])] = sys->memory[(sys->cpu->sp)++]; cpu 645 src/exec.c sys->cpu->pr += 1; cpu 651 src/exec.c assert(sys->cpu->sp > execptr->end && sys->cpu->sp <= sys->memsize); cpu 652 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 653 src/exec.c sys->memory[--(sys->cpu->sp)] = sys->cpu->pr + 1; cpu 654 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]); cpu 659 src/exec.c assert(sys->cpu->sp <= sys->memsize); cpu 660 src/exec.c if(sys->cpu->sp == sys->memsize) { cpu 662 src/exec.c } else if(sys->cpu->sp < sys->memsize) { cpu 663 src/exec.c sys->cpu->pr = sys->memory[(sys->cpu->sp)++] + 1; cpu 669 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]}; cpu 682 src/exec.c sys->cpu->pr += 2; cpu 699 src/exec.c for (sys->cpu->pr = execptr->start; ; ) { cpu 703 src/exec.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr); cpu 707 src/exec.c fprintf(stdout, "#%04X: Memory::::\n", sys->cpu->pr); cpu 714 src/exec.c (execmode.monitor == true && sys->cpu->pr == execptr->start) || cpu 715 src/exec.c execmode.step == true || getbps(sys->cpu->pr) == true) cpu 717 src/exec.c if(sys->cpu->pr == execptr->start) { cpu 723 src/exec.c if(sys->cpu->pr >= sys->memsize) { cpu 724 src/exec.c setcerr(201, s = pr2str(sys->cpu->pr)); /* Program Register (PR) - memory overflow */ cpu 728 src/exec.c if(sys->cpu->sp <= execptr->end) { cpu 729 src/exec.c setcerr(202, s = pr2str(sys->cpu->pr)); /* Stack Pointer (SP) - stack overflow */ cpu 734 src/exec.c if((cmdptr = getcmdptr(sys->memory[sys->cpu->pr] & 0xFF00)) == NULL) { cpu 735 src/exec.c setcerr(204, s = pr2str(sys->cpu->pr)); /* OP in word #1 - not command code */ cpu 333 src/monitor.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr); cpu 343 src/monitor.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr); cpu 278 src/struct.c sys->cpu = malloc_chk(sizeof(CPU), "comet2_init.cpu"); cpu 294 src/struct.c sys->cpu->gr[i] = 0x0; cpu 296 src/struct.c sys->cpu->sp = sys->memsize; /* スタックポインタ */ cpu 297 src/struct.c sys->cpu->pr = 0x0; /* プログラムレジスタ */ cpu 298 src/struct.c sys->cpu->fr = 0x0; /* フラグレジスタ */ cpu 335 src/struct.c FREE(sys->cpu);