FLOAT-ERROR-PNEW-MATH  FLOAT-ERROR-PNEW-MATH   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BAb@%B(@D~AF Ab@bB @A   32LOGBITPHARDWARE 32LOGICAL-SHIFT-UPHARDWARE FLOAT-ERROR-MESSAGENEW-MATH FLOAT-ERROR-MESSAGENEW-MATH6420.,*(&$" !#%' ) + -  /135 ERRORLISP-INTERNALS7@A0!@ |B@ C@@A@A5@A 3@A 1@A /@A @A -@A +@A )@A '@A %@A #@A !@A @A @A @A @A j@@AF@@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A @@A 5Result = 0, exact3Result = infinity, exact1!Result finite and non-zero, exact/#Result finite and non-zero, inexact-Overflow, inexact+Underflow, exact)Underflow, inexact'Denormalized operand X%Denormalized operand Y#X & Y operands denormalized! Zero divideX operand Not-A-NumberY operand Not-A-NumberX & Y operands Not-A-NumberInvalid operation requestedFloating point operation error  FPU-STATUSNEW-MATH  FPU-STATUSNEW-MATH  MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS LENGTHARRAY j"@ C@c0@A @A A`@`B@AD   FIELD-EXTRACTHARDWARE READ-PROCESSOR-STATUSHARDWARE (%%PROCESSOR-STATUS-FLOATING-POINT-STATUSHARDWARE  INIT-FLOATNEW-MATH  INIT-FLOATNEW-MATH A A@AfAA A@AfAjD %%DPB-SHORT-IN-SINGLENEW-MATH BYTE PRIMITIVES %%DPB-SHORT-ROUND-BITNEW-MATH BYTE PRIMITIVES  ADD-SHORTNEW-MATH  ADD-SHORTNEW-MATH  FIXUP-SHORTNEW-MATH FLOAT-ERROR-MESSAGENEW-MATHZ l.Z l,*@x 8, 8, 8, 8, 8,(&@DD@a#/DD7'$P%0cDPED~BpC@A@A$C)G SUBTRACT-SHORTNEW-MATH SUBTRACT-SHORTNEW-MATH  FIXUP-SHORTNEW-MATH FLOAT-ERROR-MESSAGENEW-MATHZ l.Z l,*@x8,8,8,8,8,(&@DD@a#/DD7'$P%0cDPED~BpC@A@A$C)G MULTIPLY-SHORTNEW-MATH MULTIPLY-SHORTNEW-MATH  FIXUP-SHORTNEW-MATH FLOAT-ERROR-MESSAGENEW-MATHZ l.Z l,*@x8,8,8,8,8,(&@DD@a#/DD7'$P%0cDPED~BpC@A@A$C)G  DIVIDE-SHORTNEW-MATH  DIVIDE-SHORTNEW-MATH  FIXUP-SHORTNEW-MATH FLOAT-ERROR-MESSAGENEW-MATH ERRORLISP-INTERNALS A@BZ l.Z l,*@x8,8,@A@A@A@A@A@A@A@A@A8,8,8,(&@DD@a#/DD7'$P%0cDPED~BpC@A@A$C)G.Currently divide wedges the K unrecoverably!!!  FIXUP-SHORTNEW-MATH  FIXUP-SHORTNEW-MATH    SHORT-STATUSNEW-MATH p!@A @ABZ'BD@0E !C`@"@a@ DBZ'B @@A  COMPARE-SHORTNEW-MATH  COMPARE-SHORTNEW-MATH ERRORLISP-INTERNALS"Z l*Z l(&@x@((@((@((@((@((@$@DD@a#DD7%@ |B@ C@@A@A@A @A @A @A jDA@B@AjD`@@a@bD`@@a@dD`@@a@`DShort float compare, Unordered  SHORT-STATUSNEW-MATH  SHORT-STATUSNEW-MATH    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BA$@@AB(A@%B(@@AB@@AF Ab@bB @A  %%ALU-STATUS-NEGATIVEHARDWARE DPBHARDWARE READ-ALU-STATUSHARDWARE PROGN PRIMITIVES R0HARDWARE SETF PRIMITIVES %%SHORT-FLOAT-SIGNHARDWARE  *ALL-ZERO*GLOBAL-REGISTERS LDBHARDWARE  TEST-SHORTNEW-MATH  TEST-SHORTNEW-MATHa$l$@ @@@aD@!"D"@`@"@a@"D  NEGATE-SHORTNEW-MATH  NEGATE-SHORTNEW-MATH!c!&@a$l$@&@@@aD@!"D"@`@"@a@&D  ADD-SINGLENEW-MATH  ADD-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x 0* 0* 0* 0* 0*&D@7E$(C&E%F SUBTRACT-SINGLENEW-MATH SUBTRACT-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x0*0*0*0*0*&D@7E$(C&E%F MULTIPLY-SINGLENEW-MATH MULTIPLY-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x0*0*0*0*0*&D@7E$(C&E%F  DIVIDE-SINGLENEW-MATH  DIVIDE-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH  TRAP-RESTORETRAP !`@AT,@ #`@AT*@(@x0*0*@A@A@A@A@A@A@A@A@A0*0*0*&D@7E$(C&E%F  FIXUP-SINGLENEW-MATH  FIXUP-SINGLENEW-MATH   SINGLE-STATUSNEW-MATH MAKE-SINGLE-FLOATARRAY ERRORLISP-INTERNALS FLOAT-ERROR-MESSAGENEW-MATHP#0cDPED~BpC@A @A#C(@@B! C C`@$@a@&DSingle float operation COMPARE-SINGLENEW-MATH COMPARE-SINGLENEW-MATH # ERRORLISP-INTERNALS  TRAP-RESTORETRAP& !`@AT*@ #`@AT(@&@x@((@((@((@((@((@D@7E$&C0%@ |B@ C@@A@A#@A @A @A @A jDA$B@AjD`@@a@bD`@@a@dD`@@a@`DSingle float compare, Unordered  SINGLE-STATUSNEW-MATH  SINGLE-STATUSNEW-MATH  !@A @AD!$`D@Ep@A  @A`D lD@E@A @A DD  TEST-SINGLENEW-MATH  TEST-SINGLENEW-MATH  SINGLE-STATUSNEW-MATH !`@AUB`@"@a@"D  NEGATE-SINGLENEW-MATH  NEGATE-SINGLENEW-MATH  SINGLE-STATUSNEW-MATH MAKE-SINGLE-FLOATARRAY  %VM-READ-32ARRAY AbBacE&@& C'C`@"@a@$D  ADD-DOUBLENEW-MATH  ADD-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@"0.X"@2@A@A@A"A"A"A("A&D@7E$*C(E&@%F SUBTRACT-DOUBLENEW-MATH SUBTRACT-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@0.X@2@A@A@AAAA(A&D@7E$*C(E&@%F MULTIPLY-DOUBLENEW-MATH MULTIPLY-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@0.X@2@A@A@AAAA(A&D@7E$*C(E&@%F  DIVIDE-DOUBLENEW-MATH  DIVIDE-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH  TRAP-RESTORETRAP !`@AT2@ !`@AT0@ #`@AT.@ #`@AT,@*@@0.X@2@A@@A @AAAA(A&D@7E$*C(E&@%F  FIXUP-DOUBLENEW-MATH  FIXUP-DOUBLENEW-MATH   DOUBLE-STATUSNEW-MATH MAKE-DOUBLE-FLOATARRAY ERRORLISP-INTERNALS FLOAT-ERROR-MESSAGENEW-MATHP%0cDPED~BpC@A @A%C(@@B A" B A# B`@&@a@(DDouble float operation COMPARE-DOUBLENEW-MATH COMPARE-DOUBLENEW-MATH!# '*-$ ERRORLISP-INTERNALS  TRAP-RESTORETRAP0 !`@AT.@ !`@AT,@ #`@AT*@ #`@AT(@&@@B *XB0.@A@A@ABABABA@BABD@7E$&C0%@ |B@ C@@A@A-@A *@A '@A #@A jDA$B@AjD`@@a@bD`@@a@dD`@@a@`D#Double float compare, Unordered  DOUBLE-STATUSNEW-MATH  DOUBLE-STATUSNEW-MATH `"DE@A @AD!$`D@Ep@A  @A`D lD@` DDxE@A @A DD  TEST-DOUBLENEW-MATH  TEST-DOUBLENEW-MATH  DOUBLE-STATUSNEW-MATH !`@AT&@ !`@AT$@&A%B`@"@a@"D  NEGATE-DOUBLENEW-MATH  NEGATE-DOUBLENEW-MATH  DOUBLE-STATUSNEW-MATH MAKE-DOUBLE-FLOATARRAY !`@AT(@ !`@ATD@acE&@&A( B&A)B`@"@a@$D CONVERT-FIXNUM-TO-SHORTNEW-MATH CONVERT-FIXNUM-TO-SHORTNEW-MATH 0 "0$Xt#t#t#t#t#t#&a#DD(Z'(D CONVERT-FIXNUM-TO-SINGLENEW-MATH CONVERT-FIXNUM-TO-SINGLENEW-MATH MAKE-SINGLE-FLOATARRAY 0!"0$Xt#t#t#t#t#t#&a#DD'G CONVERT-FIXNUM-TO-DOUBLENEW-MATH CONVERT-FIXNUM-TO-DOUBLENEW-MATH MAKE-DOUBLE-FLOATARRAY 0!"$Xv#v#v#v#v#v#v#a#DDAF CONVERT-SHORT-TO-SINGLENEW-MATH CONVERT-SHORT-TO-SINGLENEW-MATH MAKE-SINGLE-FLOATARRAYZ lAF CONVERT-SHORT-TO-DOUBLENEW-MATH CONVERT-SHORT-TO-DOUBLENEW-MATH MAKE-DOUBLE-FLOATARRAY Z0!"$Xx@x@x@x@x@x@x@a#DDAF CONVERT-SINGLE-TO-DOUBLENEW-MATH CONVERT-SINGLE-TO-DOUBLENEW-MATH MAKE-DOUBLE-FLOATARRAY 0!b@AT"$Xx@x@x@x@x@x@x@a#DDAF SIGN-VALUE-SHORTNEW-MATH SIGN-VALUE-SHORTNEW-MATH!sl@A @A~D~D SIGN-VALUE-SINGLENEW-MATH SIGN-VALUE-SINGLENEW-MATHasl@A @ADD@@ SIGN-VALUE-DOUBLENEW-MATH SIGN-VALUE-DOUBLENEW-MATHasl@A @ADD@@  SIGN-VALUENEW-MATH  SIGN-VALUENEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H K N DDDDDN SIGN-VALUE-SHORTNEW-MATHM SIGN-VALUE-SINGLENEW-MATHJ SIGN-VALUE-DOUBLENEW-MATHE ERRORLISP-INTERNALSOF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A N@A K@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AUF !`@AUF!GD!~d is not a floating point number ZERO-FLOATP-SHORTNEW-MATH ZERO-FLOATP-SHORTNEW-MATHpl@A @AhDjD ZERO-FLOATP-SINGLENEW-MATH ZERO-FLOATP-SINGLENEW-MATHpl@A @AhDjD ZERO-FLOATP-DOUBLENEW-MATH ZERO-FLOATP-DOUBLENEW-MATH pl@A @Apl@A @AhDjDjD  ZERO-FLOATPNEW-MATH  ZERO-FLOATPNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H N Q DDDDDQ ZERO-FLOATP-SHORTNEW-MATHP ZERO-FLOATP-SINGLENEW-MATHM ZERO-FLOATP-DOUBLENEW-MATHE ERRORLISP-INTERNALSRF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A Q@A N@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AT@ !`@AUF !`@AUF!GD!~d is not a floating point number SCALE-MANTISSA-SHORTNEW-MATH SCALE-MANTISSA-SHORTNEW-MATH43wB@0BD SCALE-MANTISSA-SINGLENEW-MATH SCALE-MANTISSA-SINGLENEW-MATH MAKE-SINGLE-FLOATARRAY~@Eh"mD0D@AF SCALE-MANTISSA-DOUBLENEW-MATH SCALE-MANTISSA-DOUBLENEW-MATH MAKE-DOUBLE-FLOATARRAY~@E+"mD0D@!F SCALE-MANTISSANEW-MATH SCALE-MANTISSANEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H N Q DDDDDQ SCALE-MANTISSA-SHORTNEW-MATHP SCALE-MANTISSA-SINGLENEW-MATHM SCALE-MANTISSA-DOUBLENEW-MATHE ERRORLISP-INTERNALSRF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A Q@A N@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AT@ !`@AUF !`@AUF!GD!~d is not a floating point number FIND-MANTISSA-SHORTNEW-MATH FIND-MANTISSA-SHORTNEW-MATHB@ BD FIND-MANTISSA-SINGLENEW-MATH FIND-MANTISSA-SINGLENEW-MATH ALLOCATE-BIGNUMNEW-MATHcCa"mD DT@ #X"D (FIND-MANTISSA-SINGLE-AND-SHIFT-WITH-SIGNNEW-MATH (FIND-MANTISSA-SINGLE-AND-SHIFT-WITH-SIGNNEW-MATH S RKM18(C P S" MULTIPLY-GENERICNEW-MATH NEW-MATH CEILING PRIMITIVES ALLOCATE-BIGNUMNEW-MATH CEILING PRIMITIVESTB@ B:x0i:y @@B9 Ca"mD D4@$p@AS@Ah2@2@@AP@A:A @AB(8BD@@A @Aa80x!WlT@ D6X2@@A@AjDnT@ d6XjDa8y @@B@lD.x@@@/,x0,p@AC@A 7`Bp!?BDpDB@0CBPC Wl*@2@@A 8@A @@@/Dx ?`Bp!CDpPE ?+**T@ d6Xa8(x @@@-Dx aBp!7BDpPE WlT $6XjD@-Dx aBp@@!CDpPE Wl&2@@A M@A#?'&&T@ d6XjDpSnDB C4 j2@ FIND-MANTISSA-DOUBLENEW-MATH FIND-MANTISSA-DOUBLENEW-MATH ALLOCATE-BIGNUMNEW-MATHf C T@ %X!"mD DT@ %X$D MANT-SIZE-CONSTNEW-MATH 1+ PRIMITIVES4 HIGH-SIZE-CONSTNEW-MATH 1+ PRIMITIVES (FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGNNEW-MATH (FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGNNEW-MATH mLS z;X]4i)$&*"'*lm MULTIPLY-GENERICNEW-MATH1 NEW-MATH. CEILING PRIMITIVES ALLOCATE-BIGNUMNEW-MATH CEILING PRIMITIVESn@@ aC`@5B@ B@xaCP@@^@aCbA@A0Ux @@BPaCP@@^@PaCbA@ATBB@` aCP@@^@&p@Al@AaCP@h^@ l @!"mD D"@aCb@@AT@@A *@A!@A '@Ap n"pnDB* C p nDB$ C" aCbA@AT@ @AB(PaCb@@ATBD@@Ai@APaCb@@AU@xB@` aCP@@^@J&lD@V!DT@@`aCb@@AT@@B@` aCb@@A UXPaCb@@APU@xB@` aCP@@^@V!lT@@`aCb@@AT@@B@` aCb@@A UXaCb@@AT@@A]@Aj @@@`aC`@ DnT@PaCb@@AT@@B@` aCb@@A UXj @@@`aC`@ DPaCbA@AUx @@BaCb@@AT@@@E>xB@@|BE")5mra~UfNpJw. / MAX-2LISP-INTERNALS MULTIPLY-GENERICNEW-MATH^ NEW-MATH[ CEILING PRIMITIVES> ALLOCATE-BIGNUMNEW-MATH9 CEILING PRIMITIVES MULTIPLY-GENERICNEW-MATHx@@ aC`@@@ %@xaCP@@^@aCb@@AT@@B@@C0@A/@A@AaCb@@AT@@B@pC0@A @A! `D@A"ED@5 D@&B@@`aC`@ DaCb@@AUDx aBp!C@pPaCP@@^@aCb@@AUDx aBp!CDpPE aD@PaCb@@APU D@@A B@ B@xB@` aCP@@^@BA` aCb@@A0Ux @@BaCP@@^@aCbA@ATBB@` aCP@@^@ l@@B@` aCP@@^@!"mD D<@&p@Aw@Ah:@:@@Ap@A@@`aCb@@AT>@:@@Af@A@A`aCb@@AT@ @AB(aCb@@ATBD@@A~@AaCb@@AU8xJ&lD@V!wDTB@` aCb@@A dTX:@@Ar@Aj @@@`aC`@ DnT@aCb@@AT@@B@` aCb@@A UXj @@@`aC`@ DaCbA@AUx @@B@@`aCb@@AT@@@E6xB@@\B4x@@`aCb@@AT@@p70@A 5@A`A4B W`Bp@@!C2p @@@5Dx aBp!WBDpDB@0CBPC lD@P3 wD0:@@A )@A @@@7Dx _`Bp!CDpPE ?100T@aCb@@AT@@B@` aCb@@A UXj @@@`aC`@ D@5.x ?`Bp!_BDpDB@0CBPC wl,@:@@A E@A @@@7Dx _`Bp!CDpPE ?-,,T@aCb@@AT@@B@` aCb@@A UXaCb@@AU*x @@@/Dx aBp!?B(p @@@/Dx ?`Bp!CDpDB@0CBPC lD@P) wDTB@` aCb@@A ,TXj @@@`aC`@ DB@` aCb@@AU@A m@AVpsn< psnDBV C< @@`aCb@@AT@@poDBS C> Lj:@  FIND-MANTISSANEW-MATH  FIND-MANTISSANEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H N Q DDDDDQ FIND-MANTISSA-SHORTNEW-MATHP FIND-MANTISSA-SINGLENEW-MATHM FIND-MANTISSA-DOUBLENEW-MATHE ERRORLISP-INTERNALSRF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A Q@A N@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AT@ !`@AUF !`@AUF!GD!~d is not a floating point number FIND-EXPONENT-SHORTNEW-MATH FIND-EXPONENT-SHORTNEW-MATHh%`D@B@@C| FIND-EXPONENT-SINGLENEW-MATH FIND-EXPONENT-SINGLENEW-MATH(%`D@B@@C| FIND-EXPONENT-DOUBLENEW-MATH FIND-EXPONENT-DOUBLENEW-MATHk%`D@B@@C|  FIND-EXPONENTNEW-MATH  FIND-EXPONENTNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H K N DDDDDN FIND-EXPONENT-SHORTNEW-MATHM FIND-EXPONENT-SINGLENEW-MATHJ FIND-EXPONENT-DOUBLENEW-MATHE ERRORLISP-INTERNALSOF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A N@A K@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AUF !`@AUF!GD!~d is not a floating point number SCALE-EXPONENT-SHORTNEW-MATH SCALE-EXPONENT-SHORTNEW-MATH FIND-EXPONENT-SHORTNEW-MATH CB@@C| SCALE-EXPONENT-SINGLENEW-MATH SCALE-EXPONENT-SINGLENEW-MATH FIND-EXPONENT-SINGLENEW-MATH CB@@C| SCALE-EXPONENT-DOUBLENEW-MATH SCALE-EXPONENT-DOUBLENEW-MATH FIND-EXPONENT-DOUBLENEW-MATH CB@@C| SCALE-EXPONENTNEW-MATH SCALE-EXPONENTNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H K N DDDDDN SCALE-EXPONENT-SHORTNEW-MATHM SCALE-EXPONENT-SINGLENEW-MATHJ SCALE-EXPONENT-DOUBLENEW-MATHE ERRORLISP-INTERNALSOF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A N@A K@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD !`@AUF !`@AUF!GD!~d is not a floating point number DECODE-FLOAT-SHORTNEW-MATH DECODE-FLOAT-SHORTNEW-MATH  FIND-EXPONENT-SHORTNEW-MATH SCALE-MANTISSA-SHORTNEW-MATH ZERO-FLOATP-SHORTNEW-MATH SIGN-VALUE-SHORTNEW-MATH! C CD@@A @A`@@a@&@c@D C!C`@"@a@&@c@$D DECODE-FLOAT-SINGLENEW-MATH DECODE-FLOAT-SINGLENEW-MATH  FIND-EXPONENT-SINGLENEW-MATH SCALE-MANTISSA-SINGLENEW-MATH ZERO-FLOATP-SINGLENEW-MATH SIGN-VALUE-SINGLENEW-MATH !`@AT(@) C(CD@@A @A`@@a@&@c@D( C)C`@"@a@&@c@$D  DECODE-FLOAT-DOUBLENEW-MATH DECODE-FLOAT-DOUBLENEW-MATH  FIND-EXPONENT-DOUBLENEW-MATH SCALE-MANTISSA-DOUBLENEW-MATH ZERO-FLOATP-DOUBLENEW-MATH SIGN-VALUE-DOUBLENEW-MATH !`@AT*@ !`@AT(@) C*A(BD@@A@A`@@a@&@c@D*A( B)C`@"@a@&@c@$D  DECODE-FLOATNEW-MATH  DECODE-FLOATNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H I J DDDDDJ DECODE-FLOAT-SHORTNEW-MATHI DECODE-FLOAT-SINGLENEW-MATHH DECODE-FLOAT-DOUBLENEW-MATHE ERRORLISP-INTERNALSKF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A J@A I@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD!G!G!GD!~d is not a floating point number INTEGER-DECODE-FLOAT-SHORTNEW-MATH INTEGER-DECODE-FLOAT-SHORTNEW-MATH  SCALE-EXPONENT-SHORTNEW-MATH FIND-MANTISSA-SHORTNEW-MATH ZERO-FLOATP-SHORTNEW-MATH SIGN-VALUE-SHORTNEW-MATH! C CD@@A @A`@@a@&@c@`D C!C`@"@a@&@c@$D INTEGER-DECODE-FLOAT-SINGLENEW-MATH INTEGER-DECODE-FLOAT-SINGLENEW-MATH  SCALE-EXPONENT-SINGLENEW-MATH FIND-MANTISSA-SINGLENEW-MATH ZERO-FLOATP-SINGLENEW-MATH SIGN-VALUE-SINGLENEW-MATH !`@AT(@) C(CD@@A @A`@@a@&@c@`D( C)C`@"@a@&@c@$D INTEGER-DECODE-FLOAT-DOUBLENEW-MATH INTEGER-DECODE-FLOAT-DOUBLENEW-MATH  SCALE-EXPONENT-DOUBLENEW-MATH FIND-MAMTISSA-DOUBLENEW-MATH ZERO-FLOATP-DOUBLENEW-MATH SIGN-VALUE-DOUBLENEW-MATH !`@AT*@ !`@AT(@) C*A(BD@@A@A`@@a@&@c@`D*A( B)C`@"@a@&@c@$D INTEGER-DECODE-FLOATNEW-MATH INTEGER-DECODE-FLOATNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD D H I J DDDDDJ INTEGER-DECODE-FLOAT-SHORTNEW-MATHI INTEGER-DECODE-FLOAT-SINGLENEW-MATHH INTEGER-DECODE-FLOAT-DOUBLENEW-MATHE ERRORLISP-INTERNALSKF4!@ |B@ C@@A@AD@A D@A D@A D@A D@A J@A I@A H@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A A B@AjD!G!G!GD!~d is not a floating point number SIGNIFICANT-BITSNEW-MATH SIGNIFICANT-BITSNEW-MATH p@A @A`DP D @@@E| TRUNCATE-SHORTNEW-MATH TRUNCATE-SHORTNEW-MATH /Mx~   ASH-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATHi MULTIPLY-GENERICNEW-MATH@ MULTIPLY-GENERICNEW-MATH+ SIGNIFICANT-BITSNEW-MATH SCALE-EXPONENT-SHORTNEW-MATH FIND-MANTISSA-SHORTNEW-MATH@@ aC`@ CaCP@@^@ CPaCP@@^@a$`@@B@` aCP@@^@B@` aCb@@AUp@A  @Ab>@PaCb@@AUp@A~@APaCb@@AT@@nB@@C0@Ax@APaCb@@A@UDx aBp!CDpaCb@@AT@@DB@0CBPC m<@<CE:xh:p@AM@A@APaCb@@A U8xPaCb@@A@UDx aBp!gBDpaCb@@AT@@DB@0CBPC a@? B@@`aCb@@AT@@B@!#C4@`@4@a@6 @@@`aC`@ D@@@;2xPaCb@@AT@@ ;0x O`Bp!oBDpB@PE wB.@@@PaCb@@A U,xPaCb@@A@UDx aBp!7BDpaCb@@AT@@DB@0CBPC a*@>A* BB@ DB&x@@`aCb@@AT@@!#/D@("D$@`@$@a@( @@@`aC`@ D`@ @a@` @@@`aC`@ D>AaCb@@ATBDAPaCb@@AUB`@@a@>@c@" @@@`aC`@ Dd>@ TRUNCATE-SINGLENEW-MATH TRUNCATE-SINGLENEW-MATHH /+).&0? BHD (FIND-MANTISSA-SINGLE-AND-SHIFT-WITH-SIGNNEW-MATH; MAKE-SINGLE-FLOATARRAY# MULTIPLY-GENERICNEW-MATH SIGNIFICANT-BITSNEW-MATH SCALE-EXPONENT-SINGLENEW-MATHI !`@AT>@>C!$`:@h:p@A H@Ab8@p<p@AB@AhB@@tB0@A?@A@=Dx aBp!CDpDB@0CBPC l6@6CE4x@A =2x@=Dx aBp!OBDpB@DB@0CBPC B@8 BP4p@A0@A`8p@A.@A.@`@.@a@0D.@+@A @@@5,x t4*x 7`Bp!WBDpPE _l(BA ,B&xa#o(Dh"D@ B`@$@a@0D`@ @a@`D>A<@9B`@@a@"D d8@ .* TRUNCATE-DOUBLENEW-MATH TRUNCATE-DOUBLENEW-MATHR G>:A*HK R N (FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGNNEW-MATHF TRUNC-DBL-REMAIN2NEW-MATH= TRUNC-DBL-REMAIN1NEW-MATH7 ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH2 SIGNIFICANT-BITSNEW-MATH& TRUNC-DBL-REMAIN1NEW-MATH ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH NEW-MATH SCALE-EXPONENT-DOUBLENEW-MATHS !`@AT8@ !`@AT6@6 C!$_`2@H2p@A R@Ab0@P4p@AK@A@@ 5DxEp@AH@A4A`@@BD@@A*@A8A6@4@1 B@5Dy aBp!CDpDB@0CBPC gl@4@2 B`@,@a@.D`@@@5Dx aBp!CDpDB@0CBPC _l*@*CE(x8A6@4@1 B (p@AA@A8A4@2 B`@$@a@&D BA $Bx8@*@4@2 B>@A `@ @a@`D8A6@4@1B`@@a@"D d0@ TRUNC-DBL-REMAIN2NEW-MATH TRUNC-DBL-REMAIN2NEW-MATH MAKE-DOUBLE-FLOATARRAY@@@%4x $2x@@@5Dx W`Bp!C0p@5Dx aBp!WBDpDB@0CBPC lD@P1 D.@5Dx W`Bp!CDpPE l,BE LB*xa#'.D+"/D-F TRUNC-DBL-REMAIN1NEW-MATH TRUNC-DBL-REMAIN1NEW-MATH4* +   MAKE-DOUBLE-FLOATARRAY NEW-MATH SIGNIFICANT-BITSNEW-MATH5 CE2x2A@@ BH2p@A @A$p@A  @ADD 2.x0@@A+@A@@@3Dx aBp!OBDpPE l,0@@A @Al(@BE