*** empty log message ***

[h316.git] / lib / hachti / src / stack.asm

diff --git a/lib/hachti/src/stack.asm b/lib/hachti/src/stack.asm
index a1d20d424d220164cf88d878f23a496146dd3f96..e169bc666625bc74d32754b362966ba13c39a873 100644 (file)
--- 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