AFFICHER L'HEURE [TASM]

;PROGRAMME ASM x86 COMPILE SOUS TASM 5.0

.386
;------------------------SEGMENT DE DONNEES-------------------------
;-------------------------------------------------------------------
_data segment public
_data ends
;-------------------------------------------------------------------


;------------------------SEGMENT DE CODE----------------------------
;-------------------------------------------------------------------
_code segment public
	assume cs:_code, ss:_stack

	START:
		mov	ax, _data	;synchronise les segments data et ds
		mov	ds, ax

		xor	bh, bh

	AFFICHER_HEURE:		
		mov	ax, 0E0Dh	;retour chariot pour se placer en début de ligne
		int	10h
		
		mov	ah, 2Ch		;lecture de l'heure
		int	21h
		
		cmp	bh, dh		;si l'heure actuel est la même que celle qui est affichée
		je	AFFICHER_HEURE	;alors on affiche pas et on relis à nouveau l'heure

		mov	al, ch		;on affiche les heures
		call	AFFICHER_AL_DEC

		mov	ax, 0E3Ah	;caractère ':'
		int	10h
		mov	al, cl		;on affiche les minutes
		call	AFFICHER_AL_DEC

		mov	ax, 0E3Ah	;caractère ':'
		int	10h
		mov	al, dh		;on affiche les secondes
		call	AFFICHER_AL_DEC
		
		mov	bh, dh		;on sauvegarde les secondes pour le test juste en haut

		mov	ah, 01h			;si le buffer clavier contient qqch on
		int	16h			;arrête d'afficher l'heure
		jz	AFFICHER_HEURE		;cad si quelqu'un appuie sur une touche on arrête

		mov	ah, 00h			;vide le buffer clavier
		int	16h		
		
		mov	ax, 4C00h
		int	21h


	;cette procédure est simplifiée pour n'afficher que des nombres < à 100 mais je suis arrivé à adapter
	;ce code pour afficher des nombres sur 32 bits cad compris entre 0 et 4'294'967'295
	
AFFICHER_AL_DEC:	;affiche une valeur comprise entre 0 et 99 contenue dans AL
	push	bx ax
		xor	bh, bh
		mov	bl, 0Ah 			;10 en dec
		boucle:
			xor	ah, ah
			div	bl			;on divise ax par bl
			push	ax
				add	al, 30h		;48 en dec, cette addition permet d'obtenir un code ASCII
				mov	ah, 0Eh		;la valeur affichée est un nombre dec
				int	10h
			pop	ax
			cmp	bx, 1			;si le diviseur est 1 alors on arrête
			je	finboucle		;car on a afficher tous les chiffres
				
			mov	bx, 1
				
			;on place le reste de la division du tout début de la boucle dans al
			mov	al, ah	;que l'on va maintenant diviser par le nouveau diviseur B
			jmp	boucle
finboucle:
	pop	ax bx
	ret

_code ends
;--------------------------------------------------------------------




;------------------------SEGMENT DE LA PILE--------------------------
;--------------------------------------------------------------------
_stack segment stack
	db 100h dup (?)			;déclare une pile de 256 octets
_stack ends
;--------------------------------------------------------------------




;------------------------SAUT AU DEBUT DU PROGRAMME------------------
	end start
;--------------------------------------------------------------------