int main(void) { run(); }

...
В общем, дальше об этой истории с Macintosh написано столько, что здесь мне повторяться нет смысла.
Джеф Раскин вскоре после создания "самого персонального компьютера" покидает Apple.
И... разрабатывает компьютер не менее, если не более яркий. Правда, далеко ненастолько обласканный любопытными журналистами,
и потому почти совсем неизвестный нелюбопытным читателям.

Речь идет о выпускавшейся Canon машине Cat. Всего за шесть месяцев жизни на рынке Canon Cat было произведено
и продано более двадцати тысяч этих машин. По выбранной элементной базе и основным конструктивным решениями они были похожи на Macintosh
-- тот же процессор Motorola 68000, тот же "интегрированный" монитор. Но на этом сходство, пожалуй, и заканчивается.
Макроархитектурно Canon Cat во многом похож на Lisp-машины -- это тоже "машина одного языка",
правда, в ней используется близкий к функциональным языкам программирования,
но крайне простой в реализации виртуальной машины "стековый" язык Forth.

Именно компактный Forth позволил "утрамбовать" в 256 KB ПЗУ Cat весьма любопытный интегрированный комплект программ,
поддерживающий обработку текстов, проверку правописания (со словарем из 90 тыс. слов), вычисления в режиме калькулятора,
решение ряда коммуникационных задач, и, наконец, -- программирование на Forth и языке ассемблера M68000.
...

Первый закон пользовательского интерфейса Раскина:
"Компьютер не должен своим действием наносить ущерб работе Человека
и не должен своим бездействием способствовать ущербности работы Человека".

*************************************************
Pentium 4 2.8GHz, 512Mb DDR266 RAM, Windows XPpro
*************************************************

VFX        VFX Forth for Windows v3.70 [build 1706]
SF2        SwiftForth 2.2.2.9  07 May 2001
iForth       version 1.12.8722, generated 23:39:13, June 8, 2002.
SP-Forth   Version 4.00 Build 015 at 29.Apr.2004
W32F       Win32Forth 6.09.12 Build 6 (indirect threaded code)
gff        gforth-fast 0.6.2

All with no specifics and no hackery

Test time including overhead (ms)         VFX  iForth     SF2    SPF4    W32F     gff
DO LOOP                                    16       0      16       0      15       3
+                                           0       0       0       0       0       4
M+                                          0      16       0      16      16       9
*                                           0       0      15       0      31       5
/                                          16      16      16      16      16      15
M*                                         15       0      16      15      16       8
M/                                          0      15       0      16      31      86
/MOD                                       16      16      31      16      15      15
*/                                         15      15      15      31      47      95
ARRAY fill                                 16      32      16       0      32      11
================================================================================
=====
Total:                                     94     110     125     110     219     251

Win32 API: SendMessage                      0       0      16       0      15       0
Win32 API: GetTickCount                    63      47      15      79      16     570
System I/O: KEY?                            0       0     282     265       0     717
================================================================================
=====
Total:                                     63      47     313     344      31    1287

Eratosthenes sieve 1899 Primes             94     203     281     172    1375     262
Fibonacci recursion ( 35 -> 9227465 )     188     343     156     172    1562     480
Hoare's quick sort (reverse order)         78     485     281     141    1407     467
Generate random numbers (1024 kb array)   140    1031     141    1015    1468     235
LZ77 Comp. (400 kb Random Data Mem>Mem)   157    1500    1047     703    2219     470
Dhrystone (integer)                       156     219     297     157    1734     363
================================================================================
=====
Total:                                    813    3781    2203    2360    9765    2277
Time (ratio to VFX):                     1.00    4.65    2.71    2.90   12.01    2.80

  here \ оставим на стеке текущий указатель в строящемся целевом образе Flash  
\ resolve interrupt vectors -----------------------------------------
000       org assemble rjmp b_cold c; \ пропишем по 0 адресу вектор холодного старта
INT_T0OV  org assemble rjmp T0isr  c; \ ...
org \ востановим указатель по запомненному HERE со стека