From db786624d79e235ff6599b89d26f238757e37e75 Mon Sep 17 00:00:00 2001
From: GabrielTofvesson <gabto095@student.liu.se>
Date: Wed, 10 Apr 2019 02:59:33 +0200
Subject: [PATCH] Implement final merge of buckets

---
 bsrt.uc | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/bsrt.uc b/bsrt.uc
index 3c0aede..9397639 100644
--- a/bsrt.uc
+++ b/bsrt.uc
@@ -17,6 +17,7 @@
 #data 0x60 0x60
 #data 0x68 0x68
 #data 0x70 0x70
+#data 0x78 0x78
 
 // Set PC to LIST_START
 const LIST_START
@@ -116,4 +117,42 @@ brz @BUCKET_SORT_END
 bra @BUCKET_SORT_START
 $BUCKET_SORT_END
 
+// PC is 0 here. Data is sorted smallest-to largest in memory: just spread out into buckets ;)
+// Perform final merge here
+
+call @BREAK
+
+// Set IR to 0xE0. IR will be the write index
+const 0xE0
+mov ar ir
+mov pc gr
+
+// Dereference index of final element in bucket into AR and subtract PC to compute length of bucket
+// Save length into lc
+$FINAL_COPY
+mov pc asr
+mov pm ar
+sub pc
+mov ar lc; incpc
+
+// Copy bucket
+$COPY_LOOP
+bls @COPY_LOOP_NEXT
+mov pc asr
+mov pm hr
+mov ir asr; mov ir ar
+add 1
+mov ar ir
+mov hr pm; declc; incpc
+bra @COPY_LOOP
+
+$COPY_LOOP_NEXT
+mov gr ar
+adn 8
+mov ar gr
+mov gr pc
+sub 0x80
+bnz @FINAL_COPY
+
+$BREAK
 halt