(ASSEMBLER) Odejmowanie
Dane Segment
liczba1 db 0
liczba2 db 0
ekran dw 0
txt_info db ” ************ Program odejmuje liczbe2 od liczby1 ************$”
txt_menuA db “[l]:Wpis Danej1 [p]:Wpis Danej2 [w]:Wypisz wynik [Esc]:Wyjscie $”
txt_menuB db ” [b]:Potwierdz [BackSpace]:Korekta [Esc]:Anuluj $”
txt_linia db ” ————————————————————– $”
txt_nawL db ” [$”
txt_nawP db “]$”
txt_liczba1 db ” Liczba pierwsza : $”
txt_liczba2 db ” Liczba druga : $”
txt_podaj_liczbe1 db “Podaj pierwsza liczbe : $”
txt_podaj_liczbe2 db “Podaj druga liczbe : $”
txt_wynik db ” Wynik : $”
txt_wyjscie db “Wyjscie … DZiekujemy za skorzystanie z programu$”
ustawienie dw 0B06h
Dane Ends
Stos Segment Stack
db 100 dup(?)
Stos Ends
Program Segment
Assume Ds:Dane,Ss:Stos,Cs:Program
Start:
mov ax,Dane
mov ds,ax
mov ax,Stos
mov ss,ax
call wyswietl_menu
call wyswietl_dana1
call wyswietl_dana2
call wyswietl_wynik
looop:
call pobierz_znak
cmp al,27
jz wyjscie
cmp al,’l’
jnz ustawienie_danej1
call nowa_dana1
jmp looop
ustawienie_danej1:
cmp al,’p’
jnz ustawienie_danej2
call nowa_dana2
jmp looop
ustawienie_danej2:
cmp al,’w’
jnz looop
call wyswietl_wynik
jmp looop
wyjscie:
mov dx,offset txt_wyjscie
mov bx,1316h
call konwersja_wspolrz
call pobierz_znak
call czyszczenie
mov ah,04ch
int 21h
wyswietl_menu PROC
call czyszczenie
mov dx,offset txt_menuA
mov bx,0103h
call konwersja_wspolrz
mov dx,offset txt_info
mov bx,0101h
call konwersja_wspolrz
mov dx,offset txt_linia
mov bx,0104h
call konwersja_wspolrz
mov dx,offset txt_liczba1
mov bx,0606h
call konwersja_wspolrz
mov dx,offset txt_liczba2
mov bx,0608h
call konwersja_wspolrz
mov dx,offset txt_wynik
mov bx,060Eh
call konwersja_wspolrz
ret
wyswietl_menu ENDP
wyswietl_dana1 PROC
mov dx,0619h
call kursor
mov al,liczba1
call wypisz_oct_u2
ret
wyswietl_dana1 ENDP
wyswietl_dana2 PROC
mov dx,0819h
call kursor
mov al,liczba2
call wypisz_oct_u2
ret
wyswietl_dana2 ENDP
wyswietl_wynik PROC
mov dx,0E1Bh
call kursor
mov al,liczba1
mov ah,liczba2
sub al,ah
call wypisz_wynik_oct_u2
ret
wyswietl_wynik ENDP
nowa_dana1 PROC
mov dx,0627h
mov ekran,dx
call kursor
call czytU2
cmp ah,0
jz menu_nowa_dana1
mov liczba1,al
call wyczysc_wynik
menu_nowa_dana1:
mov dx,offset txt_menuA
mov bx,0103h
call konwersja_wspolrz
call wyswietl_dana1
call pozycja
ret
nowa_dana1 ENDP
nowa_dana2 PROC
mov dx,0827h
mov ekran,dx
call kursor
call czytU2
cmp ah,0
jz menu_nowa_dana2
mov liczba2,al
call wyczysc_wynik
menu_nowa_dana2:
mov dx,offset txt_menuA
mov bx,0103h
call konwersja_wspolrz
call wyswietl_dana2
call pozycja
ret
nowa_dana2 ENDP
wypisz PROC
mov ah,9
int 21h
ret
wypisz ENDP
konwersja_wspolrz PROC
push dx
mov dl,bh
mov dh,bl
call kursor
pop dx
call wypisz
ret
konwersja_wspolrz ENDP
wypisz_znak PROC
mov ah,2
int 21h
ret
wypisz_znak ENDP
pobierz_znak PROC
mov ah,8
int 21h
ret
pobierz_znak ENDP
kursor PROC ; DL = x DH = y
mov ah,2
mov bh,0
int 10h
ret
kursor ENDP
czysc PROC
call kursor
mov dl,’ ‘
mov ch,0
czysc_loop:
call wypisz_znak
loop czysc_loop
ret
czysc ENDP
czyszczenie PROC
mov ax,3
int 10h
ret
czyszczenie ENDP
czytU2 PROC
mov ch,0 ;liczba wczytanych znakow
mov ah,1 ;kod wyniku
mov bl,0 ;liczba w u2
pobierz_kolejny_znak:
call pobierz_znak
cmp al,0
jnz nic
jmp pobierz_kolejny_znak
nic:
cmp al,27 ;ESC
jz anuluj
cmp al,’b’
jz ok
cmp al,’B’
jz ok
cmp al,8 ;BackSpace
jz backspace
sub al,30h
jz wpisz_cyfre
cmp al,1
jz wpisz_cyfre
jmp pobierz_kolejny_znak
wpisz_cyfre:
mov dl,al
shl bl,1
or bl,al
inc ch
cmp ch,8
je ok
zamotej_sie:
push ax
push bx
push cx
push dx
mov al,bl
mov dx,ekran
sub dl,7h
call kursor
call wypisz_u2
pop dx
pop cx
pop bx
pop ax
push ax
push bx
push dx
mov dx,ekran
sub dl,0Eh
call kursor
mov al,bl
call wypisz_oct_b_zeznakiem
mov dx,ekran
call kursor
pop dx
pop bx
pop ax
jmp pobierz_kolejny_znak
backspace:
cmp ch,0
jle pobierz_kolejny_znak
cmp ch,8
jge pobierz_kolejny_znak
shr bl,1
dec ch
jmp zamotej_sie
anuluj:
mov ah,0
ok:
mov al,bl
ret
czytU2 ENDP
;———–wypisywanie liczb wproswadzonych do komputera—————-
wypisz_wynik_oct_u2 PROC
push ax
call wypisz_oct_b_zeznakiem
mov dx,offset txt_nawL
call wypisz
pop ax
call wypisz_u2
mov dx,offset txt_nawP
call wypisz
ret
wypisz_wynik_oct_u2 ENDP
wypisz_u2 PROC
mov cx,8
mov dh,al
petla:
mov al,dh
mov bh,30h ;znkak 0
mov ah,1
mov bl,cl
dec bl
push cx
mov cl,bl
shl ah,cl
pop cx
and al,ah
jz zero
inc bh
zero:
mov dl,bh
call wypisz_znak
loop petla
ret
wypisz_u2 ENDP
wypisz_oct_b_zeznakiem PROC
mov bl,’+’
mov dh,al ;dh – liczba
mov ah,80h ;maska 10000000
and al,ah
jz dodatnia
dec dh
not dh
mov bl,’-‘
dodatnia:
mov dl,bl
call wypisz_znak
mov al,dh
call wypisz_oct_b
ret
wypisz_oct_b_zeznakiem ENDP
wypisz_oct_b PROC
mov dh,al
mov ah,0C0h ;11000000
and al,ah
mov cl,6 ;przesuniecie o 6 miejsc
shr al,cl
add al,30h
mov dl,al
call wypisz_znak
mov al,dh
mov ah,38h ;maska 00111000
and al,ah
mov cl,3 ;przesuniecie o 3 miejsca
shr al,cl
add al,30h
mov dl,al
call wypisz_znak
mov al,dh
mov ah,7 ;maska 00000111
and al,ah
add al,30h
mov dl,al
call wypisz_znak
ret
wypisz_oct_b ENDP
wypisz_oct_u2 PROC
push ax
call wypisz_oct_b_zeznakiem
mov dx,offset txt_nawL
call wypisz
pop ax
call wypisz_u2
mov dx,offset txt_nawP
call wypisz
ret
wypisz_oct_u2 ENDP
wyczysc_wynik PROC
mov dx,0C1Ah
mov cl,30
call czysc
ret
wyczysc_wynik ENDP
pozycja PROC
mov dx,ustawienie
mov cl,40
call czysc
mov dx,ustawienie
call kursor
ret
pozycja ENDP
Program Ends
End Start
Pliki do pobrania
