From 97a145ac1f8179b31d87a2ee176d410f135a3373 Mon Sep 17 00:00:00 2001 From: Jeremiah Orians Date: Fri, 16 Jun 2017 18:08:33 -0400 Subject: [PATCH] Enabled support for HIDDEN Flag --- CHANGELOG.org | 1 + bootstrapping Steps.org | 2 +- stage2/forth.s | 3 +++ test/SHA256SUMS | 2 +- 4 files changed, 6 insertions(+), 2 deletions(-) diff --git a/CHANGELOG.org b/CHANGELOG.org index 3dcef2d..455534b 100644 --- a/CHANGELOG.org +++ b/CHANGELOG.org @@ -37,6 +37,7 @@ Adjusted order of comparisions to better match ans Stack leak in stage2 forth found and corrected 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 respects the HIDDEN Flag ** Removed Removed need for sponge to be used to run webIDE diff --git a/bootstrapping Steps.org b/bootstrapping Steps.org index 73707ce..c5aaa93 100644 --- a/bootstrapping Steps.org +++ b/bootstrapping Steps.org @@ -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: ./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 (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) diff --git a/stage2/forth.s b/stage2/forth.s index 1123a66..18e5196 100644 --- a/stage2/forth.s +++ b/stage2/forth.s @@ -1093,6 +1093,9 @@ POPR R1 R14 ; Get return value POPR R0 R14 ; Restore FIND string 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 LOAD R3 R3 0 ; Otherwise get next pointer JUMP.NZ R3 @Find_Loop ; If Not NULL keep looping diff --git a/test/SHA256SUMS b/test/SHA256SUMS index 2849737..a8f211e 100644 --- a/test/SHA256SUMS +++ b/test/SHA256SUMS @@ -1,6 +1,6 @@ 8f465d3ec1cba00a7d024a1964e74bb6d241f86a73c77d95d8ceb10d09c8f7b9 roms/CAT 59f0502748af32e3096e026a95e77216179cccfe803a05803317414643e2fcec roms/DEHEX -17d8626f74004d39f38e7a69c8d30f16084ae5c191e3ad6a8292e5037447ab3e roms/forth +8b31c02b98d85bcc8049d3a56395abb8a1494d153be5536c528dbfd553889477 roms/forth 4c146297da8c672955698a82207295b28feb389c9856a2c6ea6a60ce7e84260a roms/lisp 2b9727381aec15a504c0898189fbc2344209d8e04451e3fa5d743e08e38f64cf roms/M0 24a4d74eb2eb7a82e68335643855658b27b5a6c3b13db473539f3e08d6f26ceb roms/SET