home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / C-D / DNTPAP4.ZIP / ARCHIVES.DNT / SOURCES.ZIP / LIST_3_7.S < prev   
Encoding:
Text File  |  1987-04-22  |  1.7 KB  |  52 lines
  1. ****************************************************************************
  2. *                                                                         *
  3. *                COURS D'ASSEMBLEUR 68000 SUR ATARI ST                    *
  4. *                                                                         *
  5. *                    par Le Féroce Lapin (from 44E)                       *
  6. *                                                                         *
  7. *                  Listing numéro 3 / Cours numéro 7                      *
  8. *                                                                         *
  9. ****************************************************************************
  10.  
  11. * Efface l'écran en affichant escape+E avec gemdos 9
  12.     MOVE.L    #CLS,-(SP)
  13.     MOVE.W    #9,-(SP)
  14.     TRAP    #1
  15.     ADDQ.L    #6,SP
  16.     
  17.     MOVEA.L    #TXT_FINAL,A6   adresse du txt_final dans A6
  18. PROCHAINE    MOVE.B    #255,LETTRE     initialise la lettre
  19.     ADD.B    #1,COLONE       et change de colone
  20.     MOVE.B    (A6)+,D6   préléve une lettre et pointe la suivante
  21.     CMP.B    #0,D6      fin du text à afficher ?
  22.     BEQ    FIN        oui -> fin
  23.     
  24. AFFICHAGE    MOVE.L    #TXT,-(SP) affiche la lettre
  25.     MOVE.W    #9,-(SP)   gemdos 9 car la lettre est incluse
  26.     TRAP    #1     dans un phrase (escape+Y...)
  27.     ADDQ.L    #6,SP
  28.     
  29.     CMP.B    LETTRE,D6  cette lettre c'était la bonne ?
  30.     BEQ    PROCHAINE  oui donc on passe à la suivante
  31.     
  32.     SUB.B    #1,LETTRE   non donc on recommence
  33.     BRA    AFFICHAGE
  34.     
  35. FIN    MOVE.W    #7,-(SP)    attend un appui sur une touche
  36.     TRAP    #1
  37.     ADDQ.L    #2,SP
  38.     
  39.     MOVE.W    #0,-(SP)   et bye bye!
  40.     TRAP    #1
  41. *----------------------------------------------*
  42.     SECTION DATA
  43. CLS    DC.B    27,"E",0     
  44.     EVEN
  45. TXT    DC.B    27,"Y",42
  46. COLONE    DC.B    42
  47. LETTRE    DC.B    0,0
  48. TXT_FINAL    DC.B    "FEROCE LAPIN",0
  49.  
  50.  
  51.     
  52.