clear
;peek
unalias -all

alias peek_test	{\
	define_mem 10000 10000 #1     #2;	\
						\
	add_mem_area	ram	8000 2000 2 RW;	\
	add_io_area	io	0000 0100;	\
						\
	set -s 8000 -b @inc(10, 0);		\
						\
	print @peek(8002);			\
	print $_ADDR , $_RESULT;		\
	print @peekw(8002);			\
	print $_ADDR , $_RESULT;		\
	print @peekdw(8002);			\
	print $_ADDR , $_RESULT;		\
}


;-----------------------------------------
peek_test  LE     BA


;-----------------------------------------
peek_test  BE     BA

;-----------------------------------------
peek_test  LE     WA


;-----------------------------------------
peek_test  BE     WA

