MK-161 рдХреЗ рд▓рд┐рдП EFORTH: рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛рдПрдВ

рдпрд╣ рд▓реЗрдЦ рдПрдХ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреИрд▓рдХреБрд▓реЗрдЯрд░ рдкрд░ eForth рд▓реЗрдЦреЛрдВ рдХреА рдПрдХ рд╢реНрд░реГрдВрдЦрд▓рд╛ рдХрд╛ рдЕрдВрдд рд╣реИред рдпрд╣рд╛рдВ рд╕реЗ рд╢реБрд░реВ рдХрд░реЗрдВ ред

рдЗрдирдкреБрдЯ рднрд╛рд╖рд╛ "рдЗрд▓реЗрдХреНрдЯреНрд░реЙрдирд┐рдХреНрд╕ MK-161" рдХреЗ рдХрдорд╛рдВрдб рдХреЗрд╡рд▓ рдЖрдзреЗ рдлрд╝рд╛рдЗрд▓ eForth0.mkl рдкрд░ рдХрдмреНрдЬрд╛ рдХрд░ рд▓реЗрддреЗ рд╣реИрдВред рджреВрд╕рд░реА рдЫрдорд╛рд╣реА рдореЗрдВ рддрд╛рд▓рд┐рдХрд╛рдУрдВ рджреНрд╡рд╛рд░рд╛ рдХрдмреНрдЬрд╛ рдХрд░ рд▓рд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рдЬрд┐рд╕рдХрд╛ рд╡рд┐рдХрд╛рд╕ рдЕрдиреБрд╡рд╛рджрдХ рдХреЗ рдПрд▓реНрдЧреЛрд░рд┐рдердо рднрд╛рдЧ рдХреЛ рд▓рд┐рдЦрдиреЗ рд╕реЗ рдХрдо рдХрдард┐рди рдирд╣реАрдВ рдерд╛ред рдЖрдЗрдП рдЬрд╛рдирдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реЗрдВ рдХрд┐ рдЗрди рддрд╛рд▓рд┐рдХрд╛рдУрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХреИрд╕реЗ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред


рдкреНрд░реЛрдлреЗрд╕рд░ рд╡рд┐рд░реНрде рд╕рд┐рдЦрд╛рддрд╛ рд╣реИ рдХрд┐ "рдЫреЛрдЯреЗ рдореЗрдВ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ" рдореЗрдВ рджреЛ рд╕рдорд╛рди рдорд╣рддреНрд╡рдкреВрд░реНрдг рдШрдЯрдХ - рдПрд▓реНрдЧреЛрд░рд┐рджрдо рдФрд░ рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ рд╡рд┐рдХрд╕рд┐рдд рдХрд░рдирд╛ рд╢рд╛рдорд┐рд▓ рд╣реИред

рд╣рдо рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдПрдХ eForth рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ рдХрд╛ рд╕рд╛рдордирд╛ рдХрд░ рдЪреБрдХреЗ рд╣реИрдВред рдпрд╣ рдмрд╛рдЗрдЯ рдореЗрдореЛрд░реА рдореЗрдВ рд╕реНрдерд┐рдд VCA (рдЙрдЪреНрдЪ-рд╕реНрддрд░реАрдп рд╢рдмреНрдж) рдХрд╛ рд╢рд░реАрд░ рд╣реИред рдЪрд╛рд░ рд╣реИрдВрдбрд▓рд░ рд╡рд┐рднрд┐рдиреНрди рддрд░реАрдХреЛрдВ рд╕реЗ "рдЕрдкрдиреЗ рд╕реНрд╡рдпрдВ рдХреЗ" рд╡реАрд╕реАрдП рдХреЗ рдкреИрд░рд╛рдореАрдЯрд░ рдХреНрд╖реЗрддреНрд░реЛрдВ рдХреА рд╡реНрдпрд╛рдЦреНрдпрд╛ рдХрд░рддреЗ рд╣реИрдВ:

.DB DOVAR ;      .DB тАж ;      .DB DOCON ;    .DW _ ;   .DB DOCONM ;     .DW _ ;   .DB DOLST ;     .DW 1, 2,тАж EXITT ;   

рдирд┐рдореНрди рдЕрдкреЗрдХреНрд╖рд╛рдХреГрдд рд╕рд░рд▓ рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ TYPE рдХреЗ рд╕рд╛рде рдЬреБрдбрд╝реА рд╣реИ "рдорд╛рдирдХ рд╕рдВрджреЗрд╢ред" рд╕рднреА рдИ-рдореЗрд▓ рд╕рдВрджреЗрд╢реЛрдВ рдХреЛ рдЧрд┐рдирд╛ рдЬрд╛рддрд╛ рд╣реИ рдФрд░ рд╕рд╕реНрддреЗ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдореЗрдореЛрд░реА рдореЗрдВ рд╕реНрдерд╛рдирд╛рдВрддрд░рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрджрд┐ TYPE рд╢рдмреНрдж рдПрдХ рдЕрдХреНрд╖рд░ рдХреЛ рдкреНрд░рд┐рдВрдЯ рдХрд░рддрд╛ рд╣реИ, рддреЛ рдЗрд╕рдХрд╛ рдХреЛрдб 0 рд╕реЗ 7 рддрдХ рдЗрд╕ рддрд░рд╣ рдХреЗ рд╕рдВрджреЗрд╢ рдХреА рд╕рдВрдЦреНрдпрд╛ рд╣реЛ рд╕рдХрддреА рд╣реИред

 ;   TYPE .BASE tblTYPE: .DBB str7,str6, str5, str4, str3, str2, str1, str0 

рд╡рд┐рд╕реНрддрд╛рд░рд┐рдд MK рднрд╛рд╖рд╛ рдореЗрдВ, .Bse рдЫрджреНрдо рдХрдорд╛рдВрдб .DBB рдХрдорд╛рдВрдб рдХреЗ рд▓рд┐рдП "рдЖрдзрд╛рд░" рд╕реЗрдЯ рдХрд░рддрд╛ рд╣реИ, рдЬреЛ рдХреНрд░рдорд┐рдХ рд░реВрдк рд╕реЗ str7, str6, рдФрд░ рдЗрд╕реА рддрд░рд╣ рдмрд╛рдЗрдЯреНрд╕ рдХреЗ рд▓рд╛рдЗрди рдСрдлрд╝рд╕реЗрдЯ рдХреЛ рд░рдЦрддрд╛ рд╣реИред рдмреЗрд╕ рд▓реЗрдмрд▓ tblTYPE рдХреЗ рд╕рд╛рдкреЗрдХреНрд╖ред рддрд╛рд▓рд┐рдХрд╛ рдкрддреЗ рдкрд░ 0 рд╕реЗ 7 рддрдХ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХреЛ рдЬреЛрдбрд╝рдирд╛, рдЗрд╕ рдСрдлрд╕реЗрдЯ рдХреЛ рдЗрд╕рд╕реЗ рдкрдврд╝рд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред TblTYPE рдореЗрдВ рдорд┐рд▓реА рдСрдлрд╕реЗрдЯ рдХреЛ рдЬреЛрдбрд╝рдиреЗ рдкрд░, рд╣рдореЗрдВ рд╡рд╛рдВрдЫрд┐рдд рд▓рд╛рдЗрди рдХрд╛ рдкрддрд╛ рдорд┐рд▓рддрд╛ рд╣реИред

рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХреЗ рдкрд╣рд▓реЗ рдмрд╛рдЗрдЯ рдореЗрдВ рдЗрд╕рдХреА рд▓рдВрдмрд╛рдИ рд╣реЛрддреА рд╣реИред eForth рдРрд╕реА рдЧрд┐рдирддреА рд▓рд╛рдЗрдиреЛрдВ рдХрд╛ рд╡реНрдпрд╛рдкрдХ рдЙрдкрдпреЛрдЧ рдХрд░рддрд╛ рд╣реИред

рд╣рдо tblTokens рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ рднреА рдЖрдП, рдЬреЛ рд╕рднреА 208 рдПрдореНрдмреЗрдбреЗрдб рд╢рдмреНрджреЛрдВ рдХреЗ рдХреЛрдб рдкрддреЛрдВ рдХреЛ рд╕реВрдЪреАрдмрджреНрдз рдХрд░рддрд╛ рд╣реИред рдпрджрд┐ рд╢рдмреНрдж рдЖрджрд┐рдо рдирд╣реАрдВ рд╣реИ, рддреЛ рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ 0. рд╣реИред рдкрддрд╛ 0 рдкрд░ рдЬрд╛рдиреЗ рд╕реЗ eForth рд░рд┐рдмреВрдЯ рдХрд╛ рдХрд╛рд░рдг рд╣реЛрдЧрд╛, рдПрдХ рдЪреАрдЦрд╝ рдХреЗ рд╕рд╛рдеред

