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

Optimize for empty buckets and improve stability for full buckets

Browse Source
This commit is contained in:
Gabriel Tofvesson 2019-04-30 17:50:04 +02:00
parent ae3d25bf65
commit 13b4827969
1 changed files with 25 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
ucode/sort4.uc
View File

@ -67,7 +67,7 @@ const LIST_START
mov ar pc mov ar pc
mov pc asr; incpc mov pc asr; incpc
//$BUCKET_SORT_START // Perform bucketsort for 32 elements
mov pm ir; call @JTABLE mov pm ir; call @JTABLE
mov pm ir; incpc; call @JTABLE mov pm ir; incpc; call @JTABLE
mov pm ir; incpc; call @JTABLE mov pm ir; incpc; call @JTABLE
@ -103,13 +103,10 @@ mov pm ir; incpc; call @JTABLE
mov pm ir; incpc; call @JTABLE mov pm ir; incpc; call @JTABLE
//sub LIST_END
//bnz @BUCKET_SORT_START
//call @BREAK //call @BREAK
// Merge // Initialize state for merge
const BUCKET_SIZE const BUCKET_SIZE
mov ar hr mov ar hr
const LIST_START const LIST_START
@ -117,26 +114,32 @@ mov ar pc
const HIGHEST_BUCKET const HIGHEST_BUCKET
// Do the merge thing
$MERGE $MERGE
// Load bucket size
// Load bucket size into LC
mov ar asr mov ar asr
mov pm lc mov pm lc
bls @MERGE_BOTTOM
// Copy elements to list // Copy elements to list
$MERGE_MOVE $MERGE_MOVE
sub gr; bls @MERGE_BOTTOM sub gr; declc; bls @MERGE_BOTTOM // AR -= -1, branch if there are no more
// elements to copy
mov ar asr mov ar asr
mov pm ir mov pm ir
mov pc asr; incpc mov pc asr; incpc; bls @MB_SPEC // This branch improves stability
mov ir pm; declc; bra @MERGE_MOVE mov ir pm; bra @MERGE_MOVE // Transfer value and copy more elements
$MB_SPEC
mov ir pm // Transfer value and go to next bucket
// Check if we just copied the last bucket // Check if we just copied the last bucket
$MERGE_BOTTOM $MERGE_BOTTOM
and BUCKET_INDEX_TRACKER and BUCKET_INDEX_TRACKER // Mask out element index (lowest 3 bits)
sub hr; bnz @MERGE sub hr; bnz @MERGE // Compute index of next bucket and stuff
// Breakpoint hook and program termination point
$BREAK $BREAK
halt halt
@ -218,16 +221,17 @@ mov ar asr; bra @PREPARE_SORT
$PREPARE_SORT $PREPARE_SORT
mov pm pc; mov pm lc // Load bucket length mov pm pc; mov pm lc // Load bucket length
sub gr; incpc // Increment bucket length sub gr; incpc // Increment bucket length
mov pc pm // Store new length mov pc pm; bls @IE_SPEC // Store new length
//mov ar asr; bls @INSERTION_END_BIGGEST
mov ar pc mov ar pc; sub ar
sub ir
$INSERTION $INSERTION
mov pc asr; incpc; declc; bls @INSERTION_END_BIGGEST mov pc asr; incpc; declc; bls @INSERTION_END_BIGGEST
mov pm ar add pm
sub ir sub pm; brn @INSERTION
adn ir; brn @INSERTION
mov pm ar
mov ir pm mov ir pm
$INSERTION_SHIFT $INSERTION_SHIFT
@ -236,6 +240,9 @@ mov pm ir
mov ar pm; bls @INSERTION_END_NOTBIGGEST mov ar pm; bls @INSERTION_END_NOTBIGGEST
mov ir ar; declc; incpc; bra @INSERTION_SHIFT mov ir ar; declc; incpc; bra @INSERTION_SHIFT
$IE_SPEC
mov ar asr
$INSERTION_END_BIGGEST $INSERTION_END_BIGGEST
mov ir pm mov ir pm