1 files changed, 65 insertions, 0 deletions

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
+
+$