#clear
;
;XNvg
;^[Qbg̒`
;
;          data   io   endian addressing
define_mem 10000 10000 BE     BA

add_mem_area	reg		0000 0100 1 RW
add_mem_area	com&io	8000 4000 2 RW
add_mem_area	exram	c000 4000 10 RW

add_io_area		switch	0000 0010

#list -d
#goto @()
;#exit

#define addr 	-s8000			;set,getŎgAhX
#define unpack 	$addr '0123456789ABCDEF'
#define pack 	$addr "0123456789ABCDEF"
#define $123	123	;NG
#define _123	123	;NG
#define a123	123	;OK
#define a_123	123	;OK
#define a123:	123	;NG

#echo	$a123:

@label:		;NG	ʎqsȌ`ł

:		;NG
	:	;NG
1234 	:	;NG	擪At@xbg܂́QłȂ
_1234 	:	;OK	
label1:		;OK
  label2:	;OK
label_11:	;OK
label-:		;NG
label2:123

$label2:	;NG	ʎqsȌ`ł

#goto 1234	;NG	擪At@xbg܂́QłȂ
#goto label-
#goto @label
#goto @label()
#goto $label2
#goto @label:()
#goto $label2:
#goto @label:

#goto pack

unpack;
#messagebox ApbN`

;set $addr '0123456789ABCDEF'
set $unpack
get $addr -b10
get $addr -cu8
get $addr -c8
get $addr -b8
get

 pack :
#messagebox pbN`

;set $addr "0123456789ABCDEF"
set $pack
get $addr -b10
get $addr -cu8
get $addr -c8
get $addr -b8
get

get $addr -b4
get -w2
get -l1
get

set -p0 -b 01 02 03 04
set -b 05 06 07
get -p0 -b8
get

last:
get $addr -b10


set -s8010 -b @byte(10)		;comment


