Difference: CosmacElf (13 vs. 14)

Revision 142018-09-14 - PeterSchmid

Line: 1 to 1

META TOPICPARENT	name="WebHome"

COSMAC Elf

Some Links and ideas for my COSMAC Elf projects.

Line: 45 to 45

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

Added:

>
>

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

: DELAY 3000 0 DO LOOP ;[CR] OK

Changed:

<
<

: LEFT 7 0 DO 61440 C@ 2 * 61440 C! DELAY LOOP ;[CR] OK : RIGHT 7 0 DO 61440 C@ 2 / 61440 C! DELAY LOOP ;[CR] OK : RUN BEGIN LEFT RIGHT 0 UNTIL ;[CR] OK 1 61440 C![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]

Line: 62 to 63

FIG Forth

Forth Interest Group (FIG) http://www.forth.org/

Added:

>
>

https://www.forth.com/

View topic | History: r23 < r22 < r21 < r20 | More topic actions...