*****************************************
*					*
*	 學習塊重復操作指令：RPTB	*
*					*
*****************************************
	.title	"example9.asm"
	.mmregs
STACK	.usect	"STACK",10H
	.bss	x,5
	.def	start
	.text
start:	STM	#x,AR1
	LD	#2H,A		;將數組每個元素初始化為2
	RPT	#4
	STL	A,*AR1+
	LD	#1,16,B		;為每個元素加1作準備
	STM	#4,BRC
	STM	#x,AR4
	RPTB	next-1		;next-1為循環結束地址
	add	*AR4,16,B,A	
	STH	A,*AR4+
next:	LD	#0,B
end:	B	end
	.end