Листинг учебных программ к лаб. работе Ассемблер процессоров Intel x86

; Простейший вариант вывода текста на экран

DATA SEGMENT

HELLO DB 'Привет от Турбо Ассеmблера!$'

DATA ENDS

; Код программы

CODE SEGMENT

ASSUME CS: CODE, DS: DATA

START: mov AX, DATA

mov DS,AX

mov AH,9 ; Вывод сообщения

mov DX,OFFSET HELLO

int 21h

mov AH,4Ch ; Выход в вызывающий процесс

int 21h

CODE ENDS

END START

; Вывод текста на экран – в форме подпрограммы

astack segment stack

dw 12 dup (?)

astack ends

adata segment

greet db 'Приветствие $'

adata ends

start segment

assume cs:start,ds:adata,ss:astack

vyvod proc far

push ds

sub ax,ax

push ax

mov bx,adata

mov ds,bx

mov dx,offset greet

mov ax,0900h

int 21h

ret

vyvod endp

start ends

end vyvod

; Программа ввода имени и вывода приветствия

astack segment 'stack'

dw 12 dup(?)

astack ends

adata segment 'data'

buffer db 50,51 dup('@')

prompt db 'Введите свое имя: $'

text db 10,'Здравствуйте, ',20 dup ('$')

adata ends

start segment 'code'

assume cs:start,ds:adata,ss:astack,es:adata

rdkeys proc far

push ds

sub ax,ax

push ax

mov bx,adata

mov ds,bx

mov es,bx

mov dx,offset prompt

mov ah,9

int 21h

lea dx,buffer

mov ah,0ah

int 21h

sub ch,ch

mov cl,buffer+1

add dx,2

lea si,buffer+2

lea di,text+15

rep movs text+15,buffer+2

mov dx,offset text

mov ah,9

int 21h

ret

rdkeys endp

start ends

end rdkeys

; преобразование числа в ASCII-код

convert proc near

; ax = число, di = указатель адреса в буфере

push ax ; сохранение числа

mov al,' '

mov cx,3

rep stosb ; очистка трех байт

pop ax ; восстановление числа в ах

mov cx,10 ; сх = делитель

conloop:xor dx,dx ; обнуление регистра dx для хранения остатка

div cx ; деление ах на 10

add dl,30h ; преобразование в ascii-код

dec di ; перемещение указателя на 1 байт

mov [di],dl ; сохранение ascii-кода очередной цифры

cmp ax,0 ; проверка на конец цикла

jnz conloop ; возврат к началу цикла, если не 0

ret

convert endp

; Вывод на монитор цветных квадратов с циклической сменой цветов фона