Оцените мой сайт
Всего ответов: 571

SITE LOGO
Понедельник, 17.12.2018, 06:46
Приветствую Вас Гость
Главная | Регистрация | Вход | RSS

Исходники на Ассемблере - Форум

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Программирование » Assembler » Исходники на Ассемблере
Исходники на Ассемблере
qlikeДата: Понедельник, 09.04.2007, 18:44 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 18
Репутация: 0
Статус: Offline
Здесь выкладываем .....исходники на Ассемблере.

Сообщение отредактировал qlike - Четверг, 11.10.2007, 06:45
 
qlikeДата: Вторник, 10.04.2007, 05:37 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 18
Репутация: 0
Статус: Offline
Программа запроса имени пользователя (name) и вывод приветствия в таком формате : «Здравствуй, » + name.

-------------------------------------------------------------------------------------------
text segment 'Zdra!'
assume cs:text,ds:data
myproc proc
mov ax,data
mov ds,ax

mov ah,09h
lea dx,str2
int 21h

mov ah,3fh
mov bx,0
lea dx,str
mov cx,10
int 21h

mov stl,ax

mov ah,40h
mov bx,1
lea dx,hlo
mov cx,hll
int 21h

mov ah,40h
mov bx,1
lea dx,str
mov cx,stl
int 21h

mov ax,4c00h
int 21h

myproc endp
text ends
data segment
str db 20 dup(0)
stl dw 20 dup(0)
hlo db 'Zdravstvyi '
hll equ $-hlo
str2 db 13,10,'vvedi imya: >> $'
data ends
stack segment stack 'stack'
dw 128 dup(0)
stack ends
end myproc
end
-----------------------------------------------------------------------------------------------

 
qlikeДата: Воскресенье, 22.04.2007, 09:06 | Сообщение # 3
Admin
Группа: Администраторы
Сообщений: 18
Репутация: 0
Статус: Offline
Программа, которая задает вопрос: «Сейчас день? (d (Да) / n (нет))».
Gо результату ответа на экран выводится одно из двух сообщений:
"Добрый день" или «Добрый вечер».
Если вводится др символ выводится сообщение "Ошибка"

---------------------------------------------------------------------------------------------------------
text segment 'code'
assume cs:text,ds:data

myproc proc

mov ax,data
mov ds,ax
m:
mov ah,09h
lea dx,str
int 21h

mov ah,01h
int 21h

cmp al,'n'
je m1
cmp al,'d'
je m2
mov ah,09h
lea dx,mes
int 21h
jmp m
m1: mov ah, 09h
lea dx,mes1
int 21h
jmp exit
m2: mov ah,09h
lea dx,mes2
int 21h
exit: mov ax,4c00h
int 21h
myproc endp
text ends
data segment
mes1 db 13,10,'DOBRYJ VE4ER $'
mes2 db 13,10,'DOBRYJ DEN$'
mes db 13,10,'ERROR!!!!!!!!$'
str db 13,10,'seichas den?$'
data ends
stack segment stack 'stack'
dw 128 dup(0)
stack ends
end myproc
end

 
qlikeДата: Четверг, 11.10.2007, 06:43 | Сообщение # 4
Admin
Группа: Администраторы
Сообщений: 18
Репутация: 0
Статус: Offline
функция вывода всех 256 кодов Аски

-------------------------------------------------------------------------------------
title .COM
text segment 'Code'
assume CS:text,DS: data
myprog proc
mov ax,data
mov DS,ax

mov cx,255
mov al,' '
jcxz m1
cycl:
mov ah,02h
mov dl, al
int 21h
inc al
loop cycl
m1:

mov ax,4c00h
int 21h
myprog endp
text ends
data segment
str db 20 dup(0)
s dw ?
data ends
stack segment stack 'Stack'
dw 128 dup(?)
stack ends
end myprog

 
qlikeДата: Четверг, 11.10.2007, 06:44 | Сообщение # 5
Admin
Группа: Администраторы
Сообщений: 18
Репутация: 0
Статус: Offline
Программа,которая выводит СКАН-код нажимаемых клавиш

-----------------------------------------------------------------------
.model tiny
.stack 100h
.data
i db 0
.code
pusk:
mov ax,@data
mov ds,ax
mov ah,00h
int 16h
mov i,ah
mov ah,0
mov al,i
mov dl,100
div dl
mov i,ah
mov dl,al
add dl,48
mov ah,02h
int 21h
mov ah,0
mov al,i
mov dl, 10
div dl
mov i,ah
mov dl,al
add dl, 48
mov ah,02h
int 21h
mov dl,i
add dl,48
mov ah,02h
int 21h
mov ax, 4c00h
int 21h
end pusk

Сообщение отредактировал qlike - Четверг, 11.10.2007, 06:45
 
ГостьДата: Среда, 28.11.2007, 01:07 | Сообщение # 6
Группа: Гости





кто-нить может написать исходник секундомера на ассме??? очень нужнооооо!!! плиииз!!!
 
Форум » Программирование » Assembler » Исходники на Ассемблере
  • Страница 1 из 1
  • 1
Поиск: