alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing web

Browse Source
This commit is contained in:
Brad Nelson
2021-01-23 09:50:18 -08:00
parent 5cbc36a889
commit 0b88254955
2 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
ueforth/site/index.html
View File

@ -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>

8
ueforth/windows/windows_main.c
View File

@ -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"