Seminar e
Seminar e
Seminar e
Mov dl,08h
Int 21h
Dec bx
Dec di
Jmp @input_loop
@input_error
Mov ah,2
Mov dl,07h
Int 21h
Jmp @input_loop
@not_backspace
Stosbx
Inc bx
Jmp @input_loop
@end_input
Pop di
Pop ax
Ret
Read_str end
Disp_str proc
Push ax
Push bx
Push cx
Push dx
Push si
Cld
Mov cx,bx
Mov ah,2
Jcxz @skip_output; jump if ecx is 0
@output_loop
Lodsb
Mov dl,al
Int 21h
loop@output_loop
@skip_output
Pop si
Pop dx
Pop cx
Pop bx
Pop ax
Ret
Dis_str endp
End main
LEXIMI DHE SHFAQJA E ORES
SE BIOSIT NE EKRAN
Data segment
Bufo db data e bios eshte: $
Buf db 8 dup (0), $
Data ends
Code ends
Code segment
Assume cs: code, cd: data
Start: mov ax,data
Mov ds,ax
Mov es,ax
Mov ax,0fffh
Mov ds,ax
Mov si, 0005h
Mov di,offset buf
Cld
Mov cx,08h
Next: lodsb
Sto sb
Loop next
Mov ab,09h
Mov bx, data
Mov ds,bx
Lea dx,bufo
Int 21h
Code ends
GERME E VOGEL NE GERME TE
MADHE
.model small
.stack 100h
.data
Promt_1 db jepni shkronjen e vogel: $
Promt_2 db 0dh,0ah, shkronja madhe
e: $
.code
Main proc
Mov ax,data
Mov ds,ax
Lea dx,promt_1
Mov ah,9
Int 21h
Mov ah,1
Int 21h
Mov bl,al
Lea dx,promt_2
Mov ah,9
Int 21h
And bl,0dfh
Mov ah,2
Mov dl,bl
Int 21h
Main endp
End main
KRAHASIMI I DY STRINGAVE
Data segment
String1 db kjo eshte nje stringe e pare
SL equ (string1)
Nequ stringat nk jan te =
Equ db stringat jane te =
Data ends
Extra segment
String2 db kjo eshte stringa e pare
Code segmend
Assume cs:code, ds:data, es: extra
Start: mov ax,data
Mov ds,ax
Mov ax, extra
Mov es,ax
Mov si, offset string1
Mov di, offset string2
Cld
Mov cx,sl; srting length
Rep cmppsb; krahasim byte per byte
Jz loop
Mov ah,09h
Mov dx,offset nequ
Int 21h
Jmp exit p
Loop: mov ah,09h
Mov dx, ooffset equ
Int 03h
Exitp:nop
Int 03h
Code ends
GJETJA E NJE FJALE BRENDA 1
STRINGE
LIST SW 66H,51H,29H, 62H,89H
Dest equ 1000h
Count equ 05h
Data ends
Code segment
Assume cs: code, ds:data