.TITLE	STRING
;AUTHOR:	MARTY PORTNER
;		WORLD BOOK-CHILDCRAFT, INC.
; SUBROUTINE TO CREATE A CHARACTER VARIABLE FROM A LITERAL
; OR ANOTHER STRING.
; CALLING FORMAT:
;
;             CALL   STRING(SOURCE,DESTINATION)
;
;DEFAULTS SUPPLIED:		NONE
 
	.IDENT $STRIN2$
	.PSECT	$$STRG,RO,I,CON,LCL
 
STRING::
 
	CMPB	#2,@R5		;ENOUGH ARGUMENTS ??
	BNE	OUT$		;IF NOT, EXIT
	CMP	#-1,2(R5)	;CHECK ARG. VALIDITY
	BEQ	OUT$		;
	CMP	#-1,4(R5)	;
	BEQ	OUT$		;
	MOV	R1,-(SP)	;SAVE REGISTERS
	MOV	R0,-(SP)	;
	MOV	2(R5),R0	;ADDR. OF 'SOURCE' IS IN R0
	MOV	4(R5),R1	; "    "  'DESTINATION' IS IN R1
1$:	MOVB	(R0)+,(R1)+	;CREATE STRING (COPY FROM SOURCE TO DESTINATION)
	BEQ	2$		;
	BR	1$		;
2$:	MOV	(SP)+,R0	;RESTORE REGISTERS
	MOV	(SP)+,R1	;
OUT$:	RTS	PC		;
 
	.END			;