Proper divisors: Difference between revisions
m
→{{header|360 Assembly}}: Superfluous blanks suppressed
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
||
Line 30:
{{trans|Rexx}}
This program uses two ASSIST macros (XDECO, XPRNT) to keep the code as short as possible.
<lang 360asm>* Proper divisors 14/06/2016
PROPDIV CSECT
USING PROPDIV,R13 base register
Line 164 ⟶ 163:
XDEC DS CL12
YREGS
END PROPDIV</lang>
{{out}}
<pre>
Line 180 ⟶ 178:
15120 has 79 proper divisors.
</pre>
=={{header|ALGOL 68}}==
| |||