.386
.model flat, stdcall  ; 32 bit memory model
option casemap :none  ; case sensitive

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\advapi32.inc
include \masm32\include\user32.inc

includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\advapi32.lib
includelib \masm32\lib\user32.lib

.data
SubKey  db "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
vName   db "DataLayer"
rt      dd 1
rc      dd 127
mbCapt  db "RegValue",0

.data?
key  db ?
buf  db ?

.code
start:
  invoke RegOpenKeyEx, HKEY_LOCAL_MACHINE,  SubKey, 0, KEY_ALL_ACCESS, key
  invoke RegQueryValueEx, key, vName, NULL, addr rt, addr buf, addr rc
  invoke RegCloseKey, key
  invoke MessageBox, NULL, addr buf, addr mbCapt, MB_OK
  invoke ExitProcess, 0
end start

.386 
.model flat,stdcall 
option casemap:none 
include \masm32\include\windows.inc 
include \masm32\include\kernel32.inc 
includelib \masm32\lib\kernel32.lib 
include \masm32\include\user32.inc 
includelib \masm32\lib\user32.lib 

.data 
MsgBoxCaption  db "Antichat",0 
MsgBoxText       db "Hello World!",0 

.code 
start: 
invoke MessageBox, NULL, addr MsgBoxText, addr MsgBoxCaption, MB_OK 
invoke ExitProcess, NULL 
end start

.386
.model flat, stdcall  ; 32 bit memory model
option casemap :none  ; case sensitive

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\advapi32.inc
include \masm32\include\user32.inc

includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\advapi32.lib
includelib \masm32\lib\user32.lib

.data?
key  dd	 	?
buf  db  1024 dup (?) 

.data
SubKey  	db 		"SOFTWARE\Microsoft\Windows\CurrentVersion\Run",0
vName   	db 		"DataLayer",0
mbCapt  	db 		"RegValue",0
rt      	dd		REG_SZ
bsz     	dd 		sizeof buf

.code
start:
  invoke RegOpenKeyEx, HKEY_LOCAL_MACHINE, addr SubKey, 0, KEY_QUERY_VALUE, addr key
  invoke RegQueryValueEx, key, addr vName, 0, addr rt, addr buf, addr bsz
  invoke RegCloseKey, key
  invoke MessageBox, NULL, addr buf, addr mbCapt, MB_OK
  invoke ExitProcess, 0
end start

for i := n to m do
  WriteLn(A[i])

size equ 20
.data?
numb WORD size dup(?) ; область памяти для 20 идущих подряд WORD
.code
start:
mov ecx, size ; для цикла
mov bx, 1
xor edi, edi ; обнуляем edi
next:
mov numb[edi], bx
inc bx
add edi, 2 ; к следующему числу(word - 2 байта)
loop next
invoke ExitProcess, 0
end start

if Pos(subStr,Str) then
  WriteLn(SubStr+' присутствеут в '+Str)
else
  WriteLn(SubStr+' отсутствеут в '+Str);

	cmp buf,'SubString'
	je label1;или как я понял можно и jz

	label1:
	invoke MessageBox, NULL, addr buf, addr Prisutstvuet, MB_OK

	label2:
	invoke MessageBox, NULL, addr buf, addr Otsutstvuet, MB_OK