From 3db2fadbfbefc03395bff5d3fafe1abddf01c393 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Fri, 28 Feb 2025 10:13:33 +0200 Subject: Start working on new ISA, add scheme assembler --- atk16_schasm/main.scm | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 atk16_schasm/main.scm (limited to 'atk16_schasm/main.scm') diff --git a/atk16_schasm/main.scm b/atk16_schasm/main.scm new file mode 100644 index 0000000..79f7686 --- /dev/null +++ b/atk16_schasm/main.scm @@ -0,0 +1,27 @@ +(import (chicken base)) + +(load "lib.scm") + +(define FL (reg 13)) +(define PC (reg 14)) +(define SP (reg 15)) + +(ld SP (imm 0)) + +(at-addr #x10) +(def-label 'reset-vector) +(emit #xF800) +(emit #xF801) + +(at-addr #x20) +(def-label 'main) +(add (reg 1) (reg 2)) +(add (reg 3) (imm #xFF)) + +;; abs jump +(ld PC (imm (label 'main))) + +;; rel jump +(add PC (imm 10)) + +(mov (reg 0) (reg 1)) -- cgit v1.3