/	TEST PATTERN GENERATOR FOR RX01

/	LAST EDIT:	20-AUG-1986	18:00:00	CJL

/	TO BE USED ON RX01-TYPE SYSTEMS ON UNIT ONE ONLY.

/	DEFINITIONS.

	BEGBLK=	1600		/STARTING BLOCK FOR PATTERN
	ENDBLK=	1734		/END OF PATTERN AREA
	SBOOT=	7600		/SYSTEM RETURN POINT
	SYSIO=	7640		/I/O ENTRY POINT
	UNIT=	1		/LOGICAL UNIT TO WRITE
	WRITE=	4000		/SYSIO WRITE BIT

	*200			/AS USUAL

START,	CLA			/CLEAN UP
	TAD	(BEGBLK)	/RESET THE
	DCA	BLOCK		/STARTING BLOCK
	TAD	(BEGBLK-ENDBLK)	/SETUP THE
	DCA	COUNT		/BLOCK COUNT
LOOP,	TAD	BLOCK		/GET LATEST BLOCK
	MQL			/DISPLAY IT
	TAD	BLOCK		/GET IT AGAIN
	CLL RAL			/*2
	DCA I	(BUFFER)	/STORE IN BUFFER HEAD
	TAD I	(BUFFER)	/GET IT BACK
	IAC			/ADD ONE
	DCA I	(BUFMID)	/STORE IN NEXT SECTOR HEAD
	JMS I	(SYSIO)		/CALL I/O ROUTINES
	BUFFER			/BUFFER ADDRESS
	1^100+WRITE+UNIT	/WRITE ONE BLOCK
BLOCK,	.-.			/BLOCK NUMBER
	ISZ	BLOCK		/BUMP TO NEXT BLOCK
	ISZ	COUNT		/DONE YET?
	JMP	LOOP		/NO, KEEP GOING
	JMP I	(SBOOT)		/YES, GOODBYE!

COUNT,	.-.			/BLOCK COUNTER

	PAGE
/	BUFFER PATTERN HERE.

BUFFER,	.-.			/BUFFER HEADER HERE
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
	.^100+BUFMID-.		/PATTERN WORD
BUFMID,	.-.			/SECOND BUFFER HEADER HERE