You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
78 BEQ 510 ;()(' - C'EST !JI DERNIERE DU EUt 137 TI UlA AIlEB ;PROILEME DES FRCMIERES DE BlOC<br />
7'l IHY Ils STR IIJ<br />
ao .Ml 511 "' LDX ABEX+l<br />
81 SIO LOO '1 ; Il TRClJYE ! 140 IN!<br />
" STR EX 141 sn IilRO+l<br />
83 IHY :OJ.. ADRESSE DE LA CI...f 142 !SR T3<br />
84 TVA 143 Jll' T4 ; DEaJT ou BlOC SUI VAHl<br />
as a.C<br />
144 T3 LDX 10<br />
116 AOC AllEX ICi TG LDA !JŒII, Y<br />
81 SEC 140 STR CI...f, X ;STOCKE PROVISOIREJENT l' ELEJllENT<br />
88 SSC L 147 IN! ; Il OCOl.ER DAAS ClE<br />
S, STR RClE ;OCTET BAS = ABEX+Y-X 148 CPX 12<br />
9:) SIS LOO MElH 149 lIEg P,j<br />
" STR nEt! 150 INY<br />
92 RlS ISI JII' T6<br />
'!! 59 LD' 10 ;51 ELLE EXISTE LA CI...f se: TROWE DANS 152 1'5 RTS<br />
94 S13 LDX 10 ;Œ a.oc. LE REPREND III DEBUT 153 14 LDX 10<br />
95 517 lDA lABEl}, Y 154 LD' 10<br />
.. OIP CI...f, X 155 TB LOO CI...f, X ;CLE -) DEIlIT DU BLOC SUIVANT<br />
" OCS 512 ;Q..E(=ŒLl.E EXRMIE 156 STR tAPROI 1 y<br />
98 IHY ;IJI Cl: EST SI.JlERIEUŒ 157 10X<br />
9'1 INY ;()I LA CDlPARE Il lA SUIVRHTE 158 CPI 12<br />
100 TYR lS' lIE, 17<br />
101 CLC 160 IHY<br />
102 AIIC L 161 JII' T8<br />
103 sn yp 162 Tl LM OOfIl<br />
104 SEC 163 STR yP<br />
lOS SBC II> 164 Jll' l'l<br />
1116 TAY ;Y"Y-l+(l+21 El ()4 RERT • • • 165 T2 STY II><br />
107 .Ml 513 166 JSR T3<br />
\06 S12 BEg 514 ;Eoo...ITE CAROCTEIlE/CAROCTERE 167 IHY ;DEm.A6E Il L' INTERIEUR D' lf.l BlOC<br />
109 TYR ;CLE IhfERIEURE Il CELLE EXINEE 168 LDI 10 ; TRANSFERT DIWS CLE<br />
110 a.C ; CA..QJl DE ADRESSE vi RTlELLE 169 Tl! LDR CLE,I ;Cl.E -) ADRESSE SUIVANTE ru BLOC<br />
111 AIIC AllEX 170 STR flUEI) , y<br />
112 sn yp 171 lOI<br />
11l SEC In CPI 12<br />
11_ SOC II> 173 lE" T9<br />
11S SUI ACLE ;OC1ET BAS = RBEX+Y-X 17_ IHY<br />
1iG Ml SIS 17S JJiIP Tli<br />
li? 514 INX ;CARIV:TERE SUIIMfl SI IL. EXISTE 176 T9 LD' II><br />
118 CPI L 177 UlA ABEl+!<br />
11' H StE. 178 ()Il l=ClE + 1<br />
Il\) JN' S10 ; roos CAPACTERES SONT EIiOOX 17' M 112 ;a..oc ru Il FM INSERE LA cu ?<br />
121 SIG IHY 180 UlA AIlEB<br />
122 JJII) 517 181 a.C<br />
123 ;--------------------- 182 AOC II><br />
124 : DEC&Ul6E PO.JR INSERTI 183 CIl' lUE<br />
1 25 ; ------------- 184 H Tl2 ;RDRESSE III Il FT INSERER 1<br />
126 illA AMAX+I : PART DE LA FIH DE LA TAtlE <strong>la</strong>:; RTS<br />
127 SHI ABEX+l 186 Tl2 CPY JO<br />
128 LDA AIlEB 187 BEQ Tl3<br />
129 STA x 188 UlA II> ;DEBUT DU l\.OC TRAITE ?<br />
'30 :"M IWIX 18' sa:<br />
131 SEC 190 SI3C L2 ; DIDUI6E El..9ENT PREŒD€NT<br />
132 SBC AIlEB 191 TAY<br />
133 TA' 192 JIfl T2<br />
134 cpy OOMX 193 T13 LDY OOMI<br />
135 BEg Tl 194 DEe ABEX+l<br />
136 JMP T2 195 Jll' Tl ;PASSE FIN BlOC PRECEDENT (FROOIEREI<br />
<strong>Pom's</strong> n° 9 51