Popis

Slovo : otevírá definici nového slova. Jako první následující je jméno tohoto nového slova a za ním definice ukončená slovem ;. V assembleru bývá pojmenováno často docon. Je to tak proto, že znak : nemůže sloužit jako jméno, neboť má obvykle jiný význam (v assembleru).

Příklad použití

: double DUP + ;

# $Id: dict-docon.ses,v 1.1 2002/12/18 23:25:07 radek Exp $
Gforth 0.6.2, Copyright (C) 1995-2003 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
: double DUP 2 + ;    ok
2 double . 4  ok
BYE 

# $Id: dict-docon2.ses,v 1.1 2002/12/18 23:25:07 radek Exp $
Gforth 0.6.2, Copyright (C) 1995-2003 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
: double DUP 2 + ;  ok
2 double . 4  ok
BYE  

Kód slova v Qurtus Forthu

;ADDR  WORDS           LABEL        MNEMO   ARGS
;----  --------------  -----------  ------- --------------------
969E: (8000)                          DW
96A0: 013A                            DB      1, ":"
96A2: 4EAA 9622            DOCON:     JSR     $-69DE(CS)
96A6: 4EAA 957E                       JSR     $-6A82(CS)      ;= (header)
96AA: 4E75                            RTS                     ;= EXIT

Kód slova v FIG6502

;                                       :
;                                       SCREEN 33 LINE 2
;
L832      .BYTE $C1,$BA
          .WORD L813     ; link to C!
COLON     .WORD DOCOL
          .WORD QEXEC
          .WORD SCSP
          .WORD CURR
          .WORD AT
          .WORD CON
          .WORD STORE
          .WORD CREAT
          .WORD RBRAC
          .WORD PSCOD
;
DOCOL     LDA IP+1
          PHA
          LDA IP
          PHA
          JSR TCOLON     ; mark the start of a traced : def.
          CLC
          LDA W
          ADC #2
          STA IP
          TYA
          ADC W+1
          STA IP+1
          JMP NEXT