DataMuseum.dk

top - metrics - download

    Length: 5376 (0x1500)
    Types: TextFile
    Names: »UNIV.ID«

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

TextFile

 
æ*****************************************************************
                        Copyright 1984 by
                        NCR Corporation
                        Dayton, Ohio  U.S.A.
                        All Rights Reserved
******************************************************************
                        EOS Software produced by:
                        NCR Systems Engineering - Copenhagen
                        Copenhagen
                        DENMARK
*****************************************************************å
 
 
æ*****************************************************************
                        Copyright 1984 by
                        NCR Corporation
                        Dayton, Ohio  U.S.A.
                        All Rights Reserved
******************************************************************
                        EOS Software produced by:
                        NCR Systems Engineering - Copenhagen
                        Copenhagen
                        DENMARK
*****************************************************************å
 
æ Eos Pascal Universal Family Prefix. Ver. 1.07 - 83-5-30.
  =======================================================
å
 
CONST
  bytemin = -128;            bytemax = 127;
  wordmin = -32768;          wordmax = 32767;
  longmin = -2147483648;     longmax = 2147483647;
  addrmin = 0;               addrmax = 16777215;
 
TYPE
  byte    = bytemin..bytemax;
  word    = wordmin..wordmax;
  long    = longmin..longmax;
 
  integer  = long;
  address  = addrmin..addrmax;
 
  charstring = ARRAY Æ1..addrmaxÅ OF char;
  shortId    = ^ÆÅcharstring;
  fullId     = shortId;
  partialId  = shortId;
 
  ref = ^^;        refObj = ^^;     refEnv = ^^;
  simpleref = ^^;  ownSet = ^^;     manSet = ^^;
 
  refptr = ^ ref;
 
æ resultType = RECORD
      orgSys          : word;
      auxCause        : byte;
      argNo           : byte;
      orgNo           : word;
      CASE boolean OF
        false:(
          summary     : word );
        true:(
          family      : byte;
          main        : byte );
    END;
å
 
æ********** Universal Family Result causes **********å
 
CONST
  Universal           = 0;
 
  Ok                  = 0;
  AddressIllegal      = 1;
  EntryIllegal        = 2;
  PointerScopeIllegal = 3;
  PointerValueIllegal = 4;
  ReturnPointerIllegal= 5;
  ObjectStateIllegal  = 6;
  DataValueIllegal    = 7;
  CapabilityViolation = 8;
  ConcurrentEntry     = 9;
  SelfDeletion        = 10;
  ObjectSpaceLimited  = 11;
  ProcessSpaceLimited = 12;
  OwnerEnvelopeLimit  = 13;
  OwnerContextLimit   = 14;
  SpeededUp           = 15;
  TimeOut             = 16;
  Dummyfied           = 17;
  GiveUp              = 18;
  ArgumentsMissing    = 19;
  ValueParamsMissing  = 20;
  NotInSet            = 21;
  NoResourc           = 22;
 
TYPE
  sizeType = RECORD
      user:    long;
      kernel:  word;
    END;
 
 
æ************** Call & Return ***********************å
 
PROCEDURE ObjReturn
       ( res: resultType );
       æexternalå FORWARD;
 
æ CallExtend ( var newStack: ownSet; var obj: ref; entry: integer;
               <ref actuals> <val actuals> )
å
 
æ************** Pointer Addresses ******************å
 
FUNCTION Formal  ( i: integer ) : refptr; æexternalå FORWARD;
FUNCTION Temp    ( i: integer ) : refptr; æexternalå FORWARD;
FUNCTION Local   ( i: integer ) : refptr; æexternalå FORWARD;
 
æ************** Entry Arguments ********************å
 
TYPE
  entryKind = long;
CONST
  normalEntry = 0; controlEntry = 1; termEntry = 2;
TYPE
  termMode  = long;
CONST
  termExplicit = 0; termImplicit = 1;
TYPE
  argType = RECORD
      opCode:        long;
      noOfFormals:   long;
      CASE entryKind OF
        normalEntry: ( æ none å );
        controlEntry:( æ none å );
        termEntry:   ( bytesReleased:  long;
                       index:          long;
                       mode:           termMode  );
    END;
 
FUNCTION EntryArgs : ArgType; æexternalå FORWARD;
 
æ NextValArg
       (
         <adaptable array pointer variable> ø <pointer variable>
       ) : boolean;
å
 
æ************** Adaptable Arrays *******************å
 
æ Elements
       (
         <adaptable array pointer variable>
       ): integer;
å
 
TYPE
  dataBlock = array Æ1..addrmaxÅ of byte;
  blockPtr = ^ ÆÅ dataBlock;
 
PROCEDURE Bind
       (
         univ var adaptPtr: blockPtr;
         univ after: blockPtr;
         noOfBytes: integer
       );
       æexternalå FORWARD;
 
æ************** Sizez & Addresses *******************å
 
æ bytes
       (
         <type id> ø <variable id> ø <field id> ø <implementation id>
       ): integer;
å
æ refs
       (
         <type id> ø <variable id> ø <field id> ø <implementation id>
       ): integer;
å
æ addr
       (
         <implementation id>
       ): address;
å
 
æ************** Exceptions ************å
 
PROCEDURE Exception
       (
        cause: resultType
       );
       æexternalå FORWARD;
 
FUNCTION GetException: resultType;
       æexternalå FORWARD;
 
 
æ End EOS Universal Family Preface å
«eof»