Написать программу, выводящую строку "Hello World" на экран

.MODEL SMALL
.STACK 100h
.DATA
    HelloMessage DB 'Hello World',13,10,'$'
.CODE
START:
    mov ax,@data
    mov ds,ax
    mov ah,9
    mov dx,OFFSET HelloMessage
    int 21h
    mov ah,4ch
    int 21h
END START

.286
.MODEL SMALL
.STACK 100h
.DATA
        HelloMessage DB 'Hello World',10,13
    num = $ - HelloMessage
.CODE
START:  push @data
        pop ds
    mov cx,num
a1: lodsb
        int 29h
    loop a1
        mov ah,4ch
        int 21h
end start

.286
.MODEL SMALL
.STACK 100h
.DATA
        HelloMessage DB 'Hello World'
    num = $ - HelloMessage
.CODE
START:  push @data
        pop ds
    push 0B800h
    pop es
    mov ax,3
    int 10h
    mov di,0
    mov si,offset HelloMessage
    mov cx,num
    mov ah,0Ch
a1: lodsb
        stosw
    loop a1
        mov ah,4ch
        int 21h
end start

.model tiny
.286
.code
org 100h
start:
mov ah,13h
xor dx,dx
mov cx,sizeof string
mov bp,offset string
mov bx,0ch
int 10h
ret
string db 'Goodbye, America'
end start

;---[ CUT HERE ]-------------------------------------------------------------
 
.386                            ; Процессор (386+)
.model flat                     ; Использует 32-х битные
 
;регистры
 
 extrn          ExitProcess:proc                ; Функции API, которые
 extrn          MessageBoxA:proc                ; использует программа
 
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 ; С помощью директивы "extrn" мы указываем, какие API мы будем использовать;
 ; ExitProcess возвращает контроль операционной системе, а MessageBoxA      ;
 ; показывает классическое виндовозное сообщение.                           ;
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 
 .data
 szMessage       db      "Hello World!",0       ; Message for MsgBox
 szTitle         db      "Win32 rocks!",0       ; Title of that MsgBox
 
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 
                .code                           ; Поехали!
 
 HelloWorld:
                push    00000000h               ; Стиль MessageBox
                push    offset szTitle          ; Заголовок MessageBox
                push    offset szMessage        ; Само сообщение
                push    00000000h               ; Хэндл владельца
 
                call    MessageBoxA             ; Вызов функции
 
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 ; int MessageBox(                                                          ;
 ;   HWND hWnd,          // хэндл окна-владельца                            ;
 ;   LPCTSTR lpText,     // адрес текста сообщения                          ;
 ;   LPCTSTR lpCaption,  // адрес заголовка MessageBox'а                    ;
 ;   UINT uType          // стиль MessageBox'а                              ;
 ;  );                                                                      ;
 ;                                                                          ;
 ; Мы помещаем параметры в стек до вызова самой API-функции, и если вы      ;
 ; помните, стек построен согласно принципу LIFO (Last In First Out),       ;
 ; поэтому мы должны помещать параметры в перевернутом порядке (при всем    ;
 ; уважении к автору данного туториала, я должен сказать, что он не прав    ;
 ; вовсе не поэтому мы должны помещать данные в перевернутом порядке - прим.;
 ; пер.). Давайте посмотрим на краткое описание каждого из параметров этой  ;
 ; функции:                                                                 ;
 ;                                                                          ;
 ; ¦ hWnd: идентифицирует окно-владельца messagebox'а, который должен быть  ;
 ;   создан. Если этот параметр равняется NULL, у окна с сообщением не будет;
 ;   владельца.                                                             ;
 ; ¦ lpText: указывает на ASCIIZ-строку, содержащую сообщение, которое нужно;
 ;   отобразить.                                                            ;
 ; ¦ lpCaption: указывает на ASCIIZ-строку, содержащую заголовок окна       ;
 ;   сообщения. Если этот параметр равен NULL, будет использован заголовок  ;
 ;   по умолчанию.                                                          ;
 ; ¦ uType: задает флаги, которые определяют содержимое и поведение         ;
 ;   диалогового окна. Это параметр может быть комбинацией флагов.          ;
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 
                push    00000000h
                call    ExitProcess
 
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 ; VOID ExitProcess(                                                        ;
 ;   UINT uExitCode      // код выхода для всех ветвей                      ;
 ;  );                                                                      ;
 ;                                                                          ;
 ; Эта функция эквивалентна хорошо известному Int 20h или функциям 00, 4С   ;
 ; Int 21h. Она просто завершает выполнение текущего процесса. У нее только ;
 ; один параметр:                                                           ;
 ;                                                                          ;
 ; ¦ uExitcode: задает код выхода для процесса и всех ветвей, выполнение    ;
 ;   которых будет прервано вызовом данной функции. Используйте функцию     ;
 ;   GetExitCodeProcess, чтобы получить код возврата процесса, а функцию    ;
 ;   GetExitCodeThread, чтобы получить код возврата треда.                  ;
 ;-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·-·;
 
 end HelloWorld
 
