Subroutine de3a

de3a 7d 00 c3    tst (0x00C3)
de3d 27 01       beq [0xDE40]
de3f 39          rts

de40 0f          sei		Branch Target from de3d
de41 b6 10 00    ldaa (0x1000) ; PORTA Register
de44 f6 10 08    ldab (0x1008) ; PORTD Register
de47 0e          cli
de48 c4 30       andb 0x30
de4a 54          lsrb
de4b 54          lsrb
de4c d7 ca       stab (0x00CA)
de4e 54          lsrb
de4f 54          lsrb
de50 da ca       orab (0x00CA)
de52 c4 09       andb 0x09
de54 84 80       anda 0x80
de56 1b          aba
de57 97 ca       staa (0x00CA)
de59 b8 10 33    eora (0x1033) ; ADR3 Register
de5c 84 89       anda 0x89
de5e 97 c9       staa (0x00C9)
de60 98 ca       eora (0x00CA)
de62 94 c9       anda (0x00C9)
de64 d6 c9       ldab (0x00C9)
de66 d4 ca       andb (0x00CA)
de68 dd c9       std (0x00C9)
de6a 94 90       anda (0x0090)
de6c 94 92       anda (0x0092)
de6e 9a 8e       oraa (0x008E) ; Solenoid_ErrorFlags
de70 97 8e       staa (0x008E) ; Solenoid_ErrorFlags
de72 d4 91       andb (0x0091)
de74 d4 93       andb (0x0093)
de76 da 8f       orab (0x008F) ; Solenoid_ErrorFlags
de78 d7 8f       stab (0x008F) ; Solenoid_ErrorFlags
de7a dc 90       ldd (0x0090)
de7c dd 92       std (0x0092)
de7e dc c9       ldd (0x00C9)
de80 dd 90       std (0x0090)
de82 39          rts