Subroutine da70

da70 b6 10 02    ldaa (0x1002) ; PIOC Register
da73 97 c9       staa (0x00C9)
da75 98 0c       eora (0x000C)
da77 16          tab
da78 53          comb
da79 94 08       anda (0x0008)
da7b d4 c9       andb (0x00C9)
da7d d7 ca       stab (0x00CA)
da7f 9a ca       oraa (0x00CA)
da81 97 08       staa (0x0008)
da83 96 c9       ldaa (0x00C9)
da85 97 0c       staa (0x000C)
da87 b6 10 33    ldaa (0x1033) ; ADR3 Register
da8a 97 c9       staa (0x00C9)
da8c 98 0d       eora (0x000D)
da8e 16          tab
da8f 53          comb
da90 94 09       anda (0x0009)
da92 d4 c9       andb (0x00C9)
da94 d7 ca       stab (0x00CA)
da96 9a ca       oraa (0x00CA)
da98 97 09       staa (0x0009)
da9a 96 c9       ldaa (0x00C9)
da9c 97 0d       staa (0x000D)
da9e b6 10 0a    ldaa (0x100A) ; PORTE Register
daa1 97 c9       staa (0x00C9)
daa3 98 0b       eora (0x000B)
daa5 16          tab
daa6 53          comb
daa7 94 07       anda (0x0007)
daa9 d4 c9       andb (0x00C9)
daab d7 ca       stab (0x00CA)
daad 9a ca       oraa (0x00CA)
daaf 97 07       staa (0x0007)
dab1 96 c9       ldaa (0x00C9)
dab3 97 0b       staa (0x000B)
dab5 b6 10 08    ldaa (0x1008) ; PORTD Register
dab8 97 c9       staa (0x00C9)
daba 98 0e       eora (0x000E)
dabc 16          tab
dabd 53          comb
dabe 94 0a       anda (0x000A)
dac0 d4 c9       andb (0x00C9)
dac2 d7 ca       stab (0x00CA)
dac4 9a ca       oraa (0x00CA)
dac6 97 0a       staa (0x000A)
dac8 96 c9       ldaa (0x00C9)
daca 97 0e       staa (0x000E)
dacc 39          rts