{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 }