;PODPROGRAM KONWERSJI LICZBY 5-BAJTOWEJ NB NA 10CYFROWA BCD
;WEJSCIE: R0-ADRES NAJSTARSZEGO BAJTU LICZBY NB
; R1-ADRES NAJSTARSZEGO BAJTU LICZBY BCD
;WYJSCIE:
KONW5B10BCD:
MOV R2,#0
K5B2:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#00H;ODEJMOWANIE 10^9
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#0CAH
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#9AH
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#3BH
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B1
LJMP K5B3
K5B1:
INC R2
LJMP K5B2
K5B3:
MOV A,R2; PIERWSZA CYFRA
SWAP A
MOV @R1,A
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#0CAH
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#9AH
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#3BH
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B4:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#00H;ODEJMOWANIE 10^8
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#0E1H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#0F5H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#05H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B5
LJMP K5B6
K5B5:
INC R2
LJMP K5B4
K5B6:
MOV A,R2
ADD A,@R1
MOV @R1,A;DRUGA CYFRA
INC R1
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#0E1H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#0F5H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#05H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B8:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#80H;ODEJMOWANIE 10^7
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#096H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#98H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B7
LJMP K5B9
K5B7:
INC R2
LJMP K5B8
K5B9:
MOV A,R2
SWAP A
MOV @R1,A;TRZECIA CYFRA
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#80H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#096H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#98H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B10:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#40H;ODEJMOWANIE 10^6
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#042H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#0FH
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B11
LJMP K5B12
K5B11:
INC R2
LJMP K5B10
K5B12:
MOV A,R2
ADD A,@R1
MOV @R1,A;CZWARTA CYFRA
INC R1
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#40H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#042H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#0FH
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B14:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#0A0H;ODEJMOWANIE 10^5
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#086H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#01H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B13
LJMP K5B15
K5B13:
INC R2
LJMP K5B14
K5B15:
MOV A,R2
SWAP A
MOV @R1,A;PIATA CYFRA
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#0A0H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#086H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#01H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B16:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#10H;ODEJMOWANIE 10^4
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#027H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B17
LJMP K5B18
K5B17:
INC R2
LJMP K5B16
K5B18:
MOV A,R2
ADD A,@R1
MOV @R1,A;SZOSTA CYFRA
INC R1
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#10H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#027H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B20:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#0E8H;ODEJMOWANIE 10^3
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#03H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B19
LJMP K5B21
K5B19:
INC R2
LJMP K5B20
K5B21:
MOV A,R2
SWAP A
MOV @R1,A;SIODMA CYFRA
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#0E8H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#03H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B22:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#64H;ODEJMOWANIE 10^2
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B23
LJMP K5B24
K5B23:
INC R2
LJMP K5B22
K5B24:
MOV A,R2
ADD A,@R1
MOV @R1,A;OSMA CYFRA
INC R1
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#64H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B26:
MOV A,R0
ADD A,#4
MOV R0,A
CLR C
MOV A,@R0
SUBB A,#0AH;ODEJMOWANIE 10^1
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
SUBB A,#00H
MOV @R0,A
JNC K5B25
LJMP K5B27
K5B25:
INC R2
LJMP K5B26
K5B27:
MOV A,R2
SWAP A
MOV @R1,A;DZIEWIATA CYFRA
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,#0AH
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
MOV R2,#0
K5B28:
MOV A,R0
ADD A,#4
MOV R0,A
MOV A,@R0
ADD A,@R1
MOV @R1,A;DZIESIATA CYFRA
RET