(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