;---[ CUT HERE ]-------------------------------------------------------------

.data
HELLO DB 'Здравствуй мир!',0 ;строка для вывода 
.code
MOV AH,0Eh ; на экран номер подфункции BIOS
mov si,offset HELLO ;SI указывает на строку
next: lodsb ;помещаем символ в AL и переходим к следующему символу,
 INT 10h ;выводим символ на экран
test al,al ;проверяем на конец строки
jnz next ;если нет — повторяем все сначала

; hello - example of tiny (one section) Win32 program
 
format PE console 4.0
 
include 'include\win32ax.inc'
ENABLE_PROCESSED_OUTPUT  = 00000001
 
    invoke  AllocConsole
    invoke  SetConsoleCP, 1251
    invoke  SetConsoleOutputCP, 1251
    invoke  GetStdHandle, STD_INPUT_HANDLE
        push    eax
        push    eax
    invoke  GetStdHandle, STD_OUTPUT_HANDLE
        push    eax
    invoke  SetConsoleMode, eax, ENABLE_PROCESSED_OUTPUT
    pop eax
    invoke  WriteConsole, eax, hello, msgsz, NULL, NULL
;   pop eax
    invoke  FlushConsoleInputBuffer
    pop eax
    invoke  ReadConsole, eax, buf, bufsz, cnt, NULL
;exit:
    invoke  FreeConsole
    invoke  ExitProcess,0
 
cnt dd  ?
buf db  10 dup(?)
bufsz   =   $ - buf
hello   db  'cp1251 Привет из консоли!',0
msgsz   =   $ - hello
; import data in the same section
 
data import
 
 library kernel32,'KERNEL32.DLL'
 
 import kernel32,\
    ExitProcess,'ExitProcess',\
    SetConsoleCP,'SetConsoleCP',\
    SetConsoleOutputCP,'SetConsoleOutputCP',\
    GetStdHandle,'GetStdHandle',\
    SetConsoleMode,'SetConsoleMode',\
    ReadConsole,'ReadFile',\
    WriteConsole,'WriteConsoleA',\
    FreeConsole,'FreeConsole',\
    FlushConsoleInputBuffer,'FlushConsoleInputBuffer',\
    AllocConsole,'AllocConsole'
end data

; masm dos com #
.286 
.model tiny
.code
org 100h
 
start: mov bp,offset ABC
    mov ax,1303h
    mov bx,7
    mov cx,16
    xor DX,DX
    int 10h 
    retn
ABC db 'H',0Ah,'e',0Bh,'l',0Dh,'l',0Ch
    db 'o',0Bh,',',0Ah,' ',0Ah,'W',09h
    db 'o',08h,'r',07h,'l',06h,'d',05h
    db '!',02h,'!',02h,'!',02h
end start

; masm dos com #
.286
.model tiny
.code
org 100h
start:  mov si,offset string
    mov cx,N
    mov ah,2
@@: lodsb
    mov dl,al
    int 21h
    loop @b
    retn
string db 'Hello, world!'
N = $ - string
end start

; masm dos com #
.286
.model tiny
.code
org 100h
start:  mov si,offset string
    mov cx,N
    mov ah,6
