r333 - dev/isa

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 )