%define START   0x110000
        tib     equ 0x100000            ;Input buffer (grows upward);
        rp0     equ tib+400h            ;Return stack (grows down)
        sp0     equ rp0+100h            ;Data stack (grows down)
        d0      equ sp0+10h             ;Dictionary header space
        h0      equ START+50000

BITS 32
ORG START
MAIN:   call forth_init
        upsh startup
        upsh startup.1 - startup
        call eval
        call user_init
%ifdef vesa
        embed 'vesa'
%endif
	call interpret
;---------------------------------------------------------------------
%include "platform/native/native.drivers"
%include "user/user.asm"
;---------------------------------------------------------------------
%include "forth.asm"
;---------------------------------------------------------------------
section .data

startup: incbin "platform/native/native.f"
         incbin "user/user.f"
.1
END
