VolksForth/8080/AmstradCPC/SEE.SCR

\ Extended-Decompiler for VolksForth LOAD-SCREEN      UH 07Nov86                                                                Dieses File enthaelt einen Decompiler, der bereits kompilierte  Worte wieder in Sourcetextform bringt.                          Strukturierte Worte wie IF THEN ELSE, BEGIN WHILE REPEAT UNTIL  und DO LOOP +LOOP werden in einem an AI-grenzenden Vorgang      erkannt und umgeformt.                                          Ein Decompiler kann aber keine (Stack-) Kommentare wieder       herzaubern, die Benutzung der Screens und dann view, wird       daher staerkstens empfohlen.                                                                                                    Denn:        Es ist immernoch ein Fehler drin!                  Und um den zu korrigieren, ist der Sourcetext dem Objektkode    doch vorzuziehen.                                                                                                                             Benutzung:       see <name>                       \ Extended-Decompiler for VolksForth LOAD-SCREEN         07Nov86                                                                Onlyforth Tools also definitions                                                                                                1 13 +thru                                                                                                                      \\                                                              Produces compilable Forth source from normal compiled Forth.                                                                             These source blocks are based on the works of                                                                                      Henry Laxen, Mike Perry and Wil Baden                                                                                              volksFORTH version: U. Hoffmann                                                                                                                                                  \ detacting does>                                        01Jul86                                                                internal                                                                                                                        ' does> 4+ @   Alias (;code                                     ' Forth @ 1+ @  Constant (dodoes>                                                                                               : does?    ( IP -  f )                                             dup c@  $CD ( call ) =  swap                                    1+ @  (dodoes>  = and ;                                                                                                                                                                                                                                                                                                                                                                                                                                      \ indentation.                                           04Jul86Variable #spaces   #spaces off                                                                                                  : +in  ( -- ) 3 #spaces +! ;                                                                                                    : -in  ( -- ) -3 #spaces +! ;                                                                                                   : ind-cr ( -- ) ( col #spaces @ = ?exit ) cr  #spaces @ spaces ;                                                                : ?ind-cr ( -- ) col c/l u> IF ind-cr THEN  ;