DataMuseum.dk

top - metrics - download

    Length: 3712 (0xe80)
    Types: TextFile
    Names: »INIT.SA«

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

TextFile

 
æ*****************************************************************
                        Copyright 1984 by
                        NCR Corporation
                        Dayton, Ohio  U.S.A.
                        All Rights Reserved
******************************************************************
                        EOS Software produced by:
                        NCR Systems Engineering - Copenhagen
                        Copenhagen
                        DENMARK
*****************************************************************å
 
æ$h=0å æ no heap space å
object program Init;
 
CONST
  orgSys = 7; ædummy valueå
 
æ$L-å
æ$F=FAMILY.UNIV.IDå
æ$F=FAMILY.KNEL.IDå
æ$F=FAMILY.IOSYS.IDå
æ$F=FAMILY.ALLOC.IDå
æ$F=FAMILY.SCHED.IDå
æ$F=FAMILY.OBJDIR.IDå
æ$F=FAMILY.APPLI.IDå
æ$F=PASINCLU.MIKTYPES.SAå
æ$F=PASINCLU.TERMTOOL.SAå
æ$L+å
 
function retRes
  (main,
   family,
   argNo: integer)
  : resultType;
  var res: resultType;
begin
  res.main:=main;
  res.family:=family;
  res.argNo:=argNo;
  res.orgNo:=0;
  res.orgSys:=7;
  retRes:=res;
end;
 
ælocal definitionså
type
  demoLocals = record
    code      : ^^;
    stubRef   : ^^ ObjDir;
    stdin     : faoRefType;
    stdout    : faoRefType;
    stderror  : faoRefType;
  end;  ædemoLocalså
 
program ImplAppl object Application with demoLocals;
 
procedure checkOk
  (res: resultType;
   text: shortId);
  var line: threeLines;
      i: integer;
begin
æ#b#printVar('*** checkOK in Init ****, res= ',res);#e#å
  if res.main<>ok then begin
    putError(line,res,text,0);
    res:=termIo(stdError,WriteSeq,line);
    if res.main=ok then exception(retRes(GiveUp,Universal,0))
    else exception(res);
  end;
end æ***checkOk***å;
 
ENTRY Run æfileEnv, jobSys; progrId (,text...)å
    with record
      tt: ^^;
      filsys: ^^ IoSys;
    end;
  const
    bufsize = 256;
  var
    i, used: integer;
    line : array Æ1..85Å of char;
    res : resultType;
    masterFile: shortid;
begin
æ#b#printVar('START OF TPDEMO, progrId= ',progrId);#e#å
  in
    CheckOk(Copy(fileEnv^^Æ1Å,stdin),'');
    CheckOk(Copy(fileEnv^^Æ2Å,stdout),'');
    CheckOk(Copy(fileEnv^^Æ3Å,stderror),'');
    æoutput welcome message on terminalå
      clearText(line);
      putText(line,'Init  vers. 00.02   83-06-30');
      putNL(line);
      check(termIo(stdout,WriteSeq,line));
    æ open file "text" å
    if not NextValArg(masterFile) then
      exception(retRes(-DataValueIllegal,Universal,-2));
æ#b#printVar('OptiInit Nextvalarg= ',masterfile);#e#å
    if elements(masterfile)=0 then
      checkOk(retRes(DataValueIllegal,Universal,-1),'');
    i:=1;
    while masterfileÆiÅ=' ' do begin
      i:=i+1;
      if i>elements(masterfile) then
        checkOk(retRes(DataValueIllegal,Universal,-1),'');
    end;
    CheckOk(stubRef.GetRef(out filsys;
             masterFileÆi..elements(masterfile)Å,out used, 0),
             masterFileÆi..elements(masterfile)Å);
 
    æ ignore exclude result å
    res :=  filsys.exclude(; masterFileÆi+used-1..elements(masterfile)Å);
    CheckOk(filsys.include(; masterFileÆi+used-1..elements(masterfile)Å),
                             masterFileÆi+used-1..elements(masterfile)Å);
  do begin
    res:=getException;
    res.orgNo:=0;
    res.orgSys:=7;
printVar('OptiInit exception= ',res);
    objReturn(res);
  end;
end;  æ Run å
 
entry pascalerror with record tt:^^ end;
begin end;
 
  otherwise unknownCall with record tt:^^; end;
  begin
    exception (retRes(-EntryIllegal,Universal,2));
  end;
 
end;  æ DemoImplement å
 
initialize ImplAppl 'init':
           stubRef 'objdir'
end.
«eof»