From 1c345e559710ec6200f7d508629bd24457a20a80 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 22 Mar 2001 03:01:01 +0000
Subject: initial import (sf 0.3beta)

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

(limited to 'samples/primes.mixal')

diff --git a/samples/primes.mixal b/samples/primes.mixal
new file mode 100644
index 0000000..d8e6eef
--- /dev/null
+++ b/samples/primes.mixal
@@ -0,0 +1,54 @@
+* table of primes (taopc p. 148)
+*
+L	EQU	500
+OUTDEV	EQU	20	the paper tape
+PRIME	EQU	-1
+BUF0	EQU	2000
+BUF1	EQU	BUF0+25
+	ORIG	3000
+START	IOC	0(OUTDEV)
+	LD1	=1-L=
+	LD2	=3=
+2H	INC1	1
+	ST2	PRIME+L,1
+	J1Z	2F
+4H	INC2	2
+	ENT3	2
+6H	ENTA	0
+	ENTX	0,2
+	DIV	PRIME,3
+	JXZ	4B
+	CMPA	PRIME,3
+	INC3	1
+	JG	6B
+	JMP	2B
+2H	OUT	TITLE(OUTDEV)
+	ENT4	BUF1+10
+	ENT5	-50
+2H	INC5	L+1
+4H	LDA	PRIME,5
+	CHAR
+	STX	0,4(1:4)
+	DEC4	1
+	DEC5	50
+	J5P	4B
+	OUT	0,4(OUTDEV)
+	LD4	24,4
+	J5N	2B
+	HLT
+* initial contents
+	ORIG	PRIME+1
+	CON	2
+	ORIG	BUF0-5
+TITLE	ALF	"FIRST"
+	ALF	" FIVE"
+	ALF	" HUND"
+	ALF	"RED P"
+	ALF	"RIMES"
+	ORIG	BUF0+24
+	CON	BUF1+10
+	ORIG	BUF1+24
+	CON	BUF0+10
+	END	START
+
+                             
\ No newline at end of file
-- 
cgit v1.2.3