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