* * * * * * * * * * * * * * * * * * * * *
*					*
*	RCVFIL: RECEIVE A FILE		*
*					*
* * * * * * * * * * * * * * * * * * * * *
;
;Receives a file in block format as sent
;by another person doing "MODEM S FN.FT".
;Can be invoked by 'XMODEM R FN.FT' or
;by 'XMODEM RC FN.FT' if CRC is to be used.
;
RCVFIL	CALL	TRAP	;CHECK FOR NO NAME OR AMBIG. NAME
;
; The following IF/ENDIF block is to be inserted after
;the CALL to TRAP in RCVFIL.
; PURPOSE:
;In XMODEM51, provisions were made to allow saving a file to
;a specific disk and user area, but there was no code included
;for resetting the drive number to the one specified in label
;DEFDRV. This additional code eliminates that problem.
;(by SFK 7/13/82)
;
	IF	SETAREA
	MVI	A,DEFDRV-40H
	STA	FCB
	ENDIF
;
	IF	NOCOMR