GMRADSP7 (808)    ROUTINE (9.8)