From: hachti <hachti>
Date: Fri, 7 Nov 2008 20:20:10 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=0b9cec69ea7027c3f3d12f7578eb4ecb38d81500;p=h316.git

*** empty log message ***
---

diff --git a/lib/hachti/recipe/lock.recipe b/lib/hachti/recipe/lock.recipe
new file mode 100644
index 0000000..33bd465
--- /dev/null
+++ b/lib/hachti/recipe/lock.recipe
@@ -0,0 +1,2 @@
+
+obj/LIBLOK
diff --git a/lib/hachti/src/liblok.asm b/lib/hachti/src/liblok.asm
new file mode 100644
index 0000000..9ed1e70
--- /dev/null
+++ b/lib/hachti/src/liblok.asm
@@ -0,0 +1,14 @@
+* LIBLOCK
+* 
+* A symbol export that can be called by any program.
+* Is satisfied last in library order.
+* 
+	SUBR	LIBLOK,LOK
+	REL
+	ORG	0
+LOK	DAC	**
+	JMP*	LOK
+	END
+* 
+* 
+* 
\ No newline at end of file
diff --git a/lib/hachti/src/stack.asm b/lib/hachti/src/stack.asm
index a1d20d4..e169bc6 100644
--- a/lib/hachti/src/stack.asm
+++ b/lib/hachti/src/stack.asm
@@ -45,7 +45,8 @@
 *       CALL    S$INIT
 *       DAC     SDATA   STACK DATA
 *       DAC     SSIZ    DATA SIZE (NOT STACK DEPTH!!!)
-* 
+*       DAC     0
+*  
 * PUSHING AND POPPING THE A-REGISTER FROM AND TO THE STACK:
 * 
 *       CALL    S$PUSH  VALUE IN A REGISTER IS PUSHED.
@@ -107,7 +108,7 @@
 **** SYMBOL DECLARATIONS
 * 
 	SUBR	STACK,SBUF	JUST A LABEL FOR THE OBJECT TAPE
-	SUBR	S$INIT,INIT	INITITALISATION
+	SUBR	S$INIT,INIT	INITIALIZATION
 	SUBR	S$PUSH,PUSH	SINGLE WORD PUSH
 	SUBR	S$POP,POP	SINGLE WORD POP
 	SUBR	S$PUSM,PUSM	MEMORY RANGE PUSH