September 2017 Update

Task/Loop-over-multiple-arrays-simultaneously/360-Assembly/loop-over-multiple-arrays-simultaneously.360

@@ -0,0 +1,24 @@
+*        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