Самая красивая и полезная ПРОГРАММА

.386
    .model flat, stdcall
    option casemap :none
 
    include C:\masm32\include\windows.inc
    include C:\masm32\include\user32.inc
    include C:\masm32\include\kernel32.inc
    include C:\masm32\include\masm32.inc
    includelib C:\masm32\lib\user32.lib
    includelib C:\masm32\lib\kernel32.lib
    includelib C:\masm32\lib\masm32.lib
      
.data
 msg1 db 'Please type your name:',13,10,0
 msg2 db 'Nice to see you ',0
 msg3 db ' Stop Program? For stop Program press key [Enter]:',0
 
 format db "%u",0
 mystr db 11 dup (?)
 
 .data?
 buffer db 100 dup(?)
 
 .code
 start:
 
 mov AX,00  ; - зачем эти строки, ведь ниже mov AX,05
 sub AX,AX  ; /
 mov AX,05
 
 movzx edx,ax
 invoke wsprintf,offset mystr,offset format,edx ; вывод значения из ax на консоль
 invoke StdOut,addr mystr
 
 invoke StdOut,ADDR msg1
 invoke StdIn,ADDR buffer,100 ; receive text input
 invoke StdOut,ADDR msg2
 invoke StdOut,ADDR buffer
 invoke StdOut,ADDR msg3
 invoke StdIn,ADDR buffer,100 ; receive text input
 invoke ExitProcess,0
 ret        ; зачем ret, вы ведь при вызове ExitProcess выходите
 
 END start

;Программа вывода на консоль двух строк текста
;========================================
;________________________________________
.386
.model flat, stdcall
 option casemap : none
;________________________________________
    include \masm32\include\windows.inc
    include \masm32\include\user32.inc
    include \masm32\include\kernel32.inc
    include \masm32\include\masm32.inc
     includelib \masm32\lib\user32.lib
     includelib \masm32\lib\kernel32.lib
     includelib \masm32\lib\masm32.lib
;________________________________________
.data
;----- Объявления и инициализация переменных -------
    conTitle    DB  "Assembler Console Application",0
    mes         DB  "Hello, world!",0
    len_mes     EQU $-mes
    readBuf     DB  ?
    lenReadBuf  DD  1
    hStdIn      DD  0
    hStdOut     DD  0
    chrsRead    DD  0
    chrsWritten DD  0
 
    STD_INP_HNDL    DD  -10
    STD_OUTP_HNDL   DD  -11
;_______________________________________
.code
  start:
        call    AllocConsole
        test    EAX, EAX
        jz      ex
 
;----- Инициализация консольного приложения -----
        push    offset  conTitle
        call    SetConsoleTitleA
        test    EAX, EAX
        jz      ex
        call    getout_hndl
        call    getinp_hndl
;----- Вывод сообщения в окно консоли -----
        push    EBX
        mov     EBX, offset mes
        mov     ECX, len_mes
        call    write_con
        pop     EBX
;----- Ожидание ввода и выход из программы -----
        call    read_con
ex:
        push    0
        call    ExitProcess
;----- Процедуры -----
    getout_hndl proc
        push    STD_OUTP_HNDL
        call    GetStdHandle
        mov     hStdOut, EAX
        ret
    getout_hndl endp
 
    getinp_hndl proc
        push    STD_INP_HNDL
        call GetStdHandle
        mov hStdIn, EAX
        ret
    getinp_hndl endp
 
    write_con   proc
        push    0
        push    chrsWritten
        push    ECX
        push    EBX
        push    hStdOut
        call    WriteConsoleA
        ret
    write_con   endp
 
    read_con    proc
        push    0
        push    chrsRead
        push    lenReadBuf
        push    offset  readBuf
        push    hStdIn
        call    ReadConsoleA
        ret
    read_con    endp
 
end start
;________________________________________
;========================================

;====_ПРОГРАММА ИЗ СТАРОГО УЧЕБНИКА_====
;
PAGE    60,132
TITLE   ALLASC  (COM) Вывод на экран строки текста
CODESG  SEGMENT PARA 'Code'
        ASSUME  CS:CODESG,DS:CODESG,SS:CODESG,ES:NOTHING
        ORG     100H
BEGIN:  JMP     SHORT MAIN
 
;               Основная процедура:
;               ------------------
MAIN    PROC    NEAR
        CALL    B10CLR          ;Очистить экран
        CALL    C10SET          ;Установить курсор                 
        CALL    D10DISP         ;Вывести символ на экран
        RET
MAIN    ENDP
;               Очистка экрана:
;               --------------
B10CLR  PROC
        MOV     AX,0600H
        MOV     BH,07
        MOV     CX,0000         ;Левая верхняя позиция
        MOV     DX,184FH        ;Правая нижняя позиция
        INT      10H
        RET
B10CLR  ENDP
;               Установка курсора в 00,00:
;               -------------------------
C10SET  PROC
        MOV     AH,02
        MOV     BH,00
        MOV     DX,0000
        INT      10H
        RET
C10SET  ENDP
;               Вывод на экран строки текста:
;               -----------------------------
D10DISP PROC
msg DB '   Hello World!', 13, 10, '$'
        MOV AH, 09H
        MOV DX, OFFSET msg
        INT 21H
         RET                     ;Вернуться
D10DISP ENDP
 
CODESG ENDS
        END BEGIN

D10DISP PROC
msg DB '   Hello World!', 13, 10, '$'
        MOV AH, 09H
        MOV DX, OFFSET msg
        INT 21H
         RET                     ;Вернуться
D10DISP ENDP

D10DISP PROC
        MOV AH, 09H
        MOV DX, OFFSET msg
        INT 21H
         RET                     ;Вернуться
msg DB '   Hello World!', 13, 10, '$'
D10DISP ENDP