.model small
.stack 100H

.data
    input db 80d, 81 dup (?), '$'
.code

START:
    mov cl, byte ptr[input+1]     ;kiek simb
    mov ch, 0h                   ;ch turi būt nulis,kad naudotume loop
    mov si, 2h      ;nepamenu

; 3.    Programa spausdina stulpeliu kiekvieno ivesto
;baito reiksme, kuri yra padauginta is 77 ir prie jos
;prideta 10.
;//////////////////////////////////////////////////////////////////////////////////////////////////
dalumas:
       mov ah, 09h
       mov dx, offset originali
       int 21h

       mov al, byte ptr[input + si]
       mov ah, 0

       mov bx, 100d             ;Spausdiname originalia reiksme
       mov dx,0h                ;daliname is simto,issaugome liekana (nes max 255)
       div bx

       mov liek,dx              ;atspausdinu pirma skaitmeni
       mov dl, al
       add dl, '0'
       mov ah,02h
       int 21h

       mov ax, liek             ;dalina is 10,issaugo liekana
       mov bx, 10d
       mov dx,0h
       div bx

       mov liek,dx              ;spausdiname
       mov dl, al
       add dl, '0'
       mov ah,02h
       int 21h

       mov dx, liek             ;spausdina paskutini skaitmeni
       add dl, '0'
       mov ah,02h
       int 21h

       mov ah, 09h                   ;enter
       mov dx, offset enteris
       int 21h

       mov ah, 09h
       mov dx, offset atlikus
       int 21h

       mov al, byte ptr[input + si]

       mov bl, 77                   ;vykdoma uzdavinio salyga
       mul bl
       add ax, 10d


       mov bx, 10000d
       mov dx,0
       div bx

       mov liek,dx
       mov dl, al     ;pirmas skaicius,saugomas ax (mazas, tai al)
       add dl, '0'      ;konvertuojame i ascii
       mov ah,02h
       int 21h

       mov ax, liek               ;daliname is 1000, issaugome liekana
       mov bx, 1000d
       mov dx,0h
       div bx

       mov liek,dx                ;spausdiname
       mov dl, al
       add dl, '0'
       mov ah,02h
       int 21h

       mov ax, liek               ;daliname is 100, issaugome liekana
       mov bx, 100d
       mov dx,0h
       div bx

       mov liek,dx                     ;spausdiname
       mov dl, al
       add dl, '0'
       mov ah,02h
       int 21h

       mov ax, liek                ;daliname is 10, issaugome liekana
       mov bx, 10d
       mov dx,0h
       div bx

       mov liek,dx
       mov dl, al                    ;spausdiname
       add dl, '0'
       mov ah,02h
       int 21h

       mov dx, liek                  ;spausdiname, kas liko
       add dl, '0'
       mov ah,02h
       int 21h


       mov dl,32d                   ;tarpas
      mov ah,02h
       int 21h

       inc si

    mov ah, 09h
    mov dx, offset enteris
    int 21h

    dec cx
    cmp cx, 0
    je nebedalumas
    jmp dalumas
    nebedalumas: