include	clib.inc
include	time.inc

DPROC	dostime
	mov     ah,2Ch	; CH = hour
	int     21h	; CL = minute
	xor	ax,ax	; DH = second
	mov	al,dh
	shr	ax,1
	mov	dx,ax	; second/2
	mov	al,ch
	mov	ch,ah
	shl	cx,5
	shl	ax,11
	or	ax,cx
	or	ax,dx	; hhhhhmmmmmmsssss
	ret
PEND	dostime

	END
