DataMuseum.dk

Presents historical artifacts from the history of:

RC3500

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC3500

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦75db03746⟧ TextFileVerbose

    Length: 1536 (0x600)
    Types: TextFileVerbose
    Names: »xtenv«

Derivation

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »xtenv« 
        └─⟦this⟧ »xtenv«

TextFileVerbose

xtenv;

(**************************************************************)
(*                                                            *)
(*               common external environments                 *)
(*                                                            *)
(**************************************************************)

type

tap_pointer = record
s: sempointer;
w: sempointer;
end;


int32= record
msp,lsp: integer;
end;

relation= (ls, eq, gr);

const

forever = false;

(* u1 values *)

input=1;
output=2;
inout=3;
control=0;

(* u2 values *)

ok= 0;
not_processed= 1;
illegal= 4;
message= 7;


(***************************************************************)
(*        general external procedure declarations              *)
(***************************************************************)

procedure inc15 (var i: integer);
external;

procedure inc16 (var i: integer);
external;

procedure inc32 (var i: int32);
external;

function comp32 (i,j: int32): relation;
external;

function dif16(i,j: integer) : integer;
external;

procedure movebytes(
count: integer;
var frombyte: byte;
fromindex: integer;
var tobyte: byte;
toindex: integer);
external;

procedure nameinit (var name: alfa; a: alfa; pos, incno: integer);
external;

.
«eof»