|
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: 1536 (0x600)
Types: TextFile
Names: »evaenv«
└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
└─⟦72244f0ef⟧
└─⟦this⟧ »evaenv«
eva_env;
const
eva_env_version = 1;
applsem_max= 11;
px_urec1 = 1;
px_utrm1 = 2;
px_urec2 = 3;
px_utrm2 = 4;
px_urec3 = 5;
px_utrm3 = 6;
px_urec4 = 7;
px_utrm4 = 8;
px_ncp = 9;
px_not_used= 10;
al_lam1 = 11;
type
appl_vector = array (1 .. applsem_max) of semaphore;
ts_pointer = record
s : sempointer;
w : sempointer;
end;
const
tty_length = 80;
tty_control = 32+16+4+2;
(* 300 bps, 7 databits, 2 stopelements, no parity *)
type
tty_buffer = record
first, last, next : integer;
text : array( 1..tty_length ) of char
end;
create_shape = packed record
contr, timer : byte
end;
.
▶EOF◀