Mercurial > public > mk2

view code_part1/OSTC_code_asm_part1/spbrgselect.inc @ 485:e83f883c96b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quick fix for wrong wait routines
author heinrichsweikamp
date Sat, 15 Oct 2011 13:45:15 +0200
parents 96a35aeda5f2
children
line wrap: on
line source

RoundResult SET 0				; Rounding function.  RoundResult = Round(aa/bb)

Round	macro aa,bb

	LOCAL rr = aa/bb

	LOCAL d1 = aa - rr*bb

	LOCAL d2 = (rr+1)*bb - aa

RoundResult = rr

	if d1 >= d2

RoundResult++

	endif

	endm



AbsResult SET 0

Abs		macro nr

	if nr>=0

AbsResult = nr

	else

AbsResult = -nr

	endif

	endm

		

	Round xtal,(16*baud)

spbrg_value EQU RoundResult-1



	Round xtal,(16*(spbrg_value+1))

baud_real EQU RoundResult

	Abs(baud_real-baud)

errpercent EQU AbsResult*100/baud

	if errpercent > 4

		ERROR big error in baudrate: #v(errpercent)%

	endif

	if errpercent >= 2

		messg baudrate not exact: #v(errpercent)%

	endif