alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing up vocabulary layering for assembler.

Browse Source
This commit is contained in:
Brad Nelson
2022-10-21 21:05:14 -07:00
parent e69c1dba0c
commit cd1e0d9ee9
2 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
common/assembler.fs
View File

@ -15,11 +15,9 @@
( Lazy loaded assembler/disassembler framework ) ( Lazy loaded assembler/disassembler framework )
: assembler r| : assembler r|
also asm current @
also forth definitions
vocabulary assembler
also internals also internals
also assembler definitions also asm definitions
-1 1 rshift invert constant high-bit -1 1 rshift invert constant high-bit
: odd? ( n -- f ) 1 and ; : odd? ( n -- f ) 1 and ;
@ -111,7 +109,11 @@ variable istep
: disasm1 ( a -- a ) 0 istep ! ['] matchit for-ops istep @ 8 / + ; : disasm1 ( a -- a ) 0 istep ! ['] matchit for-ops istep @ 8 / + ;
: disasm ( a n -- ) for aft disasm1 then next drop ; : disasm ( a n -- ) for aft disasm1 then next drop ;
previous previous previous previous previous previous
also forth definitions
: assembler asm ;
previous
assembler assembler
current !
| evaluate ; | evaluate ;

12
esp32/xtensa-assembler.fs
View File

@ -15,10 +15,9 @@
( Lazy loaded xtensa assembler ) ( Lazy loaded xtensa assembler )
: xtensa-assembler r| : xtensa-assembler r|
also assembler current @
also forth definitions also assembler definitions
vocabulary xtensa-assembler vocabulary xtensa xtensa definitions
also xtensa-assembler definitions
16 names a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 16 names a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15
: nop ; : nop ;
@ -271,8 +270,11 @@ o l o l o o o o o l l o ssss tttt o o o o OP WITLB,
o o o l o o l l sr tttt o o o o OP WSR, o o o l o o l l sr tttt o o o o OP WSR,
l l l l o o l l sr tttt o o o o OP WUR, l l l l o o l l sr tttt o o o o OP WUR,
previous previous previous also forth definitions
: xtensa-assembler xtensa ;
previous previous
xtensa-assembler xtensa-assembler
current !
| evaluate ; | evaluate ;