; Listing 22.6. L22-6.ASM 
ClearS              proc          near 
                    push          bp        ;sauve BP de l'appelant 
                    mov           bp,sp     ;pointe sur la stack frame 
                    les           di,dword  ptr   [bp].BufOfs ;charge ES:DI avec
                                                  ; segment:offset du tampon cible 
                    mov           ax,es     ;stocke le segment là où nous pouvons
                                            ;le tester 
                    or            ax,di     ;Le pointeur est-il null ? 
                    je            Bye       ;oui, nous avons alors fini 
Start:              cld                     ;fait décompter STOSW  
                    mov           ah,byte   ptr   [bp].Attrib[1] ;charge AH avec
                                                                 ;l'attribut 
                    mov           al,byte   ptr   [bp].Filler ;charge AL avec le
                                                              ;caractère plein 
                    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, supprimant les 
                                                  ;paramètres de la pile 
ClearS              endp