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

⟦0309c1d95⟧ TextFile

    Length: 6894 (0x1aee)
    Types: TextFile
    Names: »TYPE.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!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« 

TextFile

"-----------------------------------------------------------------------
"
"  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;