|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 96768 (0x17a00)
Names: »trcuserlib «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »trcuserlib «
0x00000…00020 (1, 34755) 00 13 a8 00 0b d6 00 0b df 63 68 65 6e 74 72 79 70 72 74 78 00 00 00 03 64 69 73 63 00 00 00 00 ┆ chentryprtx disc ┆ 0x00020…00040 00 00 00 00 63 85 65 00 00 00 00 00 00 00 00 00 00 00 00 00 44 83 00 00 00 00 4e 1f 63 6c 61 69 ┆ c e D N clai┆ 0x00040…00060 6d 70 72 6f 63 74 78 00 00 00 03 64 69 73 63 31 00 00 00 00 00 00 00 f6 6d 67 00 00 00 00 00 00 ┆mproctx disc1 mg ┆ 0x00060…00080 00 00 00 00 00 00 00 78 30 00 0b d6 00 0b df 63 6c 65 61 72 70 72 6f 63 74 78 00 00 00 04 64 69 ┆ x0 clearproctx di┆ 0x00080…000a0 73 63 00 00 00 00 00 00 00 00 63 85 6b 00 00 00 00 00 00 00 00 00 00 00 00 00 b2 a0 00 0b d6 00 ┆sc c k ┆ 0x000a0…000c0 0b df 63 6f 6e 76 65 72 74 70 72 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 63 85 6d ┆ convertprtx disc c m┆ 0x000c0…000e0 00 00 00 00 00 00 00 00 00 00 00 00 00 e0 f3 00 00 00 00 03 e7 66 70 70 72 6f 63 74 78 00 00 00 ┆ fpproctx ┆ 0x000e0…00100 00 00 00 15 64 69 73 63 00 00 00 00 00 00 00 00 79 92 dd 00 00 00 00 00 00 00 00 00 00 00 00 02 ┆ disc y ┆ 0x00100…00120 39 f8 00 00 00 00 4e 1f 67 72 63 75 73 65 72 6c 69 62 00 00 00 00 02 64 69 73 63 00 00 00 00 00 ┆9 N grcuserlib disc ┆ 0x00120…00140 00 00 00 f1 58 ae 00 00 00 00 00 00 00 00 00 00 00 00 02 53 78 00 0b d6 00 0b df 6c 69 73 74 74 ┆ X Sx listt┆ 0x00140…00160 61 69 6c 74 78 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 85 6f 00 00 00 00 00 00 00 ┆ailtx disc c o ┆ 0x00160…00180 00 00 00 00 00 02 74 08 00 00 6e 00 00 77 6c 6f 6f 6b 75 70 70 72 6f 74 78 00 00 00 06 64 69 73 ┆ t n wlookupprotx dis┆ 0x00180…001a0 63 00 00 00 00 00 00 00 00 63 e9 e2 00 00 00 00 00 00 00 00 00 00 00 00 02 d0 c0 00 00 00 00 4e ┆c c N┆ 0x001a0…001c0 1f 6c 72 63 75 73 65 72 6c 69 62 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 f1 58 c0 00 ┆ lrcuserlib disc X ┆ 0x001c0…001e0 00 00 00 00 00 00 00 00 00 00 00 02 e7 e0 00 00 6e 00 00 77 72 63 75 73 65 72 6c 69 62 74 78 00 ┆ n wrcuserlibtx ┆ 0x001e0…00200 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 63 be 2f 00 00 00 00 00 00 00 00 00 00 00 00 02 f0 ┆ disc c / ┆ 0x00200…00220 a8 00 0b d6 00 0b df 72 65 6e 61 6d 65 70 72 6f 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 ┆ renameprotx disc ┆ 0x00220…00240 00 00 63 85 77 00 00 00 00 00 00 00 00 00 00 00 00 03 28 80 00 0b d6 00 0b df 73 63 6f 70 65 70 ┆ c w ( scopep┆ 0x00240…00260 72 6f 63 74 78 00 00 00 09 64 69 73 63 00 00 00 00 00 00 00 00 63 85 78 00 00 00 00 00 00 00 00 ┆roctx disc c x ┆ 0x00260…00280 00 00 00 00 03 b8 00 00 0b d6 00 0b df 73 65 74 70 72 6f 63 74 78 00 00 00 00 00 04 64 69 73 63 ┆ setproctx disc┆ 0x00280…002a0 00 00 00 00 00 00 00 00 63 85 8f 00 00 00 00 00 00 00 00 00 00 00 00 03 f6 f8 00 00 00 00 4e 1f ┆ c N ┆ 0x002a0…002c0 74 65 73 74 62 69 74 74 78 00 00 00 00 00 05 64 69 73 63 00 00 00 00 00 00 00 00 f1 58 ac 00 00 ┆testbittx disc X ┆ 0x002c0…002e0 00 00 00 00 00 00 00 00 00 00 04 42 d0 00 00 00 00 03 e7 77 72 69 74 65 61 6c 6c 74 78 00 00 00 ┆ B writealltx ┆ 0x002e0…00300 00 06 64 69 73 63 00 00 00 00 00 00 00 00 63 85 a7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f ┆ disc c ┆ 0x00300…00320 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 6e 74 72 79 70 72 6f 63 20 73 69 ┆message procedure chentryproc si┆ 0x00320…00340 64 65 20 31 2e 20 28 61 72 29 20 37 38 31 31 30 31 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f ┆de 1. (ar) 781101; integer pro┆ 0x00340…00360 63 65 64 75 72 65 20 63 68 65 6e 74 72 79 70 72 6f 63 28 6e 61 6d 65 2c 74 61 69 6c 29 3b 0a 6c ┆cedure chentryproc(name,tail); l┆ 0x00360…00380 6f 6e 67 20 61 72 72 61 79 20 6e 61 6d 65 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 61 ┆ong array name; integer array ta┆ 0x00380…003a0 69 6c 3b 0a 3c 2a 0a 0a 20 20 20 20 63 68 65 6e 74 72 79 70 72 6f 63 20 7b 6e 64 72 65 72 20 27 ┆il; <* chentryproc ændrer '┆ 0x003a0…003c0 74 61 69 6c 27 20 69 20 65 6e 20 6b 61 74 61 6c 6f 67 69 6e 64 67 61 6e 67 2e 0a 0a 20 20 20 20 ┆tail' i en katalogindgang. ┆ 0x003c0…003e0 70 61 72 61 6d 65 74 72 65 6e 65 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 62 65 74 79 64 6e 69 ┆parametrene har følgende betydni┆ 0x003e0…00400 6e 67 3a 0a 20 20 20 20 63 68 65 6e 74 72 79 70 72 6f 63 20 3a 20 28 72 65 74 75 72 6e 20 69 6e ┆ng: chentryproc : (return in┆ 0x00400…00420 74 65 67 65 72 29 20 20 20 20 30 20 20 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆teger) 0 ok ┆ 0x00420…00440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 63 68 61 6e 67 65 20 ┆ 1 change ┆ 0x00440…00460 6b 69 6e 64 20 69 6d 70 6f 73 73 69 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kind impossible ┆ 0x00460…00480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 63 61 74 20 69 2f 6f ┆ 2 cat i/o┆ 0x00480…004a0 20 65 72 72 6f 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ error, ┆ 0x004a0…004c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 63 2e 20 6e 6f 74 20 6d 6f 75 6e 74 65 ┆ doc. not mounte┆ 0x004c0…004e0 64 20 6f 72 20 6e 6f 74 20 72 65 61 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d or not ready ┆ 0x004e0…00500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 6e 61 6d 65 20 6e 6f 74 ┆ 3 name not┆ 0x00500…00520 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ found ┆ 0x00520…00540 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 20 6e 61 6d 65 20 70 72 6f 74 65 63 74 65 64 0a 20 ┆ 4 name protected ┆ 0x00540…00560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x00560…00580 20 20 20 20 20 35 20 20 6e 61 6d 65 20 69 6e 20 75 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 5 name in use ┆ 0x00580…005a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 6e 61 6d ┆ 6 nam┆ 0x005a0…005c0 65 20 66 6f 72 6d 61 74 20 69 6c 6c 65 67 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e format illegal ┆ 0x005c0…005e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 20 20 63 61 74 61 6c 6f ┆ 7 catalo┆ 0x005e0…00600 67 20 69 6e 63 6f 6e 73 69 73 74 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆g inconsistent ┆ 0x00600…00620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 20 20 63 68 61 6e 67 65 20 62 ┆ 8 change b┆ 0x00620…00640 73 20 64 65 76 69 63 65 20 69 6d 70 6f 73 73 69 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆s device impossible ┆ 0x00640…00660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 39 20 20 63 6c 61 ┆ 9 cla┆ 0x00660…00680 69 6d 73 20 65 78 63 65 65 64 65 64 0a 0a 20 20 20 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 ┆ims exceeded name ┆ 0x00680…006a0 20 20 3a 20 28 63 61 6c 6c 2c 20 6c 6f 6e 67 20 61 72 72 61 79 29 20 20 63 6f 6e 74 61 69 6e 73 ┆ : (call, long array) contains┆ 0x006a0…006c0 20 74 68 65 20 65 6e 74 72 79 20 6e 61 6d 65 0a 0a 20 20 20 20 74 61 69 6c 20 20 20 20 20 20 20 ┆ the entry name tail ┆ 0x006c0…006e0 20 20 20 20 20 3a 20 28 63 61 6c 6c 2c 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 29 20 63 6f 6e ┆ : (call, integer array) con┆ 0x006e0…00700 74 61 69 6e 73 20 6e 65 77 20 65 6e 74 72 79 20 74 61 69 6c 0a 2a 3e 0a 62 65 67 69 6e 20 69 6e ┆tains new entry tail *> begin in┆ 0x00700…00720 74 65 67 65 72 20 69 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 28 31 3a 31 30 29 3b ┆teger i; integer array ia(1:10);┆ 0x00720…00740 0a 7a 6f 6e 65 20 7a 68 65 6c 70 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 69 3a 3d ┆ zone zhelp(1,1,stderror); i:=┆ 0x00740…00760 31 3b 20 6f 70 65 6e 28 7a 68 65 6c 70 2c 30 2c 73 74 72 69 6e 67 20 6e 61 6d 65 28 69 6e 63 72 ┆1; open(zhelp,0,string name(incr┆ 0x00760…00780 65 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 69 3a 3d 6d 6f 6e 69 74 6f 72 28 34 32 3c 2a 6c 6f ┆ease(i)),0); i:=monitor(42<*lo┆ 0x00780…007a0 6f 6b 75 70 2a 3e 2c 7a 68 65 6c 70 2c 30 2c 69 61 29 3b 0a 20 20 69 66 20 69 3c 3e 30 20 74 68 ┆okup*>,zhelp,0,ia); if i<>0 th┆ 0x007a0…007c0 65 6e 0a 20 20 62 65 67 69 6e 20 63 68 65 6e 74 72 79 70 72 6f 63 3a 3d 69 3b 20 67 6f 74 6f 20 ┆en begin chentryproc:=i; goto ┆ 0x007c0…007e0 65 78 69 74 5f 63 68 65 6e 74 72 79 70 72 6f 63 20 65 6e 64 3b 0a 20 20 69 66 20 74 61 69 6c 28 ┆exit_chentryproc end; if tail(┆ 0x007e0…00800 31 29 3c 30 20 6f 72 20 69 61 28 31 29 3c 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 ┆1)<0 or ia(1)<0 then begin ┆ 0x00800…00820 20 69 66 20 74 61 69 6c 28 31 29 3e 3d 30 20 6f 72 20 69 61 28 31 29 3e 3d 30 20 74 68 65 6e 0a ┆ if tail(1)>=0 or ia(1)>=0 then ┆ 0x00820…00840 20 20 20 20 62 65 67 69 6e 20 63 68 65 6e 74 72 79 70 72 6f 63 3a 3d 31 3b 20 67 6f 74 6f 20 65 ┆ begin chentryproc:=1; goto e┆ 0x00840…00860 78 69 74 5f 63 68 65 6e 74 72 79 70 72 6f 63 20 65 6e 64 3b 0a 20 20 20 20 67 6f 74 6f 20 63 68 ┆xit_chentryproc end; goto ch┆ 0x00860…00880 61 6e 67 65 0a 20 20 65 6e 64 3b 0a 20 20 69 66 20 74 61 69 6c 28 32 29 3d 30 20 6f 72 20 74 61 ┆ange end; if tail(2)=0 or ta┆ 0x00880…008a0 69 6c 28 32 29 3d 31 20 74 68 65 6e 20 67 6f 74 6f 20 63 68 61 6e 67 65 3b 0a 20 20 69 66 20 74 ┆il(2)=1 then goto change; if t┆ 0x008a0…008c0 61 69 6c 28 33 29 20 65 78 74 72 61 63 74 20 38 3d 30 20 74 68 65 6e 20 74 61 69 6c 28 34 29 3a ┆ail(3) extract 8=0 then tail(4):┆ 0x008c0…008e0 3d 74 61 69 6c 28 35 29 3a 3d 30 3b 0a 20 20 69 66 20 74 61 69 6c 28 32 29 3c 3e 69 61 28 32 29 ┆=tail(5):=0; if tail(2)<>ia(2)┆ 0x008e0…00900 20 6f 72 20 74 61 69 6c 28 33 29 3c 3e 69 61 28 33 29 20 6f 72 0a 20 20 20 20 20 74 61 69 6c 28 ┆ or tail(3)<>ia(3) or tail(┆ 0x00900…00920 (1, 34756) 34 29 3c 3e 69 61 28 34 29 20 6f 72 20 74 61 69 6c 28 35 29 3c 3e 69 61 28 35 29 20 74 68 65 6e ┆4)<>ia(4) or tail(5)<>ia(5) then┆ 0x00920…00940 0a 20 20 62 65 67 69 6e 20 63 68 65 6e 74 72 79 70 72 6f 63 3a 3d 38 3b 20 67 6f 74 6f 20 65 78 ┆ begin chentryproc:=8; goto ex┆ 0x00940…00960 69 74 5f 63 68 65 6e 74 72 79 70 72 6f 63 20 65 6e 64 3b 0a 63 68 61 6e 67 65 3a 0a 20 20 66 6f ┆it_chentryproc end; change: fo┆ 0x00960…00980 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 69 61 28 69 29 3a ┆r i:=1 step 1 until 10 do ia(i):┆ 0x00980…009a0 3d 74 61 69 6c 28 69 29 3b 20 3c 2a 66 69 65 6c 64 69 6e 67 20 70 6f 73 73 69 62 6c 65 2a 3e 0a ┆=tail(i); <*fielding possible*> ┆ 0x009a0…009c0 20 20 69 3a 3d 6d 6f 6e 69 74 6f 72 28 34 34 3c 2a 63 68 61 6e 67 65 2a 3e 2c 7a 68 65 6c 70 2c ┆ i:=monitor(44<*change*>,zhelp,┆ 0x009c0…009e0 30 2c 69 61 29 3b 0a 20 20 69 66 20 69 3d 36 20 74 68 65 6e 20 69 3a 3d 39 3b 0a 20 20 63 68 65 ┆0,ia); if i=6 then i:=9; che┆ 0x009e0…00a00 6e 74 72 79 70 72 6f 63 3a 3d 69 3b 0a 65 78 69 74 5f 63 68 65 6e 74 72 79 70 72 6f 63 3a 0a 65 ┆ntryproc:=i; exit_chentryproc: e┆ 0x00a00…00a20 6e 64 20 63 68 65 6e 74 72 79 70 72 6f 63 3b 0a 19 61 72 72 61 79 20 69 61 28 31 3a 31 30 29 3b ┆nd chentryproc; array ia(1:10);┆ 0x00a20…00a40 0a 7a 6f 6e 65 20 7a 68 65 6c 70 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 69 3a 3d ┆ zone zhelp(1,1,stderror); i:=┆ 0x00a40…00a60 31 3b 20 6f 70 65 6e 28 7a 68 65 6c 70 2c 30 2c 73 74 72 69 6e 67 20 6e 61 6d 65 28 69 6e 63 72 ┆1; open(zhelp,0,string name(incr┆ 0x00a60…00a80 65 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 69 3a 3d 6d 6f 6e 69 74 6f 72 28 34 32 3c 2a 6c 6f ┆ease(i)),0); i:=monitor(42<*lo┆ 0x00a80…00aa0 6f 6b 75 70 2a 3e 2c 7a 68 65 6c 70 2c 30 2c 69 61 29 3b 0a 20 20 69 66 20 69 3c 3e 30 20 74 68 ┆okup*>,zhelp,0,ia); if i<>0 th┆ 0x00aa0…00ac0 65 6e 0a 20 20 62 65 67 69 6e 20 63 68 65 6e 74 72 79 70 72 6f 63 3a 3d 69 3b 20 67 6f 74 6f 20 ┆en begin chentryproc:=i; goto ┆ 0x00ac0…00ae0 65 78 69 74 5f 63 68 65 6e 74 72 79 70 72 6f 63 20 65 6e 64 3b 0a 20 20 69 66 20 74 61 69 6c 28 ┆exit_chentryproc end; if tail(┆ 0x00ae0…00b00 31 29 3c 30 20 6f 72 20 69 61 28 31 29 3c 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 ┆1)<0 or ia(1)<0 then begin ┆ 0x00b00…00b20 20 69 66 20 74 61 69 6c 28 31 29 3e 3d 30 20 6f 72 20 69 61 28 31 29 3e 3d 30 20 74 68 65 6e 0a ┆ if tail(1)>=0 or ia(1)>=0 then ┆ 0x00b20…00b40 20 20 20 20 62 65 67 69 6e 20 63 68 65 6e 74 72 79 70 72 6f 63 3a 3d 31 3b 20 67 6f 74 6f 20 65 ┆ begin chentryproc:=1; goto e┆ 0x00b40…00b60 78 69 74 5f 63 68 65 6e 74 72 79 70 72 6f 63 20 65 6e 64 3b 0a 20 20 20 20 67 6f 74 6f 20 63 68 ┆xit_chentryproc end; goto ch┆ 0x00b60…00b80 61 6e 67 65 0a 20 20 65 6e 64 3b 0a 20 20 69 66 20 74 61 69 6c 28 32 29 3d 30 20 6f 72 20 74 61 ┆ange end; if tail(2)=0 or ta┆ 0x00b80…00ba0 69 6c 28 32 29 3d 31 20 74 68 65 6e 20 67 6f 74 6f 20 63 68 61 6e 67 65 3b 0a 20 20 69 66 20 74 ┆il(2)=1 then goto change; if t┆ 0x00ba0…00bc0 61 69 6c 28 33 29 20 65 78 74 72 61 63 74 20 38 3d 30 20 74 68 65 6e 20 74 61 69 6c 28 34 29 3a ┆ail(3) extract 8=0 then tail(4):┆ 0x00bc0…00be0 3d 74 61 69 6c 28 35 29 3a 3d 30 3b 0a 20 20 69 66 20 74 61 69 6c 28 32 29 3c 3e 69 61 28 32 29 ┆=tail(5):=0; if tail(2)<>ia(2)┆ 0x00be0…00c00 20 6f 72 20 74 61 69 6c 28 33 29 3c 3e 69 61 28 33 29 20 6f 72 0a 20 20 20 20 20 74 61 69 6c 28 ┆ or tail(3)<>ia(3) or tail(┆ 0x00c00…00c20 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 63 6c 61 69 6d 70 72 6f 63 20 73 69 64 65 ┆message procedure claimproc side┆ 0x00c20…00c40 20 31 2e 20 28 68 6b 6f 2c 61 72 29 20 37 38 31 31 30 31 3b 0a 0a 0a 62 6f 6f 6c 65 61 6e 20 70 ┆ 1. (hko,ar) 781101; boolean p┆ 0x00c40…00c60 72 6f 63 65 64 75 72 65 20 63 6c 61 69 6d 70 72 6f 63 0a 20 20 20 20 20 20 28 6b 65 79 6e 6f 2c ┆rocedure claimproc (keyno,┆ 0x00c60…00c80 62 73 6e 6f 2c 62 73 6e 61 6d 65 2c 65 6e 74 72 69 65 73 2c 73 65 67 6d 2c 73 6c 69 63 65 6c 65 ┆bsno,bsname,entries,segm,slicele┆ 0x00c80…00ca0 6e 67 74 68 29 3b 0a 76 61 6c 75 65 20 6b 65 79 6e 6f 2c 20 62 73 6e 6f 3b 0a 69 6e 74 65 67 65 ┆ngth); value keyno, bsno; intege┆ 0x00ca0…00cc0 72 20 6b 65 79 6e 6f 2c 62 73 6e 6f 2c 65 6e 74 72 69 65 73 2c 73 65 67 6d 2c 73 6c 69 63 65 6c ┆r keyno,bsno,entries,segm,slicel┆ 0x00cc0…00ce0 65 6e 67 74 68 3b 0a 6c 6f 6e 67 20 61 72 72 61 79 20 62 73 6e 61 6d 65 3b 0a 3c 2a 0a 0a 20 20 ┆ength; long array bsname; <* ┆ 0x00ce0…00d00 20 20 63 6c 61 69 6d 70 72 6f 63 20 66 69 6e 64 65 72 20 65 6e 20 70 72 6f 63 65 73 27 73 20 6c ┆ claimproc finder en proces's l┆ 0x00d00…00d20 65 64 69 67 65 20 72 65 73 6f 75 72 63 65 72 20 70 7d 20 62 61 67 67 72 75 6e 64 73 6c 61 67 65 ┆edige resourcer på baggrundslage┆ 0x00d20…00d40 72 65 74 2e 0a 0a 20 20 20 20 70 61 72 61 6d 65 74 72 65 6e 65 20 68 61 72 20 66 7c 6c 67 65 6e ┆ret. parametrene har følgen┆ 0x00d40…00d60 64 65 20 62 65 74 79 64 6e 69 6e 67 3a 0a 20 20 20 20 63 6c 61 69 6d 70 72 6f 63 28 72 65 74 75 ┆de betydning: claimproc(retu┆ 0x00d60…00d80 72 6e 2c 20 62 6f 6f 6c 65 61 6e 29 20 20 74 72 75 65 20 69 66 20 62 73 6e 6f 3e 3d 30 20 61 6e ┆rn, boolean) true if bsno>=0 an┆ 0x00d80…00da0 64 20 62 73 6e 6f 3c 3d 6d 61 78 20 62 73 6e 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d bsno<=max bsno ┆ 0x00da0…00dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 6b 65 79 6e 6f 20 ┆ and keyno ┆ 0x00dc0…00de0 69 73 20 6c 65 67 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆is legal ┆ 0x00de0…00e00 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 66 61 6c 73 65 2e 20 49 66 20 63 6c 61 69 6d 70 72 6f ┆ else false. If claimpro┆ 0x00e00…00e20 63 20 69 73 20 66 61 6c 73 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆c is false then ┆ 0x00e20…00e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 20 72 65 74 75 72 6e 20 70 61 72 61 6d ┆ all return param┆ 0x00e40…00e60 65 74 65 72 73 20 61 72 65 20 7a 65 72 6f 2e 0a 20 20 20 20 6b 65 79 6e 6f 20 20 20 20 28 63 61 ┆eters are zero. keyno (ca┆ 0x00e60…00e80 6c 6c 2c 20 69 6e 74 65 67 65 72 29 20 20 20 20 30 3d 74 65 6d 70 0a 20 20 20 20 20 20 20 20 20 ┆ll, integer) 0=temp ┆ 0x00e80…00ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 3d 6c 6f 67 69 6e 0a 20 ┆ 2=login ┆ 0x00ea0…00ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 ┆ 3┆ 0x00ec0…00ee0 3d 75 73 65 72 2f 70 72 6f 6a 65 63 74 0a 20 20 20 20 62 73 6e 6f 20 20 20 20 20 28 63 61 6c 6c ┆=user/project bsno (call┆ 0x00ee0…00f00 2c 20 69 6e 74 65 67 65 72 29 20 20 20 20 6d 61 69 6e 20 62 73 64 65 76 69 63 65 20 69 73 20 30 ┆, integer) main bsdevice is 0┆ 0x00f00…00f20 0a 20 20 20 20 62 73 6e 61 6d 65 20 20 20 28 72 65 74 75 72 6e 2c 20 6c 6f 6e 67 20 61 72 72 61 ┆ bsname (return, long arra┆ 0x00f20…00f40 79 20 31 3a 32 29 20 6e 61 6d 65 20 6f 66 20 63 61 6c 6c 65 64 20 64 65 76 69 63 65 0a 20 20 20 ┆y 1:2) name of called device ┆ 0x00f40…00f60 20 65 6e 74 72 69 65 73 20 20 28 72 65 74 75 72 6e 2c 20 69 6e 74 65 67 65 72 29 20 20 6e 6f 2e ┆ entries (return, integer) no.┆ 0x00f60…00f80 20 6f 66 20 65 6e 74 72 69 65 73 20 6f 66 20 6b 65 79 3d 6b 65 79 6e 6f 20 6f 6e 20 63 61 6c 6c ┆ of entries of key=keyno on call┆ 0x00f80…00fa0 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ed ┆ 0x00fa0…00fc0 20 20 20 64 65 76 69 63 65 0a 20 20 20 20 73 65 67 6d 20 20 20 20 20 28 72 65 74 75 72 6e 2c 20 ┆ device segm (return, ┆ 0x00fc0…00fe0 69 6e 74 65 67 65 72 29 20 20 6e 6f 2e 20 6f 66 20 73 65 67 6d 2e 20 6f 66 20 6b 65 79 3d 6b 65 ┆integer) no. of segm. of key=ke┆ 0x00fe0…01000 79 6e 6f 20 6f 6e 20 63 61 6c 6c 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆yno on called ┆ 0x01000…01020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 76 69 63 65 0a 20 20 20 20 73 6c 69 63 65 6c 65 ┆ device slicele┆ 0x01020…01040 6e 67 74 68 20 28 72 65 74 75 72 6e 2c 20 69 6e 74 65 67 65 72 29 20 73 6c 69 63 65 6c 65 6e 67 ┆ngth (return, integer) sliceleng┆ 0x01040…01060 74 68 20 6f 6e 20 63 61 6c 6c 65 64 20 64 65 76 69 63 65 0a 2a 3e 0a 0c 62 65 67 69 6e 0a 6f 77 ┆th on called device *> begin ow┆ 0x01060…01080 6e 20 62 6f 6f 6c 65 61 6e 20 69 6e 69 74 3b 0a 6f 77 6e 20 69 6e 74 65 67 65 72 20 62 73 64 65 ┆n boolean init; own integer bsde┆ 0x01080…010a0 76 69 63 65 73 2c 66 69 72 73 74 62 73 2c 6f 77 6e 61 64 72 2c 6d 6f 6e 72 65 6c 3b 0a 69 6e 74 ┆vices,firstbs,ownadr,monrel; int┆ 0x010a0…010c0 65 67 65 72 20 69 3b 0a 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6e 61 6d 65 3b 0a 69 ┆eger i; long array field name; i┆ 0x010c0…010e0 6e 74 65 67 65 72 20 61 72 72 61 79 20 63 6f 72 65 28 31 3a 31 38 29 3b 0a 20 20 69 66 20 2d 2c ┆nteger array core(1:18); if -,┆ 0x010e0…01100 69 6e 69 74 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 69 74 3a 3d 74 72 75 65 ┆init then begin init:=true┆ 0x01100…01120 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 35 2c 36 34 2c 63 6f 72 65 29 3b 0a 20 20 20 20 6d 6f 6e ┆; system(5,64,core); mon┆ 0x01120…01140 72 65 6c 3a 3d 63 6f 72 65 28 31 29 20 73 68 69 66 74 20 28 2d 31 32 29 3b 20 20 3c 2a 6d 6f 6e ┆rel:=core(1) shift (-12); <*mon┆ 0x01140…01160 69 74 6f 72 20 72 65 6c 65 61 73 65 2a 3e 0a 20 20 20 20 73 79 73 74 65 6d 28 35 2c 39 32 2c 63 ┆itor release*> system(5,92,c┆ 0x01160…01180 6f 72 65 29 3b 0a 20 20 20 20 62 73 64 65 76 69 63 65 73 3a 3d 28 63 6f 72 65 28 33 29 2d 63 6f ┆ore); bsdevices:=(core(3)-co┆ 0x01180…011a0 72 65 28 31 29 29 2f 2f 32 3b 0a 20 20 20 20 66 69 72 73 74 62 73 3a 3d 63 6f 72 65 28 31 29 3b ┆re(1))//2; firstbs:=core(1);┆ 0x011a0…011c0 0a 20 20 20 20 6f 77 6e 61 64 72 3a 3d 73 79 73 74 65 6d 28 36 2c 69 2c 62 73 6e 61 6d 65 29 3b ┆ ownadr:=system(6,i,bsname);┆ 0x011c0…011e0 0a 20 20 65 6e 64 3b 0a 20 20 69 66 20 62 73 6e 6f 3c 30 20 6f 72 20 62 73 6e 6f 3e 3d 62 73 64 ┆ end; if bsno<0 or bsno>=bsd┆ 0x011e0…01200 65 76 69 63 65 73 20 0a 20 20 6f 72 20 6b 65 79 6e 6f 3c 3e 30 20 61 6e 64 20 6b 65 79 6e 6f 3c ┆evices or keyno<>0 and keyno<┆ 0x01200…01220 (1, 34757) 3e 32 20 61 6e 64 20 6b 65 79 6e 6f 3c 3e 33 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 20 0a 20 20 ┆>2 and keyno<>3 then begin ┆ 0x01220…01240 20 20 63 6c 61 69 6d 70 72 6f 63 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 67 6f 74 6f 20 65 78 69 ┆ claimproc:=false; goto exi┆ 0x01240…01260 74 63 6c 61 69 6d 0a 20 20 65 6e 64 3b 0a 20 20 63 6c 61 69 6d 70 72 6f 63 3a 3d 74 72 75 65 3b ┆tclaim end; claimproc:=true;┆ 0x01260…01280 0a 20 20 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6e 61 6d 65 74 61 62 6c 65 ┆ begin integer array nametable┆ 0x01280…012a0 28 31 3a 62 73 64 65 76 69 63 65 73 29 3b 0a 20 20 20 20 6e 61 6d 65 3a 3d 31 38 3b 0a 20 20 20 ┆(1:bsdevices); name:=18; ┆ 0x012a0…012c0 20 73 79 73 74 65 6d 28 35 2c 66 69 72 73 74 62 73 2c 6e 61 6d 65 74 61 62 6c 65 29 3b 0a 20 20 ┆ system(5,firstbs,nametable); ┆ 0x012c0…012e0 20 20 73 79 73 74 65 6d 28 35 2c 6e 61 6d 65 74 61 62 6c 65 28 62 73 6e 6f 2b 31 29 2d 33 36 2c ┆ system(5,nametable(bsno+1)-36,┆ 0x012e0…01300 63 6f 72 65 29 3b 0a 20 20 20 20 69 66 20 63 6f 72 65 28 31 30 29 3d 30 20 74 68 65 6e 20 67 6f ┆core); if core(10)=0 then go┆ 0x01300…01320 74 6f 20 65 78 69 74 63 6c 61 69 6d 3b 0a 20 20 20 20 62 73 6e 61 6d 65 28 31 29 3a 3d 63 6f 72 ┆to exitclaim; bsname(1):=cor┆ 0x01320…01340 65 2e 6e 61 6d 65 28 31 29 3b 20 62 73 6e 61 6d 65 28 32 29 3a 3d 63 6f 72 65 2e 6e 61 6d 65 28 ┆e.name(1); bsname(2):=core.name(┆ 0x01340…01360 32 29 3b 0a 20 20 20 20 73 6c 69 63 65 6c 65 6e 67 74 68 3a 3d 63 6f 72 65 28 31 35 29 3b 0a 20 ┆2); slicelength:=core(15); ┆ 0x01360…01380 20 20 20 73 79 73 74 65 6d 28 35 2c 6f 77 6e 61 64 72 2b 63 6f 72 65 28 31 29 2c 63 6f 72 65 29 ┆ system(5,ownadr+core(1),core)┆ 0x01380…013a0 3b 0a 20 20 20 20 69 66 20 6d 6f 6e 72 65 6c 3c 3d 38 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 ┆; if monrel<=8 then begi┆ 0x013a0…013c0 6e 0a 20 20 20 20 20 20 65 6e 74 72 69 65 73 3a 3d 63 6f 72 65 28 6b 65 79 6e 6f 2b 31 29 20 73 ┆n entries:=core(keyno+1) s┆ 0x013c0…013e0 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 20 20 20 20 20 73 65 67 6d 3a 3d 63 6f 72 65 28 6b 65 79 ┆hift (-12); segm:=core(key┆ 0x013e0…01400 6e 6f 2b 31 29 20 65 78 74 72 61 63 74 20 31 32 20 2a 20 73 6c 69 63 65 6c 65 6e 67 74 68 3b 0a ┆no+1) extract 12 * slicelength; ┆ 0x01400…01420 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 65 6e 74 ┆ end else begin ent┆ 0x01420…01440 72 69 65 73 3a 3d 63 6f 72 65 28 32 2a 6b 65 79 6e 6f 20 2b 31 29 3b 0a 20 20 20 20 20 20 73 65 ┆ries:=core(2*keyno +1); se┆ 0x01440…01460 67 6d 3a 3d 63 6f 72 65 28 32 2a 6b 65 79 6e 6f 20 2b 20 32 29 20 2a 20 73 6c 69 63 65 6c 65 6e ┆gm:=core(2*keyno + 2) * slicelen┆ 0x01460…01480 67 74 68 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 20 20 69 66 20 66 61 6c 73 65 20 ┆gth; end; end; if false ┆ 0x01480…014a0 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 65 78 69 74 63 6c 61 69 6d 3a 0a 20 20 20 20 65 6e 74 72 ┆then begin exitclaim: entr┆ 0x014a0…014c0 69 65 73 3a 3d 73 65 67 6d 3a 3d 73 6c 69 63 65 6c 65 6e 67 74 68 3a 3d 30 3b 0a 20 20 20 20 62 ┆ies:=segm:=slicelength:=0; b┆ 0x014c0…014e0 73 6e 61 6d 65 28 31 29 3a 3d 62 73 6e 61 6d 65 28 32 29 3a 3d 30 3b 0a 20 20 65 6e 64 3b 0a 65 ┆sname(1):=bsname(2):=0; end; e┆ 0x014e0…01500 6e 64 20 63 6c 61 69 6d 70 72 6f 63 3b 0a 19 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆nd claimproc; ┆ 0x01500…01520 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 72 70 72 6f 63 20 73 69 64 65 ┆message procedure clearproc side┆ 0x01520…01540 20 31 2e 20 28 68 6b 6f 2c 61 72 29 20 37 38 31 31 30 31 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 ┆ 1. (hko,ar) 781101; integer p┆ 0x01540…01560 72 6f 63 65 64 75 72 65 20 63 6c 65 61 72 70 72 6f 63 28 73 63 6f 70 65 2c 6e 61 6d 65 29 3b 0a ┆rocedure clearproc(scope,name); ┆ 0x01560…01580 6c 6f 6e 67 20 61 72 72 61 79 20 73 63 6f 70 65 2c 6e 61 6d 65 3b 0a 0a 3c 2a 0a 0a 20 20 20 20 ┆long array scope,name; <* ┆ 0x01580…015a0 63 6c 65 61 72 70 72 6f 63 20 66 6a 65 72 6e 65 72 20 65 6e 20 69 6e 64 67 61 6e 67 20 66 72 61 ┆clearproc fjerner en indgang fra┆ 0x015a0…015c0 20 6b 61 74 61 6c 6f 67 65 74 2e 0a 0a 20 20 20 20 70 61 72 61 6d 65 74 72 65 6e 65 20 68 61 72 ┆ kataloget. parametrene har┆ 0x015c0…015e0 20 66 7c 6c 67 65 6e 64 65 20 62 65 74 79 64 6e 69 6e 67 3a 0a 20 20 20 20 63 6c 65 61 72 70 72 ┆ følgende betydning: clearpr┆ 0x015e0…01600 6f 63 20 20 28 72 65 74 75 72 6e 2c 20 69 6e 74 65 67 65 72 29 20 20 30 20 20 63 6c 65 61 72 65 ┆oc (return, integer) 0 cleare┆ 0x01600…01620 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d ┆ 0x01620…01640 20 20 20 20 31 20 20 74 68 65 20 63 61 6c 6c 20 70 61 72 61 6d 20 73 63 6f 70 65 20 64 6f 65 73 ┆ 1 the call param scope does┆ 0x01640…01660 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ not contain ┆ 0x01660…01680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 6c 65 67 61 6c 20 73 63 6f 70 65 20 ┆ a legal scope ┆ 0x01680…016a0 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆name ┆ 0x016a0…016c0 20 20 20 20 20 20 20 32 20 20 63 61 74 20 69 2f 6f 20 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 ┆ 2 cat i/o error ┆ 0x016c0…016e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 65 6e 74 ┆ 3 ent┆ 0x016e0…01700 72 79 20 6e 6f 74 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ry not found ┆ 0x01700…01720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 20 65 6e 74 72 79 20 70 72 6f 74 65 63 74 65 ┆ 4 entry protecte┆ 0x01720…01740 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d ┆ 0x01740…01760 20 20 20 20 35 20 20 65 6e 74 72 79 20 69 6e 20 75 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 5 entry in use ┆ 0x01760…01780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 6e 61 6d 65 20 66 6f ┆ 6 name fo┆ 0x01780…017a0 72 6d 61 74 20 69 6c 6c 65 67 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rmat illegal ┆ 0x017a0…017c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 20 20 63 61 74 61 6c 6f 67 20 69 6e 63 6f 6e 73 ┆ 7 catalog incons┆ 0x017c0…017e0 69 73 74 65 6e 74 0a 20 20 20 20 73 63 6f 70 65 20 20 20 20 20 20 28 63 61 6c 6c 2c 20 6c 6f 6e ┆istent scope (call, lon┆ 0x017e0…01800 67 20 61 72 72 61 79 29 20 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 ┆g array) contains the name of a┆ 0x01800…01820 20 73 63 6f 70 65 0a 20 20 20 20 6e 61 6d 65 20 20 20 20 20 20 20 28 63 61 6c 6c 2c 20 6c 6f 6e ┆ scope name (call, lon┆ 0x01820…01840 67 20 61 72 72 61 79 29 20 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 ┆g array) contains the name of t┆ 0x01840…01860 68 65 20 65 6e 74 72 79 20 74 6f 20 62 65 20 63 6c 65 61 72 65 64 0a 2a 3e 0a 0c 62 65 67 69 6e ┆he entry to be cleared *> begin┆ 0x01860…01880 20 69 6e 74 65 67 65 72 20 73 63 6f 70 65 6e 6f 2c 69 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 ┆ integer scopeno,i; integer arra┆ 0x01880…018a0 79 20 62 61 73 65 73 28 31 3a 38 29 2c 20 65 6e 74 72 79 28 31 3a 31 37 29 2c 20 62 61 28 31 3a ┆y bases(1:8), entry(1:17), ba(1:┆ 0x018a0…018c0 32 29 3b 0a 7a 6f 6e 65 20 7a 68 65 6c 70 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 ┆2); zone zhelp(1,1,stderror); ┆ 0x018c0…018e0 63 6c 65 61 72 70 72 6f 63 3a 3d 30 3b 0a 20 20 73 63 6f 70 65 6e 6f 3a 3d 69 66 20 73 63 6f 70 ┆clearproc:=0; scopeno:=if scop┆ 0x018e0…01900 65 28 31 29 3d 6c 6f 6e 67 3c 3a 74 65 6d 70 3a 3e 20 20 74 68 65 6e 20 31 20 65 6c 73 65 0a 20 ┆e(1)=long<:temp:> then 1 else ┆ 0x01900…01920 20 20 20 20 20 20 20 20 20 20 69 66 20 73 63 6f 70 65 28 31 29 3d 6c 6f 6e 67 3c 3a 6c 6f 67 69 ┆ if scope(1)=long<:logi┆ […truncated at 200 lines…]