trap_retval ReqProg_go( void )
{
    prog_go_ret *ret;

    ret = GetOutPtr( 0 );
    ret->conditions = COND_TERMINATE;
    return( sizeof( *ret ) );
}

trap_retval ReqMachine_data( void )
{
    machine_data_req    *acc;
    machine_data_ret    *ret;
    unsigned_8          *data;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );
    data = GetOutPtr( sizeof( *ret ) );
    ret->cache_start = 0;
    ret->cache_end = ~(addr_off)0;
    *data = 0;
    if( IsSegSize32( acc->addr.segment ) ) {
        *data |= X86AC_BIG;
    }
    return( sizeof( *ret ) + sizeof( *data ) );
}

trap_retval ReqFile_run_cmd( void )
{
    file_run_cmd_ret *ret;

    ret = GetOutPtr( 0 );
    ret->err = 0;  //NYI: No error?
    return( sizeof( *ret ) );
}

static unsigned_16 AccReadUserKey()
{
    rd_key_return FAR *retblk;

    retblk = GetOutPtr( 0 );
    retblk->key = GtKey();
    return( sizeof( rd_key_return ) );
}

trap_retval ReqChecksum_mem( void )
{
    checksum_mem_ret    *ret;

    ret = GetOutPtr(0);
    ret->result = 0;
    return( sizeof( *ret ) );
}

trap_retval ReqFile_erase( void )
{
    file_erase_ret      *ret;

    ret = GetOutPtr( 0 );
    ret->err = 1;       //NYI:
    return( sizeof( *ret ) );
}

trap_retval ReqRunThread_info( void )
{
    run_thread_info_req *acc;
    run_thread_info_ret *ret;
    char                *header_txt;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );

    header_txt = GetOutPtr( sizeof( *ret ) );

    switch( acc->col )
    {
    case 0:
        ret->info = RUN_THREAD_INFO_TYPE_NAME;
        ret->width = 25;
        strcpy( header_txt, "ID   Name" );
        break;

    case 1:
        ret->info = RUN_THREAD_INFO_TYPE_EXTRA;
        ret->width = 21;
        strcpy( header_txt, "                Time" );
        break;

    case 2:
        ret->info = RUN_THREAD_INFO_TYPE_STATE;
        ret->width = 10;
        strcpy( header_txt, "State" );
        break;

    case 3:
        ret->info = RUN_THREAD_INFO_TYPE_CS_EIP;
        ret->width = 15;
        strcpy( header_txt, "cs:eip" );
        break;

    default:
        ret->info = RUN_THREAD_INFO_TYPE_NONE;
        ret->width = 0;
        *header_txt = 0;
        break;
    }

    return( sizeof( *ret ) + strlen( header_txt ) + 1 );
}

trap_retval ReqGet_next_alias( void )
{
    get_next_alias_ret  *ret;

    ret = GetOutPtr( 0 );
    ret->seg = 0;
    ret->alias = 0;
    return( sizeof( *ret ) );
}

trap_retval ReqFile_read( void )
{
    file_read_req       *acc;
    file_read_ret       *ret;
    int           retval;

    acc = GetInPtr( 0 );
    ret = GetOutPtr( 0 );
    retval = IORead( acc->handle, GetOutPtr( sizeof( *ret ) ),
                     acc->len );
    if( retval < 0 ) {
        ret->err = retval;
        retval = 0;
    } else {
        ret->err = 0;
    }
    return( sizeof( *ret ) + retval );
}