socz80: get init as far as fork()

This gets init as far as fork(). As the fork code hasn't been written yet it
dies there.

tty is polling for tx ready - until I figure out why the IRQ bits are broken

diff --git a/Kernel/platform-socz80/config.h b/Kernel/platform-socz80/config.h
index c80e571..e7cac40 100644 (file)
--- a/Kernel/platform-socz80/config.h
+++ b/Kernel/platform-socz80/config.h
@@ -18,7 +18,7 @@
 #define TICKSPERSEC 100                /* Ticks per second */
 #define PROGBASE    0x0000
 #define PROGLOAD    0x0100     /* also data base */
-#define PROGTOP     0xF800     /* Top of program, base of U_DATA */
+#define PROGTOP     0xF700     /* Top of program, base of U_DATA */
 
 #define BOOT_TTY (512 + 1)/* Set this to default device for stdio, stderr */
                           /* In this case, the default is the first TTY device */

diff --git a/Kernel/platform-socz80/socz80.s b/Kernel/platform-socz80/socz80.s
index 34dae43..08b1519 100644 (file)
--- a/Kernel/platform-socz80/socz80.s
+++ b/Kernel/platform-socz80/socz80.s
@@ -213,7 +213,7 @@ testready:  bit 6, a ; transmitter busy?
             jr nz, notready ; 0=idle, 1=busy
             ld l, #1
             ret
-notready:   ld l, #-1  ; Don't spin, fast CPU, enormous FIFO
+notready:   ld l, #0   ; FIXME: sort IRQ return -1 (Don't spin, fast CPU, enormous FIFO
            ld h, l
             ret