diff options
| author | Jan Tuomi <jan@jantuomi.fi> | 2025-03-18 18:40:14 +0200 |
|---|---|---|
| committer | Jan Tuomi <jan@jantuomi.fi> | 2025-03-18 18:40:14 +0200 |
| commit | 182c35d5aee98ab2afa27c2e84427206edb9a9ca (patch) | |
| tree | 1dd2f8f0829c045a041ed65529d19d0934f338f4 /atk16_schasm/main.scm | |
| parent | 69de37cdb25563f6cbd2a3c1a338b1e0dd47b3a4 (diff) | |
schasm updates
Diffstat (limited to 'atk16_schasm/main.scm')
| -rw-r--r-- | atk16_schasm/main.scm | 8 |
1 files changed, 4 insertions, 4 deletions
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 ) |