*20
/DAN GRAY
/OCTOBER 14,1970
/(1) INSURE BIT 0 IS OFF
/(2) COMPLEMENT BITS 1-5
/(3) TURN ON BITS 6-11
/ALL ON A TABLE OF 50 DECIMAL WORDS
/(62 OCTAL WORDS) TABLE BEGINS
/1715(5715).  LOAD WITH SENSE SWITCHES
/0 AND1 ON TO TOGGLE IN DATA WITH
/RIGHT SWITCHES.MQ REG INDICATES
/RELATIVE COUNT.SW 0 OFF DOES OPERATION
/ON WHOLE TABLE.STEP THROUGH TABLE
/WITH CONTINUE.  IF SW 1 IS LEFT ON
/ONLY THE TOGGLED PORTION IS
/EXAMINED. EIGHTH COMPLETED ASNMT.
BEGIN,	CLR
	SET I 17
	1715
	SET I 16
	0001
IN,	CLR
	SNS 0
	JMP HERE
	LDA
	16
	ROR 14
	HLT
	RSW
	STA 17
	XSK I 16
	XSK I 17
	JMP IN
HERE,	 SET I 17
	1715
MORE,	 LDA 17
	BCO I
	3700
	BCL I
	4000
	BSE I
	0077
	STA 17
	XSK I 17
	JMP MORE
THERE,	CLR
	SET I 17
	1715
	ADD 16
	COM
	ADA I
	0001
	STC 16
	SET I 15
	0001
OUT,	CLR
	ADD 15
	ROR 14
	LDA 17
	HLT
	SNS I 0
	JMP BEGIN
	XSK I 15
	XSK I 17
	JMP .+2
	JMP BEGIN
	XSK I 16
	JMP OUT
	SNS I 1
	JMP THERE
	JMP OUT
	0000