;-steko segmentas-
stekas segment stack
db 256 dup (?)
stekas ends 

Duomenys segment
IVSR   DB 255,?,255 DUP(?)
tekstas db 'iveskite teksta',13,10,'$'
spsr db 25 dup (' ')
dol db '$'
duomenys ends

programa segment
    assume ss:stekas, ds:duomenys, cs:programa
    
start:
mov ax,duomenys
mov ds,ax
;pakvietimas ivedimui

 mov ah,0ah
 mov ah,09h  ;09h >> AX  reiskia spausdinsim i ekrana
 lea dx, tekstas
 INT 21h     ;isvedam teksta i ekrana
   
   MOV AH, 0Ah    ;0Ah >> AH reiskia ivedinesim i atminti 
   LEA DX,IVSR
   INT 21h
   LEA SI,IVSR[2]
   
Ciklas:   
    cmp IVSR [si],30
    mov IVSR [si],al 
    
     loop ciklas
     je adr 
     
    ;raides ivedimas
   mov ah,1 
   int 21h
   
   ;Isvedimas
   mov ah, 2
   
   ;spausdinimas
    
    MOV AH,09h
    LEA DX,SPSR
    INT 21h
    
    ;grizimas i dos
    
    
    MOV AH,4Ch
    INT 21h
    
programa ends

END START