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

Now putting strings in an entirely seperate block of memory

This commit is contained in:
Jeremiah Orians 2016-10-31 22:35:12 -04:00
parent 4cae5c35fa
commit 2136cbc220
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
stage2/forth.s
View File

@ -49,6 +49,9 @@
:RETURN_BASE
'00040000'
:STRING_BASE
'00050000'
:PARAMETER_BASE
'00060000'
@ -799,6 +802,8 @@
:Word_Direct
COPY R1 R7 ; Using designated IO
FALSE R2 ; Starting at index 0
PUSHR R8 R15 ; Protect the HEAP
LOADR R8 @STRING_BASE ; Use the STRING_BASE instead
:Word_Start
FGETC ; Read a byte
@ -850,9 +855,11 @@
:Word_Done
PUSHR R8 R14 ; Push pointer to string on parameter stack
PUSHR R2 R14 ; Push number of bytes in length onto stack
CMPSKIPI.LE R2 0 ; If number of bytes is greater than 0
ADDUI R2 R2 1 ; Add a null to end of string
ADD R8 R8 R2 ; Update HEAP pointer
ADDUI R2 R2 4 ; Add a null to end of string
ANDI R2 R2 -4 ; Rounded up the next for or to Zero
ADD R8 R8 R2 ; Update pointer
STORER R8 @STRING_BASE ; Save its value
POPR R8 R15 ; Restore HEAP
RET R15
;; NUMBER