telphone.asm

电话薄的功能,可以实现输入输出的功能,还可以删除

data segment 
mess1 db 'Please input  name:',13,10,'$' 
mess2 db 'Please input a telephone number:',13,10,'$' 
mess3 db 'do you want a telephone number?(Y/N)$' 
mess4 db 'name?             tel',13,10,'$' 
mess5 db 'not found',13,10,'$'

nam            label     byte 
maxlen    db      21
namelen   db      ?
namefld  db      21 dup(?)
crlf      db      13,10,'$'
namectr   db      0
nametab   db      30 dup(20 dup(' '))



telmaxlen    db    21
tellen    db       ?
telfld    db       21 dup(?)
telctr    db       0
data ends 
program segment 
      assume cs:program,ds:data,es:data 

main proc   far

     push     ds 
     push     es 
     sub      ax,ax 
     push     ax 

     mov      ax,data 
     mov      ds,ax 
     mov      es,ax 
     cld 
     lea di,nametab
inputloop:
   call store_name
  
  

main endp 

store_name  proc  near
      mov  ah,09
      lea dx,mess1
      int 21h
      mov ah,0ah
      mov dx,nam
      int 21h
      mov ah,09
      lea dx,crlf
      int 21h
      mov bh,0
      mov bl,namelen
      mov  cx,21
      sub cx,bx
rotate:  mov namefld[bx],20h
        inc bx
        loop rotate
        ret
store_name endp



inphone   proc near
      mov ah,9
      lea   dx,mess2
      int 21h
      mov ah,0ah
      mov dx,telmaxlen
      int 21h
      mov ah,09
      lea dx,crlf
      int 21h
      mov bh,0
      mov bl,tellen
      mov  cx,21
      sub cx,bx
rotate1:  mov telfld[bx],20h
         inc bx
         loop rotate1
         ret
inphone  endp

namesort   proc near
      
    namesort endp

input_name  proc near
  
      input_name endp

name_search  proc near
       
  name_search  endp

printine   proc near

       printine endp
  

program ends
  end main