/	DECTAPE BLOCK COUNTER

/	LAST EDIT:	21-DEC-1986	23:00	CJL

/	MAY BE ASSEMBLED WITH '/J' SWITCH SET.

/	DEFINITIONS.

	CA=	7755		/CURRENT ADDRESS
	DTLA=	6766		/LOAD DECTAPE "A" REGISTER
	DTLB=	6774		/LOAD DECTAPE "B" REGISTER
	DTRA=	6761		/READ DECTAPE "A" REGISTER
	DTRB=	6772		/READ DECTAPE "B" REGISTER
	DTSF=	6771		/SKIP ON DECTAPE DONE OR ERROR FLAG
	DTXA=	6764		/EXCLUSIVE OR AC WITH DECTAPE "A" REGISTER
	WC=	7754		/WORD COUNT
	*200			/THE USUAL PLACE

START,	CLA CLL			/CLEAN UP
	DCA	BLKCNT		/CLEAR BLOCK COUNT
	DTLB			/TRANSFER INTO FIELD ZERO
	TAD	(1600)		/SETUP REVERSE MOVE ON UNIT ONE
	DTLA			/LOAD IT
	DTSF			/WAIT FOR
	JMP	.-1		/END ERROR
	TAD	(610)		/GET NEW GO BIT FORWARD AND SEARCH BITS
BLKLUP,	DTXA			/GO START SEARCHING
	TAD	BLKCNT		/GET LATEST BLOCK
	MQL			/DISPLAY IT
	DCA I	(WC)		/CLEAR WORD COUNT
	DCA I	(CA)		/CLEAR CURRENT ADDRESS
	DTSF DTRB		/WAIT FOR FLAG
	JMP	.-1		/'TIL IT SETS
	SPA CLA			/SKIP IF NO ERROR
	JMP	DONE		/DONE ON ERROR
	ISZ	BLKCNT		/BUMP UP BLOCK COUNT
	JMP	BLKLUP		/GO DO ANOTHER

DONE,	TAD	BLKCNT		/GET BLOCK COUNT
	HLT			/STOP FOR NOW
	JMP I	(7600)		/BOOTSTRAP

BLKCNT,	.-.			/BLOCK COUNTER

	$			/THAT'S ALL FOLK!