Topswops: 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 40:
=={{header|360 Assembly}}==
The program uses two ASSIST macro (XDECO,XPRNT) to keep the code as short as possible.
<lang 360asm>* Topswops optimized 12/07/2016
TOPSWOPS CSECT
USING TOPSWOPS,R13 base register
Line 163 ⟶ 161:
BR R14 ---------------}-----------------------------------
YREGS
END TOPSWOPS</lang>
{{out}}
<pre>
Line 178 ⟶ 175:
10: 38
</pre>
=={{header|Ada}}==
| |||