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

Continued bug fixing

This commit is contained in:
Jeremiah Orians 2016-10-30 11:30:13 -04:00
parent b58504806e
commit 0e06ed00df
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
stage2/forth.s
View File

@ -31,12 +31,10 @@
HALT
:RETURN_BASE
0x0004
0x0000
'00040000'
:PARAMETER_BASE
0x0006
0x0000
'00060000'
;; EXIT function
;; Pops Return stack
@ -619,7 +617,7 @@
CMPJUMPI.LE R15 R1 @RETURN_Done ; If Return stack is empty skip clearing
:Clear_Return
PUSHR R0 R15 ; Remove entry from Return Stack
POPRR R0 R15 ; Remove entry from Return Stack
CMPSKIP.LE R15 R1 ; While Return stack isn't empty
JUMP @Clear_Return ; Keep looping to clear it out
:RETURN_Done
@ -1043,7 +1041,7 @@
LOADUI R0 0x1100
FOPEN_READ
MOVE R7 R0
LOADUI R13 $Quit_Entry
LOADUI R13 $Quit_Code
JSR_COROUTINE R11 ; NEXT
:cold_done