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

Optimize bsrt2

Browse Source
This commit is contained in:
Gabriel Tofvesson 2019-04-24 22:54:24 +02:00
parent 99a3024b2a
commit 078f4b0736
1 changed files with 57 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

130
bsrt2.uc
View File

@ -1,9 +1,9 @@
#define LIST_START 0xE0 #define LIST_START 0xE0
#define HASH_MASK 0b1111 #define HASH_MASK 0b1111
#define BUCKET_SIZE 13 #define BUCKET_SIZE 14
#define FIRST_BUCKET_ADDRESS 0x10 #define BUCKET_ADDRESS 0x00
#define LAST_BUCKET_ADDRESS 0xE0 #define LAST_BUCKET_ADDRESS 0xE0
#define LAST_BUCKET_START_ADDR 0xD3 #define LAST_BUCKET_START_ADDR 0xD2
#optable 0x0 @OT_0 #optable 0x0 @OT_0
@ -24,42 +24,22 @@
#optable 0xf @OT_F #optable 0xf @OT_F
// PM initial state // PM initial state
#data 0x00 0x00
// Deprecated: LUT to be replaced with K1-jump table #data 0x0E 0x00
#data 0x00 0x78 #data 0x1C 0x00
#data 0x01 0x85 #data 0x2A 0x00
#data 0x02 0x92 #data 0x38 0x00
#data 0x03 0x9f #data 0x46 0x00
#data 0x04 0xac #data 0x54 0x00
#data 0x05 0xb9 #data 0x62 0x00
#data 0x06 0xc6 #data 0x70 0x00
#data 0x07 0xd3 #data 0x7e 0x00
#data 0x08 0x10 #data 0x8c 0x00
#data 0x09 0x1d #data 0x9a 0x00
#data 0x0a 0x2a #data 0xa8 0x00
#data 0x0b 0x37 #data 0xb6 0x00
#data 0x0c 0x44 #data 0xc4 0x00
#data 0x0d 0x51 #data 0xd2 0x00
#data 0x0e 0x5e
#data 0x0f 0x6b
// Not deprecated
#data 0x10 0x00
#data 0x1d 0x00
#data 0x2a 0x00
#data 0x37 0x00
#data 0x44 0x00
#data 0x51 0x00
#data 0x5e 0x00
#data 0x6b 0x00
#data 0x78 0x00
#data 0x85 0x00
#data 0x92 0x00
#data 0x9f 0x00
#data 0xac 0x00
#data 0xb9 0x00
#data 0xc6 0x00
#data 0xd3 0x00
// TODO: Include register initial-state compiler directive (saves, like, 2 cycles max) // TODO: Include register initial-state compiler directive (saves, like, 2 cycles max)
@ -69,7 +49,7 @@ mov ar pc
//// ---- START OF DANK SORT ---- //// //// ---- START OF DANK SORT ---- ////
$DANK_SORT $SORT
mov pc asr; incpc mov pc asr; incpc
mov pm ir; call @JTABLE // Call jumptable. This also copies PC to HR mov pm ir; call @JTABLE // Call jumptable. This also copies PC to HR
@ -85,36 +65,40 @@ mov ar pc
// First insertion // First insertion
$DANK_INSERT_FIRST_START $INSERT_START
incpc; bls @DANK_INSERT_FIRST_END_BIGGEST // Load a value and compare with value to be inserted
// If L is set, value is greater than all other values in bucket
mov pc asr incpc
mov pc asr; bls @INSERT_END_BIGGEST
mov pm ar mov pm ar
sub ir sub ir
adn ir; brn @DANK_INSERT_FIRST_BOTTOM adn ir; brn @INSERT_BOTTOM
// We found where to insert value. Insert it
mov ir pm; incpc mov ir pm; incpc
$DANK_INSERT_FIRST_SHIFT // Shift values after the value we inserted
mov pc asr; bls @DANK_INSERT_FIRST_END_NUMLET $INSERT_SHIFT
mov pc asr; bls @INSERT_END_NUMLET
mov pm gr mov pm gr
mov ar pm mov ar pm
mov gr ar; declc; incpc; bra @DANK_INSERT_FIRST_SHIFT mov gr ar; declc; incpc; bra @INSERT_SHIFT
$DANK_INSERT_FIRST_BOTTOM // Continue to next value in bucket for comparison
declc; bra @DANK_INSERT_FIRST_START $INSERT_BOTTOM
declc; bra @INSERT_START
$DANK_INSERT_FIRST_END_BIGGEST // Value we are inserting was the biggest value in the bucket
mov pc asr $INSERT_END_BIGGEST
mov ir pm mov ir pm
$DANK_INSERT_FIRST_END_NUMLET $INSERT_END_NUMLET
// Check if we've sorted all values. If we have, merge then, otherwise return to top of bucketsort
mov hr ar; mov hr pc mov hr ar; mov hr pc
sub 0 sub 0
brz @BUCKET_SORT_END bnz @SORT
bra @DANK_SORT
$BUCKET_SORT_END $BUCKET_SORT_END
@ -122,7 +106,7 @@ $BUCKET_SORT_END
const LAST_BUCKET_START_ADDR const LAST_BUCKET_START_ADDR
mov ar hr mov ar hr
const FIRST_BUCKET_ADDRESS const BUCKET_ADDRESS
mov ar pc mov ar pc
const LIST_START const LIST_START
@ -159,67 +143,67 @@ mov pc hr; bop
// IR OP-field jump table // IR OP-field jump table
$OT_0 $OT_0
const 0x78 const 0x70
mov ar asr; ret mov ar asr; ret
$OT_1 $OT_1
const 0x85 const 0x7e
mov ar asr; ret mov ar asr; ret
$OT_2 $OT_2
const 0x92 const 0x8c
mov ar asr; ret mov ar asr; ret
$OT_3 $OT_3
const 0x9f const 0x9a
mov ar asr; ret mov ar asr; ret
$OT_4 $OT_4
const 0xac const 0xa8
mov ar asr; ret mov ar asr; ret
$OT_5 $OT_5
const 0xb9 const 0xb6
mov ar asr; ret mov ar asr; ret
$OT_6 $OT_6
const 0xc6 const 0xc4
mov ar asr; ret mov ar asr; ret
$OT_7 $OT_7
const 0xd3 const 0xd2
mov ar asr; ret mov ar asr; ret
$OT_8 $OT_8
const 0x10 const 0x00
mov ar asr; ret mov ar asr; ret
$OT_9 $OT_9
const 0x1d const 0x0e
mov ar asr; ret mov ar asr; ret
$OT_A $OT_A
const 0x2a const 0x1c
mov ar asr; ret mov ar asr; ret
$OT_B $OT_B
const 0x37 const 0x2a
mov ar asr; ret mov ar asr; ret
$OT_C $OT_C
const 0x44 const 0x38
mov ar asr; ret mov ar asr; ret
$OT_D $OT_D
const 0x51 const 0x46
mov ar asr; ret mov ar asr; ret
$OT_E $OT_E
const 0x5e const 0x54
mov ar asr; ret mov ar asr; ret
$OT_F $OT_F
const 0x6b const 0x62
mov ar asr; ret mov ar asr; ret
@ -236,7 +220,7 @@ mov ar asr; ret
//// COPY NEGATIVE //// COPY NEGATIVE
// //
//// Initialize GR as bucket pointer and IR as element pointer //// Initialize GR as bucket pointer and IR as element pointer
//const FIRST_BUCKET_ADDRESS //const BUCKET_ADDRESS
//mov ar gr //mov ar gr
// //
// //