LIST 3 7.TXT/fr
********************************************************************** * * * 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