clear
;ユーザ定義シンボルのテスト
echo $_FILE

list ;-d

echo $123			;NG
echo $_123&			;NG
echo + $_123			;
echo +$_123			;
;#exit

define シンボル	1234 5678
define b	12
define w	1234
define dw	12345678
define a12345678901234		$b	;OK 15文字
define 12345678901234		$b	;ユーザ定義シンボルの最初はアルファベットのみ
define a123456789012345	$b	;ユーザ定義シンボルが長すぎる
define b@	12

echo $b
echo $ b
echo $$
echo @byte($)
echo @byte($$)

echo $シンボル
echo $123			;NG
echo $_123&			;NG
echo $_12345678901234		;OK 15文字
echo $a12345678901234		;OK 15文字
echo $_123456789012345		;NG 16文字
echo $0123456789012345		;NG 16文字 不正な識別子
echo $_1234567890123456789012345678901234567890123456789012345678901234567890		;NG 


echo @byte(@b)
echo @word($w,$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 s1		"abc" 'efg' @byte( , 89, )	234	;test
  define a_111		$s1

echo	"abc" 'efg' @byte(67 , 89, )	234	;test
echo    $a_123
echo	$s1	;
echo 	$a_111	;

define abc
define abc
define abc?


define dup	$b $w $dup

define dup1	$b $w $dup

define dup	$dup1

;#cout s1

echo $dup1			;循環参照


echo A= $b , 	B= $b , 	C= $b

echo A= $b , B= $b, C=$b

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

echo @byte($w, $w)
echo @byte( 10 ,20, 30 )
