ZTMS0 (1015)    ROUTINE (9.8)