|
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.D«
└─⟦e1c0a41a6⟧ Bits:30009789/_.ft.Ibm2.50007344.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EFL1.D«
0x0000…0020 46 81 64 2e 64 69 72 5b 64 65 76 6e 6f 5d 2e 6e 61 6d 65 4c 65 6e 67 74 68 3c 3e 30 81 54 48 45 ┆F d.dirÆdevnoÅ.nameLength<>0 THE┆
0x0020…0040 4e 00 00 2e 88 65 78 63 65 70 74 69 6f 6e 28 67 65 6e 52 65 73 28 2d 61 6c 72 65 61 64 79 4e 61 ┆N . exception(genRes(-alreadyNa┆
0x0040…0060 6d 65 64 2c 49 6f 46 61 6d 69 6c 79 2c 2d 32 29 29 3b 00 1f 86 46 4f 52 81 69 3a 3d 6d 69 6e 44 ┆med,IoFamily,-2)); FOR i:=minD┆
0x0060…0080 65 76 6e 6f 81 54 4f 81 6d 61 78 44 65 76 6e 6f 81 44 4f 00 00 1a 88 49 46 81 73 61 6d 65 28 69 ┆evno TO maxDevno DO IF same(i┆
0x0080…00a0 2c 64 65 76 4e 61 6d 65 2c 64 29 81 54 48 45 4e 00 30 8a 65 78 63 65 70 74 69 6f 6e 28 67 65 6e ┆,devName,d) THEN 0 exception(gen┆
0x00a0…00c0 52 65 73 28 2d 46 69 6c 65 4e 61 6d 65 45 78 69 73 74 73 2c 49 6f 46 61 6d 69 6c 79 2c 2d 31 29 ┆Res(-FileNameExists,IoFamily,-1)┆
0x00c0…00e0 29 3b 00 1b 86 6c 65 6e 67 74 68 3a 3d 65 6c 65 6d 65 6e 74 73 28 64 65 76 4e 61 6d 65 29 3b 00 ┆); length:=elements(devName); ┆
0x00e0…0100 00 30 86 49 46 81 6c 65 6e 67 74 68 3e 6d 61 78 49 64 4c 65 6e 67 74 68 81 54 48 45 4e 81 6c 65 ┆ 0 IF length>maxIdLength THEN le┆
0x0100…0120 6e 67 74 68 3a 3d 6d 61 78 49 64 4c 65 6e 67 74 68 3b 00 1b 86 57 49 54 48 81 64 2e 64 69 72 5b ┆ngth:=maxIdLength; WITH d.dirÆ┆
0x0120…0140 64 65 76 6e 6f 5d 81 44 4f 81 42 45 47 49 4e 00 00 2b 88 46 4f 52 81 69 3a 3d 31 81 54 4f 81 6c ┆devnoÅ DO BEGIN + FOR i:=1 TO l┆
0x0140…0160 65 6e 67 74 68 81 44 4f 81 6e 61 6d 65 5b 69 5d 3a 3d 64 65 76 4e 61 6d 65 5b 69 5d 3b 00 00 14 ┆ength DO nameÆiÅ:=devNameÆiÅ; ┆
0x0160…0180 88 6e 61 6d 65 4c 65 6e 67 74 68 3a 3d 6c 65 6e 67 74 68 3b 00 16 88 7b 6f 70 74 69 6f 6e 61 6c ┆ nameLength:=length; æoptional┆
0x0180…01a0 81 70 61 72 61 6d 65 74 65 72 73 7d 00 2d 8a 49 46 81 4e 65 78 74 56 61 6c 41 72 67 28 69 6e 74 ┆ parameterså - IF NextValArg(int┆
0x01a0…01c0 50 74 72 29 81 54 48 45 4e 81 68 77 43 6f 6e 66 69 67 3a 3d 69 6e 74 50 74 72 5e 00 00 1c 8a 45 ┆Ptr) THEN hwConfig:=intPtr^ E┆
0x01c0…01e0 4c 53 45 81 68 77 43 6f 6e 66 69 67 3a 3d 64 65 66 48 77 43 6f 6e 66 69 67 3b 00 2d 8a 49 46 81 ┆LSE hwConfig:=defHwConfig; - IF ┆
0x01e0…0200 4e 65 78 74 56 61 6c 41 72 67 28 69 6e 74 50 74 72 29 81 54 48 45 4e 81 73 77 43 6f 6e 66 69 67 ┆NextValArg(intPtr) THEN swConfig┆
0x0200…0220 3a 3d 69 6e 74 50 74 72 5e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆:=intPtr^ ┆
0x0220…0240 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…]
0x0300…0320 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…]
0x0500…0520 00 1c 8a 45 4c 53 45 81 73 77 43 6f 6e 66 69 67 3a 3d 64 65 66 53 77 43 6f 6e 66 69 67 3b 00 0c ┆ ELSE swConfig:=defSwConfig; ┆
0x0520…0540 86 45 4e 44 81 7b 77 69 74 68 7d 3b 00 0c 84 45 4e 44 81 7b 77 69 74 68 7d 3b 00 16 82 44 4f 81 ┆ END æwithå; END æwithå; DO ┆
0x0540…0560 72 65 73 3a 3d 67 65 74 45 78 63 65 70 74 69 6f 6e 3b 00 15 82 63 68 65 63 6b 28 64 69 72 47 61 ┆res:=getException; check(dirGa┆
0x0560…0580 74 65 2e 4f 70 65 6e 29 3b 00 00 10 82 4f 62 6a 52 65 74 75 72 6e 28 72 65 73 29 3b 00 19 45 4e ┆te.Open); ObjReturn(res); EN┆
0x0580…05a0 44 20 7b 2a 2a 2a 45 4e 54 52 59 20 43 72 65 61 74 65 2a 2a 2a 7d 3b 00 00 04 7b 24 45 7d 00 10 ┆D æ***ENTRY Create***å; æ$Eå ┆
0x05a0…05c0 45 4e 54 52 59 20 44 65 6c 65 74 65 46 69 6c 65 00 12 82 7b 64 65 76 4e 61 6d 65 3a 81 66 75 6c ┆ENTRY DeleteFile ædevName: ful┆
0x05c0…05e0 6c 49 64 7d 00 0c 82 57 49 54 48 81 52 45 43 4f 52 44 00 06 84 74 3a 5e 5e 3b 00 0f 84 72 65 66 ┆lIdå WITH RECORD t:^^; ref┆
0x05e0…0600 44 72 69 76 65 72 3a 81 5e 5e 3b 00 00 05 82 45 4e 44 3b 00 00 13 82 56 41 52 81 64 65 76 6e 6f ┆Driver: ^^; END; VAR devno┆
0x0600…0620 3a 81 64 65 76 6e 6f 73 3b 00 00 06 86 73 74 6f 70 2c 00 11 86 72 65 73 3a 81 72 65 73 75 6c 74 ┆: devnos; stop, res: result┆
0x0620…0640 54 79 70 65 3b 00 00 05 42 45 47 49 4e 00 00 0e 82 72 65 73 2e 6d 61 69 6e 3a 3d 6f 6b 3b 00 15 ┆Type; BEGIN res.main:=ok; ┆
0x0640…0660 82 63 68 65 63 6b 28 64 69 72 47 61 74 65 2e 4c 6f 63 6b 29 3b 00 00 14 82 49 4e 82 7b 64 69 72 ┆ check(dirGate.Lock); IN ædir┆
0x0660…0680 47 61 74 65 81 6c 6f 63 6b 65 64 7d 00 1c 84 57 49 54 48 81 64 3d 6c 6f 63 61 6c 64 61 74 61 5e ┆Gate lockedå WITH d=localdata^┆
0x0680…06a0 5e 81 44 4f 81 42 45 47 49 4e 00 1a 86 64 65 76 6e 6f 3a 3d 73 65 61 72 63 68 28 64 65 76 4e 61 ┆^ DO BEGIN devno:=search(devNa┆
0x06a0…06c0 6d 65 2c 64 29 3b 00 1c 86 64 2e 64 69 72 5b 64 65 76 6e 6f 5d 2e 6e 61 6d 65 4c 65 6e 67 74 68 ┆me,d); d.dirÆdevnoÅ.nameLength┆
0x06c0…06e0 3a 3d 30 3b 00 27 86 7b 61 62 6f 72 74 81 61 6e 79 81 64 72 69 76 65 72 73 81 6f 70 65 6e 81 74 ┆:=0; ' æabort any drivers open t┆
0x06e0…0700 6f 81 74 68 65 81 64 65 76 69 63 65 7d 00 00 2c 88 73 74 6f 70 3a 3d 46 69 72 73 74 49 6e 53 65 ┆o the deviceå , stop:=FirstInSe┆
0x0700…0720 74 28 64 72 69 76 65 72 73 5b 64 65 76 6e 6f 5d 2c 72 65 66 44 72 69 76 65 72 29 3b 00 1c 88 57 ┆t(driversÆdevnoÅ,refDriver); W┆
0x0720…0740 48 49 4c 45 81 73 74 6f 70 2e 6d 61 69 6e 3d 6f 6b 81 44 4f 81 42 45 47 49 4e 00 19 8a 63 68 65 ┆HILE stop.main=ok DO BEGIN che┆
0x0740…0760 63 6b 28 41 62 6f 72 74 28 72 65 66 44 72 69 76 65 72 29 29 3b 00 00 2b 8a 73 74 6f 70 3a 3d 4e ┆ck(Abort(refDriver)); + stop:=N┆
0x0760…0780 65 78 74 49 6e 53 65 74 28 64 72 69 76 65 72 73 5b 64 65 76 6e 6f 5d 2c 72 65 66 44 72 69 76 65 ┆extInSet(driversÆdevnoÅ,refDrive┆
0x0780…07a0 72 29 3b 00 00 05 88 45 4e 44 3b 00 00 0c 84 45 4e 44 81 7b 77 69 74 68 7d 3b 00 2a 82 44 4f 81 ┆r); END; END æwithå; * DO ┆
0x07a0…07c0 49 46 81 72 65 73 2e 6d 61 69 6e 3d 6f 6b 81 54 48 45 4e 81 72 65 73 3a 3d 67 65 74 45 78 63 65 ┆IF res.main=ok THEN res:=getExce┆
0x07c0…07e0 70 74 69 6f 6e 3b 00 15 82 63 68 65 63 6b 28 64 69 72 47 61 74 65 2e 4f 70 65 6e 29 3b 00 00 10 ┆ption; check(dirGate.Open); ┆
0x07e0…0800 82 4f 62 6a 52 65 74 75 72 6e 28 72 65 73 29 3b 00 19 45 4e 44 20 7b 2a 2a 2a 45 4e 54 52 59 20 ┆ ObjReturn(res); END æ***ENTRY ┆
0x0800…0820 44 65 6c 65 74 65 2a 2a 2a 7d 3b 00 00 04 7b 24 45 7d 00 0c 45 4e 54 52 59 20 41 73 73 69 67 6e ┆Delete***å; æ$Eå ENTRY Assign┆
0x0820…0840 00 3a 82 7b 4f 55 54 81 6f 77 6e 65 64 46 61 6f 3a 81 72 65 66 3b 81 49 4e 81 66 69 6c 65 4e 61 ┆ : æOUT ownedFao: ref; IN fileNa┆
0x0840…0860 6d 65 3a 81 66 75 6c 6c 49 64 3b 81 69 6f 52 69 67 68 74 73 3a 69 6f 54 79 70 65 7d 00 0c 82 57 ┆me: fullId; ioRights:ioTypeå W┆
0x0860…0880 49 54 48 81 52 45 43 4f 52 44 00 06 84 74 3a 5e 5e 3b 00 17 84 74 65 6d 70 4d 61 6e 3a 81 5e 5e ┆ITH RECORD t:^^; tempMan: ^^┆
0x0880…08a0 64 72 69 76 4c 6f 63 61 6c 73 3b 00 00 17 84 74 65 6d 70 45 6e 76 3a 81 5e 5e 64 72 69 76 4c 6f ┆drivLocals; tempEnv: ^^drivLo┆
0x08a0…08c0 63 61 6c 73 3b 00 00 05 82 45 4e 44 3b 00 00 11 82 56 41 52 81 73 3a 81 73 69 7a 65 54 79 70 65 ┆cals; END; VAR s: sizeType┆
0x08c0…08e0 3b 00 00 19 86 72 65 73 2c 81 69 67 6e 6f 72 65 3a 81 72 65 73 75 6c 74 54 79 70 65 3b 00 00 0c ┆; res, ignore: resultType; ┆
0x08e0…0900 86 69 3a 81 69 6e 74 65 67 65 72 3b 00 0f 86 64 65 76 6e 6f 3a 81 64 65 76 6e 6f 73 3b 00 00 11 ┆ i: integer; devno: devnos; ┆
0x0900…0920 86 72 65 71 3a 81 69 70 63 52 65 71 75 65 73 74 3b 00 00 05 42 45 47 49 4e 00 00 0e 82 72 65 73 ┆ req: ipcRequest; BEGIN res┆
0x0920…0940 2e 6d 61 69 6e 3a 3d 6f 6b 3b 00 17 82 7b 63 72 65 61 74 65 81 61 63 63 65 73 73 81 6f 62 6a 65 ┆.main:=ok; æcreate access obje┆
0x0940…0960 63 74 7d 00 00 16 84 69 67 6e 6f 72 65 3a 3d 43 6c 65 61 72 53 69 7a 65 28 73 29 3b 00 47 84 69 ┆ctå ignore:=ClearSize(s); G i┆
0x0960…0980 67 6e 6f 72 65 3a 3d 41 64 64 45 6e 76 28 73 2c 72 65 66 73 28 64 72 69 76 4c 6f 63 61 6c 73 29 ┆gnore:=AddEnv(s,refs(drivLocals)┆
0x0980…09a0 29 3b 81 69 67 6e 6f 72 65 3a 3d 41 64 64 53 65 67 28 73 2c 62 79 74 65 73 28 64 72 69 76 44 61 ┆); ignore:=AddSeg(s,bytes(drivDa┆
0x09a0…09c0 74 61 29 29 3b 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 ┆ta)); ┆
0x09c0…09e0 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…]
0x0a00…0a20 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…]
0x0d00…0d20 00 41 84 63 68 65 63 6b 28 61 6c 6c 6f 63 52 65 66 2e 4e 65 77 4f 62 6a 28 4f 55 54 81 6f 77 6e ┆ A check(allocRef.NewObj(OUT own┆
0x0d20…0d40 65 64 46 61 6f 3b 81 6d 61 6b 65 53 69 7a 65 28 32 30 30 30 2c 35 30 30 29 2c 81 4f 55 54 81 69 ┆edFao; makeSize(2000,500), OUT i┆
0x0d40…0d60 29 29 3b 00 00 16 84 69 67 6e 6f 72 65 3a 3d 43 6c 65 61 72 53 69 7a 65 28 73 29 3b 00 43 84 63 ┆)); ignore:=ClearSize(s); C c┆
0x0d60…0d80 68 65 63 6b 28 44 65 63 6c 47 65 6e 28 6f 77 6e 65 64 46 61 6f 2c 74 65 6d 70 4d 61 6e 2c 74 65 ┆heck(DeclGen(ownedFao,tempMan,te┆
0x0d80…0da0 6d 70 45 6e 76 2c 72 65 66 73 28 64 72 69 76 4c 6f 63 61 6c 73 29 2c 43 6c 6f 73 65 2c 73 2c 73 ┆mpEnv,refs(drivLocals),Close,s,s┆
0x0da0…0dc0 2c 00 00 2c 92 72 65 66 73 28 6c 69 6e 65 49 6d 70 6c 65 6d 65 6e 74 29 2c 62 79 74 65 73 28 6c ┆, , refs(lineImplement),bytes(l┆
0x0dc0…0de0 69 6e 65 49 6d 70 6c 65 6d 65 6e 74 29 2c 30 2c 00 1e 92 61 64 64 72 28 6c 69 6e 65 49 6d 70 6c ┆ineImplement),0, addr(lineImpl┆
0x0de0…0e00 65 6d 65 6e 74 29 2c 73 2c 74 72 75 65 29 29 3b 00 16 84 49 4e 82 7b 65 6e 76 65 6c 6f 70 65 81 ┆ement),s,true)); IN æenvelope ┆
0x0e00…0e20 63 72 65 61 74 65 64 7d 00 22 86 63 68 65 63 6b 28 43 6f 70 79 28 63 6f 64 65 2c 74 65 6d 70 4d ┆createdå " check(Copy(code,tempM┆
0x0e20…0e40 61 6e 5e 5e 2e 63 6f 64 65 29 29 3b 00 23 86 63 68 65 63 6b 28 43 6f 70 79 28 65 67 6f 45 6e 76 ┆an^^.code)); # check(Copy(egoEnv┆
0x0e40…0e60 2c 74 65 6d 70 4d 61 6e 5e 5e 2e 69 70 63 29 29 3b 00 00 28 86 63 68 65 63 6b 28 69 70 63 47 61 ┆,tempMan^^.ipc)); ( check(ipcGa┆
0x0e60…0e80 74 65 2e 52 65 73 69 64 65 6e 74 28 74 65 6d 70 4d 61 6e 5e 5e 2e 69 70 63 29 29 3b 00 31 86 63 ┆te.Resident(tempMan^^.ipc)); 1 c┆
0x0e80…0ea0 68 65 63 6b 28 73 63 68 65 64 52 65 66 2e 4e 65 77 47 61 74 65 28 4f 55 54 81 74 65 6d 70 4d 61 ┆heck(schedRef.NewGate(OUT tempMa┆
0x0ea0…0ec0 6e 5e 5e 2e 72 65 61 64 46 69 66 6f 29 29 3b 00 00 10 86 7b 63 6f 6d 70 6c 65 74 65 81 63 6f 6e ┆n^^.readFifo)); æcomplete con┆
0x0ec0…0ee0 64 7d 00 2e 88 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 4e 65 77 43 6f 6e 64 28 4f 55 54 81 74 ┆då . check(ipcGate.NewCond(OUT t┆
0x0ee0…0f00 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 29 29 3b 00 32 88 63 68 65 63 6b 28 43 6f 70 79 28 ┆empMan^^.ownSet)); 2 check(Copy(┆
0x0f00…0f20 74 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 2c 74 65 6d 70 4d 61 6e 5e 5e 2e 63 6f 6d 70 6c ┆tempMan^^.ownSet,tempMan^^.compl┆
0x0f20…0f40 65 74 65 29 29 3b 00 1b 88 49 46 81 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 81 54 ┆ete)); IF ioRights<>NoRights T┆
0x0f40…0f60 48 45 4e 00 00 2d 8a 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 74 65 ┆HEN - check(ipcGate.Resident(te┆
0x0f60…0f80 6d 70 4d 61 6e 5e 5e 2e 63 6f 6d 70 6c 65 74 65 29 29 3b 00 00 0c 86 7b 62 72 65 61 6b 43 6f 6e ┆mpMan^^.complete)); æbreakCon┆
0x0f80…0fa0 64 7d 00 2e 88 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 4e 65 77 43 6f 6e 64 28 4f 55 54 81 74 ┆då . check(ipcGate.NewCond(OUT t┆
0x0fa0…0fc0 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 29 29 3b 00 33 88 63 68 65 63 6b 28 43 6f 70 79 28 ┆empMan^^.ownSet)); 3 check(Copy(┆
0x0fc0…0fe0 74 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 2c 74 65 6d 70 4d 61 6e 5e 5e 2e 62 72 65 61 6b ┆tempMan^^.ownSet,tempMan^^.break┆
0x0fe0…1000 43 6f 6e 64 29 29 3b 00 00 1b 88 49 46 81 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 ┆Cond)); IF ioRights<>NoRights┆
0x1000…1020 81 54 48 45 4e 00 00 2e 8a 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 ┆ THEN . check(ipcGate.Resident(┆
0x1020…1040 74 65 6d 70 4d 61 6e 5e 5e 2e 62 72 65 61 6b 43 6f 6e 64 29 29 3b 00 09 86 7b 73 63 68 65 64 51 ┆tempMan^^.breakCond)); æschedQ┆
0x1040…1060 7d 00 00 2e 88 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 4e 65 77 43 6f 6e 64 28 4f 55 54 81 74 ┆å . check(ipcGate.NewCond(OUT t┆
0x1060…1080 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 29 29 3b 00 30 88 63 68 65 63 6b 28 43 6f 70 79 28 ┆empMan^^.ownSet)); 0 check(Copy(┆
0x1080…10a0 74 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 2c 74 65 6d 70 4d 61 6e 5e 5e 2e 73 63 68 65 64 ┆tempMan^^.ownSet,tempMan^^.sched┆
0x10a0…10c0 51 29 29 3b 00 1b 88 49 46 81 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 81 54 48 45 ┆Q)); IF ioRights<>NoRights THE┆
0x10c0…10e0 4e 00 00 2b 8a 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 74 65 6d 70 ┆N + check(ipcGate.Resident(temp┆
0x10e0…1100 4d 61 6e 5e 5e 2e 73 63 68 65 64 51 29 29 3b 00 00 08 86 7b 65 6d 70 74 79 7d 00 2e 88 63 68 65 ┆Man^^.schedQ)); æemptyå . che┆
0x1100…1120 63 6b 28 69 70 63 47 61 74 65 2e 4e 65 77 43 6f 6e 64 28 4f 55 54 81 74 65 6d 70 4d 61 6e 5e 5e ┆ck(ipcGate.NewCond(OUT tempMan^^┆
0x1120…1140 2e 6f 77 6e 53 65 74 29 29 3b 00 2f 88 63 68 65 63 6b 28 43 6f 70 79 28 74 65 6d 70 4d 61 6e 5e ┆.ownSet)); / check(Copy(tempMan^┆
0x1140…1160 5e 2e 6f 77 6e 53 65 74 2c 74 65 6d 70 4d 61 6e 5e 5e 2e 65 6d 70 74 79 29 29 3b 00 00 1b 88 49 ┆^.ownSet,tempMan^^.empty)); I┆
0x1160…1180 46 81 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 81 54 48 45 4e 00 00 2a 8a 63 68 65 ┆F ioRights<>NoRights THEN * che┆
0x1180…11a0 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 74 65 6d 70 4d 61 6e 5e 5e 2e 65 6d ┆ck(ipcGate.Resident(tempMan^^.em┆
0x11a0…11c0 70 74 79 29 29 3b 00 0c 86 7b 6c 6f 63 61 6c 64 61 74 61 7d 00 31 88 63 68 65 63 6b 28 4e 65 77 ┆pty)); ælocaldataå 1 check(New┆
0x11c0…11e0 53 65 67 28 74 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 2c 62 79 74 65 73 28 64 72 69 76 44 ┆Seg(tempMan^^.ownSet,bytes(drivD┆
0x11e0…1200 61 74 61 29 29 29 3b 00 00 33 88 63 68 65 63 6b 28 43 6f 70 79 28 74 65 6d 70 4d 61 6e 5e 5e 2e ┆ata))); 3 check(Copy(tempMan^^.┆
0x1200…1220 6f 77 6e 53 65 74 2c 74 65 6d 70 4d 61 6e 5e 5e 2e 6c 6f 63 61 6c 64 61 74 61 29 29 3b 00 00 1b ┆ownSet,tempMan^^.localdata)); ┆
0x1220…1240 88 49 46 81 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 81 54 48 45 4e 00 00 2e 8a 63 ┆ IF ioRights<>NoRights THEN . c┆
0x1240…1260 68 65 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 74 65 6d 70 4d 61 6e 5e 5e 2e ┆heck(ipcGate.Resident(tempMan^^.┆
0x1260…1280 6c 6f 63 61 6c 64 61 74 61 29 29 3b 00 09 86 7b 61 75 78 42 75 66 7d 00 00 30 88 63 68 65 63 6b ┆localdata)); æauxBufå 0 check┆
0x1280…12a0 28 4e 65 77 53 65 67 28 74 65 6d 70 4d 61 6e 5e 5e 2e 61 75 78 42 75 66 2c 62 79 74 65 73 28 62 ┆(NewSeg(tempMan^^.auxBuf,bytes(b┆
0x12a0…12c0 75 66 31 30 32 34 29 29 29 3b 00 0a 86 7b 72 65 61 64 42 75 66 7d 00 2f 88 63 68 65 63 6b 28 4e ┆uf1024))); æreadBufå / check(N┆
0x12c0…12e0 65 77 53 65 67 28 74 65 6d 70 4d 61 6e 5e 5e 2e 6f 77 6e 53 65 74 2c 62 79 74 65 73 28 62 75 66 ┆ewSeg(tempMan^^.ownSet,bytes(buf┆
0x12e0…1300 32 35 36 29 29 29 3b 00 00 31 88 63 68 65 63 6b 28 43 6f 70 79 28 74 65 6d 70 4d 61 6e 5e 5e 2e ┆256))); 1 check(Copy(tempMan^^.┆
0x1300…1320 6f 77 6e 53 65 74 2c 74 65 6d 70 4d 61 6e 5e 5e 2e 72 65 61 64 42 75 66 29 29 3b 00 00 1b 88 49 ┆ownSet,tempMan^^.readBuf)); I┆
0x1320…1340 46 81 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 81 54 48 45 4e 00 00 2c 8a 63 68 65 ┆F ioRights<>NoRights THEN , che┆
0x1340…1360 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 74 65 6d 70 4d 61 6e 5e 5e 2e 72 65 ┆ck(ipcGate.Resident(tempMan^^.re┆
0x1360…1380 61 64 42 75 66 29 29 3b 00 15 86 63 68 65 63 6b 28 64 69 72 47 61 74 65 2e 4c 6f 63 6b 29 3b 00 ┆adBuf)); check(dirGate.Lock); ┆
0x1380…13a0 00 14 86 49 4e 82 7b 64 69 72 47 61 74 65 81 6c 6f 63 6b 65 64 7d 00 1c 88 57 49 54 48 81 64 3d ┆ IN ædirGate lockedå WITH d=┆
0x13a0…13c0 6c 6f 63 61 6c 64 61 74 61 5e 5e 81 44 4f 81 42 45 47 49 4e 00 1b 8a 64 65 76 6e 6f 3a 3d 73 65 ┆localdata^^ DO BEGIN devno:=se┆
0x13c0…13e0 61 72 63 68 28 66 69 6c 65 4e 61 6d 65 2c 64 29 3b 00 00 26 8a 57 49 54 48 81 63 3d 74 65 6d 70 ┆arch(fileName,d); & WITH c=temp┆
0x13e0…1400 4d 61 6e 5e 5e 2e 6c 6f 63 61 6c 64 61 74 61 5e 5e 81 44 4f 81 42 45 47 49 4e 00 10 8c 63 2e 64 ┆Man^^.localdata^^ DO BEGIN c.d┆
0x1400…1420 65 76 6e 6f 3a 3d 64 65 76 6e 6f 3b 00 14 8c 63 2e 72 65 73 65 72 76 3a 3d 69 6f 52 69 67 68 74 ┆evno:=devno; c.reserv:=ioRight┆
0x1420…1440 73 3b 00 1c 8c 63 2e 6d 6f 64 65 2e 6f 70 74 69 6f 6e 73 3a 3d 64 65 66 4f 70 74 69 6f 6e 73 3b ┆s; c.mode.options:=defOptions;┆
0x1440…1460 00 15 8b 7b 63 2e 6d 6f 64 65 2e 74 69 6d 65 6f 75 74 3a 3d 3f 3b 7d 00 00 12 8c 63 2e 64 65 76 ┆ æc.mode.timeout:=?;å c.dev┆
0x1460…1480 52 65 73 65 72 76 65 64 3a 3d 30 3b 00 14 8c 63 2e 77 61 69 74 42 72 65 61 6b 3a 3d 66 61 6c 73 ┆Reserved:=0; c.waitBreak:=fals┆
0x1480…14a0 65 3b 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 ┆e; ┆
0x14a0…14c0 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…]
0x1500…1520 00 14 8c 63 2e 77 61 69 74 45 6d 70 74 79 3a 3d 66 61 6c 73 65 3b 00 0e 8c 63 2e 61 66 74 65 72 ┆ c.waitEmpty:=false; c.after┆
0x1520…1540 4e 4c 3a 3d 30 3b 00 0d 8c 63 2e 72 62 42 61 73 65 3a 3d 30 3b 00 00 22 8c 63 2e 72 62 4c 61 73 ┆NL:=0; c.rbBase:=0; " c.rbLas┆
0x1540…1560 74 3a 3d 63 2e 72 62 42 61 73 65 3b 82 7b 69 2e 65 2e 2c 81 65 6d 70 74 79 7d 00 16 8c 57 49 54 ┆t:=c.rbBase; æi.e., emptyå WIT┆
0x1560…1580 48 81 63 2e 63 6f 75 6e 74 81 44 4f 81 42 45 47 49 4e 00 1a 8e 74 72 61 6e 73 66 65 72 73 3a 3d ┆H c.count DO BEGIN transfers:=┆
0x1580…15a0 30 3b 82 72 65 70 65 61 74 73 3a 3d 30 3b 00 15 8e 71 31 3a 3d 30 3b 82 71 32 3a 3d 30 3b 82 71 ┆0; repeats:=0; q1:=0; q2:=0; q┆
0x15a0…15c0 33 3a 3d 30 3b 00 00 05 8c 45 4e 44 3b 00 00 05 8a 45 4e 44 3b 00 00 21 8a 7b 63 68 65 63 6b 81 ┆3:=0; END; END; ! æcheck ┆
0x15c0…15e0 74 68 65 81 69 6f 52 69 67 68 74 73 81 72 65 73 65 72 76 61 74 69 6f 6e 7d 00 00 21 8a 49 46 81 ┆the ioRights reservationå ! IF ┆
0x15e0…1600 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 81 54 48 45 4e 81 42 45 47 49 4e 00 00 31 ┆ioRights<>NoRights THEN BEGIN 1┆
0x1600…1620 8c 49 46 81 53 61 6d 65 45 6e 74 69 74 79 28 63 75 72 72 44 72 69 76 65 72 5b 64 65 76 6e 6f 5d ┆ IF SameEntity(currDriverÆdevnoÅ┆
0x1620…1640 2c 76 6f 69 64 29 81 54 48 45 4e 81 42 45 47 49 4e 00 00 28 8e 63 68 65 63 6b 28 43 6f 70 79 28 ┆,void) THEN BEGIN ( check(Copy(┆
0x1640…1660 74 65 6d 70 4d 61 6e 2c 63 75 72 72 44 72 69 76 65 72 5b 64 65 76 6e 6f 5d 29 29 3b 00 2c 8e 63 ┆tempMan,currDriverÆdevnoÅ)); , c┆
0x1660…1680 68 65 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 63 75 72 72 44 72 69 76 65 72 ┆heck(ipcGate.Resident(currDriver┆
0x1680…16a0 5b 64 65 76 6e 6f 5d 29 29 3b 00 17 8e 64 2e 62 72 65 61 6b 5b 64 65 76 6e 6f 5d 3a 3d 66 61 6c ┆ÆdevnoÅ)); d.breakÆdevnoÅ:=fal┆
0x16a0…16c0 73 65 3b 00 00 0f 8c 45 4e 44 81 45 4c 53 45 81 42 45 47 49 4e 00 00 2f 8e 65 78 63 65 70 74 69 ┆se; END ELSE BEGIN / excepti┆
0x16c0…16e0 6f 6e 28 67 65 6e 52 65 73 28 2d 52 69 67 68 74 73 4f 63 63 75 70 69 65 64 2c 49 6f 46 61 6d 69 ┆on(genRes(-RightsOccupied,IoFami┆
0x16e0…1700 6c 79 2c 30 29 29 3b 00 00 05 8c 45 4e 44 3b 00 00 05 8a 45 4e 44 3b 00 00 0c 88 45 4e 44 81 7b ┆ly,0)); END; END; END æ┆
0x1700…1720 77 69 74 68 7d 3b 00 09 86 44 4f 81 42 45 47 49 4e 00 00 16 88 69 67 6e 6f 72 65 3a 3d 64 69 72 ┆withå; DO BEGIN ignore:=dir┆
0x1720…1740 47 61 74 65 2e 4f 70 65 6e 3b 00 19 88 65 78 63 65 70 74 69 6f 6e 28 67 65 74 45 78 63 65 70 74 ┆Gate.Open; exception(getExcept┆
0x1740…1760 69 6f 6e 29 3b 00 00 05 86 45 4e 44 3b 00 00 15 86 63 68 65 63 6b 28 64 69 72 47 61 74 65 2e 4f ┆ion); END; check(dirGate.O┆
0x1760…1780 70 65 6e 29 3b 00 00 21 86 49 46 81 69 6f 52 69 67 68 74 73 3c 3e 4e 6f 52 69 67 68 74 73 81 54 ┆pen); ! IF ioRights<>NoRights T┆
0x1780…17a0 48 45 4e 81 42 45 47 49 4e 00 00 15 88 7b 63 6f 6e 66 69 67 75 72 61 74 65 81 64 65 76 69 63 65 ┆HEN BEGIN æconfigurate device┆
0x17a0…17c0 7d 00 00 23 88 57 49 54 48 81 72 65 71 2e 6f 2c 81 64 3d 6c 6f 63 61 6c 64 61 74 61 5e 5e 81 44 ┆å # WITH req.o, d=localdata^^ D┆
0x17c0…17e0 4f 81 42 45 47 49 4e 00 00 1e 8a 6b 69 6e 64 3a 3d 63 6f 6e 66 69 67 4d 65 73 73 3b 81 7b 63 6f ┆O BEGIN kind:=configMess; æco┆
0x17e0…1800 6e 66 69 67 75 72 65 7d 00 0d 8a 68 33 2e 73 74 78 3a 3d 73 74 78 3b 00 00 10 8a 68 33 2e 70 61 ┆nfigureå h3.stx:=stx; h3.pa┆
0x1800…1820 63 6b 65 74 49 64 3a 3d 32 3b 00 15 8a 68 33 2e 73 69 7a 65 3a 3d 63 6f 6e 66 69 67 53 69 7a 65 ┆cketId:=2; h3.size:=configSize┆
0x1820…1840 3b 00 00 11 8a 68 33 2e 64 65 76 6e 6f 3a 3d 64 65 76 6e 6f 3b 00 00 17 8a 68 33 2e 63 68 61 6e ┆; h3.devno:=devno; h3.chan┆
0x1840…1860 43 6f 6d 3a 3d 63 6f 6e 66 69 67 43 6f 6d 3b 00 00 16 8a 68 33 2e 64 65 76 43 6f 6d 3a 3d 73 74 ┆Com:=configCom; h3.devCom:=st┆
0x1860…1880 64 44 65 76 43 6f 6d 3b 00 21 8a 68 77 43 6f 6e 66 69 67 3a 3d 64 2e 64 69 72 5b 64 65 76 6e 6f ┆dDevCom; ! hwConfig:=d.dirÆdevno┆
0x1880…18a0 5d 2e 68 77 43 6f 6e 66 69 67 3b 00 00 21 8a 73 77 43 6f 6e 66 69 67 3a 3d 64 2e 64 69 72 5b 64 ┆Å.hwConfig; ! swConfig:=d.dirÆd┆
0x18a0…18c0 65 76 6e 6f 5d 2e 73 77 43 6f 6e 66 69 67 3b 00 00 0b 8a 65 74 78 33 3a 3d 65 74 78 3b 00 00 3d ┆evnoÅ.swConfig; etx3:=etx; =┆
0x18c0…18e0 8a 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 52 65 73 69 64 65 6e 74 28 74 65 6d 70 45 6e 76 29 ┆ check(ipcGate.Resident(tempEnv)┆
0x18e0…1900 29 3b 81 7b 6d 75 73 74 81 62 65 81 72 65 73 69 64 65 6e 74 81 66 6f 72 81 69 2f 6f 7d 00 00 30 ┆); æmust be resident for i/oå 0┆
0x1900…1920 8a 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 4c 6f 63 6b 29 3b 81 7b 6d 75 73 74 81 62 65 81 6c ┆ check(ipcGate.Lock); æmust be l┆
0x1920…1940 6f 63 6b 65 64 81 74 6f 81 64 6f 81 69 2f 6f 7d 00 29 8c 73 65 6e 64 52 65 71 28 74 65 6d 70 45 ┆ocked to do i/oå ) sendReq(tempE┆
0x1940…1960 6e 76 5e 5e 2e 63 6f 6d 70 6c 65 74 65 2c 72 65 71 2c 64 65 76 6e 6f 2c 64 29 3b 00 00 15 8a 63 ┆nv^^.complete,req,devno,d); c┆
0x1960…1980 68 65 63 6b 28 69 70 63 47 61 74 65 2e 4f 70 65 6e 29 3b 00 00 38 8a 72 65 71 2e 69 2e 6b 69 6e ┆heck(ipcGate.Open); 8 req.i.kin┆
0x1980…19a0 64 3a 3d 6d 63 63 6d 53 74 41 6e 73 77 3b 81 7b 63 6f 6e 66 69 67 81 63 6f 6d 70 6c 65 74 65 64 ┆d:=mccmStAnsw; æconfig completed┆
0x19a0…19c0 81 2d 2d 81 68 6f 70 65 66 75 6c 6c 79 7d 00 2d 8a 49 46 81 4e 4f 54 81 28 28 72 65 71 2e 69 2e ┆ -- hopefullyå - IF NOT ((req.i.┆
0x19c0…19e0 68 34 2e 73 74 61 74 75 73 43 6c 61 73 73 3d 73 6f 6c 69 63 69 74 65 64 29 81 41 4e 44 00 00 22 ┆h4.statusClass=solicited) AND "┆
0x19e0…1a00 92 28 72 65 71 2e 69 2e 68 34 2e 73 74 61 74 75 73 3d 65 6e 64 43 6f 6e 66 69 67 29 29 81 54 48 ┆ (req.i.h4.status=endConfig)) TH┆
0x1a00…1a20 45 4e 00 2b 8c 65 78 63 65 70 74 69 6f 6e 28 67 65 6e 52 65 73 28 50 68 79 73 49 6f 45 72 72 6f ┆EN + exception(genRes(PhysIoErro┆
0x1a20…1a40 72 2c 49 6f 46 61 6d 69 6c 79 2c 30 29 29 3b 00 00 0c 88 45 4e 44 81 7b 77 69 74 68 7d 3b 00 0a ┆r,IoFamily,0)); END æwithå; ┆
0x1a40…1a60 86 45 4e 44 81 7b 69 66 7d 3b 00 1f 86 63 68 65 63 6b 28 4d 61 6b 65 52 65 65 6e 74 72 61 6e 74 ┆ END æifå; check(MakeReentrant┆
0x1a60…1a80 28 74 65 6d 70 4d 61 6e 29 29 3b 00 00 28 86 63 68 65 63 6b 28 4d 6f 76 65 4d 61 6e 28 74 65 6d ┆(tempMan)); ( check(MoveMan(tem┆
0x1a80…1aa0 70 4d 61 6e 2c 64 72 69 76 65 72 73 5b 64 65 76 6e 6f 5d 29 29 3b 00 09 84 44 4f 81 42 45 47 49 ┆pMan,driversÆdevnoÅ)); DO BEGI┆
0x1aa0…1ac0 4e 00 00 22 86 69 67 6e 6f 72 65 3a 3d 44 65 6c 45 6e 76 28 6f 77 6e 65 64 46 61 6f 2c 74 65 6d ┆N " ignore:=DelEnv(ownedFao,tem┆
0x1ac0…1ae0 70 4d 61 6e 29 3b 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 ┆pMan); ┆
0x1ae0…1b00 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 ┆ ┆
0x1b00…1b20 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…]
0x1d00…1d20 00 27 86 49 46 81 72 65 73 2e 6d 61 69 6e 3d 6f 6b 81 54 48 45 4e 81 72 65 73 3a 3d 67 65 74 45 ┆ ' IF res.main=ok THEN res:=getE┆
0x1d20…1d40 78 63 65 70 74 69 6f 6e 3b 00 00 46 86 7b 27 6f 77 6e 65 64 46 61 6f 27 81 69 73 81 64 65 6c 65 ┆xception; F æ'ownedFao' is dele┆
0x1d40…1d60 74 65 64 81 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 81 62 79 81 6b 65 72 6e 65 6c 81 77 68 65 6e ┆ted automatically by kernel when┆
0x1d60…1d80 81 72 65 73 75 6c 74 81 69 73 81 72 65 6a 65 63 74 7d 00 05 84 45 4e 44 3b 00 00 10 84 4f 62 6a ┆ result is rejectå END; Obj┆
0x1d80…1da0 52 65 74 75 72 6e 28 72 65 73 29 3b 00 19 45 4e 44 20 7b 2a 2a 2a 45 4e 54 52 59 20 41 73 73 69 ┆Return(res); END æ***ENTRY Assi┆
0x1da0…1dc0 67 6e 2a 2a 2a 7d 3b 00 00 04 7b 24 45 7d 00 0d 50 52 49 56 41 54 45 20 43 6c 6f 73 65 00 00 27 ┆gn***å; æ$Eå PRIVATE Close '┆
0x1dc0…1de0 82 7b 49 4e 81 64 72 69 76 65 72 2c 65 6e 76 3a 81 72 65 66 81 28 6b 65 72 6e 65 6c 81 73 75 70 ┆ æIN driver,env: ref (kernel sup┆
0x1de0…1e00 70 6c 69 65 64 29 7d 00 00 0c 82 57 49 54 48 81 52 45 43 4f 52 44 00 07 84 74 3a 81 5e 5e 3b 00 ┆plied)å WITH RECORD t: ^^; ┆
0x1e00…1e20 00 05 82 45 4e 44 3b 00 00 13 82 56 41 52 81 64 65 76 6e 6f 3a 81 64 65 76 6e 6f 73 3b 00 00 05 ┆ END; VAR devno: devnos; ┆
0x1e20…1e40 42 45 47 49 4e 00 00 15 82 63 68 65 63 6b 28 69 70 63 47 61 74 65 2e 4c 6f 63 6b 29 3b 00 00 41 ┆BEGIN check(ipcGate.Lock); A┆
0x1e40…1e60 82 57 49 54 48 81 65 3d 65 6e 76 3a 64 72 69 76 4c 6f 63 52 65 66 2c 81 63 3d 65 5e 5e 2e 6c 6f ┆ WITH e=env:drivLocRef, c=e^^.lo┆
0x1e60…1e80 63 61 6c 64 61 74 61 5e 5e 2c 81 64 3d 6c 6f 63 61 6c 64 61 74 61 5e 5e 81 44 4f 81 42 45 47 49 ┆caldata^^, d=localdata^^ DO BEGI┆
0x1e80…1ea0 4e 00 00 10 84 64 65 76 6e 6f 3a 3d 63 2e 64 65 76 6e 6f 3b 00 19 84 64 2e 63 6f 75 6e 74 5b 64 ┆N devno:=c.devno; d.countÆd┆
0x1ea0…1ec0 65 76 6e 6f 5d 3a 3d 63 2e 63 6f 75 6e 74 3b 00 00 05 82 45 4e 44 3b 00 00 15 82 63 68 65 63 6b ┆evnoÅ:=c.count; END; check┆
0x1ec0…1ee0 28 69 70 63 47 61 74 65 2e 4f 70 65 6e 29 3b 00 00 26 82 63 68 65 63 6b 28 44 65 6c 45 6e 76 28 ┆(ipcGate.Open); & check(DelEnv(┆
0x1ee0…1f00 64 72 69 76 65 72 2c 64 72 69 76 65 72 73 5b 64 65 76 6e 6f 5d 29 29 3b 00 1f 82 63 68 65 63 6b ┆driver,driversÆdevnoÅ)); check┆
0x1f00…1f20 28 44 65 61 6c 6c 6f 63 28 64 72 69 76 65 72 2c 64 72 69 76 65 72 29 29 3b 00 00 18 45 4e 44 20 ┆(Dealloc(driver,driver)); END ┆
0x1f20…1f40 7b 2a 2a 2a 45 4e 54 52 59 20 43 6c 6f 73 65 2a 2a 2a 7d 3b 00 01 20 00 00 0f 45 4e 54 52 59 20 ┆æ***ENTRY Close***å; ENTRY ┆
0x1f40…1f60 53 63 61 6e 46 69 6c 65 73 00 00 0c 82 57 49 54 48 81 52 45 43 4f 52 44 00 07 84 74 3a 81 5e 5e ┆ScanFiles WITH RECORD t: ^^┆
0x1f60…1f80 3b 00 00 05 82 45 4e 44 3b 00 00 05 42 45 47 49 4e 00 00 2e 82 65 78 63 65 70 74 69 6f 6e 28 67 ┆; END; BEGIN . exception(g┆
0x1f80…1fa0 65 6e 52 65 73 28 2d 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 55 6e 69 76 65 72 73 61 6c 2c 32 29 ┆enRes(-EntryIllegal,Universal,2)┆
0x1fa0…1fc0 29 3b 00 1b 45 4e 44 20 7b 2a 2a 2a 45 4e 54 52 59 20 49 6e 69 74 53 63 61 6e 2a 2a 2a 7d 3b 00 ┆); END æ***ENTRY InitScan***å; ┆
0x1fc0…1fe0 00 01 20 00 00 1f 45 4e 54 52 59 20 43 72 65 61 74 65 4c 69 6e 6b 20 57 49 54 48 20 74 65 6d 70 ┆ ENTRY CreateLink WITH temp┆
0x1fe0…2000 52 65 66 73 3b 00 00 38 42 45 47 49 4e 20 65 78 63 65 70 74 69 6f 6e 28 67 65 6e 52 65 73 28 2d ┆Refs; 8BEGIN exception(genRes(-┆
0x2000…2020 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 55 6e 69 76 65 72 73 61 6c 2c 32 29 29 3b 20 45 4e 44 3b ┆EntryIllegal,Universal,2)); END;┆
[…truncated at 200 lines…]