From 750b5028a18de8a958db63849b5bae84180dad84 Mon Sep 17 00:00:00 2001
From: jaortega <jaortega>
Date: Wed, 1 Nov 2000 22:53:21 +0000
Subject:

---
 samples/.cvsignore   | 25 +++++++++++++++++++++++++
 samples/Makefile.am  | 14 ++++++++++++++
 samples/hello.mixal  | 11 +++++++++++
 samples/primes.mixal | 53 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 103 insertions(+)
 create mode 100644 samples/.cvsignore
 create mode 100644 samples/Makefile.am
 create mode 100644 samples/hello.mixal
 create mode 100644 samples/primes.mixal

(limited to 'samples')

diff --git a/samples/.cvsignore b/samples/.cvsignore
new file mode 100644
index 0000000..4e88a5a
--- /dev/null
+++ b/samples/.cvsignore
@@ -0,0 +1,25 @@
+Makefile
+Makefile.in
+cardwr.dev
+disk0.dev
+disk1.dev
+disk2.dev
+disk3.dev
+disk4.dev
+disk5.dev
+disk6.dev
+disk7.dev
+hello.mix
+hello.mls
+paper.dev
+primes.mix
+primes.mls
+printer.dev
+tape0.dev
+tape1.dev
+tape2.dev
+tape3.dev
+tape4.dev
+tape5.dev
+tape6.dev
+tape7.dev
diff --git a/samples/Makefile.am b/samples/Makefile.am
new file mode 100644
index 0000000..64b7e09
--- /dev/null
+++ b/samples/Makefile.am
@@ -0,0 +1,14 @@
+## Process this file with automake to produce Makefile.in
+
+# Copyright (C) 2000 Jose Antonio Ortega Ruiz <jaortega@retemail.es>
+#  
+# This file is free software; as a special exception the author gives
+# unlimited permission to copy and/or distribute it, with or without 
+# modifications, as long as this notice is preserved.
+# 
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
+# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+EXTRA_DIST =*.mix 
+
diff --git a/samples/hello.mixal b/samples/hello.mixal
new file mode 100644
index 0000000..6a4c3c1
--- /dev/null
+++ b/samples/hello.mixal
@@ -0,0 +1,11 @@
+* mixal hello world
+*
+TERM	EQU	19
+	ORIG	3000
+START	OUT	MSG(TERM)
+	HLT
+MSG	ALF	"MIXAL"
+	ALF	" HELL"
+	ALF	"O WOR"
+	ALF	"LD   "
+	END	START
diff --git a/samples/primes.mixal b/samples/primes.mixal
new file mode 100644
index 0000000..d2de8c0
--- /dev/null
+++ b/samples/primes.mixal
@@ -0,0 +1,53 @@
+* 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
+
-- 
cgit v1.2.3