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: 7914 (0x1eea) Types: TextFile Names: »TYPES«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »GENS.D!SYSGEN.D!MINI_CAMPS.D!TYPES«
TYPE TERMINAL_INDEX = 0..TERMINAL_LIMIT; TYPE PROCESS_INDEX = 0..PROCESS_LIMIT; TYPE PROGRAM_INDEX = 0..PROGRAM_LIMIT; TYPE FILSYS_INDEX = 0..FILSYS_LIMIT; TYPE DEVICE_INDEX = 0..DEVICE_LIMIT; TYPE LOAD_Q_INDEX = 0..LOAD_Q_LIMIT; CONST ECHO_MODE = 0; CONST VDU_MODE = 1; CONST WAIT_MODE = 2; CONST ITT_MODE = 3; CONST FF_MODE = 4; CONST IBUFLGT = 80; TYPE OPEN_STATE = ( SYSTEM_CLOSED, SYSDEV_ASSIGNED, SYSVOL_MOUNTED, USERED_ON, WF_CREATED, MD_FOUND, SYSDIR_FOUND, TOSDIR_FOUND, PASSES_FOUND, ERRORTEXTS_FOUND, SYSTEM_OPEN); TYPE OS_MODE_TYPE = (SLAVE, MASTER, DUAL); TYPE IBUF_TYPE = ARRAY [1..IBUFLGT] OF INTEGER; TYPE NEWS_TYPE = RECORD BYTE_COUNT : INTEGER; MSG : IBUF_TYPE END; CONST PRHL= 26; CONST PGHL = 9; CONST PROGRAMMEMORY = 10; CONST UTILITYPROGRAM = #10; CONST REENTRANT = 1; CONST RELEASEMEMORY = 0; CONST ALLOCATEMEMORY = 1; CONST TRANSFERMEMORY = 4; CONST MESSAGE_DELAY_PARENTSIGNAL = #302; CONST PUBLIC_USER = #FFFC; CONST UNSIGNED5 = #8520 ; CONST SIGNED5= #0520 ; CONST RESERVE= 8; TYPE DUAL_DEVICE_DESC = RECORD DEVICE_KIND, DEVICE_ADDR_0, UNIT_0, SUBUNIT : INTEGER; DEVICE : DEVICE_NAME; DEVICE_ADDR_1, UNIT_1 : INTEGER END; TYPE UNPACKED_NAME = ARRAY [0..7] OF CHAR; TYPE TEXT = ARRAY [1..300] OF CHAR; TYPE PROCESS_STATE = (FREE, CREATED, STOPPED, RUNNING); TYPE TERMINAL_INIT_REC = RECORD OPER, ADDR, MODE, LINEWIDTH, TIMEOUT: INTEGER END; TYPE DEVICE_STATE = (DEASSIGNED, ASSIGNED, MOUNTED, RESERVED); TYPE TERMINAL_IO_MODE = (TIDLE, TIN, TOUT); TYPE HEADER_KIND = (ILLEGAL_KIND, PROGRAM_KIND, PROCESS_KIND); TYPE PROCESS_HEADER = RECORD KIND : HEADER_KIND; SIZE : INTEGER; PROC_NAME : PACKED_NAME3; CPU_NAME : PACKED_NAME3; PRIO, CAPAB, CLAIM, EXECSIZE: INTEGER; IO_PARS : ARRAY [1..4] OF INTEGER; MSGS : INTEGER; CURDIR : INTEGER; MEM_RANGE : INTEGER; DUMMY : ARRAY [0..4] OF INTEGER; LEVEL, BOUND : INTEGER END; TYPE PROGRAM_NAME = PROCESS_NAME; TYPE LOAD_RESULT = INTEGER; TYPE MEMORY_TYPE = (FORPROGRAM, FORDATA); TYPE PRINTERSTATETYPE = (PRINTERIDLE, PRINTERQUEUED, PRINTERACTIVE); TYPE PRINTFILEREC = RECORD PRINTERSTATE : PRINTERSTATETYPE; PRINTERNAME : PROCESS_NAME; RESERVED : BOOLEAN; SEMA : FILE; RESERVER : INTEGER END; TYPE RQ_ANSWER = (RQ_OK, RQ_INV_REQUEST, RQ_INV_PROC, RQ_INV_PROC_STATE, RQ_INV_FSN, RQ_FAIL_TASK, RQ_LOAD_ERROR, RQ_Q_OFFER); TYPE SERVICE_REQUEST = (STARTTASK, STOPTASK, REMOVETASK, LOGOFF, LOADTASK_1, LOADTASK_2, INITTASK, RESERVEPRINT, RELEASEPRINT, STARTPRINT, QTASK); TYPE SERVICE_REQUEST_MESSAGE = RECORD CASE RQTYPE :SERVICE_REQUEST OF STARTTASK, STOPTASK, REMOVETASK, LOADTASK_1, INITTASK: (PNAME : PROCESS_NAME); LOADTASK_2: (GNAME: PACKED_NAME2); STARTPRINT, QTASK, LOGOFF, RESERVEPRINT, RELEASEPRINT: (DUMMY : INTEGER) END; TYPE USERENTRYTYPE = RECORD ID : INTEGER; PASSWORD : PACKED_NAME END; TYPE FILE_ID = RECORD XCOMPLETE : BOOLEAN; XFSN : FILE_SYSTEM_NAME; XVOL : VOLUME_NAME; XNAMELIST : NAMELISTTYPE; XNAMENBR : INTEGER END; TYPE STATUS_TYPE = (SCOMPLETE, SDEVICES, STERMINALS, SPROCESSES, SPROGRAMS); TYPE PASSES = (SERVICE_PASS, COMMAND_PASS, LOGIN_PASS, RUN_PASS, TERMINALON_PASS, STATUS_PASS, PRINT_PASS, LTUON_PASS); TYPE TERMINL = RECORD PROCESSREF : PROCESS_INDEX; OPERATION : OPERATION_REFERENCE; MODE : TERMINAL_IO_MODE; FIL : FILE; FILADR : FILE_ADDRESS; USED : BOOLEAN; LTU : BOOLEAN; NAME : ARRAY [0..0] OF INTEGER; NEXT : TERMINAL_INDEX; "POINTER TO NEXT TERMINAL IF AN LTU" TUSERS : INTEGER; REC : IBUF_TYPE; REF_RECDESCRIPT : BLEPTR END; TYPE PROC = RECORD NAME : PROCESS_NAME; USRID : USERID; BASE : INTEGER; EVT : INTEGER; "MESSAGE FROM PARENT TASK" PARENT : PROCESS_INDEX; PPROGRAM : PROGRAM_INDEX; PTERMINAL : TERMINAL_INDEX; STATE : PROCESS_STATE; MEM : INTEGER END; TYPE PROGRAM_HEADER = RECORD KIND : HEADER_KIND; SIZE : INTEGER; NAME : PROGRAM_NAME; PTYPE, START, MICRO : INTEGER END; TYPE PROGR = RECORD HEADER : PROGRAM_HEADER; PROG, MEM, USERS : INTEGER END; TYPE TDEVICE = RECORD FSYS : FILSYS_INDEX; DEV : DEVICE_DESCRIPTION; VOLUME : VOLUME_NAME; USER : INTEGER; STATE : DEVICE_STATE; UPDATE_RESET : INTEGER; UPDATE_COUNT : INTEGER END; TYPE LOAD_Q_ELEM_TYPE = RECORD EVT : INTEGER; "SAVED EVENT ID" USED : BOOLEAN; P : PROCESS_INDEX; F : FILE END; TYPE LOAD_Q_TYPE = RECORD MEMORY_RELEASED : BOOLEAN; Q_SIZE : LOAD_Q_INDEX; Q : ARRAY [ TERMINAL_INDEX ] OF LOAD_Q_ELEM_TYPE END; TYPE TERMINALLIST= ARRAY [TERMINAL_INDEX] OF TERMINL; TYPE PROCESSLIST= ARRAY [PROCESS_INDEX] OF PROC; TYPE PROGRAMLIST= ARRAY [PROGRAM_INDEX] OF PROGR; TYPE FILSYSLIST= ARRAY [FILSYS_INDEX] OF FILE_SYSTEM_NAME; TYPE DEVICELIST= ARRAY [DEVICE_INDEX] OF TDEVICE; TYPE TERMINALPTR= @TERMINALLIST; TYPE PROCESSPTR= @PROCESSLIST; TYPE PROGRAMPTR= @PROGRAMLIST; TYPE FILSYSPTR= @FILSYSLIST; TYPE DEVICEPTR= @DEVICELIST; TYPE LOAD_QPTR= @LOAD_Q_TYPE; TYPE COMMON_DATA = RECORD TOS_VERSION: INTEGER; OS_MODE: OS_MODE_TYPE; LOCAL_PRINTER: BOOLEAN; OC_INIT_REC: TERMINAL_INIT_REC; SYSTEM_DEV: DEVICE_DESCRIPTION; SYSDUAL_DEV: DEVICE_DESCRIPTION; SYSTEM_VOL: VOLUME_NAME; SYSTEM_DIR: FILE_NAME; FILESYSTEMS: FILSYS_INDEX; AUTO_OPENS: INTEGER; NEWS: NEWS_TYPE; TERMINAL: TERMINALPTR; PROCESS: PROCESSPTR; PRQGRAM: PROGRAMPTR; FILSYS: FILSYSPTR; DEVICE: DEVICEPTR; LOAD_Q: LOAD_QPTR; MAXTERMINAL: TERMINAL_INDEX; MAXPROCESS: PROCESS_INDEX; MAXPROGRAM: PROGRAM_INDEX; MAXFILSYS: FILSYS_INDEX; MAXDEVICE: DEVICE_INDEX; MAX_Q_SIZE: LOAD_Q_INDEX; SYSDIR: FILE; ERRORTEXTS: FILE; WF: FILE; WS: STREAM; STATUS: STATUS_TYPE; PASSFILE: ARRAY[ PASSES ] OF FILE; PRINTFILE: PRINTFILEREC; USRIDGENERATOR: INTEGER; MEMMGR: PROCESS_NAME; TEMP_FILE_ATTR: FILE_ATTRIBUTES; EVTTYP: EVENT_TYPE; EVENT: INTEGER; MSGBUF: MESSAGE_BUFFER; CURTERMINAL: TERMINAL_INDEX; CLOSED: BOOLEAN; OSUSR: USERID END; "MAXTERMINAL, MAXPROCESS, MAXPROGRAM CORRESPOND TO OC" "FILSYS[0] CORRESPONDS TO SYSTEM FILE SYSTEM " TYPE GLOBAL_REF =@COMMON_DATA; "PAGE"«ff» «a5»