FreeCalypso > hg > freecalypso-tools
annotate uptools/libcoding/alpha_addr.c @ 904:5041bcb8140f
tchtools/fc-vm2hex.c: update header comment for new situation
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Wed, 28 Dec 2022 08:41:57 +0000 |
parents | 74d5e95ee84a |
children |
rev | line source |
---|---|
333
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
1 /* |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
2 * This library module contains some bits that help working with |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
3 * alphabetic addresses. |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
4 */ |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
5 |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
6 #include <sys/types.h> |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
7 |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
8 u_char alpha_septets_to_digits[12] = {0, 2, 4, 6, 7, 9, 11, 13, 14, 16, 18, 20}; |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
9 |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
10 alpha_addr_valid(ndigits, sepp) |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
11 unsigned ndigits, *sepp; |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
12 { |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
13 unsigned n; |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
14 |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
15 for (n = 1; n <= 11; n++) |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
16 if (alpha_septets_to_digits[n] == ndigits) { |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
17 *sepp = n; |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
18 return(1); |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
19 } |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
20 return(0); |
74d5e95ee84a
uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
21 } |