.mmregs
			.def  _c_int00
			.data
TBL:		.word	0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19
			.word   1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
PROM		.usect  "PROM",20
			.bss a,20      
			.bss x,20
			.bss y,20
DATA		.usect	"DATA",20
			.text
_c_int00
			b start
			nop
			nop
start:	
 			STM		#a,AR1          ;a[20]={0,1,2,3,4,5,6,7,8,9,10,
	        								;11,12,13,14,15,16,17,18,19}
	    	RPT 	#39             ;x[20]={1,1,1,1,1,1,1,1,1,1
	        								;1,1,1,1,1,1,1,1,1,1}
	    	MVPD 	TBL,*AR1+       
	    	
			STM 	#x,AR2			; 將數據存儲器中的數組x[20]復制到數組y[20]			STM 	#y,AR3
	    	STM 	#y,AR3
	    	RPT 	#19
	   		MVDD 	*AR2+,*AR3+		
			
			STM 	#a,AR1			;將數據存儲器中的a[20]寫入到程序存儲器PROM
			LD 		#PROM,A         
			STM 	#19,AR3
LOOPP:		WRITA 	*AR1+			
			ADD 	#1,A,A
			BANZ 	LOOPP,*AR3-
		
			LD 		#PROM-1,A      ; 讀程序存儲器PROM中20個數據存入數據存儲器DATA
			STM 	#DATA,AR1
			ST 		#19,BRC
			RPTB 	LOOP2
			ADD 	#1,A,A
LOOP2:		READA   *AR1+                    
WAIT:		NOP
			B WAIT