section .data
variable last, flast
 
macro_dict:
 dd 0                  ;1st LFA
 e	$semi,	';'
 e	$ssemi,	';;'
 e	does,		'does>'
 e	$lbracket,	'['
 e	if, 'if'
 e	ifn, '-if'
 e	then, 'then'
mlast equ $-4	       ;last entry's LFA
forth_dict:
 dd 0                   ;1st LFA
 e	$call,	'call,'
 e    $fetch,	'@'
 e    $store,	'!'
 e    $plus,   '+'
 e	$word,	'word'
 e	$cr,     'cr'
 e	$type,	'type'
 e    $print,  '.'
 e	$words,	'words'
 e	$bytes,	'bytes'
 e	$cmove, 'cmove'
 e	$emit, 'emit'
 e    key, 'key'
 e	$s, 's'

%ifdef native
; ( Drawing )
 e	$ati, 'ati'
 e	$at, 'at'
 e	$blit,  'blit'
 e	$hline, 'hline'
 e	$vline, 'vline'
 e	$circle, 'circle'
 e	$rect, 'rect'
 e	frame-5, 'frame'
 e	hp-5, 'hp'
 e	vp-5, 'vp'
 e	vc-5, 'vc'
 e	hc-5, 'hc'
 e	fore-5, 'color'
 e	xy-5, 'xy'
 e	sidebar-5, 'sidebar:width'
%endif

%ifdef linux
 e    bye, 'bye'
%endif

; ( Compiler )
 e	$colon,	':'
 e	$usercomma, 'x,'
 e	$rbracket, ']'
 e	$create, 'create'
 e	forth, 'forth'
 e	macro, 'macro'
 e	??, '?'
 e	last-5, 'last'

; ( Variables )
 e	base-5,	'base'
 e	source-5,		'source'
 e	h-5, 'h'
 e    interface_mode-5, 'interface'
flast equ $-4          ;last entry's LFA
