Migrating scp and library global variables to be declared as extern in the appropriate library include file and remove repetitive declarations in referencing modules.

PDP8/pdp8_clk.c

@@ -44,8 +44,6 @@ extern int32 int_req, int_enable, dev_done, stop_inst;
 int32 clk_tps = 60;                                     /* ticks/second */
 int32 tmxr_poll = 16000;                                /* term mux poll */
 
-extern int32 sim_is_running;
-
 int32 clk (int32 IR, int32 AC);
 t_stat clk_svc (UNIT *uptr);
 t_stat clk_reset (DEVICE *dptr);

PDP8/pdp8_cpu.c

@@ -240,13 +240,6 @@ int32 hst_p = 0;                                        /* history pointer */
 int32 hst_lnt = 0;                                      /* history length */
 InstHistory *hst = NULL;                                /* instruction history */
 
-extern int32 sim_interval;
-extern int32 sim_int_char;
-extern uint32 sim_brk_types, sim_brk_dflt, sim_brk_summ; /* breakpoint info */
-extern DEVICE *sim_devices[];
-extern FILE *sim_log;
-extern t_bool sim_idle_enab;
-
 t_stat cpu_ex (t_value *vptr, t_addr addr, UNIT *uptr, int32 sw);
 t_stat cpu_dep (t_value val, t_addr addr, UNIT *uptr, int32 sw);
 t_stat cpu_reset (DEVICE *dptr);
@@ -1543,8 +1536,6 @@ char *cptr = (char *) desc;
 t_stat r;
 t_value sim_eval;
 InstHistory *h;
-extern t_stat fprint_sym (FILE *ofile, t_addr addr, t_value *val,
-    UNIT *uptr, int32 sw);
 
 if (hst_lnt == 0)                                       /* enabled? */
     return SCPE_NOFNC;

PDP8/pdp8_ct.c

@@ -138,7 +138,6 @@
 
 extern int32 int_req, stop_inst;
 extern UNIT cpu_unit;
-extern FILE *sim_deb;
 
 uint32 ct_sra = 0;                                      /* status reg A */
 uint32 ct_srb = 0;                                      /* status reg B */

PDP8/pdp8_df.c

@@ -335,7 +335,7 @@ static const uint16 dm4_rom[] = {
 t_stat df_boot (int32 unitno, DEVICE *dptr)
 {
 size_t i;
-extern int32 sim_switches, saved_PC;
+extern int32 saved_PC;
 
 if (sim_switches & SWMASK ('D')) {
     for (i = 0; i < DM4_LEN; i = i + 2)

PDP8/pdp8_dt.c

@@ -265,8 +265,6 @@
 extern uint16 M[];
 extern int32 int_req;
 extern UNIT cpu_unit;
-extern int32 sim_switches;
-extern FILE *sim_deb;
 
 int32 dtsa = 0;                                         /* status A */
 int32 dtsb = 0;                                         /* status B */
@@ -293,7 +291,6 @@ void dt_seterr (UNIT *uptr, int32 e);
 int32 dt_comobv (int32 val);
 int32 dt_csum (UNIT *uptr, int32 blk);
 int32 dt_gethdr (UNIT *uptr, int32 blk, int32 relpos, int32 dir);
-extern int32 sim_is_running;
 
 /* DT data structures
 

PDP8/pdp8_fpp.c

@@ -96,8 +96,6 @@
 #include "pdp8_defs.h"
 
 extern int32 int_req;
-extern int32 sim_switches;
-extern int32 sim_interval;
 extern uint16 M[];
 extern int32 stop_inst;
 extern UNIT cpu_unit;

PDP8/pdp8_rf.c

@@ -399,7 +399,7 @@ static const uint16 dm4_rom[] = {
 t_stat rf_boot (int32 unitno, DEVICE *dptr)
 {
 size_t i;
-extern int32 sim_switches, saved_PC;
+extern int32 saved_PC;
 
 if (rf_dib.dev != DEV_RF)                               /* only std devno */
     return STOP_NOTSTD;

PDP8/pdp8_sys.c

@@ -65,7 +65,6 @@ extern DEVICE mt_dev, ct_dev;
 extern DEVICE ttix_dev, ttox_dev;
 extern REG cpu_reg[];
 extern uint16 M[];
-extern int32 sim_switches;
 
 t_stat fprint_sym_fpp (FILE *of, t_value *val);
 t_stat parse_sym_fpp (char *cptr, t_value *val);

PDP8/pdp8_td.c

@@ -208,8 +208,6 @@ int32 td_set_mtk (int32 code, int32 u, int32 k);
 t_stat td_show_pos (FILE *st, UNIT *uptr, int32 val, void *desc);
 
 extern uint16 M[];
-extern int32 sim_switches;
-extern int32 sim_is_running;
 
 /* TD data structures
 

PDP8/pdp8_tt.c

@@ -45,7 +45,7 @@
 #include <ctype.h>
 
 extern int32 int_req, int_enable, dev_done, stop_inst;
-extern int32 tmxr_poll, sim_is_running;
+extern int32 tmxr_poll;
 
 int32 tti (int32 IR, int32 AC);
 int32 tto (int32 IR, int32 AC);

PDP8/pdp8_ttx.c

@@ -61,7 +61,7 @@
 #define TTX_GETLN(x)    (((x) >> 4) & TTX_MASK)
 
 extern int32 int_req, int_enable, dev_done, stop_inst;
-extern int32 tmxr_poll, sim_is_running;
+extern int32 tmxr_poll;
 
 uint8 ttix_buf[TTX_LINES] = { 0 };                      /* input buffers */
 uint8 ttox_buf[TTX_LINES] = { 0 };                      /* output buffers */