Sorting algorithms/Heapsort: Difference between revisions

{{trans|PL/I}}

The program uses ASM structured macros and two ASSIST macros (XDECO, XPRNT) to keep the code as short as possible.

HEAPS CSECT

USING HEAPS,R13 base register

N DC A((N-A)/L'A) number of items

YREGS

{{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}}==