Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- org 100h
- start:
- mov ah, 2
- mov dl,10
- int 21h
- mov dl, 13
- int 21h
- xor dx, dx ;dx 0 aktualnie i uzywane do dzielenia
- mov ax,50269
- mov SI, 0
- dzielenie:
- div word [dzielniki+SI]
- mov [reszta], dx
- mov [wynik], ax
- xor ax, ax
- xor dx, dx
- add SI, 2
- cmp word [wynik], 0
- je czyzeroprzod
- call zmienzero
- Wypisz:
- mov dx, [wynik]
- add dx, 48
- mov ah, 2
- int 21h
- xor dx, dx
- xor ax, ax
- mov ax, [reszta]
- cmp SI, 10
- jne dzielenie
- je koniec
- czyzeroprzod:
- mov ax, [reszta]
- cmp word [zeroprzod], 0
- jne dzielenie
- je Wypisz
- zmienzero:
- pop bx
- mov word [zeroprzod],0
- push bx
- ret
- koniec:
- mov ax, 4c00h
- int 21h
- dzielniki dw 10000,1000,100,10,1
- wynik dw 0
- reszta dw 0
- zeroprzod dw 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement