21 lines
865 B
Plaintext
21 lines
865 B
Plaintext
* Loops/For - struct 29/06/2016
|
|
LOOPFOR CSECT
|
|
USING LOOPFORC,R12
|
|
LR R12,R15 set base register
|
|
LA R2,1 from 1
|
|
DO WHILE=(CH,R2,LE,=H'5') for i=1 to 5 (R2=i)
|
|
LA R8,BUFFER-1 ipx=-1
|
|
LA R3,1 from 1
|
|
DO WHILE=(CR,R3,LE,R2) for j:=1 to i (R3=j)
|
|
LA R8,1(R8) ipx=ipx+1
|
|
MVI 0(R8),C'*' buffer(ipx)='*'
|
|
LA R3,1(R3) j=j+1 (step)
|
|
ENDDO , next j
|
|
XPRNT BUFFER,L'BUFFER print buffer
|
|
LA R2,1(R2) i=i+1 (step)
|
|
ENDDO , next i
|
|
BR R14 return to caller
|
|
BUFFER DC CL80' ' buffer
|
|
YREGS
|
|
END LOOPFOR
|