; ************************************************************
;       Programme: lab_d_0.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire sur DECI
;       0) Prendre exemple sur le programme MULTDIV1 afin de multiplier un nombre par 365.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           été 2019
;       cours:          INF2171
; ***********************************************************
;
         STRO    bienvenu,d  ; message de "Bienvenue"
;
;   multiplication par 365
;   =((((((nombre*2*2)+nombre)*2*2)+nombre+nombre)*2+nombre)*2+nombre)*2*2+nombre
;
         DECI    nombre,d    
         STRO    message,d   
         DECO    nombre,d    
         LDA     nombre,d    ;
         ASLA                ; *2
         ASLA                ; *4
         ADDA    nombre,d    ; *5
         ASLA                ; *10
         ASLA                ; *20
         ADDA    nombre,d    ; *21
         ADDA    nombre,d    ; *22
         ASLA                ; *44
         ADDA    nombre,d    ; *45
         ASLA                ; *90
         ADDA    nombre,d    ; *91
         ASLA                ; *182
         ASLA                ; *364
         ADDA    nombre,d    ; *365
         STA     nombre,d    
         STRO    mult365,d   
         DECO    nombre,d    ; nombre * 10
         STRO    msgfin,d    
         STOP                
; variables
bienvenu:.ASCII  "Bienvenue à ce programme de multiplication"
         .ASCII  " par 365." 
         .ASCII  "\n\nEntrez le nombre à multiplier: \x00"
message: .ASCII  "\nLe nombre \x00"
mult365: .ASCII  " multiplié par 365 = \x00"
msgfin:  .ASCII  "\n\nFin normale du programme.\x00"
nombre:  .BLOCK  2           ; #2d
;
         .END