*20
/TITLE:  DAN12
/NOVEMBER 1,1970
/FIRST PROGRAM TO READ LINK TAPE
/READS TAPE BLOCK SELECTED BY THE
/RIGHT SWITCHES AND LOADS IT INTO
/MEMORY BLOCK THREE.  PROGRAM
/THEN SUMS THE CONTENTS OF THIS
/BLOCK AND DISPLAYS THE SUM
/IN THE ACCUMULATOR.
START,	HLT
	RSW
	BCL I
	7000
	BSE I
	3000
	STC BLOCK
	RDC 10
BLOCK,	0000
	SET I 16
	1377
	SET I 17
	-400
	CLR
	ADA I 16
	XSK I 17
	JMP .-2
	JMP START
	0000