Assembly Icin Uygulamalar
Suleyman Demirel Universitesi - Uluborlu Meslek Yuksek Okulu'nda Gelistirmis oldugum uygulamalari paylasmak istedim... Umarim Yardimci olabilirim biraz da olsa...
Asagida bulunan komutlarin konu basliklari yukarda ki gibidir...
Ascii Tablosu
page 60,132
title asciii
.model small
.stack 64
.data
ctr db 00,'$'
.code
ana proc far
mov ax,@data
mov ds,ax
call silme
call cursor
mov cx,256
lea dx,ctr
don:mov ah,09
int 21h
inc ctr
loop don
.exit
ana endp
silme proc near
mov ah,06
mov bh,17h
mov cx,0000
mov dx,184fh
int 10h
ret
silme endp
cursor proc near
mov ah,02
mov bh,00
mov dx,0000
int 10h
ret
cursor endp
end
Iki Sayının Toplamı
page 60,132
title add
.model small
.stack 64
.data
sayi1 dw 111h
sayi2 dw 222h
sayi3 dw ?
.code
ana proc far
mov ax,@data
mov ds,ax
mov ax,sayi1
add ax,sayi2
mov sayi3,ax
mov ax,4c00h
int 21h
.exit
ana endp
end
page 60,132
title readd
sseg segment para 'stack'
db 64 dup(0)
sseg ends
dseg segment para 'data'
sayi1 dw 100
sayi2 dw 200
sayi3 dw ?
dseg ends
cseg segment para 'code'
ana proc far
assume ss:sseg,ds:dseg,cs:cseg
mov ax,dseg
mov ds,ax
mov ax,sayi1
add ax,sayi2
mov sayi3,ax
mov ax,4c00h
int 21h
ana endp
cseg ends
end
Ekran Silme (mavi)
page 60,132
title add
.model small
.stack 64
.data
.code
ana proc far
mov ax,@data
mov ds,ax
mov ax,0600h
mov bh,14h
mov cx,0000h
mov dx,184fh
int 10h
mov ax,4c00h
int 21h
.exit
ana endp
end
Ekran Silme (Kirmizi - Mavi)
page 60,132
title add
.model small
.stack 64
.data
.code
ana proc far
mov ax,@data
mov ds,ax
mov ax,0600h
mov bh,14h
mov cx,0000h
mov dx,1824h
int 10h
mov ax,0600h
mov bh,41h
mov cx,0024h
mov dx,184fh
int 10h
mov ax,4c00h
int 21h
.exit
ana endp
end
Ekran Silme (Ceyrek Mavi)
page 60,132
title add
.model small
.stack 64
.data
.code
ana proc far
mov ax,@data
mov ds,ax
mov ax,0600h
mov bh,16h
mov cx,0000h
mov dx,0924h
int 10h
mov ax,4c00h
int 21h
.exit
ana endp
end
Alan Degistirme
page 60,132 title add .model small .stack 64 .data alan1 db 'umyo' alan2 db 'xxxx' .code ana proc far mov ax,@data mov ds,ax mov es,ax mov cx,4 lea si,alan1 lea di,alan2 don:mov al,
mov
,al
inc si
inc di
dec cx
jnz don
.exit
ana endp
end
Kucuk Harfi Buyult
page 60,132 title add .model small .stack 64 .data yazi db 'Bilgisayar Programciligi' .code ana proc far mov ax,@data mov ds,ax mov cx,24 lea bx,yazi don:mov al,
cmp al,61h jb git cmp al,7ah ja git and al,11011111b mov
,al
git:inc bx
loop don
.exit
ana endp
end
Buyuk Harfi Kucult
page 60,132 title add .model small .stack 64 .data yazi db 'bILGISAYAR pROGRAMCILIGI' .code ana proc far mov ax,@data mov ds,ax mov cx,24 lea bx,yazi don:mov al,
cmp al,41h jb git cmp al,5ah ja git xor al,00100000b mov
,al
git:inc bx
loop don
.exit
ana endp
end
Ekrana Cerceve (ic ice umyo)
page 60,132
title add
.model small
.stack 64
.data
mesaj db 'umyo','$'
.code
ana proc far
mov ax,@data
mov ds,ax
call silme
call cerceve
call kursor
call yazdir
.exit
ana endp
silme proc near
mov ah,06
mov bh,17
mov cx,0000
mov dx,184fh
int 10h
ret
silme endp
cerceve proc near
mov ah,06
mov bh,47h
mov ch,00
mov cl,30
mov dh,6
mov dl,50
int 10h
ret
cerceve endp
kursor proc near
mov ah,02
mov bh,00
mov dh,03
mov dl,38
int 10h
ret
kursor endp
yazdir proc near
mov ah,09
lea dx,mesaj
int 21h
ret
yazdir endp
end
Birleri Toplama
page 60,132
title add
.model small
.stack 64
.data
.code
ana proc far
mov ax,@data
mov ds,ax
mov al,11
mov bx,0000
mov cx,8
don:shr al,1
jnc git
add bl,1
git:dec cx
loop don
.exit
ana endp
end
Cift Ve Tek Sayilari Toplama
page 60,132
title add
.model small
.stack 64
.data
.code
ana proc far
mov ax,@data
mov ds,ax
mov al,10
mov bx,0000
mov cx,8
shr al,1
jnc git
add bl,1
git:dec cx
add bl,0
.exit
ana endp
end
Dikey Renkler
page 60,132
title add
.model small
.stack 64
.data
renk db 00
satir1 db 00
sutun1 db 00
satir2 db 79
sutun2 db 05
sayac db 00
.code
ana proc far
mov ax,@data
mov ds,ax
mov ax,0600h
mov bh,17h
mov cx,0000
mov dx,184fh
call silme
mov sayac,15
don:mov bh,renk
mov ch,satir1
mov cl,sutun1
mov dh,satir2
mov dl,sutun2
add renk,11h
add sutun1,05
add sutun2,05
call silme
dec sayac
jnz don
mov ax,4c00h
int 21h
.exit
ana endp
silme proc near
mov ax,0600h
int 10h
ret
silme endp
end
Yatay Renkler
page 60,132
title add
.model small
.stack 64
.data
renk db 00
satir1 db 00
sutun1 db 00
satir2 db 02
sutun2 db 79
sayac db 00
.code
ana proc far
mov ax,@data
mov ds,ax
mov ax,0600h
mov bh,17h
mov cx,0000
mov dx,184fh
call silme
mov sayac,15
don:mov bh,renk
mov ch,satir1
mov cl,sutun1
mov dh,satir2
mov dl,sutun2
add renk,11h
add satir1,02
add satir2,02
call silme
dec sayac
jnz don
mov ax,4c00h
int 21h
.exit
ana endp
silme proc near
mov ax,0600h
int 10h
ret
silme endp
end
Girilen Mesaji Ortalama
page 60,132 title add .model small .stack 64 .data adpara label byte maxuz db 20 geruz db ? adalan db 20 dup('') mesaj db 'name=','$' .code ana proc far mov ax,@data mov ds,ax mov es,ax call silme bas:mov dx,0000 call cursor call adgoruntule call isimgir cmp geruz,00 je git call dolarkoy call ortalayaz jmp bas git:.exit ana endp silme proc near mov ah,06 mov bh,17h mov cx,0000 mov dx,184fh int 10h ret silme endp cursor proc near mov ah,02 mov bh,00 int 10h ret cursor endp adgoruntule proc near mov ah,09 lea dx,mesaj int 21h ret adgoruntule endp isimgir proc near mov ah,0ah lea dx,adpara int 21h ret isimgir endp dolarkoy proc near mov bh,00 mov bl,geruz mov adalan
,07 mov adalan
,'$'
ret
dolarkoy endp
ortalayaz proc near
mov dl,geruz
shr dl,1
neg dl
add dl,40
mov dh,12
call cursor
mov ah,09
lea dx,adalan
int 21h
ret
ortalayaz endp
end
.exit
ana endp
end
Kursor Bir Ust Yan
page 60,132
title add
.model small
.stack 64
.data
.code
ana proc far
mov ax,@data
mov ds,ax
mov ah,03
mov bh,00
int 10h
dec dh
inc dl
mov ah,02
int 10h
.exit
ana endp
end
Kursor'u Satirin En Sonuna Konumlandir
page 60,132
title add
.model small
.stack 64
.data
.code
ana proc far
mov ax,@data
mov ds,ax
mov ah,03
mov bh,00
int 10h
mov dl,79
mov ah,02
int 10h
.exit
ana endp
end
Cerceve
page 60,132
title cerceve
.model small
.stack 64
.data
sayac db 00
.code
ana proc far
mov ax,@data
mov ds,ax
call silme
mov dh,10
mov dl,35
call cursor
mov al,'-'
mov cx,10
call ciz
mov dh,15
call cursor
call ciz
mov sayac,05
mov al,'|'
mov cx,1
mov dh,10
mov dl,35
don:call cursor
call ciz
inc dh
dec sayac
jnz don
mov sayac,05
mov dh,10
mov dl,45
don1:call cursor
call ciz
inc dh
dec sayac
jnz don1
.exit
ana endp
cursor proc near
mov ah,02
mov bh,00
int 10h
ret
cursor endp
ciz proc near
mov ah,09
mov bh,00
mov bl,14h
int 10h
ret
ciz endp
silme proc near
mov ah,06h
int 10h
ret
silme endp
end
Alt Alta Bes Cizgi
page 60,132
title slash
.model small
.stack 64
.data
sayac db 00
.code
ana proc far
mov ax,@data
mov ds,ax
mov sayac,5
mov al,'|'
mov cx,1
mov dh,10
mov dl,35
don: mov ah,02
mov bh,00
int 10h
mov ah,09h
mov bh,00
mov bl,17h
int 10h
inc dh
dec sayac
jnz don
.exit
ana endp
end
Yan Yana On Yildiz
page 60,132
title slash
.model small
.stack 64
.data
sayac db 00
.code
ana proc far
mov ax,@data
mov ds,ax
mov ah,02h
mov dh,10
mov dl,35
int 10h
mov ah,09h
mov al,'*'
mov bh,00
mov bl,17h
mov cx,10
int 10h
.exit
ana endp
end
Kursor'u End Tusu Ile Satir Sonuna Konumlandir
page 60,132
title slash
.model small
.stack 64
.data
sayac db 00
.code
ana proc far
mov ax,@data
mov ds,ax
mov ah,00h
int 16h
cmp al,0
jne cik
cmp ah,4fh
jne cik
mov ah,03h
mov bh,00
int 10h
mov ah,02h
mov bh,00
mov dl,79
int 10h
cik:.exit
ana endp
end
Caps Lock Konumlandir
BIOSDATA SEGMENT AT 40H
ORG 17H
KLV DB ?
BIOSDATA ENDS
CODESG SEGMENT PARA
ASSUME CS:CODESG,DS:BIOSDATA
ANA PROC FAR
MOV AX,BIOSDATA
MOV DS,AX
xor KLV,01000000b
MOV AX,4C00H
INT 21H
ANA ENDP
CODESG ENDS
END
Caps Lock Yak
BIOSDATA SEGMENT AT 40H
ORG 17H
KLV DB ?
BIOSDATA ENDS
CODESG SEGMENT PARA
ASSUME CS:CODESG,DS:BIOSDATA
ANA PROC FAR
MOV AX,BIOSDATA
MOV DS,AX
mov KLV,01000000b
MOV AX,4C00H
INT 21H
ANA ENDP
CODESG ENDS
END
Yuruyen Isiklar
biodata segment AT 40h
org 17h
klvdurum db ?
sayac db ?
biodata ends
codesg segment para 'code'
ana proc far
assume ds:biodata,cs:codesg
mov ax,biodata
mov ds,ax
DON:
mov klvdurum,00100000b
mov ah,00
int 16h
mov sayac,11111111b
gel:dec sayac
jnz gel
mov klvdurum,01000000b
mov ah,00
int 16h
mov sayac,11111111b
git:dec sayac
jnz git
mov klvdurum,00010000b
mov ah,00
int 16h
mov sayac,11111111b
dur:dec sayac
jnz dur
jmp DON
mov ah,4ch
int 21h
ana endp
codesg ends
end
Alt Alta Bes Mesaj
page 60,132
title umyo
.model small
.stack 64
.data
sayac db 00
mesaj db 'umyo','$'
.code
ana proc far
mov ax,@data
mov ds,ax
mov dx,0000
mov ah,02
mov dh,10
mov dl,30
int 10h
mov sayac,05
don:mov ah,09h
lea dx,mesaj
int 21h
mov ah,03
mov bh,00
int 10h
inc dh
mov dl,30
mov ah,02
int 10h
dec sayac
jnz don
.exit
ana endp
end
String Islemler 01
page 60,132
title stringler
.model small
.stack 64
.data
alan1 db 'bilgisayar'
alan2 db 10 dup ('')
alan3 db 10 dup ('')
.code
ana proc near
call ornek1
call ornek2
call ornek3
.exit
ana endp
ornek1 proc near
cld
mov cx,10
lea si,alan1
lea di,alan2
rep movsb
ret
ornek1 endp
ornek2 proc near
CLD
mov cx,5
lea si,alan1
lea di,alan2
rep movsw
ret
ornek2 endp
ornek3 proc near
SED
mov cx,10
lea si,alan1+9
lea di,alan2+9
rep movsb
ret
ornek3 endp
end
String Islemler 02
page 60,132
title stringler
.model small
.stack 64
.data
alan1 db 'bilgisayar'
alan2 db 10 dup ('')
alan3 db 10 dup ('')
.code
ana proc near
call ornek1
call ornek2
.exit
ana endp
ornek1 proc near
cld
mov cx,10
lea si,alan1
lea di,alan2+9
don:lodsb
dec di
loop don
ret
ornek1 endp
ornek2 proc near
sed
mov cx,5
lea si,alan1+8
lea di,alan2+8
gel:lodsw
stosw
loop gel
ret
ornek2 endp
end
CMPS Karsilastirma
page 60,132
title stringler
.model tiny
.code
org 100h
begin:jmp ana
alan1 db 'bilgisayar'
alan2 db 'bilgiyazar'
md db 'dogru','$'
my db 'yanlis','$'
ana proc near
cld
mov cx,10
lea si,alan1
lea di,alan2
repe cmpsb
jne yanlis
mov ah,09
lea dx,md
int 21h
jmp son
yanlis:mov ah,09
lea dx,my
int 21h
son:.exit
ana endp
end
SCAS Tarama Kontrolleri
page 60,132
title stringler
.model tiny
.code
org 100h
begin:jmp ana
alan db 'bilgisayar'
mv db 'var','$'
my db 'yok','$'
ana proc near
cld
mov cx,10
mov al,5
lea di,alan
repe scasb
jne yoktur
mov ah,09
lea dx,mv
int 21h
jmp son
yoktur:mov ah,09
lea dx,my
int 21h
son:.exit
ana endp
end
SCAS Y'leri I Ile Yer Degistirme
page 60,132 title stringler .model tiny .code org 100h begin:jmp ana alan db 'byrol,pyrol,dyryol' ana proc near cld mov cx,21 mov al,'y' lea di,alan don:repne scasb jne cik dec di mov ah,'i' mov
,ah
inc di
jmp don
cik:.exit
ana endp
end
Tek - Cift
page 60,132 title tekcift .model small .stack 64 .data yazi1 db 'BILGISAYA','$' yazi2 db 'Bilgisayar','$' yazi3 db 'Bilgisayar','$' sayac db 00 .code ana proc far mov ax,@data mov ds,ax mov bx,0000 mov cx,00 lea bx,yazi1 mov sayac,0 don:mov al,
cmp al,'$'
je devam
inc bx
inc sayac
loop don
devam:mov al,sayac
shr al,1
jnc git
call tek
jmp son
git:call cift
son:.exit
ana endp
tek proc near
cld
mov cx,10
lea si,yazi1
lea di,yazi2
rep movsb
ret
tek endp
cift proc near
cld
mov cx,5
lea si,yazi1
lea di,yazi3
rep movsw
ret
cift endp
end
Tek - Cift (Bilgi Al)
.model small .stack 64 .data adpara label byte maxuz db 20 geruz db ? yazi1 db 20 dup (' ') mesaj db 'Kelime Girin=','$' yazi2 db 20 dup (' ') yazi3 db 20 dup (' ') sayac db 00 .code ana proc far mov ax,@data mov ds,ax mov es,ax call silme mov dx,0000 call cursor call kelimesor call kelimegir cmp geruz,00 je git call dolarkoy mov ah,03 int 10h inc dh call cursor mov cx,00 lea bx,yazi1 mov sayac,0 don:mov al,
cmp al,'$' je devam inc bx inc sayac jmp don devam:mov al,sayac shr al,1 jnc git call tek jmp son git:call cift son:.exit ana endp silme proc near mov ah,06 mov bh,17h mov cx,0000 mov dx,184fh int 10h ret silme endp cursor proc near mov ah,02 mov bh,00 int 10h ret cursor endp kelimesor proc near mov ah,09 lea dx,mesaj int 21h ret kelimesor endp kelimegir proc near mov ah,0ah lea dx,adpara int 21h ret kelimegir endp dolarkoy proc near mov bh,00 mov bl,geruz mov yazi1
,'$'
ret
dolarkoy endp
tek proc near
cld
mov cx,00
mov cl,geruz
lea si,yazi1
lea di,yazi2
rep movsb
ret
tek endp
cift proc near
mov cx,00
mov al,geruz
shr al,1
cld
mov cl,al
lea si,yazi1
lea di,yazi3
rep movsw
ret
cift endp
end
Harf Arama
page 60,132 title mesaj .model small .stack 64 .data adpara1 label byte maxuz db 20 geruz db ? cumle db 20 dup (' ') adpara2 label byte maxuz1 db 3 geruz1 db ? harf db 20 dup (' ') mesaj1 db 'Cumle Girin=','$' mesaj2 db 'Harf Girin=','$' ort db 00 sayac db 20 sss db 00 syc dW 00 .code ana proc far mov ax,@data mov ds,ax mov es,ax call silme bas:mov dx,0000 call cursor call kursornormal call cumlegir call bilgigir1 cmp geruz,00 je git call dolarkoy1 call biral call harfgir call bilgigir2 call dolarkoy2 call silme call ortalayaz call kursorbuyu mov dl,ort mov dh,12 call cursor mov sayac,00 mov al,geruz mov sss,10 MOV AH,01 INT 21H gel:call cursor mov syc,1111h don:dec syc jnz don mov ah,08 mov bh,00 int 10h cmp al,'A' jne git2 inc sayac git2:inc dl dec sss jnz gel mov ah,09 lea dx,sayac int 21h git:call kursornormal .exit ana endp silme proc near mov ah,06 mov bh,17h mov cx,0000 mov dx,184fh int 10h ret silme endp cursor proc near mov ah,02 mov bh,00 int 10h ret cursor endp cumlegir proc near mov ah,09 lea dx,mesaj1 int 21h ret cumlegir endp biral proc near mov ah,03 mov bh,00 int 10h inc dh mov ah,02 int 10h ret biral endp harfgir proc near mov ah,09 lea dx,mesaj2 int 21h ret harfgir endp bilgigir1 proc near mov ah,0ah lea dx,adpara1 int 21h ret bilgigir1 endp bilgigir2 proc near mov ah,0ah lea dx,adpara2 int 21h ret bilgigir2 endp dolarkoy1 proc near mov bh,00 mov bl,geruz mov cumle
,'$' ret dolarkoy1 endp dolarkoy2 proc near mov bh,00 mov bl,geruz1 mov harf
,'$'
ret
dolarkoy2 endp
kursorbuyu proc near
mov ah,01
mov ch,0
mov cl,7
int 10h
ret
kursorbuyu endp
kursornormal proc near
mov ah,01
mov ch,6
mov cl,7
int 10h
ret
kursornormal endp
ortalayaz proc near
mov dl,geruz
shr dl,1
neg dl
add dl,40
mov ort,dl
mov dh,12
call cursor
mov ah,09
lea dx,cumle
int 21h
ret
ortalayaz endp
end
Harf Degistirme
page 60,132 title add .model small .stack 64 .data adpara1 label byte maxuz1 db 20 geruz1 db ? kelime db 20 dup (' ') adpara2 label byte maxuz2 db 2 geruz2 db ? harfsec db 20 dup (' ') adpara3 label byte maxuz3 db 2 geruz3 db ? harfara db 20 dup (' ') mesaj1 db 'Kelime Girin=','$' mesaj2 db 'harf secin=','$' mesaj3 db 'degisecek harfi belirtin=','$' .code ana proc far mov ax,@data mov ds,ax mov es,ax call silme bas:mov dx,0000 call cursor call kelimesor call kelimegir cmp geruz1,00 je git call dolarkoy1 mov ah,03 int 10h inc dh call cursor call harfsor call harfgir cmp geruz2,00 je git call dolarkoy2 mov ah,03 int 10h inc dh call cursor call harfarasor call harfaragir cmp geruz3,00 je git call dolarkoy3 mov ah,03 int 10h inc dh call cursor cld mov cx,20 mov al,harfsec lea di,kelime don:repne scasb jne gel dec di mov ah,harfara mov
,ah inc di jmp don gel: mov ah,03 int 10h inc dh call cursor mov ah,09 lea dx,kelime int 21h jmp bas git:.exit ana endp silme proc near mov ah,06 mov bh,17h mov cx,0000 mov dx,184fh int 10h ret silme endp cursor proc near mov ah,02 mov bh,00 int 10h ret cursor endp kelimesor proc near mov ah,09 lea dx,mesaj1 int 21h ret kelimesor endp kelimegir proc near mov ah,0ah lea dx,adpara1 int 21h ret kelimegir endp harfsor proc near mov ah,09 lea dx,mesaj2 int 21h ret harfsor endp harfgir proc near mov ah,0ah lea dx,adpara2 int 21h ret harfgir endp harfarasor proc near mov ah,09 lea dx,mesaj3 int 21h ret harfarasor endp harfaragir proc near mov ah,0ah lea dx,adpara3 int 21h ret harfaragir endp dolarkoy1 proc near mov bh,00 mov bl,geruz1 mov kelime
,'$' ret dolarkoy1 endp dolarkoy2 proc near mov bh,00 mov bl,geruz2 mov harfsec
,'$' ret dolarkoy2 endp dolarkoy3 proc near mov bh,00 mov bl,geruz3 mov harfara
,'$'
ret
dolarkoy3 endp
end
Sifre Programi V2.0 (3 Hakta Bilme)
page 60,132 title sifreiki .model small .stack 64 .data sifre db 'umyo','$' hak db 00 adpara label byte maxuz db 20 geruz db ? girilen db 20 dup (' ') mesaj1 db 'sifeyi giriniz=','$' mesaj2 db 'sifreniz Dogru.','$' mesaj3 db 'sifreniz Yanlis.Tekrar Deneyin.','$' mesaj4 db '3 Hakkinizda Sona Ermistir.','$' .code ana proc far mov ax,@data mov ds,ax mov es,ax call silme mov hak,3 bas:mov dx,0000 call cursor call sifresor lea si,girilen don:call cursor mov ah,08 int 21h cmp al,13 je kars mov
,al
call yildiz
inc si
inc dl
jmp don
mov ah,03
int 10h
inc dh
call cursor
kars:cld
mov cx,4
lea si,sifre
lea di,girilen
repe cmpsb
jne yanlis
mov ah,09h
lea dx,mesaj2
int 21h
jmp son
yanlis:dec hak
je git
mov ah,09
lea dx,mesaj3
int 21h
jmp bas
git:mov ah,09
lea dx,mesaj4
int 21h
son:.exit
ana endp
silme proc near
mov ah,06
mov bh,17h
mov cx,0000
mov dx,184fh
int 10h
ret
silme endp
cursor proc near
mov ah,02
mov bh,00
int 10h
ret
cursor endp
yildiz proc near
mov ah,09
mov al,'*'
mov bh,00
mov bl,47h
mov cx,1
int 10h
ret
yildiz endp
sifresor proc near
mov ah,09
lea dx,mesaj1
int 21h
ret
sifresor endp
end
Yildizsiz Sifre Programi V1.0
page 60,132 title sifreiki .model small .stack 64 .data sifre db 'umyo','$' adpara label byte maxuz db 20 geruz db ? girilen db 20 dup (' ') mesaj1 db 'sifreyi giriniz=','$' mesaj2 db 'sifreniz Dogru.','$' mesaj3 db 'sifreniz Yanlis.','$' .code ana proc far mov ax,@data mov ds,ax mov es,ax call silme bas:mov dx,0000 call cursor call sifresor call sifregir cmp geruz,00 je son call dolarkoy mov ah,03 int 10h inc dh call cursor mov cx,5 lea si,sifre lea di,girilen kars:mov al,
cmp
,al jne yanlis mov ah,09h lea dx,mesaj2 int 21h jmp son yanlis:mov ah,09 lea dx,mesaj3 int 21h son:.exit ana endp silme proc near mov ah,06 mov bh,17h mov cx,0000 mov dx,184fh int 10h ret silme endp cursor proc near mov ah,02 mov bh,00 int 10h ret cursor endp sifresor proc near mov ah,09 lea dx,mesaj1 int 21h ret sifresor endp sifregir proc near mov ah,0ah lea dx,adpara int 21h ret sifregir endp dolarkoy proc near mov bh,00 mov bl,geruz mov girilen
,'$'
ret
dolarkoy endp
end
Yildizli Sifre Programi V1.0
page 60,132 title sifreiki .model small .stack 64 .data sifre db 'umyo','$' adpara label byte maxuz db 20 geruz db ? girilen db 5 dup (' ') mesaj1 db 'sifre gir=','$' mesaj2 db 'sifreniz Dogru.','$' mesaj3 db 'sifreniz Yanlis.','$' .code ana proc far mov ax,@data mov ds,ax mov es,ax call silme bas:mov dx,0000 call cursor call sifresor don:call cursor mov ah,08 int 21h cmp al,13 je kars mov
,al call yildiz inc bx inc dl jmp don kars: call dolarkoy mov cx,5 lea si,sifre lea di,girilen mov al,
cmp
,al jne yanlis mov ah,09h lea dx,mesaj2 int 21h jmp son yanlis:mov ah,09 lea dx,mesaj3 int 21h son:.exit ana endp silme proc near mov ah,06 mov bh,17h mov cx,0000 mov dx,184fh int 10h ret silme endp cursor proc near mov ah,02 mov bh,00 int 10h ret cursor endp yildiz proc near mov ah,09 mov al,'*' mov bh,00 mov bl,47h mov cx,1 int 10h ret yildiz endp sifresor proc near mov ah,09 lea dx,mesaj1 int 21h ret sifresor endp sifregir proc near mov ah,0ah lea dx,adpara int 21h ret sifregir endp dolarkoy proc near mov bh,00 mov bl,geruz mov girilen
,'$' ret dolarkoy endp end
Comments