TITLE	STRCPY
	ORG	300
STRCPY:	LA	1,DATA		; R1: 転送元アドレス
	LA	2,RESULT	; R2: 転送先アドレス
L1:	LX      3,(1)           ; R3 <= MM(R1)
        STX     3,(2)           ; MM(R2) <= R3
	LEA	1,1(1)		; R1 <= R1 + 1
	LEA	2,1(2)		; R2 <= R2 + 1
        CMP     3,0             ; if ( R3 != 0 ) goto L1
        BNZ     L1              ;
L2:     HLT
        ORG     340
DATA:	DC	2
	DC	4
	DC	9
	DC	4
	DC	12
	DC	1
	DC	7
	DC	7
	DC	8
	DC	0
	DC	4
	DC	13
	DC	7
	DC	11
	DC	7
	DC	2
	DC	0
RESULT:	DS	30
	END