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
|
procedure bases (i)
int i {prompt="Integer for base conversion"}
string nbyte = "0" {prompt="Number of bytes of precision", enum="0|1|2|4"}
bool verbose = yes {prompt="Print labels for the columns?"}
begin
int ii, ui, nibble[8], nnibble, nn, ndigits, index
bool is_negative, is_byte, is_short, is_ascii, is_ubyte, is_ushort
ii = i
is_negative = (ii < 0)
is_ascii = (ii <= 07fx && ! is_negative)
is_ubyte = (ii < 100x && ii >= -100x)
is_ushort = (ii < 10000x && ii >= -10000x)
is_byte = (abs(ii) <= 07fx)
is_short = (abs(ii) <= 07fffx)
if (nbyte == "0") {
if (is_ubyte || is_byte)
nnibble = 2
else if (is_ushort || is_short)
nnibble = 4
else
nnibble = 8
} else if (nbyte == "1") {
nnibble = 2
} else if (nbyte == "2") {
nnibble = 4
} else if (nbyte == "4") {
nnibble = 8
}
# explicitly convert to 2's complement for the bytes or shorts
ui = ii
# if (is_negative && nnibble != 8) {
if (is_negative) {
ndigits = 4*nnibble - 1
ui = 2**ndigits + 2**ndigits - abs(ii)
}
nn = ui
for (index=nnibble; index>=1; index-=1) {
nibble[index] = max (0x, min ( 0ffx, mod(nn,10x)))
nn = nn / 10x
}
if (verbose) {
if (nnibble == 2)
printf (" dec hex oct ")
else if (nnibble == 4)
printf (" dec hex octal ")
else
printf (" dec hex octal ")
for (index=1; index<=(nnibble/2); index+=1)
printf (" 7654 3210")
if (is_negative)
printf (" unsigned")
else if (is_ascii)
printf (" ascii")
printf ("\n")
}
if (nnibble == 2)
printf ("%4d %02xx %03ob ", ii, ui, ui)
else if (nnibble == 4)
printf ("%6d %04xx %06ob ", ii, ui, ui)
else
printf ("%11d %08xx %011ob ", ii, ui, ui)
for (index=1; index<=nnibble; index+=1)
printf (" %04r2", nibble[index])
if (is_negative)
printf (" %d", ui)
else if (is_ascii)
printf (" %3c", ii)
printf ("\n")
end
|
