X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fhachti%2Fsrc%2Fstack.asm;h=a1d20d424d220164cf88d878f23a496146dd3f96;hb=23208140e9463411bf374e1cdba7b75e755d0860;hp=b54074f0a3ee9272b5e40ee3b54347487aaffc5a;hpb=eabafccaa9119c64c3964f25035a71579de18ddd;p=h316.git

diff --git a/lib/hachti/src/stack.asm b/lib/hachti/src/stack.asm
index b54074f..a1d20d4 100644
--- a/lib/hachti/src/stack.asm
+++ b/lib/hachti/src/stack.asm
@@ -44,7 +44,7 @@
 *       
 *       CALL    S$INIT
 *       DAC     SDATA   STACK DATA
-*       OCT     SSIZ    DATA SIZE (NOT STACK DEPTH!!!)
+*       DAC     SSIZ    DATA SIZE (NOT STACK DEPTH!!!)
 * 
 * PUSHING AND POPPING THE A-REGISTER FROM AND TO THE STACK:
 * 
@@ -264,7 +264,9 @@ INIT	DAC	**	INITIALIZE STACK
 	STA	SPTR,1	SAVE TO STACK POINTER
 	IRS	INIT
 * 
-	LDA*	INIT	LOAD DATA POOL SIZE
+	LDA*	INIT	LOAD DATA POOL SIZE POINTER
+	STA	PTR	DEREFERENCE POINTER
+	LDA*	PTR	LOAD DATA POOL SIZE
 	SUB	VARS	VARIABLE SIZE
 	STA	SSIZ,1	SAVE TO STACK DEPTH
 * 
@@ -274,6 +276,7 @@ INIT	DAC	**	INITIALIZE STACK
 	LDA	ATM1
 	LDX	XTM
 	IRS	INIT
+	IRS	INIT	FOR FORTRAN COMPATIBILITY
 	JMP*	INIT
 * 
 *