 |
|
 |
SITE LOGO
Пятница, 19.04.2024, 02:40
Приветствую Вас Гость
Исходники на Ассемблере - Форум
|
Исходники на Ассемблере
| |
| qlike | Дата: Понедельник, 09.04.2007, 18:44 | Сообщение # 1 |
|
Admin
Группа: Администраторы
Сообщений: 18
Статус: Offline
| Здесь выкладываем .....исходники на Ассемблере.
Сообщение отредактировал qlike - Четверг, 11.10.2007, 06:45 |
| |
| |
| qlike | Дата: Вторник, 10.04.2007, 05:37 | Сообщение # 2 |
|
Admin
Группа: Администраторы
Сообщений: 18
Статус: 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
Статус: 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
Статус: 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
Статус: 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 |
|
Группа: Гости
| кто-нить может написать исходник секундомера на ассме??? очень нужнооооо!!! плиииз!!!
|
| |
| |
|
 |
