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  p!@A @ABZ'BD@0E a$l$@ @@@aD@!"D"@`@"@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!`@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-MATH5 *, /54 *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-1NEW-MATH NEW-MATH CEILING PRIMITIVES ALLOCATE-BIGNUMNEW-MATH CEILING PRIMITIVES65B@ B2x0I2y @@ B1 C&p@A5@Ah,@ l @!"mD D"@,@@A @A!@A @Ap n"pnDB C p nDB C" 2A @AB(0BD@@A/@AA0*xJ&lD@V!DT ,.XPA0(xV!lT $.X,@@A,@AjDnT@ D.XjD E"@2@0@.@- F j,@ *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-1NEW-MATH *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-1NEW-MATH%,  *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-2NEW-MATH  MULTIPLY-GENERICNEW-MATH7&y @@B@D8xB@@dB6x5@@@94x B@@TB2xH2p@A@A E"@8@*@(@& @6 @4@3F _`Bp@@!C0p @@@7Dx aBp!_BDpDB@0CBPC lD@P1 D.*@@A ,@A @@@9Dx g`Bp!CDpPE ?/..T@ (X&,x @@@5Dx aBp!WBDpPE lT 4(XjD *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-2NEW-MATH *FIND-MANTISSA-DOUBLE-AND-SHIFT-WITH-SIGN-2NEW-MATH  +@-:x o`Bp!BDpDB@0CBPC l8@&@@A @A @@@%Dx `Bp!CDpPE ?988T@ ,(X)*6x @@@;Dx aBp!oB4p @@@;Dx o`Bp!CDpDB@0CBPC lD@P5 DT \(XP)*2x @@@1Dx aBp!GBDpPE lT L(XjD ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH ,FIND-MANTISSA-DOUBLE-AND-NEG-SHIFT-WITH-SIGNNEW-MATH ?'>+;.8.79-5)<%? 4 FIND-MANT-DBL-AND-NEG-HARD-CASENEW-MATH ALLOCATE-BIGNUMNEW-MATH CEILING PRIMITIVES MULTIPLY-GENERICNEW-MATH@@@ %8xB@@dB0@A@A@AB@pcB0@A @A!$`D@A"ED@5 D@'Fa8Dx aBp!C6pa8Dx aBp!CDpPE aD@P7 D@@A B@ B4x0Q4y @A B2 C l.@!"mD D*@&p@A?@Ah(@(@@A<@A.,@(@@A5@AE4@2@0@(@, @+ F/@A 9@A.p+n* p+nDB. C* p;nDB+ C, 'j(@ FIND-MANT-DBL-AND-NEG-HARD-CASENEW-MATH FIND-MANT-DBL-AND-NEG-HARD-CASENEW-MATH[bFM5R%).7 MAX-2LISP-INTERNALS0 MULTIPLY-GENERICNEW-MATH NEW-MATH CEILING PRIMITIVESwpaC`@"A @AB($BD@@A.@A$@xaCP@@^@ @@@!Dx aBp!B@pPaCP@@^@ @@@!>x @@@!Dx aBp!BDpDB@0CBPC /lD@PaCb@@APU 7DTaCb@@AT@@ 'X(@@A)@Aj @PaC`@ DnT@ &Xj @PaC`@ D$y @@B@ DD=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:) / 2:5  ASH-GENERICNEW-MATH3 MULTIPLY-GENERICNEW-MATH. TRUNCATE-SHORT-1NEW-MATH# MULTIPLY-GENERICNEW-MATH SIGNIFICANT-BITSNEW-MATH SCALE-EXPONENT-SHORTNEW-MATH FIND-MANTISSA-SHORTNEW-MATH; C! Ca$`0@@0p@A :@Ab.@H2p@A2@AnB@@LB0@A/@A@3Dx aBp!CDpDB@0CBPC Wl,@,CE*x(*p@A)@A@A 3(x@3Dx aBp!'BDpDB@0CBPC W`@/ BB@!#GB$@`@$@a@&D,E4@*@2@.@1 F`@ @a@`D.A4BDA3B`@@a@.@c@"Dd.@ TRUNCATE-SHORT-1NEW-MATH TRUNCATE-SHORT-1NEW-MATH MULTIPLY-GENERICNEW-MATH@@@%:x $8x o`Bp!BDpB@PE B6@@@ '4x@'Dx aBp!WBDpDB@0CBPC `2@(A2 BB@ dB.x!#/6D@("?D,@`@,@a@0D 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