; *********************************************************************
; Programme: SOUS1.TXT          version PEP813 sous WINDOWS
;
;      Programme qui appelle un sous-programme qui retourne la plus grande
;      valeur parmi 2 nombres dont les valeurs proviennent des registres A et X.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           hiver 2020
;       cours:          INF2171
; *********************************************************************
;
         STRO    message,d   
         DECI    valeur1,d   ; première valeur
         LDA     valeur1,d   
         DECI    valeur2,d   ; deuxième valeur
         LDX     valeur2,d   
         CALL    SOUS1       ; appel à la routine du plus grand nombre
         STA     maximum,d   
         STRO    grand,d     
         DECO    maximum,d   ; affichage du nombre maximum
         STOP                
message: .ASCII  "Entrez les 2 nombres: \x00"
grand:   .ASCII  "\nLe plus grand est: \x00"
valeur1: .BLOCK  2           ; #2d
valeur2: .BLOCK  2           ; #2d
maximum: .BLOCK  2           ; #2d
;
;SOUS1: retourne la valeur la plus grande parmi 2 valeurs fournies
;
; IN:  A=valeur1
;      X=valeur2
; OUT: A=la plus grande des 2 valeurs fournies
;      X=0
;
grande:  .EQUATE 0           ; #2d
;
SOUS1:   SUBSP   2,i         ; espace réservé pour la valeur la plus #grande
         STX     grande,s    ; supposons que le registre X contient la plus grande valeur
         CPA     grande,s    
         BRGE    réglé       
;
         LDA     grande,s    
réglé:   LDX     0,i         ; X=0000
         RET2                ; désempilons le multiplicande  #grande
         .END