|
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: 3840 (0xf00)
Types: TextFile
Names: »initreadgtx«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦787c125fb⟧ »adjprocfile«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦787c125fb⟧ »adjprocfile«
└─⟦this⟧
\f
; geom geod input * page 15 2 06 77, 20.20;
; init_read_gg
; ************
if listing.yes
char 10 12 10
init_read_gg = set 1
init_read_gg = algol
external procedure init_read_gg
_______________________________
_ (action_a);
long array action_a;
comment decision table for obsinput
____________________________________
class 0 1 2 3 4 5 6 7
_ nil a c mtr dir space -, mil stp
nr state after
0 rstn 0 1 0 0 0 0 13 13
1 incl.head+rstn 13 12 12 8 13 3 13 13
2 rstn 13 12 12 8 13 3 13 12
3 incl.obj +rol 13 13 13 4 5 5 13 12
4 incl.dst +rol 13 13 13 11 13 10 2 13
5 zdst/dir +rol 13 13 13 10 6 6 6 13
6 incl.dir 13 13 13 13 7 7 2 13
7 zdst +rol 13 13 13 10 11 11 11 13
8 excdst +rol 13 13 13 13 9 9 13 13
9 incl.exc +rol 13 13 13 13 13 13 2 13
10 incl.zdst +rol 13 13 13 13 11 11 2 13
11 v keep cl 13 13 13 2 2 2 13 13
12 check keep cl 13 13 13 13 13 13 13 13
13 exit
nr action reading of
_____________________________________________________________
0 _ st := read_stn stn
1 include head st := read_stn obj, exc, stp
2 _ st := read_gol stn, obj, exc
3 include obj (st) g1 := read_gol dst.dir.zdst
4 include dst (g1) g1 := read_gol v, skrdst
5 g1=zdst/dir g2 := read_gol objh, v
6 include dir g1 := g2, class kept
7 g1=zdst g2 := read_gol objh, vnorm
8 st=excdst g1 := read_gol excdir
9 include exc (st, g1) st := read_stn stn, obj, stp
10 include zdst(g1, g2) g1 := read_gol v
11 g1=v class kept
12 check horison class kept
13 normal exit;
\f
comment geom geod input * page 16 2 06 77, 20.20
0 1 2 3 4 5 6 7 8 9 ;
comment initialize action table;
________________________________
begin
integer i, t;
long g1;
for t := 0 step 1 until 12 do
begin
g1 := long_zero;
for i := 1 step 1 until 8 do
g1 := ( g1 shift 6 ) add ( case (t*8+i) of
(
00, 01, 01, 00, 00, 00, 13, 13,
13, 12, 12, 08, 13, 03, 13, 13,
13, 12, 12, 08, 13, 03, 13, 12,
13, 13, 13, 04, 05, 05, 13, 12,
13, 13, 13, 11, 13, 10, 02, 13,
13, 13, 13, 10, 06, 06, 06, 13,
13, 13, 13, 13, 07, 07, 02, 13,
13, 13, 13, 10, 11, 11, 11, 13,
13, 13, 13, 13, 09, 09, 13, 13,
13, 13, 13, 13, 13, 13, 02, 13,
13, 13, 13, 13, 11, 11, 02, 13,
13, 13, 13, 02, 02, 02, 02, 13,
13, 13, 13, 13, 13, 13, 13, 13));
action_a(t) := g1;
end;
end init_read_gg;
end
if warning.yes
(mode 0.yes
message init_read_gg not ok
lookup init_read_gg)
end
▶EOF◀