Kod: Zaznacz cały
Napisz program dokonujacy zmiany pobranej z klawiatury matrycowej liczby dziesiętnej ( 0 - 99d) na liczbę binarną. Na wyswietlaczu należy wyswietlić obydwie liczyby ( np. 99d = 01100011b)
Program nie powinien umozliwiac pobraniie liczb wiekszych od 9.To coście na lekcjach robili. Grali w statki albo w piłkarzyki... Na szybko przerabiasz lekcje z książki: 4, 6, 8 i 9. Doro.pomidor666 pisze:Witam mam dosc powazny problem , nasz Profesor od mikrokontrolerów dał nam po zadaniu w celu zaliczenia semestru.
Otoz nie mam bladego pojecia jak to napisac zeby mialo to rece i nogi a najwazniejsze aby działało.
Kod: Zaznacz cały
LJMP START
ORG 100H
START:
POB_ARG_1: ; pobiera pierwsza cyfre z liczby dwucyfrowej
LCALL WAIT_KEY ; pobranie pierwszej czesci liczby dwucyfrowej z klawiatury
MOV R1, A ; zapamietaj w R1
SUBB A, #10 ; odejmij od pobranej liczby 10. Jesli liczba jest <=9 to C=1
JNC POB_ARG_1 ; jesli jednak C=0, znaczy liczba >9 to wracaj i pobieraj do skutku
POB_ARG_2: ; pobiera pierwsza cyfre z liczby dwucyfrowej
LCALL WAIT_KEY ; pobranie drugiej czesci liczby dwucyfrowej z klawiatury
MOV R2, A ;zapamietaj w R2
SUBB A, #10 ; odejmij od pobranej liczby 10. Jesli liczba jest <=9 to C=1
JNC POB_ARG_2 ; jesli jednak C=0, znaczy liczba >9 to wracaj i pobieraj do skutku
MOV A, R1 ; skopiuj zawartosc R1 do akumulatora
SWAP A ; zamiana połówek akumulatora
ADD A, R2 ; dodaj zawarosc R2 do akumulatora
LCALL WRITE_HEX ; wyswietl na LCD zawartosc akumulatora
MOV A, # '=' ; wpisanie znaku "=" do akumulatora
LCALL WRITE_DATA ; wyswietl znak "=" jako daną na LCD
LJMP $Kod: Zaznacz cały
BCD EQU 20H ; komórka zawierająca daną w kodzie BCD
BIN EQU 21H ; komórka zawierająca daną w kodzie NB (wynik wykonaniaprogramu)
LJMP START
ORG 100H
START:
POB_ARG_1: ; pobiera pierwsza cyfre z liczby dwucyfrowej
LCALL WAIT_KEY ; pobranie pierwszej czesci liczby dwucyfrowej z klawiatury
MOV R3, A ; zapamietaj w R1
SUBB A, #10 ; odejmij od pobranej liczby 10. Jesli liczba jest <=9 to C=1
JNC POB_ARG_1 ; jesli jednak C=0, znaczy liczba >9 to wracaj i pobieraj do skutku
POB_ARG_2: ; pobiera pierwsza cyfre z liczby dwucyfrowej
LCALL WAIT_KEY ; pobranie drugiej czesci liczby dwucyfrowej z klawiatury
MOV R4, A ;zapamietaj w R2
SUBB A, #10 ; odejmij od pobranej liczby 10. Jesli liczba jest <=9 to C=1
JNC POB_ARG_2 ; jesli jednak C=0, znaczy liczba >9 to wracaj i pobieraj do skutku
MOV A, R3 ; skopiuj zawartosc R1 do akumulatora
SWAP A ; zamiana połówek akumulatora
ADD A, R4 ; dodaj zawarosc R2 do akumulatora
MOV R6, A
LCALL WRITE_HEX ; wyswietl na LCD zawartosc akumulatora
MOV A, # 'D'
LCALL WRITE_DATA
MOV A, # '=' ; wpisanie znaku "=" do akumulatora
LCALL WRITE_DATA ; wyswietl znak "=" jako daną na LCD
MOV BCD, R6 ; przeniesienie zapamietanej liczby bcd do rejestru r6
MOV A,BCD
MOV R0,#BCD ; do R0 adres komórki z daną wejściową
MOV R1,#BIN ; do R1 adres komórki z daną wyjściową
ACALL BCD DO BIN ; zamień na postać binarną
MOV A,BIN
LCALL WRITE_HEX
MOV A, #'H'
LCALL WRITE_DATA
MOV A, #'E'
LCALL WRITE_DATA
MOV A, #'X'
LCALL WRITE_DATA
LJMP $
BCD DO BIN:
MOV @R1,#0 ; wyczyść komórkę BIN
MOV A,@R0 ; BCD do ACC
SWAP A ; zamień połówki
ANL A,#0FH ; wyzeruj mniej znaczącą cyfrę
JZ BCD DO BIN1 ; jeśli starsza cyfra jest zerem to skocz dalej
MOV R2,A ; w R2 ilość powtórzeń
CLR C
BCD DO BIN2:
MOV A,@R1 ; BIN do ACC
ADDC A,#10
MOV @R1,A ; wynik do BIN
DJNZ R2,BCD DO BIN2 ; dodawaj 10 tyle razy ,ile wynosi starsza cyfra
BCD DO BIN1:
MOV A,@R0 ;BCD do ACC
ANL A,#0FH ; wyzeruj starszą cyfrę
ADD A,@R1 ; dodaj do BIN
MOV @R1,A ; wynik do BIN
RETZałożyłeś, że liczba BCD to liczba dziesiętna, ok, będzie łatwiej, ale wynikiem ma nie być liczba HEX tylko po kolei bity jako BIN. Całe WRITE_HEX możesz sobie wywalić, bo to nie to.pomidor666 pisze:Napisz program dokonujacy zmiany pobranej z klawiatury matrycowej liczby dziesiętnej ( 0 - 99d) na liczbę binarną.
