ed/forth_bootslop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

wow

Browse Source
This commit is contained in:
Edward R. Gonzalez
2026-02-19 17:02:32 -05:00
parent 692917664f
commit 437fcde98d
4 changed files with 159 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
attempt_1/main.c
View File

@@ -1,5 +1,18 @@
// Fundamental Boolean and Null types for no-std environment
#define true 1
#define false 0
#define NULL ((void*)0)
#include "duffle.amd64.win32.h"
#include <stdio.h>
// Define Win32 VirtualAlloc and ExitProcess signature
WinAPI void* ms_virtual_alloc(void* addr, U8 size, U4 allocation_type, U4 protect) asm("VirtualAlloc");
WinAPI void ms_exit_process(U4 status) asm("ExitProcess");
// Win32 constants
#define MEM_COMMIT 0x00001000
#define MEM_RESERVE 0x00002000
#define PAGE_READWRITE 0x04
// Semantic Tags (The "Colors" of ColorForth)
#define TAG_DEFINE 0x0 // RED: New word definition
@@ -21,51 +34,57 @@ internal void scatter(U4 token) {
tape[tape_pos++] = token;
}
int main() {
// Minimal u64 to hex string helper for manual "printf" replacement
internal void print_hex(U8 val) {
static const char hex_chars[] = "0123456789ABCDEF";
UTF8 buf[19] = "0x0000000000000000";
for(S1 i = 17; i >= 2; --i) {
buf[i] = hex_chars[val & 0xF];
val >>= 4;
}
U4 written;
ms_write_console(ms_get_std_handle(u4_(-11)), buf, 18, &written, 0);
}
internal void print_str(const char* s) {
U4 len = 0;
while(s[len]) len++;
U4 written;
ms_write_console(ms_get_std_handle(u4_(-11)), (UTF8 const*)s, len, &written, 0);
}
void main() {
// 1. Initialize the Sourceless Memory Arena (Win32 VirtualAlloc)
// We'll allocate 64KB for our initial "tape drive".
tape = (U4*)VirtualAlloc(NULL, 64 * 1024, MEM_COMMIT | MEM_RESERVE, PAGE_READWRITE);
if (!tape) return 1;
tape = (U4*)ms_virtual_alloc(NULL, 64 * 1024, MEM_COMMIT | MEM_RESERVE, PAGE_READWRITE);
if (!tape) ms_exit_process(1);
// 2. "Bootstrap" the content (Preemptive Scatter)
// Here we manually define a word: :SQUARE ( x -- x*x )
// In a real editor, these are written directly by the UI to memory.
scatter(PACK_TOKEN(TAG_DEFINE, 0x51415245)); // ":SQUARE" (Encoded name or index)
scatter(PACK_TOKEN(TAG_DEFINE, 0x51415245)); // ":SQUARE"
scatter(PACK_TOKEN(TAG_CALL, 0x00000001)); // DUP
scatter(PACK_TOKEN(TAG_CALL, 0x00000002)); // *
scatter(PACK_TOKEN(TAG_CALL, 0x00000003)); // ; (Return)
// Now a comment
scatter(PACK_TOKEN(TAG_COMMENT, 0x4E4F5445)); // "NOTE"
// Now an execution block: 5 SQUARE
scatter(PACK_TOKEN(TAG_DATA, 5)); // The number 5
scatter(PACK_TOKEN(TAG_DATA, 5)); // 5
scatter(PACK_TOKEN(TAG_IMM, 0x51415245)); // EXECUTE SQUARE
// 3. The Visual "Interpreter" Loop
// This simulates the editor/decompiler reading the raw memory.
printf("--- Sourceless Tape Drive Visualization ---
");
print_str("--- Sourceless Tape Drive Visualization ---\n");
for (U8 i = 0; i < tape_pos; i++) {
U4 t = tape[i];
U4 tag = UNPACK_TAG(t);
U4 val = UNPACK_VAL(t);
switch (tag) {
case TAG_DEFINE: printf("[RED] Define : 0x%07X
", val); break;
case TAG_CALL: printf("[GREEN] Call : 0x%07X
", val); break;
case TAG_DATA: printf("[CYAN] Data : %u
", val); break;
case TAG_IMM: printf("[YELLOW] Execute: 0x%07X
", val); break;
case TAG_COMMENT: printf("[WHITE] Note : 0x%07X
", val); break;
default: printf("[ERROR] Unknown: 0x%08X
", t); break;
case TAG_DEFINE: print_str("[RED] Define : "); break;
case TAG_CALL: print_str("[GREEN] Call : "); break;
case TAG_DATA: print_str("[CYAN] Data : "); break;
case TAG_IMM: print_str("[YELLOW] Execute: "); break;
case TAG_COMMENT: print_str("[WHITE] Note : "); break;
default: print_str("[ERROR] Unknown: "); break;
}
print_hex(val);
print_str("\n");
}
return 0;
ms_exit_process(0);
}