LIST 3 7.TXT/fr: Difference between revisions

From Atari Wiki
Jump to navigation Jump to search
(Created page with "<pre> **************************************************************************** * * * CO...")
 
(Replacing content with updated version)
 
(3 intermediate revisions by 2 users not shown)
Line 1: Line 1:
  +
{{Languages|LIST 3 7.TXT}}
 
<pre>
 
<pre>
−
****************************************************************************
+
**********************************************************************
−
* *
+
* *
−
* COURS D'ASSEMBLEUR 68000 SUR ATARI ST *
+
* COURS D'ASSEMBLEUR 68000 SUR ATARI ST *
−
* *
+
* *
−
* par Le F
+
* par Le Féroce Lapin (from 44E) *
−
* *
+
* *
−
* Listing num
+
* Listing numéro 3 / Cours numéro *
−
* *
+
* *
−
****************************************************************************
+
**********************************************************************
   
  +
* Efface l'écran en affichant escape+E avec GEMDOS 9
−
* Efface l'‚cran en affichant escape+E avec gemdos 9
 
 
MOVE.L #CLS,-(SP)
 
MOVE.L #CLS,-(SP)
 
MOVE.W #9,-(SP)
 
MOVE.W #9,-(SP)
Line 19: Line 20:
 
PROCHAINE MOVE.B #255,LETTRE initialise la lettre
 
PROCHAINE MOVE.B #255,LETTRE initialise la lettre
 
ADD.B #1,COLONE et change de colone
 
ADD.B #1,COLONE et change de colone
−
MOVE.B (A6)+,D6 pr
+
MOVE.B (A6)+,D6 pr�l�ve une lettre et pointe la suivante
−
CMP.B #0,D6 fin du text
+
CMP.B #0,D6 fin du text � afficher ?
 
BEQ FIN oui -> fin
 
BEQ FIN oui -> fin
 
 
Line 28: Line 29:
 
ADDQ.L #6,SP
 
ADDQ.L #6,SP
 
 
−
CMP.B LETTRE,D6 cette lettre c'
+
CMP.B LETTRE,D6 cette lettre c'�tait la bonne ?
−
BEQ PROCHAINE oui donc on passe
+
BEQ PROCHAINE oui donc on passe � la suivante
 
 
 
SUB.B #1,LETTRE non donc on recommence
 
SUB.B #1,LETTRE non donc on recommence

Latest revision as of 00:50, 17 December 2023

  **********************************************************************
  *                                                                    *
  *               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