Data Segment
  stri db 'this is my first exercise$'
  stri1 db ' ----> $'
Data Ends
;--------------------------------------------------------;
Stk Segment Stack
  db 100 dup(?)
Stk Ends
;--------------------------------------------------------;
Code Segment 
Assume Cs:Code,Ds:Data,ss:Stk
Start:mov ax,Data
      mov ds,ax
      mov ax,Stk
      mov ss,ax
      mov sp,100
;--------------------------------------------------------;
      mov ah,9      
      mov dx,offset stri
      int 21h
;--------------------------------------------------------;
      mov ah,9
      mov dx,offset stri1
      int 21h
;--------------------------------------------------------;
      mov bx,0                           
 AFUH:mov ah,2
      mov dl,stri[bx]
      int 21h
      add bx,2
      cmp bx,24
      jle AFUH           
;--------------------------------------------------------;
      mov ah,1
      int 21h
      mov ah,4ch
      int 21h     
Code Ends
End Start