(FILECREATED " 5-Aug-84 01:07:05" {ERIS}<LISPCORE>SOURCES>PCBLT.;4 9425
changes to: (FNS PCWRITELINE PCBLTOUTNYBBLES PCWRITEREGION)
(VARS PCBLTCOMS)
previous date: " 3-Aug-84 03:14:23" {ERIS}<LISPCORE>SOURCES>PCBLT.;3)
(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT PCBLTCOMS)
(RPAQQ PCBLTCOMS ((FILES {ERIS}<LISPCORE>MISC>OPCODETOOL)
(VARS \OPCODES (\OPCODEARRAY))
(PROP DOPVAL \PCBLTIN \PCBLTINBYTES \PCBLTINNYBBLES \PCBLTINSWAPBYTES \PCBLTOUT
\PCBLTOUTBYTES \PCBLTOUTNYBBLES \PCBLTOUTSWAPBYTES)
(P (PROGN (PUTPROP '\PCBLTINNYBBLES 'DOPVAL ' (4 PCBLT 7))
(PUTPROP '\PCBLTINSWAPBYTES 'DOPVAL ' (4 PCBLT 6))
(PUTPROP '\PCBLTINBYTES 'DOPVAL ' (4 PCBLT 5))
(PUTPROP '\PCBLTIN 'DOPVAL ' (4 PCBLT 4))
(PUTPROP '\PCBLTOUTNYBBLES 'DOPVAL ' (4 PCBLT 3))
(PUTPROP '\PCBLTOUTSWAPBYTES 'DOPVAL ' (4 PCBLT 2))
(PUTPROP '\PCBLTOUTBYTES 'DOPVAL ' (4 PCBLT 1))
(PUTPROP '\PCBLTOUT 'DOPVAL ' (4 PCBLT 0))
(CreateUFNTableEntry 'PCBLT)))
(FNS PCBLTOUTNYBBLES PCBLTOUTPUTNYBBLES PCREADLINE PCWRITELINE PCWRITEREGION TESTIN
TESTINBYTES TESTIT TESTOUT TESTOUTBYTES)))
(FILESLOAD {ERIS}<LISPCORE>MISC>OPCODETOOL)
(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 unused NIL NIL NIL 58)
(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)))
(RPAQQ \OPCODEARRAY NIL)
(PUTPROPS \PCBLTIN DOPVAL (4 PCBLT 4))
(PUTPROPS \PCBLTINBYTES DOPVAL (4 PCBLT 5))
(PUTPROPS \PCBLTINNYBBLES DOPVAL (4 PCBLT 7))
(PUTPROPS \PCBLTINSWAPBYTES DOPVAL (4 PCBLT 6))
(PUTPROPS \PCBLTOUT DOPVAL (4 PCBLT 0))
(PUTPROPS \PCBLTOUTBYTES DOPVAL (4 PCBLT 1))
(PUTPROPS \PCBLTOUTNYBBLES DOPVAL (4 PCBLT 3))
(PUTPROPS \PCBLTOUTSWAPBYTES DOPVAL (4 PCBLT 2))
(PROGN (PUTPROP '\PCBLTINNYBBLES 'DOPVAL ' (4 PCBLT 7))
(PUTPROP '\PCBLTINSWAPBYTES 'DOPVAL ' (4 PCBLT 6))
(PUTPROP '\PCBLTINBYTES 'DOPVAL ' (4 PCBLT 5))
(PUTPROP '\PCBLTIN 'DOPVAL ' (4 PCBLT 4))
(PUTPROP '\PCBLTOUTNYBBLES 'DOPVAL ' (4 PCBLT 3))
(PUTPROP '\PCBLTOUTSWAPBYTES 'DOPVAL ' (4 PCBLT 2))
(PUTPROP '\PCBLTOUTBYTES 'DOPVAL ' (4 PCBLT 1))
(PUTPROP '\PCBLTOUT 'DOPVAL ' (4 PCBLT 0))
(CreateUFNTableEntry 'PCBLT))
(DEFINEQ
(PCBLTOUTNYBBLES
[LAMBDA (A H L CNT) (* edited: " 5-Aug-84 00:36")
(\PCBLTOUTNYBBLES A H L CNT])
(PCBLTOUTPUTNYBBLES
[LAMBDA (DLIONBASE PCH PCL CNT) (* edited: " 3-Aug-84 03:11")
(\PCBLTOUTPUTNYBBLES DLIONBASE PCH PCL CNT])
(PCREADLINE
[LAMBDA (A N) (* edited: "30-Jul-84 09:49")
(PCWRITE 917553 (ITIMES 160 N))
(\PCBLTINBYTES A 8 0 320])
(PCWRITELINE
[LAMBDA (BASE Y) (* edited: " 5-Aug-84 01:00")
(PCWRITE2 917552 (ITIMES 40 Y))
(PCBLTOUTNYBBLES BASE 8 0 160])
(PCWRITEREGION
[LAMBDA (BITMAP REGION) (* edited: " 5-Aug-84 00:57")
(OR BITMAP (SETQ BITMAP (COLORSCREENBITMAP)))
(PROG ((LINEBASE (fetch BITMAPBASE of BITMAP)))
(for Y from 0 to 399
do (PCWRITELINE LINEBASE Y)
(SETQ LINEBASE (\ADDBASE LINEBASE 160])
(TESTIN
[LAMBDA (A N) (* edited: "30-Jul-84 14:58")
(OR A (SETQ A B))
(OR N (SETQ N 8000))
(\PCBLTIN A 1 0 N])
(TESTINBYTES
[LAMBDA (A N) (* edited: "30-Jul-84 16:02")
(OR A (SETQ A B))
(OR N (SETQ N 8000))
(\PCBLTINBYTES A 1 0 N])
(TESTIT
[LAMBDA NIL (* edited: "29-Jul-84 23:32")
(\PCBLTIN A H L C])
(TESTOUT
[LAMBDA (A N) (* edited: "30-Jul-84 15:06")
(OR A (SETQ A B))
(OR N (SETQ N 8000))
(\PCBLTOUT A 1 0 N])
(TESTOUTBYTES
[LAMBDA (A N) (* edited: "30-Jul-84 16:02")
(OR A (SETQ A B))
(OR N (SETQ N 8000))
(\PCBLTOUTBYTES A 1 0 N])
)
(PUTPROPS PCBLT COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
(FILEMAP (NIL (7427 9349 (PCBLTOUTNYBBLES 7437 . 7586) (PCBLTOUTPUTNYBBLES 7588 . 7755) (PCREADLINE
7757 . 7934) (PCWRITELINE 7936 . 8123) (PCWRITEREGION 8125 . 8475) (TESTIN 8477 . 8654) (TESTINBYTES
8656 . 8843) (TESTIT 8845 . 8975) (TESTOUT 8977 . 9156) (TESTOUTBYTES 9158 . 9347)))))
STOP