mirror of
https://github.com/stasenso/SHA256.git
synced 2026-06-27 05:42:43 +03:00
Перешёл на masm
This commit is contained in:
@@ -14,6 +14,42 @@ IncludeLib kernel32.lib
|
||||
;IncludeLib debug.lib
|
||||
|
||||
.DATA
|
||||
;Макросы
|
||||
MAKELANGID macro p:REQ,s:REQ ;Макрос создающий идентификатор языка
|
||||
m$__langid = (s SHL 10) or p ;
|
||||
EXITM <m$__langid> ;
|
||||
endm
|
||||
; -------------------------------------------------------------------------
|
||||
DU MACRO name, string
|
||||
name PROC
|
||||
DU1 string
|
||||
name ENDP
|
||||
ENDM
|
||||
; -------------------------------------------------------------------------
|
||||
DU1 MACRO string
|
||||
LOCAL bslash
|
||||
bslash=0
|
||||
IRPC c,<string>
|
||||
IF bslash EQ 0
|
||||
IF '&c' EQ "\" ;;управляющая последовательность символов
|
||||
bslash=1
|
||||
ELSEIF '&c' GT 127
|
||||
DB ('&c'- 0B0h), 4 ;;кириллица
|
||||
ELSE
|
||||
DW '&c' ;;латиница
|
||||
ENDIF
|
||||
ELSE
|
||||
bslash=0
|
||||
IF '&c' EQ "n" ;; \n = новая строка
|
||||
DW 0Dh
|
||||
ELSEIF '&c' EQ "r";; \r = возврат каретки
|
||||
DW 0Ah
|
||||
ENDIF
|
||||
ENDIF
|
||||
ENDM
|
||||
DW 0
|
||||
ENDM
|
||||
; -------------------------------------------------------------------------
|
||||
ClassName DB "MainWinClass",0
|
||||
szAppName DB "SDI Application",0
|
||||
MenuName DB "FirstMenu",0
|
||||
@@ -21,13 +57,20 @@ szFileNew DB "You selected 'New'.",0
|
||||
szFileOpen DB "You selected 'Open'.",0
|
||||
szHelpAbout DB "You selected 'About'.",0
|
||||
|
||||
DU ButtonClassName,<button>
|
||||
|
||||
DU ButtonText,<Запуск>
|
||||
|
||||
|
||||
.DATA?
|
||||
hInstance HINSTANCE ?
|
||||
CommandLine LPSTR ?
|
||||
hMenu HMENU ?
|
||||
hwndButton HWND ?
|
||||
|
||||
.CONST
|
||||
IDM_FILE_NEW EQU 1
|
||||
IDM_FILE_OPEN EQU 2
|
||||
IDM_HELP_ABOUT EQU 3
|
||||
IDM_FILE_EXIT EQU 4
|
||||
ButtonID equ 5
|
||||
|
||||
Reference in New Issue
Block a user