GabrielTofvesson/Microcode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fully unrolled sort-loop

Browse Source
This commit is contained in:
Gabriel Tofvesson 2019-04-27 02:34:22 +02:00
parent 6b33921e8d
commit 926e572a53
1 changed files with 36 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
ucode/sort4.uc
View File

@ -65,75 +65,46 @@ reset grm
// Initialize PC to point at list // Initialize PC to point at list
const LIST_START const LIST_START
mov ar pc mov ar pc
$BUCKET_SORT_START
// First value to be sorted
mov pc asr; incpc mov pc asr; incpc
//$BUCKET_SORT_START
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE mov pm ir; call @JTABLE
// Second value to be sorted mov pm ir; call @JTABLE
mov pc asr; incpc mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE
mov pm ir; call @JTABLE mov pm ir; call @JTABLE
// Third value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Fourth value to be sorted //sub LIST_END
mov pc asr; incpc //bnz @BUCKET_SORT_START
mov pm ir; call @JTABLE
// Fifth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Sixth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Seventh value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Eighth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Ninth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Tenth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Eleventh value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Twelfth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Thirteenth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Foureenth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Fifteenth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
// Sixteenth value to be sorted
mov pc asr; incpc
mov pm ir; call @JTABLE
sub LIST_END
bnz @BUCKET_SORT_START
@ -270,4 +241,5 @@ $INSERTION_END_BIGGEST
mov ir pm mov ir pm
$INSERTION_END_NOTBIGGEST $INSERTION_END_NOTBIGGEST
mov hr ar; mov hr pc; ret mov hr ar; mov hr pc
mov pc asr; incpc; ret