$Header: /home/radek/cvs/forth-book/sec-forth65.xml,v 1.2 2004/12/23 21:07:28 radek Exp $

Forth65 je má implementace Forthu pro procesor 6502 a mikropočítač Atari800XL. Je založena na technologii přímo zřetězeného kódu Přímo zřetězený kód.

NEXT:           ; W=(IP), IP=IP+2
                Wh = (IP)
                IP = IP+1
                Wl = (IP)
                IP = IP+1

                JMP (W)

BOS = $8E
            TOS = $C6
            N   = $F0
            IP  = N+8
            W   = IP+3
            UP  = W+2

NEXT:
            ; W=(IP)
            LDY #1
            LDA (IP),Y
            STA W+1
            DEY
            LDA (IP),Y
            STA W
            ; IP=IP+2
            CLC
            LDA IP
            ADC #2
            STA IP
            BCC +L2
            INC IP+2
L2:
            ;
            JMP W-1

Tento Forth používá technologii DTC (Direct Threaded Code).