Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Loops-Continue/360-Assembly/loops-continue.360
+++ b/Task/Loops-Continue/360-Assembly/loops-continue.360
@ -0,0 +1,32 @@
+*        Loops/Continue            12/08/2015
+LOOPCONT CSECT
+         USING  LOOPCONT,R12
+         LR     R12,R15
+BEGIN    LA     R8,0
+         SR     R5,R5
+         LA     R6,1
+         LA     R7,10
+LOOPI    BXH    R5,R6,ELOOPI       for i=1 to 10
+         LA     R3,MVC(R8)
+         XDECO  R5,XDEC
+         MVC    0(4,R3),XDEC+8
+         LA     R8,4(R8)
+         LR     R10,R5
+         LA     R1,5
+         SRDA   R10,32
+         DR     R10,R1
+         LTR    R10,R10
+         BNZ    COMMA
+         XPRNT  MVC,80
+         LA     R8,0
+         B      NEXTI
+COMMA    LA     R3,MVC(R8)
+         MVC    0(2,R3),=C', '
+         LA     R8,2(R8)
+NEXTI    B      LOOPI              next i
+ELOOPI   XR     R15,R15
+         BR     R14
+MVC      DC     CL80' '
+XDEC     DS     CL16
+         YREGS
+         END    LOOPCONT