Assembler

	 ORG 800H
WYBOR 	 LXI H,MENU
	 RST 3
	 RST 2
	 CPI '1'
	 CZ MNOZENIE
	 CPI '2'
	 CZ DZIELENIE
	 JMP WYBOR
MNOZENIE 	 LXI H,TEXT_MNOZENIE
	 RST 3
	 RST 5
	 MOV B,D
	 MOV C,E
	 LXI H,TEXT_LICZBA2
	 RST 3
 	 LXI H,0
	 RST 5
PETLA 	 DAD D
	 DCX B
	 MOV A,C
	 CPI 0
	 JNZ PETLA
	 MOV B,H
	 MOV C,L
	 MOV A,B
	 LXI H,WYNIK
	 RST 3
	 RST 4
	 MOV A,C
	 RST 4
	 RET
DZIELENIE 	 LXI H,TEXT_DZIELENIE
	 RST 3
	 RST 5
	 MOV B,D
	 MOV C,E
	 LXI H,TEXT_DZIELENIE2
	 RST 3
	 RST 5
	 LXI H,0
	 MOV A,C
	 LXI H,1
	 MOV D,L
PETLA2 	 SUB E
	 DAD D
	 CPI 0
	 JNZ PETLA2
	 MOV A,H
	 LXI H,WYNIK2
	 RST 3
	 RST 4
	 RET
MENU 	 DB '1-Mnozenie, 2-Dzielenie: ',10,13,'@'
TEXT_MNOZENIE 	 DB 10,13,'Podaj pierwsza liczbe do pomnozenia: ','@'
TEXT_LICZBA2 	 DB 10,13,'Podaj druga liczbe do pomnozenia: ','@'
TEXT_DZIELENIE 	 DB 10,13,'Podaj liczbe: ','@'
TEXT_DZIELENIE2 	 DB 10,13,'Podaj dzielnik: ','@'
WYNIK 	 DB 10,13,'Wynik mnozenia: ','@'
WYNIK2 	 DB 10,13,'Wynik dzielenia: ','@'