Ejemplo n.º 1
0
t_stat qty_attach( UNIT * unitp, char * cptr )
    {
    t_stat  r ;
    int a ;

    /*  switches:   A       auto-disconnect
     *              M       modem control
     */

    qty_mdm = qty_auto = 0;                             /* modem ctl off */
    r = tmxr_attach( &qty_desc, unitp, cptr ) ;         /* attach QTY */
    if ( r != SCPE_OK )
        {
        return ( r ) ;                                  /* error! */
        }
    if ( sim_switches & SWMASK('M') )                   /* modem control? */
        {
        qty_mdm = 1;
        sim_printf( "Modem control activated\n" ) ;
        if ( sim_switches & SWMASK ('A') )              /* autodisconnect? */
            {
            qty_auto = 1 ;
            sim_printf( "Auto disconnect activated\n" ) ;
            }
        }
    qty_polls = 0 ;
    for ( a = 0 ; a < QTY_MAX ; ++a )
        {
        /*  QTY lines are always enabled - force RX and TX to 'enabled' */
        qty_status[ a ] = (QTY_L_RXE | QTY_L_TXE) ;
        }
    sim_activate( unitp, tmxr_poll ) ;
    return ( SCPE_OK ) ;
    }   /*  end of 'qty_attach'  */
Ejemplo n.º 2
0
t_stat mux_attach (UNIT *uptr, char *cptr)
{
    t_stat r;

    r = tmxr_attach (&mux_desc, uptr, cptr);                /* attach */
    if (r != SCPE_OK)                                       /* error */
        return r;
    rtc_register (RTC_COC, mux_tps, &mux_unit[MUXC]);       /* register timer */
    return SCPE_OK;
}
Ejemplo n.º 3
0
t_stat ttx_attach (UNIT *uptr, CONST char *cptr)
{
t_stat r;

r = tmxr_attach (&ttx_desc, uptr, cptr);                /* attach */
if (r != SCPE_OK)                                       /* error */
    return r;
sim_activate (uptr, 0);                                 /* start poll at once */
return SCPE_OK;
}
Ejemplo n.º 4
0
t_stat ports_attach(UNIT *uptr, CONST char *cptr)
{
    t_stat r;

    sim_debug(TRACE_DBG, &ports_dev, "ports_attach()\n");

    tmxr_set_modem_control_passthru(&ports_desc);

    r = tmxr_attach(&ports_desc, uptr, cptr);
    if (r != SCPE_OK) {
        tmxr_clear_modem_control_passthru(&ports_desc);
        return r;
    }

    return SCPE_OK;
}
Ejemplo n.º 5
0
/* Attach master unit */
t_stat
dtc_attach(UNIT * uptr, CONST char *cptr)
{
    int                 i;
    t_stat              r;

    r = tmxr_attach(&dtc_desc, uptr, cptr);     /* attach */
    if (r != SCPE_OK)
        return r;               /* error */
    sim_activate(&dtc_unit[1], 100);    /* quick poll */
    for (i = 0; i < DTC_MLINES; i++) {
        dtc_lstatus[i] = BufNotReady;   /* Device not connected */
    }
    uptr->CMD = DTC_RDY;
    iostatus |= DTC_FLAG;
    return SCPE_OK;
}