|
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.G«
└─⟦e1c0a41a6⟧ Bits:30009789/_.ft.Ibm2.50007344.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EFL1.G«
0x0000…0020 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 ┆ ┆
[…0xf…]
0x0200…0220 00 24 8c 73 42 65 67 81 3a 3d 81 6c 6f 61 64 53 65 63 74 44 65 73 63 72 2e 72 65 6c 53 74 61 72 ┆ $ sBeg := loadSectDescr.relStar┆
0x0220…0240 74 41 64 64 72 3b 00 3b 8c 73 45 6e 64 81 3a 3d 81 6c 6f 61 64 53 65 63 74 44 65 73 63 72 2e 72 ┆tAddr; ; sEnd := loadSectDescr.r┆
0x0240…0260 65 6c 53 74 61 72 74 41 64 64 72 2b 6c 6f 61 64 53 65 63 74 44 65 73 63 72 2e 6c 65 6e 67 74 68 ┆elStartAddr+loadSectDescr.length┆
0x0260…0280 2d 31 3b 00 00 34 8c 43 68 65 63 6b 28 66 61 6f 4f 62 6a 2e 52 65 61 64 53 65 71 28 76 61 72 81 ┆-1; 4 Check(faoObj.ReadSeq(var ┆
0x0280…02a0 69 6e 81 6f 75 74 81 73 65 67 6d 5e 5e 5b 73 42 65 67 2e 2e 73 45 6e 64 5d 3b 00 0d ad 4f 55 54 ┆in out segm^^ÆsBeg..sEndÅ; OUT┆
0x02a0…02c0 81 75 73 65 64 29 81 29 3b 00 00 01 20 00 00 3e 7b 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ┆ used) ); >æ!!!!!!!!!!!!!!!┆
0x02c0…02e0 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ┆!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!┆
0x02e0…0300 21 21 21 21 21 21 21 21 21 21 21 21 21 21 00 42 8c 43 68 65 63 6b 28 66 61 6f 4f 62 6a 2e 52 65 ┆!!!!!!!!!!!!!! B Check(faoObj.Re┆
0x0300…0320 61 64 53 65 71 28 76 61 72 81 69 6e 81 6f 75 74 81 73 65 67 6d 5e 5e 5b 6c 6f 61 64 53 65 63 74 ┆adSeq(var in out segm^^ÆloadSect┆
0x0320…0340 44 65 73 63 72 2e 72 65 6c 53 74 61 72 74 41 64 64 72 00 1e ab 2e 2e 6c 6f 61 64 53 65 63 74 44 ┆Descr.relStartAddr ..loadSectD┆
0x0340…0360 65 73 63 72 2e 72 65 6c 53 74 61 72 74 41 64 64 72 2b 00 1a ad 6c 6f 61 64 53 65 63 74 44 65 73 ┆escr.relStartAddr+ loadSectDes┆
0x0360…0380 63 72 2e 6c 65 6e 67 74 68 81 2d 31 5d 3b 00 0d ad 4f 55 54 81 75 73 65 64 29 81 29 3b 00 00 42 ┆cr.length -1Å; OUT used) ); B┆
0x0380…03a0 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ┆!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!┆
[…0x1…]
0x03c0…03e0 21 7d 00 05 88 45 4e 44 3b 00 00 14 84 45 4e 44 3b 82 28 2a 81 66 72 6f 6d 46 69 6c 65 81 2a 29 ┆!å END; END; (* fromFile *)┆
0x03e0…0400 00 01 20 00 00 0c 84 66 72 6f 6d 4c 6f 61 64 65 64 3a 00 06 88 42 45 47 49 4e 00 2e 7b 23 62 23 ┆ fromLoaded: BEGIN .æ#b#┆
0x0400…0420 50 72 69 6e 74 54 65 78 74 20 28 27 20 4c 6f 61 64 4d 6f 64 65 20 3d 20 66 72 6f 6d 6c 6f 61 64 ┆PrintText (' LoadMode = fromload┆
0x0420…0440 65 64 20 27 29 3b 23 65 23 7d 00 2e 8c 49 46 81 4e 4f 54 81 28 6c 6f 63 53 65 67 6d 44 65 73 63 ┆ed ');#e#å . IF NOT (locSegmDesc┆
0x0440…0460 72 2e 6e 6f 4c 6f 61 64 53 65 63 74 69 6f 6e 73 81 3d 81 30 29 81 54 48 45 4e 00 06 8c 42 45 47 ┆r.noLoadSections = 0) THEN BEG┆
0x0460…0480 49 4e 00 2f 90 49 46 81 4e 4f 54 81 28 6c 6f 63 53 65 67 6d 44 65 73 63 72 2e 4f 70 74 69 6f 6e ┆IN / IF NOT (locSegmDescr.Option┆
0x0480…04a0 73 81 3d 81 52 65 65 6e 74 72 61 6e 74 29 81 54 48 45 4e 00 00 22 92 77 69 74 68 81 73 81 3d 81 ┆s = Reentrant) THEN " with s = ┆
0x04a0…04c0 73 65 67 6d 5e 5e 2c 81 74 81 3d 81 6c 6f 61 64 50 6f 73 5e 5e 81 64 6f 00 14 94 43 6f 70 79 42 ┆segm^^, t = loadPos^^ do CopyB┆
0x04c0…04e0 79 74 65 73 81 28 81 74 2c 81 73 81 29 3b 00 38 90 4e 6f 43 68 65 63 6b 28 81 4e 65 78 74 49 6e ┆ytes ( t, s ); 8 NoCheck( NextIn┆
0x04e0…0500 53 65 74 81 28 6c 6f 61 64 42 75 63 6b 65 74 5e 5e 2e 50 74 72 73 5b 6c 6f 61 64 45 6e 74 72 79 ┆Set (loadBucket^^.PtrsÆloadEntry┆
0x0500…0520 2e 69 6e 64 65 78 5d 2c 00 0c a2 6c 6f 61 64 70 6f 73 29 81 29 3b 00 05 8c 45 4e 44 3b 00 00 00 ┆.indexÅ, loadpos) ); END; ┆
0x0520…0540 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…]
0x0600…0620 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…]
0x0a00…0a20 00 16 88 45 4e 44 3b 82 28 2a 81 66 72 6f 6d 4c 6f 61 64 65 64 81 2a 29 00 01 20 00 00 01 20 00 ┆ END; (* fromLoaded *) ┆
0x0a20…0a40 00 0a 84 66 72 6f 6d 42 6f 6f 74 3a 00 06 86 42 45 47 49 4e 00 01 20 00 00 11 8a 43 41 53 45 81 ┆ fromBoot: BEGIN CASE ┆
0x0a40…0a60 63 61 6c 6c 4d 6f 64 65 81 4f 46 00 00 01 20 00 00 10 8c 63 72 65 61 74 69 6e 67 3a 81 42 45 47 ┆callMode OF creating: BEG┆
0x0a60…0a80 49 4e 00 41 7b 23 62 23 50 72 69 6e 74 54 65 78 74 20 28 27 20 6c 6f 61 64 6d 6f 64 65 20 3d 20 ┆IN Aæ#b#PrintText (' loadmode = ┆
0x0a80…0aa0 66 72 6f 6d 62 6f 6f 74 2c 20 63 61 6c 6c 6d 6f 64 65 20 3d 20 63 72 65 61 74 69 6e 67 20 27 29 ┆fromboot, callmode = creating ')┆
0x0aa0…0ac0 3b 23 65 23 7d 00 00 28 90 49 46 81 6c 6f 63 53 65 67 6d 44 65 73 63 72 2e 6e 6f 4c 6f 61 64 53 ┆;#e#å ( IF locSegmDescr.noLoadS┆
0x0ac0…0ae0 65 63 74 69 6f 6e 73 81 3e 81 30 81 54 48 45 4e 00 1e 90 42 45 47 49 4e 82 28 2a 81 63 6f 70 79 ┆ections > 0 THEN BEGIN (* copy┆
0x0ae0…0b00 81 62 6f 6f 74 81 70 6f 69 6e 74 65 72 81 2a 29 00 2e 91 69 66 81 53 61 6d 65 45 6e 74 69 74 79 ┆ boot pointer *) . if SameEntity┆
0x0b00…0b20 81 28 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 50 6f 73 2c 81 56 6f 69 64 29 81 74 68 65 6e ┆ (RootStub^^.BootPos, Void) then┆
0x0b20…0b40 00 23 98 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┆
0x0b40…0b60 6d 69 6c 79 2c 00 00 24 a2 48 65 61 64 65 72 46 6f 72 6d 61 74 45 72 72 6f 72 2c 42 6f 6f 74 53 ┆mily, $ HeaderFormatError,BootS┆
0x0b60…0b80 65 74 45 6d 70 74 79 2c 30 29 29 3b 00 01 20 00 00 21 91 43 68 65 63 6b 28 81 43 6f 70 79 81 28 ┆etEmpty,0)); ! Check( Copy (┆
0x0b80…0ba0 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 50 6f 73 2c 00 00 24 9e 45 6e 76 5e 5e 5b 6c 6f 63 ┆RootStub^^.BootPos, $ Env^^Æloc┆
0x0ba0…0bc0 53 65 67 6d 44 65 73 63 72 2e 6c 6f 63 50 74 72 49 6e 64 65 78 5d 29 81 29 3b 00 2d 91 4e 6f 43 ┆SegmDescr.locPtrIndexÅ) ); - NoC┆
0x0bc0…0be0 68 65 63 6b 28 81 4e 65 78 74 49 6e 53 65 74 81 28 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 ┆heck( NextInSet (RootStub^^.Boot┆
0x0be0…0c00 4f 77 6e 65 72 53 65 74 2c 00 00 17 a7 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 50 6f 73 29 ┆OwnerSet, RootStub^^.BootPos)┆
0x0c00…0c20 81 29 3b 00 00 05 90 45 4e 44 3b 00 00 05 8d 45 4e 44 3b 00 00 01 20 00 00 09 89 4c 6f 61 64 69 ┆ ); END; END; Loadi┆
0x0c20…0c40 6e 67 3a 00 00 06 8d 42 45 47 49 4e 00 40 7b 23 62 23 50 72 69 6e 74 54 65 78 74 20 28 27 20 6c ┆ng: BEGIN @æ#b#PrintText (' l┆
0x0c40…0c60 6f 61 64 6d 6f 64 65 20 3d 20 66 72 6f 6d 62 6f 6f 74 2c 20 63 61 6c 6c 6d 6f 64 65 20 3d 20 6c ┆oadmode = fromboot, callmode = l┆
0x0c60…0c80 6f 61 64 69 6e 67 20 27 29 3b 23 65 23 7d 00 01 20 00 00 2e 90 69 66 81 6c 6f 63 53 65 67 6d 44 ┆oading ');#e#å . if locSegmD┆
0x0c80…0ca0 65 73 63 72 2e 6e 6f 4c 6f 61 64 53 65 63 74 69 6f 6e 73 81 3e 81 30 81 74 68 65 6e 81 62 65 67 ┆escr.noLoadSections > 0 then beg┆
0x0ca0…0cc0 69 6e 00 2e 92 69 66 81 53 61 6d 65 45 6e 74 69 74 79 81 28 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 ┆in . if SameEntity (RootStub^^.B┆
0x0cc0…0ce0 6f 6f 74 50 6f 73 2c 81 56 6f 69 64 29 81 74 68 65 6e 00 23 98 45 78 63 65 70 74 69 6f 6e 28 4d ┆ootPos, Void) then # Exception(M┆
0x0ce0…0d00 61 6b 65 52 65 73 75 6c 74 28 6f 62 6a 44 69 72 46 61 6d 69 6c 79 2c 00 00 24 a2 48 65 61 64 65 ┆akeResult(objDirFamily, $ Heade┆
0x0d00…0d20 72 46 6f 72 6d 61 74 45 72 72 6f 72 2c 42 6f 6f 74 53 65 74 45 6d 70 74 79 2c 30 29 29 3b 00 33 ┆rFormatError,BootSetEmpty,0)); 3┆
0x0d20…0d40 92 77 69 74 68 81 73 81 3d 81 73 65 67 6d 5e 5e 2c 81 74 81 3d 81 72 6f 6f 74 53 74 75 62 5e 5e ┆ with s = segm^^, t = rootStub^^┆
0x0d40…0d60 2e 62 6f 6f 74 50 6f 73 5e 5e 81 64 6f 81 62 65 67 69 6e 00 00 23 94 69 66 81 65 6c 65 6d 65 6e ┆.bootPos^^ do begin # if elemen┆
0x0d60…0d80 74 73 28 73 29 81 3c 3e 81 65 6c 65 6d 65 6e 74 73 28 74 29 81 74 68 65 6e 00 00 35 96 45 78 63 ┆ts(s) <> elements(t) then 5 Exc┆
0x0d80…0da0 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 6d 69 6c 79 2c 48 ┆eption(MakeResult(objDirFamily,H┆
0x0da0…0dc0 65 61 64 65 72 46 6f 72 6d 61 74 45 72 72 6f 72 2c 00 00 08 ab 30 2c 30 29 81 29 3b 00 14 94 43 ┆eaderFormatError, 0,0) ); C┆
0x0dc0…0de0 6f 70 79 42 79 74 65 73 81 28 81 74 2c 81 73 81 29 3b 00 05 92 65 6e 64 3b 00 00 01 20 00 00 2f ┆opyBytes ( t, s ); end; /┆
0x0de0…0e00 93 43 68 65 63 6b 28 81 43 6f 70 79 81 28 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 50 6f 73 ┆ Check( Copy (RootStub^^.BootPos┆
0x0e00…0e20 2c 61 75 78 42 6f 6f 74 50 6f 73 29 81 29 3b 00 00 2d 93 4e 6f 43 68 65 63 6b 28 81 4e 65 78 74 ┆,auxBootPos) ); - NoCheck( Next┆
0x0e20…0e40 49 6e 53 65 74 81 28 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 4f 77 6e 65 72 53 65 74 2c 00 ┆InSet (RootStub^^.BootOwnerSet, ┆
0x0e40…0e60 00 17 ab 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 70 6f 73 29 81 29 3b 00 00 35 93 43 68 65 ┆ RootStub^^.Bootpos) ); 5 Che┆
0x0e60…0e80 63 6b 28 44 65 41 6c 6c 6f 63 81 28 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 4f 77 6e 65 72 ┆ck(DeAlloc (RootStub^^.BootOwner┆
0x0e80…0ea0 53 65 74 2c 61 75 78 42 6f 6f 74 50 6f 73 29 29 3b 00 00 05 90 65 6e 64 3b 00 00 05 8d 45 4e 44 ┆Set,auxBootPos)); end; END┆
0x0ea0…0ec0 3b 00 00 19 89 45 4e 44 3b 82 28 2a 81 63 61 73 65 81 63 61 6c 6c 4d 6f 64 65 81 2a 29 00 00 14 ┆; END; (* case callMode *) ┆
0x0ec0…0ee0 84 45 4e 44 3b 82 28 2a 81 66 72 6f 6d 42 6f 6f 74 81 2a 29 00 01 20 00 00 01 20 00 00 1f 84 28 ┆ END; (* fromBoot *) (┆
0x0ee0…0f00 2a 81 66 72 6f 6d 52 4f 4d 3a 81 6e 6f 74 81 69 6d 70 6c 65 6d 65 6e 74 65 64 81 2a 29 00 00 01 ┆* fromROM: not implemented *) ┆
0x0f00…0f20 20 00 00 19 84 45 4e 44 3b 81 28 2a 81 63 61 73 65 81 6c 6f 61 64 4d 6f 64 65 81 2a 29 00 00 01 ┆ END; (* case loadMode *) ┆
0x0f20…0f40 20 00 00 2c 84 68 65 61 64 65 72 70 6f 73 81 3a 3d 81 68 65 61 64 65 72 70 6f 73 81 2b 81 6c 6f ┆ , headerpos := headerpos + lo┆
0x0f40…0f60 63 53 65 67 6d 44 65 73 63 72 2e 73 69 7a 65 3b 00 01 20 00 00 0e 45 4e 44 3b 82 28 2a 81 66 6f ┆cSegmDescr.size; END; (* fo┆
0x0f60…0f80 72 81 2a 29 00 01 20 00 00 43 28 2a 20 44 65 6c 65 74 65 20 48 65 61 64 65 72 20 53 65 67 6d 65 ┆r *) C(* Delete Header Segme┆
0x0f80…0fa0 6e 74 20 69 66 20 63 72 65 61 74 69 6e 67 2f 6c 6f 61 64 69 6e 67 20 66 72 6f 6d 20 42 6f 6f 74 ┆nt if creating/loading from Boot┆
0x0fa0…0fc0 20 4f 77 6e 65 72 20 53 65 74 20 2a 29 00 00 01 20 00 00 1b 49 46 20 6c 6f 61 64 4d 6f 64 65 20 ┆ Owner Set *) IF loadMode ┆
0x0fc0…0fe0 3d 20 66 72 6f 6d 42 6f 6f 74 20 54 48 45 4e 00 00 05 42 45 47 49 4e 00 00 36 84 43 68 65 63 6b ┆= fromBoot THEN BEGIN 6 Check┆
0x0fe0…1000 28 81 44 65 41 6c 6c 6f 63 81 28 52 6f 6f 74 53 74 75 62 5e 5e 2e 42 6f 6f 74 4f 77 6e 65 72 53 ┆( DeAlloc (RootStub^^.BootOwnerS┆
0x1000…1020 65 74 2c 72 65 66 48 65 61 64 65 72 29 81 29 3b 00 04 45 4e 44 3b 00 01 20 00 00 01 20 00 00 07 ┆et,refHeader) ); END; ┆
0x1020…1040 84 28 2a 24 65 2a 29 00 00 15 28 2a 20 49 4e 53 54 41 4c 4c 2c 20 50 41 52 54 20 37 20 2a 29 00 ┆ (*$e*) (* INSTALL, PART 7 *) ┆
0x1040…1060 00 26 7b 23 62 23 50 72 69 6e 74 54 65 78 74 28 27 20 49 6e 73 74 61 6c 6c 20 70 61 72 74 20 37 ┆ &æ#b#PrintText(' Install part 7┆
0x1060…1080 20 27 29 3b 23 65 23 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 ┆ ');#e#å ┆
0x1080…10a0 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…]
0x1100…1120 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…]
0x1200…1220 00 45 28 2a 20 43 72 65 61 74 65 20 61 20 73 65 63 75 72 69 74 79 20 69 74 65 6d 20 66 6f 72 20 ┆ E(* Create a security item for ┆
0x1220…1240 74 68 65 20 65 6e 74 72 79 4e 6f 20 61 6e 64 20 6d 61 6b 65 20 74 68 65 20 65 6e 6e 74 72 79 20 ┆the entryNo and make the enntry ┆
0x1240…1260 70 75 62 6c 69 63 2e 00 00 39 83 56 65 72 69 66 79 81 74 68 65 81 72 65 74 75 72 6e 81 6f 66 81 ┆public. 9 Verify the return of ┆
0x1260…1280 61 81 70 6f 69 6e 74 65 72 81 69 66 81 63 61 6c 6c 4d 6f 64 65 81 3d 81 63 72 65 61 74 69 6e 67 ┆a pointer if callMode = creating┆
0x1280…12a0 81 2a 29 00 00 3a 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 ┆ *) :æØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x12a0…12c0 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 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x12c0…12e0 00 41 49 46 20 4e 4f 54 20 28 4e 6f 50 72 6f 74 65 63 74 20 4f 52 20 53 61 6d 65 45 6e 74 69 74 ┆ AIF NOT (NoProtect OR SameEntit┆
0x12e0…1300 79 28 54 68 69 73 53 74 75 62 5e 5e 2e 53 65 63 75 72 69 74 79 20 2c 20 56 4f 49 44 29 29 20 54 ┆y(ThisStub^^.Security , VOID)) T┆
0x1300…1320 48 45 4e 00 00 05 42 45 47 49 4e 00 00 01 20 00 00 28 84 70 65 72 6d 69 73 73 69 6f 6e 73 81 3a ┆HEN BEGIN ( permissions :┆
0x1320…1340 3d 81 5b 53 74 75 62 44 65 6c 65 74 65 2c 73 74 75 62 52 65 4e 61 6d 65 5d 3b 00 25 88 28 2a 81 ┆= ÆStubDelete,stubReNameÅ; % (* ┆
0x1340…1360 74 68 65 73 65 81 74 77 6f 81 61 72 65 81 61 6c 77 61 79 73 81 73 75 67 67 65 73 74 65 64 81 2a ┆these two are always suggested *┆
0x1360…1380 29 00 00 01 20 00 00 11 84 43 41 53 45 81 6c 6f 61 64 4d 6f 64 65 81 4f 46 00 00 0a 86 66 72 6f ┆) CASE loadMode OF fro┆
0x1380…13a0 6d 46 69 6c 65 3a 00 06 88 42 45 47 49 4e 00 20 8c 49 46 81 66 69 6c 65 50 65 72 6d 69 74 81 49 ┆mFile: BEGIN IF filePermit I┆
0x13a0…13c0 4e 81 66 69 6c 65 50 65 72 6d 73 81 54 48 45 4e 00 2b 94 70 65 72 6d 69 73 73 69 6f 6e 73 81 3a ┆N filePerms THEN + permissions :┆
0x13c0…13e0 3d 81 70 65 72 6d 69 73 73 69 6f 6e 73 81 2b 81 5b 73 74 75 62 70 65 72 6d 69 74 5d 3b 00 00 1c ┆= permissions + ÆstubpermitÅ; ┆
0x13e0…1400 8c 49 46 81 66 69 6c 65 52 65 61 64 81 49 4e 81 66 69 6c 65 50 65 72 6d 73 81 4f 52 00 1e 8f 66 ┆ IF fileRead IN filePerms OR f┆
0x1400…1420 69 6c 65 45 78 65 63 75 74 65 81 49 4e 81 66 69 6c 65 50 65 72 6d 73 81 54 48 45 4e 00 2b 93 70 ┆ileExecute IN filePerms THEN + p┆
0x1420…1440 65 72 6d 69 73 73 69 6f 6e 73 81 3a 3d 81 70 65 72 6d 69 73 73 69 6f 6e 73 81 2b 81 5b 73 74 75 ┆ermissions := permissions + Æstu┆
0x1440…1460 62 47 65 74 52 65 66 5d 3b 00 00 17 8c 28 2a 81 6e 65 76 65 72 81 73 74 75 62 57 72 69 74 65 3f ┆bGetRefÅ; (* never stubWrite?┆
0x1460…1480 81 2a 29 00 00 05 88 45 4e 44 3b 00 00 01 20 00 00 0c 86 66 72 6f 6d 4c 6f 61 64 65 64 3a 00 06 ┆ *) END; fromLoaded: ┆
0x1480…14a0 88 42 45 47 49 4e 00 20 8c 49 46 81 73 74 75 62 50 65 72 6d 69 74 81 49 4e 81 6c 6f 61 64 50 65 ┆ BEGIN IF stubPermit IN loadPe┆
0x14a0…14c0 72 6d 73 81 54 48 45 4e 00 2b 94 70 65 72 6d 69 73 73 69 6f 6e 73 81 3a 3d 81 70 65 72 6d 69 73 ┆rms THEN + permissions := permis┆
0x14c0…14e0 73 69 6f 6e 73 81 2b 81 5b 73 74 75 62 50 65 72 6d 69 74 5d 3b 00 00 20 8c 49 46 81 73 74 75 62 ┆sions + ÆstubPermitÅ; IF stub┆
0x14e0…1500 47 65 74 52 65 66 81 49 4e 81 6c 6f 61 64 50 65 72 6d 73 81 54 48 45 4e 00 2b 94 70 65 72 6d 69 ┆GetRef IN loadPerms THEN + permi┆
0x1500…1520 73 73 69 6f 6e 73 81 3a 3d 81 70 65 72 6d 69 73 73 69 6f 6e 73 81 2b 81 5b 73 74 75 62 47 65 74 ┆ssions := permissions + ÆstubGet┆
0x1520…1540 52 65 66 5d 3b 00 00 05 88 45 4e 44 3b 00 00 01 20 00 00 39 88 28 2a 81 4e 6f 50 72 6f 74 65 63 ┆RefÅ; END; 9 (* NoProtec┆
0x1540…1560 74 81 69 73 81 61 6c 77 61 79 73 81 73 65 74 81 66 6f 72 81 22 66 72 6f 6d 42 6f 6f 74 22 81 61 ┆t is always set for "fromBoot" a┆
0x1560…1580 6e 64 81 22 66 72 6f 6d 52 4f 4d 22 2c 00 00 0c 8b 63 66 2e 70 61 72 74 31 81 2a 29 00 01 20 00 ┆nd "fromROM", cf.part1 *) ┆
0x1580…15a0 00 10 84 45 4e 44 3b 82 28 2a 81 63 61 73 65 81 2a 29 00 01 20 00 00 3c 84 52 65 73 75 6c 74 81 ┆ END; (* case *) < Result ┆
0x15a0…15c0 3a 3d 81 54 68 69 73 53 74 75 62 5e 5e 2e 53 65 63 75 72 69 74 79 2e 43 72 65 61 74 65 81 28 66 ┆:= ThisStub^^.Security.Create (f┆
0x15c0…15e0 75 6c 6c 4f 62 6a 4e 61 6d 65 2c 53 79 73 74 65 6d 49 64 2c 00 0e a0 70 65 72 6d 69 73 73 69 6f ┆ullObjName,SystemId, permissio┆
0x15e0…1600 6e 73 29 3b 00 2a 84 49 46 81 52 65 73 75 6c 74 2e 6d 61 69 6e 81 3c 3e 81 6f 6b 81 54 48 45 4e ┆ns); * IF Result.main <> ok THEN┆
0x1600…1620 81 47 4f 54 4f 81 65 78 69 74 6c 61 62 65 6c 3b 00 01 20 00 00 04 45 4e 44 3b 00 01 20 00 00 30 ┆ GOTO exitlabel; END; 0┆
0x1620…1640 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 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x1640…1660 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 7d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ØØØØØØØØØØØØØØØå ┆
0x1660…1680 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…]
0x1700…1720 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…]
0x1a00…1a20 00 01 20 00 00 20 28 2a 20 4d 61 6b 65 20 62 75 63 6b 65 74 20 65 6e 74 72 79 4e 6f 20 70 75 62 ┆ (* Make bucket entryNo pub┆
0x1a20…1a40 6c 69 63 20 2a 29 00 01 20 00 00 22 84 43 68 65 63 6b 28 81 54 68 69 73 53 74 75 62 5e 5e 2e 44 ┆lic *) " Check( ThisStub^^.D┆
0x1a40…1a60 69 72 47 61 74 65 2e 4c 6f 63 6b 81 29 3b 00 01 20 00 00 3a 84 57 49 54 48 81 64 81 3d 81 74 61 ┆irGate.Lock ); : WITH d = ta┆
0x1a60…1a80 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┆
0x1a80…1aa0 61 72 67 65 74 49 6e 64 65 78 5d 81 44 4f 00 11 88 43 41 53 45 81 63 61 6c 6c 4d 6f 64 65 81 4f ┆argetIndexÅ DO CASE callMode O┆
0x1aa0…1ac0 46 00 00 23 8c 63 72 65 61 74 69 6e 67 3a 81 65 2e 6b 69 6e 64 81 3a 3d 81 67 65 6e 65 72 61 6c ┆F # creating: e.kind := general┆
0x1ac0…1ae0 4f 62 6a 65 63 74 3b 00 00 01 20 00 00 2e 8c 6c 6f 61 64 69 6e 67 3a 81 49 46 81 68 50 72 65 66 ┆Object; . loading: IF hPref┆
0x1ae0…1b00 69 78 2e 6b 69 6e 64 81 3d 81 70 72 6f 67 72 61 6d 4d 6f 64 75 6c 65 81 54 48 45 4e 00 18 98 65 ┆ix.kind = programModule THEN e┆
0x1b00…1b20 2e 6b 69 6e 64 81 3a 3d 81 6c 6f 61 64 65 64 50 72 6f 67 72 61 6d 00 05 95 45 4c 53 45 00 00 19 ┆.kind := loadedProgram ELSE ┆
0x1b20…1b40 98 65 2e 6b 69 6e 64 81 3a 3d 81 6c 6f 61 64 65 64 4c 69 62 72 61 72 79 3b 00 00 01 20 00 00 10 ┆ e.kind := loadedLibrary; ┆
0x1b40…1b60 88 45 4e 44 3b 82 28 2a 81 63 61 73 65 81 2a 29 00 01 20 00 00 22 84 43 68 65 63 6b 28 81 54 68 ┆ END; (* case *) " Check( Th┆
0x1b60…1b80 69 73 53 74 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 3c 7b 5c ┆isStub^^.DirGate.open ); <æØ┆
0x1b80…1ba0 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 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x1ba0…1bc0 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 00 44 28 2a 20 56 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØ D(* V┆
0x1bc0…1be0 65 72 69 66 79 20 74 68 61 74 20 74 68 65 20 63 61 6c 6c 65 72 20 6d 61 79 20 68 61 76 65 20 61 ┆erify that the caller may have a┆
0x1be0…1c00 20 73 69 6d 70 6c 65 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 67 65 6e 65 72 61 6c ┆ simple reference to the general┆
0x1c00…1c20 00 32 83 6f 62 6a 65 63 74 81 72 65 74 75 72 6e 65 64 81 28 6f 6e 6c 79 81 66 6f 72 81 63 61 6c ┆ 2 object returned (only for cal┆
0x1c20…1c40 6c 4d 6f 64 65 81 3d 81 63 72 65 61 74 69 6e 67 29 81 2a 29 00 01 20 00 00 1c 49 46 20 28 63 61 ┆lMode = creating) *) IF (ca┆
0x1c40…1c60 6c 6c 4d 6f 64 65 20 3d 20 63 72 65 61 74 69 6e 67 29 20 41 4e 44 00 1e 83 28 73 74 75 62 47 65 ┆llMode = creating) AND (stubGe┆
0x1c60…1c80 74 52 65 66 81 49 4e 81 70 65 72 6d 69 73 73 69 6f 6e 73 81 4f 52 00 0d 84 4e 6f 50 72 6f 74 65 ┆tRef IN permissions OR NoProte┆
0x1c80…1ca0 63 74 81 4f 52 00 00 2d 84 53 61 6d 65 45 6e 74 69 74 79 28 54 68 69 73 53 74 75 62 5e 5e 2e 53 ┆ct OR - SameEntity(ThisStub^^.S┆
0x1ca0…1cc0 65 63 75 72 69 74 79 81 2c 81 56 4f 49 44 29 29 81 54 48 45 4e 00 00 40 5c 5c 5c 5c 5c 5c 5c 5c ┆ecurity , VOID)) THEN @ØØØØØØØØ┆
0x1cc0…1ce0 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 ┆ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ┆
0x1ce0…1d00 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 37 84 43 68 65 63 6b ┆ØØØØØØØØØØØØØØØØØØØØØØØå 7 Check┆
0x1d00…1d20 28 81 43 6f 70 79 81 28 54 61 72 67 65 74 42 75 63 6b 65 74 5e 5e 2e 50 74 72 73 5b 54 61 72 67 ┆( Copy (TargetBucket^^.PtrsÆTarg┆
0x1d20…1d40 65 74 49 6e 64 65 78 5d 2c 81 4f 62 6a 29 81 29 3b 00 00 01 20 00 00 01 20 00 00 07 84 28 2a 24 ┆etIndexÅ, Obj) ); (*$┆
0x1d40…1d60 65 2a 29 00 00 17 28 2a 20 49 4e 53 54 41 4c 4c 2c 20 45 58 49 54 50 41 52 54 20 2a 29 00 00 08 ┆e*) (* INSTALL, EXITPART *) ┆
0x1d60…1d80 64 6f 20 62 65 67 69 6e 00 48 28 2a 20 49 6e 20 63 61 73 65 20 6f 66 20 65 78 63 65 70 74 69 6f ┆do begin H(* In case of exceptio┆
0x1d80…1da0 6e 20 69 6e 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 74 72 6f 6c 20 69 73 20 74 ┆n in this procedure control is t┆
0x1da0…1dc0 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 68 65 72 65 00 01 20 00 00 3b 83 54 68 65 81 73 69 74 ┆ransferred to here ; The sit┆
0x1dc0…1de0 75 61 74 69 6f 6e 81 73 68 6f 75 6c 64 81 62 65 81 72 65 65 73 74 61 62 6c 69 73 68 65 64 81 61 ┆uation should be reestablished a┆
0x1de0…1e00 73 81 70 72 69 6f 72 81 74 6f 81 63 61 6c 6c 2e 81 2a 29 00 00 15 88 72 65 73 81 3a 3d 81 47 65 ┆s prior to call. *) res := Ge┆
0x1e00…1e20 74 45 78 63 65 70 74 69 6f 6e 3b 00 00 2d 70 72 69 6e 74 56 61 72 20 28 27 49 6e 73 74 61 6c 6c ┆tException; -printVar ('Install┆
0x1e20…1e40 20 45 72 72 6f 72 20 21 20 52 65 73 75 6c 74 20 3d 20 27 2c 20 72 65 73 20 29 3b 00 00 01 20 00 ┆ Error ! Result = ', res ); ┆
0x1e40…1e60 00 34 88 28 2a 81 49 74 81 69 73 81 6e 6f 74 81 6e 65 63 65 73 73 61 72 79 81 74 6f 81 64 65 6c ┆ 4 (* It is not necessary to del┆
0x1e60…1e80 65 74 65 81 74 68 65 81 73 65 63 75 72 69 74 79 81 69 74 65 6d 2c 00 2c 8b 73 69 6e 63 65 81 6e ┆ete the security item, , since n┆
0x1e80…1ea0 6f 81 65 72 72 6f 72 81 61 72 69 73 65 81 61 66 74 65 72 81 69 74 73 81 63 72 65 61 74 69 6f 6e ┆o error arise after its creation┆
0x1ea0…1ec0 21 81 2a 29 00 01 20 00 00 11 88 43 41 53 45 81 63 61 6c 6c 4d 6f 64 65 81 4f 46 00 00 01 20 00 ┆! *) CASE callMode OF ┆
0x1ec0…1ee0 00 28 8c 63 72 65 61 74 69 6e 67 3a 81 65 6e 74 72 79 4e 6f 6b 69 6e 64 81 3a 3d 81 67 65 6e 65 ┆ ( creating: entryNokind := gene┆
0x1ee0…1f00 72 61 6c 4f 62 6a 65 63 74 3b 00 2e 8c 6c 6f 61 64 69 6e 67 3a 81 49 46 81 68 50 72 65 66 69 78 ┆ralObject; . loading: IF hPrefix┆
0x1f00…1f20 2e 6b 69 6e 64 81 3d 81 70 72 6f 67 72 61 6d 4d 6f 64 75 6c 65 81 54 48 45 4e 00 1d 98 65 6e 74 ┆.kind = programModule THEN ent┆
0x1f20…1f40 72 79 4e 6f 6b 69 6e 64 81 3a 3d 81 6c 6f 61 64 65 64 50 72 6f 67 72 61 6d 00 00 05 95 45 4c 53 ┆ryNokind := loadedProgram ELS┆
0x1f40…1f60 45 00 00 1e 98 65 6e 74 72 79 4e 6f 6b 69 6e 64 81 3a 3d 81 6c 6f 61 64 65 64 4c 69 62 72 61 72 ┆E entryNokind := loadedLibrar┆
0x1f60…1f80 79 3b 00 01 20 00 00 05 88 45 4e 44 3b 00 00 01 20 00 00 03 88 69 6e 00 00 3e 8a 43 6c 65 61 6e ┆y; END; in > Clean┆
0x1f80…1fa0 55 70 45 6e 74 72 79 81 28 54 68 69 73 53 74 75 62 2c 54 61 72 67 65 74 42 75 63 6b 65 74 2c 54 ┆UpEntry (ThisStub,TargetBucket,T┆
0x1fa0…1fc0 61 72 67 65 74 49 6e 64 65 78 2c 65 6e 74 72 79 4e 6f 6b 69 6e 64 29 3b 00 10 88 64 6f 81 7b 81 ┆argetIndex,entryNokind); do æ ┆
0x1fc0…1fe0 6e 6f 74 68 69 6e 67 81 7d 3b 00 01 20 00 00 3d 88 28 2a 81 74 68 65 81 66 61 6f 81 69 73 81 63 ┆nothing å; = (* the fao is c┆
0x1fe0…2000 6c 6f 73 65 64 81 62 79 81 69 6d 70 6c 69 63 69 74 81 64 65 61 6c 6c 6f 63 61 74 69 6f 6e 81 72 ┆losed by implicit deallocation r┆
0x2000…2020 65 74 75 72 6e 69 6e 67 81 66 72 6f 6d 00 00 12 8b 74 68 65 81 70 72 6f 63 65 64 75 72 65 2e 81 ┆eturning from the procedure. ┆
0x2020…2040 2a 29 00 01 20 00 00 13 88 45 78 63 65 70 74 69 6f 6e 81 28 81 72 65 73 81 29 3b 00 00 05 84 45 ┆*) Exception ( res ); E┆
0x2040…2060 4e 44 3b 00 00 1b 65 6e 64 3b 20 7b 20 65 78 63 65 70 74 69 6f 6e 20 68 61 6e 64 6c 69 6e 67 20 ┆ND; end; æ exception handling ┆
0x2060…2080 7d 00 00 01 20 00 00 16 45 4e 44 3b 82 28 2a 2a 2a 81 49 6e 73 74 61 6c 6c 81 2a 2a 2a 29 00 07 ┆å END; (*** Install ***) ┆
0x2080…20a0 82 28 2a 24 65 2a 29 00 00 47 7b 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 20 ┆ (*$e*) Gæ!!!!!!!!!!!!!!!!!!!! ┆
0x20a0…20c0 72 65 70 61 69 72 20 6f 66 20 6f 6e 65 20 70 61 73 73 20 63 6f 6d 70 69 6c 65 72 20 21 21 21 21 ┆repair of one pass compiler !!!!┆
0x20c0…20e0 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 7d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆!!!!!!!!!!!!!!!!å ┆
0x20e0…2100 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 ┆ ┆
0x2100…2120 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…]
0x2200…2220 00 25 66 75 6e 63 74 69 6f 6e 20 53 74 75 62 54 65 6d 70 73 3a 20 69 6e 74 65 67 65 72 3b 20 66 ┆ %function StubTemps: integer; f┆
0x2220…2240 6f 72 77 61 72 64 3b 00 00 25 66 75 6e 63 74 69 6f 6e 20 53 74 75 62 53 74 61 63 6b 3a 20 69 6e ┆orward; %function StubStack: in┆
0x2240…2260 74 65 67 65 72 3b 20 66 6f 72 77 61 72 64 3b 00 00 01 20 00 00 01 20 00 00 41 7b 2d 2d 2d 2d 2d ┆teger; forward; Aæ-----┆
0x2260…2280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 81 54 68 65 82 53 81 54 81 55 81 42 82 4f 81 42 81 4a 81 45 81 ┆----------- The S T U B O B J E ┆
0x2280…22a0 43 81 54 82 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7d 00 00 01 20 00 ┆C T ----------------------å ┆
0x22a0…22c0 00 01 20 00 00 34 50 52 4f 47 52 41 4d 20 53 54 55 42 49 4d 50 4c 45 4d 45 4e 54 20 4f 42 4a 45 ┆ 4PROGRAM STUBIMPLEMENT OBJE┆
0x22c0…22e0 43 54 20 4f 62 6a 44 69 72 20 57 49 54 48 20 53 54 55 42 4c 4f 43 41 4c 53 3b 00 01 20 00 00 18 ┆CT ObjDir WITH STUBLOCALS; ┆
0x22e0…2300 50 52 4f 43 45 44 55 52 45 20 43 68 65 63 6b 4e 65 77 4e 61 6d 65 20 28 00 2b 95 4f 62 6a 4e 61 ┆PROCEDURE CheckNewName ( + ObjNa┆
0x2300…2320 6d 65 3a 81 66 75 6c 6c 69 64 3b 81 28 2a 81 63 6f 6d 70 6c 65 74 65 81 6f 72 81 73 68 6f 72 74 ┆me: fullid; (* complete or short┆
0x2320…2340 69 64 81 2a 29 00 00 19 95 56 41 52 81 53 74 75 62 52 65 66 3a 81 53 74 75 62 4c 6f 63 72 65 66 ┆id *) VAR StubRef: StubLocref┆
0x2340…2360 3b 00 00 18 95 56 41 52 81 4e 65 77 53 68 6f 72 74 69 64 3a 81 6e 61 6d 65 31 36 3b 00 19 95 56 ┆; VAR NewShortid: name16; V┆
0x2360…2380 41 52 81 72 65 66 70 2c 81 62 75 63 6b 65 74 3a 81 72 65 66 81 29 3b 00 00 01 20 00 00 12 56 41 ┆AR refp, bucket: ref ); VA┆
0x2380…23a0 52 20 62 61 73 65 3a 20 69 6e 74 65 67 65 72 3b 00 16 84 65 6e 74 72 79 4e 6f 3a 81 62 75 63 6b ┆R base: integer; entryNo: buck┆
0x23a0…23c0 65 74 45 6e 74 72 79 3b 00 01 20 00 00 42 28 2a 20 75 73 65 64 20 62 79 20 4c 6f 61 64 2c 20 43 ┆etEntry; B(* used by Load, C┆
0x23c0…23e0 72 65 61 74 65 2c 20 43 72 65 61 74 65 20 41 63 63 65 73 73 2c 20 61 6e 64 20 49 6e 73 65 72 74 ┆reate, Create Access, and Insert┆
0x23e0…2400 20 50 6f 69 6e 74 65 72 20 74 6f 20 66 69 6e 64 00 34 83 74 68 65 81 72 65 6c 65 76 61 6e 74 81 ┆ Pointer to find 4 the relevant ┆
0x2400…2420 53 74 75 62 81 69 6e 74 6f 81 77 68 69 63 68 81 74 68 65 81 6e 65 77 81 65 6e 74 69 74 79 81 67 ┆Stub into which the new entity g┆
[…truncated at 200 lines…]