bitmagic/bitmagicTester_reversebits_comparison.bb at master · VitHub/bitmagic · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138


;; bitmagic.DLL Tester

 Graphics 1000,700,32,2

Print

Global TimerStart[10]
Global TimerStop[10]
Global TimerDiff[10]

;fp = WriteFile("DataFile.txt")

Print" Touch a key to begin... "
WaitKey()
Delay(10)

i = 0
Loop = 10000000  ;;

TimerStart[i] = MilliSecs()
For z=1 To Loop
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
         reversebits32TableC(z)
Next
TimerStop[i] = MilliSecs()
TimerDiff[i] = TimerStop[i]-TimerStart[i]

i=2
TimerStart[i] = MilliSecs()
For z=1 To Loop
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
       reversebits32T(z)
Next
TimerStop[i] = MilliSecs()
TimerDiff[i] = TimerStop[i]-TimerStart[i]

Print" reversebits32T(z)   Loop Time = "+( TimerDiff[2] )+ " milliseconds.. "
Print" reversebits32TableC(z)    Loop Time = "+( TimerDiff[0] )+ " milliseconds.. "
Print


we()

For z=0 To 256
           x = reversebits32TableC(z)
           ;Print" "+Bin$(z)+" : "+Bin$(x)+" : "+z+" : "+x
           ;s = s+",0"+slimhex(x)+"h"
           s = s+x+","
           If Len(s)> 100
                      ;WriteLine(fp,s)
                      Print s:s = ""
           End If
Next

Print s
;WriteLine(fp,s+" }")
;CloseFile fp

Print
Print" End of Program. "

WaitKey():End


;;  gray  code generator
;;  source:  http://en.wikipedia.org/wiki/Gray_code
Function Gray(n)
          Return (n Shr 1) Xor n
End Function

Function GrayToBin_B(n)
          Local mask
          mask=(n Shr 1)
          While(mask)
                    n = n Xor mask
                    mask = mask Shr 1
          Wend
          Return n
End Function

;; returns a slimmer hex$ without leading zeroes.
;;
Function SlimHex$(v)
     h$ = Hex$(v)

     If v<             16 Then Return Mid$(h,8,1)
     If v<           256 Then Return Mid$(h,7,2)
     If v<         4096 Then Return Mid$(h,6,3)
     If v<       65536 Then Return Mid$(h,5,4)
     If v<    1048576 Then Return Mid$(h,4,5)
     If v<  16777216 Then Return Mid$(h,3,6)
     If v<268435456 Then Return Mid$(h,2,7)
     Return h
End Function

Function we()
     WaitKey():End
End Function