2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Loops-Do-while/360-Assembly/loops-do-while-1.360
+++ b/Task/Loops-Do-while/360-Assembly/loops-do-while-1.360
@ -0,0 +1,19 @@
+*        Do-While
+DOWHILE  CSECT
+         USING DOWHILE,12          set base register
+         LR    12,15               load base register
+         SR    6,6                 v=0
+LOOP     LA    6,1(6)              repeat;  v=v+1
+         STC   6,WTOTXT              v
+         OI    WTOTXT,X'F0'          make printable
+         WTO   MF=(E,WTOMSG)         display v
+         LR    4,6                   v
+         SRDA  4,32                  shift to reg 5
+         D     4,=F'6'               v/6  so r4=remain & r5=quotient
+         LTR   4,4                 until v mod 6=0
+         BNZ   LOOP                loop
+ENDLOOP  BR    14                  return to caller
+WTOMSG   DS    0F                  full word alignment for wto
+WTOLEN   DC    AL2(5),H'0'         length of wto buffer (4+1)
+WTOTXT   DC    C' '                wto text
+         END   DOWHILE