aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Loops-For/360-Assembly/loops-for-1.360 Normal file
View file

@ -0,0 +1,22 @@
* Loops/For - BXH Algol 27/07/2015
LOOPFOR CSECT
USING LOOPFORC,R12
LR R12,R15 set base register
BEGIN LA R2,0 from 1 (from-step=0)
LA R4,1 step 1
LA R5,5 to 5
LOOPI BXH R2,R4,ELOOPI for i=1 to 5 (R2=i)
LA R8,BUFFER-1 ipx=-1
LA R3,0 from 1 (from-step=0)
LA R6,1 step 1
LR R7,R2 to i
LOOPJ BXH R3,R6,ELOOPJ for j:=1 to i (R3=j)
LA R8,1(R8) ipx=ipx+1
MVI 0(R8),C'*' buffer(ipx)='*'
B LOOPJ next j
ELOOPJ XPRNT BUFFER,L'BUFFER print buffer
B LOOPI next i
ELOOPI BR R14 return to caller
BUFFER DC CL80' ' buffer
YREGS
END LOOPFOR

20
Task/Loops-For/360-Assembly/loops-for-2.360 Normal file
View file

@ -0,0 +1,20 @@
* 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

23
Task/Loops-For/360-Assembly/loops-for.360
View file

@ -1,23 +0,0 @@
LOOPFORC CSECT
USING LOOPFORC,R12
LR R12,R15 set base register
BEGIN SR R2,R2 from 1
LA R4,1 by 1
LA R5,5 to 5
LOOPI BXH R2,R4,ELOOPI i (R2)
LA R8,BUFFER-1
SR R3,R3 from 1
LA R6,1 by 1
LR R7,R2 to i
LOOPJ BXH R3,R6,ELOOPJ j (R3)
LA R8,1(R8)
MVI 0(R8),C'*'
B LOOPJ
ELOOPJ XPRNT BUFFER,L'BUFFER
B LOOPI
ELOOPI EQU *
RETURN XR R15,R15 set return code
BR R14 return to caller
BUFFER DC CL80' '
YREGS
END LOOPFORC