Subroutine e426

e426 13 38 02 3e brclr (0x0038), 0x02, [0xE468]
e42a 15 38 02    bclr (0x0038), 0x02
e42d 14 e0 40    bset (0x00E0), 0x40
e430 0f          sei
e431 96 43       ldaa (0x0043)
e433 97 c8       staa (0x00C8)
e435 dc 41       ldd (0x0041)
e437 0e          cli
e438 ce 00 04    ldx 0x0004
e43b 04          lsrd		Branch Target from e440
e43c 76 00 c8    ror (0x00C8)
e43f 09          dex
e440 26 f9       bne [0xE43B]
e442 4d          tsta
e443 27 04       beq [0xE449]
e445 c6 ff       ldab 0xFF
e447 d7 c8       stab (0x00C8)
e449 d7 c7       stab (0x00C7)		Branch Target from e443
e44b de c7       ldx (0x00C7)
e44d bc c0 0d    cpx (0xC00D)
e450 23 16       bls [0xE468]
e452 fc c0 0d    ldd (0xC00D)
e455 03          fdiv
e456 df 3b       stx (0x003B) ; RPM
e458 f3 c0 0f    addd (0xC00F)
e45b de c7       ldx (0x00C7)
e45d 02          idiv
e45e 8f          xgdx
e45f d3 3b       addd (0x003B) ; RPM
e461 dd 3b       std (0x003B) ; RPM
e463 05          asld
e464 05          asld
e465 05          asld
e466 97 b6       staa (0x00B6)
e468 39          rts		Branch Target from e426, e450