LIST 3 7.TXT/fr

Languages:

English  • français

  **********************************************************************
  *                                                                    *
  *               COURS D'ASSEMBLEUR 68000 SUR ATARI ST                *
  *                                                                    *
  *                   par Le Féroce Lapin (from 44E)                   *
  *                                                                    *
  *                  Listing numéro 3 / Cours numéro                   *
  *                                                                    *
  **********************************************************************

  * Efface l'écran en affichant escape+E avec GEMDOS 9
   MOVE.L   #CLS,-(SP)
   MOVE.W   #9,-(SP)
   TRAP   #1
   ADDQ.L   #6,SP
   
   MOVEA.L   #TXT_FINAL,A6   adresse du txt_final dans A6
PROCHAINE   MOVE.B   #255,LETTRE     initialise la lettre
   ADD.B   #1,COLONE       et change de colone
   MOVE.B   (A6)+,D6   pr�l�ve une lettre et pointe la suivante
   CMP.B   #0,D6      fin du text � afficher ?
   BEQ   FIN        oui -> fin
   
AFFICHAGE   MOVE.L   #TXT,-(SP) affiche la lettre
   MOVE.W   #9,-(SP)   gemdos 9 car la lettre est incluse
   TRAP   #1     dans un phrase (escape+Y...)
   ADDQ.L   #6,SP
   
   CMP.B   LETTRE,D6  cette lettre c'�tait la bonne ?
   BEQ   PROCHAINE  oui donc on passe � la suivante
   
   SUB.B   #1,LETTRE   non donc on recommence
   BRA   AFFICHAGE
   
FIN   MOVE.W   #7,-(SP)    attend un appui sur une touche
   TRAP   #1
   ADDQ.L   #2,SP
   
   MOVE.W   #0,-(SP)   et bye bye!
   TRAP   #1
*----------------------------------------------*
   SECTION DATA
CLS   DC.B   27,"E",0     
   EVEN
TXT   DC.B   27,"Y",42
COLONE   DC.B   42
LETTRE   DC.B   0,0
TXT_FINAL   DC.B   "FEROCE LAPIN",0

Back to ASM_Tutorial