Subroutine e69d

e69d a1 00       cmpa (X+0x00)
e69f 22 fb       bhi [0xE69C]
e6a1 a0 00       suba (X+0x00)
e6a3 40          nega
e6a4 e6 01       ldab (X+0x01)
e6a6 3d          mul
e6a7 04          lsrd
e6a8 04          lsrd
e6a9 04          lsrd
e6aa 04          lsrd
e6ab 43          coma
e6ac 53          comb
e6ad c3 00 01    addd 0x0001
e6b0 eb 02       addb (X+0x02)
e6b2 89 00       adca 0x00
e6b4 23 03       bls [0xE6B9]
e6b6 cc 00 80    ldd 0x0080
e6b9 83 00 80    subd 0x0080		Branch Target from e6b4
e6bc 8b 00       adda 0x00
e6be 26 04       bne [0xE6C4]
e6c0 c1 7f       cmpb 0x7F
e6c2 25 02       bcs [0xE6C6]
e6c4 c6 82       ldab 0x82		Branch Target from e6be
e6c6 96 46       ldaa (0x0046)		Branch Target from e6c2 ; TPS
e6c8 44          lsra
e6c9 8b 01       adda 0x01
e6cb 39          rts