|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ D ┃
Length: 1642496 (0x191000)
Names: »DTIA_UCX_SAV«
└─⟦d0624311f⟧ Bits:30000529 8mm tape, Rational 1000, DTIA 2_1_7
└─ ⟦f494b5154⟧ »DATA«
└─⟦this⟧
0x000000…000020 00 01 00 04 01 00 01 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000020…000040 01 01 01 00 27 21 79 f7 00 08 00 00 00 00 00 00 0c 44 54 49 41 5f 55 43 58 2e 42 43 4b 00 00 00 ┆ '!y DTIA_UCX.BCK ┆
0x000040…000060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x4…]
0x0000e0…000100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 b2 6c ┆ l┆
0x000100…000120 10 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00 01 01 0c 00 01 00 44 54 49 41 5f 55 43 58 2e 42 ┆ DTIA_UCX.B┆
0x000120…000140 43 4b 85 00 02 00 42 41 43 4b 55 50 2f 49 4e 54 45 52 43 48 41 4e 47 45 2f 42 4c 4f 43 4b 5f 53 ┆CK BACKUP/INTERCHANGE/BLOCK_S┆
0x000140…000160 49 5a 45 3d 32 30 34 38 20 2a 2e 41 44 41 2c 2a 2e 42 4f 44 59 2c 2a 2e 53 50 45 43 2c 43 4f 4d ┆IZE=2048 *.ADA,*.BODY,*.SPEC,COM┆
0x000160…000180 50 49 4c 45 5f 53 45 52 56 45 52 2e 43 4f 4d 2c 52 55 4e 2e 43 4f 4d 2c 53 45 52 56 45 52 2e 45 ┆PILE_SERVER.COM,RUN.COM,SERVER.E┆
0x000180…0001a0 58 45 2c 53 45 53 53 49 4f 4e 5f 53 45 52 56 45 52 2e 45 58 45 20 44 54 49 41 5f 55 43 58 2e 42 ┆XE,SESSION_SERVER.EXE DTIA_UCX.B┆
0x0001a0…0001c0 43 4b 2f 53 41 56 45 5f 53 45 54 0c 00 04 00 53 4a 4d 20 20 20 20 20 20 20 20 20 04 00 05 00 16 ┆CK/SAVE_SET SJM ┆
0x0001c0…0001e0 00 80 00 08 00 06 00 e0 bf a5 fd 31 45 95 00 02 00 07 00 00 04 04 00 08 00 56 35 2e 34 08 00 09 ┆ 1E V5.4 ┆
0x0001e0…000200 00 5f 42 41 4d 42 49 3a 3a 04 00 0a 00 00 00 00 08 0c 00 0b 00 5f 42 41 4d 42 49 24 44 55 41 31 ┆ _BAMBI:: _BAMBI$DUA1┆
0x000200…000220 3a 04 00 0c 00 56 35 2e 34 04 00 0d 00 00 08 00 00 02 00 0e 00 0a 00 02 00 0f 00 05 02 00 00 00 ┆: V5.4 ┆
0x000220…000240 f0 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 01 01 17 00 2a 00 5b 53 4a 4d 2e 49 4e 53 54 41 ┆ * [SJM.INSTA┆
0x000240…000260 4c 4c 5d 46 44 4c 2e 41 44 41 3b 33 35 02 00 2b 00 01 02 06 00 2c 00 8b 00 07 00 01 00 04 00 2e ┆LL]FDL.ADA;35 + , .┆
0x000260…000280 00 03 00 00 00 04 00 2f 00 16 00 80 00 20 00 34 00 02 02 4f 00 00 00 03 00 00 00 03 00 64 01 00 ┆ / 4 O d ┆
0x000280…0002a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 06 00 2d 00 70 00 16 00 00 00 02 00 30 00 00 ┆ - p 0 ┆
0x0002a0…0002c0 a8 02 00 31 00 00 00 01 00 32 00 00 04 00 33 00 00 00 00 00 02 00 4b 00 ff 7f 01 00 50 00 00 01 ┆ 1 2 3 K P ┆
0x0002c0…0002e0 00 57 00 00 04 00 4f 00 04 00 00 00 02 00 35 00 03 00 08 00 36 00 20 dc 8d 7b e7 a5 94 00 08 00 ┆ W O 5 6 { ┆
0x0002e0…000300 37 00 40 1b fa 1f 23 ff 94 00 08 00 38 00 00 00 00 00 00 00 00 00 08 00 39 00 c0 a2 3c d7 06 42 ┆7 @ # 8 9 < B┆
0x000300…000320 95 00 04 00 47 00 16 00 80 00 02 00 48 00 88 a8 02 00 4a 00 ff 7f 00 00 00 00 00 00 00 00 00 00 ┆ G H J ┆
0x000320…000340 00 04 04 00 00 00 00 00 01 00 00 00 00 00 00 00 18 00 77 69 74 68 20 43 6f 6e 64 69 74 69 6f 6e ┆ with Condition┆
0x000340…000360 5f 48 61 6e 64 6c 69 6e 67 3b 17 00 75 73 65 20 43 6f 6e 64 69 74 69 6f 6e 5f 48 61 6e 64 6c 69 ┆_Handling; use Condition_Handli┆
0x000360…000380 6e 67 3b 00 13 00 70 61 63 6b 61 67 65 20 62 6f 64 79 20 46 64 6c 20 69 73 00 02 00 2d 2d 4e 00 ┆ng; package body Fdl is --N ┆
0x000380…0003a0 2d 2d 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6c 6f ┆-- The following function is lo┆
0x0003a0…0003c0 63 61 6c 6c 79 20 64 65 66 69 6e 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 75 73 69 6e 67 20 74 ┆cally defined instead of using t┆
0x0003c0…0003e0 68 65 20 53 54 52 20 70 61 63 6b 61 67 65 4c 00 2d 2d 20 20 73 6f 20 74 68 65 20 70 72 69 76 61 ┆he STR packageL -- so the priva┆
0x0003e0…000400 74 65 20 44 79 6e 61 6d 69 63 5f 44 65 73 63 72 69 70 74 6f 72 20 74 79 70 65 20 63 61 6e 20 62 ┆te Dynamic_Descriptor type can b┆
0x000400…000420 65 20 75 73 65 64 20 77 69 74 68 6f 75 74 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2e 03 00 2d 2d ┆e used without modification. --┆
0x000420…000440 2d 00 12 00 2d 2d 20 20 20 20 53 54 52 24 46 52 45 45 31 5f 44 58 06 00 2d 2d 20 20 20 20 1d 00 ┆- -- STR$FREE1_DX -- ┆
0x000440…000460 2d 2d 20 20 20 20 46 72 65 65 20 4f 6e 65 20 44 79 6e 61 6d 69 63 20 53 74 72 69 6e 67 00 06 00 ┆-- Free One Dynamic String ┆
0x000460…000480 2d 2d 20 20 20 20 29 00 2d 2d 20 20 20 20 54 68 65 20 46 72 65 65 20 4f 6e 65 20 44 79 6e 61 6d ┆-- ) -- The Free One Dynam┆
0x000480…0004a0 69 63 20 53 74 72 69 6e 67 20 72 6f 75 74 69 6e 65 00 25 00 2d 2d 20 20 20 20 64 65 61 6c 6c 6f ┆ic String routine % -- deallo┆
0x0004a0…0004c0 63 61 74 65 73 20 6f 6e 65 20 64 79 6e 61 6d 69 63 20 73 74 72 69 6e 67 2e 00 06 00 2d 2d 20 20 ┆cates one dynamic string. -- ┆
0x0004c0…0004e0 20 20 01 00 20 00 18 00 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 46 52 45 45 31 5f 44 58 20 28 ┆ procedure FREE1_DX (┆
0x0004e0…000500 3f 00 09 53 54 41 54 55 53 09 09 3a 20 6f 75 74 20 43 4f 4e 44 5f 56 41 4c 55 45 5f 54 59 50 45 ┆? STATUS : out COND_VALUE_TYPE┆
0x000500…000520 3b 09 2d 2d 20 72 65 74 75 72 6e 20 76 61 6c 75 65 3a 20 41 6c 77 61 79 73 20 6e 6f 72 6d 61 6c ┆; -- return value: Always normal┆
0x000520…000540 2c 00 21 00 09 09 09 09 09 09 2d 2d 20 61 6c 6c 20 65 72 72 6f 72 73 20 61 72 65 20 73 69 67 6e ┆, ! -- all errors are sign┆
0x000540…000560 61 6c 65 64 2e 00 30 00 09 53 54 52 49 4e 47 5f 44 45 53 43 52 49 50 54 4f 52 09 3a 20 69 6e 20 ┆aled. 0 STRING_DESCRIPTOR : in ┆
0x000560…000580 6f 75 74 20 44 59 4e 41 4d 49 43 5f 44 45 53 43 52 49 50 54 4f 52 29 3b 01 00 20 00 2a 00 20 20 ┆out DYNAMIC_DESCRIPTOR); * ┆
0x000580…0005a0 20 20 70 72 61 67 6d 61 20 49 4e 54 45 52 46 41 43 45 20 28 45 58 54 45 52 4e 41 4c 2c 20 46 52 ┆ pragma INTERFACE (EXTERNAL, FR┆
0x0005a0…0005c0 45 45 31 5f 44 58 29 3b 01 00 20 00 3d 00 20 20 20 20 70 72 61 67 6d 61 20 49 4d 50 4f 52 54 5f ┆EE1_DX); = pragma IMPORT_┆
0x0005c0…0005e0 56 41 4c 55 45 44 5f 50 52 4f 43 45 44 55 52 45 20 28 46 52 45 45 31 5f 44 58 2c 20 22 73 74 72 ┆VALUED_PROCEDURE (FREE1_DX, "str┆
0x0005e0…000600 24 66 72 65 65 31 5f 64 78 22 2c 00 27 00 09 28 43 4f 4e 44 5f 56 41 4c 55 45 5f 54 59 50 45 2c ┆$free1_dx", ' (COND_VALUE_TYPE,┆
0x000600…000620 20 44 59 4e 41 4d 49 43 5f 44 45 53 43 52 49 50 54 4f 52 29 2c 00 15 00 09 28 56 41 4c 55 45 2c ┆ DYNAMIC_DESCRIPTOR), (VALUE,┆
0x000620…000640 20 52 45 46 45 52 45 4e 43 45 29 29 3b 00 01 00 20 00 00 00 39 00 20 20 20 20 2d 2d 20 50 72 6f ┆ REFERENCE)); 9 -- Pro┆
0x000640…000660 76 69 64 65 20 61 63 63 65 73 73 20 74 6f 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 74 75 72 6e ┆vide access to the string return┆
0x000660…000680 65 64 20 62 79 20 47 65 6e 65 72 61 74 65 2e 00 4f 00 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 53 ┆ed by Generate. O function S┆
0x000680…0006a0 74 72 69 6e 67 5f 44 61 74 61 28 20 44 65 73 63 72 69 70 74 6f 72 20 3a 20 69 6e 20 44 79 6e 61 ┆tring_Data( Descriptor : in Dyna┆
0x0006a0…0006c0 6d 69 63 5f 44 65 73 63 72 69 70 74 6f 72 20 29 20 72 65 74 75 72 6e 20 53 74 72 69 6e 67 20 69 ┆mic_Descriptor ) return String i┆
0x0006c0…0006e0 73 00 45 00 09 73 75 62 74 79 70 65 20 54 68 65 5f 53 74 72 69 6e 67 5f 54 79 70 65 20 69 73 20 ┆s E subtype The_String_Type is ┆
0x0006e0…000700 53 74 72 69 6e 67 28 31 20 2e 2e 20 69 6e 74 65 67 65 72 28 44 65 73 63 72 69 70 74 6f 72 2e 4c ┆String(1 .. integer(Descriptor.L┆
0x000700…000720 65 6e 67 74 68 29 20 29 3b 00 1e 00 09 54 68 65 5f 53 74 72 69 6e 67 20 3a 20 54 68 65 5f 53 74 ┆ength) ); The_String : The_St┆
0x000720…000740 72 69 6e 67 5f 54 79 70 65 3b 31 00 09 66 6f 72 c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ring_Type;1 for ┆
0x000740…000760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x000800…000820 00 01 00 04 01 00 01 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000820…000840 01 01 01 00 c3 f0 75 7b 00 08 00 00 00 00 00 00 0c 44 54 49 41 5f 55 43 58 2e 42 43 4b 00 00 00 ┆ u{ DTIA_UCX.BCK ┆
0x000840…000860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 8b 00 07 00 01 00 70 00 16 00 01 00 17 5b 53 4a ┆ p [SJ┆
0x000860…000880 4d 2e 49 4e 53 54 41 4c 4c 5d 46 44 4c 2e 41 44 41 3b 33 35 00 00 00 00 00 00 00 00 00 00 00 00 ┆M.INSTALL]FDL.ADA;35 ┆
0x000880…0008a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0008c0…0008e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 02 4f 00 ┆ O ┆
0x0008e0…000900 00 00 00 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e4 2e ┆ .┆
0x000900…000920 00 02 04 00 00 00 00 00 03 00 00 00 00 00 00 00 20 54 68 65 5f 53 74 72 69 6e 67 20 75 73 65 20 ┆ The_String use ┆
0x000920…000940 61 74 20 44 65 73 63 72 69 70 74 6f 72 2e 53 74 72 69 6e 67 5f 41 64 64 72 65 73 73 3b 00 09 00 ┆at Descriptor.String_Address; ┆
0x000940…000960 20 20 20 20 62 65 67 69 6e 00 13 00 09 72 65 74 75 72 6e 20 54 68 65 5f 53 74 72 69 6e 67 3b 00 ┆ begin return The_String; ┆
0x000960…000980 14 00 20 20 20 20 65 6e 64 20 53 74 72 69 6e 67 5f 44 61 74 61 3b 00 00 4a 00 20 20 20 20 2d 2d ┆ end String_Data; J --┆
0x000980…0009a0 20 44 65 61 6c 6c 6f 63 61 74 65 20 74 68 65 20 64 79 6e 61 6d 69 63 20 73 74 6f 72 61 67 65 20 ┆ Deallocate the dynamic storage ┆
0x0009a0…0009c0 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 74 68 65 20 73 74 72 69 6e 67 20 62 79 20 47 65 6e 65 ┆allocated for the string by Gene┆
0x0009c0…0009e0 72 61 74 65 49 00 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 52 65 6c 65 61 73 65 5f 53 74 72 69 ┆rateI procedure Release_Stri┆
0x0009e0…000a00 6e 67 28 20 44 65 73 63 72 69 70 74 6f 72 20 3a 20 69 6e 20 6f 75 74 20 44 79 6e 61 6d 69 63 5f ┆ng( Descriptor : in out Dynamic_┆
0x000a00…000a20 44 65 73 63 72 69 70 74 6f 72 20 29 20 69 73 00 15 00 09 53 20 3a 20 43 4f 4e 44 5f 56 41 4c 55 ┆Descriptor ) is S : COND_VALU┆
0x000a20…000a40 45 5f 54 59 50 45 3b 00 09 00 20 20 20 20 62 65 67 69 6e 00 19 00 09 46 72 65 65 31 5f 44 78 28 ┆E_TYPE; begin Free1_Dx(┆
0x000a40…000a60 53 2c 20 44 65 73 63 72 69 70 74 6f 72 29 3b 00 17 00 20 20 20 20 65 6e 64 20 52 65 6c 65 61 73 ┆S, Descriptor); end Releas┆
0x000a60…000a80 65 5f 53 74 72 69 6e 67 3b 00 08 00 65 6e 64 20 46 64 6c 3b 00 00 00 00 00 00 00 00 00 00 00 00 ┆e_String; end Fdl; ┆
0x000a80…000aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x000b00…000b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 f0 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000b20…000b40 01 01 18 00 2a 00 5b 53 4a 4d 2e 49 4e 53 54 41 4c 4c 5d 46 44 4c 5f 2e 41 44 41 3b 31 36 02 00 ┆ * [SJM.INSTALL]FDL_.ADA;16 ┆
0x000b40…000b60 2b 00 01 02 06 00 2c 00 c2 00 0e 00 01 00 04 00 2e 00 24 00 00 00 04 00 2f 00 16 00 80 00 20 00 ┆+ , . $ / ┆
0x000b60…000b80 34 00 02 02 58 00 00 00 24 00 00 00 23 00 ae 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆4 X $ # ┆
0x000b80…000ba0 00 00 06 00 2d 00 70 00 16 00 00 00 02 00 30 00 00 a8 02 00 31 00 00 00 01 00 32 00 00 04 00 33 ┆ - p 0 1 2 3┆
0x000ba0…000bc0 00 00 00 00 00 02 00 4b 00 ff 7f 01 00 50 00 00 01 00 57 00 00 04 00 4f 00 24 00 00 00 02 00 35 ┆ K P W O $ 5┆
0x000bc0…000be0 00 03 00 08 00 36 00 a0 1e 41 61 a6 a9 94 00 08 00 37 00 60 f1 0d 20 23 ff 94 00 08 00 38 00 00 ┆ 6 Aa 7 ` # 8 ┆
0x000be0…000c00 00 00 00 00 00 00 00 08 00 39 00 c0 a2 3c d7 06 42 95 00 04 00 47 00 16 00 80 00 02 00 48 00 88 ┆ 9 < B G H ┆
0x000c00…000c20 a8 02 00 4a 00 ff 7f 00 00 00 00 00 00 00 00 00 00 02 04 00 00 00 00 00 01 00 00 00 00 00 00 00 ┆ J ┆
0x000c20…000c40 58 00 70 72 61 67 6d 61 20 54 49 54 4c 45 20 28 22 46 44 4c 22 2c 20 22 46 69 6c 65 20 44 65 66 ┆X pragma TITLE ("FDL", "File Def┆
0x000c40…000c60 69 6e 69 74 69 6f 6e 20 4c 61 6e 67 75 61 67 65 20 75 74 69 6c 69 74 79 20 72 6f 75 74 69 6e 65 ┆inition Language utility routine┆
0x000c60…000c80 73 20 70 61 63 6b 61 67 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 22 29 3b 00 00 02 00 2d 2d ┆s package specification"); --┆
0x000c80…000ca0 15 00 2d 2d 20 43 4f 50 59 52 49 47 48 54 20 31 39 38 38 20 42 59 20 00 3a 00 2d 2d 20 44 49 47 ┆ -- COPYRIGHT 1988 BY : -- DIG┆
0x000ca0…000cc0 49 54 41 4c 20 45 51 55 49 50 4d 45 4e 54 20 43 4f 52 50 4f 52 41 54 49 4f 4e 2c 20 4d 41 59 4e ┆ITAL EQUIPMENT CORPORATION, MAYN┆
0x000cc0…000ce0 41 52 44 2c 20 4d 41 53 53 41 43 48 55 53 45 54 54 53 2e 20 18 00 2d 2d 20 41 4c 4c 20 52 49 47 ┆ARD, MASSACHUSETTS. -- ALL RIG┆
0x000ce0…000d00 48 54 53 20 52 45 53 45 52 56 45 44 2e 20 02 00 2d 2d 49 00 2d 2d 20 54 48 49 53 20 53 4f 46 54 ┆HTS RESERVED. --I -- THIS SOFT┆
0x000d00…000d20 57 41 52 45 20 49 53 20 46 55 52 4e 49 53 48 45 44 20 55 4e 44 45 52 20 41 20 4c 49 43 45 4e 53 ┆WARE IS FURNISHED UNDER A LICENS┆
0x000d20…000d40 45 20 41 4e 44 20 4d 41 59 20 42 45 20 55 53 45 44 20 41 4e 44 20 43 4f 50 49 45 44 20 00 49 00 ┆E AND MAY BE USED AND COPIED I ┆
0x000d40…000d60 2d 2d 20 4f 4e 4c 59 20 49 4e 20 20 41 43 43 4f 52 44 41 4e 43 45 20 57 49 54 48 20 20 54 48 45 ┆-- ONLY IN ACCORDANCE WITH THE┆
0x000d60…000d80 20 20 54 45 52 4d 53 20 20 4f 46 20 20 53 55 43 48 20 20 4c 49 43 45 4e 53 45 20 20 41 4e 44 20 ┆ TERMS OF SUCH LICENSE AND ┆
0x000d80…000da0 57 49 54 48 20 54 48 45 20 00 49 00 2d 2d 20 49 4e 43 4c 55 53 49 4f 4e 20 4f 46 20 54 48 45 20 ┆WITH THE I -- INCLUSION OF THE ┆
0x000da0…000dc0 41 42 4f 56 45 20 43 4f 50 59 52 49 47 48 54 20 4e 4f 54 49 43 45 2e 20 54 48 49 53 20 53 4f 46 ┆ABOVE COPYRIGHT NOTICE. THIS SOF┆
0x000dc0…000de0 54 57 41 52 45 20 4f 52 20 20 41 4e 59 20 20 4f 54 48 45 52 20 00 49 00 2d 2d 20 43 4f 50 49 45 ┆TWARE OR ANY OTHER I -- COPIE┆
0x000de0…000e00 53 20 54 48 45 52 45 4f 46 20 4d 41 59 20 4e 4f 54 20 42 45 20 50 52 4f 56 49 44 45 44 20 4f 52 ┆S THEREOF MAY NOT BE PROVIDED OR┆
0x000e00…000e20 20 4f 54 48 45 52 57 49 53 45 20 4d 41 44 45 20 41 56 41 49 4c 41 42 4c 45 20 54 4f 20 41 4e 59 ┆ OTHERWISE MADE AVAILABLE TO ANY┆
0x000e20…000e40 d0 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000e40…000e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xd…]
0x001000…001020 00 01 00 04 01 00 01 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x001020…001040 01 01 01 00 c3 8f 23 99 00 08 00 00 00 00 00 00 0c 44 54 49 41 5f 55 43 58 2e 42 43 4b 00 00 00 ┆ # DTIA_UCX.BCK ┆
0x001040…001060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c2 00 0e 00 01 00 70 00 16 00 01 00 18 5b 53 4a ┆ p [SJ┆
0x001060…001080 4d 2e 49 4e 53 54 41 4c 4c 5d 46 44 4c 5f 2e 41 44 41 3b 31 36 00 00 00 00 00 00 00 00 00 00 00 ┆M.INSTALL]FDL_.ADA;16 ┆
0x001080…0010a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0010c0…0010e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 02 58 00 ┆ X ┆
0x0010e0…001100 00 00 00 00 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 ef ┆ $ ┆
0x001100…001120 00 06 04 00 00 00 00 00 02 00 00 00 00 00 00 00 20 00 49 00 2d 2d 20 4f 54 48 45 52 20 50 45 52 ┆ I -- OTHER PER┆
0x001120…001140 53 4f 4e 2e 20 20 4e 4f 20 54 49 54 4c 45 20 54 4f 20 41 4e 44 20 4f 57 4e 45 52 53 48 49 50 20 ┆SON. NO TITLE TO AND OWNERSHIP ┆
0x001140…001160 4f 46 20 20 54 48 45 20 20 53 4f 46 54 57 41 52 45 20 49 53 20 20 48 45 52 45 42 59 20 00 10 00 ┆OF THE SOFTWARE IS HEREBY ┆
0x001160…001180 2d 2d 20 54 52 41 4e 53 46 45 52 52 45 44 2e 20 02 00 2d 2d 49 00 2d 2d 20 54 48 45 20 49 4e 46 ┆-- TRANSFERRED. --I -- THE INF┆
0x001180…0011a0 4f 52 4d 41 54 49 4f 4e 20 49 4e 20 54 48 49 53 20 53 4f 46 54 57 41 52 45 20 49 53 20 20 53 55 ┆ORMATION IN THIS SOFTWARE IS SU┆
0x0011a0…0011c0 42 4a 45 43 54 20 54 4f 20 43 48 41 4e 47 45 20 57 49 54 48 4f 55 54 20 4e 4f 54 49 43 45 20 00 ┆BJECT TO CHANGE WITHOUT NOTICE ┆
0x0011c0…0011e0 49 00 2d 2d 20 41 4e 44 20 20 53 48 4f 55 4c 44 20 20 4e 4f 54 20 20 42 45 20 20 43 4f 4e 53 54 ┆I -- AND SHOULD NOT BE CONST┆
0x0011e0…001200 52 55 45 44 20 41 53 20 20 41 20 43 4f 4d 4d 49 54 4d 45 4e 54 20 42 59 20 44 49 47 49 54 41 4c ┆RUED AS A COMMITMENT BY DIGITAL┆
0x001200…001220 20 45 51 55 49 50 4d 45 4e 54 20 00 10 00 2d 2d 20 43 4f 52 50 4f 52 41 54 49 4f 4e 2e 20 02 00 ┆ EQUIPMENT -- CORPORATION. ┆
0x001220…001240 2d 2d 49 00 2d 2d 20 44 49 47 49 54 41 4c 20 41 53 53 55 4d 45 53 20 4e 4f 20 52 45 53 50 4f 4e ┆--I -- DIGITAL ASSUMES NO RESPON┆
0x001240…001260 53 49 42 49 4c 49 54 59 20 46 4f 52 20 54 48 45 20 55 53 45 20 20 4f 52 20 20 52 45 4c 49 41 42 ┆SIBILITY FOR THE USE OR RELIAB┆
0x001260…001280 49 4c 49 54 59 20 4f 46 20 49 54 53 20 00 3b 00 2d 2d 20 53 4f 46 54 57 41 52 45 20 4f 4e 20 45 ┆ILITY OF ITS ; -- SOFTWARE ON E┆
0x001280…0012a0 51 55 49 50 4d 45 4e 54 20 57 48 49 43 48 20 49 53 20 4e 4f 54 20 53 55 50 50 4c 49 45 44 20 42 ┆QUIPMENT WHICH IS NOT SUPPLIED B┆
0x0012a0…0012c0 59 20 44 49 47 49 54 41 4c 2e 20 00 02 00 2d 2d 00 00 04 00 2d 2d 2b 2b 0c 00 2d 2d 20 46 41 43 ┆Y DIGITAL. -- --++ -- FAC┆
0x0012c0…0012e0 49 4c 49 54 59 3a 26 00 2d 2d 09 56 41 58 20 41 64 61 20 56 65 72 73 69 6f 6e 20 32 20 66 6f 72 ┆ILITY:& -- VAX Ada Version 2 for┆
0x0012e0…001300 20 56 4d 53 20 56 65 72 73 69 6f 6e 20 35 02 00 2d 2d 0c 00 2d 2d 20 41 42 53 54 52 41 43 54 3a ┆ VMS Version 5 -- -- ABSTRACT:┆
0x001300…001320 3e 00 2d 2d 09 44 65 63 6c 61 72 61 74 69 6f 6e 73 20 6f 66 20 74 79 70 65 73 2c 20 72 6f 75 74 ┆> -- Declarations of types, rout┆
0x001320…001340 69 6e 65 73 20 61 6e 64 20 72 65 74 75 72 6e 20 73 74 61 74 75 73 65 73 20 66 6f 72 20 74 68 65 ┆ines and return statuses for the┆
0x001340…001360 28 00 2d 2d 09 56 4d 53 20 46 69 6c 65 20 44 65 66 69 6e 69 74 69 6f 6e 20 4c 61 6e 67 75 61 67 ┆( -- VMS File Definition Languag┆
0x001360…001380 65 20 75 74 69 6c 69 74 79 2e 02 00 2d 2d 04 00 2d 2d 2d 2d 11 00 2d 2d 20 4d 4f 44 49 46 49 43 ┆e utility. -- ---- -- MODIFIC┆
0x001380…0013a0 41 54 49 4f 4e 53 3a 00 47 00 2d 2d 09 54 79 70 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 74 ┆ATIONS: G -- Type declarations t┆
0x0013a0…0013c0 6f 20 73 75 70 70 6f 72 74 20 74 68 65 20 75 73 65 20 6f 66 20 61 20 64 79 6e 61 6d 69 63 20 73 ┆o support the use of a dynamic s┆
0x0013c0…0013e0 74 72 69 6e 67 20 64 65 73 63 72 69 70 74 6f 72 2c 00 37 00 2d 2d 09 63 6c 61 73 73 20 44 2c 20 ┆tring descriptor, 7 -- class D, ┆
0x0013e0…001400 66 6f 72 20 74 68 65 20 73 74 72 69 6e 67 20 6f 75 74 70 75 74 20 61 72 67 75 6d 65 6e 74 20 6f ┆for the string output argument o┆
0x001400…001420 66 20 47 45 4e 45 52 41 54 45 2e 00 39 00 2d 2d 09 2d 20 4a 75 6e 65 20 31 37 2c 20 31 39 39 31 ┆f GENERATE. 9 -- - June 17, 1991┆
0x001420…001440 20 62 79 20 53 2e 4a 2e 4d 63 47 72 61 74 68 20 6f 66 20 54 65 6c 6f 73 2c 20 66 6f 72 20 52 61 ┆ by S.J.McGrath of Telos, for Ra┆
0x001440…001460 74 69 6f 6e 61 6c 2e 00 01 00 0c 00 18 00 77 69 74 68 20 53 59 53 54 45 4d 3b 20 75 73 65 20 53 ┆tional. with SYSTEM; use S┆
0x001460…001480 59 53 54 45 4d 3b 0e 00 77 69 74 68 20 53 54 41 52 4c 45 54 3b 20 19 00 77 69 74 68 20 43 4f 4e ┆YSTEM; with STARLET; with CON┆
0x001480…0014a0 44 49 54 49 4f 4e 5f 48 41 4e 44 4c 49 4e 47 3b 20 00 01 00 20 00 0e 00 70 61 63 6b 61 67 65 20 ┆DITION_HANDLING; package ┆
0x0014a0…0014c0 46 44 4c 20 69 73 22 00 20 20 20 20 70 72 61 67 6d 61 20 49 44 45 4e 54 20 28 22 56 41 58 20 41 ┆FDL is" pragma IDENT ("VAX A┆
0x0014c0…0014e0 64 61 20 56 32 2e 30 22 29 3b 00 00 02 00 2d 2d 3a 00 2d 2d 20 54 79 70 65 73 20 75 73 65 64 20 ┆da V2.0"); --: -- Types used ┆
0x0014e0…001500 66 72 6f 6d 20 70 61 63 6b 61 67 65 73 20 6f 74 68 65 72 20 74 68 61 6e 20 53 54 41 4e 44 41 52 ┆from packages other than STANDAR┆
0x001500…001520 44 20 61 6e 64 20 53 59 53 54 45 4d 02 00 2d 2d 42 00 20 20 20 20 73 75 62 74 79 70 65 20 43 4f ┆D and SYSTEM --B subtype CO┆
0x001520…001540 4e 44 5f 56 41 4c 55 45 5f 54 59 50 45 20 69 73 20 43 4f 4e 44 49 54 49 4f 4e 5f 48 41 4e 44 4c ┆ND_VALUE_TYPE is CONDITION_HANDL┆
0x001540…001560 49 4e 47 2e 43 4f 4e 44 5f 56 41 4c 55 45 5f 54 59 50 45 3b 01 00 20 00 27 00 20 20 20 20 74 79 ┆ING.COND_VALUE_TYPE; ' ty┆
0x001560…001580 70 65 20 44 79 6e 61 6d 69 63 5f 44 65 73 63 72 69 70 74 6f 72 20 69 73 20 70 72 69 76 61 74 65 ┆pe Dynamic_Descriptor is private┆
0x001580…0015a0 3b 00 4d 00 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 53 74 72 69 6e 67 5f 44 61 74 61 28 20 44 65 ┆; M function String_Data( De┆
0x0015a0…0015c0 73 63 72 69 70 74 6f 72 20 3a 20 69 6e 20 44 79 6e 61 6d 69 63 5f 44 65 73 63 72 69 70 74 6f 72 ┆scriptor : in Dynamic_Descriptor┆
0x0015c0…0015e0 20 29 20 72 65 74 75 72 6e 20 53 74 72 69 6e 67 3b 00 47 00 20 20 20 20 70 72 6f 63 65 64 75 72 ┆ ) return String; G procedur┆
0x0015e0…001600 65 20 52 65 6c 65 61 73 65 5f 53 74 72 69 6e 67 28 20 44 65 73 63 72 69 70 74 6f 72 20 3a 20 69 ┆e Release_String( Descriptor : i┆
0x001600…001620 6e 20 6f 75 74 20 44 79 6e 61 6d 69 63 5f 44 65 73 63 72 69 70 74 6f 72 20 29 3b 00 00 00 01 00 ┆n out Dynamic_Descriptor ); ┆
0x001620…001640 0c 00 02 00 2d 2d 16 00 2d 2d 20 46 44 4c 20 44 61 74 61 20 53 74 72 75 63 74 75 72 65 73 02 00 ┆ -- -- FDL Data Structures ┆
0x001640…001660 2d 2d 02 00 2d 2d 11 00 2d 2d 20 54 79 70 65 20 66 6f 72 20 46 4c 41 47 53 00 02 00 2d 2d 16 00 ┆-- -- -- Type for FLAGS -- ┆
0x001660…001680 20 20 20 20 74 79 70 65 20 46 4c 41 47 53 5f 54 59 50 45 20 69 73 07 00 09 72 65 63 6f 72 64 00 ┆ type FLAGS_TYPE is record ┆
0x001680…0016a0 24 00 09 20 20 20 20 42 49 54 53 3a 20 53 54 41 52 4c 45 54 2e 46 44 4c 44 45 46 5f 42 49 54 53 ┆$ BITS: STARLET.FDLDEF_BITS┆
0x0016a0…0016c0 5f 54 59 50 45 3b 1f 00 09 20 20 20 20 46 49 4c 4c 45 52 5f 31 20 20 20 20 3a 20 55 4e 53 49 47 ┆_TYPE; FILLER_1 : UNSIG┆
0x0016c0…0016e0 4e 45 44 5f 32 34 3b 00 0c 00 09 65 6e 64 20 72 65 63 6f 72 64 3b 00 00 17 00 09 20 20 20 20 66 ┆NED_24; end record; f┆
0x0016e0…001700 6f 72 20 46 4c 41 47 53 5f 54 59 50 45 20 75 73 65 00 08 00 09 09 72 65 63 6f 72 64 1b 00 09 09 ┆or FLAGS_TYPE use record ┆
0x001700…001720 20 20 20 20 42 49 54 53 09 61 74 20 30 20 72 61 e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ BITS at 0 ra ┆
0x001720…001740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x001800…001820 00 01 00 04 01 00 01 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x001820…001840 01 01 01 00 12 41 df 9d 00 08 00 00 00 00 00 00 0c 44 54 49 41 5f 55 43 58 2e 42 43 4b 00 00 00 ┆ A DTIA_UCX.BCK ┆
0x001840…001860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c2 00 0e 00 01 00 70 00 16 00 01 00 18 5b 53 4a ┆ p [SJ┆
0x001860…001880 4d 2e 49 4e 53 54 41 4c 4c 5d 46 44 4c 5f 2e 41 44 41 3b 31 36 00 00 00 00 00 00 00 00 00 00 00 ┆M.INSTALL]FDL_.ADA;16 ┆
0x001880…0018a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0018c0…0018e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 02 58 00 ┆ X ┆
0x0018e0…001900 00 00 00 00 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 e3 ┆ $ ┆
0x001900…001920 00 06 04 00 00 00 00 00 05 00 00 00 00 00 00 00 6e 67 65 20 30 2e 2e 37 3b 00 23 00 09 09 20 20 ┆ nge 0..7; # ┆
0x001920…001940 20 20 46 49 4c 4c 45 52 5f 31 20 20 20 20 61 74 20 31 20 72 61 6e 67 65 20 30 2e 2e 32 33 3b 00 ┆ FILLER_1 at 1 range 0..23; ┆
0x001940…001960 0d 00 09 09 65 6e 64 20 72 65 63 6f 72 64 3b 00 00 00 02 00 2d 2d 1b 00 2d 2d 20 54 79 70 65 20 ┆ end record; -- -- Type ┆
0x001960…001980 66 6f 72 20 46 49 44 5f 42 4c 4f 43 4b 20 76 61 6c 75 65 00 02 00 2d 2d 2c 00 20 20 20 20 74 79 ┆for FID_BLOCK value --, ty┆
0x001980…0019a0 70 65 20 46 49 44 5f 42 4c 4f 43 4b 5f 54 59 50 45 20 69 73 09 09 09 09 09 09 2d 2d 20 20 46 49 ┆pe FID_BLOCK_TYPE is -- FI┆
0x0019a0…0019c0 4c 45 20 49 44 20 07 00 09 72 65 63 6f 72 64 00 3d 00 09 20 20 20 20 46 49 44 5f 4e 55 4d 09 3a ┆LE ID record = FID_NUM :┆
0x0019c0…0019e0 20 55 4e 53 49 47 4e 45 44 5f 4c 4f 4e 47 57 4f 52 44 3b 09 09 09 09 2d 2d 20 20 52 45 4c 41 54 ┆ UNSIGNED_LONGWORD; -- RELAT┆
0x0019e0…001a00 45 44 20 46 49 4c 45 20 4e 55 4d 42 45 52 20 00 3e 00 09 20 20 20 20 46 49 44 5f 53 45 51 09 3a ┆ED FILE NUMBER > FID_SEQ :┆
0x001a00…001a20 20 55 4e 53 49 47 4e 45 44 5f 4c 4f 4e 47 57 4f 52 44 3b 09 09 09 09 2d 2d 20 20 46 49 4c 45 20 ┆ UNSIGNED_LONGWORD; -- FILE ┆
0x001a20…001a40 53 45 51 55 45 4e 43 45 20 4e 55 4d 42 45 52 20 3f 00 09 20 20 20 20 46 49 44 5f 52 56 4e 09 3a ┆SEQUENCE NUMBER ? FID_RVN :┆
0x001a40…001a60 20 55 4e 53 49 47 4e 45 44 5f 4c 4f 4e 47 57 4f 52 44 3b 09 09 09 09 2d 2d 20 20 52 45 4c 41 54 ┆ UNSIGNED_LONGWORD; -- RELAT┆
0x001a60…001a80 49 56 45 20 56 4f 4c 55 4d 45 20 4e 55 4d 42 45 52 00 0c 00 09 65 6e 64 20 72 65 63 6f 72 64 3b ┆IVE VOLUME NUMBER end record;┆
0x001a80…001aa0 01 00 20 00 1c 00 09 20 20 20 20 66 6f 72 20 46 49 44 5f 42 4c 4f 43 4b 5f 54 59 50 45 20 75 73 ┆ for FID_BLOCK_TYPE us┆
0x001aa0…001ac0 65 20 08 00 09 09 72 65 63 6f 72 64 21 00 09 09 20 20 20 20 46 49 44 5f 4e 55 4d 09 61 74 20 30 ┆e record! FID_NUM at 0┆
0x001ac0…001ae0 20 72 61 6e 67 65 20 30 20 2e 2e 20 33 31 3b 00 21 00 09 09 20 20 20 20 46 49 44 5f 53 45 51 09 ┆ range 0 .. 31; ! FID_SEQ ┆
0x001ae0…001b00 61 74 20 34 20 72 61 6e 67 65 20 30 20 2e 2e 20 33 31 3b 00 21 00 09 09 20 20 20 20 46 49 44 5f ┆at 4 range 0 .. 31; ! FID_┆
0x001b00…001b20 52 56 4e 09 61 74 20 38 20 72 61 6e 67 65 20 30 20 2e 2e 20 33 31 3b 00 0d 00 09 09 65 6e 64 20 ┆RVN at 8 range 0 .. 31; end ┆
0x001b20…001b40 72 65 63 6f 72 64 3b 00 24 00 09 20 20 20 20 66 6f 72 20 46 49 44 5f 42 4c 4f 43 4b 5f 54 59 50 ┆record; $ for FID_BLOCK_TYP┆
0x001b40…001b60 45 27 53 49 5a 45 20 75 73 65 20 39 36 3b 01 00 0c 00 02 00 2d 2d 16 00 2d 2d 20 46 44 4c 20 52 ┆E'SIZE use 96; -- -- FDL R┆
0x001b60…001b80 65 74 75 72 6e 20 53 74 61 74 75 73 65 73 02 00 2d 2d 00 00 4a 00 20 20 20 20 46 41 43 49 4c 49 ┆eturn Statuses -- J FACILI┆
0x001b80…001ba0 54 59 09 09 3a 20 63 6f 6e 73 74 61 6e 74 20 43 4f 4e 44 5f 56 41 4c 55 45 5f 54 59 50 45 20 3a ┆TY : constant COND_VALUE_TYPE :┆
0x001ba0…001bc0 3d 20 49 4d 50 4f 52 54 5f 56 41 4c 55 45 28 22 46 44 4c 24 5f 46 41 43 49 4c 49 54 59 22 29 3b ┆= IMPORT_VALUE("FDL$_FACILITY");┆
0x001bc0…001be0 00 00 48 00 20 20 20 20 46 41 4f 5f 4d 41 58 09 09 3a 20 63 6f 6e 73 74 61 6e 74 20 43 4f 4e 44 ┆ H FAO_MAX : constant COND┆
0x001be0…001c00 5f 56 41 4c 55 45 5f 54 59 50 45 20 3a 3d 20 49 4d 50 4f 52 54 5f 56 41 4c 55 45 28 22 46 44 4c ┆_VALUE_TYPE := IMPORT_VALUE("FDL┆
0x001c00…001c20 24 5f 46 41 4f 5f 4d 41 58 22 29 3b 44 00 20 20 20 20 54 49 54 4c 45 09 09 3a 20 63 6f 6e 73 74 ┆$_FAO_MAX");D TITLE : const┆
0x001c20…001c40 61 6e 74 20 43 4f 4e 44 5f 56 41 4c 55 45 5f 54 59 50 45 20 3a 3d 20 49 4d 50 4f 52 54 5f 56 41 ┆ant COND_VALUE_TYPE := IMPORT_VA┆
0x001c40…001c60 4c 55 45 28 22 46 44 4c 24 5f 54 49 54 4c 45 22 29 3b 42 00 20 20 20 20 41 42 4b 57 09 09 3a 20 ┆LUE("FDL$_TITLE");B ABKW : ┆
[…truncated at 200 lines…]