ZISHVXD (1010)    ROUTINE (9.8)