Перевод из десятичного формата в шестнадцатеричный (оконное приложение) - Assembler

format PE GUI 4.0                        ; 32-разрЯдное оконное приложение WINDOWS EXE
entry start                          ; точка входа
 
include 'include\win32a.inc'
 
ID_MESSAGE = 102
ID_OK = 103
 
section '.text' code readable executable             ; секциЯ кода
 
  start:
    invoke GetModuleHandle,0                     ; получить уникальный идентификатор активного программного модулЯ
    invoke DialogBoxParam,eax,0,HWND_DESKTOP,DialogProc,0        ; запустить цикл обработки сообщений для сктивного программного модулЯ
    or eax,eax                           ; если диалог вернул 1 то...
    jz exit
 
    ccall [strlen], message                      ; узнать длину введенной строки
    cmp eax, 0                           ; если длина меньше минимальной, вывести ошибку
    jb ERR_MSG
 
    jmp validateNumber
numberGood:                              ; если число корректн, перевести в шестнадцатиричную систему
    xor eax, eax
    mov edi,bin
        mov ebx,[a]
        mov ecx,16
ob1:
        shl bx,1  ;перевод из десятичной системы в hex
        jc ob2
        
        mov al,'0'
        jmp ob3
ИЛИ
ob1:    mov al, '0'
        rcl bx,1
        adc al, 0        
ob2:
        mov al,'1'
ob3:
        stosb
        loop ob1
 
    invoke MessageBox,HWND_DESKTOP,esi,date,0            ; ...вывести сообщение
    invoke printf,msg3,[a],bin,0      ;выводим результат
    jmp exit                         ; запустить валидатор для проверки на число
ERR_MSG:
    invoke MessageBox,HWND_DESKTOP,MESSAGE_ERR,number,0      ; сообщение об ошибке
 exit:
    invoke ExitProcess,0                         ; завершить выполнение программы
 
 [B]validateNumber:[/B]
    xor eax, eax                             ; валидатор для числа
    xor ebx, ebx
    mov esi, message                         ; скопировать адрес строки в регистр ESI
    [B];проверка на то, что введено число?[/B]
    jmp numberGood                           ; если все проверки пройдены, напечатать число в 16
proc DialogProc hwnddlg,msg,wparam,lparam            ; оконнаЯ функциЯ обработки сообщений
    push ebx esi edi
    cmp [msg],WM_INITDIALOG                  ; сообщение предшествующее оторажению окна
    je  .wminitdialog
    cmp [msg],WM_COMMAND                     ; сообщение отправлЯемое при нажатии на кнопки, меню и т.п.
    je  .wmcommand
    cmp [msg],WM_CLOSE                       ; сообщение отправлЯемое перед закрытием окна
    je  .wmclose
    xor eax,eax                          ; если сообщение не обработано возвращаем 0
    jmp .finish
  .wminitdialog:
    jmp .processed
  .wmcommand:
    cmp [wparam],BN_CLICKED shl 16 + ID_OK             ; если нажата кнопка OK
    jne .processed
    invoke GetDlgItemText,[hwnddlg],ID_MESSAGE,message,100h      ; получение текста сообщениЯ
    invoke EndDialog,[hwnddlg],1                     ; закрыть окно и вернуть вызвавшей программе 1
    jmp .processed
  .wmclose:
    invoke EndDialog,[hwnddlg],0                     ; закрыть окно и вернуть вызвавшей программе 0
  .processed:
    mov eax,1                            ; если сообщение обработано возвращаем 1
  .finish:
    pop edi esi ebx
    ret
endp
 
section '.bss' readable writeable                ; секциЯ данных
  integer db "%d",0
  number dd 0
  bin db '0000000000000000',0
  const db 10
  MESSAGE_ERR db "NUMBER INVALID",0
  message rb 100h
 
section '.text' code readable executable
enter_num:
        invoke printf,msg1          
        invoke scanf,integer,a       
 
        mov edi,bin
        mov ebx,[a]
        mov ecx,16
ob1:
        shl bx,1  ;перевод из десятичной системы в hex
        jc ob2
        
        mov al,'0'
        jmp ob3
ИЛИ
ob1:    mov al, '0'
        rcl bx,1
        adc al, 0        
ob2:
        mov al,'1'
ob3:
        stosb
        loop ob1
 
       invoke printf,msg3,[a],bin,0      ;выводим результат
       invoke getch
       cmp eax,27
       jnz enter_num
 
        invoke ExitProcess, 0           ;выход из программы
 
section '.idata' import data readable writeable          ; секциЯ импортируемых функций
 
  library kernel,'KERNEL32.DLL',\
      user,'USER32.DLL',\
      msvcrt,'msvcrt.dll'
 
  import kernel,\
     GetModuleHandle,'GetModuleHandleA',\
     ExitProcess,'ExitProcess'
 
  import user,\
     DialogBoxParam,'DialogBoxParamA',\
     GetDlgItemText,'GetDlgItemTextA',\
     MessageBox,'MessageBoxA',\
     EndDialog,'EndDialog'
 
  import  msvcrt,\
     strlen,'strlen'
 
section '.rsrc' resource data readable               ; секциЯ объЯвлениЯ ресурсов
 
  directory RT_DIALOG,dialogs
 
  resource dialogs,0,LANG_ENGLISH+SUBLANG_DEFAULT,demonstration
 
  dialog demonstration,'Correct date',70,70,190,55,WS_CAPTION+WS_POPUP+WS_SYSMENU+DS_MODALFRAME
    dialogitem 'STATIC','&Enter date:',-1,10,10,70,8,WS_VISIBLE
    dialogitem 'EDIT','',ID_MESSAGE,10,20,170,13,WS_VISIBLE+WS_BORDER+WS_TABSTOP+ES_AUTOHSCROLL
    dialogitem 'BUTTON','Check date',ID_OK,70,37,45,15,WS_VISIBLE+WS_TABSTOP+BS_DEFPUSHBUTTON
  enddialog