123 INY 124 LDR (TXTPTR),Y 125 CMP'U 126 BNE FINPR 127 INY 128 LDA (TXTPTR),Y 129 CMP'R 130 BNE FINPR 131 INY 132 LDA (TXTPTR>,Y 133 CMP'E 134 RCH4 BNE FINPR 135 ; 136 ; POSITIONNEMENT DU POINTEUR TEXTE 137 ; 138 PPT1 INC TXTPTR 139 BNE PPT2 140 INC TXTPTR+1 141 PPT2 DEY 142 BPL PPT1 143 ; 144 ; LOCALISATION DE LA VARIABLE OU DE LA CHAINE APRES PROCEDURE 145 ; 146 LDA #$00 147 STA TEMPPT 148 JSR FRMEVL 149 ; 150 ; VERIFICATION QU'IL S'AGIT BIEN D'UNE CHAINE 151 ; 152 BIT VALTYP 153 BPL FINPR ; SI VALTYP=00 ALORS ON CONTINUE LA RECHERCHE 154 ; 155 ; PRESERVATION DU DESCRIPTEUR DE CHRINE APRES PROCEDURE 156 ; 157 LDY #$02 158 PDC2 LDA (FACM0),Y 159 STA TEMP2,Y 160 DEY 161 BPL PDC2 162 163 ; COMPARAISON DE LA C:HAINE FIFRES GOSUB AVEC CELLE APRES PROCEDURE. 164 ; 165 LDA DSVAR ; COMPARAISON DES LONGUEURS DE CHAINE 166 CMP TEMP2 167 BNE FINPR ; SI PAS = ALORS REPRISE DE LA RECHERCHE 168 169 TAY 170 COMP LDA (DSV8R+1),Y ; COMPARAISON CHRACTERE PAR CAFFICTERE 171 CMP (TEMP2+1),Y 172 BNE FINPR ; SI PAS = ALORS REPRISE DE LA RECHERCHE 173 DEY 174 BPL COMP 175 ; 176 PHA 177 PHA 178 LDA #$B0 179 F'HA 180 JMP NEWSTT ; EXECUTION 181 DCM "BSAVE PROCEDURE &,A$300,L$C9" 182 ; 183 END Fig. 2 - Listing (suite et fin). 166 — MICRO-SYSTEMES Juin 1984 |