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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Flow-control-structures/360-Assembly/flow-control-structures-1.360 Normal file
View file

@ -0,0 +1,2 @@
B TESTPX goto label TESTPX
BR 14 goto to the address found in register 14

7
Task/Flow-control-structures/360-Assembly/flow-control-structures-2.360 Normal file
View file

@ -0,0 +1,7 @@
LA 15,SINUSX load in reg15 address of function SINUSX
BALR 14,15 call the subroutine SINUX and place address RETPNT in reg14
RETPNT EQU *
SINUSX EQU * subroutine SINUSX
...
BR 14 return to caller

8
Task/Flow-control-structures/360-Assembly/flow-control-structures-3.360 Normal file
View file

@ -0,0 +1,8 @@
L 4,A Load A in register 4
C 4,B Compare A with B
BH TESTGT Branch on High if A>B then goto TESTGT
BL TESTLT Branch on Low if A<B then goto TESTLT
BE TESTEQ Branch on Equal if A=B then goto TESTEQ
BNH TESTLE Branch on Not High if A<=B then goto TESTLE
BNL TESTGE Branch on Not Low if A>=B then goto TESTGE
BNE TESTNE Branch on Not Equal if A<>B then goto TESTNE

4
Task/Flow-control-structures/360-Assembly/flow-control-structures-4.360 Normal file
View file

@ -0,0 +1,4 @@
LA 3,8 r3 loop counter
LOOP EQU *
... loop 8 times (r3=8,7,...,2,1)
BCT 3,LOOP r3=r3-1 ; if r3<>0 then loop

7
Task/Flow-control-structures/360-Assembly/flow-control-structures-5.360 Normal file
View file

@ -0,0 +1,7 @@
* do i=1 to 8 by 2
L 3,1 r3 index and start value 1
LA 4,2 r4 step 2
L 5,8 r5 to value 8
LOOPI EQU *
... loop 4 times (r3=1,3,5,7)
BXLE 3,4,LOOPI r3=r3+r4; if r3<=r5 then loop

7
Task/Flow-control-structures/360-Assembly/flow-control-structures-6.360 Normal file
View file

@ -0,0 +1,7 @@
* do i=8 to 1 by -2
L 3,1 r3 index and start value 8
LH 4,=H'-2' r4 step -2
L 5,8 r5 to value 1
LOOPI EQU *
... loop 4 times (r3=8,6,4,2)
BXH 3,4,LOOPI r3=r3+r4; if r3>r5 then loop