.TITLE .SS-FORM ARRAY ADDRESS
	.GLOBL .SS,.AD,.CB
.SS	CAL	0
	LAC*	.SS
	JMS*	.CB
	TAD	(-3
	DAC	ADB#
	XCT*	.SS
	TAD	(-1
	DAC	SSC
	LAC*	ADB
	AND	(60000
	SNA
	JMP	.+11
	SAD	(60000
	JMP	.+7
	XOR	(20000
	SZA
	LAC	SSC
	TAD	SSC
	TAD	SSC
	DAC	SSC
	JMS	ADV
	JMS	ADV
	ISZ	.SS
	ISZ	ADB
	LAC*	ADB
	TAD	SSC
	JMP*	.SS	/EXIT
ADV	0
	ISZ	ADB
	LAC*	ADB
	SNA
	JMP*	ADV
	ISZ	.SS
	XCT*	.SS
	TAD	(-1
	JMS*	.AD
	LAC*	ADB
	TAD	SSC
	DAC	SSC
	JMP*	ADV
SSC	0
	.END