diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2004-06-09 13:13:08 +0000 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2004-06-09 13:13:08 +0000 |
commit | 6609d3d0d93c7f5fee96dbe8cd9a19acee3bf9d3 (patch) | |
tree | 59393ae717462450edd82a856e942bcb3d4ee627 /samples/tests/stress5.mixal | |
parent | 0e9f85afc65fbe21a43bf5e78a23ae3277c4f627 (diff) | |
download | mdk-6609d3d0d93c7f5fee96dbe8cd9a19acee3bf9d3.tar.gz mdk-6609d3d0d93c7f5fee96dbe8cd9a19acee3bf9d3.tar.bz2 |
initial revision
Diffstat (limited to 'samples/tests/stress5.mixal')
-rw-r--r-- | samples/tests/stress5.mixal | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/samples/tests/stress5.mixal b/samples/tests/stress5.mixal new file mode 100644 index 0000000..fce18cb --- /dev/null +++ b/samples/tests/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 |