DataMuseum.dk

top - metrics - download

    Length: 2432 (0x980)
    Types: TextFile
    Names: »CHKPROCS.SA«

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

TextFile

æ EOS Pascal CHKPROCS interface, version 00.00, 83-11-14                   å
æ**************************************************************************å
 
æ$D-   :  this assignment is only valid for the first part of the program.
          pascal statement numbers are heavily used during debugging.
 
          The text constant RESULTID and the integer constant ORGSYS
          must be defined outside this file
å
 
PROCEDURE PrintVar (txt : fullId; UNIV v : blockPtr); FORWARD;
PROCEDURE PrintText (txt : fullId); FORWARD;
 
FUNCTION Statement : integer; FORWARD;   æ UNICSEXT ASSEMBLER å
 
PROCEDURE PS (hint : fullId); æprint statement numberå
VAR s : integer;
BEGIN s:=statement; PrintVar(hint,s); END;
 
PROCEDURE PSS(hint : fullId; l : Long); æprint statement number and Longå
VAR v : RECORD s : Long; l : Long; END;
BEGIN v.s:= statement; v.l:= l; PrintVar(hint,v); END;
 
PROCEDURE PR ( res : ResultType); æprint Resultå
VAR OutPut : RECORD
    StatNo : integer;
    result : ResultType;
    END;
BEGIN
  OutPut.StatNo:= statement;
  OutPut.result:= res;
  PrintVar(resultId,OutPut);
END;
 
æ$Eå
PROCEDURE SCheck ( R : ResultType);
BEGIN
  IF R.main <> ok THEN
  BEGIN printText('***SCheck E R R O R *** '); PR(R) END ELSE
  æ#ALRES#  PR(R)  &ALRES&å ;
END;
 
PROCEDURE NoCheck ( R : ResultType);
BEGIN
  æ#ALRES#  PR(R)  &ALRES&å
  IF R.main <> ok THEN  æ#BTRES#  PR(R)  &BTRES&å ;
END;
 
PROCEDURE RCheck ( R : ResultType);
BEGIN
  æ#ALRES#  PR(R)  &ALRES&å ;
  IF R.main <> ok THEN
  BEGIN
    æ#BTRES#  PR(R)  &BTRES&å ;
    ObjReturn(R);
  END;
END;
 
PROCEDURE XCheck ( R : ResultType);
BEGIN
  æ#ALRES#  PR(R)  &ALRES&å ;
  IF R.main <> ok THEN
  BEGIN
    æ#BTRES#  PR(R)  &BTRES&å ;
    Exception(R);
  END;
END;
 
FUNCTION Call ( R : ResultType) : ResultType;
BEGIN
  æ#ALRES#  PR(R)  &ALRES&å æ#BTRES#  PR(R)  &BTRES&å ;
  Call := R ;
END;
 
FUNCTION univRes (m : byte) : ResultType;
VAR r : ResultType;
BEGIN r.family:=0; r.main:= -m; r.orgNo:=statement; univRes:=r; END;
 
FUNCTION makeRes (m, f, a, c : integer) : resultType;
  VAR r : resultType;
BEGIN
  r.main     := m;
  r.family   := f;
  r.argNo    := a;
  r.auxCause := c;
  r.orgSys   := OrgSys;
  r.orgNo    := 0;
  makeRes := r;
END;
 
æ$K+å
æ$Eå
 
«eof»