.TITLE	FTCOPMSG OUTPUT BLOCK/RECORD COPIED MESSAGE
	.IDENT	/01-MAY-84  V01.D/
;
;	V01.D	TWD	1-MAY-1984	Remove the amazing message for
;				foreign tapes.
;
;	Write the message about records and blocks copied
;	from input meduim to output medium.
;
;	CALLING SEQUENCE:
;		CALLS	#0,G^FT_COP_MSG	; All information is passed through
;					  the FTCB.
;	REGISTER USAGE:
;	This routine does not save any registers on entry.  In general,
;	the registers are used only for pointers to data in the FTCB.
;	Useage is:
;		R0-R9 - Not used.
;		R10 - Pointer to the FTCB.
;		R11 - Pointer to the FTIO block.
;
	FTCBDEF
;
	.ENTRY	FT_COP_MSG,^M<>		; NO REGISTERS SAVED.
;
;	BBC	#FLAG_V_FTIN,FTCB_W_FLAG(R10),5$	; CHECK FOR FT INPUT.
;
;	CALL_MSG	PUT_SYS,#FTC_AMAZING,#0		;FT EXIT MESSAGE.
; 		MESSAGE ABOUT THE FILES COPIED, THE NUMBER OF INPUT RECORDS AND
; 		BLOCKS, AND THE NUMBER OF OUTPUT RECSORDS AND BLOCKS.
5$:	CALL_MSG	PUT_SYS,#FTC_COPYCOMP,#2,FTCB_L_REC_READ(R10),-
		FTCB_L_BLK_READ(R10),#FTC_COPYTO,#2,FTCB_L_REC_WRIT(R10),-
		FTCB_L_BLK_WRIT(R10)
;
	RET
	.END