ＨＳＰ３には変数内の４バイト分コード値を取得するlpeek命令・設定するlpoke命令が存在しますが、
ＨＳＰ２では１バイトまたは２バイトの取得・設定を行う命令しかありません。
ポインタを使って４バイト分コードの取得・設定を行うll_peek4・ll_poke4と言う命令が存在しますが、
若干使い勝手が違うので、wpeek・wpoke命令を２度使って違う角度から４バイト分に対応させたモジュールを紹介します。
ＨＳＰ２用としているのはＨＳＰ３には標準で実装されているため不要と言う意味であり、
ＨＳＰ３だと使えないと言う意味ではありません。
	

lpeek 取出先, 読込変数, インデクス
	取出先		取得した値の格納先を指定する。
	読込変数		４バイトコード取出元変数を指定する。
	インデクス		先頭を０バイトとした４バイト分の取出開始位置を指定する。

lpoke 書込変数, インデクス, コード
	書込変数		コード書込対象変数を指定する。
	インデクス		先頭を０バイトとした４バイトコードの書込開始位置を指定する。
	コード		書き込む４バイトコードを指定する。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21

#module
#deffunc lpeek val, val, int
	mref write, 16 : mref read, 17 : mref index, 2
	wpeek tmp.0, read, index
	wpeek tmp.1, read, index + 2
	write = tmp.1 << 16 + tmp.0
	return

#deffunc lpoke val, int, int
	mref write, 24 : mref index, 1 : mref code, 2
	wpoke write, 0, code & 0xFFFF
	wpoke write, 2, code >> 16
	return
#global

	r = "1234"
	mes r
	lpeek tmp, r   // ４バイトコードを取得
	lpoke w, , tmp // 別の変数に４バイトコードを書き込む
	mes w
	stop