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 "