KA10: Cleanup timer logic.

PDP10/ka10_pd.c

@@ -47,8 +47,6 @@
 #define PIA_FLG         07
 #define CLK_IRQ         010
 
-#define TMR_PD          3
-
 int pd_tps =            60;
 
 t_stat         pd_devio(uint32 dev, uint64 *data);
@@ -126,9 +124,6 @@ t_stat pd_devio(uint32 dev, uint64 *data)
 t_stat
 pd_srv(UNIT * uptr)
 {
-    int32 t;
-
-    t = sim_rtcn_calb (pd_tps, TMR_PD);
     sim_activate_after(uptr, 1000000/pd_tps);
     if (uptr->PIA_CH & PIA_FLG) {
         uptr->PIA_CH |= CLK_IRQ;
@@ -139,7 +134,6 @@ pd_srv(UNIT * uptr)
     return SCPE_OK;
 }
 
-
 const char *pd_description (DEVICE *dptr)
 {
     return "Paul DeCoriolis clock";

PDP10/kl10_fe.c

@@ -181,8 +181,6 @@
 #define ITS_DTEHNG     0412         /* Hangup/dialup */
 #endif
 
-#define TMR_RTC        2
-
 extern int32 tmxr_poll;
 t_stat dte_devio(uint32 dev, uint64 *data);
 t_addr dte_devirq(uint32 dev, t_addr addr);
@@ -1867,7 +1865,6 @@ t_stat dte_reset (DEVICE *dptr)
     dte_unit[2].STATUS = 0;
     dte_unit[3].STATUS = 0;
     cty_done = 0;
-    sim_rtcn_init_unit (&dte_unit[3], 1000, TMR_RTC);
     sim_activate(&dte_unit[3], 1000);
     sim_activate(&dte_unit[2], 1000);
     return SCPE_OK;
@@ -2019,7 +2016,7 @@ t_stat lp20_svc (UNIT *uptr)
             data1[1] |= 02 << 8;
             uptr->LPCNT = 0;
         }
-        data1[2] = 0110200; //0100220;
+        data1[2] = 0110200; 
         if (dte_queue(PRI_EMHDS+PRI_IND_FLG, PRI_EMLPT, 4, data1) == 0)
             sim_activate(uptr, 1000);
         uptr->LPST &= ~(HDSFLG);

PDP10/kx10_cpu.c

@@ -10072,11 +10072,6 @@ sim_brk_dflt = SWMASK ('E');
 sim_clock_precalibrate_commands = pdp10_clock_precalibrate_commands;
 sim_rtcn_init_unit (&cpu_unit[0], cpu_unit[0].wait, TMR_RTC);
 sim_activate(&cpu_unit[0], 10000);
-#if ITS
-if (QITS) {
-    sim_rtcn_init_unit (&cpu_unit[1], cpu_unit[1].wait, TMR_RTC);
-}
-#endif
 #if MPX_DEV
 mpx_enable = 0;
 #endif