home *** CD-ROM | disk | FTP | other *** search
/ hackzapple.com / www.hackzapple.com.tar / www.hackzapple.com / phpBB2 / viewtopic.php?p=1100&highlight=.orig < prev    next >
Text File  |  2010-10-06  |  66KB  |  3,814 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  2. <html dir="LTR">
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
  5. <meta http-equiv="Content-Style-Type" content="text/css">
  6.  
  7. <link rel="top" href="./index.php" title=" Index du Forum" />
  8. <link rel="search" href="./search.php" title="Rechercher" />
  9. <link rel="help" href="./faq.php" title="FAQ" />
  10. <link rel="author" href="./memberlist.php" title="Liste des Membres" />
  11. <link rel="prev" href="viewtopic.php?t=243&view=previous" title="Voir le sujet prΘcΘdent" />
  12. <link rel="next" href="viewtopic.php?t=243&view=next" title="Voir le sujet suivant" />
  13. <link rel="up" href="viewforum.php?f=19" title="Recherches techniques (hard ou soft)" />
  14. <link rel="chapter forum" href="viewforum.php?f=1" title="REGLES DE BASE DU FORUM" />
  15. <link rel="chapter forum" href="viewforum.php?f=2" title="PRESENTATION DES MEMBRES" />
  16. <link rel="chapter forum" href="viewforum.php?f=3" title="FAQ" />
  17. <link rel="chapter forum" href="viewforum.php?f=24" title="LES VENDEURS DE Q et assimilΘs..." />
  18. <link rel="chapter forum" href="viewforum.php?f=4" title="APPLE II et II+" />
  19. <link rel="chapter forum" href="viewforum.php?f=5" title="APPLE IIe" />
  20. <link rel="chapter forum" href="viewforum.php?f=6" title="APPLE IIc et IIc Plus" />
  21. <link rel="chapter forum" href="viewforum.php?f=7" title="APPLE IIGS" />
  22. <link rel="chapter forum" href="viewforum.php?f=8" title="ITT2020" />
  23. <link rel="chapter forum" href="viewforum.php?f=9" title="BELL & HOWELL" />
  24. <link rel="chapter forum" href="viewforum.php?f=25" title="APPLE I" />
  25. <link rel="chapter forum" href="viewforum.php?f=10" title="APPLE /// et ///Plus" />
  26. <link rel="chapter forum" href="viewforum.php?f=11" title="LISA 1,  2, 2/5,  2/10 et ... XL" />
  27. <link rel="chapter forum" href="viewforum.php?f=12" title="PROBLEMES DIVERS" />
  28. <link rel="chapter forum" href="viewforum.php?f=13" title="PROTECTION MALEFIQUE" />
  29. <link rel="chapter forum" href="viewforum.php?f=23" title="EMULATION" />
  30. <link rel="chapter forum" href="viewforum.php?f=14" title="CARTES COPROCESSEUR" />
  31. <link rel="chapter forum" href="viewforum.php?f=15" title="CARTES MEMOIRE" />
  32. <link rel="chapter forum" href="viewforum.php?f=16" title="CARTES POUR DISQUES" />
  33. <link rel="chapter forum" href="viewforum.php?f=17" title="AUTRES CARTES" />
  34. <link rel="chapter forum" href="viewforum.php?f=18" title="PERIPHERIQUES" />
  35. <link rel="chapter forum" href="viewforum.php?f=19" title="Recherches techniques (hard ou soft)" />
  36. <link rel="chapter forum" href="viewforum.php?f=20" title="ACHATS,VENTES ET/OU ECHANGES" />
  37. <link rel="chapter forum" href="viewforum.php?f=21" title="DIVERS...MAIS TOUJOURS EN RELATION AVEC APPLE!" />
  38. <link rel="chapter forum" href="viewforum.php?f=22" title="LES PETITS MAUDITS A EVITER" />
  39.  
  40. <title> :: Voir le sujet - Recherche disque image de la revue Pom's 25</title>
  41. <!-- link rel="stylesheet" href="templates/subSilver/subSilver.css" type="text/css" -->
  42. <style type="text/css">
  43. <!--
  44. /*
  45.   The original subSilver Theme for phpBB version 2+
  46.   Created by subBlue design
  47.   http://www.subBlue.com
  48.  
  49.   NOTE: These CSS definitions are stored within the main page body so that you can use the phpBB2
  50.   theme administration centre. When you have finalised your style you could cut the final CSS code
  51.   and place it in an external file, deleting this section to save bandwidth.
  52. */
  53.  
  54. /* General page style. The scroll bar colours only visible in IE5.5+ */
  55. body {
  56.     background-color: #E5E5E5;
  57.     scrollbar-face-color: #DEE3E7;
  58.     scrollbar-highlight-color: #FFFFFF;
  59.     scrollbar-shadow-color: #DEE3E7;
  60.     scrollbar-3dlight-color: #D1D7DC;
  61.     scrollbar-arrow-color:  #006699;
  62.     scrollbar-track-color: #EFEFEF;
  63.     scrollbar-darkshadow-color: #98AAB1;
  64. }
  65.  
  66. /* General font families for common tags */
  67. font,th,td,p { font-family: Verdana, Arial, Helvetica, sans-serif }
  68. a:link,a:active,a:visited { color : #006699; }
  69. a:hover        { text-decoration: underline; color : #DD6900; }
  70. hr    { height: 0px; border: solid #D1D7DC 0px; border-top-width: 1px;}
  71.  
  72. /* This is the border line & background colour round the entire page */
  73. .bodyline    { background-color: #FFFFFF; border: 1px #98AAB1 solid; }
  74.  
  75. /* This is the outline round the main forum tables */
  76. .forumline    { background-color: #FFFFFF; border: 2px #006699 solid; }
  77.  
  78. /* Main table cell colours and backgrounds */
  79. td.row1    { background-color: #EFEFEF; }
  80. td.row2    { background-color: #DEE3E7; }
  81. td.row3    { background-color: #D1D7DC; }
  82.  
  83. /*
  84.   This is for the table cell above the Topics, Post & Last posts on the index.php page
  85.   By default this is the fading out gradiated silver background.
  86.   However, you could replace this with a bitmap specific for each forum
  87. */
  88. td.rowpic {
  89.         background-color: #FFFFFF;
  90.         background-image: url(templates/subSilver/images/cellpic2.jpg);
  91.         background-repeat: repeat-y;
  92. }
  93.  
  94. /* Header cells - the blue and silver gradient backgrounds */
  95. th    {
  96.     color: #FFA34F; font-size: 11px; font-weight : bold;
  97.     background-color: #006699; height: 25px;
  98.     background-image: url(templates/subSilver/images/cellpic3.gif);
  99. }
  100.  
  101. td.cat,td.catHead,td.catSides,td.catLeft,td.catRight,td.catBottom {
  102.             background-image: url(templates/subSilver/images/cellpic1.gif);
  103.             background-color:#D1D7DC; border: #FFFFFF; border-style: solid; height: 28px;
  104. }
  105.  
  106. /*
  107.   Setting additional nice inner borders for the main table cells.
  108.   The names indicate which sides the border will be on.
  109.   Don't worry if you don't understand this, just ignore it :-)
  110. */
  111. td.cat,td.catHead,td.catBottom {
  112.     height: 29px;
  113.     border-width: 0px 0px 0px 0px;
  114. }
  115. th.thHead,th.thSides,th.thTop,th.thLeft,th.thRight,th.thBottom,th.thCornerL,th.thCornerR {
  116.     font-weight: bold; border: #FFFFFF; border-style: solid; height: 28px;
  117. }
  118. td.row3Right,td.spaceRow {
  119.     background-color: #D1D7DC; border: #FFFFFF; border-style: solid;
  120. }
  121.  
  122. th.thHead,td.catHead { font-size: 12px; border-width: 1px 1px 0px 1px; }
  123. th.thSides,td.catSides,td.spaceRow     { border-width: 0px 1px 0px 1px; }
  124. th.thRight,td.catRight,td.row3Right     { border-width: 0px 1px 0px 0px; }
  125. th.thLeft,td.catLeft      { border-width: 0px 0px 0px 1px; }
  126. th.thBottom,td.catBottom  { border-width: 0px 1px 1px 1px; }
  127. th.thTop     { border-width: 1px 0px 0px 0px; }
  128. th.thCornerL { border-width: 1px 0px 0px 1px; }
  129. th.thCornerR { border-width: 1px 1px 0px 0px; }
  130.  
  131. /* The largest text used in the index page title and toptic title etc. */
  132. .maintitle    {
  133.     font-weight: bold; font-size: 22px; font-family: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;
  134.     text-decoration: none; line-height : 120%; color : #000000;
  135. }
  136.  
  137. /* General text */
  138. .gen { font-size : 12px; }
  139. .genmed { font-size : 11px; }
  140. .gensmall { font-size : 10px; }
  141. .gen,.genmed,.gensmall { color : #000000; }
  142. a.gen,a.genmed,a.gensmall { color: #006699; text-decoration: none; }
  143. a.gen:hover,a.genmed:hover,a.gensmall:hover    { color: #DD6900; text-decoration: underline; }
  144.  
  145. /* The register, login, search etc links at the top of the page */
  146. .mainmenu        { font-size : 11px; color : #000000 }
  147. a.mainmenu        { text-decoration: none; color : #006699;  }
  148. a.mainmenu:hover{ text-decoration: underline; color : #DD6900; }
  149.  
  150. /* Forum category titles */
  151. .cattitle        { font-weight: bold; font-size: 12px ; letter-spacing: 1px; color : #006699}
  152. a.cattitle        { text-decoration: none; color : #006699; }
  153. a.cattitle:hover{ text-decoration: underline; }
  154.  
  155. /* Forum title: Text and link to the forums used in: index.php */
  156. .forumlink        { font-weight: bold; font-size: 12px; color : #006699; }
  157. a.forumlink     { text-decoration: none; color : #006699; }
  158. a.forumlink:hover{ text-decoration: underline; color : #DD6900; }
  159.  
  160. /* Used for the navigation text, (Page 1,2,3 etc) and the navigation bar when in a forum */
  161. .nav            { font-weight: bold; font-size: 11px; color : #000000;}
  162. a.nav            { text-decoration: none; color : #006699; }
  163. a.nav:hover        { text-decoration: underline; }
  164.  
  165. /* titles for the topics: could specify viewed link colour too */
  166. .topictitle,h1,h2    { font-weight: bold; font-size: 11px; color : #000000; }
  167. a.topictitle:link   { text-decoration: none; color : #006699; }
  168. a.topictitle:visited { text-decoration: none; color : #5493B4; }
  169. a.topictitle:hover    { text-decoration: underline; color : #DD6900; }
  170.  
  171. /* Name of poster in viewmsg.php and viewtopic.php and other places */
  172. .name            { font-size : 11px; color : #000000;}
  173.  
  174. /* Location, number of posts, post date etc */
  175. .postdetails        { font-size : 10px; color : #000000; }
  176.  
  177. /* The content of the posts (body of text) */
  178. .postbody { font-size : 12px; line-height: 18px}
  179. a.postlink:link    { text-decoration: none; color : #006699 }
  180. a.postlink:visited { text-decoration: none; color : #5493B4; }
  181. a.postlink:hover { text-decoration: underline; color : #DD6900}
  182.  
  183. /* Quote & Code blocks */
  184. .code {
  185.     font-family: Courier, 'Courier New', sans-serif; font-size: 11px; color: #006600;
  186.     background-color: #FAFAFA; border: #D1D7DC; border-style: solid;
  187.     border-left-width: 1px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px
  188. }
  189.  
  190. .quote {
  191.     font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #444444; line-height: 125%;
  192.     background-color: #FAFAFA; border: #D1D7DC; border-style: solid;
  193.     border-left-width: 1px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px
  194. }
  195.  
  196. /* Copyright and bottom info */
  197. .copyright        { font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #444444; letter-spacing: -1px;}
  198. a.copyright        { color: #444444; text-decoration: none;}
  199. a.copyright:hover { color: #000000; text-decoration: underline;}
  200.  
  201. /* Form elements */
  202. input,textarea, select {
  203.     color : #000000;
  204.     font: normal 11px Verdana, Arial, Helvetica, sans-serif;
  205.     border-color : #000000;
  206. }
  207.  
  208. /* The text input fields background colour */
  209. input.post, textarea.post, select {
  210.     background-color : #FFFFFF;
  211. }
  212.  
  213. input { text-indent : 2px; }
  214.  
  215. /* The buttons used for bbCode styling in message post */
  216. input.button {
  217.     background-color : #EFEFEF;
  218.     color : #000000;
  219.     font-size: 11px; font-family: Verdana, Arial, Helvetica, sans-serif;
  220. }
  221.  
  222. /* The main submit button option */
  223. input.mainoption {
  224.     background-color : #FAFAFA;
  225.     font-weight : bold;
  226. }
  227.  
  228. /* None-bold submit button */
  229. input.liteoption {
  230.     background-color : #FAFAFA;
  231.     font-weight : normal;
  232. }
  233.  
  234. /* This is the line in the posting page which shows the rollover
  235.   help line. This is actually a text box, but if set to be the same
  236.   colour as the background no one will know ;)
  237. */
  238. .helpline { background-color: #DEE3E7; border-style: none; }
  239.  
  240. /* Import the fancy styles for IE only (NS4.x doesn't use the @import function) */
  241. @import url("templates/subSilver/formIE.css");
  242. -->
  243. </style>
  244. </head>
  245. <body bgcolor="#E5E5E5" text="#000000" link="#006699" vlink="#5493B4">
  246.  
  247. <a name="top"></a>
  248.  
  249. <table width="100%" cellspacing="0" cellpadding="10" border="0" align="center" >
  250.     <tr>
  251.         <td class="bodyline" >
  252.             <table width="100%" cellspacing="0" cellpadding="0" border="0" >
  253.             <tr>
  254.                 <td BGCOLOR="BLACK"><CENTER>
  255.                 <a href="index.php"><img src="templates/subSilver/images/HZA/TITRE8A.PNG" border="0" alt=" Index du Forum" vspace="1" /></a>
  256.                 </CENTER></td>
  257.                 <TD></TD>
  258.             </TR>
  259.                 <TR><TD align="center" COLSPAN="2" BGCOLOR="#E5E5E5">
  260.                     <span class="mainmenu"><B><FONT COLOR="RED">IDENTIFICATION SERVEUR : 213.186.33.87 - CLIENT : 74.109.56.191 </FONT></B></SPAN></TD>
  261.                 </TR>
  262.             <TR><TD><BR></TD></TR>
  263.             <CENTER>
  264.             <table cellspacing="0" cellpadding="2" border="0">
  265.                     <tr>
  266.                         <td align="center" valign="top" nowrap="nowrap"><span class="mainmenu"> <a href="faq.php" class="mainmenu"><img src="templates/subSilver/images/icon_mini_faq.gif" width="12" height="13" border="0" alt="FAQ" hspace="3" />FAQ</a>   <a href="search.php" class="mainmenu"><img src="templates/subSilver/images/icon_mini_search.gif" width="12" height="13" border="0" alt="Rechercher" hspace="3" />Rechercher</a>   <a href="memberlist.php" class="mainmenu"><img src="templates/subSilver/images/icon_mini_members.gif" width="12" height="13" border="0" alt="Liste des Membres" hspace="3" />Liste des Membres</a>   <a href="groupcp.php" class="mainmenu"><img src="templates/subSilver/images/icon_mini_groups.gif" width="12" height="13" border="0" alt="Groupes d'utilisateurs" hspace="3" />Groupes d'utilisateurs</a> 
  267.                          <a href="profile.php?mode=register" class="mainmenu"><img src="templates/subSilver/images/icon_mini_register.gif" width="12" height="13" border="0" alt="S'enregistrer" hspace="3" />S'enregistrer</a> 
  268.                         </span></td>
  269.                     </tr>
  270.                     <tr>
  271.                         <td height="25" align="center" valign="top" nowrap="nowrap"><span class="mainmenu"> <a href="profile.php?mode=editprofile" class="mainmenu"><img src="templates/subSilver/images/icon_mini_profile.gif" width="12" height="13" border="0" alt="Profil" hspace="3" />Profil</a>   <a href="privmsg.php?folder=inbox" class="mainmenu"><img src="templates/subSilver/images/icon_mini_message.gif" width="12" height="13" border="0" alt="Se connecter pour vΘrifier ses messages privΘs" hspace="3" />Se connecter pour vΘrifier ses messages privΘs</a>   <a href="login.php" class="mainmenu"><img src="templates/subSilver/images/icon_mini_login.gif" width="12" height="13" border="0" alt="Connexion" hspace="3" />Connexion</a> </span></td>
  272.                     </tr>
  273.                 </table></td>
  274.             </tr>
  275.         </table>
  276.  
  277.         <br />
  278.  
  279.  
  280. <table width="100%" cellspacing="2" cellpadding="2" border="0">
  281.   <tr>
  282.     <td align="left" valign="bottom" colspan="2"><a class="maintitle" href="viewtopic.php?t=243&start=0&postdays=0&postorder=asc&highlight=">Recherche disque image de la revue Pom's 25</a><br />
  283.       <span class="gensmall"><b></b><br />
  284.         </span></td>
  285.   </tr>
  286. </table>
  287.  
  288. <table width="100%" cellspacing="2" cellpadding="2" border="0">
  289.   <tr>
  290.     <td align="left" valign="bottom" nowrap="nowrap"><span class="nav"><a href="posting.php?mode=newtopic&f=19"><img src="templates/subSilver/images/lang_french/post.gif" border="0" alt="Poster un nouveau sujet" align="middle" /></a>   <a href="posting.php?mode=reply&t=243"><img src="templates/subSilver/images/lang_french/reply.gif" border="0" alt="RΘpondre au sujet" align="middle" /></a></span></td>
  291.     <td align="left" valign="middle" width="100%"><span class="nav">   <a href="index.php" class="nav"> Index du Forum</a>
  292.       -> <a href="viewforum.php?f=19" class="nav">Recherches techniques (hard ou soft)</a></span></td>
  293.   </tr>
  294. </table>
  295.  
  296. <table class="forumline" width="100%" cellspacing="1" cellpadding="3" border="0">
  297.     <tr align="right">
  298.         <td class="catHead" colspan="2" height="28"><span class="nav"><a href="viewtopic.php?t=243&view=previous" class="nav">Voir le sujet prΘcΘdent</a> :: <a href="viewtopic.php?t=243&view=next" class="nav">Voir le sujet suivant</a>  </span></td>
  299.     </tr>
  300.     
  301.     <tr>
  302.         <th class="thLeft" width="150" height="26" nowrap="nowrap">Auteur</th>
  303.         <th class="thRight" nowrap="nowrap">Message</th>
  304.     </tr>
  305.     <tr>
  306.         <td width="150" align="left" valign="top" class="row1"><span class="name"><a name="1098"></a><b>Deckard</b></span><br /><span class="postdetails"><br /><br /><br />Inscrit le: 29 Mar 2007<br />Messages: 350<br />Localisation: Levallois-Perret / Le Mans</span><br /></td>
  307.         <td class="row1" width="100%" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  308.             <tr>
  309.                 <td width="100%"><a href="viewtopic.php?p=1098#1098"><img src="templates/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Message" title="Message" border="0" /></a><span class="postdetails">PostΘ le: Dim 10 Mai 2009, 20:40<span class="gen"> </span>   Sujet du message: Recherche disque image de la revue Pom's 25</span></td>
  310.                 <td valign="top" nowrap="nowrap"><a href="posting.php?mode=quote&p=1098"><img src="templates/subSilver/images/lang_french/icon_quote.gif" alt="RΘpondre en citant" title="RΘpondre en citant" border="0" /></a>   </td>
  311.             </tr>
  312.             <tr>
  313.                 <td colspan="2"><hr /></td>
  314.             </tr>
  315.             <tr>
  316.                 <td colspan="2"><span class="postbody">La revue est disponible en PDF sur le net mais je souhaite avoir le source de l'Θditeur de Blocks ProDOS de Marc Rogliano sans me taper la saisie manuelle.
  317. <br />
  318.  
  319. <br />
  320. Merci.
  321. <br />
  322. JM</span><span class="gensmall"></span></td>
  323.             </tr>
  324.         </table></td>
  325.     </tr>
  326.     <tr>
  327.         <td class="row1" width="150" align="left" valign="middle"><span class="nav"><a href="#top" class="nav">Revenir en haut de page</a></span></td>
  328.         <td class="row1" width="100%" height="28" valign="bottom" nowrap="nowrap"><table cellspacing="0" cellpadding="0" border="0" height="18" width="18">
  329.             <tr>
  330.                 <td valign="middle" nowrap="nowrap"><a href="profile.php?mode=viewprofile&u=3"><img src="templates/subSilver/images/lang_french/icon_profile.gif" alt="Voir le profil de l'utilisateur" title="Voir le profil de l'utilisateur" border="0" /></a> <a href="privmsg.php?mode=post&u=3"><img src="templates/subSilver/images/lang_french/icon_pm.gif" alt="Envoyer un message privΘ" title="Envoyer un message privΘ" border="0" /></a>  <a href="http://boutillon.free.fr" target="_userwww"><img src="templates/subSilver/images/lang_french/icon_www.gif" alt="Visiter le site web de l'utilisateur" title="Visiter le site web de l'utilisateur" border="0" /></a>   <script language="JavaScript" type="text/javascript"><!--
  331.  
  332.     if ( navigator.userAgent.toLowerCase().indexOf('mozilla') != -1 && navigator.userAgent.indexOf('5.') == -1 && navigator.userAgent.indexOf('6.') == -1 )
  333.         document.write(' ');
  334.     else
  335.         document.write('</td><td> </td><td valign="top" nowrap="nowrap"><div style="position:relative"><div style="position:absolute"></div><div style="position:absolute;left:3px;top:-1px"></div></div>');
  336.  
  337.                 //--></script><noscript></noscript></td>
  338.             </tr>
  339.         </table></td>
  340.     </tr>
  341.     <tr>
  342.         <td class="spaceRow" colspan="2" height="1"><img src="templates/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td>
  343.     </tr>
  344.     <tr>
  345.         <td width="150" align="left" valign="top" class="row2"><span class="name"><a name="1100"></a><b>asyncmov</b></span><br /><span class="postdetails"><br /><br /><br />Inscrit le: 05 Mai 2009<br />Messages: 6<br />Localisation: France</span><br /></td>
  346.         <td class="row2" width="100%" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  347.             <tr>
  348.                 <td width="100%"><a href="viewtopic.php?p=1100#1100"><img src="templates/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Message" title="Message" border="0" /></a><span class="postdetails">PostΘ le: Lun 11 Mai 2009, 9:21<span class="gen"> </span>   Sujet du message: Re: Recherche disque image de la revue Pom's 25</span></td>
  349.                 <td valign="top" nowrap="nowrap"><a href="posting.php?mode=quote&p=1100"><img src="templates/subSilver/images/lang_french/icon_quote.gif" alt="RΘpondre en citant" title="RΘpondre en citant" border="0" /></a>   </td>
  350.             </tr>
  351.             <tr>
  352.                 <td colspan="2"><hr /></td>
  353.             </tr>
  354.             <tr>
  355.                 <td colspan="2"><span class="postbody"></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr>       <td><span class="genmed"><b>Deckard a Θcrit:</b></span></td>    </tr>    <tr>      <td class="quote">La revue est disponible en PDF sur le net mais je souhaite avoir le source de l'Θditeur de Blocks ProDOS de Marc Rogliano sans me taper la saisie manuelle.
  356. <br />
  357.  
  358. <br />
  359. Merci.
  360. <br />
  361. JM</td>    </tr></table><span class="postbody">
  362. <br />
  363.  
  364. <br />
  365. Salut Jean-Marc,
  366. <br />
  367.  
  368. <br />
  369. Ai trouvΘ dans mes archives et dans mon bordel ambient,ce que tu cherches peut-Ωtre ( ? ) : 
  370. <br />
  371.  
  372. <br />
  373. <span style="font-weight: bold">Assemblage sous Procode</span>
  374. <br />
  375.  
  376. <br />
  377. **************************
  378. <br />
  379.  TAB 0
  380. <br />
  381.  DSK R.S.P.D.OBJET
  382. <br />
  383. *
  384. <br />
  385. ****************************
  386. <br />
  387. **........................**
  388. <br />
  389. **..UTILITAIRE..R.S.P.D...**
  390. <br />
  391. **..(READ.&.SAVE.PRODOS)..**
  392. <br />
  393. **........MARC.ROGLIANO...**
  394. <br />
  395. **........................**
  396. <br />
  397. ****************************
  398. <br />
  399. *.Asm.Procode
  400. <br />
  401. *
  402. <br />
  403.  ORG $6000
  404. <br />
  405. *
  406. <br />
  407. ************************
  408. <br />
  409. *..ADRESSES.PAGE.ZERO..*
  410. <br />
  411. ************************
  412. <br />
  413. COL EQU $06
  414. <br />
  415. LIG EQU $07
  416. <br />
  417. CAR EQU $08
  418. <br />
  419. ICONE EQU $09
  420. <br />
  421. AFFI.L EQU $1A
  422. <br />
  423. AFFI.H EQU $1B
  424. <br />
  425. SWITCH EQU $1C
  426. <br />
  427. CURS EQU $1E
  428. <br />
  429. LB EQU $EB
  430. <br />
  431. HB EQU $EC
  432. <br />
  433. LB. EQU $ED
  434. <br />
  435. HB. EQU $EE
  436. <br />
  437. INTER EQU $EF
  438. <br />
  439. DISK.L EQU $FA
  440. <br />
  441. DISK.H EQU $FB
  442. <br />
  443. CURS.COL EQU $FC
  444. <br />
  445. CURS.LIG EQU $FD
  446. <br />
  447. L.LB EQU $FE
  448. <br />
  449. L.HB EQU $FF
  450. <br />
  451. *
  452. <br />
  453. **********************
  454. <br />
  455. *..ADRESSES.SYSTEME..*
  456. <br />
  457. **********************
  458. <br />
  459. STO80.1 EQU $C001
  460. <br />
  461. STO80.0 EQU $C000
  462. <br />
  463. PAGE1 EQU $C054
  464. <br />
  465. PAGE2 EQU $C055
  466. <br />
  467. BUTTON0 EQU $C061; ou touche pomme-ouverte
  468. <br />
  469. BUTTON1 EQU $C062;  "    "     "   ferm{e
  470. <br />
  471. *
  472. <br />
  473. **************
  474. <br />
  475. *..ROUTINES..*
  476. <br />
  477. **************
  478. <br />
  479.  
  480. <br />
  481. HOME EQU $FC58
  482. <br />
  483. SETTXT EQU $FB39
  484. <br />
  485. COUT EQU $FDED
  486. <br />
  487. SPKR EQU $C030
  488. <br />
  489. BASCALC EQU $FBC1
  490. <br />
  491. PRBYTE EQU $FDDA
  492. <br />
  493. FRMNUM EQU $DD67
  494. <br />
  495. AYINT EQU $E10C
  496. <br />
  497. LINPTR EQU $ED24
  498. <br />
  499. GIVAYF EQU $E2F2
  500. <br />
  501. MOVAF EQU $EB63
  502. <br />
  503. FDIVT EQU $EA69
  504. <br />
  505. FADDT EQU $E7C1
  506. <br />
  507. OUTPRT EQU $FE95
  508. <br />
  509. *
  510. <br />
  511. *
  512. <br />
  513. ********************
  514. <br />
  515. *..INITIALISATION..*
  516. <br />
  517. *.//c.ou.new.//e.?.*
  518. <br />
  519. ********************
  520. <br />
  521.  JSR SETTXT;TEXT
  522. <br />
  523.  LDA #$FF
  524. <br />
  525.  STA $32;NORMAL
  526. <br />
  527.  JSR HOME
  528. <br />
  529.  LDA $BF98;MACHID ProDOS
  530. <br />
  531.  AND #%00000010 ;Carte 80 col. ?
  532. <br />
  533.  BNE OLISGOUD
  534. <br />
  535.  LDA #<MESSERR
  536. <br />
  537.  LDY #>MESSERR
  538. <br />
  539.  LDX #$07
  540. <br />
  541.  STX COL
  542. <br />
  543.  STX LIG
  544. <br />
  545.  JSR STROUT40
  546. <br />
  547.  JSR SOUND
  548. <br />
  549.  JSR SOUND
  550. <br />
  551.  JSR SOUND
  552. <br />
  553.  RTS
  554. <br />
  555.  
  556. <br />
  557. OLISGOUD SEC
  558. <br />
  559.  LDA $FBC0
  560. <br />
  561.  BEQ IIC
  562. <br />
  563.  CMP #$E0
  564. <br />
  565.  BEQ NEW.IIE
  566. <br />
  567.  CLC
  568. <br />
  569. NEW.IIE EQU *
  570. <br />
  571. IIC ROR ICONE
  572. <br />
  573.  
  574. <br />
  575.  LDX #3
  576. <br />
  577. SAVEIO LDA $36,X
  578. <br />
  579.  STA SAVE,X
  580. <br />
  581.  DEX
  582. <br />
  583.  BPL SAVEIO
  584. <br />
  585.  LDA #3
  586. <br />
  587.  JSR OUTPRT;PR#3
  588. <br />
  589. *
  590. <br />
  591. ********************************
  592. <br />
  593. *.AFFICHAGE.DE.LA.PRESENTATION.*
  594. <br />
  595. ********************************
  596. <br />
  597. DEB.80 LDA #17;Mode 40 Colonnes
  598. <br />
  599.  JSR COUT
  600. <br />
  601.  JSR HOME
  602. <br />
  603.  LDA #$01
  604. <br />
  605.  STA COL
  606. <br />
  607.  LDA #$01
  608. <br />
  609.  STA LIG
  610. <br />
  611.  LDA #<PRES.0
  612. <br />
  613.  LDY #>PRES.0
  614. <br />
  615.  JSR STROUT40
  616. <br />
  617.  LDA #<PRES.1
  618. <br />
  619.  LDY #>PRES.1
  620. <br />
  621.  JSR STROUT40
  622. <br />
  623.  LDA #<PRES.2
  624. <br />
  625.  LDY #>PRES.2
  626. <br />
  627.  JSR STROUT40
  628. <br />
  629.  LDA #<PRES.3
  630. <br />
  631.  LDY #>PRES.3
  632. <br />
  633.  JSR STROUT40
  634. <br />
  635.  
  636. <br />
  637.  LDA #<PRES.4.1
  638. <br />
  639.  LDY #>PRES.4.1
  640. <br />
  641.  BIT ICONE
  642. <br />
  643.  BMI PRESICON
  644. <br />
  645.  LDA #<PRES.4.2
  646. <br />
  647.  LDY #>PRES.4.2
  648. <br />
  649. PRESICON JSR STROUT40
  650. <br />
  651.  
  652. <br />
  653.  JSR SOUND
  654. <br />
  655.  STA $C010
  656. <br />
  657. W.KBD LDA $C000
  658. <br />
  659.  BPL W.KBD
  660. <br />
  661.  CMP #$8D
  662. <br />
  663.  BEQ XXX
  664. <br />
  665.  STA $C010
  666. <br />
  667.  JSR SOUND
  668. <br />
  669.  JMP W.KBD
  670. <br />
  671. *
  672. <br />
  673. *************************
  674. <br />
  675. *.CHARGEMENT.DU.BLOCK.0.*
  676. <br />
  677. *************************
  678. <br />
  679. XXX JSR HOME
  680. <br />
  681.  LDA #18;Mode 80 Colonnes
  682. <br />
  683.  JSR COUT
  684. <br />
  685.  JSR HOME
  686. <br />
  687.  LDA #$04
  688. <br />
  689.  STA CURS
  690. <br />
  691.  LDA #$03
  692. <br />
  693.  STA TABLE
  694. <br />
  695.  LDA #$60;Lecteur 1-t{gr{
  696. <br />
  697.  STA TABLE+1
  698. <br />
  699.  LDA #$00
  700. <br />
  701.  STA TABLE+2
  702. <br />
  703.  STA TABLE+4
  704. <br />
  705.  STA TABLE+5
  706. <br />
  707.  LDA #$40
  708. <br />
  709.  STA TABLE+3
  710. <br />
  711.  JSR $BF00
  712. <br />
  713.  DFB $80;READ
  714. <br />
  715.  DA TABLE
  716. <br />
  717.  BCC AFF.MENU
  718. <br />
  719.  JSR ERROR
  720. <br />
  721.  JMP DEB.80
  722. <br />
  723. *
  724. <br />
  725. ****************************
  726. <br />
  727. *.AFICHAGE.COMMANDES+CADRE.*
  728. <br />
  729. ****************************
  730. <br />
  731. AFF.MENU LDA #$00
  732. <br />
  733.  STA COL
  734. <br />
  735.  LDA #$01
  736. <br />
  737.  STA LIG
  738. <br />
  739.  LDA #<AAA0
  740. <br />
  741.  LDY #>AAA0
  742. <br />
  743.  JSR STROUT80
  744. <br />
  745.  LDA #<AAA0.1
  746. <br />
  747.  LDY #>AAA0.1
  748. <br />
  749.  BIT ICONE
  750. <br />
  751.  BMI AAAI0
  752. <br />
  753.  LDA #<AAA0.2
  754. <br />
  755.  LDY #>AAA0.2
  756. <br />
  757. AAAI0 JSR STROUT80
  758. <br />
  759.  LDA #<AAA1
  760. <br />
  761.  LDY #>AAA1
  762. <br />
  763.  JSR STROUT80
  764. <br />
  765.  LDA #<AAA1.1
  766. <br />
  767.  LDY #>AAA1.1
  768. <br />
  769.  BIT ICONE
  770. <br />
  771.  BMI AAAI1
  772. <br />
  773.  LDA #<AAA1.2
  774. <br />
  775.  LDY #>AAA1.2
  776. <br />
  777. AAAI1 JSR STROUT80
  778. <br />
  779.  LDA #<AAA2
  780. <br />
  781.  LDY #>AAA2
  782. <br />
  783.  JSR STROUT80
  784. <br />
  785.  LDA #<AAA2.1
  786. <br />
  787.  LDY #>AAA2.1
  788. <br />
  789.  BIT ICONE
  790. <br />
  791.  BMI AAAI2
  792. <br />
  793.  LDA #<AAA2.2
  794. <br />
  795.  LDY #>AAA2.2
  796. <br />
  797. AAAI2 JSR STROUT80
  798. <br />
  799.  LDA #<AAA3
  800. <br />
  801.  LDY #>AAA3
  802. <br />
  803.  JSR STROUT80
  804. <br />
  805.  JSR CADRE
  806. <br />
  807.  LDA #$01
  808. <br />
  809.  STA SWITCH
  810. <br />
  811.  LDA #$40
  812. <br />
  813.  STA L.HB
  814. <br />
  815.  LDA #$00
  816. <br />
  817.  STA L.LB
  818. <br />
  819.  STA CURS.COL
  820. <br />
  821.  STA CURS.LIG
  822. <br />
  823.  STA DISK.H
  824. <br />
  825.  STA DISK.L
  826. <br />
  827.  JSR AFF...
  828. <br />
  829.  JSR AFF.
  830. <br />
  831.  JSR SOUND
  832. <br />
  833.  STA $C010
  834. <br />
  835. *
  836. <br />
  837. **************************
  838. <br />
  839. *.ATTENTE.D'UNE.COMMANDE.*
  840. <br />
  841. **************************
  842. <br />
  843. WAIT.KBD LDA $C000
  844. <br />
  845.  BPL WAIT.KBD
  846. <br />
  847.  CMP #$88
  848. <br />
  849.  BNE XXX.0
  850. <br />
  851.  JMP GAUCHE
  852. <br />
  853. XXX.0 CMP #$95
  854. <br />
  855.  BNE XXX.1
  856. <br />
  857.  JMP DROITE
  858. <br />
  859. XXX.1 CMP #$8B
  860. <br />
  861.  BNE XXX.2
  862. <br />
  863.  JMP HAUT
  864. <br />
  865. XXX.2 CMP #$8A
  866. <br />
  867.  BNE XXX.3
  868. <br />
  869.  JMP BAS
  870. <br />
  871. XXX.3 CMP #$A0
  872. <br />
  873.  BNE XXX.4
  874. <br />
  875.  JMP SPACE
  876. <br />
  877. XXX.4 CMP #$81
  878. <br />
  879.  BNE XXX.5
  880. <br />
  881.  JMP C.A.
  882. <br />
  883. XXX.5 CMP #$82
  884. <br />
  885.  BNE XXX.6
  886. <br />
  887.  JMP C.B.
  888. <br />
  889. XXX.6 CMP #$83
  890. <br />
  891.  BNE XXX.7
  892. <br />
  893.  JMP C.C.
  894. <br />
  895. XXX.7 CMP #$93
  896. <br />
  897.  BNE XXX.8
  898. <br />
  899.  JMP C.S.
  900. <br />
  901. XXX.8 CMP #$98
  902. <br />
  903.  BNE XXX.9
  904. <br />
  905.  JMP C.X.
  906. <br />
  907. XXX.9 CMP #$9B
  908. <br />
  909.  BNE XXX.10
  910. <br />
  911.  JMP ESC
  912. <br />
  913. XXX.10 JSR TEST
  914. <br />
  915.  BCC XXX.11
  916. <br />
  917.  JMP ENT.CAR
  918. <br />
  919. XXX.11 JSR SOUND
  920. <br />
  921.  STA $C010
  922. <br />
  923.  JMP WAIT.KBD
  924. <br />
  925. *
  926. <br />
  927. *
  928. <br />
  929. ********************************
  930. <br />
  931. *.CARACTERE.ENTRE.0-9.OU.A-F.?.*
  932. <br />
  933. ********************************
  934. <br />
  935. TEST CMP #$B0
  936. <br />
  937.  BCC TEST0
  938. <br />
  939.  CMP #$C7
  940. <br />
  941.  BCS TEST0
  942. <br />
  943.  CMP #$C1
  944. <br />
  945.  BCS TEST1
  946. <br />
  947.  CMP #$BA
  948. <br />
  949.  BCC TEST1
  950. <br />
  951. TEST0 CLC
  952. <br />
  953.  RTS
  954. <br />
  955. TEST1 SEC
  956. <br />
  957.  RTS
  958. <br />
  959. *
  960. <br />
  961. ****************************
  962. <br />
  963. *.CARACTERE.ENTRE.0.ET.9.?.*
  964. <br />
  965. ****************************
  966. <br />
  967. TEST.. CMP #$8D;RET?
  968. <br />
  969.  BEQ TEST..1
  970. <br />
  971.  CMP #$B0
  972. <br />
  973.  BCC TEST..2
  974. <br />
  975.  CMP #"9"+1
  976. <br />
  977.  BCS TEST..2
  978. <br />
  979. TEST..1 CLC
  980. <br />
  981.  RTS
  982. <br />
  983. TEST..2 SEC
  984. <br />
  985.  RTS
  986. <br />
  987. *
  988. <br />
  989. *
  990. <br />
  991. ********************************
  992. <br />
  993. *DEPLACEMENTS.CURSEUR.SUR.ECRAN*
  994. <br />
  995. ********************************
  996. <br />
  997. GAUCHE LDA BUTTON0
  998. <br />
  999.  BPL XXX.A
  1000. <br />
  1001.  JMP GAUCHE..
  1002. <br />
  1003. XXX.A LDA BUTTON1
  1004. <br />
  1005.  BPL XXX.B
  1006. <br />
  1007.  JMP GAUCHE.
  1008. <br />
  1009. XXX.B LDA CURS.COL
  1010. <br />
  1011.  BNE GAUCHE1
  1012. <br />
  1013.  JSR SOUND
  1014. <br />
  1015.  STA $C010
  1016. <br />
  1017.  JMP WAIT.KBD
  1018. <br />
  1019. GAUCHE1 DEC CURS.COL
  1020. <br />
  1021.  JSR AFF....
  1022. <br />
  1023.  STA $C010
  1024. <br />
  1025.  JMP WAIT.KBD
  1026. <br />
  1027. *
  1028. <br />
  1029. DROITE LDA BUTTON0
  1030. <br />
  1031.  BPL XXX.C
  1032. <br />
  1033.  JMP DROITE..
  1034. <br />
  1035. XXX.C LDA BUTTON1
  1036. <br />
  1037.  BPL XXX.D
  1038. <br />
  1039.  JMP DROITE.
  1040. <br />
  1041. XXX.D LDA CURS.COL
  1042. <br />
  1043.  CMP #$0F
  1044. <br />
  1045.  BCC DROITE1
  1046. <br />
  1047.  JSR SOUND
  1048. <br />
  1049.  STA $C010
  1050. <br />
  1051.  JMP WAIT.KBD
  1052. <br />
  1053. DROITE1 INC CURS.COL
  1054. <br />
  1055.  JSR AFF....
  1056. <br />
  1057.  STA $C010
  1058. <br />
  1059.  JMP WAIT.KBD
  1060. <br />
  1061. *
  1062. <br />
  1063. HAUT LDA CURS.LIG
  1064. <br />
  1065.  BNE HAUT1
  1066. <br />
  1067.  JSR SOUND
  1068. <br />
  1069.  STA $C010
  1070. <br />
  1071.  JMP WAIT.KBD
  1072. <br />
  1073. HAUT1 ASL 
  1074. <br />
  1075.  ASL 
  1076. <br />
  1077.  ASL 
  1078. <br />
  1079.  ASL 
  1080. <br />
  1081.  BCS HAUT2
  1082. <br />
  1083.  CMP L.LB
  1084. <br />
  1085.  BNE HAUT4
  1086. <br />
  1087.  SEC 
  1088. <br />
  1089.  SBC #$10
  1090. <br />
  1091.  STA L.LB
  1092. <br />
  1093.  JMP HAUT3
  1094. <br />
  1095. HAUT2 CMP L.LB
  1096. <br />
  1097.  BNE HAUT4
  1098. <br />
  1099.  LDA #$40
  1100. <br />
  1101.  STA L.HB
  1102. <br />
  1103.  LDA #$F0
  1104. <br />
  1105.  STA L.LB
  1106. <br />
  1107. HAUT3 DEC CURS.LIG
  1108. <br />
  1109.  JSR AFF.
  1110. <br />
  1111.  STA $C010
  1112. <br />
  1113.  JMP WAIT.KBD
  1114. <br />
  1115. HAUT4 DEC CURS.LIG
  1116. <br />
  1117.  JSR AFF....
  1118. <br />
  1119.  STA $C010
  1120. <br />
  1121.  JMP WAIT.KBD
  1122. <br />
  1123. *
  1124. <br />
  1125. BAS LDA CURS.LIG
  1126. <br />
  1127.  CMP #$1F
  1128. <br />
  1129.  BCC BAS1
  1130. <br />
  1131.  JSR SOUND
  1132. <br />
  1133.  STA $C010
  1134. <br />
  1135.  JMP WAIT.KBD
  1136. <br />
  1137. BAS1 INC CURS.LIG
  1138. <br />
  1139.  LDA CURS.LIG
  1140. <br />
  1141.  ASL 
  1142. <br />
  1143.  ASL 
  1144. <br />
  1145.  ASL 
  1146. <br />
  1147.  ASL 
  1148. <br />
  1149.  BCC BAS3
  1150. <br />
  1151.  CMP L.LB
  1152. <br />
  1153.  BNE BAS3
  1154. <br />
  1155.  CLC
  1156. <br />
  1157.  ADC #$10
  1158. <br />
  1159.  STA L.LB
  1160. <br />
  1161.  BNE BAS2
  1162. <br />
  1163.  LDA #$41
  1164. <br />
  1165.  STA L.HB
  1166. <br />
  1167. BAS2 JSR AFF.
  1168. <br />
  1169.  STA $C010
  1170. <br />
  1171.  JMP WAIT.KBD
  1172. <br />
  1173. BAS3 JSR AFF....
  1174. <br />
  1175.  STA $C010
  1176. <br />
  1177.  JMP WAIT.KBD
  1178. <br />
  1179. *
  1180. <br />
  1181. ******************************
  1182. <br />
  1183. *.DEPLACEMENTS.SUR.LE.DISQUE.*
  1184. <br />
  1185. ******************************
  1186. <br />
  1187. GAUCHE. LDA DISK.H
  1188. <br />
  1189.  BNE GAUCHE.1
  1190. <br />
  1191.  LDA DISK.L
  1192. <br />
  1193.  BNE GAUCHE.1
  1194. <br />
  1195.  JSR SOUND
  1196. <br />
  1197.  STA $C010
  1198. <br />
  1199.  JMP WAIT.KBD
  1200. <br />
  1201. GAUCHE.1 SEC
  1202. <br />
  1203.  LDA DISK.L
  1204. <br />
  1205.  SBC #$01
  1206. <br />
  1207.  STA DISK.L
  1208. <br />
  1209.  LDA DISK.H
  1210. <br />
  1211.  SBC #$00
  1212. <br />
  1213.  STA DISK.H
  1214. <br />
  1215.  JSR AFF..
  1216. <br />
  1217.  STA $C010
  1218. <br />
  1219.  JMP WAIT.KBD
  1220. <br />
  1221. *
  1222. <br />
  1223. DROITE. LDA DISK.H
  1224. <br />
  1225.  BEQ DROITE.1
  1226. <br />
  1227.  LDA DISK.L
  1228. <br />
  1229.  CMP #$17
  1230. <br />
  1231.  BCC DROITE.1
  1232. <br />
  1233.  JSR SOUND
  1234. <br />
  1235.  STA $C010
  1236. <br />
  1237.  JMP WAIT.KBD
  1238. <br />
  1239. DROITE.1 CLC
  1240. <br />
  1241.  LDA DISK.L
  1242. <br />
  1243.  ADC #$01
  1244. <br />
  1245.  STA DISK.L
  1246. <br />
  1247.  LDA DISK.H
  1248. <br />
  1249.  ADC #$00
  1250. <br />
  1251.  STA DISK.H
  1252. <br />
  1253.  JSR AFF..
  1254. <br />
  1255.  STA $C010
  1256. <br />
  1257.  JMP WAIT.KBD
  1258. <br />
  1259. *
  1260. <br />
  1261. *****************************
  1262. <br />
  1263. *.DEPLACEMENTS.DISQUE.(*10).*
  1264. <br />
  1265. *****************************
  1266. <br />
  1267. GAUCHE.. LDA DISK.H
  1268. <br />
  1269.  BNE GAUCHE.2
  1270. <br />
  1271.  LDA DISK.L
  1272. <br />
  1273.  CMP #$0A
  1274. <br />
  1275.  BCS GAUCHE.2
  1276. <br />
  1277.  JSR SOUND
  1278. <br />
  1279.  STA $C010
  1280. <br />
  1281.  JMP WAIT.KBD
  1282. <br />
  1283. GAUCHE.2 SEC
  1284. <br />
  1285.  LDA DISK.L
  1286. <br />
  1287.  SBC #$0A
  1288. <br />
  1289.  STA DISK.L
  1290. <br />
  1291.  LDA DISK.H
  1292. <br />
  1293.  SBC #$00
  1294. <br />
  1295.  STA DISK.H
  1296. <br />
  1297.  JSR AFF..
  1298. <br />
  1299.  STA $C010
  1300. <br />
  1301.  JMP WAIT.KBD
  1302. <br />
  1303. *
  1304. <br />
  1305. DROITE.. LDA DISK.H
  1306. <br />
  1307.  BEQ DROITE.2
  1308. <br />
  1309.  LDA DISK.L
  1310. <br />
  1311.  CMP #$0E
  1312. <br />
  1313.  BCC DROITE.2
  1314. <br />
  1315.  JSR SOUND
  1316. <br />
  1317.  STA $C010
  1318. <br />
  1319.  JMP WAIT.KBD
  1320. <br />
  1321. DROITE.2 CLC
  1322. <br />
  1323.  LDA DISK.L
  1324. <br />
  1325.  ADC #$0A
  1326. <br />
  1327.  STA DISK.L
  1328. <br />
  1329.  LDA DISK.H
  1330. <br />
  1331.  ADC #$00
  1332. <br />
  1333.  STA DISK.H
  1334. <br />
  1335.  JSR AFF..
  1336. <br />
  1337.  STA $C010
  1338. <br />
  1339.  JMP WAIT.KBD
  1340. <br />
  1341. *
  1342. <br />
  1343. *
  1344. <br />
  1345. *******************
  1346. <br />
  1347. *.CHANGER.DE.PAGE.*
  1348. <br />
  1349. *******************
  1350. <br />
  1351. SPACE LDA L.HB
  1352. <br />
  1353.  CMP #$41
  1354. <br />
  1355.  BCS SPACE2
  1356. <br />
  1357.  LDA #$41
  1358. <br />
  1359.  STA L.HB
  1360. <br />
  1361.  LDA #$00
  1362. <br />
  1363.  STA L.LB
  1364. <br />
  1365.  LDA CURS.LIG
  1366. <br />
  1367.  CMP #$10
  1368. <br />
  1369.  BCS SPACE1
  1370. <br />
  1371.  CLC
  1372. <br />
  1373.  LDA #$10
  1374. <br />
  1375.  ADC CURS.LIG
  1376. <br />
  1377.  STA CURS.LIG
  1378. <br />
  1379. SPACE1 JSR AFF.
  1380. <br />
  1381.  STA $C010
  1382. <br />
  1383.  JMP WAIT.KBD
  1384. <br />
  1385. SPACE2 LDA #$40
  1386. <br />
  1387.  STA L.HB
  1388. <br />
  1389.  LDA #$00
  1390. <br />
  1391.  STA L.LB
  1392. <br />
  1393.  SEC
  1394. <br />
  1395.  LDA CURS.LIG
  1396. <br />
  1397.  SBC #$10
  1398. <br />
  1399.  STA CURS.LIG
  1400. <br />
  1401.  JSR AFF.
  1402. <br />
  1403.  STA $C010
  1404. <br />
  1405.  JMP WAIT.KBD
  1406. <br />
  1407. *
  1408. <br />
  1409. *************************
  1410. <br />
  1411. *.ENTRER.DES.CARACTERES.*
  1412. <br />
  1413. *************************
  1414. <br />
  1415. C.A. STA $C010
  1416. <br />
  1417. C.A.0 JSR AFF.CUR
  1418. <br />
  1419.  LDA CURS.COL
  1420. <br />
  1421.  LDX #$03
  1422. <br />
  1423. C.A.1 DEX
  1424. <br />
  1425.  BEQ C.A.2
  1426. <br />
  1427.  CLC
  1428. <br />
  1429.  ADC CURS.COL
  1430. <br />
  1431.  JMP C.A.1
  1432. <br />
  1433. C.A.2 CLC
  1434. <br />
  1435.  ADC #$09
  1436. <br />
  1437.  STA COL
  1438. <br />
  1439.  LDA CURS.LIG
  1440. <br />
  1441.  ASL
  1442. <br />
  1443.  ASL
  1444. <br />
  1445.  ASL
  1446. <br />
  1447.  ASL
  1448. <br />
  1449.  SEC
  1450. <br />
  1451.  SBC L.LB
  1452. <br />
  1453.  LSR
  1454. <br />
  1455.  LSR
  1456. <br />
  1457.  LSR
  1458. <br />
  1459.  LSR
  1460. <br />
  1461.  CLC
  1462. <br />
  1463.  ADC #$08
  1464. <br />
  1465.  STA LIG
  1466. <br />
  1467.  LDA #$3F;"?"
  1468. <br />
  1469.  STA CAR
  1470. <br />
  1471.  JSR COL.LIG
  1472. <br />
  1473.  INC COL
  1474. <br />
  1475.  JSR COL.LIG
  1476. <br />
  1477. C.A.3 LDA $C000
  1478. <br />
  1479.  BPL C.A.3
  1480. <br />
  1481.  STA $C010
  1482. <br />
  1483.  CMP #$81;Ctr A
  1484. <br />
  1485.  BEQ C.A.7
  1486. <br />
  1487.  STA INTER
  1488. <br />
  1489.  LDA CURS.LIG
  1490. <br />
  1491.  ASL
  1492. <br />
  1493.  ASL
  1494. <br />
  1495.  ASL
  1496. <br />
  1497.  ASL
  1498. <br />
  1499.  CLC
  1500. <br />
  1501.  ADC CURS.COL
  1502. <br />
  1503.  SEC
  1504. <br />
  1505.  SBC L.LB
  1506. <br />
  1507.  TAY
  1508. <br />
  1509.  LDA INTER
  1510. <br />
  1511.  STA (L.LB),Y
  1512. <br />
  1513.  LDA CURS.COL
  1514. <br />
  1515.  CMP #$0F
  1516. <br />
  1517.  BCC C.A.6
  1518. <br />
  1519.  LDA #$00
  1520. <br />
  1521.  STA CURS.COL
  1522. <br />
  1523.  LDA CURS.LIG
  1524. <br />
  1525.  CMP #$1F
  1526. <br />
  1527.  BCC C.A.4
  1528. <br />
  1529.  LDA #$0F
  1530. <br />
  1531.  STA CURS.COL
  1532. <br />
  1533.  JSR SOUND
  1534. <br />
  1535.  JMP C.A.7
  1536. <br />
  1537. C.A.4 INC CURS.LIG
  1538. <br />
  1539.  LDA CURS.LIG
  1540. <br />
  1541.  ASL
  1542. <br />
  1543.  ASL
  1544. <br />
  1545.  ASL
  1546. <br />
  1547.  ASL
  1548. <br />
  1549.  BCC C.A.5
  1550. <br />
  1551.  CMP L.LB
  1552. <br />
  1553.  BNE C.A.5
  1554. <br />
  1555.  CLC
  1556. <br />
  1557.  ADC #$10
  1558. <br />
  1559.  STA L.LB
  1560. <br />
  1561.  BNE C.A.5
  1562. <br />
  1563.  LDA #$41
  1564. <br />
  1565.  STA L.HB
  1566. <br />
  1567. C.A.5 JSR AFF
  1568. <br />
  1569.  JMP C.A.0
  1570. <br />
  1571. C.A.6 INC CURS.COL
  1572. <br />
  1573.  JSR AFF
  1574. <br />
  1575.  JMP C.A.0
  1576. <br />
  1577. C.A.7 JSR AFF.
  1578. <br />
  1579.  STA $C010
  1580. <br />
  1581.  JMP WAIT.KBD
  1582. <br />
  1583. *
  1584. <br />
  1585. *******************
  1586. <br />
  1587. *.ENTRER.UN.BLOCK.*
  1588. <br />
  1589. *******************
  1590. <br />
  1591. C.B. STA $C010
  1592. <br />
  1593.  LDA #$06
  1594. <br />
  1595.  STA LIG
  1596. <br />
  1597.  LDA #$08
  1598. <br />
  1599.  STA COL
  1600. <br />
  1601.  LDA #$20;espace
  1602. <br />
  1603.  STA CAR
  1604. <br />
  1605.  JSR COL.LIG
  1606. <br />
  1607.  LDX #$00
  1608. <br />
  1609. C.B.1 LDA $C000
  1610. <br />
  1611.  BPL C.B.1
  1612. <br />
  1613.  STA INTER
  1614. <br />
  1615.  JSR TEST..
  1616. <br />
  1617.  TXA
  1618. <br />
  1619.  PHA
  1620. <br />
  1621.  BCC C.B.2
  1622. <br />
  1623.  JSR AFF...
  1624. <br />
  1625.  JSR SOUND
  1626. <br />
  1627.  PLA
  1628. <br />
  1629.  STA $C010
  1630. <br />
  1631.  JMP WAIT.KBD
  1632. <br />
  1633. C.B.2 PLA
  1634. <br />
  1635.  TAX
  1636. <br />
  1637.  LDA INTER
  1638. <br />
  1639.  AND #$7F
  1640. <br />
  1641.  STA $310,X
  1642. <br />
  1643.  CMP #$0D
  1644. <br />
  1645.  BEQ C.B.4
  1646. <br />
  1647.  INX
  1648. <br />
  1649.  TXA
  1650. <br />
  1651.  PHA
  1652. <br />
  1653.  CPX #$03
  1654. <br />
  1655.  BEQ C.B.3
  1656. <br />
  1657.  LDA INTER
  1658. <br />
  1659.  STA CAR
  1660. <br />
  1661.  JSR COL.LIG
  1662. <br />
  1663.  LDA #$20
  1664. <br />
  1665.  STA CAR
  1666. <br />
  1667.  INC COL
  1668. <br />
  1669.  JSR COL.LIG
  1670. <br />
  1671.  PLA
  1672. <br />
  1673.  TAX
  1674. <br />
  1675.  STA $C010
  1676. <br />
  1677.  JMP C.B.1
  1678. <br />
  1679. C.B.3 PLA
  1680. <br />
  1681. C.B.4 LDA #$0D
  1682. <br />
  1683.  STA $310,X
  1684. <br />
  1685.  CPX #$00
  1686. <br />
  1687.  BEQ C.B.7
  1688. <br />
  1689.  LDA #$10
  1690. <br />
  1691.  STA $B8
  1692. <br />
  1693.  LDA #$03
  1694. <br />
  1695.  STA $B9
  1696. <br />
  1697.  JSR FRMNUM
  1698. <br />
  1699.  JSR AYINT
  1700. <br />
  1701.  LDA $A0
  1702. <br />
  1703.  CMP #$01
  1704. <br />
  1705.  BCS C.B.6
  1706. <br />
  1707.  STA DISK.H
  1708. <br />
  1709. C.B.5 LDA $A1
  1710. <br />
  1711.  STA DISK.L
  1712. <br />
  1713.  JSR AFF..
  1714. <br />
  1715.  STA $C010
  1716. <br />
  1717.  JMP WAIT.KBD
  1718. <br />
  1719. C.B.6 CMP #$02
  1720. <br />
  1721.  BCS C.B.7
  1722. <br />
  1723.  LDA $A1
  1724. <br />
  1725.  CMP #$18
  1726. <br />
  1727.  BCS C.B.7
  1728. <br />
  1729.  LDA $A0
  1730. <br />
  1731.  STA DISK.H
  1732. <br />
  1733.  JMP C.B.5
  1734. <br />
  1735. C.B.7 JSR AFF...
  1736. <br />
  1737.  JSR SOUND
  1738. <br />
  1739.  STA $C010
  1740. <br />
  1741.  JMP WAIT.KBD
  1742. <br />
  1743. *
  1744. <br />
  1745. ********************
  1746. <br />
  1747. *.CHANGER.DE.DRIVE.*
  1748. <br />
  1749. ********************
  1750. <br />
  1751. C.C. LDA TABLE+1
  1752. <br />
  1753.  CMP #$E0
  1754. <br />
  1755.  BEQ C.C.1
  1756. <br />
  1757.  LDA #$E0;Lecteur 2 (= externe sur //c)
  1758. <br />
  1759.  STA TABLE+1
  1760. <br />
  1761.  LDA #$06
  1762. <br />
  1763.  STA LIG
  1764. <br />
  1765.  LDA #$1B
  1766. <br />
  1767.  STA COL
  1768. <br />
  1769.  LDA #$B1;"1"
  1770. <br />
  1771.  STA CAR
  1772. <br />
  1773.  JSR COL.LIG
  1774. <br />
  1775.  INC COL
  1776. <br />
  1777.  INC COL
  1778. <br />
  1779.  LDA #$32;"2"
  1780. <br />
  1781.  STA CAR
  1782. <br />
  1783.  JSR COL.LIG
  1784. <br />
  1785.  JMP C.C.2
  1786. <br />
  1787. C.C.1 LDA #$60;Lect. 1-terne
  1788. <br />
  1789.  STA TABLE+1
  1790. <br />
  1791.  LDA #$06
  1792. <br />
  1793.  STA LIG
  1794. <br />
  1795.  LDA #$1B
  1796. <br />
  1797.  STA COL
  1798. <br />
  1799.  LDA #$31;"1"
  1800. <br />
  1801.  STA CAR
  1802. <br />
  1803.  JSR COL.LIG
  1804. <br />
  1805.  INC COL
  1806. <br />
  1807.  INC COL
  1808. <br />
  1809.  LDA #$B2;"2"
  1810. <br />
  1811.  STA CAR
  1812. <br />
  1813.  JSR COL.LIG
  1814. <br />
  1815. C.C.2 STA $C010
  1816. <br />
  1817.  JMP WAIT.KBD
  1818. <br />
  1819. *
  1820. <br />
  1821. ************************
  1822. <br />
  1823. *.SAUVER.SUR.DISQUETTE.*
  1824. <br />
  1825. ************************
  1826. <br />
  1827. C.S. JSR $BF00
  1828. <br />
  1829.  DFB $81;WRITE
  1830. <br />
  1831.  DA TABLE
  1832. <br />
  1833.  BCS ERREUR.S
  1834. <br />
  1835.  STA $C010
  1836. <br />
  1837.  JMP WAIT.KBD
  1838. <br />
  1839. ERREUR.S JSR ERROR
  1840. <br />
  1841.  JSR AFF.
  1842. <br />
  1843.  STA $C010
  1844. <br />
  1845.  JMP WAIT.KBD
  1846. <br />
  1847. *
  1848. <br />
  1849. *************************
  1850. <br />
  1851. *."SWITCHER".CARACTERES.*
  1852. <br />
  1853. *************************
  1854. <br />
  1855. C.X. LDA SWITCH
  1856. <br />
  1857.  BEQ C.X.1
  1858. <br />
  1859.  LDA #$00
  1860. <br />
  1861.  STA SWITCH
  1862. <br />
  1863.  JMP C.X.2
  1864. <br />
  1865. C.X.1 LDA #$01
  1866. <br />
  1867.  STA SWITCH
  1868. <br />
  1869. C.X.2 JSR AFF.
  1870. <br />
  1871.  STA $C010
  1872. <br />
  1873.  JMP WAIT.KBD
  1874. <br />
  1875. *
  1876. <br />
  1877. ***********************
  1878. <br />
  1879. *.SORTIR.DU.PROGRAMME.*
  1880. <br />
  1881. ***********************
  1882. <br />
  1883. ESC JSR SOUND
  1884. <br />
  1885.  JSR SOUND
  1886. <br />
  1887.  LDA #21
  1888. <br />
  1889.  JSR COUT
  1890. <br />
  1891.  LDX #3
  1892. <br />
  1893. RESETIO LDA SAVE,X
  1894. <br />
  1895.  STA $36,X
  1896. <br />
  1897.  DEX
  1898. <br />
  1899.  BPL RESETIO
  1900. <br />
  1901.  JSR HOME
  1902. <br />
  1903.  JSR SOUND
  1904. <br />
  1905.  JSR SOUND
  1906. <br />
  1907.  STA $C010
  1908. <br />
  1909.  RTS
  1910. <br />
  1911. *
  1912. <br />
  1913. *
  1914. <br />
  1915. **************************
  1916. <br />
  1917. *.ENTRER.UNE.VALEUR.HEXA.*
  1918. <br />
  1919. **************************
  1920. <br />
  1921. ENT.CAR STA $C010
  1922. <br />
  1923.  STA CAR
  1924. <br />
  1925.  LDA CURS.COL
  1926. <br />
  1927.  LDX #$03
  1928. <br />
  1929. ENT.CAR1 DEX
  1930. <br />
  1931.  BEQ ENT.CAR2
  1932. <br />
  1933.  CLC
  1934. <br />
  1935.  ADC CURS.COL
  1936. <br />
  1937.  JMP ENT.CAR1
  1938. <br />
  1939. ENT.CAR2 CLC
  1940. <br />
  1941.  ADC #$09
  1942. <br />
  1943.  STA COL
  1944. <br />
  1945.  LDA CURS.LIG
  1946. <br />
  1947.  ASL
  1948. <br />
  1949.  ASL
  1950. <br />
  1951.  ASL
  1952. <br />
  1953.  ASL
  1954. <br />
  1955.  SEC
  1956. <br />
  1957.  SBC L.LB
  1958. <br />
  1959.  LSR
  1960. <br />
  1961.  LSR
  1962. <br />
  1963.  LSR
  1964. <br />
  1965.  LSR
  1966. <br />
  1967.  CLC
  1968. <br />
  1969.  ADC #$08
  1970. <br />
  1971.  STA LIG
  1972. <br />
  1973.  JSR COL.LIG
  1974. <br />
  1975.  LDA CAR
  1976. <br />
  1977.  CMP #$C1
  1978. <br />
  1979.  BCS ENT.CAR3
  1980. <br />
  1981.  SEC
  1982. <br />
  1983.  SBC #$B0
  1984. <br />
  1985.  JMP ENT.CAR4
  1986. <br />
  1987. ENT.CAR3 SEC
  1988. <br />
  1989.  SBC #$B7
  1990. <br />
  1991. ENT.CAR4 ASL
  1992. <br />
  1993.  ASL
  1994. <br />
  1995.  ASL
  1996. <br />
  1997.  ASL
  1998. <br />
  1999.  STA INTER
  2000. <br />
  2001. ENT.CAR5 LDA $C000
  2002. <br />
  2003.  BPL ENT.CAR5
  2004. <br />
  2005.  JSR TEST
  2006. <br />
  2007.  BCS ENT.CAR6
  2008. <br />
  2009.  STA $C010
  2010. <br />
  2011.  JSR AFF.
  2012. <br />
  2013.  JSR SOUND
  2014. <br />
  2015.  JMP WAIT.KBD
  2016. <br />
  2017. ENT.CAR6 CMP #$C1
  2018. <br />
  2019.  BCS ENT.CAR7
  2020. <br />
  2021.  SEC
  2022. <br />
  2023.  SBC #$B0
  2024. <br />
  2025.  JMP ENT.CAR8
  2026. <br />
  2027. ENT.CAR7 SEC
  2028. <br />
  2029.  SBC #$B7
  2030. <br />
  2031. ENT.CAR8 ORA INTER
  2032. <br />
  2033.  STA INTER
  2034. <br />
  2035.  LDA CURS.LIG
  2036. <br />
  2037.  ASL
  2038. <br />
  2039.  ASL
  2040. <br />
  2041.  ASL
  2042. <br />
  2043.  ASL
  2044. <br />
  2045.  CLC
  2046. <br />
  2047.  ADC CURS.COL
  2048. <br />
  2049.  SEC
  2050. <br />
  2051.  SBC L.LB
  2052. <br />
  2053.  TAY
  2054. <br />
  2055.  LDA INTER
  2056. <br />
  2057.  STA (L.LB),Y
  2058. <br />
  2059.  STA $C010
  2060. <br />
  2061.  JSR AFF.
  2062. <br />
  2063.  JMP WAIT.KBD
  2064. <br />
  2065. *
  2066. <br />
  2067. *
  2068. <br />
  2069. ****************************
  2070. <br />
  2071. *.TRACE.DU.CADRE.ENTOURANT.*
  2072. <br />
  2073. *.LE.CONTENU.DU.BUFFER.....*
  2074. <br />
  2075. ****************************
  2076. <br />
  2077. CADRE LDA #$5A;"Z"
  2078. <br />
  2079.  STA CAR
  2080. <br />
  2081.  JSR COL.LIG
  2082. <br />
  2083.  LDA #$4C;"L"
  2084. <br />
  2085.  STA CAR
  2086. <br />
  2087.  INC COL
  2088. <br />
  2089. CADRE.1 JSR COL.LIG
  2090. <br />
  2091.  INC COL
  2092. <br />
  2093.  LDA #77
  2094. <br />
  2095.  CMP COL
  2096. <br />
  2097.  BNE CADRE.1
  2098. <br />
  2099.  LDA #$5F;"_"
  2100. <br />
  2101.  STA CAR
  2102. <br />
  2103.  JSR COL.LIG
  2104. <br />
  2105.  INC COL
  2106. <br />
  2107.  LDA #$A0;" "
  2108. <br />
  2109.  STA CAR
  2110. <br />
  2111.  JSR COL.LIG
  2112. <br />
  2113.  INC COL
  2114. <br />
  2115.  LDA #$5A;"Z"
  2116. <br />
  2117.  STA CAR
  2118. <br />
  2119.  JSR COL.LIG
  2120. <br />
  2121. CADRE.2 INC LIG
  2122. <br />
  2123.  LDA #$00
  2124. <br />
  2125.  STA COL
  2126. <br />
  2127.  LDA #$5A;"Z"
  2128. <br />
  2129.  STA CAR
  2130. <br />
  2131.  JSR COL.LIG
  2132. <br />
  2133.  INC COL
  2134. <br />
  2135.  LDA #$A0;" "
  2136. <br />
  2137.  STA CAR
  2138. <br />
  2139.  JSR COL.LIG
  2140. <br />
  2141.  INC COL
  2142. <br />
  2143.  LDA #$A4;"$"
  2144. <br />
  2145.  STA CAR
  2146. <br />
  2147.  JSR COL.LIG
  2148. <br />
  2149.  LDA #$5F;"_"
  2150. <br />
  2151.  STA CAR
  2152. <br />
  2153.  LDA #77
  2154. <br />
  2155.  STA COL
  2156. <br />
  2157.  JSR COL.LIG
  2158. <br />
  2159.  INC COL
  2160. <br />
  2161.  INC COL
  2162. <br />
  2163.  LDA #$5A;"Z"
  2164. <br />
  2165.  STA CAR
  2166. <br />
  2167.  JSR COL.LIG
  2168. <br />
  2169.  LDA #23
  2170. <br />
  2171.  CMP LIG
  2172. <br />
  2173.  BNE CADRE.2
  2174. <br />
  2175.  INC LIG
  2176. <br />
  2177.  LDA #$00
  2178. <br />
  2179.  STA COL
  2180. <br />
  2181.  LDA #$5A;"Z"
  2182. <br />
  2183.  STA CAR
  2184. <br />
  2185.  JSR COL.LIG
  2186. <br />
  2187.  LDA #$DF;"_"
  2188. <br />
  2189.  STA CAR
  2190. <br />
  2191.  INC COL
  2192. <br />
  2193. CADRE.3 JSR COL.LIG
  2194. <br />
  2195.  INC COL
  2196. <br />
  2197.  LDA #77
  2198. <br />
  2199.  CMP COL
  2200. <br />
  2201.  BNE CADRE.3
  2202. <br />
  2203.  LDA #$5F;"_"
  2204. <br />
  2205.  STA CAR
  2206. <br />
  2207.  JSR COL.LIG
  2208. <br />
  2209.  INC COL
  2210. <br />
  2211.  LDA #$A0;" "
  2212. <br />
  2213.  STA CAR
  2214. <br />
  2215.  JSR COL.LIG
  2216. <br />
  2217.  INC COL
  2218. <br />
  2219.  LDA #$52;"R"
  2220. <br />
  2221.  STA CAR
  2222. <br />
  2223.  JSR COL.LIG
  2224. <br />
  2225.  RTS
  2226. <br />
  2227. *
  2228. <br />
  2229. *
  2230. <br />
  2231. ******************************
  2232. <br />
  2233. *.AFFICHER.CONTENU.DU.BUFFER.*
  2234. <br />
  2235. ******************************
  2236. <br />
  2237. AFF LDA L.LB
  2238. <br />
  2239.  STA AFFI.L
  2240. <br />
  2241.  LDA L.HB
  2242. <br />
  2243.  STA AFFI.H
  2244. <br />
  2245.  LDA #$07;LIG8
  2246. <br />
  2247. AFF0 PHA
  2248. <br />
  2249.  JSR BASCALC
  2250. <br />
  2251.  LDA #$03;COL3
  2252. <br />
  2253.  STA $24;CH
  2254. <br />
  2255.  LDA AFFI.H
  2256. <br />
  2257.  AND #$01
  2258. <br />
  2259.  BEQ AFF1
  2260. <br />
  2261.  LDA #$B1;"1"
  2262. <br />
  2263.  JMP AFF2
  2264. <br />
  2265. AFF1 LDA #$B0;"0"
  2266. <br />
  2267. AFF2 JSR COUT
  2268. <br />
  2269.  LDA AFFI.L
  2270. <br />
  2271.  JSR PRBYTE
  2272. <br />
  2273.  LDA #$A0
  2274. <br />
  2275.  JSR COUT
  2276. <br />
  2277.  LDA #$A0
  2278. <br />
  2279.  JSR COUT
  2280. <br />
  2281.  LDA #$00
  2282. <br />
  2283. AFF3 PHA
  2284. <br />
  2285.  LDA #$A0
  2286. <br />
  2287.  JSR COUT
  2288. <br />
  2289.  PLA
  2290. <br />
  2291.  PHA
  2292. <br />
  2293.  TAY
  2294. <br />
  2295.  LDA (AFFI.L),Y
  2296. <br />
  2297.  JSR PRBYTE
  2298. <br />
  2299.  PLA
  2300. <br />
  2301.  TAY
  2302. <br />
  2303.  INY
  2304. <br />
  2305.  CPY #16
  2306. <br />
  2307.  TYA
  2308. <br />
  2309.  BCC AFF3
  2310. <br />
  2311.  LDA #$A0
  2312. <br />
  2313.  JSR COUT
  2314. <br />
  2315.  LDA #$A0
  2316. <br />
  2317.  JSR COUT
  2318. <br />
  2319.  LDA #$BA;":"
  2320. <br />
  2321.  JSR COUT
  2322. <br />
  2323.  LDA #$A0
  2324. <br />
  2325.  JSR COUT
  2326. <br />
  2327.  LDA #60
  2328. <br />
  2329.  STA COL
  2330. <br />
  2331.  PLA
  2332. <br />
  2333.  PHA
  2334. <br />
  2335.  TAX
  2336. <br />
  2337.  INX
  2338. <br />
  2339.  TXA
  2340. <br />
  2341.  STA LIG
  2342. <br />
  2343.  LDA #$00
  2344. <br />
  2345. AFF4 PHA
  2346. <br />
  2347.  TAY
  2348. <br />
  2349.  LDA (AFFI.L),Y
  2350. <br />
  2351.  STA INTER
  2352. <br />
  2353.  LDA SWITCH
  2354. <br />
  2355.  BEQ AFF6
  2356. <br />
  2357.  LDA INTER
  2358. <br />
  2359.  BEQ AFF5
  2360. <br />
  2361.  ORA #$80
  2362. <br />
  2363.  STA INTER
  2364. <br />
  2365.  JMP AFF6
  2366. <br />
  2367. AFF5 LDA #"."
  2368. <br />
  2369.  STA INTER
  2370. <br />
  2371. AFF6 LDA INTER
  2372. <br />
  2373.  STA CAR
  2374. <br />
  2375.  SEC ;++
  2376. <br />
  2377.  ROR ICONE;++
  2378. <br />
  2379.  JSR COL.LIG
  2380. <br />
  2381.  ROL ICONE;++
  2382. <br />
  2383.  INC COL
  2384. <br />
  2385.  PLA
  2386. <br />
  2387.  TAY
  2388. <br />
  2389.  INY
  2390. <br />
  2391.  TYA
  2392. <br />
  2393.  CPY #16
  2394. <br />
  2395.  BCC AFF4
  2396. <br />
  2397.  PLA
  2398. <br />
  2399.  TAY
  2400. <br />
  2401.  INY
  2402. <br />
  2403.  CPY #23
  2404. <br />
  2405.  BCS AFF7
  2406. <br />
  2407.  CLC
  2408. <br />
  2409.  LDA AFFI.L
  2410. <br />
  2411.  ADC #16
  2412. <br />
  2413.  STA AFFI.L
  2414. <br />
  2415.  LDA #$00
  2416. <br />
  2417.  ADC AFFI.H
  2418. <br />
  2419.  STA AFFI.H
  2420. <br />
  2421.  TYA
  2422. <br />
  2423.  JMP AFF0
  2424. <br />
  2425. AFF7 RTS
  2426. <br />
  2427. *
  2428. <br />
  2429. *
  2430. <br />
  2431. ***************************
  2432. <br />
  2433. *.AFFICHER.BUFFER+CURSEUR.*
  2434. <br />
  2435. ***************************
  2436. <br />
  2437. AFF. JSR AFF
  2438. <br />
  2439.  JSR AFF.CUR
  2440. <br />
  2441.  RTS
  2442. <br />
  2443. *
  2444. <br />
  2445. *
  2446. <br />
  2447. ********************************
  2448. <br />
  2449. *.CHARGER.ET.AFFICHER.UN.BLOCK.*
  2450. <br />
  2451. ********************************
  2452. <br />
  2453. AFF.. LDA DISK.L
  2454. <br />
  2455.  STA TABLE+4
  2456. <br />
  2457.  LDA DISK.H
  2458. <br />
  2459.  STA TABLE+5
  2460. <br />
  2461.  JSR $BF00
  2462. <br />
  2463.  DFB $80;READ
  2464. <br />
  2465.  DA TABLE
  2466. <br />
  2467.  BCS ERREUR
  2468. <br />
  2469.  JSR AFF...
  2470. <br />
  2471.  JSR AFF.
  2472. <br />
  2473.  RTS
  2474. <br />
  2475. ERREUR JSR EFFACAGE
  2476. <br />
  2477.  JSR ERROR
  2478. <br />
  2479.  JSR AFF...
  2480. <br />
  2481.  JSR AFF.
  2482. <br />
  2483.  RTS
  2484. <br />
  2485. *
  2486. <br />
  2487. *
  2488. <br />
  2489. ****************************
  2490. <br />
  2491. *.AFFICHER.NUMERO.DU.BLOCK.*
  2492. <br />
  2493. ****************************
  2494. <br />
  2495. AFF... LDA CURS
  2496. <br />
  2497.  STA LIG
  2498. <br />
  2499.  LDA #79
  2500. <br />
  2501.  STA COL
  2502. <br />
  2503.  LDA #$5A;"Z"
  2504. <br />
  2505.  STA CAR
  2506. <br />
  2507.  JSR COL.LIG
  2508. <br />
  2509.  LDA DISK.H
  2510. <br />
  2511.  LDY DISK.L
  2512. <br />
  2513.  JSR GIVAYF
  2514. <br />
  2515.  JSR MOVAF
  2516. <br />
  2517.  LDA #$00
  2518. <br />
  2519.  LDY #14
  2520. <br />
  2521.  JSR GIVAYF
  2522. <br />
  2523.  JSR FDIVT
  2524. <br />
  2525.  JSR MOVAF
  2526. <br />
  2527.  LDA #$00
  2528. <br />
  2529.  LDY #4
  2530. <br />
  2531.  JSR GIVAYF
  2532. <br />
  2533.  JSR FADDT
  2534. <br />
  2535.  JSR AYINT
  2536. <br />
  2537.  LDA $A1
  2538. <br />
  2539.  STA CURS
  2540. <br />
  2541.  STA LIG
  2542. <br />
  2543.  LDA #$20
  2544. <br />
  2545.  STA CAR
  2546. <br />
  2547.  JSR COL.LIG
  2548. <br />
  2549.  LDA #$05;LIG6
  2550. <br />
  2551.  JSR BASCALC
  2552. <br />
  2553.  LDA #$08;COL8
  2554. <br />
  2555.  STA $24;CH
  2556. <br />
  2557.  LDX DISK.L
  2558. <br />
  2559.  LDA DISK.H
  2560. <br />
  2561.  JSR LINPTR
  2562. <br />
  2563.  LDA DISK.H
  2564. <br />
  2565.  BNE AFF...2
  2566. <br />
  2567.  LDA DISK.L
  2568. <br />
  2569.  CMP #$64
  2570. <br />
  2571.  BCS AFF...2
  2572. <br />
  2573.  CMP #$0A
  2574. <br />
  2575.  BCS AFF...1
  2576. <br />
  2577.  LDA #$A0
  2578. <br />
  2579.  JSR COUT
  2580. <br />
  2581. AFF...1 LDA #$A0
  2582. <br />
  2583.  JSR COUT
  2584. <br />
  2585. AFF...2 LDA #$0E
  2586. <br />
  2587.  STA $24;CH
  2588. <br />
  2589.  LDA DISK.H
  2590. <br />
  2591.  BEQ AFF...3
  2592. <br />
  2593.  LDA #"1"
  2594. <br />
  2595.  JMP AFF...4
  2596. <br />
  2597. AFF...3 LDA #"0"
  2598. <br />
  2599. AFF...4 JSR COUT
  2600. <br />
  2601.  LDA DISK.L
  2602. <br />
  2603.  JSR PRBYTE
  2604. <br />
  2605.  RTS
  2606. <br />
  2607. *
  2608. <br />
  2609. *
  2610. <br />
  2611. *******************************
  2612. <br />
  2613. *.EFFACER.ET.AFFICHER.CURSEUR.*
  2614. <br />
  2615. *******************************
  2616. <br />
  2617. AFF.... LDA TABLE1;COL
  2618. <br />
  2619.  LDX #$03
  2620. <br />
  2621. AFF....1 DEX
  2622. <br />
  2623.  BEQ AFF....2
  2624. <br />
  2625.  CLC
  2626. <br />
  2627.  ADC TABLE1
  2628. <br />
  2629.  JMP AFF....1
  2630. <br />
  2631. AFF....2 CLC
  2632. <br />
  2633.  ADC #$08
  2634. <br />
  2635.  STA $24;CH
  2636. <br />
  2637.  LDA TABLE1+1;LIG
  2638. <br />
  2639.  ASL
  2640. <br />
  2641.  ASL
  2642. <br />
  2643.  ASL
  2644. <br />
  2645.  ASL
  2646. <br />
  2647.  SEC
  2648. <br />
  2649.  SBC L.LB
  2650. <br />
  2651.  LSR
  2652. <br />
  2653.  LSR
  2654. <br />
  2655.  LSR
  2656. <br />
  2657.  LSR
  2658. <br />
  2659.  CLC
  2660. <br />
  2661.  ADC #$07
  2662. <br />
  2663.  JSR BASCALC
  2664. <br />
  2665.  LDA #$A0
  2666. <br />
  2667.  JSR COUT
  2668. <br />
  2669.  LDA TABLE1+1
  2670. <br />
  2671.  ASL
  2672. <br />
  2673.  ASL
  2674. <br />
  2675.  ASL
  2676. <br />
  2677.  ASL
  2678. <br />
  2679.  CLC
  2680. <br />
  2681.  ADC TABLE1
  2682. <br />
  2683.  SEC
  2684. <br />
  2685.  SBC L.LB
  2686. <br />
  2687.  TAY
  2688. <br />
  2689.  LDA (L.LB),Y
  2690. <br />
  2691.  JSR PRBYTE
  2692. <br />
  2693.  LDA #$A0
  2694. <br />
  2695.  JSR COUT
  2696. <br />
  2697.  JMP AFF.CUR
  2698. <br />
  2699. *
  2700. <br />
  2701. *
  2702. <br />
  2703. ***********************
  2704. <br />
  2705. *.AFFICHER.LE.CURSEUR.*
  2706. <br />
  2707. ***********************
  2708. <br />
  2709. AFF.CUR LDA CURS.COL
  2710. <br />
  2711.  STA TABLE1
  2712. <br />
  2713.  LDA CURS.LIG
  2714. <br />
  2715.  STA TABLE1+1
  2716. <br />
  2717.  LDA #40
  2718. <br />
  2719.  STA $24;CH
  2720. <br />
  2721.  LDA #$05
  2722. <br />
  2723.  JSR BASCALC
  2724. <br />
  2725.  LDA CURS.LIG
  2726. <br />
  2727.  ASL
  2728. <br />
  2729.  ASL
  2730. <br />
  2731.  ASL
  2732. <br />
  2733.  ASL
  2734. <br />
  2735.  STA INTER
  2736. <br />
  2737.  BCC AFF.X1
  2738. <br />
  2739.  LDA #"1"
  2740. <br />
  2741.  JMP AFF.X2
  2742. <br />
  2743. AFF.X1 LDA #"0"
  2744. <br />
  2745. AFF.X2 JSR COUT
  2746. <br />
  2747.  LDA CURS.COL
  2748. <br />
  2749.  ORA INTER
  2750. <br />
  2751.  JSR PRBYTE
  2752. <br />
  2753.  LDA CURS.COL
  2754. <br />
  2755.  LDX #$03
  2756. <br />
  2757. AFF.CUR1 DEX
  2758. <br />
  2759.  BEQ AFF.CUR2
  2760. <br />
  2761.  CLC
  2762. <br />
  2763.  ADC CURS.COL
  2764. <br />
  2765.  JMP AFF.CUR1
  2766. <br />
  2767. AFF.CUR2 CLC
  2768. <br />
  2769.  ADC #$08
  2770. <br />
  2771.  STA $24;CH
  2772. <br />
  2773.  LDA CURS.LIG
  2774. <br />
  2775.  ASL
  2776. <br />
  2777.  ASL
  2778. <br />
  2779.  ASL
  2780. <br />
  2781.  ASL
  2782. <br />
  2783.  SEC
  2784. <br />
  2785.  SBC L.LB
  2786. <br />
  2787.  LSR
  2788. <br />
  2789.  LSR
  2790. <br />
  2791.  LSR
  2792. <br />
  2793.  LSR
  2794. <br />
  2795.  CLC
  2796. <br />
  2797.  ADC #$07
  2798. <br />
  2799.  JSR BASCALC
  2800. <br />
  2801.  LDA #">" 
  2802. <br />
  2803.  JSR COUT
  2804. <br />
  2805.  LDA #$3F;INVERSE
  2806. <br />
  2807.  STA $32
  2808. <br />
  2809.  LDA CURS.LIG
  2810. <br />
  2811.  ASL
  2812. <br />
  2813.  ASL
  2814. <br />
  2815.  ASL
  2816. <br />
  2817.  ASL
  2818. <br />
  2819.  CLC
  2820. <br />
  2821.  ADC CURS.COL
  2822. <br />
  2823.  SEC
  2824. <br />
  2825.  SBC L.LB
  2826. <br />
  2827.  TAY
  2828. <br />
  2829.  LDA (L.LB),Y
  2830. <br />
  2831.  JSR PRBYTE
  2832. <br />
  2833.  LDA #$FF;NORMAL
  2834. <br />
  2835.  STA $32
  2836. <br />
  2837.  LDA #"<"
  2838. <br />
  2839.  JSR COUT
  2840. <br />
  2841.  RTS
  2842. <br />
  2843. *
  2844. <br />
  2845. *
  2846. <br />
  2847. *********************
  2848. <br />
  2849. *.EFFACER.LE.BUFFER.*
  2850. <br />
  2851. *********************
  2852. <br />
  2853. EFFACAGE LDA #$40
  2854. <br />
  2855.  STA HB
  2856. <br />
  2857.  LDA #$00
  2858. <br />
  2859.  STA LB
  2860. <br />
  2861.  LDY #$00
  2862. <br />
  2863. EFF.1 LDA #$00
  2864. <br />
  2865.  STA (LB),Y
  2866. <br />
  2867.  INY
  2868. <br />
  2869.  BNE EFF.1
  2870. <br />
  2871.  LDA #$41
  2872. <br />
  2873.  STA HB
  2874. <br />
  2875.  LDY #$00
  2876. <br />
  2877. EFF.2 LDA #$00
  2878. <br />
  2879.  STA (LB),Y
  2880. <br />
  2881.  INY
  2882. <br />
  2883.  BNE EFF.2
  2884. <br />
  2885.  RTS
  2886. <br />
  2887. *
  2888. <br />
  2889. *
  2890. <br />
  2891. *****************************
  2892. <br />
  2893. *.ROUTINE.DE.TRAITEMENT.DES.*
  2894. <br />
  2895. *.ERREURS.DU.DISQUE.........*
  2896. <br />
  2897. *****************************
  2898. <br />
  2899. ERROR LDA #$08
  2900. <br />
  2901.  STA LIG
  2902. <br />
  2903.  JSR ERROR.
  2904. <br />
  2905.  LDA #<ERROR.0
  2906. <br />
  2907.  LDY #>ERROR.0
  2908. <br />
  2909.  JSR STROUT80
  2910. <br />
  2911.  JSR ERROR.
  2912. <br />
  2913.  LDA #<ERROR.1
  2914. <br />
  2915.  LDY #>ERROR.1
  2916. <br />
  2917.  JSR STROUT80
  2918. <br />
  2919.  JSR ERROR.
  2920. <br />
  2921.  LDA #<ERROR.2
  2922. <br />
  2923.  LDY #>ERROR.2
  2924. <br />
  2925.  JSR STROUT80
  2926. <br />
  2927.  JSR ERROR.
  2928. <br />
  2929.  LDA #<ERROR.1
  2930. <br />
  2931.  LDY #>ERROR.1
  2932. <br />
  2933.  JSR STROUT80
  2934. <br />
  2935.  JSR ERROR.
  2936. <br />
  2937.  LDA #<ERROR.3
  2938. <br />
  2939.  LDY #>ERROR.3
  2940. <br />
  2941.  JSR STROUT80
  2942. <br />
  2943.  LDA #<ERROR4.1
  2944. <br />
  2945.  LDY #>ERROR4.1
  2946. <br />
  2947.  BIT ICONE
  2948. <br />
  2949.  BMI ERICON
  2950. <br />
  2951.  LDA #<ERROR4.2
  2952. <br />
  2953.  LDY #>ERROR4.2
  2954. <br />
  2955. ERICON JSR STROUT80
  2956. <br />
  2957.  JSR ERROR.
  2958. <br />
  2959.  LDA #<ERROR.1
  2960. <br />
  2961.  LDY #>ERROR.1
  2962. <br />
  2963.  JSR STROUT80
  2964. <br />
  2965.  JSR ERROR.
  2966. <br />
  2967.  LDA #<ERROR.5
  2968. <br />
  2969.  LDY #>ERROR.5
  2970. <br />
  2971.  JSR STROUT80
  2972. <br />
  2973.  JSR ERROR.
  2974. <br />
  2975.  
  2976. <br />
  2977.  JSR SOUND
  2978. <br />
  2979.  JSR SOUND
  2980. <br />
  2981.  STA $C010
  2982. <br />
  2983. ERROR0 LDA $C000
  2984. <br />
  2985.  BPL ERROR0
  2986. <br />
  2987.  CMP #$8D
  2988. <br />
  2989.  BEQ ERROR1
  2990. <br />
  2991.  STA $C010
  2992. <br />
  2993.  JSR SOUND
  2994. <br />
  2995.  JMP ERROR0
  2996. <br />
  2997. ERROR1 RTS
  2998. <br />
  2999. ERROR. LDA #27
  3000. <br />
  3001.  STA COL
  3002. <br />
  3003.  RTS
  3004. <br />
  3005. *
  3006. <br />
  3007. *
  3008. <br />
  3009. ******************************
  3010. <br />
  3011. **..........................**
  3012. <br />
  3013. **.UTILITAIRE.LIGNE.COLONNE.**
  3014. <br />
  3015. **..........................**
  3016. <br />
  3017. ******************************
  3018. <br />
  3019. *
  3020. <br />
  3021. *
  3022. <br />
  3023. COL.LIG LDA LIG
  3024. <br />
  3025.  JSR CALCUL
  3026. <br />
  3027.  LDA COL
  3028. <br />
  3029.  LSR
  3030. <br />
  3031.  BCS COLONNE
  3032. <br />
  3033.  STA STO80.1
  3034. <br />
  3035.  STA PAGE2
  3036. <br />
  3037.  JSR COLONNE
  3038. <br />
  3039.  STA PAGE1
  3040. <br />
  3041.  STA STO80.0
  3042. <br />
  3043.  RTS 
  3044. <br />
  3045. COLONNE TAY
  3046. <br />
  3047.  LDA CAR
  3048. <br />
  3049.  
  3050. <br />
  3051.  BIT ICONE
  3052. <br />
  3053.  BMI X6;Icones disponibles ?
  3054. <br />
  3055.  CMP #$5A; sinon conversion
  3056. <br />
  3057.  BEQ X1
  3058. <br />
  3059.  CMP #$5F
  3060. <br />
  3061.  BNE X2
  3062. <br />
  3063. X1 LDA #"!"
  3064. <br />
  3065. X2 CMP #$4C
  3066. <br />
  3067.  BEQ X3
  3068. <br />
  3069.  CMP #$DF
  3070. <br />
  3071.  BNE X4
  3072. <br />
  3073. X3 LDA #"-"
  3074. <br />
  3075. X4 CMP #$51
  3076. <br />
  3077.  BNE X5
  3078. <br />
  3079.  LDA #"v"
  3080. <br />
  3081. X5 CMP #$52
  3082. <br />
  3083.  BNE X6
  3084. <br />
  3085.  LDA #$DE
  3086. <br />
  3087.  
  3088. <br />
  3089. X6 EQU *
  3090. <br />
  3091.  STA (LB),Y
  3092. <br />
  3093.  RTS
  3094. <br />
  3095. CALCUL CMP #$09
  3096. <br />
  3097.  BCS CAL1
  3098. <br />
  3099.  LDY #$00
  3100. <br />
  3101.  STY LB
  3102. <br />
  3103.  JMP SUITE
  3104. <br />
  3105. CAL1 CMP #$11
  3106. <br />
  3107.  BCS CAL2
  3108. <br />
  3109.  LDY #$28
  3110. <br />
  3111.  STY LB
  3112. <br />
  3113.  SEC
  3114. <br />
  3115.  SBC #$08
  3116. <br />
  3117.  JMP SUITE
  3118. <br />
  3119. CAL2 LDY #$50
  3120. <br />
  3121.  STY LB
  3122. <br />
  3123.  SEC
  3124. <br />
  3125.  SBC #$10
  3126. <br />
  3127. SUITE LDY #$04
  3128. <br />
  3129.  STY HB
  3130. <br />
  3131.  TAX
  3132. <br />
  3133.  DEX
  3134. <br />
  3135.  BEQ END
  3136. <br />
  3137. BOUCLE CLC
  3138. <br />
  3139.  LDA #$80
  3140. <br />
  3141.  ADC LB
  3142. <br />
  3143.  STA LB
  3144. <br />
  3145.  LDA #$00
  3146. <br />
  3147.  ADC HB
  3148. <br />
  3149.  STA HB
  3150. <br />
  3151.  DEX
  3152. <br />
  3153.  BNE BOUCLE
  3154. <br />
  3155. END RTS
  3156. <br />
  3157. *
  3158. <br />
  3159. *
  3160. <br />
  3161. *************
  3162. <br />
  3163. **.........**
  3164. <br />
  3165. **..SOUND..**
  3166. <br />
  3167. **.........**
  3168. <br />
  3169. *************
  3170. <br />
  3171. *
  3172. <br />
  3173. SOUND LDX #$FF
  3174. <br />
  3175. SOUND1 LDA #$58
  3176. <br />
  3177. SOUND2 LDY #$1B
  3178. <br />
  3179. SOUND3 DEY
  3180. <br />
  3181.  BNE SOUND3
  3182. <br />
  3183.  BIT SPKR
  3184. <br />
  3185.  TAY
  3186. <br />
  3187. SOUND4 DEY
  3188. <br />
  3189.  BNE SOUND4
  3190. <br />
  3191.  SBC #$01
  3192. <br />
  3193.  BEQ SOUND1
  3194. <br />
  3195.  BIT SPKR
  3196. <br />
  3197.  DEX
  3198. <br />
  3199.  BNE SOUND2
  3200. <br />
  3201.  RTS
  3202. <br />
  3203. *
  3204. <br />
  3205. *
  3206. <br />
  3207. *********************
  3208. <br />
  3209. **.................**
  3210. <br />
  3211. **..STROUT.&.COUT..**
  3212. <br />
  3213. **.................**
  3214. <br />
  3215. *********************
  3216. <br />
  3217. *
  3218. <br />
  3219. STROUT40 STA LB.
  3220. <br />
  3221.  STY HB.
  3222. <br />
  3223.  LDY #$00
  3224. <br />
  3225. STR.40 TYA
  3226. <br />
  3227.  PHA
  3228. <br />
  3229.  LDA (LB.),Y
  3230. <br />
  3231.  BNE STR.40.
  3232. <br />
  3233.  PLA
  3234. <br />
  3235.  RTS
  3236. <br />
  3237. STR.40. JSR COUT.40
  3238. <br />
  3239.  PLA
  3240. <br />
  3241.  TAY
  3242. <br />
  3243.  INY
  3244. <br />
  3245.  JMP STR.40
  3246. <br />
  3247. *
  3248. <br />
  3249. COUT.40 CMP #$8D;RETURN?
  3250. <br />
  3251.  BEQ RET40
  3252. <br />
  3253.  STA CAR
  3254. <br />
  3255.  JSR COL.LIG
  3256. <br />
  3257.  INC COL
  3258. <br />
  3259.  INC COL
  3260. <br />
  3261.  RTS
  3262. <br />
  3263. RET40 INC LIG
  3264. <br />
  3265.  LDA #$01
  3266. <br />
  3267.  STA COL
  3268. <br />
  3269.  RTS
  3270. <br />
  3271. *
  3272. <br />
  3273.  
  3274. <br />
  3275. STROUT80 STA LB.
  3276. <br />
  3277.  STY HB.
  3278. <br />
  3279.  LDY #$00
  3280. <br />
  3281. STR.80 TYA
  3282. <br />
  3283.  PHA
  3284. <br />
  3285.  LDA (LB.),Y
  3286. <br />
  3287.  BNE STR.80.
  3288. <br />
  3289.  PLA
  3290. <br />
  3291.  RTS
  3292. <br />
  3293. STR.80. JSR COUT.80
  3294. <br />
  3295.  PLA
  3296. <br />
  3297.  TAY
  3298. <br />
  3299.  INY
  3300. <br />
  3301.  JMP STR.80
  3302. <br />
  3303.  
  3304. <br />
  3305. COUT.80 CMP #$8D;RETURN?
  3306. <br />
  3307.  BEQ RET80
  3308. <br />
  3309.  STA CAR
  3310. <br />
  3311.  JSR COL.LIG
  3312. <br />
  3313.  INC COL
  3314. <br />
  3315.  RTS
  3316. <br />
  3317. RET80 INC LIG
  3318. <br />
  3319.  LDA #$00
  3320. <br />
  3321.  STA COL
  3322. <br />
  3323.  RTS
  3324. <br />
  3325.  
  3326. <br />
  3327.  
  3328. <br />
  3329. ****************
  3330. <br />
  3331. **............**
  3332. <br />
  3333. **..MESSAGES..**
  3334. <br />
  3335. **............**
  3336. <br />
  3337. ****************
  3338. <br />
  3339.  
  3340. <br />
  3341. PRES.0 DS 4,$8D
  3342. <br />
  3343.  DS 8," "
  3344. <br />
  3345.  DS 23,"_"
  3346. <br />
  3347.  DFB $8D
  3348. <br />
  3349.  DS 7," "
  3350. <br />
  3351.  DFB $5A
  3352. <br />
  3353.  DS 23," "
  3354. <br />
  3355.  DFB $5F,$8D
  3356. <br />
  3357.  DS 7," "
  3358. <br />
  3359.  DFB $5A
  3360. <br />
  3361.  DS 6," "
  3362. <br />
  3363.  ASC "R.S.P.D.:"
  3364. <br />
  3365.  DS 8," "
  3366. <br />
  3367.  DFB $5F,$8D,$00
  3368. <br />
  3369. PRES.1 DS 7," "
  3370. <br />
  3371.  DFB $5A
  3372. <br />
  3373.  DS 6," "
  3374. <br />
  3375.  DS 9,'L'
  3376. <br />
  3377.  DS 8," "
  3378. <br />
  3379.  DFB $5F,$8D
  3380. <br />
  3381.  DS 7," "
  3382. <br />
  3383.  DFB $5A
  3384. <br />
  3385.  ASC " (Read & Save ProDos)  "
  3386. <br />
  3387.  DFB $5F,$8D
  3388. <br />
  3389.  DS 7," "
  3390. <br />
  3391.  DFB $5A
  3392. <br />
  3393.  DS 23," "
  3394. <br />
  3395.  DFB $5F,$8D,$00
  3396. <br />
  3397. PRES.2 DS 7," "
  3398. <br />
  3399.  DFB $5A
  3400. <br />
  3401.  ASC " Utilitaire de Lecture "
  3402. <br />
  3403.  DFB $5F,$8D
  3404. <br />
  3405.  DS 7," "
  3406. <br />
  3407.  DFB $5A
  3408. <br />
  3409.  ASC " et d'ecriture directe "
  3410. <br />
  3411.  DFB $5F,$8D
  3412. <br />
  3413.  DS 7," "
  3414. <br />
  3415.  DFB $5A
  3416. <br />
  3417.  ASC " sur Disquettes ProDOS "
  3418. <br />
  3419.  DFB $5F,$8D
  3420. <br />
  3421.  DS 7," "
  3422. <br />
  3423.  DFB $5A
  3424. <br />
  3425.  DS 23," "
  3426. <br />
  3427.  DFB $5F,$8D,$00
  3428. <br />
  3429. PRES.3 DS 7," "
  3430. <br />
  3431.  DFB $5A
  3432. <br />
  3433.  ASC "   par Marc ROGLIANO   "
  3434. <br />
  3435.  DFB $5F,$8D
  3436. <br />
  3437.  DS 7," "
  3438. <br />
  3439.  DFB $5A
  3440. <br />
  3441.  DS 23," "
  3442. <br />
  3443.  DFB $5F,$8D
  3444. <br />
  3445.  DS 8," "
  3446. <br />
  3447.  DS 23,$4C
  3448. <br />
  3449.  DS 4,$8D
  3450. <br />
  3451.  DS 15," "
  3452. <br />
  3453.  ASC "Appuyez sur "
  3454. <br />
  3455.  DFB $00
  3456. <br />
  3457. PRES.4.1 DFB $4D,$A0,$4E,$8D
  3458. <br />
  3459.  DS 15," "
  3460. <br />
  3461.  DS 13,$4C
  3462. <br />
  3463.  DFB $8D,$00
  3464. <br />
  3465. PRES.4.2 ASC "RETURN "
  3466. <br />
  3467.  DFB $20,$8D
  3468. <br />
  3469.  DS 15," "
  3470. <br />
  3471.  DS 18,$4C
  3472. <br />
  3473.  DFB $8D,$00
  3474. <br />
  3475.  
  3476. <br />
  3477. AAA0 ASC "R.S.P.D.: Utilitaire de Lecture et d'Ecriture sur disks ProDOS par Marc ROGLIANO"
  3478. <br />
  3479.  DFB $8D
  3480. <br />
  3481.  ASC "  Commandes:"
  3482. <br />
  3483.  DFB $5A,$A0,$00
  3484. <br />
  3485. AAA0.1 DFB $48,$A0,$55,$A0
  3486. <br />
  3487.  DFB $4B,$A0,$4A,$00
  3488. <br />
  3489. AAA0.2 ASC "fleches"
  3490. <br />
  3491.  DFB $00
  3492. <br />
  3493. AAA1 ASC " : Deplacements sur l'ecran "
  3494. <br />
  3495.  DFB $5F
  3496. <br />
  3497.  ASC "^A : Entrer caracteres"
  3498. <br />
  3499.  DS 4," "
  3500. <br />
  3501.  DFB $5F,$8D
  3502. <br />
  3503.  DS 2," "
  3504. <br />
  3505.  DS 9,$4C
  3506. <br />
  3507.  DFB $A0,$5A,$A0,$00
  3508. <br />
  3509. AAA1.1 DFB $40,$A0,$48
  3510. <br />
  3511.  DFB $A0,$55
  3512. <br />
  3513.  ASC " : Deplacements sur Disquette "
  3514. <br />
  3515.  DFB $00
  3516. <br />
  3517. AAA1.2 ASC "Pomme fermee <- -> : `` sur Disque "
  3518. <br />
  3519.  DFB $00
  3520. <br />
  3521. AAA2 DFB $5F
  3522. <br />
  3523.  ASC "^B : Entrer un Block"
  3524. <br />
  3525.  DS 6," "
  3526. <br />
  3527.  DFB $5F,$A0
  3528. <br />
  3529.  DFB $A0,$51,$8D
  3530. <br />
  3531.  ASC "   (ESC:    "
  3532. <br />
  3533.  DFB $5A,$A0,$00
  3534. <br />
  3535. AAA2.1 DFB $41,$A0
  3536. <br />
  3537.  DFB $48,$A0,$55
  3538. <br />
  3539.  ASC " : Deplacements (*10)"
  3540. <br />
  3541.  DS 9," "
  3542. <br />
  3543.  DFB $00
  3544. <br />
  3545. AAA2.2 ASC "Pomme ouverte <- -> : Depl. x 10   "
  3546. <br />
  3547.  DFB $00
  3548. <br />
  3549. AAA3 DFB $5F
  3550. <br />
  3551.  ASC "^C : Changer de Lecteur"
  3552. <br />
  3553.  DS 3," "
  3554. <br />
  3555.  DFB $5F,$A0,$A0
  3556. <br />
  3557.  DFB $5A,$8D
  3558. <br />
  3559.  ASC "   Quitter) "
  3560. <br />
  3561.  DFB $5A
  3562. <br />
  3563.  ASC "  ESPACE : Changer de Page"
  3564. <br />
  3565.  DS 10," "
  3566. <br />
  3567.  DFB $5F
  3568. <br />
  3569.  ASC "^S : Sauver sur Disquette "
  3570. <br />
  3571.  DFB $5F,$A0,$A0,$5A,$8D
  3572. <br />
  3573.  ASC " BLOCK:"
  3574. <br />
  3575.  DS 5," "
  3576. <br />
  3577.  ASC "($   )  DRIVE: "
  3578. <br />
  3579.  DFB $31
  3580. <br />
  3581.  ASC "/2  OCTET: $"
  3582. <br />
  3583.  DS 9," "
  3584. <br />
  3585.  DFB $5F
  3586. <br />
  3587.  ASC "^X : Switcher Caracteres  "
  3588. <br />
  3589.  DFB $5F,$A0,$A0
  3590. <br />
  3591.  DFB $5A,$8D,$00
  3592. <br />
  3593. *
  3594. <br />
  3595. ERROR.0 ASC " "
  3596. <br />
  3597.  DS 24,"_"
  3598. <br />
  3599.  ASC " "
  3600. <br />
  3601.  DFB $8D,$00
  3602. <br />
  3603. ERROR.1 DFB $5A
  3604. <br />
  3605.  DS 24," "
  3606. <br />
  3607.  DFB $5F,$8D,$00
  3608. <br />
  3609. ERROR.2 DFB $5A,$A0
  3610. <br />
  3611.  ASC ">>>"
  3612. <br />
  3613.  DFB $05,$72,$72,$65
  3614. <br />
  3615.  DFB $75,$72,$20,$04
  3616. <br />
  3617.  DFB $69,$73,$71,$75
  3618. <br />
  3619.  DFB $65,$74,$74,$65
  3620. <br />
  3621.  ASC "<<<"
  3622. <br />
  3623.  DFB $A0,$5F,$8D,$00
  3624. <br />
  3625. ERROR.3 DFB $5A
  3626. <br />
  3627.  DS 5," "
  3628. <br />
  3629.  ASC "APPUYEZ SUR "
  3630. <br />
  3631.  DFB $00
  3632. <br />
  3633. ERROR4.1 DFB $4D
  3634. <br />
  3635.  DS 6," "
  3636. <br />
  3637.  DFB $5F,$8D,$00
  3638. <br />
  3639. ERROR4.2 ASC "RETURN "
  3640. <br />
  3641.  DFB $5F,$8D,$00
  3642. <br />
  3643. ERROR.5 ASC " "
  3644. <br />
  3645.  DS 24,$4C
  3646. <br />
  3647.  ASC " "
  3648. <br />
  3649.  DFB $00
  3650. <br />
  3651.  
  3652. <br />
  3653. MESSERR ASC "IL FAUT UNE CARTE 80 COLONNES"
  3654. <br />
  3655.  DFB $00
  3656. <br />
  3657.  DFB $BF,$19,$04
  3658. <br />
  3659. SAVE DS 4
  3660. <br />
  3661. TABLE DS 7
  3662. <br />
  3663. TABLE1 EQU *
  3664. <br />
  3665. *
  3666. <br />
  3667. *
  3668. <br />
  3669.  
  3670. <br />
  3671.  
  3672. <br />
  3673. ******************************************
  3674. <br />
  3675.  
  3676. <br />
  3677. Disque image du magazine Pom's 25 uploadΘ pour ArBr  sur l'espace d'Θchange il y a quelques mois ( en attendant la Maj de son site  <img src="images/smiles/icon_wink.gif" alt="Wink" border="0" /> )
  3678. <br />
  3679.  
  3680. <br />
  3681. @+ Philippe</span><span class="gensmall"></span></td>
  3682.             </tr>
  3683.         </table></td>
  3684.     </tr>
  3685.     <tr>
  3686.         <td class="row2" width="150" align="left" valign="middle"><span class="nav"><a href="#top" class="nav">Revenir en haut de page</a></span></td>
  3687.         <td class="row2" width="100%" height="28" valign="bottom" nowrap="nowrap"><table cellspacing="0" cellpadding="0" border="0" height="18" width="18">
  3688.             <tr>
  3689.                 <td valign="middle" nowrap="nowrap"><a href="profile.php?mode=viewprofile&u=47"><img src="templates/subSilver/images/lang_french/icon_profile.gif" alt="Voir le profil de l'utilisateur" title="Voir le profil de l'utilisateur" border="0" /></a> <a href="privmsg.php?mode=post&u=47"><img src="templates/subSilver/images/lang_french/icon_pm.gif" alt="Envoyer un message privΘ" title="Envoyer un message privΘ" border="0" /></a>     <script language="JavaScript" type="text/javascript"><!--
  3690.  
  3691.     if ( navigator.userAgent.toLowerCase().indexOf('mozilla') != -1 && navigator.userAgent.indexOf('5.') == -1 && navigator.userAgent.indexOf('6.') == -1 )
  3692.         document.write(' ');
  3693.     else
  3694.         document.write('</td><td> </td><td valign="top" nowrap="nowrap"><div style="position:relative"><div style="position:absolute"></div><div style="position:absolute;left:3px;top:-1px"></div></div>');
  3695.  
  3696.                 //--></script><noscript></noscript></td>
  3697.             </tr>
  3698.         </table></td>
  3699.     </tr>
  3700.     <tr>
  3701.         <td class="spaceRow" colspan="2" height="1"><img src="templates/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td>
  3702.     </tr>
  3703.     <tr>
  3704.         <td width="150" align="left" valign="top" class="row1"><span class="name"><a name="1101"></a><b>Deckard</b></span><br /><span class="postdetails"><br /><br /><br />Inscrit le: 29 Mar 2007<br />Messages: 350<br />Localisation: Levallois-Perret / Le Mans</span><br /></td>
  3705.         <td class="row1" width="100%" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  3706.             <tr>
  3707.                 <td width="100%"><a href="viewtopic.php?p=1101#1101"><img src="templates/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Message" title="Message" border="0" /></a><span class="postdetails">PostΘ le: Lun 11 Mai 2009, 21:38<span class="gen"> </span>   Sujet du message: </span></td>
  3708.                 <td valign="top" nowrap="nowrap"><a href="posting.php?mode=quote&p=1101"><img src="templates/subSilver/images/lang_french/icon_quote.gif" alt="RΘpondre en citant" title="RΘpondre en citant" border="0" /></a>   </td>
  3709.             </tr>
  3710.             <tr>
  3711.                 <td colspan="2"><hr /></td>
  3712.             </tr>
  3713.             <tr>
  3714.                 <td colspan="2"><span class="postbody">SUPER!!!
  3715. <br />
  3716.  
  3717. <br />
  3718. MERCI BEAUCOUP Philippe. Je ne vais pas perdre mon temps α le saisir α la main.
  3719. <br />
  3720. J'avais regardΘ tes dΘp⌠ts 1 α 5 (sans succΦs) avant de poser la question mais je n'avais pas regardΘ les posts plus anciens.
  3721. <br />
  3722.  
  3723. <br />
  3724. J'avais moi aussi commencΘ α rassembler des Pom's mais le problΦme, c'est que j'ai 2 sources diffΘrentes et pour plein de numΘros, le contenu entre les 2 sources a des Θcarts. Il faudrait passer un temps fou avec les PDF comme rΘfΘrences pour expliquer ce qui n'est pas bon.
  3725. <br />
  3726.  
  3727. <br />
  3728. C'est quand mΩme cool de pouvoir disposer d'un source d'un Θditeur de blocks.
  3729. <br />
  3730. J'ai commencΘ la conversion vers Merlin.
  3731. <br />
  3732.  
  3733. <br />
  3734. JM</span><span class="gensmall"></span></td>
  3735.             </tr>
  3736.         </table></td>
  3737.     </tr>
  3738.     <tr>
  3739.         <td class="row1" width="150" align="left" valign="middle"><span class="nav"><a href="#top" class="nav">Revenir en haut de page</a></span></td>
  3740.         <td class="row1" width="100%" height="28" valign="bottom" nowrap="nowrap"><table cellspacing="0" cellpadding="0" border="0" height="18" width="18">
  3741.             <tr>
  3742.                 <td valign="middle" nowrap="nowrap"><a href="profile.php?mode=viewprofile&u=3"><img src="templates/subSilver/images/lang_french/icon_profile.gif" alt="Voir le profil de l'utilisateur" title="Voir le profil de l'utilisateur" border="0" /></a> <a href="privmsg.php?mode=post&u=3"><img src="templates/subSilver/images/lang_french/icon_pm.gif" alt="Envoyer un message privΘ" title="Envoyer un message privΘ" border="0" /></a>  <a href="http://boutillon.free.fr" target="_userwww"><img src="templates/subSilver/images/lang_french/icon_www.gif" alt="Visiter le site web de l'utilisateur" title="Visiter le site web de l'utilisateur" border="0" /></a>   <script language="JavaScript" type="text/javascript"><!--
  3743.  
  3744.     if ( navigator.userAgent.toLowerCase().indexOf('mozilla') != -1 && navigator.userAgent.indexOf('5.') == -1 && navigator.userAgent.indexOf('6.') == -1 )
  3745.         document.write(' ');
  3746.     else
  3747.         document.write('</td><td> </td><td valign="top" nowrap="nowrap"><div style="position:relative"><div style="position:absolute"></div><div style="position:absolute;left:3px;top:-1px"></div></div>');
  3748.  
  3749.                 //--></script><noscript></noscript></td>
  3750.             </tr>
  3751.         </table></td>
  3752.     </tr>
  3753.     <tr>
  3754.         <td class="spaceRow" colspan="2" height="1"><img src="templates/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td>
  3755.     </tr>
  3756.     <tr align="center">
  3757.         <td class="catBottom" colspan="2" height="28"><table cellspacing="0" cellpadding="0" border="0">
  3758.             <tr><form method="post" action="viewtopic.php?t=243&start=0">
  3759.                 <td align="center"><span class="gensmall">Montrer les messages depuis: <select name="postdays"><option value="0" selected="selected">Tous les messages</option><option value="1">1 Jour</option><option value="7">7 Jours</option><option value="14">2 Semaines</option><option value="30">1 Mois</option><option value="90">3 Mois</option><option value="180">6 Mois</option><option value="364">1 An</option></select> <select name="postorder"><option value="asc" selected="selected">Le plus ancien en premier</option><option value="desc">Le plus rΘcent en premier</option></select> <input type="submit" value="Aller" class="liteoption" name="submit" /></span></td>
  3760.             </form></tr>
  3761.         </table></td>
  3762.     </tr>
  3763. </table>
  3764.  
  3765. <table width="100%" cellspacing="2" cellpadding="2" border="0" align="center">
  3766.   <tr>
  3767.     <td align="left" valign="middle" nowrap="nowrap"><span class="nav"><a href="posting.php?mode=newtopic&f=19"><img src="templates/subSilver/images/lang_french/post.gif" border="0" alt="Poster un nouveau sujet" align="middle" /></a>   <a href="posting.php?mode=reply&t=243"><img src="templates/subSilver/images/lang_french/reply.gif" border="0" alt="RΘpondre au sujet" align="middle" /></a></span></td>
  3768.     <td align="left" valign="middle" width="100%"><span class="nav">   <a href="index.php" class="nav"> Index du Forum</a>
  3769.       -> <a href="viewforum.php?f=19" class="nav">Recherches techniques (hard ou soft)</a></span></td>
  3770.     <td align="right" valign="top" nowrap="nowrap"><span class="gensmall">Toutes les heures sont au format GMT + 1 Heure</span><br /><span class="nav"></span>
  3771.       </td>
  3772.   </tr>
  3773.   <tr>
  3774.     <td align="left" colspan="3"><span class="nav">Page <b>1</b> sur <b>1</b></span></td>
  3775.   </tr>
  3776. </table>
  3777.  
  3778. <table width="100%" cellspacing="2" border="0" align="center">
  3779.   <tr>
  3780.     <td width="40%" valign="top" nowrap="nowrap" align="left"><span class="gensmall"></span><br />
  3781.        <br />
  3782.       </td>
  3783.     <td align="right" valign="top" nowrap="nowrap">
  3784. <form method="get" name="jumpbox" action="viewforum.php" onSubmit="if(document.jumpbox.f.value == -1){return false;}"><table cellspacing="0" cellpadding="0" border="0">
  3785.     <tr>
  3786.         <td nowrap="nowrap"><span class="gensmall">Sauter vers: <select name="f" onchange="if(this.options[this.selectedIndex].value != -1){ forms['jumpbox'].submit() }"><option value="-1">SΘlectionner un forum</option><option value="-1"> </option><option value="-1">GENERALITES</option><option value="-1">----------------</option><option value="1">REGLES DE BASE DU FORUM</option><option value="2">PRESENTATION DES MEMBRES</option><option value="3">FAQ</option><option value="24">LES VENDEURS DE Q et assimilΘs...</option><option value="-1"> </option><option value="-1">La ligne des APPLE II</option><option value="-1">----------------</option><option value="4">APPLE II et II+</option><option value="5">APPLE IIe</option><option value="6">APPLE IIc et IIc Plus</option><option value="7">APPLE IIGS</option><option value="8">ITT2020</option><option value="9">BELL & HOWELL</option><option value="-1"> </option><option value="-1">ON AIME AUSSI...</option><option value="-1">----------------</option><option value="25">APPLE I</option><option value="10">APPLE /// et ///Plus</option><option value="11">LISA 1,  2, 2/5,  2/10 et ... XL</option><option value="-1"> </option><option value="-1">LOGICIELS</option><option value="-1">----------------</option><option value="12">PROBLEMES DIVERS</option><option value="13">PROTECTION MALEFIQUE</option><option value="23">EMULATION</option><option value="-1"> </option><option value="-1">LES CARTES ET PERIPHERIQUES</option><option value="-1">----------------</option><option value="14">CARTES COPROCESSEUR</option><option value="15">CARTES MEMOIRE</option><option value="16">CARTES POUR DISQUES</option><option value="17">AUTRES CARTES</option><option value="18">PERIPHERIQUES</option><option value="-1"> </option><option value="-1">EN VRAC ET DIVERS</option><option value="-1">----------------</option><option value="19"selected="selected">Recherches techniques (hard ou soft)</option><option value="20">ACHATS,VENTES ET/OU ECHANGES</option><option value="21">DIVERS...MAIS TOUJOURS EN RELATION AVEC APPLE!</option><option value="22">LES PETITS MAUDITS A EVITER</option></select><input type="hidden" name="sid" value="88dc291636b558c274916ca04b217a32" /> <input type="submit" value="Aller" class="liteoption" /></span></td>
  3787.     </tr>
  3788. </table></form>
  3789.  
  3790. <span class="gensmall">Vous <b>ne pouvez pas</b> poster de nouveaux sujets dans ce forum<br />Vous <b>ne pouvez pas</b> rΘpondre aux sujets dans ce forum<br />Vous <b>ne pouvez pas</b> Θditer vos messages dans ce forum<br />Vous <b>ne pouvez pas</b> supprimer vos messages dans ce forum<br />Vous <b>ne pouvez pas</b> voter dans les sondages de ce forum<br /></span></td>
  3791.   </tr>
  3792. </table>
  3793.  
  3794.  
  3795. <div align="center"><span class="copyright"><br /><br />
  3796. <!--
  3797.     We request you retain the full copyright notice below including the link to www.phpbb.com.
  3798.     This not only gives respect to the large amount of time given freely by the developers
  3799.     but also helps build interest, traffic and use of phpBB 2.0. If you cannot (for good
  3800.     reason) retain the full copyright we request you at least leave in place the
  3801.     Powered by phpBB line, with phpBB linked to www.phpbb.com. If you refuse
  3802.     to include even this then support on our forums may be affected.
  3803.  
  3804.     The phpBB Group : 2002
  3805. // -->
  3806. Powered by <a href="http://www.phpbb.com/" target="_phpbb" class="copyright">phpBB</a> © 2001, 2005 phpBB Group<br />Traduction par : <a href="http://www.phpbb-fr.com/" target="_blank" class="copyright">phpBB-fr.com</a></span></div>
  3807.         </td>
  3808.     </tr>
  3809. </table>
  3810.  
  3811. </body>
  3812. </html>
  3813.  
  3814.