@@: lodsb
    mov dl,al
    int 21h
    loop @b
    retn
string db 'Hello, world!'
N = $ - string
end start

; masm dos com #
.286
.model tiny
.code
org 100h
start: push offset RETURN     ;Занести в стек флаги, сегмент
        push cs                    ;и смещение адреса возврата
        pushf                      ;в обратном порядке.
        mov cl,9                 ;Функция: показать строку.
        mov dx,offset MESSAGE    ;Загрузить адрес сообщения.
        db 0EAh,0C0h,0,0,0     ;jmp far ptr 0:0C0h
RETURN: mov ah,4Ch               ;Завершить процесс через DOS.
        int  21h                   
MESSAGE db 'Hello, world!$'
end start

; masm dos com #
.286
.model tiny
.code
org 100h
start:
;получаем дальний адрес (cs:ip) обработчика 
;прерывания 21h из таблицы векторов прерывания
    push 0;сегментный адрес  таблицы векторов прерывания в es  
    pop es      
    mov di,es:[21h*4];смещение обработчика прерывания 21h в di
    mov si,es:[21h*4+2];сегмент обработчика прерывания 21h в si
    mov dx,offset string
    mov ah,9      ;номер функции
;три параметра в стек для возврата из прерывания
    pushf           
        push cs
        push offset @f  ;адрес возврата
    push si     ;cs для int 21h
    push di     ;ip для int 21h
    retf        ;подменяем cs и ip
@@: mov ah,4Ch      ;выход из программы
    int 21h
string db 'Hello, world!$'
end start

    format  MZ
 
    LF  equ 10
    CR  equ 13
 
    entry   _TEXT:start
 
    segment _TEXT use16
 
start:
    push    cs
    pop ds
    mov ax, ss
    mov cx, es
    sub ax, cx
    mov bx, sp
    shr bx, 4
    inc bx
    add bx, ax          ;release unused DOS memory
    mov ah, 4Ah
    int 21h
    mov ax, 1687h       ;DPMI host installed?
    int 2Fh
    and ax, ax
    jnz nohost
 
    push    es          ;save DPMI entry address
    push    di
    and si, si          ;requires host client-specific DOS memory?
    jz  nomemneeded
    mov bx, si
    mov ah, 48h         ;alloc DOS memory
    int 21h
    jc  nomem
    mov es, ax
nomemneeded:
    mov bp, sp
    mov ax, 0001        ;start a 32-bit client
    call    far [bp]        ;initial switch to protected-mode
    jc  initfailed
;now in protected-mode
; CS = 16-bit selector corresponding to real-mode CS
; SS = selector corresponding to real-mode SS (64K limit)
; DS = selector corresponding to real-mode DS (64K limit)
; ES = selector to program's PSP (100h byte limit)
; FS = GS = 0
    mov cx,1            ;get a descriptor for the 32-bit code segment
    mov ax,0
    int 31h
    jc  dpmierr
    mov bx,ax                   ; base selector
    mov dx,_TEXT32
    mov cx,dx
    shl dx,4
    shr cx,12                   ; now CX:DX = linear(flat) _TEXT32 addr
    mov ax,7            ;set base
    int 31h
    or  dx,-1
    xor cx,cx
    mov ax,8            ;set limit
    int 31h
    mov cx,cs
    lar cx,cx
    shr cx,8
    or  ch,40h          ;make a 32bit CS
    mov ax,9
    int 31h
    push    bx          ; _TEXT32 selector
    push    start32
    retf                ;jump to 32bit CS
nohost:
    mov dx, dErr1
error:
    mov ah, 9
    int 21h
    mov ax, 4C00h
    int 21h
nomem:
    mov dx, dErr2
    jmp error
initfailed:
    mov dx, dErr3
    jmp error
dpmierr:
    mov dx, dErr4
    jmp error
 
;   segment _DATA use16
 
szWelcome   db      "Good bye, ugly 16 bit!",CR,LF
        db  "Hello, world from DOS protected mode 32-bit client!",CR,LF,'$'
