define Sorter -1009150565
define Vending -1577831321
alias Tmp r0
alias Tmp2 r1
alias Counter r2
alias ItemHash r3
alias Ident r4
alias EvenOrOdd r5
alias ExportHash r6
alias ExportCounter r7
setting:
move EvenOrOdd 0

init:
l Ident db ReferenceId
s db Setting Ident
sbn Sorter Ident On 1
sbn Sorter Ident Mode 2
sbn Sorter Ident Lock 1
sbn Vending Ident On 1
sbn Vending Ident Lock 1
sbn Vending Ident Setting 500
move Counter 2

loop:
yield
jal handleSorter
jal exportFullstack
rand r8
mul r8 r8 2
bgt r8 1 giveIdent
s db Setting EvenOrOdd
j loop

giveIdent:
s db Setting Ident
j loop

handleSorter:
lbns Tmp Sorter Ident 0 Occupied 3
beqz Tmp ra
lbns Tmp Sorter Ident 0 Quantity 3
lbns Tmp2 Sorter Ident 0 MaxQuantity 3
beq Tmp Tmp2 passThrue
lbns ItemHash Sorter Ident 0 OccupantHash 3
mod Tmp ItemHash 2
add Tmp Tmp 2
mod Tmp Tmp 2
beq Tmp EvenOrOdd passThrue
sbn Sorter Ident Output 1
j ra
passThrue:
sbn Sorter Ident Output 0
j ra

exportFullstack:
bgez ExportCounter exportNow
lbns Tmp Vending Ident Counter MaxQuantity 3
lbns Tmp2 Vending Ident Counter Quantity 3
beq Tmp Tmp2 prepareExport
add Counter Counter 1
bge Counter 102 resetCounter
j ra

resetCounter:
move Counter 2
j ra

prepareExport:
lbns ExportHash Vending Ident Counter OccupantHash 3
move ExportCounter 10
exportNow:
sub ExportCounter ExportCounter 1
sbn Vending Ident RequestHash ExportHash
j ra