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

Fixing minor mistakes

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

2
stage2/forth.s
View File

@ -1111,6 +1111,7 @@
&SEMICOLON_Entry ; Pointer to Semicolon
&Branch_Text ; Pointer to Name
NOP ; Flags
&Branch_Code ; Where assembly is Stored
:Branch_Code
LOAD R0 R13 0 ; Get Contents of NEXT
ADD R13 R13 R0 ; Update NEXT with offset
@ -1203,7 +1204,6 @@
&Interpret_Entry ; Pointer to INTERPRET
&CR_Text ; Pointer to Name
NOP ; Flags
&CR_Code ; Where assembly is Stored
:CR_Code
&DOCOL ; Use DOCOL
&LIT_Code ; Read next word