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
|
############################################################################
#
# File: pbkform.icn
#
# Subject: Procedures to process HP95 phone book files
#
# Author: Robert J. Alexander
#
# Date: August 14, 1996
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# Icon procedure set to read and write HP95LX phone book (.pbk) files.
#
############################################################################
#
# HP 95LX Phone Book File Format
#
# The HP 95LX Phone Book file is structured as a file identification
# record, followed by a variable number of phone book data records,
# and terminated by an end of file record. Each data record contains
# the information for one phone book entry.
#
# The format of these phone book records is described below. In the
# descriptions, the type <int> refers to a two byte integer stored least
# significant byte first, the type <char> refers to a one byte integer,
# and the type <ASCII> refers to a string of ASCII characters.
#
# HP 95LX Phone Book File Identification Record:
#
# Byte Offset Name Type Contents
#
# 0 ProductCode int -2 (FEh, FFh)
# 2 ReleaseNum int 1 (01h, 00h)
# 4 FileType char 3 (03h)
#
############################################################################
#
# Links: bkutil
#
############################################################################
#
# See also: pbkutil.icn, abkform.icn
#
############################################################################
link bkutil
record pbk_id(releaseNum,fileType)
procedure pbk_write_id(f)
writes(f,"\xfe\xff\x01\x00\x03")
return
end
procedure pbk_read_id(f)
bk_read_int(f) = 16rfffe | fail
return pbk_id(bk_read_int(f),ord(reads(f)))
end
#
# HP 95LX Phone Book Data Record:
#
# Byte Offset Name Type Contents
#
# 0 RecordType char 1 (01h)
# 1 RecordLength int Number of bytes in remainder
# of this data record, see note
# below.
# 3 NameLength char Length of name text in bytes.
# 4 NumberLength char Length on number text in bytes.
# 5 AddressLength int Length of address text in bytes.
# 7 NameText ASCII Name text, 30 characters maximum.
# 7+NameLength NumberText ASCII Number text, 30 characters maximum.
# 7+NameLength+
# NumberLength AddressText ASCII Address text where the null
# character is used as the line
# terminator. Addresses are limited
# to a maximum of 8 lines of 39
# characters per line (not counting
# the line terminator).
#
record pbk_data(name,number,address)
procedure pbk_write_data(f,data)
local name,number,address
name := \data.name | ""
number := \data.number | ""
address := \data.address | ""
writes(f,"\x01",bk_int(*name + *number + *address + 4),char(*name),
char(*number),bk_int(*address),name,number,address)
return data
end
procedure pbk_read_data(f,id)
local next_rec,name_len,number_len,address_len,data
(reads(f) == "\x01" | (seek(f,where(f) - 1),&fail) &
next_rec := bk_read_int(f) + where(f) &
name_len := ord(reads(f)) &
number_len := ord(reads(f)) &
address_len := bk_read_int(f) &
data := pbk_data(reads(f,0 ~= name_len) | "",reads(f,0 ~= number_len) | "",
reads(f,0 ~= address_len) | "") | fail &
seek(f,next_rec)) | fail
return data
end
#
# HP 95LX Phone Book End of File Record:
#
# Byte Offset Name Type Contents
#
# 0 RecordType char 2 (02h)
# 1 RecordLength int 0 (00h, 00h)
#
procedure pbk_write_end(f)
writes(f,"\x02\x00\x00")
return
end
procedure pbk_read_end(f,id)
(reads(f) == "\x02" & reads(f,2)) | fail
return
end
#
#
# Note: Files created by the Phone Book application may contain
# some padding following the last field of some data records. Hence,
# the RecordLength field must be used to determine the start of the
# next record. Phone book files created by other programs need not
# have any padding.
|
