Some bugfixes to runtime code, probably need to implement stepping debugger

asm/runtime.scm

@@ -1,3 +1,6 @@
+(push main)
+(jmp)
+
 ;; Note that this is scheme syntax wrapping asm for a stack machine
 (variable eol 0)
 (variable scan 0)
@@ -8,9 +11,6 @@
 (variable new 0)
 (variable root 0)
 
-(push main)
-(jmp)
-
 alloc ;; ( -- p)
 ;; Test if free will go beyond eom
 (ref free)
@@ -129,7 +129,7 @@ gc-loop
 (<)
 (branch gc-loop-done)
 (ref scan)
-(relocate-reg)
+(push relocate-reg)
 (push gc-loop)
 (jmp)
 gc-loop-done