Вт янв 24, 2023 12:55:58
Вт янв 24, 2023 13:17:43
Вт янв 24, 2023 13:31:21
Вт янв 24, 2023 13:40:00
Вт янв 24, 2023 14:49:17
; преобразование в BCD значения регистров R22:R21
SER ZL
MOV R5,ZL
MOV R6,ZL
MOV R7,ZL
MOV R8,ZL
; MOV R9,ZL
R5_10000:
INC R5
SUBI R22,BYTE1(10000)
SBCI R21,BYTE2(10000)
BRCC R5_10000
SUBI R22,BYTE1(-10000)
SBCI R21,BYTE2(-10000)
R6_1000:
INC R6
SUBI R22,BYTE1(1000)
SBCI R21,BYTE2(1000)
BRCC R6_1000
SUBI R22,BYTE1(-1000)
SBCI R21,BYTE2(-1000)
R7_100:
INC R7
SUBI R22,BYTE1(100)
SBCI R21,BYTE2(100)
BRCC R7_100
SUBI R22,BYTE1(-100)
SBCI R21,BYTE2(-100)
R8_10:
INC R8
SUBI R22,BYTE1(10)
SBCI R21,BYTE2(10)
BRCC R8_10
SUBI R22,BYTE1(-10)
SBCI R21,BYTE2(-10)
MOV R9,R22
;*************************************************
;гашение незначащих нулей
CLR R4
LDI R20,10
T_PROV10000:
CP R5,R4
BRNE T_PROV_OUT
MOV R5,R20
T_PROV1000:
CP R6,R4
BRNE T_PROV_OUT
MOV R6,R20
T_PROV100:
CP R7,R4
BRNE T_PROV_OUT
MOV R7,R20
T_PROV10:
CP R8,R4
BRNE T_PROV_OUT
MOV R8,R20
T_PROV_OUT:
; R9 значащий всегда
RET
Вт янв 24, 2023 17:50:09