\ All of DF words with notation,
\ primitives has not got notation because almost all of them 
\ are in ANS standart
\ (this paper is under development!)

' EMIT1 VALUE EMIT-CFA 
-1 CONSTANT -1 
-1 CONSTANT TRUE 
 0 VALUE SOURCE-ID 
 1 CONSTANT 1 
 2 CONSTANT 2 
 2 CONSTANT XTCELL 
 4 CONSTANT CELL 
 CONSTANT _ASM_DOES 
 PRIM - 
 PRIM ! 
 PRIM (BYE) 
 PRIM * 
 PRIM / 
 PRIM ?DUP 
 PRIM @ 
 PRIM + 
 PRIM +! 
 PRIM < 
 PRIM <> 
 PRIM = 
 PRIM > 
 PRIM >abs 
 PRIM >R 
 PRIM >rel 
 PRIM >TCODE ( colon-xt -- threaded-code-addr ) 
 PRIM 0 
 PRIM 0! 
 PRIM 0< 
 PRIM 0<> 
 PRIM 0= 
 PRIM 0> 
 PRIM 1- 
 PRIM 1+ 
 PRIM 1+! 
 PRIM 2- 
 PRIM 2* 
 PRIM 2/ 
 PRIM 2+ 
 PRIM 2>R 
 PRIM 2DROP 
 PRIM 2DUP 
 PRIM 2OVER 
 PRIM 2R@ 
 PRIM 2R> 
 PRIM 2ROT 
 PRIM 2SWAP 
 PRIM a0 
 PRIM ABS 
 PRIM AND 
 PRIM ASCIIZ> 
 PRIM C! 
 PRIM C@ 
 PRIM CELL- 
 PRIM CELL+ 
 PRIM CELLS 
 PRIM CHAR+ 
 PRIM CHARS 
 PRIM CMOVE 
 PRIM CMOVE> 
 PRIM COMPARE 
 PRIM COUNT 
 PRIM D+ 
 PRIM d0 
 PRIM d1 
 PRIM DEBUG-EXC 
 PRIM DNEGATE 
 PRIM DROP 
 PRIM DUP 
 PRIM ENDCB 
 PRIM EXECUTE 
 PRIM EXIT 
 PRIM F- 
 PRIM F* 
 PRIM F/ 
 PRIM F+ 
 PRIM FALSE 
 PRIM FILL 
 PRIM floattrap 
 PRIM floattrap2 
 PRIM I 
 PRIM INVERT 
 PRIM J 
 PRIM LSHIFT 
 PRIM LWC ( c -- c ) 
 PRIM MAX 
 PRIM MIN 
 PRIM MOD 
 PRIM MS 
 PRIM NEGATE 
 PRIM NIP 
 PRIM NOOP 
 PRIM NRDROP 
 PRIM oemtrap 
 PRIM OR 
 PRIM OVER 
 PRIM R@ 
 PRIM R> 
 PRIM RDROP 
 PRIM RESIZE-THREADED
 PRIM ROT 
 PRIM RP! 
 PRIM RP@ 
 PRIM RSHIFT 
 PRIM s>abs 
 PRIM SEARCH-WORDLIST 
 PRIM SP! 
 PRIM SP@ 
 PRIM SWAP 
 PRIM systrap 
 PRIM THREADED 
 PRIM TUCK 
 PRIM U< 
 PRIM U> 
 PRIM UM* 
 PRIM UM/MOD 
 PRIM W! 
 PRIM w* 
 PRIM w/ 
 PRIM W@ 
 PRIM W>R 
 PRIM W>S 
 PRIM WinDrawChars 
 PRIM WinDrawLine 
 PRIM WR> 
 PRIM XOR 
