4 char *word2bit(const WORD word)
11 *p++ = (word & mask) ? '1' : '0';
12 } while((mask >>= 1) > 0);
23 fprintf(stdout, "#%04X: adr :", PR);
24 for(i = 0; i < col; i++) {
25 fprintf(stdout, " %04X", i);
27 fprintf(stdout, "\n");
29 for(i = 0; i < memsize; i++) {
31 fprintf(stdout, "#%04X: %04X: ", PR, i);
33 fprintf(stdout, "%04X", memory[i]);
34 if(i > 0 && (i + 1) % col == 0) {
35 fprintf(stdout, "\n");
42 /* COMET IIのレジスタを表示 */
46 for(i = 0; i < REGSIZE; i++ ) {
47 if(logicalmode == true) {
48 fprintf(stdout, "#%04X: GR%d: %6d = #%04X = %s\n",
49 PR, i, GR[i], GR[i], word2bit(GR[i]));
51 fprintf(stdout, "#%04X: GR%d: %6d = #%04X = %s\n",
52 PR, i, (short)GR[i], GR[i], word2bit(GR[i]));
55 fprintf(stdout, "#%04X: SP: %6d = #%04X = %s\n", PR, SP, SP, word2bit(SP));
56 fprintf(stdout, "#%04X: PR: %6d = #%04X = %s\n", PR, PR, PR, word2bit(PR));
57 fprintf(stdout, "#%04X: FR (OF SF ZF): %s\n", PR, (word2bit(FR)+13));