(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Jun-2021 21:04:42" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>LLCODE.;1) "13-Jun-2021 14:44:27" recompiled explicitly%: \CCLOSURE.DEFPRINT in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 14:44:40") (FILECREATED "19-Jan-93 10:45:33" {DSK}lde>lispcore>sources>LLCODE.;2 63025 changes to%: ( RECORDS COMPILED-CLOSURE CODEARRAY OPCODE UFNENTRY) previous date%: " 5-Jan-93 00:05:55" {DSK}lde>lispcore>sources>LLCODE.;1) DCODERD :D8 (P 62 X P 61 X P 60 X P 44 X P 43 NT P 41 X P 40 NTBYTESIZE P 39 NT1 P 37 LOCALSIZE P 36 STARTLOCALS P 35 LOCALARGS P 34 FVAROFFSET P 33 CA P 32 NTWORDS P 31 STARTPC P 30 REALSIZE P 29 FRAMENAME P 28 NTSIZE P 27 NARGS P 26 ARGTYPE P 25 NFREEVARS P 24 NLOCALS P 23 CODELEN P 22 NAMETABLE P 1 *READTABLE* P 0 INSTREAM I 0 FN F 63 *READTABLE*) ?hg W~d``PH H H H H H j@%O,dg_:O,_,gO,_FO,_,O, O,O8k_8O8klm_8O,O8d؁l_@lO@_>OF!_HOF kkm_JO>OJ_>O>O.lm_lkkm _BdO>O.H O,llO8)OL_ROR}OBONORm OBONOPlORdgn(dgODON_Dngj OBONOPOR OR_RONl_NOFOBO4l]m[lOH,OT_XOXDOBOVOXm OBOVOJlj OBOVOJOX OX_XOVl_VO6n\MZJl lKǿLlkMl/OZOZl O\O^OBO0O2kkn__O_^Nl lOǿOlkOl2O`O`l ObOdOBO>__Ol lOǿOBlkO>l5OfOfl OhOjOBdOBl llO4l__Ol lOǿOBl O: OBO8__Ol l OǿOBl kO8l8OlOll OnOpOBOBl lO0ǿOBODj_"_ O l lO"ǿOBd _*_(O*_&_$O$l jO&ǿO(jkO*l;OrOrl OtOvdOxm d=OBOzO>Ozm d>OBO|O>O| @OB h(1201 DEFC 1187 \FIXCODEPTR 1164 READ 1153 \FIXCODESYM 1128 READ 1117 \FIXCODESYM 1092 READ 1080 \GETBASEFIXP 1038 \GETBASEFIXP 1004 \STKMIN 989 \GETBASEFIXP 949 \GETBASEFIXP 919 \GETBASEFIXP 875 \GETBASEFIXP 843 \FIXCODEPTR 825 \GETBASEFIXP 782 \GETBASEFIXP 751 \GETBASEFIXP 707 \GETBASEFIXP 669 \GETBASEFIXP 625 \GETBASEFIXP 570 \GETBASEFIXP 529 \GETBASEFIXP 476 \FIXCODENUM 460 \FIXCODENUM 443 \FIXCODESYM 373 \FIXCODENUM 356 \FIXCODENUM 351 SHOULDNT 285 \FIXCODESYM 246 AIN 233 \CODEARRAY 178 FLENGTH 47 READC 42 READ 15 GETSTREAM 4 READC) (1073 ARRAYP 1064 ARRAYP 1031 ARRAYP 1022 ARRAYP 982 ARRAYP 973 ARRAYP 942 ARRAYP 933 ARRAYP 912 ARRAYP 903 ARRAYP 868 ARRAYP 859 ARRAYP 818 ARRAYP 809 ARRAYP 775 ARRAYP 766 ARRAYP 744 ARRAYP 735 ARRAYP 700 ARRAYP 691 ARRAYP 662 ARRAYP 653 ARRAYP 618 ARRAYP 610 ARRAYP 563 ARRAYP 554 ARRAYP 522 ARRAYP 514 ARRAYP 342 I 319 F 305 P 95 L 76 NAME 31 CODERDTBL 23 FILERDTBL 10 INPUT) () DCODESKIP :D8 (P 3 START P 2 CODELEN P 1 RDTBL P 0 INSTREAM I 1 FLG I 0 FN F 4 *READTABLE*) hg Td``"H AH H H H H ZH H H H Hd J HhI HhI HhI HI A3@ o ` HhK h(166 COPYBYTES 161 GETFILEPTR 152 TERPRI 146 PRIN4 135 PRIN3 124 PRIN4 115 READC 108 SKREAD 100 SKREAD 92 SKREAD 84 SETFILEPTR 77 GETFILEPTR 55 READC 49 SKREAD 42 GETFILEPTR 34 READC 10 GETSTREAM) (141 CODEINDICATOR 25 CODERDTBL 17 FILERDTBL 5 INPUT) ( 130 " ") \ALLOC.CODE.BLOCK :D8 (I 1 INITONPAGE I 0 NBYTES) @llAl (15 \ALLOCBLOCK) NIL () \REALNAMEP :D8 (I 0 X) @gh@k gh(17 NTHCHAR) (22 \ 5 ERRORSET) () \RENAMEDFN :D8 (P 2 NEWCA P 1 WORDSIZE P 0 CODEBASE I 1 FN I 0 DEF) K@H IHlkkm JHIA l @ dJ(67 NCREATE2 59 \COPYCODEBLOCK 47 \ALLOC.CODE.BLOCK 21 \#BLOCKDATACELLS) (10 COMPILED-CLOSURE 5 COMPILED-CLOSURE) () MAKE-COMPILED-CLOSURE :D8 (I 1 ENVIRONMENT I 0 CODEBASE) l d@dANIL NIL () \CCLOSURE.DEFPRINT :D8 (P 1 TYPE P 0 NAME I 1 STREAM I 0 CLOSURE F 2 \THISFILELINELENGTH F 3 *READTABLE*) @@ooR9ll Hd3@H Hdd3@ jkARA AS oA IA H"Al H HA HA Al/ @A Al> i(181 \OUTCHAR 173 \PRINTADDR 166 \OUTCHAR 157 \PRINDATUM 149 \SOUT 141 STRINGP 134 \OUTCHAR 123 \SOUT 116 \SOUT 105 \OUTCHAR 89 FRESHLINE 65 NCHARS 52 STRINGP) (97 READTABLEP 77 STREAM 15 COMPILED-CLOSURE 5 COMPILED-CLOSURE) ( 110 "Sources> and Sources>2-byte>, with the latter being the old 2-byte-atom version. IF YOU CHANGE THIS ONE, CHANGE THE OTHER ONE!" ) (COMS (* ; "reading in compiled code") (FNS DCODERD DCODESKIP \ALLOC.CODE.BLOCK \REALNAMEP \RENAMEDFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CODERDTBL (COPYREADTABLE (QUOTE ORIG)))) (P ( SETSYNTAX 25 (QUOTE (MACRO (LAMBDA (FILE RDTBL) (EVAL (READ FILE RDTBL))))) CODERDTBL) (SETSYNTAX 124 (QUOTE (MACRO ALWAYS READVBAR)) CODERDTBL) (READTABLEPROP CODERDTBL (QUOTE USESILPACKAGE) NIL))) ( GLOBALVARS CODERDTBL FILERDTBL) (COMS (* ;; "CODEINDICATOR is the token the compiler puts out in front of compiled definitions. To switch to an incompatible compiled code version, choose a new value for CODEINDICATOR. If old compiled code is still loadable in the new system, retain the CODEREADER prop for an indicators that are still loadable." ) (* ;; "CODEINDICATOR changed to :D6 4/6/90 by JDS for Medley 1.15, because of additional opcodes emitted by compiler." ) (* ;; "CODEINDICATOR changed to :D7 by JDS 3/4/91 for Medley 1.3, because of 3-byte atoms. Old CODEREADER properties removed at the same time." ) (* ;; "Changed to :D8 by JDS 11/12/92 for Medley 2.1/3.0 because of 4-byte pointers/4-byte atoms. Old CODEREADER property removed as well, since old code is not readable." ) (VARS (CODEINDICATOR (QUOTE :D8))) (GLOBALVARS CODEINDICATOR) (PROP CODEREADER * (LIST CODEINDICATOR )))) (COMS (* ; "Compiled CLOSURE type") (FNS MAKE-COMPILED-CLOSURE \CCLOSURE.DEFPRINT \GET-COMPILED-DEFINITION \GET-COMPILED-CODE-BASE EQDEFP) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT ( RECORDS COMPILED-CLOSURE) (CONSTANTS \COMPILED-CLOSURE) (MACROS \EXTENDED.EQP))) (INITRECORDS COMPILED-CLOSURE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE COMPILED-CLOSURE) (QUOTE \CCLOSURE.DEFPRINT))))) (COMS (* ; "utilities") (FNS \FINDOP OP#) (* ;; "List of opcodes known to the system. Used to drive the compilers and build the UFN table.") (* ;; "Format of an entry: (op# name #-extra-bytes ?? stack-effect ") (VARS \OPCODES) (ADDVARS (\OPCODEARRAY )) (GLOBALVARS \OPCODEARRAY \OPCODES) (DECLARE%: EVAL@COMPILE DONTCOPY (FNS WORDSPERNAMEENTRY) (EXPORT (MACROS DPUTCODE MCODEP) (MACROS CODELT CODELT2 CODESETA2 CODESETA) (MACROS BYTESPERNAMEENTRY BYTESPERNTOFFSETENTRY GETNAMEENTRY GETNTFLAGS GETNTOFFSET GETNTOFFSETENTRY GETNTTAG SETNAMEENTRY WORDSPERNTOFFSETENTRY NTSLOT-OFFSET) (FUNCTIONS NEW-SYMBOL-CODE) (OPTIMIZERS BIG-VMEM-CODE SETSTKNAMEENTRY SETSTKNTOFFSETENTRY GETSTKNAMEENTRY GETSTKNTOFFSETENTRY WORDSPERNAMEENTRY SETSTKNTOFFSET SETSTKNAME-RAW SETSTKNTOFFSET-RAW NEW-SYMBOL-CODE MAKE-NTENTRY NULL-NTENTRY) ( OPTIMIZERS NTSLOT-VARTYPE) (RECORDS CODEARRAY) (RECORDS OPCODE) (GLOBALVARS \OPCODES) (CONSTANTS PVARCODE FVARCODE IVARCODE VARCODEMASK) (CONSTANTS \NT.IVARCODE \NT.PVARCODE \NT.FVARCODE)))) (COMS (* ; "ufns") (FNS INITUFNTABLE \SETUFNENTRY \GETUFNENTRY) (FNS \UNKNOWN.UFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; "To go into the INIT") (* ;; "INITIALIZE THE TARGET ARCHITECTURE.") (INITVARS ( COMPILER::*TARGET-ARCHITECTURE* (QUOTE (:4-BYTE :3-BYTE))) (COMPILER::*HOST-ARCHITECTURE* (QUOTE ( :4-BYTE :3-BYTE))))) (DECLARE%: DONTCOPY (RECORDS UFNENTRY) (ADDVARS (INEWCOMS (FNS INITUFNTABLE \SETUFNENTRY))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS INITUFNTABLE)))) (COMS (* ; "for MAKEINIT and READSYS") (DECLARE%: DONTCOPY (ADDVARS (INEWCOMS (FNS DCODERD) (VARS \OPCODES ( CODERDTBL (COPYREADTABLE (QUOTE ORIG)))) (P (SETSYNTAX (CHARCODE ^Y) (QUOTE (MACRO (LAMBDA (FILE RDTBL ) (EVALFORMAKEINIT (READ FILE RDTBL))))) CODERDTBL) (SETSYNTAX (CHARCODE %|) (QUOTE (MACRO ALWAYS READVBAR)) CODERDTBL) (READTABLEPROP CODERDTBL (QUOTE USESILPACKAGE) NIL))) (MKI.SUBFNS (\CODEARRAY . SCRATCHARRAY) (DPUTCODE . I.PUTDEFN) (CODERDTBL . I.CODERDTBL) (SETSTKNTOFFSET . I.SETSTKNTOFFSET) ( WORDSPERNAMEENTRY . I.WORDSPERNAMEENTRY)) (EXPANDMACROFNS CODELT CODELT2 CODESETA CODESETA2 DPUTCODE MCODEP BYTESPERNAMEENTRY BYTESPERNTOFFSETENTRY WORDSPERNAMEENTRY) (RD.SUBFNS (CODELT . VGETBASEBYTE) ( CODESETA . VPUTBASEBYTE)) (RDCOMS (FNS \GET-COMPILED-CODE-BASE))))) (PROP FILETYPE LLCODE) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA OP#) (NLAML) (LAMA))))) (RPAQ CODERDTBL (COPYREADTABLE (QUOTE ORIG))) (SETSYNTAX 25 (QUOTE (MACRO (LAMBDA (FILE RDTBL) (EVAL (READ FILE RDTBL))))) CODERDTBL) (SETSYNTAX 124 (QUOTE (MACRO ALWAYS READVBAR)) CODERDTBL) (READTABLEPROP CODERDTBL (QUOTE USESILPACKAGE) NIL) (RPAQQ CODEINDICATOR :D8) (PUTPROPS :D8 CODEREADER (DCODERD . DCODESKIP)) (/DECLAREDATATYPE (QUOTE COMPILED-CLOSURE) (QUOTE (POINTER POINTER)) (QUOTE ((COMPILED-CLOSURE 0 POINTER) (COMPILED-CLOSURE 2 POINTER))) (QUOTE 4)) (DEFPRINT (QUOTE COMPILED-CLOSURE) (QUOTE \CCLOSURE.DEFPRINT)) (RPAQQ \OPCODES ((0 -X- 0) (1 CAR 0 T 0 \CAR.UFN) (2 CDR 0 T 0 \CDR.UFN) (3 LISTP 0 T 0 LISTP) (4 NTYPX 0 T 0 NTYPX) (5 TYPEP 1 TYPEP 0 \TYPEP.UFN) (6 DTEST 4 ATOM 0 \DTEST.UFN) (7 UNWIND 2 T (UNWIND 1) \UNWIND.UFN) (8 FN0 4 FN 1) (9 FN1 4 FN 0) (10 FN2 4 FN -1) (11 FN3 4 FN -2) (12 FN4 4 FN -3) (13 FNX 5 FNX FNX) (14 APPLYFN 0 T -1) (15 CHECKAPPLY* 0 T 0 \CHECKAPPLY* (4K 12K)) (16 RETURN 0 T (JUMP 1 ) \HARDRETURN) (17 BIND 2) (18 UNBIND 0) (19 DUNBIND 0) (20 RPLPTR.N 1 T -1 \RPLPTR.UFN (4K)) (21 GCREF 1 T 0 \HTFIND) (22 ASSOC 0 T -1 ASSOC (4K DORADO)) (23 GVAR_ 4 ATOM 0 \SETGLOBALVAL.UFN) (24 RPLACA 0 T -1 \RPLACA.UFN 4K) (25 RPLACD 0 T -1 \RPLACD.UFN 4K) (26 CONS 0 T -1 \CONS.UFN) (27 CMLASSOC 0 T -1 CL::%%SIMPLE-ASSOC (4K DORADO)) (28 FMEMB 0 T -1 FMEMB (4K DORADO)) (29 CMLMEMBER 0 T -1 CL::%%SIMPLE-MEMBER (4K DORADO)) (30 FINDKEY 1 T 0 \FINDKEY.UFN) (31 CREATECELL 0 T 0 \CREATECELL 4K) (32 BIN 0 T 0 \BIN 4K) (33 BOUT 0 T -1 \BOUT (4K DORADO)) (34 POPDISP 0 T 0 \POPDISP.UFN (4K DORADO)) (35 RESTLIST 1 T -1 \RESTLIST.UFN) (36 MISCN 2 T 1 \MISCN.UFN (DORADO DLION DBREAK)) (37 unused) (38 RPLCONS 0 T -1 \RPLCONS (4K DORADO)) (39 LISTGET 0 T -1 LISTGET (4K DORADO)) (40 unused) ( 41 unused) (42 unused) (43 unused) (44 EVAL 0 T 0 \EVAL) (45 ENVCALL 0 T (JUMP 0) \ENVCALL.UFN) (46 TYPECHECK 0 T 0 \TYPECHECK.UFN) (47 STKSCAN 0 T 0 \STKSCAN) (48 BUSBLT 1 (WORDSOUT BYTESOUT BYTESOUTSWAPPED NYBBLESOUT WORDSIN BYTESIN BYTESINSWAPPED NYBBLESINSWAPPED) -3 \BUSBLT.UFN (4K DORADO) ) (49 MISC8 1 (IBLT1 IBLT2) -7 \MISC8.UFN (4K DORADO)) (50 UBFLOAT3 1 (POLY MATRIX.3X3 MATRIX.4X4 MATRIX.133 MATRIX.331 MATRIX.144 MATRIX.441 UBASET1) (-2 1) \UNBOXFLOAT3 (4K DORADO)) (51 TYPEMASK.N 1 T 0 \TYPEMASK.UFN) (52 RDPROLOGPTR 0 T 0 RAID (4K DORADO)) (53 RDPROLOGTAG 0 T 0 RAID (4K DORADO)) ( 54 WRTPTR&TAG 0 T -2 RAID (4K DORADO)) (55 WRTPTR&0TAG 0 T -1 RAID (4K DORADO)) (56 MISC7 1 ( PSEUDOCOLOR \FASTBITMAPBIT) -6 \MISC7.UFN (4K DORADO)) (57 DOVEMISC 1 (READIW WRITEIO WRITEMP RDTIMER BYTESWAP LOCKMEM NOTIFYIOP SETWP) (0 -1 0 0 0 -3 0 0)) (58 EQL 0 T -1 EQL) (59 DRAWLINE 0 T -8 \DRAWLINE.UFN (4K DORADO)) (60 STORE.N 1 T 0 \STORE.N.UFN) (61 COPY.N 1 T 1 \COPY.N.UFN) (62 RAID 0 T 0 RAID T) (63 \RETURN 0 T 0 \RETURN) ((64 70) IVAR 0 IVAR 1) (71 IVARX 1 IVAR 1) ((72 78) PVAR 0 PVAR 1) (79 PVARX 1 PVAR 1) ((80 86) FVAR 0 FVAR 1) (87 FVARX 1 FVAR 1) ((88 94) PVAR_ 0 PVAR 0) (95 PVARX_ 1 PVAR 0) (96 GVAR 4 ATOM 1) (97 ARG0 0 T 0 \ARG0 T) (98 IVARX_ 1 IVAR 0) (99 FVARX_ 1 FVAR 0) (100 COPY 0 T 1) (101 MYARGCOUNT 0 T 1 \MYARGCOUNT T) (102 MYALINK 0 T 1) (103 ACONST 4 ATOM 1) (104 %'NIL 0 T 1) (105 %'T 0 T 1) (106 %'0 0 T 1) (107 %'1 0 T 1) (108 SIC 1 SIC 1) (109 SNIC 1 SNIC 1) (110 SICX 2 SICX 1) (111 GCONST 4 GCONST 1) (112 unused) (113 READFLAGS 0 T 0 \READFLAGS) (114 READRP 0 T 0 \READRP) (115 WRITEMAP 0 T -2 \WRITEMAP DORADO) (116 READPRINTERPORT 0 T 1 \READPRINTERPORT.UFN 4K) ( 117 WRITEPRINTERPORT 0 T 0 \WRITEPRINTERPORT.UFN 4K) (118 PILOTBITBLT 0 T -1 \PILOTBITBLT) (119 RCLK 0 T 0 \RCLKSUBR) (120 MISC1 1 (error INPUT OUTPUT error error error error error error RWMUFMAN) 0 \MISC1.UFN) (121 MISC2 1 (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?10) -1 \MISC2.UFN) (122 RECLAIMCELL 0 T 0 \GCRECLAIMCELL DORADO) (123 GCSCAN1 0 T 0 \GCSCAN1) (124 GCSCAN2 0 T 0 \GCSCAN2) (125 SUBRCALL 2 SUBRCALL) (126 CONTEXTSWITCH 0 T 0 \CONTEXTSWITCH) (127 RETCALL 4 FNX (JUMP 1) \RETCALL) ((128 143) JUMP 0 JUMP JUMP NIL) ((144 159) FJUMP 0 JUMP CJUMP NIL) ((160 175) TJUMP 0 JUMP CJUMP NIL) (176 JUMPX 1 JUMPX JUMP) (177 JUMPXX 2 JUMPXX JUMP) (178 FJUMPX 1 JUMPX CJUMP) (179 TJUMPX 1 JUMPX CJUMP) (180 NFJUMPX 1 JUMPX NCJUMP) (181 NTJUMPX 1 JUMPX NCJUMP) (182 AREF1 0 T -1 %%AREF1 (4K DORADO)) (183 ASET1 0 T -2 %%ASET1 (4K DORADO)) ((184 190) PVAR_^ 0 PVAR -1 NIL) (191 POP 0 T -1) (192 POP.N 1 T (POP.N 1 ) \POP.N.UFN) (193 ATOMCELL.N 1 T 0 \ATOMCELL) (194 GETBASEBYTE 0 T -1 \GETBASEBYTE) (195 INSTANCEP 4 ATOM 0 \INSTANCEP.UFN NIL) (196 BLT 0 T -2 \BLT) (197 MISC10 1 T -9 \MISC10.UFN (4K DORADO)) (198 P-MISC2 1 (GET-NEXT-RUN) -1 \P-MISC2.UFN) (199 PUTBASEBYTE 0 T -2 \PUTBASEBYTE) (200 GETBASE.N 1 T 0) (201 GETBASEPTR.N 1 T 0) (202 GETBITS.N.FD 2 T 0) (203 unused) (204 CMLEQUAL 0 T -1 CL:EQUAL (4K 12K DORADO)) (205 PUTBASE.N 1 T -1 \PUTBASE.UFN) (206 PUTBASEPTR.N 1 T -1 \PUTBASEPTR.UFN) (207 PUTBITS.N.FD 2 T -1 \PUTBITS.UFN) (208 ADDBASE 0 T -1 \ADDBASE) (209 VAG2 0 T -1 \VAG2) (210 HILOC 0 T 0) (211 LOLOC 0 T 0) (212 PLUS2 0 T -1 \SLOWPLUS2 *) (213 DIFFERENCE 0 T -1 \SLOWDIFFERENCE *) (214 TIMES2 0 T -1 \SLOWTIMES2 *) (215 QUOTIENT 0 T -1 \SLOWQUOTIENT *) (216 IPLUS2 0 T -1 \SLOWIPLUS2) ( 217 IDIFFERENCE 0 T -1 \SLOWIDIFFERENCE) (218 ITIMES2 0 T -1 \SLOWITIMES2) (219 IQUOTIENT 0 T -1 \SLOWIQUOTIENT) (220 IREMAINDER 0 T -1 IREMAINDER) (221 IPLUS.N 1 T 0 \SLOWIPLUS2 (4K 12K)) (222 IDIFFERENCE.N 1 T 0 \SLOWIDIFFERENCE (4K 12K)) (223 BASE-< 0 T -1 \BASE-<.UFN (4K 12K DORADO)) (224 LLSH1 0 T 0 \SLOWLLSH1) (225 LLSH8 0 T 0 \SLOWLLSH8) (226 LRSH1 0 T 0 \SLOWLRSH1) (227 LRSH8 0 T 0 \SLOWLRSH8) (228 LOGOR2 0 T -1 \SLOWLOGOR2) (229 LOGAND2 0 T -1 \SLOWLOGAND2) (230 LOGXOR2 0 T -1 \SLOWLOGXOR2) (231 LSH 0 T -1 LSH T) (232 FPLUS2 0 T -1 \SLOWFPLUS2 4K) (233 FDIFFERENCE 0 T -1 \SLOWFDIFFERENCE 4K) (234 FTIMES2 0 T -1 \SLOWFTIMES2 4K) (235 FQUOTIENT 0 T -1 \SLOWFQUOTIENT 4K) ( 236 UBFLOAT2 1 (UFADD UFSUB UFISUB UFMULT UFDIV UFGREAT UFMAX UFMIN UFREM UBAREF1) (-1 1) \UNBOXFLOAT2 (4K DORADO)) (237 UBFLOAT1 1 (BOX UNBOX UFABS UFNEGATE UFIX) (0 1) \UNBOXFLOAT1 (4K DORADO)) (238 AREF2 0 T -2 %%AREF2 (4K DORADO)) (239 ASET2 0 T -3 %%ASET2 (4K DORADO)) (240 EQ 0 T -1) (241 IGREATERP 0 T -1 \SLOWIGREATERP) (242 FGREATERP 0 T -1 \SLOWFGREATERP) (243 GREATERP 0 T -1 GREATERP) (244 EQUAL 0 T -1 EQUAL) (245 MAKENUMBER 0 T -1 \MAKENUMBER 4K) (246 BOXIPLUS 0 T -1 \BOXIPLUS 4K) ( 247 BOXIDIFFERENCE 0 T -1 \BOXIDIFFERENCE 4K) (248 FLOATBLT 1 (FLOATWRAP FLOATUNWRAP FLOAT FIX FPLUS FDIFFERENCE FDIFFERENCE FPLUSABS ABSDIFFERENCE ABSFPLUS FTIMES) -3 \FLOATBLT (4K DORADO)) (249 FFTSTEP 0 T -1 \FFTSTEP (4K DORADO)) (250 MISC3 1 (EXPONENT MAGNITUDE FLOAT COMP BLKFMAX BLKFMIN BLKFABSMAX BLKFABSMIN FLOATTOBYTE ARRAYREAD LINES-EQUAL-P) -2 \MISC3.UFN (4K DORADO)) (251 MISC4 1 (ARRAY.TIMES ARRAY.PERM ARRAY.PLUS ARRAY.DIFFERENCE ARRAY.MAGIC 3MATCH BMBIT ARRAYWRITE) -3 \MISC4.UFN) (252 UPCTRACE 0 T 0 NILL (4K 12K)) (253 SWAP 0 T 0) (254 NOP 0 T 0) (255 = 0 T -1 CL::%%= (4K DORADO)))) (ADDTOVAR \OPCODEARRAY) (RPAQ? COMPILER::*TARGET-ARCHITECTURE* (QUOTE (:4-BYTE :3-BYTE))) (RPAQ? COMPILER::*HOST-ARCHITECTURE* (QUOTE (:4-BYTE :3-BYTE))) (PUTPROPS LLCODE FILETYPE CL:COMPILE-FILE) (PUTPROPS LLCODE COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993)) NIL