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
|
*** dvitty.p Wed Oct 7 01:32:29 1987
--- dvitty.p.pyr Wed Oct 7 01:39:46 1987
***************
*** 1,3 ****
--- 1,5 ----
(******************************************************************************
+ * draken:/usr/src/local/dvitty/dvitty.p 1986-12-29 04:13:17
+ * port to Pyramid OSx done.
* bogart:/usr/alla/zap/dvitty/dvitty.p 1986-09-21 01:54:52,
* bugfixes from Tor Lillqvist (santra!tml) added.
***************
*** 167,175 ****
bdpp, { unexpected postpost }
nopst, { no post-amble where expected }
! illch, { character code out of range }
filop, { cannot access file }
filcr); { cannot creat file }
! DVIfiletype = file of sbyte;
{-----------------------------------------------------------------------------}
--- 169,177 ----
bdpp, { unexpected postpost }
nopst, { no post-amble where expected }
! Qllch, { character code out of range }
filop, { cannot access file }
filcr); { cannot creat file }
! DVIfiletype = file of char;
{-----------------------------------------------------------------------------}
***************
*** 234,238 ****
bdpp : writeln(ERRfile,'Postpost occured before post-command.');
nopst : writeln(ERRfile,'Missing postamble.');
! illch : writeln(ERRfile,'Character code out of range, 0..127');
filop : writeln(ERRfile,'Cannot open dvifile');
filcr : writeln(ERRfile,'Cannot create outfile');
--- 236,240 ----
bdpp : writeln(ERRfile,'Postpost occured before post-command.');
nopst : writeln(ERRfile,'Missing postamble.');
! Qllch : writeln(ERRfile,'Character code out of range, 0..127');
filop : writeln(ERRfile,'Cannot open dvifile');
filcr : writeln(ERRfile,'Cannot create outfile');
***************
*** 495,502 ****
function getbyte : integer; { get next byte from dvi-file }
! var b : sbyte;
begin
read(DVIfile, b);
! if b<0 then getbyte:=b+256 else getbyte:=b
end; { getbyte }
--- 497,504 ----
function getbyte : integer; { get next byte from dvi-file }
! var b : char;
begin
read(DVIfile, b);
! getbyte:=ord(b);
end; { getbyte }
***************
*** 521,528 ****
function signedbyte : integer; { returns next byte fr dvi-file, signed }
! var b : sbyte;
begin
read(DVIfile, b);
! signedbyte:=b;
end; { signedbyte }
--- 523,531 ----
function signedbyte : integer; { returns next byte fr dvi-file, signed }
! var b : char;
begin
read(DVIfile, b);
! foo:=ord(b);
! if foo>127 then signedbyte:=foo-256 else signedbyte:=foo;
end; { signedbyte }
***************
*** 531,536 ****
function signed2 : integer; { returns the next two bytes, signed }
begin
! read(DVIfile, foo);
! signed2:=foo*256+getbyte
end; { signed2 }
--- 534,538 ----
function signed2 : integer; { returns the next two bytes, signed }
begin
! signed2:=signedbyte*256+getbyte
end; { signed2 }
***************
*** 539,544 ****
function signed3 : integer; { returns the next three bytes, signed }
begin
! read(DVIfile, foo);
! foo:=foo*256+getbyte;
signed3:=foo*256+getbyte
end; { signed3 }
--- 541,545 ----
function signed3 : integer; { returns the next three bytes, signed }
begin
! foo:=signedbyte*256+getbyte;
signed3:=foo*256+getbyte
end; { signed3 }
***************
*** 548,553 ****
function signed4 : integer; { returns the next four bytes, signed }
begin
! read(DVIfile, foo);
! foo:=foo*256+getbyte;
foo:=foo*256+getbyte;
signed4:=foo*256+getbyte
--- 549,553 ----
function signed4 : integer; { returns the next four bytes, signed }
begin
! foo:=signedbyte*256+getbyte;
foo:=foo*256+getbyte;
signed4:=foo*256+getbyte
|
