duskos

commit 0ecb7f0ea439ef4c6753bfd0193d895e45d160c3
parent a949b562d342bb6ace67f324a29e97dcee4291a8
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sun, 24 Jul 2022 12:08:03 -0400

i386: have mainloop feed from boot.fs

Diffstat:
M
fs/xcomp/i386.fs
 | 
17
+++--------------
M
fs/xcomp/pc/boot.fs
 | 
2
+-

2 files changed, 4 insertions(+), 15 deletions(-)
diff --git a/fs/xcomp/i386.fs b/fs/xcomp/i386.fs
@@ -268,24 +268,13 @@ L1 forward! ( skip1 )
 
 pc lblmainalias pc>addr !
   xwordlbl (s) abs>rel call,
-  6 c, ," Hello "
-  SI pspop,
-  bx bx xor,
-  bl si 0 d) mov, \ len
-  si inc,
-  SI pspush,
-  BX pspush,
-  xwordlbl rtype abs>rel call,
-  xwordlbl word abs>rel call,
-  xwordlbl dup abs>rel call,
-  xwordlbl 1+ abs>rel call,
-  xwordlbl swap abs>rel call,
-  xwordlbl c@ abs>rel call,
-  xwordlbl rtype abs>rel call,
+  12 c, ," Hello World!"
+pc ( loop )
   xwordlbl word abs>rel call,
   xwordlbl find abs>rel call,
   AX pspop,
   ax call,
+  ( pc ) abs>rel jmp,
 
 pc lblbootptr pc>addr !
 xbindict orgifydict
diff --git a/fs/xcomp/pc/boot.fs b/fs/xcomp/pc/boot.fs
@@ -1,2 +1,2 @@
-World! bye
+dup 1+ swap c@ rtype bye