Accueil > > > AFFICHER L'HEURE [TASM]
AFFICHER L'HEURE [TASM]
Information sur la source
Description
Bon je vais être bref ;-) Ce code affiche l'heure jusqu'a ce que l'on appuie sur une touche, auquel cas le programme est stoppé. La fonction pour récupérer l'heure est la fonction 2Ch du dos. Cependant la difficulté réside dans le fait d'afficher les nombres.
Source
- ;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
- ;--------------------------------------------------------------------
-
;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
;--------------------------------------------------------------------
Conclusion
ben si vous avez des questions, des suggestions, n'hésitez pas ;-)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
SQL SERVER : QUERY NOTIFICATION OU COMMENT êTRE NOTIFIé DE MODIFICATIONS DE DONNéES CôTé APPLICATIONSQL SERVER : QUERY NOTIFICATION OU COMMENT êTRE NOTIFIé DE MODIFICATIONS DE DONNéES CôTé APPLICATION par christian
Cette fonctionnalité à vue le jour dans Ado.Net 2.0 et s'appuie sur SQL Server 2005 (et plus) même si elle fonctionne avec SQL Server 2000. Le principe de fonctionnement côté applicatif est assez simple, on fournit une requête et lorsque le résultat d...
Cliquez pour lire la suite de l'article par christian [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg [MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril
Forum
RE : ASSEMBLEURRE : ASSEMBLEUR par ghuysmans99
Cliquez pour lire la suite par ghuysmans99 RE : ASSEMBLEURRE : ASSEMBLEUR par ghuysmans99
Cliquez pour lire la suite par ghuysmans99 ASSEMBLEURASSEMBLEUR par solleil
Cliquez pour lire la suite par solleil
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|