|
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: 145152 (0x23700)
Types: Rc489kSubCat
Names: »cryprog«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »cryprog«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »cryprog«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x002202, f01=0x000078, f02=0x000081, filename=»nsresortpr «, entry_tail=0-4-0-8-1981-02-17T08:38-disc3-0xb035-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x00a0ca, f01=0x000078, f02=0x000081, filename=»calctaupr «, entry_tail=0-4-0-5-1981-02-16T14:37-disc2-0xa01a-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x00f2a2, f01=0x000078, f02=0x000081, filename=»printtautxt «, entry_tail=0-4-0-4-1981-02-16T14:35-disc2-0x9037-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x013043, f01=0x000078, f02=0x000081, filename=»ryoffpr «, entry_tail=0-4-0-11-1981-02-16T14:35-disc2-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x01ec12, f01=0x000078, f02=0x000081, filename=»resorttxt «, entry_tail=0-4-0-2-1981-02-03T11:19-disc2-0xf003-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x020232, f01=0x000078, f02=0x000081, filename=»convprog «, entry_tail=0-4-0-1-1981-02-03T10:52-disc2-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x0214ea, f01=0x000078, f02=0x000081, filename=»rydgen1txt «, entry_tail=0-4-0-27-1981-01-07T16:54-disc3-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x03cc4a, f01=0x000078, f02=0x000081, filename=»printoscpr «, entry_tail=0-4-0-9-1980-11-26T15:57-disc2-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x04591b, f01=0x000078, f02=0x000081, filename=»rymain «, entry_tail=0-4-0-30-1980-11-26T13:36-disc2-0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x063db2, f01=0x000078, f02=0x000081, filename=»rydritz «, entry_tail=0-4-0-4-1980-11-21T16:29-disc2-0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x067bc3, f01=0x000078, f02=0x000081, filename=»rycomp «, entry_tail=0-4-0-13-1980-10-13T10:34-disc2-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x074712, f01=0x000078, f02=0x000081, filename=»rydiffint «, entry_tail=0-4-0-24-1980-10-10T12:37-disc2-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x08c452, f01=0x000078, f02=0x000081, filename=»rydiagpr «, entry_tail=0-4-0-7-1980-09-09T17:48-disc2-0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x093962, f01=0x000078, f02=0x000081, filename=»ryortpr «, entry_tail=0-4-0-5-1980-09-09T17:49-disc2-0x0-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x098003, f01=0x000078, f02=0x000081, filename=»tanalspect «, entry_tail=0-4-0-3-1980-05-07T14:39--0x0-0x0-0x0-0x0}
0x002fd…00300 0x000011
0x00300…00333 Rc489kSubCatEnt {f00=0x09b003, f01=0x000078, f02=0x000081, filename=»zsorttxt «, entry_tail=0-4-0-5-1980-05-07T14:39--0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x0a0003, f01=0x000078, f02=0x000081, filename=»rytranspr «, entry_tail=0-4-0-17-1980-05-07T14:39--0xa024-0x0-0x0-0x0}
0x00366…00380 00 f2 a2 00 00 78 00 00 81 70 72 69 6e 74 74 61 75 74 78 74 00 00 00 04 64 69 ┆ x printtautxt di┆
0x00380…003a0 73 63 32 00 00 00 00 00 00 00 78 96 c7 00 90 37 00 00 00 00 00 00 00 00 00 01 30 43 00 00 78 00 ┆sc2 x 7 0C x ┆
0x003a0…003c0 00 81 72 79 6f 66 66 70 72 00 00 00 00 00 00 00 0b 64 69 73 63 32 00 00 00 00 00 00 00 78 96 c6 ┆ ryoffpr disc2 x ┆
0x003c0…003e0 00 00 00 00 00 00 00 00 00 00 00 00 01 ec 12 00 00 78 00 00 81 72 65 73 6f 72 74 74 78 74 00 00 ┆ x resorttxt ┆
0x003e0…00400 00 00 00 02 64 69 73 63 32 00 00 00 00 00 00 00 78 42 37 00 f0 03 00 00 00 00 00 00 00 00 00 02 ┆ disc2 xB7 ┆
0x00400…00420 02 32 00 00 78 00 00 81 63 6f 6e 76 70 72 6f 67 00 00 00 00 00 00 01 64 69 73 63 32 00 00 00 00 ┆ 2 x convprog disc2 ┆
0x00420…00440 00 00 00 78 42 18 00 00 00 00 00 00 00 00 00 00 00 00 02 14 ea 00 00 78 00 00 81 72 79 64 67 65 ┆ xB x rydge┆
0x00440…00460 6e 31 74 78 74 00 00 00 00 1b 64 69 73 63 33 00 00 00 00 00 00 00 77 95 e7 00 00 00 00 00 00 00 ┆n1txt disc3 w ┆
0x00460…00480 00 00 00 00 00 03 cc 4a 00 00 78 00 00 81 70 72 69 6e 74 6f 73 63 70 72 00 00 00 00 09 64 69 73 ┆ J x printoscpr dis┆
0x00480…004a0 63 32 00 00 00 00 00 00 00 76 87 48 00 00 00 00 00 00 00 00 00 00 00 00 04 59 1b 00 00 78 00 00 ┆c2 v H Y x ┆
0x004a0…004c0 81 72 79 6d 61 69 6e 00 00 00 00 00 00 00 00 1e 64 69 73 63 32 00 00 00 00 00 00 00 76 86 a7 00 ┆ rymain disc2 v ┆
0x004c0…004e0 00 00 00 00 00 00 00 00 00 00 00 06 3d b2 00 00 78 00 00 81 72 79 64 72 69 74 7a 00 00 00 00 00 ┆ = x rydritz ┆
0x004e0…00500 00 00 04 64 69 73 63 32 00 00 00 00 00 00 00 76 67 3d 00 00 00 00 00 00 00 00 00 00 00 00 06 7b ┆ disc2 vg= æ┆
0x00500…00520 c3 00 00 78 00 00 81 72 79 63 6f 6d 70 00 00 00 00 00 00 00 00 0d 64 69 73 63 32 00 00 00 00 00 ┆ x rycomp disc2 ┆
0x00520…00540 00 00 75 6a 99 00 00 00 00 00 00 00 00 00 00 00 00 07 47 12 00 00 78 00 00 81 72 79 64 69 66 66 ┆ uj G x rydiff┆
0x00540…00560 69 6e 74 00 00 00 00 00 18 64 69 73 63 32 00 00 00 00 00 00 00 75 57 d6 00 00 00 00 00 00 00 00 ┆int disc2 uW ┆
0x00560…00580 00 00 00 00 08 c4 52 00 00 78 00 00 81 72 79 64 69 61 67 70 72 00 00 00 00 00 00 07 64 69 73 63 ┆ R x rydiagpr disc┆
0x00580…005a0 32 00 00 00 00 00 00 00 74 91 ac 00 00 00 00 00 00 00 00 00 00 00 00 09 39 62 00 00 78 00 00 81 ┆2 t 9b x ┆
0x005a0…005c0 72 79 6f 72 74 70 72 00 00 00 00 00 00 00 05 64 69 73 63 32 00 00 00 00 00 00 00 74 91 ad 00 00 ┆ryortpr disc2 t ┆
0x005c0…005e0 00 00 00 00 00 00 00 00 00 00 09 80 03 00 00 78 00 00 81 74 61 6e 61 6c 73 70 65 63 74 00 00 00 ┆ x tanalspect ┆
0x005e0…00600 00 03 00 00 00 00 00 00 00 00 00 00 00 00 71 6c 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ql* ┆
0x00600…01e00 Data for nsresortpr
0x01e00…02d00 Data for calctaupr
0x02d00…03900 (5,) Data for printtautxt
0x03900…05a00 Data for ryoffpr
0x05a00…06000 (10,) Data for resorttxt
0x06000…06300 Data for convprog
0x06300…0b400 (11,) Data for rydgen1txt
0x0b400…0cf00 (20,) Data for printoscpr
0x0cf00…12900 (23,) Data for rymain
0x12900…13500 (33,) Data for rydritz
0x13500…15c00 Data for rycomp
0x15c00…1a400 Data for rydiffint
0x1a400…1b900 Data for rydiagpr
0x1b900…1c800 (49,) Data for ryortpr
0x1c800…1d100 Data for tanalspect
0x1d100…1e000 Data for zsorttxt
0x1e000…21300 Data for rytranspr
0x21300…21320 (59,) 36 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 65 64 3a 3d 74 72 75 65 20 0a 20 20 37 ┆6 started:=true 7┆
0x21320…21340 20 20 31 38 38 37 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 38 38 38 20 ┆ 1887 end; 6 1888 ┆
0x21340…21360 20 20 20 20 20 20 20 20 20 20 69 6e 66 3a 3d 35 30 34 3b 0a 20 20 36 20 20 31 38 38 39 20 20 20 ┆ inf:=504; 6 1889 ┆
0x21360…21380 20 20 20 20 20 20 20 20 69 66 20 62 73 61 72 65 61 2e 69 6e 66 20 65 78 74 72 61 63 74 20 31 32 ┆ if bsarea.inf extract 12┆
0x21380…213a0 3e 35 30 30 20 6f 72 20 73 65 67 3d 30 20 74 68 65 6e 0a 20 20 36 20 20 31 38 39 30 20 20 20 20 ┆>500 or seg=0 then 6 1890 ┆
0x213a0…213c0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 38 39 31 20 20 20 20 20 20 20 20 20 20 ┆ begin 7 1891 ┆
0x213c0…213e0 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 63 6f 64 65 20 69 6e 63 6f 6e 73 69 73 74 65 6e ┆ write(out,<: code inconsisten┆
0x213e0…21400 74 3a 3e 29 3b 0a 20 20 37 20 20 31 38 39 32 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆t:>); 7 1892 goto┆
0x21400…21420 20 65 78 69 74 6c 69 73 74 63 6c 6f 63 6b 0a 20 20 37 20 20 31 38 39 33 20 20 20 20 20 20 20 20 ┆ exitlistclock 7 1893 ┆
0x21420…21440 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 38 39 34 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 63 ┆ end; 6 1894 cloc┆
0x21440…21460 6b 61 64 72 3a 3d 63 6c 6f 63 6b 61 64 72 2d 35 30 32 2b 62 73 61 72 65 61 2e 69 6e 66 20 65 78 ┆kadr:=clockadr-502+bsarea.inf ex┆
0x21460…21480 74 72 61 63 74 20 31 32 3b 0a 20 20 36 20 20 31 38 39 35 20 20 20 20 20 20 20 20 20 20 20 69 6e ┆tract 12; 6 1895 in┆
0x21480…214a0 72 65 63 36 28 62 73 61 72 65 61 2c 35 31 32 29 3b 20 73 65 67 3a 3d 73 65 67 2d 31 3b 0a 20 20 ┆rec6(bsarea,512); seg:=seg-1; ┆
0x214a0…214c0 36 20 20 31 38 39 36 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 6f 63 6b 61 64 72 3e 35 30 ┆6 1896 if clockadr>50┆
0x214c0…214e0 32 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 20 20 36 20 20 31 38 39 37 20 ┆2 then goto nextsegm; 6 1897 ┆
0x214e0…21500 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 73 74 61 72 74 65 64 20 74 68 65 6e 20 6f 75 74 64 ┆ if -,started then outd┆
0x21500…21520 61 74 65 3b 0a 20 20 36 20 20 31 38 39 38 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 6c 6f 63 ┆ate; 6 1898 outcloc┆
0x21520…21540 6b 3b 0a 20 20 36 20 20 31 38 39 39 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 31 ┆k; 6 1899 end; 5 1┆
0x21540…21560 39 30 30 20 65 78 69 74 6c 69 73 74 63 6c 6f 63 6b 3a 0a 20 20 35 20 20 31 39 30 31 20 20 20 20 ┆900 exitlistclock: 5 1901 ┆
0x21560…21580 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 2c 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 62 61 73 ┆ monitor(72,zhelp,0,entrybas┆
0x21580…215a0 65 29 3b 0a 20 20 35 20 20 31 39 30 32 20 20 20 20 20 20 20 65 6e 64 20 6c 69 73 74 63 6c 6f 63 ┆e); 5 1902 end listcloc┆
0x215a0…215c0 6b 3b 0a 20 20 34 20 20 31 39 30 33 20 0a 20 20 34 20 20 31 39 30 33 20 0a 20 20 34 20 20 31 39 ┆k; 4 1903 4 1903 4 19┆
0x215c0…215e0 30 33 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 62 73 70 72 6f 63 28 7a 2c 73 2c 62 29 ┆03 procedure bsproc(z,s,b)┆
0x215e0…21600 3b 0a 20 20 34 20 20 31 39 30 34 20 20 20 20 20 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 34 20 20 31 ┆; 4 1904 zone z; 4 1┆
0x21600…21620 39 30 35 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 73 2c 62 3b 0a 20 20 34 20 20 31 39 30 36 ┆905 integer s,b; 4 1906┆
0x21620…21640 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 39 30 37 20 20 20 20 20 20 20 20 20 63 ┆ begin 5 1907 c┆
0x21640…21660 6f 6d 6d 65 6e 74 0a 20 20 35 20 20 31 39 30 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆omment 5 1908 ┆
0x21660…21680 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *****************************┆
0x21680…216a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 35 20 20 ┆************************** 5 ┆
0x216a0…216c0 31 39 30 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 ┆1909 * ┆
0x216c0…216e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x216e0…21700 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 35 20 20 31 39 31 30 20 20 20 20 20 20 20 20 20 20 ┆ * 5 1910 ┆
0x21700…21720 20 20 20 20 20 20 20 2a 20 54 68 69 73 20 62 6c 6f 63 6b 20 70 72 6f 63 65 64 75 72 65 20 69 73 ┆ * This block procedure is┆
0x21720…21740 20 75 73 65 64 20 77 68 65 6e 20 61 6e 20 65 6e 74 72 79 20 69 73 20 73 61 76 65 64 20 2a 0a 20 ┆ used when an entry is saved * ┆
0x21740…21760 20 35 20 20 31 39 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 69 74 20 69 73 ┆ 5 1911 * it is┆
0x21760…21780 20 74 68 65 6e 20 74 65 73 74 65 64 20 69 66 20 61 6e 6f 74 68 65 72 20 70 72 6f 63 65 73 73 20 ┆ then tested if another process ┆
0x21780…217a0 69 73 20 75 73 69 6e 67 20 74 68 65 20 20 20 2a 20 20 0a 20 20 35 20 20 31 39 31 32 20 20 20 20 ┆is using the * 5 1912 ┆
0x217a0…217c0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 65 6e 74 72 79 2e 20 20 20 20 20 20 20 20 20 20 20 ┆ * entry. ┆
0x217c0…217e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x217e0…21800 20 20 20 2a 0a 20 20 35 20 20 31 39 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ * 5 1913 *┆
0x21800…21820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21820…21840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 35 20 20 31 39 31 34 ┆ * 5 1914┆
0x21840…21860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ***************┆
0x21860…21880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x21880…218a0 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 20 35 20 20 31 39 31 35 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆********; 5 1915 moni┆
0x218a0…218c0 74 6f 72 28 37 32 29 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 ┆tor(72)set catalog base:(zhelp,0┆
0x218c0…218e0 2c 69 6e 74 65 72 76 61 6c 29 3b 0a 20 20 35 20 20 31 39 31 36 20 20 20 20 20 20 20 20 20 69 66 ┆,interval); 5 1916 if┆
0x218e0…21900 20 73 20 73 68 69 66 74 20 28 2d 32 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 6f 72 20 73 ┆ s shift (-2) extract 1 = 1 or s┆
0x21900…21920 20 73 68 69 66 74 20 28 2d 35 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 0a 20 ┆ shift (-5) extract 1 = 1 then ┆
0x21920…21940 20 35 20 20 31 39 31 37 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 39 31 38 ┆ 5 1917 begin 6 1918┆
0x21940…21960 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 35 29 20 65 78 74 72 61 ┆ if s shift (-5) extra┆
0x21960…21980 63 74 20 31 20 3d 20 31 20 20 61 6e 64 20 62 20 3d 20 30 20 74 68 65 6e 0a 20 20 36 20 20 31 39 ┆ct 1 = 1 and b = 0 then 6 19┆
0x21980…219a0 31 39 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 39 32 30 20 20 20 20 ┆19 begin 7 1920 ┆
0x219a0…219c0 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 20 63 61 74 61 6c 6f 67 20 ┆ monitor(72)set catalog ┆
0x219c0…219e0 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 62 61 73 65 29 3b 0a 20 20 37 20 20 31 ┆base:(zhelp,0,entrybase); 7 1┆
0x219e0…21a00 39 32 31 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 6d 6f 6e 69 74 6f 72 28 35 32 29 63 72 ┆921 i:=monitor(52)cr┆
0x21a00…21a20 65 61 74 65 20 70 72 6f 63 65 73 73 3a 28 62 73 61 72 65 61 2c 30 2c 69 61 72 72 29 3b 0a 20 20 ┆eate process:(bsarea,0,iarr); ┆
0x21a20…21a40 37 20 20 31 39 32 32 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 20 3c 3e 20 30 20 61 6e ┆7 1922 if i <> 0 an┆
0x21a40…21a60 64 20 74 74 65 73 74 20 74 68 65 6e 0a 20 20 37 20 20 31 39 32 33 20 20 20 20 20 20 20 20 20 20 ┆d ttest then 7 1923 ┆
0x21a60…21a80 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 72 65 73 75 6c 74 20 6f 66 20 63 72 ┆ write(out,<:<10> result of cr┆
0x21a80…21aa0 65 61 74 65 20 70 72 6f 63 65 73 73 20 3d 3a 3e 2c 69 29 3b 0a 20 20 37 20 20 31 39 32 34 20 20 ┆eate process =:>,i); 7 1924 ┆
0x21aa0…21ac0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 ┆ if i = 0 then goto ne┆
0x21ac0…21ae0 78 74 69 6e 3b 0a 20 20 37 20 20 31 39 32 35 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆xtin; 7 1925 end; ┆
0x21ae0…21b00 20 36 20 20 31 39 32 36 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 6e 6f 3a 3d 65 6e 74 72 ┆ 6 1926 entryno:=entr┆
0x21b00…21b20 79 6e 6f 2d 31 3b 0a 20 20 36 20 20 31 39 32 37 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 61 ┆yno-1; 6 1927 if ta┆
0x21b20…21b40 70 65 73 68 69 66 74 20 74 68 65 6e 20 63 68 61 6e 67 65 76 6f 6c 28 33 29 0a 20 20 36 20 20 31 ┆peshift then changevol(3) 6 1┆
0x21b40…21b60 39 32 38 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 36 20 20 31 39 32 39 20 20 20 20 ┆928 else 6 1929 ┆
0x21b60…21b80 20 20 20 20 20 20 20 68 61 72 64 65 72 72 6f 72 3a 3d 74 72 75 65 3b 0a 20 20 36 20 20 31 39 33 ┆ harderror:=true; 6 193┆
0x21b80…21ba0 30 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 74 61 70 65 2c 62 6c 6f 63 6b 73 69 ┆0 outrec6(tape,blocksi┆
0x21ba0…21bc0 7a 65 29 3b 0a 20 20 36 20 20 31 39 33 31 20 0a 20 20 36 20 20 31 39 33 31 20 20 20 20 20 20 20 ┆ze); 6 1931 6 1931 ┆
0x21bc0…21be0 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 74 61 70 65 2c 70 66 6e 6f 2c 70 62 6e 6f 29 3b ┆ setposition(tape,pfno,pbno);┆
0x21be0…21c00 0a 20 20 36 20 20 31 39 33 32 20 20 20 20 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e ┆ 6 1932 getposition┆
0x21c00…21c20 (60,) 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 36 20 20 31 39 33 33 20 20 20 20 20 20 20 20 ┆(entry,kk,jk); 6 1933 ┆
0x21c20…21c40 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 36 ┆ setposition(entry,kk,jk); 6┆
0x21c40…21c60 20 20 31 39 33 34 20 20 20 20 20 20 20 20 20 20 20 6d 3a 3d 30 3b 0a 20 20 36 20 20 31 39 33 35 ┆ 1934 m:=0; 6 1935┆
0x21c60…21c80 20 20 20 20 20 20 20 20 20 20 20 72 65 70 65 61 74 0a 20 20 36 20 20 31 39 33 36 20 20 20 20 20 ┆ repeat 6 1936 ┆
0x21c80…21ca0 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 36 20 20 31 ┆ swoprec6(entry,34); 6 1┆
0x21ca0…21cc0 39 33 37 20 20 20 20 20 20 20 20 20 20 20 66 6f 75 6e 64 3a 3d 20 65 6e 74 72 79 2e 6c 62 61 73 ┆937 found:= entry.lbas┆
0x21cc0…21ce0 65 20 3d 20 65 6e 74 72 79 62 61 73 65 28 31 29 20 61 6e 64 0a 20 20 36 20 20 31 39 33 38 20 20 ┆e = entrybase(1) and 6 1938 ┆
0x21ce0…21d00 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 75 62 61 73 65 20 3d 20 65 6e 74 72 79 62 61 73 65 ┆ entry.ubase = entrybase┆
0x21d00…21d20 28 32 29 20 61 6e 64 0a 20 20 36 20 20 31 39 33 39 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 ┆(2) and 6 1939 entr┆
0x21d20…21d40 79 2e 6e 61 6d 65 28 31 29 20 3d 20 65 6e 74 72 79 6e 61 6d 65 28 31 29 20 61 6e 64 0a 20 20 36 ┆y.name(1) = entryname(1) and 6┆
0x21d40…21d60 20 20 31 39 34 30 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 6e 61 6d 65 28 32 29 20 3d ┆ 1940 entry.name(2) =┆
0x21d60…21d80 20 65 6e 74 72 79 6e 61 6d 65 28 32 29 3b 0a 20 20 36 20 20 31 39 34 31 20 20 20 20 20 20 20 20 ┆ entryname(2); 6 1941 ┆
0x21d80…21da0 20 20 20 6d 3a 3d 6d 2b 31 3b 0a 20 20 36 20 20 31 39 34 32 20 20 20 20 20 20 20 20 20 20 20 75 ┆ m:=m+1; 6 1942 u┆
0x21da0…21dc0 6e 74 69 6c 20 66 6f 75 6e 64 3b 0a 20 20 36 20 20 31 39 34 33 20 20 20 20 20 20 20 20 20 20 20 ┆ntil found; 6 1943 ┆
0x21dc0…21de0 65 6e 74 72 79 2e 6b 65 79 3a 3d 2d 31 3b 0a 20 20 36 20 20 31 39 34 34 20 20 20 20 20 20 20 20 ┆entry.key:=-1; 6 1944 ┆
0x21de0…21e00 20 20 20 65 6e 74 72 79 2e 6c 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 36 20 20 31 39 34 35 20 20 20 ┆ entry.lbase:=-1; 6 1945 ┆
0x21e00…21e20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 75 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 36 20 20 31 39 ┆ entry.ubase:=-1; 6 19┆
0x21e20…21e40 34 36 20 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 73 65 67 6d 6e 6f 3a 3d 74 6f 74 61 6c 73 ┆46 totalsegmno:=totals┆
0x21e40…21e60 65 67 6d 6e 6f 2d 73 65 67 6d 6e 6f 3b 0a 20 20 36 20 20 31 39 34 37 20 20 20 20 20 20 20 20 20 ┆egmno-segmno; 6 1947 ┆
0x21e60…21e80 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 2a 2a 2a 20 65 6e 74 72 79 20 69 6e 20 ┆ write(out,<:<10> *** entry in ┆
0x21e80…21ea0 75 73 65 3a 20 20 20 3a 3e 29 3b 0a 20 20 36 20 20 31 39 34 38 20 20 20 20 20 20 20 20 20 20 20 ┆use: :>); 6 1948 ┆
0x21ea0…21ec0 6b 3a 3d 31 3b 77 72 69 74 65 28 6f 75 74 2c 73 74 72 69 6e 67 20 65 6e 74 72 79 6e 61 6d 65 28 ┆k:=1;write(out,string entryname(┆
0x21ec0…21ee0 69 6e 63 72 65 61 73 65 28 6b 29 29 29 3b 0a 20 20 36 20 20 31 39 34 39 20 20 20 20 20 20 20 20 ┆increase(k))); 6 1949 ┆
0x21ee0…21f00 20 20 20 70 61 67 65 73 68 69 66 74 3b 0a 20 20 36 20 20 31 39 35 30 20 20 20 20 20 20 20 20 20 ┆ pageshift; 6 1950 ┆
0x21f00…21f20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 32 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 ┆ if s shift (-2) extract 1 = 1 ┆
0x21f20…21f40 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 0a 20 20 36 20 20 31 39 35 31 20 20 20 20 20 20 20 ┆then write(out, 6 1951 ┆
0x21f40…21f60 20 20 20 20 20 3c 3a 20 20 61 72 65 61 20 72 65 73 65 72 76 65 64 20 3a 3e 29 3b 0a 20 20 36 20 ┆ <: area reserved :>); 6 ┆
0x21f60…21f80 20 31 39 35 32 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 35 29 20 ┆ 1952 if s shift (-5) ┆
0x21f80…21fa0 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 0a 20 20 ┆extract 1 = 1 then write(out, ┆
0x21fa0…21fc0 36 20 20 31 39 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 20 61 72 65 61 20 6e 6f 74 ┆6 1953 <: area not┆
0x21fc0…21fe0 20 63 72 65 61 74 65 64 3a 3e 29 3b 0a 20 20 36 20 20 31 39 35 34 20 20 20 20 20 20 20 20 20 20 ┆ created:>); 6 1954 ┆
0x21fe0…22000 20 69 66 20 74 74 65 73 74 20 74 68 65 6e 0a 20 20 36 20 20 31 39 35 35 20 20 20 20 20 20 20 20 ┆ if ttest then 6 1955 ┆
0x22000…22020 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 39 35 36 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ begin 7 1956 w┆
0x22020…22040 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 73 3d 3a 3e 2c 73 2c 3c 3a 20 62 3d 20 3a 3e 2c ┆rite(out,<:<10> s=:>,s,<: b= :>,┆
0x22040…22060 62 29 3b 0a 20 20 37 20 20 31 39 35 37 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 36 ┆b); 7 1957 end; 6┆
0x22060…22080 20 20 31 39 35 38 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e 74 ┆ 1958 setposition(ent┆
0x22080…220a0 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 36 20 20 31 39 35 39 20 20 20 20 20 20 20 20 20 20 20 66 ┆ry,kk,jk); 6 1959 f┆
0x220a0…220c0 6f 72 20 6b 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 20 64 6f 20 69 6e 72 65 63 36 ┆or k:=1 step 1 until m do inrec6┆
0x220c0…220e0 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 36 20 20 31 39 36 30 20 0a 20 20 36 20 20 31 39 36 30 ┆(entry,34); 6 1960 6 1960┆
0x220e0…22100 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 31 39 36 31 20 20 20 20 20 20 20 20 20 ┆ end; 5 1961 ┆
0x22100…22120 67 6f 74 6f 20 6e 65 78 74 3b 0a 20 20 35 20 20 31 39 36 32 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆goto next; 5 1962 end; ┆
0x22120…22140 20 20 34 20 20 31 39 36 33 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 20 63 ┆ 4 1963 monitor(72)set c┆
0x22140…22160 61 74 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 62 61 73 65 29 3b 0a 20 20 34 ┆at base:(zhelp,0,entrybase); 4┆
0x22160…22180 20 20 31 39 36 34 20 20 20 20 20 20 20 69 66 20 65 6e 74 72 79 2e 73 69 7a 65 20 3e 3d 20 30 20 ┆ 1964 if entry.size >= 0 ┆
0x22180…221a0 74 68 65 6e 0a 20 20 34 20 20 31 39 36 35 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 ┆then 4 1965 begin 5 ┆
0x221a0…221c0 31 39 36 36 20 0a 20 20 35 20 20 31 39 36 36 20 0a 20 20 35 20 20 31 39 36 36 20 20 20 20 20 20 ┆1966 5 1966 5 1966 ┆
0x221c0…221e0 20 20 20 69 3a 3d 31 3b 6f 70 65 6e 28 62 73 61 72 65 61 2c 34 2c 0a 20 20 35 20 20 31 39 36 37 ┆ i:=1;open(bsarea,4, 5 1967┆
0x221e0…22200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 65 6e 74 72 79 6e ┆ string entryn┆
0x22200…22220 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 31 20 73 68 69 66 74 20 35 20 2b 20 31 20 73 ┆ame(increase(i)),1 shift 5 + 1 s┆
0x22220…22240 68 69 66 74 20 32 29 3b 0a 20 20 35 20 20 31 39 36 38 20 20 20 20 20 20 20 20 70 72 6f 61 64 64 ┆hift 2); 5 1968 proadd┆
0x22240…22260 72 3a 3d 6d 6f 6e 69 74 6f 72 28 34 29 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e ┆r:=monitor(4)process description┆
0x22260…22280 20 61 64 64 72 3a 28 62 73 61 72 65 61 2c 69 2c 69 74 61 69 6c 29 3b 0a 20 20 35 20 20 31 39 36 ┆ addr:(bsarea,i,itail); 5 196┆
0x22280…222a0 39 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 61 64 64 72 20 3e 20 30 20 74 68 65 6e 0a 20 20 35 ┆9 if proaddr > 0 then 5┆
0x222a0…222c0 20 20 31 39 37 30 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 39 37 31 20 20 20 ┆ 1970 begin 6 1971 ┆
0x222c0…222e0 20 20 20 20 20 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 20 63 6f 72 65 20 61 72 65 61 3a 28 ┆ system(5)move core area:(┆
0x222e0…22300 70 72 6f 61 64 64 72 2c 69 74 61 69 6c 29 3b 0a 20 20 36 20 20 31 39 37 32 20 20 20 20 20 20 20 ┆proaddr,itail); 6 1972 ┆
0x22300…22320 20 20 20 69 66 20 69 74 61 69 6c 28 37 29 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 36 20 20 31 39 ┆ if itail(7) <> 0 then 6 19┆
0x22320…22340 37 33 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 39 37 34 20 20 20 20 20 ┆73 begin 7 1974 ┆
0x22340…22360 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b ┆ getposition(entry,kk,jk);┆
0x22360…22380 0a 20 20 37 20 20 31 39 37 35 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f ┆ 7 1975 setpositio┆
0x22380…223a0 6e 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 37 20 20 31 39 37 36 20 20 20 20 20 20 20 ┆n(entry,kk,jk); 7 1976 ┆
0x223a0…223c0 20 20 20 20 20 6d 3a 3d 30 3b 0a 20 20 37 20 20 31 39 37 37 20 20 20 20 20 20 20 20 20 20 20 20 ┆ m:=0; 7 1977 ┆
0x223c0…223e0 72 65 70 65 61 74 0a 20 20 37 20 20 31 39 37 38 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 ┆repeat 7 1978 swop┆
0x223e0…22400 72 65 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 37 20 20 31 39 37 39 20 20 20 20 20 20 20 ┆rec6(entry,34); 7 1979 ┆
0x22400…22420 20 20 20 20 20 66 6f 75 6e 64 3a 3d 20 65 6e 74 72 79 2e 6c 62 61 73 65 20 3d 20 65 6e 74 72 79 ┆ found:= entry.lbase = entry┆
0x22420…22440 62 61 73 65 28 31 29 20 61 6e 64 0a 20 20 37 20 20 31 39 38 30 20 20 20 20 20 20 20 20 20 20 20 ┆base(1) and 7 1980 ┆
0x22440…22460 20 65 6e 74 72 79 2e 75 62 61 73 65 20 3d 20 65 6e 74 72 79 62 61 73 65 28 32 29 20 61 6e 64 0a ┆ entry.ubase = entrybase(2) and ┆
0x22460…22480 20 20 37 20 20 31 39 38 31 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 6e 61 6d 65 28 ┆ 7 1981 entry.name(┆
0x22480…224a0 31 29 20 3d 20 65 6e 74 72 79 6e 61 6d 65 28 31 29 20 61 6e 64 0a 20 20 37 20 20 31 39 38 32 20 ┆1) = entryname(1) and 7 1982 ┆
0x224a0…224c0 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 6e 61 6d 65 28 32 29 20 3d 20 65 6e 74 72 79 ┆ entry.name(2) = entry┆
0x224c0…224e0 6e 61 6d 65 28 32 29 3b 0a 20 20 37 20 20 31 39 38 33 20 20 20 20 20 20 20 20 20 20 20 20 6d 3a ┆name(2); 7 1983 m:┆
0x224e0…22500 3d 6d 2b 31 3b 0a 20 20 37 20 20 31 39 38 34 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c ┆=m+1; 7 1984 until┆
0x22500…22520 (61,) 20 66 6f 75 6e 64 3b 0a 20 20 37 20 20 31 39 38 35 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 ┆ found; 7 1985 ent┆
0x22520…22540 72 79 2e 6b 65 79 3a 3d 2d 31 3b 0a 20 20 37 20 20 31 39 38 36 20 20 20 20 20 20 20 20 20 20 20 ┆ry.key:=-1; 7 1986 ┆
0x22540…22560 20 65 6e 74 72 79 2e 6c 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 37 20 20 31 39 38 37 20 20 20 20 20 ┆ entry.lbase:=-1; 7 1987 ┆
0x22560…22580 20 20 20 20 20 20 20 65 6e 74 72 79 2e 75 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 37 20 20 31 39 38 ┆ entry.ubase:=-1; 7 198┆
0x22580…225a0 38 20 20 20 20 20 20 20 20 20 20 20 20 6b 3a 3d 31 3b 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 ┆8 k:=1;write(out,<:<1┆
0x225a0…225c0 30 3e 2a 2a 2a 20 65 6e 74 72 79 20 72 65 73 65 72 76 65 64 3a 20 20 3a 3e 2c 0a 20 20 37 20 20 ┆0>*** entry reserved: :>, 7 ┆
0x225c0…225e0 31 39 38 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆1989 s┆
0x225e0…22600 74 72 69 6e 67 20 65 6e 74 72 79 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 6b 29 29 29 3b 0a 20 ┆tring entryname(increase(k))); ┆
0x22600…22620 20 37 20 20 31 39 39 30 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 73 68 69 66 74 3b 0a 20 20 ┆ 7 1990 pageshift; ┆
0x22620…22640 37 20 20 31 39 39 31 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 ┆7 1991 monitor(72)set┆
0x22640…22660 20 63 61 74 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 69 6e 74 65 72 76 61 6c 29 3b 0a 20 20 ┆ cat base:(zhelp,0,interval); ┆
0x22660…22680 37 20 20 31 39 39 32 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e ┆7 1992 setposition(en┆
0x22680…226a0 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 37 20 20 31 39 39 33 20 20 20 20 20 20 20 20 20 20 20 ┆try,kk,jk); 7 1993 ┆
0x226a0…226c0 66 6f 72 20 6b 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 20 64 6f 20 69 6e 72 65 ┆for k:= 1 step 1 until m do inre┆
0x226c0…226e0 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 37 20 20 31 39 39 34 20 20 20 20 20 20 20 20 20 ┆c6(entry,34); 7 1994 ┆
0x226e0…22700 20 20 20 67 6f 74 6f 20 6e 65 78 74 3b 0a 20 20 37 20 20 31 39 39 35 20 20 20 20 20 20 20 20 20 ┆ goto next; 7 1995 ┆
0x22700…22720 20 65 6e 64 3b 0a 20 20 36 20 20 31 39 39 36 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 ┆ end; 6 1996 end; 5 ┆
0x22720…22740 31 39 39 37 20 0a 20 20 35 20 20 31 39 39 37 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 ┆1997 5 1997 end; 4 ┆
0x22740…22760 31 39 39 38 20 20 20 20 20 20 20 73 65 67 6d 6e 6f 3a 3d 30 3b 0a 20 20 34 20 20 31 39 39 39 20 ┆1998 segmno:=0; 4 1999 ┆
0x22760…22780 20 20 20 20 20 20 69 3a 3d 30 3b 0a 20 20 34 20 20 32 30 30 30 20 20 20 20 20 20 20 6d 6f 6e 69 ┆ i:=0; 4 2000 moni┆
0x22780…227a0 74 6f 72 28 35 32 29 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 28 62 73 61 72 ┆tor(52)create area process:(bsar┆
0x227a0…227c0 65 61 2c 30 2c 69 61 72 72 29 3b 0a 20 20 34 20 20 32 30 30 31 20 20 20 20 20 20 20 65 6e 74 72 ┆ea,0,iarr); 4 2001 entr┆
0x227c0…227e0 79 6e 6f 3a 3d 65 6e 74 72 79 6e 6f 2b 31 3b 0a 20 20 34 20 20 32 30 30 32 20 6e 65 78 74 69 6e ┆yno:=entryno+1; 4 2002 nextin┆
0x227e0…22800 3a 0a 20 20 34 20 20 32 30 30 33 20 20 20 20 20 20 20 69 66 20 65 6e 64 74 61 70 65 20 74 68 65 ┆: 4 2003 if endtape the┆
0x22800…22820 6e 20 63 68 61 6e 67 65 76 6f 6c 28 31 29 3b 0a 20 20 34 20 20 32 30 30 34 20 20 20 20 20 20 20 ┆n changevol(1); 4 2004 ┆
0x22820…22840 69 66 20 74 74 65 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 70 66 ┆if ttest then write(out,<:<10>pf┆
0x22840…22860 6e 6f 3d 3a 3e 2c 70 66 6e 6f 2c 3c 3a 20 20 70 62 6e 6f 3d 3a 3e 2c 70 62 6e 6f 29 3b 0a 20 20 ┆no=:>,pfno,<: pbno=:>,pbno); ┆
0x22860…22880 34 20 20 32 30 30 35 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 74 61 70 65 2c 70 ┆4 2005 getposition(tape,p┆
0x22880…228a0 66 6e 6f 2c 70 62 6e 6f 29 3b 0a 20 20 34 20 20 32 30 30 36 20 20 20 20 20 20 20 6f 75 74 72 65 ┆fno,pbno); 4 2006 outre┆
0x228a0…228c0 63 36 28 74 61 70 65 2c 62 6c 6f 63 6b 73 69 7a 65 29 3b 63 68 61 6e 67 65 72 65 63 36 28 74 61 ┆c6(tape,blocksize);changerec6(ta┆
0x228c0…228e0 70 65 2c 31 30 30 29 3b 0a 20 20 34 20 20 32 30 30 37 20 20 20 20 20 20 20 74 61 70 65 28 31 29 ┆pe,100); 4 2007 tape(1)┆
0x228e0…22900 3a 3d 72 3a 3d 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 31 20 73 68 69 66 74 20 32 34 20 61 64 ┆:=r:=real <::> add 1 shift 24 ad┆
0x22900…22920 64 20 35 32 3b 0a 20 20 34 20 20 32 30 30 38 20 20 20 20 20 20 20 74 61 70 65 28 32 29 3a 3d 20 ┆d 52; 4 2008 tape(2):= ┆
0x22920…22940 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 65 6e 74 72 79 6e 6f 20 73 68 69 66 74 20 32 34 20 61 ┆real <::> add entryno shift 24 a┆
0x22940…22960 64 64 0a 20 20 34 20 20 32 30 30 39 20 20 20 20 20 20 20 28 69 66 20 65 6e 74 72 79 2e 6b 69 6e ┆dd 4 2009 (if entry.kin┆
0x22960…22980 64 20 3c 20 30 20 74 68 65 6e 20 30 20 65 6c 73 65 20 65 6e 74 72 79 2e 6b 69 6e 64 29 3b 0a 20 ┆d < 0 then 0 else entry.kind); ┆
0x22980…229a0 20 34 20 20 32 30 31 30 20 20 20 20 20 20 20 74 61 70 65 28 33 29 3a 3d 20 65 6e 74 72 79 2e 6e ┆ 4 2010 tape(3):= entry.n┆
0x229a0…229c0 61 6d 65 28 31 29 3b 0a 20 20 34 20 20 32 30 31 31 20 20 20 20 20 20 20 74 61 70 65 28 34 29 3a ┆ame(1); 4 2011 tape(4):┆
0x229c0…229e0 3d 65 6e 74 72 79 2e 6e 61 6d 65 28 32 29 3b 0a 20 20 34 20 20 32 30 31 32 20 20 20 20 20 20 20 ┆=entry.name(2); 4 2012 ┆
0x229e0…22a00 74 61 3a 3d 31 34 3b 0a 20 20 34 20 20 32 30 31 33 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 ┆ta:=14; 4 2013 for i:= ┆
0x22a00…22a20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 64 6f 20 74 61 70 65 28 34 2b 69 29 3a 3d 20 ┆1 step 1 until 5 do tape(4+i):= ┆
0x22a20…22a40 74 74 61 69 6c 2e 74 61 28 69 29 3b 0a 20 20 34 20 20 32 30 31 34 20 20 20 20 20 20 20 70 65 72 ┆ttail.ta(i); 4 2014 per┆
0x22a40…22a60 6d 6b 65 79 3a 3d 20 65 6e 74 72 79 2e 6b 65 79 20 65 78 74 72 61 63 74 20 33 3b 0a 20 20 34 20 ┆mkey:= entry.key extract 3; 4 ┆
0x22a60…22a80 20 32 30 31 35 20 20 20 20 20 20 20 74 61 70 65 28 31 30 29 3a 3d 20 65 6e 74 72 79 2e 6b 65 79 ┆ 2015 tape(10):= entry.key┆
0x22a80…22aa0 20 65 78 74 72 61 63 74 20 33 3b 0a 20 20 34 20 20 32 30 31 36 20 20 20 20 20 20 20 74 61 70 65 ┆ extract 3; 4 2016 tape┆
0x22aa0…22ac0 28 31 31 29 3a 3d 65 6e 74 72 79 2e 64 6f 63 6e 61 6d 65 28 31 29 3b 0a 20 20 34 20 20 32 30 31 ┆(11):=entry.docname(1); 4 201┆
0x22ac0…22ae0 37 20 20 20 20 20 20 20 74 61 70 65 28 31 32 29 3a 3d 65 6e 74 72 79 2e 64 6f 63 6e 61 6d 65 28 ┆7 tape(12):=entry.docname(┆
0x22ae0…22b00 32 29 3b 0a 20 20 34 20 20 32 30 31 38 20 20 20 20 20 20 20 74 61 70 65 28 31 33 29 3a 3d 20 72 ┆2); 4 2018 tape(13):= r┆
0x22b00…22b20 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 65 6e 74 72 79 2e 6c 62 61 73 65 20 73 68 69 66 74 20 32 ┆eal <::> add entry.lbase shift 2┆
0x22b20…22b40 34 20 61 64 64 20 65 6e 74 72 79 2e 75 62 61 73 65 3b 0a 20 20 34 20 20 32 30 31 39 20 20 20 20 ┆4 add entry.ubase; 4 2019 ┆
0x22b40…22b60 20 20 20 66 6f 72 20 69 3a 3d 20 31 34 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 35 20 64 6f ┆ for i:= 14 step 1 until 25 do┆
0x22b60…22b80 20 74 61 70 65 28 69 29 3a 3d 20 72 3b 0a 20 20 34 20 20 32 30 32 30 20 20 20 20 20 20 20 69 66 ┆ tape(i):= r; 4 2020 if┆
0x22b80…22ba0 20 74 74 65 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 20 73 69 7a 65 3d ┆ ttest then write(out,<: size=┆
0x22ba0…22bc0 3a 3e 2c 65 6e 74 72 79 2e 6b 69 6e 64 29 3b 0a 20 20 34 20 20 32 30 32 31 20 20 20 20 20 20 20 ┆:>,entry.kind); 4 2021 ┆
0x22bc0…22be0 69 66 20 65 6e 74 72 79 2e 73 69 7a 65 20 3c 20 30 20 74 68 65 6e 20 20 20 67 6f 74 6f 20 6e 65 ┆if entry.size < 0 then goto ne┆
0x22be0…22c00 78 74 65 6e 74 72 79 3b 3c 2a 73 61 76 65 20 64 65 73 63 72 69 70 74 6f 72 2a 3e 0a 20 20 34 20 ┆xtentry;<*save descriptor*> 4 ┆
0x22c00…22c20 20 32 30 32 32 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 69 6e 72 65 63 36 28 62 73 61 72 65 61 ┆ 2022 for i:=inrec6(bsarea┆
0x22c20…22c40 2c 30 29 20 77 68 69 6c 65 20 69 20 3e 20 32 20 64 6f 0a 20 20 34 20 20 32 30 32 33 20 20 20 20 ┆,0) while i > 2 do 4 2023 ┆
0x22c40…22c60 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 32 30 32 34 20 20 20 20 20 20 20 20 20 69 66 20 65 6e ┆ begin 5 2024 if en┆
0x22c60…22c80 64 74 61 70 65 20 74 68 65 6e 20 63 68 61 6e 67 65 76 6f 6c 28 31 29 3b 0a 20 20 35 20 20 32 30 ┆dtape then changevol(1); 5 20┆
0x22c80…22ca0 32 35 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 74 61 70 65 2c 62 6c 6f 63 6b 73 69 7a ┆25 outrec6(tape,blocksiz┆
0x22ca0…22cc0 65 29 3b 0a 20 20 35 20 20 32 30 32 36 20 20 20 20 20 20 20 20 20 69 66 20 69 2b 38 20 3c 3e 20 ┆e); 5 2026 if i+8 <> ┆
0x22cc0…22ce0 62 6c 6f 63 6b 73 69 7a 65 20 74 68 65 6e 20 63 68 61 6e 67 65 72 65 63 36 28 74 61 70 65 2c 38 ┆blocksize then changerec6(tape,8┆
0x22ce0…22d00 2b 69 29 3b 0a 20 20 35 20 20 32 30 32 37 20 20 20 20 20 20 20 20 20 74 61 70 65 28 31 29 3a 3d ┆+i); 5 2027 tape(1):=┆
0x22d00…22d20 20 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 32 20 73 68 69 66 74 20 32 34 20 61 64 64 20 28 38 ┆ real <::> add 2 shift 24 add (8┆
0x22d20…22d40 2b 69 29 3b 0a 20 20 35 20 20 32 30 32 38 20 20 20 20 20 20 20 20 20 74 61 70 65 28 32 29 3a 3d ┆+i); 5 2028 tape(2):=┆
0x22d40…22d60 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 65 6e 74 72 79 6e 6f 20 73 68 69 66 74 20 32 34 20 61 ┆real <::> add entryno shift 24 a┆
0x22d60…22d80 64 64 20 73 65 67 6d 6e 6f 3b 0a 20 20 35 20 20 32 30 32 39 20 20 20 20 20 20 20 20 20 69 6e 72 ┆dd segmno; 5 2029 inr┆
0x22d80…22da0 65 63 36 28 62 73 61 72 65 61 2c 69 29 3b 0a 20 20 35 20 20 32 30 33 30 20 20 20 20 20 20 20 20 ┆ec6(bsarea,i); 5 2030 ┆
0x22da0…22dc0 20 72 61 66 3a 3d 38 3b 0a 20 20 35 20 20 32 30 33 31 20 20 20 20 20 20 20 20 20 74 6f 66 72 6f ┆ raf:=8; 5 2031 tofro┆
0x22dc0…22de0 6d 28 74 61 70 65 2e 72 61 66 2c 62 73 61 72 65 61 2c 69 29 3b 0a 20 20 35 20 20 32 30 33 32 20 ┆m(tape.raf,bsarea,i); 5 2032 ┆
0x22de0…22e00 20 20 20 20 20 20 20 20 73 65 67 6d 6e 6f 3a 3d 73 65 67 6d 6e 6f 20 2b 20 69 2f 2f 35 31 32 3b ┆ segmno:=segmno + i//512;┆
0x22e00…22e20 (62,) 0a 20 20 35 20 20 32 30 33 33 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 73 65 67 6d 6e 6f 3a 3d ┆ 5 2033 totalsegmno:=┆
0x22e20…22e40 74 6f 74 61 6c 73 65 67 6d 6e 6f 2b 20 69 2f 2f 35 31 32 3b 0a 20 20 35 20 20 32 30 33 34 20 20 ┆totalsegmno+ i//512; 5 2034 ┆
0x22e40…22e60 20 20 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 32 30 33 35 20 20 20 20 20 20 20 74 61 70 65 73 68 ┆ end; 4 2035 tapesh┆
0x22e60…22e80 69 66 74 3a 3d 66 61 6c 73 65 3b 0a 20 20 34 20 20 32 30 33 36 20 6e 65 78 74 65 6e 74 72 79 3a ┆ift:=false; 4 2036 nextentry:┆
0x22e80…22ea0 0a 20 20 34 20 20 32 30 33 37 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 20 6c 69 ┆ 4 2037 if list then li┆
0x22ea0…22ec0 73 74 65 6e 74 72 79 28 74 72 75 65 29 3b 0a 20 20 34 20 20 32 30 33 38 20 20 20 20 20 20 20 69 ┆stentry(true); 4 2038 i┆
0x22ec0…22ee0 66 20 6c 69 73 74 20 61 6e 64 20 6d 69 73 73 69 6e 67 63 6c 6f 63 6b 20 20 61 6e 64 20 65 6e 74 ┆f list and missingclock and ent┆
0x22ee0…22f00 72 79 2e 73 69 7a 65 20 3e 3d 20 30 20 74 68 65 6e 20 6c 69 73 74 63 6c 6f 63 6b 3b 0a 20 20 34 ┆ry.size >= 0 then listclock; 4┆
0x22f00…22f20 20 20 32 30 33 39 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 20 70 61 67 65 73 68 ┆ 2039 if list then pagesh┆
0x22f20…22f40 69 66 74 3b 0a 20 20 34 20 20 32 30 34 30 20 6e 65 78 74 3a 20 0a 20 20 34 20 20 32 30 34 31 20 ┆ift; 4 2040 next: 4 2041 ┆
0x22f40…22f60 20 20 20 20 20 20 69 66 20 65 6e 74 72 79 2e 73 69 7a 65 20 3e 3d 20 30 20 74 68 65 6e 20 0a 20 ┆ if entry.size >= 0 then ┆
0x22f60…22f80 20 34 20 20 32 30 34 32 20 20 20 20 20 20 20 63 6c 6f 73 65 28 62 73 61 72 65 61 2c 74 72 75 65 ┆ 4 2042 close(bsarea,true┆
0x22f80…22fa0 29 3b 0a 20 20 34 20 20 32 30 34 33 20 20 20 20 20 20 20 69 66 20 65 6e 74 72 79 6e 61 6d 65 28 ┆); 4 2043 if entryname(┆
0x22fa0…22fc0 31 29 20 3c 3e 20 72 65 61 6c 20 3c 3a 69 6e 63 73 61 3a 3e 20 61 64 64 20 31 31 38 20 0a 20 20 ┆1) <> real <:incsa:> add 118 ┆
0x22fc0…22fe0 34 20 20 32 30 34 34 20 20 20 20 20 20 20 61 6e 64 20 65 6e 74 72 79 6e 61 6d 65 28 32 29 20 3c ┆4 2044 and entryname(2) <┆
0x22fe0…23000 3e 20 72 65 61 6c 20 3c 3a 65 3a 3e 20 74 68 65 6e 0a 20 20 34 20 20 32 30 34 35 20 20 20 20 20 ┆> real <:e:> then 4 2045 ┆
0x23000…23020 20 20 62 65 67 69 6e 0a 20 20 35 20 20 32 30 34 36 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆ begin 5 2046 monit┆
0x23020…23040 6f 72 28 37 32 29 73 65 74 20 63 61 74 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 ┆or(72)set cat base:(zhelp,0,entr┆
0x23040…23060 79 62 61 73 65 29 3b 0a 20 20 35 20 20 32 30 34 37 20 20 20 20 20 20 20 20 20 69 3a 3d 6d 6f 6e ┆ybase); 5 2047 i:=mon┆
0x23060…23080 69 74 6f 72 28 36 34 29 72 65 6d 6f 76 65 20 70 72 6f 63 65 73 73 3a 28 62 73 61 72 65 61 2c 30 ┆itor(64)remove process:(bsarea,0┆
0x23080…230a0 2c 69 61 72 72 29 3b 0a 20 20 35 20 20 32 30 34 38 20 20 20 20 20 20 20 20 20 69 66 20 69 20 3c ┆,iarr); 5 2048 if i <┆
0x230a0…230c0 3e 20 30 20 61 6e 64 20 69 20 3c 3e 20 33 20 61 6e 64 20 74 74 65 73 74 20 74 68 65 6e 0a 20 20 ┆> 0 and i <> 3 and ttest then ┆
0x230c0…230e0 35 20 20 32 30 34 39 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 32 30 35 30 20 ┆5 2049 begin 6 2050 ┆
0x230e0…23100 20 20 20 20 20 20 20 20 20 20 69 69 3a 3d 31 3b 0a 20 20 36 20 20 32 30 35 31 20 20 20 20 20 20 ┆ ii:=1; 6 2051 ┆
0x23100…23120 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 65 6e 74 72 79 6e 61 6d 65 3d 20 ┆ write(out,<:<10>entryname= ┆
0x23120…23140 3a 3e 2c 73 74 72 69 6e 67 20 65 6e 74 72 79 2e 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 69 ┆:>,string entry.name(increase(ii┆
0x23140…23160 29 29 2c 0a 20 20 36 20 20 32 30 35 32 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 72 65 73 75 6c ┆)), 6 2052 <: resul┆
0x23160…23180 74 20 6f 66 20 72 65 6d 6f 76 65 20 3d 20 3a 3e 2c 69 29 3b 0a 20 20 36 20 20 32 30 35 33 20 20 ┆t of remove = :>,i); 6 2053 ┆
0x23180…231a0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 32 30 35 34 20 20 20 20 20 20 20 65 6e 64 3b ┆ end; 5 2054 end;┆
0x231a0…231c0 0a 20 20 34 20 20 32 30 35 35 20 20 20 20 20 65 6e 64 20 3c 2a 64 75 6d 74 74 61 70 65 2a 3e 3b ┆ 4 2055 end <*dumttape*>;┆
0x231c0…231e0 0a 20 20 33 20 20 32 30 35 36 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 0a 20 20 33 20 20 32 30 ┆ 3 2056 comment 3 20┆
0x231e0…23200 35 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆57 ***************┆
0x23200…23220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x23220…23240 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 33 20 20 32 30 35 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******** 3 2058 ┆
0x23240…23260 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x23260…23280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 33 20 20 32 30 ┆ * 3 20┆
0x23280…232a0 35 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 ┆59 * This procedur┆
0x232a0…232c0 65 20 64 75 6d 70 73 20 74 68 65 20 65 6e 74 72 69 65 73 20 6f 6e 20 74 61 70 65 2e 20 49 66 20 ┆e dumps the entries on tape. If ┆
0x232c0…232e0 61 6e 20 65 6e 2d 20 2a 0a 20 20 33 20 20 32 30 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆an en- * 3 2060 ┆
0x232e0…23300 20 2a 20 74 72 79 20 63 61 6e 20 6e 6f 74 20 62 65 20 73 61 76 65 64 20 61 6e 64 20 73 6f 6d 65 ┆ * try can not be saved and some┆
0x23300…23320 74 68 69 6e 67 20 6f 66 20 74 68 61 74 20 65 6e 74 72 79 20 69 73 20 2a 0a 20 20 33 20 20 32 30 ┆thing of that entry is * 3 20┆
0x23320…23340 36 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 73 61 76 65 64 20 74 68 69 73 20 77 69 ┆61 * saved this wi┆
0x23340…23360 6c 6c 20 62 65 20 64 65 6c 65 74 65 64 20 61 6e 64 20 74 68 65 20 6e 65 78 74 20 65 6e 74 72 79 ┆ll be deleted and the next entry┆
0x23360…23380 20 77 69 6c 6c 20 20 2a 0a 20 20 33 20 20 32 30 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ will * 3 2062 ┆
0x23380…233a0 20 2a 20 62 65 20 73 61 76 65 64 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * be saved. ┆
0x233a0…233c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 33 20 20 32 30 ┆ * 3 20┆
0x233c0…233e0 36 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆63 * ┆
0x233e0…23400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23400…23420 20 20 20 20 20 20 20 2a 0a 20 20 33 20 20 32 30 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 3 2064 ┆
0x23420…23440 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x23440…23460 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 20 33 20 20 32 ┆************************; 3 2┆
0x23460…23480 30 36 35 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 65 6e 74 72 79 3b 0a 20 20 ┆065 procedure outentry; ┆
0x23480…234a0 33 20 20 32 30 36 36 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 34 20 20 32 30 36 37 20 20 20 ┆3 2066 begin 4 2067 ┆
0x234a0…234c0 20 20 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 64 6f 63 2c 74 61 69 3b 0a ┆ real array field doc,tai; ┆
0x234c0…234e0 20 20 34 20 20 32 30 36 38 20 0a 20 20 34 20 20 32 30 36 38 20 20 20 20 20 20 20 20 20 69 6e 74 ┆ 4 2068 4 2068 int┆
0x234e0…23500 65 67 65 72 20 66 69 65 6c 64 20 62 66 3b 0a 20 20 34 20 20 32 30 36 39 20 20 20 20 20 20 20 20 ┆eger field bf; 4 2069 ┆
0x23500…23520 20 64 6f 63 3a 3d 31 34 3b 74 61 69 3a 3d 30 3b 0a 20 20 34 20 20 32 30 37 30 20 20 20 20 20 20 ┆ doc:=14;tai:=0; 4 2070 ┆
0x23520…23540 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 64 6f 20 74 61 ┆ for i:=1 step 1 until 5 do ta┆
0x23540…23560 69 6c 2e 74 61 69 28 69 29 3a 3d 74 74 61 69 6c 2e 64 6f 63 28 69 29 3b 0a 20 20 34 20 20 32 30 ┆il.tai(i):=ttail.doc(i); 4 20┆
0x23560…23580 37 31 20 20 20 20 20 20 20 20 20 69 3a 3d 32 3b 0a 20 20 34 20 20 32 30 37 32 20 20 20 20 20 20 ┆71 i:=2; 4 2072 ┆
0x23580…235a0 20 20 20 6f 75 74 72 65 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 34 20 20 32 30 37 33 20 ┆ outrec6(entry,34); 4 2073 ┆
0x235a0…235c0 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 69 20 3c 3d 20 33 34 20 64 6f 20 0a 20 20 34 20 20 32 ┆ while i <= 34 do 4 2┆
0x235c0…235e0 30 37 34 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 32 30 37 35 20 20 20 20 20 ┆074 begin 5 2075 ┆
0x235e0…23600 20 20 20 20 20 20 62 66 3a 3d 69 3b 0a 20 20 35 20 20 32 30 37 36 20 20 20 20 20 20 20 20 20 20 ┆ bf:=i; 5 2076 ┆
0x23600…23620 20 65 6e 74 72 79 2e 62 66 3a 3d 74 74 61 69 6c 2e 62 66 3b 0a 20 20 35 20 20 32 30 37 37 20 20 ┆ entry.bf:=ttail.bf; 5 2077 ┆
0x23620…23640 20 20 20 20 20 20 20 20 20 69 3a 3d 69 2b 32 3b 0a 20 20 35 20 20 32 30 37 38 20 20 20 20 20 20 ┆ i:=i+2; 5 2078 ┆
0x23640…23660 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 32 30 37 39 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 33 ┆ end; 4 2079 end; 3┆
0x23660…23680 20 20 32 30 38 30 20 0a 20 20 33 20 20 32 30 38 30 20 20 20 20 20 20 20 69 3a 3d 31 3b 6f 70 65 ┆ 2080 3 2080 i:=1;ope┆
0x23680…236a0 6e 28 74 61 70 65 2c 6d 6f 64 65 6b 69 6e 64 2c 73 74 72 69 6e 67 20 74 31 74 61 70 65 6e 61 6d ┆n(tape,modekind,string t1tapenam┆
0x236a0…236c0 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 31 20 73 68 69 66 74 20 31 38 29 3b 0a 20 20 33 20 ┆e(increase(i)),1 shift 18); 3 ┆
0x236c0…236e0 20 32 30 38 31 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 74 61 70 65 2c 31 2c 31 ┆ 2081 setposition(tape,1,1┆
0x236e0…23700 29 3b 0a 20 20 33 20 20 32 30 38 32 20 20 20 20 20 20 20 69 3a 3d 31 3b 6f 70 65 6e 28 65 6e 74 ┆); 3 2082 i:=1;open(ent┆
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x002202, f01=0x000078, f02=0x000081, filename=»nsresortpr «, entry_tail=0-4-0-8-1981-02-17T08:38-disc3-0xb035-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x00a0ca, f01=0x000078, f02=0x000081, filename=»calctaupr «, entry_tail=0-4-0-5-1981-02-16T14:37-disc2-0xa01a-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x00f2a2, f01=0x000078, f02=0x000081, filename=»printtautxt «, entry_tail=0-4-0-4-1981-02-16T14:35-disc2-0x9037-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x013043, f01=0x000078, f02=0x000081, filename=»ryoffpr «, entry_tail=0-4-0-11-1981-02-16T14:35-disc2-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x01ec12, f01=0x000078, f02=0x000081, filename=»resorttxt «, entry_tail=0-4-0-2-1981-02-03T11:19-disc2-0xf003-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x020232, f01=0x000078, f02=0x000081, filename=»convprog «, entry_tail=0-4-0-1-1981-02-03T10:52-disc2-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x0214ea, f01=0x000078, f02=0x000081, filename=»rydgen1txt «, entry_tail=0-4-0-27-1981-01-07T16:54-disc3-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x03cc4a, f01=0x000078, f02=0x000081, filename=»printoscpr «, entry_tail=0-4-0-9-1980-11-26T15:57-disc2-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x04591b, f01=0x000078, f02=0x000081, filename=»rymain «, entry_tail=0-4-0-30-1980-11-26T13:36-disc2-0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x063db2, f01=0x000078, f02=0x000081, filename=»rydritz «, entry_tail=0-4-0-4-1980-11-21T16:29-disc2-0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x067bc3, f01=0x000078, f02=0x000081, filename=»rycomp «, entry_tail=0-4-0-13-1980-10-13T10:34-disc2-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x074712, f01=0x000078, f02=0x000081, filename=»rydiffint «, entry_tail=0-4-0-24-1980-10-10T12:37-disc2-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x08c452, f01=0x000078, f02=0x000081, filename=»rydiagpr «, entry_tail=0-4-0-7-1980-09-09T17:48-disc2-0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x093962, f01=0x000078, f02=0x000081, filename=»ryortpr «, entry_tail=0-4-0-5-1980-09-09T17:49-disc2-0x0-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x098003, f01=0x000078, f02=0x000081, filename=»tanalspect «, entry_tail=0-4-0-3-1980-05-07T14:39--0x0-0x0-0x0-0x0}
0x002fd…00300 0x000011
0x00300…00333 Rc489kSubCatEnt {f00=0x09b003, f01=0x000078, f02=0x000081, filename=»zsorttxt «, entry_tail=0-4-0-5-1980-05-07T14:39--0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x0a0003, f01=0x000078, f02=0x000081, filename=»rytranspr «, entry_tail=0-4-0-17-1980-05-07T14:39--0xa024-0x0-0x0-0x0}
0x00366…00380 00 f2 a2 00 00 78 00 00 81 70 72 69 6e 74 74 61 75 74 78 74 00 00 00 04 64 69 ┆ x printtautxt di┆
0x00380…003a0 73 63 32 00 00 00 00 00 00 00 78 96 c7 00 90 37 00 00 00 00 00 00 00 00 00 01 30 43 00 00 78 00 ┆sc2 x 7 0C x ┆
0x003a0…003c0 00 81 72 79 6f 66 66 70 72 00 00 00 00 00 00 00 0b 64 69 73 63 32 00 00 00 00 00 00 00 78 96 c6 ┆ ryoffpr disc2 x ┆
0x003c0…003e0 00 00 00 00 00 00 00 00 00 00 00 00 01 ec 12 00 00 78 00 00 81 72 65 73 6f 72 74 74 78 74 00 00 ┆ x resorttxt ┆
0x003e0…00400 00 00 00 02 64 69 73 63 32 00 00 00 00 00 00 00 78 42 37 00 f0 03 00 00 00 00 00 00 00 00 00 02 ┆ disc2 xB7 ┆
0x00400…00420 02 32 00 00 78 00 00 81 63 6f 6e 76 70 72 6f 67 00 00 00 00 00 00 01 64 69 73 63 32 00 00 00 00 ┆ 2 x convprog disc2 ┆
0x00420…00440 00 00 00 78 42 18 00 00 00 00 00 00 00 00 00 00 00 00 02 14 ea 00 00 78 00 00 81 72 79 64 67 65 ┆ xB x rydge┆
0x00440…00460 6e 31 74 78 74 00 00 00 00 1b 64 69 73 63 33 00 00 00 00 00 00 00 77 95 e7 00 00 00 00 00 00 00 ┆n1txt disc3 w ┆
0x00460…00480 00 00 00 00 00 03 cc 4a 00 00 78 00 00 81 70 72 69 6e 74 6f 73 63 70 72 00 00 00 00 09 64 69 73 ┆ J x printoscpr dis┆
0x00480…004a0 63 32 00 00 00 00 00 00 00 76 87 48 00 00 00 00 00 00 00 00 00 00 00 00 04 59 1b 00 00 78 00 00 ┆c2 v H Y x ┆
0x004a0…004c0 81 72 79 6d 61 69 6e 00 00 00 00 00 00 00 00 1e 64 69 73 63 32 00 00 00 00 00 00 00 76 86 a7 00 ┆ rymain disc2 v ┆
0x004c0…004e0 00 00 00 00 00 00 00 00 00 00 00 06 3d b2 00 00 78 00 00 81 72 79 64 72 69 74 7a 00 00 00 00 00 ┆ = x rydritz ┆
0x004e0…00500 00 00 04 64 69 73 63 32 00 00 00 00 00 00 00 76 67 3d 00 00 00 00 00 00 00 00 00 00 00 00 06 7b ┆ disc2 vg= æ┆
0x00500…00520 c3 00 00 78 00 00 81 72 79 63 6f 6d 70 00 00 00 00 00 00 00 00 0d 64 69 73 63 32 00 00 00 00 00 ┆ x rycomp disc2 ┆
0x00520…00540 00 00 75 6a 99 00 00 00 00 00 00 00 00 00 00 00 00 07 47 12 00 00 78 00 00 81 72 79 64 69 66 66 ┆ uj G x rydiff┆
0x00540…00560 69 6e 74 00 00 00 00 00 18 64 69 73 63 32 00 00 00 00 00 00 00 75 57 d6 00 00 00 00 00 00 00 00 ┆int disc2 uW ┆
0x00560…00580 00 00 00 00 08 c4 52 00 00 78 00 00 81 72 79 64 69 61 67 70 72 00 00 00 00 00 00 07 64 69 73 63 ┆ R x rydiagpr disc┆
0x00580…005a0 32 00 00 00 00 00 00 00 74 91 ac 00 00 00 00 00 00 00 00 00 00 00 00 09 39 62 00 00 78 00 00 81 ┆2 t 9b x ┆
0x005a0…005c0 72 79 6f 72 74 70 72 00 00 00 00 00 00 00 05 64 69 73 63 32 00 00 00 00 00 00 00 74 91 ad 00 00 ┆ryortpr disc2 t ┆
0x005c0…005e0 00 00 00 00 00 00 00 00 00 00 09 80 03 00 00 78 00 00 81 74 61 6e 61 6c 73 70 65 63 74 00 00 00 ┆ x tanalspect ┆
0x005e0…00600 00 03 00 00 00 00 00 00 00 00 00 00 00 00 71 6c 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ql* ┆
0x00600…01e00 Data for nsresortpr
0x01e00…02d00 Data for calctaupr
0x02d00…03900 (5,) Data for printtautxt
0x03900…05a00 Data for ryoffpr
0x05a00…06000 (10,) Data for resorttxt
0x06000…06300 Data for convprog
0x06300…0b400 (11,) Data for rydgen1txt
0x0b400…0cf00 (20,) Data for printoscpr
0x0cf00…12900 (23,) Data for rymain
0x12900…13500 (33,) Data for rydritz
0x13500…15c00 Data for rycomp
0x15c00…1a400 Data for rydiffint
0x1a400…1b900 Data for rydiagpr
0x1b900…1c800 (49,) Data for ryortpr
0x1c800…1d100 Data for tanalspect
0x1d100…1e000 Data for zsorttxt
0x1e000…21300 Data for rytranspr
0x21300…21320 (59,) 36 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 65 64 3a 3d 74 72 75 65 20 0a 20 20 37 ┆6 started:=true 7┆
0x21320…21340 20 20 31 38 38 37 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 38 38 38 20 ┆ 1887 end; 6 1888 ┆
0x21340…21360 20 20 20 20 20 20 20 20 20 20 69 6e 66 3a 3d 35 30 34 3b 0a 20 20 36 20 20 31 38 38 39 20 20 20 ┆ inf:=504; 6 1889 ┆
0x21360…21380 20 20 20 20 20 20 20 20 69 66 20 62 73 61 72 65 61 2e 69 6e 66 20 65 78 74 72 61 63 74 20 31 32 ┆ if bsarea.inf extract 12┆
0x21380…213a0 3e 35 30 30 20 6f 72 20 73 65 67 3d 30 20 74 68 65 6e 0a 20 20 36 20 20 31 38 39 30 20 20 20 20 ┆>500 or seg=0 then 6 1890 ┆
0x213a0…213c0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 38 39 31 20 20 20 20 20 20 20 20 20 20 ┆ begin 7 1891 ┆
0x213c0…213e0 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 63 6f 64 65 20 69 6e 63 6f 6e 73 69 73 74 65 6e ┆ write(out,<: code inconsisten┆
0x213e0…21400 74 3a 3e 29 3b 0a 20 20 37 20 20 31 38 39 32 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆t:>); 7 1892 goto┆
0x21400…21420 20 65 78 69 74 6c 69 73 74 63 6c 6f 63 6b 0a 20 20 37 20 20 31 38 39 33 20 20 20 20 20 20 20 20 ┆ exitlistclock 7 1893 ┆
0x21420…21440 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 38 39 34 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 63 ┆ end; 6 1894 cloc┆
0x21440…21460 6b 61 64 72 3a 3d 63 6c 6f 63 6b 61 64 72 2d 35 30 32 2b 62 73 61 72 65 61 2e 69 6e 66 20 65 78 ┆kadr:=clockadr-502+bsarea.inf ex┆
0x21460…21480 74 72 61 63 74 20 31 32 3b 0a 20 20 36 20 20 31 38 39 35 20 20 20 20 20 20 20 20 20 20 20 69 6e ┆tract 12; 6 1895 in┆
0x21480…214a0 72 65 63 36 28 62 73 61 72 65 61 2c 35 31 32 29 3b 20 73 65 67 3a 3d 73 65 67 2d 31 3b 0a 20 20 ┆rec6(bsarea,512); seg:=seg-1; ┆
0x214a0…214c0 36 20 20 31 38 39 36 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 6f 63 6b 61 64 72 3e 35 30 ┆6 1896 if clockadr>50┆
0x214c0…214e0 32 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 20 20 36 20 20 31 38 39 37 20 ┆2 then goto nextsegm; 6 1897 ┆
0x214e0…21500 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 73 74 61 72 74 65 64 20 74 68 65 6e 20 6f 75 74 64 ┆ if -,started then outd┆
0x21500…21520 61 74 65 3b 0a 20 20 36 20 20 31 38 39 38 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 6c 6f 63 ┆ate; 6 1898 outcloc┆
0x21520…21540 6b 3b 0a 20 20 36 20 20 31 38 39 39 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 31 ┆k; 6 1899 end; 5 1┆
0x21540…21560 39 30 30 20 65 78 69 74 6c 69 73 74 63 6c 6f 63 6b 3a 0a 20 20 35 20 20 31 39 30 31 20 20 20 20 ┆900 exitlistclock: 5 1901 ┆
0x21560…21580 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 2c 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 62 61 73 ┆ monitor(72,zhelp,0,entrybas┆
0x21580…215a0 65 29 3b 0a 20 20 35 20 20 31 39 30 32 20 20 20 20 20 20 20 65 6e 64 20 6c 69 73 74 63 6c 6f 63 ┆e); 5 1902 end listcloc┆
0x215a0…215c0 6b 3b 0a 20 20 34 20 20 31 39 30 33 20 0a 20 20 34 20 20 31 39 30 33 20 0a 20 20 34 20 20 31 39 ┆k; 4 1903 4 1903 4 19┆
0x215c0…215e0 30 33 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 62 73 70 72 6f 63 28 7a 2c 73 2c 62 29 ┆03 procedure bsproc(z,s,b)┆
0x215e0…21600 3b 0a 20 20 34 20 20 31 39 30 34 20 20 20 20 20 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 34 20 20 31 ┆; 4 1904 zone z; 4 1┆
0x21600…21620 39 30 35 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 73 2c 62 3b 0a 20 20 34 20 20 31 39 30 36 ┆905 integer s,b; 4 1906┆
0x21620…21640 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 39 30 37 20 20 20 20 20 20 20 20 20 63 ┆ begin 5 1907 c┆
0x21640…21660 6f 6d 6d 65 6e 74 0a 20 20 35 20 20 31 39 30 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆omment 5 1908 ┆
0x21660…21680 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *****************************┆
0x21680…216a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 35 20 20 ┆************************** 5 ┆
0x216a0…216c0 31 39 30 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 ┆1909 * ┆
0x216c0…216e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x216e0…21700 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 35 20 20 31 39 31 30 20 20 20 20 20 20 20 20 20 20 ┆ * 5 1910 ┆
0x21700…21720 20 20 20 20 20 20 20 2a 20 54 68 69 73 20 62 6c 6f 63 6b 20 70 72 6f 63 65 64 75 72 65 20 69 73 ┆ * This block procedure is┆
0x21720…21740 20 75 73 65 64 20 77 68 65 6e 20 61 6e 20 65 6e 74 72 79 20 69 73 20 73 61 76 65 64 20 2a 0a 20 ┆ used when an entry is saved * ┆
0x21740…21760 20 35 20 20 31 39 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 69 74 20 69 73 ┆ 5 1911 * it is┆
0x21760…21780 20 74 68 65 6e 20 74 65 73 74 65 64 20 69 66 20 61 6e 6f 74 68 65 72 20 70 72 6f 63 65 73 73 20 ┆ then tested if another process ┆
0x21780…217a0 69 73 20 75 73 69 6e 67 20 74 68 65 20 20 20 2a 20 20 0a 20 20 35 20 20 31 39 31 32 20 20 20 20 ┆is using the * 5 1912 ┆
0x217a0…217c0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 65 6e 74 72 79 2e 20 20 20 20 20 20 20 20 20 20 20 ┆ * entry. ┆
0x217c0…217e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x217e0…21800 20 20 20 2a 0a 20 20 35 20 20 31 39 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ * 5 1913 *┆
0x21800…21820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21820…21840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 35 20 20 31 39 31 34 ┆ * 5 1914┆
0x21840…21860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ***************┆
0x21860…21880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x21880…218a0 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 20 35 20 20 31 39 31 35 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆********; 5 1915 moni┆
0x218a0…218c0 74 6f 72 28 37 32 29 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 ┆tor(72)set catalog base:(zhelp,0┆
0x218c0…218e0 2c 69 6e 74 65 72 76 61 6c 29 3b 0a 20 20 35 20 20 31 39 31 36 20 20 20 20 20 20 20 20 20 69 66 ┆,interval); 5 1916 if┆
0x218e0…21900 20 73 20 73 68 69 66 74 20 28 2d 32 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 6f 72 20 73 ┆ s shift (-2) extract 1 = 1 or s┆
0x21900…21920 20 73 68 69 66 74 20 28 2d 35 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 0a 20 ┆ shift (-5) extract 1 = 1 then ┆
0x21920…21940 20 35 20 20 31 39 31 37 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 39 31 38 ┆ 5 1917 begin 6 1918┆
0x21940…21960 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 35 29 20 65 78 74 72 61 ┆ if s shift (-5) extra┆
0x21960…21980 63 74 20 31 20 3d 20 31 20 20 61 6e 64 20 62 20 3d 20 30 20 74 68 65 6e 0a 20 20 36 20 20 31 39 ┆ct 1 = 1 and b = 0 then 6 19┆
0x21980…219a0 31 39 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 39 32 30 20 20 20 20 ┆19 begin 7 1920 ┆
0x219a0…219c0 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 20 63 61 74 61 6c 6f 67 20 ┆ monitor(72)set catalog ┆
0x219c0…219e0 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 62 61 73 65 29 3b 0a 20 20 37 20 20 31 ┆base:(zhelp,0,entrybase); 7 1┆
0x219e0…21a00 39 32 31 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 6d 6f 6e 69 74 6f 72 28 35 32 29 63 72 ┆921 i:=monitor(52)cr┆
0x21a00…21a20 65 61 74 65 20 70 72 6f 63 65 73 73 3a 28 62 73 61 72 65 61 2c 30 2c 69 61 72 72 29 3b 0a 20 20 ┆eate process:(bsarea,0,iarr); ┆
0x21a20…21a40 37 20 20 31 39 32 32 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 20 3c 3e 20 30 20 61 6e ┆7 1922 if i <> 0 an┆
0x21a40…21a60 64 20 74 74 65 73 74 20 74 68 65 6e 0a 20 20 37 20 20 31 39 32 33 20 20 20 20 20 20 20 20 20 20 ┆d ttest then 7 1923 ┆
0x21a60…21a80 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 72 65 73 75 6c 74 20 6f 66 20 63 72 ┆ write(out,<:<10> result of cr┆
0x21a80…21aa0 65 61 74 65 20 70 72 6f 63 65 73 73 20 3d 3a 3e 2c 69 29 3b 0a 20 20 37 20 20 31 39 32 34 20 20 ┆eate process =:>,i); 7 1924 ┆
0x21aa0…21ac0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 ┆ if i = 0 then goto ne┆
0x21ac0…21ae0 78 74 69 6e 3b 0a 20 20 37 20 20 31 39 32 35 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆xtin; 7 1925 end; ┆
0x21ae0…21b00 20 36 20 20 31 39 32 36 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 6e 6f 3a 3d 65 6e 74 72 ┆ 6 1926 entryno:=entr┆
0x21b00…21b20 79 6e 6f 2d 31 3b 0a 20 20 36 20 20 31 39 32 37 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 61 ┆yno-1; 6 1927 if ta┆
0x21b20…21b40 70 65 73 68 69 66 74 20 74 68 65 6e 20 63 68 61 6e 67 65 76 6f 6c 28 33 29 0a 20 20 36 20 20 31 ┆peshift then changevol(3) 6 1┆
0x21b40…21b60 39 32 38 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 36 20 20 31 39 32 39 20 20 20 20 ┆928 else 6 1929 ┆
0x21b60…21b80 20 20 20 20 20 20 20 68 61 72 64 65 72 72 6f 72 3a 3d 74 72 75 65 3b 0a 20 20 36 20 20 31 39 33 ┆ harderror:=true; 6 193┆
0x21b80…21ba0 30 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 74 61 70 65 2c 62 6c 6f 63 6b 73 69 ┆0 outrec6(tape,blocksi┆
0x21ba0…21bc0 7a 65 29 3b 0a 20 20 36 20 20 31 39 33 31 20 0a 20 20 36 20 20 31 39 33 31 20 20 20 20 20 20 20 ┆ze); 6 1931 6 1931 ┆
0x21bc0…21be0 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 74 61 70 65 2c 70 66 6e 6f 2c 70 62 6e 6f 29 3b ┆ setposition(tape,pfno,pbno);┆
0x21be0…21c00 0a 20 20 36 20 20 31 39 33 32 20 20 20 20 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e ┆ 6 1932 getposition┆
0x21c00…21c20 (60,) 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 36 20 20 31 39 33 33 20 20 20 20 20 20 20 20 ┆(entry,kk,jk); 6 1933 ┆
0x21c20…21c40 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 36 ┆ setposition(entry,kk,jk); 6┆
0x21c40…21c60 20 20 31 39 33 34 20 20 20 20 20 20 20 20 20 20 20 6d 3a 3d 30 3b 0a 20 20 36 20 20 31 39 33 35 ┆ 1934 m:=0; 6 1935┆
0x21c60…21c80 20 20 20 20 20 20 20 20 20 20 20 72 65 70 65 61 74 0a 20 20 36 20 20 31 39 33 36 20 20 20 20 20 ┆ repeat 6 1936 ┆
0x21c80…21ca0 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 36 20 20 31 ┆ swoprec6(entry,34); 6 1┆
0x21ca0…21cc0 39 33 37 20 20 20 20 20 20 20 20 20 20 20 66 6f 75 6e 64 3a 3d 20 65 6e 74 72 79 2e 6c 62 61 73 ┆937 found:= entry.lbas┆
0x21cc0…21ce0 65 20 3d 20 65 6e 74 72 79 62 61 73 65 28 31 29 20 61 6e 64 0a 20 20 36 20 20 31 39 33 38 20 20 ┆e = entrybase(1) and 6 1938 ┆
0x21ce0…21d00 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 75 62 61 73 65 20 3d 20 65 6e 74 72 79 62 61 73 65 ┆ entry.ubase = entrybase┆
0x21d00…21d20 28 32 29 20 61 6e 64 0a 20 20 36 20 20 31 39 33 39 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 ┆(2) and 6 1939 entr┆
0x21d20…21d40 79 2e 6e 61 6d 65 28 31 29 20 3d 20 65 6e 74 72 79 6e 61 6d 65 28 31 29 20 61 6e 64 0a 20 20 36 ┆y.name(1) = entryname(1) and 6┆
0x21d40…21d60 20 20 31 39 34 30 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 6e 61 6d 65 28 32 29 20 3d ┆ 1940 entry.name(2) =┆
0x21d60…21d80 20 65 6e 74 72 79 6e 61 6d 65 28 32 29 3b 0a 20 20 36 20 20 31 39 34 31 20 20 20 20 20 20 20 20 ┆ entryname(2); 6 1941 ┆
0x21d80…21da0 20 20 20 6d 3a 3d 6d 2b 31 3b 0a 20 20 36 20 20 31 39 34 32 20 20 20 20 20 20 20 20 20 20 20 75 ┆ m:=m+1; 6 1942 u┆
0x21da0…21dc0 6e 74 69 6c 20 66 6f 75 6e 64 3b 0a 20 20 36 20 20 31 39 34 33 20 20 20 20 20 20 20 20 20 20 20 ┆ntil found; 6 1943 ┆
0x21dc0…21de0 65 6e 74 72 79 2e 6b 65 79 3a 3d 2d 31 3b 0a 20 20 36 20 20 31 39 34 34 20 20 20 20 20 20 20 20 ┆entry.key:=-1; 6 1944 ┆
0x21de0…21e00 20 20 20 65 6e 74 72 79 2e 6c 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 36 20 20 31 39 34 35 20 20 20 ┆ entry.lbase:=-1; 6 1945 ┆
0x21e00…21e20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 75 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 36 20 20 31 39 ┆ entry.ubase:=-1; 6 19┆
0x21e20…21e40 34 36 20 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 73 65 67 6d 6e 6f 3a 3d 74 6f 74 61 6c 73 ┆46 totalsegmno:=totals┆
0x21e40…21e60 65 67 6d 6e 6f 2d 73 65 67 6d 6e 6f 3b 0a 20 20 36 20 20 31 39 34 37 20 20 20 20 20 20 20 20 20 ┆egmno-segmno; 6 1947 ┆
0x21e60…21e80 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 2a 2a 2a 20 65 6e 74 72 79 20 69 6e 20 ┆ write(out,<:<10> *** entry in ┆
0x21e80…21ea0 75 73 65 3a 20 20 20 3a 3e 29 3b 0a 20 20 36 20 20 31 39 34 38 20 20 20 20 20 20 20 20 20 20 20 ┆use: :>); 6 1948 ┆
0x21ea0…21ec0 6b 3a 3d 31 3b 77 72 69 74 65 28 6f 75 74 2c 73 74 72 69 6e 67 20 65 6e 74 72 79 6e 61 6d 65 28 ┆k:=1;write(out,string entryname(┆
0x21ec0…21ee0 69 6e 63 72 65 61 73 65 28 6b 29 29 29 3b 0a 20 20 36 20 20 31 39 34 39 20 20 20 20 20 20 20 20 ┆increase(k))); 6 1949 ┆
0x21ee0…21f00 20 20 20 70 61 67 65 73 68 69 66 74 3b 0a 20 20 36 20 20 31 39 35 30 20 20 20 20 20 20 20 20 20 ┆ pageshift; 6 1950 ┆
0x21f00…21f20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 32 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 ┆ if s shift (-2) extract 1 = 1 ┆
0x21f20…21f40 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 0a 20 20 36 20 20 31 39 35 31 20 20 20 20 20 20 20 ┆then write(out, 6 1951 ┆
0x21f40…21f60 20 20 20 20 20 3c 3a 20 20 61 72 65 61 20 72 65 73 65 72 76 65 64 20 3a 3e 29 3b 0a 20 20 36 20 ┆ <: area reserved :>); 6 ┆
0x21f60…21f80 20 31 39 35 32 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 35 29 20 ┆ 1952 if s shift (-5) ┆
0x21f80…21fa0 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 0a 20 20 ┆extract 1 = 1 then write(out, ┆
0x21fa0…21fc0 36 20 20 31 39 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 20 61 72 65 61 20 6e 6f 74 ┆6 1953 <: area not┆
0x21fc0…21fe0 20 63 72 65 61 74 65 64 3a 3e 29 3b 0a 20 20 36 20 20 31 39 35 34 20 20 20 20 20 20 20 20 20 20 ┆ created:>); 6 1954 ┆
0x21fe0…22000 20 69 66 20 74 74 65 73 74 20 74 68 65 6e 0a 20 20 36 20 20 31 39 35 35 20 20 20 20 20 20 20 20 ┆ if ttest then 6 1955 ┆
0x22000…22020 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 39 35 36 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ begin 7 1956 w┆
0x22020…22040 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 73 3d 3a 3e 2c 73 2c 3c 3a 20 62 3d 20 3a 3e 2c ┆rite(out,<:<10> s=:>,s,<: b= :>,┆
0x22040…22060 62 29 3b 0a 20 20 37 20 20 31 39 35 37 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 36 ┆b); 7 1957 end; 6┆
0x22060…22080 20 20 31 39 35 38 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e 74 ┆ 1958 setposition(ent┆
0x22080…220a0 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 36 20 20 31 39 35 39 20 20 20 20 20 20 20 20 20 20 20 66 ┆ry,kk,jk); 6 1959 f┆
0x220a0…220c0 6f 72 20 6b 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 20 64 6f 20 69 6e 72 65 63 36 ┆or k:=1 step 1 until m do inrec6┆
0x220c0…220e0 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 36 20 20 31 39 36 30 20 0a 20 20 36 20 20 31 39 36 30 ┆(entry,34); 6 1960 6 1960┆
0x220e0…22100 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 31 39 36 31 20 20 20 20 20 20 20 20 20 ┆ end; 5 1961 ┆
0x22100…22120 67 6f 74 6f 20 6e 65 78 74 3b 0a 20 20 35 20 20 31 39 36 32 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆goto next; 5 1962 end; ┆
0x22120…22140 20 20 34 20 20 31 39 36 33 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 20 63 ┆ 4 1963 monitor(72)set c┆
0x22140…22160 61 74 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 79 62 61 73 65 29 3b 0a 20 20 34 ┆at base:(zhelp,0,entrybase); 4┆
0x22160…22180 20 20 31 39 36 34 20 20 20 20 20 20 20 69 66 20 65 6e 74 72 79 2e 73 69 7a 65 20 3e 3d 20 30 20 ┆ 1964 if entry.size >= 0 ┆
0x22180…221a0 74 68 65 6e 0a 20 20 34 20 20 31 39 36 35 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 ┆then 4 1965 begin 5 ┆
0x221a0…221c0 31 39 36 36 20 0a 20 20 35 20 20 31 39 36 36 20 0a 20 20 35 20 20 31 39 36 36 20 20 20 20 20 20 ┆1966 5 1966 5 1966 ┆
0x221c0…221e0 20 20 20 69 3a 3d 31 3b 6f 70 65 6e 28 62 73 61 72 65 61 2c 34 2c 0a 20 20 35 20 20 31 39 36 37 ┆ i:=1;open(bsarea,4, 5 1967┆
0x221e0…22200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 65 6e 74 72 79 6e ┆ string entryn┆
0x22200…22220 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 31 20 73 68 69 66 74 20 35 20 2b 20 31 20 73 ┆ame(increase(i)),1 shift 5 + 1 s┆
0x22220…22240 68 69 66 74 20 32 29 3b 0a 20 20 35 20 20 31 39 36 38 20 20 20 20 20 20 20 20 70 72 6f 61 64 64 ┆hift 2); 5 1968 proadd┆
0x22240…22260 72 3a 3d 6d 6f 6e 69 74 6f 72 28 34 29 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e ┆r:=monitor(4)process description┆
0x22260…22280 20 61 64 64 72 3a 28 62 73 61 72 65 61 2c 69 2c 69 74 61 69 6c 29 3b 0a 20 20 35 20 20 31 39 36 ┆ addr:(bsarea,i,itail); 5 196┆
0x22280…222a0 39 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 61 64 64 72 20 3e 20 30 20 74 68 65 6e 0a 20 20 35 ┆9 if proaddr > 0 then 5┆
0x222a0…222c0 20 20 31 39 37 30 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 39 37 31 20 20 20 ┆ 1970 begin 6 1971 ┆
0x222c0…222e0 20 20 20 20 20 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 20 63 6f 72 65 20 61 72 65 61 3a 28 ┆ system(5)move core area:(┆
0x222e0…22300 70 72 6f 61 64 64 72 2c 69 74 61 69 6c 29 3b 0a 20 20 36 20 20 31 39 37 32 20 20 20 20 20 20 20 ┆proaddr,itail); 6 1972 ┆
0x22300…22320 20 20 20 69 66 20 69 74 61 69 6c 28 37 29 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 36 20 20 31 39 ┆ if itail(7) <> 0 then 6 19┆
0x22320…22340 37 33 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 39 37 34 20 20 20 20 20 ┆73 begin 7 1974 ┆
0x22340…22360 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b ┆ getposition(entry,kk,jk);┆
0x22360…22380 0a 20 20 37 20 20 31 39 37 35 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f ┆ 7 1975 setpositio┆
0x22380…223a0 6e 28 65 6e 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 37 20 20 31 39 37 36 20 20 20 20 20 20 20 ┆n(entry,kk,jk); 7 1976 ┆
0x223a0…223c0 20 20 20 20 20 6d 3a 3d 30 3b 0a 20 20 37 20 20 31 39 37 37 20 20 20 20 20 20 20 20 20 20 20 20 ┆ m:=0; 7 1977 ┆
0x223c0…223e0 72 65 70 65 61 74 0a 20 20 37 20 20 31 39 37 38 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 ┆repeat 7 1978 swop┆
0x223e0…22400 72 65 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 37 20 20 31 39 37 39 20 20 20 20 20 20 20 ┆rec6(entry,34); 7 1979 ┆
0x22400…22420 20 20 20 20 20 66 6f 75 6e 64 3a 3d 20 65 6e 74 72 79 2e 6c 62 61 73 65 20 3d 20 65 6e 74 72 79 ┆ found:= entry.lbase = entry┆
0x22420…22440 62 61 73 65 28 31 29 20 61 6e 64 0a 20 20 37 20 20 31 39 38 30 20 20 20 20 20 20 20 20 20 20 20 ┆base(1) and 7 1980 ┆
0x22440…22460 20 65 6e 74 72 79 2e 75 62 61 73 65 20 3d 20 65 6e 74 72 79 62 61 73 65 28 32 29 20 61 6e 64 0a ┆ entry.ubase = entrybase(2) and ┆
0x22460…22480 20 20 37 20 20 31 39 38 31 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 6e 61 6d 65 28 ┆ 7 1981 entry.name(┆
0x22480…224a0 31 29 20 3d 20 65 6e 74 72 79 6e 61 6d 65 28 31 29 20 61 6e 64 0a 20 20 37 20 20 31 39 38 32 20 ┆1) = entryname(1) and 7 1982 ┆
0x224a0…224c0 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 2e 6e 61 6d 65 28 32 29 20 3d 20 65 6e 74 72 79 ┆ entry.name(2) = entry┆
0x224c0…224e0 6e 61 6d 65 28 32 29 3b 0a 20 20 37 20 20 31 39 38 33 20 20 20 20 20 20 20 20 20 20 20 20 6d 3a ┆name(2); 7 1983 m:┆
0x224e0…22500 3d 6d 2b 31 3b 0a 20 20 37 20 20 31 39 38 34 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c ┆=m+1; 7 1984 until┆
0x22500…22520 (61,) 20 66 6f 75 6e 64 3b 0a 20 20 37 20 20 31 39 38 35 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 ┆ found; 7 1985 ent┆
0x22520…22540 72 79 2e 6b 65 79 3a 3d 2d 31 3b 0a 20 20 37 20 20 31 39 38 36 20 20 20 20 20 20 20 20 20 20 20 ┆ry.key:=-1; 7 1986 ┆
0x22540…22560 20 65 6e 74 72 79 2e 6c 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 37 20 20 31 39 38 37 20 20 20 20 20 ┆ entry.lbase:=-1; 7 1987 ┆
0x22560…22580 20 20 20 20 20 20 20 65 6e 74 72 79 2e 75 62 61 73 65 3a 3d 2d 31 3b 0a 20 20 37 20 20 31 39 38 ┆ entry.ubase:=-1; 7 198┆
0x22580…225a0 38 20 20 20 20 20 20 20 20 20 20 20 20 6b 3a 3d 31 3b 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 ┆8 k:=1;write(out,<:<1┆
0x225a0…225c0 30 3e 2a 2a 2a 20 65 6e 74 72 79 20 72 65 73 65 72 76 65 64 3a 20 20 3a 3e 2c 0a 20 20 37 20 20 ┆0>*** entry reserved: :>, 7 ┆
0x225c0…225e0 31 39 38 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆1989 s┆
0x225e0…22600 74 72 69 6e 67 20 65 6e 74 72 79 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 6b 29 29 29 3b 0a 20 ┆tring entryname(increase(k))); ┆
0x22600…22620 20 37 20 20 31 39 39 30 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 73 68 69 66 74 3b 0a 20 20 ┆ 7 1990 pageshift; ┆
0x22620…22640 37 20 20 31 39 39 31 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 ┆7 1991 monitor(72)set┆
0x22640…22660 20 63 61 74 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 69 6e 74 65 72 76 61 6c 29 3b 0a 20 20 ┆ cat base:(zhelp,0,interval); ┆
0x22660…22680 37 20 20 31 39 39 32 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 65 6e ┆7 1992 setposition(en┆
0x22680…226a0 74 72 79 2c 6b 6b 2c 6a 6b 29 3b 0a 20 20 37 20 20 31 39 39 33 20 20 20 20 20 20 20 20 20 20 20 ┆try,kk,jk); 7 1993 ┆
0x226a0…226c0 66 6f 72 20 6b 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 20 64 6f 20 69 6e 72 65 ┆for k:= 1 step 1 until m do inre┆
0x226c0…226e0 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 37 20 20 31 39 39 34 20 20 20 20 20 20 20 20 20 ┆c6(entry,34); 7 1994 ┆
0x226e0…22700 20 20 20 67 6f 74 6f 20 6e 65 78 74 3b 0a 20 20 37 20 20 31 39 39 35 20 20 20 20 20 20 20 20 20 ┆ goto next; 7 1995 ┆
0x22700…22720 20 65 6e 64 3b 0a 20 20 36 20 20 31 39 39 36 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 ┆ end; 6 1996 end; 5 ┆
0x22720…22740 31 39 39 37 20 0a 20 20 35 20 20 31 39 39 37 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 ┆1997 5 1997 end; 4 ┆
0x22740…22760 31 39 39 38 20 20 20 20 20 20 20 73 65 67 6d 6e 6f 3a 3d 30 3b 0a 20 20 34 20 20 31 39 39 39 20 ┆1998 segmno:=0; 4 1999 ┆
0x22760…22780 20 20 20 20 20 20 69 3a 3d 30 3b 0a 20 20 34 20 20 32 30 30 30 20 20 20 20 20 20 20 6d 6f 6e 69 ┆ i:=0; 4 2000 moni┆
0x22780…227a0 74 6f 72 28 35 32 29 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 28 62 73 61 72 ┆tor(52)create area process:(bsar┆
0x227a0…227c0 65 61 2c 30 2c 69 61 72 72 29 3b 0a 20 20 34 20 20 32 30 30 31 20 20 20 20 20 20 20 65 6e 74 72 ┆ea,0,iarr); 4 2001 entr┆
0x227c0…227e0 79 6e 6f 3a 3d 65 6e 74 72 79 6e 6f 2b 31 3b 0a 20 20 34 20 20 32 30 30 32 20 6e 65 78 74 69 6e ┆yno:=entryno+1; 4 2002 nextin┆
0x227e0…22800 3a 0a 20 20 34 20 20 32 30 30 33 20 20 20 20 20 20 20 69 66 20 65 6e 64 74 61 70 65 20 74 68 65 ┆: 4 2003 if endtape the┆
0x22800…22820 6e 20 63 68 61 6e 67 65 76 6f 6c 28 31 29 3b 0a 20 20 34 20 20 32 30 30 34 20 20 20 20 20 20 20 ┆n changevol(1); 4 2004 ┆
0x22820…22840 69 66 20 74 74 65 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 70 66 ┆if ttest then write(out,<:<10>pf┆
0x22840…22860 6e 6f 3d 3a 3e 2c 70 66 6e 6f 2c 3c 3a 20 20 70 62 6e 6f 3d 3a 3e 2c 70 62 6e 6f 29 3b 0a 20 20 ┆no=:>,pfno,<: pbno=:>,pbno); ┆
0x22860…22880 34 20 20 32 30 30 35 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 74 61 70 65 2c 70 ┆4 2005 getposition(tape,p┆
0x22880…228a0 66 6e 6f 2c 70 62 6e 6f 29 3b 0a 20 20 34 20 20 32 30 30 36 20 20 20 20 20 20 20 6f 75 74 72 65 ┆fno,pbno); 4 2006 outre┆
0x228a0…228c0 63 36 28 74 61 70 65 2c 62 6c 6f 63 6b 73 69 7a 65 29 3b 63 68 61 6e 67 65 72 65 63 36 28 74 61 ┆c6(tape,blocksize);changerec6(ta┆
0x228c0…228e0 70 65 2c 31 30 30 29 3b 0a 20 20 34 20 20 32 30 30 37 20 20 20 20 20 20 20 74 61 70 65 28 31 29 ┆pe,100); 4 2007 tape(1)┆
0x228e0…22900 3a 3d 72 3a 3d 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 31 20 73 68 69 66 74 20 32 34 20 61 64 ┆:=r:=real <::> add 1 shift 24 ad┆
0x22900…22920 64 20 35 32 3b 0a 20 20 34 20 20 32 30 30 38 20 20 20 20 20 20 20 74 61 70 65 28 32 29 3a 3d 20 ┆d 52; 4 2008 tape(2):= ┆
0x22920…22940 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 65 6e 74 72 79 6e 6f 20 73 68 69 66 74 20 32 34 20 61 ┆real <::> add entryno shift 24 a┆
0x22940…22960 64 64 0a 20 20 34 20 20 32 30 30 39 20 20 20 20 20 20 20 28 69 66 20 65 6e 74 72 79 2e 6b 69 6e ┆dd 4 2009 (if entry.kin┆
0x22960…22980 64 20 3c 20 30 20 74 68 65 6e 20 30 20 65 6c 73 65 20 65 6e 74 72 79 2e 6b 69 6e 64 29 3b 0a 20 ┆d < 0 then 0 else entry.kind); ┆
0x22980…229a0 20 34 20 20 32 30 31 30 20 20 20 20 20 20 20 74 61 70 65 28 33 29 3a 3d 20 65 6e 74 72 79 2e 6e ┆ 4 2010 tape(3):= entry.n┆
0x229a0…229c0 61 6d 65 28 31 29 3b 0a 20 20 34 20 20 32 30 31 31 20 20 20 20 20 20 20 74 61 70 65 28 34 29 3a ┆ame(1); 4 2011 tape(4):┆
0x229c0…229e0 3d 65 6e 74 72 79 2e 6e 61 6d 65 28 32 29 3b 0a 20 20 34 20 20 32 30 31 32 20 20 20 20 20 20 20 ┆=entry.name(2); 4 2012 ┆
0x229e0…22a00 74 61 3a 3d 31 34 3b 0a 20 20 34 20 20 32 30 31 33 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 ┆ta:=14; 4 2013 for i:= ┆
0x22a00…22a20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 64 6f 20 74 61 70 65 28 34 2b 69 29 3a 3d 20 ┆1 step 1 until 5 do tape(4+i):= ┆
0x22a20…22a40 74 74 61 69 6c 2e 74 61 28 69 29 3b 0a 20 20 34 20 20 32 30 31 34 20 20 20 20 20 20 20 70 65 72 ┆ttail.ta(i); 4 2014 per┆
0x22a40…22a60 6d 6b 65 79 3a 3d 20 65 6e 74 72 79 2e 6b 65 79 20 65 78 74 72 61 63 74 20 33 3b 0a 20 20 34 20 ┆mkey:= entry.key extract 3; 4 ┆
0x22a60…22a80 20 32 30 31 35 20 20 20 20 20 20 20 74 61 70 65 28 31 30 29 3a 3d 20 65 6e 74 72 79 2e 6b 65 79 ┆ 2015 tape(10):= entry.key┆
0x22a80…22aa0 20 65 78 74 72 61 63 74 20 33 3b 0a 20 20 34 20 20 32 30 31 36 20 20 20 20 20 20 20 74 61 70 65 ┆ extract 3; 4 2016 tape┆
0x22aa0…22ac0 28 31 31 29 3a 3d 65 6e 74 72 79 2e 64 6f 63 6e 61 6d 65 28 31 29 3b 0a 20 20 34 20 20 32 30 31 ┆(11):=entry.docname(1); 4 201┆
0x22ac0…22ae0 37 20 20 20 20 20 20 20 74 61 70 65 28 31 32 29 3a 3d 65 6e 74 72 79 2e 64 6f 63 6e 61 6d 65 28 ┆7 tape(12):=entry.docname(┆
0x22ae0…22b00 32 29 3b 0a 20 20 34 20 20 32 30 31 38 20 20 20 20 20 20 20 74 61 70 65 28 31 33 29 3a 3d 20 72 ┆2); 4 2018 tape(13):= r┆
0x22b00…22b20 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 65 6e 74 72 79 2e 6c 62 61 73 65 20 73 68 69 66 74 20 32 ┆eal <::> add entry.lbase shift 2┆
0x22b20…22b40 34 20 61 64 64 20 65 6e 74 72 79 2e 75 62 61 73 65 3b 0a 20 20 34 20 20 32 30 31 39 20 20 20 20 ┆4 add entry.ubase; 4 2019 ┆
0x22b40…22b60 20 20 20 66 6f 72 20 69 3a 3d 20 31 34 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 35 20 64 6f ┆ for i:= 14 step 1 until 25 do┆
0x22b60…22b80 20 74 61 70 65 28 69 29 3a 3d 20 72 3b 0a 20 20 34 20 20 32 30 32 30 20 20 20 20 20 20 20 69 66 ┆ tape(i):= r; 4 2020 if┆
0x22b80…22ba0 20 74 74 65 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 20 73 69 7a 65 3d ┆ ttest then write(out,<: size=┆
0x22ba0…22bc0 3a 3e 2c 65 6e 74 72 79 2e 6b 69 6e 64 29 3b 0a 20 20 34 20 20 32 30 32 31 20 20 20 20 20 20 20 ┆:>,entry.kind); 4 2021 ┆
0x22bc0…22be0 69 66 20 65 6e 74 72 79 2e 73 69 7a 65 20 3c 20 30 20 74 68 65 6e 20 20 20 67 6f 74 6f 20 6e 65 ┆if entry.size < 0 then goto ne┆
0x22be0…22c00 78 74 65 6e 74 72 79 3b 3c 2a 73 61 76 65 20 64 65 73 63 72 69 70 74 6f 72 2a 3e 0a 20 20 34 20 ┆xtentry;<*save descriptor*> 4 ┆
0x22c00…22c20 20 32 30 32 32 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 69 6e 72 65 63 36 28 62 73 61 72 65 61 ┆ 2022 for i:=inrec6(bsarea┆
0x22c20…22c40 2c 30 29 20 77 68 69 6c 65 20 69 20 3e 20 32 20 64 6f 0a 20 20 34 20 20 32 30 32 33 20 20 20 20 ┆,0) while i > 2 do 4 2023 ┆
0x22c40…22c60 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 32 30 32 34 20 20 20 20 20 20 20 20 20 69 66 20 65 6e ┆ begin 5 2024 if en┆
0x22c60…22c80 64 74 61 70 65 20 74 68 65 6e 20 63 68 61 6e 67 65 76 6f 6c 28 31 29 3b 0a 20 20 35 20 20 32 30 ┆dtape then changevol(1); 5 20┆
0x22c80…22ca0 32 35 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 74 61 70 65 2c 62 6c 6f 63 6b 73 69 7a ┆25 outrec6(tape,blocksiz┆
0x22ca0…22cc0 65 29 3b 0a 20 20 35 20 20 32 30 32 36 20 20 20 20 20 20 20 20 20 69 66 20 69 2b 38 20 3c 3e 20 ┆e); 5 2026 if i+8 <> ┆
0x22cc0…22ce0 62 6c 6f 63 6b 73 69 7a 65 20 74 68 65 6e 20 63 68 61 6e 67 65 72 65 63 36 28 74 61 70 65 2c 38 ┆blocksize then changerec6(tape,8┆
0x22ce0…22d00 2b 69 29 3b 0a 20 20 35 20 20 32 30 32 37 20 20 20 20 20 20 20 20 20 74 61 70 65 28 31 29 3a 3d ┆+i); 5 2027 tape(1):=┆
0x22d00…22d20 20 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 32 20 73 68 69 66 74 20 32 34 20 61 64 64 20 28 38 ┆ real <::> add 2 shift 24 add (8┆
0x22d20…22d40 2b 69 29 3b 0a 20 20 35 20 20 32 30 32 38 20 20 20 20 20 20 20 20 20 74 61 70 65 28 32 29 3a 3d ┆+i); 5 2028 tape(2):=┆
0x22d40…22d60 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 20 65 6e 74 72 79 6e 6f 20 73 68 69 66 74 20 32 34 20 61 ┆real <::> add entryno shift 24 a┆
0x22d60…22d80 64 64 20 73 65 67 6d 6e 6f 3b 0a 20 20 35 20 20 32 30 32 39 20 20 20 20 20 20 20 20 20 69 6e 72 ┆dd segmno; 5 2029 inr┆
0x22d80…22da0 65 63 36 28 62 73 61 72 65 61 2c 69 29 3b 0a 20 20 35 20 20 32 30 33 30 20 20 20 20 20 20 20 20 ┆ec6(bsarea,i); 5 2030 ┆
0x22da0…22dc0 20 72 61 66 3a 3d 38 3b 0a 20 20 35 20 20 32 30 33 31 20 20 20 20 20 20 20 20 20 74 6f 66 72 6f ┆ raf:=8; 5 2031 tofro┆
0x22dc0…22de0 6d 28 74 61 70 65 2e 72 61 66 2c 62 73 61 72 65 61 2c 69 29 3b 0a 20 20 35 20 20 32 30 33 32 20 ┆m(tape.raf,bsarea,i); 5 2032 ┆
0x22de0…22e00 20 20 20 20 20 20 20 20 73 65 67 6d 6e 6f 3a 3d 73 65 67 6d 6e 6f 20 2b 20 69 2f 2f 35 31 32 3b ┆ segmno:=segmno + i//512;┆
0x22e00…22e20 (62,) 0a 20 20 35 20 20 32 30 33 33 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 73 65 67 6d 6e 6f 3a 3d ┆ 5 2033 totalsegmno:=┆
0x22e20…22e40 74 6f 74 61 6c 73 65 67 6d 6e 6f 2b 20 69 2f 2f 35 31 32 3b 0a 20 20 35 20 20 32 30 33 34 20 20 ┆totalsegmno+ i//512; 5 2034 ┆
0x22e40…22e60 20 20 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 32 30 33 35 20 20 20 20 20 20 20 74 61 70 65 73 68 ┆ end; 4 2035 tapesh┆
0x22e60…22e80 69 66 74 3a 3d 66 61 6c 73 65 3b 0a 20 20 34 20 20 32 30 33 36 20 6e 65 78 74 65 6e 74 72 79 3a ┆ift:=false; 4 2036 nextentry:┆
0x22e80…22ea0 0a 20 20 34 20 20 32 30 33 37 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 20 6c 69 ┆ 4 2037 if list then li┆
0x22ea0…22ec0 73 74 65 6e 74 72 79 28 74 72 75 65 29 3b 0a 20 20 34 20 20 32 30 33 38 20 20 20 20 20 20 20 69 ┆stentry(true); 4 2038 i┆
0x22ec0…22ee0 66 20 6c 69 73 74 20 61 6e 64 20 6d 69 73 73 69 6e 67 63 6c 6f 63 6b 20 20 61 6e 64 20 65 6e 74 ┆f list and missingclock and ent┆
0x22ee0…22f00 72 79 2e 73 69 7a 65 20 3e 3d 20 30 20 74 68 65 6e 20 6c 69 73 74 63 6c 6f 63 6b 3b 0a 20 20 34 ┆ry.size >= 0 then listclock; 4┆
0x22f00…22f20 20 20 32 30 33 39 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 20 70 61 67 65 73 68 ┆ 2039 if list then pagesh┆
0x22f20…22f40 69 66 74 3b 0a 20 20 34 20 20 32 30 34 30 20 6e 65 78 74 3a 20 0a 20 20 34 20 20 32 30 34 31 20 ┆ift; 4 2040 next: 4 2041 ┆
0x22f40…22f60 20 20 20 20 20 20 69 66 20 65 6e 74 72 79 2e 73 69 7a 65 20 3e 3d 20 30 20 74 68 65 6e 20 0a 20 ┆ if entry.size >= 0 then ┆
0x22f60…22f80 20 34 20 20 32 30 34 32 20 20 20 20 20 20 20 63 6c 6f 73 65 28 62 73 61 72 65 61 2c 74 72 75 65 ┆ 4 2042 close(bsarea,true┆
0x22f80…22fa0 29 3b 0a 20 20 34 20 20 32 30 34 33 20 20 20 20 20 20 20 69 66 20 65 6e 74 72 79 6e 61 6d 65 28 ┆); 4 2043 if entryname(┆
0x22fa0…22fc0 31 29 20 3c 3e 20 72 65 61 6c 20 3c 3a 69 6e 63 73 61 3a 3e 20 61 64 64 20 31 31 38 20 0a 20 20 ┆1) <> real <:incsa:> add 118 ┆
0x22fc0…22fe0 34 20 20 32 30 34 34 20 20 20 20 20 20 20 61 6e 64 20 65 6e 74 72 79 6e 61 6d 65 28 32 29 20 3c ┆4 2044 and entryname(2) <┆
0x22fe0…23000 3e 20 72 65 61 6c 20 3c 3a 65 3a 3e 20 74 68 65 6e 0a 20 20 34 20 20 32 30 34 35 20 20 20 20 20 ┆> real <:e:> then 4 2045 ┆
0x23000…23020 20 20 62 65 67 69 6e 0a 20 20 35 20 20 32 30 34 36 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆ begin 5 2046 monit┆
0x23020…23040 6f 72 28 37 32 29 73 65 74 20 63 61 74 20 62 61 73 65 3a 28 7a 68 65 6c 70 2c 30 2c 65 6e 74 72 ┆or(72)set cat base:(zhelp,0,entr┆
0x23040…23060 79 62 61 73 65 29 3b 0a 20 20 35 20 20 32 30 34 37 20 20 20 20 20 20 20 20 20 69 3a 3d 6d 6f 6e ┆ybase); 5 2047 i:=mon┆
0x23060…23080 69 74 6f 72 28 36 34 29 72 65 6d 6f 76 65 20 70 72 6f 63 65 73 73 3a 28 62 73 61 72 65 61 2c 30 ┆itor(64)remove process:(bsarea,0┆
0x23080…230a0 2c 69 61 72 72 29 3b 0a 20 20 35 20 20 32 30 34 38 20 20 20 20 20 20 20 20 20 69 66 20 69 20 3c ┆,iarr); 5 2048 if i <┆
0x230a0…230c0 3e 20 30 20 61 6e 64 20 69 20 3c 3e 20 33 20 61 6e 64 20 74 74 65 73 74 20 74 68 65 6e 0a 20 20 ┆> 0 and i <> 3 and ttest then ┆
0x230c0…230e0 35 20 20 32 30 34 39 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 32 30 35 30 20 ┆5 2049 begin 6 2050 ┆
0x230e0…23100 20 20 20 20 20 20 20 20 20 20 69 69 3a 3d 31 3b 0a 20 20 36 20 20 32 30 35 31 20 20 20 20 20 20 ┆ ii:=1; 6 2051 ┆
0x23100…23120 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 65 6e 74 72 79 6e 61 6d 65 3d 20 ┆ write(out,<:<10>entryname= ┆
0x23120…23140 3a 3e 2c 73 74 72 69 6e 67 20 65 6e 74 72 79 2e 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 69 ┆:>,string entry.name(increase(ii┆
0x23140…23160 29 29 2c 0a 20 20 36 20 20 32 30 35 32 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 72 65 73 75 6c ┆)), 6 2052 <: resul┆
0x23160…23180 74 20 6f 66 20 72 65 6d 6f 76 65 20 3d 20 3a 3e 2c 69 29 3b 0a 20 20 36 20 20 32 30 35 33 20 20 ┆t of remove = :>,i); 6 2053 ┆
0x23180…231a0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 32 30 35 34 20 20 20 20 20 20 20 65 6e 64 3b ┆ end; 5 2054 end;┆
0x231a0…231c0 0a 20 20 34 20 20 32 30 35 35 20 20 20 20 20 65 6e 64 20 3c 2a 64 75 6d 74 74 61 70 65 2a 3e 3b ┆ 4 2055 end <*dumttape*>;┆
0x231c0…231e0 0a 20 20 33 20 20 32 30 35 36 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 0a 20 20 33 20 20 32 30 ┆ 3 2056 comment 3 20┆
0x231e0…23200 35 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆57 ***************┆
0x23200…23220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x23220…23240 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 33 20 20 32 30 35 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******** 3 2058 ┆
0x23240…23260 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x23260…23280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 33 20 20 32 30 ┆ * 3 20┆
0x23280…232a0 35 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 ┆59 * This procedur┆
0x232a0…232c0 65 20 64 75 6d 70 73 20 74 68 65 20 65 6e 74 72 69 65 73 20 6f 6e 20 74 61 70 65 2e 20 49 66 20 ┆e dumps the entries on tape. If ┆
0x232c0…232e0 61 6e 20 65 6e 2d 20 2a 0a 20 20 33 20 20 32 30 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆an en- * 3 2060 ┆
0x232e0…23300 20 2a 20 74 72 79 20 63 61 6e 20 6e 6f 74 20 62 65 20 73 61 76 65 64 20 61 6e 64 20 73 6f 6d 65 ┆ * try can not be saved and some┆
0x23300…23320 74 68 69 6e 67 20 6f 66 20 74 68 61 74 20 65 6e 74 72 79 20 69 73 20 2a 0a 20 20 33 20 20 32 30 ┆thing of that entry is * 3 20┆
0x23320…23340 36 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 73 61 76 65 64 20 74 68 69 73 20 77 69 ┆61 * saved this wi┆
0x23340…23360 6c 6c 20 62 65 20 64 65 6c 65 74 65 64 20 61 6e 64 20 74 68 65 20 6e 65 78 74 20 65 6e 74 72 79 ┆ll be deleted and the next entry┆
0x23360…23380 20 77 69 6c 6c 20 20 2a 0a 20 20 33 20 20 32 30 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ will * 3 2062 ┆
0x23380…233a0 20 2a 20 62 65 20 73 61 76 65 64 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * be saved. ┆
0x233a0…233c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 33 20 20 32 30 ┆ * 3 20┆
0x233c0…233e0 36 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆63 * ┆
0x233e0…23400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23400…23420 20 20 20 20 20 20 20 2a 0a 20 20 33 20 20 32 30 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 3 2064 ┆
0x23420…23440 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x23440…23460 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 20 33 20 20 32 ┆************************; 3 2┆
0x23460…23480 30 36 35 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 65 6e 74 72 79 3b 0a 20 20 ┆065 procedure outentry; ┆
0x23480…234a0 33 20 20 32 30 36 36 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 34 20 20 32 30 36 37 20 20 20 ┆3 2066 begin 4 2067 ┆
0x234a0…234c0 20 20 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 64 6f 63 2c 74 61 69 3b 0a ┆ real array field doc,tai; ┆
0x234c0…234e0 20 20 34 20 20 32 30 36 38 20 0a 20 20 34 20 20 32 30 36 38 20 20 20 20 20 20 20 20 20 69 6e 74 ┆ 4 2068 4 2068 int┆
0x234e0…23500 65 67 65 72 20 66 69 65 6c 64 20 62 66 3b 0a 20 20 34 20 20 32 30 36 39 20 20 20 20 20 20 20 20 ┆eger field bf; 4 2069 ┆
0x23500…23520 20 64 6f 63 3a 3d 31 34 3b 74 61 69 3a 3d 30 3b 0a 20 20 34 20 20 32 30 37 30 20 20 20 20 20 20 ┆ doc:=14;tai:=0; 4 2070 ┆
0x23520…23540 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 64 6f 20 74 61 ┆ for i:=1 step 1 until 5 do ta┆
0x23540…23560 69 6c 2e 74 61 69 28 69 29 3a 3d 74 74 61 69 6c 2e 64 6f 63 28 69 29 3b 0a 20 20 34 20 20 32 30 ┆il.tai(i):=ttail.doc(i); 4 20┆
0x23560…23580 37 31 20 20 20 20 20 20 20 20 20 69 3a 3d 32 3b 0a 20 20 34 20 20 32 30 37 32 20 20 20 20 20 20 ┆71 i:=2; 4 2072 ┆
0x23580…235a0 20 20 20 6f 75 74 72 65 63 36 28 65 6e 74 72 79 2c 33 34 29 3b 0a 20 20 34 20 20 32 30 37 33 20 ┆ outrec6(entry,34); 4 2073 ┆
0x235a0…235c0 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 69 20 3c 3d 20 33 34 20 64 6f 20 0a 20 20 34 20 20 32 ┆ while i <= 34 do 4 2┆
0x235c0…235e0 30 37 34 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 32 30 37 35 20 20 20 20 20 ┆074 begin 5 2075 ┆
0x235e0…23600 20 20 20 20 20 20 62 66 3a 3d 69 3b 0a 20 20 35 20 20 32 30 37 36 20 20 20 20 20 20 20 20 20 20 ┆ bf:=i; 5 2076 ┆
0x23600…23620 20 65 6e 74 72 79 2e 62 66 3a 3d 74 74 61 69 6c 2e 62 66 3b 0a 20 20 35 20 20 32 30 37 37 20 20 ┆ entry.bf:=ttail.bf; 5 2077 ┆
0x23620…23640 20 20 20 20 20 20 20 20 20 69 3a 3d 69 2b 32 3b 0a 20 20 35 20 20 32 30 37 38 20 20 20 20 20 20 ┆ i:=i+2; 5 2078 ┆
0x23640…23660 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 32 30 37 39 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 33 ┆ end; 4 2079 end; 3┆
0x23660…23680 20 20 32 30 38 30 20 0a 20 20 33 20 20 32 30 38 30 20 20 20 20 20 20 20 69 3a 3d 31 3b 6f 70 65 ┆ 2080 3 2080 i:=1;ope┆
0x23680…236a0 6e 28 74 61 70 65 2c 6d 6f 64 65 6b 69 6e 64 2c 73 74 72 69 6e 67 20 74 31 74 61 70 65 6e 61 6d ┆n(tape,modekind,string t1tapenam┆
0x236a0…236c0 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 31 20 73 68 69 66 74 20 31 38 29 3b 0a 20 20 33 20 ┆e(increase(i)),1 shift 18); 3 ┆
0x236c0…236e0 20 32 30 38 31 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 74 61 70 65 2c 31 2c 31 ┆ 2081 setposition(tape,1,1┆
0x236e0…23700 29 3b 0a 20 20 33 20 20 32 30 38 32 20 20 20 20 20 20 20 69 3a 3d 31 3b 6f 70 65 6e 28 65 6e 74 ┆); 3 2082 i:=1;open(ent┆