Subroutine e85b

e85b 3a          abx
e85c 3a          abx
e85d 3a          abx
e85e ec 00       ldd (X+0x00)
e860 97 85       staa (0x0085)
e862 d7 89       stab (0x0089)
e864 6d 02       tst (X+0x02)
e866 27 05       beq [0xE86D]
e868 14 0f 04    bset (0x000F), 0x04 ; Power_Light
e86b 20 03       bra [0xE870]
e86d 15 0f 04    bclr (0x000F), 0x04		Branch Target from e866 ; Power_Light
e870 16          tab		Branch Target from e86b
e871 39          rts


e872 DATA 01 c8 01 00 32 00 00 19 
e87a DATA 01 00 19 00 01 0d 00 00 
e882 DATA 0d 01 01 14 01 00 1e 00 
e88a DATA 00 78 01 00 1e 00