|
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: 23296 (0x5b00)
Names: »EFL1.H«
└─⟦e1c0a41a6⟧ Bits:30009789/_.ft.Ibm2.50007344.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EFL1.H«
0x0000…0020 00 01 20 00 00 34 8c 49 46 81 6c 6f 6f 6b 75 70 81 28 54 61 72 67 65 74 53 74 75 62 2c 73 69 64 ┆ 4 IF lookup (TargetStub,sid┆
0x0020…0040 2c 62 75 63 6b 65 74 2c 65 6e 74 72 79 4e 6f 2c 72 65 66 70 29 81 54 48 45 4e 00 06 8c 42 45 47 ┆,bucket,entryNo,refp) THEN BEG┆
0x0040…0060 49 4e 00 01 20 00 00 26 90 49 46 81 65 6e 74 72 79 4e 6f 2e 6b 69 6e 64 81 3c 3e 81 67 65 6e 65 ┆IN & IF entryNo.kind <> gene┆
0x0060…0080 72 61 6c 4f 62 6a 65 63 74 81 54 48 45 4e 00 3e 92 45 78 63 65 70 74 69 6f 6e 28 4d 61 6b 65 52 ┆ralObject THEN > Exception(MakeR┆
0x0080…00a0 65 73 75 6c 74 28 55 6e 69 76 65 72 73 61 6c 2c 2d 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 4e 6f ┆esult(Universal,-EntryIllegal,No┆
0x00a0…00c0 74 43 61 6c 6c 61 62 6c 65 2c 30 29 29 3b 00 42 86 7b 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ┆tCallable,0)); B æ!!!!!!!!!!!!!!┆
0x00c0…00e0 21 21 21 81 6f 72 64 65 72 81 6f 66 81 61 72 67 75 6d 65 6e 74 73 81 74 6f 81 69 6e 73 70 4f 62 ┆!!! order of arguments to inspOb┆
0x00e0…0100 6a 81 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 7d 00 2c 8e 4e 6f 43 68 65 63 6b 28 81 49 6e ┆j !!!!!!!!!!!!!!!å , NoCheck( In┆
0x0100…0120 73 70 4f 62 6a 81 28 54 61 72 67 65 74 53 74 75 62 2c 65 6e 76 2c 72 65 66 70 2c 69 29 81 29 3b ┆spObj (TargetStub,env,refp,i) );┆
0x0120…0140 00 18 8e 4e 6f 43 68 65 63 6b 28 81 41 62 6f 72 74 81 28 65 6e 76 29 81 29 3b 00 09 8c 45 4e 44 ┆ NoCheck( Abort (env) ); END┆
0x0140…0160 81 45 4c 53 45 00 00 01 20 00 00 3a 8d 45 78 63 65 70 74 69 6f 6e 28 4d 61 6b 65 52 65 73 75 6c ┆ ELSE : Exception(MakeResul┆
0x0160…0180 74 28 6f 62 6a 44 69 72 46 61 6d 69 6c 79 2c 2d 45 78 74 52 65 66 4e 6f 74 46 6f 75 6e 64 2c 81 ┆t(objDirFamily,-ExtRefNotFound, ┆
0x0180…01a0 30 2c 30 29 29 3b 00 2b 90 28 2a 81 6d 75 73 74 81 68 61 76 65 81 62 65 65 6e 81 64 65 6c 65 74 ┆0,0)); + (* must have been delet┆
0x01a0…01c0 65 64 81 62 65 74 77 65 65 6e 81 63 61 6c 6c 73 81 6f 66 00 00 1f 93 22 43 68 65 63 6b 4f 6c 64 ┆ed between calls of "CheckOld┆
0x01c0…01e0 4e 61 6d 65 22 81 61 6e 64 81 22 6c 6f 6f 6b 75 70 22 81 2a 29 00 00 18 84 45 4e 44 3b 81 28 2a ┆Name" and "lookup" *) END; (*┆
0x01e0…0200 2a 2a 81 41 62 6f 72 74 4f 62 6a 81 2a 2a 2a 29 00 07 84 28 2a 24 65 2a 29 00 00 40 70 72 69 76 ┆** AbortObj ***) (*$e*) @priv┆
0x0200…0220 61 74 65 20 74 65 72 6d 53 75 62 44 69 72 20 28 20 6f 62 6a 4f 77 6e 65 72 3a 72 65 66 3b 20 65 ┆ate termSubDir ( objOwner:ref; e┆
0x0220…0240 6e 76 3a 20 73 74 75 62 4c 6f 63 52 65 66 20 29 20 57 49 54 48 20 52 65 63 6f 72 64 00 08 8a 54 ┆nv: stubLocRef ) WITH Record T┆
0x0240…0260 31 3a 82 5e 5e 3b 00 1e 8a 54 61 72 67 65 74 42 75 63 6b 65 74 3a 82 5e 5e 42 75 63 6b 65 74 4c ┆1: ^^; TargetBucket: ^^BucketL┆
0x0260…0280 6f 63 61 6c 73 3b 00 05 8a 45 4e 44 3b 00 00 01 20 00 00 3a 88 28 2a 81 52 65 6d 6f 76 65 73 81 ┆ocals; END; : (* Removes ┆
0x0280…02a0 74 68 65 81 62 75 63 6b 65 74 81 65 6e 74 72 79 4e 6f 81 66 6f 72 81 61 81 73 74 75 62 81 62 65 ┆the bucket entryNo for a stub be┆
0x02a0…02c0 69 6e 67 81 64 65 6c 65 74 65 64 81 2a 29 00 01 20 00 00 1a 84 56 41 52 81 54 61 72 67 65 74 49 ┆ing deleted *) VAR TargetI┆
0x02c0…02e0 6e 64 65 78 3a 81 69 6e 74 65 67 65 72 3b 00 01 20 00 00 06 84 42 45 47 49 4e 00 26 88 7b 23 62 ┆ndex: integer; BEGIN & æ#b┆
0x02e0…0300 23 81 50 72 69 6e 74 54 65 78 74 81 28 27 81 74 65 72 6d 53 75 62 44 69 72 81 27 29 3b 81 23 65 ┆# PrintText (' termSubDir '); #e┆
0x0300…0320 23 7d 00 1e 88 57 49 54 48 81 64 81 3d 81 65 6e 76 5e 5e 2e 4c 6f 63 61 6c 44 61 74 61 5e 5e 81 ┆#å WITH d = env^^.LocalData^^ ┆
0x0320…0340 44 4f 00 1e 8a 74 61 72 67 65 74 49 6e 64 65 78 81 3a 3d 81 64 2e 4d 6f 74 68 65 72 49 6e 64 65 ┆DO targetIndex := d.MotherInde┆
0x0340…0360 78 3b 00 01 20 00 00 32 88 43 68 65 63 6b 81 28 81 43 6f 70 79 81 28 65 6e 76 5e 5e 2e 4d 6f 74 ┆x; 2 Check ( Copy (env^^.Mot┆
0x0360…0380 68 65 72 42 75 63 6b 65 74 2c 54 61 72 67 65 74 42 75 63 6b 65 74 29 81 29 3b 00 01 20 00 00 25 ┆herBucket,TargetBucket) ); %┆
0x0380…03a0 88 57 49 54 48 81 64 81 3d 81 54 61 72 67 65 74 42 75 63 6b 65 74 5e 5e 2e 45 6e 74 72 69 65 73 ┆ WITH d = TargetBucket^^.Entries┆
0x03a0…03c0 5e 5e 81 44 4f 00 00 22 8a 64 5b 54 61 72 67 65 74 49 6e 64 65 78 5d 2e 6b 69 6e 64 81 3a 3d 81 ┆^^ DO " dÆTargetIndexÅ.kind := ┆
0x03c0…03e0 46 72 65 65 45 6e 74 72 79 3b 00 01 20 00 00 1a 84 45 4e 44 3b 82 28 2a 2a 2a 81 74 65 72 6d 53 ┆FreeEntry; END; (*** termS┆
0x03e0…0400 75 62 44 69 72 81 2a 2a 2a 29 00 07 84 28 2a 24 65 2a 29 00 00 1b 65 6e 74 72 79 20 4e 65 77 53 ┆ubDir ***) (*$e*) entry NewS┆
0x0400…0420 75 62 44 69 72 20 57 49 54 48 20 52 65 63 6f 72 64 00 00 09 8a 54 31 3a 81 72 65 66 3b 00 00 21 ┆ubDir WITH Record T1: ref; !┆
0x0420…0440 8a 74 61 72 67 65 74 53 74 75 62 2c 81 53 74 75 62 45 6e 76 3a 81 73 74 75 62 4c 6f 63 52 65 66 ┆ targetStub, StubEnv: stubLocRef┆
0x0440…0460 3b 00 00 19 8a 74 61 72 67 65 74 42 75 63 6b 65 74 3a 81 62 75 63 6b 65 74 52 65 66 3b 00 00 19 ┆; targetBucket: bucketRef; ┆
0x0460…0480 8a 77 6f 72 6b 52 65 66 31 2c 81 77 6f 72 6b 52 65 66 32 3a 81 72 65 66 3b 00 00 05 8a 45 4e 44 ┆ workRef1, workRef2: ref; END┆
0x0480…04a0 3b 00 00 01 20 00 00 23 88 28 2a 81 4f 55 54 81 4f 62 6a 44 69 72 4f 77 6e 65 72 3a 81 4f 62 6a ┆; # (* OUT ObjDirOwner: Obj┆
0x04a0…04c0 44 69 72 52 65 66 54 79 70 65 3b 00 00 15 8b 49 4e 82 4e 61 6d 65 3a 81 73 68 6f 72 74 69 64 3b ┆DirRefType; IN Name: shortid;┆
0x04c0…04e0 81 2a 29 00 00 01 20 00 00 03 76 61 72 00 00 0d 82 73 69 64 3a 81 6e 61 6d 65 31 36 3b 00 00 10 ┆ *) var sid: name16; ┆
0x04e0…0500 82 73 69 7a 65 3a 81 73 69 7a 65 54 79 70 65 3b 00 19 82 69 2c 81 74 61 72 67 65 74 49 6e 64 65 ┆ size: sizeType; i, targetInde┆
0x0500…0520 78 3a 81 69 6e 74 65 67 65 72 3b 00 00 01 20 00 00 05 42 45 47 49 4e 00 00 21 7b 23 62 23 20 50 ┆x: integer; BEGIN !æ#b# P┆
0x0520…0540 72 69 6e 74 54 65 78 74 20 28 27 20 53 75 62 44 69 72 20 27 29 3b 20 23 65 23 7d 00 00 01 20 00 ┆rintText (' SubDir '); #e#å ┆
0x0540…0560 00 3c 84 43 68 65 63 6b 4e 65 77 4e 61 6d 65 81 28 81 6e 61 6d 65 2c 81 74 61 72 67 65 74 53 74 ┆ < CheckNewName ( name, targetSt┆
0x0560…0580 75 62 2c 81 73 69 64 2c 81 77 6f 72 6b 52 65 66 31 2c 81 77 6f 72 6b 52 65 66 32 81 29 3b 00 01 ┆ub, sid, workRef1, workRef2 ); ┆
0x0580…05a0 20 00 00 1b 84 4e 6f 43 68 65 63 6b 28 43 6c 65 61 72 53 69 7a 65 81 28 73 69 7a 65 29 29 3b 00 ┆ NoCheck(ClearSize (size)); ┆
0x05a0…05c0 00 2a 84 4e 6f 43 68 65 63 6b 28 41 64 64 47 65 6e 81 28 73 69 7a 65 2c 72 65 66 73 81 28 53 74 ┆ * NoCheck(AddGen (size,refs (St┆
0x05c0…05e0 75 62 4c 6f 63 61 6c 73 29 29 29 3b 00 2a 84 4e 6f 43 68 65 63 6b 28 41 64 64 53 65 67 81 28 73 ┆ubLocals))); * NoCheck(AddSeg (s┆
0x05e0…0600 69 7a 65 2c 81 62 79 74 65 73 81 28 53 74 75 62 44 61 74 61 29 29 29 3b 00 01 20 00 00 34 84 43 ┆ize, bytes (StubData))); 4 C┆
0x0600…0620 68 65 63 6b 81 28 81 41 6c 6c 6f 63 61 74 65 2e 4e 65 77 4f 62 6a 81 28 6f 62 6a 44 69 72 4f 77 ┆heck ( Allocate.NewObj (objDirOw┆
0x0620…0640 6e 65 72 3b 73 69 7a 65 2c 4f 55 54 81 69 81 29 29 3b 00 01 20 00 00 41 84 43 68 65 63 6b 81 28 ┆ner;size,OUT i )); A Check (┆
0x0640…0660 81 44 65 63 6c 47 65 6e 81 28 6f 62 6a 44 69 72 4f 77 6e 65 72 2c 53 75 62 53 74 75 62 73 2c 53 ┆ DeclGen (objDirOwner,SubStubs,S┆
0x0660…0680 74 75 62 45 6e 76 2c 72 65 66 73 81 28 53 74 75 62 4c 6f 63 61 6c 73 29 2c 00 00 35 8d 54 65 72 ┆tubEnv,refs (StubLocals), 5 Ter┆
0x0680…06a0 6d 53 75 62 44 69 72 2c 81 4d 61 6b 65 53 69 7a 65 28 30 2c 30 29 2c 4d 61 6b 65 53 69 7a 65 28 ┆mSubDir, MakeSize(0,0),MakeSize(┆
0x06a0…06c0 2d 31 2c 2d 31 29 2c 53 74 75 62 54 65 6d 70 73 2c 00 00 22 8d 53 74 75 62 53 74 61 63 6b 2c 30 ┆-1,-1),StubTemps, " StubStack,0┆
0x06c0…06e0 2c 61 64 64 72 81 28 73 74 75 62 69 6d 70 6c 65 6d 65 6e 74 29 2c 00 17 8d 4d 61 6b 65 53 69 7a ┆,addr (stubimplement), MakeSiz┆
0x06e0…0700 65 28 30 2c 30 29 2c 74 72 75 65 29 81 29 3b 00 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆e(0,0),true) ); ┆
0x0700…0720 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…]
0x0800…0820 00 38 84 43 68 65 63 6b 81 28 81 4e 65 77 53 65 67 81 28 53 74 75 62 45 6e 76 5e 5e 2e 4c 6f 63 ┆ 8 Check ( NewSeg (StubEnv^^.Loc┆
0x0820…0840 61 6c 44 61 74 61 2c 62 79 74 65 73 28 81 53 74 75 62 44 61 74 61 29 29 29 3b 00 01 20 00 00 25 ┆alData,bytes( StubData))); %┆
0x0840…0860 84 43 68 65 63 6b 81 28 81 43 6f 70 79 81 28 63 6f 64 65 2c 53 74 75 62 45 6e 76 5e 5e 2e 63 6f ┆ Check ( Copy (code,StubEnv^^.co┆
0x0860…0880 64 65 29 29 3b 00 00 2d 84 43 68 65 63 6b 81 28 81 43 6f 70 79 81 28 41 6c 6c 6f 63 61 74 65 2c ┆de)); - Check ( Copy (Allocate,┆
0x0880…08a0 53 74 75 62 45 6e 76 5e 5e 2e 41 6c 6c 6f 63 61 74 65 29 29 3b 00 00 2f 84 43 68 65 63 6b 81 28 ┆StubEnv^^.Allocate)); / Check (┆
0x08a0…08c0 81 43 6f 70 79 81 28 53 63 68 65 64 75 6c 65 72 2c 53 74 75 62 45 6e 76 5e 5e 2e 53 63 68 65 64 ┆ Copy (Scheduler,StubEnv^^.Sched┆
0x08c0…08e0 75 6c 65 72 29 29 3b 00 00 2d 84 43 68 65 63 6b 81 28 81 43 6f 70 79 81 28 52 6f 6f 74 53 74 75 ┆uler)); - Check ( Copy (RootStu┆
0x08e0…0900 62 2c 53 74 75 62 45 6e 76 5e 5e 2e 52 6f 6f 74 53 74 75 62 29 29 3b 00 00 2a 84 43 68 65 63 6b ┆b,StubEnv^^.RootStub)); * Check┆
0x0900…0920 81 28 81 43 6f 70 79 81 28 53 74 75 62 45 6e 76 2c 53 74 75 62 45 6e 76 5e 5e 2e 45 67 6f 45 6e ┆ ( Copy (StubEnv,StubEnv^^.EgoEn┆
0x0920…0940 76 29 29 3b 00 2b 84 43 68 65 63 6b 81 28 81 43 6f 70 79 81 28 4f 62 6a 44 69 72 4f 77 6e 65 72 ┆v)); + Check ( Copy (ObjDirOwner┆
0x0940…0960 2c 53 74 75 62 45 6e 76 5e 5e 2e 45 67 6f 29 29 3b 00 00 31 84 43 68 65 63 6b 81 28 81 43 6f 70 ┆,StubEnv^^.Ego)); 1 Check ( Cop┆
0x0960…0980 79 81 28 74 61 72 67 65 74 53 74 75 62 2c 53 74 75 62 45 6e 76 5e 5e 2e 4d 6f 74 68 65 72 53 74 ┆y (targetStub,StubEnv^^.MotherSt┆
0x0980…09a0 75 62 29 29 3b 00 00 01 20 00 00 34 84 43 68 65 63 6b 81 28 81 53 63 68 65 64 75 6c 65 72 2e 4e ┆ub)); 4 Check ( Scheduler.N┆
0x09a0…09c0 65 77 47 61 74 65 81 28 4f 55 54 81 53 74 75 62 45 6e 76 5e 5e 2e 44 69 72 47 61 74 65 29 29 3b ┆ewGate (OUT StubEnv^^.DirGate));┆
0x09c0…09e0 00 01 20 00 00 36 84 47 6c 6f 62 61 6c 49 6e 73 65 72 74 50 74 72 82 28 53 74 75 62 45 6e 76 2c ┆ 6 GlobalInsertPtr (StubEnv,┆
0x09e0…0a00 4f 62 6a 44 69 72 4e 61 6d 65 2c 4f 62 6a 44 69 72 4f 77 6e 65 72 2c 74 72 75 65 2c 00 19 96 74 ┆ObjDirName,ObjDirOwner,true, t┆
0x0a00…0a20 61 72 67 65 74 42 75 63 6b 65 74 81 7b 77 6f 72 6b 4b 70 7d 81 29 3b 00 00 01 20 00 00 25 84 43 ┆argetBucket æworkKpå ); % C┆
0x0a20…0a40 68 65 63 6b 81 28 81 4d 61 6b 65 52 65 65 6e 74 72 61 6e 74 81 28 81 53 74 75 62 45 6e 76 81 29 ┆heck ( MakeReentrant ( StubEnv )┆
0x0a40…0a60 81 29 3b 00 00 01 20 00 00 19 84 28 2a 81 69 6e 73 65 72 74 81 62 75 63 6b 65 74 45 6e 74 72 79 ┆ ); (* insert bucketEntry┆
0x0a60…0a80 81 2a 29 00 00 01 20 00 00 44 84 49 46 81 4e 4f 54 81 4f 63 63 75 70 79 46 72 65 65 81 28 74 61 ┆ *) D IF NOT OccupyFree (ta┆
0x0a80…0aa0 72 67 65 74 53 74 75 62 2c 81 73 69 64 2c 81 54 61 72 67 65 74 42 75 63 6b 65 74 2c 81 54 61 72 ┆rgetStub, sid, TargetBucket, Tar┆
0x0aa0…0ac0 67 65 74 49 6e 64 65 78 29 81 54 48 45 4e 00 3d 86 45 78 63 65 70 74 69 6f 6e 28 4d 61 6b 65 52 ┆getIndex) THEN = Exception(MakeR┆
0x0ac0…0ae0 65 73 75 6c 74 28 55 6e 69 76 65 72 73 61 6c 2c 2d 4e 6f 52 65 73 6f 75 72 63 65 73 2c 81 4e 6f ┆esult(Universal,-NoResources, No┆
0x0ae0…0b00 42 75 63 6b 65 74 73 2c 30 29 81 29 3b 00 00 01 20 00 00 3a 84 57 49 54 48 81 64 81 3d 81 54 61 ┆Buckets,0) ); : WITH d = Ta┆
0x0b00…0b20 72 67 65 74 42 75 63 6b 65 74 5e 5e 2e 45 6e 74 72 69 65 73 5e 5e 2c 81 65 81 3d 81 64 81 5b 54 ┆rgetBucket^^.Entries^^, e = d ÆT┆
0x0b20…0b40 61 72 67 65 74 49 6e 64 65 78 5d 81 44 4f 00 06 84 42 45 47 49 4e 00 01 20 00 00 0f 86 65 2e 4e ┆argetIndexÅ DO BEGIN e.N┆
0x0b40…0b60 61 6d 65 81 3a 3d 81 73 69 64 3b 00 00 18 86 65 2e 49 6e 64 65 78 81 3a 3d 81 54 61 72 67 65 74 ┆ame := sid; e.Index := Target┆
0x0b60…0b80 49 6e 64 65 78 3b 00 15 86 65 2e 4e 6f 50 72 6f 74 65 63 74 81 3a 3d 81 74 72 75 65 3b 00 00 01 ┆Index; e.NoProtect := true; ┆
0x0b80…0ba0 20 00 00 34 86 28 2a 81 65 2e 6b 69 6e 64 81 69 73 81 6e 6f 74 81 74 6f 75 63 68 65 64 3a 81 69 ┆ 4 (* e.kind is not touched: i┆
0x0ba0…0bc0 74 81 69 73 81 22 4c 6f 63 6b 65 64 45 6e 74 72 79 22 81 75 6e 74 69 6c 00 0b 89 66 75 72 74 68 ┆t is "LockedEntry" until furth┆
0x0bc0…0be0 65 72 81 2a 29 00 00 01 20 00 00 05 84 45 4e 44 3b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆er *) END; ┆
0x0be0…0c00 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 ┆ ┆
0x0c00…0c20 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 ┆ ┆
[…0x1f…]
0x1000…1020 00 01 20 00 00 22 84 57 49 54 48 81 6e 65 77 81 3d 81 53 74 75 62 45 6e 76 5e 5e 2e 4c 6f 63 61 ┆ " WITH new = StubEnv^^.Loca┆
0x1020…1040 6c 44 61 74 61 5e 5e 2c 00 28 86 6f 6c 64 81 3d 81 74 61 72 67 65 74 53 74 75 62 5e 5e 2e 4c 6f ┆lData^^, ( old = targetStub^^.Lo┆
0x1040…1060 63 61 6c 44 61 74 61 5e 5e 81 44 4f 81 42 45 47 49 4e 00 20 86 6e 65 77 2e 4d 6f 74 68 65 72 49 ┆calData^^ DO BEGIN new.MotherI┆
0x1060…1080 6e 64 65 78 81 3a 3d 81 74 61 72 67 65 74 49 6e 64 65 78 3b 00 2f 86 63 6f 6e 63 61 74 4e 61 6d ┆ndex := targetIndex; / concatNam┆
0x1080…10a0 65 73 28 6f 6c 64 2e 73 74 75 62 4e 61 6d 65 2c 81 6e 61 6d 65 2c 81 6e 65 77 2e 73 74 75 62 4e ┆es(old.stubName, name, new.stubN┆
0x10a0…10c0 61 6d 65 29 3b 00 00 05 84 45 4e 44 3b 00 00 01 20 00 00 34 84 43 68 65 63 6b 28 81 43 6f 70 79 ┆ame); END; 4 Check( Copy┆
0x10c0…10e0 81 28 74 61 72 67 65 74 42 75 63 6b 65 74 2c 53 74 75 62 45 6e 76 5e 5e 2e 4d 6f 74 68 65 72 42 ┆ (targetBucket,StubEnv^^.MotherB┆
0x10e0…1100 75 63 6b 65 74 29 29 3b 00 39 84 43 68 65 63 6b 28 81 43 6f 70 79 81 28 53 74 75 62 45 6e 76 2c ┆ucket)); 9 Check( Copy (StubEnv,┆
0x1100…1120 74 61 72 67 65 74 42 75 63 6b 65 74 5e 5e 2e 50 74 72 73 5b 74 61 72 67 65 74 49 6e 64 65 78 5d ┆targetBucket^^.PtrsÆtargetIndexÅ┆
0x1120…1140 29 29 3b 00 00 01 20 00 00 21 83 28 2a 81 4d 61 6b 65 81 62 75 63 6b 65 74 81 65 6e 74 72 79 4e ┆)); ! (* Make bucket entryN┆
0x1140…1160 6f 81 70 75 62 6c 69 63 81 2a 29 00 00 01 20 00 00 24 84 43 68 65 63 6b 28 81 74 61 72 67 65 74 ┆o public *) $ Check( target┆
0x1160…1180 53 74 75 62 5e 5e 2e 44 69 72 47 61 74 65 2e 4c 6f 63 6b 81 29 3b 00 01 20 00 00 3a 84 57 49 54 ┆Stub^^.DirGate.Lock ); : WIT┆
0x1180…11a0 48 81 64 81 3d 81 74 61 72 67 65 74 42 75 63 6b 65 74 5e 5e 2e 45 6e 74 72 69 65 73 5e 5e 2c 81 ┆H d = targetBucket^^.Entries^^, ┆
0x11a0…11c0 65 81 3d 81 64 81 5b 54 61 72 67 65 74 49 6e 64 65 78 5d 81 44 4f 00 12 86 65 2e 6b 69 6e 64 81 ┆e = d ÆTargetIndexÅ DO e.kind ┆
0x11c0…11e0 3a 3d 81 73 75 62 44 69 72 3b 00 01 20 00 00 24 84 43 68 65 63 6b 28 81 74 61 72 67 65 74 53 74 ┆:= subDir; $ Check( targetSt┆
0x11e0…1200 75 62 5e 5e 2e 44 69 72 47 61 74 65 2e 6f 70 65 6e 81 29 3b 00 01 20 00 00 15 45 4e 44 3b 82 28 ┆ub^^.DirGate.open ); END; (┆
0x1200…1220 2a 2a 2a 81 53 75 62 44 69 72 81 2a 2a 2a 29 00 00 07 84 28 2a 24 65 2a 29 00 00 2a 65 6e 74 72 ┆*** SubDir ***) (*$e*) *entr┆
0x1220…1240 79 81 47 65 74 44 69 72 4e 61 6d 65 81 57 49 54 48 81 52 65 63 6f 72 64 82 54 31 3a 81 72 65 66 ┆y GetDirName WITH Record T1: ref┆
0x1240…1260 3b 82 45 4e 44 3b 00 01 20 00 00 22 88 28 2a 81 4f 55 54 81 4e 61 6d 65 3a 81 46 75 6c 6c 69 64 ┆; END; " (* OUT Name: Fullid┆
0x1260…1280 82 28 63 6f 6d 70 6c 65 74 65 29 81 2a 29 00 01 20 00 00 06 84 42 45 47 49 4e 00 24 7b 23 62 23 ┆ (complete) *) BEGIN $æ#b#┆
0x1280…12a0 88 50 72 69 6e 74 54 65 78 74 81 28 27 81 47 65 74 44 69 72 4e 61 6d 65 81 27 29 3b 23 65 23 7d ┆ PrintText (' GetDirName ');#e#å┆
0x12a0…12c0 00 1e 88 57 49 54 48 81 64 81 3d 81 4c 6f 63 61 6c 44 61 74 61 5e 5e 81 44 4f 81 62 65 67 69 6e ┆ WITH d = LocalData^^ DO begin┆
0x12c0…12e0 00 18 8a 46 69 6c 6c 42 79 74 65 73 81 28 27 81 27 2c 81 6e 61 6d 65 81 29 3b 00 1f 8a 43 6f 70 ┆ FillBytes (' ', name ); Cop┆
0x12e0…1300 79 42 79 74 65 73 81 28 64 2e 53 74 75 62 4e 61 6d 65 2c 81 6e 61 6d 65 81 29 3b 00 00 05 88 65 ┆yBytes (d.StubName, name ); e┆
0x1300…1320 6e 64 3b 00 00 01 20 00 00 1b 84 45 4e 44 3b 81 28 2a 2a 2a 81 47 65 74 53 74 75 62 4e 61 6d 65 ┆nd; END; (*** GetStubName┆
0x1320…1340 81 2a 2a 2a 29 00 00 01 20 00 00 01 20 00 00 07 84 28 2a 24 65 2a 29 00 00 00 00 00 00 00 00 00 ┆ ***) (*$e*) ┆
0x1340…1360 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…]
0x1400…1420 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 ┆ ┆
[…0x1f…]
0x1800…1820 00 1e 65 6e 74 72 79 20 49 6e 69 74 49 74 65 6d 53 63 61 6e 20 57 49 54 48 20 52 65 63 6f 72 64 ┆ entry InitItemScan WITH Record┆
0x1820…1840 00 09 8c 54 31 3a 81 72 65 66 3b 00 00 11 8c 45 6e 76 3a 81 73 63 61 6e 4c 6f 63 52 65 66 3b 00 ┆ T1: ref; Env: scanLocRef; ┆
0x1840…1860 00 05 8c 45 4e 44 3b 00 00 01 20 00 00 22 88 28 2a 81 4f 55 54 81 53 63 61 6e 4f 77 6e 65 72 3a ┆ END; " (* OUT ScanOwner:┆
0x1860…1880 81 49 53 63 61 6e 52 65 66 54 79 70 65 87 2a 29 00 04 84 56 41 52 00 10 88 73 69 7a 65 3a 81 53 ┆ IScanRefType *) VAR size: S┆
0x1880…18a0 69 7a 65 54 79 70 65 3b 00 0c 88 69 3a 81 69 6e 74 65 67 65 72 3b 00 06 84 42 45 47 49 4e 00 23 ┆izeType; i: integer; BEGIN #┆
0x18a0…18c0 7b 23 62 23 20 50 72 69 6e 74 54 65 78 74 20 28 27 20 49 6e 69 74 73 63 61 6e 20 27 29 3b 20 23 ┆æ#b# PrintText (' Initscan '); #┆
0x18c0…18e0 65 23 7d 00 00 01 20 00 00 44 88 4e 6f 43 68 65 63 6b 28 44 65 61 6c 6c 6f 63 28 62 6f 6f 74 50 ┆e#å D NoCheck(Dealloc(bootP┆
0x18e0…1900 72 6f 63 2c 62 6f 6f 74 50 72 6f 63 29 29 3b 81 7b 72 65 6d 6f 76 65 81 62 6f 6f 74 70 72 6f 63 ┆roc,bootProc)); æremove bootproc┆
0x1900…1920 2c 81 69 66 81 70 6f 73 73 69 62 6c 65 7d 00 01 20 00 00 1a 88 4e 6f 43 68 65 63 6b 28 43 6c 65 ┆, if possibleå NoCheck(Cle┆
0x1920…1940 61 72 53 69 7a 65 28 73 69 7a 65 29 29 3b 00 2b 88 4e 6f 43 68 65 63 6b 28 41 64 64 47 65 6e 81 ┆arSize(size)); + NoCheck(AddGen ┆
0x1940…1960 28 73 69 7a 65 2c 81 72 65 66 73 81 28 53 63 61 6e 4c 6f 63 61 6c 73 29 29 29 3b 00 00 2d 88 4e ┆(size, refs (ScanLocals))); - N┆
0x1960…1980 6f 43 68 65 63 6b 28 41 64 64 45 6d 62 53 65 67 81 28 73 69 7a 65 2c 81 62 79 74 65 73 81 28 73 ┆oCheck(AddEmbSeg (size, bytes (s┆
0x1980…19a0 63 61 6e 44 61 74 61 29 29 29 3b 00 00 01 20 00 00 33 88 53 74 6f 70 43 68 65 63 6b 28 41 6c 6c ┆canData))); 3 StopCheck(All┆
0x19a0…19c0 6f 63 61 74 65 2e 4e 65 77 4f 62 6a 28 53 63 61 6e 4f 77 6e 65 72 3b 73 69 7a 65 2c 81 4f 55 54 ┆ocate.NewObj(ScanOwner;size, OUT┆
0x19c0…19e0 81 69 29 29 3b 00 00 01 20 00 00 38 88 43 68 65 63 6b 28 44 65 63 6c 47 65 6e 81 28 53 63 61 6e ┆ i)); 8 Check(DeclGen (Scan┆
0x19e0…1a00 4f 77 6e 65 72 2c 53 63 61 6e 53 65 74 2c 65 6e 76 2c 72 65 66 73 81 28 53 63 61 6e 4c 6f 63 61 ┆Owner,ScanSet,env,refs (ScanLoca┆
0x1a00…1a20 6c 73 29 2c 00 21 97 30 2c 6d 61 6b 65 53 69 7a 65 28 30 2c 30 29 2c 6d 61 6b 65 53 69 7a 65 28 ┆ls), ! 0,makeSize(0,0),makeSize(┆
0x1a20…1a40 2d 31 2c 2d 31 29 2c 00 00 2c 97 72 65 66 73 81 28 53 63 61 6e 69 6d 70 6c 65 6d 65 6e 74 29 2c ┆-1,-1), , refs (Scanimplement),┆
0x1a40…1a60 81 62 79 74 65 73 28 53 63 61 6e 49 6d 70 6c 65 6d 65 6e 74 29 2c 00 2d 97 30 2c 61 64 64 72 28 ┆ bytes(ScanImplement), - 0,addr(┆
0x1a60…1a80 53 63 61 6e 49 6d 70 6c 65 6d 65 6e 74 29 2c 6d 61 6b 65 53 69 7a 65 28 30 2c 30 29 2c 74 72 75 ┆ScanImplement),makeSize(0,0),tru┆
0x1a80…1aa0 65 81 29 29 3b 00 00 2e 88 43 68 65 63 6b 28 4e 65 77 53 65 67 81 28 65 6e 76 5e 5e 2e 44 61 74 ┆e )); . Check(NewSeg (env^^.Dat┆
0x1aa0…1ac0 61 2c 62 79 74 65 73 28 73 63 61 6e 44 61 74 61 29 81 29 81 29 3b 00 27 88 43 68 65 63 6b 28 43 ┆a,bytes(scanData) ) ); ' Check(C┆
0x1ac0…1ae0 6f 70 79 81 28 45 67 6f 45 6e 76 2c 65 6e 76 5e 5e 2e 4d 6f 74 68 65 72 53 74 75 62 29 29 3b 00 ┆opy (EgoEnv,env^^.MotherStub)); ┆
0x1ae0…1b00 00 22 88 43 68 65 63 6b 28 43 6f 70 79 81 28 63 6f 64 65 2c 81 65 6e 76 5e 5e 2e 63 6f 64 65 81 ┆ " Check(Copy (code, env^^.code ┆
0x1b00…1b20 29 81 29 3b 00 03 88 69 6e 00 00 33 8a 53 74 6f 70 43 68 65 63 6b 28 81 46 69 72 73 74 49 6e 53 ┆) ); in 3 StopCheck( FirstInS┆
0x1b20…1b40 65 74 81 28 42 75 63 6b 65 74 73 2c 65 6e 76 5e 5e 2e 63 75 72 72 42 75 63 6b 65 74 29 29 3b 00 ┆et (Buckets,env^^.currBucket)); ┆
0x1b40…1b60 00 03 88 64 6f 00 00 39 8a 6f 62 6a 52 65 74 75 72 6e 28 4d 61 6b 65 52 65 73 75 6c 74 28 6f 62 ┆ do 9 objReturn(MakeResult(ob┆
0x1b60…1b80 6a 44 69 72 46 61 6d 69 6c 79 2c 2d 45 78 74 52 65 66 4e 6f 74 46 6f 75 6e 64 2c 30 2c 30 29 29 ┆jDirFamily,-ExtRefNotFound,0,0))┆
0x1b80…1ba0 3b 00 00 01 20 00 00 21 88 77 69 74 68 81 65 6e 76 5e 5e 2e 64 61 74 61 5e 5e 81 64 6f 81 6c 61 ┆; ! with env^^.data^^ do la┆
0x1ba0…1bc0 73 74 49 81 3a 3d 81 30 3b 00 00 01 20 00 00 18 84 45 4e 44 3b 82 28 2a 2a 2a 81 49 6e 69 74 53 ┆stI := 0; END; (*** InitS┆
0x1bc0…1be0 63 61 6e 81 2a 2a 2a 29 00 01 20 00 00 42 7b 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆can ***) BæØØØØØØØØØØØØØØØØØ┆
0x1be0…1c00 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 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x1c00…1c20 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 00 1a 83 65 6e 74 72 79 86 50 52 4f 43 45 44 55 ┆ØØØØØØØØØØØØØØØØ entry PROCEDU┆
0x1c20…1c40 52 45 81 55 73 65 41 6c 6c 6f 63 3b 00 01 20 00 00 19 88 28 2a 81 49 4e 81 41 6c 6c 6f 63 50 74 ┆RE UseAlloc; (* IN AllocPt┆
0x1c40…1c60 72 3a 81 5e 5e 41 6c 6c 6f 63 3b 00 00 18 8b 49 4e 81 49 64 65 6e 74 50 74 72 3a 81 5e 5e 49 64 ┆r: ^^Alloc; IN IdentPtr: ^^Id┆
0x1c60…1c80 65 6e 74 81 2a 29 00 18 84 56 41 52 81 52 65 73 75 6c 74 3a 81 52 65 73 75 6c 74 54 79 70 65 3b ┆ent *) VAR Result: ResultType;┆
0x1c80…1ca0 00 01 20 00 00 06 84 42 45 47 49 4e 00 1b 88 50 72 69 6e 74 54 65 78 74 81 28 27 81 55 73 65 81 ┆ BEGIN PrintText (' Use ┆
0x1ca0…1cc0 61 6c 6c 6f 63 81 27 29 3b 00 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆alloc '); ┆
0x1cc0…1ce0 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…]
0x1d00…1d20 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…]
0x2000…2020 00 00 00 00 00 00 02 bd 03 00 00 00 03 a6 00 2e 05 00 00 00 03 af 00 45 07 00 00 00 03 b7 00 23 ┆ . E #┆
0x2020…2040 04 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 ┆ ┆
0x2040…2060 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…]
0x2100…2120 00 28 88 49 46 81 4e 4f 54 81 53 61 6d 65 45 6e 74 69 74 79 28 49 64 65 6e 74 4f 62 6a 81 2c 81 ┆ ( IF NOT SameEntity(IdentObj , ┆
0x2120…2140 76 6f 69 64 29 81 54 48 45 4e 00 06 88 42 45 47 49 4e 00 38 8b 53 65 74 52 65 73 75 6c 74 81 28 ┆void) THEN BEGIN 8 SetResult (┆
0x2140…2160 52 65 73 75 6c 74 2c 52 65 6a 65 63 74 65 64 2c 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 55 6e 69 ┆Result,Rejected,EntryIllegal,Uni┆
0x2160…2180 76 65 72 73 61 6c 2c 30 2c 30 29 3b 00 19 8b 4f 62 6a 52 65 74 75 72 6e 28 47 65 74 45 78 63 65 ┆versal,0,0); ObjReturn(GetExce┆
0x2180…21a0 70 74 69 6f 6e 29 3b 00 00 05 88 45 4e 44 3b 00 00 2a 88 49 46 81 4e 4f 54 81 53 61 6d 65 45 6e ┆ption); END; * IF NOT SameEn┆
0x21a0…21c0 74 69 74 79 28 52 6f 6f 74 53 74 75 62 81 2c 81 45 67 6f 45 6e 76 29 81 54 48 45 4e 00 06 88 42 ┆tity(RootStub , EgoEnv) THEN B┆
0x21c0…21e0 45 47 49 4e 00 38 8b 53 65 74 52 65 73 75 6c 74 81 28 52 65 73 75 6c 74 2c 52 65 6a 65 63 74 65 ┆EGIN 8 SetResult (Result,Rejecte┆
0x21e0…2200 64 2c 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 55 6e 69 76 65 72 73 61 6c 2c 30 2c 30 29 3b 00 19 ┆d,EntryIllegal,Universal,0,0); ┆
0x2200…2220 8b 4f 62 6a 52 65 74 75 72 6e 28 47 65 74 45 78 63 65 70 74 69 6f 6e 29 3b 00 00 05 88 45 4e 44 ┆ ObjReturn(GetException); END┆
0x2220…2240 3b 00 00 24 88 52 65 73 75 6c 74 3a 3d 81 43 6f 70 79 81 28 81 41 6c 6c 6f 63 50 74 72 2c 41 6c ┆; $ Result:= Copy ( AllocPtr,Al┆
0x2240…2260 6c 6f 63 61 74 65 29 3b 00 01 20 00 00 25 88 52 65 73 75 6c 74 3a 3d 81 43 6f 70 79 81 28 81 49 ┆locate); % Result:= Copy ( I┆
0x2260…2280 64 65 6e 74 50 74 72 2c 81 49 64 65 6e 74 4f 62 6a 29 3b 00 00 1a 88 4f 62 6a 52 65 74 75 72 6e ┆dentPtr, IdentObj); ObjReturn┆
0x2280…22a0 81 28 47 65 74 45 78 63 65 70 74 69 6f 6e 29 3b 00 01 20 00 00 18 84 45 4e 44 3b 82 28 2a 2a 2a ┆ (GetException); END; (***┆
0x22a0…22c0 81 55 73 65 41 6c 6c 6f 63 81 2a 2a 2a 29 00 01 20 00 00 01 20 00 00 01 20 00 00 01 20 00 00 01 ┆ UseAlloc ***) ┆
0x22c0…22e0 20 00 00 1e 83 65 6e 74 72 79 86 50 52 4f 43 45 44 55 52 45 81 55 73 65 81 53 65 63 75 72 69 74 ┆ entry PROCEDURE Use Securit┆
0x22e0…2300 79 3b 00 01 20 00 00 22 88 28 2a 81 49 4e 81 53 65 63 75 72 69 74 79 50 74 72 3a 81 5e 5e 53 65 ┆y; " (* IN SecurityPtr: ^^Se┆
0x2300…2320 63 75 72 69 74 79 53 79 73 3b 00 20 8b 49 4e 81 53 79 73 74 65 6d 4d 61 6e 50 74 72 3a 81 5e 5e ┆curitySys; IN SystemManPtr: ^^┆
0x2320…2340 53 79 73 74 65 6d 4d 61 6e 81 2a 29 00 01 20 00 00 18 84 56 41 52 81 52 65 73 75 6c 74 3a 81 52 ┆SystemMan *) VAR Result: R┆
0x2340…2360 65 73 75 6c 74 54 79 70 65 3b 00 01 20 00 00 06 84 42 45 47 49 4e 00 1e 88 50 72 69 6e 74 54 65 ┆esultType; BEGIN PrintTe┆
0x2360…2380 78 74 81 28 27 81 55 73 65 81 53 65 63 75 72 69 74 79 81 27 29 3b 00 33 88 49 46 81 4e 4f 54 81 ┆xt (' Use Security '); 3 IF NOT ┆
0x2380…23a0 53 65 63 75 72 69 74 79 81 3a 3d 81 76 6f 69 64 81 54 48 45 4e 81 52 65 74 75 72 6e 81 28 43 61 ┆Security := void THEN Return (Ca┆
0x23a0…23c0 6c 6c 65 64 81 4f 6e 63 65 29 3b 00 00 31 88 49 46 81 4e 4f 54 81 52 6f 6f 74 53 74 75 62 81 3a ┆lled Once); 1 IF NOT RootStub :┆
0x23c0…23e0 3d 81 45 67 6f 45 6e 76 81 54 48 45 4e 81 52 65 74 75 72 6e 81 28 4e 6f 74 52 6f 6f 74 29 3b 00 ┆= EgoEnv THEN Return (NotRoot); ┆
0x23e0…2400 00 27 88 52 65 73 75 6c 74 3a 3d 81 43 6f 70 79 81 28 81 53 65 63 75 72 69 74 79 50 74 72 2c 53 ┆ ' Result:= Copy ( SecurityPtr,S┆
0x2400…2420 65 63 75 72 69 74 79 29 3b 00 00 01 20 00 00 27 88 52 65 73 75 6c 74 3a 3d 81 43 6f 70 79 81 28 ┆ecurity); ' Result:= Copy (┆
0x2420…2440 81 53 79 73 74 65 6d 4d 61 6e 50 74 72 2c 53 79 73 74 4d 61 6e 29 3b 00 00 1a 88 4f 62 6a 52 65 ┆ SystemManPtr,SystMan); ObjRe┆
0x2440…2460 74 75 72 6e 81 28 47 65 74 45 78 63 65 70 74 69 6f 6e 29 3b 00 1c 84 45 4e 44 3b 82 28 2a 2a 2a ┆turn (GetException); END; (***┆
0x2460…2480 81 55 73 65 81 53 65 63 75 72 69 74 79 81 2a 2a 2a 29 00 3c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ Use Security ***) <ØØØØØØØØØØØØ┆
0x2480…24a0 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 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x24a0…24c0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 7d 00 01 20 00 00 07 84 28 2a 24 65 2a 29 00 00 1c ┆ØØØØØØØØØØØØØØØå (*$e*) ┆
0x24c0…24e0 65 6e 74 72 79 20 53 70 65 65 64 55 70 4f 62 6a 20 57 49 54 48 20 52 65 63 6f 72 64 00 09 8c 54 ┆entry SpeedUpObj WITH Record T┆
0x24e0…2500 31 3a 81 72 65 66 3b 00 00 18 8c 54 61 72 67 65 74 53 74 75 62 3a 81 73 74 75 62 4c 6f 63 52 65 ┆1: ref; TargetStub: stubLocRe┆
0x2500…2520 66 3b 00 13 8c 42 75 63 6b 65 74 3a 81 62 75 63 6b 65 74 52 65 66 3b 00 00 0b 8c 72 65 66 70 3a ┆f; Bucket: bucketRef; refp:┆
[…truncated at 200 lines…]