{File name: LispFFTB1.mc
Description:  DLion Lisp complex Fast Fourier Transform with Floating point chips
Last edit: 24-Apr-84 11:38:18 by don
}

@FFT:	opcode[371'b],
	Bank ← FFTBank,	c1;
	,	c2;
	CROSS[FFTEntry],		c3;

	stackP ← TOS ← 0,	c1, at[FFTExit];
	PC ← PC + PC16, IBDisp, L2 ← L2.0,	c2;
	S ← S - 2, L2 ← L2.0, DISPNI[OpTable],	c3;

	{ E N D }