JailDoctor/z80
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects Releases Wiki Activity
Files
eb4f2be4a48766ea2be45fb1db99cbb8f9830649
z80/z80debug.cpp

379 lines
12 KiB
C++
Raw Blame History

#include "z80debug.h"
#include <SDL2/SDL.h>
#include "z80.h"
#include "z80dis.h"
namespace z80debug
{
#define CHR_W 6
#define CHR_H 13
#define COLOR_BLACK 0
#define COLOR_DARK_BLUE 1
#define COLOR_GREEN 2
#define COLOR_TEAL 3
#define COLOR_BROWN 4
#define COLOR_PURPLE 5
#define COLOR_ORANGE 6
#define COLOR_GRAY 7
#define COLOR_DARK 8
#define COLOR_BLUE 9
#define COLOR_LIME 10
#define COLOR_CYAN 11
#define COLOR_RED 12
#define COLOR_MAGENTA 13
#define COLOR_YELLOW 14
#define COLOR_WHITE 15
uint8_t colors[16][3] = {
{0,0,0},
{0,0,128},
{0,128,0},
{0,128,128},
{128,0,0},
{128,0,128},
{255,128,0},
{128,128,128},
{30,30,30},
{0,0,255},
{0,255,0},
{0,255,255},
{255,0,0},
{255,0,255},
{255,255,0},
{255,255,255},
};
uint8_t offset_x = 0;
uint8_t offset_y = 0;
SDL_Window *win = nullptr;
SDL_Renderer *ren = nullptr;
SDL_Texture *tex = nullptr;
bool is_debugging=false;
uint16_t mem_viewer_pos = 0;
char console[256];
char console_error[256];
uint8_t breakpoints[65536];
char temp[256];
const char *tohex(int value, int numdigits)
{
if (numdigits==2) sprintf(temp, "%02X", value);
else if (numdigits==4) sprintf(temp, "%04X", value);
return temp;
}
void processCommand();
void show()
{
is_debugging = true;
if (win) return;
win = SDL_CreateWindow("Z80 Debugger", SDL_WINDOWPOS_UNDEFINED, SDL_WINDOWPOS_UNDEFINED, 71*CHR_W, 34*CHR_H, SDL_WINDOW_SHOWN);
ren = SDL_CreateRenderer(win, -1, 0);
tex = SDL_CreateTextureFromSurface(ren, SDL_LoadBMP("font.bmp"));
SDL_SetTextureBlendMode(tex, SDL_BLENDMODE_BLEND);
for (int i=0; i<65536; ++i) breakpoints[i]=0;
z80debug::refresh();
}
void stop() { is_debugging = true; refresh(); }
void cont() { is_debugging = false; }
const bool debugging() { return is_debugging; }
void box(int x, int y, int w, int h, uint8_t color)
{
SDL_Rect rect {((offset_x+x)*CHR_W)+3, ((offset_y+y)*CHR_H)+6, w*CHR_W-6, h*CHR_H-13};
SDL_SetRenderDrawColor(ren, colors[color][0], colors[color][1], colors[color][2], 255);
SDL_RenderDrawRect(ren, &rect);
}
void printrect(int x, int y, int w, int h, uint8_t color)
{
SDL_Rect rect {(offset_x+x)*CHR_W, (offset_y+y)*CHR_H, w*CHR_W, h*CHR_H};
SDL_SetRenderDrawColor(ren, colors[color][0], colors[color][1], colors[color][2], 255);
SDL_RenderFillRect(ren, &rect);
}
void printchar(int x, int y, char chr, uint8_t color=255)
{
if (color != 255) SDL_SetRenderDrawColor(ren, colors[color][0], colors[color][1], colors[color][2], 255);
if (chr==32) return;
if (chr<32 || chr>127) chr = '.';
SDL_Rect src {((chr-32)&0xf)*CHR_W, ((chr-32)>>4)*CHR_H, CHR_W, CHR_H};
SDL_Rect dst {(offset_x+x)*CHR_W, (offset_y+y)*CHR_H, CHR_W, CHR_H};
SDL_RenderCopy(ren, tex, &src, &dst);
}
void printtxt(int x, int y, const char *text, uint8_t color)
{
SDL_SetTextureColorMod(tex, colors[color][0], colors[color][1], colors[color][2]);
for (int i=0; i<strlen(text);++i) if (text[i]!=32) printchar(x+i, y, text[i]);
}
uint16_t find_previous_opcode(uint16_t pc)
{
pc-=4;
if (z80dis::getOpcodeSize(pc) != 4) {
pc++;
if (z80dis::getOpcodeSize(pc) != 3) {
pc++;
if (z80dis::getOpcodeSize(pc) != 2) {
pc++;
}
}
}
return pc;
}
void refresh()
{
SDL_SetRenderDrawColor(ren, 30, 30, 30, 255);
SDL_RenderClear(ren);
offset_x = offset_y = 0;
box(0,0,46,20,COLOR_WHITE);
printrect(2,0, 12,1, COLOR_DARK);
printtxt(3,0, "ASSEMBLER:", COLOR_WHITE);
offset_x=1; offset_y=1;
/*printtxt(1,0, "19C4:", COLOR_CYAN);
printtxt(7,0, "10 EE", COLOR_GRAY);
printtxt(19,0, "DJNZ 0x19B4", COLOR_WHITE);
printrect(0,1, 44,1, COLOR_BLUE);
printtxt(1,1, "19C6:", COLOR_YELLOW);
printtxt(7,1, "01 3C 00", COLOR_YELLOW);
printtxt(19,1, "LD BC,0x003C", COLOR_YELLOW);*/
printrect(0,8, 44,1, COLOR_BLUE);
uint16_t pc = z80::getPC();
uint8_t *memory = z80::getMem();
if (breakpoints[pc]&1) printtxt(0,8,"*", COLOR_YELLOW);
printtxt(1,8,tohex(pc,4), COLOR_YELLOW);
printtxt(7,8, z80dis::getOpcode(pc), COLOR_YELLOW);
printtxt(19,8, z80dis::getAsm(pc), COLOR_YELLOW);
uint16_t pos = pc;
for (int i=9;i<18;++i) {
pos += z80dis::getOpcodeSize(pos);
if (breakpoints[pos]&1) printtxt(0,i,"*", COLOR_RED);
printtxt(1,i,tohex(pos,4), COLOR_CYAN);
printtxt(7,i, z80dis::getOpcode(pos), COLOR_GRAY);
printtxt(19,i, z80dis::getAsm(pos), COLOR_WHITE);
}
pos = pc;
for (int i=7;i>=0;--i) {
pos = find_previous_opcode(pos);
if (breakpoints[pos]&1) printtxt(0,i,"*", COLOR_RED);
printtxt(1,i,tohex(pos,4), COLOR_CYAN);
printtxt(7,i, z80dis::getOpcode(pos), COLOR_GRAY);
printtxt(19,i, z80dis::getAsm(pos), COLOR_WHITE);
}
//for (int i=0;i<20;++i) printtxt(1,i,tohex(pc,4), COLOR_CYAN);
offset_x = offset_y = 0;
box(46,0,25,8,COLOR_WHITE);
printrect(48,0, 12,1, COLOR_DARK);
printtxt(49,0, "REGISTERS:", COLOR_WHITE);
offset_x=47;
offset_y=1;
printtxt(0,0, "AF AF' IX ", COLOR_WHITE);
printtxt(0,1, "BC BC' IY ", COLOR_WHITE);
printtxt(0,2, "DE DE' SP ", COLOR_WHITE);
printtxt(0,3, "HL HL' PC ", COLOR_WHITE);
printtxt(0,5, "(BC) (DE) (HL) ", COLOR_WHITE);
printtxt(3,0, tohex(z80::getAF(), 4), COLOR_GRAY);
printtxt(11,0, tohex(z80::getAF(true), 4), COLOR_GRAY);
printtxt(19,0, tohex(z80::getIX(), 4), COLOR_GRAY);
printtxt(3,1, tohex(z80::getBC(), 4), COLOR_GRAY);
printtxt(11,1, tohex(z80::getBC(true), 4), COLOR_GRAY);
printtxt(19,1, tohex(z80::getIY(), 4), COLOR_GRAY);
printtxt(3,2, tohex(z80::getDE(), 4), COLOR_GRAY);
printtxt(11,2, tohex(z80::getDE(true), 4), COLOR_GRAY);
printtxt(19,2, tohex(z80::getSP(), 4), COLOR_GRAY);
printtxt(3,3, tohex(z80::getHL(), 4), COLOR_GRAY);
printtxt(11,3, tohex(z80::getHL(true), 4), COLOR_GRAY);
printtxt(19,3, tohex(z80::getPC(), 4), COLOR_GRAY);
printtxt(5,5, tohex(memory[z80::getBC()], 2), COLOR_GRAY);
printtxt(13,5, tohex(memory[z80::getDE()], 2), COLOR_GRAY);
printtxt(21,5, tohex(memory[z80::getHL()], 2), COLOR_GRAY);
offset_x = offset_y = 0;
box(46,8,11,12,COLOR_WHITE);
printrect(48,8, 8,1, COLOR_DARK);
printtxt(49,8, "STACK:", COLOR_WHITE);
offset_x=47;offset_y=9;
uint16_t sp = z80::getSP()-8;
for (int i=0; i<10; ++i) {
uint8_t c1=COLOR_CYAN, c2=COLOR_GRAY;
if (sp == z80::getSP()) {
printrect(0,i,9,1,COLOR_BLUE);
c1 = c2 = COLOR_YELLOW;
}
printtxt(0,i, tohex(sp, 4), c1);
printtxt(5,i, tohex(*((uint16_t*)&memory[sp]),4), c2);
sp+=2;
}
offset_x = offset_y = 0;
box(57,8,14,12,COLOR_WHITE);
printrect(59,8, 9,1, COLOR_DARK);
printtxt(60,8, "BREAKS:", COLOR_WHITE);
offset_x=58;offset_y=9;
int line=0;
for (int i=0; i<65536; ++i) {
if (breakpoints[i]) {
printtxt(2,line, tohex(i,4), COLOR_WHITE);
printtxt(7,line, breakpoints[i]&1?"x":"-", COLOR_GRAY);
printtxt(8,line, breakpoints[i]&2?"r":"-", COLOR_GRAY);
printtxt(9,line, breakpoints[i]&4?"w":"-", COLOR_GRAY);
line++;
if (line>9) break;
}
}
offset_x=offset_y=0;
box(0,20,71,8,COLOR_WHITE);
printrect(2,20, 9,1, COLOR_DARK);
printtxt(3,20, "MEMORY:", COLOR_WHITE);
offset_x=1; offset_y=21;
uint16_t mem_viewer_cursor = mem_viewer_pos;
for (int i=0; i<6; ++i) {
printtxt(0,i, tohex(mem_viewer_cursor, 4), COLOR_CYAN);
for (int j=0; j<16; ++j) {
printtxt(5+j*3, i, tohex(memory[mem_viewer_cursor++],2), COLOR_WHITE);
printchar(53+j, i, memory[mem_viewer_cursor], COLOR_GRAY);
}
//printtxt(5,0, "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00", COLOR_WHITE);
//printtxt(53,0, "0123456789AB\tDEF", COLOR_GRAY);
}
offset_x=offset_y=0;
box(0,28,71,6,COLOR_WHITE);
printrect(2,28, 10,1, COLOR_DARK);
printtxt(3,28, "CONSOLE:", COLOR_WHITE);
offset_x=1; offset_y=29;
printtxt(0,0, ">", COLOR_WHITE);
printtxt(1,0, console, COLOR_WHITE);
printtxt(strlen(console)+1,0, "\x7F", COLOR_WHITE);
printtxt(1,1, console_error, COLOR_RED);
SDL_RenderPresent(ren);
}
void sendToConsole(const char* text)
{
if (strlen(console)+strlen(text)<256) strcat(console, text);
refresh();
}
void DeleteCharConsole()
{
const int len = strlen(console);
console[len-1] = 0;
refresh();
}
void executeConsole()
{
processCommand();
console[0]=0;
refresh();
}
const char integer_digits[] = "0123456789";
const char hex_digits[] = "0123456789ABCDEF";
const int getnum(const char *str)
{
int i=0;
int return_value = 0;
if (str[0]=='$') {
i++;
while(str[i]!=0) {
int num = str[i]-48;
if (num<0) return -1;
if (num>9) {
num-=7;
if (num>15) {
num-=32;
if (num<10 || num>15) return -1;
}
}
return_value = (return_value<<4)+num;
i++;
}
} else {
while(str[i]!=0) {
int num = str[i]-48;
if (num<0 || num>9) return -1;
return_value = (return_value*10)+num;
i++;
}
}
return return_value;
}
#define getcmd() {while (*console_ptr==32) console_ptr++;while (console_ptr[i]!=0 && console_ptr[i]!=32) { cmd[i]=console_ptr[i]; i++; } cmd[i]=0; console_ptr = &console_ptr[i]; i=0;}
void processCommand()
{
console_error[0]=0;
char cmd[256];
int i=0;
char *console_ptr = console;
getcmd();
if (strcmp(cmd, "s")==0 || strcmp(cmd, "step")==0) {
z80::step();
} else if (strcmp(cmd, "r")==0 || strcmp(cmd, "run")==0 || strcmp(cmd, "c")==0 || strcmp(cmd, "cont")==0) {
z80::step();
z80debug::cont();
} else if (strcmp(cmd, "b")==0 || strcmp(cmd, "break")==0) {
getcmd();
int address = getnum(cmd);
if (address<0 || address>65536) { strcpy(console_error, "Illegal break address"); return; }
getcmd();
uint8_t break_type = 0;
if (cmd[0]!=0) {
if (strcmp(cmd, "x")==0 || strcmp(cmd, "exec")==0) {
break_type = 1;
} else if (strcmp(cmd, "r")==0 || strcmp(cmd, "read")==0) {
break_type = 2;
} else if (strcmp(cmd, "w")==0 || strcmp(cmd, "write")==0) {
break_type = 4;
} else {
strcpy(console_error, "Illegal break type");
return;
}
breakpoints[address] |= break_type;
}
} else if (strcmp(cmd, "m")==0 || strcmp(cmd, "mem")==0) {
getcmd();
int address = getnum(cmd);
if (address<0 || address>65536) { strcpy(console_error, "Illegal memory address"); return; }
mem_viewer_pos = address;
}
}
const bool isbreak(const uint16_t address)
{
return (breakpoints[address]&1);
}
}
Reference in New Issue View Git Blame Copy Permalink