Just another update

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

@@ -0,0 +1,26 @@
+DOWHILE CSECT  ,                 -This program's control section
+         BAKR  14,0              -Caller's registers to linkage stack
+         LR    12,15             -load entry point address into Reg 12
+        USING  DOWHILE,12        -tell assembler we use Reg 12 as base
+         XR    9,9               -clear Reg 9 - divident value
+         LA    6,6               -load divisor value 6 in Reg 6
+         LA    8,WTOLEN          -address of WTO area in Reg 8
+LOOP     DS    0H
+         LA    9,1(,9)           -add 1 to divident Reg 9
+         ST    9,FW2             -store it
+         LM    4,5,FDOUBLE       -load into even/odd register pair
+         STH   9,WTOTXT          -store divident in text area
+         MVI   WTOTXT,X'F0'      -first of two bytes zero
+         OI    WTOTXT+1,X'F0'    -make second byte printable
+        WTO    TEXT=(8)          -print it (Write To Operator macro)
+         DR    4,6               -divide Reg pair 4,5 by Reg 6
+         LTR   5,5               -test quotient (remainder in Reg 4)
+         BNZ   RETURN            -if one: 6 iterations, exit loop.
+         B     LOOP              -if zero: loop again.
+RETURN   PR    ,                 -return to caller.
+FDOUBLE  DC    0FD
+         DC    F'0'
+FW2      DC    F'0'
+WTOLEN   DC    H'2'              -fixed WTO length of two
+WTOTXT   DC    CL2' '
+         END   DOWHILE