22 lines
984 B
Plaintext
22 lines
984 B
Plaintext
* 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
|