diff options
| author | Jan Tuomi <jan@jantuomi.fi> | 2025-03-07 00:08:25 +0200 |
|---|---|---|
| committer | Jan Tuomi <jan@jantuomi.fi> | 2025-03-07 00:13:20 +0200 |
| commit | b541261d70e625398cb61d52141a7a975be9bcf4 (patch) | |
| tree | ab591066d90b968e252146061285c97c466895fe /atk16_schasm/main.scm | |
| parent | 4d2179e1d373614e87240096e10d68a5d900e919 (diff) | |
Develop procedure macros
Diffstat (limited to 'atk16_schasm/main.scm')
| -rw-r--r-- | atk16_schasm/main.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/atk16_schasm/main.scm b/atk16_schasm/main.scm index fbae70c..931a9db 100644 --- a/atk16_schasm/main.scm +++ b/atk16_schasm/main.scm @@ -54,11 +54,9 @@ (%when (R1 <= (u16 #xFF)) (emit-word #xbeef)) -;; procedure declarations -(%def-proc println str) -(def-label 'println - ;; R0 := str - ;; ... +;; procedures +(%def-proc (println *str) + (param '*str) ;; => R0 (ld PC SP pop: #t indirect: 1)) ;; procedure calls |