.TITLE	RDUMP -- DUMP EPROM WINDOW
	.IDENT	/V01.00/

	.MCALL	.CLOSE,.ENTER,.EXIT	;SYSTEM MACROS
	.MCALL	.PRINT,.WRITW		;

START:	MOV	#173000,R0		;ROM BASE
	MOV	#BUFF,R1		;BUFFER
	MOV	#256.,R2		;WORD COUNT
10$:	MOV	(R0)+,(R1)+		;MOVE
	SOB	R2,10$			;
	MOV	#EOPEN,R1		;ASSUME ENTER FAILED
	.ENTER	#AREA,#0,#DBLK,#1	;CREATE A FILE
	BCS	20$			;IF CS FAILED
	MOV	#Ewrit,R1		;ASSUME WRITE FAILED
	.WRITW	#AREA,#0,#BUFF,#256.,#0	;WRITE
	BCS	20$			;IF CS FAILED
	.CLOSE	#0			;CLOSE
	.EXIT				;EXIT

20$:	.PRINT	R1			;PRINT ERROR MESSAGE
	.EXIT				;EXIT

AREA:	.BLKW	5			;EMT AREA
BUFF:	.BLKW	256.			;I/O BUFFER
DBLK:	.RAD50	/DK 173000DAT/		;DEVICE NAME BLOCK

EOPEN:	.ASCIZ	/Failed to enter file/
EWRIT:	.ASCIZ	/Failed to write file/

	.END	START