100 /	COMPARE TWO P?S/8 FILES
 110 
 120 /	LAST EDIT	08-DEC-1985	08:00:00	CJL
 130 
 140 /	COMPARES TWO P?S/8 FILES PASSED TO IT.
 150 	EJECT
 160 	*200			/START AT THE BEGINNING
 170 
 180 START,	TAD I	(7757)		/GET FIRST FILE ARGUMENT
 190 	AND	(7770)		/JUST BLOCK BITS
 200 	DCA	BLOCK1		/STORE IN-LINE
 210 	TAD I	(7757)		/GET IT AGAIN
 220 	AND	(7)		/JUST UNIT BITS
 230 	TAD	(20^100+10)	/ADD ON FUNCTION WORD
 240 	DCA	RDFUN1		/STORE IN-LINE
 250 	TAD I	(7760)		/GET SECOND FILE ARGUMENT
 260 	AND	(7770)		/JUST BLOCK BITS
 270 	DCA	BLOCK2		/STORE IN-LINE
 280 	TAD I	(7760)		/GET IT AGAIN
 290 	AND	(7)		/JUST UNIT BITS
 300 	TAD	(20^100+10)	/ADD ON FUNCTION WORD
 310 	DCA	RDFUN2		/STORE IN-LINE
 320 	JMS I	(7640)		/CALL I/O ROUTINES
 330 	0			/ADDRESS
 340 RDFUN1,	20^100+10+.-.		/UNIT BITS WILL BE FILLED IN
 350 BLOCK1,	.-.			/BLOCK NUMBER WILL BE FILLED IN
 360 	JMS I	(7640)		/CALL I/O ROUTINES
 370 	4000			/ADDRESS
 380 RDFUN2,	20^100+10+.-.		/UNIT BITS WILL BE FILLED IN
 390 BLOCK2,	.-.			/BLOCK NUMBER WILL BE FILLED IN
 400 	CLA CLL CML RAR		/4000
 410 	DCA	CNT		/STORE AS COUNTER
 420 	CLA CMA			/7777
 430 	DCA	10		/STORE AS FIRST FILE POINTER
 440 	CLA CLL CMA RAR		/3777
 450 	DCA	11		/STORE AS SECOND FILE POINTER
 460 CMPLUP,	CDF	10		/GOTO BUFFER FIELD
 470 	TAD I	10		/GET A WORD
 480 	CIA			/INVERT FOR TESTING
 490 	TAD I	11		/GET OTHER WORD
 500 	CDF	00		/BACK TO OUR FIELD
 510 	SZA CLA			/SKIP IF A MATCH
 520 	JMP	BAD		/ELSE FORGET IT
 530 	ISZ	CNT		/DONE YET?
 540 	JMP	CMPLUP		/NO, KEEP GOING
 550 	TAD	("M-"B)		/COUNTER BAD MESSAGE
 560 BAD,	TAD	("B&177)	/GET BAD VALUE
 570 	CIF	70		/GOTO OVERLAY FIELD
 580 	JMS	33		/OUTPUT IT
 590 	JMP	.-2		/WAIT FOR IT
 600 	JMP I	(7600)		/GOODBYE!
 610 
 620 CNT,	.-.			/COMPARE COUNTER
 630 	EJECT
 640 	$			/THAT'S ALL FOLK!