Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .model tiny
- .386
- .data
- wiersz db 255 dup (?) ;zarezerwowanie w pami?ci 255 bajt?w bez nadawania warto?ci
- wiersz2 db 255 dup (?) ;zarezerwowanie w pami?ci 255 bajt?w bez nadawania warto?ci
- .stack 100h
- .code
- start:
- mov ax, @data
- mov ds, ax
- xor ax, ax
- ; wczytanie wiersza z klawiatury (wykorzystanie funkcji 0Ah z przerwania 21h)
- mov dx, offset wiersz
- mov (wiersz), 255 ; wpisanie do adresu wskazywanego przez 'wiersz' liczby 255...
- mov ah, 0Ah ; ...oznaczaj?cej maksymaln? ilo?? wprowadzanych znak?w
- int 21h
- xor ah,ah
- mov si,2
- cmp (wiersz+1),3
- jne dwa
- sub (wiersz+si),'0'
- mov bl,100
- mov al,(wiersz+si)
- mul bl
- inc si
- mov cl,al
- dwa:
- cmp (wiersz+1),2
- jne jeden
- sub (wiersz+si),'0'
- mov bl,10
- mov al,(wiersz+si)
- mul bl
- inc si
- jeden:
- sub (wiersz+si),'0'
- add cl,al
- mov al,(wiersz+si)
- add cl,al
- mov ch,cl
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ; wczytanie wiersza z klawiatury (wykorzystanie funkcji 0Ah z przerwania 21h)
- mov dx, offset wiersz2
- mov (wiersz2), 255 ; wpisanie do adresu wskazywanego przez 'wiersz' liczby 255...
- mov ah, 0Ah ; ...oznaczaj?cej maksymaln? ilo?? wprowadzanych znak?w
- int 21h
- xor ah,ah
- mov si,2
- cmp (wiersz2+1),3
- jne dwa2
- sub (wiersz2+si),'0'
- mov bl,100
- mov al,(wiersz2+si)
- mul bl
- inc si
- mov cl,al
- dwa2:
- cmp (wiersz2+1),2
- jne jeden2
- sub (wiersz2+si),'0'
- mov bl,10
- mov al,(wiersz2+si)
- mul bl
- inc si
- jeden2:
- sub (wiersz2+si),'0'
- add cl,al
- mov al,(wiersz2+si)
- add cl,al
- add cl,ch
- ;;;;;;;;;;;;;;;;wyswietlanko
- xor ah,ah
- mov al, ch
- mov bl,100
- div bl
- mov cl,ah
- add al,'0'
- mov dl, al
- mov ah,02h
- int 21h
- xor ah,ah
- mov bl,10
- mov al,cl
- div bl
- mov cl,ah
- add al,'0'
- mov dl, al
- mov ah,02h
- int 21h
- mov al,cl
- add al,'0'
- mov dl, al
- mov ah,02h
- int 21h
- mov ah, 4Ch
- int 21h
- end start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement