summaryrefslogtreecommitdiffhomepage
path: root/samples/tests/stress5.mixal
blob: fce18cb9beac1cb8ccec62ccf536b8d861bb7d90 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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