From 0b88254955d9c62658132718f765fc82309af035 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sat, 23 Jan 2021 09:50:18 -0800
Subject: [PATCH] Fixing web

---
 ueforth/site/index.html        | 19 +++++++++++++++----
 ueforth/windows/windows_main.c |  8 ++++++--
 2 files changed, 21 insertions(+), 6 deletions(-)

diff --git a/ueforth/site/index.html b/ueforth/site/index.html
index 9198c10..bfa920d 100644
--- a/ueforth/site/index.html
+++ b/ueforth/site/index.html
@@ -48,7 +48,7 @@ A reduced cross-platform EForth version
 </p>
 <ul>
   <li><a href="static/ueforth-arduino-esp32.zip">ueforth-arduino-esp32.zip</a>
-     - <b>Arduino ESP32</b> Source Code <b>&larr; SVFIG & Forth2020 folks start here!</b></li>
+     - <b>ESP32 Arduino</b> Source Code <b>&larr; SVFIG & Forth2020 folks start here!</b></li>
   <li><a href="static/uEf32.exe">uEf32.exe</a> - Window 32-bit EXE µEforth</li>
   <li><a href="static/uEf64.exe">uEf64.exe</a> - Window 64-bit EXE µEforth</li>
   <li><a href="static/ueforth.linux">ueforth.linux</a> - Linux 64-bit Executable µEforth</li>
@@ -140,9 +140,9 @@ their use is supported in Forth by way of
 <code>Z"</code>, <code>Z&gt;S</code>, and <code>S&gt;Z</code>.
 </p>
 
-<h3>Arduino</h3>
+<h3>ESP32 Arduino</h3>
 
-<h4>Arduino Opcodes</h4>
+<h4>ESP32 Arduino Opcodes</h4>
 
 <p>
 Because Arduino builds a statically linked image for flashing into ESP32 devices,
@@ -325,7 +325,7 @@ SD_MMC.totalBytes ( -- n )
 SD_MMC.usedBytes ( -- n )
 </pre>
 
-<h4>Arduino ESP32 WebUI</h4>
+<h4>ESP32 WebUI</h4>
 
 <p>
 A terminal over the web can be activated.
@@ -340,6 +340,17 @@ webui ( network-z password-z -- )
 See <a href="https://github.com/flagxor/eforth/blob/main/ueforth/arduino/arduino_server.fs">arduino_server.fs</a>.
 </p>
 
+<h4>Autoexec.fs</h4>
+
+<p>
+The system will automatically attempt to mount SPIFFS filesystem at <code>/spiffs</code>.
+It will then at start attempt to load <code>/spiffs/autoexec.fs</code>
+</p>
+
+<p>
+See <a href="https://github.com/flagxor/eforth/blob/main/ueforth/arduino/autoboot.fs">autoboot.fs</a>.
+</p>
+
 <h3>Windows</h3>
 
 <h4>Windows Opcodes</h4>
diff --git a/ueforth/windows/windows_main.c b/ueforth/windows/windows_main.c
index 201b0ce..5293455 100644
--- a/ueforth/windows/windows_main.c
+++ b/ueforth/windows/windows_main.c
@@ -4,9 +4,13 @@
 
 #define CALLTYPE WINAPI
 #if defined(_M_X64)
-# define SSMOD_FUNC --sp; cell_t b, a = _mul128(*sp, sp[1], &b); tos = _div128(b, a, tos, sp)
+# define SSMOD_FUNC \
+  --sp; cell_t b, a = _mul128(*sp, sp[1], &b); b = _div128(b, a, tos, sp); \
+  if (*sp < 0) { *sp += tos; tos = b - 1; } else { tos = b; }
 #elif defined(_M_IX86)
-# define SSMOD_FUNC --sp; __int64 a = (__int64) *sp * (__int64) sp[1]; tos = _div64(a, tos, sp)
+# define SSMOD_FUNC \
+  --sp; __int64 a = (__int64) *sp * (__int64) sp[1]; cell_t b = _div64(a, tos, sp); \
+  if (*sp < 0) { *sp += tos; tos = b - 1; } else { tos = b; }
 #endif
 
 #include "common/opcodes.h"