рддрд╛рд▓рд┐рдХрд╛ рдХреЗ рдирд╛рдореЛрдВ рдХрд╛ рднреА рдЙрд▓реНрд▓реЗрдЦ рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛, рдЙрд╕реА 208 рд╢рдмреНрджреЛрдВ рдХреЗ рдирд╛рдо рдХрд╛ рдЙрд▓реНрд▓реЗрдЦ рдХрд░рддреЗ рд╣реБрдПред рдЧрд┐рдирддреА рд▓рд╛рдЗрдиреЛрдВ рдХреЗ рд░реВрдк рдореЗрдВ рдЗрди рдирд╛рдореЛрдВ рдХреЛ рдЙрд╕реА "рд░рдмрд░" рдкреНрд░реЛрдЧреНрд░рд╛рдо рдореЗрдореЛрд░реА рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред TFNames рдЯреЗрдмрд▓ рд╕реНрд╡рдпрдВ рдЙрдкрд▓рдмреНрдз рдирд╣реАрдВ рд╣реЛрдЧрд╛ рдЬрдмрдХрд┐ eForth рдЪрд▓ рд░рд╣рд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЗрд╕рдореЗрдВ рдореМрдЬреВрдж рдЬрд╛рдирдХрд╛рд░реА рдЦреЛ рдирд╣реАрдВ рдЬрд╛рдПрдЧреАред рд╕рдВрдХрд▓рди рдХреЗ рд╕рдордп, eForth.f рджрд╢рдорд▓рд╡ рд╕реНрдореГрддрд┐ рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рдЕрдзрд┐рдХ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ рдХреЛ рдирд╛рдореЛрдВ рдХрд╛ рдкрддрд╛ рд╕реНрдерд╛рдирд╛рдВрддрд░рд┐рдд рдХрд░реЗрдЧрд╛ (рджреЗрдЦреЗрдВ 2)ред

рдореИрдВрдиреЗ рдХреИрд▓рдХреБрд▓реЗрдЯрд░ рдХреА рд╕реНрдХреНрд░реАрди рдкрд░ рдПрдХ рдкрддреНрд░ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рддреЗ рд╕рдордп tblCHPUT, рдирд┐рдпрдВрддреНрд░рдг рдХреЛрдб рдХреА рдПрдХ рд╕рд╛рд╣рдЪрд░реНрдп рддрд╛рд▓рд┐рдХрд╛ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рднреА рдмрд╛рдд рдХреА рдереАред рдПрдХ рдФрд░ рд╕рд╛рдд рдЯреЗрдмрд▓, tblKeyNum рд╕реЗ tblKeyRusF рддрдХ, рдЕрд▓рдЧ-рдЕрд▓рдЧ рдХреАрдмреЛрд░реНрдб рдореЛрдб рдореЗрдВ рджрдмрд╛рдП рдЧрдП рдмрдЯрди рдХреЗ рдХреЛрдб рдХреЛ 8-рдмрд┐рдЯ рдЕрдХреНрд╖рд░ рдХреЛрдб рдореЗрдВ рдЕрдиреБрд╡рд╛рдж рдХрд░реЗрдВред рд╕рдХреНрд░рд┐рдп рдХреАрдмреЛрд░реНрдб рдореЛрдб рдХреЗ рд▓рд┐рдП рдЬрд┐рдореНрдореЗрджрд╛рд░ рд╕рдмрд░реВрдЯреАрди рдХрд╛ рдкрддрд╛ рджрд╢рдорд▓рд╡ рд░рдЬрд┐рд╕реНрдЯрд░ ptrKbdInt рдореЗрдВ рд╣реИред

рдХреБрд▓ рдорд┐рд▓рд╛рдХрд░, рдХреЗрд╡рд▓ рдПрдХ рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ eForth0.mkl рдлрд╛рдЗрд▓ рдореЗрдВ рдЕрдирд╕реИрдмрд▓ рд░рд╣реА, рдпреЗ рдирд╛рдо рд░рд┐рдХрдЧреНрдирд┐рд╢рди рдЯреЗрдмрд▓ рд╣реИрдВред рдЪрд▓реЛ рдЙрдиреНрд╣реЗрдВ рдореБрдЦреНрдп рдкрд╛рдареНрдпрдХреНрд░рдо рдХреЗ рдмрд╛рдж рдорд┐рдард╛рдИ (5 рджреЗрдЦреЗрдВ) рдХреЗ рд▓рд┐рдП рдЫреЛрдбрд╝ рджреЗрдВ - рджрд╢рдорд▓рд╡ рдореЗрдореЛрд░реА рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рджреЛ рд╢реАрд░реНрд╖рдХ рддрд╛рд▓рд┐рдХрд╛рдПрдВред рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рд╣рдо рдЗрди рд╢реАрд░реНрд╖рдХреЛрдВ рдХреЛ "рд╕рд╛рдорд╛рди" рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЙрдкрдХрд░рдгреЛрдВ рдХреЗ рд╕рд╛рде рдмрд╛рдВрдЯреЗрдВрдЧреЗред

1. рд╢реАрд░реНрд╖рдХреЛрдВ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░реЗрдВ: рд╣реЗрдб! рдФрд░ HEAD @


 HEAD! ( xt nfa r -- )     r,  xt  nfa. HEAD@ ( r -- xt nfa lex )     r,  xt, nfa  . 

рдПрдХ рджрд╢рдорд▓рд╡ рд░рдЬрд┐рд╕реНрдЯрд░ MK-161 12 рджрд╢рдорд▓рд╡ рд╕реНрдерд╛рдиреЛрдВ рдХреЛ рдпрд╛рдж рдХрд░ рд╕рдХрддрд╛ рд╣реИред eForth рдЗрд╕ рд░рдЬрд┐рд╕реНрдЯрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рддреАрди рдЫреЛрдЯреА рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХреЛ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд░рддрд╛ рд╣реИ, рдЬрд┐рдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ 0 рд╕реЗ 9999 рддрдХ рд╣реИред рдЗрди рдирдВрдмрд░реЛрдВ рдХреЛ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рддреАрди "рдлрд╝реАрд▓реНрдб" I рд╣реИрдВ, рдЬрд┐рдиреНрд╣реЗрдВ A, B рдФрд░ C: AAAABBBBCCCC рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред рджрд╢рдорд▓рд╡ рдЪрд┐рд╣реНрди рдХреЗрд╡рд▓ рдлрд╝реАрд▓реНрдб рдП рдХреЛ рд╕рдВрджрд░реНрднрд┐рдд рдХрд░рддрд╛ рд╣реИред

HEAD @ рдЖрджрд┐рдо рд░рдЬрд┐рд╕реНрдЯрд░ рд╕рдВрдЦреНрдпрд╛ рдкреНрд░рд╛рдкреНрдд рдХрд░рддрд╛ рд╣реИ рдФрд░ рд╡рд╣рд╛рдВ рд╕реЗ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХреЛ рдЦреЗрддреЛрдВ рдореЗрдВ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░рддрд╛ рд╣реИ, рдФрд░ HEAD! рдПрдХ рд▓рдВрдмреА рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ рдлрд╝реАрд▓реНрдб рдПрдХрддреНрд░ рдХрд░рддрд╛ рд╣реИ рдФрд░ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рд░рдЬрд┐рд╕реНрдЯрд░ рдореЗрдВ рдкрд░рд┐рдгрд╛рдореА "рд░рд╛рдХреНрд╖рд╕" рд▓рд┐рдЦрддрд╛ рд╣реИред рд▓реЗрдХрд┐рди рдмрд╛рд░реАрдХрд┐рдпрд╛рдВ рд╣реИрдВред

