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


list ;-d
;文字列
echo @reps()
echo @reps(1)
echo @reps(0)
echo @reps(0 , 33)
echo @reps( , 33)
echo @reps(1 , 33 )
echo @reps(2 , 44 );
echo @reps( 3 , 55 )	;
echo @reps ( 3 , 66 )	;
echo @reps+(3 , 55 )	;

echo @reps(5 , -w 33 44 -b 66 "sample; " );comment
echo @reps(4 , -w 33 ; 44 -b 66 "sampl;e" )
echo @reps(4 , -w 33; 44 -b 66 "sampl;e" )
echo @reps(3 , -w 33 44 , -b 66 , "sample" )	;comment
echo @reps(5v , -w 33 44 , -b 66 , "sample" )

define abc "sample;\n"
echo @reps( 3 , $abc @inc(2, 10) )	;
echo @reps( 3 , $abcd @inc(2, 10) )	;


#if 0
;;;;WORD ADDRESSING;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
define_mem 10000 10000 BE     WA

add_mem_area	reg		0000 0100 1 RW
add_mem_area	com_io	8000 2000 2 RW

erase_area com_io
fill -s8000.1  @reps(5 , -l 33 -w 44 -b 66 "sample" )
get -s8000.1 -b46
get -s8000.1 -c46
get -s8000.1 -cu46
get -s8000.1 -w23

fill -s8000  @reps(2 , -l 33 -w 44 -b 66 'sample' )
get -s8000 -b46

nolist
;;;;BYTE ADDRESSING;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
define_mem 10000 10000 BE     BA

add_mem_area	reg		0000 0100 1 RW
add_mem_area	com_io	8000 2000 2 RW

erase_area com_io
fill -s8000.1  @reps(5 , -l 33 -w 44 -b 66 "sample" )
get -s8000.1 -b46
get -s8000.1 -c46
get -s8000.1 -cu46
get -s8000.1 -w23

fill -s8000  @reps(2 , -l 33 -w 44 -b 66 'sample' )
get -s8000 -b46

#endif
