I1620: Assure consistency of 1DIG/2DIG setting
This commit is contained in:
parent
8baac06f7f
commit
fed2f126b1
1 changed files with 12 additions and 2 deletions
|
@ -80,6 +80,7 @@ t_stat tti_svc (UNIT *uptr);
|
||||||
t_stat tto_svc (UNIT *uptr);
|
t_stat tto_svc (UNIT *uptr);
|
||||||
t_stat tty_reset (DEVICE *dptr);
|
t_stat tty_reset (DEVICE *dptr);
|
||||||
t_stat tty_set_fixtabs (UNIT *uptr, int32 val, CONST char *cptr, void *desc);
|
t_stat tty_set_fixtabs (UNIT *uptr, int32 val, CONST char *cptr, void *desc);
|
||||||
|
t_stat tty_set_12digit (UNIT *uptr, int32 val, CONST char *cptr, void *desc);
|
||||||
|
|
||||||
/* TTY data structures
|
/* TTY data structures
|
||||||
|
|
||||||
|
@ -111,8 +112,8 @@ MTAB tty_mod[] = {
|
||||||
&tty_set_fixtabs, NULL, NULL },
|
&tty_set_fixtabs, NULL, NULL },
|
||||||
{ MTAB_XTD|MTAB_VDV, 8, NULL, "DEFAULTTABS",
|
{ MTAB_XTD|MTAB_VDV, 8, NULL, "DEFAULTTABS",
|
||||||
&tty_set_fixtabs, NULL, NULL },
|
&tty_set_fixtabs, NULL, NULL },
|
||||||
{ UF_1DIG, UF_1DIG, "combined digits and flags", "1DIGIT", NULL },
|
{ UF_1DIG, UF_1DIG, "combined digits and flags", "1DIGIT", &tty_set_12digit },
|
||||||
{ UF_1DIG, 0 , "separate digits and flags", "2DIGIT", NULL },
|
{ UF_1DIG, 0 , "separate digits and flags", "2DIGIT", &tty_set_12digit },
|
||||||
{ 0 }
|
{ 0 }
|
||||||
};
|
};
|
||||||
|
|
||||||
|
@ -516,3 +517,12 @@ for (i = 0; i < TTO_COLMAX; i++) {
|
||||||
}
|
}
|
||||||
return SCPE_OK;
|
return SCPE_OK;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Assure consistency of 1DIG/2DIG setting */
|
||||||
|
|
||||||
|
t_stat tty_set_12digit (UNIT *uptr, int32 val, CONST char *cptr, void *desc)
|
||||||
|
{
|
||||||
|
tty_unit[UTTI].flags = (tty_unit[UTTI].flags & ~UF_1DIG) | val;
|
||||||
|
tty_unit[UTTO].flags = (tty_unit[UTTO].flags & ~UF_1DIG) | val;
|
||||||
|
return SCPE_OK;
|
||||||
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue