forth for cpc6128

[funkheld]

hmmm.., where there is a forth for cpc6128 ?

gruss

[Devilmarkus]

Sometimes the wiki-page helps here:
Searched for "forth"
result:
http://cpcwiki.eu/index.php/Forth

It's the tape version but I am sure it can be transferred to DSK ;-)

[Devilmarkus]

Hmmm bad. It's really for 464 only.

But here's another:
http://www.cpc-power.com/index.php?page=detail&onglet=dsk&num=4998
And here:
http://www.cpc-power.com/index.php?page=detail&onglet=dsk&num=4339

[Devilmarkus]

I transferred the 2nd to DSK:

[cpc=http://cpcwiki.eu/forum/index.php?action=dlattach;topic=1426.0;attach=976,forth,1]CPC6128[/cpc]

For this is also a PDF handbook:
http://www.cpc-power.com/images/notices/4339_1.pdf

[funkheld]

Hallo, danke(thanks)...

Gruss
peter

[Gryzor]

Ok, so a guy walks in, and not only do you give the answer but you do the conversion and offer an online version, too. What service!

[AMSDOS]

Yes sorry, I tried to get my responce yesterday (my Internet is all loopy!  ) about the number of Forth programming languages which are available in CP/M.  You can find in here

DXFORTH
FORTH80
Z80FORTH

The only trouble with these is they will need a bit of setting up to get them working on a CPC6128. So they probably need to go onto a Disk Image, and then setup so the Terminal Emulation will make the programs function properly on the CPC. I guess the only advantage they have is the standards they apply - Fig Forth 83 I think is one of the standardised Forths, they run under CP/M so are Disk Based Languages too and there doesn't seem to be much available specifically for the CPC.

[TFM]

There was a specific Forth-83 release for the CPC in the Publuc Domain (Kotulla), was maybe around 30 DM or so. I don't have the dsk here, but will see it in some months again...

[funkheld]

s it really would be great.

[Executioner]

There's also a forth I wrote way back. The disc image and source code are available on the WinAPE site downloads section.

[funkheld]

not loop with cpc6128.

gruss

[Octoate]

There is also a Forth version of VolksFORTH for CP/M. You can download it here: http://volksforth.sourceforge.net/.

[funkheld]

VolksFORTH for CP/M :
new cpm+disk with WINCPC  and then copyfile "volks4th.com"  in the new cpm+-disk ?

help me...? 

gruss

[arnoldemu]

VolksFORTH for CP/M : crash with cpm3 and cpc 2.2... on the WINCPC.

help me...? 

gruss

This is what I did and it works for me.

Download cpcxfs and extract:
http://www.cpctech.org.uk/download.html

Double click cpcxfs:

cpcfs>

extract volksforth to c:\. I used 7-zip.

lcd c:\
lcd volksforth-cpm-380a
lcd 3.80a
new -s forth.dsk
mput *.com
close

new -s forth2.dsk
mput *.fb
close

Drag and drop cpm1.dsk to wincpc (download from nvg)
Select A

drag and drop forth.dsk to wincpc
select b

A> B:
A> volks4th

or
A> kernel

...


volksFORTH-83 rev. 3.80a
ok


Now I don't know forth, so I can't tell you anymore...

[funkheld]

hello, thanks.
disk is present ok: forth.dsk and forth2.dsk

thanks, loop wonderful.


i'am with  "cpcfs" a system-dsk for cpm?

gruss

[arnoldemu]

hello, thanks.
disk is present ok: forth.dsk and forth2.dsk

thanks, loop wonderful.


i'am with  "cpcfs" a system-dsk for cpm?

gruss

yes

format -s does not install cpm.

I will return with a solution to solve this for you.

[TFM]

There's also a forth I wrote way back. The disc image and source code are available on the WinAPE site downloads section.

Call me dumb, or lazy.... but... I've tried that version some time (years?) ago, and I didn't get it running. Is it updated? Does it work now?

There is also a Forth version of VolksFORTH for CP/M. You can download it here: http://volksforth.sourceforge.net/.

That one looks interesting! It's still under further developpment, people seem to be active here.
Is there a link to a .DSK file "ready to go"?

Some time ago, I started thinking about a Forth implementation (patched version of some good compiler...) for FutureOS, but instead the FIOLIB was created, since there were more people interrested in C. However I like Forth. If there would be some interrest, I would consider a port.

[funkheld]

....« Reply #13 on: Today at 17:05 »....

dsk create by the Volksforth.

[Executioner]

Call me dumb, or lazy.... but... I've tried that version some time (years?) ago, and I didn't get it running. Is it updated? Does it work now?

Ah.. I never knew it didn't work. The reason is it's designed to be run from Drive B: The binary loader at #be80 sets the drive (#ac00 after ROM init) to 1. If you edit byte #8c of the program (don't know which sector but you'll find the header for FORTH.) to 00 instead of 01 it should run.

[TFM]

Runs nicely from B B drive is ok, as long as you know that you have to use it 

[AMSDOS]

My thoughts in an recent thread have got me thinking that if this language is available as a compilable language, then it's worth looking into. I number of Forth compilers are built around a Kernal which is there to produce efficent programs. I'm unsure if this means that to make programs one has to have the language itself, or if there is some way of making the programs compilable as standard alone programs with the Kernal built-into that so people don't need to be loading Forth everytime you want to run some programs.

The other catch22 I guess is support. Forth isn't the best language to look at, and naturally there's pages and pages of Forth stuff out there, so finding new stuff based on the Forth83 model would be the best approach, tutorials, source code, anything which can be adapted to. Forth is an excellent Language for taking something and building it up progressively. Even the simplest examples can do some neat tricks.

[TFM]

... one question remains... which is the most quick Forth for the CPC?

I did a simple speed test, using the following program:

: SQUARE CLS 250 150 ORIGIN
  100 0
  DO 100 0
     DO I J PLOT
     LOOP
  LOOP ;
Now use SQUARE and measure the time...

1. ams-Forth: - doesn't support commands!
2. Electro Forth: 11.3 seconds
3. FIG-Forth: 7.5 seconds
4. volksForth:

Can somebody do the test with volksForth (I don't have a .DSK)?

BTW: BASIC need 34.34 seconds!

[Executioner]

I did a simple speed test, using the following program:

: SQUARE CLS 250 150 ORIGIN
  100 0
  DO 100 0
     DO I J PLOT
     LOOP
  LOOP ;
Now use SQUARE and measure the time...

I'd think the PLOT call accounts for about 90% of the overhead there. Does FIG forth have it's own PLOT routine rather than using firmware?

It may be worth trying this test just using a simple maths calculation rather than graphics.. eg. Simply DO I J * + and put a number on the stack to begin.

[AMSDOS]

Personally I prefer graphics which rely on Mathematics as a excellent means to test. Unfortunately I don't know Forth well enough to do the classic circle routine, but if someone wants to Interpret this BASIC example into Forth then feel free! 

Code Select Expand


10 CLS
20 DEG
30 FOR a=1 to 360
40 MOVE 320,200
50 DRAW 320+190*COS(a),200+190*SIN(a)
60 NEXT


[TFM]

It may be worth trying this test just using a simple maths calculation rather than graphics.. eg. Simply DO I J * + and put a number on the stack to begin.

Good idea, it's your turn now