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 )