1033 lines
30 KiB
C
1033 lines
30 KiB
C
/* 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 <http://www.gnu.org/licenses/>. */
|
||
|
||
#include <ncurses.h>
|
||
#include <string.h>
|
||
#include "simdata.h"
|
||
#include "assembly.h"
|
||
#include <stdlib.h>
|
||
#include "cpu.h"
|
||
#include "gui.h"
|
||
#include <locale.h>
|
||
|
||
#define GENERAL_STACK_MAX_WIDTH 16
|
||
#define GENERAL_DISAS_WIDTH 41
|
||
|
||
int terminal_width;
|
||
int terminal_height;
|
||
|
||
struct gui_settings_t *gui_settings;
|
||
|
||
WINDOW *tabs;
|
||
|
||
WINDOW *general_memdump;
|
||
WINDOW *general_stack;
|
||
WINDOW *general_disas;
|
||
WINDOW *general_registers;
|
||
WINDOW *general_terminal_output;
|
||
|
||
WINDOW *memory_memdump;
|
||
|
||
WINDOW *pipeline_pipeline;
|
||
WINDOW *pipeline_disas;
|
||
|
||
WINDOW *debug_simdata;
|
||
|
||
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;
|
||
}
|
||
|
||
|
||
char *tab_name[]={"Overview","Memory","Pipeline","Debug"};
|
||
|
||
unsigned int CURRENT_TAB=1;
|
||
|
||
int gui_ncurses_refresh(){
|
||
if(refresh()==ERR)
|
||
return 1;
|
||
if(wrefresh(tabs)==ERR)
|
||
return 1;
|
||
if(CURRENT_TAB==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;
|
||
if(wrefresh(general_terminal_output)==ERR)
|
||
return 1;
|
||
}else if(CURRENT_TAB==2){
|
||
if(wrefresh(memory_memdump)==ERR)
|
||
return 1;
|
||
}else if(CURRENT_TAB==3){
|
||
if(wrefresh(pipeline_disas)==ERR)
|
||
return 1;
|
||
if(wrefresh(pipeline_pipeline)==ERR)
|
||
return 1;
|
||
}else if(CURRENT_TAB==4){
|
||
if(wrefresh(debug_simdata)==ERR)
|
||
return 1;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
enum GUI_CPU_STATE_t GUI_CPU_STATE=GUI_CPU_SINGLE_STEPPING;
|
||
|
||
void update_tabs(){
|
||
wattron(tabs,A_BOLD);
|
||
wattron(tabs,COLOR_PAIR(2));
|
||
for(int i=0;i<terminal_width;i++)
|
||
mvwprintw(tabs,0,i," ");
|
||
|
||
int x=2;
|
||
for(unsigned int i=1;i<=sizeof(tab_name)/sizeof(tab_name[0]);i++){
|
||
if(i==CURRENT_TAB)
|
||
wattron(tabs,COLOR_PAIR(4));
|
||
else
|
||
wattron(tabs,COLOR_PAIR(5));
|
||
mvwprintw(tabs,0,x," %1d",i);
|
||
x+=2;
|
||
if(i==CURRENT_TAB)
|
||
wattron(tabs,COLOR_PAIR(3));
|
||
else{
|
||
wattron(tabs,COLOR_PAIR(2));
|
||
wattroff(tabs,A_BOLD);
|
||
}
|
||
mvwprintw(tabs,0,x," %s ",tab_name[i-1]);
|
||
wattron(tabs,A_BOLD);
|
||
x+=strlen(tab_name[i-1])+2+3;
|
||
}
|
||
switch(GUI_CPU_STATE){
|
||
case GUI_CPU_RUNNING:
|
||
wattron(tabs,COLOR_PAIR(6));
|
||
mvwprintw(tabs,0,terminal_width-13,"[ RUNNING ");
|
||
break;
|
||
case GUI_CPU_SINGLE_STEPPING:
|
||
wattron(tabs,COLOR_PAIR(7));
|
||
mvwprintw(tabs,0,terminal_width-21,"[ SINGLE-STEPPING ");
|
||
break;
|
||
case GUI_CPU_STOPPED:
|
||
wattron(tabs,COLOR_PAIR(8));
|
||
mvwprintw(tabs,0,terminal_width-13,"[ STOPPED ");
|
||
break;
|
||
}
|
||
mvwprintw(tabs,0,terminal_width-3,"]");
|
||
}
|
||
|
||
int start_gui(){
|
||
setlocale(LC_ALL, "");
|
||
if(!initscr())
|
||
return 1;
|
||
monochrome=( has_colors() == FALSE );
|
||
init_color(8, 700, 700, 700);
|
||
init_color(COLOR_WHITE, 100, 1000, 1000);
|
||
if(!monochrome){
|
||
start_color();
|
||
init_pair(1, COLOR_RED, COLOR_BLACK);
|
||
|
||
//tab colors
|
||
init_pair(2, COLOR_BLACK, 8);
|
||
init_pair(3, 8, COLOR_BLACK);
|
||
init_pair(4, COLOR_WHITE, COLOR_BLACK);
|
||
init_pair(5, COLOR_WHITE, 8);
|
||
init_pair(6, COLOR_BLACK,COLOR_GREEN);
|
||
init_pair(7, COLOR_BLACK,COLOR_YELLOW);
|
||
init_pair(8, COLOR_BLACK,COLOR_RED);
|
||
|
||
//cpu instruction pipline location colors
|
||
init_pair(9, COLOR_MAGENTA,COLOR_BLACK); //fetch
|
||
init_pair(10, COLOR_YELLOW,COLOR_BLACK); //decode
|
||
init_pair(11, COLOR_GREEN,COLOR_BLACK); //exec
|
||
init_pair(12, COLOR_BLACK,COLOR_MAGENTA); //fetch
|
||
init_pair(13, COLOR_BLACK,COLOR_YELLOW); //decode
|
||
init_pair(14, COLOR_BLACK,COLOR_GREEN); //exec
|
||
|
||
//debug window colors
|
||
init_pair(15, COLOR_RED,COLOR_BLACK); //decode
|
||
}
|
||
noecho();
|
||
curs_set(0);
|
||
get_terminal_size();
|
||
mvprintw((terminal_height-3)/2+3,terminal_width/2-15,"Initialising the simulator...");
|
||
tabs = newwin(1,terminal_width,0,0);
|
||
update_tabs();
|
||
int len;
|
||
|
||
int y1_divider,y2_divider;
|
||
|
||
int border=4;
|
||
|
||
if( (terminal_height-2*border-1)*0.2 < 8 )
|
||
y1_divider=terminal_height-border-8;
|
||
else if ( ( terminal_height - 2*border )*0.2 < 15 )
|
||
y1_divider=terminal_height-border-11;
|
||
else
|
||
y1_divider=(terminal_height-border*2)*0.8;
|
||
|
||
y2_divider=(3*(terminal_height-2*border-1)/4);
|
||
|
||
int x=border;
|
||
int middle;
|
||
|
||
general_memdump=newwin(y1_divider,terminal_width/2,x,border);
|
||
x+=terminal_width/2;
|
||
x++;
|
||
|
||
x+=3;
|
||
middle=x;
|
||
len=(terminal_width/6)>GENERAL_DISAS_WIDTH?GENERAL_DISAS_WIDTH:(terminal_width/6);
|
||
general_disas=newwin(y2_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(y2_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++;
|
||
|
||
general_terminal_output=newwin(terminal_height-y2_divider-border-1,terminal_width/2-3*border,y2_divider+border+1,middle);
|
||
scrollok(general_terminal_output,TRUE);
|
||
x+=terminal_width/2;
|
||
x++;
|
||
|
||
memory_memdump=newwin(terminal_height-1-border*2,terminal_width-border*2,1+border,border);
|
||
|
||
debug_simdata=newwin(terminal_height-1-border*2,terminal_width-border*2,1+border,border);
|
||
|
||
pipeline_pipeline=newwin(terminal_height-1-border*2,terminal_width-border*3-GENERAL_DISAS_WIDTH,1+border,border);
|
||
pipeline_disas=newwin(terminal_height-1-border*2,GENERAL_DISAS_WIDTH,1+border,border+terminal_width-border*3-GENERAL_DISAS_WIDTH);
|
||
|
||
gui_settings=malloc(sizeof(struct gui_settings_t));
|
||
gui_settings->cycles_per_frame=100;
|
||
|
||
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 WITH THE INSTRUCTION START/END!!
|
||
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_disas(WINDOW *win,struct simdata_t *simdata){
|
||
werase(win);
|
||
int width,height;
|
||
getmaxyx(win,height,width);
|
||
box(win, 0 , 0);
|
||
mvwprintw(win,0,width/2-7,"[ DISASSEMBLY ]");
|
||
if(simdata->registers==NULL||simdata->RAM==NULL){
|
||
mvwprintw(win,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(win,1,1,"too small window");
|
||
}else{
|
||
uint32_t ADDRESS=(simdata->registers->PC-(usable_height/2-2)*4)&0x00FFFFFF;
|
||
for (int i=2;i<usable_height;i++){
|
||
int overall_offset=offset_arrow-2;
|
||
|
||
mvwaddch(win,i,11+overall_offset,ACS_VLINE);
|
||
|
||
if(ADDRESS==simdata->registers->PC)
|
||
wattron(win,A_BOLD);
|
||
mvwprintw(win,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,win,ADDRESS,1);
|
||
mvwprintw(win,i,13+overall_offset,"%s",disas);
|
||
select_instruction_color(simdata,win,ADDRESS,0);
|
||
|
||
if(ADDRESS==simdata->registers->PC)
|
||
wattroff(win,A_BOLD);
|
||
|
||
ADDRESS=(ADDRESS+4)&0xFFFFFF;
|
||
free(disas);
|
||
}
|
||
mvwaddch(win,usable_height/2,offset_arrow,ACS_RARROW);
|
||
mvwaddch(win,usable_height/2,offset_arrow-1,ACS_ULCORNER);
|
||
mvwaddch(win,usable_height/2+1,offset_arrow-1,ACS_VLINE);
|
||
mvwaddch(win,usable_height/2+2,offset_arrow-1,ACS_VLINE);
|
||
mvwaddch(win,usable_height/2+3,offset_arrow-1,ACS_VLINE);
|
||
mvwaddch(win,usable_height/2+4,offset_arrow-1,ACS_VLINE);
|
||
mvwaddch(win,usable_height/2+5,offset_arrow-1,ACS_VLINE);
|
||
mvwaddch(win,usable_height/2+6,offset_arrow-1,'P');
|
||
if(offset_arrow==2)
|
||
mvwaddch(win,usable_height/2+7,offset_arrow-1,'C');
|
||
else
|
||
mvwaddch(win,usable_height/2+6,offset_arrow,'C');
|
||
if(have_legend){
|
||
wattron(win,COLOR_PAIR(12));
|
||
mvwprintw(win,height-2,2," ");
|
||
wattroff(win,COLOR_PAIR(12));
|
||
mvwprintw(win,height-2,4,"=Fetch");
|
||
|
||
wattron(win,COLOR_PAIR(13));
|
||
mvwprintw(win,height-2,11," ");
|
||
wattroff(win,COLOR_PAIR(13));
|
||
mvwprintw(win,height-2,13,"=Decode");
|
||
|
||
wattron(win,COLOR_PAIR(14));
|
||
mvwprintw(win,height-2,21," ");
|
||
wattroff(win,COLOR_PAIR(14));
|
||
mvwprintw(win,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;i<height-4;i++){
|
||
if(ADDRESS==simdata->registers->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;
|
||
}
|
||
|
||
//address: If within legal limit (address<0x00FFFFFF) then address*bytes_per_line will be used for the center of the memdump
|
||
// otherwise PC will be used
|
||
int update_memdump(WINDOW *win,uint32_t address,struct simdata_t *simdata){
|
||
int width,height;
|
||
getmaxyx(win,height,width);
|
||
box(win, 0 , 0);
|
||
mvwprintw(win,0,width/2-5,"[ MEMORY ]");
|
||
if(simdata->registers==NULL||simdata->RAM==NULL){
|
||
mvwprintw(win,1,1,"Data not initialised");
|
||
return 0;
|
||
}
|
||
if(width<16){
|
||
mvwprintw(win,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 center_address;
|
||
|
||
if(address<=0x00FFFFFF)
|
||
center_address=address*n;
|
||
else
|
||
center_address=simdata->registers->PC;
|
||
|
||
uint32_t ADDRESS=(center_address-n*usable_height/2)&0x00FFFFFF;
|
||
|
||
uint32_t color_addr;
|
||
int have_color=0;
|
||
for(int h=0;h<usable_height;h++){
|
||
wmove(win,h+2,2+(width-12)%2);
|
||
wattroff(win,A_BOLD);
|
||
wprintw(win,"%06x ",ADDRESS);
|
||
uint32_t temp_address=ADDRESS;
|
||
for (int i=0;i<n;i++){
|
||
if(ADDRESS>=simdata->registers->PC&&ADDRESS<=simdata->registers->PC+3)
|
||
wattron(win,A_BOLD);
|
||
else
|
||
wattroff(win,A_BOLD);
|
||
if(select_instruction_color(simdata,win,ADDRESS,1)==0){
|
||
have_color=5;
|
||
color_addr=ADDRESS;
|
||
}else if(have_color)
|
||
select_instruction_color(simdata,win,color_addr,1);
|
||
if(have_color){
|
||
have_color--;
|
||
if(!have_color)
|
||
select_instruction_color(simdata,win,color_addr,0);
|
||
}
|
||
wprintw(win,"%02x ",simdata->RAM[ADDRESS]);
|
||
ADDRESS=(ADDRESS+1)&0xFFFFFF;
|
||
}
|
||
if(have_color)
|
||
select_instruction_color(simdata,win,color_addr,0);
|
||
ADDRESS=temp_address;
|
||
for (int i=0;i<n;i++){
|
||
if(ADDRESS>=simdata->registers->PC&&ADDRESS<=simdata->registers->PC+3)
|
||
wattron(win,A_BOLD);
|
||
else
|
||
wattroff(win,A_BOLD);
|
||
wprintw(win,"%c",(simdata->RAM[ADDRESS]>=0x20&&simdata->RAM[ADDRESS]<0x7F)?simdata->RAM[ADDRESS]:'.');
|
||
ADDRESS=(ADDRESS+1)&0xFFFFFF;
|
||
}
|
||
}
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
uint32_t memory_window_address=0x00000000;
|
||
|
||
int update_memory_memdump(struct simdata_t *simdata){
|
||
return update_memdump(memory_memdump,memory_window_address,simdata);
|
||
}
|
||
int update_general_memdump(struct simdata_t *simdata){
|
||
return update_memdump(general_memdump,0xFFFFFFFF,simdata);
|
||
}
|
||
|
||
|
||
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,width/2-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 lines_for_special_registers;
|
||
lines_for_special_registers=( width < 22+27+8 )?2:1;
|
||
|
||
int center_y_offset=((height-2)-(lines_used+lines_for_special_registers+1))/2;
|
||
|
||
if((lines_used+lines_for_special_registers+1)>(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;i<per_line;i++){
|
||
if(n<8){
|
||
float float_equiv=*(float*)(simdata->registers->GPR+n);
|
||
if(float_equiv<9999999999.0&&float_equiv>-9999999999.0)
|
||
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);
|
||
|
||
int spec_reg_1_offset, spec_reg_2_offset;
|
||
|
||
if(lines_for_special_registers==2){
|
||
spec_reg_1_offset=((width-2)/2)-(23/2);
|
||
spec_reg_2_offset=((width-2)/2)-(27/2);
|
||
}else{
|
||
spec_reg_1_offset=((width-2)/2)-(22+27+8)/2;
|
||
spec_reg_2_offset=spec_reg_1_offset+22+8;
|
||
}
|
||
|
||
wattron(general_registers,A_BOLD);
|
||
mvwprintw(general_registers,1+center_y_offset+lines_used+1,spec_reg_1_offset," PC");
|
||
wattroff(general_registers,A_BOLD);
|
||
wprintw(general_registers,": %06X ",simdata->registers->PC);
|
||
|
||
wattron(general_registers,A_BOLD);
|
||
wprintw(general_registers,"SP");
|
||
wattroff(general_registers,A_BOLD);
|
||
wprintw(general_registers,": %06X ",simdata->registers->SP);
|
||
|
||
wattron(general_registers,A_BOLD);
|
||
mvwprintw(general_registers,center_y_offset+lines_used+1+lines_for_special_registers,spec_reg_2_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');
|
||
}
|
||
}
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
int term_curs_x,term_curs_y;
|
||
|
||
wchar_t braille_lookup[256]={
|
||
L'⠀',L'⠁',L'⠂',L'⠃',L'⠄',L'⠅',L'⠆',L'⠇',L'⠈',L'⠉',L'⠊',L'⠋',L'⠌',L'⠍',L'⠎',L'⠏',L'⠐',L'⠑',L'⠒',L'⠓',L'⠔',L'⠕',L'⠖',L'⠗',L'⠘',L'⠙',L'⠚',L'⠛',L'⠜',L'⠝',L'⠞',L'⠟',
|
||
L'⠠',L'⠡',L'⠢',L'⠣',L'⠤',L'⠥',L'⠦',L'⠧',L'⠨',L'⠩',L'⠪',L'⠫',L'⠬',L'⠭',L'⠮',L'⠯',L'⠰',L'⠱',L'⠲',L'⠳',L'⠴',L'⠵',L'⠶',L'⠷',L'⠸',L'⠹',L'⠺',L'⠻',L'⠼',L'⠽',L'⠾',L'⠿',
|
||
L'⡀',L'⡁',L'⡂',L'⡃',L'⡄',L'⡅',L'⡆',L'⡇',L'⡈',L'⡉',L'⡊',L'⡋',L'⡌',L'⡍',L'⡎',L'⡏',L'⡐',L'⡑',L'⡒',L'⡓',L'⡔',L'⡕',L'⡖',L'⡗',L'⡘',L'⡙',L'⡚',L'⡛',L'⡜',L'⡝',L'⡞',L'⡟',L'⡠',L'⡡',L'⡢',L'⡣',L'⡤',L'⡥',L'⡦',L'⡧',L'⡨',L'⡩',L'⡪',L'⡫',L'⡬',L'⡭',L'⡮',L'⡯',L'⡰',L'⡱',L'⡲',L'⡳',L'⡴',L'⡵',L'⡶',L'⡷',L'⡸',L'⡹',L'⡺',L'⡻',L'⡼',L'⡽',L'⡾',L'⡿',
|
||
L'⢀',L'⢁',L'⢂',L'⢃',L'⢄',L'⢅',L'⢆',L'⢇',L'⢈',L'⢉',L'⢊',L'⢋',L'⢌',L'⢍',L'⢎',L'⢏',L'⢐',L'⢑',L'⢒',L'⢓',L'⢔',L'⢕',L'⢖',L'⢗',L'⢘',L'⢙',L'⢚',L'⢛',L'⢜',L'⢝',L'⢞',L'⢟',L'⢠',L'⢡',L'⢢',L'⢣',L'⢤',L'⢥',L'⢦',L'⢧',L'⢨',L'⢩',L'⢪',L'⢫',L'⢬',L'⢭',L'⢮',L'⢯',L'⢰',L'⢱',L'⢲',L'⢳',L'⢴',L'⢵',L'⢶',L'⢷',L'⢸',L'⢹',L'⢺',L'⢻',L'⢼',L'⢽',L'⢾',L'⢿',
|
||
L'⣀',L'⣁',L'⣂',L'⣃',L'⣄',L'⣅',L'⣆',L'⣇',L'⣈',L'⣉',L'⣊',L'⣋',L'⣌',L'⣍',L'⣎',L'⣏',L'⣐',L'⣑',L'⣒',L'⣓',L'⣔',L'⣕',L'⣖',L'⣗',L'⣘',L'⣙',L'⣚',L'⣛',L'⣜',L'⣝',L'⣞',L'⣟',L'⣠',L'⣡',L'⣢',L'⣣',L'⣤',L'⣥',L'⣦',L'⣧',L'⣨',L'⣩',L'⣪',L'⣫',L'⣬',L'⣭',L'⣮',L'⣯',L'⣰',L'⣱',L'⣲',L'⣳',L'⣴',L'⣵',L'⣶',L'⣷',L'⣸',L'⣹',L'⣺',L'⣻',L'⣼',L'⣽',L'⣾',L'⣿',
|
||
};
|
||
|
||
int print_braille_frame_buffer(WINDOW* win,uint8_t *buffer,int width,int height){
|
||
for(int h=0;h<height/4;h++){
|
||
for(int w=0;w<width/2;w++){
|
||
uint8_t select=0;
|
||
if(buffer[w*2 +width*(h*4 )])
|
||
select|=0x01;
|
||
if(buffer[w*2 +width*(h*4+1)])
|
||
select|=0x02;
|
||
if(buffer[w*2 +width*(h*4+2)])
|
||
select|=0x04;
|
||
if(buffer[w*2 +width*(h*4+3)])
|
||
select|=0x40;
|
||
if(buffer[w*2+1 +width*(h*4 )])
|
||
select|=0x08;
|
||
if(buffer[w*2+1 +width*(h*4+1 )])
|
||
select|=0x10;
|
||
if(buffer[w*2+1 +width*(h*4+2 )])
|
||
select|=0x20;
|
||
if(buffer[w*2+1 +width*(h*4+3 )])
|
||
select|=0x80;
|
||
mvwprintw(win,h+1,w+1,"%lc",braille_lookup[select]);
|
||
}
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
void braille_frame_buffer_line(uint8_t *buffer,int buffer_width,int buffer_height,int x0, int y0, int x1, int y1){
|
||
|
||
int dx = abs(x1-x0), sx = x0<x1 ? 1 : -1;
|
||
int dy = abs(y1-y0), sy = y0<y1 ? 1 : -1;
|
||
int err = (dx>dy ? dx : -dy)/2, e2;
|
||
|
||
uint32_t addr;
|
||
for(;;){
|
||
addr=x0+y0*buffer_width;
|
||
if(addr>0&&addr<(uint64_t)(buffer_width*buffer_height)&&x0<buffer_width&&x0>0)
|
||
buffer[addr]=1;
|
||
if (x0==x1 && y0==y1) break;
|
||
e2 = err;
|
||
if (e2 >-dx) { err -= dy; x0 += sx; }
|
||
if (e2 < dy) { err += dx; y0 += sy; }
|
||
}
|
||
}
|
||
|
||
|
||
int update_general_terminal_output(struct simdata_t *simdata){
|
||
int width,height;
|
||
werase(general_terminal_output);
|
||
getmaxyx(general_terminal_output,height,width);
|
||
|
||
term_curs_x=0;
|
||
term_curs_y=0;
|
||
uint8_t* vector_working_frame_buffer=malloc((height*4)*(width*2));
|
||
uint8_t* vector_display_frame_buffer=malloc((height*4)*(width*2));
|
||
memset(vector_working_frame_buffer,0,(height*4)*(width*2));
|
||
memset(vector_display_frame_buffer,0,(height*4)*(width*2));
|
||
|
||
int vector=0;
|
||
int vstate=0;
|
||
|
||
int vfb_width=(width-2)*2;
|
||
int vfb_height=(height-2)*4;
|
||
float x0,y0,x1,y1;
|
||
for(uint64_t i=0;i < simdata->terminal_output_size/4;i++){
|
||
uint32_t c=simdata->terminal_output[i];
|
||
if(vector){
|
||
switch(vstate){
|
||
case 0: /*start of line*/
|
||
if(c==0x00000001)
|
||
vector=0;
|
||
else if(c==0x00000002)
|
||
memset(vector_working_frame_buffer,0,(height*4)*(width*2));
|
||
else if(c==0x00000003)
|
||
memcpy(vector_display_frame_buffer,vector_working_frame_buffer,(height*4)*(width*2));
|
||
else
|
||
vstate++;
|
||
break;
|
||
case 1: /*x of start*/
|
||
x0=uint32_to_ieee754_float(c);
|
||
vstate++;
|
||
break;
|
||
case 2: /*y of start*/
|
||
y0=uint32_to_ieee754_float(c);
|
||
vstate++;
|
||
break;
|
||
case 3: /*x of end*/
|
||
x1=uint32_to_ieee754_float(c);
|
||
vstate++;
|
||
break;
|
||
case 4: /*y of end*/
|
||
y1=uint32_to_ieee754_float(c);
|
||
float min_dim=(vfb_width>vfb_height)?vfb_height:vfb_width;
|
||
int xoff=0,yoff=0;
|
||
x0*=1.25;
|
||
x1*=1.25;
|
||
if(vfb_width>vfb_height)
|
||
xoff=(vfb_width-vfb_height)/2;
|
||
else
|
||
yoff=(vfb_height-vfb_width)/2;
|
||
braille_frame_buffer_line(vector_working_frame_buffer,vfb_width,vfb_height,xoff+(x0+1)*(min_dim/2),yoff+(y0+1)*(min_dim/2),xoff+(x1+1)*(min_dim/2),yoff+(y1+1)*(min_dim/2));
|
||
vstate=0;
|
||
break;
|
||
}
|
||
}else{
|
||
if(c>=' '&&c<='~'){
|
||
mvwprintw(general_terminal_output,term_curs_y+1,term_curs_x+1,"%c",c);
|
||
term_curs_x++;
|
||
if(term_curs_x>=width-2){
|
||
term_curs_x=0;
|
||
term_curs_y++;
|
||
}
|
||
if(term_curs_y>=height-2){
|
||
wscrl(general_terminal_output,1);
|
||
term_curs_y--;
|
||
for(int i=0;i<width;i++){
|
||
mvwprintw(general_terminal_output,term_curs_y+1,i," ");
|
||
}
|
||
}
|
||
}else{
|
||
switch(c){
|
||
case 0xffffffff:
|
||
vector=1;
|
||
break;
|
||
case 0x0a:
|
||
term_curs_x=0;
|
||
term_curs_y++;
|
||
if(term_curs_y>=height-2){
|
||
wscrl(general_terminal_output,1);
|
||
term_curs_y--;
|
||
box(general_terminal_output, 0 , 0);
|
||
mvwprintw(general_terminal_output,0,width/2-7,"[ TERM OUTPUT ]");
|
||
}
|
||
break;
|
||
default:
|
||
werase(general_terminal_output);
|
||
box(general_terminal_output, 0 , 0);
|
||
mvwprintw(general_terminal_output,0,width/2-7,"[ TERM OUTPUT ]");
|
||
mvwprintw(general_terminal_output,1,1,"Invalid output");
|
||
return 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
box(general_terminal_output, 0 , 0);
|
||
if(!vector){
|
||
mvwchgat(general_terminal_output,term_curs_y+1,term_curs_x+1, 1, A_REVERSE, 0, NULL);
|
||
mvwprintw(general_terminal_output,0,width/2-7,"[ TERM OUTPUT ]");
|
||
}else{
|
||
print_braille_frame_buffer(general_terminal_output,vector_display_frame_buffer,(width-2)*2,(height-2)*4);
|
||
mvwprintw(general_terminal_output,0,width/2-9,"[ VECTOR DISPLAY ]");
|
||
}
|
||
free(vector_working_frame_buffer);
|
||
free(vector_display_frame_buffer);
|
||
|
||
return 0;
|
||
}
|
||
|
||
int update_debug_simdata(struct simdata_t *simdata){
|
||
int width,height;
|
||
werase(debug_simdata);
|
||
getmaxyx(debug_simdata,height,width);
|
||
box(debug_simdata, 0 , 0);
|
||
mvwprintw(debug_simdata,0,width/2-5,"[ SIMDATA ]");
|
||
if(simdata->registers==NULL){
|
||
mvwprintw(debug_simdata,1,1,"Data not initialised");
|
||
return 0;
|
||
}
|
||
int term_size;
|
||
char* term_size_unit;
|
||
if(simdata->terminal_output_size<(1024))
|
||
term_size=simdata->terminal_output_size,term_size_unit="Bytes";
|
||
else if(simdata->terminal_output_size<(1024*1024))
|
||
term_size=simdata->terminal_output_size/1024,term_size_unit="KiB";
|
||
else if(simdata->terminal_output_size<(1024*1024*1024))
|
||
term_size=simdata->terminal_output_size/(1024*1024),term_size_unit="MiB";
|
||
else
|
||
term_size=simdata->terminal_output_size/(1024*1024*1024),term_size_unit="GiB";
|
||
mvwprintw(debug_simdata,1,1,"simdata->terminal_output_size: ");
|
||
if(simdata->terminal_output_size<100*1024)
|
||
wattron(debug_simdata,COLOR_PAIR(11));
|
||
else if (simdata->terminal_output_size<500*1024)
|
||
wattron(debug_simdata,COLOR_PAIR(10));
|
||
else
|
||
wattron(debug_simdata,COLOR_PAIR(15));
|
||
wprintw(debug_simdata,"%d%s",term_size,term_size_unit);
|
||
if(simdata->terminal_output_size<100*1024)
|
||
wattroff(debug_simdata,COLOR_PAIR(11));
|
||
else if (simdata->terminal_output_size<500*1024)
|
||
wattroff(debug_simdata,COLOR_PAIR(10));
|
||
else
|
||
wattroff(debug_simdata,COLOR_PAIR(15));
|
||
if(height==3)
|
||
return 0;
|
||
else
|
||
return 0;
|
||
}
|
||
|
||
int update_pipeline(WINDOW *win,struct simdata_t *simdata){
|
||
int width,height;
|
||
werase(win);
|
||
getmaxyx(win,height,width);
|
||
box(win, 0 , 0);
|
||
mvwprintw(win,0,width/2-6,"[ PIPELINE ]");
|
||
if(simdata->registers==NULL||simdata->exec_data==NULL){
|
||
mvwprintw(win,1,1,"Data not initialised");
|
||
return 0;
|
||
}
|
||
wattron(win,A_BOLD);
|
||
mvwprintw(win,1,1,"-------------- fetch --------------");
|
||
wattroff(win,A_BOLD);
|
||
|
||
mvwprintw(win,2,1," wait_for_exec=%d",simdata->fetch_data->wait_for_exec);
|
||
|
||
wattron(win,A_BOLD);
|
||
mvwprintw(win,5,1,"-------------- decode -------------");
|
||
wattroff(win,A_BOLD);
|
||
|
||
mvwprintw(win,6,1," valid=%d in_bytecode=%08X address=%06X",simdata->decode_data->valid,simdata->decode_data->in_bytecode,simdata->decode_data->address);
|
||
|
||
wattron(win,A_BOLD);
|
||
mvwprintw(win,9,1,"-------------- execute -------------");
|
||
wattroff(win,A_BOLD);
|
||
|
||
char *tofree;
|
||
mvwprintw(win,10,1," valid=%d EXEC_ACTION=%s",simdata->exec_data->valid, (tofree=EXEC_ACTION_t_to_string(simdata->exec_data->EXEC_ACTION)) );
|
||
free(tofree);
|
||
mvwprintw(win,10,35,"ALU_OP=%s", (tofree=ALU_OP_t_to_string(simdata->exec_data->ALU_OP)) );
|
||
free(tofree);
|
||
mvwprintw(win,10,52,"COND=%s", (tofree=COND_t_to_string(simdata->exec_data->COND)) );
|
||
free(tofree);
|
||
mvwprintw(win,10,70,"address=%06X", simdata->exec_data->address);
|
||
int y=12;
|
||
struct exec_op_t *cur;
|
||
for(int i=0;i<3;i++){
|
||
mvwprintw(win,y,2,"------ [ %s ] -----",i==0?"OPERAND 1":(1==1?"OPERAND 2":"OUTPUT OPERAND"));
|
||
y++;
|
||
switch(i){
|
||
case 0:cur=simdata->exec_data->in_op1;break;
|
||
case 1:cur=simdata->exec_data->in_op2;break;
|
||
case 2:cur=simdata->exec_data->out_op;break;
|
||
}
|
||
mvwprintw(win,y,2,"OP_ADDR=%s", (tofree=OP_ADDR_t_to_string(cur->OP_ADDR)) );
|
||
free(tofree);
|
||
mvwprintw(win,y,24,"data=%06X", cur->data );
|
||
y+=2;
|
||
}
|
||
if(height==3)
|
||
return 0;
|
||
else
|
||
return 0;
|
||
}
|
||
|
||
|
||
int clear_back_window=1;
|
||
|
||
int update_gui(struct simdata_t *simdata){
|
||
if(simdata->cpu_state==CPU_HALTED)
|
||
GUI_CPU_STATE=GUI_CPU_STOPPED;
|
||
if(clear_back_window){
|
||
clear();
|
||
clear_back_window=0;
|
||
}
|
||
if((simdata->current_clock)%(gui_settings->cycles_per_frame)==0 || GUI_CPU_STATE!=GUI_CPU_RUNNING ){
|
||
update_tabs();
|
||
if(CURRENT_TAB==1){
|
||
if(update_general_memdump(simdata))
|
||
return 1;
|
||
if(update_general_stack(simdata))
|
||
return 1;
|
||
if(update_disas(general_disas,simdata))
|
||
return 1;
|
||
if(update_general_registers(simdata))
|
||
return 1;
|
||
if(update_general_terminal_output(simdata))
|
||
return 1;
|
||
}else if(CURRENT_TAB==2){
|
||
if(update_memory_memdump(simdata))
|
||
return 1;
|
||
}else if(CURRENT_TAB==3){
|
||
if(update_disas(pipeline_disas,simdata))
|
||
return 1;
|
||
if(update_pipeline(pipeline_pipeline,simdata))
|
||
return 1;
|
||
}else if(CURRENT_TAB==4){
|
||
if(update_debug_simdata(simdata))
|
||
return 1;
|
||
}
|
||
}
|
||
if(gui_ncurses_refresh())
|
||
return 1;
|
||
return 0;
|
||
}
|
||
|
||
int gui_continue_request(struct simdata_t *simdata){
|
||
int inch;
|
||
int release=0;
|
||
while(release==0){
|
||
if(((inch=getch())==ERR)){
|
||
if(GUI_CPU_STATE==GUI_CPU_SINGLE_STEPPING)
|
||
return 1;
|
||
else
|
||
release=1;
|
||
}
|
||
switch(inch){
|
||
case 'r':
|
||
if(simdata->cpu_state!=CPU_HALTED){
|
||
if(GUI_CPU_STATE==GUI_CPU_RUNNING){
|
||
GUI_CPU_STATE=GUI_CPU_SINGLE_STEPPING;
|
||
update_gui(simdata);
|
||
nodelay(stdscr, FALSE);
|
||
}else{
|
||
GUI_CPU_STATE=GUI_CPU_RUNNING;
|
||
nodelay(stdscr, TRUE);
|
||
}
|
||
}
|
||
break;
|
||
case 'q':
|
||
return 2;
|
||
case '\n':
|
||
release=1;
|
||
break;
|
||
case '1':
|
||
if(CURRENT_TAB!=1){
|
||
CURRENT_TAB=1;
|
||
clear();
|
||
update_gui(simdata);
|
||
}
|
||
break;
|
||
case '2':
|
||
if(CURRENT_TAB!=2){
|
||
CURRENT_TAB=2;
|
||
clear();
|
||
update_gui(simdata);
|
||
}
|
||
break;
|
||
case '3':
|
||
if(CURRENT_TAB!=3){
|
||
CURRENT_TAB=3;
|
||
clear();
|
||
update_gui(simdata);
|
||
}
|
||
break;
|
||
case '4':
|
||
if(CURRENT_TAB!=4){
|
||
CURRENT_TAB=4;
|
||
clear();
|
||
update_gui(simdata);
|
||
}
|
||
break;
|
||
case 'j':
|
||
if(CURRENT_TAB==2){
|
||
memory_window_address++;
|
||
if(memory_window_address==0x01000000)
|
||
memory_window_address=0x00000000;
|
||
update_gui(simdata);
|
||
}
|
||
break;
|
||
case 'k':
|
||
if(CURRENT_TAB==2){
|
||
memory_window_address--;
|
||
if(memory_window_address==0xFFFFFFFF)
|
||
memory_window_address=0x00FFFFFF;
|
||
update_gui(simdata);
|
||
}
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
int clean_cpu_output(struct simdata_t *simdata){
|
||
uint32_t last_vect_disp=0;
|
||
uint32_t second_last_vect_disp=simdata->terminal_output_size/4;//TODO: I shouldn't have to initialise this. GCC gives a warning erroneously
|
||
int vector=0;
|
||
int vstate=0;
|
||
uint32_t disps_found=0;
|
||
if(!simdata)
|
||
return 0;
|
||
for(uint64_t i=0;i < simdata->terminal_output_size/4;i++){
|
||
uint32_t c=simdata->terminal_output[i];
|
||
if(vector){
|
||
switch(vstate){
|
||
case 0: /*start of line*/
|
||
if(c==0x00000001)
|
||
vector=0;
|
||
else if(c==0x00000003){
|
||
second_last_vect_disp=last_vect_disp;
|
||
last_vect_disp=i*4;
|
||
disps_found++;
|
||
}else
|
||
vstate++;
|
||
break;
|
||
case 1:
|
||
case 2:
|
||
case 3:
|
||
vstate++;
|
||
break;
|
||
case 4:
|
||
vstate=0;
|
||
break;
|
||
}
|
||
}else{
|
||
switch(c){
|
||
case 0xffffffff:
|
||
vector=1;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
if(disps_found>=2){
|
||
int final_data_size=simdata->terminal_output_size-(second_last_vect_disp+4);
|
||
memmove((uint8_t*)simdata->terminal_output+4,(uint8_t*)simdata->terminal_output+simdata->terminal_output_size-final_data_size,final_data_size);
|
||
simdata->terminal_output[0]=0xFFFFFFFF;
|
||
simdata->terminal_output=realloc(simdata->terminal_output,final_data_size+4);
|
||
simdata->terminal_output_size=final_data_size+4;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
int end_gui(){
|
||
if(endwin()==ERR)
|
||
return 1;
|
||
return 0;
|
||
}
|