Schooner - a forth project

[Retrospect]

@TheBF that starfield looks fantastic.  It's scrolling 50 stars quicker than Avaris could do 15.  I'll be around later, to study some more forth.  I'll be consulting the manual for various things to do with the schooner project.  I'd have been at it right now but too much is going on in the background at the moment. 

[+TheBF]

Thanks but it's your algorithm.  

 

The final version was only doing 32 stars but you made me wonder.

So I changed #STARS  to 64 and here it is. 

 

 

[Retrospect]

Experimenting with more Forth just before I head out .... I have Classic99 and EightyOne emulator fire up together (EightyOne emulating the Jupiter ACE computer with Forth built into Roms)

In some cases, the same program works on both of these machines.  Standard subsets of Forth I guess.  Jupiter Ace is notably faster than TI-99 but then ACE doesn't have VDP

[+TheBF]

Look at you!

 

Jupiter Ace Forth predates the ANS Standard which was 1994.

Camel Forth "core" is ANS/ISO Forth, but the TI-99 extensions are my ideas plus things I gleaned from TI-Forth, TurboForth and FbForth.

 

I will get a bit more familiar with Jupiter Ace so I can better understand the differences.

 

 

[+TheBF]

Jupiter ACE is based on the Forth-79 standard. 

It has a lot of similarities but ANS Forth is the result of endless meetings to try and reconcile the

industry practices that had "evolved" in Forth systems over about 20 years. (Herding cats is the best analogy)

So there are enough differences that if you use ANS Forth you need to know about those differences. 

 

I have attached a Jupiter Ace document that might be useful.

"the Forth Bridge" shows BASIC compared to Forth with real examples in Jupiter ACE Forth.

 

Not everything is directly usable as is on the Forth side. 

 

Here is a bit a translation table for FIG -> ANS word substitution just from glancing at the Jupiter Ace manual 

FIG                     Camel99 ANS/ISO 

 

VLIST                  WORDS (DSK1.TOOLS) 

INKEY                  KEY 

UMOD                  UM/MOD   ( double single -- quot rem) 

VOCABULARY       DSK1.WORDLISTS. (ANS works differently the Forth 79) 

LOAD                   INCLUDE   (DSK1.BLOCKS has load for block files) 

CLS                     PAGE   ( CLEAR is available in DSK1.GRAFIX) 

ASCII                  CHAR   (interpreting) 

                          [CHAR] (compiling) (don't ask why)

 

DEFINER              CREATE   ( can be used with DOES>) 

FORGET               DSK1.FORGET 

I'                         not defined

LIST                 

PICK                    PICK   ( the argument is different by 1) (really)   

REDEFINE            not defined 

-------------------------------------------------

Forth-79 words missing in Jupiter Ace Forth (from Appendix D in the manual)

                           Camel99 ANS Forth 

 +!                           +!  

-TRAILING,             DSK1.TRAILING  

>IN                       >IN 

?                           DSK1.TOOLS 

CMOVE                  MOVE 

COMPILE               POSTPONE 

COUNT                  COUNT 

DEPTH                   DSK1.TOOLS 

EXPECT                 ACCEPT  ( not exactly the same as expect)

FILL                      FILL 

KEY                       KEY

MOVE                    MOVE 

NOT                      0= 

STATE                   STATE

[COMPILE]            POSTPONE 

 

 

The Forth Bridge.pdf

Edited March 17, 2023 by TheBF
typo