unscr   proc    near

        mov     bx, sp
        les     di, dword ptr ss:[bx+2]
        mov     bx, 0
        mov     cx, 15
nnext:  mov     al, byte ptr es:[bx+di]
        cmp     al, 0
        je      ndone
        xor     al, 0EEh
        mov     byte ptr es:[bx+di], al
        inc     bx
        loop    nnext
ndone:  ret     4

unscr   endp