25 lines
933 B
Plaintext
25 lines
933 B
Plaintext
* Loop over multiple arrays simultaneously 09/03/2017
|
|
LOOPSIM CSECT
|
|
USING LOOPSIM,R12 base register
|
|
LR R12,R15
|
|
LA R6,1 i=1
|
|
LA R7,3 counter=3
|
|
LOOP LR R1,R6 i
|
|
SLA R1,1 *2
|
|
LH R2,R-2(R1) r(i)
|
|
XDECO R2,PG edit r(i)
|
|
LA R1,S-1(R6) @s(i)
|
|
MVC PG+3(1),0(R1) output s(i)
|
|
LA R1,Q-1(R6) @q(i)
|
|
MVC PG+7(1),0(R1) output q(i)
|
|
XPRNT PG,80 print s(i),q(i),r(i)
|
|
LA R6,1(R6) i++
|
|
BCT R7,LOOP decrement and loop
|
|
BR R14 exit
|
|
S DC C'a',C'b',C'c'
|
|
Q DC C'A',C'B',C'C'
|
|
R DC H'1',H'2',H'3'
|
|
PG DC CL80' ' buffer
|
|
YREGS
|
|
END LOOPSIM
|