рд╢рдмреНрдж рдХреЗ "рджрд╢рдорд▓рд╡ рд╢реАрд░реНрд╖рдХ" рдореЗрдВ рдлрд╝реАрд▓реНрдб рдП рдореЗрдВ рдЙрд╕рдХреЗ рдирд╛рдо рдХрд╛ рдкрддрд╛ (nfa) рд╢рд╛рдорд┐рд▓ рд╣реИред рдпрджрд┐ рдпрд╣ рдкрддрд╛ рдирдХрд╛рд░рд╛рддреНрдордХ рд╣реИ, рддреЛ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдореЗрдореЛрд░реА рдореЗрдВ рдирд╛рдо рд╕рдВрдЧреНрд░рд╣реАрдд рд╣реИред рдлрд╝реАрд▓реНрдб рдмреА рдореЗрдВ рдЯреЛрдХрди (xt) рд╢рдмреНрдж рд╣реИред рдлреАрд▓реНрдб C рдХреЛ рд▓реЗрдХреНрд╕рд┐рдХреЙрди рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрд╣ IMMEDIATE рдмрд┐рдЯ рдФрд░ рдПрдХ рд╕рдВрдХреЗрдд рдХреЛ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд░рддрд╛ рд╣реИ рдЬреЛ рд╢рдмреНрдж рдХреЗрд╡рд▓ рд╕рдВрдХрд▓рди рдХреЗ рд▓рд┐рдП рдЕрднрд┐рдкреНрд░реЗрдд рд╣реИред

рд╣реЗрдб @ рднрд╛рдЧреЛрдВ рдореЗрдВ рд╣реЗрдбрд░ рдХреЛ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░рддрд╛ рд╣реИред рд╕реНрдЯреИрдХ рдХреЗ рд╢реАрд░реНрд╖ рдкрд░ рд▓реЗрдХреНрд╕рд┐рдХреЙрди рдлрд╝реАрд▓реНрдб рд╕реА рд╣реИ, рдЗрд╕рдХреЗ рддрд╣рдд рдирд╛рдо рдлрд╝реАрд▓реНрдб рдПред рдлреАрд▓реНрдб рдмреА рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдЖрдорддреМрд░ рдкрд░ рдЯреЛрдХрди рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдмрд╣реБрдд рдиреАрдЪреЗ рд╣реИред

рдкреНрд░рдореБрдЦ! рдХреНрд╖реЗрддреНрд░ C рдХреЛ рд░реАрд╕реЗрдЯ рдХрд░рддрд╛ рд╣реИред

2. рдЗрдирд▓рд╛рдЗрди рд╣реЗрдбрд┐рдВрдЧ




208 рдирд┐рд░реНрдорд┐рдд рд╢рдмреНрджреЛрдВ (0 рд╕реЗ 207) рдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдХреЗ рд╣реЗрдбрд░ рдХреНрд░рдо рдореЗрдВ рдЪрд▓рддреЗ рд╣реИрдВ, рдЬреЛ рдЖрд░ 44 рд╕реЗ рд╢реБрд░реВ рд╣реЛрддреЗ рд╣реИрдВред рдлрд╝реАрд▓реНрдб рдП рдореЗрдВ рд╣рдореЗрд╢рд╛ рдПрдХ рдЛрдгрд╛рддреНрдордХ рд╕рдВрдЦреНрдпрд╛ рд╣реЛрддреА рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдореЗрдореЛрд░реА рдореЗрдВ рдЗрди рд╢рдмреНрджреЛрдВ рдХреЗ рдирд╛рдо рд╣рд╛рд░реНрдбрдХреЛрдб рд╣реЛрддреЗ рд╣реИрдВред

рдлрд╝реАрд▓реНрдб B рдФрд░ C рд╕рдВрдкрд╛рджрди рдпреЛрдЧреНрдп рд╣реИрдВред рдЗрд╕рд▓рд┐рдП, рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдЕрдВрддрд░реНрдирд┐рд╣рд┐рдд рд╢рдмреНрджреЛрдВ рдХреЛ рдкреБрдирд░реНрдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░ рд╕рдХрддрд╛ рд╣реИ рдФрд░ IMMEDIATE рдХрд░ рд╕рдХрддрд╛ рд╣реИ рдЬреЛ рдЙрдиреНрд╣реЗрдВ рдЙрдирдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ (4 рджреЗрдЦреЗрдВ)ред

3. рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╢реАрд░реНрд╖рдХреЛрдВ




рдХреЗрд╡рд▓ 208 рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдирд╛рдореЛрдВ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдирд╛ рдмрд╛рдЗрдЯ рдореЗрдореЛрд░реА рдХреЛ рдмрдЪрд╛рддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЕрд╕рд╛рдорд╛рдиреНрдп рд░реВрдк рд╕реЗ рдЙрдмрд╛рдК рд╣реИред рдЗрд╕рд▓рд┐рдП, рдореИрдВрдиреЗ рдПрдХ рдФрд░ рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ рд╡рд┐рдХрд╕рд┐рдд рдХреА рдЬрд╣рд╛рдВ рдирд╛рдо рдЪреБрдирдиреЗ рдХреА рдлрдВрддрд╛рд╕реА рдХреЗрд╡рд▓ 32 рдЕрдХреНрд╖рд░реЛрдВ рддрдХ рд╕реАрдорд┐рдд рд╣реИред рдЗрд╕ рд╕рдВрд░рдЪрдирд╛ рдореЗрдВ 32 рд╕реВрдЪрд┐рдпрд╛рдБ рд╣реИрдВ , рдЬрд┐рдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд▓рдВрдмрд╛рдИ рдХреЗ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╢рдмреНрджреЛрдВ рдХреЗ рд▓рд┐рдП рдЬрд┐рдореНрдореЗрджрд╛рд░ рд╣реИред рдЗрди 32 рд╕реВрдЪрд┐рдпреЛрдВ рдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдореЗрдВ рдПрдХ рд╡реНрдпрдХреНрддрд┐рдЧрдд рд╢реАрд░реНрд╖рдХ рд╣реИред рд╕реВрдЪрд┐рдпрд╛рдБ рд╕реНрд╡рдпрдВ рджрд╢рдорд▓рд╡ рдореЗрдореЛрд░реА рдкрд░ рдХреВрджрддреА рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЙрдирдХреЗ рд╣реЗрдбрд░ рд╣рдореЗрд╢рд╛ R301 ... R332 рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рд╣реЛрддреЗ рд╣реИрдВред

рдирд╛рдо рдХреА рд▓рдВрдмрд╛рдИ рдХреЗ рдЖрдзрд╛рд░ рдкрд░ рд╢рдмреНрджреЛрдВ рдХреЛ рдХреНрд░рдордмрджреНрдз рдХрд░рдирд╛ 161eForth рдХрд╛ рдПрдХ рдорд╣рддреНрд╡рдкреВрд░реНрдг рдЖрдХрд░реНрд╖рдг рд╣реИред рдЬрдм рдЖрдк рдХрд┐рд╕реА рд╢рдмреНрдж рдХреЛ рдЙрд╕рдХреЗ рдирд╛рдо рд╕реЗ рдЦреЛрдЬрддреЗ рд╣реИрдВ, рддреЛ рд╕рдВрдХрд▓рди рдХреЛ рдЧрддрд┐ рджреЗрддреЗ рд╣реБрдП рддреБрд▓рдирд╛рддреНрдордХ рд░реВрдк рд╕реЗ рдмрд╣реБрдд рдХрдо рд╣реЛ рдЬрд╛рддрд╛ рд╣реИред рдпрджрд┐ рдкреНрд░рддреНрдпреЗрдХ рдирд╛рдо рдХреА рд▓рдВрдмрд╛рдИ рдЬреНрдЮрд╛рдд рд╣реИ, рддреЛ рдХрд┐рд╕рдХреЛ рд╣реИрд╢ рдлрд╝рдВрдХреНрд╢рди рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ?

рд╕рд╛рджрдЧреА рдХреЗ рд▓рд┐рдП, рд╕реВрдЪреА рдХреЗ рд╢реАрд░реНрд╖рдХ рдореЗрдВ рдлрд╝реАрд▓реНрдб A, B, рдФрд░ C рдХреЗ рд╕рд╛рде рдПрдХ рд╣реА рд╕рдВрд░рдЪрдирд╛ рд╣реЛрддреА рд╣реИ рдЬреИрд╕реЗ рд╢рдмреНрдж рдХрд╛ рд╢реАрд░реНрд╖рдХред рдЗрди рдХреНрд╖реЗрддреНрд░реЛрдВ рдХрд╛ рдЙрджреНрджреЗрд╢реНрдп рдЕрд▓рдЧ рд╣реИред рдлрд╝реАрд▓реНрдб рдП рдореЗрдВ рд╕реВрдЪреА рдореЗрдВ рдкрд╣рд▓реЗ рд░рдЬрд┐рд╕реНрдЯрд░ рдХреА рд╕рдВрдЦреНрдпрд╛ рд╢рд╛рдорд┐рд▓ рд╣реИред рдлрд╝реАрд▓реНрдб рдмреА рдореЗрдВ рд╕реВрдЪреА рдХреЛ рдкреНрд░рджрд╛рди рдХрд┐рдП рдЧрдП рд░рдЬрд┐рд╕реНрдЯрд░ рдХреА рд╕рдВрдЦреНрдпрд╛ рд╢рд╛рдорд┐рд▓ рд╣реИред рдлрд╝реАрд▓реНрдб рд╕реА рдЙрди рд╢рдмреНрджреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЛ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд░рддрд╛ рд╣реИ рдЬрд┐рдирдХреА рд╣реЗрдбрд┐рдВрдЧ рдкрд╣рд▓реЗ рд╕реЗ рд╕реВрдЪреА рдореЗрдВ рд╣реИред

