; リテラル文字定数をコピーする。
MAIN	START
AAA	LAD 	GR1,='CASL2'  
	; To get an address of the literal char const, ='abc'.	
	ST	GR1,ADRLITE
	LD	GR5,MOZIKAZU
	LAD	GR3,0
	LD	GR1,ADRLITE
LOOP	LD	GR7,0,GR1 
	; To get a character in literal constant.
	ST	GR7,COPIED,GR3
	LAD	GR3,1,GR3
	LAD	GR1,1,GR1
	CPA	GR5,GR3
	JPL	LOOP	
	RET
COPIED		DS	6
ADRLITE		DS	1
MOZIKAZU	DC 	6
MARK		DC	-1
		END
;--------------
