store network configuration on flash-disk
This commit is contained in:
folkert van heusden
parent
c624d8c4e5
commit
ee7e934df9
GPG key ID:
6B6455EDFEED3BD1
4 changed files with 459 additions and 328 deletions
0
ESP32/data/.place_holder
Normal file
0
ESP32/data/.place_holder
Normal file
159
ESP32/main.ino
159
ESP32/main.ino
|
|
@ -1,8 +1,10 @@
|
||||||
// (C) 2018-2023 by Folkert van Heusden
|
// (C) 2018-2023 by Folkert van Heusden
|
||||||
// Released under Apache License v2.0
|
// Released under Apache License v2.0
|
||||||
#include <Arduino.h>
|
#include <Arduino.h>
|
||||||
|
#include <ArduinoJson.h>
|
||||||
#include <atomic>
|
#include <atomic>
|
||||||
#include <HardwareSerial.h>
|
#include <HardwareSerial.h>
|
||||||
|
#include <LittleFS.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
|
|
@ -27,6 +29,12 @@
|
||||||
#include "utils.h"
|
#include "utils.h"
|
||||||
|
|
||||||
|
|
||||||
|
constexpr const char CFG_FILE[] = "/net-disk.json";
|
||||||
|
|
||||||
|
#define MAX_CFG_SIZE 1024
|
||||||
|
StaticJsonDocument<MAX_CFG_SIZE> json_doc;
|
||||||
|
|
||||||
|
|
||||||
bus *b = nullptr;
|
bus *b = nullptr;
|
||||||
cpu *c = nullptr;
|
cpu *c = nullptr;
|
||||||
tty *tty_ = nullptr;
|
tty *tty_ = nullptr;
|
||||||
|
|
@ -60,6 +68,83 @@ void console_thread_wrapper_io(void *const c)
|
||||||
cnsl->operator()();
|
cnsl->operator()();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
typedef enum { DT_RK05, DT_RL02 } disk_type_t;
|
||||||
|
|
||||||
|
std::optional<std::pair<std::vector<disk_backend *>, std::vector<disk_backend *> > > load_disk_configuration(console *const c)
|
||||||
|
{
|
||||||
|
File dataFile = LittleFS.open(CFG_FILE, "r");
|
||||||
|
|
||||||
|
if (!dataFile)
|
||||||
|
return { };
|
||||||
|
|
||||||
|
size_t size = dataFile.size();
|
||||||
|
|
||||||
|
char buffer[MAX_CFG_SIZE];
|
||||||
|
|
||||||
|
if (size > sizeof buffer) { // this should not happen
|
||||||
|
dataFile.close();
|
||||||
|
|
||||||
|
return { };
|
||||||
|
}
|
||||||
|
|
||||||
|
dataFile.read(reinterpret_cast<uint8_t *>(buffer), size);
|
||||||
|
buffer[(sizeof buffer) - 1] = 0x00;
|
||||||
|
|
||||||
|
dataFile.close();
|
||||||
|
|
||||||
|
auto error = deserializeJson(json_doc, buffer);
|
||||||
|
|
||||||
|
if (error) // this should not happen
|
||||||
|
return { };
|
||||||
|
|
||||||
|
String nbd_host = json_doc["NBD-host"];
|
||||||
|
int nbd_port = json_doc["NBD-port"];
|
||||||
|
|
||||||
|
String disk_type_temp = json_doc["disk-type"];
|
||||||
|
|
||||||
|
disk_type_t disk_type = DT_RK05;
|
||||||
|
|
||||||
|
if (disk_type_temp == "rl02")
|
||||||
|
disk_type = DT_RL02;
|
||||||
|
|
||||||
|
disk_backend *d = new disk_backend_nbd(nbd_host.c_str(), nbd_port);
|
||||||
|
|
||||||
|
if (d->begin() == false) {
|
||||||
|
c->put_string_lf("Cannot initialize NBD client from configuration file");
|
||||||
|
delete d;
|
||||||
|
return { };
|
||||||
|
}
|
||||||
|
|
||||||
|
c->put_string_lf(format("Connection to NBD server at %s:%d success", nbd_host.c_str(), nbd_port));
|
||||||
|
|
||||||
|
if (disk_type == DT_RK05)
|
||||||
|
return { { { d }, { } } };
|
||||||
|
|
||||||
|
if (disk_type == DT_RL02)
|
||||||
|
return { { { }, { d } } };
|
||||||
|
|
||||||
|
return { };
|
||||||
|
}
|
||||||
|
|
||||||
|
bool save_disk_configuration(const std::string & nbd_host, const int nbd_port, const disk_type_t dt)
|
||||||
|
{
|
||||||
|
json_doc["NBD-host"] = nbd_host;
|
||||||
|
json_doc["NBD-port"] = nbd_port;
|
||||||
|
|
||||||
|
json_doc["disk-type"] = dt == DT_RK05 ? "rk05" : "rl02";
|
||||||
|
|
||||||
|
File dataFile = LittleFS.open(CFG_FILE, "w");
|
||||||
|
|
||||||
|
if (!dataFile)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
serializeJson(json_doc, dataFile);
|
||||||
|
|
||||||
|
dataFile.close();
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
typedef enum { BE_NETWORK, BE_SD } disk_backend_t;
|
typedef enum { BE_NETWORK, BE_SD } disk_backend_t;
|
||||||
std::optional<disk_backend_t> select_disk_backend(console *const c)
|
std::optional<disk_backend_t> select_disk_backend(console *const c)
|
||||||
{
|
{
|
||||||
|
|
@ -81,8 +166,6 @@ std::optional<disk_backend_t> select_disk_backend(console *const c)
|
||||||
return BE_SD;
|
return BE_SD;
|
||||||
}
|
}
|
||||||
|
|
||||||
typedef enum { DT_RK05, DT_RL02 } disk_type_t;
|
|
||||||
|
|
||||||
std::optional<disk_type_t> select_disk_type(console *const c)
|
std::optional<disk_type_t> select_disk_type(console *const c)
|
||||||
{
|
{
|
||||||
c->put_string("1. RK05, 2. RL02, 9. abort");
|
c->put_string("1. RK05, 2. RL02, 9. abort");
|
||||||
|
|
@ -130,6 +213,11 @@ std::optional<std::pair<std::vector<disk_backend *>, std::vector<disk_backend *>
|
||||||
return { };
|
return { };
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (save_disk_configuration(hostname, atoi(port_str.c_str()), disk_type.value()))
|
||||||
|
c->put_string_lf("NBD disk configuration saved");
|
||||||
|
else
|
||||||
|
c->put_string_lf("NBD disk configuration NOT saved");
|
||||||
|
|
||||||
if (disk_type.value() == DT_RK05)
|
if (disk_type.value() == DT_RK05)
|
||||||
return { { { d }, { } } };
|
return { { { d }, { } } };
|
||||||
|
|
||||||
|
|
@ -197,6 +285,21 @@ std::optional<std::pair<std::vector<disk_backend *>, std::vector<disk_backend *>
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void set_disk_configuration(std::pair<std::vector<disk_backend *>, std::vector<disk_backend *> > & disk_files)
|
||||||
|
{
|
||||||
|
if (disk_files.first.empty() == false)
|
||||||
|
b->add_rk05(new rk05(disk_files.first, b, cnsl->get_disk_read_activity_flag(), cnsl->get_disk_write_activity_flag()));
|
||||||
|
|
||||||
|
if (disk_files.second.empty() == false)
|
||||||
|
b->add_rl02(new rl02(disk_files.second, b, cnsl->get_disk_read_activity_flag(), cnsl->get_disk_write_activity_flag()));
|
||||||
|
|
||||||
|
// TODO: allow bootloader to be selected
|
||||||
|
if (disk_files.first.empty() == false)
|
||||||
|
setBootLoader(b, BL_RK05);
|
||||||
|
else
|
||||||
|
setBootLoader(b, BL_RL02);
|
||||||
|
}
|
||||||
|
|
||||||
void configure_disk(console *const c)
|
void configure_disk(console *const c)
|
||||||
{
|
{
|
||||||
for(;;) {
|
for(;;) {
|
||||||
|
|
@ -217,17 +320,7 @@ void configure_disk(console *const c)
|
||||||
if (files.has_value() == false)
|
if (files.has_value() == false)
|
||||||
break;
|
break;
|
||||||
|
|
||||||
if (files.value().first.empty() == false)
|
set_disk_configuration(files.value());
|
||||||
b->add_rk05(new rk05(files.value().first, b, cnsl->get_disk_read_activity_flag(), cnsl->get_disk_write_activity_flag()));
|
|
||||||
|
|
||||||
if (files.value().second.empty() == false)
|
|
||||||
b->add_rl02(new rl02(files.value().second, b, cnsl->get_disk_read_activity_flag(), cnsl->get_disk_write_activity_flag()));
|
|
||||||
|
|
||||||
// TODO: allow bootloader to be selected
|
|
||||||
if (files.value().first.empty() == false)
|
|
||||||
setBootLoader(b, BL_RK05);
|
|
||||||
else
|
|
||||||
setBootLoader(b, BL_RL02);
|
|
||||||
|
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
@ -266,15 +359,14 @@ void configure_network(console *const c)
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
set_hostname();
|
|
||||||
|
|
||||||
if (parts.size() == 1)
|
if (parts.size() == 1)
|
||||||
WiFi.begin(parts.at(0).c_str());
|
WiFi.begin(parts.at(0).c_str());
|
||||||
else
|
else
|
||||||
WiFi.begin(parts.at(0).c_str(), parts.at(1).c_str());
|
WiFi.begin(parts.at(0).c_str(), parts.at(1).c_str());
|
||||||
}
|
}
|
||||||
|
|
||||||
void wait_network(console *const c) {
|
void wait_network(console *const c)
|
||||||
|
{
|
||||||
constexpr const int timeout = 10 * 3;
|
constexpr const int timeout = 10 * 3;
|
||||||
|
|
||||||
int i = 0;
|
int i = 0;
|
||||||
|
|
@ -291,18 +383,20 @@ void wait_network(console *const c) {
|
||||||
c->put_string_lf("Time out connecting");
|
c->put_string_lf("Time out connecting");
|
||||||
}
|
}
|
||||||
|
|
||||||
void check_network(console *const c) {
|
void check_network(console *const c)
|
||||||
|
{
|
||||||
wait_network(c);
|
wait_network(c);
|
||||||
|
|
||||||
c->put_string_lf("");
|
c->put_string_lf("");
|
||||||
c->put_string_lf(format("Local IP address: %s", WiFi.localIP().toString().c_str()));
|
c->put_string_lf(format("Local IP address: %s", WiFi.localIP().toString().c_str()));
|
||||||
}
|
}
|
||||||
|
|
||||||
void start_network(console *const c) {
|
void start_network(console *const c)
|
||||||
WiFi.mode(WIFI_STA);
|
{
|
||||||
|
|
||||||
set_hostname();
|
set_hostname();
|
||||||
|
|
||||||
|
WiFi.mode(WIFI_STA);
|
||||||
|
|
||||||
WiFi.begin();
|
WiFi.begin();
|
||||||
|
|
||||||
wait_network(c);
|
wait_network(c);
|
||||||
|
|
@ -311,11 +405,26 @@ void start_network(console *const c) {
|
||||||
c->put_string_lf(format("Local IP address: %s", WiFi.localIP().toString().c_str()));
|
c->put_string_lf(format("Local IP address: %s", WiFi.localIP().toString().c_str()));
|
||||||
}
|
}
|
||||||
|
|
||||||
void set_tty_serial_speed(const int bps) {
|
void set_tty_serial_speed(const int bps)
|
||||||
|
{
|
||||||
Serial_RS232.begin(bps);
|
Serial_RS232.begin(bps);
|
||||||
}
|
}
|
||||||
|
|
||||||
void setup() {
|
void recall_configuration(console *const c)
|
||||||
|
{
|
||||||
|
c->put_string_lf("Starting network...");
|
||||||
|
start_network(cnsl);
|
||||||
|
|
||||||
|
auto disk_configuration = load_disk_configuration(c);
|
||||||
|
|
||||||
|
if (disk_configuration.has_value()) {
|
||||||
|
c->put_string_lf("Starting disk...");
|
||||||
|
set_disk_configuration(disk_configuration.value());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void setup()
|
||||||
|
{
|
||||||
Serial.begin(115200);
|
Serial.begin(115200);
|
||||||
|
|
||||||
Serial.println(F("This PDP-11 emulator is called \"kek\" (reason for that is forgotten) and was written by Folkert van Heusden."));
|
Serial.println(F("This PDP-11 emulator is called \"kek\" (reason for that is forgotten) and was written by Folkert van Heusden."));
|
||||||
|
|
@ -328,6 +437,9 @@ void setup() {
|
||||||
Serial.print(F("CPU clock frequency (MHz): "));
|
Serial.print(F("CPU clock frequency (MHz): "));
|
||||||
Serial.println(getCpuFrequencyMhz());
|
Serial.println(getCpuFrequencyMhz());
|
||||||
|
|
||||||
|
if (!LittleFS.begin(true))
|
||||||
|
Serial.println(F("LittleFS.begin() failed"));
|
||||||
|
|
||||||
Serial.print(F("Free RAM before init (decimal bytes): "));
|
Serial.print(F("Free RAM before init (decimal bytes): "));
|
||||||
Serial.println(ESP.getFreeHeap());
|
Serial.println(ESP.getFreeHeap());
|
||||||
|
|
||||||
|
|
@ -380,7 +492,8 @@ void setup() {
|
||||||
cnsl->start_thread();
|
cnsl->start_thread();
|
||||||
}
|
}
|
||||||
|
|
||||||
void loop() {
|
void loop()
|
||||||
|
{
|
||||||
debugger(cnsl, b, &stop_event, false);
|
debugger(cnsl, b, &stop_event, false);
|
||||||
|
|
||||||
c->reset();
|
c->reset();
|
||||||
|
|
|
||||||
|
|
@ -10,8 +10,10 @@ board = wemos_d1_mini32
|
||||||
framework = arduino
|
framework = arduino
|
||||||
monitor_speed = 115200
|
monitor_speed = 115200
|
||||||
upload_speed = 1000000
|
upload_speed = 1000000
|
||||||
|
board_build.filesystem = littlefs
|
||||||
lib_deps = greiman/SdFat@^2.1.2
|
lib_deps = greiman/SdFat@^2.1.2
|
||||||
adafruit/Adafruit NeoPixel
|
adafruit/Adafruit NeoPixel
|
||||||
|
bblanchon/ArduinoJson@^6.19.4
|
||||||
build_flags = -std=gnu++17 -Ofast -DESP32=1 -ggdb3 -D_GLIBCXX_USE_C99
|
build_flags = -std=gnu++17 -Ofast -DESP32=1 -ggdb3 -D_GLIBCXX_USE_C99
|
||||||
build_unflags = -std=gnu++11 -Os
|
build_unflags = -std=gnu++11 -Os
|
||||||
|
|
||||||
|
|
|
||||||
626
debugger.cpp
626
debugger.cpp
|
|
@ -19,6 +19,8 @@ void check_network(console *const c);
|
||||||
void start_network(console *const c);
|
void start_network(console *const c);
|
||||||
|
|
||||||
void set_tty_serial_speed(const int bps);
|
void set_tty_serial_speed(const int bps);
|
||||||
|
|
||||||
|
void recall_configuration(console *const c);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
// returns size of instruction (in bytes)
|
// returns size of instruction (in bytes)
|
||||||
|
|
@ -162,339 +164,353 @@ void debugger(console *const cnsl, bus *const b, std::atomic_uint32_t *const sto
|
||||||
bool single_step = false;
|
bool single_step = false;
|
||||||
|
|
||||||
while(*stop_event != EVENT_TERMINATE) {
|
while(*stop_event != EVENT_TERMINATE) {
|
||||||
std::string cmd = cnsl->read_line(format("%d", stop_event->load()));
|
try {
|
||||||
auto parts = split(cmd, " ");
|
std::string cmd = cnsl->read_line(format("%d", stop_event->load()));
|
||||||
auto kv = split(parts, "=");
|
auto parts = split(cmd, " ");
|
||||||
|
auto kv = split(parts, "=");
|
||||||
|
|
||||||
if (parts.empty())
|
if (parts.empty())
|
||||||
continue;
|
continue;
|
||||||
|
|
||||||
if (cmd == "go") {
|
if (cmd == "go") {
|
||||||
single_step = false;
|
single_step = false;
|
||||||
|
|
||||||
*stop_event = EVENT_NONE;
|
*stop_event = EVENT_NONE;
|
||||||
}
|
|
||||||
else if (parts[0] == "single" || parts[0] == "s") {
|
|
||||||
single_step = true;
|
|
||||||
|
|
||||||
if (parts.size() == 2)
|
|
||||||
n_single_step = atoi(parts[1].c_str());
|
|
||||||
else
|
|
||||||
n_single_step = 1;
|
|
||||||
|
|
||||||
*stop_event = EVENT_NONE;
|
|
||||||
}
|
|
||||||
else if ((parts[0] == "sbp" || parts[0] == "cbp") && parts.size() == 2){
|
|
||||||
uint16_t pc = std::stoi(parts[1].c_str(), nullptr, 8);
|
|
||||||
|
|
||||||
if (parts[0] == "sbp") {
|
|
||||||
c->set_breakpoint(pc);
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Set breakpoint at %06o", pc));
|
|
||||||
}
|
}
|
||||||
else {
|
else if (parts[0] == "single" || parts[0] == "s") {
|
||||||
c->remove_breakpoint(pc);
|
single_step = true;
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Clear breakpoint at %06o", pc));
|
if (parts.size() == 2)
|
||||||
|
n_single_step = atoi(parts[1].c_str());
|
||||||
|
else
|
||||||
|
n_single_step = 1;
|
||||||
|
|
||||||
|
*stop_event = EVENT_NONE;
|
||||||
}
|
}
|
||||||
|
else if ((parts[0] == "sbp" || parts[0] == "cbp") && parts.size() == 2){
|
||||||
|
uint16_t pc = std::stoi(parts[1].c_str(), nullptr, 8);
|
||||||
|
|
||||||
continue;
|
if (parts[0] == "sbp") {
|
||||||
}
|
c->set_breakpoint(pc);
|
||||||
else if (cmd == "lbp") {
|
|
||||||
auto bps = c->list_breakpoints();
|
|
||||||
|
|
||||||
cnsl->put_string_lf("Breakpoints:");
|
cnsl->put_string_lf(format("Set breakpoint at %06o", pc));
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
c->remove_breakpoint(pc);
|
||||||
|
|
||||||
for(auto a : bps) {
|
cnsl->put_string_lf(format("Clear breakpoint at %06o", pc));
|
||||||
cnsl->put_string(format(" %06o> ", a));
|
|
||||||
|
|
||||||
disassemble(c, cnsl, a, true);
|
|
||||||
}
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "disassemble" || parts[0] == "d") {
|
|
||||||
int pc = kv.find("pc") != kv.end() ? std::stoi(kv.find("pc")->second, nullptr, 8) : c->getPC();
|
|
||||||
int n = kv.find("n") != kv.end() ? std::stoi(kv.find("n") ->second, nullptr, 10) : 1;
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Disassemble %d instructions starting at %o", n, pc));
|
|
||||||
|
|
||||||
bool show_registers = kv.find("pc") == kv.end();
|
|
||||||
|
|
||||||
for(int i=0; i<n; i++) {
|
|
||||||
pc += disassemble(c, cnsl, pc, !show_registers);
|
|
||||||
|
|
||||||
show_registers = false;
|
|
||||||
}
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "setpc") {
|
|
||||||
if (parts.size() == 2) {
|
|
||||||
uint16_t new_pc = std::stoi(parts.at(1), nullptr, 8);
|
|
||||||
c->setPC(new_pc);
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Set PC to %06o", new_pc));
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
cnsl->put_string_lf("setpc requires an (octal address as) parameter");
|
|
||||||
}
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "toggle") {
|
|
||||||
auto s_it = kv.find("s");
|
|
||||||
auto t_it = kv.find("t");
|
|
||||||
|
|
||||||
if (s_it == kv.end() || t_it == kv.end())
|
|
||||||
cnsl->put_string_lf(format("toggle: parameter missing? current switches states: 0o%06o", c->getBus()->get_console_switches()));
|
|
||||||
else {
|
|
||||||
int s = std::stoi(s_it->second, nullptr, 8);
|
|
||||||
int t = std::stoi(t_it->second, nullptr, 8);
|
|
||||||
|
|
||||||
c->getBus()->set_console_switch(s, t);
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Set switch %d to %d", s, t));
|
|
||||||
}
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "setmem") {
|
|
||||||
auto a_it = kv.find("a");
|
|
||||||
auto v_it = kv.find("v");
|
|
||||||
|
|
||||||
if (a_it == kv.end() || v_it == kv.end())
|
|
||||||
cnsl->put_string_lf("setmem: parameter missing?");
|
|
||||||
else {
|
|
||||||
uint16_t a = std::stoi(a_it->second, nullptr, 8);
|
|
||||||
uint8_t v = std::stoi(v_it->second, nullptr, 8);
|
|
||||||
|
|
||||||
c->getBus()->writeByte(a, v);
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Set %06o to %03o", a, v));
|
|
||||||
}
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "trace" || parts[0] == "t") {
|
|
||||||
tracing = !tracing;
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Tracing set to %s", tracing ? "ON" : "OFF"));
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "mmudump") {
|
|
||||||
mmu_dump(cnsl, b);
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "strace") {
|
|
||||||
if (parts.size() != 2) {
|
|
||||||
trace_start_addr = -1;
|
|
||||||
|
|
||||||
cnsl->put_string_lf("Tracing start address reset");
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
trace_start_addr = std::stoi(parts[1], nullptr, 8);
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Tracing start address set to %06o", trace_start_addr));
|
|
||||||
}
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts[0] == "examine" || parts[0] == "e") {
|
|
||||||
if (parts.size() < 3)
|
|
||||||
cnsl->put_string_lf("parameter missing");
|
|
||||||
else {
|
|
||||||
int addr = std::stoi(parts[2], nullptr, 8);
|
|
||||||
int val = -1;
|
|
||||||
|
|
||||||
int n = parts.size() == 4 ? atoi(parts[3].c_str()) : 1;
|
|
||||||
bool word = parts[1] == "w";
|
|
||||||
|
|
||||||
if (parts[1] != "w" && parts[1] != "b") {
|
|
||||||
cnsl->put_string_lf("expected b or w");
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
std::string out;
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "lbp") {
|
||||||
|
auto bps = c->list_breakpoints();
|
||||||
|
|
||||||
|
cnsl->put_string_lf("Breakpoints:");
|
||||||
|
|
||||||
|
for(auto a : bps) {
|
||||||
|
cnsl->put_string(format(" %06o> ", a));
|
||||||
|
|
||||||
|
disassemble(c, cnsl, a, true);
|
||||||
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "disassemble" || parts[0] == "d") {
|
||||||
|
int pc = kv.find("pc") != kv.end() ? std::stoi(kv.find("pc")->second, nullptr, 8) : c->getPC();
|
||||||
|
int n = kv.find("n") != kv.end() ? std::stoi(kv.find("n") ->second, nullptr, 10) : 1;
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Disassemble %d instructions starting at %o", n, pc));
|
||||||
|
|
||||||
|
bool show_registers = kv.find("pc") == kv.end();
|
||||||
|
|
||||||
for(int i=0; i<n; i++) {
|
for(int i=0; i<n; i++) {
|
||||||
if (!word)
|
pc += disassemble(c, cnsl, pc, !show_registers);
|
||||||
val = b->read(addr + i, wm_byte, rm_cur, true);
|
|
||||||
else if (word)
|
|
||||||
val = b->read(addr + i, wm_word, rm_cur, true);
|
|
||||||
|
|
||||||
if (val == -1) {
|
show_registers = false;
|
||||||
cnsl->put_string_lf(format("Can't read from %06o\n", addr + i));
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "setpc") {
|
||||||
|
if (parts.size() == 2) {
|
||||||
|
uint16_t new_pc = std::stoi(parts.at(1), nullptr, 8);
|
||||||
|
c->setPC(new_pc);
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Set PC to %06o", new_pc));
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
cnsl->put_string_lf("setpc requires an (octal address as) parameter");
|
||||||
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "toggle") {
|
||||||
|
auto s_it = kv.find("s");
|
||||||
|
auto t_it = kv.find("t");
|
||||||
|
|
||||||
|
if (s_it == kv.end() || t_it == kv.end())
|
||||||
|
cnsl->put_string_lf(format("toggle: parameter missing? current switches states: 0o%06o", c->getBus()->get_console_switches()));
|
||||||
|
else {
|
||||||
|
int s = std::stoi(s_it->second, nullptr, 8);
|
||||||
|
int t = std::stoi(t_it->second, nullptr, 8);
|
||||||
|
|
||||||
|
c->getBus()->set_console_switch(s, t);
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Set switch %d to %d", s, t));
|
||||||
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "setmem") {
|
||||||
|
auto a_it = kv.find("a");
|
||||||
|
auto v_it = kv.find("v");
|
||||||
|
|
||||||
|
if (a_it == kv.end() || v_it == kv.end())
|
||||||
|
cnsl->put_string_lf("setmem: parameter missing?");
|
||||||
|
else {
|
||||||
|
uint16_t a = std::stoi(a_it->second, nullptr, 8);
|
||||||
|
uint8_t v = std::stoi(v_it->second, nullptr, 8);
|
||||||
|
|
||||||
|
c->getBus()->writeByte(a, v);
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Set %06o to %03o", a, v));
|
||||||
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "trace" || parts[0] == "t") {
|
||||||
|
tracing = !tracing;
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Tracing set to %s", tracing ? "ON" : "OFF"));
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "mmudump") {
|
||||||
|
mmu_dump(cnsl, b);
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "strace") {
|
||||||
|
if (parts.size() != 2) {
|
||||||
|
trace_start_addr = -1;
|
||||||
|
|
||||||
|
cnsl->put_string_lf("Tracing start address reset");
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
trace_start_addr = std::stoi(parts[1], nullptr, 8);
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Tracing start address set to %06o", trace_start_addr));
|
||||||
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts[0] == "examine" || parts[0] == "e") {
|
||||||
|
if (parts.size() < 3)
|
||||||
|
cnsl->put_string_lf("parameter missing");
|
||||||
|
else {
|
||||||
|
int addr = std::stoi(parts[2], nullptr, 8);
|
||||||
|
int val = -1;
|
||||||
|
|
||||||
|
int n = parts.size() == 4 ? atoi(parts[3].c_str()) : 1;
|
||||||
|
bool word = parts[1] == "w";
|
||||||
|
|
||||||
|
if (parts[1] != "w" && parts[1] != "b") {
|
||||||
|
cnsl->put_string_lf("expected b or w");
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::string out;
|
||||||
|
|
||||||
|
for(int i=0; i<n; i++) {
|
||||||
|
if (!word)
|
||||||
|
val = b->read(addr + i, wm_byte, rm_cur, true);
|
||||||
|
else if (word)
|
||||||
|
val = b->read(addr + i, wm_word, rm_cur, true);
|
||||||
|
|
||||||
|
if (val == -1) {
|
||||||
|
cnsl->put_string_lf(format("Can't read from %06o\n", addr + i));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (n == 1)
|
||||||
|
cnsl->put_string_lf(format("value at %06o, octal: %o, hex: %x, dec: %d\n", addr + i, val, val, val));
|
||||||
|
|
||||||
|
if (n > 1) {
|
||||||
|
if (i > 0)
|
||||||
|
out += " ";
|
||||||
|
|
||||||
|
if (word)
|
||||||
|
out += format("%06o", val);
|
||||||
|
else
|
||||||
|
out += format("%03o", val);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (n > 1)
|
||||||
|
cnsl->put_string_lf(out);
|
||||||
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "reset" || cmd == "r") {
|
||||||
|
#if defined(ESP32)
|
||||||
|
ESP.restart();
|
||||||
|
#else
|
||||||
|
*stop_event = EVENT_NONE;
|
||||||
|
|
||||||
|
c->reset();
|
||||||
|
#endif
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
#if defined(ESP32)
|
||||||
|
else if (cmd == "cfgdisk") {
|
||||||
|
configure_disk(cnsl);
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "cfgnet") {
|
||||||
|
configure_network(cnsl);
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "chknet") {
|
||||||
|
check_network(cnsl);
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "startnet") {
|
||||||
|
start_network(cnsl);
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (parts.at(0) == "serspd") {
|
||||||
|
if (parts.size() == 2) {
|
||||||
|
int speed = std::stoi(parts.at(1), nullptr, 10);
|
||||||
|
set_tty_serial_speed(speed);
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Set baudrate to %d", speed));
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
cnsl->put_string_lf("serspd requires an (decimal) parameter");
|
||||||
|
}
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
else if (cmd == "cls") {
|
||||||
|
const char cls[] = { 27, '[', '2', 'J', 12, 0 };
|
||||||
|
|
||||||
|
cnsl->put_string_lf(cls);
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "turbo") {
|
||||||
|
turbo = !turbo;
|
||||||
|
|
||||||
|
cnsl->put_string_lf(format("Turbo set to %s", turbo ? "ON" : "OFF"));
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "init") {
|
||||||
|
recall_configuration(cnsl);
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if (cmd == "quit" || cmd == "q") {
|
||||||
|
#if defined(ESP32)
|
||||||
|
ESP.restart();
|
||||||
|
#endif
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
else if (cmd == "help" || cmd == "h" || cmd == "?") {
|
||||||
|
cnsl->put_string_lf("disassemble/d - show current instruction (pc=/n=)");
|
||||||
|
cnsl->put_string_lf("go - run until trap or ^e");
|
||||||
|
#if !defined(ESP32)
|
||||||
|
cnsl->put_string_lf("quit/q - stop emulator");
|
||||||
|
#endif
|
||||||
|
cnsl->put_string_lf("examine/e - show memory address (<b|w> <octal address> [<n>])");
|
||||||
|
cnsl->put_string_lf("reset/r - reset cpu/bus/etc");
|
||||||
|
cnsl->put_string_lf("single/s - run 1 instruction (implicit 'disassemble' command)");
|
||||||
|
cnsl->put_string_lf("sbp/cbp/lbp - set/clear/list breakpoint(s)");
|
||||||
|
cnsl->put_string_lf("trace/t - toggle tracing");
|
||||||
|
cnsl->put_string_lf("turbo - toggle turbo mode (cannot be interrupted)");
|
||||||
|
cnsl->put_string_lf("strace - start tracing from address - invoke without address to disable");
|
||||||
|
cnsl->put_string_lf("mmudump - dump MMU settings (PARs/PDRs)");
|
||||||
|
cnsl->put_string_lf("setpc - set PC to value");
|
||||||
|
cnsl->put_string_lf("setmem - set memory (a=) to value (v=), both in octal, one byte");
|
||||||
|
cnsl->put_string_lf("toggle - set switch (s=, 0...15 (decimal)) of the front panel to state (t=, 0 or 1)");
|
||||||
|
cnsl->put_string_lf("cls - clear screen");
|
||||||
|
#if defined(ESP32)
|
||||||
|
cnsl->put_string_lf("cfgnet - configure network (e.g. WiFi)");
|
||||||
|
cnsl->put_string_lf("startnet - start network");
|
||||||
|
cnsl->put_string_lf("chknet - check network status");
|
||||||
|
cnsl->put_string_lf("cfgdisk - configure disk");
|
||||||
|
cnsl->put_string_lf("serspd - set serial speed in bps (8N1 are default)");
|
||||||
|
cnsl->put_string_lf("init - reload (disk-)configuration from flash");
|
||||||
|
#endif
|
||||||
|
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
cnsl->put_string_lf("?");
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
c->emulation_start();
|
||||||
|
|
||||||
|
*cnsl->get_running_flag() = true;
|
||||||
|
|
||||||
|
if (turbo) {
|
||||||
|
while(*stop_event == EVENT_NONE) {
|
||||||
|
c->step_a();
|
||||||
|
c->step_b();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
while(*stop_event == EVENT_NONE) {
|
||||||
|
if (!single_step)
|
||||||
|
DOLOG(debug, false, "---");
|
||||||
|
|
||||||
|
c->step_a();
|
||||||
|
|
||||||
|
if (trace_start_addr != -1 && c->getPC() == trace_start_addr)
|
||||||
|
tracing = true;
|
||||||
|
|
||||||
|
if (tracing || single_step)
|
||||||
|
disassemble(c, single_step ? cnsl : nullptr, c->getPC(), false);
|
||||||
|
|
||||||
|
if (c->check_breakpoint() && !single_step) {
|
||||||
|
cnsl->put_string_lf("Breakpoint");
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (n == 1)
|
c->step_b();
|
||||||
cnsl->put_string_lf(format("value at %06o, octal: %o, hex: %x, dec: %d\n", addr + i, val, val, val));
|
|
||||||
|
|
||||||
if (n > 1) {
|
if (single_step && --n_single_step == 0)
|
||||||
if (i > 0)
|
break;
|
||||||
out += " ";
|
|
||||||
|
|
||||||
if (word)
|
|
||||||
out += format("%06o", val);
|
|
||||||
else
|
|
||||||
out += format("%03o", val);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
if (n > 1)
|
|
||||||
cnsl->put_string_lf(out);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
continue;
|
*cnsl->get_running_flag() = false;
|
||||||
}
|
|
||||||
else if (cmd == "reset" || cmd == "r") {
|
|
||||||
#if defined(ESP32)
|
|
||||||
ESP.restart();
|
|
||||||
#else
|
|
||||||
*stop_event = EVENT_NONE;
|
|
||||||
|
|
||||||
c->reset();
|
if (!single_step) {
|
||||||
#endif
|
auto speed = c->get_mips_rel_speed();
|
||||||
continue;
|
cnsl->debug("MIPS: %.2f, relative speed: %.2f%%, instructions executed: %lu", std::get<0>(speed), std::get<1>(speed), std::get<2>(speed));
|
||||||
}
|
|
||||||
#if defined(ESP32)
|
|
||||||
else if (cmd == "cfgdisk") {
|
|
||||||
configure_disk(cnsl);
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (cmd == "cfgnet") {
|
|
||||||
configure_network(cnsl);
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (cmd == "chknet") {
|
|
||||||
check_network(cnsl);
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (cmd == "startnet") {
|
|
||||||
start_network(cnsl);
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (parts.at(0) == "serspd") {
|
|
||||||
if (parts.size() == 2) {
|
|
||||||
int speed = std::stoi(parts.at(1), nullptr, 10);
|
|
||||||
set_tty_serial_speed(speed);
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Set baudrate to %d", speed));
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
cnsl->put_string_lf("serspd requires an (decimal) parameter");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
continue;
|
if (*stop_event == EVENT_INTERRUPT) {
|
||||||
}
|
single_step = true;
|
||||||
#endif
|
|
||||||
else if (cmd == "cls") {
|
|
||||||
const char cls[] = { 12, 0 };
|
|
||||||
|
|
||||||
cnsl->put_string_lf(cls);
|
*stop_event = EVENT_NONE;
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (cmd == "turbo") {
|
|
||||||
turbo = !turbo;
|
|
||||||
|
|
||||||
cnsl->put_string_lf(format("Turbo set to %s", turbo ? "ON" : "OFF"));
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (cmd == "quit" || cmd == "q") {
|
|
||||||
#if defined(ESP32)
|
|
||||||
ESP.restart();
|
|
||||||
#endif
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
else if (cmd == "help" || cmd == "h" || cmd == "?") {
|
|
||||||
cnsl->put_string_lf("disassemble/d - show current instruction (pc=/n=)");
|
|
||||||
cnsl->put_string_lf("go - run until trap or ^e");
|
|
||||||
#if !defined(ESP32)
|
|
||||||
cnsl->put_string_lf("quit/q - stop emulator");
|
|
||||||
#endif
|
|
||||||
cnsl->put_string_lf("examine/e - show memory address (<b|w> <octal address> [<n>])");
|
|
||||||
cnsl->put_string_lf("reset/r - reset cpu/bus/etc");
|
|
||||||
cnsl->put_string_lf("single/s - run 1 instruction (implicit 'disassemble' command)");
|
|
||||||
cnsl->put_string_lf("sbp/cbp/lbp - set/clear/list breakpoint(s)");
|
|
||||||
cnsl->put_string_lf("trace/t - toggle tracing");
|
|
||||||
cnsl->put_string_lf("turbo - toggle turbo mode (cannot be interrupted)");
|
|
||||||
cnsl->put_string_lf("strace - start tracing from address - invoke without address to disable");
|
|
||||||
cnsl->put_string_lf("mmudump - dump MMU settings (PARs/PDRs)");
|
|
||||||
cnsl->put_string_lf("setpc - set PC to value");
|
|
||||||
cnsl->put_string_lf("setmem - set memory (a=) to value (v=), both in octal, one byte");
|
|
||||||
cnsl->put_string_lf("toggle - set switch (s=, 0...15 (decimal)) of the front panel to state (t=, 0 or 1)");
|
|
||||||
cnsl->put_string_lf("cls - clear screen");
|
|
||||||
#if defined(ESP32)
|
|
||||||
cnsl->put_string_lf("cfgnet - configure network (e.g. WiFi)");
|
|
||||||
cnsl->put_string_lf("startnet - start network");
|
|
||||||
cnsl->put_string_lf("chknet - check network status");
|
|
||||||
cnsl->put_string_lf("cfgdisk - configure disk");
|
|
||||||
cnsl->put_string_lf("serspd - set serial speed in bps (8N1 are default)");
|
|
||||||
#endif
|
|
||||||
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
cnsl->put_string_lf("?");
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
|
|
||||||
c->emulation_start();
|
|
||||||
|
|
||||||
*cnsl->get_running_flag() = true;
|
|
||||||
|
|
||||||
if (turbo) {
|
|
||||||
while(*stop_event == EVENT_NONE) {
|
|
||||||
c->step_a();
|
|
||||||
c->step_b();
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else {
|
catch(const std::exception & e) {
|
||||||
while(*stop_event == EVENT_NONE) {
|
cnsl->put_string_lf(format("Exception caught: %s", e.what()));
|
||||||
if (!single_step)
|
|
||||||
DOLOG(debug, false, "---");
|
|
||||||
|
|
||||||
c->step_a();
|
|
||||||
|
|
||||||
if (trace_start_addr != -1 && c->getPC() == trace_start_addr)
|
|
||||||
tracing = true;
|
|
||||||
|
|
||||||
if (tracing || single_step)
|
|
||||||
disassemble(c, single_step ? cnsl : nullptr, c->getPC(), false);
|
|
||||||
|
|
||||||
if (c->check_breakpoint() && !single_step) {
|
|
||||||
cnsl->put_string_lf("Breakpoint");
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
c->step_b();
|
|
||||||
|
|
||||||
if (single_step && --n_single_step == 0)
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
catch(...) {
|
||||||
*cnsl->get_running_flag() = false;
|
cnsl->put_string_lf("Unspecified exception caught");
|
||||||
|
|
||||||
if (!single_step) {
|
|
||||||
auto speed = c->get_mips_rel_speed();
|
|
||||||
cnsl->debug("MIPS: %.2f, relative speed: %.2f%%, instructions executed: %lu", std::get<0>(speed), std::get<1>(speed), std::get<2>(speed));
|
|
||||||
}
|
|
||||||
|
|
||||||
if (*stop_event == EVENT_INTERRUPT) {
|
|
||||||
single_step = true;
|
|
||||||
|
|
||||||
*stop_event = EVENT_NONE;
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue