FORTH for the SHARP PC-E500 (S)

[Helix]

(09-16-2022 06:54 PM)robve Wrote:  Also included in Forth500 2.0 is a new text editor "TED". TED.FTH is located in the Forth500 additions folder. With TED you can interactively write, edit and run Forth code in Forth500:

Code:

TEDI MYWORK.FTH ↲
↲                           \ start editing (press enter)
.( TED is great!) ↲        \ a line of Forth (press enter to save)
[CCE]                       \ end editing and read MYWORK.FTH
TED is great!

I've tried TED, and it works perfectly! It's very easy now to write Forth definitions without being linked to a PC, which is the charm of these pocket calculators after all.
I've also tried TLOAD, but it requires more manipulations than TED.
So I can confirm: TED is great!

[robve]

Recently started a new Forth project. This time for the Sharp PC-850(V)(S).

New thread here: https://www.hpmuseum.org/forum/thread-19085.html



- Rob

[rprosperi]

(11-06-2022 04:15 AM)robve Wrote:  Recently started a new Forth project. This time for the Sharp PC-850(V)(S)...

@rob - I'd move this to a new thread, dedicated to the 850V version, it will make it easier to find for folks with that machine.

[Helix]

(11-06-2022 04:15 AM)robve Wrote:  Recently started a new Forth project. This time for the Sharp PC-850(V)(S).

New thread here: https://www.hpmuseum.org/forum/thread-19085.html

Rob,
In the Forth850 thread, you presented an interesting example on how to use machine code inside Forth definitions. I've not investigated this question (I own a G850VS, but now I'm busy enough with the E500S ), but is the same technique possible with Forth500, just writing HEX codes?

[robve]

(11-14-2022 12:55 AM)Helix Wrote:  

(11-06-2022 04:15 AM)robve Wrote:  Recently started a new Forth project. This time for the Sharp PC-850(V)(S).

New thread here: https://www.hpmuseum.org/forum/thread-19085.html

Rob,
In the Forth850 thread, you presented an interesting example on how to use machine code inside Forth definitions. I've not investigated this question (I own a G850VS, but now I'm busy enough with the E500S ), but is the same technique possible with Forth500, just writing HEX codes?

Writing an assembler for the ESR-L in Forth would take some time, something I'm short of. Using the PC-G850's Assembler with Forth850 is cheap: it's already there. I didn't have to write one or find a Z80 assembler to integrate with Forth850. Note that Forth500 is a lot more powerful than Forth850 (thanks to the fact that the E500 is a professional machine with reasonably powerful FCS and IOCS system), so you're not missing out on anything really, except speed perhaps.

I'm not sure how many folks would actually use an ESR-L assembler in Forth500 besides you and me? I hope I'm mistaken, but our world with our "toys" is pretty small.

I will keep updating Forth500 and Forth850 (as well as other side projects.) But I tend to move quickly between things to do. I recently acquired two PC-1600's that peaked my interest, one close to NIB with 2 64K RAM modules and one with a CE-1600 printer. Forth850 may as well be ported to that PC too. Now that I've said it, I probably can't get that out of my head... oh no

- Rob

[Helix]

(11-14-2022 01:18 AM)robve Wrote:  Writing an assembler for the ESR-L in Forth would take some time, something I'm short of.

My question was not about an assembler. Here is the section that interested me:

(11-13-2022 10:15 PM)robve Wrote:  Alternatively, the BEEP word can also be defined with HEX codes in Forth850 as follows, which takes more effort but with the same result:

Code:

NFA, BEEP       ( -- )
  HEX
  F3 C,         \       di              ;
  F3 C,         \       di              ; disable interrupts
  21 C, 0 ,     \       ld hl,0000h     ;
  AF C,         \       xor a           ;
  D3 C, 18 C,   \ loop: out (18h),a     ; loop, out audio port
  D2 C,         \ wait: dec l           ;   loop
  20 C, FD C,   \       jr nz,wait      ;   until --l=0
  2F C,         \       cpl             ; switch on/off
  25 C,         \       dec h           ;
  20 C, F7 C,   \       jr nz,loop      ; until --h=0
  FB C,         \       ei              ; enable interrupts
  FD C, E9 C,   \       jp (iy)         ; next
  DECIMAL       \ 18 bytes

Here you don't use the built-in assembler, so I was only asking if the same thing is possible in Forth500. But I think I know the answer now.

(11-14-2022 01:18 AM)robve Wrote:  I will keep updating Forth500 and Forth850 (as well as other side projects.) But I tend to move quickly between things to do. I recently acquired two PC-1600's that peaked my interest, one close to NIB with 2 64K RAM modules and one with a CE-1600 printer. Forth850 may as well be ported to that PC too. Now that I've said it, I probably can't get that out of my head... oh no

Ha ha! I don't own a PC-1600, but I have a TI-92 Plus and a TI Voyage 200. I see in your signature that you also have a TI Voyage 200… A Forth for these machines would be great too.