From 6887958e1e52cd538ff93c710a8aaa646464a1c2 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 16 May 2001 21:05:22 +0000
Subject: 0.3.2 release

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

(limited to 'samples/stress5.mixal')

diff --git a/samples/stress5.mixal b/samples/stress5.mixal
new file mode 100644
index 0000000..fce18cb
--- /dev/null
+++ b/samples/stress5.mixal
@@ -0,0 +1,17 @@
+* checking output to binary device
+OUTDEV	   EQU	  1  device for output
+FROM	   EQU	  1000
+TO	   EQU	  1099
+INITVAL	   EQU	  1
+STEP	   EQU	  10
+	   ORIG	  2000
+START	   ENTA	  INITVAL
+	   ST1	  0
+LOOP	   STA    FROM,1
+	   INC1	  1
+	   INCA	  STEP
+	   CMP1	  =TO-FROM+1=
+	   JNE	  LOOP
+	   OUT	  FROM(OUTDEV)
+	   HLT
+	   END	  START
-- 
cgit v1.2.3