Mickey RNG

;RNG address = 1BE8 / 1BE9

$C0/2161 C2 20       REP #$20                A:0301 X:0000 Y:0001 P:envMXdizc  ;16 bit calc
$C0/2163 AD E8 1B    LDA $1BE8  [$80:1BE8]   A:0301 X:0000 Y:0001 P:envmXdizc  ;load RNG  (RNG = BF58)
$C0/2166 0A          ASL A                   A:BF58 X:0000 Y:0001 P:eNvmXdizc  ;shift left (multiply by 2)
$C0/2167 18          CLC                     A:7EB0 X:0000 Y:0001 P:envmXdizC
$C0/2168 6D E8 1B    ADC $1BE8  [$80:1BE8]   A:7EB0 X:0000 Y:0001 P:envmXdizc  ;add original RNG value to it
$C0/216B 8D 00 00    STA $0000  [$80:0000]   A:3E08 X:0000 Y:0001 P:envmXdizC  ;store in 0
$C0/216E E2 20       SEP #$20                A:3E08 X:0000 Y:0001 P:envmXdizC  ;8 bit calc
$C0/2170 EB          XBA                     A:3E08 X:0000 Y:0001 P:envMXdizC  ;swap the 2 bytes
$C0/2171 18          CLC                     A:083E X:0000 Y:0001 P:envMXdizC
$C0/2172 6D E8 1B    ADC $1BE8  [$80:1BE8]   A:083E X:0000 Y:0001 P:envMXdizc  ;add original value to it
$C0/2175 8D E8 1B    STA $1BE8  [$80:1BE8]   A:0896 X:0000 Y:0001 P:eNVMXdizc  ;store 96 in RNG
$C0/2178 8D 00 00    STA $0000  [$80:0000]   A:0896 X:0000 Y:0001 P:eNVMXdizc  ;store in 0
$C0/217B AD 01 00    LDA $0001  [$80:0001]   A:0896 X:0000 Y:0001 P:eNVMXdizc
$C0/217E 8D E9 1B    STA $1BE9  [$80:1BE9]   A:083E X:0000 Y:0001 P:enVMXdizc  ;store 3E in RNG (RNG = 3E96)
$C0/2181 6B          RTL                     A:083E X:0000 Y:0001 P:enVMXdizc