|
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: 11392 (0x2c80)
Types: TextFile
Names: »IMPORT.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!V0201.D!PASCAL.D!IMPORT.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!V0201.D!PASCAL.D!IMPORT.I«
"-----------------------------------------------------------------------"
" "
" PROJECT: CD-DED "
" "
" MODULE NAME: BASIC COMMUNICATION SERVICE PROCEDURES "
" MODULE ID NMB: CD/2008 "
" MODULE TYPE: PREFIX "
" MODULE FILES: BCS.I "
" PREFIX FILES: BCS.TYPES.I "
" SPECIFICATIONS: CD-DED/PSP/0001 "
" AUTHOR/DATE: JKK/PHC/PJA/840309 "
" "
" DELIVERABLE: YES "
" SOURCE LANGUAGE: CR80 PASCAL "
" 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 "
" "
" 0201 JKK/PHC/PJA/840807 ADDITIONAL PARAMETERS IN: "
" REQUEST_QUEUE, "
" SEND_MESSAGE, "
" RETURN_MESSAGE "
" NEW FUNCTIONS: "
" DISPOSE_BUFFER, "
" SET_MULTI_SERVER_PHASE, "
" MULTI_WAIT_IO. "
" "
"-----------------------------------------------------------------------"
%IMPORT: BCS_LOGON
%IMPORT: BCS_LOGOFF
%IMPORT: BCS_WAIT
%IMPORT: BCS_WAIT_EVENTS
%IMPORT: BCS_WAIT_EVENTS_IO
%IMPORT: BCS_MULTI_WAIT_IO
%IMPORT: BCS_DEFINE_QUEUE
%IMPORT: BCS_DEFINE_PRIVATE_QUEUE
%IMPORT: BCS_REQUEST_QUEUE
%IMPORT: BCS_SET_PRIORITY
%IMPORT: BCS_REMOVE_QUEUE
%IMPORT: BCS_TEST_QUEUE
%IMPORT: BCS_SEND_MESSAGE
%IMPORT: BCS_CREATE_MESSAGE
%IMPORT: BCS_DISPOSE_MESSAGE
%IMPORT: BCS_RETURN_MESSAGE
%IMPORT: BCS_COPY_MESSAGE
%IMPORT: BCS_WRITE_BLOCK
%IMPORT: BCS_READ_BLOCK
%IMPORT: BCS_PUT_HEADER
%IMPORT: BCS_GET_HEADER
%IMPORT: BCS_PUT_TRAILER
%IMPORT: BCS_GET_TRAILER
%IMPORT: BCS_SET_POSITION
%IMPORT: BCS_JOIN
%IMPORT: BCS_SPLIT
%IMPORT: BCS_ALLOCATE_BUFFER
%IMPORT: BCS_DISPOSE_BUFFER
%IMPORT: BCS_CONNECT_BUFFER
%IMPORT: BCS_GET_NEXT_BUFFER
%IMPORT: BCS_CREATE_POOL
%IMPORT: BCS_REMOVE_POOL
%IMPORT: BCS_TEST_POOL
%IMPORT: BCS_SET_TIMER
%IMPORT: BCS_SET_MULTI_SERVER_PHASE
PROCEDURE BCS_LOGON( MAX_QUEUES, MAX_POOLS, MAX_MESSAGES,
MAX_PRIORITY : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_LOGOFF( VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_WAIT( VAR EVENT_REC : BCS_EVENT_INFO;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_WAIT_EVENTS( EVENTS : EVENT_MASK;
DELAY : INTEGER;
VAR EVENT_REC : BCS_EVENT_INFO;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_WAIT_EVENTS_IO( EVENTS : EVENT_MASK;
DELAY : INTEGER;
VAR EVENT_REC : BCS_EVENT_INFO;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_MULTI_WAIT_IO( EVENTS : EVENT_MASK;
DELAY : INTEGER;
VAR EVENT_REC : BCS_EVENT_INFO;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_DEFINE_QUEUE( GENERE_QUEUE_NAME : UNIV QUEUE_NAME_TYPE;
QUEUE : UNIV LQR_TYPE;
ATTRIBUTES : QUEUE_ATTRIBUTES;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_DEFINE_PRIVATE_QUEUE( QUEUE : UNIV LQR_TYPE;
SUBQUEUE_NO : INTEGER;
PRIORITY : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_REQUEST_QUEUE( GENERIC_QUEUE_NAME : UNIV QUEUE_NAME_TYPE;
QUEUE : UNIV LQR_TYPE;
MESSAGE_SIZE : BYTE_COUNT;
MAX_MESSAGE_SIZE : BYTE_COUNT;
RELEASE_SIGNAL : BOOLEAN;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_SET_PRIORITY( QUEUE : UNIV LQR_TYPE;
PRIORITY : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_REMOVE_QUEUE( QUEUE : UNIV LQR_TYPE;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_TEST_QUEUE( QUEUE : UNIV LQR_TYPE;
SUBQUEUE : INTEGER;
VAR NO_OF_MESSAGES : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_SEND_MESSAGE( QUEUE : UNIV LQR_TYPE;
MESSAGE : BCS_MESSAGE_ID;
SUBQUEUE : INTEGER;
SEND_INFO : SEND_INFO_PTR;
VAR QUEUE_LENGTH : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_CREATE_MESSAGE( POOL : POOL_ID;
NO_OF_BYTES,
OFFSET : BYTE_COUNT;
VAR MESSAGE : BCS_MESSAGE_ID;
VAR REM_BUFFERS : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_DISPOSE_MESSAGE( MESSAGE : BCS_MESSAGE_ID;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_RETURN_MESSAGE( QUEUE : UNIV LQR_TYPE;
SUBQUEUE : INTEGER;
MESSAGE : BCS_MESSAGE_ID;
VAR QUEUE_LENGTH : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_COPY_MESSAGE( MESSAGE : BCS_MESSAGE_ID;
POOL : POOL_ID;
SQUEEZE : BOOLEAN;
VAR NEW_MESSAGE : BCS_MESSAGE_ID;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_WRITE_BLOCK( MESSAGE : BCS_MESSAGE_ID;
POOL : POOL_ID;
DATA_BLOCK : UNIV ELEMENT;
VAR BLOCK_SIZE : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_READ_BLOCK( MESSAGE : BCS_MESSAGE_ID;
VAR DATA_BLOCK : UNIV ELEMENT;
VAR BLOCK_SIZE : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_PUT_HEADER( MESSAGE : BCS_MESSAGE_ID;
POOL : POOL_ID;
HEADER : UNIV ELEMENT;
VAR HEADER_SIZE : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_GET_HEADER( MESSAGE : BCS_MESSAGE_ID;
VAR HEADER : UNIV ELEMENT;
VAR HEADER_SIZE : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_JOIN( FIRST_MESSAGE : BCS_MESSAGE_ID;
VAR SECOND_MESSAGE : BCS_MESSAGE_ID;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_SPLIT( FIRST_MESSAGE : BCS_MESSAGE_ID;
POOL : POOL_ID;
SIZE : BYTE_COUNT;
VAR SECOND_MESSAGE : BCS_MESSAGE_ID;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_GET_TRAILER( MESSAGE : BCS_MESSAGE_ID;
VAR TRAILER : UNIV ELEMENT;
VAR TRAILER_SIZE : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_PUT_TRAILER( MESSAGE : BCS_MESSAGE_ID;
POOL : POOL_ID;
TRAILER : UNIV ELEMENT;
VAR TRAILER_SIZE : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_SET_POSITION( MESSAGE : BCS_MESSAGE_ID;
POS : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_ALLOCATE_BUFFER( POOL : POOL_ID;
VAR BUFFER : ABS_ADDR;
VAR LENGTH : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_DISPOSE_BUFFER( BUFFER : ABS_ADDR;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_CONNECT_BUFFER( MESSAGE : BCS_MESSAGE_ID;
BUFFER : ABS_ADDR;
OFFSET : BYTE_COUNT;
LENGTH : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_GET_NEXT_BUFFER( MESSAGE : BCS_MESSAGE_ID;
VAR BUFFER : ABS_ADDR;
VAR OFFSET : BYTE_COUNT;
VAR LENGTH : BYTE_COUNT;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_CREATE_POOL( BUFFER_SIZE : BYTE_COUNT;
NO_OF_BUFFERS : INTEGER;
POOL_INFO : POOL_INFO_PTR;
VAR POOL : POOL_ID;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_REMOVE_POOL( POOL : POOL_ID;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_TEST_POOL( POOL : POOL_ID;
VAR NO_OF_BUFFERS : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_SET_TIMER( UNIT : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
PROCEDURE BCS_SET_MULTI_SERVER_PHASE( QUEUE : UNIV LQR_TYPE;
PHASE : INTEGER;
VAR CC : UNIV BCS_RESULT ); EXTERN;
" END OF BCS PROCEDURE " «nul»