8 lines
389 B
Text
8 lines
389 B
Text
* == Fortran style ============== test at the end
|
|
LA R3,BUF idx=0
|
|
DO FROM=(R5,5),TO=(R7,25),BY=(R6,5) for i=5 to 25 step 5
|
|
XDECO R5,XDEC edit i
|
|
MVC 0(4,R3),XDEC+8 output i
|
|
LA R3,4(R3) idx=idx+4
|
|
ENDDO , next i
|
|
XPRNT BUF,80 print buffer
|