From b4e5f474773c22c8e613198f1d4a9ae60cd0e378 Mon Sep 17 00:00:00 2001
From: Bernhard Urban <lewurm@gmail.com>
Date: Fri, 4 Nov 2011 17:18:05 +0100
Subject: [PATCH] fourth lecture

---
 4vo.fs | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 4vo.fs

diff --git a/4vo.fs b/4vo.fs
new file mode 100644
index 0000000..dbde186
--- /dev/null
+++ b/4vo.fs
@@ -0,0 +1,37 @@
+\ 4. lecture
+
+: rr ( -- ) s" 4vo.fs" included ;
+: :r rr ; \ ghci style
+
+\ :noname \ ano-fkt
+
+\ oop example: mini-examp.fs ( @ /pub/anton ...) oder bernd paysan webseite
+
+\ live hax
+\ > hex
+\ > create foo
+\ > 5 ,
+\ > ' foo .
+\ > ' foo >body .
+\ > ' foo >body @ . 5 \ dazwischen steht das sogenannte `code field'
+
+\ gforth schmaes
+\ > here hex. \ (diese ausgabe)
+\ > : foo 5 + ;
+\ > here hex.
+\ > : bar foo ;
+\ > here hex.
+\ > (diese ausgabe) 80 dump
+\ > ' foo hex.
+\ > ' foo >body hex.
+\ > simple-see foo \ zwischencode \ ";s" aka "semis" aka "exit". wird fuer ';' kompiliert
+\ > simple-see bar
+\ addr von + in `simple-see foo' nehmen und
+\ > <addr> 16 dump
+\ \ und dann addressen dort nochmal dereferenzieren...
+\ > <addr> @ 80 discode
+
+\ \ besser: see-code
+
+
+\ oder: > see +
-- 
2.25.1