1. Assembler / Говнокод #15790

    +143

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    entry start 

include 'C:\Program Files\Casm\win32a.inc' ; Include file win32a.inc 

section '.text' code readable executable 

  start: 

        invoke  GetModuleHandle,0 
        invoke  DialogBoxParam,eax,37,HWND_DESKTOP,DialogProc,0 
        or      eax,eax 
        jz      exit 
  exit: 
        invoke  ExitProcess,0 

proc DialogProc hwnddlg,msg,wparam,lparam 
        push    ebx esi edi 
        cmp     [msg],WM_INITDIALOG 
        je      .wminitdialog 
        cmp     [msg],WM_CLOSE 
        je      .wmclose 
        xor     eax,eax 
        jmp     .finish 
  .wminitdialog: 
        jmp     .processed 
  .wmclose: 
        invoke  EndDialog,[hwnddlg],0 
  .processed: 
        mov     eax,1 
  .finish: 
        pop     edi esi ebx 
        ret 
endp 

section '.bss' readable writeable 

  flags dd ? 
  caption rb 40h 
  message rb 100h 

section '.idata' import data readable writeable 

  library kernel,'KERNEL32.DLL',\ 
          user,'USER32.DLL' 

  import kernel,\ 
         GetModuleHandle,'GetModuleHandleA',\ 
         ExitProcess,'ExitProcess' 

  import user,\ 
         DialogBoxParam,'DialogBoxParamA',\ 
         EndDialog,'EndDialog' 

section '.rsrc' resource data readable 

  directory RT_DIALOG,dialogs 

  resource dialogs,\ 
           37,LANG_ENGLISH+SUBLANG_DEFAULT,demonstration 

  dialog demonstration,'TestProgram',170,170,105,75,WS_CAPTION+WS_POPUP+WS_SYSMENU+DS_MODALFRAME 
  dialogitem 'STATIC','Compile',-1,10,10,70,29,WS_VISIBLE 
  dialogitem 'STATIC','WITH...',-1,10,20,70,8,WS_VISIBLE 
  dialogitem 'STATIC','C',-1,10,30,70,8,WS_VISIBLE 
  dialogitem 'STATIC','A',-1,10,40,70,8,WS_VISIBLE 
  dialogitem 'STATIC','S',-1,10,50,70,8,WS_VISIBLE 
  dialogitem 'STATIC','M',-1,10,60,70,8,WS_VISIBLE 
  enddialog

    Окно на Fasm M.P.E.

    Запостил: Mobac, 19 Апреля 2014

    Комментарии (1) RSS

    • ava Dummy00001 19.04.2014 20:58 # +1

      программируем винды на асме... увдовлетворение в квадрате.

      ЗЫ в тему. читал http://llvm.org/docs/LangRef.html и http://llvm.org/docs/tutorial/index.html - вставило. IRBuilder основательно переработали - кодогенерация теперь весьма удобна. ну насколько только кодогенерация и может быть удобной.
      Ответить

    Добавить комментарий