void readRegister(int fd, int flag)
{
if ( flag )
{
requestReg_ReadAll(fd);
PrintRegisters(fd);
}
else
{
if (rnumber == REGISTER_ADMODE_ID) {
gADMode = getADMode(fd);
#ifdef DEBUG
printf("Mode : %d\n", gADMode);
#else
printf("%d", gADMode);
#endif
} else {
requestReg_Read(fd, rnumber);
if (rnumber == 0)
printf("%d\n", REGDATA_inner[0]);
else
PrintRegister(fd, rnumber);
}
}
}
/*Funcao auxiliar que imprime uma linha com o formato variavel*/
void PrintFileVar(FILE *input)
{
int initialPosition;
initialPosition = 0;
printf("\n");
while(feof(input)==0)
{
initialPosition = initialPosition + PrintRegister(input,initialPosition) + 1;
}
printf("\n");
}
/* GetWindowLong(hwnd, 4) must be available for use */
void WDPROC
DumpPrinter(HWND hwnd, LPSTR szAppName, LPSTR szFileName)
{
HDC printer;
PRINTDLG pd;
/* FIXME: share these with CopyPrint */
static DEVNAMES * pDevNames = NULL;
static DEVMODE * pDevMode = NULL;
LPCTSTR szDriver, szDevice, szOutput;
GP_PRINT pr;
DOCINFO di;
char *buf;
WORD *bufcount;
int count;
FILE *f;
long lsize;
long ldone;
char pcdone[10];
if ((f = fopen(szFileName, "rb")) == NULL)
return;
fseek(f, 0L, SEEK_END);
lsize = ftell(f);
if (lsize <= 0)
lsize = 1;
fseek(f, 0L, SEEK_SET);
ldone = 0;
/* Print Setup Dialog */
/* See http://support.microsoft.com/kb/240082 */
memset(&pd, 0, sizeof(pd));
pd.lStructSize = sizeof(pd);
pd.hwndOwner = hwnd;
pd.Flags = PD_PRINTSETUP;
pd.hDevNames = pDevNames;
pd.hDevMode = pDevMode;
if (PrintDlg(&pd)) {
pDevNames = (DEVNAMES *) GlobalLock(pd.hDevNames);
pDevMode = (DEVMODE *) GlobalLock(pd.hDevMode);
szDriver = (LPCTSTR)pDevNames + pDevNames->wDriverOffset;
szDevice = (LPCTSTR)pDevNames + pDevNames->wDeviceOffset;
szOutput = (LPCTSTR)pDevNames + pDevNames->wOutputOffset;
printer = CreateDC(szDriver, szDevice, szOutput, pDevMode);
GlobalUnlock(pd.hDevMode);
GlobalUnlock(pd.hDevNames);
/* We no longer free these structures, but preserve them for the next time
GlobalFree(pd.hDevMode);
GlobalFree(pd.hDevNames);
*/
if (printer == NULL)
return; /* abort */
pr.hdcPrn = printer;
SetWindowLongPtr(hwnd, 4, (LONG_PTR)((GP_LPPRINT)&pr));
PrintRegister((GP_LPPRINT)&pr);
if ((buf = malloc(4096 + 2)) != NULL) {
bufcount = (WORD *)buf;
EnableWindow(hwnd,FALSE);
pr.bUserAbort = FALSE;
pr.hDlgPrint = CreateDialogParam(hdllInstance, "CancelDlgBox",
hwnd, PrintDlgProc, (LPARAM)szAppName);
SetAbortProc(printer, PrintAbortProc);
memset(&di, 0, sizeof(DOCINFO));
di.cbSize = sizeof(DOCINFO);
di.lpszDocName = szAppName;
if (StartDoc(printer, &di) > 0) {
while (pr.hDlgPrint && !pr.bUserAbort &&
(count = fread(buf + 2, 1, 4096, f)) != 0 ) {
int ret;
*bufcount = count;
ret = Escape(printer, PASSTHROUGH, count + 2, (LPSTR)buf, NULL);
ldone += count;
if (ret != SP_ERROR) {
sprintf(pcdone, "%d%% done", (int)(ldone * 100 / lsize));
SetWindowText(GetDlgItem(pr.hDlgPrint, CANCEL_PCDONE), pcdone);
} else {
SetWindowText(GetDlgItem(pr.hDlgPrint, CANCEL_PCDONE), "Passthrough Error!");
}
if (pr.bUserAbort)
AbortDoc(printer);
else
EndDoc(printer);
}
if (!pr.bUserAbort) {
EnableWindow(hwnd, TRUE);
DestroyWindow(pr.hDlgPrint);
}
free(buf);
}
}
DeleteDC(printer);
SetWindowLong(hwnd, 4, 0L);
PrintUnregister((GP_LPPRINT)&pr);
}
fclose(f);
}
void DoConsoleCommand()
{
// Get command text
TCHAR command[32];
GetWindowText(m_hwndConsoleEdit, command, 32);
SendMessage(m_hwndConsoleEdit, WM_SETTEXT, 0, (LPARAM) _T("")); // Clear command
if (command[0] == 0) return; // Nothing to do
// Echo command to the log
TCHAR buffer[36];
::GetWindowText(m_hwndConsolePrompt, buffer, 14);
ConsoleView_Print(buffer);
wsprintf(buffer, _T(" %s\r\n"), command);
ConsoleView_Print(buffer);
BOOL okUpdateAllViews = FALSE; // Flag - need to update all debug views
CProcessor* pProc = ConsoleView_GetCurrentProcessor();
// Execute the command
switch (command[0])
{
case _T('h'):
ConsoleView_ShowHelp();
break;
case _T('c'): // Clear log
ClearConsole();
break;
case _T('r'): // Register operations
if (command[1] == 0) // Print all registers
{
for (int r = 0; r < 8; r++)
{
LPCTSTR name = REGISTER_NAME[r];
WORD value = pProc->GetReg(r);
PrintRegister(name, value);
}
PrintRegister(_T("PS"), pProc->GetPSW());
}
else if (command[1] >= _T('0') && command[1] <= _T('7')) // "r0".."r7"
{
int r = command[1] - _T('0');
LPCTSTR name = REGISTER_NAME[r];
if (command[2] == 0) // "rN" - show register N
{
WORD value = pProc->GetReg(r);
PrintRegister(name, value);
}
else if (command[2] == _T('=') || command[2] == _T(' ')) // "rN=XXXXXX" - set register N to value XXXXXX
{
WORD value;
if (! ParseOctalValue(command + 3, &value))
ConsoleView_Print(MESSAGE_WRONG_VALUE);
else
{
pProc->SetReg(r, value);
PrintRegister(name, value);
okUpdateAllViews = TRUE;
}
}
else
ConsoleView_Print(MESSAGE_UNKNOWN_COMMAND);
}
else if (command[1] == _T('p') && command[2] == _T('s')) // "rps"
{
if (command[3] == 0) // "rps" - show PSW
{
WORD value = pProc->GetPSW();
PrintRegister(_T("PS"), value);
}
else if (command[3] == _T('=') || command[3] == _T(' ')) // "rps=XXXXXX" - set PSW to value XXXXXX
{
WORD value;
if (! ParseOctalValue(command + 4, &value))
ConsoleView_Print(MESSAGE_WRONG_VALUE);
else
{
pProc->SetPSW(value);
PrintRegister(_T("PS"), value);
okUpdateAllViews = TRUE;
}
}
else
ConsoleView_Print(MESSAGE_UNKNOWN_COMMAND);
}
else
ConsoleView_Print(MESSAGE_UNKNOWN_COMMAND);
break;
case _T('s'): // Step
if (command[1] == 0) // "s" - Step Into, execute one instruction
{
PrintDisassemble(pProc, pProc->GetPC(), TRUE, FALSE);
//pProc->Execute();
g_pBoard->DebugTicks();
okUpdateAllViews = TRUE;
}
else if (command[1] == _T('o')) // "so" - Step Over
{
int instrLength = PrintDisassemble(pProc, pProc->GetPC(), TRUE, FALSE);
WORD bpaddress = (WORD)(pProc->GetPC() + instrLength * 2);
Emulator_SetCPUBreakpoint(bpaddress);
Emulator_Start();
}
break;
case _T('d'): // Disassemble
case _T('D'): // Disassemble, short format
{
BOOL okShort = (command[0] == _T('D'));
if (command[1] == 0) // "d" - disassemble at current address
PrintDisassemble(pProc, pProc->GetPC(), FALSE, okShort);
else if (command[1] >= _T('0') && command[1] <= _T('7')) // "dXXXXXX" - disassemble at address XXXXXX
{
WORD value;
if (! ParseOctalValue(command + 1, &value))
ConsoleView_Print(MESSAGE_WRONG_VALUE);
else
{
PrintDisassemble(pProc, value, FALSE, okShort);
}
}
else
ConsoleView_Print(MESSAGE_UNKNOWN_COMMAND);
}
break;
case _T('u'):
SaveMemoryDump(pProc);
break;
case _T('m'):
if (command[1] == 0) // "m" - dump memory at current address
{
PrintMemoryDump(pProc, pProc->GetPC(), 8);
}
else if (command[1] >= _T('0') && command[1] <= _T('7')) // "mXXXXXX" - dump memory at address XXXXXX
{
WORD value;
if (! ParseOctalValue(command + 1, &value))
ConsoleView_Print(MESSAGE_WRONG_VALUE);
else
{
PrintMemoryDump(pProc, value, 8);
}
}
else if (command[1] == _T('r') &&
command[2] >= _T('0') && command[2] <= _T('7')) // "mrN" - dump memory at address from register N
{
int r = command[2] - _T('0');
WORD address = pProc->GetReg(r);
PrintMemoryDump(pProc, address, 8);
}
else if (command[1] == _T('o'))
{
ConsoleView_GotoMonitor();
}
else
ConsoleView_Print(MESSAGE_UNKNOWN_COMMAND);
break;
//TODO: "mXXXXXX YYYYYY" - set memory cell at XXXXXX to value YYYYYY
//TODO: "mrN YYYYYY" - set memory cell at address from rN to value YYYYYY
case _T('g'):
if (command[1] == 0)
{
Emulator_Start();
}
else
{
WORD value;
if (! ParseOctalValue(command + 1, &value))
ConsoleView_Print(MESSAGE_WRONG_VALUE);
else
{
Emulator_SetCPUBreakpoint(value);
Emulator_Start();
}
}
break;
#if !defined(PRODUCT)
case _T('t'):
{
BOOL okTrace = !g_pBoard->GetTrace();
g_pBoard->SetTrace(okTrace);
if (okTrace)
ConsoleView_Print(_T(" Trace is ON.\r\n"));
else
{
ConsoleView_Print(_T(" Trace is OFF.\r\n"));
DebugLogCloseFile();
}
}
break;
#endif
default:
ConsoleView_Print(MESSAGE_UNKNOWN_COMMAND);
break;
}
PrintConsolePrompt();
if (okUpdateAllViews)
{
MainWindow_UpdateAllViews();
}
}
/* GetWindowLong(hwnd, 4) must be available for use */
void WDPROC
DumpPrinter(HWND hwnd, LPSTR szAppName, LPSTR szFileName)
{
HDC printer;
PRINTDLG pd;
GP_PRINT pr;
DOCINFO di;
char *buf;
WORD *bufcount;
int count;
FILE *f;
long lsize;
long ldone;
char pcdone[10];
memset(&pd, 0, sizeof(PRINTDLG));
pd.lStructSize = sizeof(PRINTDLG);
pd.hwndOwner = hwnd;
pd.Flags = PD_PRINTSETUP | PD_RETURNDC;
if ((f = fopen(szFileName, "rb")) == (FILE *)NULL)
return;
fseek(f, 0L, SEEK_END);
lsize = ftell(f);
if (lsize <= 0)
lsize = 1;
fseek(f, 0L, SEEK_SET);
ldone = 0;
if (PrintDlg(&pd)) {
printer = pd.hDC;
if (printer != (HDC)NULL) {
pr.hdcPrn = printer;
SetWindowLong(hwnd, 4, (LONG)((GP_LPPRINT)&pr));
PrintRegister((GP_LPPRINT)&pr);
if ( (buf = malloc(4096+2)) != (char *)NULL ) {
bufcount = (WORD *)buf;
EnableWindow(hwnd,FALSE);
pr.bUserAbort = FALSE;
/* is parent set correctly */
pr.hDlgPrint = CreateDialogParam(hdllInstance,
"CancelDlgBox",
hwnd, PrintDlgProc,
(LPARAM) szAppName);
SetAbortProc(printer, PrintAbortProc);
di.cbSize = sizeof(DOCINFO);
di.lpszDocName = szAppName;
di.lpszOutput = NULL;
if (StartDoc(printer, &di) > 0) {
while ( pr.hDlgPrint && !pr.bUserAbort
&& (count = fread(buf+2, 1, 4096, f)) != 0 ) {
*bufcount = count;
Escape(printer, PASSTHROUGH, count+2, (LPSTR)buf, NULL);
ldone += count;
sprintf(pcdone, "%d%% done",
(int) (ldone * 100 / lsize));
SetWindowText(GetDlgItem(pr.hDlgPrint, CANCEL_PCDONE),
pcdone);
if (pr.bUserAbort)
AbortDoc(printer);
else
EndDoc(printer);
}
if (!pr.bUserAbort) {
EnableWindow(hwnd,TRUE);
DestroyWindow(pr.hDlgPrint);
}
free(buf);
}
}
DeleteDC(printer);
SetWindowLong(hwnd, 4, (LONG)(0L));
PrintUnregister((GP_LPPRINT)&pr);
}
}
fclose(f);
}
void
DumpPrinter(HWND hwnd, LPTSTR szAppName, LPTSTR szFileName)
{
PRINTDLGEX pd;
DEVNAMES * pDevNames;
LPCTSTR szDevice;
GP_PRINT pr;
HANDLE printer;
DOC_INFO_1 di;
DWORD jobid;
HRESULT hr;
LPSTR buf;
int count;
FILE *f;
long lsize;
long ldone;
TCHAR pcdone[10];
if ((f = _tfopen(szFileName, TEXT("rb"))) == NULL)
return;
fseek(f, 0L, SEEK_END);
lsize = ftell(f);
if (lsize <= 0)
lsize = 1;
fseek(f, 0L, SEEK_SET);
ldone = 0;
/* Print Property Sheet */
/* See http://support.microsoft.com/kb/240082 */
memset(&pd, 0, sizeof(pd));
pd.lStructSize = sizeof(pd);
pd.hwndOwner = hwnd;
pd.Flags = PD_NOPAGENUMS | PD_NOSELECTION | PD_NOCURRENTPAGE | PD_USEDEVMODECOPIESANDCOLLATE;
pd.hDevNames = hDevNames;
pd.hDevMode = hDevMode;
pd.hDevNames = NULL;
pd.hDevMode = NULL;
pd.nCopies = 1;
pd.nStartPage = START_PAGE_GENERAL;
/* Replace the additional options in the lower part of the dialog with
* a hint to change print options via terminal options.
*/
pd.lpPrintTemplateName = TEXT("PrintDlgExSelect");
pd.hInstance = graphwin->hInstance;
pd.Flags |= PD_ENABLEPRINTTEMPLATE;
if ((hr = PrintDlgEx(&pd)) != S_OK) {
DWORD error = CommDlgExtendedError();
fprintf(stderr, "\nError: Opening the print dialog failed with error code %04x (%04x).\n", hr, error);
}
if (pd.dwResultAction == PD_RESULT_PRINT) {
pDevNames = (DEVNAMES *) GlobalLock(pd.hDevNames);
szDevice = (LPCTSTR)pDevNames + pDevNames->wDeviceOffset;
if (!OpenPrinter((LPTSTR)szDevice, &printer, NULL))
printer = NULL;
GlobalUnlock(pd.hDevNames);
/* We no longer free these structures, but preserve them for the next time
GlobalFree(pd.hDevMode);
GlobalFree(pd.hDevNames);
*/
hDevNames = pd.hDevNames;
hDevMode = pd.hDevMode;
if (printer == NULL)
return; /* abort */
pr.hdcPrn = printer;
PrintRegister(&pr);
if ((buf = (LPSTR) malloc(4096)) != NULL) {
EnableWindow(hwnd, FALSE);
pr.bUserAbort = FALSE;
pr.szTitle = szAppName;
pr.hDlgPrint = CreateDialogParam(hdllInstance, TEXT("CancelDlgBox"),
hwnd, PrintDlgProc, (LPARAM) &pr);
SendMessage(GetDlgItem(pr.hDlgPrint, CANCEL_PROGRESS), PBM_SETRANGE32, 0, lsize);
di.pDocName = szAppName;
di.pOutputFile = NULL;
di.pDatatype = TEXT("RAW");
if ((jobid = StartDocPrinter(printer, 1, (LPBYTE) &di)) > 0) {
while (pr.hDlgPrint && !pr.bUserAbort &&
(count = fread(buf, 1, 4096, f)) != 0 ) {
int ret;
DWORD dwBytesWritten;
ret = WritePrinter(printer, buf, count, &dwBytesWritten);
ldone += count;
if (dwBytesWritten > 0) {
wsprintf(pcdone, TEXT("%d%% done"), (int)(ldone * 100 / lsize));
SetWindowText(GetDlgItem(pr.hDlgPrint, CANCEL_PCDONE), pcdone);
SendMessage(GetDlgItem(pr.hDlgPrint, CANCEL_PROGRESS), PBM_SETPOS, ldone, 0);
} else if (ret == 0) {
SetWindowText(GetDlgItem(pr.hDlgPrint, CANCEL_PCDONE), TEXT("Error writing to printer!"));
pr.bUserAbort = TRUE;
}
/* handle window messages */
PrintAbortProc(printer, 0);
}
if (pr.bUserAbort) {
if (SetJob(printer, jobid, 0, NULL, JOB_CONTROL_DELETE) == 0) {
SetWindowText(GetDlgItem(pr.hDlgPrint, CANCEL_PCDONE), TEXT("Error: Failed to cancel print job!"));
fprintf(stderr, "Error: Failed to cancel print job!\n");
}
}
EndDocPrinter(printer);
if (!pr.bUserAbort) {
EnableWindow(hwnd, TRUE);
DestroyWindow(pr.hDlgPrint);
}
free(buf);
}
}
ClosePrinter(printer);
PrintUnregister(&pr);
}
fclose(f);
}
