/* gui.c This file is part of the "First" CPU simulator project. Copyright (c) 2024 Efthymios Kritikos This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ #include #include #include "simdata.h" #include "assembly.h" #include #include "cpu.h" #define GENERAL_STACK_MAX_WIDTH 16 #define GENERAL_DISAS_WIDTH 41 int terminal_width; int terminal_height; WINDOW *tabs; WINDOW *general_memdump; WINDOW *general_stack; WINDOW *general_disas; WINDOW *general_registers; int monochrome; int get_terminal_size(){ int new_height,new_width; getmaxyx(stdscr,new_height,new_width); int changed=(new_width!=terminal_width)||(new_height!=terminal_height); terminal_width=new_width; terminal_height=new_height; return changed; } int gui_ncurses_refresh(){ if(refresh()==ERR) return 1; if(wrefresh(tabs)==ERR) return 1; if(wrefresh(general_memdump)==ERR) return 1; if(wrefresh(general_stack)==ERR) return 1; if(wrefresh(general_disas)==ERR) return 1; if(wrefresh(general_registers)==ERR) return 1; return 0; } char *tab_name[]={"Overview","Memory","Internal"}; unsigned int CURRENT_TAB=0; enum GUI_CPU_STATE_t CPU_STATE=GUI_CPU_SINGLE_STEPPING; void update_tabs(){ wattron(tabs,A_BOLD); wattron(tabs,COLOR_PAIR(2)); for(int i=0;iGENERAL_DISAS_WIDTH?GENERAL_DISAS_WIDTH:(terminal_width/6); general_disas=newwin(y1_divider,len,4,x); x+=len; x+=3; len=(terminal_width/6)>GENERAL_STACK_MAX_WIDTH?GENERAL_STACK_MAX_WIDTH:(terminal_width/6); general_stack=newwin(y1_divider,len,4,x); x+=len; general_registers=newwin(terminal_height-y1_divider-border-1,terminal_width/2,y1_divider+border+1,border); x+=terminal_width/2; x++; if(gui_ncurses_refresh()) return 1; return 0; } int gui_error(char *str){ WINDOW *error_win = newwin(3,40,terminal_height/2-1,terminal_width/2-20); box(error_win, 0 , 0); if(!monochrome) wattron(error_win,COLOR_PAIR(1)); mvwprintw(error_win,1,1,"%s",str); if(wrefresh(error_win)==ERR) return 1; getch(); delwin(error_win); return 0; if(!monochrome) wattroff(error_win,COLOR_PAIR(1)); } //// WARNING!! THIS ASSUMES THAT ADDRESS IS CORRECTLY ALIGNED!! int select_instruction_color(struct simdata_t *simdata, WINDOW* window,uint32_t ADDRESS, int applyremove){ if(simdata->cpu_gui_hints){ struct instr_list_t* pointer; pointer=simdata->cpu_gui_hints->fetching_list; while(pointer!=NULL){ if(pointer->address==ADDRESS){ if(applyremove) wattron(window,COLOR_PAIR(9)); else wattroff(window,COLOR_PAIR(9)); return 0; } pointer=pointer->next; } pointer=simdata->cpu_gui_hints->decoding_list; while(pointer!=NULL){ if(pointer->address==ADDRESS){ if(applyremove) wattron(window,COLOR_PAIR(10)); else wattroff(window,COLOR_PAIR(10)); return 0; } pointer=pointer->next; } pointer=simdata->cpu_gui_hints->executing_list; while(pointer!=NULL){ if(pointer->address==ADDRESS){ if(applyremove) wattron(window,COLOR_PAIR(11)); else wattroff(window,COLOR_PAIR(11)); return 0; } pointer=pointer->next; } } return 1; } int update_general_disas(struct simdata_t *simdata){ werase(general_disas); int width,height; getmaxyx(general_disas,height,width); box(general_disas, 0 , 0); mvwprintw(general_disas,0,width/2-7,"[ DISASSEMBLY ]"); if(simdata->registers==NULL||simdata->RAM==NULL){ mvwprintw(general_disas,1,1,"Data not initialised"); return 0; } int offset_arrow; int have_legend=(width>29); int usable_height=height-2-have_legend; if(width<41) offset_arrow=2; else offset_arrow=3; if(width<18){ mvwprintw(general_disas,1,1,"too small window"); }else{ uint32_t ADDRESS=(simdata->registers->PC-(usable_height/2-2)*4)&0x00FFFFFF; for (int i=2;iregisters->PC) wattron(general_disas,A_BOLD); mvwprintw(general_disas,i,4+overall_offset,"%06X",ADDRESS); char* disas=disassemble(*(uint32_t*)(simdata->RAM+ADDRESS)); int space_left=width-14-2+(overall_offset?0:1); if(space_left<25) disas[space_left+1]=0; select_instruction_color(simdata,general_disas,ADDRESS,1); mvwprintw(general_disas,i,13+overall_offset,"%s",disas); select_instruction_color(simdata,general_disas,ADDRESS,0); if(ADDRESS==simdata->registers->PC) wattroff(general_disas,A_BOLD); ADDRESS=(ADDRESS+4)&0xFFFFFF; free(disas); } mvwaddch(general_disas,usable_height/2,offset_arrow,ACS_RARROW); mvwaddch(general_disas,usable_height/2,offset_arrow-1,ACS_ULCORNER); mvwaddch(general_disas,usable_height/2+1,offset_arrow-1,ACS_VLINE); mvwaddch(general_disas,usable_height/2+2,offset_arrow-1,ACS_VLINE); mvwaddch(general_disas,usable_height/2+3,offset_arrow-1,ACS_VLINE); mvwaddch(general_disas,usable_height/2+4,offset_arrow-1,ACS_VLINE); mvwaddch(general_disas,usable_height/2+5,offset_arrow-1,ACS_VLINE); mvwaddch(general_disas,usable_height/2+6,offset_arrow-1,'P'); if(offset_arrow==2) mvwaddch(general_disas,usable_height/2+7,offset_arrow-1,'C'); else mvwaddch(general_disas,usable_height/2+6,offset_arrow,'C'); if(have_legend){ wattron(general_disas,COLOR_PAIR(12)); mvwprintw(general_disas,height-2,2," "); wattroff(general_disas,COLOR_PAIR(12)); mvwprintw(general_disas,height-2,4,"=Fetch"); wattron(general_disas,COLOR_PAIR(13)); mvwprintw(general_disas,height-2,11," "); wattroff(general_disas,COLOR_PAIR(13)); mvwprintw(general_disas,height-2,13,"=Decode"); wattron(general_disas,COLOR_PAIR(14)); mvwprintw(general_disas,height-2,21," "); wattroff(general_disas,COLOR_PAIR(14)); mvwprintw(general_disas,height-2,23,"=Exec"); } } return 0; } int update_general_stack(struct simdata_t *simdata){ int width,height; getmaxyx(general_stack,height,width); box(general_stack, 0 , 0); mvwprintw(general_stack,0,width/2-4,"[ STACK ]"); if(simdata->registers==NULL||simdata->RAM==NULL){ mvwprintw(general_stack,1,1,"Data not initialised"); return 0; } if(width<13){ mvwprintw(general_stack,1,1,"too small window"); }else{ // Calculate config based on window size int offset_data,offset_arrow; if(width<14){ offset_data=3; offset_arrow=2; }else{ offset_data=5; offset_arrow=3; } // draw data uint32_t ADDRESS=(simdata->registers->SP-(height/2-2)*4)&0x00FFFFFF; for(int i=0;iregisters->SP) wattron(general_stack,A_BOLD); mvwprintw(general_stack,i+2,offset_data,"%08X",*(uint32_t*)(simdata->RAM+ADDRESS)); if(ADDRESS==simdata->registers->SP) wattroff(general_stack,A_BOLD); ADDRESS=(ADDRESS+4)&0xFFFFFF; } // draw graphics mvwaddch(general_stack,height/4-2,offset_arrow-1,ACS_UARROW); mvwaddch(general_stack,height/4-1,offset_arrow-1,ACS_VLINE); mvwaddch(general_stack,height/4 ,offset_arrow-1,ACS_VLINE); mvwaddch(general_stack,height/4+1,offset_arrow-1,ACS_VLINE); if(offset_arrow!=2) mvwprintw(general_stack,height/4+2,1,"(+)"); else mvwprintw(general_stack,height/4+2,offset_arrow-1,"+"); mvwaddch(general_stack,height/2,offset_arrow,ACS_RARROW); mvwaddch(general_stack,height/2,offset_arrow-1,ACS_ULCORNER); mvwaddch(general_stack,height/2+1,offset_arrow-1,ACS_VLINE); mvwaddch(general_stack,height/2+2,offset_arrow-1,ACS_VLINE); mvwaddch(general_stack,height/2+3,offset_arrow-1,ACS_VLINE); mvwaddch(general_stack,height/2+4,offset_arrow-1,'S'); if(offset_arrow==2) mvwaddch(general_stack,height/2+5,offset_arrow-1,'P'); else mvwaddch(general_stack,height/2+4,offset_arrow,'P'); } return 0; } int update_general_memdump(struct simdata_t *simdata){ int width,height; getmaxyx(general_memdump,height,width); box(general_memdump, 0 , 0); mvwprintw(general_memdump,0,terminal_width/4-6,"[ MEMDUMP ]"); if(simdata->registers==NULL||simdata->RAM==NULL){ mvwprintw(general_memdump,1,1,"Data not initialised"); return 0; } if(width<16){ mvwprintw(general_memdump,1,1,"too small window"); }else{ int n=(width-12)/4; // bytes in each line int usable_height=height-3-(width-12)%2; uint32_t ADDRESS=(simdata->registers->PC-n*usable_height/2)&0x00FFFFFF; uint32_t color_addr; int have_color; for(int h=0;h=simdata->registers->PC&&ADDRESS<=simdata->registers->PC+3) wattron(general_memdump,A_BOLD); else wattroff(general_memdump,A_BOLD); if(select_instruction_color(simdata,general_memdump,ADDRESS,1)==0){ have_color=5; color_addr=ADDRESS; }else if(have_color) select_instruction_color(simdata,general_memdump,color_addr,1); if(have_color){ have_color--; if(!have_color) select_instruction_color(simdata,general_memdump,color_addr,0); } wprintw(general_memdump,"%02x ",simdata->RAM[ADDRESS]); ADDRESS=(ADDRESS+1)&0xFFFFFF; } if(have_color) select_instruction_color(simdata,general_memdump,color_addr,0); ADDRESS=temp_address; for (int i=0;i=simdata->registers->PC&&ADDRESS<=simdata->registers->PC+3) wattron(general_memdump,A_BOLD); else wattroff(general_memdump,A_BOLD); wprintw(general_memdump,"%c",(simdata->RAM[ADDRESS]>=0x20&&simdata->RAM[ADDRESS]<0x7F)?simdata->RAM[ADDRESS]:'.'); ADDRESS=(ADDRESS+1)&0xFFFFFF; } } } return 0; } int update_general_registers(struct simdata_t *simdata){ int width,height; werase(general_registers); getmaxyx(general_registers,height,width); box(general_registers, 0 , 0); mvwprintw(general_registers,0,terminal_width/4-7,"[ REGISTERS ]"); if(simdata->registers==NULL){ mvwprintw(general_registers,1,1,"Data not initialised"); return 0; } if(simdata->registers==NULL) mvwprintw(general_registers,1,1,"Registers data structure not initialised"); else{ int per_line=width/35; if(per_line==0) mvwprintw(general_registers,1,1,"too small window"); else{ int center_x_offset=((width-2)-35*per_line)/2; int lines_used=(8/(int)per_line<8/(float)per_line)?8/per_line+1:8/per_line; int center_y_offset=((height-2)-(lines_used+2))/2; if((lines_used+2)>(height-2)||width<37) mvwprintw(general_registers,1,1,"too small window"); else{ int n=0,y=0; while(y!=lines_used){ for(int i=0;iregisters->GPR+n); if(float_equiv<9999999999&&float_equiv>-9999999999) mvwprintw(general_registers,1+y+center_y_offset,1+i*35+center_x_offset,"R%d: %08X (%08f) ",n,simdata->registers->GPR[n],float_equiv); else mvwprintw(general_registers,1+y+center_y_offset,1+i*35+center_x_offset,"R%d: %08X (%cinf) ",n,simdata->registers->GPR[n],(float_equiv>0)?'+':'-'); n++; } } y++; } for(int i=0;i<35*per_line;i++) mvwaddch(general_registers,1+center_y_offset+lines_used,center_x_offset+i,ACS_HLINE); wattron(general_registers,A_BOLD); mvwprintw(general_registers,1+center_y_offset+lines_used+1,1+center_x_offset," ZERO"); wattroff(general_registers,A_BOLD); wprintw(general_registers,": %c ",(simdata->registers->FLAGS&1)?'1':'0'); wattron(general_registers,A_BOLD); wprintw(general_registers,"CARRY"); wattroff(general_registers,A_BOLD); wprintw(general_registers,": %c ",(simdata->registers->FLAGS&2)?'1':'0'); wattron(general_registers,A_BOLD); wprintw(general_registers,"SIGN"); wattroff(general_registers,A_BOLD); wprintw(general_registers,": %c ",(simdata->registers->FLAGS&4)?'1':'0'); } } } if(height!=34242321) return 0; else return 0; } int clear_back_window=1; int update_gui(struct simdata_t *simdata){ if(simdata->cpu_state==CPU_HALTED) CPU_STATE=GUI_CPU_STOPPED; if(clear_back_window){ clear(); clear_back_window=0; } update_tabs(); if(update_general_memdump(simdata)) return 1; if(update_general_stack(simdata)) return 1; if(update_general_disas(simdata)) return 1; if(update_general_registers(simdata)) return 1; if(gui_ncurses_refresh()) return 1; return 0; } int gui_continue_request(struct simdata_t *simdata){ char inch; int release=0; while(release==0){ if(((inch=getch())==ERR)){ if(CPU_STATE==GUI_CPU_SINGLE_STEPPING) return 1; else release=1; } switch(inch){ case 'r': if(simdata->cpu_state!=CPU_HALTED){ if(CPU_STATE==GUI_CPU_RUNNING){ CPU_STATE=GUI_CPU_SINGLE_STEPPING; nodelay(stdscr, FALSE); }else{ CPU_STATE=GUI_CPU_RUNNING; nodelay(stdscr, TRUE); } } break; case 'q': return 2; case '\n': release=1; break; default: } } return 0; } int end_gui(){ if(endwin()==ERR) return 1; return 0; }