diff options
Diffstat (limited to 'board-js2x/slof/freq.fs')
| -rw-r--r-- | board-js2x/slof/freq.fs | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/board-js2x/slof/freq.fs b/board-js2x/slof/freq.fs index 38a0033..c226c85 100644 --- a/board-js2x/slof/freq.fs +++ b/board-js2x/slof/freq.fs @@ -1,14 +1,14 @@ -\ ============================================================================= -\ * Copyright (c) 2004, 2005 IBM Corporation -\ * All rights reserved. -\ * This program and the accompanying materials -\ * are made available under the terms of the BSD License -\ * which accompanies this distribution, and is available at -\ * http://www.opensource.org/licenses/bsd-license.php -\ * -\ * Contributors: -\ * IBM Corporation - initial implementation -\ ============================================================================= +\ ***************************************************************************** +\ * Copyright (c) 2004, 2007 IBM Corporation +\ * All rights reserved. +\ * This program and the accompanying materials +\ * are made available under the terms of the BSD License +\ * which accompanies this distribution, and is available at +\ * http://www.opensource.org/licenses/bsd-license.php +\ * +\ * Contributors: +\ * IBM Corporation - initial implementation +\ ****************************************************************************/ \ Use the HPET to calculate various frequencies. @@ -33,8 +33,7 @@ d# 1000000000000000 4 hpet@ / CONSTANT hpet-freq hpet-freq * r> / ; : round-to tuck 2/ + over / * ; -calibrate ( d# 1000000 round-to) TO tb-frequency - ( d# 10000000 round-to) TO cpu-frequency +calibrate TO tb-frequency d# 100000000 round-to TO cpu-frequency \ Stop HPET. 0 10 hpet! |