|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5590 (0x15d6)
Types: TextFile
Names: »X2GENPARAMS.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!X2GENPARAMS.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!X2GENPARAMS.S«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP005_V0501.D!CSS874.D!X2GENPARAMS.S«
"-----------------------------------------------------------------------
"
"
" MODULE NAME: X2GEN PARAMETERS (X2GENPARAMS)
" MODULE ID NMB: CSS/874
" MODULE VERSION: 0106
" MODULE TYPE: PREFIX
" MERGE FILES: -
"
" SPECIFICATIONS: -
" AUTHOR/DATE: JSL/800603
" EKH/830815
"
" 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
"
" 0105 EKH/830815 TARGET CPU BITS INCLUDED IN PROGRAM HEADER
"
" 0106 TLM/841105 PROGRAM TYPE BITS FOR
" PASCAL,
" FILE SYSTEM,
" STATISTICS,
" SYSTEM CONTROL INCLUDED.
"
"-----------------------------------------------------------------------
"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;
BNFILESYSTEM = 6; BMFILESYSTEM = 1 SHIFTLL BNFILESYSTEM;
BNSTATISTICS = 7; BMSTATISTICS = 1 SHIFTLL BNSTATISTICS;
BNSYSCONTROL = 8; BMSYSCONTROL = 1 SHIFTLL BNSYSCONTROL;
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
TARGET: INTEGER; "TARGET CPU BITS
SPARE: ARRAY[0..19] 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;
CONST
BNDEBUGENABLED= 8;
BNDEBUGACTIVATED= 9;
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;
FUNCS: 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