рдХрд╛рд░реНрдп рдХреА рд╢реБрд░реБрдЖрдд рдореЗрдВ, рдлрд╝реАрд▓реНрдб C рд╢реВрдиреНрдп рдХреЗ рдмрд░рд╛рдмрд░ рд╣реИрдВ, рд╕рднреА рд╕реВрдЪрд┐рдпреЛрдВ рдореЗрдВ рд╢рдмреНрдж рдЕрдиреБрдкрд╕реНрдерд┐рдд рд╣реИрдВред рдлрд╝реАрд▓реНрдб рдмреА 2 рд╣реИрдВ, рдкреНрд░рддреНрдпреЗрдХ рд╕реВрдЪреА рдХреЛ рд╢реБрд░реВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХреБрдЫ рд░рдЬрд┐рд╕реНрдЯрд░ рджрд┐рдП рдЧрдП рд╣реИрдВред рдлрд╝реАрд▓реНрдб A, R333 рд╕реЗ рд╢реБрд░реВ рд╣реЛрдиреЗ рд╡рд╛рд▓реЗ 2 рд░рдЬрд┐рд╕реНрдЯрд░реЛрдВ рдХреЗ рдмреНрд▓реЙрдХ рдХреЛ рджрд░реНрд╢рд╛рддрд╛ рд╣реИред

рдкреНрд░рддреНрдпреЗрдХ рд╕реВрдЪреА рдореЗрдВ рд╢рдмреНрджреЛрдВ рдХреЗ рд╢реАрд░реНрд╖рдХ рд╣реЛрддреЗ рд╣реИрдВред рд╣рдордиреЗ рдЙрдиреНрд╣реЗрдВ рдкрд╣рд▓реЗ рд╣реА рдЕрд▓рдЧ рдХрд░ рджрд┐рдпрд╛ рд╣реИ (рджреЗрдЦреЗрдВред 1)ред рдпрд╣рд╛рдВ, рд╢рд╛рдпрдж, рдирд╛рдо (рдПрдирдПрдПрдлрдП) рдХрд╛ рдкрддрд╛ рд╕рдХрд╛рд░рд╛рддреНрдордХ рд╣реЛрдЧрд╛ рдФрд░ рдкрд╛рд░рдВрдкрд░рд┐рдХ рд░реВрдк рд╕реЗ рд╡реАрд╕реАрдП рдХреЗ рд╢рд░реАрд░ рдХреЗ рд╕рд╛рдордиреЗ рдЧрд┐рдирд╛ рдЬрд╛рдиреЗ рд╡рд╛рд▓реА рд▓рд╛рдЗрди рдХреА рдУрд░ рдЗрд╢рд╛рд░рд╛ рдХрд░реЗрдЧрд╛ред рд╕рд╛рде рд╣реА, рдлрд╝реАрд▓реНрдб B рдореЗрдВ рдЯреЛрдХрди рдХреЛрдб рдлрд╝реАрд▓реНрдб (cfa) рдХрд╛ рдкрддрд╛ рд╣реИ рдЬреЛ рдЗрд╕ рдирд╛рдо рдХреЗ рддреБрд░рдВрдд рдмрд╛рдж рдмрд╛рдЗрдирд░реА рдореЗрдореЛрд░реА рдореЗрдВ рдЬрд╛рддрд╛ рд╣реИред рдПрдХ рдЕрдкрд╡рд╛рдж рд╣реИ - рдпрджрд┐ рд╢рдмреНрдж рдкрд╣рд▓реЗ рд╕реЗ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рддреЛ рдлрд╝реАрд▓реНрдб рдП рдкреБрд░рд╛рдиреЗ рдирд╛рдо рдХреЛ рдЗрдВрдЧрд┐рдд рдХрд░реЗрдЧрд╛ред рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХреЛ рдлрд┐рд░ рд╕реЗ рдХреНрдпреЛрдВ рд╕реНрдЯреЛрд░ рдХрд░реЗрдВ? рдмрд╛рдЗрдирд░реА рдореЗрдореЛрд░реА рдорд╣рдВрдЧреА рд╣реИред

рдЬрдм рд╕реВрдЪреА рдХреЗ рд╕рднреА рд░рдЬрд┐рд╕реНрдЯрд░ рднрд░реЗ рд╣реБрдП рд╣реЛрддреЗ рд╣реИрдВ (B = C), рд╢рдмреНрдж PUBLISH 5 рдФрд░ рдореБрдХреНрдд рд╕реНрдерд╛рди рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИ, рдЗрд╕ рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ рдХреЛ рд╕рд╣реА рд╕реНрдерд╛рди рдкрд░ рдзрдХреЗрд▓рддрд╛ рд╣реИ рдФрд░ рд╕реВрдЪреА рд╢реАрд░реНрд╖рд▓реЗрдЦреЛрдВ рдореЗрдВ рд▓рд┐рдВрдХ (A) рдХреЛ рд╕рдорд╛рдпреЛрдЬрд┐рдд рдХрд░рддрд╛ рд╣реИред

4. рдПрдХ рдирдП рд╢рдмреНрдж рдХрд╛ рдкреНрд░рдХрд╛рд╢рди: рдХрд╛рд░реНрдп рдФрд░ рдкреНрд░рдХрд╛рд╢рди


 LAST ( -- a )      . WORK ( -- a )     . PUBLISH ( -- )     . $,n ( nfa -- )     ,    nfa. ?UNIQUE ( a -- a )  ,    . 

рд╢рдмреНрдж рд╢реАрд░реНрд╖рдХреЛрдВ рдХреЗ рднрдВрдбрд╛рд░рдг рдХреЗ рд▓рд┐рдП MK-161 рдХреЗ рд▓рд┐рдП рд╡рд┐рдХрд╕рд┐рдд рдХреА рдЧрдИ рдбреЗрдЯрд╛ рд╕рдВрд░рдЪрдирд╛ рд╡реНрдпрд╛рд╡рд╣рд╛рд░рд┐рдХ рд░реВрдк рд╕реЗ рдмрджрд▓ рдЧрдИ рдФрд░ рдЖрд╕рд╛рдиреА рд╕реЗ eForth рдореЗрдВ рдПрдХреАрдХреГрдд рд╣реЛ рдЧрдИред рдЬрдм, CONSTANT рдпрд╛: рдПрдХ рдирдпрд╛ рд╢рдмреНрдж рдмрдирд╛рддрд╛ рд╣реИ, рддреЛ рд╡реЗ рджрд┐рдП рдЧрдП рдирд╛рдо рдХреЗ рд╕рд╛рде рд╢рдмреНрдж рдХреЗ рд▓рд┐рдП рдПрдХ рд╢реАрд░реНрд╖рдХ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рд╕рд┐рд╕реНрдЯрдо рд╢рдмреНрдж $, n рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВред $, n рдХреЛ рд╕рдВрджрд░реНрднрд┐рдд рдХрд░рддрд╛ рд╣реИ? рд╕рддреНрдпрд╛рдкрди рдХреЗ рд▓рд┐рдП UNIQUE - рдХреНрдпрд╛ рд╣рдо рдПрдХ рдирдпрд╛ рд╢рдмреНрдж рдмрдирд╛рддреЗ рд╣реИрдВ рдпрд╛ рдкреБрд░рд╛рдиреЗ рдХреЛ рдлрд┐рд░ рд╕реЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ?

рдпрджрд┐ рд╕рдорд╛рди рдирд╛рдо рд╡рд╛рд▓рд╛ рдХреЛрдИ рд╢рдмреНрдж рдкрд╣рд▓реЗ рд╕реЗ рдореМрдЬреВрдж рд╣реИ, рддреЛ UNIQUE рдЗрд╕ рдмрд╛рд░реЗ рдореЗрдВ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреЛ рдЪреЗрддрд╛рд╡рдиреА рджреЗрддрд╛ рд╣реИред рдЙрд╕реА рд╕рдордп, рдкреБрдирд░реНрдирд┐рд░реНрдзрд╛рд░рд┐рдд рд╣реЗрдбрд░ рдХрд╛ рдкрддрд╛ LAST рд╕рд┐рд╕реНрдЯрдо рдЪрд░ рдореЗрдВ рджрд░реНрдЬ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдПрдХ рдирдП рд╢рдмреНрдж рдХреЗ рд▓рд┐рдП, LAST рдХреЛ рд╢реВрдиреНрдп рдкрд░ рд░реАрд╕реЗрдЯ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред

