From 182c35d5aee98ab2afa27c2e84427206edb9a9ca Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Tue, 18 Mar 2025 18:40:14 +0200 Subject: schasm updates --- atk16_schasm/main.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'atk16_schasm/main.scm') diff --git a/atk16_schasm/main.scm b/atk16_schasm/main.scm index 62d2919..cdaa3dd 100644 --- a/atk16_schasm/main.scm +++ b/atk16_schasm/main.scm @@ -57,10 +57,10 @@ ;; procedures (%proc (println *str) - (%param *str) ;; => evaluates to R0 - ;;(%svar x 1) ;; allocate a word on the stack - ;;(%svar y 1) ;; allocate another word on the stack - ;;(%soffset y) ;; => evaluates to frame offset 1 + (%ld R3 (param *str)) ;; => evaluates to R0 + (%svar x 1) ;; allocate a word on the stack + (%svar y 1) ;; allocate another word on the stack + (%ld R2 (u16 (soffset y))) ;; => evaluates to frame offset 1 ;; %proc epilogue fees the %svars ) -- cgit v1.3