LISTING6.TXT/fr

**********************************************************************
*                                                                    *
*               COURS D'ASSEMBLEUR 68000 SUR ATARI ST                *
*                                                                    *
*                   par Le Féroce Lapin (from 44E)                   *
*                                                                    *
*                           Seconde série                            *
*                                                                    *
*                         Listing  numéro 6                          *
**********************************************************************

         INCLUDE   "B:\START.S"
         
         MOVE.L    #MESSAGE,-(SP)    coucou et efface écran
         MOVE.W    #9,-(SP)
         TRAP      #1
         ADDQ.L    #6,SP

         DC.W      $A000             initialisation ligne A

* A l'aide de A0 (retour de la fonction $A000 nous obtenons
* l'adresse des différents tableaux
* 4(A0) donne l'adresse du tableau Contrl
* 8(A0) donne l'adresse du tableau Int_in
* 12(A0) donne l'adresse du tableau Ptsin
* 16(A0) donne l'adresse du tableau Intout
* 20(A0) donne l'adresse du tableau Ptsout

         MOVE.L    8(A0),A3          sauve adresse de Int_in
         MOVE.L    12(A0),A4         sauve adresse de Ptsin

* On passe les coordonnées du point dont on veut la couleur
* On passe bien sur ces coordonnées dans Ptsin.

         MOVE.W    #100,(A4)
         MOVE.W    #122,2(A4)
         DC.W      $A002             demande couleur d'un pixel

* La fonction $A002 renvoie la couleur du pixel en D0, on recolorie
* un autre pixel avec la couleur du premier

         MOVE.W    #100,(A4)
         MOVE.W    #123,(A4)
         MOVE.W    D0,(A3)           couleur bien sûr dans INT_IN
         DC.W      $A001             coloriage d'un pixel

         MOVE.W    #7,-(SP)          attente appui touche
         TRAP      #1
         ADDQ.L    #4,SP
         MOVE.W    #0,-(SP)          et bye bye
         TRAP      #1
*---------------------------------------*
         SECTION DATA
MESSAGE  DC.B      "Coloriage de pixel avec ligne A",0

         SECTION BSS
         DS.L      100
PILE     DS.L      1
         END

Back to ASM_Tutorial