{File name LispUnusedMisc.mc Description: DandeLion InterLisp Emulator LispUnusedMisc Charnley 15-Jan-85 16:26:55 Created } LispUnusedMisc: { 372 FLOATARRAY1} { 0 EXP 1 MAG 2 FLOAT 3 COMPLEX 4 FLOATTOINTEGER } { 05 - 0F unused} { The alpha bytes being used are masked with 8} GOTO[ufnX1], c3, at[04, 10, FOP1Disp]; GOTO[ufnX1], c3, at[05, 10, FOP1Disp]; GOTO[ufnX1], c3, at[06, 10, FOP1Disp]; GOTO[ufnX1], c3, at[07, 10, FOP1Disp]; GOTO[ufnX1], c3, at[00, 10, FOP1Disp]; GOTO[ufnX1], c3, at[01, 10, FOP1Disp]; GOTO[ufnX1], c3, at[02, 10, FOP1Disp]; GOTO[ufnX1], c3, at[03, 10, FOP1Disp]; GOTO[ufnX1], c3, at[0C, 10, FOP1Disp]; GOTO[ufnX1], c3, at[0D, 10, FOP1Disp]; GOTO[ufnX1], c3, at[0E, 10, FOP1Disp]; GOTO[ufnX1], c3, at[0F, 10, FOP1Disp]; { GOTO[ufnX1], c3, at[0C, 10, FOP1Disp]; GOTO[ufnX1], c3, at[0D, 10, FOP1Disp]; GOTO[ufnX1], c3, at[0E, 10, FOP1Disp]; GOTO[ufnX1], 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[ufnX1], c3, at[05, 10, FOP2Disp]; GOTO[ufnX1], c3, at[07, 10, FOP2Disp]; GOTO[ufnX1], c3, at[08, 10, FOP2Disp]; GOTO[ufnX1], c3, at[09, 10, FOP2Disp]; GOTO[ufnX1], c3, at[0A, 10, FOP2Disp]; GOTO[ufnX1], c3, at[0B, 10, FOP2Disp]; GOTO[ufnX1], c3, at[0C, 10, FOP2Disp]; GOTO[ufnX1], c3, at[0D, 10, FOP2Disp]; GOTO[ufnX1], c3, at[0E, 10, FOP2Disp]; GOTO[ufnX1], 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} { 0C MAX 0D MIN 0E ABSMAX 0F ABSMIN } GOTO[ufnX1], c3, at[08, 10, ub2op]; GOTO[ufnX1], c3, at[09, 10, ub2op]; GOTO[ufnX1], c3, at[0A, 10, ub2op]; GOTO[ufnX1], c3, at[0B, 10, ub2op]; { GOTO[ufnX1], c3, at[0C, 10, ub2op]; GOTO[ufnX1], c3, at[0D, 10, ub2op]; GOTO[ufnX1], c3, at[0E, 10, ub2op]; GOTO[ufnX1], c3, at[0F, 10, ub2op];} { 355 UNBOX1} { 0 UTOB 1 BTOU 2 UABS 3 UNEG 4 UFIX } { 05 - 0F unused} GOTO[ufnX1], c3, at[05, 10, UB1fn]; GOTO[ufnX1], c3, at[06, 10, UB1fn]; GOTO[ufnX1], c3, at[07, 10, UB1fn]; GOTO[ufnX1], c3, at[08, 10, UB1fn]; GOTO[ufnX1], c3, at[09, 10, UB1fn]; GOTO[ufnX1], c3, at[0A, 10, UB1fn]; GOTO[ufnX1], c3, at[0B, 10, UB1fn]; GOTO[ufnX1], c3, at[0C, 10, UB1fn]; GOTO[ufnX1], c3, at[0D, 10, UB1fn]; GOTO[ufnX1], c3, at[0E, 10, UB1fn]; GOTO[ufnX1], c3, at[0F, 10, UB1fn]; { 61 MISC8} { 02 - 0F} { 0 IBLT1 1 IBLT2 } GOTO[ufnX1], c3, at[02, 10, iblt]; GOTO[ufnX1], c3, at[03, 10, iblt]; GOTO[ufnX1], c3, at[04, 10, iblt]; GOTO[ufnX1], c3, at[05, 10, iblt]; GOTO[ufnX1], c3, at[06, 10, iblt]; GOTO[ufnX1], c3, at[07, 10, iblt]; GOTO[ufnX1], c3, at[08, 10, iblt]; GOTO[ufnX1], c3, at[09, 10, iblt]; GOTO[ufnX1], c3, at[0A, 10, iblt]; GOTO[ufnX1], c3, at[0B, 10, iblt]; GOTO[ufnX1], c3, at[0C, 10, iblt]; GOTO[ufnX1], c3, at[0D, 10, iblt]; GOTO[ufnX1], c3, at[0E, 10, iblt]; GOTO[ufnX1], 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[ufnX1], c3, at[07, 10, misc3disp]; GOTO[ufnX1], c3, at[08, 10, misc3disp]; GOTO[ufnX1], c3, at[09, 10, misc3disp]; GOTO[ufnX1], c3, at[0A, 10, misc3disp]; GOTO[ufnX1], c3, at[0B, 10, misc3disp]; GOTO[ufnX1], c3, at[0C, 10, misc3disp]; GOTO[ufnX1], c3, at[0D, 10, misc3disp]; GOTO[ufnX1], c3, at[0E, 10, misc3disp]; GOTO[ufnX1], c3, at[0F, 10, misc3disp]; { 305 MISC10} { GOTO[ufnX1], c3, at[00, 10, PIXELDISP]; For PixelBlt} { GOTO[ufnX1], c3, at[01, 10, PIXELDISP]; GOTO[ufnX1], c3, at[02, 10, PIXELDISP]; GOTO[ufnX1], c3, at[03, 10, PIXELDISP]; GOTO[ufnX1], c3, at[04, 10, PIXELDISP]; GOTO[ufnX1], c3, at[05, 10, PIXELDISP]; GOTO[ufnX1], c3, at[06, 10, PIXELDISP]; GOTO[ufnX1], c3, at[07, 10, PIXELDISP]; GOTO[ufnX1], c3, at[08, 10, PIXELDISP]; GOTO[ufnX1], c3, at[09, 10, PIXELDISP]; GOTO[ufnX1], c3, at[0A, 10, PIXELDISP]; GOTO[ufnX1], c3, at[0B, 10, PIXELDISP]; GOTO[ufnX1], c3, at[0C, 10, PIXELDISP]; GOTO[ufnX1], c3, at[0D, 10, PIXELDISP]; GOTO[ufnX1], c3, at[0E, 10, PIXELDISP]; GOTO[ufnX1], c3, at[0F, 10, PIXELDISP];} { 70 MISC7} { GOTO[ufnX1], c3, at[00, 10, PSEUDOCLRDISP]; For Pseudo8bitcolor} GOTO[ufnX1], c3, at[01, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[02, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[03, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[04, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[05, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[06, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[07, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[08, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[09, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[0A, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[0B, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[0C, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[0D, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[0E, 10, PSEUDOCLRDISP]; GOTO[ufnX1], c3, at[0F, 10, PSEUDOCLRDISP]; { E N D }