source: buchla-68k/libsm/rindex.x