Konwersje BIN/BCD w ASM 8051

Krzysiek Wesołowski — Wed, 04 Nov 2009 23:06:03 +0000

Kilka prostych procedur napisanych dla znajomych z innego kierunku:

Listing:

;poniższy kod można podmienić na prezentujący inna z załączonych procedurę.
mov R0,#0x14 ;przykladowa liczba do konwersji
mov R1,#0x38 ;druga czesc liczby
lcall BCD2BIN2BYTES ;procedura konwertujaca
FINISH: ;petla zapobieajaca wykonywaniu dalszej części programu.
LJMP FINISH

Konwersja 2 bajtowa:

Listing:

BCD2BIN2BYTES:
;liczba jest w R0 i R1
;bardziej znaczacy w R0, mniej w R1
;wynik również tam umieścimy.
mov A,R0
lcall BCD2BIN1BYTE ;konwertujemy pierwszy
mov B, #100
MUL AB ; wynik został pomnożony razy 100
mov R2, B
mov R3, A ; wynik mnożenia zachowany
mov A, R1
lcall BCD2BIN1BYTE ; konwersja mniej znaczącej części
CLR C ; dodawania z przeniesieniem
ADDC A, R3
mov R3, A
mov A, R2
ADDC A, #0
mov R0,A
mov A,R3
mov R1, A
RET

Listing:

BIN2BCD1BYTE: ;konwersja BIN2BCD na jednym bajcie - pochodzi z datasheetu - proste i zrozumiałe
mov B, #10
DIV AB
SWAP A
ADD A, B
RET
BCD2BIN1BYTE: ; i w druga stronę
mov R7, A
ANL A,#0xF0 ; zostawiamy tylko cyfrę dziesiątek
SWAP A
mov B, #10
MUL AB
XCH A, R7 ; zamiana miejscami
ANL A, #0x0F ; cyfra jedności
ADD A, R7
RET

Komentarze wyjaśniają mniej typowe rzeczy, zaś działanie pozostałych sprowadza się praktycznie do opisu działania instrukcji. W razie niezrozumienia jakiegoś szczegółów można zapytać na mailu komentarzu.

Krzysztof Wesołowski » bin2bcd

Konwersje BIN/BCD w ASM 8051