(FILECREATED "28-Jun-84 15:55:29" ("compiled on " {ERIS}SOURCES>UBFLOAT.;3) "19-Jun-84 14:30:14" bcompl'd in WORK dated "19-Jun-84 14:48:49") (FILECREATED "28-Jun-84 15:17:31" {ERIS}SOURCES>UBFLOAT.;3 7752Q changes to: (VARS UBFLOATCOMS) (MACROS XTIMES XPLUS XDIFFERENCE) (FNS COMP.FLOATBOX COMP.FLOATUNBOX COMP.UBFLOAT2 \UNBOXFLOAT1 \UNBOXFLOAT2) (PROPS (\FLOATBOX DOPVAL) (\FLOATUNBOX DOPVAL)) previous date: "28-Jun-84 14:26:25" {ERIS}SOURCES>UBFLOAT.;1) COMP.FLOATBOX D1 (F 0 CODE) Pgk“gk (24Q COMP.STFN 14Q COMP.DELFN 10Q OPT.CALLP) (20Q \FLOATBOX 4 \FLOATUNBOX) () COMP.FLOATUNBOX D1 (F 0 CODE) g Pgk“gk (32Q COMP.STFN 22Q COMP.DELFN 16Q OPT.CALLP 5 COMP.DELFIX) (26Q \FLOATUNBOX 12Q \FLOATBOX 2 FLOAT) () COMP.UBFLOAT2 D1 (P 0 N I 1 OP I 0 A F 1 EFF F 2 OPTIMIZATIONSOFF) DjQ²R³@ @b¿ ¿¿HkØ¸@µíHkÙdjñ²ggAhk ¿°éh(100Q COMP.FLOATBOX 72Q COMP.STFN 33Q COMP.FLOATUNBOX 27Q COMP.VAL 15Q COMP.PROGN) (61Q UBFLOAT2 56Q OPCODES) () \UNBOXFLOAT1 D1 (P 0 REALX I 2 \INTERRUPTABLE I 1 OP I 0 X) H@Hb¿XAdjð˜¿dÒHÓ kð›HXÈHÈÑAdlð™¿Hü ülð˜Hü ü(105Q SHOULDNT 77Q FMINUS 62Q ABS 25Q MAKEFLOATNUMBER) (35Q FLOATP) () \UNBOXFLOAT2 D1 (P 1 REALY P 0 REALX I 3 \INTERRUPTABLE I 2 OP I 1 Y I 0 X) @Hb¿XAIb¿YBdjðš¿HüIüèükð™HüIüéüBdlðš¿IüHüéülð™HüIüêüBdlðš¿HüIüëülð—HüIüòBdlðœ¿HüIü ülð›HüIü ü(215Q SHOULDNT 207Q FMIN 167Q FMAX) NIL () (PRETTYCOMPRINT UBFLOATCOMS) (RPAQQ UBFLOATCOMS ((PROP DOPVAL \FLOATBOX \FLOATUNBOX) (FNS COMP.FLOATBOX COMP.FLOATUNBOX COMP.UBFLOAT2 \UNBOXFLOAT1 \UNBOXFLOAT2) (MACROS XDIFFERENCE XPLUS XTIMES))) (PUTPROPS \FLOATBOX DOPVAL (1 UBFLOAT1 0)) (PUTPROPS \FLOATUNBOX DOPVAL (1 UBFLOAT1 1)) (PUTPROPS XDIFFERENCE BYTEMACRO (APPLY* COMP.UBFLOAT2 1)) (PUTPROPS XPLUS DMACRO (APPLY* COMP.UBFLOAT2 0)) (PUTPROPS XTIMES DMACRO (APPLY* COMP.UBFLOAT2 3)) (PUTPROPS UBFLOAT COPYRIGHT ("Xerox Corporation" 3700Q)) NIL