From 5d50bfdfdcd9741ca902708d2a6481a1a64f0265 Mon Sep 17 00:00:00 2001 From: Mark Pizzolato Date: Tue, 20 Jun 2017 05:15:09 -0700 Subject: [PATCH] I1620: Add optional CPS polling to TTY input activities --- I1620/i1620_tty.c | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/I1620/i1620_tty.c b/I1620/i1620_tty.c index 5a488dc1..f27e8bc7 100644 --- a/I1620/i1620_tty.c +++ b/I1620/i1620_tty.c @@ -95,12 +95,13 @@ UNIT tty_unit[] = { }; REG tty_reg[] = { - { FLDATA (UNLOCK, tti_unlock, 0) }, - { FLDATA (FLAG, tti_flag, 0), REG_HRO }, - { DRDATA (COL, tto_col, 7) }, - { DRDATA (KTIME, tty_unit[UTTI].wait, 24), REG_NZ + PV_LEFT }, - { DRDATA (TTIME, tty_unit[UTTO].wait, 24), REG_NZ + PV_LEFT }, - { DRDATA (CPS, tty_unit[UTTO].DEFIO_CPS, 24), REG_NZ + PV_LEFT }, + { FLDATAD (UNLOCK, tti_unlock, 0, "keyboard unlocked flag") }, + { FLDATAD (FLAG, tti_flag, 0, "set flag on next input digit"), REG_HRO }, + { DRDATAD (COL, tto_col, 7, "current column") }, + { DRDATAD (KTIME, tty_unit[UTTI].wait, 24, "keyboard polling interval"), REG_NZ + PV_LEFT }, + { DRDATAD (TTIME, tty_unit[UTTO].wait, 24, "typewriter character delay"), REG_NZ + PV_LEFT }, + { DRDATAD (CPS, tty_unit[UTTO].DEFIO_CPS, 24, "Character Output Rate"), PV_LEFT }, + { DRDATAD (ICPS, tty_unit[UTTI].DEFIO_CPS, 24, "Character Input Rate"), PV_LEFT }, { NULL } }; @@ -308,7 +309,7 @@ int32 temp; int8 raw, c; const char *cp; -sim_activate (uptr, uptr->wait); /* continue poll */ +DEFIO_ACTIVATE (uptr); /* continue poll */ if ((temp = sim_poll_kbd ()) < SCPE_KFLAG) /* no char or error? */ return temp; if (tti_unlock == 0) /* expecting input? */