diff --git a/PLASMA-PRE3.PO b/PLASMA-PRE3.PO index b161b67..592b9d2 100644 Binary files a/PLASMA-PRE3.PO and b/PLASMA-PRE3.PO differ diff --git a/src/libsrc/fiber.pla b/src/libsrc/fiber.pla index 4d3be2d..d098d9a 100644 --- a/src/libsrc/fiber.pla +++ b/src/libsrc/fiber.pla @@ -29,7 +29,8 @@ struc t_vm word pp byte hwsp byte esp - byte fill[9] + byte jmptmp + byte fill[8] byte dropop byte nextop[$10] byte hwstk[$C0] @@ -199,9 +200,10 @@ export def fbrStart(defaddr, param) // Initialize stack to point to fiber def and fbrExit // This allows a fiber to return and it will fall into fbrExit // - vmstate->hwsp = $FB - vmstate=>$FE = @fbrExit - 1 - vmstate=>$FC = defaddr - 1 + vmstate->jmptmp = $4C + vmstate->hwsp = $FB + vmstate=>$FE = @fbrExit - 1 + vmstate=>$FC = defaddr - 1 // // Link into RUN list //