; **************************************************************
; Programme: POLYNOME.TXT          version PEP813 sous Windows
;
;       Programme qui résout l'équation quadratique
;       x^3 + Ax^2 + Bx + C.
;
;       auteur:         votre nom
;       code permanent: votre code permanent
;       courriel:       votre@courriel
;       date:           Eté 2020
;       cours:          INF2171
; **************************************************************
;
         STRO    msgA,d      
         DECI    A,d         
         STRO    msgx,d      
         DECI    x,d         
         STRO    msgB,d      
         DECI    B,d         
         STRO    msgC,d      
         DECI    C,d         
;
; calcul du polynome
;
         STRO    msgpoly,d   
         DECO    poly,d      
         STOP                
msgA:    .ASCII  "Entrez la valeur de A: \x00"
msgx:    .ASCII  "\nEntrez la valeur de x: \x00"
msgB:    .ASCII  "\nEntrez la valeur de B: \x00"
msgC:    .ASCII  "\nEntrez la valeur de C: \x00"
msgpoly: .ASCII  "\n\nLa valeur de x^3+Ax^2+Bx+C est \x00"
A:       .BLOCK  2           
B:       .BLOCK  2           
C:       .BLOCK  2           
x:       .BLOCK  2           
poly:    .BLOCK  2           
         .END