andrius
/
stage0
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added parameter stack operations

This commit is contained in:
Jeremiah Orians 2016-10-29 14:55:04 -04:00
parent c3e1b423ba
commit f0f13843a8
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
1 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
stage2/forth.s
View File

@ -591,11 +591,33 @@
:RSPStore_Text
"RSP!"
:RSPStore_Entry
&RSPFetch_Entry ; Pointer to RSP@
&ore_Text ; Pointer to Name
NOP ; Flags
POPR R15 R14 ; Replace Return stack pointer from parameter stack
JSR_COROUTINE R11 ; NEXT
&RSPFetch_Entry ; Pointer to RSP@
&ore_Text ; Pointer to Name
NOP ; Flags
POPR R15 R14 ; Replace Return stack pointer from parameter stack
JSR_COROUTINE R11 ; NEXT
;; Parameter stack operations
;; DSP@
:DSPFetch_Text
"DSP@"
:DSPFetch_Entry
&RSPStore_Entry ; Pointer to RSP!
&DSPFetch_Text ; Pointer to Name
NOP ; Flags
PUSHR R14 R14 ; Push current parameter pointer onto parameter stack
JSR_COROUTINE R11 ; NEXT
;; DSP!
:DSPStore_Text
"DSP!"
:DSPStore_Entry
&DSPFetch_Entry ; Pointer to DSP@
&DSPStore_Text ; Pointer to Name
NOP ; Flags
POPR R14 R14 ; Replace parameter stack pointer from parameter stack
JSR_COROUTINE R11 ; NEXT
:cold_start
;;