Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Loops-For/360-Assembly/loops-for.360
+++ b/Task/Loops-For/360-Assembly/loops-for.360
@ -0,0 +1,23 @@
+LOOPFORC CSECT
+         USING  LOOPFORC,R12
+         LR     R12,R15            set base register
+BEGIN    SR     R2,R2              from 1
+         LA     R4,1               by 1
+         LA     R5,5               to 5
+LOOPI    BXH    R2,R4,ELOOPI       i  (R2)
+         LA     R8,BUFFER-1
+         SR     R3,R3              from 1
+         LA     R6,1               by 1
+         LR     R7,R2              to i
+LOOPJ    BXH    R3,R6,ELOOPJ       j  (R3)
+         LA     R8,1(R8)
+         MVI    0(R8),C'*'
+         B      LOOPJ
+ELOOPJ   XPRNT  BUFFER,L'BUFFER
+         B      LOOPI
+ELOOPI   EQU    *
+RETURN   XR     R15,R15            set return code
+         BR     R14                return to caller
+BUFFER   DC     CL80' '
+         YREGS
+         END    LOOPFORC