clear
;poke
;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 -b30;			\
						\
	poke -Onop -s8000 -b;			\
	poke -Oinc -s8001 -b;			\
	poke -Odec -s8002 -b;			\
	poke -Onot -s8003 -b;			\
	poke -Oneg -s8004 -b;			\
	poke -Oread -s8005 -b;			\
	poke -Owrite -s8006 -b 34;		\
	poke -Oadd -s8007 -b 11;		\
	poke -Osub -s8008 -b 11;		\
	poke -Oand -s8009 -b f0;		\
	poke -Oor -s800a -b 80;			\
	poke -Oxor -s800a -b ff;		\
}

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


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

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


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

