编写一个子程序嵌套结构的程序模块，分别从键盘输入姓名及8个字符的电话号码，并以一定的格式显示出来

最新推荐文章于 2023-02-17 21:23:49 发布

lf144090

最新推荐文章于 2023-02-17 21:23:49 发布

阅读量6.2k

点赞数 4

分类专栏：汇编文章标签：电话 input numbers date

本文链接：https://blog.csdn.net/lf144090/article/details/1917021

版权

汇编专栏收录该内容

14 篇文章 0 订阅

订阅专栏

;编写一个子程序嵌套结构的程序模块，分别从键盘输入姓名及8个字符的电话号码，并以一定的格式显示出来
;author:野渡无人
;create date:2007-12-4
;***************************************************************
data segment
     No_of_name db 20
     No_of_phone db 8
     inbuf db 20 dup(?)
     outname db 20 dup(?),'$'
     outphone db 8 dup(?),'$'
     message1 db 'please input name:','$'
     message2 db 'please input a telephone number:','$'
     message3 db 'NAME',16 dup(20h),'TEL.',13,10,'$'
     errormessage1 db 'you should input 8 numbers!',13,10,'$'
     errormessage2 db 'you input a wrong number!',13,10,'$'
     flag db ?
data ends
;**************************************************************
prog segment
;--------------------------------------------------------------
main proc far
      assume cs:prog,ds:data
start:
       push ds
       sub ax,ax
       push ax

       mov ax,data
       mov ds,ax
       mov flag,0

       lea dx,message1
       mov ah,09
       int 21h

call input_name
call crlf

       lea dx,message2
       mov ah,09
       int 21h

call inphone
call crlf

cmp flag,1
je exit

       call printline
exit:
       ret
main endp
;------------------------------------------------------------
input_name proc near
       push ax
       push dx
       push cx

       mov cx,0
       mov cl,No_of_name
       call getchar

       mov ax,0
       mov al,No_of_name
       sub ax,cx

       mov cx,ax
       mov si,0
next1:
       mov al,inbuf[si]
       mov outname[si],al
       inc si

       loop next1

       pop cx
       pop dx
       pop ax

       ret
input_name endp
;-------------------------------------------------------------
inphone proc near
       push ax
       push dx

       mov cx,0
       mov cl,No_of_phone
       call getchar

cmp cx,0
jnz error1

       mov cl,No_of_phone
       mov si,0

next2:
       mov al,inbuf[si]

       cmp al,30h
       jl   error2

cmp al,39h
ja error2

       mov outphone[si],al
       inc si

       loop next2
       jmp exit2
error1:
       call crlf
       lea dx,errormessage1
       mov ah,09
       int 21h

       mov flag,1
       jmp exit2
error2:
       call crlf
       lea dx,errormessage2
       mov ah,09
       int 21h

       mov flag,1
       jmp exit2
exit2:
       pop dx
       pop ax

        ret
inphone endp
;---------------------------------------------------------
getchar proc near
        push ax
        push dx

        mov di,0
rotate:
        mov ah,01
        int 21h

cmp al,0dh
je exit1

mov inbuf[di],al
inc di

        loop rotate
exit1:
        pop dx
        pop ax
        ret
getchar endp
;----------------------------------------------------------
crlf proc near
         push ax
         push dx

mov dl,0dh
mov ah,2

int 21h
mov dl,0ah

         mov ah,2
         int 21h

         pop dx
         pop ax

ret

crlf endp
;---------------------------------------------------------
printline proc near
push ax
push dx

         lea dx,message3
         mov ah,09
         int 21h

lea dx,outname
mov ah,09
int 21h

lea dx,outphone
mov ah,09
int 21h

pop dx
pop ax

ret
printline endp
;---------------------------------------------------------
prog ends
;*********************************************************
end main