рдХрд┐рд╕реА рднреА рдорд╛рдорд▓реЗ рдореЗрдВ, $, n, рд╡рд░реНрдХ рдЪрд░ рдореЗрдВ рдПрдХ рдирдпрд╛ рд╣реЗрдбрд░ рдмрдирд╛рддрд╛ рд╣реИ - рдпрд╣ рдПрдХ рджрд╢рдорд▓рд╡ рд░рдЬрд┐рд╕реНрдЯрд░ рд╣реИ рдЬреЛ рд╣реЗрдбрд░ рдХреЗ 12 рдмрд┐рдЯреНрд╕ рдХреЛ рд╕реНрдЯреЛрд░ рдХрд░ рд╕рдХрддрд╛ рд╣реИред рдпрджрд┐ рдирд╛рдо рдирд╣реАрдВ рдорд┐рд▓рд╛, рддреЛ рдпрд╣ рдХреЛрдб рдлрд╝реАрд▓реНрдб рд╕реЗ рдкрд╣рд▓реЗ рд╢рдмреНрджрдХреЛрд╢ рдореЗрдВ рд╢рд╛рдорд┐рд▓ рд╣реИ, рдЬреИрд╕рд╛ рдХрд┐ 86eForth рдФрд░ рдХрдИ рдЕрдиреНрдп рдлрд╝реЙрд░реНрдЯреНрд╕ рдореЗрдВ рд╣реЛрддрд╛ рд╣реИред MK-161 рдПрдХ "рд╕рдВрдЪрд╛рд░ рдХреНрд╖реЗрддреНрд░" рдХреЗ рдмрд┐рдирд╛ рдХрд░рдиреЗ рдореЗрдВ рдХрд╛рдордпрд╛рдм рд░рд╣рд╛ , рдпрд╣ рдмрд╛рдЗрдирд░реА рдореЗрдореЛрд░реА рдХреЛ рднреА рдмрдЪрд╛рддрд╛ рд╣реИред

PUBLISH рдЖрджрд┐рдо рдПрдХ рд╢рдмреНрдж рдХреА рдкрд░рд┐рднрд╛рд╖рд╛ рдХреЛ рдкреВрд░рд╛ рдХрд░рддрд╛ рд╣реИред рдмреГрд╣рджрд╛рдиреНрддреНрд░ рд╢рдмреНрджреЛрдВ рдХреЛ рд╕рдВрдХрд▓рд┐рдд рдХрд░рддреЗ рд╕рдордп, PUBLISH рд╕реЗ рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ ;; рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк, SMUDGE рдмрд┐рдЯ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рдереАред рд╡рд╣ рд╕реНрдерд╛рди рдЬрд╣рд╛рдБ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ рд╢реАрд░реНрд╖рдХ рд╕реЗ рд╢реАрд░реНрд╖рд▓реЗрдЦ рдХреЛ LAST рдЪрд░ рджреНрд╡рд╛рд░рд╛ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрджрд┐ LAST рд╢реВрдиреНрдп рд╣реИ, рддреЛ рд╕рдВрдмрдВрдзрд┐рдд рд╕реВрдЪреА рдореЗрдВ рдПрдХ рдирдпрд╛ рд╣реЗрдбрд░ рдмрдирд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ (рджреЗрдЦреЗрдВ 3)ред рдХреНрдпрд╛ рд╕реВрдЪреА рдкреВрд░реА рд╣реИ? рдЙрд╕рдХреЗ рдмрд╛рдж PUBLISH рдЗрд╕рдореЗрдВ 5 рдФрд░ рд░рдЬрд┐рд╕реНрдЯрд░ рдЬреЛрдбрд╝реЗрдЧреА, рдЬрд┐рдирдореЗрдВ рд╕реЗ рдЪрд╛рд░ рднрд╡рд┐рд╖реНрдп рдХреЗ рд▓рд┐рдП рд╣реЛрдВрдЧреЗред

PUBLISH рдЪрд▓рд╛рдиреЗ рдХреЗ рдмрд╛рдж, LAST рд╡реИрд░рд┐рдПрдмрд▓ рд╣рдореЗрд╢рд╛ рдЕрдВрддрд┐рдо рд╢рдмреНрдж рдХреЗ рд╢реАрд░реНрд╖рдХ рдХреА рдУрд░ рдЗрд╢рд╛рд░рд╛ рдХрд░рддрд╛ рд╣реИред рдпрд╣ lexicon рдлреАрд▓реНрдб рдХреЛ рдмрджрд▓рдХрд░ IMMEDIATE рдХреЛ рдЕрдкрдирд╛ рдХрд╛рдо рдХрд░рдиреЗ рдореЗрдВ рдорджрдж рдХрд░рддрд╛ рд╣реИред

5. (FIND) рдФрд░ рдирд╛рдо рдкрд╣рдЪрд╛рди рддрд╛рд▓рд┐рдХрд╛рдПрдБ


 (FIND) ( a -- r T | a F )    r,        a. FIND ( a -- a F | xt 1 | xt -1)    .  1,  IMMEDIATE. 

рдПрдХ рдЖрджрд┐рдо (FIND) рдХрд┐рд╕реА рд╢рдмреНрдж рдХреА рдЦреЛрдЬ рдХреЛ рдЙрд╕рдХреЗ рдирд╛рдо рд╕реЗ рдкреНрд░рдмрдВрдзрд┐рдд рдХрд░рддрд╛ рд╣реИред рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рд╡рд╣ рдкрд╣рд▓реЗ рд╕реЗ рдЬреНрдЮрд╛рдд рдирд╛рдореЛрдВ рдХреЗ рд╕рд╛рде рдЕрдВрддрд░реНрдирд┐рд╣рд┐рдд рд╢рдмреНрджреЛрдВ рдХреЗ рдмреАрдЪ рдПрдХ рдирд╛рдо рдЦреЛрдЬрддрд╛ рд╣реИ, рдлрд┐рд░ рд╡рд╛рдВрдЫрд┐рдд рдирд╛рдо рдХреА рд▓рдВрдмрд╛рдИ (рджреЗрдЦреЗрдВ 3) рдХреЗ рд╕рд╛рде рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╢рдмреНрджреЛрдВ рдХреА рд╕реВрдЪреА рдХреА рдЬрд╛рдВрдЪ рдХрд░рддрд╛ рд╣реИред рдирд╛рдо рдорд╛рдиреНрдпрддрд╛ рддрд╛рд▓рд┐рдХрд╛рдПрдБ рдЗрд╕ "рдкрд╣рд▓реЗ" рдХреЛ рдмрд╣реБрдд рддреЗрдЬ рдХрд░рддреА рд╣реИрдВред рдпрд╣рд╛рдВ рдмрддрд╛рдпрд╛ рдЧрдпрд╛ рд╣реИ рдХрд┐ рд╡реЗ рдХреИрд╕реЗ рдХрд╛рдо рдХрд░рддреЗ рд╣реИрдВред

рд╢реБрд░реБрдЖрдд рдореЗрдВ (FIND) рдпрд╣ tblLen array рдХреЛ рдореБрдЦреНрдп рд╕рд╛рд╣рдЪрд░реНрдп рддрд╛рд▓рд┐рдХрд╛ рдХрд╛ рдкрддрд╛ рдмрддрд╛рддрд╛ рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдЖрд╡рд╢реНрдпрдХ рд▓рдВрдмрд╛рдИ рдХреЗ рдкреНрд░рд╕рд┐рджреНрдз рдирд╛рдо "рддреИрдпрд╛рд░" рд╣реИрдВред рдЗрд╕ рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ (FIND) рдирд╛рдо рдХреЗ рдкрд╣рд▓реЗ рд╡рд░реНрдг рдХреЛ рдЦреЛрдЬрддрд╛ рд╣реИред рдЬреНрдпрд╛рджрд╛рддрд░ рдорд╛рдорд▓реЛрдВ рдореЗрдВ, рдпрд╣ рдЖрдкрдХреЛ рддреБрд░рдВрдд рдЦреЛрдЬреЗ рдЧрдП рд╢рдмреНрдж рдХреЗ рд╢реАрд░реНрд╖рдХ рд░рдЬрд┐рд╕реНрдЯрд░ рдирдВрдмрд░ рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ - рдкрд╣рд▓реЗ рдЕрдХреНрд╖рд░ рдФрд░ рд▓рдВрдмрд╛рдИ рд╕реЗред

