diff options
| author | Jan Tuomi <jan@jantuomi.fi> | 2025-03-05 17:48:53 +0200 |
|---|---|---|
| committer | Jan Tuomi <jan@jantuomi.fi> | 2025-03-05 17:49:35 +0200 |
| commit | c35a9917954a0024fb19ca3e045b0e56114df455 (patch) | |
| tree | 1c38cb2628b1732d3588fcd3753a099d90336cf3 /atk16_schasm/main.scm | |
| parent | 5899f8f02a90a3ba03f7799bcaf87fbb5d2d63f2 (diff) | |
Add macros.scm
Diffstat (limited to 'atk16_schasm/main.scm')
| -rw-r--r-- | atk16_schasm/main.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/atk16_schasm/main.scm b/atk16_schasm/main.scm index e6f63ca..3258a7f 100644 --- a/atk16_schasm/main.scm +++ b/atk16_schasm/main.scm @@ -35,7 +35,7 @@ (hlt)) ;; store string data in memory -(def-label 'data +(def-label 'text-data (%packed-string "hölynpöly")) (at-addr #x50) @@ -56,5 +56,11 @@ (%if (R1 <= (u16 #xFF)) (emit-word #xbeef)) +(comment + (ld R1 (u16 10)) + (%while (R1 > (u16 0)) + (%call println (label 'text-data)) + (sub R1 (u16 1)))) + ;; compile to a 128KB image file (write-image-to "out.bin") |