; Listing 22.3. L22-3.ASM 
ClearS              proc          near 
                    push          bp        ;sauve BP de l'appelant 
                    mov           bp,sp     ;pointe sur la stack frame 
                    cmp           word      ptr   [bp].BufSeg,0 ;saute le remplissage
                                            ;si pointeur null 
                    jne           Start     ;est passé 
                    cmp           word      ptr [bp].BufOfs,0  
                    je            Bye 
Start:              cld                          ;fait décompter STOSW  
                    mov           ax,[bp].Attrib ;charge AX avec l'attribut 
                    and           ax,0ff00h      ;prépare pour la combinaison avec le
                                                 ;caractère plein 
                    mov           bx,[bp].Filler ;charge BX avec le caractère 
                                                 ;plein 
                    and           bx,0ffh        ;prépare pour la combinaison avec 
                                                 ;l'attribut 
                    or            ax,bx          ;combine l'attribut et le caractère 
                                                 ;plein 
                    les           di,dword  ptr   [bp].BufOfs;charge ES:DI avec 
                                                  ;segment:offset du tampon cible 
                    mov           cx,[bp].BufSize ;charge CX avec la taille du 
                                                  ;tampon 
                    rep           stosw           ;remplit le tampon 
Bye:                
                    pop           bp               ;restaure BP de l'appelant 
                    ret           EndMrk-RetAddr-2 ;retourne, en supprimant les 
                                                   ;paramètres de la pile 
ClearS              endp