2016 Update

Task/Loops-Do-while/360-Assembly/loops-do-while-2.360

@@ -0,0 +1,21 @@
+*        Do-While                  27/06/2016
+DOWHILE  CSECT
+         USING DOWHILE,12          set base register
+         LR    12,15               init base register
+         SR    6,6                 v=0
+         LA    4,1                 init reg 4
+         DO UNTIL=(LTR,4,Z,4)      do until v mod 6=0
+         LA    6,1(6)                v=v+1
+         STC   6,WTOTXT              v
+         OI    WTOTXT,X'F0'          make editable
+         WTO   MF=(E,WTOMSG)         display v
+         LR    4,6                   v
+         SRDA  4,32                  shift dividend to reg 5
+         D     4,=F'6'               v/6  so r4=remain & r5=quotient
+         ENDDO ,                   end do
+         BR    14                  return to caller
+WTOMSG   DS    0F                  full word alignment for wto
+WTOLEN   DC    AL2(L'WTOTXT+4)     length of WTO buffer
+         DC    H'0'                must be zero
+WTOTXT   DS    C                   one char
+         END   DOWHILE