static void ctl_puthex ( const char * tag , u_long uval ) {
 register char * cp ;
 register const char * cq ;
 char buffer [ 200 ] ;
 cp = buffer ;
 cq = tag ;
 while ( * cq != '\0' ) * cp ++ = * cq ++ ;
 * cp ++ = '=' ;
 INSIST ( ( cp - buffer ) < ( int ) sizeof ( buffer ) ) ;
 snprintf ( cp , sizeof ( buffer ) - ( cp - buffer ) , "0x%lx" , uval ) ;
 cp += strlen ( cp ) ;
 ctl_putdata ( buffer , ( unsigned ) ( cp - buffer ) , 0 ) ;
 }
static void ctl_puthex ( const char * tag , u_long uval ) {
 register char * cp ;
 register const char * cq ;
 char buffer [ 200 ] ;
 cp = buffer ;
 cq = tag ;
 while ( * cq != '\0' ) * cp ++ = * cq ++ ;
 * cp ++ = '=' ;
 INSIST ( ( cp - buffer ) < ( int ) sizeof ( buffer ) ) ;
 snprintf ( cp , sizeof ( buffer ) - ( cp - buffer ) , "0x%lx" , uval ) ;
 cp += strlen ( cp ) ;
 ctl_putdata ( buffer , ( unsigned ) ( cp - buffer ) , 0 ) ;
 }