Welcome, Guest. Please login or register.


Author Topic: FORTH (Read 8864 times)

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13534
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 19.0 Firefox 19.0
    • View Profile
    • http://enterprise.iko.hu/
Re: FORTH
« Reply #45 on: 2013.March.09. 00:22:53 »
Quote from: BruceTanner

One point I have just noticed is that trailing spaces are not removed; thus even the smallest program takes up 1k :oops: and if you have 16 small program fragments each in their own block it will take up 16k :oops::oops::oops::oops::oops::oops::oops::oops::oops::oops::oops::oops::oops::oops::oops::oops: which is not good on tape systems that this is aimed at!
There is a Turbo Pack Tape extension which compresses the saved bytes on the fly  :-) (and higher baud rate also can be used)
« Last Edit: 2013.March.10. 11:25:09 by szipucsu »

Offline lgb

  • EP addict
  • *
  • Posts: 3497
  • Country: hu
  • æðsta yfirmaður
  • OS:
  • Linux Linux
  • Browser:
  • Chrome 26.0.1410.28 Chrome 26.0.1410.28
    • View Profile
    • http://lgb.hu/
Re: FORTH
« Reply #46 on: 2013.March.10. 11:12:46 »
Quote from: BruceTanner
Yes, spot on - you have discovered a little secret! (Actually, not so secret - they are in the manual). Not a major performance increase but slightly quicker nonetheless. I think it's worth it for 0 and 1 which occur in programs very commonly; I'm not so convinced by 2 and 3!
I've just checked the output of vlist out again. It seems there are four words defined whose names are consist of only numbers: 0, 1, 2 and 3. Interesting to have defined words for 2 and 3 too, if it's not worth as much as for 0, 1 because then some may think that eg 4 and 5 should be handled this way as well :)

Online BruceTanner

  • EP user
  • *
  • Posts: 487
  • Country: gb
  • OS:
  • Linux Linux
  • Browser:
  • Safari 4.0 Safari 4.0
    • View Profile
Re: FORTH
« Reply #47 on: 2013.March.10. 11:28:57 »
Quote from: lgb
...some may think that eg 4 and 5 should be handled this way as well :)
It's FORTH so they can if they want to :smt003 (will require use of assembler if it is to be exactly the same)

Online BruceTanner

  • EP user
  • *
  • Posts: 487
  • Country: gb
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 25.0.1364.152 Chrome 25.0.1364.152
    • View Profile
Re: FORTH
« Reply #48 on: 2013.March.10. 11:54:16 »
Quote from: BruceTanner
It's FORTH so they can if they want to :smt003 (will require use of assembler if it is to be exactly the same)
So before someone asks:

CODE 4   DE PUSH,  HL DE EX,  4 HL LD,  IX JP(),  END-CODE
CODE 5   DE PUSH,  HL DE EX,  5 HL LD,  IX JP(),  END-CODE

The top two items on the stack are held in registers DE and HL. So PUSH DE puts the current second item on the actual stack to make it the third, EX DE,HL puts the current top of stack in HL into DE to make it the second on the stack, and LD HL,4 makes 4 the new top item on the stack. JP (IX) is how all IS-FORTH machine code words end.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13534
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 19.0 Firefox 19.0
    • View Profile
    • http://enterprise.iko.hu/
Re: FORTH
« Reply #49 on: 2013.March.12. 21:20:40 »
Lacika wrote prime search program for comparing BASIC and FORTH speed.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13534
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 69.0 Firefox 69.0
    • View Profile
    • http://enterprise.iko.hu/
Re: FORTH
« Reply #50 on: 2019.September.24. 12:10:13 »
ExcaliburGER's machine at the Classic Computing exhibition :-)
23987-0

Offline ExcaliburGER

  • Newbie
  • Posts: 8
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 70.0 Firefox 70.0
    • View Profile
Re: FORTH
« Reply #51 on: 2019.November.25. 17:19:08 »
Hi together,

I like Forth for a long time ago now, not so experienced but try my very best. This year I met a guy from the VCFe at HNF in Paderborn and we started three benchmarks on my old Sinclair QL at the very beginning of the site below. So yesterday it was time to reprogram the tests in IS-Forth and send him the results.

Enterprise 128 - Ultimate Forth Benchmark (must rolled down a bit)

Don't take a look at the results over the Ent ;) Thanks to Zozo about his examination to work with "BUFFERS ON " File.4TH" NAME. It's much more easier than working with the 1k-Blocks!

Greetings, Carsten

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13534
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 70.0 Firefox 70.0
    • View Profile
    • http://enterprise.iko.hu/
Re: FORTH
« Reply #52 on: 2019.November.26. 10:20:18 »
Can you upload the Enterprise program files?

Offline Ep128

  • EP addict
  • *
  • Posts: 1673
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 70.0 Firefox 70.0
    • View Profile
    • Honlapom
Re: FORTH
« Reply #53 on: 2019.November.26. 23:47:12 »
ExcaliburGER's machine at the Classic Computing exhibition :-)
(Attachment Link)

Enterprise monitor, Enterprise printer... Hmmmmm... :-)

Offline ExcaliburGER

  • Newbie
  • Posts: 8
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 70.0 Firefox 70.0
    • View Profile
Re: FORTH
« Reply #54 on: 2019.November.27. 17:56:14 »
So attached is the file, which is produced by the following steps

Change Drive and Directory in EXDOS
Afterwards start Forth

Code: [Select]
BUFFERS ON " DORECO.4TH" NAME
LOAD-BUFFERS
1 LOAD 2 LOAD 3 LOAD
DOINT
FIB2-BENCH
GCD1-BENCH

After LOAD-BUFFERS you can take a look into the pages of the file via 1 EDIT..3 EDIT.
To compile 1 LOAD..3 LOAD. After that DOINT, FIB2-BENCH, GCD1-BENCH are available to run. These tests are not exactly the same as on the benchmark site. NIP is replaced by SWAP DROP and U> by simple >.

If you modify the different pages LOAD them again.... AND don't forget the SAVE-BUFFERS at the end of the session :)