LIST 1 7.TXT/fr: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
Olivier.jan (talk | contribs) (Replacing content with updated version) |
||
| (3 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| + | {{Languages|LIST 1 7.TXT}} |
||
<pre> |
<pre> |
||
****************************************************************** |
****************************************************************** |
||
| Line 4: | Line 5: | ||
* COURS D'ASSEMBLEUR 68000 SUR ATARI ST * |
* COURS D'ASSEMBLEUR 68000 SUR ATARI ST * |
||
* * |
* * |
||
| − | * par Le |
+ | * par Le Féroce Lapin (from 44E) * |
* * |
* * |
||
| − | * Listing |
+ | * Listing numéro 1 / Cours numéro 7 * |
* * |
* * |
||
****************************************************************** |
****************************************************************** |
||
DEBUT MOVE.L #MENU,-(SP) passe adresse phrase |
DEBUT MOVE.L #MENU,-(SP) passe adresse phrase |
||
| − | MOVE.W #9,-(SP) |
+ | MOVE.W #9,-(SP) numéro fonction |
TRAP #1 appel Gemdos |
TRAP #1 appel Gemdos |
||
ADDQ.L #6,SP correction pile |
ADDQ.L #6,SP correction pile |
||
* attente appui touche |
* attente appui touche |
||
| − | MOVE.W #7,-(SP) fonction |
+ | MOVE.W #7,-(SP) fonction numéro 7 |
TRAP #1 du gemdos |
TRAP #1 du gemdos |
||
ADDQ.L #2,SP correction pile |
ADDQ.L #2,SP correction pile |
||
| − | * test du |
+ | * test du résultat |
CMP.W #"Q",D0 q majuscule ? |
CMP.W #"Q",D0 q majuscule ? |
||
BEQ QUITTER oui, bye bye |
BEQ QUITTER oui, bye bye |
||
| Line 29: | Line 30: | ||
CMP.W #"v",D0 V minuscule ? |
CMP.W #"v",D0 V minuscule ? |
||
BNE DEBUT non. On a donc une autre lettre |
BNE DEBUT non. On a donc une autre lettre |
||
| + | * comme réponse. Ce n'est pas valable donc on recommence au début |
||
| − | * comme rponse. Ce n'est pas valable donc on recommence au dbut |
||
AFFICHAGE MOVE.L #MESSAGE,-(SP) adresse de 'coucou' |
AFFICHAGE MOVE.L #MESSAGE,-(SP) adresse de 'coucou' |
||
| − | MOVE.W #9,-(SP) |
+ | MOVE.W #9,-(SP) numéro fonction |
TRAP #1 appel Gemdos |
TRAP #1 appel Gemdos |
||
ADDQ.L #6,SP correction pile |
ADDQ.L #6,SP correction pile |
||
| Line 39: | Line 40: | ||
TRAP #1 |
TRAP #1 |
||
ADDQ.L #2,SP |
ADDQ.L #2,SP |
||
| − | BRA DEBUT retour au |
+ | BRA DEBUT retour au début |
QUITTER MOVE.W #0,-(SP) |
QUITTER MOVE.W #0,-(SP) |
||
Latest revision as of 00:36, 17 December 2023
******************************************************************
* *
* COURS D'ASSEMBLEUR 68000 SUR ATARI ST *
* *
* par Le Féroce Lapin (from 44E) *
* *
* Listing numéro 1 / Cours numéro 7 *
* *
******************************************************************
DEBUT MOVE.L #MENU,-(SP) passe adresse phrase
MOVE.W #9,-(SP) numéro fonction
TRAP #1 appel Gemdos
ADDQ.L #6,SP correction pile
* attente appui touche
MOVE.W #7,-(SP) fonction numéro 7
TRAP #1 du gemdos
ADDQ.L #2,SP correction pile
* test du résultat
CMP.W #"Q",D0 q majuscule ?
BEQ QUITTER oui, bye bye
CMP.W #"q",D0 q minuscule ?
BEQ QUITTER oui, bye bye
CMP.W #"V",D0 v majuscule ?
BEQ AFFICHAGE oui -> affiche le message
CMP.W #"v",D0 V minuscule ?
BNE DEBUT non. On a donc une autre lettre
* comme réponse. Ce n'est pas valable donc on recommence au début
AFFICHAGE MOVE.L #MESSAGE,-(SP) adresse de 'coucou'
MOVE.W #9,-(SP) numéro fonction
TRAP #1 appel Gemdos
ADDQ.L #6,SP correction pile
* On attend un appui sur une touche pour contempler
MOVE.W #7,-(SP)
TRAP #1
ADDQ.L #2,SP
BRA DEBUT retour au début
QUITTER MOVE.W #0,-(SP)
TRAP #1
SECTION DATA
MENU DC.B 27,"E",27,"p"
DC.B "QUITTER (Q) OU VOIR LE MESSAGE (V) ?"
DC.B 27,"q",13,10,0
EVEN
MESSAGE DC.B "COUCOU",0
Back to ASM_Tutorial