Perfect numbers: 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 25:
For maximum compatibility, this program uses only the basic instruction set (S/360)
and two ASSIST macros (XDECO,XPRNT) to keep it as short as possible.
<lang 360asm>* Perfect numbers 15/05/2016
PERFECTN CSECT
USING PERFECTN,R13 prolog
Line 72 ⟶ 71:
PG DC CL12' ' buffer
YREGS
END PERFECTN</lang>
{{out}}
<pre>
Line 81 ⟶ 79:
8128
</pre>
=={{header|Ada}}==
| |||