(FILECREATED " 2-Aug-84 21:44:35" {ERIS}<SPEECH>WORK>NEWOPCODES.;3 6349   

      changes to:  (VARS NEWOPCODESCOMS)

      previous date: "29-Jul-84 15:58:08" {ERIS}<SPEECH>WORK>NEWOPCODES.;2)


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT NEWOPCODESCOMS)

(RPAQQ NEWOPCODESCOMS ((VARS (\OPCODEARRAY)
			     \OPCODES)
		       (FILES {ERIS}<LISPCORE>MISC>OPCODETOOL)
		       (P (PUTPROP '\BLKSEP 'DOPVAL '(4 FLOATBLT2 4))
			  [PROGN (CreateUFNTableEntry 'IBLT2)
				 (PUTPROP 'IBLT2 '(8 IBLT2]
			  (CreateUFNTableEntry 'FLOATBLT1)
			  (CreateUFNTableEntry 'FLOATBLT2)
			  (CreateUFNTableEntry 'IBLT))
		       (PROP DOPVAL IBLT2 \BLKSEP)))

(RPAQQ \OPCODEARRAY NIL)

(RPAQQ \OPCODES ((0 -X- 0)
		 (1 CAR 0 T 0 NIL \CAR.UFN)
		 (2 CDR 0 T 0 NIL \CDR.UFN)
		 (3 LISTP 0 T 0 NIL LISTP)
		 (4 NTYPX 0 T 0 NIL NTYPX)
		 (5 TYPEP 1 TYPEP 0)
		 (6 DTEST 2 ATOM 0 NIL \DTESTFAIL)
		 (7 CDDR 0 T 0 NIL CDDR)
		 (8 FN0 2 FN 1)
		 (9 FN1 2 FN 0)
		 (10 FN2 2 FN -1)
		 (11 FN3 2 FN -2)
		 (12 FN4 2 FN -3)
		 (13 FNX 3 FNX FNX)
		 (14 APPLYFN 0 T -1)
		 (15 CHECKAPPLY* 0 T 0 NIL \CHECKAPPLY*)
		 (16 RETURN 0 T 0 NIL \HARDRETURN)
		 (17 BIND 2)
		 (18 UNBIND 0)
		 (19 DUNBIND 0)
		 (20 RPLPTR.N 1 T -1 NIL \RPLPTR.UFN)
		 (21 GCREF 1 T 0 NIL \HTFIND)
		 (22 was.htfind 0 T)
		 (23 GVAR← 2 ATOM 0 NIL \SETGLOBALVAL.UFN)
		 (24 RPLACA 0 T -1 NIL \RPLACA.UFN)
		 (25 RPLACD 0 T -1 NIL \RPLACD.UFN)
		 (26 CONS 0 T -1 NIL \CONS.UFN)
		 (27 GETP 0 T -1 NIL GETPROP)
		 (28 FMEMB 0 T -1 NIL FMEMB)
		 (29 GETHASH 0 T -1 NIL GETHASH)
		 (30 PUTHASH 0 T -2 NIL PUTHASH)
		 (31 CREATECELL 0 T 0 NIL \CREATECELL)
		 (32 BIN 0 T 0 NIL \BIN)
		 (33 BOUT 0 T -1 NIL \BOUT)
		 (34 BITBLT 0 T -1 NIL BitBltSUBR)
		 (35 LIST1 0 T 0 NIL CONS)
		 (36 DOCOLLECT 0 T -1 NIL DOCOLLECT)
		 (37 ENDCOLLECT 0 T -1 NIL ENDCOLLECT)
		 (38 RPLCONS 0 T -1 NIL \RPLCONS)
		 (39 unused)
		 (40 ELT 0 T -1 NIL ELT)
		 (41 NTHCHC 0 T -1 NIL NTHCHARCODE)
		 (42 SETA 0 T -2 NIL SETA)
		 (43 RPLCHARCODE 0 T -2 NIL RPLCHARCODE)
		 (44 EVAL 0 T 0 NIL \EVAL)
		 (45 EVALV 0 T 0 NIL \EVALV1)
		 (46 unused)
		 (47 STKSCAN 0 T 0 NIL \STKSCAN)
		 (48 PCBLT 2 T -3 48 \PCBLT.UFN)
		 (49 IBLT2 0 T -7 49 \IBLT2.UFN)
		 (59 \MU.DRAWLINE 0 T -8 NIL \DRAWLINE.UFN)
		 (60 STORE.N 1 T 0)
		 (61 COPY.N 1 T 1)
		 (62 RAID 0 T 0 NIL RAID)
		 (63 \RETURN 0 T 0 NIL \RETURN)
		 (64 IVAR 0 IVAR 1 70)
		 (71 IVARX 1 IVAR 1)
		 (72 PVAR 0 PVAR 1 78)
		 (79 PVARX 1 PVAR 1)
		 (80 FVAR 0 FVAR 1 86)
		 (87 FVARX 1 FVAR 1)
		 (88 PVAR← 0 PVAR 0 94)
		 (95 PVARX← 1 PVAR 0)
		 (96 GVAR 2 ATOM 1)
		 (97 ARG0 0 T 0 NIL \ARG0)
		 (98 IVARX← 1 IVAR 0)
		 (99 FVARX← 1 FVAR 0)
		 (100 COPY 0 T 1)
		 (101 MYARGCOUNT 0 T 1 NIL \MYARGCOUNT)
		 (102 MYALINK 0 T 1)
		 (103 ACONST 2 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 3 GCONST 1)
		 (112 ATOMNUMBER 2 ATOM 1)
		 (113 READFLAGS 0 T 0 NIL \READFLAGS)
		 (114 READRP 0 T 0 NIL \READRP)
		 (115 WRITEMAP 0 T -2 NIL \WRITEMAP)
		 (116 READPRINTERPORT 0 T 1 NIL NILL)
		 (117 WRITEPRINTERPORT 0 T 0 NIL NILL)
		 (118 PILOTBITBLT 0 T -1 NIL \PILOTBITBLT)
		 (119 RCLK 0 T 0 NIL \RCLKSUBR)
		 (120 MISC1 1 T 0 NIL \MISC1.UFN)
		 (121 MISC2 1 T -1 NIL \MISC2.UFN)
		 (122 RECLAIMCELL 0 T 0 NIL \GCRECLAIMCELL)
		 (123 GCSCAN1 0 T 0 NIL \GCSCAN1)
		 (124 GCSCAN2 0 T 0 NIL \GCSCAN2)
		 (125 SUBRCALL 2)
		 (126 CONTEXTSWITCH 0 T 0 NIL \CONTEXTSWITCH)
		 (127 AUDIO 0 T 0 NIL NILL)
		 (128 JUMP 0 JUMP JUMP 143)
		 (144 FJUMP 0 JUMP CJUMP 159)
		 (160 TJUMP 0 JUMP CJUMP 175)
		 (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 jeq)
		 (183 jlistp)
		 (184 PVAR←↑ 0 PVAR -1 190)
		 (191 POP 0 T -1)
		 (192 was.getbase)
		 (193 was.getbaseptr)
		 (194 GETBASEBYTE 0 T -1 NIL \GETBASEBYTE)
		 (195 was.scanbase)
		 (196 BLT 0 T -2 NIL \BLT)
		 (197 was.putbase)
		 (198 was.putbaseptr)
		 (199 PUTBASEBYTE 0 T -2 NIL \PUTBASEBYTE)
		 (200 GETBASE.N 1 T 0)
		 (201 GETBASEPTR.N 1 T 0)
		 (202 GETBITS.N.FD 2 T 0)
		 (203 unused)
		 (204 unused)
		 (205 PUTBASE.N 1 T -1 NIL \PUTBASE.UFN)
		 (206 PUTBASEPTR.N 1 T -1 NIL \PUTBASEPTR.UFN)
		 (207 PUTBITS.N.FD 2 T -1 NIL \PUTBITS.UFN)
		 (208 ADDBASE 0 T -1 NIL \ADDBASE)
		 (209 VAG2 0 T -1 NIL \VAG2)
		 (210 HILOC 0 T 0)
		 (211 LOLOC 0 T 0)
		 (212 PLUS2 0 T -1 NIL PLUS)
		 (213 DIFFERENCE 0 T -1 NIL DIFFERENCE)
		 (214 TIMES2 0 T -1 NIL TIMES)
		 (215 QUOTIENT 0 T -1 NIL QUOTIENT)
		 (216 IPLUS2 0 T -1 NIL \SLOWIPLUS2)
		 (217 IDIFFERENCE 0 T -1 NIL \SLOWIDIFFERENCE)
		 (218 ITIMES2 0 T -1 NIL \SLOWITIMES2)
		 (219 IQUOTIENT 0 T -1 NIL \SLOWIQUOTIENT)
		 (220 IREMAINDER 0 T -1 NIL IREMAINDER)
		 (221 IPLUS.N 1 T 0 NIL \SLOWIPLUS2)
		 (222 IDIFFERENCE.N 1 T 0 NIL \SLOWIDIFFERENCE)
		 (223 IBLT 0 T -7 223 \IBLT.UFN)
		 (224 LLSH1 0 T 0 NIL \SLOWLLSH1)
		 (225 LLSH8 0 T 0 NIL \SLOWLLSH8)
		 (226 LRSH1 0 T 0 NIL \SLOWLRSH1)
		 (227 LRSH8 0 T 0 NIL \SLOWLRSH8)
		 (228 LOGOR2 0 T -1 NIL \SLOWLOGOR2)
		 (229 LOGAND2 0 T -1 NIL \SLOWLOGAND2)
		 (230 LOGXOR2 0 T -1 NIL \SLOWLOGXOR2)
		 (231 unused)
		 (232 FPLUS2 0 T -1 NIL \BOXFPLUSDIF)
		 (233 FDIFFERENCE 0 T -1 NIL \FDIFFERENCE.UFN)
		 (234 FTIMES2 0 T -1 NIL \BOXFTIMES2)
		 (235 FQUOTIENT 0 T -1 NIL \BOXFQUOTIENT)
		 (236 unused NIL NIL NIL 239)
		 (240 EQ 0 T -1)
		 (241 IGREATERP 0 T -1 NIL \SLOWIGREATERP)
		 (242 FGREATERP 0 T -1 NIL FGREATERP)
		 (243 GREATERP 0 T -1 NIL GREATERP)
		 (244 unused)
		 (245 MAKENUMBER 0 T -1 NIL \MAKENUMBER)
		 (246 BOXIPLUS 0 T -1 NIL \BOXIPLUS)
		 (247 BOXIDIFFERENCE 0 T -1 NIL \BOXIDIFFERENCE)
		 (248 FLOATBLT 0 T -4 NIL \FLOATBLT)
		 (249 FFTSTEP 0 T -1 NIL \FFTSTEP)
		 (250 FLOATBLT1 1 T -2 250 \FLOATBLT1.UFN)
		 (251 FLOATBLT2 1 T -3 251 \FLOATBLT2.UFN)
		 (252 unused)
		 (253 SWAP 0 T 0)
		 (254 NOP 0 T 0)
		 (255 UPCTRACE 0 T 0 NIL NILL)))
(FILESLOAD {ERIS}<LISPCORE>MISC>OPCODETOOL)
(PUTPROP '\BLKSEP 'DOPVAL '(4 FLOATBLT2 4))
[PROGN (CreateUFNTableEntry 'IBLT2)
       (PUTPROP 'IBLT2 '(8 IBLT2]
(CreateUFNTableEntry 'FLOATBLT1)
(CreateUFNTableEntry 'FLOATBLT2)
(CreateUFNTableEntry 'IBLT)

(PUTPROPS IBLT2 DOPVAL (8 IBLT2))

(PUTPROPS \BLKSEP DOPVAL (4 FLOATBLT2 4))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP