Sure, I've tracked it down to 0>
Code: Select all
-32767 0> . 0 ok
-32768 0> . -1 ok
Code: Select all
: 0> negate 0< ;
This bug came in when I converted to Forth-83, I copied the implementation from someone else's code.
I need to think how to fix this given the very limited space available, the core code must be less than 8K to fit in the ROM image.
There are a couple of ways.can you put down an asm program at $a000 and call "CALL $ a000"
Thank you.
Greeting
system.fs defines sys that allows you to call machine code just like from BASIC, you pass register values in using the variable sareg, sxreg and syreg and on return those variables contain the results.
assembler.fs allows you to define words that contain machine code
Code: Select all
include assembler
hex
code test
2a # lda, ffd2 jsr, next jmp,
end-code