/*
 * type9_test.dsp -- Test all Type 9/9a sub-encodings.
 */
	.section/PM program0;
	.global _start;
_start:
	/* Type 9 standard: conditional ALU */
	ar = ax0 + ay0;
	if ne ar = ax0 - ay0;
	ar = ax0 and ay0;
	ar = pass ax0;
	ar = -ax0;
	ar = abs ax0;

	/* Type 9 standard: conditional MAC */
	mr = mx0 * my0 (ss);
	if eq mr = mr + mx0 * my0 (ss);
	mr = mr - mx0 * my0 (ss);
	mr = 0;

	/* Type 9a: unconditional register-file ALU */
	ar = ax0 + ay1;
	ar = mx0 xor my0;

	/* Type 9a: unconditional register-file MAC */
	mr = ax0 * ay0 (ss);

	nop;
_halt:
	jump _halt;