рдРрд╕рд╛ рд╣реЛрддрд╛ рд╣реИ рдХрд┐ рдПрдХ рд╣реА рд▓рдВрдмрд╛рдИ рдХреЗ рдХрдИ рд╢рдмреНрджреЛрдВ рдореЗрдВ рд╕рдорд╛рди рдЕрдХреНрд╖рд░ рд╣реЛрддреЗ рд╣реИрдВред рдлрд┐рд░ рд░рдЬрд┐рд╕реНрдЯрд░ рдирдВрдмрд░ (FIND) рдХреЗ рдмрдЬрд╛рдп, рдпрд╣ рдЕрдЧрд▓реЗ рд╕рд╛рд╣рдЪрд░реНрдп рддрд╛рд▓рд┐рдХрд╛ (рдкрдврд╝рдиреЗ рдХреА рд╕рдВрдЦреНрдпрд╛ 300 рдпрд╛ рдЕрдзрд┐рдХ) рдХреЗ рдкрддреЗ рдкрд░ рдареЛрдХрд░ рдЦрд╛рддрд╛ рд╣реИ рдФрд░ рджреВрд╕рд░реЗ рдкрддреНрд░ рдкрд░ рдЦреЛрдЬ рдЬрд╛рд░реА рд╣реИред рдФрд░ рдЗрд╕реА рддрд░рд╣, рдЬрдм рддрдХ рдпрд╣ рд╢рдмреНрдж рдирд╣реАрдВ рдорд┐рд▓рд╛ рд╣реИ рдпрд╛ рдпрд╣ рд╕реНрдерд╛рдкрд┐рдд рд╣реИ рдХрд┐ рдРрд╕рд╛ рдХреЛрдИ рд╢рдмреНрдж рдирд╣реАрдВ рд╣реИред

рдмреЗрд╢рдХ, рдкрд╣рд▓реЗ рдЕрдХреНрд╖рд░реЛрдВ (FIND) рдХреЗ рд▓рд┐рдП рдПрдХ рдореИрдЪ рдХреЗ рдмрд╛рдж, рдкреВрд░реЗ рдирд╛рдо рдХреЛ рд╕рддреНрдпрд╛рдкрд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИред рд▓реЗрдХрд┐рди рдорд╛рдиреНрдпрддрд╛ рддрд╛рд▓рд┐рдХрд╛рдУрдВ рдиреЗ рддреЗрдЬреА рд╕реЗ рд╕реБрдзрд╛рд░ рдХрд┐рдпрд╛ ред рдЗрд╕ рд╡рд╕рдВрдд рдореЗрдВ, рдореИрдВрдиреЗ рдЕрдкрдирд╛ рдмрд╣реБрдд рд╕рд╛рд░рд╛ рд╕рдордп рдЙрдирдореЗрдВ рд▓рдЧрд╛рдпрд╛, рдФрд░ рдЕрдм рд╡реЗ рдЦреЛрдЬ рд╕рдордп рдмрдЪрд╛рддреЗ рд╣реИрдВред рдЙрдирдореЗрдВ "рдХреБрдВрдЬрд┐рдпрд╛рдБ" рд╡рд░реНрдгрд╛рдиреБрдХреНрд░рдо рдореЗрдВ рднреА рдХреНрд░рдордмрджреНрдз рд╣реИрдВред рдХреНрд╖рдорд╛ рдХрд░реЗрдВ, MK-161 рдлрд░реНрдорд╡реЗрдпрд░ рдЗрд╕ рдкрд░ рдереВрдХрддрд╛ рд╣реИред

рдЕрдиреБрдХреВрд▓рддрд╛ рдХреЗ рд▓рд┐рдП, рдореИрдВрдиреЗ рдлреЛрд░реНрдЯ ANS [4] рд╕реЗ FIND рд╢рдмреНрдж рдХреЛ рд▓рд╛рдЧреВ рдХрд┐рдпрд╛, рдЬреЛ "рдмреНрд▓реИрдХ рд╡рд░реНрдХ" рдЖрджрд┐рдо (FIND) рдкрд░ рднрд░реЛрд╕рд╛ рдХрд░рддрд╛ рд╣реИред рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдорд╛рдирд╛ рдЧрдпрд╛ рд╢рдмреНрдж? UNIQUE рдЗрд╕рдХреЗ (FIND) рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдЕрдкрдиреЗ рддрд░реНрдХ рдХреА рддрд▓рд╛рд╢ рдХрд░ рд░рд╣рд╛ рд╣реИред

6. рдмрд╛рд╣рд░реА рджреБрднрд╛рд╖рд┐рдпрд╛


рдкреБрд╕реНрддрдХ [1] рдореЗрдВ рдмрд╛рд╣рд░реА "рдкрд╛рда" рджреБрднрд╛рд╖рд┐рдпрд╛ рд╕рд╣рд┐рдд eForth рдХрд╛ рдПрдХ рд╕рдВрдкреВрд░реНрдг рд╡рд┐рд╡рд░рдг рд╣реИред рдпрд╣ рд╡рд╣ рд╣реИ рдЬреЛ рдлреЛрд░реНрдЯ рднрд╛рд╖рд╛ рдореЗрдВ рд╕реНрд░реЛрдд рдкрд╛рда рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдпрд╛ рд╕рдВрдХрд▓рд┐рдд рдХрд░рддрд╛ рд╣реИред рдЕрдиреНрдп рдлреЛрд░реНрдЯ рдмреЛрд▓рд┐рдпреЛрдВ ([2], [3]) рдХреЗ рдкрд╛рда рд╡реНрдпрд╛рдЦреНрдпрд╛рддрд╛рдУрдВ рдХреЗ рдЕрдВрддрд░ рдкрд┐рдЫрд▓реЗ рджрд╢рдХреЛрдВ рдореЗрдВ рджрд┐рдЦрд╛рдИ рджрд┐рдП рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЙрдирдореЗрдВ рд╕реЗ рдХреБрдЫ рд╣реА рд╣реИрдВред

рдиреАрдЪреЗ рдПрдХ рдкрд╛рда рджреБрднрд╛рд╖рд┐рдпрд╛ рдХрд╛ рдмреНрд▓реЙрдХ рдЪрд┐рддреНрд░ рд╣реИ [1] рд╕реЗ рд▓рд┐рдпрд╛ рдЧрдпрд╛ рд╣реИред рд╕рд╛рд╡рдзрд╛рди рд░рд╣реЗрдВ - рдЗрд╕ "рджреБрднрд╛рд╖рд┐рдпрд╛" рдореЗрдВ рдПрдХ рд╕рдВрдХрд▓рди рдореЛрдб рд╣реИ! $ COMPILE рд╢рдмреНрдж "рд╕рд┐рд▓рди рдХреЛрдб" рдореЗрдВ рдлреЛрд░реНрдЯ рдЯреЗрдХреНрд╕реНрдЯ рдХреЛ рд╕рдВрдХрд▓рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЬрд┐рдореНрдореЗрджрд╛рд░ рд╣реИ, рдЬрд┐рд╕рдХрд╛ рдирд┐рд╖реНрдкрд╛рджрди рд╣рдордиреЗ рдкрд╣рд▓реЗ рд▓реЗрдЦ рдореЗрдВ рдЗрд╕ рддрд░рд╣ рд╕реЗ рд╡рд┐рд╕реНрддрд╛рд░ рд╕реЗ рдЬрд╛рдВрдЪрд╛ рдерд╛ред рдЬрдм $ INTERPRET рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рджрд░реНрдЬ рдХрд┐рдП рдЧрдП рд╢рдмреНрджреЛрдВ рдХреЛ рддреБрд░рдВрдд - рд╡реНрдпрд╛рдЦреНрдпрд╛ рдореЛрдб рдореЗрдВ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред EVAL рдиреЗ рджрд░реНрдЬ рдХрд┐рдП рдЧрдП рдкреНрд░рддреНрдпреЗрдХ рд╢рдмреНрдж рдХреЗ рд▓рд┐рдП рдЗрди рджреЛ рд╢рдмреНрджреЛрдВ рдореЗрдВ рд╕реЗ рдПрдХ рдХреЛ рдЖрдордВрддреНрд░рд┐рдд рдХрд░рддреЗ рд╣реБрдП, рдкреВрд░реЗ рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХреЛ "рдЧрдгрдирд╛" рдХрд┐рдпрд╛ред



