|
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: 6894 (0x1aee)
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!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.D!SWELL.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!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.D!SWELL.D!TYPE.I«
"-----------------------------------------------------------------------
"
" PROJECT: CD-DED
"
" MODULE NAME: BASIC COMMUNICATION SERVICE INTERFACE
" MODULE ID NMB: CD/2008
" MODULE TYPE: PREFIX
" MODULE FILES: BCS.I
" PREFIX FILES: GENERALPARAMS
" IOSPARAMS
" SPECIFICATIONS: CD-DED/PSP/0001
" AUTHOR/DATE: JKK/PHC/PJA/840309
"
" DELIVERABLE: YES
" SOURCE LANGUAGE: CR80 SWELL
" COMPILE COMPUTER: CR80 M
" TARGET COMPUTER: CR80 M/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_FUNCTIONS = ( LOGON,
LOGOFF,
WAIT,
WAIT_EVENTS,
WAIT_EVENTS_IO,
DEFINE_QUEUE,
DEFINE_PRIVATE_QUEUE,
REQUEST_QUEUE,
SET_PRIORITY,
REMOVE_QUEUE,
TEST_QUEUE,
SEND_MESSAGE,
CREATE_MESSAGE,
DISPOSE_MESSAGE,
RETURN_MESSAGE,
COPY_MESSAGE,
WRITE_BLOCK,
READ_BLOCK,
PUT_HEADER,
GET_HEADER,
PUT_TRAILER,
GET_TRAILER,
SET_POSITION,
JOIN,
SPLIT,
ALLOCATE_BUFFER,
CONNECT_BUFFER,
GET_NEXT_BUFFER,
CREATE_POOL,
REMOVE_POOL,
TEST_POOL,
SET_TIMER );
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_EXIT = ( FAIL, PASS );
BCS_WAIT_EVENT_EXIT = ( E_FAIL, E_BCS_EVENT, E_AMOS_EVENT );
BCS_WAIT_IO_EXIT = ( IO_FAIL, IO_BCS_EVENT, IO_AMOS_EVENT, IO_IO_EVENT );
BCS_EVENT_CLASS = ( BCS_EVENTS, BCS_AMOS_EVENTS, BCS_IO_EVENTS );
FILE = INTEGER;
EVENT_ID = INTEGER;
BLEPTR = 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;
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;
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;
ABSOLUTELY_NOTHING = INTEGER;
BCS_EVENT_INFO =
RECORD
HEADER : ADDR;
HEADER_SIZE : BYTE_COUNT;
QUEUE : LQR_TYPE;
PRIORITY : INTEGER;
CLASS : BCS_EVENT_CLASS;
" CASE CLASS OF "
VARIANTS : ( BCS_EVENT : BCS_EVENT_TYPE;
VARIANTS : "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_SWELL_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 )
END ) !
( EVTTYPE : EVENT_TYPE;
EVENT_ID : EVENT;
AMOS_MESSAGE : MESSAGE_BUFFER ) !
( FAD : ADDR;
BLE : BLEPTR;
OPREF : INTEGER;
FD : FILE;
IO_CC : COMPLETION_CODE )
END;
END; «nul»