|
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: 9622 (0x2596)
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!V0201.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0202.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V02CT.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!V0201.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0202.D!SWELL.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V02CT.D!SWELL.D!TYPE.I«
0x0000…0020 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆"-------------------------------┆ 0x0020…0040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x0040…0060 2d 2d 2d 2d 2d 2d 2d 2d 0a 22 0a 22 20 20 50 52 4f 4a 45 43 54 3a 20 20 20 20 20 20 20 20 20 20 ┆-------- " " PROJECT: ┆ 0x0060…0080 43 44 2d 44 45 44 0a 22 0a 22 20 20 4d 4f 44 55 4c 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 42 41 ┆CD-DED " " MODULE NAME: BA┆ 0x0080…00a0 53 49 43 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 20 53 45 52 56 49 43 45 20 49 4e 54 45 52 46 ┆SIC COMMUNICATION SERVICE INTERF┆ 0x00a0…00c0 41 43 45 0a 22 20 20 4d 4f 44 55 4c 45 20 49 44 20 4e 4d 42 3a 20 20 20 20 43 44 2f 32 30 30 38 ┆ACE " MODULE ID NMB: CD/2008┆ 0x00c0…00e0 0a 22 20 20 4d 4f 44 55 4c 45 20 54 59 50 45 3a 20 20 20 20 20 20 50 52 45 46 49 58 0a 22 20 20 ┆ " MODULE TYPE: PREFIX " ┆ 0x00e0…0100 4d 4f 44 55 4c 45 20 46 49 4c 45 53 3a 20 20 20 20 20 54 59 50 45 2e 49 0a 22 20 20 50 52 45 46 ┆MODULE FILES: TYPE.I " PREF┆ 0x0100…0120 49 58 20 46 49 4c 45 53 3a 20 20 20 20 20 47 45 4e 45 52 41 4c 50 41 52 41 4d 53 0a 22 20 20 20 ┆IX FILES: GENERALPARAMS " ┆ 0x0120…0140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4f 53 50 41 52 41 4d 53 0a 22 20 20 53 50 ┆ IOSPARAMS " SP┆ 0x0140…0160 45 43 49 46 49 43 41 54 49 4f 4e 53 3a 20 20 20 43 44 2d 44 45 44 2f 50 53 50 2f 30 30 30 31 0a ┆ECIFICATIONS: CD-DED/PSP/0001 ┆ 0x0160…0180 22 20 20 41 55 54 48 4f 52 2f 44 41 54 45 3a 20 20 20 20 20 20 4a 4b 4b 2f 50 48 43 2f 50 4a 41 ┆" AUTHOR/DATE: JKK/PHC/PJA┆ 0x0180…01a0 2f 38 34 30 33 30 39 0a 22 0a 22 20 20 44 45 4c 49 56 45 52 41 42 4c 45 3a 20 20 20 20 20 20 59 ┆/840309 " " DELIVERABLE: Y┆ 0x01a0…01c0 45 53 0a 22 20 20 53 4f 55 52 43 45 20 4c 41 4e 47 55 41 47 45 3a 20 20 43 52 38 30 20 53 57 45 ┆ES " SOURCE LANGUAGE: CR80 SWE┆ 0x01c0…01e0 4c 4c 0a 22 20 20 43 4f 4d 50 49 4c 45 20 43 4f 4d 50 55 54 45 52 3a 20 43 52 38 30 20 4d 0a 22 ┆LL " COMPILE COMPUTER: CR80 M "┆ 0x01e0…0200 20 20 54 41 52 47 45 54 20 43 4f 4d 50 55 54 45 52 3a 20 20 43 52 38 30 20 4d 2f 43 52 38 30 20 ┆ TARGET COMPUTER: CR80 M/CR80 ┆ 0x0200…0220 4d 58 0a 22 20 20 4f 50 45 52 2e 20 53 59 53 54 45 4d 3a 20 20 20 20 20 58 41 4d 4f 53 2f 4d 58 ┆MX " OPER. SYSTEM: XAMOS/MX┆ 0x0220…0240 41 4d 4f 53 0a 22 0a 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆AMOS " "------------------------┆ 0x0240…0260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x0260…0280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 22 0a 22 20 20 43 48 41 4e 47 45 20 52 45 43 4f ┆--------------- " " CHANGE RECO┆ 0x0280…02a0 52 44 0a 22 0a 22 20 20 56 45 52 53 49 4f 4e 20 20 20 20 20 41 55 54 48 4f 52 2f 44 41 54 45 20 ┆RD " " VERSION AUTHOR/DATE ┆ 0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 44 45 53 43 52 49 50 54 49 4f 4e 20 4f 46 20 43 48 41 4e 47 45 ┆ DESCRIPTION OF CHANGE┆ 0x02c0…02e0 0a 22 20 20 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 ┆ " ------- ----------- ┆ 0x02e0…0300 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 22 20 20 ┆ --------------------- " ┆ 0x0300…0320 20 30 31 30 31 20 20 20 20 20 20 20 4a 4b 4b 2f 50 48 43 2f 50 4a 41 2f 38 34 30 33 30 39 20 20 ┆ 0101 JKK/PHC/PJA/840309 ┆ 0x0320…0340 20 20 20 49 4e 49 54 49 41 4c 20 53 55 42 4d 49 54 54 41 4c 20 54 4f 20 43 44 5f 53 43 4c 0a 22 ┆ INITIAL SUBMITTAL TO CD_SCL "┆ 0x0340…0360 0a 22 20 20 20 30 32 30 31 20 20 20 20 20 20 20 4a 4b 4b 2f 38 34 30 38 30 37 20 20 20 20 20 20 ┆ " 0201 JKK/840807 ┆ 0x0360…0380 20 20 20 20 20 20 20 49 4e 43 4c 55 44 49 4e 47 20 42 43 53 20 45 56 45 4e 54 53 3a 0a 22 20 20 ┆ INCLUDING BCS EVENTS: " ┆ 0x0380…03a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x03a0…03c0 20 20 20 20 20 27 42 43 53 5f 50 4f 4f 4c 5f 4e 4f 54 5f 43 52 45 41 54 45 44 27 0a 22 20 20 20 ┆ 'BCS_POOL_NOT_CREATED' " ┆ 0x03c0…03e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x03e0…0400 20 20 49 4e 43 4c 55 44 49 4e 47 20 42 43 53 20 45 52 52 4f 52 20 43 4f 44 45 3a 0a 22 20 20 20 ┆ INCLUDING BCS ERROR CODE: " ┆ 0x0400…0420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0420…0440 20 20 20 20 27 42 43 53 5f 51 55 45 55 45 5f 4e 4f 54 5f 49 4e 54 45 52 4e 27 0a 22 20 20 20 20 ┆ 'BCS_QUEUE_NOT_INTERN' " ┆ 0x0440…0460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0460…0480 20 4e 45 57 20 46 55 4e 43 54 49 4f 4e 53 3a 0a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ NEW FUNCTIONS: " ┆ 0x0480…04a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 44 49 53 50 4f 53 45 ┆ 'DISPOSE┆ 0x04a0…04c0 5f 42 55 46 46 45 52 27 0a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_BUFFER' " ┆ 0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 53 45 54 5f 4d 55 4c 54 49 5f 53 45 52 56 ┆ 'SET_MULTI_SERV┆ 0x04e0…0500 45 52 5f 50 48 41 53 45 27 0a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ER_PHASE' " ┆ 0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 4d 55 4c 54 49 5f 57 41 49 54 5f 49 4f ┆ 'MULTI_WAIT_IO┆ 0x0520…0540 27 0a 22 0a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' " " ┆ 0x0540…0560 20 20 20 20 20 20 20 20 20 20 42 43 53 20 45 56 45 4e 54 20 4d 41 53 4b 20 46 41 43 49 4c 49 54 ┆ BCS EVENT MASK FACILIT┆ 0x0560…0580 59 20 49 4e 43 4c 55 44 45 44 0a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Y INCLUDED " ┆ 0x0580…05a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 20 27 42 43 53 5f 45 56 45 4e 54 5f 49 ┆ IN 'BCS_EVENT_I┆ 0x05a0…05c0 4e 46 4f 27 0a 22 0a 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NFO' " "------------------------┆ 0x05c0…05e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x05e0…0600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 4f 4e 53 54 0a 20 20 20 41 4e 59 5f 51 55 45 ┆--------------- CONST ANY_QUE┆ 0x0600…0620 55 45 20 3d 20 23 46 46 46 46 3b 0a 0a 54 59 50 45 0a 0a 20 20 20 42 43 53 5f 46 55 4e 43 54 49 ┆UE = #FFFF; TYPE BCS_FUNCTI┆ 0x0620…0640 4f 4e 53 20 3d 20 28 20 4c 4f 47 4f 4e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ONS = ( LOGON, ┆ 0x0640…0660 20 20 20 20 4c 4f 47 4f 46 46 2c 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LOGOFF, ┆ 0x0660…0680 20 20 57 41 49 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 41 49 ┆ WAIT, WAI┆ 0x0680…06a0 54 5f 45 56 45 4e 54 53 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 ┆T_EVENTS, W┆ 0x06a0…06c0 41 49 54 5f 45 56 45 4e 54 53 5f 49 4f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AIT_EVENTS_IO, ┆ 0x06c0…06e0 20 20 20 20 4d 55 4c 54 49 5f 57 41 49 54 5f 49 4f 2c 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MULTI_WAIT_IO, ┆ 0x06e0…0700 20 20 20 20 20 20 20 20 20 44 45 46 49 4e 45 5f 51 55 45 55 45 2c 0a 20 20 20 20 20 20 20 20 20 ┆ DEFINE_QUEUE, ┆ 0x0700…0720 20 20 20 20 20 20 20 20 20 20 20 20 44 45 46 49 4e 45 5f 50 52 49 56 41 54 45 5f 51 55 45 55 45 ┆ DEFINE_PRIVATE_QUEUE┆ 0x0720…0740 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 51 55 45 53 54 5f 51 ┆, REQUEST_Q┆ 0x0740…0760 55 45 55 45 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 54 5f 50 ┆UEUE, SET_P┆ 0x0760…0780 52 49 4f 52 49 54 59 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 ┆RIORITY, RE┆ 0x0780…07a0 4d 4f 56 45 5f 51 55 45 55 45 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MOVE_QUEUE, ┆ 0x07a0…07c0 20 54 45 53 54 5f 51 55 45 55 45 2c 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TEST_QUEUE, ┆ 0x07c0…07e0 20 20 20 53 45 4e 44 5f 4d 45 53 53 41 47 45 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SEND_MESSAGE, ┆ 0x07e0…0800 20 20 20 20 20 20 43 52 45 41 54 45 5f 4d 45 53 53 41 47 45 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ CREATE_MESSAGE, ┆ 0x0800…0820 20 20 20 20 20 20 20 20 20 20 20 44 49 53 50 4f 53 45 5f 4d 45 53 53 41 47 45 2c 0a 20 20 20 20 ┆ DISPOSE_MESSAGE, ┆ 0x0820…0840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 5f 4d 45 53 53 41 47 45 2c ┆ RETURN_MESSAGE,┆ 0x0840…0860 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 50 59 5f 4d 45 53 53 41 ┆ COPY_MESSA┆ 0x0860…0880 47 45 2c 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 5f ┆GE, WRITE_┆ 0x0880…08a0 42 4c 4f 43 4b 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 ┆BLOCK, READ┆ 0x08a0…08c0 5f 42 4c 4f 43 4b 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 ┆_BLOCK, PUT┆ 0x08c0…08e0 5f 48 45 41 44 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 ┆_HEADER, GE┆ 0x08e0…0900 54 5f 48 45 41 44 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 ┆T_HEADER, P┆ 0x0900…0920 55 54 5f 54 52 41 49 4c 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT_TRAILER, ┆ 0x0920…0940 20 47 45 54 5f 54 52 41 49 4c 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET_TRAILER, ┆ 0x0940…0960 20 20 20 53 45 54 5f 50 4f 53 49 54 49 4f 4e 2c 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SET_POSITION, ┆ 0x0960…0980 20 20 20 20 20 20 20 4a 4f 49 4e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ JOIN, ┆ 0x0980…09a0 20 20 53 50 4c 49 54 2c 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 ┆ SPLIT, A┆ 0x09a0…09c0 4c 4c 4f 43 41 54 45 5f 42 55 46 46 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LLOCATE_BUFFER, ┆ 0x09c0…09e0 20 20 20 20 20 44 49 53 50 4f 53 45 5f 42 55 46 46 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ DISPOSE_BUFFER, ┆ 0x09e0…0a00 20 20 20 20 20 20 20 20 20 20 43 4f 4e 4e 45 43 54 5f 42 55 46 46 45 52 2c 0a 20 20 20 20 20 20 ┆ CONNECT_BUFFER, ┆ 0x0a00…0a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 5f 4e 45 58 54 5f 42 55 46 46 45 52 2c 0a ┆ GET_NEXT_BUFFER, ┆ 0x0a20…0a40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 52 45 41 54 45 5f 50 4f 4f ┆ CREATE_POO┆ 0x0a40…0a60 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4d 4f 56 45 5f 50 ┆L, REMOVE_P┆ 0x0a60…0a80 4f 4f 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 5f 50 ┆OOL, TEST_P┆ 0x0a80…0aa0 4f 4f 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 54 5f 54 49 ┆OOL, SET_TI┆ 0x0aa0…0ac0 4d 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 54 5f 4d 55 ┆MER, SET_MU┆ 0x0ac0…0ae0 4c 54 49 5f 53 45 52 56 45 52 5f 50 48 41 53 45 20 29 3b 0a 0a 43 4f 4e 53 54 0a 0a 20 20 20 20 ┆LTI_SERVER_PHASE ); CONST ┆ 0x0ae0…0b00 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20 20 20 20 ┆ "************************" ┆ 0x0b00…0b20 20 22 20 20 20 20 20 42 43 53 20 45 52 52 4f 52 20 43 4f 44 45 53 20 20 20 20 22 0a 20 20 20 20 ┆ " BCS ERROR CODES " ┆ 0x0b20…0b40 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 0a 20 20 20 ┆ "************************" ┆ 0x0b40…0b60 42 43 53 5f 4f 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 3b 0a 20 20 20 ┆BCS_OK = 0; ┆ 0x0b60…0b80 42 43 53 5f 45 4e 44 5f 4f 46 5f 4d 45 53 53 41 47 45 20 20 20 20 20 20 3d 20 23 33 30 30 31 3b ┆BCS_END_OF_MESSAGE = #3001;┆ 0x0b80…0ba0 0a 20 20 20 42 43 53 5f 49 4c 4c 45 47 41 4c 5f 50 4f 4f 4c 20 20 20 20 20 20 20 20 3d 20 23 33 ┆ BCS_ILLEGAL_POOL = #3┆ 0x0ba0…0bc0 30 30 32 3b 0a 20 20 20 42 43 53 5f 42 55 46 46 45 52 5f 53 48 4f 52 54 41 47 45 20 20 20 20 20 ┆002; BCS_BUFFER_SHORTAGE ┆ 0x0bc0…0be0 3d 20 23 33 30 30 33 3b 0a 20 20 20 42 43 53 5f 49 4c 4c 45 47 41 4c 5f 4c 51 52 20 20 20 20 20 ┆= #3003; BCS_ILLEGAL_LQR ┆ 0x0be0…0c00 20 20 20 20 3d 20 23 33 30 30 34 3b 0a 20 20 20 42 43 53 5f 50 4f 4f 4c 5f 53 48 4f 52 54 41 47 ┆ = #3004; BCS_POOL_SHORTAG┆ 0x0c00…0c20 45 20 20 20 20 20 20 20 3d 20 23 33 30 30 35 3b 0a 20 20 20 42 43 53 5f 4d 45 53 53 41 47 45 5f ┆E = #3005; BCS_MESSAGE_┆ 0x0c20…0c40 53 48 4f 52 54 41 47 45 20 20 20 20 3d 20 23 33 30 30 36 3b 0a 20 20 20 42 43 53 5f 49 4c 4c 45 ┆SHORTAGE = #3006; BCS_ILLE┆ 0x0c40…0c60 47 41 4c 5f 53 55 42 51 55 45 55 45 20 20 20 20 3d 20 23 33 30 30 37 3b 0a 20 20 20 42 43 53 5f ┆GAL_SUBQUEUE = #3007; BCS_┆ 0x0c60…0c80 58 54 52 41 5f 53 48 4f 52 54 41 47 45 20 20 20 20 20 20 20 3d 20 23 33 30 30 38 3b 0a 20 20 20 ┆XTRA_SHORTAGE = #3008; ┆ 0x0c80…0ca0 42 43 53 5f 4c 4f 47 4f 4e 5f 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 3d 20 23 33 30 30 39 3b ┆BCS_LOGON_ERROR = #3009;┆ 0x0ca0…0cc0 0a 20 20 20 42 43 53 5f 49 4c 4c 45 47 41 4c 5f 4e 41 4d 45 20 20 20 20 20 20 20 20 3d 20 23 33 ┆ BCS_ILLEGAL_NAME = #3┆ 0x0cc0…0ce0 30 30 41 3b 0a 20 20 20 42 43 53 5f 49 4c 4c 45 47 41 4c 5f 4d 45 53 53 41 47 45 20 20 20 20 20 ┆00A; BCS_ILLEGAL_MESSAGE ┆ 0x0ce0…0d00 3d 20 23 33 30 30 42 3b 0a 20 20 20 42 43 53 5f 55 4e 4b 4e 4f 57 4e 5f 51 55 45 55 45 20 20 20 ┆= #300B; BCS_UNKNOWN_QUEUE ┆ 0x0d00…0d20 20 20 20 20 3d 20 23 33 30 30 43 3b 0a 20 20 20 42 43 53 5f 4d 45 4d 4f 52 59 5f 53 48 4f 52 54 ┆ = #300C; BCS_MEMORY_SHORT┆ 0x0d20…0d40 41 47 45 20 20 20 20 20 3d 20 23 33 30 30 44 3b 0a 20 20 20 42 43 53 5f 49 4c 4c 45 47 41 4c 5f ┆AGE = #300D; BCS_ILLEGAL_┆ 0x0d40…0d60 50 52 49 4f 52 49 54 59 20 20 20 20 3d 20 23 33 30 30 45 3b 0a 20 20 20 42 43 53 5f 49 4c 4c 45 ┆PRIORITY = #300E; BCS_ILLE┆ 0x0d60…0d80 47 41 4c 5f 4f 50 45 52 41 54 49 4f 4e 20 20 20 3d 20 23 33 30 30 46 3b 0a 20 20 20 42 43 53 5f ┆GAL_OPERATION = #300F; BCS_┆ 0x0d80…0da0 49 4c 4c 45 47 41 4c 5f 42 55 46 46 45 52 20 20 20 20 20 20 3d 20 23 33 30 31 30 3b 0a 20 20 20 ┆ILLEGAL_BUFFER = #3010; ┆ 0x0da0…0dc0 42 43 53 5f 49 4c 4c 45 47 41 4c 5f 50 41 52 41 4d 45 54 45 52 20 20 20 3d 20 23 33 30 31 31 3b ┆BCS_ILLEGAL_PARAMETER = #3011;┆ 0x0dc0…0de0 0a 20 20 20 42 43 53 5f 4d 45 53 53 41 47 45 5f 43 4f 52 52 55 50 54 45 44 20 20 20 3d 20 23 33 ┆ BCS_MESSAGE_CORRUPTED = #3┆ 0x0de0…0e00 30 31 32 3b 0a 20 20 20 42 43 53 5f 4d 45 53 53 41 47 45 5f 45 4d 50 54 59 20 20 20 20 20 20 20 ┆012; BCS_MESSAGE_EMPTY ┆ 0x0e00…0e20 3d 20 23 33 30 31 33 3b 0a 20 20 20 42 43 53 5f 54 48 52 45 53 48 4f 4c 44 5f 52 45 41 43 48 45 ┆= #3013; BCS_THRESHOLD_REACHE┆ 0x0e20…0e40 44 20 20 20 3d 20 23 33 30 31 34 3b 0a 20 20 20 42 43 53 5f 55 4e 4b 4e 4f 57 4e 5f 46 55 4e 43 ┆D = #3014; BCS_UNKNOWN_FUNC┆ 0x0e40…0e60 54 49 4f 4e 20 20 20 20 3d 20 23 33 30 31 35 3b 0a 20 20 20 42 43 53 5f 51 55 45 55 45 5f 4e 4f ┆TION = #3015; BCS_QUEUE_NO┆ 0x0e60…0e80 54 5f 49 4e 54 45 52 4e 20 20 20 20 3d 20 23 33 30 31 36 3b 0a 0a 54 59 50 45 0a 0a 20 20 20 42 ┆T_INTERN = #3016; TYPE B┆ 0x0e80…0ea0 43 53 5f 52 45 53 55 4c 54 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 42 43 53 5f 45 56 45 ┆CS_RESULT = INTEGER; BCS_EVE┆ 0x0ea0…0ec0 4e 54 5f 54 59 50 45 20 3d 20 28 20 42 43 53 5f 50 4f 4f 4c 5f 45 52 52 4f 52 2c 0a 20 20 20 20 ┆NT_TYPE = ( BCS_POOL_ERROR, ┆ 0x0ec0…0ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 51 55 45 55 45 5f 4e 4f 54 5f ┆ BCS_QUEUE_NOT_┆ 0x0ee0…0f00 44 45 46 49 4e 45 44 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 ┆DEFINED, B┆ 0x0f00…0f20 43 53 5f 50 4f 4f 4c 5f 4e 4f 54 5f 43 52 45 41 54 45 44 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆CS_POOL_NOT_CREATED, ┆ 0x0f20…0f40 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 51 55 45 55 45 5f 43 4c 4f 53 45 44 2c 0a 20 20 20 ┆ BCS_QUEUE_CLOSED, ┆ 0x0f40…0f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 50 4f 4f 4c 5f 43 4c 4f 53 ┆ BCS_POOL_CLOS┆ 0x0f60…0f80 45 44 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 51 55 ┆ED, BCS_QU┆ 0x0f80…0fa0 45 55 45 5f 44 45 46 49 4e 45 44 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EUE_DEFINED, ┆ 0x0fa0…0fc0 20 20 20 42 43 53 5f 50 4f 4f 4c 5f 43 52 45 41 54 45 44 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ BCS_POOL_CREATED, ┆ 0x0fc0…0fe0 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 4d 45 53 53 41 47 45 5f 43 52 45 41 54 45 44 2c 0a ┆ BCS_MESSAGE_CREATED, ┆ 0x0fe0…1000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 42 55 46 46 45 52 ┆ BCS_BUFFER┆ 0x1000…1020 53 5f 41 56 41 49 4c 41 42 4c 45 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S_AVAILABLE, ┆ 0x1020…1040 20 20 20 42 43 53 5f 42 55 46 46 45 52 53 5f 52 45 4c 45 41 53 45 44 2c 0a 20 20 20 20 20 20 20 ┆ BCS_BUFFERS_RELEASED, ┆ 0x1040…1060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 54 49 4d 45 52 2c 0a 20 20 20 20 20 20 ┆ BCS_TIMER, ┆ 0x1060…1080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f 4d 45 53 53 41 47 45 5f 52 45 43 45 ┆ BCS_MESSAGE_RECE┆ 0x1080…10a0 49 56 45 44 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 5f ┆IVED, BCS_┆ 0x10a0…10c0 43 41 4c 4c 5f 45 52 52 4f 52 20 29 3b 0a 0a 43 4f 4e 53 54 0a 20 20 20 42 4d 5f 42 43 53 5f 50 ┆CALL_ERROR ); CONST BM_BCS_P┆ 0x10c0…10e0 4f 4f 4c 5f 45 52 52 4f 52 20 20 20 20 20 20 20 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 ┆OOL_ERROR = 1 SHIFTLL BCS┆ 0x10e0…1100 5f 50 4f 4f 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 42 4d 5f 42 43 53 5f 51 55 45 55 45 5f 43 4c 4f ┆_POOL_ERROR; BM_BCS_QUEUE_CLO┆ 0x1100…1120 53 45 44 20 20 20 20 20 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 51 55 45 55 45 5f 43 ┆SED = 1 SHIFTLL BCS_QUEUE_C┆ 0x1120…1140 4c 4f 53 45 44 3b 0a 20 20 20 42 4d 5f 42 43 53 5f 51 55 45 55 45 5f 4e 4f 54 5f 44 45 46 49 4e ┆LOSED; BM_BCS_QUEUE_NOT_DEFIN┆ 0x1140…1160 45 44 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 51 55 45 55 45 5f 4e 4f 54 5f 44 45 46 ┆ED = 1 SHIFTLL BCS_QUEUE_NOT_DEF┆ 0x1160…1180 49 4e 45 44 3b 0a 20 20 20 42 4d 5f 42 43 53 5f 51 55 45 55 45 5f 44 45 46 49 4e 45 44 20 20 20 ┆INED; BM_BCS_QUEUE_DEFINED ┆ 0x1180…11a0 20 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 51 55 45 55 45 5f 44 45 46 49 4e 45 44 3b ┆ = 1 SHIFTLL BCS_QUEUE_DEFINED;┆ 0x11a0…11c0 0a 20 20 20 42 4d 5f 42 43 53 5f 50 4f 4f 4c 5f 43 52 45 41 54 45 44 20 20 20 20 20 20 3d 20 31 ┆ BM_BCS_POOL_CREATED = 1┆ 0x11c0…11e0 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 50 4f 4f 4c 5f 43 52 45 41 54 45 44 3b 0a 20 20 20 42 4d ┆ SHIFTLL BCS_POOL_CREATED; BM┆ 0x11e0…1200 5f 42 43 53 5f 50 4f 4f 4c 5f 4e 4f 54 5f 43 52 45 41 54 45 44 20 20 3d 20 31 20 53 48 49 46 54 ┆_BCS_POOL_NOT_CREATED = 1 SHIFT┆ 0x1200…1220 4c 4c 20 42 43 53 5f 50 4f 4f 4c 5f 4e 4f 54 5f 43 52 45 41 54 45 44 3b 0a 20 20 20 42 4d 5f 42 ┆LL BCS_POOL_NOT_CREATED; BM_B┆ 0x1220…1240 43 53 5f 50 4f 4f 4c 5f 43 4c 4f 53 45 44 20 20 20 20 20 20 20 3d 20 31 20 53 48 49 46 54 4c 4c ┆CS_POOL_CLOSED = 1 SHIFTLL┆ 0x1240…1260 20 42 43 53 5f 50 4f 4f 4c 5f 43 4c 4f 53 45 44 3b 0a 20 20 20 42 4d 5f 42 43 53 5f 4d 45 53 53 ┆ BCS_POOL_CLOSED; BM_BCS_MESS┆ 0x1260…1280 41 47 45 5f 43 52 45 41 54 45 44 20 20 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 4d 45 ┆AGE_CREATED = 1 SHIFTLL BCS_ME┆ 0x1280…12a0 53 53 41 47 45 5f 43 52 45 41 54 45 44 3b 0a 20 20 20 42 4d 5f 42 43 53 5f 42 55 46 46 45 52 53 ┆SSAGE_CREATED; BM_BCS_BUFFERS┆ 0x12a0…12c0 5f 41 56 41 49 4c 41 42 4c 45 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 42 55 46 46 45 ┆_AVAILABLE = 1 SHIFTLL BCS_BUFFE┆ 0x12c0…12e0 52 53 5f 41 56 41 49 4c 41 42 4c 45 3b 0a 20 20 20 42 4d 5f 42 43 53 5f 42 55 46 46 45 52 53 5f ┆RS_AVAILABLE; BM_BCS_BUFFERS_┆ 0x12e0…1300 52 45 4c 45 41 53 45 44 20 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 42 55 46 46 45 52 ┆RELEASED = 1 SHIFTLL BCS_BUFFER┆ 0x1300…1320 53 5f 52 45 4c 45 41 53 45 44 3b 0a 20 20 20 42 4d 5f 42 43 53 5f 54 49 4d 45 52 20 20 20 20 20 ┆S_RELEASED; BM_BCS_TIMER ┆ 0x1320…1340 20 20 20 20 20 20 20 20 3d 20 31 20 53 48 49 46 54 4c 4c 20 42 43 53 5f 54 49 4d 45 52 3b 0a 20 ┆ = 1 SHIFTLL BCS_TIMER; ┆ 0x1340…1360 20 20 42 4d 5f 42 43 53 5f 4d 45 53 53 41 47 45 5f 52 45 43 45 49 56 45 44 20 20 3d 20 31 20 53 ┆ BM_BCS_MESSAGE_RECEIVED = 1 S┆ 0x1360…1380 48 49 46 54 4c 4c 20 42 43 53 5f 4d 45 53 53 41 47 45 5f 52 45 43 45 49 56 45 44 3b 0a 0a 54 59 ┆HIFTLL BCS_MESSAGE_RECEIVED; TY┆ 0x1380…13a0 50 45 0a 20 20 20 42 43 53 5f 45 58 49 54 20 20 20 20 20 20 20 20 3d 20 28 20 46 41 49 4c 2c 20 ┆PE BCS_EXIT = ( FAIL, ┆ 0x13a0…13c0 50 41 53 53 20 29 3b 0a 0a 20 20 20 42 43 53 5f 57 41 49 54 5f 45 56 45 4e 54 5f 45 58 49 54 20 ┆PASS ); BCS_WAIT_EVENT_EXIT ┆ 0x13c0…13e0 3d 20 28 20 45 5f 46 41 49 4c 2c 20 45 5f 42 43 53 5f 45 56 45 4e 54 2c 20 45 5f 41 4d 4f 53 5f ┆= ( E_FAIL, E_BCS_EVENT, E_AMOS_┆ 0x13e0…1400 45 56 45 4e 54 20 29 3b 0a 0a 20 20 20 42 43 53 5f 57 41 49 54 5f 49 4f 5f 45 58 49 54 20 3d 20 ┆EVENT ); BCS_WAIT_IO_EXIT = ┆ 0x1400…1420 28 20 49 4f 5f 46 41 49 4c 2c 20 49 4f 5f 42 43 53 5f 45 56 45 4e 54 2c 20 49 4f 5f 41 4d 4f 53 ┆( IO_FAIL, IO_BCS_EVENT, IO_AMOS┆ 0x1420…1440 5f 45 56 45 4e 54 2c 20 49 4f 5f 49 4f 5f 45 56 45 4e 54 20 29 3b 0a 0a 20 20 20 42 43 53 5f 45 ┆_EVENT, IO_IO_EVENT ); BCS_E┆ 0x1440…1460 56 45 4e 54 5f 43 4c 41 53 53 20 3d 20 28 20 42 43 53 5f 45 56 45 4e 54 53 2c 20 42 43 53 5f 41 ┆VENT_CLASS = ( BCS_EVENTS, BCS_A┆ 0x1460…1480 4d 4f 53 5f 45 56 45 4e 54 53 2c 20 42 43 53 5f 49 4f 5f 45 56 45 4e 54 53 20 29 3b 0a 0a 20 20 ┆MOS_EVENTS, BCS_IO_EVENTS ); ┆ 0x1480…14a0 20 46 49 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 ┆ FILE = INTEGER; ┆ 0x14a0…14c0 45 56 45 4e 54 5f 49 44 20 20 20 20 20 20 20 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 42 ┆EVENT_ID = INTEGER; B┆ 0x14c0…14e0 4c 45 50 54 52 20 20 20 20 20 20 20 20 20 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 4c 51 ┆LEPTR = INTEGER; LQ┆ 0x14e0…1500 52 5f 54 59 50 45 20 20 20 20 20 20 20 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 42 43 53 ┆R_TYPE = INTEGER; BCS┆ 0x1500…1520 5f 4d 45 53 53 41 47 45 5f 49 44 20 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 50 4f 4f 4c ┆_MESSAGE_ID = INTEGER; POOL┆ 0x1520…1540 5f 49 44 20 20 20 20 20 20 20 20 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 51 55 45 55 45 ┆_ID = INTEGER; QUEUE┆ 0x1540…1560 5f 54 59 50 45 20 20 20 20 20 20 3d 20 28 20 41 43 54 49 56 45 2c 20 53 54 41 4e 44 42 59 20 29 ┆_TYPE = ( ACTIVE, STANDBY )┆ 0x1560…1580 3b 0a 0a 20 20 20 42 43 53 5f 52 41 4e 47 45 5f 54 59 50 45 20 20 3d 20 28 20 42 43 53 5f 4c 4f ┆; BCS_RANGE_TYPE = ( BCS_LO┆ 0x1580…15a0 43 41 4c 2c 20 42 43 53 5f 47 4c 4f 42 41 4c 20 29 3b 0a 0a 20 20 20 53 45 52 56 45 52 5f 54 59 ┆CAL, BCS_GLOBAL ); SERVER_TY┆ 0x15a0…15c0 50 45 20 20 20 20 20 3d 20 28 20 4d 4f 4e 4f 2c 20 4d 55 4c 54 49 20 29 3b 0a 0a 20 20 20 41 44 ┆PE = ( MONO, MULTI ); AD┆ 0x15c0…15e0 44 52 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 41 42 53 ┆DR = INTEGER; ABS┆ 0x15e0…1600 5f 41 44 44 52 20 3d 0a 20 20 20 20 20 20 52 45 43 4f 52 44 0a 20 20 20 20 20 20 20 20 20 4f 46 ┆_ADDR = RECORD OF┆ 0x1600…1620 46 53 45 54 20 3a 20 49 4e 54 45 47 45 52 3b 0a 20 20 20 20 20 20 20 20 20 50 41 47 45 20 20 20 ┆FSET : INTEGER; PAGE ┆ 0x1620…1640 3a 20 49 4e 54 45 47 45 52 3b 0a 20 20 20 20 20 20 45 4e 44 3b 0a 0a 20 20 20 42 59 54 45 5f 43 ┆: INTEGER; END; BYTE_C┆ 0x1640…1660 4f 55 4e 54 20 3d 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 57 4f 52 44 5f 43 4f 55 4e 54 20 3d ┆OUNT = INTEGER; WORD_COUNT =┆ 0x1660…1680 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 42 43 53 5f 53 45 52 56 49 43 45 20 3d 20 28 20 4e 4f ┆ INTEGER; BCS_SERVICE = ( NO┆ 0x1680…16a0 5f 46 4c 4f 57 2c 20 46 4c 4f 57 2c 20 46 4c 4f 57 5f 50 4c 55 53 20 29 3b 0a 0a 20 20 20 50 4f ┆_FLOW, FLOW, FLOW_PLUS ); PO┆ 0x16a0…16c0 4f 4c 5f 49 4e 46 4f 5f 54 59 50 45 20 3d 0a 20 20 20 20 20 20 52 45 43 4f 52 44 0a 20 20 20 20 ┆OL_INFO_TYPE = RECORD ┆ 0x16c0…16e0 20 20 20 20 20 41 44 44 52 20 20 20 20 20 20 20 3a 20 41 42 53 5f 41 44 44 52 3b 0a 20 20 20 20 ┆ ADDR : ABS_ADDR; ┆ 0x16e0…1700 20 20 20 20 20 41 4c 4c 4f 43 41 54 49 4f 4e 20 3a 20 42 59 54 45 5f 43 4f 55 4e 54 3b 0a 20 20 ┆ ALLOCATION : BYTE_COUNT; ┆ 0x1700…1720 20 20 20 20 45 4e 44 3b 0a 0a 20 20 20 51 55 45 55 45 5f 4e 41 4d 45 5f 54 59 50 45 20 3d 20 41 ┆ END; QUEUE_NAME_TYPE = A┆ 0x1720…1740 52 52 41 59 5b 30 2e 2e 31 5d 20 4f 46 20 49 4e 54 45 47 45 52 3b 0a 0a 20 20 20 51 55 45 55 45 ┆RRAY[0..1] OF INTEGER; QUEUE┆ 0x1740…1760 5f 41 54 54 52 49 42 55 54 45 53 20 3d 0a 20 20 20 20 20 20 52 45 43 4f 52 44 0a 20 20 20 20 20 ┆_ATTRIBUTES = RECORD ┆ 0x1760…1780 20 20 20 20 51 55 45 55 45 5f 4b 49 4e 44 20 20 20 20 20 3a 20 51 55 45 55 45 5f 54 59 50 45 3b ┆ QUEUE_KIND : QUEUE_TYPE;┆ 0x1780…17a0 0a 20 20 20 20 20 20 20 20 20 52 41 4e 47 45 20 20 20 20 20 20 20 20 20 20 3a 20 42 43 53 5f 52 ┆ RANGE : BCS_R┆ 0x17a0…17c0 41 4e 47 45 5f 54 59 50 45 3b 0a 20 20 20 20 20 20 20 20 20 57 49 4e 44 4f 57 20 20 20 20 20 20 ┆ANGE_TYPE; WINDOW ┆ 0x17c0…17e0 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 0a 20 20 20 20 20 20 20 20 20 53 45 52 56 49 43 45 20 20 ┆ : INTEGER; SERVICE ┆ 0x17e0…1800 20 20 20 20 20 20 3a 20 42 43 53 5f 53 45 52 56 49 43 45 3b 0a 20 20 20 20 20 20 20 20 20 53 55 ┆ : BCS_SERVICE; SU┆ 0x1800…1820 42 51 55 45 55 45 5f 4e 4f 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 0a 20 20 20 20 20 20 20 20 ┆BQUEUE_NO : INTEGER; ┆ 0x1820…1840 20 50 52 49 4f 52 49 54 59 5f 53 55 42 30 20 20 3a 20 49 4e 54 45 47 45 52 3b 0a 20 20 20 20 20 ┆ PRIORITY_SUB0 : INTEGER; ┆ 0x1840…1860 20 20 20 20 53 45 52 56 45 52 20 20 20 20 20 20 20 20 20 3a 20 53 45 52 56 45 52 5f 54 59 50 45 ┆ SERVER : SERVER_TYPE┆ 0x1860…1880 3b 0a 20 20 20 20 20 20 45 4e 44 3b 0a 0a 20 20 20 51 55 45 55 45 5f 49 4e 46 4f 5f 54 59 50 45 ┆; END; QUEUE_INFO_TYPE┆ 0x1880…18a0 20 3d 0a 20 20 20 20 20 20 52 45 43 4f 52 44 0a 20 20 20 20 20 20 20 20 20 53 45 52 56 49 43 45 ┆ = RECORD SERVICE┆ 0x18a0…18c0 20 20 20 20 20 20 20 3a 20 42 43 53 5f 53 45 52 56 49 43 45 3b 0a 20 20 20 20 20 20 20 20 20 53 ┆ : BCS_SERVICE; S┆ 0x18c0…18e0 55 42 51 55 45 55 45 5f 4e 4f 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 0a 20 20 20 20 20 20 20 20 ┆UBQUEUE_NO : INTEGER; ┆ 0x18e0…1900 20 57 49 4e 44 4f 57 20 20 20 20 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 0a 20 20 20 20 20 20 ┆ WINDOW : INTEGER; ┆ 0x1900…1920 45 4e 44 3b 0a 0a 20 20 20 53 45 4e 44 5f 49 4e 46 4f 5f 54 59 50 45 20 3d 0a 20 20 20 20 20 20 ┆END; SEND_INFO_TYPE = ┆ […truncated at 200 lines…]