Subroutine e740

e740 a1 00       cmpa (X+0x00)
e742 22 fb       bhi [0xE73F]
e744 a0 00       suba (X+0x00)
e746 40          nega
e747 e6 01       ldab (X+0x01)
e749 3d          mul
e74a 04          lsrd
e74b 04          lsrd
e74c 04          lsrd
e74d 04          lsrd
e74e 43          coma
e74f 53          comb
e750 c3 00 01    addd 0x0001
e753 eb 02       addb (X+0x02)
e755 89 00       adca 0x00
e757 23 03       bls [0xE75C]
e759 cc 00 80    ldd 0x0080
e75c 83 00 80    subd 0x0080		Branch Target from e757
e75f 8b 00       adda 0x00
e761 26 04       bne [0xE767]
e763 c1 7f       cmpb 0x7F
e765 25 02       bcs [0xE769]
e767 c6 82       ldab 0x82		Branch Target from e761
e769 96 46       ldaa (0x0046)		Branch Target from e765 ; TPS
e76b 44          lsra
e76c 8b 01       adda 0x01
e76e 39          rts