оПХКНФЕМХЕ 1.лНДЕКЭ ТНПР-ЯХЯРЕЛШ - ВЮЯРЭ 4
D-> мюоевюрюрэ D мю реплхмюке х дюрэ опнаек 38 D.R D,+N-> мюоевюрюрэ D б онке дкхмш +N яопюбю 38 D< D1,D2->F F "хярхмю", еякх D1 лемэье D2 15 D+ WD1,WD2->WD3 ясллю дбнимшу вхяек WD1 х WD2 14 D- WD1,WD2->WD3 пюгмнярэ дбнимшу вхяек WD1-WD2 14 D/ * D1,D2->D3 вюярмне D3 нр декемхъ D1 мю D2 15 D/MOD * D1,D2->D3,D4 нярюрнй D3 х вюярмне D4 нр 15 декемхъ дбнимшу вхяек D1 мю D2 D= WD1,WD2->F F "хярхмю", еякх WD1 х WD2 пюбмш 15 DABS D1->D2 юаянкчрмюъ бекхвхмю дбнимнцн вхякю 14 DECIMAL -> оепеирх б деяърхвмсч яхярелс 22 DEFINITIONS -> сярюмнбхрэ яохянй CURRENT мю CONTEXT 31 DEPTH ->+N йнкхвеярбн гмювемхи мю ярейе дюммшу 20 DIGIT * C,N1->N2,TF/FF N2 - гмювемхе кхрепш я йюй 39 жхтпш б яхяреле явхякемхъ он нямнбюмхч N1 DMAX WD1,WD2->WD3 анкэьее хг дбсу вхяек 16 DMIN WD1,WD2->WD3 лемэьее хг дбсу вхяек 16 DMOD * D1,D2->D3 нярюрнй D3 нр декемхъ D1 мю D2 15 DNEGATE D1->D2 пегскэрюр бшвхрюмхъ D1 хг мскъ 14 DO HK ->A1,A2,3 /йнлохкъжхъ/ мювюкн жхйкю DO ян 47 N1,N2-> /хяонкмемхе/ явервхйнл нр N2 дн N1 DOES> HK -> мювюкн "хяонкмемхъ" б нопедекъчыел якнбе 36 DOES# M ондопнцпюллю - мювюкн пюяьхпемхъ DOES> 3 DP! * A-> сярюмнбхрэ бепьхмс якнбюпъ мю юдпея ю 10 DPL +о ->A оепелеммюъ - онгхжхъ онякедмеи рнвйх 8 б онякедмел ббедеммнл вхяке нр йнмжю DROP W-> сапюрэ ян ярейю бепумее гмювемхе 9 DU< UD1,UD2->F F "хярхмю", еякх UD1 лемэье UD2 14 DUMP + A,U-> пюяоевюрюрэ мю реплхмюке U аюирнб 42 нр юдпеяю ю DUP W->W,W опндсакхпнбюрэ бепумее гмювемхе 9 D0< D->F F "хярхмю", еякх D лемэье мскъ 15 D0= WD->F F "хярхмю", еякх WD мскэ 15 D2/ D1->D2 пюгдекхрэ мю дбю 15 ELSE HK A1,2->A2,2 /йнлохкъжхъ/ мювюкн 2-ни бербх 47 -> /хяонкмемхе/ бербкемхъ IF EMIT C-> бшбеярх мю реплхмюк кхрепс я йнднл я 6 EMPTY-BUFFERS + -> нвхярхрэ астепмши оск 25 ENCLOSE * A,C->A,N1,N2,N3 ббнд якнбю 27 ERASE + A,U-> гюякюрэ мскх б U аюирнб он юдпеяс ю 22 ERCOND8 M яхцмюкхгюжхъ н меопюбхкэмнл гмювемхх 4 EXECUTE CFA-> хяонкмхрэ якнбн он CFA ецн ярюрэх 11 EXIT K -> гюйнмвхрэ хяонкмемхе рейсыецн нопедекемхъ 4 EXIT# M рнвйю "EXIT" юдпеямнцн хмрепоперюрнпю 4 EXPECT A,+N-> ббеярх я реплхмюкю +N кхреп он 40 юдпеяс ю; б оепелеммсч SPAN гюякюрэ тюйрхвеяйне вхякн ббедеммшу кхреп; кхрепш мюоевюрюрэ мю реплхмюке FENCE *о ->A оепелеммюъ - цпюмхжю гюыхрш нр FORGET 7 FILL A,U,C-> гюякюрэ я б U аюирнб он юдпеяс ю 22 FIND T->A,N хяйюрэ якнбн р б рейсыел йнмрейяре 35 еякх N=0, рн ю=р х якнбн ме мюидемн; хмюве ю=CFA мюидеммни ярюрэх, N=1 дкъ якнб "IMMEDIATE" х N=-1 дкъ нярюкэмшу FIRST * ->A йнмярюмрю - юдпея мювюкю астепмнцн оскю 2 FIRST# л гмювемхе йнмярюмрш FIRST 2 FL# A онке ябъгх дкъ яохяйнб б онке оюпюлерпнб 33 якнбюпмни ярюрэх якнбю FORTH FLUSH -> гюохяюрэ акнйх мю дхяй х нвхярхрэ оск 26 FORGET -> сдюкхрэ якнбюпмсч ярюрэч якедсчыецн якнбю 45 х бяеу якнб, нопедекеммшу оняке мецн FORTH -> сярюмнбхрэ CONTEXT мю мювюкэмши яохянй 33 FORTH-83 -> ярюмдюпрмши йнмрейяр тнпр-яхярелш 33 FORTH# A PFA+2 дкъ якнбюпмни ярюрэх FORTH 33 GOTO M ондопнцпюллю оепеундю он яяшкйе 4 H. + U-> мюоевюрюрэ U мю реплхмюке 38 б 16-мни яхяреле х дюрэ опнаек HERE ->A дюрэ юдпея рейсыеи бепьхмш якнбюпъ 10 HEX + -> оепеирх б ьеярмюджюрхпхвмсч яхярелс 22 HLD *о ->A оепелеммюъ - онгхжхъ онякедмеи кхрепш, 8 оепемеяеммни б астеп PAD он HOLD HOLD C-> оепемеярх кхрепс я мю бепьхмс астепю PAD 37 I K ->W рейсыее гмювемхе W явервхйю жхйкю DO 24 I' +K ->W йнмевмне гмювемхе W явервхйю жхйкю DO 24 ID. * NFA-> мюоевюрюрэ хлъ якнбю х дюрэ опнаек 31 IF HK ->A,2 /йнлохкъжхъ/ мювюкн бербкемхъ IF 47 F-> /хяонкмемхе/ IMMEDIATE -> дюрэ опхгмюй IMMEDIATE онякедмеи 31 янгдюммни якнбюпмни ярюрэе INDEX + N1,N2-> пюяоевюрюрэ мювюкэмсч ярпнйс щйпюмнб 46 я мнлепюлх нр N1 дн N2 INTERPRET + -> хмрепоперхпнбюрэ бундмни онрнй 40 IPUSH M ондопнцпюллю - онлеярхрэ мю ярей сйюгюрекэ 4 хмрепоперюжхх х нанирх якедсчысч ярпнйс J K ->W рейсыее гмювемхе W явервхйю брнпнцн 24 назелкчыецн жхйкю DO KEY ->C ббеярх кхрепс я реплхмюкю 6 L>NAME * LFA->NFA оепеирх нр онкъ ябъгх й онкч хлемх 30 LATEST * ->NFA дюрэ NFA онякедмеи янгдюммни ярюрэх 31 LEAVE K -> гюйнмвхрэ хяонкмемхе жхйкю DO 24 LENGMASK M онкмне якнбн - люяйю дкъ сдюкемхъ 2 ахрю IMMEDIATE хг аюирю дкхмш LENG1MSK M онкмне якнбн - люяйю дкъ сдюкемхъ 2 ахрнб IMMEDIATE х SMUDGE хг аюирю дкхмш LENG2MSK M онкмне якнбн - люяйю дкъ бшяевемхъ 2 вхярни дкхмш хг аюирю дкхмш я опхгмюйюлх LHRW12 M ондопнцпюллю гюцпсгйх дбсу бепумху гмювемхи 4 мю ярейе б пецхярпш RW2 (бепумее) х RW1 LIMIT * ->A йнмярюмрю - юдпея йнмжю астепмнцн оскю 2 LIMIT# M гмювемхе йнмярюмрш LIMIT 2 LINK> * LFA->CFA оепеирх нр онкъ ябъгх й онкч йндю 30 LIST + N-> пюяоевюрюрэ мю реплхмюке щйпюм N 46 LIT *K ->W онлеярхрэ мю ярей якедсчыхи йнд 23 LIT" *K ->T дюрэ юдпея яйнлохкхпнбюммни ярпнйх х 28 опнднкфхрэ хмрепоперюжхч, нанидъ ее LITERAL H W-> /йнлохкъжхъ/ яйнлохкхпнбюрэ W йюй 23 ->W /хяонкмемхе/ кхрепюк LOAD +N-> хмрепоперхпнбюрэ щйпюм я мнлепнл +N 41 LOOP HK A1,A2,3-> /йнлохкъжхъ/ йнмеж жхйкю"DO LOOP" 47 -> /хяонкмемхе/ LRW1 M ондопнцпюллю гюцпсгйх дбнимнцн гмювемхъ мю 4 бепьхме ярейю б пецхярп RW1 LRW12 M ондопнцпюллю гюцпсгйх дбсу бепумху дбнимшу 4 гмювемхи мю ярейе б пецхярпш RW2 (бепумее) х RW1 M* * N1,N2->D опнхгбедемхе дбнимни дкхмш N1 х N2 18 M/ * D,N1->N2,N3 нярюрнй N2 х вюярмне N3 нр 18 декемхъ дбнимнцн D мю ндхмюпмне N1 M/MOD * UD1,U2->U3,UD4 нярюрнй U3 х дбнимне 16 вюярмне UD4 нр декемхъ UD1 мю U2 MAX N1,N2->N3 анкэьее хг вхяек N1 х N2 22 MIN N1,N2->N3 лемэьее хг вхяек N1 х N2 22 MOD N1,N2->N3 нярюрнй нр декемхъ N1 мю N2 18 MSG * ->A йнмярюмрю - юдпея мювюкю астепю MSG 2 MSG# M гмювемхе йнмярюмрш MSG 2 N>LINK * NFA->LFA оепеирх нр онкъ хлемх й онкч ябъгх 30 NAME> * NFA->CFA оепеирх нр онкъ хлемх й онкч йндю 30 NEGATE W1->W2 пегскэрюр бшвхрюмхъ W1 хг мскъ 17 NEXT M бунд б юдпеямши хмрепоперюрнп 1 NEXT1 M опнднкфемхе юдпеямни хмрепоперюжхх нр 1 тнпр-юдпеяю б пецхярпе 14 NOT W1->W2 онпюгпъдмне хмбепрхпнбюмхе 13 NUMBER + T->WD опенапюгнбюрэ ярпнйс р б вхякн WD 39 OFFSET +о ->A оепелеммюъ - днаюбйю й мнлепс акнйю 8 OR W1,W2->W3 онпюгпъдмне кнцхвеяйне "хкх" 13 OVER W1,W2->W1,W2,W1 опндсакхпнбюрэ брнпне ябепус 9 PAD ->A дюрэ юдпея рейсыеи бепьхмш астепю PAD 37 PICK WN,...,W0,+N->WN,...,W0,WN опндсакхпнбюрэ 12 N-е ябепус гмювемхе POP M бунд б юдпеямши хмрепоперюрнп ян ямърхел 3 бепумецн гмювемхъ я бепьхмш ярейю POPPUT1 M бунд б юдпеямши хмрепоперюрнп ян ямърхел 3 бепумецн х гюлемни опедшдсыецн мю гмювемхе хг пецхярпю RW1 PREV *C ->A оепелеммюъ - рейсыхи акнвмши астеп 7 PUSHRW1 M бунд б юдпеямши хмрепоперюрнп я онлеыемхел 3 гмювемхъ хг пецхярпю RW1 мю бепьхмс ярейю PUSH2RW1 M бунд б юдпеямши хмрепоперюрнп я гюлемни 3 бепумецн мю дбнимне гмювемхе хг пецхярпю RW1 PUTRW1 M бунд б юдпеямши хмрепоперюрнп я гюлемни 3 бепумецн гмювемхъ мю гмювемхе хг RW1 QUERY + -> ббеярх я реплхмюкю кхрепш б астеп TIB; 40 вхякн ббедеммшу кхреп гюякюрэ б #TIB QUIT -> яапняхрэ ярей бнгбпюрнб, оепеирх б пефхл 28 хяонкмемхъ х опнднкфхрэ хмрепоперюжхч R. * -> пюяоевюрюрэ мю реплхмюке ярей бнгбпюрнб 42 R> K ->W оепемеярх гмювемхе ян ярейю бнгбпюрнб 9 R@ K ->W яйнохпнбюрэ бепьхмс ярейю бнгбпюрнб 9 RBLK * A,+N-> опнвеярэ щйпюм +N он юдпеяс A 6 RDROP *K -> ямърэ гмювемхе ян ярейю бнгбпюрнб 9 RECURSE +HK -> яйнлохкхпнбюрэ напюыемхе й йнлохкхпселнлс 31 б дюммши лнлемр нопедекемхч REMEMBER + -> нопедекхрэ якнбн, хяонкмемхе йнрнпнцн 45 смхврнфюер бяе онякедсчыхе нопедекемхъ REPEAT HK A1,1,A2,2-> /йнлохкъжхъ/ йнмеж жхйкю 47 -> /хяонкмемхе/ BEGIN WHILE REPEAT ROLL WN,WN-1,...,W0,+N->WN-1,...,W0,WN жхйкхвеяйх 12 оепеярюбхрэ N бепумху гмювемхи ROT W1,W2,W3->W2,W3,W1 оепеярюбхрэ рпх 9 бепумху гмювемхъ он вюянбни ярпекйе RP! * A-> сярюмнбхрэ сйюгюрекэ бепьхмш ярейю 20 бнгбпюрнб мю ю RP@ * ->A юдпея рейсыеи бепьхмш ярейю бнгбпюрнб 20 R0 *C ->A оепелеммюъ - юдпея дмю ярейю бнгбпюрнб 7 S. * -> пюяоевюрюрэ мю реплхмюке ярей дюммшу 42 S>D * N->D пюяьхпхрэ N дн вхякю дбнимни дкхмш D 14 SAVE-BUFFERS -> гюохяюрэ мю дхяй бяе хяопюбкеммше акнйх 26 SCR +о ->A оепелеммюъ - мнлеп щйпюмю б LIST 8 SIGN N-> днаюбхрэ б тнплюрмсч ярпнйс гмюй 37 лхмся, еякх вхякн N нрпхжюрекэмн SMUDGE * -> сярюмнбхрэ б едхмхжс ткюц SMUDGE 31 б онякедмеи янгдюммни ярюрэе SNAPSTK * A1,A2,A3-> пюяоевюрйю ярейю нр ю1 дн ю2 42 я рейярнл ю3; бнгбпюр "вепег ндхм" SP! * A-> сярюмнбхрэ сйюгюрекэ бепьхмш ярейю мю ю 20 SP@ + ->A юдпея рейсыеи бепьхмш ярейю дюммшу 20 SPACE -> мюоевюрюрэ мю реплхмюке опнаек 23 SPACES +N-> мюоевюрюрэ мю реплхмюке +N опнаекнб 23 SPAN о ->A оепелеммюъ дкъ пегскэрюрю EXPECT 8 STATE о ->A оепелеммюъ я янярнъмхел рейярнбнцн 8 хмрепоперюрнпю: "хярхмю" - йнлохкъжхъ SWAP W1,W2->W2,W1 налемърэ леярюлх 2 бепумху 9 S0 +о ->A оепелеммюъ - юдпея дмю ярейю дюммшу 7 TEMP M пюанвюъ накюярэ хг дбсу дбнимшу якнб 2 THEN HK A,2-> /йнлохкъжхъ/ йнмеж бербкемхъ IF 47 -> /хяонкмемхе/ THRU + +N1,+N2-> хмрепоперхпнбюрэ щйпюмш я мнлепюлх 41 нр +N1 дн +N2 бйкчвхрекэмн TIB ->A юдпея бундмнцн рейярнбнцн астепю 2 дкъ ббндю я реплхмюкю TIB# M тнпр-юдпея мювюкю астепю TIB 2 TYPE A,+N-> мюоевюрюрэ мю реплхмюке +N кхреп 6 нр юдпеяю ю U.
яНДЕПФЮМХЕ мЮГЮД бОЕПЕД