From b5d17603c0512aab528db2c511f4b0b92c5681a9 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 20 Sep 2005 00:29:32 +0000
Subject: New sample mixal

---
 samples/m.mixal | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 samples/m.mixal

(limited to 'samples/m.mixal')

diff --git a/samples/m.mixal b/samples/m.mixal
new file mode 100644
index 0000000..ae69b42
--- /dev/null
+++ b/samples/m.mixal
@@ -0,0 +1,25 @@
+X               EQU     1000
+                ORIG    3000
+MAXIMUM         STJ     EXIT
+INIT            ENT3    0,1
+                JMP     CHANGEM
+LOOP            CMPA    X,3
+                JGE     *+3
+CHANGEM         ENT2    0,3
+                LDA     X,3
+                DEC3    1
+                J3P     LOOP
+EXIT            JMP     *
+START           IN     X+1(0)
+                JBUS    *(0)
+                ENT1    100
+1H              JMP     MAXIMUM
+                LDX     X,1
+                STA     X,1
+                STX     X,2
+                DEC1    1
+                J1P     1B
+                OUT     X+1(1)
+                HLT
+                END     START
+
-- 
cgit v1.2.3