summaryrefslogtreecommitdiffhomepage
path: root/samples/m.mixal
diff options
context:
space:
mode:
Diffstat (limited to 'samples/m.mixal')
-rw-r--r--samples/m.mixal25
1 files changed, 25 insertions, 0 deletions
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
+