From 4cbd8401f7d9cccdd5b8aff4e4e297b4292099d1 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Sat, 16 Nov 2019 20:59:37 -0800
Subject: [PATCH] SCP: Add option to display fractional unit capacity

---
 scp.c | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/scp.c b/scp.c
index 4ad1aa09..762e7eb6 100644
--- a/scp.c
+++ b/scp.c
@@ -5714,9 +5714,10 @@ return SCPE_OK;
 
 const char *sprint_capac (DEVICE *dptr, UNIT *uptr)
 {
-static char capac_buf[((CHAR_BIT * sizeof (t_value) * 4 + 3)/3) + 8];
+static char capac_buf[((CHAR_BIT * sizeof (t_value) * 4 + 3)/3) + 12];
 t_addr kval = (uptr->flags & UNIT_BINK)? 1024: 1000;
 t_addr mval;
+double remfrac;
 t_addr psize = uptr->capac;
 const char *scale, *width;
 
@@ -5731,18 +5732,28 @@ else
     width = "B";
 if ((psize < (kval * 10)) &&
     (0 != (psize % kval))) {
+    remfrac = 0.0;
     scale = "";
     }
 else if ((psize < (mval * 10)) &&
          (0 != (psize % mval))){
     scale = "K";
+    remfrac = ((double)(psize % kval))/kval;
     psize = psize / kval;
     }
 else {
     scale = "M";
+    remfrac = ((double)(psize % mval))/mval;
     psize = psize / mval;
     }
 sprint_val (capac_buf, (t_value) psize, 10, T_ADDR_W, PV_LEFT);
+if ((remfrac != 0.0) && (sim_switches & SWMASK ('R'))) {
+    char *plast_char = &capac_buf[strlen (capac_buf) - 1];
+    char save_char = *plast_char;
+
+    sprintf (plast_char, "%0.3f", remfrac);
+    *plast_char = save_char;
+    }
 sprintf (&capac_buf[strlen (capac_buf)], "%s%s", scale, width);
 return capac_buf;
 }