Proper divisors: 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 30: | Line 30: | ||
{{trans|Rexx}} |
{{trans|Rexx}} |
||
This program uses two ASSIST macros (XDECO, XPRNT) to keep the code as short as possible. |
This program uses two ASSIST macros (XDECO, XPRNT) to keep the code as short as possible. |
||
<lang 360asm> |
<lang 360asm>* Proper divisors 14/06/2016 |
||
* Proper divisors 14/06/2016 |
|||
PROPDIV CSECT |
PROPDIV CSECT |
||
USING PROPDIV,R13 base register |
USING PROPDIV,R13 base register |
||
Line 164: | Line 163: | ||
XDEC DS CL12 |
XDEC DS CL12 |
||
YREGS |
YREGS |
||
END PROPDIV |
END PROPDIV</lang> |
||
</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Line 180: | Line 178: | ||
15120 has 79 proper divisors. |
15120 has 79 proper divisors. |
||
</pre> |
</pre> |
||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |