DataMuseum.dk

top - download

    Length: 4560 (0x11d0)
    Types: TextFile
    Names: »GENERALPARAMS.S«

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!GENERALPARAMS.S« 
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!SWELLPREFIX.D!GENERALPARAMS.S« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!GENERALPARAMS.S« 
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS870.D!GENERALPARAMS.S« 

TextFile

"-----------------------------------------------------------------------
"
"
"  MODULE NAME:      GENERAL AMOS PARAMETERS (GENERALPARAMS)
"  MODULE ID NMB:    CSS/870
"  MODULE VERSION:   0105
"  MODULE TYPE:      PREFIX
"  MERGE  FILES:     -
"  
"  SPECIFICATIONS:   -
"  AUTHOR/DATE:      JSL/800607
"
"  DELIVERABLE:      -
"  SOURCE LANGUAGE:  SWELL
"  COMPILE COMPUTER: CR80
"  TARGET COMPUTER:  CR80
"  OPER. SYSTEM:     AMOS
"
"-----------------------------------------------------------------------
"
"  CHANGE RECORD
"
"  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
"  -------    -----------    ---------------------
"  0103       JSL/800929     TYPE USERID CHANGED TO ARRAY OF INTEGERS
"                            INSTEAD OF BYTES
"                            DEFINITION OF GENERAL ADDRESS INCLUDED
"
"  0104       AEK/801003     GENEREL CHANGED TO GENERAL IN 
"                            LINENUMBER 58 AND 64
"
"  0105        AEK/801118      TYPE USERID CORRECTED CPECO #216
"-----------------------------------------------------------------------
"PAGE«ff»
"GENERAL TYPES
  
TYPE  BOOLEAN        = (FALSE,TRUE);
  
TYPE  POINTER        = INTEGER;
TYPE  ABSPTR         = INTEGER;
TYPE  RELPTR         = INTEGER;
  
TYPE  BITS           = INTEGER;
TYPE  BITPOSITION    = 0..15;
  
TYPE  CPU_NUMBER     = 0..7;
TYPE  PCB_INDEX      = INTEGER;
  
TYPE  EVENT          = INTEGER;
  
TYPE  TEXT           = ARRAY[0..0] OF CHAR;
CONST LINELENGTH     = 80;
TYPE  TEXTLINE       = ARRAY[0..LINELENGTH-1] OF CHAR;
  
TYPE  REGISTERS      = ARRAY[0..7] OF INTEGER;
  
TYPE  MESSAGE_BUFFER = ARRAY[0..4] OF INTEGER;
  
TYPE  GENERAL_ADDRESS =
        RECORD
          PAGE  : INTEGER;  "PAGE=BIT(3:2)
          ADDR  : POINTER;  "ADDRESS
        END;

TYPE  GA = GENERAL_ADDRESS;

"CHARACTER CODES
CONST
      NULL = 0;
      BEL  = 7;
      BS   = 8;
      NL   = 10;
      LF   = NL;
      FF   = 12;
      CR   = 13;
      EM   = 25;
      ESC  = 27;
      SP   = 32;
  
  
"SWITCH SETS
 
TYPE  X2      = 0..1;
TYPE  X3      = 0..2;
TYPE  X4      = 0..3;
  
TYPE  ERROR_DONE = (ERR, DONE);
  
"EVENT TYPES
CONST
  
  BNSIGNAL        =   0;   BMSIGNAL        =   1 SHIFTLL BNSIGNAL;
  BNMESSAGE       =   1;   BMMESSAGE       =   1 SHIFTLL BNMESSAGE;
  BNANSWER        =   2;   BMANSWER        =   1 SHIFTLL BNANSWER;
  BNSYSTEMMESSAGE =   3;   BMSYSTEMMESSAGE =   1 SHIFTLL BNSYSTEMMESSAGE;
  BNSYSTEMANSWER  =   4;   BMSYSTEMANSWER  =   1 SHIFTLL BNSYSTEMANSWER;
  BNPATHMESSAGE   =   5;   BMPATHMESSAGE   =   1 SHIFTLL BNPATHMESSAGE;
  BNPATHANSWER    =   6;   BMPATHANSWER    =   1 SHIFTLL BNPATHANSWER;
  BNINTERRUPT     =   7;   BMINTERRUPT     =   1 SHIFTLL BNINTERRUPT;
  BNDELAY         =   8;   BMDELAY         =   1 SHIFTLL BNDELAY;
  BNPARENTSIGNAL  =   9;   BMPARENTSIGNAL  =   1 SHIFTLL BNPARENTSIGNAL;
  
TYPE  EVENT_TYPE = BNSIGNAL..BNPARENTSIGNAL;
  
  
"ERROR DEFINITIONS
  
TYPE  COMPLETION_CODE = INTEGER;
  
"THE COMPLETION_CODE IS COMPOSED OF:
CONST
      TECS  = 0 ; TECL  = 8;      "ERROR CODE
      TSSS  = 8 ; TSSL  = 7;      "SUBSYSTEM CODE
      TFLG  = 15;                 "TERMINATION FLAG
  
"SUBSYSTEM CODES
CONST
      SUSER     = 0   SHIFTLL TSSS;   "USER DEFINED ERORS
      SKERNEL   = 1   SHIFTLL TSSS;   "KERNEL ERRORS (INCL HW)
      SIOS      = 2   SHIFTLL TSSS;   "IO SYSTEM ERRORS
      SFMS_S    = 3   SHIFTLL TSSS;   "FMS SYSTEM ERRORS
      SFMS_U    = 4   SHIFTLL TSSS;   "FMS USER ERRORS
      SFMS_D    = 5   SHIFTLL TSSS;   "FMS DMA ERRORS
      SDRIVERS  = 6   SHIFTLL TSSS;   "DRIVER ERRORS
      SPASCAL   = 7   SHIFTLL TSSS;   "PASCAL RUNTIME ERRORS
      SOVERLAY  = 8   SHIFTLL TSSS;   "OVERLAY ERRORS
      SCROPS    = 9   SHIFTLL TSSS;   "CROPS ERRORS
      SCOBOL    = 10  SHIFTLL TSSS;   "COBOL RUNTIME ERRORS
  
"SIZES OF GENERAL STRUCTURES:
CONST
      PNAMELENGTH = 6 ;       "PROCESS NAME LENGTH (BYTES)
      GNAMELENGTH = 4 ;       "GROUP NAME LENGTH   (BYTES)

TYPE  PNAME = ARRAY[0..PNAMELENGTH-1] OF CHAR;

  
TYPE  PROCESS_NAME =
        RECORD
          NAME:     PNAME;
          IDENT:    INTEGER;
        END;
  
TYPE  GROUP_NAME   = ARRAY[0..GNAMELENGTH-1] OF CHAR;

TYPE  USERID = ARRAY[0..1] OF INTEGER;
  
  
TYPE  MODULE_KIND = (KTABLE, KPROGRAM, KPROCESS);
  
TYPE  GENERAL_HEAD =
        RECORD
          KIND:       MODULE_KIND;
          WORD_SIZE:  INTEGER;
          NAME:       PNAME;
        END;
    
TYPE  DATE_TIME_GROUP =
        RECORD
          YEAR, MONTH,  DAY    : INTEGER;
          HOUR, MINUTE, SECOND : INTEGER;
        END;
  





"END OF GENERALPARAMS