2016 Update

Task/Loops-While/360-Assembly/loops-while-1.360

@@ -0,0 +1,19 @@
+*        While                     27/06/2016
+WHILELOO CSECT                     program's control section
+         USING WHILELOO,12         set base register
+         LR    12,15               load base register
+         LA    6,1024              v=1024
+LOOP     LTR   6,6                 while v>0
+         BNP   ENDLOOP             .
+         CVD   6,PACKED              convert v to packed decimal
+         OI    PACKED+7,X'0F'        prepare unpack
+         UNPK  WTOTXT,PACKED         packed decimal to zoned printable
+         WTO   MF=(E,WTOMSG)         display v
+         SRA   6,1                   v=v/2   by right shift
+         B     LOOP                end while
+ENDLOOP  BR    14                  return to caller
+PACKED   DS    PL8                 packed decimal
+WTOMSG   DS    0F                  full word alignment for wto
+WTOLEN   DC    AL2(8),H'0'         length of wto buffer (4+1)
+WTOTXT   DC    CL4' '              wto text
+         END   WHILELOO