projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** 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
*
* 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:
*
*
* 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
*
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
*
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
LDA ATM1
LDX XTM
IRS INIT
+ IRS INIT FOR FORTRAN COMPATIBILITY
JMP* INIT
*
*
JMP* INIT
*
*