projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ldc2: Cosmetic fixes and support for compiler orverride
[h316.git]
/
lib
/
hachti
/
src
/
stack.asm
diff --git
a/lib/hachti/src/stack.asm
b/lib/hachti/src/stack.asm
index b54074f0a3ee9272b5e40ee3b54347487aaffc5a..e169bc666625bc74d32754b362966ba13c39a873 100644
(file)
--- a/
lib/hachti/src/stack.asm
+++ b/
lib/hachti/src/stack.asm
@@
-44,8
+44,9
@@
*
* 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!!!)
+* DAC 0
+*
* PUSHING AND POPPING THE A-REGISTER FROM AND TO THE STACK:
*
* CALL S$PUSH VALUE IN A REGISTER IS PUSHED.
* 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
**** SYMBOL DECLARATIONS
*
SUBR STACK,SBUF JUST A LABEL FOR THE OBJECT TAPE
- SUBR S$INIT,INIT INITI
TALIS
ATION
+ SUBR S$INIT,INIT INITI
ALIZ
ATION
SUBR S$PUSH,PUSH SINGLE WORD PUSH
SUBR S$POP,POP SINGLE WORD POP
SUBR S$PUSM,PUSM MEMORY RANGE PUSH
SUBR S$PUSH,PUSH SINGLE WORD PUSH
SUBR S$POP,POP SINGLE WORD POP
SUBR S$PUSM,PUSM MEMORY RANGE PUSH
@@
-264,7
+265,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
+277,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
*
*