Лабораторная работа: Программирование и основы алгоритмизации 2

mov [TEXTB+13],al

push @@hwnd

call GetDC

mov @@hdc,eax

push 18

push offset TEXTB

push 120

push 10

push @@hdc

call TextOutA

exit_wndproc:

ret

WindowProc endp

StringToDig proc near

ARG @@TEXT:DWORD

mov esi,@@TEXT

mov eax,0

mov edx,0

mov dl,[esi]

cmp dl,'-'

jne N

mov temp,1

inc esi

mov dl,[esi]

N: cmp dl,'0'

jl MRET

cmp dl,'9'

jg MRET

and dl,0Fh ; ASCII->BCD