;***************************************************************************;
;									    ;
;				   PUTCOM				    ;
;			     put common storage				    ;
;									    ;
;			  Author: David F. Pallmann			    ;
;	     Copyright (C) 1984 by LMS Technical Services, Inc.		    ;
;									    ;
;***************************************************************************;

OBJNAM	PUTCOM.SBR

VMAJOR=1

;universals
SEARCH	SYS
SEARCH	SYSSYM
COPY	XCALL

START:	PHDR	-1,0,PH$REE!PH$REU	;program header
	SRCH	MODULE,A5		;locate MEM:COMMON.VAR
	BNE	MNFERR			; not found - error
	MOV	XC.AD1(A3),A0		;index program variable area
	MOV	XC.SZ1(A3),D0		;load loop counter
	DEC	D0
10$:	MOVB	(A0)+,(A5)+		;copy byte
	DBF	D0,10$			;loop till all bytes copied
	RTN				;return to BASIC program

MNFERR:	TYPECR	? MEM:COMMON.VAR not found in PUTCOM.SBR
	MOV	JOBCUR,A6		;flag ^C to BASIC program
	ORW	#J.CCC,JOBSTS(A6)
	RTN

MODULE:	RAD50	/COMMON/
	RAD50	/VAR/

	END

.