: ' ( "<spaces>name" -- xt ) 
: -- ( n1 n1 "name" ) 
: # ( ud1 -- ud2 ) 
: #> ( xd -- c-addr u ) 
: #S ( ud1 -- ud2 ) 
: ( ( "ccc<paren>" -- ) 
: (ABORT") ( f addr u ) 
: (DOES) 
: (EKEY) ( u1 -- u2 ) 
: (F.) ( r -- addr u ) 
: (FS.) ( r -- addr u ) 
: (ID) 
: (INCLUDE) 
: */ */MOD NIP ; 
: */MOD >R M* R> SM/REM ; 
: , ( x -- ) 
: . ( n -- ) 
: ." 
: .( 
: .. 
: .0 
: .S 
: /MOD ( n1 n2 -- n3 n4 ) 
: : ( "name" -- ) 
: :NONAME ( -- xt ) 
: ; ( -- ) 
: ? @ . ; 
: ?BRANCH, ( -- ) 
: ?COMP 
: ?DmERR ( n -- n ) 
: ?DO 
: ?PAIRS ( n1 n2 -- ) 
: ?SHORT ( n -- f ) 
: ?SLITERAL1 ( c-addr u -> ... ) 
: ?SLITERAL2 ( c-addr u -- ... ) 
: ?STACK 
: ?THROW ( f n -- ) 
: ['] ( "name" ) ( -- xt ) 
: [ 
: [CHAR] ( "c" -- ) ( -- c ) 
: [COMPILE] 
: ] 
: _@ 
: _adjField ( -- ) 
: _inlen 
: _SAVE ( c-addr u CreatorID -- ) 
: _SEARCH-API ( lo hi -- u w -1 | 0 ) 
: }E ( -- addr u ) ( r: xt -- ) 
: +LOOP 
: +SWORD ( addr u wid -> ) 
: <# ( -- ) 
: <MARK ( -- t-addr ) 
: <RESOLVE ( t-addr -- ) 
: >BODY ( xt -- a-addr ) 
: >byte 8 LSHIFT ; 
: >FLOAT-ABS ( ADDR U -- R -1 | 0 ) 
: >FLOAT ( ADDR U -- R -1 | 0 ) 
: >MARK ( -> t-addr ) 
: >N-MOVE ( addr-from n-addr-to u -- ) 
: >NUMBER ( ud1 c-addr1 u1 -- ud2 c-addr2 u2 ) 
: >PRT 
: >RESOLVE ( t-addr -- ) 
: >T-MOVE ( addr-from t-addr-to u -- ) 
: 0. 0 0 ; 
: 10e 
: 1e 
: 2! ( d a-addr -- ) 
: 2@ ( a-addr -- d ) 
: 2CONSTANT ( "name" ) 
: 2LITERAL ( x -- ) 
: 2VARIABLE ( "name" ) 
: ABORT 
: ABORT" 
: ACCEPT ( c-addr +n1 -- +n2 ) 
: AComplete 
: ACTIVATE ( tid -- ) 
: AdjustPt ( addr u -- u ) 
: AGAIN 
: AHEAD ( C: -- orig ) 
: ALIGN 
: ALIGNED ( addr -- a-addr ) ( CORE) 
: ALLOCATE ( u -- a-addr ior ) 
: ALLOT ( n -- ) 
: ALSO ( -- ) 
: API: ( "name" -- ) 
: AppHandleEvent ( -- f ) 
: AppSwitch ( dbID cmd param ) 
: BEGIN 
: BRANCH, ( -- ) 
: BUILD-TASK ( tid -- ) 
: BUILD ( c-addr u CreatorID -- ) 
: BYE 
: C" 
: C, ( n -- ) 
: CALLAPP ( addr u -- x ) 
: CALLBACK: ( xt -- ) 
: CATCH ( i*x xt -- j*x 0 | i*x n ) 
: CDR ( lfa1 -- lfa2 ) 
: CELL/ 2/ 2/ 
: CHAR ( "<spaces>name" -- char ) 
: CharAddr ( -- c-addr ) 
: CLOSE-MEMO ( ptr -- ior ) 
: CloseIMGdb 
: CloseMemoDB ( -- ior ) 
: ClosestW ( addr u -- addr1 u1 -1 | 0 ) 
: cold S" Dragon" LAUNCH ; 
: colon? ( cfa -- f ) 
: compare_api ( n-api -- u w 0 | -1 | 1 ) 
: COMPILE, ( xt -- ) 
: CompressRle ( addr addr1 u -- u1 ) 
: CONSTANT ( "name" -- ) 
: Copy4tcd 
: CopyData 
: CopyNames 
: CopyRes ( resType resID -- ) 
: CR 
: CR1 ( -- ) 
: CREATE ( "name" -- ) 
: CREATED ( addr u -- ) 
: CreateIMG-name ( -- ) 
: D- ( d1|ud1 d2|ud2 -- d3|ud3 ) 
: D. ( d -- ) 
: D< ( xd1 xd2 -- flag ) 
: D= ( xd1 xd2 -- flag ) D- OR 0= ; 
: D>F ( d -- r ) 
: D>S ( d -- n ) DROP ; 
: D0< ( d -- flag ) NIP 0< ; 
: D0= ( xd -- flag ) OR 0= ; 
: D2* ( xd1 -- xd2 ) 2DUP D+ ; 
: D2/ ( xd1 -- xd2 ) 
: DABS ( d -- ud ) 
: DBC! ( c offs ) 
: DECIMAL 
: DEFINITIONS ( -- ) 
: DEPTH ( -- u ) 
: DIGIT ( C, N1 -> N2, TF / FF ) 
: DLIT, ( d -- ) 
: DMAX ( d1 d2 -- d3 ) 
: DmERR 
: DMIN ( d1 d2 -- d3 ) 
: DO 
: DOES> ( -- addr ) 
: DUMP ( addr u -- ) 
: E{ ( -- ) ( r: -- xt ) 
: EKEY ( -- u ) 
: EKEY>CHAR ( u -- u 0 | c -1 ) 
: ELSE 
: EMIT ( c -- ) 
: EMIT1 ( c -- ) 
: EndOfChunk ( -- flag ) 
: enum ( n -- ) 
: ERASE ( addr u ) 
: ERROR1 ( n -- ) 
: ErrorBox ( u -- ) 
: ERRSTR ( n -- addr u f ) 
: EVALUATE-WITH ( ( i*x c-addr u xt -- j*x ) 
: EVALUATE ( i*x c-addr u -- j*x ) 
: EXP# ( R -- N ) 
: F! 2! ; 
: F# ( r -- r1 ) 
: F. ( R -- ) 
: F@ 2@ ; 
: F< ( r1 r2 -- flag ) 
: F>D ( r -- d ) 
: F0< ( r -- flag ) 
: F0= ( r -- flag ) 
: FABS ( r -- |r| ) 
: FCONSTANT 2CONSTANT ; 
: FDEPTH DEPTH 2/ ; 
: FDROP 2DROP ; 
: FDUP 2DUP ; 
: FIND ( c-addr -- c-addr 0 | xt 1 | xt -1 ) 
: FLITERAL ( r -- ) 
: float? ( addr u -- f ) 
: FLOAT+ 8 + ; 
: FLOATS 3 LSHIFT ; 
: FlpVersion ( -- u ) 5 floattrap d0 ; 
: FM/MOD ( d1 n1 -- n2 n3 ) 
: FMAX ( r1 r2 -- r3 ) 
: FMIN ( r1 r2 -- r3 ) 
: FN^10 ( N --) ( R -- R1 ) 
: FNEGATE ( r -- -r ) 
: FNORM ( R -- R1 N ) 
: FORTH ( -- ) 
: FOVER 2OVER ; 
: FPI 
: FREE ( a-addr -- ior ) 
: FreeBytes ( -- u1 u2 ) 
: FROT ( r1 r2 r3 -- r2 r3 r1 ) 
: FS. ( R -- ) 
: FSWAP 2SWAP ; 
: FVARIABLE 2VARIABLE ; 
: GET-CURRENT ( -- wid ) 
: GET-ORDER ( -- widn ... wid1 n ) 
: GET ( sid -- ) 
: GetChar ( -- char flag ) 
: GotoMemo ( index -- ) 
: HALT ( n -- ) 
: HEADER ( "name" -- ) 
: HEAP-COPY ( addr u -- addr1 ) 
: HERE DP @ ; 
: HEX-SLITERAL ( T -> ... ) 
: HEX 
: HIDE 
: HOLD ( char -- ) 
: HOLDS ( addr u -- ) 
: ID. ( nfa -- ) 
: IF 
: IMMEDIATE ( -- ) 
: IncCounts ( -- ) 
: INCLUDE-MEMO ( i*x memoptr -- j*x ior ) 
: INCLUDED ( i*x c-addr u -- j*x ) 
: info 
: INIT 
: InitXY 
: InsChar ( fld c -- ) 
: INTERPRET 
: IsDelimiter ( char -- flag ) 
: IsExp? ( addr u -- f ) 
: KEY ( -- c ) 
: L>NAME ( lfa -- nfa ) 
: LAST-WORD ( -> ) 
: LastWord ( addr u -- addr1 u1 ) 
: LATEST ( -> NFA ) 
: LAUNCH ( addr u ) 
: LEAVE 
: LIT, ( x -- ) 
: LITERAL ( x -- ) 
: LOOP 
: M* ( n1 n2 -- d ) 
: M+ ( d1|ud1 n -- d2|ud2 ) S>D D+ ; 
: MAIN1 
: MenuH 
: MORE? ( -- f ) 
: MorePrompt 
: MOVE ( addr1 addr2 u -- ) 
: N-C! ( char n-addr -- ) 
: N-C, ( char -- ) 
: N-W! ( n n-addr -- ) 
: N-W, ( n -- ) 
: N> ( n-addr -- a-addr ) 
: N>LINK ( nfa -- lfa ) 
: NAME> ( nfa -- xt ) 
: NAN. ( r -- r 0 | -1 ) 
: NEEDS ( "word" "lib" -- ) 
: Next@ ( -- c ) 
: Next+@ ( n -- c ) 
: NextString ( -- addr u f ) 
: NextWord ( -- c-addr u ) 
: NHERE ( -- n-addr ) 
: NLIST ( wid -- ) 
: NOTFOUND ( addr u -- ... ) 
: NOTFOUND ( addr u -- i*x ) 
: nouline 
: OFF 0! 
: OK 
: ON ( addr -- ) 
: OnDelimiter ( -- flag ) 
: ONLY ( -- ) 
: OnNotDelimiter ( -- flag ) 
: OPEN-MEMO ( addr u mode -- ptr ior ) 
: OpenMemoDB ( mode -- ior ) 
: OpenTarget ( -- DbRef) 
: ORDER ( -- ) 
: Pack00orFF ( -- f ) 
: Pack10 ( -- ) 
: Pack20 ( -- ) 
: Pack40 ( -- ) 
: Pack80 ( -- ) 
: PackLast ( -- ) 
: PackRep ( -- ) 
: PAD HERE 512 + ; 
: PAGE ( -- ) 
: PARSE ( char "ccc<char>" -- c-addr u ) 
: ParseWord ( -- c-addr u ) 
: PAUSE ( -- ) 
: PeekChar ( -- char ) 
: POSTPONE 
: PREVIOUS ( -- ) 
: PTYPE 
: QUIT 
: RecDeleted? ( index -- f ) 
: RECEIVE-WITH ( j*x addr u xt -- i*x ior ) 
: rect vga? IF rect240 ELSE rect160 THEN ; 
: RECURSE ( -- ) 
: REFILL ( -- f ) 
: RELEASE ( sid -- ) 
: REPEAT 
: RESIZE ( a-addr1 u -- a-addr2 ior ) 
: RESSIZE-ALIGN ( n1 -- n2 ) 
: RVAR ( -- abs-addr ) 
: RVARW ( -- abs-addr ) ( r: -- 0 ) 
: S" 
: S", ( addr u -- ) 
: S>D ( n -- d ) 
: S>F ( i -- r ) 
: SAVE ( addr u crID ) 
: SBYE 
: SEARCH-API ( addr u -- u w -1 | 0 ) 
: SEARCH ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 flag ) 
: SET-CURRENT ( wid -- ) 
: SET-ORDER ( widn ... wid1 n -- ) 
: SET-PRECISION ( u -- ) 
: SET-STOP 
: SET-WAKE 
: SetDbAttr ( LocalID attr -- ) 
: SFIND ( addr u -- addr u 0 | xt 1 | xt -1 ) 
: SHEADER ( addr u -- ) 
: SIGN ( n -- ) 
: SKIP ( char "ccc<char>" -- ) 
: SKIP1 ( addr u -- addr+1 u-1 | addr u ) 
: skipBL 
: skipChar ( addr u c -- addr2 u2 | addr u ) 
: SkipDelimiters ( -- ) 
: skipDigits ( addr u -- addr1 u1 ) 
: SkipUpTo ( char -- ) 
: SkipWord ( -- ) 
: SLEEP ( -- ) 
: SLITERAL ( addr u -- ) 
: SM/REM ( d1 n1 -- n2 n3 ) 
: SMUDGE ( -- ) 
: SOURCE ( -- c-addr u ) 
: SPACE 
: SPACES ( u -- ) 
: STOP ( tid -- ) ACTIVATE SLEEP ; 
: SYSINIT 
: T-! ( x t-addr -- ) 
: T-, ( n -- ) 
: T-W! ( x t-addr -- ) 
: T-W, ( n -- ) 
: T> ( t-addr -- a-addr ) 
: TASK: ( dsSize rsSize -- ) 
: THEN 
: THERE ( -- t-addr ) 
: THROW ( k*x n -- k*x | i*x n ) 
: TO ( "name" ) 
: ToLower ( addr u -- ) 
: TYPE ( addr u -- ) 
: U. ( u -- ) 
: UCOMPARE ( addr u addr1 u1 -- 0 | -1 ) 
: uline 
: UNLOOP 
: UNTIL 
: UNTIL_E ( R1 ADDR U -- R2 ADDR2 U2 ) 
: use-resource ( type creator ) 
: USER-ALLOT ( n -- ) 
: USER-CREATE ( "name" ) 
: USER-VALUE ( "name" ) 
: USER ( "name" ) 
: VACANT ( sid -- f ) 
: VALUE ( u -- ) 
: VARIABLE ( "name" -- ) 
: VECT ( -- ) 
: VgaSetScreenMode ( mode rot -- err ) 
: VOC-NAME. ( wid -- ) 
: W, ( x -- ) 
: WHILE 
: WITHIN ( test low high -- flag) 
: WORD ( char "<chars>ccc<char>" -- c-addr ) 
: WORDS 
; DUP CONSTANT DF-INI1 
0 VALUE ?RES-COMPILE 
0 VALUE ApiPtr 
0 VALUE HTHREADED 
0 VALUE IMGdbOR 
0 VALUE MAX_NAMES 
0 VALUE MAX_THREADED 
0 VALUE MAXX 
0 VALUE MAXY 
0 VALUE memoDB 
0 VALUE SOURCE-API 
0 VALUE SOURCE-LEN 
0 VALUE THREADED-SIZE 
0 VALUE vga? 
0x02003000 ->VARIABLE MinROM 
1 CONSTANT R/O 
10 VALUE MORELINES 
2 CONSTANT W/O 
3 CONSTANT R/W 
32 VALUE BL 
8 VALUE PRECISION 
80 VALUE C/L 
USER-VALUE CONTEXT 
USER-VALUE TASK 
USER-VALUE TIB 
VALUE FORTH-WORDLIST ( -- wid ) 
VARIABLE ?APP 
VARIABLE _EC 
VARIABLE _vga 
VARIABLE +Names 
VARIABLE CBPROC 
VARIABLE CBRSTACK 
VARIABLE cfield 
VARIABLE CURMEMO 
VARIABLE CURRENT 
VARIABLE CURSTR 
VARIABLE DP 
VARIABLE eventHandler 
VARIABLE EXP? 
VARIABLE FRACCOUNT 
VARIABLE HFNT 
VARIABLE HNAMES 
VARIABLE HOLDFNT 
VARIABLE LAST-CFA 
VARIABLE LAST 
VARIABLE LASTAC-A 
VARIABLE LW-POS 
VARIABLE memoCount 
VARIABLE memoIndex 
VARIABLE MORE 
VARIABLE MORECOUNT 
VARIABLE NAMES-SIZE 
VARIABLE NAMES 
VARIABLE NDP 
VARIABLE OSVER 
VARIABLE SaveCrID 
VARIABLE SOURCE-POS 
VARIABLE SR0 
VARIABLE SS0 
VARIABLE TDP 
VARIABLE TLS 
VARIABLE USER-OFFS 
VARIABLE v4tcd 
VARIABLE VOC-LIST 
VARIABLE WARNING 
VARIABLE WASCOMMA? 
VECT ?SLITERAL 
VECT DF-INI 
VECT ERROR 
VECT PilotMain 
VECT USER-INIT 
