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: 4944 (0x1350) Types: TextFile Names: »X2GENPARAMS.S«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »GENS.D!SWELLPREFIX.D!X2GENPARAMS.S«
"----------------------------------------------------------------------- " " " 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»