clear
;組み込み関数テスト
echo $_FILE

;list -d
;nolist


echo @byte(1000_0100_) @word(100H) @lword(1234567890T)

define b	12
define w	1234
define dw	12345678

echo @byte($dw) @hbyte($dw)
echo @word($dw) @hword($dw)
echo @lword($dw)
echo @byte() @hbyte()
echo @word() @hword()
echo @lword()

echo @splitw($dw, B)
echo @splitw($dw, L)
echo @splitw($dw, )
echo @splitw($dw, B, 3)
echo @splitl($dw, B)
echo @splitl($dw, L)
echo @splitl($dw, 0)
echo @splitl($dw, B, 3)

echo @splitw($dw, b)
echo @splitw($dw, l)

;exit

echo @byte(@b)
echo @word($w) 
echo @lword(dw)

echo @byte($b)  @word($w) 	@lword($dw)


define bb 	@byte($b)
define ww	@word($w) 	
define dd	@lword($dw)

echo $bb $ww $dd

echo @byte(@word($w)) 
echo @byte($dd)

define a_123 	"abc" 'efg' @byte(67 , 89, )	234	;test

define abc
define abc
define abc?


define dup	$b $w $dup	;循環参照(展開時に検出）

define dup1	$b $w $dup $dw

define dup	$dup1

;cout s1

echo $dup1		;循環参照

echo $a_123

;nolist
list ;-d

echo @byte(1234) @byte(abcd)  @byte(5678, )  @byte(ef01, gh )
echo @byte() @byte(1234gh) @byte(1234 gh)
echo @hbyte(1234) @hbyte(abcd)  @hbyte(5678, )  @hbyte(ef01, gh )
echo @hbyte() @hbyte(1234gh) @hbyte(1234 gh)



echo @byte(@word(12345678)
echo @byte(@word(12345678))


;list -d
echo @lword()
echo @lword(H)  @lword(h) @lword(T)  @lword(t) @lword(_) 
echo @lword(01234567890abcd)  @lword(01234567890abcdH)  @lword(01234567890abcdh) @lword(01234567890T)  @lword(01234567890t) @lword(1010_0101_) 
echo @lword(12345 H)  @lword(12345 h) @lword(12345 T)  @lword(12345 t) @lword(1010 _) 
echo @lword(01234567890abcdx)  @lword(01234567890abcdxH)  @lword(01234567890abcdhx) @lword(01234567890xT)  @lword(01234567890xt) @lword(10x10_0101_) 

