feroce lapin M68K tutorial file LIST_3_7.TXT wanted

All 680x0 related coding posts in this section please.

Moderators: exxos, simonsunnyboy, Mug UK, Zorro 2, Moderator Team

chrilith
Atarian
Atarian
Posts: 5
Joined: Thu Feb 10, 2005 10:38 am
Location: France

feroce lapin M68K tutorial file LIST_3_7.TXT wanted

Postby chrilith » Wed Feb 16, 2005 9:50 am

Hi,

Anyone with this file ? myone is corrupted :(

thanks

User avatar
Zorro 2
Administrator
Administrator
Posts: 2191
Joined: Tue May 21, 2002 12:44 pm
Location: Saint Cloud (France)
Contact:

Efface l'écran en affichant escape+E avec GEMDOS 9

Postby Zorro 2 » Wed Feb 16, 2005 11:33 am

The file is corrupted from the original compress file, It rests listings from him but you must find french guy who I have them...
Member of NoExtra Team

User avatar
Zorro 2
Administrator
Administrator
Posts: 2191
Joined: Tue May 21, 2002 12:44 pm
Location: Saint Cloud (France)
Contact:

Postby Zorro 2 » Fri May 13, 2005 12:57 pm

FOUND IT !

Code: Select all

****************************************************************************
*                                                                         *
*                COURS D'ASSEMBLEUR 68000 SUR ATARI ST                    *
*                                                                         *
*                    par Le F‚roce Lapin (from 44E)                       *
*                                                                         *
*                  Listing num‚ro 3 / Cours num‚ro 7                      *
*                                                                         *
****************************************************************************

* 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
Member of NoExtra Team

User avatar
Zorro 2
Administrator
Administrator
Posts: 2191
Joined: Tue May 21, 2002 12:44 pm
Location: Saint Cloud (France)
Contact:

Re: feroce lapin M68K tutorial file LIST_3_7.TXT wanted

Postby Zorro 2 » Thu Dec 22, 2016 3:06 pm

Member of NoExtra Team


Social Media

     

Return to “680x0”

Who is online

Users browsing this forum: No registered users and 2 guests