ELF32 prologue, epilog, still using gcc/binutils

2 files changed, 22 insertions, 2 deletions

diff --git a/crenshaw/README b/crenshaw/README
index 1047944..0d1e58d 100644
--- a/crenshaw/README
+++ b/crenshaw/README
@@ -1,4 +1,13 @@
 fpc main.pas 
 ./main < test.prog > test.asm
-nasm test.asm -f bin -o test.bin
+nasm -f elf32 test.asm
+gcc -m32 -o test test.o
 ndisasm -b32 test.bin
+./test
+
+#gdb ./test
+#(gdb) set disassemble-next-line on 
+#(gdb) start
+#(gdb) si
+#(gdb) info registers
+
diff --git a/crenshaw/main.pas b/crenshaw/main.pas
index a5f42ae..eff412c 100644
--- a/crenshaw/main.pas
+++ b/crenshaw/main.pas
@@ -67,6 +67,10 @@ begin
 	WriteLn;
 end;
 
+procedure EmitLabel(s : string);
+begin;
+	WriteLn(s+':');
+end;
 
 procedure Term;
 begin
@@ -105,11 +109,18 @@ end;
 
 procedure Prologue;
 begin
-	EmitLn('[bits 32]');
+	WriteLn('[bits 32]');
+	WriteLn('section .text');
+	WriteLn('global main');
+	EmitLabel('main');
+	EmitLn('push ebp');
+	EmitLn('mov ebp, esp');
 end;
 
 procedure Epilogue;
 begin
+	EmitLn('leave');
+	EmitLn('ret');
 end;
 
 begin