Subroutine eae8

eae8 cb 80       addb 0x80
eaea a6 00       ldaa (X+0x00)
eaec 3d          mul
eaed a3 01       subd (X+0x01)
eaef 39          rts