socz80:use makeproc

diff --git a/Kernel/platform-socz80/tricks.s b/Kernel/platform-socz80/tricks.s
index 4b45d69..c106611 100644 (file)
--- a/Kernel/platform-socz80/tricks.s
+++ b/Kernel/platform-socz80/tricks.s
@@ -4,7 +4,8 @@
         .module tricks
 
         .globl _ptab_alloc
-        .globl _newproc
+        .globl _makeproc
+       .globl _udata
         .globl _chksigs
         .globl _getproc
         .globl _platform_monitor
@@ -212,11 +213,14 @@ _dofork:
         pop bc
         pop bc
 
+       ld hl,#_udata
+       push hl
         ; Make a new process table entry, etc.
         ld  hl, (fork_proc_ptr)
         push hl
-        call _newproc
+        call _makeproc
         pop bc 
+       pop bc
 
         ; runticks = 0;
         ld hl, #0