PForth V19
pfLoadDictionary - Filename ignored! Loading from static data.
Static data copied to newly allocated dictionaries.
Begin AUTO.INIT ------
;;;;    SDAD    SDAD.DEFINE     SDAD.DUMP.DATA  
SDAD.DUMP.HEX,  SDAD.DUMP.HEX   SDAD.OPEN       
SDAD.CLOSE      (U8.)   $SDAD.LINE      SDAD.TYPE       
SDAD.EMIT       SDAD.FLUSH      SDAD-BUFFER-FID 
SDAD-BUFFER-INDEX       SDAD-BUFFER     SDAD_BUFFER_SIZE        
SDAD_CODE_EXTRA SDAD_NAMES_EXTRA        TASK-SAVE_DIC_AS_DATA   
::::utils/savedicd.fth  ;;;;    SEE     (SEE)   
SEE.XT  SEE.0BRANCH     SEE.BRANCH      SEE.SHOW.TARGET 
SEE.SHOW.STRING SEE.SHOW.ALIT   SEE.SHOW.FLIT   
SEE.SHOW.LIT    SEE.GET.TARGET  SEE.GET.INLINE  
SEE.ADVANCE     SEE.OUT+        SEE.CR? SEE.NEWLINE     
SEE.CR  SEE.INDENT.BY   SEE_OUT SEE_ADDR        
SEE_LEVEL       CODE_CELL       CODE@   BYTE_CODE       
.XT     TASK-SEE.FTH    ::::see.fth     ;;;;    
FILE?   FINDNFA.FROM    F?.SEARCH.NFA   ODD@    
TASK-FILEFIND.FTH       ::::filefind.fth        
;;;;    +LOOP   LOOP    UNTIL   REPEAT  THEN    
BEGIN   ?DO     DO      IF      }SMIF   SMIF{   
SMIF-DEPTH      SMIF-XT TASK-SMART_IF.FTH       
::::smart_if.fth        ;;;;    FP.INIT FP.TERM 
FP-IF-INIT      FP.OLD.NUMBER?  (FP.NUMBER?)    
NUM_TYPE_FLOAT  >FLOAT  FP-REQUIRE-E    F.S     
F.      (F.)    FG.     (FG.)   FE.     (FE.)   
FS.     (FS.)   FP.REPRESENT    (EXP.)  FP.MOVE.DECIMAL 
FP.APPEND.ZEROS FP.STRIP.TRAILING.ZEROS FP.APPEND       
FP.HOLD FP-OUTPUT-PTR   FP-OUTPUT-PAD   FP-REPRESENT-PAD        
FP_OUTPUT_SIZE  FP_REPRESENT_SIZE       SET-PRECISION   
PRECISION       FP_PRECISION_MAX        FP-PRECISION    
REPRESENT       FVAR-REP        F~      F>S     
S>F     F0SP    FCONSTANT       FVARIABLE       
FCREATE FALIGN.CREATE   CREATE_SIZE     FP-CREATE-SIZE  
FALIGN  FALIGNED        TASK-FLOATS.FTH ::::floats.fth  
;;;;    EXISTS? [THEN]  [IF]    [ELSE]  TASK-CONDCOMP.FTH       
::::condcomp.fth        ;;;;    QUIT    QUIT-QUIT       
OK      POSTPONE        EVALUATE        INTERPRET       
CHECK.STACK     FIND&COMPILE    TASK-QUIT.FTH   
::::quit.fth    ;;;;    CATCH.GOOD      CATCH.BAD       
NAIVE.WORD      BAD.WORD        RESTORE.ABORT   
OLD.ABORT       (ABORT) THROW   CATCH   CATCH-HANDLER   
TASK-CATCH.FTH  ::::catch.fth   ;;;;    SEARCH  
MAP     UNUSED  TIB     EXPECT  SPAN    QUERY   
BLANK   ERASE   MOVE    WITHIN  W->S    B->S    
.HEX    .DEC    .BIN    ARRAY   WARRAY  BARRAY  
-2SORT  2SORT   WCHOOSE CHOOSE  RANDOM  RAND-SEED       
SHIFT   MSEC    MSEC-DELAY      IF-DEBUG        
'C      ?LITERAL        'N      TASK-MISC2.FTH  
::::misc2.fth   ;;;;    */      */MOD   MOD     
/MOD    SM/REM  FM/MOD  TASK-MATH.FTH   ::::math.fth    
;;;;    TLV2    TLV1    {       LOC-DONE        
LOC-COMMENT-MODE        LOC-TEMP-MODE   TASK-LOCALS.FTH 
::::locals.fth  ;;;;    DOES>   EXIT    ;       
:       +->     ->      TO      VALUE   (LOCAL) 
LV.TERM LV.SETUP        LV.FINISH       LV.CLEANUP      
LV.COMPILE.LOCAL        LV.COMPILE.STORE        
LV.COMPILE.FETCH        LV.MATCH        LV-#NAMES       
LV-NAMES        LV_MAX_CHARS    LV_MAX_VARS     
TASK-ANSILOCS.FTH       ::::ansilocs.fth        
;;;;    PRIVATIZE       }PRIVATE        PRIVATE{        
FLAG_SMUDGE     PRIVATE-STOP    PRIVATE-START   
TASK-PRIVATE.FTH        ::::private.fth ;;;;    
TEXTROM $ROM    ($ROM)  $APPEND.CHAR    INDEX   
$MATCH? TEXT=?  TEXT=   $=      $ARRAY  -TRAILING       
TASK-STRINGS.FTH        ::::strings.fth ;;;;    
ENDCASE ENDOF   RANGEOF (RANGEOF?)      OF      
?OF     CASE    OF-DEPTH        CASE-DEPTH      
TASK-CASE       ::::case.fth    ;;;;    TOLOWER 
@EXECUTE        >NAME   CLOSEST-XT      CLOSEST-NFA     
WORDS   TAB     TAB-WIDTH       .HX     $       
PAGE    CLS     CR?     #COLS   ?PAUSE  ABORT"  
(ABORT")        WARNING"        (WARNING")      
CELL*   <<      >>      TASK-MISC1.FTH  ::::misc1.fth   
;;;;    .R      .       (.)     U.R     U.      
(U.)    D.R     D.      (D.)    UD.R    UD.     
(UD.)   #S      #       SIGN    #>      <#      
HOLD    HLD     (NUMBER?)       ((NUMBER?))     
NUM_TYPE_DOUBLE NUM_TYPE_SINGLE NUM_TYPE_BAD    
CONVERT >NUMBER DIGIT   TASK-NUMERIC_IO.FTH     
::::numberio.fth        ;;;;    MARKER  ANEW    
FORGET  [FORGET]        IF.FORGOTTEN    LAST-FORGET     
(FORGET)        VERIFY.FORGET   FORGET.NFA      
FREEZE  RFENCE  ::::forget.fth  TURNKEY SAVE-FORTH      
AUTO.INIT       CODE-SIZE       HEADERS-SIZE    
INCLUDE?        RI      INCLUDE INCLUDE-SAVE-NAME       
$INCLUDE        INCLUDE.MARK.END        INCLUDE.MARK.START      
TRACE-INCLUDE   AUTO.TERM       AUTO.INIT       
$APPEND SLITERAL        ""      P"      "       
S"      C"      .'      ."      .(      ,"      
",      (.")    (S")    (C")    EVEN    'WORD   
$TYPE   [CHAR]  CHAR    ASCII   LWORD   PARSE   
PARSE-WORD      PLACE   /STRING ABORT   WHAT'S  
(WHAT'S)        IS      (IS)    >IS     CHECK.DEFER     
>NEWLINE        0SP     SPACES  SPACE   RECURSE 
UNLOOP  +LOOP   LOOP    LOOP-BACK       LOOP-FORWARD    
LEAVE   ?DO     DO      ?DO_FLAG        LEAVE_FLAG      
DO_FLAG 0USP    US@     US>     >US     USTACK  
0STACKP STACKP  STACK.PICK      STACK@  STACK>  
>STACK  :STACK  A,      A@      A!      IF.REL->USE     
IF.USE->REL     BL      TRUE    FALSE   D2*     
2/      2*      MOD     /MOD    D>S     S>D     
DABS    ABS     2@      2!      -2      -1      
CONSTANT        2VARIABLE       VARIABLE        
DOES>   (DOES>) [']     REPEAT  WHILE   ELSE    
AHEAD   UNTIL   AGAIN   BEGIN   THEN    IF      
?PAIRS  ?COMP   <RESOLVE        <MARK   >RESOLVE        
>MARK   ?CONDITION      CONDITIONAL_KEY ERR_UNDERFLOW   
ERR_DEFER       ERR_PAIRS       ERR_EXECUTING   
ERR_CONDITIONAL ERR_ABORT       :NONAME COMPILE 
(COMPILE)       [COMPILE]       COMPILE,        
X!      X@      REL->USE        USE->REL        
BODY>   >BODY   N>LINK  CODE>   >CODE   NAMEBASE+       
CODELIMIT       NAMELIMIT       CODEBASE        
NAMEBASE        N>NEXTLINK      ,       W,      
C,      ALLOT   ALIGN   ALIGNED EVEN-UP ]       
[       BETWEEN $MOVE   PAD     BINARY  HEX     
OCTAL   DECIMAL ID.     DNEGATE NEGATE  NOT     
INVERT  >=      <=      TUCK    NIP     2DROP   
3DUP    -ROT    CHARS   CHAR+   CELLS   CELL-   
CELL+   CELL    OFF     ON      COUNT   \       
(       IMMEDIATE       FLAG_IMMEDIATE  LATEST  
FIRST_COLON     VFORK   SENDFILE        CAPSET  
CAPGET  GETCWD  CHOWN   PWRITE  PREAD   RT_SIGPENDING   
RT_SIGPROCMASK  RT_SIGRETURN    PRCTL   RESGID  
SETRESGID       NFSSERVCTL      POLL    QUERY_MODULE    
VM86    RESUID  SETRESUID       MREMAP  NANOSLEEP       
SCHED_RR_GET_INTERVAL   SCHED_GET_PRIORITY_MIN  
SCHED_GET_PRIORITY_MAX  SCHED_YIELD     SCHED_GET       
SCHED_SET       SCHED_GETPARAM  SCHED_SETPARAM  
MUNLOCKALL      MLOCKALL        MUNLOCK MLOCK   
SYSCTL  FDATASYNC       SID     WRITEV  READV   
MSYNC   FLOCK   GETDENTS        _LLSEEK SETFSGID        
SETFSUID        PERSONALITY     SYSFS   BDFLUSH 
FCHDIR  GETPGID QUOTACTL        GET_KERNEL_SYMS 
DELETE_MODULE   INIT_MODULE     CREATE_MODULE   
SIGPROCMASK     MPROTECT        ADJTIMEX        
MODIFY_LDT      UNAME   SETDOMAINNAME   CLONE   
SIGRETURN       FSYNC   IPC     SYSINFO SWAPOFF 
WAIT4   VM86OLD IDLE    VHANGUP IOPL    FSTAT   
LSTAT   STAT    ITIMER  SETITIMER       SYSLOG  
SOCKETCALL      IOPERM  FSTATFS STATFS  SETPRIORITY     
PRIORITY        FCHOWN  FCHMOD  FTRUNCATE       
TRUNCATE        MUNMAP  MMAP    READDIR REBOOT  
SWAPON  USELIB  READLINK        SYMLINK SELECT  
SETGROUPS       GROUPS  SETTIMEOFDAY    TIMEOFDAY       
RESOURCEUSAGE   RESOURCELIMIT   SETRLIMIT       
SETHOSTNAME     SIGPENDING      SIGSUSPEND      
SETREGID        SETREUID        SIGACTION       
SETSID  PGRP    PPID    DUP2FIDS        USTAT   
CHROOT  UMASK   SETPGID FCNTL   IOCTL   ACCT    
EGID    EUID    SIGNAL  GID     SETGID  BRK     
TIMES   PIPE    DUPFID  RMDIR   MKDIR   RENAME  
KILL    SYNC    NICE    ACCESS  UTIME   PAUSE   
ALARM   PTRACE  STIME   UID     SETUID  UNMOUNT 
MOUNT   PID     LSEEK   LCHOWN  CHMOD   MKNOD   
TIME    CHDIR   EXECVE  UNLINK  LINK    CREAT   
WAITPID CLOSE   OPEN    WRITE   READ    FORK    
EXIT    CTEST1  CTEST0  0BRANCH XOR     W!      
W@      WORD    VLIST   >IN     STATE   OUT     
TRACE-STACK     TRACE-LEVEL     TRACE-FLAGS     
RETURN-CODE     #TIB    HEADERS-LIMIT   HEADERS-BASE    
HEADERS-PTR     ECHO    DP      CONTEXT CODE-LIMIT      
CODE-BASE       BASE    TYPE    >R      *       
'       TEST1   SWAP    POP-SOURCE-ID   PUSH-SOURCE-ID  
SOURCE-ID       SET-SOURCE      SOURCE  SKIP    
SCAN    (SAVE-FORTH)    !       SP!     SP@     
;       RP!     RP@     R>      R@      RDROP   
RSHIFT  ROT     ROLL    RESIZE  REFILL  KEY?    
?TERMINAL       ?DUP    (?DO)   QUIT    (QUIT)  
+!      (+LOOP) +       PICK    OVER    OR      
NUMBER? NOOP    PREVNAME        NAME>   -       
MIN     MAX     LSHIFT  (LOOP)  (LOCAL+!)       
(8_LOCAL!)      (7_LOCAL!)      (6_LOCAL!)      
(5_LOCAL!)      (4_LOCAL!)      (3_LOCAL!)      
(2_LOCAL!)      (1_LOCAL!)      (LOCAL!)        
(8_LOCAL@)      (7_LOCAL@)      (6_LOCAL@)      
(5_LOCAL@)      (4_LOCAL@)      (3_LOCAL@)      
(2_LOCAL@)      (1_LOCAL@)      (LOCAL@)        
(LOCAL.EXIT)    (LOCAL.ENTRY)   LOCAL-COMPILER  
LOADSYS (LITERAL)       LITERAL (LEAVE) KEY     
INCLUDE-FILE    J       I       (HEXNUMBER?)    
HERE    FPICK   FTANH   FTAN    FSQRT   FSINH   
FSINCOS FSIN    FLOG    FLNP1   FLN     FCOSH   
FCOS    FATANH  FATAN2  FATAN   FASINH  FASIN   
FALOG   FACOSH  FACOS   FABS    F**     FSWAP   
FROUND  FROT    FOVER   FNEGATE FMIN    FMAX    
FLOOR   FLOATS  FLOAT+  (FLITERAL)      FLITERAL        
FDUP    FDROP   FDEPTH  F@      F>D     F<      
F0=     F0<     F/      F-      F+      F*      
F!      D>F     FREE    FLUSHEMIT       FINDNFA 
R/W     R/O     REPOSITION-FILE FILE-POSITION   
WRITE-FILE      FILE-SIZE       READ-FILE       
CLOSE-FILE      OPEN-FILE       CREATE-FILE     
FIND    FILL    @       EXECUTE ?ERROR  (?ERROR)        
EOL     EMIT    (EMIT)  DUP     DUMP    DROP    
(DO)    .S      .       /       DEPTH   C!      
DEFER   UM*     M*      MU/MOD  UM/MOD  D-      
D+      (CREATE)        CREATE  CR      0<      
0>      0<>     0=      U<      <       U>      
>       <>      =       COMPARE (:)     :       
CMOVE>  CMOVE   C@      BYE     BODY_OFFSET     
BRANCH  BAIL    AND     ARSHIFT ALLOCATE        
(ALITERAL)      ALITERAL        ACCEPT  2SWAP   
2OVER   2+      2-      (2LITERAL)      2LITERAL        
2DUP    2>R     2R>     2R@     1+      1-      
EXIT    
920  words
   ok
Stack<10> 
   ok
Stack<10> 
End AUTO.TERM ------
