*20
	SEGMNT 5
	*20
	CLR
	LSW
	STC 17
	RSW
	STC 16
STAR,	LDF 6
	LDA I 16
	ROR 14
	STC ZZZ
	LDF 7
	LDA I 17
	SNS I 0
	HLT
	SAE I
ZZZ,	0
	SKP
	JMP STAR
	HLT
	LDA
	17
	HLT
	JMP STAR
/PROGRAM TO COMPARE TWO FIELDS
/PUT ONE IN 6, THE OTHER IN 7.
/THIS PROGRAM GOES IN 5.
/LSW=FIELD 7=MQ=B17
/RSW=FIELD 6=ACC=B16
/AFTER HLT AS ABOVE HLTS AGAIN
/WITH FIELD 7S ADDRESS IN ACC.
/