From 19ee6d36222bb288340d3d66f8773e259c49db2c Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sat, 1 Mar 2025 23:09:16 +0200 Subject: Implement deferred label eval for labels in 16-bit imm position --- atk16_schasm/main.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'atk16_schasm/main.scm') diff --git a/atk16_schasm/main.scm b/atk16_schasm/main.scm index abdf5d8..85e7bf2 100644 --- a/atk16_schasm/main.scm +++ b/atk16_schasm/main.scm @@ -22,11 +22,17 @@ (add R3 (u16 #xFF))) ;; abs jump -(ld PC (u16 (label 'main))) +(ld PC (label 'main)) ;; rel jump (add PC (i16 10)) +;; jump forward to a currently undefined label +(ld PC (label 'forward)) +(def-label 'forward + (hlt)) + +;; copy to register (mov R0 R1) ;; store string data in memory -- cgit v1.3