clear
;poke -w
;echo $_FILE


unalias -all

alias poke_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(30, 50);		\
	get -s8000 -w18;			\
						\
	poke -Onop -s8000 -w;			\
	poke -Oinc -s8001 -w;			\
	poke -Odec -s8002 -w;			\
	poke -Onot -s8003 -w;			\
	poke -Oneg -s8004 -w;			\
	poke -Oread -s8005 -w;			\
	poke -Owrite -s8006 -w 3456;		\
	poke -Oadd -s8007 -w 1122;		\
	poke -Osub -s8008 -w 1122;		\
	poke -Oand -s8009 -w f0f0;		\
	poke -Oor -s800a -w 8080;		\
	poke -Oxor -s800a -w ffff;		\
}

;-----------------------------------------
poke_test  LE     BA


;-----------------------------------------
poke_test  BE     BA

;-----------------------------------------
poke_test  LE     WA


;-----------------------------------------
poke_test  BE     WA

