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

Fixed exit and improved string storage in forth

This commit is contained in:
Jeremiah Orians 2016-11-01 18:08:47 -04:00
parent 2136cbc220
commit fc04be52cc
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
stage2/forth.s
View File

@ -58,7 +58,14 @@
;; EXIT function ;; EXIT function
;; Pops Return stack ;; Pops Return stack
;; And jumps to NEXT ;; And jumps to NEXT
:EXIT_Text
"EXIT"
:EXIT :EXIT
NOP ; No previous link elements
&EXIT_Text ; Pointer to name
NOP ; Flags
&EXIT_Code
:EXIT_Code
POPR R13 R15 POPR R13 R15
;; NEXT function ;; NEXT function
@ -86,7 +93,7 @@
:Drop_Text :Drop_Text
"DROP" "DROP"
:Drop_Entry :Drop_Entry
NOP ; No previous link elements &EXIT ; Pointer to EXIT
&Drop_Text ; Pointer to Name &Drop_Text ; Pointer to Name
NOP ; Flags NOP ; Flags
&Drop_Code ; Where assembly is Stored &Drop_Code ; Where assembly is Stored
@ -802,8 +809,7 @@
:Word_Direct :Word_Direct
COPY R1 R7 ; Using designated IO COPY R1 R7 ; Using designated IO
FALSE R2 ; Starting at index 0 FALSE R2 ; Starting at index 0
PUSHR R8 R15 ; Protect the HEAP LOADR R4 @STRING_BASE ; Use the STRING_BASE instead
LOADR R8 @STRING_BASE ; Use the STRING_BASE instead
:Word_Start :Word_Start
FGETC ; Read a byte FGETC ; Read a byte
@ -831,7 +837,7 @@
CMPSKIPI.NE R0 92 ; If comment CMPSKIPI.NE R0 92 ; If comment
JUMP @Word_Comment ; Purge it and be done JUMP @Word_Comment ; Purge it and be done
STOREX8 R0 R8 R2 ; Store byte onto HEAP STOREX8 R0 R4 R2 ; Store byte onto HEAP
ADDUI R2 R2 1 ; Increment index ADDUI R2 R2 1 ; Increment index
FGETC ; Read a byte FGETC ; Read a byte
CMPSKIPI.NE R0 13 ; IF CR CMPSKIPI.NE R0 13 ; IF CR
@ -853,13 +859,12 @@
JUMP @Word_Comment ; Otherwise keep looping JUMP @Word_Comment ; Otherwise keep looping
:Word_Done :Word_Done
PUSHR R8 R14 ; Push pointer to string on parameter stack PUSHR R4 R14 ; Push pointer to string on parameter stack
PUSHR R2 R14 ; Push number of bytes in length onto stack PUSHR R2 R14 ; Push number of bytes in length onto stack
ADDUI R2 R2 4 ; Add a null to end of string ADDUI R2 R2 4 ; Add a null to end of string
ANDI R2 R2 -4 ; Rounded up the next for or to Zero ANDI R2 R2 -4 ; Rounded up the next for or to Zero
ADD R8 R8 R2 ; Update pointer ADD R4 R4 R2 ; Update pointer
STORER R8 @STRING_BASE ; Save its value STORER R4 @STRING_BASE ; Save its value
POPR R8 R15 ; Restore HEAP
RET R15 RET R15
;; NUMBER ;; NUMBER
@ -1192,8 +1197,9 @@
JUMP.Z R1 @Interpret_Compile ; Its not immediate so I might have to compile JUMP.Z R1 @Interpret_Compile ; Its not immediate so I might have to compile
:Interpret_Execute :Interpret_Execute
LOAD R0 R0 12 ; Get where to jump ADDUI R12 R0 12 ; Point to codeword
JSR_COROUTINE R0 ; EXECUTE Directly LOAD R1 R0 12 ; Get where to jump
JSR_COROUTINE R1 ; EXECUTE Directly
:Interpret_Compile :Interpret_Compile
ANDI R1 R10 1 ; Check if we are in compile mode ANDI R1 R10 1 ; Check if we are in compile mode
@ -1225,7 +1231,7 @@
;; Prep TTY ;; Prep TTY
FALSE R7 ; Set TTY ID FALSE R7 ; Set TTY ID
LOADUI R13 $Quit_Code ; Prepare to return to QUIT LOOP LOADUI R13 $Cold_Start ; Prepare to return to QUIT LOOP
JSR_COROUTINE R11 ; NEXT JSR_COROUTINE R11 ; NEXT
;; Where our HEAP Starts ;; Where our HEAP Starts