clear
;pokeテスト　1
echo $_FILE

undef -all

list ;-d
define_mem 10000 10000 BE     BA	-f
add_mem_area	com	8000 2000 2 RW
add_io_area	io	c000 1000


fill -s8000 -b @inc(10, 50)
get -s8000 -b10		;メモリの初期状態

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
print $_R, $_ZF, $_SF

get -s8000 -b10		;poke後のメモリ値


#exit


define_mem 10000 10000 BE     WA
add_mem_area	com	8000 2000 2 RW
