; Listing 22.7. L22-7.ASM 
ClearS              proc          near 
                    pop           dx        ;récupère l'adresse de retour 
                    pop           ax        ;stocke le caractère dans AL 
                    pop           bx        ;récupère l'attribut 
                    mov           ah,bh     ;stocke l'attribut dans AH 
                    pop           cx        ;récupère la taille du tampon 
                    pop           di        ;récupère l'offset origine du tampon
                    pop           es        ;récupère le segment origine du 
                                            ;tampon 
                    mov           bx,es     ;stocke le segment là où nous pouvons
                                            ;le tester 
                    or            bx,di     ;pointeur null? 
                    je            Bye       ;oui, nous avons alors fini 
                    cld                     ;fait décompter STOSW  
                    rep           stosw     ;stocke la chaîne 
Bye:                
                    jmp           dx        ;retourne au code appelant 
ClearS              endp