From 14d8401c721fae8367fa24db20af4e344faafdd4 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 13 Nov 2023 23:12:05 +0200
Subject: Fix calling issues

---
 asm/ast_compiler_bootstrap.atk16 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'asm/ast_compiler_bootstrap.atk16')

diff --git a/asm/ast_compiler_bootstrap.atk16 b/asm/ast_compiler_bootstrap.atk16
index 7036291..18a345a 100644
--- a/asm/ast_compiler_bootstrap.atk16
+++ b/asm/ast_compiler_bootstrap.atk16
@@ -2,7 +2,9 @@
 
 @use ext_std:*
 
-@let sp              RH
+@let sp              RH   ; stack pointer (points to empty slot at top of stack)
+@let fp              RG   ; frame pointer (points to base of currently active frame)
+
 @let vector_table    0x10
 @let vt_ISR0         0x10 ; ISR0
 @let vt_ISR1         0x11 ; ISR1
@@ -30,6 +32,7 @@
 @address 0x0
   ldi vt_stack_addr RA
   ldr RA SP
+  mov SP FP
   jpi program_segment
 
 @address vector_table
-- 
cgit v1.3