|
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…00030 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 00 00 00 00 63 85 65 00 00 00 00 00 00 00 00 00 ┆ chentryprtx disc c e ┆ 0x00030…00060 00 00 00 00 44 83 00 00 00 00 4e 1f 63 6c 61 69 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 ┆ D N claimproctx disc1 mg ┆ 0x00060…00090 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 73 63 00 00 00 00 00 00 00 00 63 85 6b 00 00 00 ┆ x0 clearproctx disc c k ┆ 0x00090…000c0 00 00 00 00 00 00 00 00 00 00 b2 a0 00 0b d6 00 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…000f0 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 00 00 00 15 64 69 73 63 00 00 00 00 00 00 00 00 ┆ fpproctx disc ┆ 0x000f0…00120 79 92 dd 00 00 00 00 00 00 00 00 00 00 00 00 02 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 ┆y 9 N grcuserlib disc ┆ 0x00120…00150 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 61 69 6c 74 78 00 00 00 00 02 64 69 73 63 00 00 ┆ X Sx listtailtx disc ┆ 0x00150…00180 00 00 00 00 00 00 63 85 6f 00 00 00 00 00 00 00 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 ┆ c o t n wlookupprotx dis┆ 0x00180…001b0 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 1f 6c 72 63 75 73 65 72 6c 69 62 00 00 00 00 01 ┆c c N lrcuserlib ┆ 0x001b0…001e0 64 69 73 63 00 00 00 00 00 00 00 00 f1 58 c0 00 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 ┆disc X n wrcuserlibtx ┆ 0x001e0…00210 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 a8 00 0b d6 00 0b df 72 65 6e 61 6d 65 70 72 6f ┆ disc c / renamepro┆ 0x00210…00240 74 78 00 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 80 00 0b d6 00 0b df 73 63 6f 70 65 70 ┆tx disc c w ( scopep┆ 0x00240…00270 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 00 00 00 00 03 b8 00 00 0b d6 00 0b df 73 65 74 ┆roctx disc c x set┆ 0x00270…002a0 70 72 6f 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 00 00 00 00 03 f6 f8 00 00 00 00 4e 1f ┆proctx disc c N ┆ 0x002a0…002d0 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 00 00 00 00 00 00 00 00 00 00 04 42 d0 00 00 00 ┆testbittx disc X B ┆ 0x002d0…00300 00 03 e7 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 00 00 00 00 00 00 00 00 00 00 00 00 0f ┆ writealltx disc c ┆ 0x00300…00330 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 64 65 20 31 2e 20 28 61 72 29 20 37 38 31 31 30 ┆message procedure chentryproc side 1. (ar) 78110┆ 0x00330…00360 31 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 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 ┆1; integer procedure chentryproc(name,tail); l┆ 0x00360…00390 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 69 6c 3b 0a 3c 2a 0a 0a 20 20 20 20 63 68 65 6e ┆ong array name; integer array tail; <* chen┆ 0x00390…003c0 74 72 79 70 72 6f 63 20 7b 6e 64 72 65 72 20 27 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 ┆tryproc ændrer 'tail' i en katalogindgang. ┆ 0x003c0…003f0 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 6e 67 3a 0a 20 20 20 20 63 68 65 6e 74 72 79 70 ┆parametrene har følgende betydning: chentryp┆ 0x003f0…00420 72 6f 63 20 3a 20 28 72 65 74 75 72 6e 20 69 6e 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 ┆roc : (return integer) 0 ok ┆ 0x00420…00450 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 6b 69 6e 64 20 69 6d 70 6f 73 73 69 62 6c 65 0a ┆ 1 change kind impossible ┆ 0x00450…00480 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 20 20 20 20 20 20 32 20 20 63 61 74 20 69 2f 6f ┆ 2 cat i/o┆ 0x00480…004b0 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ error, ┆ 0x004b0…004e0 20 64 6f 63 2e 20 6e 6f 74 20 6d 6f 75 6e 74 65 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 ┆ doc. not mounted or not ready ┆ 0x004e0…00510 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 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆ 3 name not found ┆ 0x00510…00540 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 34 20 20 6e 61 6d 65 20 70 72 6f 74 65 63 74 65 64 0a 20 ┆ 4 name protected ┆ 0x00540…00570 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 20 20 20 20 20 35 20 20 6e 61 6d 65 20 69 6e 20 ┆ 5 name in ┆ 0x00570…005a0 75 73 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 20 20 20 20 20 20 20 20 20 20 20 36 20 20 6e 61 6d ┆use 6 nam┆ 0x005a0…005d0 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e format illegal ┆ 0x005d0…00600 20 20 20 20 20 20 20 37 20 20 63 61 74 61 6c 6f 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 ┆ 7 catalog inconsistent ┆ 0x00600…00630 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 73 20 64 65 76 69 63 65 20 69 6d 70 6f 73 73 69 ┆ 8 change bs device impossi┆ 0x00630…00660 62 6c 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 20 20 20 20 20 20 20 20 20 20 20 39 20 20 63 6c 61 ┆ble 9 cla┆ 0x00660…00690 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 20 20 3a 20 28 63 61 6c 6c 2c 20 6c 6f 6e 67 20 ┆ims exceeded name : (call, long ┆ 0x00690…006c0 61 72 72 61 79 29 20 20 63 6f 6e 74 61 69 6e 73 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 ┆array) contains the entry name tail ┆ 0x006c0…006f0 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 74 61 69 6e 73 20 6e 65 77 20 65 6e 74 72 79 20 ┆ : (call, integer array) contains new entry ┆ 0x006f0…00720 74 61 69 6c 0a 2a 3e 0a 62 65 67 69 6e 20 69 6e 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 ┆tail *> begin integer i; integer array ia(1:10);┆ 0x00720…00750 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 31 3b 20 6f 70 65 6e 28 7a 68 65 6c 70 2c 30 2c ┆ zone zhelp(1,1,stderror); i:=1; open(zhelp,0,┆ 0x00750…00780 73 74 72 69 6e 67 20 6e 61 6d 65 28 69 6e 63 72 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 ┆string name(increase(i)),0); i:=monitor(42<*lo┆ 0x00780…007b0 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 65 6e 0a 20 20 62 65 67 69 6e 20 63 68 65 6e 74 ┆okup*>,zhelp,0,ia); if i<>0 then begin chent┆ 0x007b0…007e0 72 79 70 72 6f 63 3a 3d 69 3b 20 67 6f 74 6f 20 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 ┆ryproc:=i; goto exit_chentryproc end; if tail(┆ 0x007e0…00810 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 20 69 66 20 74 61 69 6c 28 31 29 3e 3d 30 20 6f ┆1)<0 or ia(1)<0 then begin if tail(1)>=0 o┆ 0x00810…00840 72 20 69 61 28 31 29 3e 3d 30 20 74 68 65 6e 0a 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 ┆r ia(1)>=0 then begin chentryproc:=1; goto e┆ 0x00840…00870 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 61 6e 67 65 0a 20 20 65 6e 64 3b 0a 20 20 69 66 ┆xit_chentryproc end; goto change end; if┆ 0x00870…008a0 20 74 61 69 6c 28 32 29 3d 30 20 6f 72 20 74 61 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 ┆ tail(2)=0 or tail(2)=1 then goto change; if t┆ 0x008a0…008d0 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 3d 74 61 69 6c 28 35 29 3a 3d 30 3b 0a 20 20 69 ┆ail(3) extract 8=0 then tail(4):=tail(5):=0; i┆ 0x008d0…00900 66 20 74 61 69 6c 28 32 29 3c 3e 69 61 28 32 29 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 ┆f tail(2)<>ia(2) or tail(3)<>ia(3) or tail(┆ 0x00900…00930 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 0a 20 20 62 65 67 69 6e 20 63 68 65 6e 74 72 79 ┆4)<>ia(4) or tail(5)<>ia(5) then begin chentry┆ 0x00930…00960 70 72 6f 63 3a 3d 38 3b 20 67 6f 74 6f 20 65 78 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 ┆proc:=8; goto exit_chentryproc end; change: fo┆ 0x00960…00990 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 3d 74 61 69 6c 28 69 29 3b 20 3c 2a 66 69 65 6c ┆r i:=1 step 1 until 10 do ia(i):=tail(i); <*fiel┆ 0x00990…009c0 64 69 6e 67 20 70 6f 73 73 69 62 6c 65 2a 3e 0a 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 ┆ding possible*> i:=monitor(44<*change*>,zhelp,┆ 0x009c0…009f0 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 6e 74 72 79 70 72 6f 63 3a 3d 69 3b 0a 65 78 69 ┆0,ia); if i=6 then i:=9; chentryproc:=i; exi┆ 0x009f0…00a20 74 5f 63 68 65 6e 74 72 79 70 72 6f 63 3a 0a 65 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 ┆t_chentryproc: end chentryproc; array ia(1:10);┆ 0x00a20…00a50 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 31 3b 20 6f 70 65 6e 28 7a 68 65 6c 70 2c 30 2c ┆ zone zhelp(1,1,stderror); i:=1; open(zhelp,0,┆ 0x00a50…00a80 73 74 72 69 6e 67 20 6e 61 6d 65 28 69 6e 63 72 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 ┆string name(increase(i)),0); i:=monitor(42<*lo┆ 0x00a80…00ab0 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 65 6e 0a 20 20 62 65 67 69 6e 20 63 68 65 6e 74 ┆okup*>,zhelp,0,ia); if i<>0 then begin chent┆ 0x00ab0…00ae0 72 79 70 72 6f 63 3a 3d 69 3b 20 67 6f 74 6f 20 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 ┆ryproc:=i; goto exit_chentryproc end; if tail(┆ 0x00ae0…00b10 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 20 69 66 20 74 61 69 6c 28 31 29 3e 3d 30 20 6f ┆1)<0 or ia(1)<0 then begin if tail(1)>=0 o┆ 0x00b10…00b40 72 20 69 61 28 31 29 3e 3d 30 20 74 68 65 6e 0a 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 ┆r ia(1)>=0 then begin chentryproc:=1; goto e┆ 0x00b40…00b70 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 61 6e 67 65 0a 20 20 65 6e 64 3b 0a 20 20 69 66 ┆xit_chentryproc end; goto change end; if┆ 0x00b70…00ba0 20 74 61 69 6c 28 32 29 3d 30 20 6f 72 20 74 61 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 ┆ tail(2)=0 or tail(2)=1 then goto change; if t┆ 0x00ba0…00bd0 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 3d 74 61 69 6c 28 35 29 3a 3d 30 3b 0a 20 20 69 ┆ail(3) extract 8=0 then tail(4):=tail(5):=0; i┆ 0x00bd0…00c00 66 20 74 61 69 6c 28 32 29 3c 3e 69 61 28 32 29 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 ┆f tail(2)<>ia(2) or tail(3)<>ia(3) or tail(┆ 0x00c00…00c30 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 20 31 2e 20 28 68 6b 6f 2c 61 72 29 20 37 38 31 ┆message procedure claimproc side 1. (hko,ar) 781┆ 0x00c30…00c60 31 30 31 3b 0a 0a 0a 62 6f 6f 6c 65 61 6e 20 70 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 ┆101; boolean procedure claimproc (keyno,┆ 0x00c60…00c90 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 6e 67 74 68 29 3b 0a 76 61 6c 75 65 20 6b 65 79 ┆bsno,bsname,entries,segm,slicelength); value key┆ 0x00c90…00cc0 6e 6f 2c 20 62 73 6e 6f 3b 0a 69 6e 74 65 67 65 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 ┆no, bsno; integer keyno,bsno,entries,segm,slicel┆ 0x00cc0…00cf0 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 20 20 63 6c 61 69 6d 70 72 6f 63 20 66 69 6e 64 ┆ength; long array bsname; <* claimproc find┆ 0x00cf0…00d20 65 72 20 65 6e 20 70 72 6f 63 65 73 27 73 20 6c 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 ┆er en proces's ledige resourcer på baggrundslage┆ 0x00d20…00d50 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 64 65 20 62 65 74 79 64 6e 69 6e 67 3a 0a 20 20 ┆ret. parametrene har følgende betydning: ┆ 0x00d50…00d80 20 20 63 6c 61 69 6d 70 72 6f 63 28 72 65 74 75 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 ┆ claimproc(return, boolean) true if bsno>=0 an┆ 0x00d80…00db0 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d bsno<=max bsno ┆ 0x00db0…00de0 20 20 20 20 20 20 61 6e 64 20 6b 65 79 6e 6f 20 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 ┆ and keyno is legal ┆ 0x00de0…00e10 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 63 20 69 73 20 66 61 6c 73 65 20 74 68 65 6e 0a ┆ else false. If claimproc is false then ┆ 0x00e10…00e40 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 61 6c 6c 20 72 65 74 75 72 6e 20 70 61 72 61 6d ┆ all return param┆ 0x00e40…00e70 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 6c 6c 2c 20 69 6e 74 65 67 65 72 29 20 20 20 20 ┆eters are zero. keyno (call, integer) ┆ 0x00e70…00ea0 30 3d 74 65 6d 70 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 20 20 32 3d 6c 6f 67 69 6e 0a 20 ┆0=temp 2=login ┆ 0x00ea0…00ed0 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 3d 75 73 65 72 2f 70 72 6f 6a 65 63 74 0a 20 20 ┆ 3=user/project ┆ 0x00ed0…00f00 20 20 62 73 6e 6f 20 20 20 20 20 28 63 61 6c 6c 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 ┆ bsno (call, integer) main bsdevice is 0┆ 0x00f00…00f30 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 79 20 31 3a 32 29 20 6e 61 6d 65 20 6f 66 20 63 ┆ bsname (return, long array 1:2) name of c┆ 0x00f30…00f60 61 6c 6c 65 64 20 64 65 76 69 63 65 0a 20 20 20 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 ┆alled device entries (return, integer) no.┆ 0x00f60…00f90 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 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ of entries of key=keyno on called ┆ 0x00f90…00fc0 20 20 20 20 20 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 65 67 6d 20 20 20 20 20 28 72 65 74 75 72 6e 2c 20 ┆ device segm (return, ┆ 0x00fc0…00ff0 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 79 6e 6f 20 6f 6e 20 63 61 6c 6c 65 64 0a 20 20 ┆integer) no. of segm. of key=keyno on called ┆ 0x00ff0…01020 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 64 65 76 69 63 65 0a 20 20 20 20 73 6c 69 63 65 6c 65 ┆ device slicele┆ 0x01020…01050 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 74 68 20 6f 6e 20 63 61 6c 6c 65 64 20 64 65 76 ┆ngth (return, integer) slicelength on called dev┆ 0x01050…01080 69 63 65 0a 2a 3e 0a 0c 62 65 67 69 6e 0a 6f 77 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 ┆ice *> begin own boolean init; own integer bsde┆ 0x01080…010b0 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 65 67 65 72 20 69 3b 0a 6c 6f 6e 67 20 61 72 72 ┆vices,firstbs,ownadr,monrel; integer i; long arr┆ 0x010b0…010e0 61 79 20 66 69 65 6c 64 20 6e 61 6d 65 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 20 2d 2c ┆ay field name; integer array core(1:18); if -,┆ 0x010e0…01110 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 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 35 2c 36 ┆init then begin init:=true; system(5,6┆ 0x01110…01140 34 2c 63 6f 72 65 29 3b 0a 20 20 20 20 6d 6f 6e 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 ┆4,core); monrel:=core(1) shift (-12); <*mon┆ 0x01140…01170 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 6f 72 65 29 3b 0a 20 20 20 20 62 73 64 65 76 69 ┆itor release*> system(5,92,core); bsdevi┆ 0x01170…011a0 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 0a 20 20 20 20 66 69 72 73 74 62 73 3a 3d 63 6f 72 65 28 31 29 3b ┆ces:=(core(3)-core(1))//2; firstbs:=core(1);┆ 0x011a0…011d0 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 0a 20 20 65 6e 64 3b 0a 20 20 69 66 20 62 73 6e ┆ ownadr:=system(6,i,bsname); end; if bsn┆ 0x011d0…01200 6f 3c 30 20 6f 72 20 62 73 6e 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 6b 65 79 6e 6f 3c ┆o<0 or bsno>=bsdevices or keyno<>0 and keyno<┆ 0x01200…01230 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 20 20 63 6c 61 69 6d 70 72 6f 63 3a 3d 66 61 6c ┆>2 and keyno<>3 then begin claimproc:=fal┆ 0x01230…01260 73 65 3b 0a 20 20 20 20 67 6f 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 3d 74 72 75 65 3b ┆se; goto exitclaim end; claimproc:=true;┆ 0x01260…01290 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 28 31 3a 62 73 64 65 76 69 63 65 73 29 3b 0a 20 ┆ begin integer array nametable(1:bsdevices); ┆ 0x01290…012c0 20 20 20 6e 61 6d 65 3a 3d 31 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 65 29 3b 0a 20 20 ┆ name:=18; system(5,firstbs,nametable); ┆ 0x012c0…012f0 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 63 6f 72 65 29 3b 0a 20 20 20 20 69 66 20 63 6f ┆ system(5,nametable(bsno+1)-36,core); if co┆ 0x012f0…01320 72 65 28 31 30 29 3d 30 20 74 68 65 6e 20 67 6f 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 ┆re(10)=0 then goto exitclaim; bsname(1):=cor┆ 0x01320…01350 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 32 29 3b 0a 20 20 20 20 73 6c 69 63 65 6c 65 6e ┆e.name(1); bsname(2):=core.name(2); slicelen┆ 0x01350…01380 67 74 68 3a 3d 63 6f 72 65 28 31 35 29 3b 0a 20 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 ┆gth:=core(15); system(5,ownadr+core(1),core)┆ 0x01380…013b0 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 6e 0a 20 20 20 20 20 20 65 6e 74 72 69 65 73 3a ┆; if monrel<=8 then begin entries:┆ 0x013b0…013e0 3d 63 6f 72 65 28 6b 65 79 6e 6f 2b 31 29 20 73 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 ┆=core(keyno+1) shift (-12); segm:=core(key┆ 0x013e0…01410 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 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 ┆no+1) extract 12 * slicelength; end else ┆ 0x01410…01440 20 62 65 67 69 6e 0a 20 20 20 20 20 20 65 6e 74 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 ┆ begin entries:=core(2*keyno +1); se┆ 0x01440…01470 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 67 74 68 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 ┆gm:=core(2*keyno + 2) * slicelength; end; ┆ 0x01470…014a0 65 6e 64 3b 0a 20 20 69 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 20 20 20 20 65 6e 74 72 ┆end; if false then begin exitclaim: entr┆ 0x014a0…014d0 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 73 6e 61 6d 65 28 31 29 3a 3d 62 73 6e 61 6d 65 ┆ies:=segm:=slicelength:=0; bsname(1):=bsname┆ 0x014d0…01500 28 32 29 3a 3d 30 3b 0a 20 20 65 6e 64 3b 0a 65 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 ┆(2):=0; end; end claimproc; ┆ 0x01500…01530 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 20 31 2e 20 28 68 6b 6f 2c 61 72 29 20 37 38 31 ┆message procedure clearproc side 1. (hko,ar) 781┆ 0x01530…01560 31 30 31 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 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 ┆101; integer procedure clearproc(scope,name); ┆ 0x01560…01590 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 63 6c 65 61 72 70 72 6f 63 20 66 6a 65 72 6e 65 ┆long array scope,name; <* clearproc fjerne┆ 0x01590…015c0 72 20 65 6e 20 69 6e 64 67 61 6e 67 20 66 72 61 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 ┆r en indgang fra kataloget. parametrene har┆ 0x015c0…015f0 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 6f 63 20 20 28 72 65 74 75 72 6e 2c 20 69 6e 74 ┆ følgende betydning: clearproc (return, int┆ 0x015f0…01620 65 67 65 72 29 20 20 30 20 20 63 6c 65 61 72 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 20 ┆eger) 0 cleared ┆ 0x01620…01650 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 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 0a 20 20 20 ┆ 1 the call param scope does not contain ┆ 0x01650…01680 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 20 20 61 20 6c 65 67 61 6c 20 73 63 6f 70 65 20 ┆ a legal scope ┆ 0x01680…016b0 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 20 20 20 20 20 20 20 32 20 20 63 61 74 20 69 2f ┆name 2 cat i/┆ 0x016b0…016e0 6f 20 65 72 72 6f 72 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 20 20 20 20 33 20 20 65 6e 74 ┆o error 3 ent┆ 0x016e0…01710 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 ┆ry not found 4┆ 0x01710…01740 20 20 65 6e 74 72 79 20 70 72 6f 74 65 63 74 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 20 ┆ entry protected ┆ 0x01740…01770 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 5 entry in use ┆ 0x01770…017a0 20 20 20 20 20 20 36 20 20 6e 61 6d 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 20 20 20 20 ┆ 6 name format illegal ┆ 0x017a0…017d0 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 69 73 74 65 6e 74 0a 20 20 20 20 73 63 6f 70 65 ┆ 7 catalog inconsistent scope┆ 0x017d0…01800 20 20 20 20 20 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 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 ┆ (call, long array) contains the name of a┆ 0x01800…01830 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 67 20 61 72 72 61 79 29 20 20 63 6f 6e 74 61 69 ┆ scope name (call, long array) contai┆ 0x01830…01860 6e 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 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 ┆ns the name of the entry to be cleared *> begin┆ 0x01860…01890 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 79 20 62 61 73 65 73 28 31 3a 38 29 2c 20 65 6e ┆ integer scopeno,i; integer array bases(1:8), en┆ 0x01890…018c0 74 72 79 28 31 3a 31 37 29 2c 20 62 61 28 31 3a 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 ┆try(1:17), ba(1:2); zone zhelp(1,1,stderror); ┆ 0x018c0…018f0 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 65 28 31 29 3d 6c 6f 6e 67 3c 3a 74 65 6d 70 3a ┆clearproc:=0; scopeno:=if scope(1)=long<:temp:┆ 0x018f0…01920 3e 20 20 74 68 65 6e 20 31 20 65 6c 73 65 0a 20 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 ┆> then 1 else if scope(1)=long<:logi┆ 0x01920…01950 6e 3a 3e 20 74 68 65 6e 20 32 20 65 6c 73 65 0a 20 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 75 73 65 ┆n:> then 2 else if scope(1)=long<:use┆ 0x01950…01980 72 3a 3e 20 20 74 68 65 6e 20 33 20 65 6c 73 65 0a 20 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 70 72 ┆r:> then 3 else if scope(1)=long<:pr┆ 0x01980…019b0 6f 6a 65 3a 3e 20 61 64 64 20 39 39 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 63 6f 70 65 28 32 29 3d 6c 6f 6e 67 3c 3a 74 3a ┆oje:> add 99 and scope(2)=long<:t:┆ 0x019b0…019e0 3e 20 74 68 65 6e 20 34 20 65 6c 73 65 20 0a 20 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 73 79 73 74 ┆> then 4 else if scope(1)=long<:syst┆ 0x019e0…01a10 65 3a 3e 20 61 64 64 20 31 30 39 20 74 68 65 6e 20 35 20 65 6c 73 65 20 36 3b 0a 20 20 69 66 20 73 63 6f 70 65 6e 6f 3d 36 20 74 68 65 6e 0a 20 ┆e:> add 109 then 5 else 6; if scopeno=6 then ┆ 0x01a10…01a40 20 62 65 67 69 6e 20 63 6c 65 61 72 70 72 6f 63 3a 3d 31 3b 20 67 6f 74 6f 20 65 78 69 74 5f 63 6c 65 61 72 70 72 6f 63 20 65 6e 64 3b 0a 20 20 ┆ begin clearproc:=1; goto exit_clearproc end; ┆ 0x01a40…01a70 73 79 73 74 65 6d 28 31 31 2c 69 2c 62 61 73 65 73 29 3b 0a 20 20 6f 70 65 6e 28 7a 68 65 6c 70 2c 30 2c 3c 3a 3a 3e 2c 30 29 3b 20 63 6c 6f 73 ┆system(11,i,bases); open(zhelp,0,<::>,0); clos┆ 0x01a70…01aa0 65 28 7a 68 65 6c 70 2c 66 61 6c 73 65 29 3b 0a 20 20 69 3a 3d 69 66 20 73 63 6f 70 65 6e 6f 3c 33 20 74 68 65 6e 20 33 20 65 6c 73 65 20 69 66 ┆e(zhelp,false); i:=if scopeno<3 then 3 else if┆ 0x01aa0…01ad0 20 73 63 6f 70 65 6e 6f 3d 33 20 74 68 65 6e 20 35 20 65 6c 73 65 20 37 3b 0a 20 20 62 61 28 31 29 3a 3d 62 61 73 65 73 28 69 29 3b 20 62 61 28 ┆ scopeno=3 then 5 else 7; ba(1):=bases(i); ba(┆ 0x01ad0…01b00 32 29 3a 3d 62 61 73 65 73 28 69 2b 31 29 3b 0a 20 20 6d 6f 6e 69 74 6f 72 28 37 32 3c 2a 73 65 74 20 63 61 74 20 62 61 73 65 2a 3e 2c 7a 68 65 ┆2):=bases(i+1); monitor(72<*set cat base*>,zhe┆ 0x01b00…01b30 6c 70 2c 30 2c 62 61 29 3b 0a 20 20 69 3a 3d 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 65 ┆lp,0,ba); i:=1; open(zhelp,0,string name(incre┆ 0x01b30…01b60 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 37 36 3c 2a 68 65 61 64 20 61 6e 64 20 74 61 69 6c 2a 3e 2c 7a 68 65 ┆ase(i)),0); i:=monitor(76<*head and tail*>,zhe┆ 0x01b60…01b90 6c 70 2c 30 2c 65 6e 74 72 79 29 3b 0a 20 20 69 66 20 69 3c 3e 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 20 63 6c 65 61 72 70 72 6f 63 3a 3d 69 ┆lp,0,entry); if i<>0 then begin clearproc:=i┆ 0x01b90…01bc0 3b 20 67 6f 74 6f 20 72 65 73 65 74 5f 62 61 73 65 20 65 6e 64 3b 0a 20 20 69 3a 3d 65 6e 74 72 79 28 31 29 20 65 78 74 72 61 63 74 20 33 3b 0a ┆; goto reset_base end; i:=entry(1) extract 3; ┆ 0x01bc0…01bf0 20 20 69 66 20 73 63 6f 70 65 6e 6f 3d 31 20 61 6e 64 20 69 3c 3e 30 20 6f 72 0a 20 20 20 20 20 73 63 6f 70 65 6e 6f 3d 32 20 61 6e 64 20 69 3c ┆ if scopeno=1 and i<>0 or scopeno=2 and i<┆ 0x01bf0…01c20 3e 32 20 6f 72 0a 20 20 20 20 20 73 63 6f 70 65 6e 6f 3e 32 20 61 6e 64 20 69 3c 3e 33 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 65 61 72 5f 6e 6f ┆>2 or scopeno>2 and i<>3 then goto clear_no┆ 0x01c20…01c50 74 5f 66 6f 75 6e 64 3b 0a 20 20 69 66 20 73 63 6f 70 65 6e 6f 3c 3e 35 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 65 78 74 ┆t_found; if scopeno<>5 then begin if ext┆ 0x01c50…01c80 65 6e 64 20 65 6e 74 72 79 28 32 29 3c 3e 20 65 78 74 65 6e 64 20 62 61 28 31 29 20 6f 72 0a 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 65 6e 74 ┆end entry(2)<> extend ba(1) or extend ent┆ 0x01c80…01cb0 72 79 28 33 29 3c 3e 20 65 78 74 65 6e 64 20 62 61 28 32 29 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 65 61 72 5f 6e 6f 74 5f 66 6f 75 6e 64 0a 20 ┆ry(3)<> extend ba(2) then goto clear_not_found ┆ 0x01cb0…01ce0 20 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 2d 2c 28 65 78 74 65 6e 64 20 65 6e 74 72 79 28 32 29 3c 65 78 ┆ end else begin if -,(extend entry(2)<ex┆ 0x01ce0…01d10 74 65 6e 64 20 62 61 28 31 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 65 6e 74 72 79 28 33 29 3e 65 78 74 65 6e 64 20 62 ┆tend ba(1) or extend entry(3)>extend b┆ 0x01d10…01d40 61 28 32 29 29 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 28 65 78 74 65 6e 64 20 65 6e 74 72 79 28 32 29 3e 65 78 74 65 6e 64 20 62 61 28 31 29 ┆a(2)) and (extend entry(2)>extend ba(1)┆ 0x01d40…01d70 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 65 6e 74 72 79 28 33 29 3c 62 61 28 32 29 29 20 20 20 74 68 65 6e 20 67 6f 74 6f ┆ or extend entry(3)<ba(2)) then goto┆ 0x01d70…01da0 20 63 6c 65 61 72 5f 6e 6f 74 5f 66 6f 75 6e 64 3b 0a 20 20 65 6e 64 3b 0a 20 20 63 6c 65 61 72 70 72 6f 63 3a 3d 6d 6f 6e 69 74 6f 72 28 34 38 ┆ clear_not_found; end; clearproc:=monitor(48┆ 0x01da0…01dd0 3c 2a 72 65 6d 6f 76 65 20 65 6e 74 72 79 2a 3e 2c 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 29 3b 0a 20 20 69 66 20 66 61 6c 73 65 20 74 68 65 6e ┆<*remove entry*>,zhelp,0,entry); if false then┆ 0x01dd0…01e00 0a 63 6c 65 61 72 5f 6e 6f 74 5f 66 6f 75 6e 64 3a 20 63 6c 65 61 72 70 72 6f 63 3a 3d 33 3b 0a 72 65 73 65 74 5f 62 61 73 65 3a 0a 20 20 63 6c ┆ clear_not_found: clearproc:=3; reset_base: cl┆ 0x01e00…01e30 6f 73 65 28 7a 68 65 6c 70 2c 66 61 6c 73 65 29 3b 0a 20 20 6f 70 65 6e 28 7a 68 65 6c 70 2c 30 2c 3c 3a 3a 3e 2c 30 29 3b 0a 20 20 6d 6f 6e 69 ┆ose(zhelp,false); open(zhelp,0,<::>,0); moni┆ 0x01e30…01e60 74 6f 72 28 37 32 3c 2a 73 65 74 20 63 61 74 20 62 61 73 65 2a 3e 2c 7a 68 65 6c 70 2c 30 2c 62 61 73 65 73 29 3b 0a 65 78 69 74 5f 63 6c 65 61 ┆tor(72<*set cat base*>,zhelp,0,bases); exit_clea┆ 0x01e60…01e90 72 5f 70 72 6f 63 3a 0a 65 6e 64 20 63 6c 65 61 72 70 72 6f 63 3b 0a 19 68 65 6e 0a 20 20 62 65 67 69 6e 20 63 6c 65 61 72 70 72 6f 63 3a 3d 69 ┆r_proc: end clearproc; hen begin clearproc:=i┆ 0x01e90…01ec0 3b 20 67 6f 74 6f 20 72 65 73 65 74 5f 62 61 73 65 20 65 6e 64 3b 0a 20 20 69 3a 3d 65 6e 74 72 79 28 31 29 20 65 78 74 72 61 63 74 20 33 3b 0a ┆; goto reset_base end; i:=entry(1) extract 3; ┆ 0x01ec0…01ef0 20 20 69 66 20 73 63 6f 70 65 6e 6f 3d 31 20 61 6e 64 20 69 3c 3e 30 20 6f 72 0a 20 20 20 20 20 73 63 6f 70 65 6e 6f 3d 32 20 61 6e 64 20 69 3c ┆ if scopeno=1 and i<>0 or scopeno=2 and i<┆ 0x01ef0…01f20 3e 32 20 6f 72 0a 20 20 20 20 20 73 63 6f 70 65 6e 6f 3e 32 20 61 6e 64 20 69 3c 3e 33 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 65 61 72 5f 6e 6f ┆>2 or scopeno>2 and i<>3 then goto clear_no┆ 0x01f20…01f50 74 5f 66 6f 75 6e 64 3b 0a 20 20 69 66 20 73 63 6f 70 65 6e 6f 3c 3e 35 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 65 78 74 ┆t_found; if scopeno<>5 then begin if ext┆ 0x01f50…01f80 65 6e 64 20 65 6e 74 72 79 28 32 29 3c 3e 20 65 78 74 65 6e 64 20 62 61 28 31 29 20 6f 72 0a 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 65 6e 74 ┆end entry(2)<> extend ba(1) or extend ent┆ 0x01f80…01fb0 72 79 28 33 29 3c 3e 20 65 78 74 65 6e 64 20 62 61 28 32 29 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 65 61 72 5f 6e 6f 74 5f 66 6f 75 6e 64 0a 20 ┆ry(3)<> extend ba(2) then goto clear_not_found ┆ 0x01fb0…01fe0 20 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 2d 2c 28 65 78 74 65 6e 64 20 65 6e 74 72 79 28 32 29 3c 65 78 ┆ end else begin if -,(extend entry(2)<ex┆ 0x01fe0…02010 74 65 6e 64 20 62 61 28 31 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 65 6e 74 72 79 28 33 29 3e 65 78 74 65 6e 64 20 62 ┆tend ba(1) or extend entry(3)>extend b┆ 0x02010…02040 61 28 32 29 29 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 28 65 78 74 65 6e 64 20 65 6e 74 72 79 28 32 29 3e 65 78 74 65 6e 64 20 62 61 28 31 29 ┆a(2)) and (extend entry(2)>extend ba(1)┆ 0x02040…02070 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 65 6e 74 72 79 28 33 29 3c 62 61 28 32 29 29 20 20 20 74 68 65 6e 20 67 6f 74 6f ┆ or extend entry(3)<ba(2)) then goto┆ 0x02070…020a0 20 63 6c 65 61 72 5f 6e 6f 74 5f 66 6f 75 6e 64 3b 0a 20 20 65 6e 64 3b 0a 20 20 63 6c 65 61 72 70 72 6f 63 3a 3d 6d 6f 6e 69 74 6f 72 28 34 38 ┆ clear_not_found; end; clearproc:=monitor(48┆ 0x020a0…020d0 3c 2a 72 65 6d 6f 76 65 20 65 6e 74 72 79 2a 3e 2c 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 29 3b 0a 20 20 69 66 20 66 61 6c 73 65 20 74 68 65 6e ┆<*remove entry*>,zhelp,0,entry); if false then┆ 0x020d0…02100 0a 63 6c 65 61 72 5f 6e 6f 74 5f 66 6f 75 6e 64 3a 20 63 6c 65 61 72 70 72 6f 63 3a 3d 33 3b 0a 72 65 73 65 74 5f 62 61 73 65 3a 0a 20 20 63 6c ┆ clear_not_found: clearproc:=3; reset_base: cl┆ 0x02100…02130 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 76 65 72 74 70 72 6f 63 20 73 69 64 65 20 31 2e 20 28 68 6b 6f 2c 61 72 29 20 37 ┆message procedure convertproc side 1. (hko,ar) 7┆ 0x02130…02160 38 31 31 30 31 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 76 65 72 74 70 72 6f 63 28 6e 61 6d 65 2c 70 72 69 6e ┆81101; integer procedure convertproc(name,prin┆ 0x02160…02190 74 65 72 2c 70 61 70 65 72 29 3b 0a 6c 6f 6e 67 20 61 72 72 61 79 20 6e 61 6d 65 3b 0a 6c 6f 6e 67 20 70 72 69 6e 74 65 72 3b 20 69 6e 74 65 67 ┆ter,paper); long array name; long printer; integ┆ 0x02190…021c0 65 72 20 70 61 70 65 72 3b 0a 3c 2a 0a 0a 20 20 20 20 63 6f 6e 76 65 72 74 70 72 6f 63 20 73 65 6e 64 65 72 20 65 6e 20 63 6f 6e 76 65 72 74 2d ┆er paper; <* convertproc sender en convert-┆ 0x021c0…021f0 6d 65 73 73 61 67 65 20 74 69 6c 20 70 61 72 65 6e 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 64 ┆message til parent. parametrene har følgend┆ 0x021f0…02220 65 20 62 65 74 79 64 6e 69 6e 67 3a 0a 20 20 20 20 63 6f 6e 76 65 72 74 70 72 6f 63 20 20 28 72 65 74 75 72 6e 2c 20 69 6e 74 65 67 65 72 29 20 ┆e betydning: convertproc (return, integer) ┆ 0x02220…02250 20 20 30 20 20 6f 6b 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 20 20 20 20 20 20 20 31 20 20 ┆ 0 ok 1 ┆ 0x02250…02280 63 66 62 75 66 20 65 78 63 65 65 64 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 20 20 20 20 ┆cfbuf exceeded ┆ 0x02280…022b0 20 20 20 20 32 20 20 6e 61 6d 65 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 20 20 20 20 20 20 20 ┆ 2 name not found ┆ 0x022b0…022e0 20 20 20 20 20 20 20 20 20 20 20 33 20 20 6c 6f 67 69 6e 20 73 63 6f 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 3 login scope ┆ 0x022e0…02310 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 20 74 65 6d 70 20 72 65 73 6f 75 72 63 65 73 20 65 78 63 65 65 64 65 64 0a 20 20 20 20 20 20 ┆ 4 temp resources exceeded ┆ 0x02310…02340 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 35 20 20 6e 61 6d 65 20 69 6e 20 75 73 65 0a 20 20 ┆ 5 name in use ┆ 0x02340…02370 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 20 20 20 36 20 20 6e 61 6d 65 20 69 73 20 6e 6f ┆ 6 name is no┆ 0x02370…023a0 74 20 61 72 65 61 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 20 20 20 20 20 20 20 37 20 20 6e ┆t area 7 n┆ 0x023a0…023d0 61 6d 65 20 69 73 20 6e 6f 74 20 61 20 74 65 78 74 20 66 69 6c 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 ┆ame is not a text file ┆ 0x023d0…02400 20 20 20 20 20 20 20 20 20 20 20 31 39 20 20 61 74 74 65 6e 74 69 6f 6e 20 73 74 61 74 75 73 20 61 74 20 72 65 6d 6f 74 65 20 62 61 74 63 68 20 ┆ 19 attention status at remote batch ┆ 0x02400…02430 74 65 72 6d 2e 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 20 20 20 20 20 20 32 30 20 20 64 65 ┆term. 20 de┆ 0x02430…02460 76 69 63 65 20 75 6e 6b 6e 6f 77 6e 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 20 20 20 20 20 ┆vice unknown ┆ 0x02460…02490 20 32 31 20 20 64 65 76 69 63 65 20 6e 6f 74 20 70 72 69 6e 74 65 72 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 ┆ 21 device not printer ┆ 0x02490…024c0 20 20 20 20 20 20 20 20 20 20 20 20 32 32 20 20 70 61 72 65 6e 74 20 64 65 76 69 63 65 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 0a 0a 20 20 20 20 ┆ 22 parent device disconnected ┆ 0x024c0…024f0 6e 61 6d 65 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2c 20 6c 6f 6e 67 20 61 72 72 61 79 29 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 6e 61 6d ┆name (call, long array) contains the nam┆ 0x024f0…02520 65 20 6f 66 20 74 68 65 20 66 69 6c 65 0a 0a 20 20 20 20 70 72 69 6e 74 65 72 20 20 20 20 20 20 28 63 61 6c 6c 2c 20 6c 6f 6e 67 29 20 20 20 20 ┆e of the file printer (call, long) ┆ 0x02520…02550 20 20 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 72 69 6e 74 65 72 3a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ contains the name of the printer: ┆ 0x02550…02580 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 3c 3a 3a 3e 20 20 20 20 20 20 6f 75 74 70 75 74 20 6f 6e 20 72 65 6d ┆ <::> output on rem┆ 0x02580…025b0 6f 74 65 20 70 72 69 6e 74 65 72 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 20 20 20 20 20 20 ┆ote printer ┆ […truncated at 200 lines…]