Paste code

;-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 '$'
        tarp db 'tarpu'         
        ascii DB 5 dup (?),'$'
        duomenys ends
         
        programa segment
            assume ss:stekas, ds:duomenys, cs:programa
           
        start:
        mov ax,duomenys
        mov ds,ax
        ;pakvietimas ivedimui    
        
        
           ;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
       
       XOR CX,CX     ;valom cx registra
       MOV CL,IVSR+1
       XOR DX,DX
       XOR AX,AX

       
    Ciklas:  
       
        MOV AL,[SI]
        cmp AL,20h
        jne adr
        add DX,01h
        mov bh,al  
             
        adr:
        INC SI
        loop ciklas

        
        MOV SI,5
        MOV AX,DX
         
        
  KONVERTUOTI:
  XOR DX,DX
  DEC SI
  
  MOV CX,10
  DIV CX;AX sveikoji dalis, DX liekana
 
  ADD DX,30h;pavercia leikana ASCII
  MOV ascii[SI],DL;DL
  CMP AX,0
  JE BAIGTI
 JMP KONVERTUOTI  
 BAIGTI:
 
 
 
 MOV AH,09H
    LEA DX,ascii[SI]
    INT 21H
        
    
          
          
          
          
          
           
           
        MOV AH,4Ch
        INT 21h
           
        programa ends
         
        END START