duskos

commit 54af8ead4651d11b2c72f32bbb230c694e50f3ea
parent fb012cf7eb9b9f3d752541286b76285377f9c1d8
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sat, 15 Oct 2022 08:37:37 -0400

app/cos: copy serial.bin from upstream

Advancing step-by-step, I get to the first NEXT of the first MOVE called from
BOOT. This NEXT fails to set IP properly. I'll create a proper test for it.

Diffstat:
M
fs/app/cos/cvm.c
 | 
3
++-
M
fs/app/cos/cvm.fs
 | 
6
++++++
A
fs/app/cos/serial.bin
 | 
0

3 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/fs/app/cos/cvm.c b/fs/app/cos/cvm.c
@@ -247,7 +247,7 @@ void COS_init()
 
 void COS_printdbg() {
     fprintf(
-        vm.PC, vm.IP, vm.maxRS, vm.RS, vm.minSP, vm.SP,
+        vm.PC, vm.IP, gw(vm.RS), vm.RS, gw(vm.SP), vm.SP,
         "SP %w (%w) RS %w (%w) IP %w PC %w \n", ConsoleOut());
 }
 
@@ -258,6 +258,7 @@ int COS_steps(int n) {
     }
     while (n && vm.running) {
         opexec(vm.mem[vm.PC++]);
+        // COS_printdbg();
         n--;
     }
     return vm.running;
diff --git a/fs/app/cos/cvm.fs b/fs/app/cos/cvm.fs
@@ -2,3 +2,9 @@
 cc<< /app/cos/cvm.c
 
 S" COSVM" findTypedef CType :export
+
+: cos
+  COS_init vm COSVM mem
+  S" /app/cos/serial.bin" curpath :find# Path :open
+  tuck File :readall File :close
+  begin 1 COS_steps drop key 'q' = until ;
diff --git a/fs/app/cos/serial.bin b/fs/app/cos/serial.bin
Binary files differ.