; Mettre a jour le timer c'est a dire :
; Charger les milli secondes, decrementer
; Si milli seconde == 0, charger secondes et decrementer
; Si seconde = 0, mettre timeup a 0
UPDATE_TIMER:
	push	hl
	push	af

	ld	hl, timeup
	ld	a, l
	and	a
	jp 	z, fin_timer
	
	ld	hl, microsec
	ld	a,(hl)
	dec	a
	jp	z, moins_une_milliseconde
	ld	(hl), a
	jp	fin_timer

moins_une_milliseconde:
	ld	hl, millisec
	ld	a, (hl)
	dec	a
	jp	z, moins_une_seconde  ; Tiens on viens de finir une seconde
	ld	(hl), a
	ld	hl, microsec
	ld	(hl), 100
	call	PRINT_MILLISEC
	call	PRINT_SEC
	call	UNLOCK_KFLAG
	jp	fin_timer

moins_une_seconde:
	ld	hl, sec
	ld	a, (hl)
	dec	a
	jp	z, temps_ecoule
	ld	(hl), a
	ld	hl, millisec
	ld	(hl), 100
	call	PRINT_SEC
	jp	fin_timer

temps_ecoule:
	ld	hl, timeup
	ld	(hl), 0

fin_timer:
	pop	af
	pop	hl

	ret	
	
; Affichage des millisec 
PRINT_MILLISEC:

	ld     hl, $0B00   ; Copie 0 dans CURROW et 11 dans CURCOL (optimisation de deeph)
	ld     (CURROW),hl
	ld     hl, (millisec)
	ld	h, 0
	call	_dispHL	

	ret	

; Affichage des secondes 
PRINT_SEC:
	ld     hl, $0600
	ld     (CURROW),hl
	ld     hl, (sec)
	ld	h, 0
	call	_dispHL	
	
	ret	

; Deverouiller le flag qui empeche la pose involontaire de multiples tubes
UNLOCK_KFLAG:
	ld	hl, kflag
	ld	a, (hl)
	or	a
	jp	z, ne_rien_faire
	dec	a
	ld	(hl), a

ne_rien_faire:
	call	PRINT_SCORE

	ret	

; Afficher l'horloge (sprite) 
PRINT_OCLOCK:

	ld	a, 8
	ld	e, a
	ld	a, 88
	ld	hl, oclock
	call	DRWSPR	
	
	ret

; Timeup est a 0 si le temps est ecoule	
timeup:
	.db 1

; Le nombre de secondes
sec:
	.db 20

; Le nombre de millisecondes
millisec:
	.db 100

; Le nombre de microsecondes (non affiche)
microsec:	
	.db 100