https://www.temlib.org/AtariForumWiki/index.php?action=history&feed=atom&title=LISTING6.TXTLISTING6.TXT - Revision history2026-05-13T20:20:08ZRevision history for this page on the wikiMediaWiki 1.39.2https://www.temlib.org/AtariForumWiki/index.php?title=LISTING6.TXT&diff=14654&oldid=prev>Zorro 2: Created page with "<pre> ********************************************************************** * * * COURS D'ASSEMB..."2016-12-22T14:58:11Z<p>Created page with "<pre> ********************************************************************** * * * COURS D'ASSEMB..."</p>
<p><b>New page</b></p><div><pre><br />
**********************************************************************<br />
* *<br />
* COURS D'ASSEMBLEUR 68000 SUR ATARI ST *<br />
* *<br />
* par Le F‚roce Lapin (from 44E) *<br />
* *<br />
* Seconde s‚rie *<br />
* *<br />
* Listing num‚ro 6 *<br />
**********************************************************************<br />
<br />
INCLUDE "B:\START.S"<br />
<br />
MOVE.L #MESSAGE,-(SP) coucou et efface ‚cran<br />
MOVE.W #9,-(SP)<br />
TRAP #1<br />
ADDQ.L #6,SP<br />
<br />
DC.W $A000 initialisation ligne A<br />
<br />
* A l'aide de A0 (retour de la fonction $A000 nous obtenons<br />
* l'adresse des diff‚rents tableaux<br />
* 4(A0) donne l'adresse du tableau Contrl<br />
* 8(A0) donne l'adresse du tableau Int_in<br />
* 12(A0) donne l'adresse du tableau Ptsin<br />
* 16(A0) donne l'adresse du tableau Intout<br />
* 20(A0) donne l'adresse du tableau Ptsout<br />
<br />
MOVE.L 8(A0),A3 sauve adresse de Int_in<br />
MOVE.L 12(A0),A4 sauve adresse de Ptsin<br />
<br />
* On passe les coordonn‚es du point dont on veut la couleur<br />
* On passe bien sur ces coordonn‚es dans Ptsin.<br />
<br />
MOVE.W #100,(A4)<br />
MOVE.W #122,2(A4)<br />
DC.W $A002 demande couleur d'un pixel<br />
<br />
* La fonction $A002 renvoie la couleur du pixel en D0, on recolorie<br />
* un autre pixel avec la couleur du premier<br />
<br />
MOVE.W #100,(A4)<br />
MOVE.W #123,(A4)<br />
MOVE.W D0,(A3) couleur bien s–r dans INT_IN<br />
DC.W $A001 coloriage d'un pixel<br />
<br />
MOVE.W #7,-(SP) attente appui touche<br />
TRAP #1<br />
ADDQ.L #4,SP<br />
MOVE.W #0,-(SP) et bye bye<br />
TRAP #1<br />
*---------------------------------------*<br />
SECTION DATA<br />
MESSAGE DC.B "Coloriage de pixel avec ligne A",0<br />
<br />
SECTION BSS<br />
DS.L 100<br />
PILE DS.L 1<br />
END<br />
</pre><br />
Back to [[ASM_Tutorial]]<br />
[[Category: ASSEMBLEUR 68000 sur ATARI ST Part 1 ]]</div>>Zorro 2