summaryrefslogtreecommitdiffhomepage
path: root/samples
diff options
context:
space:
mode:
Diffstat (limited to 'samples')
-rw-r--r--samples/.cvsignore1
-rw-r--r--samples/stress5.mixal17
-rw-r--r--samples/stress6.mixal9
3 files changed, 26 insertions, 1 deletions
diff --git a/samples/.cvsignore b/samples/.cvsignore
index 8856f7c..cfc0045 100644
--- a/samples/.cvsignore
+++ b/samples/.cvsignore
@@ -28,7 +28,6 @@ stress3.mls
stress4.mix
stress4.mls
stress5.mix
-stress5.mixal
stress5.mls
stress6.mix
tape0.dev
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
diff --git a/samples/stress6.mixal b/samples/stress6.mixal
new file mode 100644
index 0000000..a80b7c9
--- /dev/null
+++ b/samples/stress6.mixal
@@ -0,0 +1,9 @@
+* checking input from binary device
+INDEV EQU 1 device for input
+OUTDEV EQU 2 device for output
+MEM EQU 1000
+ ORIG 2000
+START IN MEM(INDEV)
+ OUT MEM(OUTDEV)
+ HLT
+ END START