
 Module: Basis	 		Group: TheTarget		   


Text:

\   ᫮, ஥ ᮤন ⮫쪮 ⥪  
\  㤥 ய饭 ஬.
\  ᯮ  ᭥  ணࠬ, 筮  砫 㯯.



TheProgram

Text: TheProgram 
 - 砫 楫 ணࠬ (= ਪ ணࠬ). 
  ᮤন 拉 ᫮ Forth. 
ணࠬ ନ஢  ࠪ⨢ ०  ⤥쭮 
ᮡ⢥ codespace.
 Holon' ।  ஡ ணࠬ,   .



ForthModel

Text: ForthModel 
ணࠬ ᭮  Forth-設 (). 
Holon-86 ਬ Forth- F-PC, ॢ室 ᯮ   
᢮⢠ 80x86 . 
 ணࠬ  Holon । ࠧ묨 ᯮᮡ, 
    ᯮ짮 ॣ஢ . 
⮬ ଠ  ࢨ 㫨, 㯭  F-PC, 
 ᯮ짮  80x86 Holon-.



TargetMemory

Text: TargetMemory 
 64-kb ᥣ  믮  . 
 Forth-᫮     ⮬ ᥣ. 
 ⠪ ᯮ  , ⠪  Forth-ணࠬ 筮 
  祭  設     筮 
࠭⢮  ᥣ .
饥 DOS-࠭⢮  㯭  । 
᮪-஢ Forth-᫮. "List"- ᫮-    
ࠣ, ⠪ ࠧ 16-ࠧ來  뢠 1 .

 Module: Basis 			Group: SystemArea


Word: >xSeg

\  饭 list code ⭮⥫쭮 code-segment. 
\   ⪠    ᬥ饭 100h  ᥣ .
\   ᯮ runwords,    list code , 
\   ⠭  ஬  祭  ࠧࠡ⪨, 
\   COLD-  turnkey-ணࠬ.


Word: >main

\  砥 xt  ᭮ target routine (application) 
\   turnkey-ணࠬ.



Word: >Bye

\  砥 xt  ணࠬ 室 (exit routine)  turnkey-ணࠬ.



Word: >zca

\   砫 ᭮  . 
\   -- 뢠  ᫮ ணࠬ, 
\   ஥ 믮  ᭮ .



Word: >Halt

\  뢠  ணࠬ ⠭.



Word: >UserArea
\  뢠  짮⥫  ᭮  (ᥣ ⥪).



Word: tContext
\  뢠   linkfield  ⥪⭮ (= ⥪饣) 㫠.
Word: Base

\  ন 祭 ᭮  ८ࠧ ᥫ. 
\    ६.



Word: Brk?

\  ᫨ 뫮   Ctl  +  Break  ,   ⨭.
\  ( ⠭ CtlBrk-ணࠬ ࠡ⪨ 뢠).




Group: MainTask


Word: MainTaskArea

Text: MainTaskArea 
 ⮢  ⨢ 筮 ०. 
  ࠧࠡ⪨ ணࠬ  믮   
ࠫ쭮  ஬. 
    ᮡ⢥ .
 ᭮  - 512- ⥪ ᥣ, 
 ᮤন ⥪   , 
 ଠ   ( 짮⥫).
⥪       SPBASE resp. RPBASE.



Word: SPBase
\  饭  ᭮ datastack   task-.



Word: RPBase
\  ᭮ ⥪ .


Word: FarOff
\  饭 task-४⥫ .


Word: FarSeg
\   task-४⥫ .

Word: Switch

\  Taskswitch   codesegment, 
\  । ࠢ  ᫥ ⨢ .




Group: ForthMachine


Word: ForthMachine

Text: ForthMachine 
Forth-設  ।⢥ 吝,   ᥬ 
(execution token) (xt) 㪠뢠  믮 設 .
    80x86 ॣ ᯮ ᫥騬 ࠧ:

SS:SP        Data stack pointer (SP)  
       (㪠⥫ 設 ⥪ ).

SS:RP        Return stack pointer (RP) 
       (㪠⥫ 設 ⥪ ⮢).

ES:SI         Instruction pointer (IP)
       (㪠⥫ ).

CS:AX        Point to body in code when calling codeinterpr. (W)
       (⥫  ⥫    맮 codeinterpr.).

CS:=DS:    Code segment  
       (ᥣ ).

    AX, BX, CX, DX,  DI   ᢮  ᯮ짮  ࠭.




Word: Next
\  ७  Forth'. 
\  ப ⠢ ஥ .



Word: 1Push
\  NEXT combined (ꥤ) with PUSH AX.


Word: 2Push
\  㣠  ப.


Word: xSeg
\  頥  startsegment   ᯨ᪠.


Word: doLiteral
\  Runcode  Literal, ᮯ஢ 16-bit 묨. 
\  頥   ⥪  ६ 믮.


Word: Execute
\  믮 ᫮, 祭  xt.


Word: noop
\   , ᯮ  ⥫  .


Word: Exit
\  ⢫ 室  ⥪饣 ᫮.


Word: bye
\  ⢫ 室  DOS.



Word: Cold

\  ⮢   turnkey-ணࠬ. 
\  ⠭ ᮫ 稭 xseg,  ⠭ exit-᫮, 
\  뢠 maintask  ᠬ ᮡ  ⨢, 
\  ⥬ 室  application. 
\  Turnkey- ⠢ xt  ਪ ணࠬ 
\   㪠⥫  >main    codeimage.




Word: info>Host-1

\  Host      target'.

Group: MonitorInterface


Word: TheMonitorInterface

Text: TheMonitorInterface 
Target᪮  ᮤন  䥩    
⢨ host'  target'. ⮡ 믮 ᫮  , 
 樠     뢠 task- 
஢騪 Switch.  The target 頥  host १ ᫮ tHalt.


Word: tHalt
\  ଠ    ᫥ 믮 楫 ᫮.


Word: DebugBreak
\  頥    窥 뢠  ० ⫠.


Word: ErrorBreak
\  頥    error-뢠,
\   ணࠬ   "" 믮.



Word: GoExecute
\  ଠ start ᫮ ஬. 
\   ॣ CPU  ⥪  室 
\    execution token   TOS ( ).



Word: GoCode
\     ᫮  ⫠.



Word: GoColon
\    ᫮   ⫠.



Word: Info>Host-2

\   ଠ 室    ࠪ⨢ ஢ 
\  楫 ணࠬ        ⫠稪.



