Re: "A Forth OS In 46 Bytes"

On Tue, 27 May 2025 22:33:38 +1000
Alexis <flexibeast@gmail.com> wrote:

 
Thought this community might be interested in this:
 
"[Philippe] doesn’t take a strong stance on whether this should
technically qualify as a Forth implementation, given that the base
implementation lacks stacks, dictionaries, and the ability to define
words. However, it does have an outer and inner interpreter, the ability
to compile and execute code, and most importantly, 'the simplicity and
hacky feeling of Forth.'"
 
-- https://hackaday.com/2025/05/27/a-forth-os-in-46-bytes/
 

Well it's a bag of garbage^w^w^whighly suspect here on an x86 platform;
it hits various locations in memory with no idea what's there imo

[My dis-assembly]

16AD:0100 50             push         ax
16AD:0101 B8 8E 00       mov          ax,008E
16AD:0104 31 D8          xor          ax,bx
16AD:0106 E8 FF 00       call         0208
16AD:0109 17             pop          ss
16AD:010A 00 3C          add          [si],bh
16AD:010C 05 75 00       add          ax,0075
16AD:010F EA 50 00 3C 00 jmp          003C:0050

16AD:0114 74 01          jz           0117
16AD:0116 EB 02          jmp          011A

16AD:0118 E8 EE 00       call         0209
16AD:011B 05 05 88       add          ax,8805
16AD:011E EB 47          jmp          0167

16AD:0120 B8 E6 02       mov          ax,02E6
16AD:0123 00 D2          add          dl,dl
16AD:0125 31 14          xor          [si],dx
16AD:0127 CD E4          int          E4
16AD:0129 80 75 80 C3    xor          byte [di-80],C3
16AD:012D F4             hlt         

->          d 100 l30
16AD:0100 50 B8 8E 00-31 D8 E8 FF-00 17 00 3C-05 75 00 EA  P...1......<.u..
16AD:0110 50 00 3C 00-74 01 EB 02-E8 EE 00 05-05 88 EB 47  P.<.t..........G
16AD:0120 B8 E6 02 00-D2 31 14 CD-E4 80 75 80-C3 F4        .....1....u.....
->          q

[in hex]
50B88E0031D8E8FF0017003C057500EA50003C007401EB02E8EE00050588EB47
B8E60200D23114CDE4807580C3F4


--
Bah, and indeed Humbug.