Ensured compliance with new stage0 assembler standard
This commit is contained in:
parent
b9f6ecb0bc
commit
4c187f68b4
|
@ -58,6 +58,7 @@ Updated checksums to reflect changes in stage2 Lisp
|
||||||
Added missing library reference form stage2 lisp High level prototype
|
Added missing library reference form stage2 lisp High level prototype
|
||||||
Fixed bug in stage2 FORTH PRINT function
|
Fixed bug in stage2 FORTH PRINT function
|
||||||
Updated changed stage2 lisp Checksums to match
|
Updated changed stage2 lisp Checksums to match
|
||||||
|
Made stage3 Forth better comply with new stage0 encoding recommendation.
|
||||||
|
|
||||||
** Removed
|
** Removed
|
||||||
the HERE and DP! are gone from ' now in stage3 FORTH
|
the HERE and DP! are gone from ' now in stage3 FORTH
|
||||||
|
|
|
@ -201,8 +201,8 @@ CREATE BASE 10 ,
|
||||||
\ We may have to compile more than just a jump in the future in order
|
\ 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,
|
\ 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.
|
\ 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 over the Address, the address, LOADRU32 R0 -4, JSR_COROUTINE R0
|
||||||
: JUMP-TO, 0x09030200 , , 0x2E60FFFC , 0x0D010000 , ;
|
: JUMP-TO, 0x3C000008 , , 0x2E60FFFC , 0x0D010000 , ;
|
||||||
|
|
||||||
\ Sets the action of the latest word
|
\ Sets the action of the latest word
|
||||||
: DOES> ['] LATEST , ['] DOER! , 'DODOES JUMP-TO, ; IMMEDIATE
|
: DOES> ['] LATEST , ['] DOER! , 'DODOES JUMP-TO, ; IMMEDIATE
|
||||||
|
|
Loading…
Reference in New Issue