From cfc9644eb370055a70f3f00a957171630d207007 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 18 Feb 2013 06:06:11 +0100
Subject: Additional samples and doc from TAOCP, via ESR's MIXAL

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

(limited to 'samples/mystery.mixal')

diff --git a/samples/mystery.mixal b/samples/mystery.mixal
new file mode 100644
index 0000000..faa1775
--- /dev/null
+++ b/samples/mystery.mixal
@@ -0,0 +1,28 @@
+* Mystery program
+* (Knuth, vol 1, p 153)
+
+printer	equ	18
+buf	orig	*+3000
+1H	ent1	1
+	ent2	0
+	ldx	4F
+2H	ent3	0,1
+3H	stz	buf,2
+	inc2	1
+	dec3	1
+	j3p	3B
+	stx	buf,2
+	inc2	1
+	inc1	1
+	cmp1	=75=
+	jl	2B
+	enn2	2400
+	out	buf+2400,2(printer)
+	inc2	24
+	j2n	*-2
+	hlt
+
+4H	con	"aaaaa"
+	end	1B
+
+* End of mystery.mix
-- 
cgit v1.2.3