wpeek lpeek wpoke lpoke が
JS版で2バイト4バイト単位でしか処理できないらしいので、自前で解決する方法。
あまりちゃんと確認してないのでおかしかったら報告ください。
// (c)窓月らら 勝手に使うよろし
// local変数を使わないのは頻繁に呼ばれることを想定しているため
a=$40302010,$80706050
mes strf("%x",wpeek1(a,1))
mes strf("%x",lpeek1(a,1))
wpoke a,1,$2211
mes strf("%x",wpeek1(a,1))
lpoke a,1,$87654321
mes strf("%x",lpeek1(a,1))
stop
// 2バイト読み出し
#defcfunc wpeek1 var _v, int _p
p=0
repeat 2: poke p,cnt,peek(_v,_p+cnt): loop
return p
// 4バイト読み出し
#defcfunc lpeek1 var _v, int _p
p=0
repeat 4: poke p,cnt,peek(_v,_p+cnt): loop
return p
// 2バイト書き込み
#deffunc wpoke1 var _v, int _i, int _p
p=_p
repeat 2: poke _v,_i+cnt,peek(p,cnt): loop
return
// 4バイト書き込み
#deffunc lpoke1 var _v, int _i, int _p
p=_p
repeat 2: poke _v,_i+cnt,peek(p,cnt): loop
return
[HSP3Dish] 問題・要望・解決策などの共有スレ（４）
