Subroutine e326

e326 13 38 02 3f brclr (0x0038), 0x02, [0xE369]
e32a 15 38 02    bclr (0x0038), 0x02
e32d 14 e0 40    bset (0x00E0), 0x40
e330 0f          sei
e331 96 43       ldaa (0x0043)
e333 97 c8       staa (0x00C8)
e335 dc 41       ldd (0x0041)
e337 0e          cli
e338 ce 00 03    ldx 0x0003
e33b 04          lsrd		Branch Target from e340
e33c 76 00 c8    ror (0x00C8)
e33f 09          dex
e340 26 f9       bne [0xE33B]
e342 4d          tsta
e343 27 04       beq [0xE349]
e345 c6 ff       ldab 0xFF
e347 d7 c8       stab (0x00C8)
e349 d7 c7       stab (0x00C7)		Branch Target from e343
e34b de c7       ldx (0x00C7)
e34d bc c0 0d    cpx (0xC00D)
e350 23 17       bls [0xE369]
e352 fc c0 0d    ldd (0xC00D)
e355 03          fdiv
e356 df 3b       stx (0x003B) ; RPM
e358 f3 c0 0f    addd (0xC00F)
e35b de c7       ldx (0x00C7)
e35d 02          idiv
e35e 8f          xgdx
e35f d3 3b       addd (0x003B) ; RPM
e361 05          asld
e362 dd 3b       std (0x003B) ; RPM
e364 05          asld
e365 05          asld
e366 05          asld
e367 97 b6       staa (0x00B6)
e369 39          rts		Branch Target from e326, e350