#ifdef ALLOW_GENTIM2D_CONTROL
CADJ STORE xx_gentim2d  = tapelev4, key = ilev_4
CADJ STORE xx_gentim2d0 = tapelev4, key = ilev_4
CADJ STORE xx_gentim2d1 = tapelev4, key = ilev_4
#endif