s_gtime          8987 src/simh/scp.c     double s_gtime = sim_gtime ();                      /* get time now */
s_gtime          8989 src/simh/scp.c     if (bp->time_fired[spc] == s_gtime)                 /* already taken?  */
s_gtime          8991 src/simh/scp.c     bp->time_fired[spc] = s_gtime;                      /* remember match time */