Sorting algorithms/Insertion sort: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: clearer) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: add a comment) |
||
Line 32: | Line 32: | ||
These programs use two ASSIST macros (XDECO, XPRNT) to keep the code as short as possible. |
These programs use two ASSIST macros (XDECO, XPRNT) to keep the code as short as possible. |
||
===Basic=== |
===Basic=== |
||
<lang 360asm>* Insertion sort |
<lang 360asm>* Insertion sort 16/06/2016 |
||
INSSORT CSECT |
INSSORT CSECT |
||
USING INSSORT,R13 base register |
USING INSSORT,R13 base register |
||
Line 93: | Line 93: | ||
-31 0 1 2 2 4 45 58 65 69 74 82 82 83 88 89 99 104 112 782 |
-31 0 1 2 2 4 45 58 65 69 74 82 82 83 88 89 99 104 112 782 |
||
</pre> |
</pre> |
||
===Assembler Structured Macros=== |
===Assembler Structured Macros=== |
||
No harmful gotos [:)Dijkstra], no labels. It's cleaner, but is it clearer? |
No harmful gotos [:)Dijkstra], no labels. It's cleaner, but is it clearer? |