Subroutine eaab

eaab ce cd 75    ldx 0xCD75
eaae d6 75       ldab (0x0075)
eab0 3a          abx
eab1 d6 6b       ldab (0x006B)
eab3 8d 33       bsr [0xEAE8]
eab5 47          asra
eab6 56          rorb
eab7 47          asra
eab8 56          rorb
eab9 dd c7       std (0x00C7)
eabb dc 70       ldd (0x0070)
eabd d3 c7       addd (0x00C7)
eabf 8d 37       bsr [0xEAF8]
eac1 4d          tsta
eac2 2c 03       bge [0xEAC7]
eac4 cc 00 00    ldd 0x0000
eac7 83 4a 38    subd 0x4A38		Branch Target from eac2
eaca 25 02       bcs [0xEACE]
eacc 4f          clra
eacd 5f          clrb
eace c3 4a 38    addd 0x4A38		Branch Target from eaca
ead1 83 03 e8    subd 0x03E8
ead4 22 02       bhi [0xEAD8]
ead6 4f          clra
ead7 5f          clrb
ead8 c3 03 e8    addd 0x03E8		Branch Target from ead4
eadb dd 6c       std (0x006C)
eadd d6 6b       ldab (0x006B)
eadf 8d 0f       bsr [0xEAF0]
eae1 47          asra
eae2 56          rorb
eae3 47          asra
eae4 56          rorb
eae5 dd 72       std (0x0072)
eae7 39          rts