sub hdl_start {
    $_[0] = $_[2];
    $_[1] = $_[3];
}