DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦30816792e⟧ TextFile

    Length: 4944 (0x1350)
    Types: TextFile
    Names: »X2GENPARAMS.S«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!SWELLPREFIX.D!X2GENPARAMS.S« 

TextFile

"-----------------------------------------------------------------------
"
"
"  MODULE NAME:      X2GEN PARAMETERS (X2GENPARAMS)
"  MODULE ID NMB:    CSS/874
"  MODULE VERSION:   0104
"  MODULE TYPE:      PREFIX
"  MERGE  FILES:     -
"  
"  SPECIFICATIONS:   -
"  AUTHOR/DATE:      JSL/800603
"
"  DELIVERABLE:      -
"  SOURCE LANGUAGE:  SWELL
"  COMPILE COMPUTER: CR80
"  TARGET COMPUTER:  CR80
"  OPER. SYSTEM:     AMOS
"
"-----------------------------------------------------------------------
"
"  CHANGE RECORD
"
"  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
"  -------    -----------    ---------------------
"
"    0102     AEK/ 800717    GENEREL CHANGED TO GENERAL LINE #54 & #88
"                            CPECR #56
"
"    0103     JSL/800929     MAXPRIORITY CHANGED FROM 5 TO 3.
"                            PROCESSLEVELS CHANGED TO USER=1,
"                            SYSTEM=2.
"                            TYPE OF CPU_NAME CHANGED FROM
"                            PROCESS_NAME TO PNAME
"                            SOME X2GEN1 NAMES HAS BEEN INCLUDED
"                            PROCESS_HEAD FIELDS CUR_DIRECTORY
"                            AND INIT_FUNCTIONS CHANGED TO RESER_
"                            VER:INTEGER
"                            CPECR #118 = CPECO #205 INCLUDED IN VS0103
"
"    0104    AEK/ 801105     LOCAL_CAUSE HAS BEEN INCLUDED IN
"                            TYPE PROCESS_DESCRIPTOR
"                            CPECR #146
"-----------------------------------------------------------------------
"PAGE«ff»
"PROGRAM TYPES
CONST
  BNREENTRANT     =   0;   BMREENTRANT     =   1 SHIFTLL BNREENTRANT;
  BNRESIDENT      =   1;   BMRESIDENT      =   1 SHIFTLL BNRESIDENT;
  BNPERMANENT     =   2;   BMPERMANENT     =   1 SHIFTLL BNPERMANENT;
  BNMONITOR       =   3;   BMMONITOR       =   1 SHIFTLL BNMONITOR;
  BNUTILITY       =   4;   BMUTILITY       =   1 SHIFTLL BNUTILITY;
  BNPASCAL        =   5;   BMPASCAL        =   1 SHIFTLL BNPASCAL;
  
TYPE  PROGRAM_TYPE    =   BNREENTRANT..BNPASCAL;
  
TYPE  PROGRAM_HEAD =
        RECORD
          GEN_HEAD:   GENERAL_HEAD;
          VERSION:    INTEGER;
          KIND:       PROGRAM_TYPE;
          START:      RELPTR;         "TO PROGRAM START POINT
          MICRO:      RELPTR;         "TO MICRO CODE LOAD MODULE
          CHECKSUM:   INTEGER;
          MEMORY:     INTEGER; "MEMORY_PARAMETER
          SPARE:      ARRAY[0..20] OF INTEGER;
        END;
  
"PROCESS CAPABILITIES
CONST
      BNCREATE        =   0;    "CREATE PROCESS
      BNCRTCRT        =   1;    "CREATE PROCESS CREATING PROCESS
      BNCREATELOAD    =   2;    "CREATE PROCESS/LOAD PROGRAM
      BNCRTCRTLOAD    =   3;    "CREATE PROCESS CREATING PROCESS
                                "LOAD PROGRAM
      BNALLOCATEDEVICE=   4;    "ALLOCATE DEVICE
      BNALLOCATEMEMORY=   5;    "ALLOCATE MEMORY
  
CONST
      MAX_PRIORITY    =   3;    

TYPE  PROCESS_CAPABILITIES = BNCREATE..BNALLOCATEMEMORY;
  
"PROCESS LEVELS
CONST
      USER     = 1;         "USER PROCESS LEVEL
      SYSTEM   = 2;         "SYSTEM PROCESS LEVEL
  
TYPE  PROCESS_LEVEL = USER..SYSTEM;

TYPE  PROCESS_HEAD =
        RECORD
          GEN_HEAD:       GENERAL_HEAD;
          CPU_NAME:       PNAME;
          PRIORITY:       1..MAX_PRIORITY;
          CAPABILITIES:   PROCESS_CAPABILITIES;
          CLAIM_SIZE:     INTEGER;
          EXEC_SIZE:      INTEGER;
          FD_NUMBER:      INTEGER;
          IOCB_NUMBER:    INTEGER;
          STREAM_NUMBER:  INTEGER;
          XLE_NUMBER:     INTEGER;
          MSG_NUMBER:     INTEGER;
          RES1:           INTEGER;
          RES2:           INTEGER;
          IODATA_REF:     RELPTR;
          USER:           USERID;
          BASE_COPY:      INTEGER;
          PCB:            PCB_INDEX;
          EXEC_LEVEL:     PROCESS_LEVEL;
          BOUND:          INTEGER;
        END;
  
TYPE  ACTION_CAUSES = (CTIMER,CILLEGAL,CPARITY,CTIMEOUT);
      ACTION_CAUSE  = CTIMER..CTIMEOUT;
  
TYPE  PROCESS_DESCRIPTOR  =
        RECORD
          REGS:           REGISTERS;
          BASE:           INTEGER;
          MODIFY:         INTEGER;
          PROG:           INTEGER;
          PRPC:           INTEGER;
          TIMER:          INTEGER;
          PSW:            INTEGER;
          PROCESS_LINK:   ABSPTR;
          LOCAL_ACTION:   RELPTR;
          LOCAL_RETURN:   RELPTR;
          LOCAL_CAUSE:    ACTION_CAUSE;
          DEVICE:         INTEGER;
          TIMER_PRESET:   INTEGER;
          MONITOR_LINK:   INTEGER;
          TIMER_LINK:     INTEGER;
          LINK_ARRAY:     REGISTERS;
          WORK:           ARRAY[0..4] OF INTEGER;
        END;

  
"X_NAMES
CONST
      XFIRST    = -26;      "BASE RELATIVE OFFSET TO PROCESS START
      XHNAME    =  2;       "PROCESS RELATIVE OFFSET TO PROCESS NAME
      XBASE     =  8;       "BASE RELATIVE OFFSET TO BASE
      XWORK     = 30;       "BASE RELATIVE OFFSET TO WORK
  





"END OF X2GENPARAMS «a5»