{File name LispUnused.mc
Description:  DandeLion InterLisp Emulator LispUnusedMisc
Charnley  15-Jan-85 16:26:55  Created
Changed  20-Sep-85 15:34:42 by Gwan Santosa.

}

LispUnused:

{	372	FLOATARRAY1}
{	0	EXP
	1	MAG
	2	FLOAT
	3	COMPLEX
	4	MAX
	5	MIN
	6	ABSMAX
	7	ABSMIN
	8	FLOATTOINTEGER
}

	GOTO[ufnX12],	c3, at[09, 10, FOP1Disp];
	GOTO[ufnX12],	c3, at[0A, 10, FOP1Disp];
	GOTO[ufnX12],	c3, at[0B, 10, FOP1Disp];
	GOTO[ufnX12],	c3, at[0C, 10, FOP1Disp];
	GOTO[ufnX12],	c3, at[0D, 10, FOP1Disp];
	GOTO[ufnX12],	c3, at[0E, 10, FOP1Disp];
	GOTO[ufnX12],	c3, at[0F, 10, FOP1Disp];


{	373	FLOATARRAY2}
{	0	TIMES
	1	PERM
	2	PLUS
	3	DIFFERENCE
	4	MAGIC
	5	TRIPLECHECK (deleted already 31-Jul-85 13:34:36)	
	6	BITMAPBIT
}
{	07 - 0F	unused}
	GOTO[ufnX12],	c3, at[05, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[07, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[08, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[09, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[0A, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[0B, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[0C, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[0D, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[0E, 10, FOP2Disp];
	GOTO[ufnX12],	c3, at[0F, 10, FOP2Disp];

{	354	UNBOX2}
{	0	UFADD
	1	UFSUB
	2	UFISUB
	3	UFMULT
	4	UFDIV
	5	UGREAT
	6	UMAX
	7	UMIN
}

{08 has been used, but no microcode}

	
	GOTO[ufnX12],	c3, at[08, 10, ub2op];
	GOTO[ufnX12],	c3, at[09, 10, ub2op];
	GOTO[ufnX12],	c3, at[0A, 10, ub2op];
	GOTO[ufnX12],	c3, at[0B, 10, ub2op];	
	GOTO[ufnX12],	c3, at[0C, 10, ub2op];
	GOTO[ufnX12],	c3, at[0D, 10, ub2op];
	GOTO[ufnX12],	c3, at[0E, 10, ub2op];
	GOTO[ufnX12],	c3, at[0F, 10, ub2op];

{	355	UNBOX1}
{	0	UTOB
	1	BTOU
	2	UABS
	3	UNEG
	4	UFIX
}
{	05 - 0F	unused}
	GOTO[ufnX12],	c3, at[05, 10, UB1fn];
	GOTO[ufnX12],	c3, at[06, 10, UB1fn];
	GOTO[ufnX12],	c3, at[07, 10, UB1fn];
	GOTO[ufnX12],	c3, at[08, 10, UB1fn];
	GOTO[ufnX12],	c3, at[09, 10, UB1fn];
	GOTO[ufnX12],	c3, at[0A, 10, UB1fn];
	GOTO[ufnX12],	c3, at[0B, 10, UB1fn];
	GOTO[ufnX12],	c3, at[0C, 10, UB1fn];
	GOTO[ufnX12],	c3, at[0D, 10, UB1fn];
	GOTO[ufnX12],	c3, at[0E, 10, UB1fn];
	GOTO[ufnX12],	c3, at[0F, 10, UB1fn];

{	61	MISC8}
	{	02 - 0F}
{	0	IBLT1
	1	IBLT2
}
	GOTO[ufnX12],	c3, at[02, 10, iblt];
	GOTO[ufnX12],	c3, at[03, 10, iblt];
	GOTO[ufnX12],	c3, at[04, 10, iblt];
	GOTO[ufnX12],	c3, at[05, 10, iblt];
	GOTO[ufnX12],	c3, at[06, 10, iblt];
	GOTO[ufnX12],	c3, at[07, 10, iblt];
	GOTO[ufnX12],	c3, at[08, 10, iblt];
	GOTO[ufnX12],	c3, at[09, 10, iblt];
	GOTO[ufnX12],	c3, at[0A, 10, iblt];
	GOTO[ufnX12],	c3, at[0B, 10, iblt];
	GOTO[ufnX12],	c3, at[0C, 10, iblt];
	GOTO[ufnX12],	c3, at[0D, 10, iblt];
	GOTO[ufnX12],	c3, at[0E, 10, iblt];
	GOTO[ufnX12],	c3, at[0F, 10, iblt];

{	62	MISC3}
	{	07 - 0F}
{	0	POLYNOMIAL
	1	MATRIX3X3X3
	2	MATRIX4X4X4
	3	MATRIX1X3X3
	4	MATRIX3X3X1
	5	MATRIX1X4X4
	6	MATRIX4X4X1
}
{	07 - 0F	unused}
	GOTO[ufnX12],	c3, at[07, 10, misc3disp];
	GOTO[ufnX12],	c3, at[08, 10, misc3disp];
	GOTO[ufnX12],	c3, at[09, 10, misc3disp];
	GOTO[ufnX12],	c3, at[0A, 10, misc3disp];
	GOTO[ufnX12],	c3, at[0B, 10, misc3disp];
	GOTO[ufnX12],	c3, at[0C, 10, misc3disp];
	GOTO[ufnX12],	c3, at[0D, 10, misc3disp];
	GOTO[ufnX12],	c3, at[0E, 10, misc3disp];
	GOTO[ufnX12],	c3, at[0F, 10, misc3disp];
	
{	305  MISC10}
{	GOTO[ufnX12],	c3, at[00, 10, PIXELDISP]; For PixelBlt
	GOTO[ufnX12],	c3, at[01, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[02, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[03, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[04, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[05, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[06, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[07, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[08, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[09, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[0A, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[0B, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[0C, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[0D, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[0E, 10, PIXELDISP];
	GOTO[ufnX12],	c3, at[0F, 10, PIXELDISP];}


{	70 MISC7}
{	GOTO[ufnX12],	c3, at[00, 10, PSEUDOCLRDISP]; For Pseudo8bitcolor
	GOTO[ufnX12],	c3, at[01, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[02, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[03, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[04, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[05, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[06, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[07, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[08, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[09, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[0A, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[0B, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[0C, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[0D, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[0E, 10, PSEUDOCLRDISP];
	GOTO[ufnX12],	c3, at[0F, 10, PSEUDOCLRDISP];}


	{ E N D }