Project on phonebook
.Model small
.Data
msg1 db 10, 13, ' -----------------------------------------------------------', 10, 13
db 10, 13, ' PHONEBOOK' ,10,13
db 10, 13, ' -----------------------------------------------------------', 10, 13
db ' $'
msg2 db 10, 13, 10, 13, ' Enter Name: $'
msg3 db 10, 13, 10, 13, ' Enter Contact Name : $'
msg15 db 10, 13, 10, 13, ' Access denied!$'
msg17 db 10, 13, 10, 13, ' Contact Deleted.$'
msg24 db '*.', 0
msg14 db 10, 13, 10, 13, 'No Contacts!$',10,13,10,13
msg16 db 10, 13, 10, 13, 'Contact created.$'
msg35 db 10, 13, 10, 13, ' Sorry Contact Not Match !!$'
msg36 db 10, 13, 10, 13, ' C.Call E.Edit D.Delete $'
msg37 db 10, 13, 'Calling...'
db 10, 13, 'Press any key to End Call$'
msg26 db 10, 13, '$'
msg27 db 10, 13, 'Press any key to continue$',10,13
msg28 db 10, 13, 10, 13, ' Enter Number (Press Esc to stop):$'
msg31 db '$'
msg6 db 10, 13, 10, 13, ' Number : $'
msg21 db 10, 13, 10, 13, ' Sorry Contact Not Match !!$'
msg30 db 10, 13, 10, 13, ' Search Name : $'
buffer1 db 80, 0, 80 dup(0)
buffer2 db 80, 0, 80 dup(0)
msg32 db 10, 13, 'A.Add S.Search $' ,10 , 13
.Code
start :
mov ax, @Data
mov ds, ax
begin :
mov ax, 3h ; clear screen by
int 10h ; changing video mode
call disp2
option:
lea dx,msg32
call disp1
call readch ; read choice
and al, 0fh
cmp al, 1 ; branch to appropriate
jnz a ; module depending on
jmp cr_file ; the choice
a : cmp al, 3
jz vw_file
mov ax, 4c00h ; exit program
int 21h
cr_file:lea dx, msg2 ; module for creating a file
call disp1
call read1 ; read name of file to be
lea dx, buffer1[2] ; created
mov cx, 0
mov ah, 3ch ; create the file
int 21h
push ax ; push file handle onto stack.
lea dx, msg28 ; ask if data is to
call disp1 ; be input
call readch ; read choice
and al, 0fh
cmp al, 9 ; if choice = 'Y' or 'y'
jnz no
lea dx, msg29
call disp1
pop bx ; retrieve file handle from stack.
mov buffer1[1], 0
write : call readch ; read data character by character.
mov buffer1[0], al
cmp buffer1[0], 27 ; check if character is 'Esc'(stop).
jz no
cmp buffer1[0], 0dh
jne neol
lea dx, msg26
call disp1
mov si, dx
mov byte ptr ds:[si + 2], 0
mov cx, 3
jmp com
neol : mov cx, 1
lea dx, buffer1[0]
com : mov ah, 40h ; write to the file
int 21h
mov byte ptr ds:[si + 2], '$'
jmp write
no : lea dx, msg16 ; creation successful
call disp1
call readch
jmp begin
vw_file:lea dx, msg30 ; module to view the
call disp1 ; contents of a file
call read1 ; read name of file
lea dx, msg6
call disp1
call disp1
lea dx, buffer1[2] ; open the file
mov ax, 3d02h
int 21h
mov buffer2[0], 0
cmp ax, 2 ; error if file not found
jnz v_err
lea dx, msg14
call disp1
jmp endv
v_err : cmp ax, 3 ; error if path not found
jnz cont2
;jnz push
lea dx, msg21
call disp1
jmp endv
cont2 : mov bx, ax
push ax
mov cx, 1
lea dx, buffer1
mov ah, 3fh ; read the file
int 21h
cmp ax, 0 ; stop if end-of-file
jz push
jnz show2
show2 : mov buffer1[1], '$'
lea dx, buffer1
call disp1
pop ax
jmp cont2
cmp buffer1[0], 0dh
; jnz show
inc buffer2[0]
cmp buffer2[0], 23 ; check if end of page
jnz show1
;jnz push
lea dx, msg26
call disp1
call readch
mov buffer2[0], 0
lea dx, msg26
call disp1
push: mov ah,02
mov al,0
mov cx,0
mov dx,10
int 21
;int 21h
;push ax ; push file handle onto stack.
lea dx, msg28 ; ask if data is to
call disp1 ; be input
call readch ; read choice
and al, 0fh
cmp al, 9 ; if choice = 'Y' or 'y'
jnz no1
lea dx, msg29
call disp1
pop bx ; retrieve file handle from stack.
mov buffer1[1], 0
write1 : call readch ; read data character by character.
mov buffer1[0], al
cmp buffer1[0], 27 ; check if character is 'Esc'(stop).
jz no1
cmp buffer1[0], 0dh
jne neol1
lea dx, msg26
call disp1
mov si, dx
mov byte ptr ds:[si + 2], 0
mov cx, 3
jmp com1
neol1 : mov cx, 1
lea dx, buffer1[0]
com1: mov ah, 40h ; write to the file
int 21h
mov byte ptr ds:[si + 2], '$'
jmp write1
no1 : lea dx, msg16 ; creation successful
call disp1
call readch
jmp begin
;jmp cr_file
show1 : mov buffer1[1], '$'
lea dx, buffer1
call disp1
pop ax
jmp cont2
endv : call readch
jmp begin
cm_dir :lea dx, msg9 ; module for removing directory
call disp1
call read1 ; read name of directory to
lea dx, buffer1[2] ; be removed
mov ah, 3ah ; remove directory
int 21h
cmp ax, 3 ; error if path not found
jnz err61
lea dx, msg21
call disp1
jmp endg1
err61 : cmp ax, 5 ; error if access denied
jnz dir1
lea dx, msg15
call disp1
jmp endg
done20 : lea dx, msg20 ; deletion successful
call disp1
endg1 : call readch
jmp begin
dir1: mov ax, 3h ; module for displaying
int 10h ; contents of directory
lea dx, msg24
mov cx, 0
mov ah, 4eh ; Get first file
int 21h ; in directory
cmp ax, 18 ; Check if no files
jnz list1 ; in directory
lea dx, msg14 ; Display message
call disp1 ; 'File not found'
call readch
jmp begin
list1 : mov ah, 2fh ; Get dta address
int 21h
mov byte ptr es:[bx + 42], 0
add bx, 1eh
mov buffer1[0], 0
char1 : mov dl, byte ptr es:[bx] ; Get character of
inc bx ; filename from DTA
inc buffer1[0]
cmp dl, '.' ; Check if extension
jnz cont30 ; is starting
cont40 : lea dx, msg31
call disp1
inc buffer1[0]
cmp buffer1[0], 0bh ; Check for end of filename
jne cont40 ; buffer - 13 characters
jmp char1
cont30 : mov ah, 02h ; Display character
int 21h ; of filename
cmp dl, 0 ; Check for end
jne char1 ; of file name
lea dx, msg26
call disp1
inc cx
cmp cx, 23 ; Check for end of page
jne cont10
lea dx, msg27
call disp1
call readch
mov cx, 0
lea dx, msg26
call disp1
cont10 : mov ah, 4fh ; Get next file
int 21h
jnc list1
lea dx, msg27
call disp1
call readch
;jmp begin
jmp dl_file1
cp_file:lea dx, msg6 ; module for copying a file
call disp1 ; read name of file to
call read1 ; to be copied
mov cx, bx
lea dx, msg7
call disp1
call read2 ; read path of destination
mov buffer2[bx], '\' ; directory
inc bx
mov ax, 2
cp : mov si, ax ; concatenating path and filename
mov dl, buffer1[si]
mov buffer2[bx], dl
inc bx
inc al
cmp cx, ax
jne cp
mov cx, 0
lea dx, buffer2[2] ; create the file in
mov ah, 3ch ; destination directory
int 21h
cmp ax, 3 ; Display error message
jnz cont ; if path not found
lea dx, msg21
call disp1
jmp cp_file ; on error read data again
cont : push ax
lea dx, buffer1[2] ; open source file
mov ax, 3d00h
int 21h
push ax
rd : pop bx
lea dx, buffer1
mov cx, 80h ; read source file
mov ah, 3fh
int 21h
cmp ax, 0 ; check if entire file
jz fin ; has been read
mov cx, bx
pop bx
push bx
push cx
mov cx, ax
lea dx, buffer1 ; write into new file to
mov ah, 40h ; complete copy task
int 21h
jmp rd ; read file further
fin : lea dx, msg25 ; copy successful
call disp1
call readch
jmp begin
disp1 proc ; module for display of
mov ah, 09h ; a string on screen
int 21h
ret
disp1 endp
readch proc ; module for reading a
mov ah, 01h ; character from keyboard
int 21h
ret
readch endp
read1 proc ; module for reading
mov [buffer1], 80 ; first string
lea dx, buffer1
mov ah, 0ah ; read string from keyboard
int 21h
mov bl, buffer1[1]
mov bh, 0
add bx, 2
mov buffer1[bx], 0 ; ASCIIZ string, so
ret ; terminate with 0
read1 endp
read2 proc ; module for reading
lea dx, buffer2 ; second string
mov ah, 0ah
int 21h
mov bl, buffer2[1]
mov bh, 0
add bx, 2
mov buffer2[bx], 0
ret
read2 endp
end start
No comments:
Post a Comment