Sorting algorithms/Comb sort: Difference between revisions

m
→‎{{header|360 Assembly}}: Superfluous blanks suppressed
m (→‎{{header|360 Assembly}}: Superfluous blanks suppressed)
Line 44:
Translation from prototype.<br>
The program uses ASM structured macros and two ASSIST macros to keep the code as short as possible.
<lang 360asm>* Comb sort 23/06/2016
COMBSORT CSECT
* Comb sort 23/06/2016
COMBSORT CSECT assist plig\COMBSORT
USING COMBSORT,R13 base register
B 72(R15) skip savearea
Line 110 ⟶ 109:
PG DS CL80 output buffer
XDEC DS CL12 temp for edit
YREGS number of lines: 207->66 (3.1)
RI EQU 6 i
END COMBSORT assist plig\COMBSORT</lang>
</lang>
{{out}}
<pre>
-31 0 1 2 2 4 45 58 65 69 74 82 82 83 88 89 99 104 112 782
</pre>
 
 
=={{header|ActionScript}}==
1,392

edits