Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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:
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement