*** 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 b54074f0a3ee9272b5e40ee3b54347487aaffc5a..a1d20d424d220164cf88d878f23a496146dd3f96 100644 (file)
--- 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
 * 
 *