*
* CALL S$INIT
* DAC SDATA STACK DATA
-* OCT SSIZ DATA SIZE (NOT STACK DEPTH!!!)
-*
+* 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.
**** 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
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
*
LDA ATM1
LDX XTM
IRS INIT
+ IRS INIT FOR FORTRAN COMPATIBILITY
JMP* INIT
*
*