XINDEX fixes. Adds routine A1AEPHS1