<br>assume cs:code,ds:data<br>data segment<br> dat db 00H,0aH,03H,0cH,0dH,05H<br> len equ $-dat<br>data ends<br>code segment<br>start:<br>mov ax,data<br>mov ds,ax<br>lea bx,dat<br>mov cx,len<br>l1:<br> cmp byte ptr [bx],0aH<br> jb s1<br> cmp byte ptr [bx],0fH<br> ja s1<br> add byte ptr [bx],55<br> jmp short s2<br> s1:<br> mov byte ptr [bx],0<br> s2:<br> inc bx<br>loop l1<br>mov ax,4c00H<br>int 21H<br>code ends<br>end start<br>