.MACRO	BEGIN	NAME
	.ENTRY	NAME,^M<IV>
;
	$OPEN	FAB=INFAB
	$CONNECT	RAB=INRAB
	$CREATE	FAB=OUTFAB
	$CONNECT	RAB=OUTRAB
	$OPEN	FAB=DISKFAB
	$CONNECT	RAB=DISKRAB
	.ENDM	BEGIN

	.MACRO	READLINE	WHERETO
	PUSHAB		WHERETO
	CALLS		#1,RDLINE
.ENDM	READLINE

.MACRO	READRCRD	WHERETO,?LBL
	PUSHAB	WHERETO
	CALLS	#1,RDRCRD
	BNEQ	LBL
	BRW	EOF
LBL:	.ENDM	READRCRD

	.MACRO	PRINTCHRS	STRING,LENGTH=#85
		CVTWL	LENGTH,-(SP)
		PUSHAB	STRING
		CALLS	#2,PTCHRS
	.ENDM	PRINTCHRS

	.MACRO	DUMPLONG	ARG1,ARG2,ARG3,ARG4,ARG5,ARG6-
				ARG7,ARG8,ARG9,ARG10,ARG11,ARG12
		CALLS	#0,STARTDUMP
	.IRP	ARG,<ARG1,ARG2,ARG3,ARG4,ARG5,ARG6-
		ARG7,ARG8,ARG9,ARG10,ARG11,ARG12>
	.IF	NOT_BLANK ARG
		MOVQ	#^A/%EXTRACT(0,8,ARG)/,-(SP)
		PUSHL	SP
		PUSHL	ARG
		CALLS	#2,CVTPRT
		ADDL2	#8,SP
	.ENDC
	.ENDR
		CALLS	#0,ENDDUMP
	.ENDM	DUMPLONG

	.MACRO	EXIT
		$CLOSE	FAB=INFAB
		$CLOSE	FAB=OUTFAB
		$CLOSE	FAB=DISKFAB
		$EXIT_S
	.ENDM	EXIT
	.END