Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
||
| Line 11: | Line 11: | ||
=={{header|360 Assembly}}== |
=={{header|360 Assembly}}== |
||
<lang 360asm> |
<lang 360asm>* Sum multiples of 3 and 5 |
||
* Sum multiples of 3 and 5 |
|||
SUM35 CSECT |
SUM35 CSECT |
||
USING SUM35,R13 base register |
USING SUM35,R13 base register |
||
| Line 57: | Line 56: | ||
PG DC CL80'123456789012 : 1234567890123456' |
PG DC CL80'123456789012 : 1234567890123456' |
||
YREGS |
YREGS |
||
END SUM35 |
END SUM35</lang> |
||
</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
| Line 69: | Line 67: | ||
10000000 : 23333331666668 |
10000000 : 23333331666668 |
||
</pre> |
</pre> |
||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||