Accueil > > > FLOATTOHEX CODE DE BRUNEWS RETRENSCRIS EN ASM PAR MOI
 FLOATTOHEX CODE DE BRUNEWS RETRENSCRIS EN ASM PAR MOI
 Information sur la source
 Description
convertis nombre reel en simple et double hexadecimal petit utilitaire pour dévelopeur trés utile avec masm32 parceque l'on ne peut pas mettre un float literalement sur la pile. ex: push 1.5f ;erreur push 3FC00000h ;ok fld dword ptr [esp] add esp,4 ainsi il n'est pas obligatoire de definir une variable ! ATTENTION Ce programme utilise des instructions SSE2 1 - il faut savoir si votre proc comporte le jeux d'instruction SSE2 2 - pour compiler il faut remplacer le ml.exe d'origine avec celui qui ce trouve dans le ZIP,ou dans SP5 qui ce trouve à l'addresse http://mirror.href.com/thestarman/asm/masm.htm. Sinon il ne reconnaitra pas la syntaxe xmm. Ce code peut être un BON didactel pour SSE2
 Source
- .686p
- .model flat,stdcall
- option casemap:none
- .xmm
-
- include windows.inc
- include kernel32.inc
- include user32.inc
- includelib kernel32
- includelib user32.lib
-
-
- AppDlgProc PROTO :HWND,:UINT,:WPARAM,:LPARAM
- ProcEdFloat PROTO :HWND,:UINT,:WPARAM,:LPARAM
- FloatsToHex PROTO
-
- .CONST
-
- IDD_APP EQU 101
- IDI_APP EQU 102
- ID_TXT EQU 1001
- ID_DBL EQU 1002
- ID_FLT EQU 1003
-
-
-
- .DATA
- ;ALIGN 16
- BNDIXPZERO dq 4024000000000000h
- BNUNDIXIEM dq 3FB999999999999Ah
- BNMINUSDBL dq 8000000000000000h
-
-
-
- hdbl dd 0
- hflt dd 0
- htxt dd 0
- oldFloatProc dd 0
-
-
- .CODE
- START: INVOKE DialogBoxParam,400000h,101,0,addr AppDlgProc,400000h
- INVOKE ExitProcess,0
-
- ;################################################## AppDlgProc ####################################################################
-
- AppDlgProc PROC hdlg:HWND,msg:UINT,wParam:WPARAM,lParam:LPARAM
- mov eax,msg
- cmp eax,WM_INITDIALOG
- je WMINIT
- cmp eax,WM_COMMAND
- je WMCMD
- jmp DLG
- WMINIT: INVOKE LoadIcon,400000h,IDI_APP
- INVOKE SetClassLong,hdlg,GCL_HICON,eax
- INVOKE GetDlgItem,hdlg,ID_TXT
- mov htxt,eax
- INVOKE SendMessage,eax, EM_LIMITTEXT, 15, 0
- INVOKE SetWindowLong,htxt, GWL_WNDPROC,ADDR ProcEdFloat
- mov oldFloatProc,eax
- INVOKE GetDlgItem,hdlg,ID_DBL
- mov hdbl,eax
- INVOKE GetDlgItem,hdlg,ID_FLT
- mov hflt,eax
- jmp DLG
- WMCMD: mov eax,wParam
- and eax,0FFFFh
- cmp eax,IDOK
- jnz @F
- INVOKE FloatsToHex
- jmp DLG
- @@: cmp eax,IDCANCEL
- jnz DLG
- INVOKE EndDialog,hdlg,0
- DLG: sub eax,eax
- ret
- AppDlgProc ENDP
-
- ;##################################################### ProcEdFloat #############################################################
-
- ProcEdFloat PROC hwnd:HWND,msg:UINT,wParam:WPARAM,lParam:LPARAM
- LOCAL buf[16]:BYTE
- mov eax,msg
- cmp eax,WM_CHAR
- je WMCHAR
- jmp DEFRET
- WMCHAR: mov eax,wParam
- cmp eax,VK_BACK
- je DEFRET
- cmp eax,57
- jg NOGOOD
- cmp eax,48
- jge DEFRET
- cmp eax,44
- jl NOGOOD
- cmp eax,46
- jg NOGOOD
- cmp eax,45
- jge GVERIF
- mov wParam,46
- GVERIF: INVOKE GetWindowText,hwnd,addr buf, 16
- lea edi,buf
- mov ecx,eax
- mov eax,wParam
- repne scasb
- jne DEFRET
- NOGOOD: sub eax,eax
- ret
- DEFRET: INVOKE CallWindowProc,oldFloatProc, hwnd, msg, wParam, lParam
- ret
- ProcEdFloat ENDP
-
- ;########################################################### FloatsToHex #########################################################
-
- FloatsToHex PROC
- sub esp, 32
- mov ecx, 16
- mov eax, esp
- INVOKE GetWindowText,htxt,eax,16
- mov ecx, esp
- call bnatod
- DB 0F2h,0Fh,11h,44h,24h,14h ;movsd qword ptr[esp+20],XMM0
- cvtsd2ss XMM2,XMM0
- mov edx, esp
- mov ecx, dword ptr[esp+24]
- call bndwordtox
- mov edx, eax
- mov ecx, dword ptr[esp+20]
- call bndwordtox
- push esp
- push hdbl
- call SetWindowText
- movss dword ptr[esp+20], XMM2
- mov edx, esp
- mov ecx, dword ptr[esp+20]
- call bndwordtox
- push esp
- push hflt
- call SetWindowText
- add esp, 32
- sub eax,eax
- ret
- FloatsToHex ENDP
-
- ;############################################################ bndwordtox ####################################################
- ;ECX = dwnum, EDX = szdst
- bndwordtox PROC
- mov al, cl
- add edx, 8
- and cl, 15
- shr al, 4
- add cl, 48
- add al, 48
- cmp cl, 57
- jbe short L1
- add cl, 7
- L1: cmp al, 57
- jbe short L2
- add al, 7
- L2: mov byte ptr[edx-1], cl
- mov byte ptr[edx-2], al
- shr ecx, 8
- mov byte ptr[edx], 0
- mov al, cl
- and cl, 15
- shr al, 4
- add cl, 48
- add al, 48
- cmp cl, 57
- jbe short L3
- add cl, 7
- L3: cmp al, 57
- jbe short L4
- add al, 7
- L4: mov byte ptr[edx-3], cl
- mov byte ptr[edx-4], al
- shr ecx, 8
- mov al, cl
- and cl, 15
- shr al, 4
- add cl, 48
- add al, 48
- cmp cl, 57
- jbe short L5
- add cl, 7
- L5: cmp al, 57
- jbe short L6
- add al, 7
- L6: mov byte ptr[edx-5], cl
- mov byte ptr[edx-6], al
- shr ecx, 8
- mov byte ptr[edx], 0
- mov al, cl
- and cl, 15
- shr al, 4
- add cl, 48
- add al, 48
- cmp cl, 57
- jbe short L7
- add cl, 7
- L7: cmp al, 57
- jbe short L8
- add al, 7
- L8: mov byte ptr[edx-7], cl
- mov byte ptr[edx-8], al
- mov eax, edx
- ret
- bndwordtox ENDP
-
- ;####################################################### bnatod ###########################################################
- ;ECX = psz
- bnatod PROC
- push ebx
- xorps XMM0, XMM0
- DB 0F2h,0Fh,10h,0Dh ;movsd XMM1,
- DD OFFSET BNDIXPZERO ;qword ptr BNDIXPZERO
- xor ebx, ebx
- xor edx, edx
- xor eax, eax
- movapd XMM3, XMM0
- cmp byte ptr[ecx], 45
- jne short outZERO
- add ecx, 1
- add ebx, 1
- outZERO:mov al, [ecx]
- cmp al, 48
- jne short goINT
- add ecx, 1
- jmp short outZERO
- goINT: cmp al, 46
- je short goDCML
- sub al, 48
- js short goSIGN
- cmp al, 9
- ja short goSIGN
- cvtsi2sd XMM2, eax
- mulsd XMM0, XMM1
- add ecx, 1
- addsd XMM0, XMM2
- mov al, [ecx]
- jmp short goINT
- goDCML: add ecx, 1
- mov al, [ecx]
- inDCML: sub al, 48
- js short dcmlIF
- cmp al, 9
- ja short dcmlIF
- cvtsi2sd XMM2, eax
- mulsd XMM0, XMM1
- add ecx, 1
- add edx, 1
- addsd XMM0, XMM2
- mov al, [ecx]
- jmp short inDCML
- dcmlIF: test edx, edx
- je short goSIGN
- DB 0F2h,0Fh,10h,15h ;MOVSD XMM2,
- DD OFFSET BNUNDIXIEM ;qword ptr BNUNDIXIEM
- dcmlADD:sub edx, 1
- mulsd XMM0, XMM2
- jne short dcmlADD
- goSIGN: comisd XMM0, XMM3
- je short atodEXIT
- test ebx, ebx
- je short atodEXIT
- DB 0F2h,0Fh,10h,0Dh ;movsd XMM1,
- DD OFFSET BNMINUSDBL ;qword ptr BNMINUSDBL
- subsd XMM1, XMM0
- movapd XMM0, XMM1
- atodEXIT:
- pop ebx
- sub eax,eax
- ret
- bnatod ENDP
-
- END START
.686p
.model flat,stdcall
option casemap:none
.xmm
include windows.inc
include kernel32.inc
include user32.inc
includelib kernel32
includelib user32.lib
AppDlgProc PROTO :HWND,:UINT,:WPARAM,:LPARAM
ProcEdFloat PROTO :HWND,:UINT,:WPARAM,:LPARAM
FloatsToHex PROTO
.CONST
IDD_APP EQU 101
IDI_APP EQU 102
ID_TXT EQU 1001
ID_DBL EQU 1002
ID_FLT EQU 1003
.DATA
;ALIGN 16
BNDIXPZERO dq 4024000000000000h
BNUNDIXIEM dq 3FB999999999999Ah
BNMINUSDBL dq 8000000000000000h
hdbl dd 0
hflt dd 0
htxt dd 0
oldFloatProc dd 0
.CODE
START: INVOKE DialogBoxParam,400000h,101,0,addr AppDlgProc,400000h
INVOKE ExitProcess,0
;################################################## AppDlgProc ####################################################################
AppDlgProc PROC hdlg:HWND,msg:UINT,wParam:WPARAM,lParam:LPARAM
mov eax,msg
cmp eax,WM_INITDIALOG
je WMINIT
cmp eax,WM_COMMAND
je WMCMD
jmp DLG
WMINIT: INVOKE LoadIcon,400000h,IDI_APP
INVOKE SetClassLong,hdlg,GCL_HICON,eax
INVOKE GetDlgItem,hdlg,ID_TXT
mov htxt,eax
INVOKE SendMessage,eax, EM_LIMITTEXT, 15, 0
INVOKE SetWindowLong,htxt, GWL_WNDPROC,ADDR ProcEdFloat
mov oldFloatProc,eax
INVOKE GetDlgItem,hdlg,ID_DBL
mov hdbl,eax
INVOKE GetDlgItem,hdlg,ID_FLT
mov hflt,eax
jmp DLG
WMCMD: mov eax,wParam
and eax,0FFFFh
cmp eax,IDOK
jnz @F
INVOKE FloatsToHex
jmp DLG
@@: cmp eax,IDCANCEL
jnz DLG
INVOKE EndDialog,hdlg,0
DLG: sub eax,eax
ret
AppDlgProc ENDP
;##################################################### ProcEdFloat #############################################################
ProcEdFloat PROC hwnd:HWND,msg:UINT,wParam:WPARAM,lParam:LPARAM
LOCAL buf[16]:BYTE
mov eax,msg
cmp eax,WM_CHAR
je WMCHAR
jmp DEFRET
WMCHAR: mov eax,wParam
cmp eax,VK_BACK
je DEFRET
cmp eax,57
jg NOGOOD
cmp eax,48
jge DEFRET
cmp eax,44
jl NOGOOD
cmp eax,46
jg NOGOOD
cmp eax,45
jge GVERIF
mov wParam,46
GVERIF: INVOKE GetWindowText,hwnd,addr buf, 16
lea edi,buf
mov ecx,eax
mov eax,wParam
repne scasb
jne DEFRET
NOGOOD: sub eax,eax
ret
DEFRET: INVOKE CallWindowProc,oldFloatProc, hwnd, msg, wParam, lParam
ret
ProcEdFloat ENDP
;########################################################### FloatsToHex #########################################################
FloatsToHex PROC
sub esp, 32
mov ecx, 16
mov eax, esp
INVOKE GetWindowText,htxt,eax,16
mov ecx, esp
call bnatod
DB 0F2h,0Fh,11h,44h,24h,14h ;movsd qword ptr[esp+20],XMM0
cvtsd2ss XMM2,XMM0
mov edx, esp
mov ecx, dword ptr[esp+24]
call bndwordtox
mov edx, eax
mov ecx, dword ptr[esp+20]
call bndwordtox
push esp
push hdbl
call SetWindowText
movss dword ptr[esp+20], XMM2
mov edx, esp
mov ecx, dword ptr[esp+20]
call bndwordtox
push esp
push hflt
call SetWindowText
add esp, 32
sub eax,eax
ret
FloatsToHex ENDP
;############################################################ bndwordtox ####################################################
;ECX = dwnum, EDX = szdst
bndwordtox PROC
mov al, cl
add edx, 8
and cl, 15
shr al, 4
add cl, 48
add al, 48
cmp cl, 57
jbe short L1
add cl, 7
L1: cmp al, 57
jbe short L2
add al, 7
L2: mov byte ptr[edx-1], cl
mov byte ptr[edx-2], al
shr ecx, 8
mov byte ptr[edx], 0
mov al, cl
and cl, 15
shr al, 4
add cl, 48
add al, 48
cmp cl, 57
jbe short L3
add cl, 7
L3: cmp al, 57
jbe short L4
add al, 7
L4: mov byte ptr[edx-3], cl
mov byte ptr[edx-4], al
shr ecx, 8
mov al, cl
and cl, 15
shr al, 4
add cl, 48
add al, 48
cmp cl, 57
jbe short L5
add cl, 7
L5: cmp al, 57
jbe short L6
add al, 7
L6: mov byte ptr[edx-5], cl
mov byte ptr[edx-6], al
shr ecx, 8
mov byte ptr[edx], 0
mov al, cl
and cl, 15
shr al, 4
add cl, 48
add al, 48
cmp cl, 57
jbe short L7
add cl, 7
L7: cmp al, 57
jbe short L8
add al, 7
L8: mov byte ptr[edx-7], cl
mov byte ptr[edx-8], al
mov eax, edx
ret
bndwordtox ENDP
;####################################################### bnatod ###########################################################
;ECX = psz
bnatod PROC
push ebx
xorps XMM0, XMM0
DB 0F2h,0Fh,10h,0Dh ;movsd XMM1,
DD OFFSET BNDIXPZERO ;qword ptr BNDIXPZERO
xor ebx, ebx
xor edx, edx
xor eax, eax
movapd XMM3, XMM0
cmp byte ptr[ecx], 45
jne short outZERO
add ecx, 1
add ebx, 1
outZERO:mov al, [ecx]
cmp al, 48
jne short goINT
add ecx, 1
jmp short outZERO
goINT: cmp al, 46
je short goDCML
sub al, 48
js short goSIGN
cmp al, 9
ja short goSIGN
cvtsi2sd XMM2, eax
mulsd XMM0, XMM1
add ecx, 1
addsd XMM0, XMM2
mov al, [ecx]
jmp short goINT
goDCML: add ecx, 1
mov al, [ecx]
inDCML: sub al, 48
js short dcmlIF
cmp al, 9
ja short dcmlIF
cvtsi2sd XMM2, eax
mulsd XMM0, XMM1
add ecx, 1
add edx, 1
addsd XMM0, XMM2
mov al, [ecx]
jmp short inDCML
dcmlIF: test edx, edx
je short goSIGN
DB 0F2h,0Fh,10h,15h ;MOVSD XMM2,
DD OFFSET BNUNDIXIEM ;qword ptr BNUNDIXIEM
dcmlADD:sub edx, 1
mulsd XMM0, XMM2
jne short dcmlADD
goSIGN: comisd XMM0, XMM3
je short atodEXIT
test ebx, ebx
je short atodEXIT
DB 0F2h,0Fh,10h,0Dh ;movsd XMM1,
DD OFFSET BNMINUSDBL ;qword ptr BNMINUSDBL
subsd XMM1, XMM0
movapd XMM0, XMM1
atodEXIT:
pop ebx
sub eax,eax
ret
bnatod ENDP
END START
 Conclusion
