помогите рассчитать 24битный таймер-счетчик в кейле

[SillmaRill]

Курсач мой- это генератор прямоугольных ипульсов на МК.
у меня есть 3 регистра THH, TH, TL. нужно рассчитать таймер.вот кусок проги перед ним.
перевод из двоично-десятичного числа в двоичный код
DEC2BIN:
mov 0x30,CALCBUFH
mov 0x31,CALCBUFM
mov 0x32,CALCBUFL
mov CALCBUFH,#0x00
mov A,CALCBUFM
swap A
ORL A,CALCBUFL
mov CALCBUFL,A
;------------------------
mov R7,#000h
mov R6,#000h
mov R5,#000h
mov B,#006h
DEC2BIN_4:
mov A,CALCBUFH
anl A,#0F0h
swap A
push 0xE0
mov R1,#004h

DEC2BIN_1:
mov A,CALCBUFL
rlc A
mov CALCBUFL,A
mov A,CALCBUFM
rlc A
mov CALCBUFM,A
mov A,CALCBUFH
rlc A
mov CALCBUFH,A
djnz R1,DEC2BIN_1
mov R4,#000h
mov R3,#000h
Pop 0x02
Lcall DEC2BIN_ADD
djnz B,DEC2BIN_2
mov CALCBUFH,R7
mov CALCBUFM,R6
mov CALCBUFL,R5
lcall THTL
ret
;-----------------------------------------------------------------------
DEC2BIN_2:
mov R4,0x07
mov R3,0x06
mov R2,0x05
mov R1,#009h
DEC2BIN_3: Lcall DEC2BIN_ADD
djnz R1,DEC2BIN_3
jmp DEC2BIN_4
DEC2BIN_ADD:mov A,R5
add A,R2
mov R5,A
mov A,R6
addc A,R3
mov R6,A
mov A,R7
addc A,R4
mov R7,A
ret
;--------------------------------------------------------------
;вычисление настроек таймера
THTL:
mov PEREPOLH,#0x00
mov PEREPOLL,#0x00
mov 0x41,#0x00
mov 0x42,#0x00