mes3 db'hochu znat assembler','$'

(1)

dosseg

.model small

.stack 100h

.data

mes1 db'”.€.Ћ',13,10,'$'

mes2 db'',13,10,'$'

mes3 db'hochu znat assembler','$'

.code

mov ah,0

mov al,3

int 10h

mov ax,@data

mov ds,ax

mov ah,09h

mov dx,offset mes1

int 21h

mov ah,09h

mov dx,offset mes2

int 21h

mov ah,09h

mov dx,offset mes3

int 21h

mov ah,4ch

int 21h

end

(2))

dosseg

.model small

.stack 100h

.data

add1 dw 1,2,3,4

add2 dw 5,6,7,8

.code

mov ax,@data

mov ds,ax

mov di,offset add1

mov si,offset add2

mov ax,[di]

adc ax,[si]

mov[di],ax

mov ax,[di+2]

adc ax,[si+2]

mov [di+2],ax

mov ax,[di+4]

adc ax,[si+4]

mov[di+4],ax

mov ax,[di+6]

adc ax,[si+6]

mov[di+6],ax

mov ah,4ch

int 21h

end

(3)

dosseg

.model small

.stack 100h

.data

mes1 db'eta programma vyvodit soderjimoe ax na ekran.ax=','$'

.code

mov ah,0

mov al,3

int 10h

mov ax,@data

mov ds,ax

mov ah,9

mov dx,offset mes1

int 21h

mov ax,5

push ax

push bx

push cx

push dx

xor cx,cx

p3:xor dx,dx

div cs:p16

mov dl,cs:PP[BX]

push dx

inc cx

cmp ax,0

jne p3

mov ah,2

p4:pop dx

int 21h

loop p4

pop dx

pop cx

pop bx

pop ax

mov ah,4ch

int 21h

p16 dw 16

pp db'0123456789abcdef'

end

(5)))

assume cs:code,ds:data

code segment

main:

mov ax,data

mov ds,ax

mov ah,19h

int 21h

add disk,al

mov ah,09h

mov dx,offset msg

int 21h

mov ah,09

mov dx,offset disk

int 21h

mov ah,01h

int 21h

mov ah,4ch

int 21h

code ends

data segment

msg db'tekushi disk-','$'

disk db'A:',13,10,'$'

data ends

stk segment stack

db 256 dup(0)

stk ends

end main

((6))

dosseg

.model small

.stack 100h

.data

msg db'tekushi disk-A ','$'

disk db'A:',13,10,'$'

.code

mov ax,@data

mov ds,ax

mov ah,19h

int 21h

add disk,al

mov ah,09h

mov dx,offset msg

int 21h

mov ah,09h

mov dx,offset disk

int 21h

mov ah,01h

int 21h

mov ah,4ch

int 21h

end

(((7)))

dosseg

.model small

.stack 100h

.data

step=5

d db 2

mes db'Rezultat=','$'

.code

mov ah,0

mov al,3

int 10h

mov ax,@data

mov ds,ax

mov ah,9

mov dx,offset mes

int 21h

xor ax,ax

mov al,1

mov cx,step

cycl:

mul d

loop cycl

push ax

push bx

push cx

push dx

xor cx,cx

p3:xor dx,dx

div cs:p16

mov bx,dx

mov dl,cs:pp[bx]

push dx

inc cx

cmp ax,0

jne p3

mov ah,2

p4:pop dx

int 21h

loop p4

pop dx

pop cx

pop bx

pop ax

mov ah,4ch

int 21h

p16 dw 10

pp db'0123456789'

end

Дата добавления: 2015-08-29