Скачать или смотреть Let's Plus Minecraft 10.5 - Digital Display Redpower Forth

Creating a digital output display using Redpower's Control computer systems.

Part 2 of 2 - Programming in forth

: Convert
DUP
1 = IF 3 IOX! THEN
DUP
2 = IF 109 IOX! THEN
DUP
3 = IF 103 IOX! THEN
DUP
4 = IF 83 IOX! THEN
DUP
5 = IF 118 IOX! THEN
DUP
6 = IF 126 IOX! THEN
DUP
7 = IF 35 IOX! THEN
DUP
8 = IF 127 IOX! THEN
DUP
9 = IF 119 IOX! THEN
DUP
0 = IF 63 IOX! THEN
;

: DisplayDigital
DUP
10 /MOD
5 IOXADDR ! Convert . 4 IOXADDR ! Convert . CR
;

: MainLoop
DisplayDigital
BEGIN
3 IOXADDR !
1 IOX@ = IF 1 + DisplayDigital 40 TICKS THEN
2 IOX@ = IF 1 - DisplayDigital 40 TICKS THEN
4 IOX@ = IF EXIT THEN
DUP
0 = IF EXIT THEN
AGAIN
;

:ResetDisplay
4 IOXADDR ! 0 IOX! 5 IOXADDR ! 0 IOX!
;

:Flash
DisplayDigital
5 TICKS
ResetDisplay
5 TICKS
;

:StartUp
ResetDisplay
BEGIN
3 IOXADDR !
4 IOX@ = IF EXIT THEN
8 IOX@ = IF
Flash
Flash
Flash
Flash
Flash
Flash
Flash
Flash
Flash
Flash
EXIT
THEN
AGAIN
;