DataMuseum.dk

top - metrics - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »MIKTYPES.SA«

└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »MIKTYPES.SA« 
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »MIKTYPES.SA« 

TextFile

æ$Eå
æ MIK's standard types and routines.     MIK 83-04-26
  ***************************************************å
TYPE
  gateRef=^^Gate;
  condRef=^^Condition;
  tempRefs= RECORD t: ^^ END;
  stringtype= ARRAY Æ1..addrmaxÅ OF char;
(* 83-09-21
PROCEDURE ClearSize(VAR s: sizeType);
BEGIN s.kernel:=0; s.user:=0; END;
 
PROCEDURE AddEnv (VAR s: sizeType; r: integer);
BEGIN s.kernel:=s.kernel+72+14*r END;
 
PROCEDURE AddSeg (VAR s: sizeType; b: integer);
BEGIN s.kernel:=s.kernel+50; s.user:=s.user+b END;
*********)
 
PROCEDURE printText(text: fullId); FORWARD;
PROCEDURE printVar(text: fullId; UNIV v: blockPtr); FORWARD;
 
PROCEDURE check
  (res: resultType);
BEGIN
  if res.main<>ok then    printVar('***** MIK check *****   res=',res);
  IF res.main<>ok THEN exception(res);
END æ***check***å;
 
procedure ignore
  (res: ResultType);
begin
  if res.main<>ok then printVar('**** MIK ignore********* res= ', res);
end æ***ignore***å;
 
procedure bugCheck
  (res: ResultType);
begin
  if res.main<>ok then printVar('****MIK bugCheck**** res= ',res);
  if res.main<>ok then exception(res);
end;
 
(******83-09-21
FUNCTION makeSize
  (user,kernel: integer)
  : sizeType;
  VAR s: sizeType;
BEGIN
  s.user:=user;  s.kernel:=kernel;
  makeSize:=s;
END æ***makeSize***å;
********)
 
function genRes
  (main, family, argNo: integer)
  : ResultType;
  var res: ResultType;
begin
  res.main:=main;  res.family:=family;
  res.argNo:=argNo;  res.orgNo:=0;
  res.orgSys:=OrgSys; æmust be declared as constant before this textå
  genRes:=res;
end;
 
(*********83-09-21
function RefEqualævar ptr1,ptr2: ref): booleanå;
begin RefEqual:=true end;
**********)
 
type string8=arrayÆ1..8Å of char;
function str8 (s: fullId): string8;
var i,j: integer;
    s8: string8;
begin
  i:=elements(s);
  if i>8 then i:=8;
  for j:=1 to i do s8ÆjÅ:=sÆjÅ;
  str8:=s8;
end;
 
æ end of MIK's standard typeså
«eof»