mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:38:05 +11:00
emul: add live register stats in the corner
This commit is contained in:
parent
08b0c56ff6
commit
7f3e55cb51
@ -173,6 +173,12 @@ void emul_memdump()
|
||||
fclose(fp);
|
||||
}
|
||||
|
||||
void emul_debugstr(char *s)
|
||||
{
|
||||
sprintf(s, "SP %04x (%04x) IX %04x (%04x)",
|
||||
m.cpu.R1.wr.SP, m.minsp, m.cpu.R1.wr.IX, m.maxix);
|
||||
}
|
||||
|
||||
void emul_printdebug()
|
||||
{
|
||||
fprintf(stderr, "Min SP: %04x\n", m.minsp);
|
||||
|
@ -35,4 +35,5 @@ bool emul_steps(unsigned int steps);
|
||||
void emul_loop();
|
||||
void emul_trace(ushort addr);
|
||||
void emul_memdump();
|
||||
void emul_debugstr(char *s);
|
||||
void emul_printdebug();
|
||||
|
20
emul/forth.c
20
emul/forth.c
@ -20,7 +20,15 @@
|
||||
|
||||
static FILE *fp;
|
||||
static int retcode = 0;
|
||||
WINDOW *bw, *w;
|
||||
WINDOW *bw, *dw, *w;
|
||||
|
||||
void debug_panel()
|
||||
{
|
||||
char buf[30];
|
||||
emul_debugstr(buf);
|
||||
mvwaddnstr(dw, 0, 0, buf, 30);
|
||||
wrefresh(dw);
|
||||
}
|
||||
|
||||
static uint8_t iord_stdio()
|
||||
{
|
||||
@ -28,6 +36,7 @@ static uint8_t iord_stdio()
|
||||
if (fp != NULL) {
|
||||
c = getc(fp);
|
||||
} else {
|
||||
debug_panel();
|
||||
c = wgetch(w);
|
||||
}
|
||||
if (c == EOF) {
|
||||
@ -74,13 +83,18 @@ int main(int argc, char *argv[])
|
||||
} else if (argc == 1) {
|
||||
fp = NULL;
|
||||
initscr(); cbreak(); noecho(); nl(); clear();
|
||||
// border window
|
||||
bw = newwin(WLINES+2, WCOLS+2, 0, 0);
|
||||
wborder(bw, 0, 0, 0, 0, 0, 0, 0, 0);
|
||||
wrefresh(bw);
|
||||
// debug panel
|
||||
dw = newwin(1, 30, LINES-1, COLS-30);
|
||||
w = newwin(WLINES, WCOLS, 1, 1);
|
||||
scrollok(w, 1);
|
||||
while (emul_step());
|
||||
nocbreak(); echo(); delwin(w); delwin(bw); endwin();
|
||||
while (emul_steps(1000)) {
|
||||
debug_panel();
|
||||
}
|
||||
nocbreak(); echo(); delwin(w); delwin(bw); delwin(dw); endwin();
|
||||
printf("\nDone!\n");
|
||||
emul_printdebug();
|
||||
} else {
|
||||
|
Loading…
Reference in New Issue
Block a user