Suma z zakresu

;;;;;;;;;; Kompilacja programu ;;;;
; tasm program.asm ;;;;;;
;;;;;;;;;; Linkowanie ;;;;;;;;;;;
;tlink program.obj ;;;;;;;;;;;;
;;;;;;;;;; Wykonanie programu ;;;;;
;program.exe



;stosik SEGMENT STACK
;	DB 328 DUP(?)
;stosik ENDS

assume cs:kod, ds:dane  ;linia może występować w różnych miejscach

dane segment
	napis db 'Wprowadz liczbe:	$',13,10
napis2 db 'Wprowadz druga liczbe: $',13,10
	nl db 13,10, '$';
	gw db '*$';
	zmp dw ?
	zmp2 dw ?
dane ends

kod segment
start:
	mov ax, seg dane
	mov ds, ax
	mov ax, 3	;czysci ekran
	int 10h		;czysci ekran
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	mov dx, offset napis
	mov ah, 9h
	int 21h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;	wczytywanie wartosci liczbowej z klawiatury
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xor bx,bx

wczytaj:

        ;cmp bx, 65535
	;ja koniec_wczytania

	mov ah, 7h	;czytanie z klawiatury znak w AL bez echa
	int 21h

	xor dx, dx

	mov dl, al
	cmp dl, 13	;enter
	je koniec_wczytania

	cmp dl, '0'
	jl wczytaj	;nie liczba

	cmp dl, '9'
	jg wczytaj	;nie liczba

	mov ah, 2h
	int 21h

	sub dl, '0'
	push dx
	mov ax, bx
	mov cx, 10
	mul cx
	pop dx

	add ax, dx
	mov bx, ax
	jmp wczytaj

koniec_wczytania:

	mov zmp, bx



	mov dx, offset nl
	mov ah, 9h
	int 21h

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	mov dx, offset napis2
	mov ah, 9h
	int 21h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
xor bx, bx	;;;;;;;tu	brak wyzerowania bx
wczytaj2:

        ;cmp bx, 65535
	;ja koniec_wczytania

	mov ah, 7h	;czytanie z klawiatury znak w AL bez echa
	int 21h

	xor dx, dx

	mov dl, al
	cmp dl, 13	;enter
	je koniec_wczytania2

	cmp dl, '0'
	jl wczytaj2	;nie liczba

	cmp dl, '9'
	jg wczytaj2	;nie liczba

	mov ah, 2h
	int 21h

	sub dl, '0'
	push dx
	mov ax, bx
	mov cx, 10
	mul cx
	pop dx

	add ax, dx
	mov bx, ax
	jmp wczytaj2

koniec_wczytania2:
	mov zmp2, bx
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	mov dx, offset nl
	mov ah, 9h
	int 21h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ktora wieksza
mov bx, zmp2
cmp bx, zmp
jg tu

push zmp2
push zmp
pop zmp2
pop zmp


tu:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;sumowanie
mov bx, zmp2
sub bx, zmp
mov cx, bx
cmp cx, 0
mov bx, zmp
jnz tam
jmp tam1

tam:
petlacx:
inc zmp
add bx, zmp
loop petlacx

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;add bx, zmp
;wyswietlanie zawartosci liczbowej z rejestru ax
tam1:
		mov ax, bx
wyswietl:

	mov cx, 0
petla11:
        mov dx,0
        mov bx, 10
        div bx
        push dx
        inc cx
        cmp ax, 0
        jnz petla11
		mov dx, 0
petla21:
        pop dx
        mov ah, 02h
        add dl, 48
        int 21h
        loop petla21

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Wyjście do systemu DOS
   mov ah, 4ch
   int 21h
kod ends
end start