DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦06e3a89d6⟧ TextFile

    Length: 9700 (0x25e4)
    Types: TextFile
    Names: »IMPORT.I«

Derivation

└─⟦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!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!PASCAL.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!PASCAL.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.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!V0101.D!PASCAL.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!PASCAL.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!PASCAL.D!IMPORT.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.D!PASCAL.D!IMPORT.I« 

TextFile

"-----------------------------------------------------------------------"
"                                                                       "
"  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       "
"                                                                       "
"-----------------------------------------------------------------------"
%IMPORT: BCS_LOGON
%IMPORT: BCS_LOGOFF

%IMPORT: BCS_WAIT
%IMPORT: BCS_WAIT_EVENTS
%IMPORT: BCS_WAIT_EVENTS_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_CONNECT_BUFFER
%IMPORT: BCS_GET_NEXT_BUFFER

%IMPORT: BCS_CREATE_POOL
%IMPORT: BCS_REMOVE_POOL
%IMPORT: BCS_TEST_POOL
%IMPORT: BCS_SET_TIMER

PROCEDURE BCS_LOGON( MAX_QUEUES, MAX_POOLS, MAX_MESSAGES,
                     MAX_PRIORITY : INTEGER;
                 VAR CC           : BCS_RESULT ); EXTERN;

PROCEDURE BCS_LOGOFF( VAR CC : BCS_RESULT ); EXTERN;

PROCEDURE BCS_WAIT( VAR EVENT_REC : BCS_EVENT_INFO;
                    VAR CC        : BCS_RESULT ); EXTERN;

PROCEDURE BCS_WAIT_EVENTS( EVENTS    : EVENT_MASK;
                           DELAY     : INTEGER;
                       VAR EVENT_REC : BCS_EVENT_INFO;
                       VAR CC        : BCS_RESULT ); EXTERN;

PROCEDURE BCS_WAIT_EVENTS_IO( EVENTS    : EVENT_MASK;
                              DELAY     : INTEGER;
                          VAR EVENT_REC : BCS_EVENT_INFO;
                          VAR CC        : BCS_RESULT ); EXTERN;

PROCEDURE BCS_DEFINE_QUEUE( GENERE_QUEUE_NAME : UNIV QUEUE_NAME_TYPE;
                            QUEUE             : LQR_TYPE;
                            ATTRIBUTES        : QUEUE_ATTRIBUTES;
                        VAR CC                : BCS_RESULT ); EXTERN;

PROCEDURE BCS_DEFINE_PRIVATE_QUEUE( QUEUE       : LQR_TYPE;
                                    SUBQUEUE_NO : INTEGER;
                                    PRIORITY    : INTEGER;
                                VAR CC          : BCS_RESULT ); EXTERN;

PROCEDURE BCS_REQUEST_QUEUE( GENERIC_QUEUE_NAME : UNIV QUEUE_NAME_TYPE;
                             QUEUE              : LQR_TYPE;
                             MESSAGE_SIZE       : BYTE_COUNT;
                             RELEASE_SIGNAL     : BOOLEAN;
                         VAR CC                 : BCS_RESULT ); EXTERN;

PROCEDURE BCS_SET_PRIORITY( QUEUE    : LQR_TYPE;
                            PRIORITY : INTEGER;
                        VAR CC       : BCS_RESULT ); EXTERN;

PROCEDURE BCS_REMOVE_QUEUE( QUEUE : LQR_TYPE;
                        VAR CC    : BCS_RESULT ); EXTERN;

PROCEDURE BCS_TEST_QUEUE( QUEUE          : LQR_TYPE;
                          SUBQUEUE       : INTEGER;
                      VAR NO_OF_MESSAGES : INTEGER;
                      VAR CC             : BCS_RESULT ); EXTERN;

PROCEDURE BCS_SEND_MESSAGE( QUEUE     : LQR_TYPE;
                            MESSAGE   : BCS_MESSAGE_ID;
                            SUBQUEUE  : INTEGER;
                            SEND_INFO : SEND_INFO_PTR;
                        VAR CC        : 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          : BCS_RESULT ); EXTERN;

