[OpenBIOS] r333 - dev/isa
svn at openbios.org
svn at openbios.org
Sat Apr 28 00:22:30 CEST 2007
Author: wmb
Date: 2007-04-28 00:22:30 +0200 (Sat, 28 Apr 2007)
New Revision: 333
Modified:
dev/isa/diaguart.fth
Log:
Having added rounded-/ to forth/lib/util.fth, it is no longer needed in dev/isa/diaguart.fth
Modified: dev/isa/diaguart.fth
===================================================================
--- dev/isa/diaguart.fth 2007-04-27 22:21:41 UTC (rev 332)
+++ dev/isa/diaguart.fth 2007-04-27 22:22:30 UTC (rev 333)
@@ -9,13 +9,6 @@
: uart@ ( reg# -- byte ) uart-base + pc@ ; \ Read from a UART register
: uart! ( byte reg# -- ) uart-base + pc! ; \ Write to a UART register
-\ Integer division which rounds to nearest instead of truncating
-: rounded-/ ( dividend divisor -- rounded-result )
- swap 2* swap / ( result*2 )
- dup 1 and + \ add 1 to the result if it is odd
- 2/ ( rounded-result )
-;
-
: baud ( baud-rate -- )
uart-clock-frequency d# 16 / swap rounded-/ ( baud-rate-divisor )
More information about the OpenBIOS
mailing list