clock.asm
bitfixer_bitfixer/dg/z88dk/libsrc/time/enterprise/clock.asm
;
;	Enterprise 64/128 clock()
;
;	stefano 5/4/2007
;
; ------
; $Id: clock.asm,v 1.2 2015/01/19 01:33:24 pauloscustodio Exp $
;

	PUBLIC	clock

.clock

	rst   30h
	defb  32
	
    ;              C hours   0 .. 23 (BCD)
    ;              D minutes 0 .. 59 (BCD)
    ;              E seconds 0 .. 59 (BCD) 	

	; let's copy the result in dehl
	; in a quick but wrong way..
	ex	de,hl
	ld	d,0
	ld	e,c
	
	ret
