*20
/DAN GRAY
/OCTOBER 14,	1970
/COMPARES TWO TABLES OF 100
/OCTAL WORDS EACH, STEP BY
/STEP.  TABLES BEGIN AT
/2100(6100) AND 3600(7600).
/TO TOGGLE IN DATA, LOAD
/WITH SENSE SWITCHES NO.0&1
/ON. WHEN THROUGH INPUT,
/TURN 1 OFF.  LEAVE 2 ON TO LOOK
/AT ONLY TOGGLED DATA,IF OFF
/STEP THROUGH ENTIRE TABLE.
/TURN ON 1 TO IMPUT MORE DATA.
/OH, YES!! STEP THROUGH COMPARISON
/THUS: ACC=0000 MEANS X=Y
/      ACC=7777 MEANS XNOT=Y
/STEP THROUGH WITH CONTINUE.
/MQ REGISTER IS AN INDICATOR
/OF RELATIVE TABLE POSITION.
BEGIN,	CLR
	SET I 17
	2077
	SET I 16
	3577
	SET I 15
	1677
	SET I 14
	0001
LOAD,	CLR
	LDA
	14
	ROR 14
	SNS 0
	JMP START
	HLT
	LSW
	STA I 17
	RSW
	STA I 16
	XSK I 14
       	XSK I 15
	JMP LOAD
START,	SET I 17
	2077
	SET I 16
	3577
	SET I 15
	1677
	LDA
	14
	COM
	STA
	14
	SET I 13
	0001
       	JMP .+4
MORE,	HLT
	SNS I 0
	JMP BEGIN
	LDA
	13
	ROR 14
	XSK I 13
	LDA I 17
	SAE I 16
	JMP .+4
	LDA I
	0000
	JMP .+3
       	LDA I
	7777
       	XSK I 15
	JMP .+2
	JMP START
	XSK I 14
	JMP MORE
	SNS 1
	JMP MORE
	JMP START
	0000