XQ6A (84)    ROUTINE (9.8)