Difference: McForth (23 vs. 24)

Revision 242019-10-25 - PeterSchmid

Line: 1 to 1

META TOPICPARENT	name="WebHome"

%DASHBOARD{ section="banner"

Changed:

<
< image="/twiki/pub/Cosmac/RaspiElf/raspi-elfmemcard-s.jpg"

>
> image="/twiki/pub/Cosmac/McForth/forth-header.jpg"

title="Forth for the Membership Card" titlestyle="color:#F00000;" }%

Line: 122 to 122

Changed:

<
<

Night Rider in Rc/Forth

>
>

Knight Rider in Rc/Forth

See ChaseLighting for an assembler version (much faster of course).

Changed:

<
< Here a small test program for the Rc/Forth. It's a simple night rider chase lighting, but it is using the MC LEDs (of course), the switches for setting the pace and the IN button to terminate the program.

>
> Here a small test program for the Rc/Forth. It's a simple knight rider chase lighting, but it is using the MC LEDs (of course), the switches for setting the pace and the IN button to terminate the program.

Some interactive programming to find out how OUT is working:

Line: 143 to 143

: DELAY 1 SWITCH@ + 0 DO LOOP ; : LEFT 7 0 DO 2 * DUP LED! DELAY LOOP ; : RIGHT 7 0 DO 2 / DUP LED! DELAY LOOP ;

Changed:

<
< : NIGHTRIDER 1 DUP LED! BEGIN LEFT RIGHT EF 8 <> UNTIL DROP ;

>
> : KNIGHTRIDER 1 DUP LED! BEGIN LEFT RIGHT EF 8 <> UNTIL DROP ;

Push the IN button to terminate the program.

Line: 151 to 151

FIG-Forth - CDP1802 IP - Lattice FPGA-Board

Changed:

<
< C-H Ting wrote the fine book

>
> C-H Ting, Juergen Pintaske and Steve Teal wrote the fine book

FIG-Forth Manual: Documentation and Test in 1802 IP

I bought the book and the proposed Lattice FPGA board ICE40HX8K-B-EVN

Line: 173 to 173

Changed:

<
<

Night Rider

>
>

Knight Rider

Sample LED chase program from: https://wiki.forth-ev.de/doku.php/projects:fig-forth-1802-fpga:start

Changed:

<
< I changed this program to a LED night rider. Here is what you have to

>
> I changed this program to a LED knight rider. Here is what you have to

type in on the console to get blinking the LEDs on the Lattice FPGA board: forth-ev.de

COLD[CR]
1802 FIG-FORTH R0.4  3/16/81

Changed:

<
< : SET-LED 61440 C! ; [CR] OK : GET-LED 61440 C@ ; [CR] OK

>
> : LED! 61440 C! ; [CR] OK : LED@ 61440 C@ ; [CR] OK

: DELAY 3000 0 DO LOOP ;[CR] OK

Changed:

<
< : LEFT 7 0 DO GET-LED 2 * SET-LED DELAY LOOP ;[CR] OK : RIGHT 7 0 DO GET-LED 2 / SET-LED DELAY LOOP ;[CR] OK : RUN 1 SET-LED BEGIN LEFT RIGHT ?TERMINAL UNTIL ;[CR] OK RUN[CR]

>
> : LEFT 7 0 DO LED@ 2 * LED! DELAY LOOP ;[CR] OK : RIGHT 7 0 DO LED@ 2 / LED! DELAY LOOP ;[CR] OK : KNIGHTRIDER 1 LED! BEGIN LEFT RIGHT ?TERMINAL UNTIL ;[CR] OK KNIGHTRIDER[CR]

Added:

>
>

?TERMINAL does not seem to work as expected.

The system on chip coded in VHDL and implemented for the Lattice iCE40-hx8k dev board is about 150 times faster than the Membership Card. That's about 300 MHz clock for an original CDP1802.

Spare Time Gizmo’s ELF2K ROM for RaspiElf

Line: 251 to 256

META FILEATTACHMENT	attachment="mc-eeprom-conn.png" attr="" comment="" date="1547939543" name="mc-eeprom-conn.png" path="mc-eeprom-conn.png" size="20917" user="PeterSchmid" version="3"
META FILEATTACHMENT	attachment="v88-mc.patch" attr="" comment="" date="1547980582" name="v88-mc.patch" path="v88-mc.patch" size="1146" user="PeterSchmid" version="1"
META FILEATTACHMENT	attachment="mc-eeprom-u1.png" attr="" comment="" date="1548278764" name="mc-eeprom-u1.png" path="mc-eeprom-u1.png" size="19052" user="PeterSchmid" version="2"

Added:

>
>

META FILEATTACHMENT	attachment="forth-header.jpg" attr="" comment="" date="1572034428" name="forth-header.jpg" path="forth-header.jpg" size="43980" user="PeterSchmid" version="1"

META TOPICMOVED	by="PeterSchmid" date="1547399980" from="Cosmac.MSCForth" to="Cosmac.McForth"

View topic | History: r25 < r24 < r23 < r22 | More topic actions...