DataMuseum.dk

top - metrics - download

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »JCLCONF.SA«

└─⟦2322e079b⟧ Bits:30009789/_.ft.Ibm2.50006594.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »JCLCONF.SA« 
└─⟦311ba069f⟧ Bits:30009789/_.ft.Ibm2.50006625.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »JCLCONF.SA« 
└─⟦49237ce80⟧ Bits:30009789/_.ft.Ibm2.50006627.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »JCLCONF.SA« 
└─⟦8fc713706⟧ Bits:30009789/_.ft.Ibm2.50007356.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »JCLCONF.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
*****************************************************************å
 
æ********** (InitConfig) *** ver 0.07 **************å
æ***************************************************å
 
 
OBJECT PROGRAM JCLConf;
 
æ$F=FAMILY.UNIV.IDå
æ$F=FAMILY.KNEL.IDå
æ$F=FAMILY.OBJDIR.IDå
æ$F=FAMILY.IOSYS.IDå
æ$F=FAMILY.JOBHA.IDå
 
PROCEDURE PrintText (text : fullId); FORWARD;
PROCEDURE PrintVar  (text : fullId; UNIV v : blockPtr); FORWARD;
 
TYPE
  fullName = PACKED ARRAY Æ1..48Å OF char;
  refArray = array Æ1..20Å of ref;
 
OBJECT Test;
  ENTRY  InitConfig;
END;
 
 
PROGRAM implTest OBJECT Test
  WITH RECORD
    code      : ref;
    objDirRef : ref;
    objRef    : ref;
    ipc       : ^^IoSys;
    vs        : ^^IoSys;
    mccm      : ^^Fao;
    jobsys    : ref;
  END;
 
 
PROCEDURE check (res : resultType);
BEGIN
  if res.main <> ok then
    printVar ('*****   InitConfig C H E C K   *****, res = ', res);
  if res.main <> ok then
    exception(res);
END;
 
FUNCTION equal (s1, s2 : shortId) : boolean;
  VAR
    i, k : integer;
    b : boolean;
BEGIN
  k := elements(s1);
  IF k > elements(s2) THEN k := elements(s2);
  b := true;
  i := 1;
  WHILE b AND (i<=k) DO
  BEGIN
    b := s1ÆiÅ = s2ÆiÅ;
    i := i+1;
  END;
  equal := b;
END;  æEqualå
 
 
 
ENTRY InitConfig
  WITH RECORD
    t : ^^;
  END;
 
  CONST
    BufSize = 256;
    udcFirst  = 16#ff0000;
    udcVector = 255;
    udcLevel  = 3;
    mccmFirst = 16#ff1000;
    mccmVector= 247;
    mccmLevel = 4;
    space     = ' ';
 
  VAR
    res : resultType;
    count, devno, i, pos     : integer;
    fName, oName, sName : fullName;
    pTab: ARRAY Æ1..10Å   OF integer;
 
 
  BEGIN
    æ ask ObjDir to create all boot objects å
æ#b#åprintText ('---------  InitConfig BootLoad ----------');æ#e#å
    REPEAT
      FOR i := 1 TO 48 DO
      BEGIN
        oNameÆiÅ := space;
        sNameÆiÅ := space;
      END;
      res := objDirRef.Create (OUT objRef ; IN OUT oName, IN sName);
æ#B# printVar ('call objDir.create, res= ',res); #E#å
æ#B# printVar ('objName = ',oName); #E#å
æ#b#åprintText ( oName );æ#e#å
      IF res.main = Ok THEN
      BEGIN
        IF equal (oName, '/versafs') THEN
          check ( copy (objRef, vs))
        ELSE
        IF equal (oName, '/udc') THEN
        BEGIN
          check ( copy (objRef, ipc));
          check (ipc.InitIpcSys ( ; udcVector, udcLevel, udcFirst));
        END else if equal ( oName, '/mccm')  then begin
          check ( copy (objRef, mccm ) );
          check ( mccm.initIpcSys (; mccmVector, mccmLevel, mccmFirst ) );
        end else if equal ( oName, '/jobsys') then begin
          check ( copy (objRef, jobsys ) );
        end;
      END;    æres = okå
    UNTIL res.main <> ok;
 
    æ configurate discs å
æ#b#åprintText ('-------- configurate Disc ------------ ');æ#e#å
    devno:=0;
    check( ipc.CreateFile (; 'disc0', devno));
    devno:=1;
    check( ipc.CreateFile (; 'disc1', devno));
    devno:=4;
    check( ipc.CreateFile (; 'floppy4', devno));
    devno:=5;
    check( ipc.CreateFile (; 'floppy5', devno));
 
æ#b#åprintText ('-------- include Disc ------------ ');æ#e#å
    æ ignore result of disc include å
    res:=  vs.Include(;'/udc/disc1');
    res:=  vs.Include(;'/udc/floppy4');
    res:=  vs.Include(;'/udc/floppy5');
 
    æ configurate terminals å
æ#b#åprintText ('-------- configurate Terminals ------------ ');æ#e#å
    check( mccm.CreateFile(;'term0', 0 ) );
    check( mccm.CreateFile(;'term1', 1 ) );
    check( mccm.CreateFile(;'term2', 2 ) );
 
    æ configurate JCL å
æ#b#åprintText ('-------- configurate JCL ------------ ');æ#e#å
    check( jobsys.Newterm (;'/mccm/term0' ) );
    check( jobsys.Newterm (;'/mccm/term1' ) );
 
æ$Eå
 
æ#b#åprintText ('**********     E O S   Running      ************');æ#e#å
 
 
  END;  æbootInitå
 
OTHERWISE o WITH RECORD t : ^^; END;
BEGIN
  printText ('InitConfig.otherwise');
END;
 
END;  æ Test å
 
 
 
INITIALIZE
  implTest 'InitConfig':
    objDirRef 'objdir'
 
END.
«eof»