  File  Edit  Search  Assemble  Options  Window  Help                    1:41:39
[] D:\NASM\FUENTES\ECCUADR.ASM []ͻ
         fld st0         ; <2><2>                                             
         fmul dword [a]  ; <2a><2>                                            
         fmul st1,st0    ; <2a><4a>                                           
         fxch            ; <4a><2a>                                           
         fmul dword [c]  ; <4ac><2a>                                          
                                                                              
         fld dword [b]   ; <b><4ac><2a>                                       
         fmul st0,st0    ; <b^2><4ac><2a>                                     
         fsub st1        ; <b^2-4ac><2a>                                      
         fsqrt           ; <sqrt(b^2-4ac)><2a>                                
         fld dword [b]   ; <b><sqrt(b^2-4ac)><2a>                             
         fchs            ; <-b><sqrt(b^2-4ac)><2a>                            
         fxch            ; <sqrt(b^2-4ac)><-b><2a>                            
         fld st0         ; <sqrt(b^2-4ac)><sqrt(b^2-4ac)><-b><2a>             
         fadd st0,st2    ; <-b+sqrt(b^2-4ac)><sqrt(b^2-4ac)><-b><2a>          
         fxch            ; <sqrt(b^2-4ac)><-b+sqrt(b^2-4ac)><-b><2a>          
         fsubp st2,st0   ; <-b+sqrt(b^2-4ac)><-b-sqrt(b^2-4ac)><2a>           
         fdiv st0,st2    ; <(-b+sqrt(b^2-4ac)/2a><-b-sqrt(b^2-4ac)><2a>       
         fstp dword [xpos] ; <-b-sqrt(b^2-4ac)><2a>                           
         wait                                                                 
         fdiv st0        ; <(-b-sqrt(b^2-4ac))/2a>                            
         fstp dword [xneg]     ;                                              
IM 53:18 
