|
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: 64512 (0xfc00)
Names: »trcuserlib «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦this⟧ »trcuserlib «
0x0000…0020 (1, 8024) 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 ┆ 0x0020…0040 00 00 00 00 63 85 65 00 00 00 00 00 00 00 00 00 00 00 00 00 41 c8 00 00 00 00 4e 1f 63 6c 61 69 ┆ c e A N clai┆ 0x0040…0060 6d 70 72 6f 63 74 78 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 9b 89 93 00 00 00 00 00 00 ┆mproctx disc ┆ 0x0060…0080 00 00 00 00 00 00 00 88 30 00 0b d6 00 0b df 63 6c 65 61 72 70 72 6f 63 74 78 00 00 00 04 64 69 ┆ 0 clearproctx di┆ 0x0080…00a0 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 c2 a0 00 0b d6 00 ┆sc c k ┆ 0x00a0…00c0 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┆ 0x00c0…00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 f0 f3 00 00 00 00 03 e7 66 70 70 72 6f 63 74 78 00 00 00 ┆ fpproctx ┆ 0x00e0…0100 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 ┆ 0x0100…0120 42 aa 00 00 c8 00 00 d1 67 72 63 75 73 65 72 6c 69 62 00 00 00 00 02 64 69 73 63 00 00 00 00 00 ┆B grcuserlib disc ┆ 0x0120…0140 00 00 00 9b 8a b8 00 00 00 00 00 00 00 00 00 00 00 00 02 63 78 00 0b d6 00 0b df 6c 69 73 74 74 ┆ cx listt┆ 0x0140…0160 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 ┆ 0x0160…0180 00 00 00 00 00 02 84 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 ┆ n wlookupprotx dis┆ 0x0180…01a0 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 e7 e0 00 00 6e 00 00 ┆c c n ┆ 0x01a0…01c0 77 72 63 75 73 65 72 6c 69 62 74 78 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 63 be 2f 00 ┆wrcuserlibtx disc c / ┆ 0x01c0…01e0 00 00 00 00 00 00 00 00 00 00 00 02 f0 a8 00 0b d6 00 0b df 72 65 6e 61 6d 65 70 72 6f 74 78 00 ┆ renameprotx ┆ 0x01e0…0200 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 63 85 77 00 00 00 00 00 00 00 00 00 00 00 00 03 28 ┆ disc c w (┆ 0x0200…0220 80 00 0b d6 00 0b df 73 63 6f 70 65 70 72 6f 63 74 78 00 00 00 09 64 69 73 63 00 00 00 00 00 00 ┆ scopeproctx disc ┆ 0x0220…0240 00 00 63 85 78 00 00 00 00 00 00 00 00 00 00 00 00 03 b8 00 00 0b d6 00 0b df 73 65 74 70 72 6f ┆ c x setpro┆ 0x0240…0260 63 74 78 00 00 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 63 85 8f 00 00 00 00 00 00 00 00 ┆ctx disc c ┆ 0x0260…0280 00 00 00 00 03 f4 20 00 00 6e 00 00 77 74 65 73 74 62 69 74 74 78 00 00 00 00 00 05 64 69 73 63 ┆ n wtestbittx disc┆ 0x0280…02a0 00 00 00 00 00 00 00 00 63 e9 e1 00 00 00 00 00 00 00 00 00 00 00 00 04 42 d0 00 00 00 00 03 e7 ┆ c B ┆ 0x02a0…02c0 77 72 69 74 65 61 6c 6c 74 78 00 00 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 63 85 a7 00 00 ┆writealltx disc c ┆ 0x02c0…02e0 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 ┆ ┆ 0x02e0…0300 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 0e ┆ ┆ 0x0300…0320 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┆ 0x0320…0340 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┆ 0x0340…0360 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┆ 0x0360…0380 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┆ 0x0380…03a0 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 '┆ 0x03a0…03c0 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. ┆ 0x03c0…03e0 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┆ 0x03e0…0400 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┆ 0x0400…0420 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 ┆ 0x0420…0440 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 ┆ 0x0440…0460 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 ┆ 0x0460…0480 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┆ 0x0480…04a0 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, ┆ 0x04a0…04c0 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┆ 0x04c0…04e0 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 ┆ 0x04e0…0500 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┆ 0x0500…0520 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 ┆ 0x0520…0540 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 ┆ 0x0540…0560 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 ┆ ┆ 0x0560…0580 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 ┆ 0x0580…05a0 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┆ 0x05a0…05c0 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 ┆ 0x05c0…05e0 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┆ 0x05e0…0600 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 ┆ 0x0600…0620 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┆ 0x0620…0640 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 ┆ 0x0640…0660 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┆ 0x0660…0680 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 ┆ 0x0680…06a0 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┆ 0x06a0…06c0 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 ┆ 0x06c0…06e0 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┆ 0x06e0…0700 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┆ 0x0700…0720 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);┆ 0x0720…0740 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:=┆ 0x0740…0760 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┆ 0x0760…0780 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┆ 0x0780…07a0 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┆ 0x07a0…07c0 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 ┆ 0x07c0…07e0 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(┆ 0x07e0…0800 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 ┆ 0x0800…0820 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 ┆ 0x0820…0840 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┆ 0x0840…0860 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┆ 0x0860…0880 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┆ 0x0880…08a0 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┆ 0x08a0…08c0 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):┆ 0x08c0…08e0 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)┆ 0x08e0…0900 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(┆ 0x0900…0920 (1, 8025) 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┆ 0x0920…0940 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┆ 0x0940…0960 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┆ 0x0960…0980 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):┆ 0x0980…09a0 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*> ┆ 0x09a0…09c0 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,┆ 0x09c0…09e0 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┆ 0x09e0…0a00 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┆ 0x0a00…0a20 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);┆ 0x0a20…0a40 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:=┆ 0x0a40…0a60 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┆ 0x0a60…0a80 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┆ 0x0a80…0aa0 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┆ 0x0aa0…0ac0 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 ┆ 0x0ac0…0ae0 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(┆ 0x0ae0…0b00 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 ┆ 0x0b00…0b20 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 ┆ 0x0b20…0b40 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┆ 0x0b40…0b60 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┆ 0x0b60…0b80 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┆ 0x0b80…0ba0 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┆ 0x0ba0…0bc0 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):┆ 0x0bc0…0be0 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)┆ 0x0be0…0c00 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(┆ 0x0c00…0c20 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┆ 0x0c20…0c40 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┆ 0x0c40…0c60 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,┆ 0x0c60…0c80 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┆ 0x0c80…0ca0 6e 67 74 68 29 3b 0a 76 61 6c 75 65 20 6b 65 79 6e 6f 3b 0a 69 6e 74 65 67 65 72 20 6b 65 79 6e ┆ngth); value keyno; integer keyn┆ 0x0ca0…0cc0 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 65 6e 67 74 68 3b ┆o,bsno,entries,segm,slicelength;┆ 0x0cc0…0ce0 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 20 20 63 6c 61 69 ┆ long array bsname; <* clai┆ 0x0ce0…0d00 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 65 64 69 67 65 20 ┆mproc finder en proces's ledige ┆ 0x0d00…0d20 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 72 65 74 2e 0a 0a ┆resourcer på baggrundslageret. ┆ 0x0d20…0d40 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 64 65 20 62 65 74 ┆ parametrene har følgende bet┆ 0x0d40…0d60 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 72 6e 2c 20 62 6f ┆ydning: claimproc(return, bo┆ 0x0d60…0d80 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 64 20 62 73 6e 6f ┆olean) true if bsno>=0 and bsno┆ 0x0d80…0da0 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 20 20 20 20 20 20 ┆<=max bsno ┆ 0x0da0…0dc0 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 69 73 20 6c 65 67 ┆ and keyno is leg┆ 0x0dc0…0de0 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 20 20 20 20 20 20 ┆al ┆ 0x0de0…0e00 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 63 20 69 73 20 66 ┆ else false. If claimproc is f┆ 0x0e00…0e20 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 20 20 20 20 20 20 ┆alse then ┆ 0x0e20…0e40 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 65 74 65 72 73 20 ┆ all return parameters ┆ 0x0e40…0e60 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 6c 6c 2c 20 69 6e ┆are zero. keyno (call, in┆ 0x0e60…0e80 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 20 20 20 20 20 20 ┆teger) 0=temp ┆ 0x0e80…0ea0 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 20 20 20 20 20 20 ┆ 2=login ┆ 0x0ea0…0ec0 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 3d 75 73 65 72 2f ┆ 3=user/┆ 0x0ec0…0ee0 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 2c 20 69 6e 74 65 ┆project bsno (call, inte┆ 0x0ee0…0f00 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 0a 20 20 20 20 62 ┆ger) main bsdevice is 0 b┆ 0x0f00…0f20 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 79 20 31 3a 32 29 ┆sname (return, long array 1:2)┆ 0x0f20…0f40 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 20 65 6e 74 72 69 ┆ name of called device entri┆ 0x0f40…0f60 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 20 6f 66 20 65 6e ┆es (return, integer) no. of en┆ 0x0f60…0f80 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 65 64 0a 20 20 20 ┆tries of key=keyno on called ┆ 0x0f80…0fa0 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 64 65 76 ┆ dev┆ 0x0fa0…0fc0 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 69 6e 74 65 67 65 ┆ice segm (return, intege┆ 0x0fc0…0fe0 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 79 6e 6f 20 6f 6e ┆r) no. of segm. of key=keyno on┆ 0x0fe0…1000 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 20 20 20 20 20 20 ┆ called ┆ 0x1000…1020 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 6e 67 74 68 20 28 ┆ device slicelength (┆ 0x1020…1040 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 74 68 20 6f 6e 20 ┆return, integer) slicelength on ┆ 0x1040…1060 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 6e 20 62 6f 6f 6c ┆called device *> begin own bool┆ 0x1060…1080 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 76 69 63 65 73 2c ┆ean init; own integer bsdevices,┆ 0x1080…10a0 66 69 72 73 74 62 73 2c 6f 77 6e 61 64 72 2c 6d 61 69 6e 64 69 73 63 2c 6d 6f 6e 72 65 6c 3b 0a ┆firstbs,ownadr,maindisc,monrel; ┆ 0x10a0…10c0 69 6e 74 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 ┆integer i; long array field name┆ 0x10c0…10e0 3b 0a 69 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 ┆; integer array core(1:18); if┆ 0x10e0…1100 20 2d 2c 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 ┆ -,init then begin init:=t┆ 0x1100…1120 72 75 65 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 35 2c 39 32 2c 63 6f 72 65 29 3b 0a 20 20 20 20 ┆rue; system(5,92,core); ┆ 0x1120…1140 62 73 64 65 76 69 63 65 73 3a 3d 28 63 6f 72 65 28 33 29 2d 63 6f 72 65 28 31 29 29 2f 2f 32 3b ┆bsdevices:=(core(3)-core(1))//2;┆ 0x1140…1160 0a 20 20 20 20 66 69 72 73 74 62 73 3a 3d 63 6f 72 65 28 31 29 3b 0a 20 20 20 20 6d 61 69 6e 64 ┆ firstbs:=core(1); maind┆ 0x1160…1180 69 73 63 3a 3d 63 6f 72 65 28 34 29 3b 0a 20 20 20 20 6f 77 6e 61 64 72 3a 3d 73 79 73 74 65 6d ┆isc:=core(4); ownadr:=system┆ 0x1180…11a0 28 36 2c 69 2c 62 73 6e 61 6d 65 29 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 35 2c 36 34 2c 63 6f ┆(6,i,bsname); system(5,64,co┆ 0x11a0…11c0 72 65 29 3b 0a 20 20 20 20 6d 6f 6e 72 65 6c 3a 3d 20 63 6f 72 65 28 31 29 20 73 68 69 66 74 20 ┆re); monrel:= core(1) shift ┆ 0x11c0…11e0 28 2d 31 32 29 3b 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 ┆(-12); end; if bsno<0 or bsn┆ 0x11e0…1200 6f 3e 3d 62 73 64 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 ┆o>=bsdevices or keyno<>0 and ┆ 0x1200…1220 (1, 8026) 6b 65 79 6e 6f 3c 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 ┆keyno<>2 and keyno<>3 then beg┆ 0x1220…1240 69 6e 20 0a 20 20 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 ┆in claimproc:=false; go┆ 0x1240…1260 74 6f 20 65 78 69 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 ┆to exitclaim end; claimproc:┆ 0x1260…1280 3d 74 72 75 65 3b 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 ┆=true; begin integer array nam┆ 0x1280…12a0 65 74 61 62 6c 65 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 ┆etable(1:bsdevices); name:=1┆ 0x12a0…12c0 38 3b 0a 20 20 20 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 ┆8; system(5,firstbs,nametabl┆ 0x12c0…12e0 65 29 3b 0a 20 20 20 20 69 66 20 62 73 5f 6e 6f 3d 30 20 74 68 65 6e 0a 20 20 20 20 72 65 70 65 ┆e); if bs_no=0 then repe┆ 0x12e0…1300 61 74 0a 20 20 20 20 20 20 62 73 5f 6e 6f 3a 3d 20 62 73 5f 6e 6f 2b 31 3b 0a 20 20 20 20 75 6e ┆at bs_no:= bs_no+1; un┆ 0x1300…1320 74 69 6c 20 6e 61 6d 65 74 61 62 6c 65 28 62 73 5f 6e 6f 29 3d 6d 61 69 6e 64 69 73 63 3b 0a 20 ┆til nametable(bs_no)=maindisc; ┆ 0x1320…1340 20 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 29 2d 33 36 2c 63 ┆ system(5,nametable(bsno)-36,c┆ 0x1340…1360 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 74 ┆ore); if core(10)=0 then got┆ 0x1360…1380 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 65 ┆o exitclaim; bsname(1):=core┆ 0x1380…13a0 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 32 ┆.name(1); bsname(2):=core.name(2┆ 0x13a0…13c0 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 20 ┆); slicelength:=core(15); ┆ 0x13c0…13e0 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 3b ┆ system(5,ownadr+core(1),core);┆ 0x13e0…1400 0a 20 20 20 20 69 66 20 6d 6f 6e 72 65 6c 20 3c 3d 20 38 20 74 68 65 6e 0a 20 20 20 20 62 65 67 ┆ if monrel <= 8 then beg┆ 0x1400…1420 69 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 ┆in entries:=core(keyno+1) ┆ 0x1420…1440 73 68 69 66 74 28 2d 31 32 29 3b 0a 20 20 20 20 20 20 73 65 67 6d 3a 3d 20 63 6f 72 65 28 6b 65 ┆shift(-12); segm:= core(ke┆ 0x1440…1460 79 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 ┆yno+1) extract 12 * slicelength;┆ 0x1460…1480 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ end else begin ┆ 0x1480…14a0 20 20 65 6e 74 72 69 65 73 3a 3d 20 63 6f 72 65 28 6b 65 79 6e 6f 2a 32 20 2b 20 31 29 3b 0a 20 ┆ entries:= core(keyno*2 + 1); ┆ 0x14a0…14c0 20 20 20 20 20 73 65 67 6d 3a 3d 20 63 6f 72 65 28 6b 65 79 6e 6f 2a 32 20 2b 20 32 29 20 2a 20 ┆ segm:= core(keyno*2 + 2) * ┆ 0x14c0…14e0 73 6c 69 63 65 6c 65 6e 67 74 68 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 20 20 69 ┆slicelength; end; end; i┆ 0x14e0…1500 66 20 66 61 6c 73 65 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 65 78 69 74 63 6c 61 69 6d 3a 0a ┆f false then begin exitclaim: ┆ 0x1500…1520 20 20 20 20 65 6e 74 72 69 65 73 3a 3d 73 65 67 6d 3a 3d 73 6c 69 63 65 6c 65 6e 67 74 68 3a 3d ┆ entries:=segm:=slicelength:=┆ 0x1520…1540 30 3b 0a 20 20 20 20 62 73 6e 61 6d 65 28 31 29 3a 3d 62 73 6e 61 6d 65 28 32 29 3a 3d 30 3b 0a ┆0; bsname(1):=bsname(2):=0; ┆ 0x1540…1560 20 20 65 6e 64 3b 0a 65 6e 64 20 63 6c 61 69 6d 70 72 6f 63 3b 0a 19 6c 61 69 6d 70 72 6f 63 3a ┆ end; end claimproc; laimproc:┆ 0x1560…1580 3d 74 72 75 65 3b 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 ┆=true; begin integer array nam┆ 0x1580…15a0 65 74 61 62 6c 65 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 ┆etable(1:bsdevices); name:=1┆ 0x15a0…15c0 38 3b 0a 20 20 20 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 ┆8; system(5,firstbs,nametabl┆ 0x15c0…15e0 65 29 3b 0a 20 20 20 20 69 66 20 62 73 5f 6e 6f 3d 30 20 74 68 65 6e 0a 20 20 20 20 72 65 70 65 ┆e); if bs_no=0 then repe┆ 0x15e0…1600 61 74 0a 20 20 20 20 20 20 62 73 5f 6e 6f 3a 3d 20 62 73 5f 6e 6f 2b 31 3b 0a 20 20 20 20 75 6e ┆at bs_no:= bs_no+1; un┆ 0x1600…1620 74 69 6c 20 6e 61 6d 65 74 61 62 6c 65 28 62 73 5f 6e 6f 29 3d 6d 61 69 6e 64 69 73 63 3b 0a 20 ┆til nametable(bs_no)=maindisc; ┆ 0x1620…1640 20 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 29 2d 33 36 2c 63 ┆ system(5,nametable(bsno)-36,c┆ 0x1640…1660 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 74 ┆ore); if core(10)=0 then got┆ 0x1660…1680 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 65 ┆o exitclaim; bsname(1):=core┆ 0x1680…16a0 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 32 ┆.name(1); bsname(2):=core.name(2┆ 0x16a0…16c0 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 20 ┆); slicelength:=core(15); ┆ 0x16c0…16e0 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 3b ┆ system(5,ownadr+core(1),core);┆ 0x16e0…1700 0a 20 20 20 20 69 66 20 6d 6f 6e 72 65 6c 20 3c 3d 20 38 20 74 68 65 6e 0a 20 20 20 20 62 65 67 ┆ if monrel <= 8 then beg┆ 0x1700…1720 69 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 ┆in entries:=core(keyno+1) ┆ 0x1720…1740 73 68 69 66 74 28 2d 31 32 29 3b 0a 20 20 20 20 20 20 73 65 67 6d 3a 3d 20 63 6f 72 65 28 6b 65 ┆shift(-12); segm:= core(ke┆ 0x1740…1760 79 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 ┆yno+1) extract 12 * slicelength;┆ 0x1760…1780 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ end else begin ┆ 0x1780…17a0 20 20 65 6e 74 72 69 65 73 3a 3d 20 63 6f 72 65 28 6b 65 79 6e 6f 2a 32 20 2b 20 31 29 3b 0a 20 ┆ entries:= core(keyno*2 + 1); ┆ 0x17a0…17c0 20 20 20 20 20 73 65 67 6d 3a 3d 20 63 6f 72 65 28 6b 65 79 6e 6f 2a 32 20 2b 20 32 29 20 2a 20 ┆ segm:= core(keyno*2 + 2) * ┆ 0x17c0…17e0 73 6c 69 63 65 6c 65 6e 67 74 68 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 20 20 69 ┆slicelength; end; end; i┆ 0x17e0…1800 66 20 66 61 6c 73 65 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 65 78 69 74 63 6c 61 69 6d 3a 0a ┆f false then begin exitclaim: ┆ 0x1800…1820 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┆ 0x1820…1840 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┆ 0x1840…1860 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); ┆ 0x1860…1880 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; <* ┆ 0x1880…18a0 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┆ 0x18a0…18c0 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┆ 0x18c0…18e0 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┆ 0x18e0…1900 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┆ 0x1900…1920 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 ┆ […truncated at 200 lines…]