$Header: /home/radek/cvs/forth-book/sec-z80_forth.xml,v 1.1 2003/12/28 18:21:56 radek Exp $

FIXME: obsah

; Vnitřní interpret
NEXT:   LD A,(BC)
        LD L,A
        INC BC
        LD A,(BC)
        LD H,A
        INC BC
EXE:    LD E,(HL)
        INC HL
        LD D,(HL)
        EX DE,HL
        JP (HL)

EXECUTE:
        POP HL
        JR EXE

COLON:  LD HL,(RSP)
        DEC HL
        LD (HL),B
        DEC HL
        LD (HL),C
        LD (RSP),HL
        INC DE
        LD B,D
        LD C,E
        JP (IX)

EXIT:   LD HL,(RSP)
        LD C,(HL)
        INC HL
        LD B,(HL)
        INC HL
        LD (RSP),HL
        JP (IX)