You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
JS JJ!PSO " AOC lE<br />
36 ElAO C .'W' ; INSTROCTIlJ,I WRITE 96 IlE'<br />
37 SNE WU 'fi ONE 00<br />
38 J'" DEB 98 TAX<br />
39 EXAI CJIIP l' R' ;INSTRl.CTI REAn 'l'lS4 JSR rRAI ;TRlWSFERT : eMBU DES VRRIABlES -)<br />
40 !:tE EIAl 100 J>IlS6 BUFFER<br />
" JIIIP PROR 101 53 JSR S3B<br />
oU EXA2 CKl "M' ;INSTRLCTION IIlDIFlCATION 102 LI1A tI<br />
43 SNE EXR3 103 STR CI)!<br />
.. .nJl PROfil 104 "".<br />
4S EXA3 DJI ,'Il' ; INSTRl[TI ANNl.ATJ 105 J'" 000<br />
" SNE EUI 106 S3B LM PPl ;INDIQUE PARAMETRES PISTE/SECTEUR ET<br />
47 JJIP PD 107 S3BB STR 108+4 ;ADRESSE DU 8lFFER DANS TAIl.E iOB<br />
4811EB JSR LOO 108 srA 0"-<br />
49 J'" 11EBf 10'l LI1A 12<br />
SO LOO LM JO ;CI4lR6€ PARAPlETRfS DIStHnE 110 STR IOB+S<br />
51 SHl 108+4 ; (PISTE O/SECTEUR 01 EN $8987 111 STR DSl<br />
52 SHI IOB+5 112 LOO 1$87<br />
53 LOO 1$87 113 sm IOB+8<br />
54 STR 108+8 1:4 LOO IWI<br />
55 LOO H89 115 STIl IOB+9<br />
'" STR IOB+9 1!6 RTS<br />
57 LDA .1 117 50 JSR 538<br />
,. srA CIJO ::8 LOO 12 ;ECR!TURf SECTEUR yHYSIOOE SUR liI5I!JETTE<br />
'" JSR RW '" STR CI)!<br />
60 Rrs 12 JSR RW<br />
61 DEBF LDA PJU III Rrs<br />
62 "" PP\. 122 521 lNC NZU<br />
63 BE' 50 23 LM HW<br />
54 JMP LIDO ;Il Y A DES ADRESSES LIBEREES 124 OIP NZS<br />
65 50 L!lA PSU 125 BEQ 57 ;us DE ZONES LIBRES DANS E SECTEUR<br />
66 "" PSt 126 INC Zl ;PROCHAINE ZONE LIBRE<br />
7 BEQ 51 127 570 JSR COA ;FABRIQlJE o...E SECTEUR ... 06IGüE<br />
68 Jill LIBO [28 LDIl 5<br />
69 51 LI1A PP\. ; lERE LI8RE = lERE JU5 UTILISEE l2'l ST::! PSU ;!\AJ DES OARfTRES<br />
70 "" .. " 130 SHI PSI..<br />
71 MS2 131 571 LDA Iû ;PAR SECURITE SARDE DES ?AiWlfTRES<br />
n LDX HFF ;SIGNALE SATURATION DISQUETTE 132 STA 108+4 ;lORSQU'IL SONT i'IODIFIES<br />
73 STX S8C94 133 STA 108+5<br />
74 RTS 134 LM U87<br />
75 52 JSR S20 135 SHI 108+8<br />
" J)JI 521 136 LDA H89<br />
77S2() LDY L ; AFFECTE L'ADRESSE A LA ClE :37 STA 108+9<br />
78 LI1A PP\. ;OONS LA TMLE D' INDEX 138 LOO .2<br />
7'7 sm (ACLEI, y 139 STR COJII<br />
80 INY 140 JSR w<br />
81 L!lA PSI. 1101 JMP EXA<br />
82 STR (OCLEI, Y 142 S7 LOO fO<br />
113 5TR S 143 STR II<br />
84 JSR DCSI ;DECOOPE LE SECTEUR LOOIQt.e 144 sm NZU<br />
85 L!lA PP\. :45 IN!: 12 ;PASSA6E III SECTEUR SUIVANT<br />
'" "" '" 140 LM Z2<br />
87 .... 53 ;LECT. SECT. PHYS. SI PAS DANS BUFFER 147 OIP 1$10 ;FIN DE PISTE ?<br />
88 LI1A 12 '" BNE 570<br />
8'l "" DSl 149 INC PJU ;PAS A LA PISTE SUIVANTE<br />
!O .... 53 :50 INC PP\.<br />
91 000 LDI Il ;CSi..aJl POSITI(lN ZONE DANS SECTEUR 151 LI1A Iû<br />
!2 BEQ 54 152 SHI Z2<br />
!3 LI1A Iû 153 J)IP 570<br />
94 00 a.c 154 1180 LDA PPL<br />
<strong>Pom's</strong> n° 9 53