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/structs_idea.scm | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 atk16_schasm/structs_idea.scm (limited to 'atk16_schasm/structs_idea.scm') diff --git a/atk16_schasm/structs_idea.scm b/atk16_schasm/structs_idea.scm deleted file mode 100644 index d2fcc86..0000000 --- a/atk16_schasm/structs_idea.scm +++ /dev/null @@ -1,28 +0,0 @@ -# This buffer is for notes you don’t want to save, and for Chicken Scheme code. - -;; define structs -(%def-struct point - (x u16) - (y u16)) - -;; static struct instances -(%static global-point - point (u16 10) (u16 20)) - -;; use static address as load offset -(ld R0 ZR (global-point:x)) - -;; stack allocated instances -(%def-proc (main) - ;; alloc some space on the stack - (%svar my-point (point:size)) - ;; use stack offset as load offset - (ld R0 SP (my-point:x))) - -;; a vector of static instances -(let loop ((i 0)) - (when (< i 10) - (%static (string->symbol (format "global-points/~A" i)) - point (u16 i) (u16 i)))) - -(ld R0 ZR (global-points/0:x)) -- cgit v1.3