--- a/SmallInteger.st	Fri Oct 01 10:37:37 1999 +0200
+++ b/SmallInteger.st	Sun Oct 03 10:41:14 1999 +0200
@@ -1205,6 +1205,38 @@
     "
 !
 
+digitBytes
+    "return a byteArray filled with the receivers bits
+     (8 bits of the absolute value per element),
+     least significant byte is first"
+
+    ^ self asLargeInteger digitBytes.
+
+    "
+      16r12 digitBytes
+      16r1234 digitBytes
+      16r12345678 digitBytes
+    "
+!
+
+digitBytesMSB:msbFlag
+    "return a byteArray filled with the receivers bits
+     (8 bits of the absolute value per element),
+     if msbflag = true, most significant byte is first,
+     otherwise least significant byte is first"
+
+    ^ self asLargeInteger digitBytesMSB:msbFlag.
+
+    "
+      16r12 digitBytesMSB:true
+      16r1234 digitBytesMSB:true
+      16r1234 digitBytesMSB:false
+      16r12345678 digitBytesMSB:true
+      16r12345678 digitBytesMSB:false
+    "
+
+!
+
 digitLength
     "return the number bytes required to represent this Integer.
      For negative receivers, the digitLength of its absolute value
@@ -2880,5 +2912,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.119 1999-09-01 20:02:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.120 1999-10-03 08:41:14 cg Exp $'
 ! !