VolksForth/AtariST/PATCH.FB

1 line
4.0 KiB
Plaintext
Raw Normal View History

2017-04-23 22:25:49 +00:00
\\ *** Loadscreen f<>r Arbeitssystem *** 03oct86we Die folgenden Screens werden benutzt, um von FORTHKER.PRG aus ein Arbeitssystem hochzuziehen. Da der Kernal noch kein Filesystem enth<74>lt, mu<6D> dieses zun<75>chst im Direktzugriff geladen werden. Assembler und Fileinterface m<>ssen daher unbedingt am Anfang auf der Diskette liegen, damit die absoluten Blocknummern stimmen ($16 und $18). Anschlie<69>end werden die Files FORTH_83.SCR und FILEINT.SCR er- zeugt und die View-Felder der Worte auf diese Files gepatched. Dazu m<>ssen diese Files auf Diskette vorhanden sein. Schlie<69>lich werden mit INCLUDE die Files geladen, die man in seinem System haben m<>chte. 6 load cr .( Internal Assembler loaded ) cr $18 load cr .( File-Interface loaded) cr 1 +load cr .( now patch that stuff ... ) cr path A:\;B:\ use forth83.fb 0 0 patchviewfields use fileint.fb ' arguments >name 4- -$17 patchviewfields flush save \ patch view-fields bp 25May86 here 300 hallot heap dp ! Variable blockoffset : patch ( viewadr -- ) \ patch view field viewoffset blockoffset @ + swap +! ; : patchthread ( thread adr -- ) >r BEGIN @ dup WHILE dup 1- r@ u> WHILE dup 2- patch REPEAT drop rdrop ; : patchviewfields ( n adr -- ) \ adr is bottom of patch area blockoffset ! voc-link BEGIN @ ?dup WHILE 2dup 4- swap patchthread REPEAT drop ; dp ! \ 05oct86we