Ce code est de Brunews moi je ne comprend rien
que ce soit pour la routine de convertion
ou que ce soit des instructions SSE2.
J'ai fait que retrenscrire un code pour VC en code pour MASM32.
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Convertion asm vers hex (ou bin) [ par mistigry ]
J'utilise un PIC16F870 avec le compilateur CH Basic V1.2, ce compilateur me fournit des fichier asm (ou bsc) et pour pouvoir transférer le fichier sur
convertion chaine hexa en decimal [ par mousse85 ]
Quelqu'un pourrai m'aider ? Il me faudrai un morceau de code qui me permettrai de convertir une chaine Hexadecimal, se trouvant dans une variable de t
convertion binaire vers ascii [ par MUSICMANIAC ]
bonjour,comment fait on pour convertir un fichier binaire 16 bitsen plusieurs caracteres ascii?language assaembleurmicro pic16f84
Utilisation de la FPU [ par vecchio56 ]
J'essaie d'utiliser la FPU pour faire ne serait-ce qu'une fonction très simple, qui revoie l'argument qu'on lui passe:__declspec(naked) float __fastca
Inserer de l'hexadecimal avec Visual Basic [ par meuh33 ]
Bonjour !Je souhaite remplacer une partie du code en hexadecimal dans un exe via une aplication visual basic 6, comment faire ?je sais envoyer de
Problème de convertion [ par titaniume ]
Comment réaliser des cds-rom pc boot, avec saut de cd.Lorsque l'on a un dvd-rom pc.Y a t-il un logiciel ou une technique pour réaliser cela?J'ai déjà
MASM ne gère pas le SSE2 ? [ par epineurien ]
Bonjour à tous !Moi et mon compilo. , je pourrais écrire un roman...Voilà le problême, je voudrait utiliser le SSE2 pour accélerer les calculs, problê
|
Derniers Blogs
 TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
 RE : PIC 16F84RE : PIC 16F84 par pont
Cliquez pour lire la suite par pont RE : PIC 16F84RE : PIC 16F84 par belounis
Cliquez pour lire la suite par belounis RE : PIC 16F84RE : PIC 16F84 par pont
Cliquez pour lire la suite par pont
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|