VolksForth/8086/msdos/see.fb

\ Extended-Decompiler for VolksForth                 cas 10nov05                                                                This file contains the volksFORTH decompiler. The decompiler    will convert FORTH code back to Sourcecode.                     Conditional words like IF THEN ELSE, BEGIN WHILE REPEAT UNTIL   and DO LOOP +LOOP are identified and converted.                                                                                 The Decompiler cannot re-create comments, so please use         comments in screens and view.                                                                                                                                                                   Because: There is always one more bug!                          And to correct bug, nothing beats good commented sourcecode.                                                                                                                                    Usage:   SEE <name>                                             \ Extended-Decompiler for VolksForth LOAD-SCREEN  ks 22 dez 87  Onlyforth Tools also definitions                                                                                                | : internal    1 ?head ! ;                                     | : external    ?head off ;                                                                                                     1 &18 +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                  \ detecting does>                                 ks 22 dez 87                                                                  internal                                                                                                                        ' Forth @ 1+ dup @ + 2+ Constant (dodoes>                                                                                       : does?    ( IP -  f )                                             dup c@  $E9 ( jmp ) =                                           swap 1+ dup @ + 2+   (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  ;