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

Made JUMP-TO use 32bit absolute addresses

This commit is contained in:
Jeremiah Orians 2017-07-13 18:24:26 -04:00
parent 24c1db3ec3
commit e113458a62
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
stage3/inital_library.fs
View File

@ -196,13 +196,14 @@ CREATE BASE 10 ,
\ implemented in forth.s)
\ Assumes most significant byte is at lower address
: 2C, DUP 0xFF00 AND 8 RSHIFT C, 0xFF AND C, ;
\ Compiles an assembly-level jump to a location. Note that this isn't
\ future-proof, as if HERE gets past 30k or so 16 bits won't be large enough for
\ that jump. We may have to compile more than just a jump in the future in order
\ Compiles an assembly-level jump to a location.
\ 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. 12
\ bytes.
: JUMP-TO, HERE 0x3C C, 0x00 C, - 2C, ;
\ 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 , ;
\ Sets the action of the latest word
: DOES> ['] LATEST , ['] DOER! , 'DODOES JUMP-TO, ; IMMEDIATE
\ Sets the action of a certain word