|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 33280 (0x8200)
Names: »EFL1.F«
└─⟦e1c0a41a6⟧ Bits:30009789/_.ft.Ibm2.50007344.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EFL1.F«
0x0000…0020 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x0020…0040 00 09 88 45 4e 44 81 45 4c 53 45 00 00 2e 8c 53 65 74 52 65 73 75 6c 74 81 28 52 65 73 75 6c 74 ┆ END ELSE . SetResult (Result┆
0x0040…0060 2c 81 52 65 6a 65 63 74 65 64 2c 81 45 78 74 52 65 66 50 72 6f 74 65 63 74 65 64 2c 00 18 90 6f ┆, Rejected, ExtRefProtected, o┆
0x0060…0080 62 6a 44 69 72 46 61 6d 69 6c 79 2c 81 30 2c 81 72 65 66 70 29 3b 00 3e 5c 5c 5c 5c 5c 5c 5c 5c ┆bjDirFamily, 0, refp); >ØØØØØØØØ┆
0x0080…00a0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x00a0…00c0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 7d 00 01 20 00 00 1c 84 45 4e 44 ┆ØØØØØØØØØØØØØØØØØØØØØå END┆
0x00c0…00e0 3b 82 28 2a 2a 2a 81 47 6c 6f 62 61 6c 47 65 74 52 65 66 81 2a 2a 2a 29 00 07 84 28 2a 24 65 2a ┆; (*** GlobalGetRef ***) (*$e*┆
0x00e0…0100 29 00 00 33 50 52 4f 43 45 44 55 52 45 81 47 6c 6f 62 61 6c 44 65 6c 65 74 65 82 28 56 41 52 81 ┆) 3PROCEDURE GlobalDelete (VAR ┆
0x0100…0120 54 61 72 67 65 74 53 74 75 62 3a 81 53 74 75 62 4c 6f 63 72 65 66 3b 00 00 0e 99 4e 61 6d 65 3a ┆TargetStub: StubLocref; Name:┆
0x0120…0140 81 6e 61 6d 65 31 36 3b 00 19 99 56 41 52 81 62 75 63 6b 65 74 3a 81 62 75 63 6b 65 74 52 65 66 ┆ name16; VAR bucket: bucketRef┆
0x0140…0160 81 29 3b 00 00 01 20 00 00 3d 84 28 2a 81 44 65 6c 65 74 65 73 81 61 81 62 75 63 6b 65 74 81 65 ┆ ); = (* Deletes a bucket e┆
0x0160…0180 6e 74 72 79 4e 6f 81 28 6e 6f 74 81 53 75 62 53 74 75 62 29 81 69 6e 81 22 54 61 72 67 65 74 53 ┆ntryNo (not SubStub) in "TargetS┆
0x0180…01a0 74 75 62 22 81 2a 29 00 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆tub" *) ┆
0x01a0…01c0 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 ┆ ┆
[…0x2…]
0x0200…0220 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x0300…0320 00 04 84 56 41 52 00 16 88 65 6e 74 72 79 4e 6f 3a 81 42 75 63 6b 65 74 45 6e 74 72 79 3b 00 05 ┆ VAR entryNo: BucketEntry; ┆
0x0320…0340 42 45 47 49 4e 00 00 26 7b 23 62 23 20 50 72 69 6e 74 54 65 78 74 20 28 27 20 47 6c 6f 62 61 6c ┆BEGIN &æ#b# PrintText (' Global┆
0x0340…0360 44 65 6c 65 74 65 20 27 29 3b 23 65 23 7d 00 24 82 43 68 65 63 6b 28 81 74 61 72 67 65 74 53 74 ┆Delete ');#e#å $ Check( targetSt┆
0x0360…0380 75 62 5e 5e 2e 44 69 72 67 61 74 65 2e 4c 6f 63 6b 81 29 3b 00 03 82 69 6e 00 00 3e 84 49 46 81 ┆ub^^.Dirgate.Lock ); in > IF ┆
0x0380…03a0 4c 6f 6f 6b 55 70 45 6e 74 72 79 81 28 54 61 72 67 65 74 53 74 75 62 2c 81 4e 61 6d 65 2c 81 62 ┆LookUpEntry (TargetStub, Name, b┆
0x03a0…03c0 75 63 6b 65 74 2c 81 65 6e 74 72 79 4e 6f 29 81 54 48 45 4e 81 42 45 47 49 4e 00 01 20 00 00 1e ┆ucket, entryNo) THEN BEGIN ┆
0x03c0…03e0 88 49 46 81 65 6e 74 72 79 4e 6f 2e 6b 69 6e 64 81 3d 81 73 75 62 44 69 72 81 54 48 45 4e 00 40 ┆ IF entryNo.kind = subDir THEN @┆
0x03e0…0400 8a 45 78 63 65 70 74 69 6f 6e 28 4d 61 6b 65 52 65 73 75 6c 74 28 55 6e 69 76 65 72 73 61 6c 2c ┆ Exception(MakeResult(Universal,┆
0x0400…0420 2d 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 53 75 62 44 69 72 44 65 6c 65 74 65 2c 30 29 81 29 3b ┆-EntryIllegal,SubDirDelete,0) );┆
0x0420…0440 00 1f 88 77 69 74 68 81 64 81 3d 81 62 75 63 6b 65 74 5e 5e 2e 65 6e 74 72 69 65 73 5e 5e 81 64 ┆ with d = bucket^^.entries^^ d┆
0x0440…0460 6f 00 00 26 8a 64 5b 65 6e 74 72 79 4e 6f 2e 69 6e 64 65 78 5d 2e 6b 69 6e 64 81 3a 3d 81 6c 6f ┆o & dÆentryNo.indexÅ.kind := lo┆
0x0460…0480 63 6b 65 64 45 6e 74 72 79 3b 00 24 88 43 68 65 63 6b 28 81 74 61 72 67 65 74 53 74 75 62 5e 5e ┆ckedEntry; $ Check( targetStub^^┆
0x0480…04a0 2e 44 69 72 47 61 74 65 2e 6f 70 65 6e 82 29 3b 00 03 88 69 6e 00 00 3d 8a 43 6c 65 61 6e 55 70 ┆.DirGate.open ); in = CleanUp┆
0x04a0…04c0 45 6e 74 72 79 81 28 54 61 72 67 65 74 53 74 75 62 2c 62 75 63 6b 65 74 2c 65 6e 74 72 79 4e 6f ┆Entry (TargetStub,bucket,entryNo┆
0x04c0…04e0 2e 69 6e 64 65 78 2c 65 6e 74 72 79 4e 6f 2e 6b 69 6e 64 29 3b 00 00 09 88 64 6f 81 62 65 67 69 ┆.index,entryNo.kind); do begi┆
0x04e0…0500 6e 00 00 25 8a 43 68 65 63 6b 81 28 81 74 61 72 67 65 74 53 74 75 62 5e 5e 2e 44 69 72 47 61 74 ┆n % Check ( targetStub^^.DirGat┆
0x0500…0520 65 2e 4c 6f 63 6b 81 29 3b 00 00 1c 8a 45 78 63 65 70 74 69 6f 6e 81 28 81 47 65 74 45 78 63 65 ┆e.Lock ); Exception ( GetExce┆
0x0520…0540 70 74 69 6f 6e 81 29 3b 00 05 88 65 6e 64 3b 00 00 0f 84 45 4e 44 81 45 4c 53 45 81 42 45 47 49 ┆ption ); end; END ELSE BEGI┆
0x0540…0560 4e 00 00 3b 88 45 78 63 65 70 74 69 6f 6e 28 4d 61 6b 65 52 65 73 75 6c 74 28 6f 62 6a 44 69 72 ┆N ; Exception(MakeResult(objDir┆
0x0560…0580 46 61 6d 69 6c 79 2c 2d 45 78 74 52 65 66 4e 6f 74 46 6f 75 6e 64 2c 81 30 2c 30 29 81 29 3b 00 ┆Family,-ExtRefNotFound, 0,0) ); ┆
0x0580…05a0 00 05 84 45 4e 44 3b 00 00 09 82 64 6f 81 62 65 67 69 6e 00 00 25 84 43 68 65 63 6b 81 28 81 74 ┆ END; do begin % Check ( t┆
0x05a0…05c0 61 72 67 65 74 53 74 75 62 5e 5e 2e 44 69 72 47 61 74 65 2e 6f 70 65 6e 81 29 3b 00 00 1c 84 45 ┆argetStub^^.DirGate.open ); E┆
0x05c0…05e0 78 63 65 70 74 69 6f 6e 81 28 81 47 65 74 45 78 63 65 70 74 69 6f 6e 81 29 3b 00 05 82 65 6e 64 ┆xception ( GetException ); end┆
0x05e0…0600 3b 00 00 01 20 00 00 1b 45 4e 44 3b 82 28 2a 2a 2a 81 47 6c 6f 62 61 6c 44 65 6c 65 74 65 81 2a ┆; END; (*** GlobalDelete *┆
0x0600…0620 2a 2a 29 00 00 07 84 28 2a 24 65 2a 29 00 00 3d 7b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆**) (*$e*) =æ---------------┆
0x0620…0640 2d 2d 2d 2d 2d 2d 2d 2d 20 49 6e 73 74 61 6c 6c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------- Install ---------------┆
0x0640…0660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7d 00 00 04 74 79 70 65 00 26 82 72 65 66 41 72 72 61 79 81 ┆------------å type & refArray ┆
0x0660…0680 3d 81 61 72 72 61 79 81 5b 31 2e 2e 77 6f 72 64 4d 61 78 5d 81 6f 66 81 72 65 66 3b 00 01 20 00 ┆= array Æ1..wordMaxÅ of ref; ┆
0x0680…06a0 00 16 82 69 6e 73 74 61 6c 6c 54 65 6d 70 73 81 3d 81 72 65 63 6f 72 64 00 22 84 77 6f 72 6b 52 ┆ installTemps = record " workR┆
0x06a0…06c0 65 66 31 2c 81 77 6f 72 6b 52 65 66 32 2c 77 6f 72 6b 52 65 66 33 3a 81 72 65 66 3b 00 11 84 73 ┆ef1, workRef2,workRef3: ref; s┆
0x06c0…06e0 65 67 6d 3a 81 62 75 66 66 65 72 52 65 66 3b 00 00 2d 84 62 75 63 6b 65 74 2c 81 74 61 72 67 65 ┆egm: bufferRef; - bucket, targe┆
0x06e0…0700 74 42 75 63 6b 65 74 2c 81 6c 6f 61 64 42 75 63 6b 65 74 3a 81 62 75 63 6b 65 74 52 65 66 3b 00 ┆tBucket, loadBucket: bucketRef; ┆
0x0700…0720 00 14 84 6c 6f 61 64 50 6f 73 3a 81 62 75 66 66 65 72 52 65 66 3b 00 11 84 65 6e 76 3a 81 5e 5e ┆ loadPos: bufferRef; env: ^^┆
0x0720…0740 72 65 66 41 72 72 61 79 3b 00 00 11 84 61 75 78 42 6f 6f 74 50 6f 73 3a 81 72 65 66 3b 00 00 14 ┆refArray; auxBootPos: ref; ┆
0x0740…0760 84 66 61 6f 4f 62 6a 3a 81 66 61 6f 52 65 66 54 79 70 65 3b 00 16 84 72 65 66 48 65 61 64 65 72 ┆ faoObj: faoRefType; refHeader┆
0x0760…0780 3a 81 62 75 66 66 65 72 52 65 66 3b 00 16 84 72 6f 6f 74 53 74 75 62 3a 81 73 74 75 62 4c 6f 63 ┆: bufferRef; rootStub: stubLoc┆
0x0780…07a0 52 65 66 3b 00 05 84 65 6e 64 3b 00 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆Ref; end; ┆
0x07a0…07c0 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 ┆ ┆
[…0x2…]
0x0800…0820 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x17…]
0x0b00…0b20 00 11 50 52 4f 43 45 44 55 52 45 20 49 6e 73 74 61 6c 6c 00 00 1b 8d 28 56 41 52 81 54 68 69 73 ┆ PROCEDURE Install (VAR This┆
0x0b20…0b40 53 74 75 62 3a 81 53 74 75 62 4c 6f 63 72 65 66 3b 00 00 17 8e 63 61 6c 6c 4d 6f 64 65 3a 81 49 ┆Stub: StubLocref; callMode: I┆
0x0b40…0b60 6e 73 74 61 6c 6c 4d 6f 64 65 3b 00 00 12 8e 56 41 52 81 4e 61 6d 65 3a 81 6e 61 6d 65 31 36 3b ┆nstallMode; VAR Name: name16;┆
0x0b60…0b80 00 14 8e 53 6f 75 72 63 65 4e 61 6d 65 3a 81 66 75 6c 6c 69 64 3b 00 15 8e 53 6f 75 72 63 65 41 ┆ SourceName: fullid; SourceA┆
0x0b80…0ba0 64 64 72 3a 81 41 64 64 72 65 73 73 3b 00 00 15 8e 4e 65 77 53 75 62 6a 65 63 74 3a 81 62 6f 6f ┆ddr: Address; NewSubject: boo┆
0x0ba0…0bc0 6c 65 61 6e 3b 00 00 14 8e 4e 6f 50 72 6f 74 65 63 74 3a 81 62 6f 6f 6c 65 61 6e 3b 00 0e 8e 56 ┆lean; NoProtect: boolean; V┆
0x0bc0…0be0 41 52 81 4f 62 6a 3a 81 72 65 66 3b 00 1a 8e 56 41 52 81 74 65 6d 70 73 3a 81 69 6e 73 74 61 6c ┆AR Obj: ref; VAR temps: instal┆
0x0be0…0c00 6c 54 65 6d 70 73 29 3b 00 01 20 00 00 3e 84 28 2a 81 43 72 65 61 74 65 73 81 6f 72 81 6c 6f 61 ┆lTemps); > (* Creates or loa┆
0x0c00…0c20 64 73 81 28 64 65 70 65 6e 64 69 6e 67 81 6f 6e 81 22 63 61 6c 6c 4d 6f 64 65 22 29 81 61 6e 81 ┆ds (depending on "callMode") an ┆
0x0c20…0c40 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 00 08 87 4d 6f 64 75 6c 65 2e 00 01 20 00 00 17 87 4f 56 45 ┆Installation Module. OVE┆
0x0c40…0c60 52 56 49 45 57 81 4f 46 81 50 52 4f 43 45 44 55 52 45 3a 00 00 01 20 00 00 23 87 49 6e 74 72 6f ┆RVIEW OF PROCEDURE: # Intro┆
0x0c60…0c80 64 75 63 74 69 6f 6e 3a 81 56 61 72 69 6f 75 73 81 70 72 65 70 61 72 61 74 69 6f 6e 73 00 00 01 ┆duction: Various preparations ┆
0x0c80…0ca0 20 00 00 3a 87 31 2e 81 44 65 63 69 64 65 81 74 68 65 81 65 78 61 63 74 81 73 6f 75 72 63 65 81 ┆ : 1. Decide the exact source ┆
0x0ca0…0cc0 6f 66 81 74 68 65 81 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 81 4d 6f 64 75 6c 65 81 61 6e 64 00 25 ┆of the Installation Module and %┆
0x0cc0…0ce0 8a 67 65 74 81 63 61 6c 6c 65 72 27 73 81 73 65 63 75 72 69 74 79 81 69 74 65 6d 81 66 6f 72 81 ┆ get caller's security item for ┆
0x0ce0…0d00 74 68 61 74 2e 00 00 01 20 00 00 3b 87 32 2e 81 47 65 74 81 74 68 65 81 28 73 75 62 6a 65 63 74 ┆that. ; 2. Get the (subject┆
0x0d00…0d20 29 81 69 64 2c 81 61 75 74 68 6f 72 69 7a 69 6e 67 81 74 68 65 81 63 72 65 61 74 69 6f 6e 81 6f ┆) id, authorizing the creation o┆
0x0d20…0d40 66 81 61 81 6e 65 77 00 00 18 8a 73 75 62 6a 65 63 74 81 69 64 65 6e 74 69 66 69 63 61 74 69 6f ┆f a new subject identificatio┆
0x0d40…0d60 6e 2e 00 01 20 00 00 39 87 33 2e 81 47 65 74 81 74 68 65 81 66 69 72 73 74 81 70 61 72 74 81 6f ┆n. 9 3. Get the first part o┆
0x0d60…0d80 66 81 74 68 65 81 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 81 4d 6f 64 75 6c 65 81 48 65 61 64 65 72 ┆f the Installation Module Header┆
0x0d80…0da0 2e 00 00 01 20 00 00 1d 87 34 2e 81 46 69 6e 64 81 66 72 65 65 81 62 75 63 6b 65 74 81 65 6e 74 ┆. 4. Find free bucket ent┆
0x0da0…0dc0 72 79 4e 6f 2e 00 00 01 20 00 00 1a 87 35 2e 81 44 65 70 65 6e 64 69 6e 67 81 6f 6e 81 63 61 6c ┆ryNo. 5. Depending on cal┆
0x0dc0…0de0 6c 4d 6f 64 65 3a 00 2f 8c 63 72 65 61 74 69 6e 67 3a 81 35 63 2e 31 3a 81 43 6f 6d 70 75 74 65 ┆lMode: / creating: 5c.1: Compute┆
0x0de0…0e00 81 73 69 7a 65 81 6f 66 81 67 65 6e 65 72 61 6c 81 6f 62 6a 65 63 74 00 00 1c 96 35 63 2e 32 3a ┆ size of general object 5c.2:┆
0x0e00…0e20 81 43 72 65 61 74 65 81 67 65 6e 65 72 61 6c 81 6f 62 6a 65 63 74 00 24 96 35 63 2e 33 3a 81 49 ┆ Create general object $ 5c.3: I┆
0x0e20…0e40 6e 73 65 72 74 81 73 75 62 6a 65 63 74 81 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 00 20 96 35 ┆nsert subject identification 5┆
0x0e40…0e60 63 2e 34 3a 81 49 6e 69 74 69 61 6c 69 7a 65 81 6c 6f 63 61 6c 81 70 6f 69 6e 74 65 72 73 00 01 ┆c.4: Initialize local pointers ┆
0x0e60…0e80 20 00 00 32 8c 6c 6f 61 64 69 6e 67 3a 82 35 6c 3a 83 43 72 65 61 74 65 81 61 6e 64 81 69 6e 69 ┆ 2 loading: 5l: Create and ini┆
0x0e80…0ea0 74 69 61 6c 69 7a 65 81 48 65 61 64 65 72 81 53 65 67 6d 65 6e 74 00 19 9c 28 69 66 81 6e 6f 74 ┆tialize Header Segment (if not┆
0x0ea0…0ec0 81 4c 69 62 72 61 72 79 81 4d 6f 64 75 6c 65 29 2e 00 00 01 20 00 00 2d 87 36 2e 81 43 72 65 61 ┆ Library Module). - 6. Crea┆
0x0ec0…0ee0 74 65 81 61 6e 64 81 69 6e 69 74 69 61 6c 69 7a 65 81 6c 6f 63 61 6c 81 64 61 74 61 81 73 65 67 ┆te and initialize local data seg┆
0x0ee0…0f00 6d 65 6e 74 73 00 00 01 20 00 00 40 87 37 2e 81 43 72 65 61 74 65 81 73 65 63 75 72 69 74 79 81 ┆ments @ 7. Create security ┆
0x0f00…0f20 69 74 65 6d 2e 81 4d 61 6b 65 81 65 6e 74 72 79 4e 6f 81 70 75 62 6c 69 63 2e 81 56 65 72 69 66 ┆item. Make entryNo public. Verif┆
0x0f20…0f40 79 81 74 68 65 81 72 65 74 75 72 6e 00 17 8c 6f 66 81 61 81 70 6f 69 6e 74 65 72 81 69 6e 81 22 ┆y the return of a pointer in "┆
0x0f40…0f60 4f 62 6a 22 2e 00 00 01 20 00 00 36 87 45 78 69 74 50 61 72 74 3a 81 43 6c 65 61 6e 2d 75 70 81 ┆Obj". 6 ExitPart: Clean-up ┆
0x0f60…0f80 61 66 74 65 72 81 65 72 72 6f 72 73 2c 81 69 2e 65 2e 81 72 65 65 73 74 61 62 6c 69 73 68 81 74 ┆after errors, i.e. reestablish t┆
0x0f80…0fa0 68 65 00 33 8a 73 69 74 75 61 74 69 6f 6e 81 61 73 81 69 74 81 77 65 72 65 81 70 72 69 6f 72 81 ┆he 3 situation as it were prior ┆
0x0fa0…0fc0 74 6f 81 74 68 65 81 63 61 6c 6c 81 6f 66 81 49 6e 73 74 61 6c 6c 2e 00 00 01 20 00 00 03 84 2a ┆to the call of Install. *┆
0x0fc0…0fe0 29 00 00 01 20 00 00 01 20 00 00 0f 28 2a 20 43 4f 4e 53 54 41 4e 54 53 20 2a 29 00 00 05 63 6f ┆) (* CONSTANTS *) co┆
0x0fe0…1000 6e 73 74 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 ┆nst ┆
0x1000…1020 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x17…]
0x1300…1320 00 26 86 70 72 6f 67 72 61 6d 4d 6f 64 75 6c 65 81 3d 81 30 3b 81 6c 69 62 72 61 72 79 4d 6f 64 ┆ & programModule = 0; libraryMod┆
0x1320…1340 75 6c 65 81 3d 81 31 3b 00 3a 88 28 2a 81 76 61 6c 75 65 81 6f 66 81 22 6b 69 6e 64 22 2d 66 69 ┆ule = 1; : (* value of "kind"-fi┆
0x1340…1360 65 6c 64 81 69 6e 81 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 81 4d 6f 64 75 6c 65 81 48 65 61 64 65 ┆eld in Installation Module Heade┆
0x1360…1380 72 81 2a 29 00 0f 86 72 65 65 6e 74 72 61 6e 74 81 3d 81 31 3b 00 00 01 20 00 00 19 28 2a 20 54 ┆r *) reentrant = 1; (* T┆
0x1380…13a0 45 4d 50 4f 52 41 52 59 20 56 41 52 49 41 42 4c 45 53 20 2a 29 00 00 01 20 00 00 0e 84 28 2a 81 ┆EMPORARY VARIABLES *) (* ┆
0x13a0…13c0 61 75 78 69 6c 69 61 72 79 2e 00 38 87 28 6e 6f 81 69 6e 66 6f 72 6d 61 74 69 6f 6e 81 69 73 81 ┆auxiliary. 8 (no information is ┆
0x13c0…13e0 63 61 72 72 69 65 64 81 66 72 6f 6d 81 6f 6e 65 81 70 61 72 74 81 74 6f 81 74 68 65 81 6e 65 78 ┆carried from one part to the nex┆
0x13e0…1400 74 81 69 6e 00 1b 88 61 6e 79 81 6f 66 81 74 68 65 73 65 81 76 61 72 69 61 62 6c 65 73 29 81 2a ┆t in any of these variables) *┆
0x1400…1420 29 00 00 01 20 00 00 19 56 41 52 85 65 6e 74 72 79 4e 6f 6b 69 6e 64 3a 81 49 6e 74 65 67 65 72 ┆) VAR entryNokind: Integer┆
0x1420…1440 3b 00 00 06 88 75 73 65 64 2c 00 05 88 70 6f 73 2c 00 00 08 88 61 75 78 70 6f 73 2c 00 0f 88 69 ┆; used, pos, auxpos, i┆
0x1440…1460 2c 81 6a 3a 81 69 6e 74 65 67 65 72 3b 00 00 15 88 73 42 65 67 2c 81 73 45 6e 64 3a 81 69 6e 74 ┆, j: integer; sBeg, sEnd: int┆
0x1460…1480 65 67 65 72 3b 00 00 10 88 73 69 7a 65 3a 81 53 69 7a 65 54 79 70 65 3b 00 0d 88 73 69 64 3a 81 ┆eger; size: SizeType; sid: ┆
0x1480…14a0 6e 61 6d 65 31 36 3b 00 00 16 88 65 6e 74 72 79 4e 6f 3a 81 42 75 63 6b 65 74 45 6e 74 72 79 3b ┆name16; entryNo: BucketEntry;┆
0x14a0…14c0 00 1a 88 73 6f 75 72 63 65 50 72 6f 74 65 63 74 65 64 3a 81 62 6f 6f 6c 65 61 6e 3b 00 11 88 72 ┆ sourceProtected: boolean; r┆
0x14c0…14e0 65 73 3a 81 72 65 73 75 6c 74 54 79 70 65 3b 00 00 01 20 00 00 36 84 28 2a 81 76 61 72 69 61 62 ┆es: resultType; 6 (* variab┆
0x14e0…1500 6c 65 73 81 75 73 65 64 81 74 6f 81 73 70 65 63 69 66 79 81 74 68 65 81 65 78 61 63 74 81 73 6f ┆les used to specify the exact so┆
0x1500…1520 75 72 63 65 81 61 6e 64 81 69 74 73 00 0f 87 61 74 74 72 69 62 75 74 65 73 3d 81 2a 29 00 00 01 ┆urce and its attributes= *) ┆
0x1520…1540 20 00 00 32 87 6c 6f 61 64 4d 6f 64 65 3a 81 28 66 72 6f 6d 46 69 6c 65 2c 66 72 6f 6d 4c 6f 61 ┆ 2 loadMode: (fromFile,fromLoa┆
0x1540…1560 64 65 64 2c 66 72 6f 6d 42 6f 6f 74 2c 66 72 6f 6d 52 4f 4d 29 3b 00 14 87 4c 6f 63 61 6c 4e 61 ┆ded,fromBoot,fromROM); LocalNa┆
0x1560…1580 6d 65 3a 81 6e 61 6d 65 4d 61 78 3b 00 15 87 6e 61 6d 65 4c 65 6e 67 74 68 3a 81 69 6e 74 65 67 ┆me: nameMax; nameLength: integ┆
0x1580…15a0 65 72 3b 00 00 15 8b 28 2a 81 43 41 53 45 81 6c 6f 63 61 6c 4d 6f 64 65 81 4f 46 00 00 25 8f 66 ┆er; (* CASE localMode OF % f┆
0x15a0…15c0 72 6f 6d 46 69 6c 65 3a 81 63 6f 6d 70 6c 65 74 65 81 4c 6f 63 61 6c 4e 61 6d 65 81 6f 66 81 66 ┆romFile: complete LocalName of f┆
0x15c0…15e0 69 6c 65 00 00 2b 8f 66 72 6f 6d 4c 6f 61 64 65 64 3a 81 63 6f 6d 70 6c 65 74 65 81 6e 61 6d 65 ┆ile + fromLoaded: complete name┆
0x15e0…1600 81 6f 66 81 4c 6f 61 64 65 64 81 4d 6f 64 75 6c 65 00 00 18 8f 6f 74 68 65 72 77 69 73 65 81 69 ┆ of Loaded Module otherwise i┆
0x1600…1620 72 72 65 6c 65 76 61 6e 74 81 2a 29 00 01 20 00 00 44 84 28 2a 81 66 6f 6c 6c 6f 77 69 6e 67 81 ┆rrelevant *) D (* following ┆
0x1620…1640 76 61 72 69 61 62 6c 65 73 81 61 72 65 81 72 65 6c 65 76 61 6e 74 81 6f 6e 6c 79 81 66 6f 72 81 ┆variables are relevant only for ┆
0x1640…1660 6c 6f 61 64 4d 6f 64 65 81 3d 81 66 72 6f 6d 46 69 6c 65 81 2a 29 00 41 7b 5c 5c 5c 5c 5c 5c 5c ┆loadMode = fromFile *) AæØØØØØØØ┆
0x1660…1680 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x1680…16a0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 00 00 14 88 46 53 53 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØ FSS┆
0x16a0…16c0 79 73 74 65 6d 49 64 3a 81 66 75 6c 6c 69 64 3b 00 34 8c 28 2a 81 63 6f 6d 70 6c 65 74 65 81 6e ┆ystemId: fullid; 4 (* complete n┆
0x16c0…16e0 61 6d 65 81 6f 66 81 66 69 6c 65 81 73 79 73 74 65 6d 81 69 6e 81 77 68 69 63 68 81 74 68 65 81 ┆ame of file system in which the ┆
0x16e0…1700 73 6f 75 72 63 65 00 34 8f 6f 72 69 67 69 6e 61 74 65 73 2c 81 63 6f 6e 63 61 74 65 6e 61 74 65 ┆source 4 originates, concatenate┆
0x1700…1720 64 81 77 69 74 68 81 74 68 65 81 73 65 63 75 72 69 74 79 81 63 6c 61 73 73 81 6f 66 00 2b 8f 74 ┆d with the security class of + t┆
0x1720…1740 68 65 81 66 69 6c 65 81 73 79 73 74 65 6d 3a 81 3c 66 69 6c 65 73 79 73 81 6e 61 6d 65 3e 2f 3c ┆he file system: <filesys name>/<┆
0x1740…1760 63 6c 61 73 73 3e 81 2a 29 00 00 19 88 66 69 6c 65 50 65 72 6d 73 3a 81 46 70 65 72 6d 69 73 73 ┆class> *) filePerms: Fpermiss┆
0x1760…1780 69 6f 6e 73 3b 00 00 2f 8c 28 2a 81 63 61 6c 6c 65 72 27 73 81 73 65 63 75 72 69 74 79 81 69 74 ┆ions; / (* caller's security it┆
0x1780…17a0 65 6d 81 66 6f 72 81 74 68 65 81 6c 6f 61 64 81 66 69 6c 65 81 2a 29 00 00 43 5c 5c 5c 5c 5c 5c ┆em for the load file *) CØØØØØØ┆
0x17a0…17c0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x17c0…17e0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 7d 00 00 01 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØå ┆
0x17e0…1800 20 00 00 46 84 28 2a 81 66 6f 6c 6c 6f 77 69 6e 67 81 76 61 72 69 61 62 6c 65 73 81 61 72 65 81 ┆ F (* following variables are ┆
0x1800…1820 72 65 6c 65 76 61 6e 74 81 6f 6e 6c 79 81 66 6f 72 81 6c 6f 61 64 4d 6f 64 65 81 3d 81 66 72 6f ┆relevant only for loadMode = fro┆
0x1820…1840 6d 4c 6f 61 64 65 64 81 2a 29 00 37 88 6c 6f 61 64 45 6e 74 72 79 3a 81 42 75 63 6b 65 74 45 6e ┆mLoaded *) 7 loadEntry: BucketEn┆
0x1840…1860 74 72 79 3b 81 28 2a 81 65 6e 74 72 79 4e 6f 81 6f 66 81 4c 6f 61 64 65 64 81 4d 6f 64 75 6c 65 ┆try; (* entryNo of Loaded Module┆
0x1860…1880 81 2a 29 00 00 44 7b 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ *) DæØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x1880…18a0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x18a0…18c0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 00 1c 88 6c 6f 61 64 50 65 72 6d 73 3a 81 53 74 75 62 50 65 72 6d ┆ØØØØØØØØØØ loadPerms: StubPerm┆
0x18c0…18e0 69 73 73 69 6f 6e 73 3b 00 33 8c 28 2a 81 63 61 6c 6c 65 72 27 73 81 73 65 63 75 72 69 74 79 81 ┆issions; 3 (* caller's security ┆
0x18e0…1900 69 74 65 6d 81 66 6f 72 81 74 68 65 81 4c 6f 61 64 65 64 81 4d 6f 64 75 6c 65 81 2a 29 00 00 01 ┆item for the Loaded Module *) ┆
0x1900…1920 20 00 00 1f 84 28 2a 81 4f 74 68 65 72 81 53 65 63 75 72 69 74 79 81 76 61 72 69 61 62 6c 65 73 ┆ (* Other Security variables┆
0x1920…1940 81 2a 29 00 00 01 20 00 00 0a 87 53 79 73 74 65 6d 49 64 2c 00 26 87 41 75 74 68 6f 72 69 7a 69 ┆ *) SystemId, & Authorizi┆
0x1940…1960 6e 67 49 64 3a 81 53 75 62 6a 65 63 74 49 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 3b 00 01 20 00 ┆ngId: SubjectIdentification; ┆
0x1960…1980 00 1e 87 70 65 72 6d 69 73 73 69 6f 6e 73 3a 81 53 74 75 62 50 65 72 6d 69 73 73 69 6f 6e 73 3b ┆ permissions: StubPermissions;┆
0x1980…19a0 00 35 8b 28 2a 81 74 68 65 81 63 72 65 61 74 6f 72 27 73 81 73 65 63 75 72 69 74 79 81 69 74 65 ┆ 5 (* the creator's security ite┆
0x19a0…19c0 6d 81 66 6f 72 81 74 68 65 81 6e 65 77 81 6f 62 6a 65 63 74 81 2a 29 00 00 45 5c 5c 5c 5c 5c 5c ┆m for the new object *) EØØØØØØ┆
0x19c0…19e0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x19e0…1a00 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 7d 00 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØå ┆
0x1a00…1a20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x1b00…1b20 00 33 84 28 2a 81 76 61 72 69 61 62 6c 65 73 81 75 73 65 64 81 74 6f 81 73 70 65 63 69 66 79 81 ┆ 3 (* variables used to specify ┆
0x1b20…1b40 74 68 65 81 74 61 72 67 65 74 81 65 6e 74 72 79 4e 6f 81 2a 29 00 00 01 20 00 00 34 87 54 61 72 ┆the target entryNo *) 4 Tar┆
0x1b40…1b60 67 65 74 49 6e 64 65 78 3a 81 69 6e 74 65 67 65 72 3b 82 28 2a 81 69 6e 64 65 78 81 69 6e 81 22 ┆getIndex: integer; (* index in "┆
0x1b60…1b80 54 61 72 67 65 74 42 75 63 6b 65 74 22 81 2a 29 00 16 87 66 75 6c 6c 4f 62 6a 4e 61 6d 65 3a 81 ┆TargetBucket" *) fullObjName: ┆
0x1b80…1ba0 6e 61 6d 65 4d 61 78 3b 00 23 8b 28 2a 81 63 6f 6d 70 6c 65 74 65 81 6e 61 6d 65 81 6f 66 81 6e ┆nameMax; # (* complete name of n┆
0x1ba0…1bc0 65 77 81 65 6e 74 72 79 4e 6f 81 2a 29 00 00 01 20 00 00 40 84 28 2a 81 76 61 72 69 61 62 6c 65 ┆ew entryNo *) @ (* variable┆
0x1bc0…1be0 73 81 75 73 65 64 81 74 6f 81 68 6f 6c 64 81 48 65 61 64 65 72 81 53 65 67 6d 65 6e 74 81 6f 72 ┆s used to hold Header Segment or┆
0x1be0…1c00 81 70 61 72 74 73 81 68 65 72 65 6f 66 81 64 75 72 69 6e 67 00 08 89 6c 6f 61 64 81 2a 29 00 01 ┆ parts hereof during load *) ┆
0x1c00…1c20 20 00 00 05 63 6f 6e 73 74 00 00 13 87 62 6c 6f 63 6b 4c 65 6e 67 74 68 81 3d 81 32 35 36 3b 00 ┆ const blockLength = 256; ┆
0x1c20…1c40 00 03 76 61 72 00 00 14 87 66 69 72 73 74 48 42 6c 6f 63 6b 3a 81 72 65 63 6f 72 64 00 0c 89 73 ┆ var firstHBlock: record s┆
0x1c40…1c60 69 7a 65 3a 81 77 6f 72 64 3b 00 26 89 72 65 73 74 3a 81 61 72 72 61 79 81 5b 33 2e 2e 62 6c 6f ┆ize: word; & rest: array Æ3..blo┆
0x1c60…1c80 63 6b 6c 65 6e 67 74 68 5d 81 6f 66 81 62 79 74 65 3b 00 05 89 65 6e 64 3b 00 00 14 87 68 65 61 ┆cklengthÅ of byte; end; hea┆
0x1c80…1ca0 64 65 72 50 6f 73 3a 81 69 6e 74 65 67 65 72 3b 00 39 8b 28 2a 81 74 68 65 81 6c 61 73 74 81 62 ┆derPos: integer; 9 (* the last b┆
0x1ca0…1cc0 79 74 65 81 72 65 74 72 69 65 76 65 64 81 66 72 6f 6d 81 74 68 65 81 72 65 66 48 65 61 64 65 72 ┆yte retrieved from the refHeader┆
0x1cc0…1ce0 5e 5e 2d 61 72 72 61 79 81 2a 29 00 00 01 20 00 00 38 87 28 2a 81 66 6f 6c 6c 6f 77 69 6e 67 81 ┆^^-array *) 8 (* following ┆
0x1ce0…1d00 72 65 63 6f 72 64 73 81 72 65 66 6c 65 63 74 81 74 68 65 81 73 74 61 74 69 63 81 70 6f 72 74 69 ┆records reflect the static porti┆
0x1d00…1d20 6f 6e 73 81 6f 66 81 74 68 65 00 1f 8a 49 6e 73 74 61 6c 6c 61 74 69 6f 6e 81 4d 6f 64 75 6c 65 ┆ons of the Installation Module┆
0x1d20…1d40 81 66 6f 72 6d 61 74 3a 81 2a 29 00 00 01 20 00 00 17 8b 48 50 72 65 66 69 78 3a 81 48 65 61 64 ┆ format: *) HPrefix: Head┆
0x1d40…1d60 65 72 50 72 65 66 69 78 3b 00 00 1b 8b 6c 6f 61 64 53 65 63 74 44 65 73 63 72 3a 81 4c 64 53 63 ┆erPrefix; loadSectDescr: LdSc┆
0x1d60…1d80 74 44 65 73 63 72 3b 00 00 1f 8b 6c 6f 63 53 65 67 6d 44 65 73 63 72 3a 81 4c 6f 63 44 61 74 53 ┆tDescr; locSegmDescr: LocDatS┆
0x1d80…1da0 65 67 6d 44 65 73 63 72 3b 00 00 1f 8b 6d 6f 64 69 66 69 63 61 74 69 6f 6e 44 65 73 63 72 3a 81 ┆egmDescr; modificationDescr: ┆
0x1da0…1dc0 4d 6f 64 69 66 44 65 73 63 72 3b 00 00 1d 8b 6f 62 6a 65 63 74 52 65 66 44 65 73 63 72 3a 81 4f ┆ModifDescr; objectRefDescr: O┆
0x1dc0…1de0 62 6a 52 65 66 44 65 73 63 72 3b 00 00 01 20 00 00 3d 82 70 72 6f 63 65 64 75 72 65 81 47 65 74 ┆bjRefDescr; = procedure Get┆
0x1de0…1e00 4e 65 78 74 52 65 63 81 28 81 76 61 72 81 70 6f 73 3a 81 69 6e 74 65 67 65 72 3b 81 75 6e 69 76 ┆NextRec ( var pos: integer; univ┆
0x1e00…1e20 81 72 65 63 3a 81 62 75 66 50 74 72 81 29 3b 00 00 1a 84 62 65 67 69 6e 81 77 69 74 68 81 74 65 ┆ rec: bufPtr ); begin with te┆
0x1e20…1e40 6d 70 73 81 64 6f 81 62 65 67 69 6e 00 1e 86 77 69 74 68 81 64 81 3d 81 72 65 66 48 65 61 64 65 ┆mps do begin with d = refHeade┆
0x1e40…1e60 72 5e 5e 81 64 6f 81 62 65 67 69 6e 00 27 88 63 6f 70 79 42 79 74 65 73 28 64 5b 70 6f 73 2e 2e ┆r^^ do begin ' copyBytes(dÆpos..┆
0x1e60…1e80 65 6c 65 6d 65 6e 74 73 28 64 29 2d 31 5d 2c 81 72 65 63 29 3b 00 00 2e 7b 23 62 23 88 50 72 69 ┆elements(d)-1Å, rec); .æ#b# Pri┆
0x1e80…1ea0 6e 74 56 61 72 81 28 27 81 47 65 74 4e 65 78 74 52 65 63 83 52 65 63 3a 81 27 2c 81 72 65 63 81 ┆ntVar (' GetNextRec Rec: ', rec ┆
0x1ea0…1ec0 29 3b 23 65 23 7d 00 1c 88 70 6f 73 81 3a 3d 81 70 6f 73 81 2b 81 65 6c 65 6d 65 6e 74 73 28 72 ┆);#e#å pos := pos + elements(r┆
0x1ec0…1ee0 65 63 29 3b 00 1a 88 69 66 81 70 6f 73 81 3e 81 65 6c 65 6d 65 6e 74 73 28 64 29 81 74 68 65 6e ┆ec); if pos > elements(d) then┆
0x1ee0…1f00 00 23 89 45 78 63 65 70 74 69 6f 6e 28 4d 61 6b 65 52 65 73 75 6c 74 28 6f 62 6a 44 69 72 46 61 ┆ # Exception(MakeResult(objDirFa┆
0x1f00…1f20 6d 69 6c 79 2c 00 00 27 9e 2d 48 65 61 64 65 72 46 6f 72 6d 61 74 45 72 72 6f 72 2c 68 65 61 64 ┆mily, ' -HeaderFormatError,head┆
0x1f20…1f40 65 72 54 6f 6f 53 68 6f 72 74 2c 30 29 29 3b 00 00 05 86 65 6e 64 3b 00 00 14 84 65 6e 64 3b 81 ┆erTooShort,0)); end; end; ┆
0x1f40…1f60 7b 81 77 69 74 68 81 74 65 6d 70 73 81 7d 00 14 84 65 6e 64 3b 81 7b 81 47 65 74 4e 65 78 74 52 ┆æ with temps å end; æ GetNextR┆
0x1f60…1f80 65 63 81 7d 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 ┆ec å ┆
0x1f80…1fa0 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…]
0x2000…2020 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x17…]
0x2300…2320 00 01 20 00 00 25 82 70 72 6f 63 65 64 75 72 65 81 43 68 65 63 6b 49 6e 64 65 78 81 28 81 69 3a ┆ % procedure CheckIndex ( i:┆
0x2320…2340 81 69 6e 74 65 67 65 72 81 29 3b 00 00 06 84 62 65 67 69 6e 00 27 86 69 66 81 28 69 3c 31 29 81 ┆ integer ); begin ' if (i<1) ┆
0x2340…2360 6f 72 81 28 69 3e 68 50 72 65 66 69 78 2e 4e 6f 4c 6f 63 50 74 72 73 29 81 74 68 65 6e 00 00 44 ┆or (i>hPrefix.NoLocPtrs) then D┆
[…truncated at 200 lines…]