clear
;poke -l
;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 -w 24t;			\
						\
	poke -Onop -s8000 -l;			\
	poke -Oinc -s8001 -l;			\
	poke -Odec -s8002 -l;			\
	poke -Onot -s8003 -l;			\
	poke -Oneg -s8004 -l;			\
	poke -Oread -s8005 -l;			\
	poke -Owrite -s8006 -l 3456;		\
	poke -Oadd -s8007 -l 1122;		\
	poke -Osub -s8008 -l 1122;		\
	poke -Oand -s8009 -l f0f0;		\
	poke -Oor -s800a -l 8080;		\
	poke -Oxor -s800a -l ffff;		\
}

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


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

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


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

