You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
56<br />
ID UlAP ;!WU DES PAIWEl RES<br />
270 STR DZLP<br />
'lI7 UlA ,<br />
278 STA DZLS<br />
279 "'" S71<br />
280 OCSt l.DX 10 ;DECllJlOOE<br />
DU SECTEUR lœIn<br />
281 sn Zl<br />
282 sn Z2<br />
283 Lnl 14<br />
28400 AIL<br />
285 AIL li ;1l=4 BITS DE 6A.OE<br />
286 on<br />
287 HOO<br />
288 Lnl 14<br />
28' UlA ,<br />
mOI ROll<br />
m ROll 12 ;Z2-4 BITS DE DROITE<br />
m lIEI<br />
m Bt.f 01<br />
Lnl 14<br />
2'l5 ClC<br />
2% 02 !!OR 12<br />
297 lIEI<br />
l ;HHHH+HHHHt+H+tUHHUH<br />
2 ;+ • Lisa<br />
3 ;' TRANSFERT VARIA9..ES (-) BtFFERI 1.5<br />
" ;* PROORiM OBJET : VAR.OBJ •<br />
5 , "<br />
,<br />
fi ;HHIIlIIIIIIIIlIlt+nH+H<br />
7 '<br />
,<br />
8<br />
9<br />
10 '"<br />
lI RS<br />
12 PlV<br />
ORO sa887<br />
OBJ S800<br />
EPI SF'l<br />
EPZ SFA<br />
EPI $Fl)<br />
l3 AV EPI OEE<br />
11& LV EPZ SFB<br />
15 Nl.'tO EPZ SFF<br />
16 lM: EPZ $Fe<br />
17 BLF2 EQU SBA87<br />
18 FR(TtJl EPI $6F<br />
19 ElMl LDY to<br />
20 STY t.\tO<br />
21 LDY Hel<br />
22 STY NVC<br />
23 BlNOO LDA $69<br />
24 STA PTV<br />
15<br />
UlA S6R<br />
26 STA PTV+1<br />
TI RTS<br />
28 BClO<br />
29<br />
30<br />
li<br />
32<br />
3:l<br />
34<br />
;IOIBRE DE VARIAILES !IlINS 1<br />
;COΠASCII PREJUERE LETTRE<br />
;caITIOO :IDRESSt: l:G.lT It'ARilUlLE<br />
;CI)ITIENT ADRESSE CONTOO DE LA VARIABLE<br />
;lOOJEUR DE LA VARIABLE<br />
;!OIBRE IlE RIABlES TRAITEES IIIJINS 1<br />
;CODE 2DE LETTRE VARIA9...E TRAITEE<br />
:FIN lM OiAlhES DE CARACTERES<br />
:SC1=CHRS(AI+S80<br />
: INITHl.ISE A LMM<br />
LDY JO ; RECIERŒE LE toi DE LA WlRIAa.E<br />
UlA RS<br />
(Xl (PlV). y ; 1ERE LEITRE = AS ?<br />
H ....<br />
INY<br />
LOO (PTV). Y<br />
()III NVC ;2EME LETTRE '" NIJC ?<br />
2'J8 HD2<br />
2'l'J RT'<br />
300 cm LDX 10<br />
lOI ,Ti ,<br />
302 Lnl 14<br />
303 CO ROR 12<br />
304 ROR ,<br />
305 lIEl<br />
306 H CO<br />
307 LnI I4<br />
308 CI ROll li<br />
3O'l ROH<br />
310 lIEI<br />
311 H CI<br />
312 RTS<br />
313 . RW UlA HeC<br />
314 LDY 1$81<br />
315 JSR $31)9<br />
316 UlAI2<br />
317 SHI t8C97<br />
318 RT'<br />
319 OCM OINT"<br />
320 END<br />
3:i<br />
EEQ IJ(<br />
36 NCW l.DA PTV<br />
37 a..c<br />
38 AOC .7<br />
39 STR PTV<br />
40 lICC no<br />
41 Ir«: PTV+l<br />
42 "'" no<br />
43 0< RTS<br />
:cneTlTl.E LE SECTEUR lOOIOlE<br />
;APPEl A MS<br />
;PASSE A UI IJAIABl.E SUII,WITE<br />
: (7 OCTETS PLUS LOIN)<br />
44 ; -------<br />
4S : TIREiFERT YARIAa.ES -) aEFER<br />
46 ;<br />
47 TRA! JSR EUWI<br />
cUI TRA JSR no<br />
49 INV<br />
50 LDA (PlV), Y ;UIGBJR DE LR VARIAFl.E<br />
51 STR LV<br />
52 STR 1II.F2, X ;STOCIŒE AVANT UI IXtiUR ELLE l'lEIE<br />
53 BtE TRI<br />
54 IHX ;IJARUUl.E " CAROCTERE lU.<br />
55 JIll TR2<br />
56 TRI INl<br />
51 INY<br />
58 LM (PTV), Y ;OCTET BAS ADRESSE DE LA VIlfUR<br />
59 SHI <br />
60 INY<br />
61 lDA (PlV), Y ;OCTET l4lJT ADRESSE DE LA WWJR<br />
62 STA AV+1<br />
63 LDY JO<br />
64 TRl LDA (AV), Y :TRT WlfUR -) IlffER<br />
65 STR 1lF2,1<br />
66 INX<br />
67 INY<br />
68 CPY LV<br />
<strong>Pom's</strong> n" 9
Change language