home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / C-D / DNTPAP4.ZIP / ARCHIVES.DNT / SOURCES.ZIP / LIST_1_7.S < prev    next >
Encoding:
Text File  |  1987-04-22  |  1.8 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 1 / Cours numéro 7                      *
  8. *                                                                         *
  9. ****************************************************************************
  10.  
  11. DEBUT    MOVE.L    #MENU,-(SP) passe adresse phrase
  12.     MOVE.W    #9,-(SP)    numéro fonction
  13.     TRAP    #1    appel Gemdos
  14.     ADDQ.L    #6,SP      correction pile
  15. * attente appui touche
  16.     MOVE.W    #7,-(SP)    fonction numéro 7
  17.     TRAP    #1    du gemdos
  18.     ADDQ.L    #2,SP    correction pile
  19. * test du résultat
  20.     CMP.W    #"Q",D0    q majuscule ?
  21.     BEQ    QUITTER    oui, bye bye
  22.     CMP.W    #"q",D0    q minuscule ?
  23.     BEQ    QUITTER    oui, bye bye
  24.     CMP.W    #"V",D0    v majuscule ?
  25.     BEQ    AFFICHAGE  oui -> affiche le message
  26.     CMP.W    #"v",D0    V minuscule ?
  27.     BNE    DEBUT      non. On a donc une autre lettre
  28. * comme réponse. Ce n'est pas valable donc on recommence au début
  29. AFFICHAGE    MOVE.L    #MESSAGE,-(SP)   adresse de 'coucou'
  30.     MOVE.W    #9,-(SP)          numéro fonction
  31.     TRAP    #1          appel Gemdos
  32.     ADDQ.L    #6,SP            correction pile
  33. * On attend un appui sur une touche pour contempler
  34.     MOVE.W    #7,-(SP)
  35.     TRAP    #1
  36.     ADDQ.L    #2,SP
  37.     BRA    DEBUT          retour au début
  38.     
  39. QUITTER    MOVE.W    #0,-(SP)
  40.     TRAP    #1
  41.     
  42.     SECTION DATA
  43.     
  44. MENU    DC.B    27,"E",27,"p"
  45.     DC.B    "QUITTER (Q) OU VOIR LE MESSAGE (V) ?"
  46.     DC.B    27,"q",13,10,0
  47.     EVEN
  48. MESSAGE    DC.B    "COUCOU",0
  49.  
  50.  
  51.     
  52.