*20
START,	RSW
	BCL I
	7000
	BSE I
	7000
	STC RD1
	LSW
	BCL I
	7000
	BSE I
	5000
	STC RD0
MORE,	SET I 17
	3377
	SET I 16
	2377
	SET I 15
	0
	RDC 00
RD0,	0
	RDC 10
RD1,	0
	LDA I 17
	SAE I 16
	JMP NCORR
	XSK I 15
	XSK 17
	JMP .-5
	SNS 0
	JMP SBLK
	LDA I
	1
	ADM
	RD0
	LDA I
	1
	ADM
	RD1
	JMP MORE
SBLK,	LDA I
	7777
	HLT
	JMP START
NCORR,	LDA
	RD0
	BCL I
	7000
	ROR 14
	LDA
	15
	HLT
	JMP 0
/DIAL LOADER
	LMODE
	*400
	LDA I
	RCG
	STC 16
	LDA I
	7300
	STC 17
	JMP 16
	0000
	0000
	0000
	0000
/CHECKS BLOCK BY BLOCK
/STOPS WITH BLOCK NUMBER IN
/MQ REG AND WORD NUM IN ACC.
/LEFT SWITCHES ARE BLOCK ON
/UNIT ZERO, RIGHT ON UNIT ONE.
/START 400 TO RETURN DIAL.
/UNIT ZERO BLOCK STORED IN 6400-6777.
/UNIT ONE STORED IN 7400-7777.
/SNS 0=CONTINUE CHECKING CONSECUTIVE
/BLOCKS UNTIL DIFFERENCE ENCOUNTERED.