<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>
<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>
</tr>
<tr>
<td colspan="2"><hr /></td>
</tr>
<tr>
<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.
<br />
<br />
Merci.
<br />
JM</span><span class="gensmall"></span></td>
</tr>
</table></td>
</tr>
<tr>
<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>
<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"><!--
<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>
<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>
</tr>
<tr>
<td colspan="2"><hr /></td>
</tr>
<tr>
<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.
<br />
<br />
Merci.
<br />
JM</td> </tr></table><span class="postbody">
<br />
<br />
Salut Jean-Marc,
<br />
<br />
Ai trouvΘ dans mes archives et dans mon bordel ambient,ce que tu cherches peut-Ωtre ( ? ) :
<br />
<br />
<span style="font-weight: bold">Assemblage sous Procode</span>
<br />
<br />
**************************
<br />
TAB 0
<br />
DSK R.S.P.D.OBJET
<br />
*
<br />
****************************
<br />
**........................**
<br />
**..UTILITAIRE..R.S.P.D...**
<br />
**..(READ.&.SAVE.PRODOS)..**
<br />
**........MARC.ROGLIANO...**
<br />
**........................**
<br />
****************************
<br />
*.Asm.Procode
<br />
*
<br />
ORG $6000
<br />
*
<br />
************************
<br />
*..ADRESSES.PAGE.ZERO..*
<br />
************************
<br />
COL EQU $06
<br />
LIG EQU $07
<br />
CAR EQU $08
<br />
ICONE EQU $09
<br />
AFFI.L EQU $1A
<br />
AFFI.H EQU $1B
<br />
SWITCH EQU $1C
<br />
CURS EQU $1E
<br />
LB EQU $EB
<br />
HB EQU $EC
<br />
LB. EQU $ED
<br />
HB. EQU $EE
<br />
INTER EQU $EF
<br />
DISK.L EQU $FA
<br />
DISK.H EQU $FB
<br />
CURS.COL EQU $FC
<br />
CURS.LIG EQU $FD
<br />
L.LB EQU $FE
<br />
L.HB EQU $FF
<br />
*
<br />
**********************
<br />
*..ADRESSES.SYSTEME..*
<br />
**********************
<br />
STO80.1 EQU $C001
<br />
STO80.0 EQU $C000
<br />
PAGE1 EQU $C054
<br />
PAGE2 EQU $C055
<br />
BUTTON0 EQU $C061; ou touche pomme-ouverte
<br />
BUTTON1 EQU $C062; " " " ferm{e
<br />
*
<br />
**************
<br />
*..ROUTINES..*
<br />
**************
<br />
<br />
HOME EQU $FC58
<br />
SETTXT EQU $FB39
<br />
COUT EQU $FDED
<br />
SPKR EQU $C030
<br />
BASCALC EQU $FBC1
<br />
PRBYTE EQU $FDDA
<br />
FRMNUM EQU $DD67
<br />
AYINT EQU $E10C
<br />
LINPTR EQU $ED24
<br />
GIVAYF EQU $E2F2
<br />
MOVAF EQU $EB63
<br />
FDIVT EQU $EA69
<br />
FADDT EQU $E7C1
<br />
OUTPRT EQU $FE95
<br />
*
<br />
*
<br />
********************
<br />
*..INITIALISATION..*
<br />
*.//c.ou.new.//e.?.*
<br />
********************
<br />
JSR SETTXT;TEXT
<br />
LDA #$FF
<br />
STA $32;NORMAL
<br />
JSR HOME
<br />
LDA $BF98;MACHID ProDOS
<br />
AND #%00000010 ;Carte 80 col. ?
<br />
BNE OLISGOUD
<br />
LDA #<MESSERR
<br />
LDY #>MESSERR
<br />
LDX #$07
<br />
STX COL
<br />
STX LIG
<br />
JSR STROUT40
<br />
JSR SOUND
<br />
JSR SOUND
<br />
JSR SOUND
<br />
RTS
<br />
<br />
OLISGOUD SEC
<br />
LDA $FBC0
<br />
BEQ IIC
<br />
CMP #$E0
<br />
BEQ NEW.IIE
<br />
CLC
<br />
NEW.IIE EQU *
<br />
IIC ROR ICONE
<br />
<br />
LDX #3
<br />
SAVEIO LDA $36,X
<br />
STA SAVE,X
<br />
DEX
<br />
BPL SAVEIO
<br />
LDA #3
<br />
JSR OUTPRT;PR#3
<br />
*
<br />
********************************
<br />
*.AFFICHAGE.DE.LA.PRESENTATION.*
<br />
********************************
<br />
DEB.80 LDA #17;Mode 40 Colonnes
<br />
JSR COUT
<br />
JSR HOME
<br />
LDA #$01
<br />
STA COL
<br />
LDA #$01
<br />
STA LIG
<br />
LDA #<PRES.0
<br />
LDY #>PRES.0
<br />
JSR STROUT40
<br />
LDA #<PRES.1
<br />
LDY #>PRES.1
<br />
JSR STROUT40
<br />
LDA #<PRES.2
<br />
LDY #>PRES.2
<br />
JSR STROUT40
<br />
LDA #<PRES.3
<br />
LDY #>PRES.3
<br />
JSR STROUT40
<br />
<br />
LDA #<PRES.4.1
<br />
LDY #>PRES.4.1
<br />
BIT ICONE
<br />
BMI PRESICON
<br />
LDA #<PRES.4.2
<br />
LDY #>PRES.4.2
<br />
PRESICON JSR STROUT40
<br />
<br />
JSR SOUND
<br />
STA $C010
<br />
W.KBD LDA $C000
<br />
BPL W.KBD
<br />
CMP #$8D
<br />
BEQ XXX
<br />
STA $C010
<br />
JSR SOUND
<br />
JMP W.KBD
<br />
*
<br />
*************************
<br />
*.CHARGEMENT.DU.BLOCK.0.*
<br />
*************************
<br />
XXX JSR HOME
<br />
LDA #18;Mode 80 Colonnes
<br />
JSR COUT
<br />
JSR HOME
<br />
LDA #$04
<br />
STA CURS
<br />
LDA #$03
<br />
STA TABLE
<br />
LDA #$60;Lecteur 1-t{gr{
<br />
STA TABLE+1
<br />
LDA #$00
<br />
STA TABLE+2
<br />
STA TABLE+4
<br />
STA TABLE+5
<br />
LDA #$40
<br />
STA TABLE+3
<br />
JSR $BF00
<br />
DFB $80;READ
<br />
DA TABLE
<br />
BCC AFF.MENU
<br />
JSR ERROR
<br />
JMP DEB.80
<br />
*
<br />
****************************
<br />
*.AFICHAGE.COMMANDES+CADRE.*
<br />
****************************
<br />
AFF.MENU LDA #$00
<br />
STA COL
<br />
LDA #$01
<br />
STA LIG
<br />
LDA #<AAA0
<br />
LDY #>AAA0
<br />
JSR STROUT80
<br />
LDA #<AAA0.1
<br />
LDY #>AAA0.1
<br />
BIT ICONE
<br />
BMI AAAI0
<br />
LDA #<AAA0.2
<br />
LDY #>AAA0.2
<br />
AAAI0 JSR STROUT80
<br />
LDA #<AAA1
<br />
LDY #>AAA1
<br />
JSR STROUT80
<br />
LDA #<AAA1.1
<br />
LDY #>AAA1.1
<br />
BIT ICONE
<br />
BMI AAAI1
<br />
LDA #<AAA1.2
<br />
LDY #>AAA1.2
<br />
AAAI1 JSR STROUT80
<br />
LDA #<AAA2
<br />
LDY #>AAA2
<br />
JSR STROUT80
<br />
LDA #<AAA2.1
<br />
LDY #>AAA2.1
<br />
BIT ICONE
<br />
BMI AAAI2
<br />
LDA #<AAA2.2
<br />
LDY #>AAA2.2
<br />
AAAI2 JSR STROUT80
<br />
LDA #<AAA3
<br />
LDY #>AAA3
<br />
JSR STROUT80
<br />
JSR CADRE
<br />
LDA #$01
<br />
STA SWITCH
<br />
LDA #$40
<br />
STA L.HB
<br />
LDA #$00
<br />
STA L.LB
<br />
STA CURS.COL
<br />
STA CURS.LIG
<br />
STA DISK.H
<br />
STA DISK.L
<br />
JSR AFF...
<br />
JSR AFF.
<br />
JSR SOUND
<br />
STA $C010
<br />
*
<br />
**************************
<br />
*.ATTENTE.D'UNE.COMMANDE.*
<br />
**************************
<br />
WAIT.KBD LDA $C000
<br />
BPL WAIT.KBD
<br />
CMP #$88
<br />
BNE XXX.0
<br />
JMP GAUCHE
<br />
XXX.0 CMP #$95
<br />
BNE XXX.1
<br />
JMP DROITE
<br />
XXX.1 CMP #$8B
<br />
BNE XXX.2
<br />
JMP HAUT
<br />
XXX.2 CMP #$8A
<br />
BNE XXX.3
<br />
JMP BAS
<br />
XXX.3 CMP #$A0
<br />
BNE XXX.4
<br />
JMP SPACE
<br />
XXX.4 CMP #$81
<br />
BNE XXX.5
<br />
JMP C.A.
<br />
XXX.5 CMP #$82
<br />
BNE XXX.6
<br />
JMP C.B.
<br />
XXX.6 CMP #$83
<br />
BNE XXX.7
<br />
JMP C.C.
<br />
XXX.7 CMP #$93
<br />
BNE XXX.8
<br />
JMP C.S.
<br />
XXX.8 CMP #$98
<br />
BNE XXX.9
<br />
JMP C.X.
<br />
XXX.9 CMP #$9B
<br />
BNE XXX.10
<br />
JMP ESC
<br />
XXX.10 JSR TEST
<br />
BCC XXX.11
<br />
JMP ENT.CAR
<br />
XXX.11 JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
*
<br />
********************************
<br />
*.CARACTERE.ENTRE.0-9.OU.A-F.?.*
<br />
********************************
<br />
TEST CMP #$B0
<br />
BCC TEST0
<br />
CMP #$C7
<br />
BCS TEST0
<br />
CMP #$C1
<br />
BCS TEST1
<br />
CMP #$BA
<br />
BCC TEST1
<br />
TEST0 CLC
<br />
RTS
<br />
TEST1 SEC
<br />
RTS
<br />
*
<br />
****************************
<br />
*.CARACTERE.ENTRE.0.ET.9.?.*
<br />
****************************
<br />
TEST.. CMP #$8D;RET?
<br />
BEQ TEST..1
<br />
CMP #$B0
<br />
BCC TEST..2
<br />
CMP #"9"+1
<br />
BCS TEST..2
<br />
TEST..1 CLC
<br />
RTS
<br />
TEST..2 SEC
<br />
RTS
<br />
*
<br />
*
<br />
********************************
<br />
*DEPLACEMENTS.CURSEUR.SUR.ECRAN*
<br />
********************************
<br />
GAUCHE LDA BUTTON0
<br />
BPL XXX.A
<br />
JMP GAUCHE..
<br />
XXX.A LDA BUTTON1
<br />
BPL XXX.B
<br />
JMP GAUCHE.
<br />
XXX.B LDA CURS.COL
<br />
BNE GAUCHE1
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
GAUCHE1 DEC CURS.COL
<br />
JSR AFF....
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
DROITE LDA BUTTON0
<br />
BPL XXX.C
<br />
JMP DROITE..
<br />
XXX.C LDA BUTTON1
<br />
BPL XXX.D
<br />
JMP DROITE.
<br />
XXX.D LDA CURS.COL
<br />
CMP #$0F
<br />
BCC DROITE1
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
DROITE1 INC CURS.COL
<br />
JSR AFF....
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
HAUT LDA CURS.LIG
<br />
BNE HAUT1
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
HAUT1 ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
BCS HAUT2
<br />
CMP L.LB
<br />
BNE HAUT4
<br />
SEC
<br />
SBC #$10
<br />
STA L.LB
<br />
JMP HAUT3
<br />
HAUT2 CMP L.LB
<br />
BNE HAUT4
<br />
LDA #$40
<br />
STA L.HB
<br />
LDA #$F0
<br />
STA L.LB
<br />
HAUT3 DEC CURS.LIG
<br />
JSR AFF.
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
HAUT4 DEC CURS.LIG
<br />
JSR AFF....
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
BAS LDA CURS.LIG
<br />
CMP #$1F
<br />
BCC BAS1
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
BAS1 INC CURS.LIG
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
BCC BAS3
<br />
CMP L.LB
<br />
BNE BAS3
<br />
CLC
<br />
ADC #$10
<br />
STA L.LB
<br />
BNE BAS2
<br />
LDA #$41
<br />
STA L.HB
<br />
BAS2 JSR AFF.
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
BAS3 JSR AFF....
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
******************************
<br />
*.DEPLACEMENTS.SUR.LE.DISQUE.*
<br />
******************************
<br />
GAUCHE. LDA DISK.H
<br />
BNE GAUCHE.1
<br />
LDA DISK.L
<br />
BNE GAUCHE.1
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
GAUCHE.1 SEC
<br />
LDA DISK.L
<br />
SBC #$01
<br />
STA DISK.L
<br />
LDA DISK.H
<br />
SBC #$00
<br />
STA DISK.H
<br />
JSR AFF..
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
DROITE. LDA DISK.H
<br />
BEQ DROITE.1
<br />
LDA DISK.L
<br />
CMP #$17
<br />
BCC DROITE.1
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
DROITE.1 CLC
<br />
LDA DISK.L
<br />
ADC #$01
<br />
STA DISK.L
<br />
LDA DISK.H
<br />
ADC #$00
<br />
STA DISK.H
<br />
JSR AFF..
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
*****************************
<br />
*.DEPLACEMENTS.DISQUE.(*10).*
<br />
*****************************
<br />
GAUCHE.. LDA DISK.H
<br />
BNE GAUCHE.2
<br />
LDA DISK.L
<br />
CMP #$0A
<br />
BCS GAUCHE.2
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
GAUCHE.2 SEC
<br />
LDA DISK.L
<br />
SBC #$0A
<br />
STA DISK.L
<br />
LDA DISK.H
<br />
SBC #$00
<br />
STA DISK.H
<br />
JSR AFF..
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
DROITE.. LDA DISK.H
<br />
BEQ DROITE.2
<br />
LDA DISK.L
<br />
CMP #$0E
<br />
BCC DROITE.2
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
DROITE.2 CLC
<br />
LDA DISK.L
<br />
ADC #$0A
<br />
STA DISK.L
<br />
LDA DISK.H
<br />
ADC #$00
<br />
STA DISK.H
<br />
JSR AFF..
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
*
<br />
*******************
<br />
*.CHANGER.DE.PAGE.*
<br />
*******************
<br />
SPACE LDA L.HB
<br />
CMP #$41
<br />
BCS SPACE2
<br />
LDA #$41
<br />
STA L.HB
<br />
LDA #$00
<br />
STA L.LB
<br />
LDA CURS.LIG
<br />
CMP #$10
<br />
BCS SPACE1
<br />
CLC
<br />
LDA #$10
<br />
ADC CURS.LIG
<br />
STA CURS.LIG
<br />
SPACE1 JSR AFF.
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
SPACE2 LDA #$40
<br />
STA L.HB
<br />
LDA #$00
<br />
STA L.LB
<br />
SEC
<br />
LDA CURS.LIG
<br />
SBC #$10
<br />
STA CURS.LIG
<br />
JSR AFF.
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
*************************
<br />
*.ENTRER.DES.CARACTERES.*
<br />
*************************
<br />
C.A. STA $C010
<br />
C.A.0 JSR AFF.CUR
<br />
LDA CURS.COL
<br />
LDX #$03
<br />
C.A.1 DEX
<br />
BEQ C.A.2
<br />
CLC
<br />
ADC CURS.COL
<br />
JMP C.A.1
<br />
C.A.2 CLC
<br />
ADC #$09
<br />
STA COL
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
SEC
<br />
SBC L.LB
<br />
LSR
<br />
LSR
<br />
LSR
<br />
LSR
<br />
CLC
<br />
ADC #$08
<br />
STA LIG
<br />
LDA #$3F;"?"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
JSR COL.LIG
<br />
C.A.3 LDA $C000
<br />
BPL C.A.3
<br />
STA $C010
<br />
CMP #$81;Ctr A
<br />
BEQ C.A.7
<br />
STA INTER
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
CLC
<br />
ADC CURS.COL
<br />
SEC
<br />
SBC L.LB
<br />
TAY
<br />
LDA INTER
<br />
STA (L.LB),Y
<br />
LDA CURS.COL
<br />
CMP #$0F
<br />
BCC C.A.6
<br />
LDA #$00
<br />
STA CURS.COL
<br />
LDA CURS.LIG
<br />
CMP #$1F
<br />
BCC C.A.4
<br />
LDA #$0F
<br />
STA CURS.COL
<br />
JSR SOUND
<br />
JMP C.A.7
<br />
C.A.4 INC CURS.LIG
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
BCC C.A.5
<br />
CMP L.LB
<br />
BNE C.A.5
<br />
CLC
<br />
ADC #$10
<br />
STA L.LB
<br />
BNE C.A.5
<br />
LDA #$41
<br />
STA L.HB
<br />
C.A.5 JSR AFF
<br />
JMP C.A.0
<br />
C.A.6 INC CURS.COL
<br />
JSR AFF
<br />
JMP C.A.0
<br />
C.A.7 JSR AFF.
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
*******************
<br />
*.ENTRER.UN.BLOCK.*
<br />
*******************
<br />
C.B. STA $C010
<br />
LDA #$06
<br />
STA LIG
<br />
LDA #$08
<br />
STA COL
<br />
LDA #$20;espace
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDX #$00
<br />
C.B.1 LDA $C000
<br />
BPL C.B.1
<br />
STA INTER
<br />
JSR TEST..
<br />
TXA
<br />
PHA
<br />
BCC C.B.2
<br />
JSR AFF...
<br />
JSR SOUND
<br />
PLA
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
C.B.2 PLA
<br />
TAX
<br />
LDA INTER
<br />
AND #$7F
<br />
STA $310,X
<br />
CMP #$0D
<br />
BEQ C.B.4
<br />
INX
<br />
TXA
<br />
PHA
<br />
CPX #$03
<br />
BEQ C.B.3
<br />
LDA INTER
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDA #$20
<br />
STA CAR
<br />
INC COL
<br />
JSR COL.LIG
<br />
PLA
<br />
TAX
<br />
STA $C010
<br />
JMP C.B.1
<br />
C.B.3 PLA
<br />
C.B.4 LDA #$0D
<br />
STA $310,X
<br />
CPX #$00
<br />
BEQ C.B.7
<br />
LDA #$10
<br />
STA $B8
<br />
LDA #$03
<br />
STA $B9
<br />
JSR FRMNUM
<br />
JSR AYINT
<br />
LDA $A0
<br />
CMP #$01
<br />
BCS C.B.6
<br />
STA DISK.H
<br />
C.B.5 LDA $A1
<br />
STA DISK.L
<br />
JSR AFF..
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
C.B.6 CMP #$02
<br />
BCS C.B.7
<br />
LDA $A1
<br />
CMP #$18
<br />
BCS C.B.7
<br />
LDA $A0
<br />
STA DISK.H
<br />
JMP C.B.5
<br />
C.B.7 JSR AFF...
<br />
JSR SOUND
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
********************
<br />
*.CHANGER.DE.DRIVE.*
<br />
********************
<br />
C.C. LDA TABLE+1
<br />
CMP #$E0
<br />
BEQ C.C.1
<br />
LDA #$E0;Lecteur 2 (= externe sur //c)
<br />
STA TABLE+1
<br />
LDA #$06
<br />
STA LIG
<br />
LDA #$1B
<br />
STA COL
<br />
LDA #$B1;"1"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
INC COL
<br />
LDA #$32;"2"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
JMP C.C.2
<br />
C.C.1 LDA #$60;Lect. 1-terne
<br />
STA TABLE+1
<br />
LDA #$06
<br />
STA LIG
<br />
LDA #$1B
<br />
STA COL
<br />
LDA #$31;"1"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
INC COL
<br />
LDA #$B2;"2"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
C.C.2 STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
************************
<br />
*.SAUVER.SUR.DISQUETTE.*
<br />
************************
<br />
C.S. JSR $BF00
<br />
DFB $81;WRITE
<br />
DA TABLE
<br />
BCS ERREUR.S
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
ERREUR.S JSR ERROR
<br />
JSR AFF.
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
*************************
<br />
*."SWITCHER".CARACTERES.*
<br />
*************************
<br />
C.X. LDA SWITCH
<br />
BEQ C.X.1
<br />
LDA #$00
<br />
STA SWITCH
<br />
JMP C.X.2
<br />
C.X.1 LDA #$01
<br />
STA SWITCH
<br />
C.X.2 JSR AFF.
<br />
STA $C010
<br />
JMP WAIT.KBD
<br />
*
<br />
***********************
<br />
*.SORTIR.DU.PROGRAMME.*
<br />
***********************
<br />
ESC JSR SOUND
<br />
JSR SOUND
<br />
LDA #21
<br />
JSR COUT
<br />
LDX #3
<br />
RESETIO LDA SAVE,X
<br />
STA $36,X
<br />
DEX
<br />
BPL RESETIO
<br />
JSR HOME
<br />
JSR SOUND
<br />
JSR SOUND
<br />
STA $C010
<br />
RTS
<br />
*
<br />
*
<br />
**************************
<br />
*.ENTRER.UNE.VALEUR.HEXA.*
<br />
**************************
<br />
ENT.CAR STA $C010
<br />
STA CAR
<br />
LDA CURS.COL
<br />
LDX #$03
<br />
ENT.CAR1 DEX
<br />
BEQ ENT.CAR2
<br />
CLC
<br />
ADC CURS.COL
<br />
JMP ENT.CAR1
<br />
ENT.CAR2 CLC
<br />
ADC #$09
<br />
STA COL
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
SEC
<br />
SBC L.LB
<br />
LSR
<br />
LSR
<br />
LSR
<br />
LSR
<br />
CLC
<br />
ADC #$08
<br />
STA LIG
<br />
JSR COL.LIG
<br />
LDA CAR
<br />
CMP #$C1
<br />
BCS ENT.CAR3
<br />
SEC
<br />
SBC #$B0
<br />
JMP ENT.CAR4
<br />
ENT.CAR3 SEC
<br />
SBC #$B7
<br />
ENT.CAR4 ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
STA INTER
<br />
ENT.CAR5 LDA $C000
<br />
BPL ENT.CAR5
<br />
JSR TEST
<br />
BCS ENT.CAR6
<br />
STA $C010
<br />
JSR AFF.
<br />
JSR SOUND
<br />
JMP WAIT.KBD
<br />
ENT.CAR6 CMP #$C1
<br />
BCS ENT.CAR7
<br />
SEC
<br />
SBC #$B0
<br />
JMP ENT.CAR8
<br />
ENT.CAR7 SEC
<br />
SBC #$B7
<br />
ENT.CAR8 ORA INTER
<br />
STA INTER
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
CLC
<br />
ADC CURS.COL
<br />
SEC
<br />
SBC L.LB
<br />
TAY
<br />
LDA INTER
<br />
STA (L.LB),Y
<br />
STA $C010
<br />
JSR AFF.
<br />
JMP WAIT.KBD
<br />
*
<br />
*
<br />
****************************
<br />
*.TRACE.DU.CADRE.ENTOURANT.*
<br />
*.LE.CONTENU.DU.BUFFER.....*
<br />
****************************
<br />
CADRE LDA #$5A;"Z"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDA #$4C;"L"
<br />
STA CAR
<br />
INC COL
<br />
CADRE.1 JSR COL.LIG
<br />
INC COL
<br />
LDA #77
<br />
CMP COL
<br />
BNE CADRE.1
<br />
LDA #$5F;"_"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
LDA #$A0;" "
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
LDA #$5A;"Z"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
CADRE.2 INC LIG
<br />
LDA #$00
<br />
STA COL
<br />
LDA #$5A;"Z"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
LDA #$A0;" "
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
LDA #$A4;"$"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDA #$5F;"_"
<br />
STA CAR
<br />
LDA #77
<br />
STA COL
<br />
JSR COL.LIG
<br />
INC COL
<br />
INC COL
<br />
LDA #$5A;"Z"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDA #23
<br />
CMP LIG
<br />
BNE CADRE.2
<br />
INC LIG
<br />
LDA #$00
<br />
STA COL
<br />
LDA #$5A;"Z"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDA #$DF;"_"
<br />
STA CAR
<br />
INC COL
<br />
CADRE.3 JSR COL.LIG
<br />
INC COL
<br />
LDA #77
<br />
CMP COL
<br />
BNE CADRE.3
<br />
LDA #$5F;"_"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
LDA #$A0;" "
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
LDA #$52;"R"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
RTS
<br />
*
<br />
*
<br />
******************************
<br />
*.AFFICHER.CONTENU.DU.BUFFER.*
<br />
******************************
<br />
AFF LDA L.LB
<br />
STA AFFI.L
<br />
LDA L.HB
<br />
STA AFFI.H
<br />
LDA #$07;LIG8
<br />
AFF0 PHA
<br />
JSR BASCALC
<br />
LDA #$03;COL3
<br />
STA $24;CH
<br />
LDA AFFI.H
<br />
AND #$01
<br />
BEQ AFF1
<br />
LDA #$B1;"1"
<br />
JMP AFF2
<br />
AFF1 LDA #$B0;"0"
<br />
AFF2 JSR COUT
<br />
LDA AFFI.L
<br />
JSR PRBYTE
<br />
LDA #$A0
<br />
JSR COUT
<br />
LDA #$A0
<br />
JSR COUT
<br />
LDA #$00
<br />
AFF3 PHA
<br />
LDA #$A0
<br />
JSR COUT
<br />
PLA
<br />
PHA
<br />
TAY
<br />
LDA (AFFI.L),Y
<br />
JSR PRBYTE
<br />
PLA
<br />
TAY
<br />
INY
<br />
CPY #16
<br />
TYA
<br />
BCC AFF3
<br />
LDA #$A0
<br />
JSR COUT
<br />
LDA #$A0
<br />
JSR COUT
<br />
LDA #$BA;":"
<br />
JSR COUT
<br />
LDA #$A0
<br />
JSR COUT
<br />
LDA #60
<br />
STA COL
<br />
PLA
<br />
PHA
<br />
TAX
<br />
INX
<br />
TXA
<br />
STA LIG
<br />
LDA #$00
<br />
AFF4 PHA
<br />
TAY
<br />
LDA (AFFI.L),Y
<br />
STA INTER
<br />
LDA SWITCH
<br />
BEQ AFF6
<br />
LDA INTER
<br />
BEQ AFF5
<br />
ORA #$80
<br />
STA INTER
<br />
JMP AFF6
<br />
AFF5 LDA #"."
<br />
STA INTER
<br />
AFF6 LDA INTER
<br />
STA CAR
<br />
SEC ;++
<br />
ROR ICONE;++
<br />
JSR COL.LIG
<br />
ROL ICONE;++
<br />
INC COL
<br />
PLA
<br />
TAY
<br />
INY
<br />
TYA
<br />
CPY #16
<br />
BCC AFF4
<br />
PLA
<br />
TAY
<br />
INY
<br />
CPY #23
<br />
BCS AFF7
<br />
CLC
<br />
LDA AFFI.L
<br />
ADC #16
<br />
STA AFFI.L
<br />
LDA #$00
<br />
ADC AFFI.H
<br />
STA AFFI.H
<br />
TYA
<br />
JMP AFF0
<br />
AFF7 RTS
<br />
*
<br />
*
<br />
***************************
<br />
*.AFFICHER.BUFFER+CURSEUR.*
<br />
***************************
<br />
AFF. JSR AFF
<br />
JSR AFF.CUR
<br />
RTS
<br />
*
<br />
*
<br />
********************************
<br />
*.CHARGER.ET.AFFICHER.UN.BLOCK.*
<br />
********************************
<br />
AFF.. LDA DISK.L
<br />
STA TABLE+4
<br />
LDA DISK.H
<br />
STA TABLE+5
<br />
JSR $BF00
<br />
DFB $80;READ
<br />
DA TABLE
<br />
BCS ERREUR
<br />
JSR AFF...
<br />
JSR AFF.
<br />
RTS
<br />
ERREUR JSR EFFACAGE
<br />
JSR ERROR
<br />
JSR AFF...
<br />
JSR AFF.
<br />
RTS
<br />
*
<br />
*
<br />
****************************
<br />
*.AFFICHER.NUMERO.DU.BLOCK.*
<br />
****************************
<br />
AFF... LDA CURS
<br />
STA LIG
<br />
LDA #79
<br />
STA COL
<br />
LDA #$5A;"Z"
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDA DISK.H
<br />
LDY DISK.L
<br />
JSR GIVAYF
<br />
JSR MOVAF
<br />
LDA #$00
<br />
LDY #14
<br />
JSR GIVAYF
<br />
JSR FDIVT
<br />
JSR MOVAF
<br />
LDA #$00
<br />
LDY #4
<br />
JSR GIVAYF
<br />
JSR FADDT
<br />
JSR AYINT
<br />
LDA $A1
<br />
STA CURS
<br />
STA LIG
<br />
LDA #$20
<br />
STA CAR
<br />
JSR COL.LIG
<br />
LDA #$05;LIG6
<br />
JSR BASCALC
<br />
LDA #$08;COL8
<br />
STA $24;CH
<br />
LDX DISK.L
<br />
LDA DISK.H
<br />
JSR LINPTR
<br />
LDA DISK.H
<br />
BNE AFF...2
<br />
LDA DISK.L
<br />
CMP #$64
<br />
BCS AFF...2
<br />
CMP #$0A
<br />
BCS AFF...1
<br />
LDA #$A0
<br />
JSR COUT
<br />
AFF...1 LDA #$A0
<br />
JSR COUT
<br />
AFF...2 LDA #$0E
<br />
STA $24;CH
<br />
LDA DISK.H
<br />
BEQ AFF...3
<br />
LDA #"1"
<br />
JMP AFF...4
<br />
AFF...3 LDA #"0"
<br />
AFF...4 JSR COUT
<br />
LDA DISK.L
<br />
JSR PRBYTE
<br />
RTS
<br />
*
<br />
*
<br />
*******************************
<br />
*.EFFACER.ET.AFFICHER.CURSEUR.*
<br />
*******************************
<br />
AFF.... LDA TABLE1;COL
<br />
LDX #$03
<br />
AFF....1 DEX
<br />
BEQ AFF....2
<br />
CLC
<br />
ADC TABLE1
<br />
JMP AFF....1
<br />
AFF....2 CLC
<br />
ADC #$08
<br />
STA $24;CH
<br />
LDA TABLE1+1;LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
SEC
<br />
SBC L.LB
<br />
LSR
<br />
LSR
<br />
LSR
<br />
LSR
<br />
CLC
<br />
ADC #$07
<br />
JSR BASCALC
<br />
LDA #$A0
<br />
JSR COUT
<br />
LDA TABLE1+1
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
CLC
<br />
ADC TABLE1
<br />
SEC
<br />
SBC L.LB
<br />
TAY
<br />
LDA (L.LB),Y
<br />
JSR PRBYTE
<br />
LDA #$A0
<br />
JSR COUT
<br />
JMP AFF.CUR
<br />
*
<br />
*
<br />
***********************
<br />
*.AFFICHER.LE.CURSEUR.*
<br />
***********************
<br />
AFF.CUR LDA CURS.COL
<br />
STA TABLE1
<br />
LDA CURS.LIG
<br />
STA TABLE1+1
<br />
LDA #40
<br />
STA $24;CH
<br />
LDA #$05
<br />
JSR BASCALC
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
STA INTER
<br />
BCC AFF.X1
<br />
LDA #"1"
<br />
JMP AFF.X2
<br />
AFF.X1 LDA #"0"
<br />
AFF.X2 JSR COUT
<br />
LDA CURS.COL
<br />
ORA INTER
<br />
JSR PRBYTE
<br />
LDA CURS.COL
<br />
LDX #$03
<br />
AFF.CUR1 DEX
<br />
BEQ AFF.CUR2
<br />
CLC
<br />
ADC CURS.COL
<br />
JMP AFF.CUR1
<br />
AFF.CUR2 CLC
<br />
ADC #$08
<br />
STA $24;CH
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
SEC
<br />
SBC L.LB
<br />
LSR
<br />
LSR
<br />
LSR
<br />
LSR
<br />
CLC
<br />
ADC #$07
<br />
JSR BASCALC
<br />
LDA #">"
<br />
JSR COUT
<br />
LDA #$3F;INVERSE
<br />
STA $32
<br />
LDA CURS.LIG
<br />
ASL
<br />
ASL
<br />
ASL
<br />
ASL
<br />
CLC
<br />
ADC CURS.COL
<br />
SEC
<br />
SBC L.LB
<br />
TAY
<br />
LDA (L.LB),Y
<br />
JSR PRBYTE
<br />
LDA #$FF;NORMAL
<br />
STA $32
<br />
LDA #"<"
<br />
JSR COUT
<br />
RTS
<br />
*
<br />
*
<br />
*********************
<br />
*.EFFACER.LE.BUFFER.*
<br />
*********************
<br />
EFFACAGE LDA #$40
<br />
STA HB
<br />
LDA #$00
<br />
STA LB
<br />
LDY #$00
<br />
EFF.1 LDA #$00
<br />
STA (LB),Y
<br />
INY
<br />
BNE EFF.1
<br />
LDA #$41
<br />
STA HB
<br />
LDY #$00
<br />
EFF.2 LDA #$00
<br />
STA (LB),Y
<br />
INY
<br />
BNE EFF.2
<br />
RTS
<br />
*
<br />
*
<br />
*****************************
<br />
*.ROUTINE.DE.TRAITEMENT.DES.*
<br />
*.ERREURS.DU.DISQUE.........*
<br />
*****************************
<br />
ERROR LDA #$08
<br />
STA LIG
<br />
JSR ERROR.
<br />
LDA #<ERROR.0
<br />
LDY #>ERROR.0
<br />
JSR STROUT80
<br />
JSR ERROR.
<br />
LDA #<ERROR.1
<br />
LDY #>ERROR.1
<br />
JSR STROUT80
<br />
JSR ERROR.
<br />
LDA #<ERROR.2
<br />
LDY #>ERROR.2
<br />
JSR STROUT80
<br />
JSR ERROR.
<br />
LDA #<ERROR.1
<br />
LDY #>ERROR.1
<br />
JSR STROUT80
<br />
JSR ERROR.
<br />
LDA #<ERROR.3
<br />
LDY #>ERROR.3
<br />
JSR STROUT80
<br />
LDA #<ERROR4.1
<br />
LDY #>ERROR4.1
<br />
BIT ICONE
<br />
BMI ERICON
<br />
LDA #<ERROR4.2
<br />
LDY #>ERROR4.2
<br />
ERICON JSR STROUT80
<br />
JSR ERROR.
<br />
LDA #<ERROR.1
<br />
LDY #>ERROR.1
<br />
JSR STROUT80
<br />
JSR ERROR.
<br />
LDA #<ERROR.5
<br />
LDY #>ERROR.5
<br />
JSR STROUT80
<br />
JSR ERROR.
<br />
<br />
JSR SOUND
<br />
JSR SOUND
<br />
STA $C010
<br />
ERROR0 LDA $C000
<br />
BPL ERROR0
<br />
CMP #$8D
<br />
BEQ ERROR1
<br />
STA $C010
<br />
JSR SOUND
<br />
JMP ERROR0
<br />
ERROR1 RTS
<br />
ERROR. LDA #27
<br />
STA COL
<br />
RTS
<br />
*
<br />
*
<br />
******************************
<br />
**..........................**
<br />
**.UTILITAIRE.LIGNE.COLONNE.**
<br />
**..........................**
<br />
******************************
<br />
*
<br />
*
<br />
COL.LIG LDA LIG
<br />
JSR CALCUL
<br />
LDA COL
<br />
LSR
<br />
BCS COLONNE
<br />
STA STO80.1
<br />
STA PAGE2
<br />
JSR COLONNE
<br />
STA PAGE1
<br />
STA STO80.0
<br />
RTS
<br />
COLONNE TAY
<br />
LDA CAR
<br />
<br />
BIT ICONE
<br />
BMI X6;Icones disponibles ?
<br />
CMP #$5A; sinon conversion
<br />
BEQ X1
<br />
CMP #$5F
<br />
BNE X2
<br />
X1 LDA #"!"
<br />
X2 CMP #$4C
<br />
BEQ X3
<br />
CMP #$DF
<br />
BNE X4
<br />
X3 LDA #"-"
<br />
X4 CMP #$51
<br />
BNE X5
<br />
LDA #"v"
<br />
X5 CMP #$52
<br />
BNE X6
<br />
LDA #$DE
<br />
<br />
X6 EQU *
<br />
STA (LB),Y
<br />
RTS
<br />
CALCUL CMP #$09
<br />
BCS CAL1
<br />
LDY #$00
<br />
STY LB
<br />
JMP SUITE
<br />
CAL1 CMP #$11
<br />
BCS CAL2
<br />
LDY #$28
<br />
STY LB
<br />
SEC
<br />
SBC #$08
<br />
JMP SUITE
<br />
CAL2 LDY #$50
<br />
STY LB
<br />
SEC
<br />
SBC #$10
<br />
SUITE LDY #$04
<br />
STY HB
<br />
TAX
<br />
DEX
<br />
BEQ END
<br />
BOUCLE CLC
<br />
LDA #$80
<br />
ADC LB
<br />
STA LB
<br />
LDA #$00
<br />
ADC HB
<br />
STA HB
<br />
DEX
<br />
BNE BOUCLE
<br />
END RTS
<br />
*
<br />
*
<br />
*************
<br />
**.........**
<br />
**..SOUND..**
<br />
**.........**
<br />
*************
<br />
*
<br />
SOUND LDX #$FF
<br />
SOUND1 LDA #$58
<br />
SOUND2 LDY #$1B
<br />
SOUND3 DEY
<br />
BNE SOUND3
<br />
BIT SPKR
<br />
TAY
<br />
SOUND4 DEY
<br />
BNE SOUND4
<br />
SBC #$01
<br />
BEQ SOUND1
<br />
BIT SPKR
<br />
DEX
<br />
BNE SOUND2
<br />
RTS
<br />
*
<br />
*
<br />
*********************
<br />
**.................**
<br />
**..STROUT.&.COUT..**
<br />
**.................**
<br />
*********************
<br />
*
<br />
STROUT40 STA LB.
<br />
STY HB.
<br />
LDY #$00
<br />
STR.40 TYA
<br />
PHA
<br />
LDA (LB.),Y
<br />
BNE STR.40.
<br />
PLA
<br />
RTS
<br />
STR.40. JSR COUT.40
<br />
PLA
<br />
TAY
<br />
INY
<br />
JMP STR.40
<br />
*
<br />
COUT.40 CMP #$8D;RETURN?
<br />
BEQ RET40
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
INC COL
<br />
RTS
<br />
RET40 INC LIG
<br />
LDA #$01
<br />
STA COL
<br />
RTS
<br />
*
<br />
<br />
STROUT80 STA LB.
<br />
STY HB.
<br />
LDY #$00
<br />
STR.80 TYA
<br />
PHA
<br />
LDA (LB.),Y
<br />
BNE STR.80.
<br />
PLA
<br />
RTS
<br />
STR.80. JSR COUT.80
<br />
PLA
<br />
TAY
<br />
INY
<br />
JMP STR.80
<br />
<br />
COUT.80 CMP #$8D;RETURN?
<br />
BEQ RET80
<br />
STA CAR
<br />
JSR COL.LIG
<br />
INC COL
<br />
RTS
<br />
RET80 INC LIG
<br />
LDA #$00
<br />
STA COL
<br />
RTS
<br />
<br />
<br />
****************
<br />
**............**
<br />
**..MESSAGES..**
<br />
**............**
<br />
****************
<br />
<br />
PRES.0 DS 4,$8D
<br />
DS 8," "
<br />
DS 23,"_"
<br />
DFB $8D
<br />
DS 7," "
<br />
DFB $5A
<br />
DS 23," "
<br />
DFB $5F,$8D
<br />
DS 7," "
<br />
DFB $5A
<br />
DS 6," "
<br />
ASC "R.S.P.D.:"
<br />
DS 8," "
<br />
DFB $5F,$8D,$00
<br />
PRES.1 DS 7," "
<br />
DFB $5A
<br />
DS 6," "
<br />
DS 9,'L'
<br />
DS 8," "
<br />
DFB $5F,$8D
<br />
DS 7," "
<br />
DFB $5A
<br />
ASC " (Read & Save ProDos) "
<br />
DFB $5F,$8D
<br />
DS 7," "
<br />
DFB $5A
<br />
DS 23," "
<br />
DFB $5F,$8D,$00
<br />
PRES.2 DS 7," "
<br />
DFB $5A
<br />
ASC " Utilitaire de Lecture "
<br />
DFB $5F,$8D
<br />
DS 7," "
<br />
DFB $5A
<br />
ASC " et d'ecriture directe "
<br />
DFB $5F,$8D
<br />
DS 7," "
<br />
DFB $5A
<br />
ASC " sur Disquettes ProDOS "
<br />
DFB $5F,$8D
<br />
DS 7," "
<br />
DFB $5A
<br />
DS 23," "
<br />
DFB $5F,$8D,$00
<br />
PRES.3 DS 7," "
<br />
DFB $5A
<br />
ASC " par Marc ROGLIANO "
<br />
DFB $5F,$8D
<br />
DS 7," "
<br />
DFB $5A
<br />
DS 23," "
<br />
DFB $5F,$8D
<br />
DS 8," "
<br />
DS 23,$4C
<br />
DS 4,$8D
<br />
DS 15," "
<br />
ASC "Appuyez sur "
<br />
DFB $00
<br />
PRES.4.1 DFB $4D,$A0,$4E,$8D
<br />
DS 15," "
<br />
DS 13,$4C
<br />
DFB $8D,$00
<br />
PRES.4.2 ASC "RETURN "
<br />
DFB $20,$8D
<br />
DS 15," "
<br />
DS 18,$4C
<br />
DFB $8D,$00
<br />
<br />
AAA0 ASC "R.S.P.D.: Utilitaire de Lecture et d'Ecriture sur disks ProDOS par Marc ROGLIANO"
<br />
DFB $8D
<br />
ASC " Commandes:"
<br />
DFB $5A,$A0,$00
<br />
AAA0.1 DFB $48,$A0,$55,$A0
<br />
DFB $4B,$A0,$4A,$00
<br />
AAA0.2 ASC "fleches"
<br />
DFB $00
<br />
AAA1 ASC " : Deplacements sur l'ecran "
<br />
DFB $5F
<br />
ASC "^A : Entrer caracteres"
<br />
DS 4," "
<br />
DFB $5F,$8D
<br />
DS 2," "
<br />
DS 9,$4C
<br />
DFB $A0,$5A,$A0,$00
<br />
AAA1.1 DFB $40,$A0,$48
<br />
DFB $A0,$55
<br />
ASC " : Deplacements sur Disquette "
<br />
DFB $00
<br />
AAA1.2 ASC "Pomme fermee <- -> : `` sur Disque "
<br />
DFB $00
<br />
AAA2 DFB $5F
<br />
ASC "^B : Entrer un Block"
<br />
DS 6," "
<br />
DFB $5F,$A0
<br />
DFB $A0,$51,$8D
<br />
ASC " (ESC: "
<br />
DFB $5A,$A0,$00
<br />
AAA2.1 DFB $41,$A0
<br />
DFB $48,$A0,$55
<br />
ASC " : Deplacements (*10)"
<br />
DS 9," "
<br />
DFB $00
<br />
AAA2.2 ASC "Pomme ouverte <- -> : Depl. x 10 "
<br />
DFB $00
<br />
AAA3 DFB $5F
<br />
ASC "^C : Changer de Lecteur"
<br />
DS 3," "
<br />
DFB $5F,$A0,$A0
<br />
DFB $5A,$8D
<br />
ASC " Quitter) "
<br />
DFB $5A
<br />
ASC " ESPACE : Changer de Page"
<br />
DS 10," "
<br />
DFB $5F
<br />
ASC "^S : Sauver sur Disquette "
<br />
DFB $5F,$A0,$A0,$5A,$8D
<br />
ASC " BLOCK:"
<br />
DS 5," "
<br />
ASC "($ ) DRIVE: "
<br />
DFB $31
<br />
ASC "/2 OCTET: $"
<br />
DS 9," "
<br />
DFB $5F
<br />
ASC "^X : Switcher Caracteres "
<br />
DFB $5F,$A0,$A0
<br />
DFB $5A,$8D,$00
<br />
*
<br />
ERROR.0 ASC " "
<br />
DS 24,"_"
<br />
ASC " "
<br />
DFB $8D,$00
<br />
ERROR.1 DFB $5A
<br />
DS 24," "
<br />
DFB $5F,$8D,$00
<br />
ERROR.2 DFB $5A,$A0
<br />
ASC ">>>"
<br />
DFB $05,$72,$72,$65
<br />
DFB $75,$72,$20,$04
<br />
DFB $69,$73,$71,$75
<br />
DFB $65,$74,$74,$65
<br />
ASC "<<<"
<br />
DFB $A0,$5F,$8D,$00
<br />
ERROR.3 DFB $5A
<br />
DS 5," "
<br />
ASC "APPUYEZ SUR "
<br />
DFB $00
<br />
ERROR4.1 DFB $4D
<br />
DS 6," "
<br />
DFB $5F,$8D,$00
<br />
ERROR4.2 ASC "RETURN "
<br />
DFB $5F,$8D,$00
<br />
ERROR.5 ASC " "
<br />
DS 24,$4C
<br />
ASC " "
<br />
DFB $00
<br />
<br />
MESSERR ASC "IL FAUT UNE CARTE 80 COLONNES"
<br />
DFB $00
<br />
DFB $BF,$19,$04
<br />
SAVE DS 4
<br />
TABLE DS 7
<br />
TABLE1 EQU *
<br />
*
<br />
*
<br />
<br />
<br />
******************************************
<br />
<br />
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" /> )
<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>
</tr>
<tr>
<td colspan="2"><hr /></td>
</tr>
<tr>
<td colspan="2"><span class="postbody">SUPER!!!
<br />
<br />
MERCI BEAUCOUP Philippe. Je ne vais pas perdre mon temps α le saisir α la main.
<br />
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.
<br />
<br />
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.
<br />
<br />
C'est quand mΩme cool de pouvoir disposer d'un source d'un Θditeur de blocks.
<br />
J'ai commencΘ la conversion vers Merlin.
<br />
<br />
JM</span><span class="gensmall"></span></td>
</tr>
</table></td>
</tr>
<tr>
<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>
<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"><!--
<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>
<td align="left" valign="middle" width="100%"><span class="nav"> <a href="index.php" class="nav"> Index du Forum</a>
-> <a href="viewforum.php?f=19" class="nav">Recherches techniques (hard ou soft)</a></span></td>
<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>
</td>
</tr>
<tr>
<td align="left" colspan="3"><span class="nav">Page <b>1</b> sur <b>1</b></span></td>
<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>
</tr>
</table></form>
<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>