рдмреНрд▓реЙрдХ рдЖрд░реЗрдЦ рдХреЗ рдмрд╛рдж, рд▓реЗрдЦрдХ рдбрд┐рдХреНрд░рд┐рдкреНрдЯ рдХрд░рддрд╛ рд╣реИ рдХрд┐ рдХреМрди рд╕рд╛ рдмреНрд▓реЙрдХ рдХрд░рддрд╛ рд╣реИред рдпрд╣рд╛рдБ рдЙрд╕рдХрд╛ рдЕрдиреБрд╡рд╛рдж рд╣реИред рдмреНрд▓реЙрдХ рдирд╛рдо рдЖрдорддреМрд░ рдкрд░ рд╢рдмреНрдж рдХреЗ рдирд╛рдо рд╕реЗ рдореЗрд▓ рдЦрд╛рддреЗ рд╣реИрдВред NAME рд╢рдмреНрдж? рдореЗрд░реЗ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдореЗрдВ рдЕрдиреБрдкрд╕реНрдерд┐рдд рд╣реИ, рдпрд╣ рддреЗрдЬреА рд╕реЗ (FIND) рджреНрд╡рд╛рд░рд╛ рд╕рдлрд▓рддрд╛рдкреВрд░реНрд╡рдХ рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ (рджреЗрдЦреЗрдВред 5)ред

рдореБрдЦреНрдпрд╡рд░реНрдЪреБрдЕрд▓ рдлреЛрд░реНрдЯ рдЗрдВрдЬрди рд╕реЗрдЯ рдХрд░реЗрдВ
рдардВрдбрд╛рдЖрд░рдВрднрд┐рдХ рдкреНрд░рдгрд╛рд▓реА рдЪрд░
рдЧрд░реНрднрдкрд╛рддрдлреНрд▓рд╢ рдбреЗрдЯрд╛ рд╕реНрдЯреИрдХред рддреНрд░реБрдЯрд┐ рдХрд░рдиреЗ рд╡рд╛рд▓рд╛
QUITрд╡рд╛рдкрд╕реА рд╕реНрдЯреИрдХ рд░реАрд╕реЗрдЯ рдХрд░реЗрдВ рдФрд░ рдЗрдВрдЯрд░рдкреНрд░реЗрдЯрд░ рд▓реВрдк рджрд░реНрдЬ рдХрд░реЗрдВ
рдХреНрд╡реЗрд░реА рдХреЗрдЯрд░реНрдорд┐рдирд▓ рд╕реЗ рдкрд╛рда рдЗрдирдкреБрдЯ рд╕реНрд╡реАрдХрд╛рд░ рдХрд░реЗрдВ
EVALрдкрд╛рда рдХреА рдПрдХ рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХреА рдЧрдгрдирд╛ рдпрд╛ рд╡реНрдпрд╛рдЦреНрдпрд╛
рдкрд╛рд░реНрд╕рджрд░реНрдЬ рдкрд╛рда рд╕реЗ рдПрдХ рд╢рдмреНрдж рдХрд╛ рдЪрдпрди рдХрд░реЗрдВ
$ INTERPRETрд╢рдмреНрдж рдХреА рд╡реНрдпрд╛рдЦреНрдпрд╛
$ рд╕рдВрдХрд▓рдирд╕рдВрдХрд▓рд┐рдд рд╢рдмреНрдж
рдирд╛рдо?рдПрдХ рд╢рдмреНрджрдХреЛрд╢ рдореЗрдВ рдПрдХ рд╢рдмреНрдж рдЦреЛрдЬреЗрдВ
рд╕рдВрдЦреНрдпрд╛?рдЯреЗрдХреНрд╕реНрдЯ рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХреЛ рдкреВрд░реНрдгрд╛рдВрдХ рдореЗрдВ рдмрджрд▓реЗрдВ
рдирд┐рд╖реНрдкрд╛рджрд┐рддрдирд┐рдГрд╢рдмреНрдж рд╢рдмреНрдж
Immed?рдХреНрдпрд╛ рдпрд╣ рд╢рдмреНрдж рдПрдХ рддрд╛рддреНрдХрд╛рд▓рд┐рдХ рдЖрджреЗрд╢ рд╣реИ?
рд╢рд╛рдмреНрджрд┐рдХрд╕рдВрдкреВрд░реНрдг рд╢рд╛рдмреНрджрд┐рдХ рд╕рдВрдХрд▓рди рдХрд░реЗрдВ
рд╕рдВрдХрд▓рдирд╕рдВрдХрд▓рд┐рдд рдЯреЛрдХрди


рдкреБрд╕реНрддрдХ рд╕рдВрдХреНрд╖рд┐рдкреНрдд рд╡рд┐рд╡рд░рдг рдХреЗ рд╕рд╛рде, рд╡рд┐рдВрдбреЛрдЬ рд╕рдВрд╕реНрдХрд░рдг рдореЗрдВ рдкреНрд░рддреНрдпреЗрдХ eForth рд╢рдмреНрдж рдХреЗ рд▓рд┐рдП рд╕реНрд░реЛрдд рдХреЛрдб рднреА рдкреНрд░рджрд╛рди рдХрд░рддреА рд╣реИред рдПрдордХреЗ-161 рдХреЗ рд▓рд┐рдП рдЕрд▓рдЧ рд╕рдВрд╕реНрдХрд░рдг рдХреНрдпрд╛ рд╣реИ, рдореИрдВрдиреЗ рдкрд╣рд▓реЗ рд╣реА рдЖрдкрдХреЛ рдмрддрд╛рдпрд╛ рдерд╛ред рдореЗрд░реЗ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдХреЗ рд▓рд┐рдП рд╕реНрд░реЛрдд рдХреЛрдб рд╕рдВрдЧреНрд░рд╣ рдореЗрдВ рд╣реИ: Thehacker.ru/2019/161eforth0.5b.zip

рдЕрдВрдд рдореЗрдВ, рдореИрдВ рдПрдордХреЗ-161 рднрд╛рд╖рд╛ рдореЗрдВ рд╢рдмреНрдж (PARSE) рдХреЗ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдХрд╛ рдЙрд▓реНрд▓реЗрдЦ рдХрд░реВрдВрдЧрд╛ - рд╡рд┐рдВрдбреЛрдЬ рдХреЗ рддрд╣рдд рдпрд╣ рд╡реАрд╕реАрдП рд╣реИред рдбрд┐рдмрдЧрд┐рдВрдЧ рдореЗрдВ рдПрдХ рд╕рдкреНрддрд╛рд╣ рдХрд╛ рд╕рдордп рд▓рдЧрд╛, рд▓реЗрдХрд┐рди рдЗрд╕рдиреЗ рд╕рдВрдХрд▓рди рдХреЛ рдЖрдзрд╛ рдХрд░ рджрд┐рдпрд╛ ред рд╢рдмреНрдж (PARSE) PARSE рдХреЗ рд▓рд┐рдП рд╕рднреА "рдЧрдВрджреЗ рдХрд╛рдо" рдХрд░рддрд╛ рд╣реИ рдЬреЛ рд╡реНрдпрдХреНрддрд┐рдЧрдд рд╢рдмреНрджреЛрдВ рдХреЛ рдЗрдирдкреБрдЯ рдЯреЗрдХреНрд╕реНрдЯ рд╕реНрдЯреНрд░реАрдо рд╕реЗ рдЕрд▓рдЧ рдХрд░рддрд╛ рд╣реИред

