Enabled support for HIDDEN Flag
This commit is contained in:
parent
c43171c7d2
commit
97a145ac1f
|
@ -37,6 +37,7 @@ Adjusted order of comparisions to better match ans
|
||||||
Stack leak in stage2 forth found and corrected
|
Stack leak in stage2 forth found and corrected
|
||||||
Stage2 forth no longer attempts to parse carriage returns
|
Stage2 forth no longer attempts to parse carriage returns
|
||||||
Stage2 forth now will display and error and clear the stacks in the event of an undefined input
|
Stage2 forth now will display and error and clear the stacks in the event of an undefined input
|
||||||
|
Stage2 forth now respects the HIDDEN Flag
|
||||||
|
|
||||||
** Removed
|
** Removed
|
||||||
Removed need for sponge to be used to run webIDE
|
Removed need for sponge to be used to run webIDE
|
||||||
|
|
|
@ -174,7 +174,7 @@ Then we use our M0 Line macro assembler to convert our assembly into hex2 format
|
||||||
Then we need to assemble that hex into our desired program:
|
Then we need to assemble that hex into our desired program:
|
||||||
./bin/vm --rom roms/stage1_assembler-2 --tape_01 temp2 --tape_02 roms/forth --memory 48K
|
./bin/vm --rom roms/stage1_assembler-2 --tape_01 temp2 --tape_02 roms/forth --memory 48K
|
||||||
|
|
||||||
roms/forth should with the sha256sum of 17d8626f74004d39f38e7a69c8d30f16084ae5c191e3ad6a8292e5037447ab3e
|
roms/forth should with the sha256sum of 8b31c02b98d85bcc8049d3a56395abb8a1494d153be5536c528dbfd553889477
|
||||||
|
|
||||||
Our forth will first attempt to evaluate any code in tape_01 and then evaluate any code that the user types in
|
Our forth will first attempt to evaluate any code in tape_01 and then evaluate any code that the user types in
|
||||||
(Otherwise there is no way for a forth fan to have a chance against the lisp in terms of being able to bootstrap something cool)
|
(Otherwise there is no way for a forth fan to have a chance against the lisp in terms of being able to bootstrap something cool)
|
||||||
|
|
|
@ -1093,6 +1093,9 @@
|
||||||
POPR R1 R14 ; Get return value
|
POPR R1 R14 ; Get return value
|
||||||
POPR R0 R14 ; Restore FIND string pointer
|
POPR R0 R14 ; Restore FIND string pointer
|
||||||
POPR R3 R14 ; Restore Node pointer
|
POPR R3 R14 ; Restore Node pointer
|
||||||
|
LOAD R4 R3 8 ; Get Flags for Node
|
||||||
|
ANDI R4 R4 0x1 ; Mask all but HIDDEN
|
||||||
|
CMPSKIPI.NE R4 0 ; Ignore result if HIDDEN
|
||||||
JUMP.E R1 @Find_Done ; If find was successful
|
JUMP.E R1 @Find_Done ; If find was successful
|
||||||
LOAD R3 R3 0 ; Otherwise get next pointer
|
LOAD R3 R3 0 ; Otherwise get next pointer
|
||||||
JUMP.NZ R3 @Find_Loop ; If Not NULL keep looping
|
JUMP.NZ R3 @Find_Loop ; If Not NULL keep looping
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
8f465d3ec1cba00a7d024a1964e74bb6d241f86a73c77d95d8ceb10d09c8f7b9 roms/CAT
|
8f465d3ec1cba00a7d024a1964e74bb6d241f86a73c77d95d8ceb10d09c8f7b9 roms/CAT
|
||||||
59f0502748af32e3096e026a95e77216179cccfe803a05803317414643e2fcec roms/DEHEX
|
59f0502748af32e3096e026a95e77216179cccfe803a05803317414643e2fcec roms/DEHEX
|
||||||
17d8626f74004d39f38e7a69c8d30f16084ae5c191e3ad6a8292e5037447ab3e roms/forth
|
8b31c02b98d85bcc8049d3a56395abb8a1494d153be5536c528dbfd553889477 roms/forth
|
||||||
4c146297da8c672955698a82207295b28feb389c9856a2c6ea6a60ce7e84260a roms/lisp
|
4c146297da8c672955698a82207295b28feb389c9856a2c6ea6a60ce7e84260a roms/lisp
|
||||||
2b9727381aec15a504c0898189fbc2344209d8e04451e3fa5d743e08e38f64cf roms/M0
|
2b9727381aec15a504c0898189fbc2344209d8e04451e3fa5d743e08e38f64cf roms/M0
|
||||||
24a4d74eb2eb7a82e68335643855658b27b5a6c3b13db473539f3e08d6f26ceb roms/SET
|
24a4d74eb2eb7a82e68335643855658b27b5a6c3b13db473539f3e08d6f26ceb roms/SET
|
||||||
|
|
Loading…
Reference in New Issue