XUSRB1 (329)    ROUTINE (9.8)