summary refs log tree commit diff
path: root/make-hello.e
diff options
context:
space:
mode:
Diffstat (limited to 'make-hello.e')
-rw-r--r--make-hello.e23
1 files changed, 15 insertions, 8 deletions
diff --git a/make-hello.e b/make-hello.e
index 55f62d6..797c228 100644
--- a/make-hello.e
+++ b/make-hello.e
@@ -4,18 +4,25 @@
 
 : origin 0x08000000 ;
 
-heap hexdump latest @ .hex space here @ .hex newline
-latest @ @ word-heading latest @ @ hexdump
-latest @ word-heading latest @ hexdump
-: foo
-  latest @ word-heading latest @ hexdump
+: init-labels
+  heap hexdump
+  latest @ dup word-heading hexdump
   ~ s" labels" create
   8 allocate s" labels" variable
+  0 s" labels" find entry-to-execution-token execute !
   ;
-foo
-latest @ word-heading latest @ hexdump
+init-labels
+latest @ dup word-heading hexdump
+labels @ .hex newline
 
-s" labels" find .hex bye
+: new-label
+  s" frobboz" labels create-in
+  ;
+here @
+new-label
+latest @ dup word-heading hexdump
+labels @ .hex newline
+hexdump
 
 ~ ~~
 ~ ~~ ELF header