howerd / colorforth Goto Github PK

The word keyboard can be found in several places in the code, but it doesn't work.
It must be replaced with keypad.

Here is where we can find it in cf2023Ref.img_2023Mar09_143001.f

Line 1410: : ok show black screen relay traffic keyboard ;
Line 1411: : k show black screen relay keyboard ;
Line 1842: : ok show blue screen text regs keyboard ;
Line 1922: : ok show black screen text green return r r. blue r. r. white r. r. green r. r. drop stack keyboard ; reset ok
Line 2158: : ok show red screen text regs keyboard ;
Line 2976: #296 box #0 #0 at lines keyboard ;
Line 3003: : ok c cls act #0 pos ! show ch act $00 #650 at $00202020 color #1024 #768 box keyboard ;
Line 3190: : ok c show keyboard ;

Thank you for developing colorForth!

I found strange drop doesn't work in colorForth.
It response with drop? when I try it in "interpretation" mode.

When I add it in page 72 and load it works well.
We can probably fix this in next release.

Hi,

I think there is an error regarding the Shannon-Fano encoding of the word 2drop (i.e. two_drop_), in the data defined under ForthNamesROM from the assembly code.

Here's the affected line of code:

    dd 0xD5833620   ; 2drop     two_drop_

Among others, see line 6584 from cf2019.nasm.

That should be the encoding for 2dup, which incidentally is defined on the line right above.

I believe the correct encoding for 2drop should be 0xD5804F10.

I could notice the problem in nasm source files, and PDF listings, from versions cf2019 and cf2022_Issue_2022Apr08. While I didn't look at the content from other archives, I suspect it might affect all versions.

I hope I got this right!

Thanks for the amazing work ❤️

Hello,

I tried, in colorForth cf2019, to implement the words for loops, from forth group but it doesn't work:

100 FOR I . NEXT
counts down to one.

100 FOR I . -NEXT

Counts down to zero.

100 - DUP - FOR I OVER + - . NEXT DROP

counts up from 0 to 99

100 - DUP - FOR I OVER + - . -NEXT DROP

includes 100

100 - DUP - FOR I OVER + NEGATE . NEXT DROP

starts with 1 to 100

: TEST 100 FOR I . NEXT ;

but finnally these words works :

: - negate ;
: countup dup for i - over + swap next ;
: countdown for i next ;
: contdown0 for i -next ;

Thanks in advance !

I managed to run your latest cf2023 from 27, March 2023 on the latest version of Bochs 2.7.

Here is a downloads link: https://forexsb.com/downloads/cf2023-bochs27.zip

Changes:

• replaced bochs.exe, BIOS-bochs-latest , and VGABIOS-lgpl-latest files with the ones from Bochs v2.7.
• modified cf2023.bxrc - cpu, cpuid, and keyboard parameters as follows:

cpu: model=p4_willamette, count=1, ips=50000000, reset_on_triple_fault=1, ignore_bad_msrs=1, msrs="msrs.def", cpuid_limit_winnt=0
cpuid: x86_64=1, mmx=1, sep=1, simd=sse4_2, apic=xapic, aes=1, movbe=1, xsave=1
cpuid: family=6, model=0x1a, stepping=5
keyboard: type=mf, serial_delay=250, paste_delay=100000, keymap=, user_shortcut=

This configuration runs well on my Windows10 machine.

Hello

How I coud insert (with colors) in colorforth cf2019 version 2021 aug 15, a fibonacci word from disccution :
http://www.strangegizmo.com/forth/ColorForth/msg00809.html or http://www.strangegizmo.com/forth/ColorForth/msg00022.html

: fib push 1 dup pop -2 +
: f -if drop nip ; then push swap over + pop -1 + f ;

Thanks,