code	segment 'code'
	assume	cs:code
public	date,time
date	proc far
	push bp
	mov bp,sp
	mov ah,2ah
	int 21h
	les bx,dword ptr[bp+14]
	mov es:[bx],cx
	mov ah,0
	mov al,dh
	les bx,dword ptr[bp+10]
	mov es:[bx],ax
	les bx,dword ptr[bp+6]
	mov al,dl
	mov es:[bx],ax
	mov sp,bp
	pop bp
	ret
date	endp
time	proc far
	push bp
	mov bp,sp
	mov ah,2ch
	int 21h
	les bx,dword ptr[bp+18]
	mov ah,0
	mov al,ch
	mov es:[bx],ax
	les bx,dword ptr[bp+14]
	mov al,cl
	mov es:[bx],ax
	mov al,dh
	les bx,dword ptr[bp+10]
	mov es:[bx],ax
	mov al,dl
	les bx,dword ptr[bp+6]
	mov es:[bx],ax
	mov sp,bp
	pop bp
	ret
time	endp
code	ends
	end