clear
;peekテスト　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, 00) 80 81 82 83 
get -s8000 -b14		;メモリの初期状態

peek -s 8000 -b
print $_R, $_ZF, $_SF

peek -s 8000 -w
print $_R, $_ZF, $_SF

peek -s 8000 -l
print $_R, $_ZF, $_SF

peek -s 8010 -b
print $_R, $_ZF, $_SF

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

fill -pc000 -w @inc(10, 00) 8000 8100 8200 8300 
get -pc000 -b14		;メモリの初期状態

peek -p c000 -b
print $_R, $_ZF, $_SF

peek -p c000 -w
print $_R, $_ZF, $_SF

peek -p c000 -l
print $_R, $_ZF, $_SF

peek -p c010 -b
print $_R, $_ZF, $_SF


