100 /	TEST OF LINC MUL ON LINC-8
 110 
 120 	*200		/AS USUAL
 130 
 140 START,	CLA CLL		/CLEAN UP
 150 	TAD	(4020)	/GET PC VALUE
 160 	ISSP		/SET LINC PC
 170 	CLA		/CLEAN UP
 180 	ICON		/STOP THE TAPES
 190 	TAD	(10)	/GET SELECT VALUE
 200 	ICON		/SELECT THE LINC
 210 	IAC;IAC		/GET START VALUE
 220 	ICON		/START THE LINC
 230 	NOP		/WASTE
 240 	NOP		/SOME
 250 	NOP		/TIME
 260 	CLA		/CLEAN UP
 270 	IAAC		/GET LINC AC
 280 	DCA	AC	/SAVE LINC AC
 290 	IZSA		/GET LINC Z
 300 	IAAC		/NOW HAVE LINC Z
 310 	DCA	ZZ	/STORE Z REGISTER
 320 	HLT		/STOP NOW
 330 	JMP	START	/DO IT AGAIN
 340 
 350 AC,	.-.		/LINC AC SAVED HERE
 360 ZZ,	.-.		/LINC Z SAVED HERE
 370 
 380 	PAGE
 390 
 400 	LMODE
 410 
 420 	*4020		/USUAL LINC PLACE
 430 
 440 LINCPC,	RSW		/GET RIGHT SWITCHES
 450 	STC	INLINE	/STORE IN-LINE
 460 	LSW		/GET LEFT SWITCHES
 470 	MUL I		/MULTIPLY
 480 INLINE,	.-.		/WILL BE RIGHT SWITCHES VALUE
 490 	HLT		/STOP NOW
 500 	JMP	LINCPC	/FOR NEXT TIME