mirror of
https://github.com/simh/simh.git
synced 2026-01-25 19:56:25 +00:00
IBM1130: Assure consistency of 1DIG/2DIG setting
This commit is contained in:
committed by
Mark Pizzolato
parent
e25a45ffe3
commit
3824537271
@@ -80,6 +80,7 @@ t_stat tti_svc (UNIT *uptr);
|
||||
t_stat tto_svc (UNIT *uptr);
|
||||
t_stat tty_reset (DEVICE *dptr);
|
||||
t_stat tty_set_fixtabs (UNIT *uptr, int32 val, char *cptr, void *desc);
|
||||
t_stat tty_set_12digit (UNIT *uptr, int32 val, char *cptr, void *desc);
|
||||
|
||||
/* TTY data structures
|
||||
|
||||
@@ -111,8 +112,8 @@ MTAB tty_mod[] = {
|
||||
&tty_set_fixtabs, NULL, NULL },
|
||||
{ MTAB_XTD|MTAB_VDV, 8, NULL, "DEFAULTTABS",
|
||||
&tty_set_fixtabs, NULL, NULL },
|
||||
{ UF_1DIG, UF_1DIG, "combined digits and flags", "1DIGIT", NULL },
|
||||
{ UF_1DIG, 0 , "separate digits and flags", "2DIGIT", NULL },
|
||||
{ UF_1DIG, UF_1DIG, "combined digits and flags", "1DIGIT", &tty_set_12digit },
|
||||
{ UF_1DIG, 0 , "separate digits and flags", "2DIGIT", &tty_set_12digit },
|
||||
{ 0 }
|
||||
};
|
||||
|
||||
@@ -516,3 +517,12 @@ for (i = 0; i < TTO_COLMAX; i++) {
|
||||
}
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
/* Assure consistency of 1DIG/2DIG setting */
|
||||
|
||||
t_stat tty_set_12digit (UNIT *uptr, int32 val, 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;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user