(FILECREATED "21-Nov-84 15:41:41" {ERIS}<LISP>HARMONY>LIBRARY>FPOPSPATCH.;1
 1852   

      changes to:  (PROPS (\BLKFPLUS DOPVAL))
		   (VARS FPOPSPATCHCOMS)
		   (FNS PATCHOPCODES)

      previous date: "14-Nov-84 18:08:47" {ERIS}<LISP>HARMONY>SOURCES>FPOPSPATCH.;1)


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FPOPSPATCHCOMS)

(RPAQQ FPOPSPATCHCOMS
 ((PROP DOPVAL * FPOPSPATCHDOPVALS)
		       (FNS PATCHOPCODES)
		       (P (PATCHOPCODES))))

(RPAQQ FPOPSPATCHDOPVALS
 (\BLKEXPONENT \BLKMAG \BLKSMALLP2FLOAT \BLKFLOATP2COMP \BLKPERM \BLKFTIMES 
				       \BLKFDIFF \BLKFPLUS \BLKSEP \IBLT1 \IBLT2))

(PUTPROPS \BLKEXPONENT DOPVAL
 (3 MISC3 0))

(PUTPROPS \BLKMAG DOPVAL
 (3 MISC3 1))

(PUTPROPS \BLKSMALLP2FLOAT DOPVAL
 (3 MISC3 2))

(PUTPROPS \BLKFLOATP2COMP DOPVAL
 (3 MISC3 3))

(PUTPROPS \BLKPERM DOPVAL
 (4 MISC4 1))

(PUTPROPS \BLKFTIMES DOPVAL
 (4 MISC4 0))

(PUTPROPS \BLKFDIFF DOPVAL
 (4 MISC4 3))

(PUTPROPS \BLKFPLUS DOPVAL
 (4 MISC4 2))

(PUTPROPS \BLKSEP DOPVAL
 (4 MISC4 4))

(PUTPROPS \IBLT1 DOPVAL
 (8 MISC8 0))

(PUTPROPS \IBLT2 DOPVAL
 (8 MISC8 1))
(DEFINEQ

(PATCHOPCODES

  [LAMBDA NIL                                                (* hdj "21-Nov-84 15:31")

    (
PROG
 ((OP250 (
ASSOC
 250 \OPCODES))
	   (OP251 (
ASSOC
 251 \OPCODES)))
          (
RPLACA
 (
CDR
 OP250)
		  (
QUOTE
 MISC3))
          (
RPLACA
 (
LAST
 OP250)
		  (
QUOTE
 \MISC3.UFN))
          (
RPLACA
 (
CDDDDR
 OP250)
		  -2)
          (
RPLACA
 (
CDR
 OP251)
		  (
QUOTE
 MISC4))
          (
RPLACA
 (
LAST
 OP251)
		  (
QUOTE
 \MISC4.UFN))
          (
RPLACA
 (
CDDDDR
 OP251)
		  -3)
          (
SETQ
 \OPCODEARRAY NIL])
)
(PATCHOPCODES)
(PUTPROPS FPOPSPATCH COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1157 1756 (PATCHOPCODES 1167 . 1754)))))
STOP