data segmentorg 1000hbuff db 100(0)data endscode segmentassume cs:code,ds:datastart:mov ax,datamov ds,axlea bx,buffmov cx,100next:mov byte ptr [bx],0inc bxloop nextmov ah,1int 21hmov ax,4c00hint 21hcode endsend start