Fasm по-видимому позволяет писать в стиле Forth.
Может кто знает как это лучше организовать, я не знаю основательно фасмовский препроцессор.
Основной макрос позволяюший писать слова-команды в строку:
macro s [arg]
{
if arg in <\ ;объявление слов-макросов
rts,dup,drop,over,swap,rot,depth,!>
arg
else
if arg in <\ ;объявление слов-прцедур
cr,cout,emit,spaces,??,?d,wt,star,margin,blip,stars,bar,f>
call arg
else
if arg eqtype ''
coutmes arg
else
push dword arg
end if
end if
end if
}
выглядит так:
s слово, слово, слово, ..., слово
типа:
s 31415926, var1,! ;засылаем число в var1
s [var1],?d ;выводим его.
Или в одну строку: s 31415926, var1,!,[var1],?d

Если слово - число, имя регистра, адрес переменной или её значение в [], то оно кладётся на стек.
Если слово - макрос, то оно вызывается как макрос
Если слово - процедура, то перед ним добавляется call
Если слово - строка в '', то она выводится на консоль

1892461360__demof.zip

А где здесь Forth

А зачем Forth?