diff --git a/PDP10/ks10_dz.c b/PDP10/ks10_dz.c
index 6945e05..2705534 100644
--- a/PDP10/ks10_dz.c
+++ b/PDP10/ks10_dz.c
@@ -447,7 +447,6 @@ dz_checkirq(struct pdp_dib   *dibp)
     int        ln;
     int        stop;
     TMLN      *lp;
-    int        irq = 0;
 
     for (i = 0; i < NUM_DEVS_DZ; i++) {
          if ((dz_csr[i] & MSE) == 0)
diff --git a/PDP10/ks10_tcu.c b/PDP10/ks10_tcu.c
index c7a7853..3ceac50 100644
--- a/PDP10/ks10_tcu.c
+++ b/PDP10/ks10_tcu.c
@@ -81,7 +81,6 @@ tcu_write(DEVICE *dptr, t_addr addr, uint16 data, int32 access)
 int
 tcu_read(DEVICE *dptr, t_addr addr, uint16 *data, int32 access)
 {
-    struct pdp_dib   *dibp = (DIB *)dptr->ctxt;
     time_t            curtim;
     struct tm        *tptr;
 
diff --git a/PDP10/ks10_uba.c b/PDP10/ks10_uba.c
index 40dde72..0641171 100644
--- a/PDP10/ks10_uba.c
+++ b/PDP10/ks10_uba.c
@@ -79,11 +79,8 @@ uba_read(t_addr addr, int ctl, uint64 *data, int access)
            *data = (uint64)uba_map[ubm][addr & 077];
            return 0;
        } else if ((addr & 077) == 0) {
-           int     pih, pil;
            int     irqf = 0;
            *data = (uint64)uba_status[ubm];
-           pih = 0200 >> ((uba_status[ubm] >> 3) & 07);
-           pil = 0200 >> (uba_status[ubm] & 07);
            for (i = 0; i < 128; i++) {
                if ((uba_irq_ctlr[i] & VECT_CTR) == ctl)
                    irqf |= uba_irq_ctlr[i];
diff --git a/PDP10/kx10_ddc.c b/PDP10/kx10_ddc.c
index 977e681..1e01aac 100644
--- a/PDP10/kx10_ddc.c
+++ b/PDP10/kx10_ddc.c
@@ -246,7 +246,7 @@ t_stat ddc_svc (UNIT *uptr)
    uint64        word;
    DEVICE       *dptr;
    UNIT         *duptr;
-   t_stat        err;
+
    dptr = &ddc_dev;
    sec = (ddc_cmd[ddc_cmdptr] & DDC_SEC) >> 2;
    trk = (ddc_cmd[ddc_cmdptr] & DDC_TRK) >> 7;
@@ -275,7 +275,7 @@ t_stat ddc_svc (UNIT *uptr)
    if (uptr->POS == 0) {
        int da;
        da = ((trk * 13) + sec) * DDC10_WDS;
-       err = sim_fseek(duptr->fileref, da * sizeof(uint64), SEEK_SET);
+       (void)sim_fseek(duptr->fileref, da * sizeof(uint64), SEEK_SET);
        wc = sim_fread (&ddc_buf[0], sizeof(uint64),
                     DDC10_WDS, duptr->fileref);
        sim_debug(DEBUG_DETAIL, dptr, "DDC %d Read %d %d %d %d %d %o\n",
@@ -305,7 +305,7 @@ done:
        if (func == 2) {
           int da;
           da = ((trk * 13) + sec) * DDC10_WDS;
-          err = sim_fseek(duptr->fileref, da * sizeof(uint64), SEEK_SET);
+          (void)sim_fseek(duptr->fileref, da * sizeof(uint64), SEEK_SET);
           wc = sim_fwrite (&ddc_buf[0], sizeof(uint64),
                        DDC10_WDS, duptr->fileref);
           sim_debug(DEBUG_DETAIL, dptr, "DDC %d Write %d %d %d %d %d %o\n",
diff --git a/PDP10/kx10_dpy.c b/PDP10/kx10_dpy.c
index 45cab60..df06a92 100644
--- a/PDP10/kx10_dpy.c
+++ b/PDP10/kx10_dpy.c
@@ -363,6 +363,7 @@ static void dpy_joy_button(int which, int button, int state)
   }
 }
 
+#if ITS
 static int dpy_keyboard (SIM_KEY_EVENT *ev)
 {
     sim_debug(DEBUG_DATA, &dpy_dev, "Key %d %s\n",
@@ -373,6 +374,7 @@ static int dpy_keyboard (SIM_KEY_EVENT *ev)
     }
     return 0;
 }
+#endif
 
 /* Reset routine */
 
diff --git a/PDP10/kx10_dt.c b/PDP10/kx10_dt.c
index 26941f3..29874c4 100644
--- a/PDP10/kx10_dt.c
+++ b/PDP10/kx10_dt.c
@@ -545,7 +545,6 @@ t_stat dt_devio(uint32 dev, uint64 *data) {
 }
 
 void dt_getword(uint64 *data, int req) {
-    int dev = dt_dib.dev_num;
     clr_interrupt(DT_DEVNUM|4);
     if (dtsb & DTB_DATREQ) {
         dtsb |= DTB_MIS;
@@ -559,7 +558,6 @@ void dt_getword(uint64 *data, int req) {
 }
 
 void dt_putword(uint64 *data) {
-    int dev = dt_dib.dev_num;
     clr_interrupt(DT_DEVNUM|4);
     if (dtsb & DTB_DATREQ) {
         dtsb |= DTB_MIS;
diff --git a/PDP10/kx10_rp.c b/PDP10/kx10_rp.c
index ceee875..60ebd5e 100644
--- a/PDP10/kx10_rp.c
+++ b/PDP10/kx10_rp.c
@@ -1094,18 +1094,17 @@ rp_boot(int32 unit_num, DEVICE * rptr)
 {
     UNIT         *uptr = &rptr->units[unit_num];
     int           ctlr = GET_CNTRL_RH(uptr->flags);
-    int           dtype = GET_DTYPE(uptr->flags);
     uint16        *regs = (uint16 *)(uptr->up7);
     struct rh_if *rhc = &rp_rh[ctlr];
     DEVICE       *dptr = uptr->dptr;
     uint32        addr;
-    uint32        ptr = 0;
     uint64        word;
 #if !KS
     int           wc;
 #endif
 
 #if KS
+    int           dtype = GET_DTYPE(uptr->flags);
     int           da;
     t_stat        r;
     uint64        len;
@@ -1147,8 +1146,8 @@ rp_boot(int32 unit_num, DEVICE * rptr)
        regs[RPDC] =  (int32)((rp_buf[0][04] >> 24) << DC_V_CY);
        len = (int)(((rp_buf[0][05] & 077) * 4) & RMASK);
     }
-if (len == 0)
-    len = 4;
+    if (len == 0)
+        len = 4;
     /* Read len sectors into address 1000 */
     addr = 01000;
     for (; len > 0; len--) {
@@ -1176,6 +1175,8 @@ if (len == 0)
     rh_boot_unit = unit_num;
 #elif KL
     int           sect;
+    uint32        ptr = 0;
+
     /* KL does not support readin, so fake it by reading in sectors 4 to 7 */
     /* Possible in future find boot loader in FE file system */
     addr = (MEMSIZE - 512) & RMASK;
@@ -1189,6 +1190,8 @@ if (len == 0)
     }
     word = (MEMSIZE - 512) & RMASK;
 #else
+    uint32        ptr = 0;
+
     disk_read(uptr, &rp_buf[0][0], 0, RP_NUMWD);
     addr = rp_buf[0][ptr] & RMASK;
     wc = (rp_buf[0][ptr++] >> 18) & RMASK;
diff --git a/PDP10/kx10_tu.c b/PDP10/kx10_tu.c
index a49e0bc..3516727 100644
--- a/PDP10/kx10_tu.c
+++ b/PDP10/kx10_tu.c
@@ -416,7 +416,6 @@ tu_write(DEVICE *dptr, struct rh_if *rhc, int reg, uint32 data) {
 
 int
 tu_read(DEVICE *dptr, struct rh_if *rhc, int reg, uint32 *data) {
-    int            ctlr = GET_CNTRL_RH(dptr->units[0].flags);
     uint16        *regs = &rhc->regs[0];
     int            unit = regs[TUTC] & 07;
     UNIT          *uptr = &dptr->units[unit];
diff --git a/PDP10/pdp6_dsk.c b/PDP10/pdp6_dsk.c
index b4fa8b8..58160fe 100644
--- a/PDP10/pdp6_dsk.c
+++ b/PDP10/pdp6_dsk.c
@@ -263,7 +263,6 @@ dsk_svc (UNIT *uptr)
    int           wc;
    uint64        data;
    DEVICE       *dptr;
-   t_stat        err;
 
    dptr = &dsk_dev;
 
@@ -279,7 +278,7 @@ dsk_svc (UNIT *uptr)
            if (sec > DSK_SECS)
               sec -= DSK_SECS;
            da = (sec + (cyl * DSK_SECS)) * DSK_WDS;
-           err = sim_fseek(uptr->fileref, da * sizeof(uint64), SEEK_SET);
+           (void)sim_fseek(uptr->fileref, da * sizeof(uint64), SEEK_SET);
            (void)sim_fwrite (&dsk_buf[0], sizeof(uint64),
                         DSK_WDS, uptr->fileref);
            sim_debug(DEBUG_DETAIL, dptr, "DSK %d Write %d %d\n", ctlr, da, cyl);
@@ -337,7 +336,7 @@ dsk_svc (UNIT *uptr)
            if (sec > DSK_SECS)
               sec -= DSK_SECS;
            da = (sec + (cyl * DSK_SECS)) * DSK_WDS;
-           err = sim_fseek(uptr->fileref, da * sizeof(uint64), SEEK_SET);
+           (void)sim_fseek(uptr->fileref, da * sizeof(uint64), SEEK_SET);
            wc = sim_fread (&dsk_buf[0], sizeof(uint64),
                         DSK_WDS, uptr->fileref);
            sim_debug(DEBUG_DETAIL, dptr, "DSK %d Read %d %d\n", ctlr, da, cyl);
diff --git a/PDP10/pdp6_dtc.c b/PDP10/pdp6_dtc.c
index 93c1bb4..0f6f7dc 100644
--- a/PDP10/pdp6_dtc.c
+++ b/PDP10/pdp6_dtc.c
@@ -1281,8 +1281,6 @@ dtc_flush (UNIT* uptr)
 t_stat
 dtc_detach (UNIT* uptr)
 {
-    int32 u = uptr - dtc_dev.units;
-    
     if (!(uptr->flags & UNIT_ATT))
         return SCPE_OK;
     if (sim_is_active (uptr)) {