Screen 0 not modified     
 0 \\         ***  Loadscreen fr Arbeitssystem ***       03oct86we
 1                                                                 
 2 Die folgenden Screens werden benutzt, um von  FORTHKER.PRG  aus 
 3 ein Arbeitssystem hochzuziehen.                                 
 4                                                                 
 5 Da der Kernal noch kein Filesystem enthlt, mu dieses zunchst 
 6 im Direktzugriff geladen werden. Assembler und Fileinterface    
 7 mssen daher unbedingt am Anfang auf der Diskette liegen, damit 
 8 die absoluten Blocknummern stimmen ($16 und $18).               
 9                                                                 
10 Anschlieend werden die Files FORTH_83.SCR und FILEINT.SCR er-  
11 zeugt und die View-Felder der Worte auf diese Files gepatched.  
12 Dazu mssen diese Files auf Diskette vorhanden sein.            
13                                                                 
14 Schlielich werden mit  INCLUDE  die Files geladen, die man in  
15 seinem System haben mchte.                                     
Screen 1 not modified     
 0                                                                 
 1                                                                 
 2   6 load      cr .( Internal Assembler loaded ) cr              
 3 $18 load      cr .( File-Interface loaded)      cr              
 4  1 +load      cr .( now patch that stuff ... )  cr              
 5                                                                 
 6 path A:\;B:\                                                    
 7                                                                 
 8 use forth83.fb     0 0 patchviewfields                          
 9 use fileint.fb     ' arguments >name 4-  -$17 patchviewfields   
10                                                                 
11 flush  save                                                     
12                                                                 
13                                                                 
14                                                                 
15                                                                 
Screen 2 not modified     
 0 \ patch view-fields                                   bp 25May86
 1                                                                 
 2 here         300 hallot    heap dp !                            
 3 Variable blockoffset                                            
 4 : patch            ( viewadr -- )   \ patch view field          
 5    viewoffset blockoffset @ +    swap +! ;                      
 6                                                                 
 7 : patchthread      ( thread adr -- )                            
 8    >r  BEGIN   @ dup   WHILE  dup 1-  r@  u>                    
 9                        WHILE  dup 2- patch  REPEAT  drop rdrop ;
10                                                                 
11 : patchviewfields  ( n adr -- )   \ adr is bottom of patch area 
12    blockoffset !   voc-link                                     
13    BEGIN  @ ?dup  WHILE   2dup 4- swap  patchthread  REPEAT     
14    drop ;                                                       
15 dp !                                                            
Screen 3 not modified     
 0 \                                                      05oct86we
 1                                                                 
 2                                                                 
 3                                                                 
 4                                                                 
 5                                                                 
 6                                                                 
 7                                                                 
 8                                                                 
 9                                                                 
10                                                                 
11                                                                 
12                                                                 
13                                                                 
14                                                                 
15                                                                 
