From 904aaf6ab2504e16e3eafe0dad2799b004056e47 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie
Date: Sun, 5 Jun 2022 13:21:07 -0700
Subject: SMC micro.

---
 mem/smc.pal | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 mem/smc.pal

(limited to 'mem')

diff --git a/mem/smc.pal b/mem/smc.pal
new file mode 100644
index 0000000..e6d34af
--- /dev/null
+++ b/mem/smc.pal
@@ -0,0 +1,65 @@
+/ vim: set sw=8 noexpandtab :
+
+*200
+
+START,	CLA
+	TAD SMC
+	DCA SAVED
+
+LOOP,	ISZ SMC
+SMC,	JMP VEC
+SAVED,	0
+
+VEC,	0
+	JMP FOO
+	JMP BAR
+	JMP RESET
+
+FOO,	CLA
+	TAD FOOSTR
+	JMS PUTS
+	JMP LOOP
+
+BAR,	CLA
+	TAD BARSTR
+	JMS PUTS
+	JMP LOOP
+
+RESET,	CLA
+	TAD SAVED
+	DCA SMC
+	JMP LOOP
+
+PUTS,	0
+	DCA 10
+PUTSL,	CLA
+	TAD I 10
+	SNA
+	JMP PUTSX
+	JMS PUTC
+	JMP PUTSL
+PUTSX,	JMP I PUTS
+
+PUTC,	0
+	TLS
+	TSF
+	JMP .-1
+	JMP I PUTC
+
+FOOSTR,	.
+	"F
+	"o
+	"o
+	15
+	12
+	0
+
+BARSTR,	.
+	"B
+	"a
+	"r
+	15
+	12
+	0
+
+$
-- 
cgit v1.2.3