cseg  segment
 assume cs:cseg
 org 100h
 jmp start
count dw 18h
pp  proc
 push ax
 push dx
      
 
 dec count
  
 jnz  next
 mov count ,12h
 mov dl,'L'
 mov ah,2
 int 21h
next:   
  pop dx
 pop ax
 iret
pp endp
start:   xor ax,ax
 mov es,ax
 mov bx,0070h
 mov es:[bx],offset pp
 mov es:[bx+2],seg pp
 
 mov ah,1ch
 int 21h
                        
 mov dx,offset start
 int 27h
cseg  ends
 end start