dErr1       db  "no DPMI host installed",CR,LF,'$'
dErr2       db  "not enough DOS memory for client initialisation",CR,LF,'$'
dErr3       db  "DPMI initialisation failed",CR,LF,'$'
dErr4       db  "no LDT descriptors available",CR,LF,'$'
 
;--- the 32-bit code segment
 
    segment _TEXT32 use32
 
start32:
    mov edx, szWelcome      ;print welcome message
    mov ah,9
    int 21h
    mov ah,0
    int 16h
    mov ax, 4C00h       ;return to DOS
    int 21h

.386
    .model flat, stdcall
    option casemap :none
    include \masm32\include\windows.inc
    include \masm32\include\kernel32.inc
    includelib \masm32\lib\kernel32.lib
.data
msg db "Hello World"
stdout dd ?
cWritten dd ?
.code
start:
invoke GetStdHandle,STD_OUTPUT_HANDLE
mov stdout,eax
invoke WriteConsoleA,stdout,ADDR msg,SIZEOF msg,ADDR cWritten,NULL
invoke ExitProcess,0
end start

.386
    .model flat, stdcall
    option casemap :none
    include \masm32\include\masm32.inc
    include \masm32\include\kernel32.inc
    include \masm32\macros\macros.asm
    includelib \masm32\lib\masm32.lib
    includelib \masm32\lib\kernel32.lib
    .code
    start:
      print "Hello world"
      exit
    end start

    format MZ
    heap    0
    stack   100h
    entry   main:start
segment main    use16
start:  push    0                   
    pop fs                      ; vector table
    mov ax,data_segment
    mov ds,ax
    mov es,ax
    mov ax, 13h            ; modeX Graphics 320x200x256, 40x25, 8x8     
    int 10h
    mov eax, dword [fs:43h*4]
    mov dword [int43], eax     ; Get 8x8 chargen ptr
    mov si, hello
next:   call    gotoxy
    lodsb
    or  al,al
    jz  exit
    cmp al,20h  ; <space>?
    jnz @1
    add byte [Y], 11
    mov byte [X], 0
    jmp next
@1: movzx   ax,al
    shl ax, 3   ; ax*8
    push    si
    push    ds
    lds si, [int43]
    add si, ax
; Вывод на экран 
    mov cx, 8 
loo0:   lodsb
    mov bl, al
    push    cx
    mov cx, 8
loo1:   mov al, 20h
    rcl bl, 1
    jnc @@1
    mov al, 0DBh
@@1:    int 29h
    loop    loo1
    pop cx
    inc byte [es:Y]
    call    gotoxy
    loop    loo0
    pop ds
    pop si
    add byte [X], 8
    sub byte [Y], 8
    jmp next    
; выход
exit:   xor ah, ah
    int 16h
    mov ax, 03h
    int 10h
    mov ah, 4Ch
    int 21h
gotoxy: pusha
    mov ah,2
    xor bx,bx
    mov dx, word [es:XY]
    int 10h
    popa
    ret
segment data_segment use16 
int43:  dd  ?
XY:
X:  db  0
Y:  db  3
hello:  db  'Hello world',0

        org 100h
        push    cs
        pop ax
        mov [rcpt_seg], ax
        mov [msg_seg], ax
        mov ax, 5E00h   ; DOS 3.1+ network
        mov dx, wkst_nm ; получить
        int 21h             ; имя локальной машины
        mov ax, 5F40h       ; LAN Manager Enhanced DOS
        mov dx, LM_MSG  ; отправить сообщение
        int 21h             ; самому себе
        int 20h
; LAN Manager NetMessageBufferSend parameter structure:
LM_MSG:                                 ;
; DWORD -> имя адресата (name for specific user, name* for domain wide name, * for broadcast)
rcpt_ofs:   dw  wkst_nm
rcpt_seg:   dw  ?
; DWORD -> текст сообщения
msg_ofs:    dw  msg
msg_seg:    dw  ?
msg_sz:     dw  msg_len     ; длина соощения
;
wkst_nm:    db  10h dup(?)  ; имя раб. станци
msg     db  'Hello, World!'
msg_len     =   $ - msg