Ludic 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 32:
=={{header|360 Assembly}}==
{{trans|Fortran}}
<lang 360asm>* Ludic numbers 23/04/2016
LUDICN CSECT
USING LUDICN,R15 set base register
Line 154 ⟶ 153:
LUDIC DC 25000X'01' ludic(nmax)=true
YREGS
END LUDICN</lang>
{{out}}
<pre>
| |||