.TITLE 	VMSFILES
	.LIST	ME
;
;	Macros to support Praxis VMS file I/O
;

;
; Create the temporary object file
;
	.PSECT	DATA,WRT,NOEXE
TMPFAB:	$FAB	FNM = <TMP:>,-		; File name
		FOP = <TMP,TMD, SQO>,-
		RFM = VAR
;
TMPRAB:	$RAB	FAB = TMPFAB		; Pointer to FAB

	.PSECT	CODE,NOWRT,EXE

	.ENTRY	CREATETMP,^M<>
	$CREATE	FAB=TMPFAB
	RET

;
; Connect to the temporary object file
;
	.ENTRY	CONNTMP,^M<>

	MOVL	8(AP),TMPRAB+RAB$L_RBF	; Record buffer address
	
	$CONNECT RAB=TMPRAB
	RET
	.END