iNextrix / ASTPP

		 protected function newFromNum($bits, $num) {

			$bstream = $this->allocate($bits);

			$mask = 1 << ($bits - 1);

			for ($i = 0; $i < $bits; ++$i) {

				if ($num & $mask) {

					$bstream[$i] = 1;

				} else {

					$bstream[$i] = 0;

				}

				$mask = $mask >> 1;

			}

			return $bstream;

		}

			$p = 0;

			for ($i = 0; $i < $size; ++$i) {

				$mask = 0x80;

				for ($j = 0; $j < 8; ++$j) {

					if ($data[$i] & $mask) {

						$bstream[$p] = 1;

					} else {

						$bstream[$p] = 0;

					}

					$p++;

					$mask = $mask >> 1;

				}

			}

			return $bstream;

		}