ASM Community

finit
fld1
fldz
fdiv st(0), st(1)
DbgFPU
fdiv st(1), st(0)
DbgFPU

%include @Environ(OA32_PATH)\\Code\\Macros\\Model.inc
SysSetup OOP_WINDOWS, DEBUG(WND, INFO, TRACE, STKGUARD, "DC_Test Project")

.const
r4_0   real4   0.0
r4_1   real4   1.0
r4_2   real4   2.0
r4_3   real4   3.0
r4_4   real4   4.0
r4_5   real4   5.0
r4_6   real4   6.0
r4_7   real4   7.0

r4_10  real4   10.0
r4_m10 real4  -10.0

.code
start:
    SysInit
    DbgClear                ;Clears output window
    finit
    fld r4_7
    fld r4_6
    fld r4_5
    fld r4_4
    fld r4_3
    fld r4_2
    fld r4_1
    fld r4_0                ;Levels = 8
    DbgFPU
    fdiv st(0), st(1)
    DbgFPU
    fdiv st(1), st(0)
    DbgFPU                  ;st(1) = +inf
    DbgLine
    fcom r4_10
    DbgFPU                  ;ST < Source
    fcom r4_m10
    DbgFPU                  ;ST > Source
    fcom r4_0
    DbgFPU                  ;ST = Source
    fstp st(0)
    fstp st(0)
    DbgFPU                  ;Levels = 6
    SysDone
    invoke ExitProcess, 0
end start

FPU_BUFFER struct
  wControlWord  word    ?
  wUnused0      word    ?
  wStatusWord   word    ?
  wUnused1      word    ?
  wTagWord      word    ?
  wUnused2      word    ?
  pInstruction  dword   ?
  wCodeSegment  word    ?
  wUnused3      word    ?
  pOperand      dword   ?
  wDataSegment  word    ?
  wUnused4      word    ?
  tSt0          tbyte   ?
  tSt1          tbyte   ?
  tSt2          tbyte   ?
  tSt3          tbyte   ?
  tSt4          tbyte   ?
  tSt5          tbyte   ?
  tSt6          tbyte   ?
  tSt7          tbyte   ?
FPU_BUFFER ends

DbgOutFpu proc pDest:Pointer
    local FPU_Buffer:FPU_BUFFER, dLevels:dword
    local szBuffer[128]:byte
    local szFloat[32]:byte
    local szFPExept[30]:byte

    fsave FPU_Buffer
    invoke StrCopy, addr szFPExept, offset szDbgFPU6  ;Exceptions
    mov ax, word ptr FPU_Buffer.wTagWord
    xor ecx, ecx
    .while ecx < 8
      rol ax, 2
      mov dx, ax
      and dx, 0000000000000011b
      .break .if dx == 0000000000000011b
      inc ecx
    .endw
    mov dLevels, ecx

    invoke wsprintf, addr szBuffer, offset szDbgFPU5, dLevels ;Display Levels found
    invoke DbgOutText, addr szBuffer, $RGB(50,150,50), DBG_EFFECT_NEWLINE, pDest

    movzx eax, word ptr FPU_Buffer.wStatusWord
    shr eax, 6                                ;ax  = 000000X* XXY*Y*ZZ
    shl al, 3                                 ;ax  = 000000X* *Y*ZZ---
    shl ax, 1                                 ;ax  = 00000X** Y*ZZ----
    shl al, 1                                 ;ax  = 00000X** *ZZ-----
    shr eax, 7                                ;ax  = -------0 0000X***
    and eax, 7                                ;ax  = 00000000 00000***
    .if( eax == 0 )                           ;If ST > Source
      mov ecx, offset szDbgFPU1               ;  then say so
    .elseif( eax == 1 )                       ;If ST < Source
      mov ecx, offset szDbgFPU2               ;  then say so
    .elseif( eax == 4 )                       ;IF ST = Source
      mov ecx, offset szDbgFPU3               ;  then say so
    .else                                     ;Anything else
      mov ecx, offset szDbgFPU4               ;  Say as Undefined
    .endif
    invoke DbgOutText, ecx, $RGB(50,150,50), DBG_EFFECT_NEWLINE, pDest

    movzx eax, word ptr FPU_Buffer.wStatusWord;eax = Status first found
    xor ecx, ecx                              ;ecx = 0
    lea edx, szFPExept                        ;edx = Exception String Address
    add edx, 13                               ;edx = First Exception Bit
    .while ecx < 8                            ;Go thru 8 exception bits
      rol al, 1                               ;Rol the exception bits left 1
      jc @F                                   ;See if a '1' Passed out
      or byte ptr , 20h                  ;No, then force lower case (not set)
      jmp @next                               ;    and onto next section
@@:
      and byte ptr ,0DFh                 ;Yes, then Force Upper case (Exception set)
@next:                                        ;and onto next section
      add edx, 2                              ;Since Spaces, inc 2 in string
      inc ecx                                 ;Next bit!
    .endw
    invoke DbgOutText, addr szFPExept, $RGB(50,150,50), DBG_EFFECT_NEWLINE, pDest

    xor esi, esi                              ;esi = Counter = 0
    lea edi, FPU_Buffer.tSt0
    .while esi < dLevels                      ;Go thru all known stack entries
      finit
      fld tbyte ptr 
      invoke St0ToStr, addr szFloat, 0, 4, f_SCI           ;Create Text Strings from them
      invoke wsprintf, addr szBuffer, offset szDbgFPU7, \  ;And display their contents
             esi, addr szFloat
      invoke DbgOutText, addr szBuffer, $RGB(50,150,50), DBG_EFFECT_NEWLINE, pDest
      add edi, sizeof tbyte                   ;Next entry
      inc esi
    .endw

    ret
DbgOutFpu endp