рдмрд╛рд╣рд░реА рджреБрднрд╛рд╖рд┐рдпрд╛ рдХреЗ рд▓рд┐рдП рдореЗрд░реЗ рдЬреЛрдбрд╝ рд╕рд╛рдорд╛рдиреНрдп рдХреНрд╡рд┐рдЯ рдЪрдХреНрд░ рдХреЗ рдЕрд▓рд╛рд╡рд╛ рджреЛ рд╢рдмреНрдж рд╣реИрдВ: рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдмрддрд╛рдП рдЧрдП TLOAD рдФрд░ рдкреБрд░рд╛рдиреЗ рд╕рдВрд╕реНрдХрд░рдг рд╕реЗ рд▓рд┐рдпрд╛ рдЧрдпрд╛ред FILE рд╢рдмреНрдж рдХрдВрд╕реЛрд▓ рдореЗрдВ I / O рдХрд╛ рдЕрдиреБрд╡рд╛рдж рдХрд░рддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди RS-232 рдкреЛрд░реНрдЯ рд╕реЗ рд╡реНрдпрд╛рдЦреНрдпрд╛ рдХреЗ рд▓рд┐рдП рд▓рд╛рдЗрдиреЗрдВ рдкрдврд╝рддрд╛ рд╣реИред рдкреНрд░рддреНрдпреЗрдХ рдкрдВрдХреНрддрд┐ рдХреЗ рд╕рдлрд▓ рдкреНрд░рд╕рдВрд╕реНрдХрд░рдг рдХреЗ рдмрд╛рдж, рдХреЛрдб 11 рдХреЗ рд╕рд╛рде рдПрдХ рдкрддреНрд░ рдкреЛрд░реНрдЯ рдкрд░ рдЖрдЙрдЯрдкреБрдЯ рд╣реЛрддрд╛ рд╣реИред рдХрдВрдкреНрдпреВрдЯрд░ рд╕реЗ рдбрд╛рдЙрдирд▓реЛрдб рдХреА рдЧрдИ рдлрд╝рд╛рдЗрд▓ QUIT рд╢рдмреНрдж рдХреЗ рд╕рд╛рде рд╕рдорд╛рдкреНрдд рд╣реЛрдиреА рдЪрд╛рд╣рд┐рдПред

рдореИрдВрдиреЗ рдЕрднреА рддрдХ рдлрд╝рд╛рдЗрд▓ рд╢рдмреНрдж рдХреЛ рдбреАрдмрдЧ рдирд╣реАрдВ рдХрд┐рдпрд╛ рд╣реИред рдЕрдЧрд░ рдХрд┐рд╕реА рдХреЛ рдЗрд╕рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рддреЛ рдЕрдкрдиреЗ рдЗрдВрдкреНрд░реЗрд╢рди рд╕рд╛рдЭрд╛ рдХрд░реЗрдВред

рддрдВрдЧ рд╕реНрдерд╛рдиреЛрдВ рдХреА 161eForth рд╕рдореАрдХреНрд╖рд╛ рд╕рдорд╛рдкреНрдд рд╣реЛ рдЧрдИ рд╣реИ, рд▓реЗрдХрд┐рди рдлреЛрд░реНрдЯ рдПрдХ рдЕрд╡рд┐рд╢реНрд╡рд╕рдиреАрдп рд░реВрдк рд╕реЗ рд▓рдЪреАрд▓рд╛ рдЙрдкрдХрд░рдг рд╣реИ рдЬрд┐рд╕реЗ рд╣рд░ рдорд╛рд▓рд┐рдХ рдЕрдиреБрдХреВрд▓рд┐рдд рдХрд░ рд╕рдХрддрд╛ рд╣реИред рдпрд╣рд╛рдВ рддрдХ тАЛтАЛрдХрд┐ рдЬрдм рдЖрдк рдкреВрд░реА рддрд░рд╣ рд╕реЗ рд╕рдм рдХреБрдЫ рдкрддрд╛ рд▓рдЧрд╛ рдЪреБрдХреЗ рд╣реИрдВ, рддреЛ рдЧреНрд░рд╣ рдкрд░ рдХреЛрдИ рд╡реНрдпрдХреНрддрд┐ рдПрдХ рдФрд░ рдЪрд╛рд▓ рдХреЗ рд╕рд╛рде рдЖрдПрдЧрд╛ рдЬреЛ рдЖрдкрдХреЛ рдЖрд╢реНрдЪрд░реНрдпрдЪрдХрд┐рдд рдХрд░ рд╕рдХрддрд╛ рд╣реИред

рдпрд╣рд╛рдБ рд▓реЗрдЦрдХ рдХреЗ рдЕрдВрддрд┐рдо рд╢рдмреНрдж рд╣реИрдВ [1] рд╕реЗ:

26 рд╡рд░реНрд╖реЛрдВ рдХреЗ рд▓рд┐рдП, рдореИрдВрдиреЗ рдХрдИ рдмрд╛рд░, рдХрдИ рдмрд╛рд░ рдИ-рд░рд┐рдЯрд░реНрде рд▓рд┐рдЦрд╛ рд╣реИред рд╣рд░ рдбрдмрд┐рдВрдЧ рдореЗрдВ, рдореИрдВрдиреЗ рдЗрд╕реЗ рд╕рд░рд▓ рдФрд░ рд╕реНрдкрд╖реНрдЯ рдмрдирд╛рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХреАред рдЕрдм 86eForth v5.2 рдореЗрдВ, рдореБрдЭреЗ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдореИрдВрдиреЗ рд╢реБрджреНрдзрддрд╛ рдкреНрд░рд╛рдкреНрдд рдХрд░ рд▓реА рд╣реИ рдФрд░ рдЗрд╕рд▓рд┐рдП рдореИрдВ рдмрд╣реБрдд рдЦреБрд╢ рд╣реВрдВред

рдЬреИрд╕рд╛ рдХрд┐ рдЖрдЗрдВрд╕реНрдЯреАрди рдиреЗ рдХрд╣рд╛:
рд╕рдм рдХреБрдЫ рдпрдерд╛рд╕рдВрднрд╡ рд╕рд░рд▓ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдП, рд▓реЗрдХрд┐рди рд╕рд░рд▓ рдирд╣реАрдВред

86eForth v5.2 рдмрдирд╛рдирд╛ рдФрд░ рднреА рдЖрд╕рд╛рди, рд╢рд╛рдпрдж рдЗрд╕реЗ рддреЛрдбрд╝рдирд╛ рдпрд╛ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рдЯреВрд▓ рдХреЗ рд░реВрдк рдореЗрдВ рдЙрдкрдпреЛрдЧреА рдирд╣реАрдВ рд╣реИред

рд╕рд╛рд╣рд┐рддреНрдп


  1. рдбреЙ рдЪреЗрди-рд╣реИрдирд╕рди рдЯрд┐рдВрдЧред eForth рдФрд░ Zen - 3rd Edition, 2017. Amazon Kindle рдкрд░ рдЙрдкрд▓рдмреНрдз рд╣реИред
  2. рдмрд░рд╛рдиреЛрд╡ рдПрд╕.рдПрди., рдиреЛрдЬрд╝рджреНрд░реВрдиреЛрд╡ рдПрди.рдЖрд░. рдХрд┐рд▓реЗ рдХреА рднрд╛рд╖рд╛ рдФрд░ рдЙрд╕рдХрд╛ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрдиред - рдПрд▓ред: рдореИрдХреЗрдирд┐рдХрд▓ рдЗрдВрдЬреАрдирд┐рдпрд░рд┐рдВрдЧред рд▓реЗрдирд┐рдирдЧреНрд░рд╛рджред рд╡рд┐рднрд╛рдЧ, 1988ред
  3. рд╕реЗрдореЗрдиреЛрд╡ рдпреВ.рдП. FORT рднрд╛рд╖рд╛ рдореЗрдВ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧред - рдПрдоред: рд░реЗрдбрд┐рдпреЛ рдФрд░ рд╕рдВрдЪрд╛рд░, 1991ред
  4. ANS рдлреЛрд░реНрде рдорд╛рдирдХред X3.215-1994ред рдЕрдиреБрд╡рд╛рдж ред
  5. рдПрд╕рдкреА-рдлреЛрд░реНрде рдкреНрд░рд▓реЗрдЦрди ред
  6. рдСрдлрдПрдЯ рдПрдВрдЯрд░рдкреНрд░рд╛рдЗрдЬреЗрдЬ (рдбреЙред рдЪреЗрди-рд╣реИрдВрд╕рди рдЯрд┐рдВрдЧ) , 86eForth v5.2 рдХреЗ рд▓реЗрдЦрдХ, рдЕрдВрдЧреНрд░реЗрдЬреА рдореЗрдВ рд╣реИред
  7. рдорд┐рдЦрд╛рдЗрд▓ рдкреБрдЦреЛрд╡ "рдЯреНрд░реВ рдЯреНрд░реБрде" рдХреА рдХрд╣рд╛рдиреА " рдореВрдирд╡рд▓реНрдХрд░ -1" рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреЗ рд╕рд╛рде, рдЬрд╣рд╛рдВ рдореБрдЭреЗ рдХреЗрдбреАрдкреАрд╡реА рдорд┐рд▓рд╛ рдФрд░ рд╕реЛрд╡рд┐рдпрдд рдХреИрд▓рдХреБрд▓реЗрдЯрд░ рдХреЗ рд▓рд┐рдП рдкреНрдпрд╛рд░ рд╣реБрдЖред

Source: https://habr.com/ru/post/hi452572/


All Articles