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

Ensured compliance with new stage0 assembler standard

This commit is contained in:
Jeremiah Orians 2017-08-04 21:05:33 -04:00
parent b9f6ecb0bc
commit 4c187f68b4
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.org
View File

@ -58,6 +58,7 @@ Updated checksums to reflect changes in stage2 Lisp
Added missing library reference form stage2 lisp High level prototype
Fixed bug in stage2 FORTH PRINT function
Updated changed stage2 lisp Checksums to match
Made stage3 Forth better comply with new stage0 encoding recommendation.
** Removed
the HERE and DP! are gone from ' now in stage3 FORTH

4
stage3/inital_library.fs
View File

@ -201,8 +201,8 @@ CREATE BASE 10 ,
\ We may have to compile more than just a jump in the future in order
\ for DOES> to work properly - we'd need to load the address into a register,
\ having the actual address nearby, and then use that coroutine jump thing.
\ CMPSKIP.E R0 R0, the address, LOADRU32 R0 -4, JSR_COROUTINE R0
: JUMP-TO, 0x09030200 , , 0x2E60FFFC , 0x0D010000 , ;
\ JUMP over the Address, the address, LOADRU32 R0 -4, JSR_COROUTINE R0
: JUMP-TO, 0x3C000008 , , 0x2E60FFFC , 0x0D010000 , ;
\ Sets the action of the latest word
: DOES> ['] LATEST , ['] DOER! , 'DODOES JUMP-TO, ; IMMEDIATE