|
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 - metrics - download
Length: 3942 (0xf66)
Types: TextFile
Names: »KERNELPARAMS.S«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─⟦this⟧ »GENS.D!SWELLPREFIX.D!KERNELPARAMS.S«
"-----------------------------------------------------------------------
"
"
" MODULE NAME: AMOS KERNEL PARAMETERS (KERNELPARAMS)
" MODULE ID NMB: CSS/873
" MODULE VERSION: 0104
" 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
"-----------------------------------------------------------------------
"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
"CREATE PROCESS PROCEDURE PARAMETERS
TYPE PROCESS_CREATION_BLOCK =
RECORD
VNAME: PROCESS_NAME;
VPROG, VINIT, VMICRO, VCAPAB, VCPU, VPRIO : INTEGER;
VLEVEL, VBASE, VSIZE, VBOUND, VMEMORY,VMSGS : INTEGER;
VUSER: USERID;
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