# HG changeset patch
# User Tormod Volden <debian.tormod@gmail.com>
# Date 1422221764 -3600
# Node ID 1a76d7b57aa6d2c4ad73da5166f0ba0ac7cf4306
# Parent  dde1b2fc79fc1dff9e6287a04aa85b779e7d1f40
level 1 krn: Fix stack injection on 6309

diff -r dde1b2fc79fc -r 1a76d7b57aa6 level1/modules/kernel/krn.asm
--- a/level1/modules/kernel/krn.asm	Sun Jan 25 22:36:03 2015 +0100
+++ b/level1/modules/kernel/krn.asm	Sun Jan 25 22:36:04 2015 +0100
@@ -865,7 +865,7 @@
          bhi   L05B6
 * set up registers for return of F$Fork/F$Chain
 L05BE    ldx   <D.Proc
-         sty   -$08,y                  put in X on caller stack
+         sty   -R$Size+R$X,y           put in X on caller stack
          leay  -R$Size,y               back up register size
          sty   P$SP,x
          lda   P$ADDR,x