z80: correct banked banking dofork

With this fixed we now fork correctly on TRS80 model 1

diff --git a/Kernel/lib/z80fixedbank-banked.s b/Kernel/lib/z80fixedbank-banked.s
index aa2eca0..78ceb1a 100644 (file)
--- a/Kernel/lib/z80fixedbank-banked.s
+++ b/Kernel/lib/z80fixedbank-banked.s
@@ -219,10 +219,12 @@ _dofork:
        ; FIXME: we should no longer need interrupts off for most of a
        ; fork() call.
        ;
+       pop bc  ; bank
         pop de  ; return address
         pop hl  ; new process p_tab*
         push hl
         push de
+       push bc
 
         ld (fork_proc_ptr), hl