;			  第四章  子程序結構

;		       	  實驗二  子程序的嵌套

;一.實驗目的:

;	    掌握子程序嵌套的定義和常用DOS功能調用的使用方法,并了解子程序嵌套

;	 的結構.

;二.實驗內容:

;	    分別從鍵盤輸入姓名及8個字符的電話號碼.
	    
;	 主程序main:

;		. 顯示提示符 INPUT NAME: ;

;		. 調用子程序 INAME 輸入姓名;

;		. 顯示提示符 INPUT A TELEPHONE NUMBER: ;

;		. 調用子程序 INPHONE 輸入電話號碼.

;	子程序INAME:

;		. 調用鍵盤輸入子程序GET,把輸入的姓名存放在INBUF 緩沖區中.
		
;  	子程序INPHONE:

;		. 調用鍵盤輸入子程序GET,把輸入的8位電話號碼存放在INBUF緩沖

;		區中.

;三.程序清單:

;**************************************************************************

data 	segment
	s1	db  0dh,  0ah
	db  'input  name: ', '$'
	s2	db  0dh,  0ah
	db 'input  a  telephone  number: ', '$'
	inbuf	db  9, ?, 9  dup ( ? )
data 	ends

code	segment
main 	proc  far
	assume  cs: code, ds: data
start:	push  ds
	mov   ax, 0
	push  ax
	mov   ax, data
	mov   ds, ax
	lea   dx, s1	
	mov   ah, 09h
	int   21h
	call  iname
	lea   dx,  s2
	mov   ah,  09h
	int   21h
	call  inphone
	ret
main 	endp

iname 	proc  near
	call  get
	ret 
iname	endp
 
get 	proc  near
	mov   ah,  0ah			;鍵盤輸入到緩沖區	
	lea   dx,  [ inbuf ]
	int   21h
	add   dx,  2
	ret
get 	endp

inphone	proc  near
	call  get 
	ret
inphone	endp

code 	ends
	end   start 

;**************************************************************************