{==============  FICHIER DE EDNUM  ======================}
{ Unite Graphe Trace.pas  Usinage machines a c.n. NUM750 }
{ programmation Turbo Pascal - Borland                   }
{ Copyright (S) 1997-2011                                }
{ programmeur du programme A.Ara                         }
{ 64150 Mourenx - France.                                }
{ Licence d'utilisation accord dans un but démonstratif  }
{ Unite miniscul.asm: graphiques EDnum c.n du bois       }
{========================================================}

;===================================  
; Fichier Miniscul
; resulta sur fonction type String
;===================================

    CODE SEGMENT BYTE PUBLIC

        ASSUME  CS:CODE

        PUBLIC Miniscul

 MajResult  EQU  DWORD PTR [BP+10]
 MajChaine  EQU  DWORD PTR [BP+6]

;==================================
;Function Uppers(S:String):String;
;==================================

  Miniscul  PROC FAR

           PUSH BP
           MOV  BP,SP
           PUSH DS

           LDS  SI,MajChaine    ;charge l'adresse de la chaine
           LES  DI,MajResult    ;Charge l'adresse du resultat
           CLD                  ;indicateur de direction … 0
           LODSB                ;charge la longeur de la chaine
           STOSB                ;copie dans resultat
           MOV  CL,AL           ;longeur de la chaine dans CX
           XOR  CH,CH           ;met CH … zero
           JCXZ U3              ;Saut si Cx = 0

   U1:    LODSB                 ;charge caractere dans AL, incremente SI
           CMP  AL,'A'          ;saut si caractre diferan de
           JB   U2
           CMP  AL,'Z'          ;l'intervalle 'a' …  'z'
           JA   U2
           ADD  AL,'a'-'A'      ;converti en majuscule

   U2:    STOSB                 ;copie dans resultat
          LOOP U1               ;boucle tant que cx diferan de zero
                                ;d‚cremente CX sans modifier les indicateurs
   U3:    POP  DS               ;depile Ds
          POP  BP               ;depile Bp
          Ret  4                ;Retour de pile 6 octets

  Miniscul   ENDP               ;fin de procedure

    CODE ENDS

       END
;=======================
;End Fichier Miniscul 
;=======================

©® document original sources pascal
  
Page Last Updated: Juin 27, 2011 | Page Editor: A. Ara | SiteMap Dans Une Autre Galaxie
Cet emplacement web non-commercial, et totalement libre & indépendant de tout les parti politique ou d'organisme officiel de toute nature. Nous réflexions sont exclusivement l'avis de personnes qui rejettent le massacre que la société fait aux animaux pour tout motif.