DataMuseum.dk

top - download

    Length: 4734 (0x127e)
    Types: TextFile
    Names: »KERNELPARAMS.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!KERNELPARAMS.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!KERNELPARAMS.S« 
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS873.D!KERNELPARAMS.S« 

TextFile

"-----------------------------------------------------------------------
"
"
"  MODULE NAME:      AMOS KERNEL PARAMETERS (KERNELPARAMS)
"  MODULE ID NMB:    CSS/873
"  MODULE VERSION:   0106
"  MODULE TYPE:      PREFIX
"  MERGE  FILES:     -
"
"  SPECIFICATIONS:   -
"  AUTHOR/DATE:      JSL/800608
"
"  DELIVERABLE:      -
"  SOURCE LANGUAGE:  SWELL
"  COMPILE COMPUTER: CR80
"  TARGET COMPUTER:  CR80
"  OPER. SYSTEM:     AMOS
"
"-----------------------------------------------------------------------
"
"  CHANGE RECORD
"
"  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
"  -------    -----------    ---------------------

"    0101     JSL /800629    INITIAL RELEASE
"
"    0102     AEK /800717    TYPE REGION_NAME = ARRAY CHANGED TO PNAME;
"                            CPECR #059/PHF
"
"    0103     JSL /800929    TYPE PROCESS_ATTRIBUTES AND TYPE RTC_TIME
"                            INCLUDED
"
"    0104     AEK /801105    TYPE REGION_NAME = PNAME; CHANGED TO PROCESS_NAME;
"                            CPECR #149/PHF
"
"    0105     FP/831223      MX-AMOS RELATED CPU AND PROCESS CREATION
"                            PARAMETERS ADDED.
"
"    0106     TLM/841023     PARAMETERS TO SET/GET PU STATE INCLUDED

"-----------------------------------------------------------------------
"PAGE«ff»
"SET/GET CPU PARAMETER COMMANDS (PAR)
CONST
      ZCPUNMB   = 0;  "CPU NUMBER
      ZINTMSK   = 1;  "INTERRUPT MASK
      ZSCHRCNT  = 2;  "SCHEDULE RESET COUNT
      ZSLICESZ  = 3;  "TIME SLICE SIZE
      ZACCEXECT = 4;  "ACCUMULATED EXECUTION TIME
      ZHWPRIO   = 5;  "HW PRIORITY BITS (PSW)
      ZCPUMAXPAR= 5;  "MAX PARAMETER
"MX-AMOS:
      ZACCIDLE  = 1;  "ACC EXEC TIME FOR IDLE
      ZNAME0    = 5;  "NAME0
      ZNAME1    = 6;  "NAME1
      ZNAME2    = 7;  "NAME2

"SET/GET PU STATE PARAMETERS
CONST
      ZPUINACTIVE = 0; "PU INACTIVE
      ZPUACTIVE   = 1; "PU ACTIVE
      ZPUTESTMODE = 2; "PU IN TEST MODE

"CREATE PROCESS PROCEDURE PARAMETERS

TYPE  PROCESS_CREATION_BLOCK =
        RECORD
          VARIANTS:
           "AMOS, XAMOS:
           (VNAME:  PROCESS_NAME;
            VPROG,  VINIT,  VMICRO, VCAPAB, VCPU,   VPRIO  : INTEGER;
            VLEVEL, VBASE,  VSIZE,  VBOUND, VMEMORY,VMSGS  : INTEGER;
            VUSER:  USERID) !
           "MX-AMOS:
           (XVNAME:  PNAME;
            VPGTYPE: INTEGER;
            XVPROG,  XVINIT,  VUMAP,  XVCAPAB, XVCPU,   XVPRIO  : INTEGER;
            XVLEVEL, XVBASE,  XVSIZE,  XVBOUND, XVMEMORY,XVMSGS  : INTEGER;
            XVUSER:  USERID )
          END
        END;

"CREATE PROCESS PROCEDURE ERROR CODES
CONST
      ZCPNVP      =   1;            "NO VACANT PCB`S
      ZCPPSZ      =   2;            "PARAM REF VIOLATES PROC ADDR SPACE
      ZCPILLCLS   =   3;            "ILLEGAL PROCESS CLASSIFICATION
      ZCPILLCAP   =   4;            "ILLEGAL PROCESS CAPABILITIES
      ZCPILLNAM   =   5;            "INVALID PROCESS NAME
      ZCPILLCPU   =   6;            "INVALID CPU
      ZCPILLPRI   =   7;            "INVALID PRIORITY
      ZCPMOT      =   8;            "MESSAGE OVERRUN THREAT

"RTC TIME FORMAT CORRESPONDING TO FORMAT OBTAINED BY READ/WRITE RTC

TYPE  RTC_TIME =
        RECORD
          MMSS    : INTEGER;      "MINUTE,SECOND
          DDHH    : INTEGER;      "DAY,HOUR
          YYMM    : INTEGER;      "YEAR-1900,MONTH
        END;

"PROCESS ATTRIBUTE PARAMETERS TO BE USED FOR GET_ATTRIBUTES

TYPE  PROCESS_ATTRIBUTES =
        RECORD
          CAPABILITIES     : INTEGER;
          STATE            : INTEGER;
          ERROR            : LONG;
          ACCUMULATED_TIME : RTC_TIME;
          CREATION_TIME    : RTC_TIME;
        END;

"REGION PROCEDURE PARAMETERS
"SUBFUNCTION CODES
CONST
      RENTER      = 0;
      RLEAVE      = 1;
      RWAIT       = 2;
      RGET        = 3;
      RGETN       = 4;
      RPUT        = 5;
      RPUTN       = 6;
      RCREATE     = 7;
      RSEARCH     = 8;
      RCOPYN      = 9;

TYPE  REGION_NAME = PROCESS_NAME;

TYPE  REGION_CREATION_BLOCK =
        RECORD
          NAME:       PNAME;
          PAGE:       INTEGER;      "PSW ENCODED PAGE OF VS
          ADDR:       ABSPTR;       "ADDRESS OF VS
          WORD_SIZE:  INTEGER;      "SIZE OF VS
        END;

"REGION PROCEDURE ERROR CODES
CONST
      ZCRUNF      =   1;            "UNKNOWN FUNCTION
      ZCRPSZ      =   2;            "PARAM REF VIOLATES PROC ADDR SPACE
      ZCRUNR      =   3;            "UNKNOWN REGION
      ZCRILLSTA   =   4;            "REGION NOT ENTERED
      ZCRPCB      =   5;            "INVALID PROCESS (PCB INDEX)
      ZCRILLNAM   =   6;            "INVALID REGION NAME
      ZCRVSZ      =   7;            "ADDRESS VIOLATION IN VS
      ZCROVFL     =   8;            "TOO MANY REGIONS







"END OF KERNELPARAMS