|
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: 6772 (0x1a74)
Types: TextFile
Names: »TYPE.I«
└─⟦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!BCS.D!V0101.D!PASCAL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!PASCAL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!PASCAL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.D!PASCAL.D!TYPE.I«
└─⟦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!BCS.D!V0101.D!PASCAL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!PASCAL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!PASCAL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.D!PASCAL.D!TYPE.I«
"-----------------------------------------------------------------------"
" "
" PROJECT: CD-DED "
" "
" MODULE NAME: BASIC COMMUNICATION SERVICE INTERFACE "
" MODULE ID NMB: CD/2008 "
" MODULE TYPE: PREFIX "
" MODULE FILES: BCS.TYPE.I "
" PREFIX FILES: NONE "
" SPECIFICATIONS: CD-DED/PSP/0001 "
" AUTHOR/DATE: JKK/PHC/PJA/840309 "
" "
" DELIVERABLE: YES "
" SOURCE LANGUAGE: CR80 PASCAL "
" COMPILE COMPUTER: CR80 D "
" TARGET COMPUTER: CR80 MX "
" OPER. SYSTEM: XAMOS/MXAMOS "
" "
"-----------------------------------------------------------------------"
" "
" CHANGE RECORD "
" "
" VERSION AUTHOR/DATE DESCRIPTION OF CHANGE "
" ------- ----------- --------------------- "
" 0101 JKK/PHC/PJA/840309 INITIAL SUBMITTAL TO CD_SCL "
" "
"-----------------------------------------------------------------------"
CONST
ANY_QUEUE = #FFFF;
TYPE
BCS_ERROR_CODES = ( BCS_OK,
BCS_END_OF_MESSAGE,
BCS_ILLEGAL_POOL,
BCS_BUFFER_SHORTAGE,
BCS_ILLEGAL_LQR,
BCS_POOL_SHORTAGE,
BCS_MESSAGE_SHORTAGE,
BCS_ILLEGAL_SUBQUEUE,
BCS_XTRA_SHORTAGE,
BCS_LOGON_ERROR,
BCS_ILLEGAL_NAME,
BCS_ILLEGAL_MESSAGE,
BCS_UNKNOWN_QUEUE,
BCS_MEMORY_SHORTAGE,
BCS_ILLEGAL_PRIORITY,
BCS_ILLEGAL_OPERATION,
BCS_ILLEGAL_BUFFER,
BCS_ILLEGAL_PARAMETER,
BCS_MESSAGE_CORRUPTED,
BCS_MESSAGE_EMPTY,
BCS_THRESHOLD_REACHED,
BCS_UNKNOWN_FUNCTION );
BCS_RESULT = BCS_ERROR_CODES;
BCS_EVENT_TYPE = ( BCS_POOL_ERROR, BCS_QUEUE_CLOSED,
BCS_QUEUE_NOT_DEFINED, BCS_QUEUE_DEFINED,
BCS_POOL_CREATED, BCS_POOL_CLOSED,
BCS_MESSAGE_CREATED, BCS_BUFFERS_AVAILABLE,
BCS_BUFFERS_RELEASED, BCS_TIMER,
BCS_MESSAGE_RECEIVED, BCS_CALL_ERROR );
BCS_EVENT_CLASS = ( BCS_EVENTS, BCS_AMOS_EVENTS, BCS_IO_EVENTS );
EVENT_ID = INTEGER;
EVENT = INTEGER;
LQR_TYPE = INTEGER;
BCS_MESSAGE_ID = INTEGER;
POOL_ID = INTEGER;
QUEUE_TYPE = ( ACTIVE, STANDBY );
BCS_RANGE_TYPE = ( BCS_LOCAL, BCS_GLOBAL );
SERVER_TYPE = ( MONO, MULTI );
ADDR = INTEGER;
ABSOLUTELY_NOTHING = INTEGER;
ABS_ADDR =
RECORD
OFFSET : INTEGER;
PAGE : INTEGER
END;
BYTE_COUNT = INTEGER;
WORD_COUNT = INTEGER;
BCS_SERVICE = ( NO_FLOW, FLOW, FLOW_PLUS );
POOL_INFO_TYPE =
RECORD
ADDR : ABS_ADDR;
ALLOCATION : BYTE_COUNT
END;
POOL_INFO_PTR = @POOL_INFO_TYPE;
QUEUE_NAME_TYPE = ARRAY[0..1] OF INTEGER;
QUEUE_ATTRIBUTES =
RECORD
QUEUE_KIND : QUEUE_TYPE;
RANGE : BCS_RANGE_TYPE;
WINDOW : INTEGER;
SERVICE : BCS_SERVICE;
SUBQUEUE_NO : INTEGER;
PRIORITY_SUB0 : INTEGER;
SERVER : SERVER_TYPE
END;
QUEUE_INFO_TYPE =
RECORD
SERVICE : BCS_SERVICE;
SUBQUEUE_NO : INTEGER;
WINDOW : INTEGER
END;
SEND_INFO_TYPE =
RECORD
THRESHOLD : INTEGER;
POOL : POOL_ID;
HEADER : ADDR;
HEADER_SIZE : BYTE_COUNT
END;
SEND_INFO_PTR = @SEND_INFO_TYPE;
BCS_EVENT_INFO =
RECORD
HEADER : ADDR;
HEADER_SIZE : BYTE_COUNT;
QUEUE : LQR_TYPE;
PRIORITY : INTEGER;
CASE CLASS : BCS_EVENT_CLASS OF
BCS_EVENTS :( CASE BCS_EVENT : BCS_EVENT_TYPE OF
BCS_POOL_CREATED,
BCS_POOL_CLOSED,
BCS_BUFFERS_AVAILABLE,
BCS_POOL_ERROR : ( POOL : POOL_ID;
FREE_BUFFERS : INTEGER );
BCS_QUEUE_CLOSED,
BCS_QUEUE_NOT_DEFINED : ( JUST_TO_SATISFY_THE_BLOODY_PASCAL_COMPILER : ABSOLUTELY_NOTHING );
BCS_QUEUE_DEFINED : ( QUEUE_INFO : QUEUE_INFO_TYPE );
BCS_MESSAGE_CREATED : ( AVL_MESSAGE : BCS_MESSAGE_ID );
BCS_BUFFERS_RELEASED : ( NO_OF_BUFFERS : INTEGER );
BCS_TIMER : ( TIMER : INTEGER );
BCS_MESSAGE_RECEIVED : ( SUB_QUEUE : INTEGER;
MESSAGE : BCS_MESSAGE_ID;
MESSAGE_LENGTH : BYTE_COUNT;
NO_OF_MESSAGES : INTEGER )
);
BCS_AMOS_EVENTS:( EVTTYPE : EVENT_TYPE;
EVENT_ID : EVENT;
AMOS_MESSAGE : MESSAGE_BUFFER );
BCS_IO_EVENTS :( FAD : ADDR;
BLE : BLEPTR;
OPREF : INTEGER;
FD : FILE;
IO_CC : COMPLETION_CODE )
END;