diff --git a/3B2/3b2_400_cpu.c b/3B2/3b2_400_cpu.c
index 35c02d7a..e64e65d2 100644
--- a/3B2/3b2_400_cpu.c
+++ b/3B2/3b2_400_cpu.c
@@ -882,6 +882,7 @@ t_stat fprint_sym_m(FILE *of, t_addr addr, t_value *val)
     mnemonic *mn;
     char reg_name[8];
 
+    desc = 0;
     mn = NULL;
     vp = 0;
     etype = -1;
diff --git a/3B2/3b2_400_mau.c b/3B2/3b2_400_mau.c
index 9c22ee61..dfefc630 100644
--- a/3B2/3b2_400_mau.c
+++ b/3B2/3b2_400_mau.c
@@ -1157,7 +1157,8 @@ static DFP round_pack_dfp(t_bool sign, int16 exp, t_uint64 frac,
         }
     } else {
         frac = (frac + round_increment) >> 11;
-        frac &= ~(t_uint64)(!(round_bits ^ 0x200));
+        lsb = !((t_bool)(round_bits ^ 0x200));
+        frac &= ~((t_uint64)lsb);
     }
 
     return PACK_DFP(sign, exp, frac);
@@ -1173,11 +1174,9 @@ static void round_pack_xfp(t_bool sign, int32 exp,
                            t_uint64 frac_a, t_uint64 frac_b,
                            RM rounding_mode, XFP *result)
 {
-    uint8 round_nearest_even, is_tiny;
+    uint8 is_tiny;
     t_int64 round_mask;
 
-    round_nearest_even = (rounding_mode == ROUND_NEAREST);
-
     if (0x7ffd <= (uint32)(exp - 1)) {
         if (0x7ffe < exp) {
             round_mask = 0;
@@ -2684,7 +2683,7 @@ static void xfp_sqrt(XFP *a, XFP *result, RM rounding_mode)
 
 static void xfp_remainder(XFP *a, XFP *b, XFP *result, RM rounding_mode)
 {
-    uint32 a_sign, b_sign, r_sign;
+    uint32 a_sign, r_sign;
     int32 a_exp, b_exp, exp_diff;
     t_uint64 a_frac_0, a_frac_1, b_frac;
     t_uint64 q, term_0, term_1, alt_a_frac_0, alt_a_frac_1;
@@ -2692,7 +2691,6 @@ static void xfp_remainder(XFP *a, XFP *b, XFP *result, RM rounding_mode)
     a_sign = XFP_SIGN(a);
     a_exp = XFP_EXP(a);
     a_frac_0 = XFP_FRAC(a);
-    b_sign = XFP_SIGN(b);
     b_exp = XFP_EXP(b);
     b_frac = XFP_FRAC(b);
 
diff --git a/3B2/3b2_ctc.c b/3B2/3b2_ctc.c
index ffabd7f3..b6f4b3c8 100644
--- a/3B2/3b2_ctc.c
+++ b/3B2/3b2_ctc.c
@@ -272,6 +272,7 @@ static void ctc_cmd(uint8 cid,
 
     uint32 lba;   /* Logical Block Address */
 
+    maxpass = 0;
     dev = rqe->subdevice & 1;  /* Tape or Floppy device */
 
     capp_data[7] = rqe->opcode;
diff --git a/3B2/3b2_ports.c b/3B2/3b2_ports.c
index 10fbe8f6..f54a87ba 100644
--- a/3B2/3b2_ports.c
+++ b/3B2/3b2_ports.c
@@ -693,7 +693,7 @@ t_stat ports_cio_svc(UNIT *uptr)
 
 t_stat ports_rcv_svc(UNIT *uptr)
 {
-    uint8 cid, subdev;
+    uint8 cid;
     int32 temp, ln;
     char c;
     cio_entry rentry = {0};
@@ -714,7 +714,6 @@ t_stat ports_rcv_svc(UNIT *uptr)
 
     for (ln = 0; ln < ports_desc.lines; ln++) {
         cid = LCID(ln);
-        subdev = LPORT(ln);
 
         if (!ports_ldsc[ln].conn && ports_state[ln].conn) {
             ports_update_conn(ln);