PROCEDURE BCS_DISPOSE_MESSAGE( MESSAGE : BCS_MESSAGE_ID;
                           VAR CC      : BCS_RESULT ); EXTERN;

PROCEDURE BCS_RETURN_MESSAGE( QUEUE    : LQR_TYPE;
                              SUBQUEUE : INTEGER;
                              MESSAGE  : BCS_MESSAGE_ID;
                          VAR CC       : BCS_RESULT ); EXTERN;

PROCEDURE BCS_COPY_MESSAGE( MESSAGE     : BCS_MESSAGE_ID;
                            POOL        : POOL_ID;
                            SQUEEZE     : BOOLEAN;
                        VAR NEW_MESSAGE : BCS_MESSAGE_ID;
                        VAR CC          : 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         : BCS_RESULT ); EXTERN;

PROCEDURE BCS_READ_BLOCK( MESSAGE    : BCS_MESSAGE_ID;
                      VAR DATA_BLOCK : UNIV ELEMENT;
                      VAR BLOCK_SIZE : BYTE_COUNT;
                      VAR CC         : BCS_RESULT ); EXTERN;

PROCEDURE BCS_PUT_HEADER( MESSAGE     : BCS_MESSAGE_ID;
                          POOL        : POOL_ID;
                          HEADER      : UNIV ELEMENT;
                      VAR HEADER_SIZE : BYTE_COUNT;
                      VAR CC          : BCS_RESULT ); EXTERN;

PROCEDURE BCS_GET_HEADER( MESSAGE     : BCS_MESSAGE_ID;
                      VAR HEADER      : UNIV ELEMENT;
                      VAR HEADER_SIZE : BYTE_COUNT;
                      VAR CC          : BCS_RESULT ); EXTERN;

PROCEDURE BCS_JOIN( FIRST_MESSAGE  : BCS_MESSAGE_ID;
                VAR SECOND_MESSAGE : BCS_MESSAGE_ID;
                VAR CC             : 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             : BCS_RESULT ); EXTERN;

PROCEDURE BCS_GET_TRAILER( MESSAGE       : BCS_MESSAGE_ID;
                       VAR TRAILER       : UNIV ELEMENT;
                       VAR TRAILER_SIZE  : BYTE_COUNT;
                       VAR CC            : BCS_RESULT ); EXTERN;

PROCEDURE BCS_PUT_TRAILER( MESSAGE      : BCS_MESSAGE_ID;
                           POOL         : POOL_ID;
                           TRAILER      : UNIV ELEMENT;
                       VAR TRAILER_SIZE : BYTE_COUNT;
                       VAR CC           : BCS_RESULT ); EXTERN;

PROCEDURE BCS_SET_POSITION( MESSAGE      : BCS_MESSAGE_ID;
                            POS          : BYTE_COUNT;
                        VAR CC           : BCS_RESULT ); EXTERN;

PROCEDURE BCS_ALLOCATE_BUFFER( POOL   : POOL_ID;
                           VAR BUFFER : ABS_ADDR;
                           VAR LENGTH : BYTE_COUNT;
                           VAR CC     : BCS_RESULT ); EXTERN;

PROCEDURE BCS_CONNECT_BUFFER( MESSAGE : BCS_MESSAGE_ID;
                              BUFFER  : ABS_ADDR;
                              OFFSET  : BYTE_COUNT;
                              LENGTH  : BYTE_COUNT;
                          VAR CC      : 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      : 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            : BCS_RESULT ); EXTERN;

PROCEDURE BCS_REMOVE_POOL( POOL : POOL_ID;
                       VAR CC   : BCS_RESULT ); EXTERN;

PROCEDURE BCS_TEST_POOL( POOL          : POOL_ID;
                     VAR NO_OF_BUFFERS : INTEGER;
                     VAR CC            : BCS_RESULT ); EXTERN;

PROCEDURE BCS_SET_TIMER( UNIT : INTEGER;
                     VAR CC   : BCS_RESULT ); EXTERN;

" END OF BCS PROCEDURE "