FORTH for the SHARP PC-E500 (S)
10-13-2022, 11:30 PM
Post: #81
 Helix Member Posts: 251 Joined: Dec 2013
RE: FORTH for the SHARP PC-E500 (S)
(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!

Jean-Charles
11-06-2022, 04:15 AM (This post was last modified: 11-06-2022 01:57 PM by robve.)
Post: #82
 robve Senior Member Posts: 332 Joined: Sep 2020
RE: FORTH for the SHARP PC-E500 (S)
Recently started a new Forth project. This time for the Sharp PC-850(V)(S).

- Rob

"I count on old friends" -- HP 71B,Prime|Ti VOY200,Nspire CXII CAS|Casio fx-CG50...|Sharp PC-G850,E500,2500,1500,14xx,13xx,12xx...
11-06-2022, 01:20 PM
Post: #83
 rprosperi Super Moderator Posts: 5,439 Joined: Dec 2013
RE: FORTH for the SHARP PC-E500 (S)
(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.

--Bob Prosperi
11-14-2022, 12:55 AM
Post: #84
 Helix Member Posts: 251 Joined: Dec 2013
RE: FORTH for the SHARP PC-E500 (S)
(11-06-2022 04:15 AM)robve Wrote:  Recently started a new Forth project. This time for the Sharp PC-850(V)(S).

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?

Jean-Charles
11-14-2022, 01:18 AM
Post: #85
 robve Senior Member Posts: 332 Joined: Sep 2020
RE: FORTH for the SHARP PC-E500 (S)
(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).

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

"I count on old friends" -- HP 71B,Prime|Ti VOY200,Nspire CXII CAS|Casio fx-CG50...|Sharp PC-G850,E500,2500,1500,14xx,13xx,12xx...
11-14-2022, 02:17 AM (This post was last modified: 11-14-2022 06:35 PM by Helix.)
Post: #86
 Helix Member Posts: 251 Joined: Dec 2013
RE: FORTH for the SHARP PC-E500 (S)
(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.

Jean-Charles
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)