VolksForth/AtariST/RELOCATE.FB

\\                                                     26oct86we                                                                Diese File enth<74>lt Worte, mit denen die Speicheraufteilung      des volksFORTH ver<65>ndert werden kann.                                                                                           RELOCATE  setzt  R0  und  S0  neu, beachten Sie dazu auch die   Ausf<73>hrungen im Handbuch.                                                                                                       Mit  BUFFERS  kann man die Anzahl der Diskbuffer ver<65>ndern.     Standardm<64><6D>ig ist das System auf &10 Buffer eingestellt. Reicht der Platz im Dictionary bei sehr gro<72>en Programmen nicht aus,   kann man hier am ehesten Speicherplatz einsparen.               Umgekehrt erh<72>ht sich der Arbeitskomfort beim Editieren, wenn   m<>glichst viele Diskbuffer vorhanden sind, um Diskettenzugriffe zu minimieren.                                                                                                                  \ Relocate a system                                    26oct86we                                                                | : relocate-tasks   ( mainup -- )    up@ dup                        BEGIN  2+ under @  2dup - WHILE  rot drop  REPEAT  2drop !      up@ 2+ @  origin 2+ ! ;                                                                                                    : relocate   ( stacklen rstacklen -- )                             2dup +   limit origin -   b/buf -   2-                              u> abort" kills all buffers"                                over  pad $100 +  origin - u< abort" cuts the dictionary"       dup  udp @ $40 +                                                    u< abort" kills returnstack"                                flush  empty  over +  origin +  origin &12 + !    \ r0          origin +  dup  relocate-tasks                 \ multitasking    6 -  origin &10 + !                               \ s0          cold ;                                          -->          \ bytes.more  buffers                                  15sep86we                                                                | : bytes.more   ( n+-  -- )                                         up@  origin -  +  r0 @ up@ -  relocate ;                                                                                   : buffers      ( +n   -- )                                          b/buf *  4+  limit  r0 @ -  swap  -  bytes.more ;