|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4608 (0x1200)
Types: TextFile
Names: »testreadtx«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦bf33d74f6⟧ »iogeofile«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦bf33d74f6⟧ »iogeofile«
└─⟦this⟧
; test readgeot - nmb * page 1 1 08 79, 12.60;
; test read_procedures prog. K. Engsager mar.79
; ********************
prg = set 1
prg = algol
begin
array ra(1:2);
integer i, imax, j, nr_type;
long nmb, cmt, old_cmt, old_cmt1, geo;
boolean tpd;
em :=
ff := false;
read_status := 3 shift 22;
imax := 114;
write(out, nl, 4, <:test read<95>geo:>, nl, 2);
for i := 1 step 1 until 18 do
begin
em:= i=160;
geo := read_geo( in, tpd);
read_nl(in, true);
if read_status extract 22 = 0 then
_ write_geo_c(out, geo, tpd) else read_status := 3 shift 22;
out_char(out, 10);
end;
write(out, nl, 4, <:test read<95>nmb, nr<95>type is output:>, nl, 2);
ff := true;
for i := 1 step 1 until i_max do
begin
ff := i=21 or (40<=i and i<=42);
nmb := read_nmb(in, nr_type);
if read_status extract 22 = 0 then
begin
if nr_type > 5 then write_geo(out, nmb, false add nr_type)
else
begin
j := write_stn(out, nmb);
if j<0 then j:= 0;
write(out, sp, 1, if t_char>96 then (false add tchar) else sp,
_ 1, sp, 15-j, nr_type, << ddd>, t_char);
end;
end
else read_status := 3 shift 22;
out_char(out, 10);
read_nl(in, true);
end;
em :=
ff := false;
\f
comment test readgeot - nmb * page 2 1 08 79, 12.60
0 1 2 3 4 5 6 7 8 9 ;
write(out, nl, 4, <:test read_cmt:>, nl, 2);
old_cmt1:=
old_cmt := 0;
for i := 1 step 1 until 4 do
begin
cmt := read_cmt(in, tpd, old_cmt);
write_cmt(out, cmt, old_cmt1);
out_char(out, 10);
old_cmt1 := old_cmt;
end;
em := false;
write(out, nl, 4, <:test read_ident:>, nl, 2);
for i := 1 step 1 until 4 do
begin
nmb := read_ident(in, tpd);
if mtr then write_geo(out, nmb, tpd)
else write(out, <<dd ddd ddd>, nmb);
out_char(out, 10);
end;
write(out, nl, 4, <:main test slut:>, nl, 2);
end;
(if 1.no
prg
if 1.yes
old=prg)
; data to read_geo_t
147 45 44.8 sx
-146 44 43.123456789 sx
145 43.427 nt
-144 42.123456789 nt
143.4124 dg
-142.1234567890123 dg
10 11 12.1 tm
-11 12 13.4 tm
141 42 43.9 cc
-140 41 42.123456789 cc
139 40.41 eu
-138.123456789012 gr
137 401.12 m
-138 402.123456789012 m
; odd data
+ +.- 44 sx
- 44....1 sx
44.1.2 sx
4 + 5 sx
\f
; test readgeot - nmb * page 3 1 08 79, 12.60;
; data to read_nmb
1 a
2 b
3 c
4 x
5 z
6 A
7 B
8 H
9 J
10 P
10 N
10 S
11 V
12 X
13 Ø
14 K 1
15 K 100
16.1
17.5000
18.1 a
18.2 q
19.2 x
20-01- 001
2001002
20-01-003 a
K-21-004
20021005
P22a001 * a is changed to A ;
P22b002a * b is changed to B ;
P23A001
P23R002
P23R003 y
P24a001.1
P24a001.5000 x
M25.801
M25
M26.801 a
M26 a
* warning data to readnmb spec. photo action ;
P2048A24
P25B4096
P26A4096.99
* special niv nmb;
21-01- A
21-02- A.1
21-03-A.4096
G.I.22/23
G.I.23/38
G.I.23/39
G.I.24/25.1
G.I.24/26.63
G.I.24/27.64
F.K.22/23
K.K.22/23
F.K.23
K.K.23
F.K.24.1 a
K.K.24.1 a
\f
; test readgeot - nmb * page 4 1 08 79, 12.60;
G.M.27
G.M.28.1
G.M.28.500
G.M.28.2048
G.M.28 a
G.I.28 a
G.I.1978
-1
-2.
-3 x
-4 y
-5 z
-6 A
3 m
-3 m
3.12 m
-3.12345678 m
; odd numbers
30 L
31.1.2
32.1 A
20133001 * is converted to lnr but hnr = 201 > 200 ;
34-01-002-003
35-01-002 A
36-01
K-37-001.002
P38a
P394041
P40.41
P41a4.3.2
M42
M43.801 A
M44.801.802
G.I.45 A
G.I.46.1.2
GI.47
G.I48
G.M49
G.M. 50.1
20-01- A A
21-01-K
21-01-A.1 A
G.I.23/24/25
G.I.23/24 25
G.I.23/ 24
aP51a1
aM52.801
P 53
M 54
G.I. 55
P-56
M+57
G.I.+58
+-+59
.+60
- 61
PP62a1
MM63.2
29..1
\f
; test readgeot - nmb * page 5 1 08 79, 12.60;
; data to read_cmt
12 34
do
26 04 78, 10.12
do
; data to read_ident
1
1.2
2.345
4.5 m
\f
; test readgeot - nmb * page 6 1 08 79, 12.60;
message test break_action;
prg = algol
begin
boolean tpd;
read_geo(in, tpd);
end;
prg
147.45.
prg = algol
begin
integer i, nr_type;
long nr;
ff := false;
for i := 1 step 1 until 2 do
begin
nr := read_nmb(in, nr_type);
write(out, nl, 1);
write_stn(out, nr);
write(out, sp, 1, false add t_char, 1, nl, 1);
end;
end;
prg
17 K 1.
message test for missing negative 1 z;
(prg
o c
finis
)
uk uk
▶EOF◀