From 8464b6bb3909e1f596824331ad9b2bb40a1e25bb Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Mon, 5 Feb 2018 09:46:38 -0800
Subject: [PATCH] SCP: Properly display disk sizes for small disks when capac
 is in sectors

---
 scp.c | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/scp.c b/scp.c
index 486c39ad..623a2957 100644
--- a/scp.c
+++ b/scp.c
@@ -4990,17 +4990,15 @@ const char *scale, *width;
 if (sim_switches & SWMASK ('B'))
     kval = 1024;
 mval = kval * kval;
-if (dptr->flags & DEV_SECTORS) {
-    kval = kval / 512;
-    mval = mval / 512;
-    }
+if (dptr->flags & DEV_SECTORS)
+    psize = psize * 512;
 if ((dptr->dwidth / dptr->aincr) > 8)
     width = "W";
 else 
     width = "B";
-if (uptr->capac < (kval * 10))
+if (psize < (kval * 10))
     scale = "";
-else if (uptr->capac < (mval * 10)) {
+else if (psize < (mval * 10)) {
     scale = "K";
     psize = psize / kval;
     }