movsi a,(setz)		; Set up -2^35 as dividend
	seto b,			; Set up -1 as divisor
	idivm a,b		; KL gets error, doesn't do it....
	came b,[-1]		; So if B remains the same, it's a KL.
	 skipa a,[.cpuks]	; B got clobbered, it's a KS-10!
	  movei a,.cpukl