FIG-Forth - CDP1802 IP - Lattice FPGA-Board

C-H Ting 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 (e.g. from mouser, about $50). This FPGA can be programmed as an CDP1802 system with RAM, UART, Timer and I/O, the serial console is also implemented as USB CDC!

CD1802 in VHDL

This project is an SOC (System on a Chip) coded in VHDL and implemented for the Lattice iCE40-hx8k dev board. The SOC contains the following components: 1802 CPU + UART + Timer + I/O Ports. Details and source see:

• https://github.com/scottlbaker/1802-SOC
• forth-ev.de

Some more resources:

• http://www.clifford.at/icestorm/
• https://github.com/cliffordwolf/icestorm
• https://github.com/zuloloxi/mecrisp-ice
• http://j-core.org

Night Rider

https://wiki.forth-ev.de/doku.php/projects:fig-forth-1802-fpga:start

I changed this program to a LED night 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
: SET-LED 61440 C! ; [CR]  OK
: GET-LED 61440 C@ ; [CR]  OK
: DELAY 3000 0 DO LOOP ;[CR]  OK
: 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]