[commit] r2829 - forth/lib

[repository service]

Author: wmb
Date: Mon Jan 16 22:05:22 2012
New Revision: 2829
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2829

Log:
bitops.fth - added commentary

Modified:
   forth/lib/bitops.fth

Modified: forth/lib/bitops.fth
==============================================================================
--- forth/lib/bitops.fth	Mon Jan 16 22:05:18 2012	(r2828)
+++ forth/lib/bitops.fth	Mon Jan 16 22:05:22 2012	(r2829)
@@ -2,6 +2,8 @@
 purpose: bit array operations

hex
+\ bit 0 of the array is bit 7 of byte 0
+
 : bitsetup  ( bit# array -- adr val bit# )
    over 3 >> + tuck c@ h# 80 rot 7 and >>
 ;