10 lines
468 B
Text
10 lines
468 B
Text
* == Fortran style ============== test at the end
|
|
LA R3,BUF idx=0
|
|
LA R5,5 from 5
|
|
LA R6,5 step 5
|
|
LA R7,25 to 25
|
|
LOOPJ XDECO R5,XDEC for j=5 to 25 step 5; edit j
|
|
MVC 0(4,R3),XDEC+8 output j
|
|
LA R3,4(R3) idx=idx+4
|
|
BXLE R5,R6,LOOPJ next j
|
|
XPRNT BUF,80 print buffer
|