;				第四章  子程序結構

;			        實驗二  
	
data	segment
	three  	  db 3
	mon	  db  3, 4 dup (?)
	alf	  db  '???','$'
	tab	  db  'jan','feb','mar','apr','may','jun'
		  db  'jul','aug','sep','oct','nov','dec'
data	ends

code	  segment
	  assume  cs:code, ds:data

main	  proc   far
	  push   ds
	  mov ax, 0
	  push  ax
	  mov ax, data
	  mov  ds, ax
 	  call  input
	  call  loca
	  call  disp
	  ret
main	  endp

input     proc  near
	  push  dx
	  mov   ah, 0ah
	  lea   dx, mon
	  int  21h
	  mov   ah,mon+2
	  mov  al,mon+3
	  xor  ax,3030h
	  cmp  ah,  00
	  jz   return
	  sub  ah,ah
	  add  al,10
return:	  pop   dx
	  ret
input	  endp

loca	  proc  near
	  push  si
	  push  di
	  push  cx
	  lea   si, tab
	  dec  al
	  mul  three
	  add  si
	  mov  cx, 03
	  cld	
	  lea  di, alf
	  rep movsb
	  pop cx
	  pop  di
	  pop  si
	  ret
loca 	  endp

disp	  proc  near
	  push  dx
	  lea  dx, alf
	  mov  ah,09h
	  int 21h
	  pop  dx
	  ret
disp	  endp
	
code      ends
	  end  main			
 	     	   	  								
;****************************************************************************