|
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 - downloadIndex: 0 G T f s t
Length: 239616 (0x3a800)
Types: flxcat
Notes: GA21-9182-File(01FLXSAVEFIL)
Names: »01FLXSAVEFIL«
└─⟦2c579b2cd⟧ Bits:30004129/s28101.imd SW8101/2 BOSS v.2 rel. 2.0
└─⟦this⟧
| Start | End | Artifact | Summary |
|---|---|---|---|
| 0x00000000 | 0x0003a800 | ⟦0ade858bf⟧ | »s28101:1.tcatupdate main «, »tcatupdate main «, TextFile, flxfile |
| 0x00000000 | 0x0003a800 | ⟦3d5413dc3⟧ | »s28101:1.tgetconv main «, »tgetconv main «, TextFile, flxfile |
| 0x00000000 | 0x0003a800 | ⟦500f6a5b9⟧ | »s28101:1.testout main «, »testout main «, TextFile, flxfile |
| 0x00000000 | 0x0003a800 | ⟦692906437⟧ | »s28101:1.tuserout main «, »tuserout main «, TextFile, flxfile |
| 0x00000000 | 0x0003a800 | ⟦72d034fce⟧ | »s28101:1.tsaveconv main «, »tsaveconv main «, TextFile, flxfile |
| 0x00000000 | 0x0003a800 | ⟦c2ae1591a⟧ | »s28101:1.taccount main «, »taccount main «, TextFile, flxfile |
| 0x00000000 | 0x0003a800 | ⟦d65f50a24⟧ | »s28101:1.textxref main «, »textxref main «, TextFile, flxfile |
| 0x00000000 | 0x0003a800 | ⟦f6e280f44⟧ | »s28101:1.tusercat main «, »tusercat main «, TextFile, flxfile |
0x00000…0003f (0,) FlxHdr {w000=(0x1,0x1), magic=»flxcat«, w011=» «, nent=0x000008, nrec=0x000750, tstamp=1985-09-30T16:34, w024=0x0cfbf2, w026=0x000054, w028=0x000156, flxset=»s28101«, flxno=0x000001, firstvol=» «, nextvol=» «}
0x0003f…00040 39 ┆9┆
0x00040…00060 32 30 0a 31 31 20 75 73 65 72 63 20 31 20 30 20 31 20 32 30 20 39 34 30 0a 0a 31 30 20 32 20 30 ┆20 11 userc 1 0 1 20 940 10 2 0┆
0x00060…0007e 20 35 30 20 31 30 20 31 30 30 30 20 31 30 32 30 0a 35 20 74 69 6d 65 20 35 20 30 0a 36 20 ┆ 50 10 1000 1020 5 time 5 0 6 ┆
0x0007e…000fc FlxDirSec {
0x0007e…000fc w00 = (0x2,0x2) // 0x7e @0x0
0x0007e…000fc w01 = FlxDirEnt {name=»taccount main «, w02=0x000000, w03=0x000001, range=[0x0009…0x004f], w6=0x00000b, w07=»disc «, w10=1985-09-30T16:21, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x84 @0x6
0x0007e…000fc w02 = FlxDirEnt {name=»tcatupdate main «, w02=0x000000, w03=0x000001, range=[0x0050…0x0356], w6=0x000079, w07=»disc «, w10=1985-09-30T16:21, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0xc0 @0x42
0x0007e…000fc }
0x000fc…0017a FlxDirSec {
0x000fc…0017a w00 = (0x2,0x3) // 0xfc @0x0
0x000fc…0017a w01 = FlxDirEnt {name=»tuserout main «, w02=0x000000, w03=0x000001, range=[0x0357…0x03a3], w6=0x00000c, w07=»disc «, w10=1985-09-30T16:22, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x102 @0x6
0x000fc…0017a w02 = FlxDirEnt {name=»testout main «, w02=0x000000, w03=0x000001, range=[0x03a4…0x04aa], w6=0x000029, w07=»disc «, w10=1985-09-30T16:22, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x13e @0x42
0x000fc…0017a }
0x0017a…001f8 FlxDirSec {
0x0017a…001f8 w00 = (0x2,0x4) // 0x17a @0x0
0x0017a…001f8 w01 = FlxDirEnt {name=»textxref main «, w02=0x000000, w03=0x000001, range=[0x04ab…0x069e], w6=0x00004e, w07=»disc «, w10=1985-09-30T16:22, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x180 @0x6
0x0017a…001f8 w02 = FlxDirEnt {name=»tsaveconv main «, w02=0x000000, w03=0x000001, range=[0x069f…0x0712], w6=0x000012, w07=»disc «, w10=1985-09-30T16:22, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x1bc @0x42
0x0017a…001f8 }
0x001f8…00200 00 00 00 00 00 00 00 00 ┆ ┆
0x00200…0027e (1,) FlxDirSec {
0x00200…0027e w00 = (0x2,0x5) // 0x200 @0x0
0x00200…0027e w01 = FlxDirEnt {name=»tgetconv main «, w02=0x000000, w03=0x000001, range=[0x0713…0x0746], w6=0x000008, w07=»disc «, w10=1985-09-30T16:22, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x206 @0x6
0x00200…0027e w02 = FlxDirEnt {name=»tusercat main «, w02=0x000000, w03=0x000001, range=[0x0747…0x074d], w6=0x000001, w07=»disc «, w10=1985-09-30T16:22, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x242 @0x42
0x00200…0027e }
0x0027e…00284 (0x3,0x6)
0x00284…002a0 20 65 6e 64 3b 0a 20 20 20 20 20 20 61 72 65 61 28 31 32 38 29 3a 3d 61 3b 0a 20 20 ┆ end; area(128):=a; ┆
0x002a0…002c0 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 73 69 7a 65 20 64 ┆ for j:=1 step 1 until size d┆
0x002c0…002e0 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 61 ┆o begin outrec6(a┆
0x002e0…002fc 72 65 61 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 69 6e ┆rea,512); inrec6(in┆
0x002fc…00302 (0x3,0x7)
0x00302…00320 75 73 65 72 63 61 74 20 3d 20 73 65 74 20 38 20 64 69 73 63 0a 73 63 6f 70 65 20 75 73 65 ┆usercat = set 8 disc scope use┆
0x00320…00340 72 20 75 73 65 72 63 61 74 0a 74 74 74 3d 65 64 69 74 0a 69 2f 0a 20 0a 3b 20 74 75 73 65 72 63 ┆r usercat ttt=edit i/ ; tuserc┆
0x00340…00360 61 74 20 76 65 72 73 69 6f 6e 69 64 3a 20 37 37 20 31 31 20 30 38 2c 20 32 0a 31 30 20 35 31 20 ┆at versionid: 77 11 08, 2 10 51 ┆
0x00360…0037a 30 20 33 20 33 20 2d 38 33 38 38 36 30 37 20 2d 38 33 38 38 36 30 37 0a 32 20 ┆0 3 3 -8388607 -8388607 2 ┆
0x0037a…00380 (0x3,0x8)
0x00380…003a0 61 63 63 6f 75 6e 74 20 35 31 20 30 20 31 20 31 0a 0a 31 30 20 31 20 30 20 31 32 35 20 35 30 20 ┆account 51 0 1 1 10 1 0 125 50 ┆
0x003a0…003c0 39 30 30 20 39 39 39 0a 35 20 70 65 72 6d 20 64 69 73 63 20 35 30 20 35 0a 35 20 70 72 69 76 69 ┆900 999 5 perm disc 50 5 5 privi┆
0x003c0…003e0 6c 65 67 65 73 20 33 0a 35 20 74 69 6d 65 20 33 20 30 0a 36 20 6d 69 6e 69 6d 61 6c 20 79 65 73 ┆leges 3 5 time 3 0 6 minimal yes┆
0x003e0…00400 0a 36 20 6f 6e 6c 69 6e 65 20 79 65 73 0a 33 20 72 63 38 30 30 30 0a 20 00 00 00 00 00 00 00 00 ┆ 6 online yes 3 rc8000 ┆
0x00400…00406 (2,) (0x68,0x9)
0x00406…00420 0a 3b 20 6a 6d 61 20 31 39 38 30 2e 30 37 2e 31 30 20 20 20 20 20 20 20 20 20 ┆ ; jma 1980.07.10 ┆
0x00420…00440 20 62 6f 73 73 32 2c 20 74 61 63 63 6f 75 6e 74 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 31 2e 2e ┆ boss2, taccount ...1..┆
0x00440…00460 2e 0a 0a 61 63 63 6f 75 6e 74 6a 6f 62 3d 65 64 69 74 0a 0a 69 26 0a 6a 6f 62 20 61 63 63 6f 75 ┆. accountjob=edit i& job accou┆
0x00460…0047e 6e 74 20 35 31 20 73 69 7a 65 20 31 36 33 38 34 20 74 69 6d 65 20 36 20 30 20 30 20 74 65 ┆nt 51 size 16384 time 6 0 0 te┆
0x0047e…00484 (0x68,0xa)
0x00484…004a0 6d 70 20 64 69 73 63 20 38 30 30 20 38 0a 68 65 61 64 0a 6d 6f 64 65 20 6c 69 73 74 ┆mp disc 800 8 head mode list┆
0x004a0…004c0 2e 79 65 73 0a 6c 6f 6f 6b 75 70 20 61 63 63 6f 75 6e 74 66 69 6c 65 20 61 63 63 6f 75 6e 74 66 ┆.yes lookup accountfile accountf┆
0x004c0…004e0 31 0a 0a 28 0a 6f 20 61 63 63 6f 75 6e 74 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆1 ( o accountlog ; ┆
0x004e0…004fc 64 65 6c 65 74 65 20 74 68 69 73 20 6c 69 6e 65 2c 0a 77 72 69 74 65 61 63 63 3d 73 ┆delete this line, writeacc=s┆
0x004fc…00502 (0x68,0xb)
0x00502…00520 65 74 20 34 30 20 31 20 20 20 20 20 20 20 20 3b 20 20 20 20 61 6e 64 20 74 68 69 73 20 6c ┆et 40 1 ; and this l┆
0x00520…00540 69 6e 65 2c 0a 77 72 69 74 65 61 63 63 3d 61 6c 67 6f 6c 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ine, writeacc=algol ; ┆
0x00540…00560 20 20 20 61 6e 64 20 74 68 69 73 20 6c 69 6e 65 2c 0a 77 72 69 74 65 61 63 63 20 69 6e 2e 61 63 ┆ and this line, writeacc in.ac┆
0x00560…0057a 63 6f 75 6e 74 66 69 6c 65 20 20 3b 20 20 20 20 61 6e 64 20 74 68 69 73 20 6c ┆countfile ; and this l┆
0x0057a…00580 (0x68,0xc)
0x00580…005a0 69 6e 65 2c 0a 6f 20 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ine, o c ; ┆
0x005a0…005c0 20 20 20 61 6e 64 20 74 68 69 73 20 6c 69 6e 65 2c 0a 63 6f 6e 76 65 72 74 20 61 63 63 6f 75 6e ┆ and this line, convert accoun┆
0x005c0…005e0 74 6c 6f 67 20 73 74 64 20 32 20 3b 20 20 20 20 61 6e 64 20 74 68 69 73 20 6c 69 6e 65 2c 20 69 ┆tlog std 2 ; and this line, i┆
0x005e0…00600 66 20 6c 6f 67 20 69 73 20 6e 6f 74 20 77 61 6e 74 65 64 2e 0a 73 63 6f 00 00 00 00 00 00 00 00 ┆f log is not wanted. sco ┆
0x00600…00606 (3,) (0x68,0xd)
0x00606…00620 70 65 20 74 65 6d 70 20 61 63 63 6f 75 6e 74 66 69 6c 65 0a 63 6c 65 61 72 20 ┆pe temp accountfile clear ┆
0x00620…00640 74 65 6d 70 20 61 63 63 6f 75 6e 74 66 69 6c 65 0a 66 69 6e 69 73 0a 29 0a 0a 62 65 67 69 6e 0a ┆temp accountfile finis ) begin ┆
0x00640…00660 20 20 6d 65 73 73 61 67 65 20 61 63 63 6f 75 6e 74 6a 6f 62 2c 20 76 65 72 73 69 6f 6e 69 64 3a ┆ message accountjob, versionid:┆
0x00660…0067e 20 38 30 20 30 37 20 31 30 2c 20 39 3b 0a 20 20 62 6f 6f 6c 65 61 6e 20 6e 6c 2c 20 73 70 ┆ 80 07 10, 9; boolean nl, sp┆
0x0067e…00684 (0x68,0xe)
0x00684…006a0 3b 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 20 64 61 74 65 2c 20 63 6c 6f 63 6b 2c 0a ┆; integer i, date, clock, ┆
0x006a0…006c0 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 73 5f 6f 6e 5f 61 5f 70 61 67 65 2c 20 6c 69 6e 65 2c ┆ lines_on_a_page, line,┆
0x006c0…006e0 20 70 61 67 65 2c 0a 20 20 20 20 20 20 20 20 20 20 63 61 75 73 65 2c 20 64 65 76 69 31 2c 20 64 ┆ page, cause, devi1, d┆
0x006e0…006fc 65 76 69 32 2c 20 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 20 20 73 6c 69 63 65 6c ┆evi2, type, slicel┆
0x006fc…00702 (0x68,0xf)
0x00702…00720 65 6e 67 74 68 5f 6f 6e 5f 64 72 75 6d 2c 20 73 6c 69 63 65 6c 65 6e 67 74 68 5f 6f 6e 5f ┆ength_on_drum, slicelength_on_┆
0x00720…00740 64 69 73 63 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 75 6d 6d 79 28 31 3a 31 29 ┆disc; integer array dummy(1:1)┆
0x00740…00760 3b 0a 20 20 72 65 61 6c 20 74 2c 20 6b 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 70 70 61 ┆; real t, k; real array fppa┆
0x00760…0077a 72 61 6d 28 31 3a 32 29 3b 0a 20 20 7a 6f 6e 65 20 7a 28 31 32 38 2a 32 2c 20 ┆ram(1:2); zone z(128*2, ┆
0x0077a…00780 (0x68,0x10)
0x00780…007a0 32 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 62 6f 6f 6c 65 61 6e 20 66 69 65 6c 64 20 75 73 ┆2, stderror); boolean field us┆
0x007a0…007c0 65 72 69 6e 64 65 78 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 69 73 63 61 ┆erindex, finisca┆
0x007c0…007e0 75 73 65 2c 20 6d 6f 75 6e 74 73 2c 20 6c 6f 61 64 73 2c 20 74 65 6d 70 64 72 75 6d 2c 20 74 65 ┆use, mounts, loads, tempdrum, te┆
0x007e0…00800 6d 70 64 69 73 63 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆mpdisc, ┆
0x00800…00806 (4,) (0x68,0x11)
0x00806…00820 73 74 61 74 69 6f 6e 73 2c 20 73 69 7a 65 2c 20 77 61 69 74 69 6e 67 74 69 6d ┆stations, size, waitingtim┆
0x00820…00840 65 2c 20 6f 6e 6c 69 6e 65 6c 69 6e 65 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e, onlinelines, ┆
0x00840…00860 6c 6f 67 6f 75 74 63 61 75 73 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e ┆logoutcause, con┆
0x00860…0087e 76 65 72 74 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6f ┆verttype, prio┆
0x0087e…00884 (0x68,0x12)
0x00884…008a0 72 69 74 79 3b 0a 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 70 72 6f 6a 65 63 ┆rity; integer field projec┆
0x008a0…008c0 74 2c 20 6b 69 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 74 72 75 6e 74 ┆t, kind, netrunt┆
0x008c0…008e0 69 6d 65 2c 20 63 70 75 74 69 6d 65 2c 20 64 65 76 69 63 65 77 6f 72 64 31 2c 20 64 65 76 69 63 ┆ime, cputime, deviceword1, devic┆
0x008e0…008fc 65 77 6f 72 64 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 69 ┆eword2, logi┆
0x008fc…00902 (0x68,0x13)
0x00902…00920 6e 74 69 6d 65 2c 20 6f 70 65 72 61 74 69 6f 6e 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ntime, operations, ┆
0x00920…00940 20 20 20 20 20 6c 69 6e 65 73 2c 20 70 61 67 65 73 2c 20 70 61 70 65 72 2c 0a 20 20 20 20 20 20 ┆ lines, pages, paper, ┆
0x00940…00960 20 20 20 20 20 20 20 20 20 20 65 78 70 5f 6e 65 74 72 75 6e 74 69 6d 65 2c 20 65 78 70 5f 67 72 ┆ exp_netruntime, exp_gr┆
0x00960…0097a 6f 73 73 72 75 6e 74 69 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ossruntime, ┆
0x0097a…00980 (0x68,0x14)
0x00980…009a0 20 20 70 61 72 61 6d 31 2c 20 70 61 72 61 6d 32 2c 20 70 61 72 61 6d 33 3b 0a 20 20 6c 6f 6e 67 ┆ param1, param2, param3; long┆
0x009a0…009c0 20 66 69 65 6c 64 20 74 69 6d 65 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 ┆ field time; real array field ┆
0x009c0…009e0 75 73 65 72 6e 61 6d 65 3b 0a 0a 20 70 72 6f 63 65 64 75 72 65 20 6e 65 77 6c 69 6e 65 28 6c 69 ┆username; procedure newline(li┆
0x009e0…00a00 6e 65 73 5f 6e 65 65 64 65 64 29 3b 0a 20 20 76 61 6c 75 65 20 6c 69 6e 00 00 00 00 00 00 00 00 ┆nes_needed); value lin ┆
0x00a00…00a06 (5,) (0x68,0x15)
0x00a06…00a20 65 73 5f 6e 65 65 64 65 64 3b 0a 20 20 69 6e 74 65 67 65 72 20 6c 69 6e 65 73 ┆es_needed; integer lines┆
0x00a20…00a40 5f 6e 65 65 64 65 64 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 6c 69 6e 65 20 2b 20 6c ┆_needed; begin if line + l┆
0x00a40…00a60 69 6e 65 73 5f 6e 65 65 64 65 64 20 3e 20 6c 69 6e 65 73 5f 6f 6e 5f 61 5f 70 61 67 65 20 74 68 ┆ines_needed > lines_on_a_page th┆
0x00a60…00a7e 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 70 61 67 65 3a 3d 20 70 61 67 65 ┆en begin page:= page┆
0x00a7e…00a84 (0x68,0x16)
0x00a84…00aa0 20 2b 20 31 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 32 ┆ + 1; write(out, <:<12┆
0x00aa0…00ac0 3e 61 63 63 6f 75 6e 74 20 66 69 6c 65 20 6c 6f 67 3a 3e 2c 0a 20 20 20 20 20 20 73 70 2c 20 38 ┆>account file log:>, sp, 8┆
0x00ac0…00ae0 35 2c 20 3c 3a 70 61 67 65 3a 3e 2c 20 3c 3c 20 64 64 64 64 64 3e 2c 20 70 61 67 65 2c 20 6e 6c ┆5, <:page:>, << ddddd>, page, nl┆
0x00ae0…00afc 2c 20 32 2c 0a 20 20 20 20 20 20 3c 3a 64 61 74 65 20 20 20 74 69 6d 65 20 20 20 20 ┆, 2, <:date time ┆
0x00afc…00b02 (0x68,0x17)
0x00b02…00b20 20 75 73 65 72 20 28 69 6e 64 65 78 29 20 70 72 6f 6a 65 63 74 20 6b 69 6e 64 20 20 20 28 ┆ user (index) project kind (┆
0x00b20…00b40 63 61 75 73 65 29 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 69 66 20 70 61 67 65 20 3d 20 31 20 74 ┆cause) :>); if page = 1 t┆
0x00b40…00b60 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 32 2c 0a 20 20 20 20 20 20 20 20 73 70 ┆hen write(out, nl, 2, sp┆
0x00b60…00b7a 2c 20 33 37 2c 20 3c 3a 6a 6f 62 66 69 6e 69 73 20 20 20 20 20 20 20 20 3a 3e ┆, 37, <:jobfinis :>┆
0x00b7a…00b80 (0x68,0x18)
0x00b80…00ba0 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 0a 20 20 20 20 20 20 3c 3a 6e 65 74 20 ┆); write(out, <:net ┆
0x00ba0…00bc0 20 20 63 70 75 20 20 20 73 69 7a 65 20 20 64 72 75 6d 20 20 64 69 73 63 20 20 6c 6f 61 64 20 20 ┆ cpu size drum disc load ┆
0x00bc0…00be0 73 74 61 74 20 6d 6f 75 6e 74 20 20 77 61 69 74 20 6c 69 6e 65 73 3a 3e 29 3b 0a 20 20 20 20 20 ┆stat mount wait lines:>); ┆
0x00be0…00c00 20 69 66 20 70 61 67 65 20 3d 20 31 20 74 68 65 6e 20 77 72 69 74 65 28 00 00 00 00 00 00 00 00 ┆ if page = 1 then write( ┆
0x00c00…00c06 (6,) (0x68,0x19)
0x00c06…00c20 6f 75 74 2c 20 6e 6c 2c 20 31 2c 0a 20 20 20 20 20 20 20 20 73 70 2c 20 33 37 ┆out, nl, 1, sp, 37┆
0x00c20…00c40 2c 20 3c 3a 6c 6f 67 6f 75 74 20 20 20 20 20 20 20 20 20 20 6d 69 6e 20 20 6f 70 65 72 3a 3e 2c ┆, <:logout min oper:>,┆
0x00c40…00c60 20 6e 6c 2c 20 31 2c 0a 20 20 20 20 20 20 20 20 73 70 2c 20 33 37 2c 20 3c 3a 70 72 69 6e 74 20 ┆ nl, 1, sp, 37, <:print ┆
0x00c60…00c7e 20 20 20 20 20 20 20 20 6c 69 6e 65 73 20 70 61 67 65 73 20 20 70 61 70 65 72 3a 3e 2c 20 ┆ lines pages paper:>, ┆
0x00c7e…00c84 (0x68,0x1a)
0x00c84…00ca0 6e 6c 2c 20 31 2c 0a 20 20 20 20 20 20 20 20 73 70 2c 20 33 37 2c 20 3c 3a 6a 6f 62 ┆nl, 1, sp, 37, <:job┆
0x00ca0…00cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 74 20 67 72 6f 73 73 20 20 20 70 72 69 6f 3a 3e 2c ┆ net gross prio:>,┆
0x00cc0…00ce0 20 6e 6c 2c 20 31 2c 0a 20 20 20 20 20 20 20 20 73 70 2c 20 33 37 2c 20 3c 3a 28 70 72 69 76 61 ┆ nl, 1, sp, 37, <:(priva┆
0x00ce0…00cfc 74 65 29 20 20 20 20 70 61 72 61 6d 31 20 20 20 20 20 20 20 70 61 72 61 6d 32 20 20 ┆te) param1 param2 ┆
0x00cfc…00d02 (0x68,0x1b)
0x00d02…00d20 20 20 20 20 70 61 72 61 6d 33 3a 3e 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆ param3:>); write(out┆
0x00d20…00d40 2c 20 6e 6c 2c 20 31 29 3b 0a 20 20 20 20 20 20 6c 69 6e 65 3a 3d 20 69 66 20 70 61 67 65 20 3d ┆, nl, 1); line:= if page =┆
0x00d40…00d60 20 31 20 74 68 65 6e 20 31 30 20 65 6c 73 65 20 34 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ 1 then 10 else 4; end; ┆
0x00d60…00d7a 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 31 29 3b 0a 20 20 20 20 6c 69 6e ┆write(out, nl, 1); lin┆
0x00d7a…00d80 (0x68,0x1c)
0x00d80…00da0 65 3a 3d 20 6c 69 6e 65 20 2b 20 31 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 3c 2a 20 69 6e 69 74 ┆e:= line + 1; end; <* init┆
0x00da0…00dc0 69 61 6c 69 7a 61 74 69 6f 6e 20 2a 3e 0a 20 20 3c 2a 20 63 6f 6d 6d 6f 6e 20 66 69 65 6c 64 73 ┆ialization *> <* common fields┆
0x00dc0…00de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x00de0…00e00 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 70 72 6f 6a 65 63 74 20 20 20 00 00 00 00 00 00 00 00 ┆ *> project ┆
0x00e00…00e06 (7,) (0x68,0x1d)
0x00e06…00e20 20 20 20 20 20 20 3a 3d 20 20 32 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 ┆ := 2; <* word ┆
0x00e20…00e40 20 20 20 20 2a 3e 0a 20 20 75 73 65 72 6e 61 6d 65 20 20 20 20 20 20 20 20 3a 3d 20 20 32 3b 20 ┆ *> username := 2; ┆
0x00e40…00e60 3c 2a 20 74 65 78 74 2c 20 39 20 63 68 61 72 73 20 2a 3e 0a 20 20 75 73 65 72 69 6e 64 65 78 20 ┆<* text, 9 chars *> userindex ┆
0x00e60…00e7e 20 20 20 20 20 20 3a 3d 20 31 30 3b 20 3c 2a 20 72 69 67 68 74 20 68 77 20 20 20 20 20 20 ┆ := 10; <* right hw ┆
0x00e7e…00e84 (0x68,0x1e)
0x00e84…00ea0 2a 3e 0a 20 20 6b 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 3a 3d 20 31 32 3b 20 ┆*> kind := 12; ┆
0x00ea0…00ec0 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 74 69 6d 65 20 20 20 20 20 20 ┆<* word *> time ┆
0x00ec0…00ee0 20 20 20 20 20 20 3a 3d 20 31 36 3b 20 3c 2a 20 64 6f 75 62 6c 65 77 6f 72 64 20 20 20 20 2a 3e ┆ := 16; <* doubleword *>┆
0x00ee0…00efc 0a 0a 20 20 3c 2a 20 66 69 65 6c 64 73 20 69 6e 20 6a 6f 62 66 69 6e 69 73 2d 72 65 ┆ <* fields in jobfinis-re┆
0x00efc…00f02 (0x68,0x1f)
0x00f02…00f20 63 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6e 64 20 3d 20 31 29 20 ┆cord (kind = 1) ┆
0x00f20…00f40 20 20 20 2a 3e 0a 20 20 66 69 6e 69 73 63 61 75 73 65 20 20 20 20 20 20 3a 3d 20 20 39 3b 20 3c ┆ *> finiscause := 9; <┆
0x00f40…00f60 2a 20 6c 65 66 74 20 20 68 77 20 20 20 20 20 20 2a 3e 0a 20 20 6e 65 74 72 75 6e 74 69 6d 65 20 ┆* left hw *> netruntime ┆
0x00f60…00f7a 20 20 20 20 20 3a 3d 20 31 38 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 ┆ := 18; <* word ┆
0x00f7a…00f80 (0x68,0x20)
0x00f80…00fa0 20 20 20 2a 3e 0a 20 20 6d 6f 75 6e 74 73 20 20 20 20 20 20 20 20 20 20 3a 3d 20 31 39 3b 20 3c ┆ *> mounts := 19; <┆
0x00fa0…00fc0 2a 20 6c 65 66 74 20 20 68 77 20 20 20 20 20 20 2a 3e 0a 20 20 6c 6f 61 64 73 20 20 20 20 20 20 ┆* left hw *> loads ┆
0x00fc0…00fe0 20 20 20 20 20 3a 3d 20 32 30 3b 20 3c 2a 20 72 69 67 68 74 20 68 77 20 20 20 20 20 20 2a 3e 0a ┆ := 20; <* right hw *> ┆
0x00fe0…01000 20 20 63 70 75 74 69 6d 65 20 20 20 20 20 20 20 20 20 3a 3d 20 32 32 3b 00 00 00 00 00 00 00 00 ┆ cputime := 22; ┆
0x01000…01006 (8,) (0x68,0x21)
0x01006…01020 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 74 65 6d ┆ <* word *> tem┆
0x01020…01040 70 64 72 75 6d 20 20 20 20 20 20 20 20 3a 3d 20 32 33 3b 20 3c 2a 20 6c 65 66 74 20 20 68 77 20 ┆pdrum := 23; <* left hw ┆
0x01040…01060 20 20 20 20 20 2a 3e 0a 20 20 74 65 6d 70 64 69 73 63 20 20 20 20 20 20 20 20 3a 3d 20 32 34 3b ┆ *> tempdisc := 24;┆
0x01060…0107e 20 3c 2a 20 72 69 67 68 74 20 68 77 20 20 20 20 20 20 2a 3e 0a 20 20 73 74 61 74 69 6f 6e ┆ <* right hw *> station┆
0x0107e…01084 (0x68,0x22)
0x01084…010a0 73 20 20 20 20 20 20 20 20 3a 3d 20 32 35 3b 20 3c 2a 20 6c 65 66 74 20 20 68 77 20 ┆s := 25; <* left hw ┆
0x010a0…010c0 20 20 20 20 20 2a 3e 0a 20 20 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 3a 3d 20 32 36 3b ┆ *> size := 26;┆
0x010c0…010e0 20 3c 2a 20 72 69 67 68 74 20 68 77 20 20 20 20 20 20 2a 3e 0a 20 20 64 65 76 69 63 65 77 6f 72 ┆ <* right hw *> devicewor┆
0x010e0…010fc 64 31 20 20 20 20 20 3a 3d 20 32 38 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 ┆d1 := 28; <* word ┆
0x010fc…01102 (0x68,0x23)
0x01102…01120 20 20 20 2a 3e 0a 20 20 64 65 76 69 63 65 77 6f 72 64 32 20 20 20 20 20 3a 3d 20 33 30 3b ┆ *> deviceword2 := 30;┆
0x01120…01140 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 77 61 69 74 69 6e 67 74 69 ┆ <* word *> waitingti┆
0x01140…01160 6d 65 20 20 20 20 20 3a 3d 20 33 31 3b 20 3c 2a 20 6c 65 66 74 20 20 68 77 20 20 20 20 20 20 2a ┆me := 31; <* left hw *┆
0x01160…0117a 3e 0a 20 20 6f 6e 6c 69 6e 65 6c 69 6e 65 73 20 20 20 20 20 3a 3d 20 33 32 3b ┆> onlinelines := 32;┆
0x0117a…01180 (0x68,0x24)
0x01180…011a0 20 3c 2a 20 72 69 67 68 74 20 68 77 20 20 20 20 20 20 2a 3e 0a 0a 20 20 3c 2a 20 66 69 65 6c 64 ┆ <* right hw *> <* field┆
0x011a0…011c0 73 20 69 6e 20 6c 6f 67 6f 75 74 2d 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s in logout-record ┆
0x011c0…011e0 20 20 20 28 6b 69 6e 64 20 3d 20 32 29 20 20 20 20 2a 3e 0a 20 20 6c 6f 67 6f 75 74 63 61 75 73 ┆ (kind = 2) *> logoutcaus┆
0x011e0…01200 65 20 20 20 20 20 3a 3d 20 20 39 3b 20 3c 2a 20 6c 65 66 74 20 20 68 77 00 00 00 00 00 00 00 00 ┆e := 9; <* left hw ┆
0x01200…01206 (9,) (0x68,0x25)
0x01206…01220 20 20 20 20 20 20 2a 3e 0a 20 20 6c 6f 67 69 6e 74 69 6d 65 20 20 20 20 20 20 ┆ *> logintime ┆
0x01220…01240 20 3a 3d 20 31 38 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 6f 70 ┆ := 18; <* word *> op┆
0x01240…01260 65 72 61 74 69 6f 6e 73 20 20 20 20 20 20 3a 3d 20 32 30 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 ┆erations := 20; <* word ┆
0x01260…0127e 20 20 20 20 20 20 2a 3e 0a 0a 20 20 3c 2a 20 66 69 65 6c 64 73 20 69 6e 20 70 72 69 6e 74 ┆ *> <* fields in print┆
0x0127e…01284 (0x68,0x26)
0x01284…012a0 2d 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 ┆-record (ki┆
0x012a0…012c0 6e 64 20 3d 20 33 29 20 20 20 20 2a 3e 0a 20 20 63 6f 6e 76 65 72 74 74 79 70 65 20 20 20 20 20 ┆nd = 3) *> converttype ┆
0x012c0…012e0 3a 3d 20 20 39 3b 20 3c 2a 20 6c 65 66 74 20 20 68 77 20 20 20 20 20 20 2a 3e 0a 20 20 6c 69 6e ┆:= 9; <* left hw *> lin┆
0x012e0…012fc 65 73 20 20 20 20 20 20 20 20 20 20 20 3a 3d 20 31 38 3b 20 3c 2a 20 77 6f 72 64 20 ┆es := 18; <* word ┆
0x012fc…01302 (0x68,0x27)
0x01302…01320 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 70 61 67 65 73 20 20 20 20 20 20 20 20 20 20 20 ┆ *> pages ┆
0x01320…01340 3a 3d 20 32 30 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 70 61 70 ┆:= 20; <* word *> pap┆
0x01340…01360 65 72 20 20 20 20 20 20 20 20 20 20 20 3a 3d 20 32 32 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 ┆er := 22; <* word ┆
0x01360…0137a 20 20 20 20 20 2a 3e 0a 0a 20 20 3c 2a 20 66 69 65 6c 64 73 20 69 6e 20 6a 6f ┆ *> <* fields in jo┆
0x0137a…01380 (0x68,0x28)
0x01380…013a0 62 73 74 61 72 74 2d 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6e ┆bstart-record (kin┆
0x013a0…013c0 64 20 3d 20 34 29 20 20 20 20 2a 3e 0a 20 20 70 72 69 6f 72 69 74 79 20 20 20 20 20 20 20 20 3a ┆d = 4) *> priority :┆
0x013c0…013e0 3d 20 31 38 3b 20 3c 2a 20 72 69 67 68 74 20 68 77 20 20 20 20 20 20 2a 3e 0a 20 20 65 78 70 5f ┆= 18; <* right hw *> exp_┆
0x013e0…01400 6e 65 74 72 75 6e 74 69 6d 65 20 20 3a 3d 20 32 30 3b 20 3c 2a 20 77 6f 00 00 00 00 00 00 00 00 ┆netruntime := 20; <* wo ┆
0x01400…01406 (10,) (0x68,0x29)
0x01406…01420 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 65 78 70 5f 67 72 6f 73 73 ┆rd *> exp_gross┆
0x01420…01440 72 75 6e 74 69 6d 65 3a 3d 20 32 32 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a ┆runtime:= 22; <* word *┆
0x01440…01460 3e 0a 0a 20 20 3c 2a 20 66 69 65 6c 64 73 20 69 6e 20 73 74 6f 70 2d 72 65 63 6f 72 64 20 20 20 ┆> <* fields in stop-record ┆
0x01460…0147e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6e 64 20 3d 20 39 39 29 20 20 20 ┆ (kind = 99) ┆
0x0147e…01484 (0x68,0x2a)
0x01484…014a0 2a 3e 0a 20 20 3c 2a 20 6f 6e 6c 79 20 63 6f 6d 6d 6f 6e 20 66 69 65 6c 64 73 20 2a ┆*> <* only common fields *┆
0x014a0…014c0 3e 0a 0a 20 20 3c 2a 20 66 69 65 6c 64 73 20 69 6e 20 70 72 69 76 61 74 65 20 61 63 63 6f 75 6e ┆> <* fields in private accoun┆
0x014c0…014e0 74 20 72 65 63 6f 72 64 73 20 20 20 20 20 20 20 28 6b 69 6e 64 20 3e 3d 20 31 30 30 29 20 2a 3e ┆t records (kind >= 100) *>┆
0x014e0…014fc 0a 20 20 70 61 72 61 6d 31 20 20 20 20 20 20 20 20 20 20 3a 3d 20 31 38 3b 20 3c 2a ┆ param1 := 18; <*┆
0x014fc…01502 (0x68,0x2b)
0x01502…01520 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 70 61 72 61 6d 32 20 20 20 20 ┆ word *> param2 ┆
0x01520…01540 20 20 20 20 20 20 3a 3d 20 32 30 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ := 20; <* word *>┆
0x01540…01560 0a 20 20 70 61 72 61 6d 33 20 20 20 20 20 20 20 20 20 20 3a 3d 20 32 32 3b 20 3c 2a 20 77 6f 72 ┆ param3 := 22; <* wor┆
0x01560…0157a 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 0a 20 20 3c 2a 20 72 65 6d 61 69 6e ┆d *> <* remain┆
0x0157a…01580 (0x68,0x2c)
0x01580…015a0 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 2a 3e 0a 20 20 6e 6c 3a 3d 20 66 61 6c ┆ing initialization *> nl:= fal┆
0x015a0…015c0 73 65 20 61 64 64 20 31 30 3b 0a 20 20 73 70 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 33 32 3b 0a ┆se add 10; sp:= false add 32; ┆
0x015c0…015e0 20 20 6c 69 6e 65 73 5f 6f 6e 5f 61 5f 70 61 67 65 3a 3d 20 34 38 3b 0a 20 20 6c 69 6e 65 3a 3d ┆ lines_on_a_page:= 48; line:=┆
0x015e0…01600 20 6c 69 6e 65 73 5f 6f 6e 5f 61 5f 70 61 67 65 3b 0a 20 20 70 61 67 65 00 00 00 00 00 00 00 00 ┆ lines_on_a_page; page ┆
0x01600…01606 (11,) (0x68,0x2d)
0x01606…01620 3a 3d 20 30 3b 0a 20 20 73 6c 69 63 65 6c 65 6e 67 74 68 5f 6f 6e 5f 64 72 75 ┆:= 0; slicelength_on_dru┆
0x01620…01640 6d 3a 3d 20 31 3b 20 20 3c 2a 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e ┆m:= 1; <* installation dependen┆
0x01640…01660 74 20 2a 3e 0a 20 20 73 6c 69 63 65 6c 65 6e 67 74 68 5f 6f 6e 5f 64 69 73 63 3a 3d 20 31 3b 20 ┆t *> slicelength_on_disc:= 1; ┆
0x01660…0167e 20 3c 2a 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 20 2a 3e 0a ┆ <* installation dependent *> ┆
0x0167e…01684 (0x68,0x2e)
0x01684…016a0 0a 20 20 3c 2a 20 66 69 72 73 74 20 66 70 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 ┆ <* first fp parameter in ┆
0x016a0…016c0 63 61 6c 6c 20 69 73 20 69 72 72 65 6c 65 76 61 6e 74 20 2a 3e 0a 20 20 3c 2a 20 73 65 63 6f 6e ┆call is irrelevant *> <* secon┆
0x016c0…016e0 64 20 70 61 72 61 6d 65 74 65 72 20 6d 75 73 74 20 62 65 20 70 6f 69 6e 74 20 61 6e 64 20 66 69 ┆d parameter must be point and fi┆
0x016e0…016fc 6c 65 6e 61 6d 65 20 2a 3e 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 20 32 2c 20 ┆lename *> if system(4, 2, ┆
0x016fc…01702 (0x68,0x2f)
0x01702…01720 66 70 70 61 72 61 6d 29 20 3c 3e 20 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 0a 20 20 ┆fpparam) <> 8 shift 12 + 10 ┆
0x01720…01740 20 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 32 2c 20 3c 3a 3c 31 30 3e 2a 2a 2a 70 61 72 ┆ then system(9, 2, <:<10>***par┆
0x01740…01760 61 6d 3a 3e 29 3b 0a 20 20 69 3a 3d 20 31 3b 0a 20 20 6f 70 65 6e 28 7a 2c 20 34 2c 20 73 74 72 ┆am:>); i:= 1; open(z, 4, str┆
0x01760…0177a 69 6e 67 20 66 70 70 61 72 61 6d 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 ┆ing fpparam(increase(i)), ┆
0x0177a…01780 (0x68,0x30)
0x01780…017a0 30 29 3b 0a 0a 0a 72 65 70 3a 0a 20 20 69 6e 72 65 63 36 28 7a 2c 20 33 32 29 3b 0a 20 20 69 66 ┆0); rep: inrec6(z, 32); if┆
0x017a0…017c0 20 7a 2e 6b 69 6e 64 20 3d 20 39 39 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 3b 0a 20 20 6e ┆ z.kind = 99 then goto stop; n┆
0x017c0…017e0 65 77 6c 69 6e 65 28 69 66 20 7a 2e 6b 69 6e 64 20 3d 20 31 20 74 68 65 6e 20 33 20 65 6c 73 65 ┆ewline(if z.kind = 1 then 3 else┆
0x017e0…01800 20 31 29 3b 0a 20 20 6b 3a 3d 20 7a 2e 74 69 6d 65 2f 2f 31 30 30 30 30 00 00 00 00 00 00 00 00 ┆ 1); k:= z.time//10000 ┆
0x01800…01806 (12,) (0x68,0x31)
0x01806…01820 3b 0a 20 20 64 61 74 65 3a 3d 20 73 79 73 74 69 6d 65 28 34 2c 20 6b 2c 20 74 ┆; date:= systime(4, k, t┆
0x01820…01840 29 3b 0a 20 20 63 6c 6f 63 6b 3a 3d 20 74 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 ┆); clock:= t; write(out, <<d┆
0x01840…01860 64 64 64 64 64 3e 2c 20 64 61 74 65 2c 0a 20 20 20 20 69 66 20 63 6c 6f 63 6b 20 3e 3d 20 31 20 ┆ddddd>, date, if clock >= 1 ┆
0x01860…0187e 30 30 20 30 30 20 74 68 65 6e 20 3c 3c 20 64 64 20 64 64 20 64 64 3e 20 65 6c 73 65 20 3c ┆00 00 then << dd dd dd> else <┆
0x0187e…01884 (0x68,0x32)
0x01884…018a0 3c 20 20 7a 20 64 64 20 64 64 3e 2c 0a 20 20 20 20 63 6c 6f 63 6b 2c 20 73 70 2c 20 ┆< z dd dd>, clock, sp, ┆
0x018a0…018c0 31 29 3b 0a 20 20 6f 75 74 74 65 78 74 28 6f 75 74 2c 20 39 2c 20 7a 2e 75 73 65 72 6e 61 6d 65 ┆1); outtext(out, 9, z.username┆
0x018c0…018e0 2c 20 31 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 62 64 3e 2c 20 7a 2e 75 73 65 ┆, 1); write(out, << bd>, z.use┆
0x018e0…018fc 72 69 6e 64 65 78 20 65 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20 3c 3c 20 64 64 ┆rindex extract 12, << dd┆
0x018fc…01902 (0x68,0x33)
0x01902…01920 64 64 64 64 3e 2c 20 7a 2e 70 72 6f 6a 65 63 74 2c 20 73 70 2c 20 31 29 3b 0a 20 20 69 66 ┆dddd>, z.project, sp, 1); if┆
0x01920…01940 20 7a 2e 6b 69 6e 64 20 3e 3d 20 31 20 61 6e 64 20 7a 2e 6b 69 6e 64 20 3c 3d 20 34 0a 20 20 74 ┆ z.kind >= 1 and z.kind <= 4 t┆
0x01940…01960 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 63 61 73 65 20 7a 2e 6b 69 6e 64 20 6f 66 20 28 0a ┆hen write(out, case z.kind of ( ┆
0x01960…0197a 20 20 20 20 3c 3a 20 6a 6f 62 66 69 6e 69 73 3a 3e 2c 20 3c 3a 20 6c 6f 67 6f ┆ <: jobfinis:>, <: logo┆
0x0197a…01980 (0x68,0x34)
0x01980…019a0 75 74 20 20 3a 3e 2c 20 3c 3a 20 70 72 69 6e 74 20 20 20 3a 3e 2c 20 3c 3a 20 6a 6f 62 20 20 20 ┆ut :>, <: print :>, <: job ┆
0x019a0…019c0 20 20 3a 3e 29 29 0a 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 2d 64 64 64 ┆ :>)) else write(out, << -ddd┆
0x019c0…019e0 64 64 64 64 3e 2c 20 7a 2e 6b 69 6e 64 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c ┆dddd>, z.kind); write(out, sp,┆
0x019e0…01a00 20 31 29 3b 0a 0a 20 20 69 66 20 7a 2e 6b 69 6e 64 20 3d 20 31 20 74 68 00 00 00 00 00 00 00 00 ┆ 1); if z.kind = 1 th ┆
0x01a00…01a06 (13,) (0x68,0x35)
0x01a06…01a20 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6a 6f 62 ┆en begin comment job┆
0x01a20…01a40 66 69 6e 69 73 3b 0a 20 20 20 20 63 61 75 73 65 3a 3d 20 7a 2e 66 69 6e 69 73 63 61 75 73 65 20 ┆finis; cause:= z.finiscause ┆
0x01a40…01a60 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 64 65 76 69 31 3a 3d 20 7a 2e 64 65 76 69 63 65 ┆extract 12; devi1:= z.device┆
0x01a60…01a7e 77 6f 72 64 31 3b 0a 20 20 20 20 64 65 76 69 32 3a 3d 20 7a 2e 64 65 76 69 63 65 77 6f 72 ┆word1; devi2:= z.devicewor┆
0x01a7e…01a84 (0x68,0x36)
0x01a84…01aa0 64 32 3b 0a 20 20 20 20 69 66 20 63 61 75 73 65 20 3d 20 31 30 30 20 74 68 65 6e 20 ┆d2; if cause = 100 then ┆
0x01aa0…01ac0 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 63 6f 6e 76 3a 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 ┆write(out, <:conv:>) ┆
0x01ac0…01ae0 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 62 64 64 64 3e 2c ┆ else write(out, <<bddd>,┆
0x01ae0…01afc 20 63 61 75 73 65 29 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 64 ┆ cause); write(out, << d┆
0x01afc…01b02 (0x68,0x37)
0x01b02…01b20 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 7a 2e 6e 65 74 72 75 6e 74 69 6d 65 2c 0a 20 20 20 ┆dddd>, z.netruntime, ┆
0x01b20…01b40 20 20 20 7a 2e 63 70 75 74 69 6d 65 2a 30 2e 38 31 39 32 2c 0a 20 20 20 20 20 20 3c 3c 20 64 64 ┆ z.cputime*0.8192, << dd┆
0x01b40…01b60 64 64 64 64 3e 2c 20 28 7a 2e 73 69 7a 65 20 65 78 74 72 61 63 74 20 31 32 29 2a 35 31 32 2c 20 ┆dddd>, (z.size extract 12)*512, ┆
0x01b60…01b7a 3c 3c 20 64 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 28 7a 2e 74 65 6d 70 64 72 ┆<< ddddd>, (z.tempdr┆
0x01b7a…01b80 (0x68,0x38)
0x01b80…01ba0 75 6d 20 65 78 74 72 61 63 74 20 31 32 29 2a 73 6c 69 63 65 6c 65 6e 67 74 68 5f 6f 6e 5f 64 72 ┆um extract 12)*slicelength_on_dr┆
0x01ba0…01bc0 75 6d 2c 0a 20 20 20 20 20 20 28 7a 2e 74 65 6d 70 64 69 73 63 20 65 78 74 72 61 63 74 20 31 32 ┆um, (z.tempdisc extract 12┆
0x01bc0…01be0 29 2a 73 6c 69 63 65 6c 65 6e 67 74 68 5f 6f 6e 5f 64 69 73 63 2c 0a 20 20 20 20 20 20 7a 2e 6c ┆)*slicelength_on_disc, z.l┆
0x01be0…01c00 6f 61 64 73 20 65 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20 20 20 7a 00 00 00 00 00 00 00 00 ┆oads extract 12, z ┆
0x01c00…01c06 (14,) (0x68,0x39)
0x01c06…01c20 2e 73 74 61 74 69 6f 6e 73 20 65 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20 ┆.stations extract 12, ┆
0x01c20…01c40 20 20 7a 2e 6d 6f 75 6e 74 73 20 65 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20 20 20 7a 2e 77 ┆ z.mounts extract 12, z.w┆
0x01c40…01c60 61 69 74 69 6e 67 74 69 6d 65 20 65 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20 20 20 7a 2e 6f ┆aitingtime extract 12, z.o┆
0x01c60…01c7e 6e 6c 69 6e 65 6c 69 6e 65 73 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 69 66 ┆nlinelines extract 12); if┆
0x01c7e…01c84 (0x68,0x3a)
0x01c84…01ca0 20 64 65 76 69 31 20 3c 3e 20 30 20 6f 72 20 64 65 76 69 32 20 3c 3e 20 30 20 74 68 ┆ devi1 <> 0 or devi2 <> 0 th┆
0x01ca0…01cc0 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c ┆en begin write(out, nl┆
0x01cc0…01ce0 2c 20 31 2c 20 73 70 2c 20 33 37 2c 20 3c 3a 64 65 76 69 63 65 77 6f 72 64 31 3a 20 3a 3e 29 3b ┆, 1, sp, 37, <:deviceword1: :>);┆
0x01ce0…01cfc 0a 20 20 20 20 20 20 6c 69 6e 65 3a 3d 20 6c 69 6e 65 20 2b 20 31 3b 0a 20 20 20 20 ┆ line:= line + 1; ┆
0x01cfc…01d02 (0x68,0x3b)
0x01d02…01d20 20 20 66 6f 72 20 69 3a 3d 20 2d 32 33 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 30 20 64 ┆ for i:= -23 step 1 until 0 d┆
0x01d20…01d40 6f 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 64 65 76 69 31 20 73 68 69 66 ┆o write(out, if devi1 shif┆
0x01d40…01d60 74 20 69 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t i extract 1 = 1 ┆
0x01d60…01d7a 20 20 20 74 68 65 6e 20 3c 3a 31 3a 3e 20 65 6c 73 65 20 3c 3a 2e 3a 3e 2c 0a ┆ then <:1:> else <:.:>, ┆
0x01d7a…01d80 (0x68,0x3c)
0x01d80…01da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 2c 20 69 66 20 69 20 3d 20 2d 31 32 20 ┆ sp, if i = -12 ┆
0x01da0…01dc0 74 68 65 6e 20 31 20 65 6c 73 65 20 30 29 3b 0a 20 20 20 20 20 20 69 66 20 64 65 76 69 31 20 73 ┆then 1 else 0); if devi1 s┆
0x01dc0…01de0 68 69 66 74 20 28 2d 32 32 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 0a 20 20 20 20 20 20 20 ┆hift (-22) extract 1 = 1 ┆
0x01de0…01e00 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 72 65 61 64 00 00 00 00 00 00 00 00 ┆ then write(out, <: read ┆
0x01e00…01e06 (15,) (0x68,0x3d)
0x01e06…01e20 65 72 3a 3e 29 3b 0a 20 20 20 20 20 20 69 66 20 64 65 76 69 31 20 73 68 69 66 ┆er:>); if devi1 shif┆
0x01e20…01e40 74 20 28 2d 32 31 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 0a 20 20 20 20 20 20 20 20 74 68 ┆t (-21) extract 1 = 1 th┆
0x01e40…01e60 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 70 72 69 6e 74 65 72 3a 3e 29 3b 0a 20 20 20 ┆en write(out, <: printer:>); ┆
0x01e60…01e7e 20 20 20 69 66 20 64 65 76 69 31 20 73 68 69 66 74 20 28 2d 32 30 29 20 65 78 74 72 61 63 ┆ if devi1 shift (-20) extrac┆
0x01e7e…01e84 (0x68,0x3e)
0x01e84…01ea0 74 20 31 20 3d 20 31 0a 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 72 69 74 65 28 6f ┆t 1 = 1 then write(o┆
0x01ea0…01ec0 75 74 2c 20 3c 3a 20 63 61 72 64 3a 3e 29 3b 0a 20 20 20 20 20 20 69 66 20 64 65 76 69 31 20 73 ┆ut, <: card:>); if devi1 s┆
0x01ec0…01ee0 68 69 66 74 20 28 2d 31 39 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 0a 20 20 20 20 20 20 20 ┆hift (-19) extract 1 = 1 ┆
0x01ee0…01efc 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 70 75 6e 63 68 3a 3e 29 ┆ then write(out, <: punch:>)┆
0x01efc…01f02 (0x68,0x3f)
0x01f02…01f20 3b 0a 20 20 20 20 20 20 69 66 20 64 65 76 69 31 20 73 68 69 66 74 20 28 2d 31 38 29 20 65 ┆; if devi1 shift (-18) e┆
0x01f20…01f40 78 74 72 61 63 74 20 31 20 3d 20 31 0a 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 72 69 74 65 28 ┆xtract 1 = 1 then write(┆
0x01f40…01f60 6f 75 74 2c 20 3c 3a 20 70 6c 6f 74 74 65 72 3a 3e 29 3b 0a 20 20 20 20 20 20 69 66 20 64 65 76 ┆out, <: plotter:>); if dev┆
0x01f60…01f7a 69 32 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆i2 <> 0 then begin ┆
0x01f7a…01f80 (0x68,0x40)
0x01f80…01fa0 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 31 2c 20 73 70 2c 20 33 37 2c ┆ write(out, nl, 1, sp, 37,┆
0x01fa0…01fc0 20 3c 3a 64 65 76 69 63 65 77 6f 72 64 32 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e ┆ <:deviceword2: :>); lin┆
0x01fc0…01fe0 65 3a 3d 20 6c 69 6e 65 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 2d 32 ┆e:= line + 1; for i:= -2┆
0x01fe0…02000 33 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 30 20 64 6f 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆3 step 1 until 0 do ┆
0x02000…02006 (16,) (0x68,0x41)
0x02006…02020 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 64 65 76 69 32 20 ┆ write(out, if devi2 ┆
0x02020…02040 73 68 69 66 74 20 69 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 0a 20 20 20 20 20 20 20 20 20 20 ┆shift i extract 1 = 1 ┆
0x02040…02060 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 3c 3a 31 3a 3e 20 65 6c 73 65 20 3c 3a 2e 3a 3e ┆ then <:1:> else <:.:>┆
0x02060…0207e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 2c 20 69 66 20 ┆, sp, if ┆
0x0207e…02084 (0x68,0x42)
0x02084…020a0 69 20 3d 20 2d 31 32 20 74 68 65 6e 20 31 20 65 6c 73 65 20 30 29 3b 0a 20 20 20 20 ┆i = -12 then 1 else 0); ┆
0x020a0…020c0 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 69 66 20 ┆ end end end else if ┆
0x020c0…020e0 7a 2e 6b 69 6e 64 20 3d 20 32 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 63 6f 6d 6d ┆z.kind = 2 then begin comm┆
0x020e0…020fc 65 6e 74 20 6c 6f 67 6f 75 74 3b 0a 20 20 20 20 63 61 75 73 65 3a 3d 20 7a 2e 6c 6f ┆ent logout; cause:= z.lo┆
0x020fc…02102 (0x68,0x43)
0x02102…02120 67 6f 75 74 63 61 75 73 65 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 69 66 20 63 ┆goutcause extract 12; if c┆
0x02120…02140 61 75 73 65 20 3d 20 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 68 61 72 64 3a ┆ause = 1 then write(out, <:hard:┆
0x02140…02160 3e 29 20 65 6c 73 65 0a 20 20 20 20 69 66 20 63 61 75 73 65 20 3d 20 32 20 74 68 65 6e 20 77 72 ┆>) else if cause = 2 then wr┆
0x02160…0217a 69 74 65 28 6f 75 74 2c 20 3c 3a 72 65 6d 6f 3a 3e 29 20 65 6c 73 65 0a 20 20 ┆ite(out, <:remo:>) else ┆
0x0217a…02180 (0x68,0x44)
0x02180…021a0 20 20 69 66 20 63 61 75 73 65 20 3d 20 33 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c ┆ if cause = 3 then write(out, <┆
0x021a0…021c0 3a 74 69 6d 65 3a 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 ┆:time:>) else w┆
0x021c0…021e0 72 69 74 65 28 6f 75 74 2c 20 3c 3c 62 64 64 64 3e 2c 20 63 61 75 73 65 29 3b 0a 20 20 20 20 77 ┆rite(out, <<bddd>, cause); w┆
0x021e0…02200 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 64 64 64 64 64 3e 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆rite(out, << ddddd>, ┆
0x02200…02206 (17,) (0x68,0x45)
0x02206…02220 20 20 20 7a 2e 6c 6f 67 69 6e 74 69 6d 65 2c 0a 20 20 20 20 20 20 7a 2e 6f 70 ┆ z.logintime, z.op┆
0x02220…02240 65 72 61 74 69 6f 6e 73 29 3b 0a 20 20 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 69 66 20 7a 2e 6b ┆erations); end else if z.k┆
0x02240…02260 69 6e 64 20 3d 20 33 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆ind = 3 then begin comment┆
0x02260…0227e 20 70 72 69 6e 74 3b 0a 20 20 20 20 74 79 70 65 3a 3d 20 7a 2e 63 6f 6e 76 65 72 74 74 79 ┆ print; type:= z.convertty┆
0x0227e…02284 (0x68,0x46)
0x02284…022a0 70 65 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 69 66 20 74 79 70 65 20 3d ┆pe extract 12; if type =┆
0x022a0…022c0 20 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 70 72 69 6d 3a 3e 29 20 65 6c 73 ┆ 1 then write(out, <:prim:>) els┆
0x022c0…022e0 65 0a 20 20 20 20 69 66 20 74 79 70 65 20 3d 20 33 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 ┆e if type = 3 then write(out┆
0x022e0…022fc 2c 20 3c 3a 6a 6f 62 63 3a 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, <:jobc:>) ┆
0x022fc…02302 (0x68,0x47)
0x02302…02320 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 62 64 64 64 3e 2c 20 74 79 70 65 29 ┆else write(out, <<bddd>, type)┆
0x02320…02340 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 64 64 64 64 64 3e 2c 0a 20 20 20 20 ┆; write(out, << ddddd>, ┆
0x02340…02360 20 20 7a 2e 6c 69 6e 65 73 2c 0a 20 20 20 20 20 20 7a 2e 70 61 67 65 73 2c 20 73 70 2c 20 31 2c ┆ z.lines, z.pages, sp, 1,┆
0x02360…0237a 0a 20 20 20 20 20 20 7a 2e 70 61 70 65 72 29 3b 0a 20 20 65 6e 64 0a 20 20 65 ┆ z.paper); end e┆
0x0237a…02380 (0x68,0x48)
0x02380…023a0 6c 73 65 0a 20 20 69 66 20 7a 2e 6b 69 6e 64 20 3d 20 34 20 74 68 65 6e 0a 20 20 62 65 67 69 6e ┆lse if z.kind = 4 then begin┆
0x023a0…023c0 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6a 6f 62 73 74 61 72 74 3b 0a 20 20 20 20 77 72 69 74 65 ┆ comment jobstart; write┆
0x023c0…023e0 28 6f 75 74 2c 20 73 70 2c 20 34 2c 20 3c 3c 20 64 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 7a 2e ┆(out, sp, 4, << ddddd>, z.┆
0x023e0…02400 65 78 70 5f 6e 65 74 72 75 6e 74 69 6d 65 2a 30 2e 38 31 39 32 2c 0a 20 00 00 00 00 00 00 00 00 ┆exp_netruntime*0.8192, ┆
0x02400…02406 (18,) (0x68,0x49)
0x02406…02420 20 20 20 20 20 7a 2e 65 78 70 5f 67 72 6f 73 73 72 75 6e 74 69 6d 65 2a 30 2e ┆ z.exp_grossruntime*0.┆
0x02420…02440 38 31 39 32 2c 20 73 70 2c 20 31 2c 0a 20 20 20 20 20 20 7a 2e 70 72 69 6f 72 69 74 79 20 65 78 ┆8192, sp, 1, z.priority ex┆
0x02440…02460 74 72 61 63 74 20 31 32 29 3b 0a 20 20 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 69 66 20 7a 2e 6b ┆tract 12); end else if z.k┆
0x02460…0247e 69 6e 64 20 3e 3d 20 31 30 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 63 6f ┆ind >= 100 then begin co┆
0x0247e…02484 (0x68,0x4a)
0x02484…024a0 6d 6d 65 6e 74 20 70 72 69 76 61 74 65 20 61 63 63 6f 75 6e 74 3b 0a 20 20 20 20 77 ┆mment private account; w┆
0x024a0…024c0 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 20 34 2c 20 3c 3c 20 20 20 20 2d 64 64 64 64 64 64 64 3e ┆rite(out, sp, 4, << -ddddddd>┆
0x024c0…024e0 2c 0a 20 20 20 20 20 20 7a 2e 70 61 72 61 6d 31 2c 20 73 70 2c 20 31 2c 0a 20 20 20 20 20 20 7a ┆, z.param1, sp, 1, z┆
0x024e0…024fc 2e 70 61 72 61 6d 32 2c 0a 20 20 20 20 20 20 7a 2e 70 61 72 61 6d 33 29 3b 0a 20 20 ┆.param2, z.param3); ┆
0x024fc…02502 (0x68,0x4b)
0x02502…02520 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆end else begin comment┆
0x02520…02540 20 69 6c 6c 65 67 61 6c 20 61 63 63 6f 75 6e 74 20 6b 69 6e 64 3b 0a 20 20 20 20 77 72 69 74 65 ┆ illegal account kind; write┆
0x02540…02560 28 6f 75 74 2c 20 3c 3a 20 2a 2a 2a 20 69 6c 6c 65 67 61 6c 20 61 63 63 6f 75 6e 74 20 6b 69 6e ┆(out, <: *** illegal account kin┆
0x02560…0257a 64 3a 3e 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 67 6f 74 6f 20 72 65 70 3b 0a ┆d:>); end; goto rep; ┆
0x0257a…02580 (0x68,0x4c)
0x02580…025a0 0a 73 74 6f 70 3a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 32 3e 65 6e 64 20 61 63 ┆ stop: write(out, <:<12>end ac┆
0x025a0…025c0 63 6f 75 6e 74 66 69 6c 65 20 6c 6f 67 3a 3e 29 3b 0a 65 6e 64 0a 0a 66 69 6e 69 73 0a 0a 26 2c ┆countfile log:>); end finis &,┆
0x025c0…025e0 20 66 0a 0a 73 63 6f 70 65 20 75 73 65 72 20 61 63 63 6f 75 6e 74 6a 6f 62 0a 62 61 73 65 0a 0a ┆ f scope user accountjob base ┆
0x025e0…02600 19 00 00 69 6d 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 69 66 20 74 79 70 00 00 00 00 00 00 00 00 ┆ im:>) else if typ ┆
0x02600…02606 (19,) (0x68,0x4d)
0x02606…02620 65 20 3d 20 33 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 6a 6f ┆e = 3 then write(out, <:jo┆
0x02620…02640 62 63 3a 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 ┆bc:>) else write┆
0x02640…02660 28 6f 75 74 2c 20 3c 3c 62 64 64 64 3e 2c 20 74 79 70 65 29 3b 0a 20 20 20 20 77 72 69 74 65 28 ┆(out, <<bddd>, type); write(┆
0x02660…0267e 6f 75 74 2c 20 3c 3c 20 64 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 7a 2e 6c 69 6e 65 73 2c ┆out, << ddddd>, z.lines,┆
0x0267e…02684 (0x68,0x4e)
0x02684…026a0 0a 20 20 20 20 20 20 7a 2e 70 61 67 65 73 2c 20 73 70 2c 20 31 2c 0a 20 20 20 20 20 ┆ z.pages, sp, 1, ┆
0x026a0…026c0 20 7a 2e 70 61 70 65 72 29 3b 0a 20 20 65 6e 64 0a 20 20 65 6c 73 65 0a 20 20 69 66 20 7a 2e 6b ┆ z.paper); end else if z.k┆
0x026c0…026e0 69 6e 64 20 3d 20 34 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆ind = 4 then begin comment┆
0x026e0…026fc 20 6a 6f 62 73 74 61 72 74 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 ┆ jobstart; write(out, sp┆
0x026fc…02702 (0x68,0x4f)
0x02702…02720 2c 20 34 2c 20 3c 3c 20 64 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 7a 2e 65 78 70 5f 6e 65 ┆, 4, << ddddd>, z.exp_ne┆
0x02720…02740 74 72 75 6e 74 69 6d 65 2a 30 2e 38 31 39 32 2c 0a 20 3c 20 64 64 64 64 64 3e 2c 0a 20 20 20 20 ┆truntime*0.8192, < ddddd>, ┆
0x02740…02760 20 20 7a 2e 6c 69 6e 65 73 2c 0a 20 20 20 20 20 20 7a 2e 70 61 67 65 73 2c 20 73 70 2c 20 31 2c ┆ z.lines, z.pages, sp, 1,┆
0x02760…0277a 0a 20 20 20 20 20 20 7a 2e 70 61 70 65 72 29 3b 0a 20 20 65 6e 64 0a 20 20 65 ┆ z.paper); end e┆
0x0277a…02780 (0xcc,0x50)
0x02780…027a0 0a 28 62 6f 70 74 69 6f 6e 73 20 3d 20 73 65 74 20 31 30 30 20 31 0a 62 6f 70 74 69 6f 6e 73 20 ┆ (boptions = set 100 1 boptions ┆
0x027a0…027c0 3d 20 73 6c 61 6e 67 20 6c 69 73 74 65 72 2e 6e 6f 0a 73 63 6f 70 65 20 75 73 65 72 20 62 6f 70 ┆= slang lister.no scope user bop┆
0x027c0…027e0 74 69 6f 6e 73 0a 70 72 69 6e 74 20 62 6f 70 74 69 6f 6e 73 20 77 6f 72 64 73 2c 0a 20 20 20 20 ┆tions print boptions words, ┆
0x027e0…02800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 32 20 69 6e 74 65 67 00 00 00 00 00 00 00 00 ┆ .2 integ ┆
0x02800…02806 (20,) (0xcc,0x51)
0x02806…02820 65 72 20 30 2e 32 29 0a 0a 0a 73 2e 20 61 32 30 20 77 2e 0a 20 20 20 20 20 38 ┆er 0.2) s. a20 w. 8┆
0x02820…02840 31 20 31 32 20 30 39 2c 20 35 38 20 20 20 20 20 20 3b 30 2c 32 20 76 65 72 73 69 6f 6e 69 64 3a ┆1 12 09, 58 ;0,2 versionid:┆
0x02840…02860 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 30 20 20 20 20 20 3b 34 20 20 20 74 6f 70 ┆ a0 ;4 top┆
0x02860…0287e 20 6f 66 20 64 65 76 69 63 65 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ of devicelist ┆
0x0287e…02884 (0xcc,0x52)
0x02884…028a0 20 61 31 20 20 20 20 20 3b 36 20 20 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 76 69 63 ┆ a1 ;6 number of devic┆
0x028a0…028c0 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 32 20 20 20 20 20 3b 38 20 20 20 6d ┆es a2 ;8 m┆
0x028c0…028e0 61 78 20 6e 6f 20 6f 66 20 70 72 69 76 61 74 65 20 6b 69 74 73 20 69 6e 20 61 20 70 72 6f 6a 65 ┆ax no of private kits in a proje┆
0x028e0…028fc 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 33 20 20 20 20 20 3b 31 ┆ct a3 ;1┆
0x028fc…02902 (0xcc,0x53)
0x02902…02920 30 20 20 6e 6f 20 6f 66 20 66 72 65 65 20 6c 6f 67 69 63 61 6c 20 62 61 63 6b 69 6e 67 20 ┆0 no of free logical backing ┆
0x02920…02940 73 74 6f 72 61 67 65 20 64 65 76 69 63 65 73 0a 0a 70 2e 20 3c 3a 6f 70 74 69 6f 6e 73 3a 3e 20 ┆storage devices p. <:options:> ┆
0x02940…02960 20 20 20 20 20 20 20 20 3b 20 20 20 20 69 6e 63 6c 75 64 65 20 6f 70 74 69 6f 6e 73 20 28 77 69 ┆ ; include options (wi┆
0x02960…0297a 74 68 20 64 65 76 69 63 65 6c 69 73 74 29 20 6f 6e 20 73 65 67 6d 65 6e 74 0a ┆th devicelist) on segment ┆
0x0297a…02980 (0xcc,0x54)
0x02980…029a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 64 65 66 69 6e 65 ┆ ; define┆
0x029a0…029c0 20 76 61 6c 75 65 73 3a 0a 61 30 20 3d 20 65 32 34 20 2b 20 65 31 37 20 20 20 20 20 20 20 20 20 ┆ values: a0 = e24 + e17 ┆
0x029c0…029e0 3b 20 20 20 20 74 6f 70 20 6f 66 20 64 65 76 69 63 65 20 6c 69 73 74 3a 3d 20 66 69 72 73 74 20 ┆; top of device list:= first ┆
0x029e0…02a00 73 74 64 20 74 61 70 65 20 73 74 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆std tape station ┆
0x02a00…02a06 (21,) (0xcc,0x55)
0x02a06…02a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 2b 20 6c ┆ ; + l┆
0x02a20…02a40 65 6e 67 74 68 20 6f 66 20 64 65 76 69 63 65 6c 69 73 74 3b 0a 61 31 20 3d 20 65 31 37 20 2d 20 ┆ength of devicelist; a1 = e17 - ┆
0x02a40…02a60 65 32 36 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 6e 6f 20 6f 66 20 64 65 76 69 63 65 73 3a 3d ┆e26 ; no of devices:=┆
0x02a60…02a7e 20 64 65 76 6c 69 73 74 20 6c 65 6e 67 74 68 20 2d 20 73 74 64 20 73 74 61 74 69 6f 6e 73 ┆ devlist length - std stations┆
0x02a7e…02a84 (0xcc,0x56)
0x02a84…02aa0 3b 0a 61 32 20 3d 20 69 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆; a2 = i30 ; ┆
0x02aa0…02ac0 20 20 6d 61 78 20 6e 6f 20 6f 66 20 70 72 69 76 61 74 65 20 6b 69 74 73 3a 3d 20 6f 70 74 69 6f ┆ max no of private kits:= optio┆
0x02ac0…02ae0 6e 20 76 61 6c 75 65 3b 0a 63 2e 20 69 32 37 2c 20 61 33 20 3d 20 69 32 39 20 2d 20 32 20 7a 2e ┆n value; c. i27, a3 = i29 - 2 z.┆
0x02ae0…02afc 3b 20 64 72 75 6d 20 70 72 65 73 65 6e 74 3a 20 66 72 65 65 20 62 73 64 65 76 73 3a ┆; drum present: free bsdevs:┆
0x02afc…02b02 (0xcc,0x57)
0x02b02…02b20 3d 20 61 6c 6c 20 2d 20 32 3b 0a 63 2e 2d 69 32 37 2c 20 61 33 20 3d 20 69 32 39 20 2d 20 ┆= all - 2; c.-i27, a3 = i29 - ┆
0x02b20…02b40 31 20 7a 2e 3b 20 6e 6f 20 64 72 75 6d 3a 20 20 20 20 20 20 66 72 65 65 20 62 73 64 65 76 73 3a ┆1 z.; no drum: free bsdevs:┆
0x02b40…02b60 3d 20 61 6c 6c 20 2d 20 31 3b 0a 0a 65 2e 20 3b 20 65 6e 64 20 6f 70 74 69 6f 6e 73 0a 65 2e 20 ┆= all - 1; e. ; end options e. ┆
0x02b60…02b7a 3b 20 65 6e 64 20 73 6c 61 6e 67 20 73 65 67 6d 65 6e 74 0a 0c 0a 0a 0a 28 63 ┆; end slang segment (c┆
0x02b7a…02b80 (0xcc,0x58)
0x02b80…02ba0 61 74 75 70 64 61 74 65 20 3d 20 73 65 74 20 31 30 30 20 31 0a 63 61 74 75 70 64 61 74 65 20 3d ┆atupdate = set 100 1 catupdate =┆
0x02ba0…02bc0 20 61 6c 67 6f 6c 20 73 70 69 6c 6c 2e 79 65 73 20 6c 69 73 74 2e 6e 6f 20 78 72 65 66 2e 6e 6f ┆ algol spill.yes list.no xref.no┆
0x02bc0…02be0 0a 73 63 6f 70 65 20 75 73 65 72 20 63 61 74 75 70 64 61 74 65 0a 29 0a 0a 0a 62 65 67 69 6e 0a ┆ scope user catupdate ) begin ┆
0x02be0…02c00 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ <* bbj 9 9 76 ┆
0x02c00…02c06 (22,) (0xcc,0x59)
0x02c06…02c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02c20…02c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 2e 2e 2e ┆ catupdate ...1...┆
0x02c40…02c60 20 20 2a 3e 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 ┆ *> comment this program is ┆
0x02c60…02c7e 69 6e 74 65 6e 64 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 6e 64 20 75 70 64 61 74 65 0a ┆intended to create and update ┆
0x02c7e…02c84 (0xcc,0x5a)
0x02c84…02ca0 20 20 20 74 68 65 20 75 73 65 72 63 61 74 2c 20 6e 65 73 63 65 73 73 61 72 79 20 66 ┆ the usercat, nescessary f┆
0x02ca0…02cc0 6f 72 20 74 68 65 20 62 6f 73 73 32 2d 6f 70 65 72 61 74 69 6e 67 2d 73 79 73 74 65 6d 2e 0a 0a ┆or the boss2-operating-system. ┆
0x02cc0…02ce0 20 20 20 74 68 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c 20 63 6f 6d 6d 65 6e 74 73 20 74 68 ┆ there are several comments th┆
0x02ce0…02cfc 72 6f 75 67 68 6f 75 74 20 74 68 65 20 70 72 6f 67 72 61 6d 2c 20 69 6e 0a 20 20 20 ┆roughout the program, in ┆
0x02cfc…02d02 (0xcc,0x5b)
0x02d02…02d20 6f 72 64 65 72 20 74 6f 20 66 61 63 69 6c 69 74 61 74 65 20 74 68 65 20 75 6e 64 65 72 73 ┆order to facilitate the unders┆
0x02d20…02d40 74 61 6e 64 69 6e 67 20 6f 66 20 74 68 65 20 74 65 78 74 2c 20 62 75 74 0a 20 20 20 66 6f 72 20 ┆tanding of the text, but for ┆
0x02d40…02d60 63 65 72 74 61 69 6e 20 6f 66 20 74 68 65 20 61 63 74 69 6f 6e 73 2c 20 74 68 65 20 72 65 61 64 ┆certain of the actions, the read┆
0x02d60…02d7a 65 72 20 69 73 20 6b 69 6e 64 6c 79 0a 20 20 20 72 65 71 75 65 73 74 65 64 20 ┆er is kindly requested ┆
0x02d7a…02d80 (0xcc,0x5c)
0x02d80…02da0 74 6f 20 63 6f 6e 66 65 72 20 77 69 74 68 20 74 68 65 20 61 63 74 75 61 6c 20 62 6f 73 73 32 2d ┆to confer with the actual boss2-┆
0x02da0…02dc0 70 72 6f 67 72 61 6d 2d 74 65 78 74 2e 0a 20 20 20 28 74 68 69 73 20 69 73 20 65 73 70 65 63 69 ┆program-text. (this is especi┆
0x02dc0…02de0 61 6c 6c 79 20 72 65 63 6f 6d 6d 65 6e 64 65 64 20 66 6f 72 20 72 65 61 64 69 6e 67 20 74 68 65 ┆ally recommended for reading the┆
0x02de0…02e00 20 6f 70 74 69 6f 6e 2d 0a 20 20 20 61 63 74 69 6f 6e 73 20 28 62 65 63 00 00 00 00 00 00 00 00 ┆ option- actions (bec ┆
0x02e00…02e06 (23,) (0xcc,0x5d)
0x02e06…02e20 61 75 73 65 20 74 68 65 79 20 61 72 65 20 2d 20 6d 6f 72 65 20 6f 72 20 6c 65 ┆ause they are - more or le┆
0x02e20…02e40 73 73 20 2d 20 64 69 72 65 63 74 6c 79 20 74 72 61 6e 73 6c 61 74 65 64 0a 20 20 20 66 72 6f 6d ┆ss - directly translated from┆
0x02e40…02e60 20 73 6c 61 6e 67 20 69 6e 74 6f 20 61 6c 67 6f 6c 36 29 2e 29 0a 0a 20 20 20 61 70 61 72 74 20 ┆ slang into algol6).) apart ┆
0x02e60…02e7e 66 72 6f 6d 20 74 68 69 73 2c 20 69 20 68 61 76 65 20 75 73 65 64 20 6c 6f 6e 67 20 76 61 ┆from this, i have used long va┆
0x02e7e…02e84 (0xcc,0x5e)
0x02e84…02ea0 72 69 61 62 6c 65 2d 6e 61 6d 65 73 2c 20 69 6e 73 74 65 61 64 0a 20 20 20 6f 66 20 ┆riable-names, instead of ┆
0x02ea0…02ec0 68 61 76 69 6e 67 20 63 6f 6d 6d 65 6e 74 73 2e 2e 2e 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 ┆having comments...; <* bbj ┆
0x02ec0…02ee0 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 63 72 69 ┆9 9 76 descri┆
0x02ee0…02efc 70 74 69 6f 6e 20 6f 66 20 63 61 74 61 6c 6f 67 20 20 20 20 20 63 61 74 75 70 64 61 ┆ption of catalog catupda┆
0x02efc…02f02 (0xcc,0x5f)
0x02f02…02f20 74 65 20 20 2e 2e 2e 32 2e 2e 2e 20 20 2a 3e 0a 0a 3c 2a 0a 0a 20 20 20 20 20 20 20 20 20 ┆te ...2... *> <* ┆
0x02f20…02f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02f40…02f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 62 6a 20 31 35 2d 31 2d 37 ┆ bbj 15-1-7┆
0x02f60…02f7a 36 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 ┆6 Th┆
0x02f7a…02f80 (0xcc,0x60)
0x02f80…02fa0 65 20 75 73 65 72 63 61 74 61 6c 6f 67 20 69 6e 20 42 6f 73 73 0a 0a 54 68 65 20 75 73 65 72 63 ┆e usercatalog in Boss The userc┆
0x02fa0…02fc0 61 74 61 6c 6f 67 20 69 73 20 62 75 69 6c 74 20 61 73 20 61 6e 20 68 69 65 72 61 72 63 68 69 63 ┆atalog is built as an hierarchic┆
0x02fc0…02fe0 61 6c 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 73 75 62 63 61 74 61 6c 6f 67 73 20 77 69 74 68 ┆al structure of subcatalogs with┆
0x02fe0…03000 0a 65 61 63 68 20 73 75 62 63 61 74 61 6c 6f 67 20 63 6f 6e 73 69 73 74 00 00 00 00 00 00 00 00 ┆ each subcatalog consist ┆
0x03000…03006 (24,) (0xcc,0x61)
0x03006…03020 69 6e 67 20 6f 66 20 72 65 63 6f 72 64 73 20 6f 66 20 76 61 72 79 69 6e 67 20 ┆ing of records of varying ┆
0x03020…03040 6c 65 6e 67 74 68 2e 20 54 68 65 73 65 20 72 65 63 6f 72 64 73 0a 64 65 73 63 72 69 62 65 20 61 ┆length. These records describe a┆
0x03040…03060 6c 6c 20 74 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 ┆ll the information available in ┆
0x03060…0307e 74 68 65 20 63 61 74 61 6c 6f 67 2e 0a 54 68 65 20 63 61 74 61 6c 6f 67 20 69 73 20 70 6c ┆the catalog. The catalog is pl┆
0x0307e…03084 (0xcc,0x62)
0x03084…030a0 61 63 65 64 20 6f 6e 20 74 68 65 20 73 79 73 74 65 6d 20 64 69 73 63 20 77 69 74 68 ┆aced on the system disc with┆
0x030a0…030c0 20 74 68 65 20 6e 61 6d 65 20 55 53 45 52 43 41 54 20 61 6e 64 20 69 73 20 72 65 2d 0a 73 65 72 ┆ the name USERCAT and is re- ser┆
0x030c0…030e0 76 65 64 20 62 79 20 74 68 65 20 6f 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 20 42 4f 53 53 ┆ved by the operating system BOSS┆
0x030e0…030fc 2e 20 54 68 65 20 63 61 74 61 6c 6f 67 20 69 73 20 74 65 72 6d 69 6e 61 74 65 64 20 ┆. The catalog is terminated ┆
0x030fc…03102 (0xcc,0x63)
0x03102…03120 62 79 20 61 20 72 65 2d 0a 63 6f 72 64 20 6f 66 20 74 79 70 65 20 30 20 61 6e 64 20 77 69 ┆by a re- cord of type 0 and wi┆
0x03120…03140 74 68 20 61 20 70 72 6f 6a 65 63 74 20 6e 75 6d 62 65 72 20 32 2a 2a 32 33 2d 31 20 28 64 65 73 ┆th a project number 2**23-1 (des┆
0x03140…03160 63 72 69 62 65 64 20 6c 61 74 65 72 29 2e 0a 54 68 65 20 66 69 72 73 74 20 73 65 67 6d 65 6e 74 ┆cribed later). The first segment┆
0x03160…0317a 28 73 29 20 69 73 20 28 61 72 65 29 20 75 73 65 64 20 61 73 20 61 6e 20 69 6e ┆(s) is (are) used as an in┆
0x0317a…03180 (0xcc,0x64)
0x03180…031a0 64 65 78 20 74 6f 20 67 61 69 6e 20 66 61 73 74 65 72 20 61 63 63 65 73 73 20 74 6f 0a 74 68 65 ┆dex to gain faster access to the┆
0x031a0…031c0 20 63 61 74 61 6c 6f 67 2e 0a 54 68 65 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 74 68 65 20 ┆ catalog. The first word of the ┆
0x031c0…031e0 69 6e 64 65 78 20 74 61 62 6c 65 20 69 73 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 ┆index table is the maximum numbe┆
0x031e0…03200 72 20 6f 66 20 70 65 72 6d 61 6e 65 6e 74 20 63 61 2d 0a 74 61 6c 6f 67 00 00 00 00 00 00 00 00 ┆r of permanent ca- talog ┆
0x03200…03206 (25,) (0xcc,0x65)
0x03206…03220 20 65 6e 74 72 69 65 73 20 77 68 69 63 68 20 61 72 65 20 70 72 6f 6d 69 73 65 ┆ entries which are promise┆
0x03220…03240 64 20 74 6f 20 74 68 65 20 70 72 6f 6a 65 63 74 73 20 69 6e 20 74 68 65 20 75 73 65 72 63 61 74 ┆d to the projects in the usercat┆
0x03240…03260 61 6c 6f 67 20 28 69 6e 0a 6e 65 67 61 74 69 76 65 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e ┆alog (in negative representation┆
0x03260…0327e 29 2e 20 49 66 20 74 68 65 72 65 20 65 78 69 73 74 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e ┆). If there exist more than on┆
0x0327e…03284 (0xcc,0x66)
0x03284…032a0 65 20 69 6e 64 65 78 20 73 65 67 6d 65 6e 74 20 74 68 65 0a 6e 65 78 74 20 77 6f 72 ┆e index segment the next wor┆
0x032a0…032c0 64 20 77 69 6c 6c 20 63 6f 6e 74 61 69 6e 20 2d 31 2e 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 ┆d will contain -1. The number of┆
0x032c0…032e0 20 77 6f 72 64 73 20 77 69 74 68 20 2d 31 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 ┆ words with -1 is the number of ┆
0x032e0…032fc 0a 69 6e 64 65 78 20 73 65 67 6d 65 6e 74 73 20 2d 31 2e 20 54 68 65 20 66 6f 6c 6c ┆ index segments -1. The foll┆
0x032fc…03302 (0xcc,0x67)
0x03302…03320 6f 77 69 6e 67 20 77 6f 72 64 73 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 6e 75 6d 62 65 72 ┆owing words contain the number┆
0x03320…03340 20 6f 66 20 74 68 65 20 70 72 6f 6a 65 63 74 20 0a 77 69 74 68 20 74 68 65 20 68 69 67 68 65 73 ┆ of the project with the highes┆
0x03340…03360 74 20 6e 75 6d 62 65 72 20 6f 6e 20 74 68 61 74 20 73 65 67 6d 65 6e 74 2e 20 54 68 65 20 61 64 ┆t number on that segment. The ad┆
0x03360…0337a 64 72 65 73 73 20 6f 66 20 74 68 65 20 73 65 67 6d 65 6e 74 20 69 73 20 0a 74 ┆dress of the segment is t┆
0x0337a…03380 (0xcc,0x68)
0x03380…033a0 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 69 6e 64 65 78 20 77 6f 72 64 20 28 61 62 73 ┆he number of the index word (abs┆
0x033a0…033c0 6f 6c 75 74 65 20 73 65 67 6d 65 6e 74 20 61 64 64 72 65 73 73 69 6e 67 29 2e 0a 54 68 65 20 66 ┆olute segment addressing). The f┆
0x033c0…033e0 6f 6c 6c 6f 77 69 6e 67 20 66 69 67 75 72 65 20 69 6c 6c 75 73 74 72 61 74 65 73 20 68 6f 77 20 ┆ollowing figure illustrates how ┆
0x033e0…03400 74 68 65 20 69 6e 64 65 78 74 61 62 6c 65 20 61 6e 64 20 74 68 65 20 63 00 00 00 00 00 00 00 00 ┆the indextable and the c ┆
0x03400…03406 (26,) (0xcc,0x69)
0x03406…03420 61 74 61 6c 6f 67 20 65 6e 2d 0a 74 72 69 65 73 20 77 6f 72 6b 0a 0a 0a 20 20 ┆atalog en- tries work ┆
0x03420…03440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 72 63 61 ┆ Userca┆
0x03440…03460 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t ! ┆
0x03460…0347e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x0347e…03484 (0xcc,0x6a)
0x03484…034a0 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ !----------------------┆
0x034a0…034c0 2d 2d 2d 2d 2d 2d 2d 2d 21 20 2d 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 21 20 2d ┆--------! -- 0 ! -┆
0x034c0…034e0 20 6e 6f 2e 20 6f 66 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 69 65 73 20 20 20 20 20 21 20 20 20 ┆ no. of catalog entries ! ┆
0x034e0…034fc 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆! !---------┆
0x034fc…03502 (0xcc,0x6b)
0x03502…03520 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 20 20 20 21 0a 20 20 20 ┆---------------------! ! ┆
0x03520…03540 20 20 20 20 20 20 20 20 20 20 32 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ! ┆
0x03540…03560 20 20 20 20 20 2d 31 20 20 20 20 20 21 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ -1 ! ! ┆
0x03560…0357a 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ !-----------------------┆
0x0357a…03580 (0xcc,0x6c)
0x03580…035a0 2d 2d 2d 2d 2d 2d 2d 21 20 20 20 21 0a 73 65 67 6d 65 6e 74 20 31 20 20 20 20 34 20 20 21 20 20 ┆-------! ! segment 1 4 ! ┆
0x035a0…035c0 20 28 70 72 6f 6a 65 63 74 20 6e 75 6d 62 65 72 29 20 20 20 20 20 30 20 20 20 20 20 21 20 20 20 ┆ (project number) 0 ! ┆
0x035c0…035e0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆! !-------------┆
0x035e0…03600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 20 20 20 21 0a 20 00 00 00 00 00 00 00 00 ┆-----------------! ! ┆
0x03600…03606 (27,) (0xcc,0x6d)
0x03606…03620 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 21 20 20 20 20 20 20 20 20 20 64 ┆ 6 ! d┆
0x03620…03640 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 21 20 20 20 21 0a 20 20 20 20 20 20 ┆o 0 ! ! ┆
0x03640…03660 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ !---------------------┆
0x03660…0367e 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 38 20 ┆---------! ! 8 ┆
0x0367e…03684 (0xcc,0x6e)
0x03684…036a0 20 21 20 20 20 20 20 20 20 20 20 64 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 ┆ ! do 1 ┆
0x036a0…036c0 20 20 20 20 21 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d ┆ ! ! !-----┆
0x036c0…036e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 20 20 20 21 0a 20 ┆-------------------------! ! ┆
0x036e0…036fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x036fc…03702 (0xcc,0x6f)
0x03702…03720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 21 0a 20 20 20 20 20 20 ┆ ! ! ┆
0x03720…03740 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 20 20 20 20 20 20 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 ┆ ---------! . ┆
0x03740…03760 20 20 20 20 20 20 20 20 20 21 20 20 20 3e 20 20 20 20 69 6e 64 65 78 20 74 61 62 6c 65 0a 73 65 ┆ ! > index table se┆
0x03760…0377a 67 6d 65 6e 74 20 32 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 2e 20 ┆gment 2 ! . ┆
0x0377a…03780 (0xcc,0x70)
0x03780…037a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 21 0a 20 20 20 20 20 20 20 ┆ ! ! ┆
0x037a0…037c0 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! . ┆
0x037c0…037e0 20 20 20 20 20 20 20 20 21 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d ┆ ! ! !-┆
0x037e0…03800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 00 00 00 00 00 00 00 ┆------------------------ ┆
0x03800…03806 (28,) (0xcc,0x71)
0x03806…03820 2d 2d 2d 2d 2d 21 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----! ! ┆
0x03820…03840 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2a 2a 32 33 2d 31 20 20 20 ┆ ! 2**23-1 ┆
0x03840…03860 21 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆! ! !---------┆
0x03860…0387e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 20 20 20 21 0a 20 20 20 ┆---------------------! ! ┆
0x0387e…03884 (0xcc,0x72)
0x03884…038a0 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x038a0…038c0 20 20 20 20 20 20 32 2a 2a 32 33 2d 31 20 20 20 21 20 20 20 21 0a 20 20 20 20 20 20 20 2d 2d 2d ┆ 2**23-1 ! ! ---┆
0x038c0…038e0 2d 2d 2d 2d 2d 2d 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------!-------------------------┆
0x038e0…038fc 2d 2d 2d 2d 2d 21 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆-----!---! !┆
0x038fc…03902 (0xcc,0x73)
0x03902…03920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03920…03940 21 0a 73 65 67 6d 65 6e 74 20 33 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! segment 3 ! ┆
0x03940…03960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x03960…0397a 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ !----------------------┆
0x0397a…03980 (0xcc,0x74)
0x03980…039a0 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 69 6e 66 ┆--------! ! inf┆
0x039a0…039c0 2e 20 61 62 6f 75 74 20 70 72 6f 6a 65 63 74 20 30 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆. about project 0 ! ┆
0x039c0…039e0 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ---------!--------------------┆
0x039e0…03a00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆----------! ┆
0x03a00…03a06 (29,) (0xcc,0x75)
0x03a06…03a20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x03a20…03a40 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 ┆ ! ! ┆
0x03a40…03a60 20 20 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 0a 73 65 67 6d ┆ ! segm┆
0x03a60…03a7e 65 6e 74 20 34 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ent 4 !-----------------┆
0x03a7e…03a84 (0xcc,0x76)
0x03a84…03aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-------------! ┆
0x03aa0…03ac0 20 20 20 21 20 20 69 6e 66 2e 20 61 62 6f 75 74 20 70 72 6f 6a 65 63 74 20 30 20 20 20 20 20 20 ┆ ! inf. about project 0 ┆
0x03ac0…03ae0 20 20 21 0a 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ! ---------!-----------┆
0x03ae0…03afc 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 ┆-------------------! ┆
0x03afc…03b02 (0xcc,0x77)
0x03b02…03b20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x03b20…03b40 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 ┆ ! ! ┆
0x03b40…03b60 20 20 20 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 0a 73 65 67 ┆ ! seg┆
0x03b60…03b7a 6d 65 6e 74 20 35 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ment 5 !------------┆
0x03b7a…03b80 (0xcc,0x78)
0x03b80…03ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆------------------! ┆
0x03ba0…03bc0 20 20 20 20 21 20 20 69 6e 66 2e 20 61 62 6f 75 74 20 70 72 6f 6a 65 63 74 20 31 20 20 20 20 20 ┆ ! inf. about project 1 ┆
0x03bc0…03be0 20 20 20 21 0a 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ! ---------!----------┆
0x03be0…03c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 00 00 00 00 00 00 00 00 ┆--------------------! ┆
0x03c00…03c06 (30,) (0xcc,0x79)
0x03c06…03c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x03c20…03c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x03c40…03c60 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x03c60…03c7e 20 20 20 20 21 0a 0a 0a 45 61 63 68 20 72 65 63 6f 72 64 20 64 65 73 63 72 69 62 65 73 20 ┆ ! Each record describes ┆
0x03c7e…03c84 (0xcc,0x7a)
0x03c84…03ca0 61 20 70 69 65 63 65 20 6f 66 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 61 ┆a piece of information for a┆
0x03ca0…03cc0 20 70 72 6f 6a 65 63 74 20 6f 72 20 61 20 75 73 65 72 2e 20 54 68 65 0a 72 65 63 6f 72 64 73 20 ┆ project or a user. The records ┆
0x03cc0…03ce0 68 61 76 65 20 74 68 65 20 63 6f 6d 6d 6f 6e 20 66 65 61 74 75 72 65 20 74 68 61 74 20 74 68 65 ┆have the common feature that the┆
0x03ce0…03cfc 20 74 77 6f 20 66 69 72 73 74 20 62 79 74 65 73 20 64 65 73 63 72 69 62 65 20 74 68 ┆ two first bytes describe th┆
0x03cfc…03d02 (0xcc,0x7b)
0x03d02…03d20 65 20 0a 74 79 70 65 20 61 6e 64 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 ┆e type and the length of the ┆
0x03d20…03d40 72 65 63 6f 72 64 2e 0a 54 79 70 65 20 30 20 61 6e 64 20 74 79 70 65 20 32 20 61 72 65 20 73 70 ┆record. Type 0 and type 2 are sp┆
0x03d40…03d60 65 63 69 61 6c 20 72 65 63 6f 72 64 73 2e 20 54 79 70 65 20 30 20 64 65 73 63 72 69 62 65 73 20 ┆ecial records. Type 0 describes ┆
0x03d60…03d7a 74 68 65 20 70 72 6f 6a 65 63 74 73 20 61 6e 64 0a 74 79 70 65 20 32 20 74 68 ┆the projects and type 2 th┆
0x03d7a…03d80 (0xcc,0x7c)
0x03d80…03da0 65 20 75 73 65 72 73 20 77 69 74 68 69 6e 20 74 68 65 20 70 72 6f 6a 65 63 74 73 2e 20 41 6c 6c ┆e users within the projects. All┆
0x03da0…03dc0 20 63 6f 6d 6d 6f 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 6e 64 20 72 65 73 6f 75 72 2d 0a ┆ common information and resour- ┆
0x03dc0…03de0 63 65 73 20 61 72 65 20 67 61 74 68 65 72 65 64 20 75 6e 64 65 72 20 61 20 74 79 70 65 20 30 20 ┆ces are gathered under a type 0 ┆
0x03de0…03e00 72 65 63 6f 72 64 20 61 6e 64 20 61 6c 6c 20 69 6e 66 6f 72 6d 61 74 69 00 00 00 00 00 00 00 00 ┆record and all informati ┆
0x03e00…03e06 (31,) (0xcc,0x7d)
0x03e06…03e20 6f 6e 20 66 6f 72 20 65 61 63 68 20 75 73 65 72 0a 69 73 20 67 61 74 68 65 72 ┆on for each user is gather┆
0x03e20…03e40 65 64 20 75 6e 64 65 72 20 61 20 74 79 70 65 20 32 20 72 65 63 6f 72 64 2e 0a 41 6c 6c 20 69 6e ┆ed under a type 2 record. All in┆
0x03e40…03e60 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 70 72 6f 6a 65 63 74 73 20 61 6e 64 20 75 73 65 ┆formation about projects and use┆
0x03e60…03e7e 72 73 20 61 72 65 20 6e 65 63 65 73 73 61 72 79 20 69 6e 20 74 68 65 20 63 61 74 61 6c 6f ┆rs are necessary in the catalo┆
0x03e7e…03e84 (0xcc,0x7e)
0x03e84…03ea0 67 2c 20 0a 61 6c 6c 20 6f 74 68 65 72 20 74 79 70 65 73 20 6f 66 20 72 65 63 6f 72 ┆g, all other types of recor┆
0x03ea0…03ec0 64 73 20 61 72 65 20 6f 70 74 69 6f 6e 61 6c 2e 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 ┆ds are optional. The following i┆
0x03ec0…03ee0 73 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 72 65 63 6f 72 64 20 74 79 70 65 73 ┆s a list of all the record types┆
0x03ee0…03efc 20 61 6e 64 20 66 6f 72 20 65 61 63 68 20 74 79 70 65 20 74 68 65 20 0a 6d 65 61 6e ┆ and for each type the mean┆
0x03efc…03f02 (0xcc,0x7f)
0x03f02…03f20 69 6e 67 20 6f 66 20 65 61 63 68 20 62 79 74 65 20 28 77 6f 72 64 29 20 6f 66 20 74 68 65 ┆ing of each byte (word) of the┆
0x03f20…03f40 20 72 65 63 6f 72 64 2e 0a 4d 61 6e 79 20 6f 66 20 74 68 65 20 72 65 63 6f 72 64 73 20 61 72 65 ┆ record. Many of the records are┆
0x03f40…03f60 20 63 6f 6e 63 65 72 6e 65 64 20 77 69 74 68 20 64 69 66 66 65 72 65 6e 74 20 63 6c 61 69 6d 73 ┆ concerned with different claims┆
0x03f60…03f7a 20 28 66 6f 72 20 69 6e 73 74 61 6e 63 65 0a 64 69 73 63 20 6f 72 20 64 72 75 ┆ (for instance disc or dru┆
0x03f7a…03f80 (0xcc,0x80)
0x03f80…03fa0 6d 29 20 77 69 74 68 20 62 6f 74 68 20 61 20 73 74 61 6e 64 61 72 64 20 76 61 6c 75 65 20 61 6e ┆m) with both a standard value an┆
0x03fa0…03fc0 64 20 61 20 6d 61 78 69 6d 75 6d 20 76 61 6c 75 65 2c 20 74 68 65 72 65 66 6f 72 65 0a 74 68 65 ┆d a maximum value, therefore the┆
0x03fc0…03fe0 20 72 65 63 6f 72 64 20 74 79 70 65 73 20 63 61 6e 20 61 73 73 75 6d 65 20 74 77 6f 20 76 61 6c ┆ record types can assume two val┆
0x03fe0…04000 75 65 73 20 61 6e 20 65 76 65 6e 20 69 6e 74 65 67 65 72 20 69 66 20 73 00 00 00 00 00 00 00 00 ┆ues an even integer if s ┆
0x04000…04006 (32,) (0xcc,0x81)
0x04006…04020 74 61 6e 64 61 72 64 20 76 61 2d 0a 6c 75 65 73 20 61 72 65 20 75 73 65 64 20 ┆tandard va- lues are used ┆
0x04020…04040 61 6e 64 20 61 6e 20 6f 64 64 20 69 6e 74 65 67 65 72 20 69 66 20 6d 61 78 69 6d 75 6d 20 76 61 ┆and an odd integer if maximum va┆
0x04040…04060 6c 75 65 73 20 61 72 65 20 75 73 65 64 2e 20 49 66 20 6f 6e 6c 79 20 6f 6e 65 0a 6f 66 20 74 68 ┆lues are used. If only one of th┆
0x04060…0407e 65 20 74 77 6f 20 74 79 70 65 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 68 65 20 72 65 ┆e two types can be used the re┆
0x0407e…04084 (0xcc,0x82)
0x04084…040a0 63 6f 72 64 20 69 73 20 6d 61 72 6b 65 64 20 77 69 74 68 20 61 20 2a 2e 0a 4d 6f 72 ┆cord is marked with a *. Mor┆
0x040a0…040c0 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 63 61 74 61 6c 6f 67 20 ┆e information about the catalog ┆
0x040c0…040e0 63 61 6e 20 62 65 20 66 6f 75 6e 64 20 69 6e 20 72 65 66 31 20 63 68 34 20 70 32 2d 33 2c 20 72 ┆can be found in ref1 ch4 p2-3, r┆
0x040e0…040fc 65 66 32 20 0a 63 68 31 20 70 31 2d 33 20 61 6e 64 20 72 65 66 33 20 63 68 37 2e 0a ┆ef2 ch1 p1-3 and ref3 ch7. ┆
0x040fc…04102 (0xcc,0x83)
0x04102…04120 0c 0a 20 20 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bbj 9 9 76 ┆
0x04120…04140 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 73 20 69 6e 20 74 68 65 20 63 61 74 61 6c 6f 67 20 20 ┆ records in the catalog ┆
0x04140…04160 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 33 2e 2e 2e 20 20 20 20 0a 0a 20 0a 0a 20 20 ┆ catupdate ...3... ┆
0x04160…0417a 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0417a…04180 (0xcc,0x84)
0x04180…041a0 20 52 65 63 6f 72 64 2d 74 79 70 65 73 20 69 6e 20 74 68 65 20 63 61 74 61 6c 6f 67 0a 0a 2a 20 ┆ Record-types in the catalog * ┆
0x041a0…041c0 74 79 70 65 20 30 20 20 20 20 20 20 20 20 20 70 72 6f 6a 65 63 74 0a 0a 20 20 20 2d 20 30 20 2d ┆type 0 project - 0 -┆
0x041c0…041e0 20 20 20 20 20 20 20 20 20 30 2c 20 31 32 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 ┆ 0, 12 - 2 - ┆
0x041e0…04200 70 72 6f 6a 65 63 74 20 6e 75 6d 62 65 72 0a 20 20 20 2d 20 34 20 2d 20 00 00 00 00 00 00 00 00 ┆project number - 4 - ┆
0x04200…04206 (33,) (0xcc,0x85)
0x04206…04220 20 20 20 20 20 20 20 20 6d 61 78 2d 69 6e 74 65 72 76 61 6c 0a 20 20 20 2d 20 ┆ max-interval - ┆
0x04220…04240 38 20 2d 20 20 20 20 20 20 20 20 20 72 65 73 74 20 65 6e 74 72 69 65 73 2c 20 20 72 65 73 74 20 ┆8 - rest entries, rest ┆
0x04240…04260 73 6c 69 63 65 73 20 6f 6e 20 64 69 73 63 0a 20 20 2d 20 31 30 20 2d 20 20 20 20 20 20 20 20 20 ┆slices on disc - 10 - ┆
0x04260…0427e 74 6f 74 61 6c 20 65 6e 74 72 69 65 73 2c 20 74 6f 74 61 6c 20 73 6c 69 63 65 73 20 6f 6e ┆total entries, total slices on┆
0x0427e…04284 (0xcc,0x86)
0x04284…042a0 20 64 69 73 63 0a 0a 2a 20 74 79 70 65 20 32 20 20 20 20 20 20 20 20 20 75 73 65 72 ┆ disc * type 2 user┆
0x042a0…042c0 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 32 2c 20 31 36 0a 20 20 20 2d 20 32 20 ┆ - 0 - 2, 16 - 2 ┆
0x042c0…042e0 2d 20 20 20 20 20 20 20 20 20 75 73 65 72 20 6e 61 6d 65 20 28 38 20 62 79 74 65 73 29 0a 20 20 ┆- user name (8 bytes) ┆
0x042e0…042fc 2d 20 31 30 20 2d 20 20 20 20 20 20 20 20 20 75 73 65 72 20 69 6e 74 65 72 76 61 6c ┆- 10 - user interval┆
0x042fc…04302 (0xcc,0x87)
0x04302…04320 20 73 74 61 72 74 0a 20 20 2d 20 31 32 20 2d 20 20 20 20 20 20 20 20 20 73 74 61 6e 64 61 ┆ start - 12 - standa┆
0x04320…04340 72 64 20 69 6e 74 65 72 76 61 6c 20 6c 65 6e 67 74 68 0a 20 20 2d 20 31 34 20 2d 20 20 20 20 20 ┆rd interval length - 14 - ┆
0x04340…04360 20 20 20 20 6e 75 6d 62 65 72 20 6f 66 20 75 73 65 72 20 69 6e 64 69 63 65 73 0a 0a 2a 20 74 79 ┆ number of user indices * ty┆
0x04360…0437a 70 65 20 34 0a 20 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 34 2c ┆pe 4 - 0 - 4,┆
0x0437a…04380 (0xcc,0x88)
0x04380…043a0 20 36 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 20 76 61 6c ┆ 6 - 2 - standard val┆
0x043a0…043c0 75 65 20 6f 66 20 70 72 69 6f 72 69 74 79 0a 20 20 20 2d 20 34 20 2d 20 20 20 20 20 20 20 20 20 ┆ue of priority - 4 - ┆
0x043c0…043e0 6d 69 6e 69 6d 75 6d 20 76 61 6c 75 65 20 6f 66 20 6c 61 74 65 0a 0a 2a 20 74 79 70 65 20 36 20 ┆minimum value of late * type 6 ┆
0x043e0…04400 20 20 20 20 20 20 20 20 70 72 69 76 61 74 65 20 64 69 73 63 20 6b 69 74 00 00 00 00 00 00 00 00 ┆ private disc kit ┆
0x04400…04406 (34,) (0xcc,0x89)
0x04406…04420 73 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 36 2c 20 31 32 0a ┆s - 0 - 6, 12 ┆
0x04420…04440 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 64 65 76 69 63 65 20 6e 61 6d 65 0a 20 20 2d ┆ - 2 - device name -┆
0x04440…04460 20 31 30 20 2d 20 20 20 20 20 20 20 20 20 72 65 73 74 20 65 6e 74 72 69 65 73 2c 20 20 72 65 73 ┆ 10 - rest entries, res┆
0x04460…0447e 74 20 73 6c 69 63 65 73 0a 20 20 2d 20 31 32 20 2d 20 20 20 20 20 20 20 20 20 74 6f 74 61 ┆t slices - 12 - tota┆
0x0447e…04484 (0xcc,0x8a)
0x04484…044a0 6c 20 65 6e 74 72 69 65 73 2c 20 74 6f 74 61 6c 20 73 6c 69 63 65 73 0a 0a 0a 20 20 ┆l entries, total slices ┆
0x044a0…044c0 74 79 70 65 20 38 0a 20 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 38 20 2c 20 36 0a ┆type 8 - 0 - 8 , 6 ┆
0x044c0…044e0 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 66 69 72 73 74 20 77 6f 72 64 20 77 69 74 68 ┆ - 2 - first word with┆
0x044e0…044fc 20 64 65 76 69 63 65 20 62 69 74 73 0a 20 20 20 2d 20 34 20 2d 20 20 20 20 20 20 20 ┆ device bits - 4 - ┆
0x044fc…04502 (0xcc,0x8b)
0x04502…04520 20 20 73 65 63 6f 6e 64 20 77 6f 72 64 20 20 2d 20 20 20 20 2d 20 20 20 20 20 20 2d 0a 0a ┆ second word - - - ┆
0x04520…04540 20 20 74 79 70 65 20 31 30 20 20 20 20 20 20 20 20 61 63 63 6f 75 6e 74 73 20 20 20 20 20 20 20 ┆ type 10 accounts ┆
0x04540…04560 20 20 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 32 29 0a 0a 20 20 20 2d 20 30 20 ┆ (ref1, ch2, p2) - 0 ┆
0x04560…0457a 2d 20 20 20 20 20 20 20 20 20 31 30 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 ┆- 10, 4 - 2 - ┆
0x0457a…04580 (0xcc,0x8c)
0x04580…045a0 20 20 20 20 20 20 20 6e 75 6d 62 65 72 20 6f 66 20 61 63 63 6f 75 6e 74 20 62 75 66 66 65 72 73 ┆ number of account buffers┆
0x045a0…045c0 0a 0a 20 20 74 79 70 65 20 31 32 20 20 20 20 20 20 20 20 61 72 65 61 20 70 72 6f 63 65 73 73 65 ┆ type 12 area processe┆
0x045c0…045e0 73 20 20 20 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 32 29 0a 0a 20 20 20 2d 20 ┆s (ref1, ch2, p2) - ┆
0x045e0…04600 30 20 2d 20 20 20 20 20 20 20 20 20 31 32 2c 20 34 0a 20 20 20 2d 20 32 00 00 00 00 00 00 00 00 ┆0 - 12, 4 - 2 ┆
0x04600…04606 (35,) (0xcc,0x8d)
0x04606…04620 20 2d 20 20 20 20 20 20 20 20 20 61 72 65 61 20 63 6c 61 69 6d 0a 0a 20 20 74 ┆ - area claim t┆
0x04620…04640 79 70 65 20 31 34 20 20 20 20 20 20 20 20 6d 65 73 73 2e 20 62 75 66 66 65 72 20 20 20 20 20 20 ┆ype 14 mess. buffer ┆
0x04640…04660 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 33 29 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 ┆ (ref1, ch2, p3) - 0 - ┆
0x04660…0467e 20 20 20 20 20 31 34 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 62 75 ┆ 14, 4 - 2 - bu┆
0x0467e…04684 (0xcc,0x8e)
0x04684…046a0 66 66 65 72 20 63 6c 61 69 6d 0a 0a 20 20 74 79 70 65 20 31 36 20 20 20 20 20 20 20 ┆ffer claim type 16 ┆
0x046a0…046c0 20 63 6f 6e 76 65 72 74 20 6f 70 65 72 61 74 69 6f 6e 73 20 20 20 20 20 28 72 65 66 31 2c 20 63 ┆ convert operations (ref1, c┆
0x046c0…046e0 68 32 2c 20 70 33 29 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 31 36 2c 20 34 0a ┆h2, p3) - 0 - 16, 4 ┆
0x046e0…046fc 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 63 62 75 66 20 63 6c 61 69 6d 0a ┆ - 2 - cbuf claim ┆
0x046fc…04702 (0xcc,0x8f)
0x04702…04720 0c 0a 20 20 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bbj 9 9 76 ┆
0x04720…04740 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 73 20 69 6e 20 74 68 65 20 63 61 74 61 6c 6f 67 20 20 ┆ records in the catalog ┆
0x04740…04760 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 34 2e 2e 2e 20 20 20 20 0a 0a 20 20 74 79 70 ┆ catupdate ...4... typ┆
0x04760…0477a 65 20 31 38 20 20 20 20 20 20 20 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 ┆e 18 internal proce┆
0x0477a…04780 (0xcc,0x90)
0x04780…047a0 73 73 65 73 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 33 29 0a 0a 20 20 20 2d 20 30 ┆sses (ref1, ch2, p3) - 0┆
0x047a0…047c0 20 2d 20 20 20 20 20 20 20 20 20 31 38 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 ┆ - 18, 4 - 2 - ┆
0x047c0…047e0 20 20 69 6e 74 65 72 6e 61 6c 20 63 6c 61 69 6d 0a 0a 20 20 74 79 70 65 20 32 30 20 20 20 20 20 ┆ internal claim type 20 ┆
0x047e0…04800 20 20 20 6b 65 79 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ keys ┆
0x04800…04806 (36,) (0xcc,0x91)
0x04806…04820 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 34 29 0a 0a 20 20 20 2d 20 30 20 ┆ (ref1, ch2, p4) - 0 ┆
0x04820…04840 2d 20 20 20 20 20 20 20 20 20 32 30 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 ┆- 20, 4 - 2 - ┆
0x04840…04860 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 74 65 63 74 69 6f 6e 20 6b 65 79 73 0a 0a 20 20 74 79 ┆ number of protection keys ty┆
0x04860…0487e 70 65 20 32 32 20 20 20 20 20 20 20 20 6d 6f 75 6e 74 73 20 20 20 20 20 20 20 20 20 20 20 ┆pe 22 mounts ┆
0x0487e…04884 (0xcc,0x92)
0x04884…048a0 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 35 29 0a 0a 20 20 20 2d 20 ┆ (ref1, ch2, p5) - ┆
0x048a0…048c0 30 20 2d 20 20 20 20 20 20 20 20 20 32 32 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 ┆0 - 22, 4 - 2 - ┆
0x048c0…048e0 20 20 20 6e 75 6d 62 65 72 20 6f 66 20 6d 6f 75 6e 74 73 0a 0a 20 20 74 79 70 65 20 32 34 20 20 ┆ number of mounts type 24 ┆
0x048e0…048fc 20 20 20 20 20 20 6f 75 74 70 75 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ output ┆
0x048fc…04902 (0xcc,0x93)
0x04902…04920 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 36 29 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 ┆ (ref1, ch2, p6) - 0 - ┆
0x04920…04940 20 20 20 20 20 32 34 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 6e 75 6d 62 ┆ 24, 4 - 2 - numb┆
0x04940…04960 65 72 20 6f 66 20 6f 75 74 70 75 74 20 63 68 61 72 61 63 74 65 72 73 0a 0a 20 20 74 79 70 65 20 ┆er of output characters type ┆
0x04960…0497a 32 36 20 20 20 20 20 20 20 20 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 ┆26 size ┆
0x0497a…04980 (0xcc,0x94)
0x04980…049a0 20 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 37 29 0a 0a 20 20 20 2d 20 30 20 2d ┆ (ref1, ch2, p7) - 0 -┆
0x049a0…049c0 20 20 20 20 20 20 20 20 20 32 36 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 ┆ 26, 4 - 2 - ┆
0x049c0…049e0 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 6e 20 63 6f 72 65 20 73 74 6f 72 65 0a 0a 20 ┆number of bytes in core store ┆
0x049e0…04a00 20 74 79 70 65 20 32 38 20 20 20 20 20 20 20 20 73 74 61 74 69 6f 6e 73 00 00 00 00 00 00 00 00 ┆ type 28 stations ┆
0x04a00…04a06 (37,) (0xcc,0x95)
0x04a06…04a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c ┆ (ref1, ch2,┆
0x04a20…04a40 20 70 37 29 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 32 38 2c 20 34 0a 20 20 20 ┆ p7) - 0 - 28, 4 ┆
0x04a40…04a60 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 6e 75 6d 62 65 72 20 6f 66 20 73 74 61 6e 64 61 72 64 ┆- 2 - number of standard┆
0x04a60…04a7e 20 74 61 70 65 20 73 74 61 74 69 6f 6e 73 0a 0a 0a 20 20 74 79 70 65 20 33 30 20 20 20 20 ┆ tape stations type 30 ┆
0x04a7e…04a84 (0xcc,0x96)
0x04a84…04aa0 20 20 20 20 20 74 61 70 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆ tapes (┆
0x04aa0…04ac0 72 65 66 31 2c 20 63 68 32 2c 20 70 34 29 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 ┆ref1, ch2, p4) - 0 - ┆
0x04ac0…04ae0 20 20 33 30 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 6e 75 6d 62 65 72 ┆ 30, 4 - 2 - number┆
0x04ae0…04afc 20 6f 66 20 70 61 70 65 72 74 61 70 65 73 20 74 6f 20 62 65 20 6c 6f 61 64 65 64 0a ┆ of papertapes to be loaded ┆
0x04afc…04b02 (0xcc,0x97)
0x04b02…04b20 0a 20 20 74 79 70 65 20 33 32 20 20 20 20 20 20 20 20 20 74 69 6d 65 20 20 20 20 20 20 20 ┆ type 32 time ┆
0x04b20…04b40 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 38 29 0a 0a 20 20 20 2d ┆ (ref1, ch2, p8) -┆
0x04b40…04b60 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 33 32 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 ┆ 0 - 32, 4 - 2 - ┆
0x04b60…04b7a 20 20 20 20 20 20 6e 65 74 20 72 75 6e 20 74 69 6d 65 0a 0a 2a 20 74 79 70 65 ┆ net run time * type┆
0x04b7a…04b80 (0xcc,0x98)
0x04b80…04ba0 20 33 34 20 20 20 20 20 20 20 20 20 75 73 65 72 20 77 69 74 68 20 75 73 65 72 70 6f 6f 6c 0a 20 ┆ 34 user with userpool ┆
0x04ba0…04bc0 20 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 33 34 2c 20 31 30 0a 20 20 20 2d 20 ┆ - 0 - 34, 10 - ┆
0x04bc0…04be0 32 20 2d 20 20 20 20 20 20 20 20 20 20 75 73 65 72 20 6d 61 78 20 69 6e 74 65 72 76 61 6c 0a 20 ┆2 - user max interval ┆
0x04be0…04c00 20 20 2d 20 36 20 2d 20 20 20 20 20 20 20 20 20 20 72 65 73 74 20 65 6e 00 00 00 00 00 00 00 00 ┆ - 6 - rest en ┆
0x04c00…04c06 (38,) (0xcc,0x99)
0x04c06…04c20 74 72 69 65 73 2c 20 72 65 73 74 20 73 6c 69 63 65 73 0a 20 20 20 2d 20 38 20 ┆tries, rest slices - 8 ┆
0x04c20…04c40 2d 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 20 65 6e 74 72 69 65 73 2c 20 74 6f 74 61 6c 20 ┆- total entries, total ┆
0x04c40…04c60 73 6c 69 63 65 73 0a 0a 2a 20 74 79 70 65 20 33 36 20 20 20 20 20 20 20 20 20 64 72 75 6d 2c 20 ┆slices * type 36 drum, ┆
0x04c60…04c7e 6b 65 79 20 31 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 33 36 2c 20 34 ┆key 1 - 0 - 36, 4┆
0x04c7e…04c84 (0xcc,0x9a)
0x04c84…04ca0 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 2c 20 ┆ - 2 - entries, ┆
0x04ca0…04cc0 73 6c 69 63 65 73 0a 0a 2a 20 74 79 70 65 20 33 38 20 20 20 20 20 20 20 20 20 64 69 73 63 2c 20 ┆slices * type 38 disc, ┆
0x04cc0…04ce0 6b 65 79 20 31 0a 20 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 33 38 2c 20 34 0a ┆key 1 - 0 - 38, 4 ┆
0x04ce0…04cfc 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 2c 20 73 ┆ - 2 - entries, s┆
0x04cfc…04d02 (0xcc,0x9b)
0x04d02…04d20 6c 69 63 65 73 0a 0c 0a 20 20 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 ┆lices bbj 9 9 76 ┆
0x04d20…04d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 73 20 69 6e 20 74 68 65 20 63 61 74 ┆ records in the cat┆
0x04d40…04d60 61 6c 6f 67 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 35 2e 2e 2e 20 20 20 20 0a ┆alog catupdate ...5... ┆
0x04d60…04d7a 0a 2a 20 74 79 70 65 20 34 30 20 20 20 20 20 20 20 20 20 64 69 73 63 2c 20 6b ┆ * type 40 disc, k┆
0x04d7a…04d80 (0xcc,0x9c)
0x04d80…04da0 65 79 20 33 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 34 30 2c 20 34 0a 20 20 ┆ey 3 - 0 - 40, 4 ┆
0x04da0…04dc0 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 0a ┆ - 2 - entries, slices ┆
0x04dc0…04de0 0a 2a 20 74 79 70 65 20 34 32 20 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 20 69 64 65 6e 74 69 ┆ * type 42 output identi┆
0x04de0…04e00 66 69 63 61 74 69 6f 6e 0a 20 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆fication - 0 - ┆
0x04e00…04e06 (39,) (0xcc,0x9d)
0x04e06…04e20 20 20 20 20 20 34 32 20 2c 20 76 61 72 69 61 62 6c 65 20 6c 65 6e 67 74 68 0a ┆ 42 , variable length ┆
0x04e20…04e40 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 75 73 65 72 20 6e 61 6d 65 20 61 6e 64 20 ┆ - 2 - user name and ┆
0x04e40…04e60 61 64 64 72 65 73 73 0a 0a 2a 20 74 79 70 65 20 34 34 20 20 20 20 20 20 20 20 20 64 72 75 6d 2c ┆address * type 44 drum,┆
0x04e60…04e7e 20 6b 65 79 20 33 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 34 34 2c 20 ┆ key 3 - 0 - 44, ┆
0x04e7e…04e84 (0xcc,0x9e)
0x04e84…04ea0 36 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 72 65 73 74 20 65 6e 74 ┆6 - 2 - rest ent┆
0x04ea0…04ec0 72 69 65 73 2c 20 20 72 65 73 74 20 73 6c 69 63 65 73 0a 20 20 20 2d 20 34 20 2d 20 20 20 20 20 ┆ries, rest slices - 4 - ┆
0x04ec0…04ee0 20 20 20 20 20 74 6f 74 61 6c 20 65 6e 74 72 69 65 73 2c 20 74 6f 74 61 6c 20 73 6c 69 63 65 73 ┆ total entries, total slices┆
0x04ee0…04efc 0a 0a 2a 20 74 79 70 65 20 34 36 20 20 20 20 20 20 20 20 20 64 72 75 6d 2c 20 6b 65 ┆ * type 46 drum, ke┆
0x04efc…04f02 (0xcc,0x9f)
0x04f02…04f20 79 20 33 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 34 36 2c 20 34 0a 20 ┆y 3 - 0 - 46, 4 ┆
0x04f20…04f40 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 75 73 65 72 20 65 6e 74 72 69 65 73 2c 20 73 ┆ - 2 - user entries, s┆
0x04f40…04f60 6c 69 63 65 73 0a 0a 2a 20 74 79 70 65 20 34 38 20 20 20 20 20 20 20 20 20 73 70 65 63 69 61 6c ┆lices * type 48 special┆
0x04f60…04f7a 20 64 65 76 69 63 65 2c 20 6b 65 79 20 33 0a 0a 20 20 20 2d 20 30 20 2d 20 20 ┆ device, key 3 - 0 - ┆
0x04f7a…04f80 (0xcc,0xa0)
0x04f80…04fa0 20 20 20 20 20 20 20 20 34 38 2c 20 31 32 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 ┆ 48, 12 - 2 - ┆
0x04fa0…04fc0 20 64 65 76 69 63 65 20 6e 61 6d 65 0a 20 20 2d 20 31 30 20 2d 20 20 20 20 20 20 20 20 20 20 75 ┆ device name - 10 - u┆
0x04fc0…04fe0 73 65 72 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 0a 0a 2a 20 74 79 70 65 20 35 30 20 20 ┆ser entries, slices * type 50 ┆
0x04fe0…05000 20 20 20 20 20 20 20 6d 61 78 20 74 75 72 6e 20 61 72 6f 75 6e 64 20 74 00 00 00 00 00 00 00 00 ┆ max turn around t ┆
0x05000…05006 (40,) (0xcc,0xa1)
0x05006…05020 69 6d 65 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 34 29 0a 0a 20 20 20 2d ┆ime (ref1, ch2, p4) -┆
0x05020…05040 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 35 30 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 ┆ 0 - 50, 4 - 2 - ┆
0x05040…05060 20 20 20 20 20 20 6d 61 78 69 6d 75 6d 20 77 61 69 74 0a 0a 0a 20 20 74 79 70 65 20 35 32 20 20 ┆ maximum wait type 52 ┆
0x05060…0507e 20 20 20 20 20 20 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 61 63 63 6f 75 6e 74 ┆ information for account┆
0x0507e…05084 (0xcc,0xa2)
0x05084…050a0 6a 6f 62 0a 20 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 35 32 2c 20 ┆job - 0 - 52, ┆
0x050a0…050c0 31 36 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 ┆16 - 2 - ┆
0x050c0…050e0 20 20 20 20 20 20 20 20 70 72 6f 6a 65 63 74 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 69 ┆ project identification i┆
0x050e0…050fc 6e 20 74 65 78 74 66 6f 72 6d 0a 20 20 2d 20 31 34 20 2d 0a 0a 2a 20 74 79 70 65 20 ┆n textform - 14 - * type ┆
0x050fc…05102 (0xcc,0xa3)
0x05102…05120 35 34 20 20 20 20 20 20 20 20 20 70 72 6f 67 72 61 6d 0a 0a 20 20 20 2d 20 30 20 2d 20 20 ┆54 program - 0 - ┆
0x05120…05140 20 20 20 20 20 20 20 20 35 34 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 ┆ 54, 4 - 2 - ┆
0x05140…05160 6e 61 6d 65 20 6f 66 20 70 72 6f 67 72 61 6d 20 74 6f 20 62 65 20 6c 6f 61 64 65 64 0a 0a 20 20 ┆name of program to be loaded ┆
0x05160…0517a 74 79 70 65 20 35 36 20 20 20 20 20 20 20 20 20 61 76 61 69 6c 61 62 6c 65 20 ┆type 56 available ┆
0x0517a…05180 (0xcc,0xa4)
0x05180…051a0 73 75 73 70 65 6e 64 20 62 75 66 66 65 72 73 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 37 29 0a ┆suspend buffers (ref1, ch2, p7) ┆
0x051a0…051c0 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 35 36 2c 20 34 0a 20 20 20 2d 20 32 20 ┆ - 0 - 56, 4 - 2 ┆
0x051c0…051e0 2d 20 20 20 20 20 20 20 20 20 20 73 75 73 70 65 6e 64 69 6e 67 73 0a 0a 20 20 74 79 70 65 20 35 ┆- suspendings type 5┆
0x051e0…05200 38 20 20 20 20 20 20 20 20 20 6f 6e 6c 69 6e 65 0a 20 0a 20 20 20 2d 20 00 00 00 00 00 00 00 00 ┆8 online - ┆
0x05200…05206 (41,) (0xcc,0xa5)
0x05206…05220 30 20 2d 20 20 20 20 20 20 20 20 20 20 35 38 2c 20 34 0a 20 20 20 2d 20 32 20 ┆0 - 58, 4 - 2 ┆
0x05220…05240 2d 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 73 61 74 69 6f 6e 61 6c 20 6a 6f 62 73 20 61 ┆- conversational jobs a┆
0x05240…05260 6c 6c 6f 77 65 64 20 28 30 29 20 2f 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 28 31 29 0a 0a 20 20 ┆llowed (0) / not allowed (1) ┆
0x05260…0527e 74 79 70 65 20 36 30 20 20 20 20 20 20 20 20 20 63 6f 72 65 6c 6f 63 6b 20 20 20 20 20 20 ┆type 60 corelock ┆
0x0527e…05284 (0xcc,0xa6)
0x05284…052a0 20 20 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 33 29 0a 0a 20 20 20 ┆ (ref1, ch2, p3) ┆
0x052a0…052c0 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 36 30 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 ┆- 0 - 60, 4 - 2 - ┆
0x052c0…052e0 20 20 20 20 20 20 20 63 6f 72 65 6c 6f 63 6b 20 74 69 6d 65 0a 0c 0a 20 20 20 20 62 62 6a 20 20 ┆ corelock time bbj ┆
0x052e0…052fc 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 ┆ 9 9 76 r┆
0x052fc…05302 (0xcc,0xa7)
0x05302…05320 65 63 6f 72 64 73 20 69 6e 20 74 68 65 20 63 61 74 61 6c 6f 67 20 20 20 20 20 63 61 74 75 ┆ecords in the catalog catu┆
0x05320…05340 70 64 61 74 65 20 20 2e 2e 2e 36 2e 2e 2e 20 20 20 20 0a 0a 20 20 74 79 70 65 20 36 32 20 20 20 ┆pdate ...6... type 62 ┆
0x05340…05360 20 20 20 20 20 20 64 65 67 72 65 65 20 6f 66 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 72 65 66 ┆ degree of information (ref┆
0x05360…0537a 31 2c 20 63 68 32 2c 20 70 35 29 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 ┆1, ch2, p5) - 0 - ┆
0x0537a…05380 (0xcc,0xa8)
0x05380…053a0 20 20 20 20 20 36 32 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 20 6d 69 6e ┆ 62, 4 - 2 - min┆
0x053a0…053c0 69 6d 61 6c 20 79 65 73 20 28 31 29 20 2f 20 6e 6f 20 28 30 29 0a 0a 20 20 74 79 70 65 20 36 34 ┆imal yes (1) / no (0) type 64┆
0x053c0…053e0 20 20 20 20 20 20 20 20 20 70 72 69 6f 72 69 74 79 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 ┆ priority - 0 - ┆
0x053e0…05400 20 20 20 20 20 36 34 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ 64, 4 - 2 - ┆
0x05400…05406 (42,) (0xcc,0xa9)
0x05406…05420 20 20 20 20 20 73 74 61 72 74 20 70 72 69 6f 72 69 74 79 20 66 61 63 74 6f 72 ┆ start priority factor┆
0x05420…05440 0a 0a 20 20 74 79 70 65 20 36 36 20 20 20 20 20 20 20 20 20 64 65 6c 69 62 65 72 61 74 65 20 77 ┆ type 66 deliberate w┆
0x05440…05460 61 69 74 69 6e 67 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 38 29 0a 0a 20 20 20 2d 20 ┆aiting (ref1, ch2, p8) - ┆
0x05460…0547e 30 20 2d 20 20 20 20 20 20 20 20 20 20 36 36 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 ┆0 - 66, 4 - 2 - ┆
0x0547e…05484 (0xcc,0xaa)
0x05484…054a0 20 20 20 20 20 20 20 6d 61 78 69 6d 75 6d 20 77 61 69 74 20 74 69 6d 65 0a 0a 20 20 ┆ maximum wait time ┆
0x054a0…054c0 74 79 70 65 20 36 38 20 20 20 20 20 20 20 20 20 63 61 74 61 6c 6f 67 20 70 72 65 73 65 72 76 61 ┆type 68 catalog preserva┆
0x054c0…054e0 74 69 6f 6e 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 36 29 0a 0a 20 20 20 2d 20 30 20 2d 20 ┆tion (ref1, ch2, p6) - 0 - ┆
0x054e0…054fc 20 20 20 20 20 20 20 20 20 36 38 2c 20 34 0a 20 20 20 2d 20 32 20 2d 20 20 20 20 20 ┆ 68, 4 - 2 - ┆
0x054fc…05502 (0xcc,0xab)
0x05502…05520 20 20 20 20 20 70 72 65 73 65 72 76 65 20 79 65 73 20 28 31 29 20 2f 20 6e 6f 20 28 30 29 ┆ preserve yes (1) / no (0)┆
0x05520…05540 0a 0a 20 20 0a 20 20 74 79 70 65 20 37 30 20 20 20 20 20 20 20 20 20 74 65 72 6d 69 6e 61 6c 20 ┆ type 70 terminal ┆
0x05540…05560 75 73 65 72 20 72 69 67 68 74 73 20 28 70 72 69 76 69 6c 65 67 65 73 29 0a 0a 20 20 20 2d 20 30 ┆user rights (privileges) - 0┆
0x05560…0557a 20 2d 20 20 20 20 20 20 20 20 20 20 37 30 2c 20 34 0a 20 20 20 2d 20 32 20 2d ┆ - 70, 4 - 2 -┆
0x0557a…05580 (0xcc,0xac)
0x05580…055a0 20 20 20 20 20 20 20 20 20 20 70 72 69 76 69 6c 65 67 65 2d 62 69 74 73 0a 20 0a 20 20 20 74 79 ┆ privilege-bits ty┆
0x055a0…055c0 70 65 20 37 32 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 0a 0a 20 20 20 20 2d 20 30 20 2d 20 20 20 ┆pe 72 link - 0 - ┆
0x055c0…055e0 20 20 20 20 20 20 37 32 2c 34 0a 20 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 20 6e 6f 2e ┆ 72,4 - 2 - no.┆
0x055e0…05600 20 6f 66 20 73 69 6d 75 6c 74 61 6e 65 6f 75 73 20 75 73 65 64 20 6c 69 00 00 00 00 00 00 00 00 ┆ of simultaneous used li ┆
0x05600…05606 (43,) (0xcc,0xad)
0x05606…05620 6e 6b 73 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 66 65 72 ┆nks Refer┆
0x05620…05640 65 6e 63 65 73 0a 0a 28 31 29 20 20 42 6f 73 73 20 32 20 55 73 65 72 73 20 4d 61 6e 75 61 6c 0a ┆ences (1) Boss 2 Users Manual ┆
0x05640…05660 28 32 29 20 20 4d 6f 6e 69 74 6f 72 20 33 0a 28 33 29 20 20 42 6f 73 73 20 32 20 49 6e 73 74 61 ┆(2) Monitor 3 (3) Boss 2 Insta┆
0x05660…0567e 6c 6c 61 74 69 6f 6e 20 61 6e 64 20 4d 61 69 6e 74 65 6e 61 6e 63 65 0a 20 20 0a 20 20 0a ┆llation and Maintenance ┆
0x0567e…05684 (0xcc,0xae)
0x05684…056a0 2a 3e 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 ┆*> <* bbj 9 9 76 ┆
0x056a0…056c0 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 20 20 20 20 20 20 ┆ declarations ┆
0x056c0…056e0 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 37 2e 2e 2e 20 20 2a 3e 0a 0a ┆ catupdate ...7... *> ┆
0x056e0…056fc 0a 72 65 61 6c 20 61 72 72 61 79 20 20 20 20 20 74 72 61 6e 73 6e 61 6d 65 2c 20 76 ┆ real array transname, v┆
0x056fc…05702 (0xcc,0xaf)
0x05702…05720 61 72 74 72 61 6e 73 6e 61 6d 65 2c 20 6e 65 77 63 61 74 6e 61 6d 65 20 28 31 3a 32 29 3b ┆artransname, newcatname (1:2);┆
0x05720…05740 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 6d 61 78 5f 64 65 76 69 63 65 6e 75 6d 62 65 72 ┆ integer max_devicenumber┆
0x05740…05760 2c 20 6d 61 78 5f 6f 70 74 69 6f 6e 2c 20 6d 61 78 5f 72 65 63 6f 72 64 5f 74 79 70 65 2c 0a 20 ┆, max_option, max_record_type, ┆
0x05760…0577a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 6b 73 69 7a 65 2c 0a 20 20 ┆ worksize, ┆
0x0577a…05780 (0xcc,0xb0)
0x05780…057a0 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 64 5f 75 73 65 72 63 61 74 5f 69 6e 64 65 78 2c 20 ┆ std_usercat_index, ┆
0x057a0…057c0 6d 61 78 5f 6e 6f 5f 6f 66 5f 64 69 73 63 6b 69 74 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆max_no_of_disckits, ┆
0x057c0…057e0 20 20 20 69 6e 74 65 72 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 2c 20 76 61 72 6c 65 6e 67 74 68 ┆ intervaltable_size, varlength┆
0x057e0…05800 2c 20 6d 61 78 6c 65 6e 67 74 68 2c 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆, maxlength, ┆
0x05800…05806 (44,) (0xcc,0xb1)
0x05806…05820 20 20 20 20 6e 6f 5f 6f 66 5f 74 72 61 6e 73 2c 20 6e 6f 5f 6f 66 5f 76 61 72 ┆ no_of_trans, no_of_var┆
0x05820…05840 74 72 61 6e 73 2c 20 6e 6f 5f 6f 66 5f 70 72 69 76 6b 69 74 73 2c 0a 20 20 20 20 20 20 20 20 20 ┆trans, no_of_privkits, ┆
0x05840…05860 20 20 20 20 20 20 6e 6f 5f 6f 66 5f 70 72 69 76 5f 64 69 73 63 64 72 69 76 65 73 3b 0a 62 6f 6f ┆ no_of_priv_discdrives; boo┆
0x05860…0587e 6c 65 61 6e 20 20 20 20 20 20 20 20 6e 6f 6f 6c 64 63 61 74 2c 20 6c 65 66 74 73 69 64 65 ┆lean nooldcat, leftside┆
0x0587e…05884 (0xcc,0xb2)
0x05884…058a0 2c 20 75 70 64 61 74 65 74 65 73 74 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 64 65 66 69 6e ┆, updatetest; comment defin┆
0x058a0…058c0 69 74 69 6f 6e 73 20 6f 66 20 73 74 61 6e 64 61 72 64 2d 76 61 6c 75 65 73 20 2e 2e 2e 20 6d 61 ┆itions of standard-values ... ma┆
0x058c0…058e0 79 20 62 65 20 63 68 61 6e 67 65 64 3b 0a 0a 6d 61 78 5f 64 65 76 69 63 65 6e 75 6d 62 65 72 20 ┆y be changed; max_devicenumber ┆
0x058e0…058fc 3a 3d 20 34 37 3b 20 20 63 6f 6d 6d 65 6e 74 20 6c 65 6e 67 74 68 20 6f 66 20 64 65 ┆:= 47; comment length of de┆
0x058fc…05902 (0xcc,0xb3)
0x05902…05920 76 69 63 65 6c 69 73 74 3b 0a 6d 61 78 5f 6f 70 74 69 6f 6e 20 20 20 20 20 20 20 3a 3d 20 ┆vicelist; max_option := ┆
0x05920…05940 32 36 3b 20 20 63 6f 6d 6d 65 6e 74 20 6c 65 6e 67 74 68 20 6f 66 20 6f 70 74 69 6f 6e 2d 74 61 ┆26; comment length of option-ta┆
0x05940…05960 62 6c 65 3b 0a 6d 61 78 5f 72 65 63 6f 72 64 5f 74 79 70 65 20 20 3a 3d 20 37 32 3b 0a 77 6f 72 ┆ble; max_record_type := 72; wor┆
0x05960…0597a 6b 73 69 7a 65 20 20 20 20 20 20 20 20 3a 3d 20 20 38 3b 20 20 63 6f 6d 6d 65 ┆ksize := 8; comme┆
0x0597a…05980 (0xcc,0xb4)
0x05980…059a0 6e 74 20 73 69 7a 65 20 6f 66 20 77 6f 72 6b 61 72 65 61 73 3b 0a 73 74 64 5f 75 73 65 72 63 61 ┆nt size of workareas; std_userca┆
0x059a0…059c0 74 5f 69 6e 64 65 78 3a 3d 20 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 6f 66 20 69 6e 64 ┆t_index:= 2; comment no of ind┆
0x059c0…059e0 65 78 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 75 73 65 72 63 61 74 3b 0a 6d 61 78 5f 6e 6f 5f 6f ┆ex segments in usercat; max_no_o┆
0x059e0…05a00 66 5f 64 69 73 63 6b 69 74 73 3a 3d 35 30 3b 20 20 63 6f 6d 6d 65 6e 74 00 00 00 00 00 00 00 00 ┆f_disckits:=50; comment ┆
0x05a00…05a06 (45,) (0xcc,0xb5)
0x05a06…05a20 20 6c 65 6e 67 74 68 20 6f 66 20 6b 69 74 74 61 62 6c 65 3b 0a 69 6e 74 65 72 ┆ length of kittable; inter┆
0x05a20…05a40 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 20 3a 3d 20 32 30 30 3b 0a 20 20 63 6f 6d 6d 65 6e 74 20 ┆valtable_size := 200; comment ┆
0x05a40…05a60 69 2e 65 2e 20 6d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 6a 65 63 74 73 20 2b 20 67 72 ┆i.e. max number of projects + gr┆
0x05a60…05a7e 65 61 74 65 73 74 20 6e 6f 20 6f 66 20 75 73 65 72 73 20 69 6e 0a 20 20 20 20 20 20 20 20 ┆eatest no of users in ┆
0x05a7e…05a84 (0xcc,0xb6)
0x05a84…05aa0 20 20 73 69 6e 67 6c 65 20 70 72 6f 6a 65 63 74 3b 0a 76 61 72 6c 65 6e 67 74 68 20 ┆ single project; varlength ┆
0x05aa0…05ac0 20 20 20 20 20 20 20 3a 3d 20 35 31 32 2f 2f 32 3b 0a 20 20 63 6f 6d 6d 65 6e 74 20 6d 61 78 6c ┆ := 512//2; comment maxl┆
0x05ac0…05ae0 65 6e 67 74 68 20 6f 66 20 75 73 65 72 6e 61 6d 65 20 2d 20 31 30 20 28 69 6e 20 62 79 74 65 73 ┆ength of username - 10 (in bytes┆
0x05ae0…05afc 2e 2e 2e 29 3b 0a 75 70 64 61 74 65 74 65 73 74 20 20 20 20 20 20 20 3a 3d 20 74 72 ┆...); updatetest := tr┆
0x05afc…05b02 (0xcc,0xb7)
0x05b02…05b20 75 65 3b 0a 20 20 63 6f 6d 6d 65 6e 74 20 20 74 65 73 74 6f 75 74 70 75 74 20 69 73 20 73 ┆ue; comment testoutput is s┆
0x05b20…05b40 65 6c 65 63 74 65 64 20 62 79 20 74 68 65 20 65 64 69 74 2d 63 6f 6d 6d 61 6e 64 3a 0a 20 20 20 ┆elected by the edit-command: ┆
0x05b40…05b60 20 20 20 20 20 20 20 20 20 20 20 20 67 20 62 2f 63 6f 6d 6d 65 6e 74 20 69 69 66 66 20 75 70 64 ┆ g b/comment iiff upd┆
0x05b60…05b7a 61 74 65 74 65 73 74 2f 69 66 20 75 70 64 61 74 65 74 65 73 74 2f 0a 20 20 3b ┆atetest/if updatetest/ ;┆
0x05b7a…05b80 (0xcc,0xb8)
0x05b80…05ba0 0a 0a 62 65 67 69 6e 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 70 72 69 6e 74 2c 20 6e 6f ┆ begin integer print, no┆
0x05ba0…05bc0 5f 6f 66 5f 64 65 76 69 63 65 73 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 20 64 65 76 69 ┆_of_devices; integer array devi┆
0x05bc0…05be0 63 65 6e 75 6d 62 65 72 28 31 3a 6d 61 78 5f 64 65 76 69 63 65 6e 75 6d 62 65 72 29 3b 0a 6c 6f ┆cenumber(1:max_devicenumber); lo┆
0x05be0…05c00 6e 67 20 20 20 20 61 72 72 61 79 20 20 64 65 76 69 63 65 6e 61 6d 65 28 00 00 00 00 00 00 00 00 ┆ng array devicename( ┆
0x05c00…05c06 (46,) (0xcc,0xb9)
0x05c06…05c20 31 3a 35 29 3b 0a 0a 0a 62 65 67 69 6e 0a 0a 69 6e 74 65 67 65 72 20 20 20 20 ┆1:5); begin integer ┆
0x05c20…05c40 20 20 20 20 70 72 6f 6a 6e 6f 2c 20 75 70 64 61 74 65 69 6e 66 2c 20 75 73 65 72 63 61 74 73 65 ┆ projno, updateinf, usercatse┆
0x05c40…05c60 67 6d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 2c 20 6e 65 75 74 72 61 ┆gm, state, neutra┆
0x05c60…05c7e 6c 73 74 61 74 65 2c 20 70 72 6f 6a 65 63 74 73 74 61 74 65 2c 20 75 73 65 72 73 74 61 74 ┆lstate, projectstate, userstat┆
0x05c7e…05c84 (0xcc,0xba)
0x05c84…05ca0 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 2c 20 ┆e, linetype, ┆
0x05ca0…05cc0 69 6e 6c 69 6e 65 74 79 70 65 2c 20 6c 69 6e 65 6c 65 6e 67 74 68 2c 20 66 72 65 65 70 61 72 61 ┆inlinetype, linelength, freepara┆
0x05cc0…05ce0 6d 2c 20 72 65 63 74 79 70 65 6c 67 74 68 2c 20 74 79 70 65 6f 66 72 65 63 2c 76 61 6c 75 65 6f ┆m, rectypelgth, typeofrec,valueo┆
0x05ce0…05cfc 66 70 61 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 6e 6f ┆fpar, paramno┆
0x05cfc…05d02 (0xcc,0xbb)
0x05d02…05d20 2c 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆, number_of_params, ┆
0x05d20…05d40 20 20 20 20 20 66 69 72 73 74 5f 70 61 72 61 6d 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ first_paramno, ┆
0x05d40…05d60 20 20 20 66 69 72 73 74 5f 66 72 65 65 5f 70 72 6f 6a 2c 20 6c 61 73 74 2c 0a 20 20 20 20 20 20 ┆ first_free_proj, last, ┆
0x05d60…05d7a 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 61 6e 65 6e 74 5f 64 69 73 63 3b 0a ┆ permanent_disc; ┆
0x05d7a…05d80 (0xcc,0xbc)
0x05d80…05da0 0a 6c 6f 6e 67 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 6e 61 6d 65 31 2c 20 75 73 65 72 6e ┆ long username1, usern┆
0x05da0…05dc0 61 6d 65 32 2c 20 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 76 69 63 ┆ame2, name, devic┆
0x05dc0…05de0 65 77 6f 72 64 2c 20 6d 61 78 64 65 76 69 63 65 77 6f 72 64 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 20 ┆eword, maxdeviceword; boolean ┆
0x05de0…05e00 20 20 20 20 20 20 6e 6f 73 6f 75 72 63 65 2c 20 20 6c 69 73 74 2c 20 75 00 00 00 00 00 00 00 00 ┆ nosource, list, u ┆
0x05e00…05e06 (47,) (0xcc,0xbd)
0x05e06…05e20 73 65 72 70 6f 6f 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 ┆serpool, de┆
0x05e20…05e40 76 69 63 65 2c 20 6d 61 78 64 65 76 69 63 65 2c 20 70 72 6f 6a 65 63 74 3b 0a 0a 69 6e 74 65 67 ┆vice, maxdevice, project; integ┆
0x05e40…05e60 65 72 20 66 69 65 6c 64 20 20 69 2c 20 6a 2c 20 69 66 32 2c 20 69 66 34 2c 20 69 66 31 32 2c 20 ┆er field i, j, if2, if4, if12, ┆
0x05e60…05e7e 62 61 73 69 73 2c 20 69 6e 74 31 2c 20 69 6e 74 32 2c 20 69 6e 74 33 2c 20 69 6e 74 34 2c ┆basis, int1, int2, int3, int4,┆
0x05e7e…05e84 (0xcc,0xbe)
0x05e84…05ea0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 35 2c 20 69 6e 74 36 2c 20 ┆ int5, int6, ┆
0x05ea0…05ec0 69 6e 74 37 3b 0a 0a 6c 6f 6e 67 20 66 69 65 6c 64 20 20 20 20 20 6c 67 36 2c 20 6c 67 31 30 2c ┆int7; long field lg6, lg10,┆
0x05ec0…05ee0 20 6c 6f 6e 67 31 2c 20 6c 6f 6e 67 32 2c 20 6c 61 73 74 6f 70 74 69 6f 6e 2c 20 6e 61 6d 65 70 ┆ long1, long2, lastoption, namep┆
0x05ee0…05efc 74 72 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 66 69 65 6c 64 20 20 70 31 3b 0a 0a 69 6e 74 ┆tr; boolean field p1; int┆
0x05efc…05f02 (0xcc,0xbf)
0x05f02…05f20 65 67 65 72 20 61 72 72 61 79 20 20 70 28 30 3a 31 30 29 2c 20 6c 69 6e 65 2c 20 6b 69 6e ┆eger array p(0:10), line, kin┆
0x05f20…05f40 64 28 31 3a 28 76 61 72 6c 65 6e 67 74 68 2d 31 30 29 2f 2f 32 29 2c 20 61 6c 70 68 61 62 65 74 ┆d(1:(varlength-10)//2), alphabet┆
0x05f40…05f60 74 61 62 6c 65 28 30 3a 35 2a 31 32 38 2d 31 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆table(0:5*128-1), ┆
0x05f60…05f7a 20 6f 70 74 69 6f 6e 28 31 3a 35 2a 6d 61 78 5f 6f 70 74 69 6f 6e 2b 32 29 3b ┆ option(1:5*max_option+2);┆
0x05f7a…05f80 (0xcc,0xc0)
0x05f80…05fa0 0a 0a 72 65 61 6c 20 61 72 72 61 79 20 20 20 20 20 66 70 70 61 72 61 6d 2c 20 66 70 70 61 72 61 ┆ real array fpparam, fppara┆
0x05fa0…05fc0 6d 31 28 31 3a 32 29 3b 0a 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 72 65 ┆m1(1:2); integer array field re┆
0x05fc0…05fe0 63 3b 0a 0a 7a 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 69 6e 2c 20 74 72 61 6e 73 2c 20 76 61 ┆c; zone in, trans, va┆
0x05fe0…06000 72 74 72 61 6e 73 28 31 32 38 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 00 00 00 00 00 00 00 00 ┆rtrans(128, 1, stderror) ┆
0x06000…06006 (48,) (0xcc,0xc1)
0x06006…06020 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 ┆; <* bbj 9 9 76 ┆
0x06020…06040 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 70 20 70 72 6f 63 65 64 75 72 65 73 20 20 20 20 ┆ help procedures ┆
0x06040…06060 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 38 2e 2e 2e 20 20 2a 3e 0a 0a ┆ catupdate ...8... *> ┆
0x06060…0607e 70 72 6f 63 65 64 75 72 65 20 6f 75 74 70 75 74 28 7a 2c 20 6c 65 6e 67 74 68 29 3b 0a 20 ┆procedure output(z, length); ┆
0x0607e…06084 (0xcc,0xc2)
0x06084…060a0 20 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 65 67 65 72 20 6c 65 6e 67 74 68 3b 0a 20 20 ┆ zone z; integer length; ┆
0x060a0…060c0 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 69 61 6c 69 7a ┆ comment the procedure initializ┆
0x060c0…060e0 65 73 20 74 68 65 20 6e 65 78 74 20 74 72 61 6e 73 61 63 74 69 6f 6e 2d 0a 20 20 20 20 20 20 72 ┆es the next transaction- r┆
0x060e0…060fc 65 63 6f 72 64 2c 20 77 69 74 68 20 70 72 6f 6a 65 63 74 2d 6e 75 6d 62 65 72 2c 20 ┆ecord, with project-number, ┆
0x060fc…06102 (0xcc,0xc3)
0x06102…06120 75 73 65 72 6e 61 6d 65 20 61 6e 64 20 72 65 63 6f 72 64 74 79 70 65 0a 20 20 20 20 20 20 ┆username and recordtype ┆
0x06120…06140 61 6e 64 20 2d 6c 65 6e 67 74 68 2c 20 61 6e 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 68 65 ┆and -length, and information whe┆
0x06140…06160 74 68 65 72 20 63 72 65 61 74 69 6f 6e 2c 20 63 68 61 6e 67 69 6e 67 0a 20 20 20 20 20 20 6f 72 ┆ther creation, changing or┆
0x06160…0617a 20 64 65 6c 65 74 69 6e 67 2e 0a 20 20 20 20 20 20 66 75 72 74 68 65 72 6d 6f ┆ deleting. furthermo┆
0x0617a…06180 (0xcc,0xc4)
0x06180…061a0 72 65 20 74 68 65 20 74 77 6f 20 73 70 65 63 69 61 6c 20 63 61 73 65 73 20 61 72 65 20 68 61 6e ┆re the two special cases are han┆
0x061a0…061c0 64 6c 65 64 3a 0a 20 20 20 20 20 20 20 6c 2e 20 6f 6e 6c 79 20 63 68 65 63 6b 69 6e 67 20 6f 66 ┆dled: l. only checking of┆
0x061c0…061e0 20 74 72 61 6e 73 61 63 74 69 6f 6e 73 20 28 69 2e 65 2e 20 6e 6f 20 6c 65 66 74 73 69 64 65 0a ┆ transactions (i.e. no leftside ┆
0x061e0…06200 20 20 20 20 20 20 20 20 20 20 69 6e 20 70 72 6f 67 72 61 6d 20 63 61 6c 00 00 00 00 00 00 00 00 ┆ in program cal ┆
0x06200…06206 (49,) (0xcc,0xc5)
0x06206…06220 6c 29 0a 20 20 20 20 20 20 20 32 2e 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 ┆l) 2. the transacti┆
0x06220…06240 6f 6e 73 20 61 72 65 20 61 6c 6c 72 65 61 64 79 20 73 6f 72 74 65 64 20 61 6e 64 20 6d 61 79 0a ┆ons are allready sorted and may ┆
0x06240…06260 20 20 20 20 20 20 20 20 20 20 62 65 20 75 73 65 64 20 64 69 72 65 63 74 6c 79 20 74 6f 20 66 6f ┆ be used directly to fo┆
0x06260…0627e 72 6d 20 61 20 6e 65 77 20 75 73 65 72 63 61 74 2e 0a 20 20 20 20 20 20 3b 0a 20 20 20 62 ┆rm a new usercat. ; b┆
0x0627e…06284 (0xcc,0xc6)
0x06284…062a0 65 67 69 6e 0a 20 20 20 6e 6f 5f 6f 66 5f 74 72 61 6e 73 3a 3d 20 6e 6f 5f 6f 66 5f ┆egin no_of_trans:= no_of_┆
0x062a0…062c0 74 72 61 6e 73 20 2b 20 31 3b 0a 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 7a 2c 20 6c 65 6e 67 ┆trans + 1; outrec6(z, leng┆
0x062c0…062e0 74 68 29 3b 0a 20 20 20 20 20 20 7a 2e 69 66 32 3a 3d 20 70 72 6f 6a 6e 6f 3b 0a 20 20 20 20 20 ┆th); z.if2:= projno; ┆
0x062e0…062fc 20 7a 2e 6c 67 36 3a 3d 20 75 73 65 72 6e 61 6d 65 31 3b 0a 20 20 20 7a 2e 6c 67 31 ┆ z.lg6:= username1; z.lg1┆
0x062fc…06302 (0xcc,0xc7)
0x06302…06320 30 3a 3d 20 75 73 65 72 6e 61 6d 65 32 3b 0a 20 20 20 7a 2e 69 66 31 32 3a 3d 20 72 65 63 ┆0:= username2; z.if12:= rec┆
0x06320…06340 74 79 70 65 6c 67 74 68 20 73 68 69 66 74 20 34 20 61 64 64 20 28 69 66 20 69 6e 6c 69 6e 65 74 ┆typelgth shift 4 add (if inlinet┆
0x06340…06360 79 70 65 3c 2d 31 20 74 68 65 6e 20 30 20 65 6c 73 65 20 75 70 64 61 74 65 69 6e 66 29 3b 0a 20 ┆ype<-1 then 0 else updateinf); ┆
0x06360…0637a 20 20 7a 2e 62 61 73 69 73 3a 3d 20 72 65 63 74 79 70 65 6c 67 74 68 3b 0a 20 ┆ z.basis:= rectypelgth; ┆
0x0637a…06380 (0xcc,0xc8)
0x06380…063a0 20 20 65 6e 64 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6d 6f 76 65 5f 75 73 65 72 6e 61 6d 65 28 ┆ end; procedure move_username(┆
0x063a0…063c0 7a 2c 20 6c 65 6e 67 74 68 29 3b 0a 20 20 20 76 61 6c 75 65 20 6c 65 6e 67 74 68 3b 20 7a 6f 6e ┆z, length); value length; zon┆
0x063c0…063e0 65 20 7a 3b 20 69 6e 74 65 67 65 72 20 6c 65 6e 67 74 68 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆e z; integer length; comment ┆
0x063e0…06400 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6d 6f 76 65 73 20 74 68 65 20 00 00 00 00 00 00 00 00 ┆the procedure moves the ┆
0x06400…06406 (50,) (0xcc,0xc9)
0x06406…06420 66 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 20 6f 6e 20 74 68 65 0a 20 20 20 ┆first parameter on the ┆
0x06420…06440 20 20 20 69 6e 70 75 74 20 6c 69 6e 65 20 28 69 2e 65 2e 20 74 68 65 20 75 73 65 72 6e 61 6d 65 ┆ input line (i.e. the username┆
0x06440…06460 29 20 74 6f 20 74 68 65 20 7a 6f 6e 65 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 6a 3a 3d 20 70 ┆) to the zone; begin j:= p┆
0x06460…0647e 28 30 29 20 2a 20 32 3b 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 6f 66 20 ┆(0) * 2; comment start of ┆
0x0647e…06484 (0xcc,0xca)
0x06484…064a0 74 65 78 74 3b 0a 20 20 20 6c 61 73 74 20 3a 3d 20 70 28 31 29 20 2a 20 32 3b 20 20 ┆text; last := p(1) * 2; ┆
0x064a0…064c0 63 6f 6d 6d 65 6e 74 20 6c 61 73 74 20 6f 66 20 74 65 78 74 3b 0a 20 20 20 72 65 63 74 79 70 65 ┆comment last of text; rectype┆
0x064c0…064e0 6c 67 74 68 20 3a 3d 20 72 65 63 74 79 70 65 6c 67 74 68 20 2b 20 6c 61 73 74 20 2d 20 6a 20 2b ┆lgth := rectypelgth + last - j +┆
0x064e0…064fc 20 32 3b 0a 20 20 20 6f 75 74 70 75 74 28 7a 2c 6c 65 6e 67 74 68 29 3b 0a 0a 20 20 ┆ 2; output(z,length); ┆
0x064fc…06502 (0xcc,0xcb)
0x06502…06520 20 69 3a 3d 20 69 6e 74 31 20 2d 20 32 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 20 69 2b 32 20 ┆ i:= int1 - 2; for i:= i+2 ┆
0x06520…06540 77 68 69 6c 65 20 6a 20 3c 3e 20 6c 61 73 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆while j <> last do begin c┆
0x06540…06560 6f 6d 6d 65 6e 74 20 6d 6f 76 65 2e 2e 2e 3b 0a 20 20 20 20 20 20 7a 2e 69 20 3a 3d 20 6c 69 6e ┆omment move...; z.i := lin┆
0x06560…0657a 65 2e 6a 3b 0a 20 20 20 20 20 20 6a 20 3a 3d 20 6a 2b 32 3b 0a 20 20 20 20 20 ┆e.j; j := j+2; ┆
0x0657a…06580 (0xcc,0xcc)
0x06580…065a0 20 65 6e 64 3b 0a 0a 20 20 20 65 6e 64 20 6d 6f 76 65 5f 75 73 65 72 6e 61 6d 65 3b 0a 0a 70 72 ┆ end; end move_username; pr┆
0x065a0…065c0 6f 63 65 64 75 72 65 20 63 68 65 63 6b 70 61 72 61 6d 28 6d 69 6e 2c 20 6d 61 78 2c 20 6e 75 6d ┆ocedure checkparam(min, max, num┆
0x065c0…065e0 62 65 72 2c 20 74 79 70 65 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 6d 69 6e 2c 20 6d 61 78 2c ┆ber, type); integer min, max,┆
0x065e0…06600 20 6e 75 6d 62 65 72 2c 20 74 79 70 65 3b 0a 20 20 20 63 6f 6d 6d 65 6e 00 00 00 00 00 00 00 00 ┆ number, type; commen ┆
0x06600…06606 (51,) (0xcc,0xcd)
0x06606…06620 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 73 2c 20 74 68 ┆t the procedure checks, th┆
0x06620…06640 61 74 20 74 68 65 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 0a 20 20 20 20 20 20 69 73 ┆at the number_of_params is┆
0x06640…06660 20 77 69 74 68 69 6e 20 74 68 65 20 6c 69 6d 69 74 73 20 6d 69 6e 2c 6d 61 78 20 28 69 6e 63 6c ┆ within the limits min,max (incl┆
0x06660…0667e 2e 29 20 61 6e 64 20 74 68 61 74 20 61 6c 6c 0a 20 20 20 20 20 20 70 61 72 61 6d 65 74 65 ┆.) and that all paramete┆
0x0667e…06684 (0xcc,0xce)
0x06684…066a0 72 73 20 61 72 65 20 6f 66 20 6c 65 67 61 6c 20 74 79 70 65 2e 20 28 6e 6f 74 69 63 ┆rs are of legal type. (notic┆
0x066a0…066c0 65 20 74 68 65 20 6a 65 6e 73 65 6e 2d 64 65 76 69 63 65 2e 2e 2e 29 2e 0a 20 20 20 20 20 20 69 ┆e the jensen-device...). i┆
0x066c0…066e0 66 20 61 6e 79 20 69 6e 63 6f 6e 73 69 73 74 65 6e 63 79 20 69 73 20 66 6f 75 6e 64 20 74 68 65 ┆f any inconsistency is found the┆
0x066e0…066fc 20 61 6c 61 72 6d 2d 70 72 6f 63 65 64 75 72 65 0a 20 20 20 20 20 20 69 73 20 63 61 ┆ alarm-procedure is ca┆
0x066fc…06702 (0xcc,0xcf)
0x06702…06720 6c 6c 65 64 3b 0a 20 20 20 69 66 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 3c ┆lled; if number_of_params <┆
0x06720…06740 20 6d 69 6e 20 6f 72 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 3e 20 6d 61 78 20 74 ┆ min or number_of_params > max t┆
0x06740…06760 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 6e 75 6d 62 65 72 20 6f 66 20 70 61 72 61 ┆hen alarm(<:number of para┆
0x06760…0677a 6d 73 3a 3e 29 0a 20 20 20 65 6c 73 65 0a 20 20 20 66 6f 72 20 6e 75 6d 62 65 ┆ms:>) else for numbe┆
0x0677a…06780 (0xcc,0xd0)
0x06780…067a0 72 20 3a 3d 20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 ┆r := 0 step 1 until number_of_pa┆
0x067a0…067c0 72 61 6d 73 2d 31 20 64 6f 0a 20 20 20 20 20 20 69 66 20 74 79 70 65 20 73 68 69 66 74 20 28 2d ┆rams-1 do if type shift (-┆
0x067c0…067e0 6b 69 6e 64 28 70 28 6e 75 6d 62 65 72 29 29 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 30 20 74 ┆kind(p(number))) extract 1 = 0 t┆
0x067e0…06800 68 65 6e 0a 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 69 6c 6c 00 00 00 00 00 00 00 00 ┆hen alarm(<:ill ┆
0x06800…06806 (52,) (0xcc,0xd1)
0x06806…06820 65 67 61 6c 20 74 79 70 65 3a 3e 29 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 6e ┆egal type:>); comment n┆
0x06820…06840 6f 74 69 63 65 3a 20 69 66 20 74 68 65 20 61 63 74 75 61 6c 20 74 79 70 65 20 63 6f 6e 74 61 69 ┆otice: if the actual type contai┆
0x06840…06860 6e 73 20 2e 2e 31 20 73 68 69 66 74 20 6d 2e 2e 0a 20 20 20 20 20 20 69 74 20 6d 65 61 6e 73 2c ┆ns ..1 shift m.. it means,┆
0x06860…0687e 20 74 68 61 74 20 61 6e 20 61 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 20 77 69 74 68 ┆ that an actual parameter with┆
0x0687e…06884 (0xcc,0xd2)
0x06884…068a0 20 6b 69 6e 64 3d 6d 20 69 73 0a 20 20 20 20 20 20 6c 65 67 61 6c 2e 2e 2e 3b 0a 0a ┆ kind=m is legal...; ┆
0x068a0…068c0 70 72 6f 63 65 64 75 72 65 20 61 6c 61 72 6d 28 74 65 78 74 29 3b 0a 20 20 20 73 74 72 69 6e 67 ┆procedure alarm(text); string┆
0x068c0…068e0 20 74 65 78 74 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a ┆ text; begin write(out, <:┆
0x068e0…068fc 2a 2a 2a 3a 3e 2c 20 74 65 78 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 67 ┆***:>, text, <:<10>:>); g┆
0x068fc…06902 (0xcc,0xd3)
0x06902…06920 6f 74 6f 20 61 6c 61 72 6d 70 72 69 6e 74 3b 0a 20 20 20 65 6e 64 3b 0a 0c 0a 3c 2a 20 20 ┆oto alarmprint; end; <* ┆
0x06920…06940 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆bbj 9 9 76 ┆
0x06940…06960 70 72 6f 63 20 70 61 72 61 6d 65 74 65 72 20 65 72 72 6f 72 20 20 20 20 20 20 63 61 74 75 70 64 ┆proc parameter error catupd┆
0x06960…0697a 61 74 65 20 20 2e 2e 2e 39 2e 2e 2e 20 20 2a 3e 0a 0a 70 72 6f 63 65 64 75 72 ┆ate ...9... *> procedur┆
0x0697a…06980 (0xcc,0xd4)
0x06980…069a0 65 20 70 61 72 61 6d 65 74 65 72 5f 65 72 72 6f 72 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 69 66 ┆e parameter_error; comment if┆
0x069a0…069c0 20 61 6e 79 20 70 61 72 61 6d 65 74 65 72 20 65 72 72 6f 72 20 69 73 20 66 6f 75 6e 64 20 69 6e ┆ any parameter error is found in┆
0x069c0…069e0 20 74 68 65 20 66 70 2d 63 6f 6d 6d 61 6e 64 2c 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 0a ┆ the fp-command, this procedure ┆
0x069e0…06a00 20 20 20 20 20 20 69 73 20 63 61 6c 6c 65 64 2e 20 69 74 20 77 72 69 74 00 00 00 00 00 00 00 00 ┆ is called. it writ ┆
0x06a00…06a06 (53,) (0xcc,0xd5)
0x06a06…06a20 65 73 20 74 68 65 20 66 61 75 6c 74 79 20 70 61 72 61 6d 65 74 65 72 73 20 6f ┆es the faulty parameters o┆
0x06a20…06a40 6e 20 63 75 72 72 65 6e 74 0a 20 20 20 20 20 20 6f 75 74 70 75 74 2c 20 61 6e 64 20 72 65 74 75 ┆n current output, and retu┆
0x06a40…06a60 72 6e 73 20 74 6f 20 2e 2e 2e 6e 65 78 74 5f 73 6f 75 72 63 65 2e 2e 2e 20 77 69 74 68 20 70 61 ┆rns to ...next_source... with pa┆
0x06a60…06a7e 72 61 6d 6e 6f 0a 20 20 20 20 20 20 70 6f 69 6e 74 69 6e 67 20 61 74 20 74 68 65 20 6e 65 ┆ramno pointing at the ne┆
0x06a7e…06a84 (0xcc,0xd6)
0x06a84…06aa0 78 74 20 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 77 72 ┆xt parameter; begin wr┆
0x06aa0…06ac0 69 74 65 28 6f 75 74 2c 20 3c 3a 20 20 3c 31 30 3e 2a 2a 2a 70 61 72 61 6d 65 74 65 72 20 65 72 ┆ite(out, <: <10>***parameter er┆
0x06ac0…06ae0 72 6f 72 3a 20 20 3a 3e 29 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 20 73 79 73 74 65 6d 28 34 2c 20 ┆ror: :>); for i:= system(4, ┆
0x06ae0…06afc 70 61 72 61 6d 6e 6f 2c 20 66 70 70 61 72 61 6d 29 2c 0a 20 20 20 20 20 20 20 20 20 ┆paramno, fpparam), ┆
0x06afc…06b02 (0xcc,0xd7)
0x06b02…06b20 20 20 73 79 73 74 65 6d 28 34 2c 20 70 61 72 61 6d 6e 6f 2c 20 66 70 70 61 72 61 6d 29 20 ┆ system(4, paramno, fpparam) ┆
0x06b20…06b40 77 68 69 6c 65 20 69 20 73 68 69 66 74 20 28 2d 31 32 29 20 3d 20 38 20 64 6f 0a 20 20 20 20 20 ┆while i shift (-12) = 8 do ┆
0x06b40…06b60 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 69 20 73 68 69 ┆ begin write(out, if i shi┆
0x06b60…06b7a 66 74 20 28 2d 31 32 29 20 3d 20 38 20 74 68 65 6e 20 3c 3a 2e 3a 3e 20 65 6c ┆ft (-12) = 8 then <:.:> el┆
0x06b7a…06b80 (0xcc,0xd8)
0x06b80…06ba0 73 65 20 3c 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 6a 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 69 ┆se <: :>); j := 1; i┆
0x06ba0…06bc0 66 20 69 20 65 78 74 72 61 63 74 20 31 32 20 3d 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆f i extract 12 = 10 then ┆
0x06bc0…06be0 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 66 70 70 61 72 61 6d 28 69 6e 63 72 ┆ write(out, string fpparam(incr┆
0x06be0…06c00 65 61 73 65 28 6a 29 29 29 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ease(j))) else ┆
0x06c00…06c06 (54,) (0xcc,0xd9)
0x06c06…06c20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 66 70 70 ┆ write(out, <<d>, fpp┆
0x06c20…06c40 61 72 61 6d 28 31 29 29 3b 0a 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 20 3a 3d 20 70 61 72 61 6d ┆aram(1)); paramno := param┆
0x06c40…06c60 6e 6f 20 2b 20 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆no + 1; end; write(out,┆
0x06c60…06c7e 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 67 6f 74 6f 20 6e 65 78 74 5f 73 6f 75 72 63 ┆ <:<10>:>); goto next_sourc┆
0x06c7e…06c84 (0xcc,0xda)
0x06c84…06ca0 65 3b 0a 20 20 20 65 6e 64 20 70 61 72 61 6d 65 74 65 72 5f 65 72 72 6f 72 3b 0a 0a ┆e; end parameter_error; ┆
0x06ca0…06cc0 20 20 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 76 61 6c 75 65 73 28 72 65 63 74 79 70 65 2c 76 ┆ procedure testvalues(rectype,v┆
0x06cc0…06ce0 61 6c 31 29 3b 0a 20 20 76 61 6c 75 65 20 72 65 63 74 79 70 65 2c 76 61 6c 31 3b 20 69 6e 74 65 ┆al1); value rectype,val1; inte┆
0x06ce0…06cfc 67 65 72 20 72 65 63 74 79 70 65 2c 76 61 6c 31 3b 0a 20 20 3c 2a 20 74 68 65 20 72 ┆ger rectype,val1; <* the r┆
0x06cfc…06d02 (0xcc,0xdb)
0x06d02…06d20 6f 75 74 69 6e 65 20 63 68 65 63 6b 73 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 76 61 6c ┆outine checks the parameterval┆
0x06d20…06d40 75 65 73 20 66 6f 72 20 62 79 74 65 2f 77 6f 72 64 20 0a 20 20 20 20 20 6f 76 65 72 66 6c 6f 77 ┆ues for byte/word overflow┆
0x06d40…06d60 2f 75 6e 64 65 72 66 6c 6f 77 20 77 68 65 72 65 20 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 0a ┆/underflow where it is possible ┆
0x06d60…06d7a 20 20 2a 3e 0a 20 20 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 69 2c 6a 3b 0a ┆ *> begin integer i,j; ┆
0x06d7a…06d80 (0xcc,0xdc)
0x06d80…06da0 20 20 20 20 6a 3a 3d 72 65 63 74 79 70 65 2f 2f 32 3b 0a 20 20 20 20 69 66 20 6a 3e 6d 61 78 5f ┆ j:=rectype//2; if j>max_┆
0x06da0…06dc0 72 65 63 6f 72 64 5f 74 79 70 65 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 77 72 69 74 65 ┆record_type then begin write┆
0x06dc0…06de0 28 6f 75 74 2c 3c 3a 3c 31 30 3e 63 61 73 65 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 20 69 6e 20 ┆(out,<:<10>case out of range in ┆
0x06de0…06e00 74 65 73 74 76 61 6c 75 65 73 3c 31 30 3e 3a 3e 29 3b 20 67 6f 74 6f 20 00 00 00 00 00 00 00 00 ┆testvalues<10>:>); goto ┆
0x06e00…06e06 (55,) (0xcc,0xdd)
0x06e06…06e20 65 78 69 74 74 65 73 74 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 20 3a ┆exittest; end; i :┆
0x06e20…06e40 3d 20 63 61 73 65 20 6a 20 6f 66 0a 20 20 20 20 20 20 20 20 20 28 33 2c 33 2c 33 2c 33 2c 31 2c ┆= case j of (3,3,3,3,1,┆
0x06e40…06e60 31 2c 31 2c 31 2c 31 2c 31 2c 0a 20 20 20 20 20 20 20 20 20 20 31 2c 32 2c 32 2c 31 2c 31 2c 32 ┆1,1,1,1,1, 1,2,2,1,1,2┆
0x06e60…06e7e 2c 33 2c 33 2c 33 2c 33 2c 0a 20 20 20 20 20 20 20 20 20 20 33 2c 33 2c 33 2c 33 2c 32 2c ┆,3,3,3,3, 3,3,3,3,2,┆
0x06e7e…06e84 (0xcc,0xde)
0x06e84…06ea0 33 2c 33 2c 31 2c 33 2c 32 2c 0a 20 20 20 20 20 20 20 20 20 20 33 2c 31 2c 32 2c 33 ┆3,3,1,3,2, 3,1,2,3┆
0x06ea0…06ec0 2c 33 2c 31 0a 20 20 20 20 20 20 20 20 20 29 3b 0a 20 20 20 20 3c 2a 20 69 2d 76 61 6c 75 65 20 ┆,3,1 ); <* i-value ┆
0x06ec0…06ee0 3a 0a 20 20 20 20 20 20 20 31 2d 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 6d 75 73 74 20 62 ┆: 1- the parameter must b┆
0x06ee0…06efc 65 20 77 69 74 68 69 6e 20 61 20 62 79 74 65 0a 20 20 20 20 20 20 20 32 2d 20 20 2d ┆e within a byte 2- -┆
0x06efc…06f02 (0xcc,0xdf)
0x06f02…06f20 20 20 20 20 2d 20 20 20 20 20 20 20 20 2d 20 20 20 20 2d 20 20 20 20 2d 20 20 20 61 20 77 ┆ - - - - a w┆
0x06f20…06f40 6f 72 64 0a 20 20 20 20 20 20 20 33 2d 20 20 6e 6f 20 63 68 65 63 6b 0a 20 20 20 20 2a 3e 0a 0a ┆ord 3- no check *> ┆
0x06f40…06f60 20 20 20 20 63 61 73 65 20 69 20 6f 66 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 3c 2a ┆ case i of begin <*┆
0x06f60…06f7a 31 2a 3e 20 69 66 20 28 76 61 6c 31 3c 30 29 20 6f 72 20 28 76 61 6c 31 3e 3d ┆1*> if (val1<0) or (val1>=┆
0x06f7a…06f80 (0xcc,0xe0)
0x06f80…06fa0 34 30 39 35 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆4095) then write(out┆
0x06fa0…06fc0 2c 3c 3a 20 2a 2a 2a 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 6e 6f 74 20 65 78 63 65 65 64 20 61 ┆,<: ***value should not exceed a┆
0x06fc0…06fe0 20 62 79 74 65 3a 3e 29 3b 0a 0a 20 20 20 20 20 20 3c 2a 32 2a 3e 20 69 66 20 28 76 61 6c 31 3c ┆ byte:>); <*2*> if (val1<┆
0x06fe0…07000 30 29 20 6f 72 20 28 76 61 6c 31 3e 3d 38 33 38 38 36 30 37 29 20 74 68 00 00 00 00 00 00 00 00 ┆0) or (val1>=8388607) th ┆
0x07000…07006 (56,) (0xcc,0xe1)
0x07006…07020 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆en write(out,<┆
0x07020…07040 3a 20 2a 2a 2a 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 6e 6f 74 20 65 78 63 65 65 64 20 61 20 77 ┆: ***value should not exceed a w┆
0x07040…07060 6f 72 64 3a 3e 29 3b 0a 0a 20 20 20 20 20 20 3c 2a 33 20 2d 20 6e 6f 74 68 69 6e 67 20 2a 3e 20 ┆ord:>); <*3 - nothing *> ┆
0x07060…0707e 3b 0a 20 20 20 20 65 6e 64 20 63 61 73 65 20 69 3b 0a 20 20 65 78 69 74 74 65 73 74 3a 0a ┆; end case i; exittest: ┆
0x0707e…07084 (0xcc,0xe2)
0x07084…070a0 20 20 65 6e 64 20 70 72 6f 63 20 74 65 73 74 76 61 6c 75 65 73 3b 0a 0c 0a 3c 2a 20 ┆ end proc testvalues; <* ┆
0x070a0…070c0 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bbj 9 9 76 ┆
0x070c0…070e0 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 ┆ initialization catu┆
0x070e0…070fc 70 64 61 74 65 20 20 2e 2e 2e 31 30 2e 2e 2e 20 20 2a 3e 0a 0a 0a 0a 0a 63 6f 6d 6d ┆pdate ...10... *> comm┆
0x070fc…07102 (0xcc,0xe3)
0x07102…07120 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 20 66 69 65 6c 64 73 20 69 ┆ent initialization of fields i┆
0x07120…07140 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 2d 72 65 63 6f 72 64 73 3b 0a 20 20 20 69 66 32 20 3a 3d ┆n transaction-records; if2 :=┆
0x07140…07160 20 32 3b 20 69 66 34 20 3a 3d 20 34 3b 20 6c 67 36 20 3a 3d 20 36 3b 20 6c 67 31 30 20 3a 3d 20 ┆ 2; if4 := 4; lg6 := 6; lg10 := ┆
0x07160…0717a 31 30 3b 20 20 69 66 31 32 20 3a 3d 20 31 32 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 ┆10; if12 := 12; comment ┆
0x0717a…07180 (0xcc,0xe4)
0x07180…071a0 73 74 61 6e 64 61 72 64 20 76 61 6c 75 65 73 20 6f 66 20 70 72 6f 67 72 61 6d 20 6f 70 74 69 6f ┆standard values of program optio┆
0x071a0…071c0 6e 73 3b 0a 20 20 20 6e 6f 6f 6c 64 63 61 74 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 6c 69 73 74 ┆ns; nooldcat:= false; list┆
0x071c0…071e0 20 20 20 3a 3d 20 66 61 6c 73 65 3b 0a 0a 20 20 20 6e 6f 73 6f 75 72 63 65 20 3a 3d 20 20 74 72 ┆ := false; nosource := tr┆
0x071e0…07200 75 65 3b 0a 20 20 20 70 72 69 6e 74 20 3a 3d 20 30 3b 20 20 63 6f 6d 6d 00 00 00 00 00 00 00 00 ┆ue; print := 0; comm ┆
0x07200…07206 (57,) (0xcc,0xe5)
0x07206…07220 65 6e 74 20 6e 6f 20 6c 69 73 74 69 6e 67 20 6f 66 20 75 73 65 72 63 61 74 61 ┆ent no listing of usercata┆
0x07220…07240 6c 6f 67 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 74 61 74 65 2d 76 ┆log; comment initialize state-v┆
0x07240…07260 61 6c 75 65 73 3b 0a 20 20 20 6e 65 75 74 72 61 6c 73 74 61 74 65 20 3a 3d 20 31 20 2d 20 28 2d ┆alues; neutralstate := 1 - (-┆
0x07260…0727e 31 29 20 2a 20 33 3b 20 20 63 6f 6d 6d 65 6e 74 20 28 3d 31 2d 28 73 6d 61 6c 6c 65 73 74 ┆1) * 3; comment (=1-(smallest┆
0x0727e…07284 (0xcc,0xe6)
0x07284…072a0 20 74 79 70 65 29 2a 33 29 3b 0a 20 20 20 70 72 6f 6a 65 63 74 73 74 61 74 65 20 3a ┆ type)*3); projectstate :┆
0x072a0…072c0 3d 20 31 20 2b 20 6e 65 75 74 72 61 6c 73 74 61 74 65 3b 0a 20 20 20 75 73 65 72 73 74 61 74 65 ┆= 1 + neutralstate; userstate┆
0x072c0…072e0 20 20 20 20 3a 3d 20 31 20 2b 20 70 72 6f 6a 65 63 74 73 74 61 74 65 3b 0a 20 20 20 73 74 61 74 ┆ := 1 + projectstate; stat┆
0x072e0…072fc 65 20 20 20 20 20 20 20 20 3a 3d 20 6e 65 75 74 72 61 6c 73 74 61 74 65 3b 0a 0a 63 ┆e := neutralstate; c┆
0x072fc…07302 (0xcc,0xe7)
0x07302…07320 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 70 72 69 6d 69 74 69 76 ┆omment initialize the primitiv┆
0x07320…07340 65 20 69 6e 74 65 72 76 61 6c 2d 72 6f 75 74 69 6e 65 2c 20 69 6e 20 63 61 73 65 0a 20 20 20 6f ┆e interval-routine, in case o┆
0x07340…07360 66 20 6e 65 77 63 61 74 2d 6d 6f 64 65 3b 0a 20 20 20 66 69 72 73 74 5f 66 72 65 65 5f 70 72 6f ┆f newcat-mode; first_free_pro┆
0x07360…0737a 6a 20 3a 3d 20 31 20 73 68 69 66 74 20 32 33 20 2b 20 32 3b 0a 20 20 20 75 73 ┆j := 1 shift 23 + 2; us┆
0x0737a…07380 (0xcc,0xe8)
0x07380…073a0 65 72 63 61 74 73 65 67 6d 20 3a 3d 20 73 74 64 5f 75 73 65 72 63 61 74 5f 69 6e 64 65 78 3b 20 ┆ercatsegm := std_usercat_index; ┆
0x073a0…073c0 20 20 63 6f 6d 6d 65 6e 74 20 6e 75 6d 62 65 72 20 6f 66 20 69 6e 64 65 78 73 65 67 6d 65 6e 74 ┆ comment number of indexsegment┆
0x073c0…073e0 73 3b 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 63 68 61 72 ┆s; comment initialize the char┆
0x073e0…07400 61 63 74 65 72 74 61 62 6c 65 20 66 6f 72 20 72 65 61 64 69 6e 67 20 6f 00 00 00 00 00 00 00 00 ┆actertable for reading o ┆
0x07400…07406 (58,) (0xcc,0xe9)
0x07406…07420 66 20 75 73 65 72 6e 61 6d 65 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 30 20 ┆f username; for i := 0 ┆
0x07420…07440 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 2a 31 32 38 2d 31 20 64 6f 20 61 6c 70 68 61 62 65 74 ┆step 1 until 5*128-1 do alphabet┆
0x07440…07460 74 61 62 6c 65 28 69 29 20 3a 3d 20 30 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 33 33 20 73 74 ┆table(i) := 0; for i := 33 st┆
0x07460…0747e 65 70 20 31 20 75 6e 74 69 6c 20 31 32 35 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 ┆ep 1 until 125 do alphab┆
0x0747e…07484 (0xcc,0xea)
0x07484…074a0 65 74 74 61 62 6c 65 28 69 29 20 3a 3d 20 31 20 73 68 69 66 74 20 31 32 20 2b 20 31 ┆ettable(i) := 1 shift 12 + 1┆
0x074a0…074c0 32 38 3b 20 63 6f 6d 6d 65 6e 74 20 73 68 69 66 74 2d 63 68 61 72 73 3b 0a 20 20 20 66 6f 72 20 ┆28; comment shift-chars; for ┆
0x074c0…074e0 69 20 3a 3d 20 31 32 2c 20 32 35 2c 20 35 39 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 ┆i := 12, 25, 59 do alphabe┆
0x074e0…074fc 74 74 61 62 6c 65 28 69 29 20 3a 3d 20 31 20 73 68 69 66 74 20 31 32 20 2b 20 32 35 ┆ttable(i) := 1 shift 12 + 25┆
0x074fc…07502 (0xcc,0xeb)
0x07502…07520 36 3b 20 20 20 63 6f 6d 6d 65 6e 74 20 73 68 69 66 74 20 62 61 63 6b 3b 0a 20 20 20 66 6f ┆6; comment shift back; fo┆
0x07520…07540 72 20 69 20 3a 3d 20 33 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 32 35 20 64 6f 0a 20 20 ┆r i := 32 step 1 until 125 do ┆
0x07540…07560 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 31 32 38 29 20 3a 3d 20 36 20 73 68 ┆ alphabettable(i+128) := 6 sh┆
0x07560…0757a 69 66 74 20 31 32 20 2b 20 69 3b 20 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 72 6d ┆ift 12 + i; comment norm┆
0x0757a…07580 (0xcc,0xec)
0x07580…075a0 61 6c 20 63 68 61 72 73 3b 0a 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 31 30 29 20 3a ┆al chars; alphabettable(10) :┆
0x075a0…075c0 3d 20 36 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 ┆= 6 shift 12 + 10; for i := 1┆
0x075c0…075e0 30 2b 31 32 38 2c 20 31 32 2b 31 32 38 2c 20 32 35 2b 31 32 38 2c 20 35 39 2b 31 32 38 20 64 6f ┆0+128, 12+128, 25+128, 59+128 do┆
0x075e0…07600 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 29 20 00 00 00 00 00 00 00 00 ┆ alphabettable(i) ┆
0x07600…07606 (59,) (0xcc,0xed)
0x07606…07620 3a 3d 20 31 20 73 68 69 66 74 20 31 32 20 2b 20 30 3b 20 20 20 63 6f 6d 6d 65 ┆:= 1 shift 12 + 0; comme┆
0x07620…07640 6e 74 20 73 68 69 66 74 20 63 68 61 72 73 3b 0a 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 ┆nt shift chars; alphabettable┆
0x07640…07660 28 39 35 29 20 3a 3d 20 36 20 73 68 69 66 74 20 31 32 20 2b 20 33 32 3b 20 20 20 20 63 6f 6d 6d ┆(95) := 6 shift 12 + 32; comm┆
0x07660…0767e 65 6e 74 20 75 6e 64 65 72 6c 69 6e 65 20 69 73 20 73 70 61 63 65 3b 0a 0a 63 6f 6d 6d 65 ┆ent underline is space; comme┆
0x0767e…07684 (0xcc,0xee)
0x07684…076a0 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 63 68 61 72 61 63 74 65 72 74 ┆nt initialize the charactert┆
0x076a0…076c0 61 62 6c 65 20 66 6f 72 20 72 65 61 64 69 6e 67 20 6f 66 20 6e 6f 72 6d 61 6c 20 6c 69 6e 65 73 ┆able for reading of normal lines┆
0x076c0…076e0 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 39 37 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 32 ┆; for i := 97 step 1 until 12┆
0x076e0…076fc 35 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 32 ┆5 do alphabettable(i+2┆
0x076fc…07702 (0xcc,0xef)
0x07702…07720 35 36 29 20 3a 3d 20 36 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 20 63 6f 6d 6d 65 6e 74 ┆56) := 6 shift 12 + i; comment┆
0x07720…07740 20 6c 65 74 74 65 72 73 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 39 2c 20 31 34 20 73 74 65 70 ┆ letters; for i := 9, 14 step┆
0x07740…07760 20 31 20 75 6e 74 69 6c 20 39 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 39 36 2c 20 31 32 ┆ 1 until 94, 96, 12┆
0x07760…0777a 36 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 ┆6 do alphabettable(i┆
0x0777a…07780 (0xcc,0xf0)
0x07780…077a0 2b 32 35 36 29 20 3a 3d 20 37 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 20 63 6f 6d 6d 65 6e 74 ┆+256) := 7 shift 12 + i; comment┆
0x077a0…077c0 20 64 65 6c 69 6d 69 74 65 72 73 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 39 2c 20 33 32 20 73 ┆ delimiters; for i := 9, 32 s┆
0x077c0…077e0 74 65 70 20 31 20 75 6e 74 69 6c 20 31 32 35 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 ┆tep 1 until 125 do alphabe┆
0x077e0…07800 74 74 61 62 6c 65 28 69 2b 33 38 34 29 20 3a 3d 0a 20 20 20 20 20 20 61 00 00 00 00 00 00 00 00 ┆ttable(i+384) := a ┆
0x07800…07806 (60,) (0xcc,0xf1)
0x07806…07820 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 35 31 32 29 20 3a 3d 20 37 20 73 ┆lphabettable(i+512) := 7 s┆
0x07820…07840 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 34 38 20 73 74 65 70 ┆hift 12 + i; for i := 48 step┆
0x07840…07860 20 31 20 75 6e 74 69 6c 20 35 37 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 ┆ 1 until 57 do alphabettab┆
0x07860…0787e 6c 65 28 69 2b 32 35 36 29 20 3a 3d 20 32 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 20 63 ┆le(i+256) := 2 shift 12 + i; c┆
0x0787e…07884 (0xcc,0xf2)
0x07884…078a0 6f 6d 6d 65 6e 74 20 64 69 67 69 74 73 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 34 ┆omment digits; for i := 4┆
0x078a0…078c0 33 2c 20 34 35 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 32 ┆3, 45 do alphabettable(i+2┆
0x078c0…078e0 35 36 29 20 3a 3d 20 33 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 20 63 6f 6d 6d 65 6e 74 20 73 ┆56) := 3 shift 12 + i; comment s┆
0x078e0…078fc 69 67 6e 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 30 2c 20 31 32 2c 20 32 35 20 ┆ign; for i := 10, 12, 25 ┆
0x078fc…07902 (0xcc,0xf3)
0x07902…07920 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 32 35 36 29 20 ┆do alphabettable(i+256) ┆
0x07920…07940 3a 3d 20 38 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 20 63 6f 6d 6d 65 6e 74 20 74 65 72 6d 69 ┆:= 8 shift 12 + i; comment termi┆
0x07940…07960 6e 61 74 6f 72 73 3b 0a 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 34 30 2b 32 35 36 29 ┆nators; alphabettable(40+256)┆
0x07960…0797a 20 3a 3d 20 31 20 73 68 69 66 74 20 31 32 20 2b 20 33 38 34 3b 20 63 6f 6d 6d ┆ := 1 shift 12 + 384; comm┆
0x0797a…07980 (0xcc,0xf4)
0x07980…079a0 65 6e 74 20 73 68 69 66 74 2d 63 68 61 72 3b 0a 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 ┆ent shift-char; alphabettable┆
0x079a0…079c0 28 35 39 2b 32 35 36 29 20 3a 3d 20 31 20 73 68 69 66 74 20 31 32 20 2b 20 35 31 32 3b 20 63 6f ┆(59+256) := 1 shift 12 + 512; co┆
0x079c0…079e0 6d 6d 65 6e 74 20 73 68 69 66 74 2d 63 68 61 72 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 30 ┆mment shift-char; for i := 10┆
0x079e0…07a00 2c 20 31 32 2c 20 32 35 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 00 00 00 00 00 00 00 00 ┆, 12, 25 do alphab ┆
0x07a00…07a06 (61,) (0xcc,0xf5)
0x07a06…07a20 65 74 74 61 62 6c 65 28 69 2b 33 38 34 29 20 3a 3d 0a 20 20 20 20 20 20 61 6c ┆ettable(i+384) := al┆
0x07a20…07a40 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 35 31 32 29 20 3a 3d 20 31 20 73 68 69 66 74 20 31 32 ┆phabettable(i+512) := 1 shift 12┆
0x07a40…07a60 20 2b 20 32 35 36 3b 20 63 6f 6d 6d 65 6e 74 20 73 68 69 66 74 20 62 61 63 6b 3b 0a 20 20 20 61 ┆ + 256; comment shift back; a┆
0x07a60…07a7e 6c 70 68 61 62 65 74 74 61 62 6c 65 28 34 31 2b 33 38 34 29 20 3a 3d 20 31 20 73 68 69 66 ┆lphabettable(41+384) := 1 shif┆
0x07a7e…07a84 (0xcc,0xf6)
0x07a84…07aa0 74 20 31 32 20 2b 20 32 35 36 3b 20 63 6f 6d 6d 65 6e 74 20 73 68 69 66 74 20 62 61 ┆t 12 + 256; comment shift ba┆
0x07aa0…07ac0 63 6b 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 30 20 73 74 65 70 20 31 32 38 20 75 6e 74 69 6c ┆ck; for i := 0 step 128 until┆
0x07ac0…07ae0 20 35 31 32 20 64 6f 0a 20 20 20 20 20 20 61 6c 70 68 61 62 65 74 74 61 62 6c 65 28 32 36 2b 69 ┆ 512 do alphabettable(26+i┆
0x07ae0…07afc 29 20 3a 3d 20 37 20 73 68 69 66 74 20 31 32 20 2b 20 33 38 3b 20 63 6f 6d 6d 65 6e ┆) := 7 shift 12 + 38; commen┆
0x07afc…07b02 (0xcc,0xf7)
0x07b02…07b20 74 20 73 75 62 20 63 68 61 72 3b 0a 0a 20 20 20 69 6e 74 61 62 6c 65 28 61 6c 70 68 61 62 ┆t sub char; intable(alphab┆
0x07b20…07b40 65 74 74 61 62 6c 65 29 3b 20 20 74 61 62 6c 65 69 6e 64 65 78 20 3a 3d 20 32 35 36 3b 0a 0c 0a ┆ettable); tableindex := 256; ┆
0x07b40…07b60 3c 2a 20 20 62 62 6a 20 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆<* bbj 9 9 76 ┆
0x07b60…07b7a 20 20 20 20 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 20 6f 70 74 ┆ initialization of opt┆
0x07b7a…07b80 (0xcc,0xf8)
0x07b80…07ba0 69 6f 6e 74 61 62 6c 65 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 31 2e 2e 2e 20 20 2a ┆iontable catupdate ...11... *┆
0x07ba0…07bc0 3e 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 20 74 68 ┆> comment initialization of th┆
0x07bc0…07be0 65 20 6f 70 74 69 6f 6e 20 74 61 62 6c 65 3a 0a 20 20 20 65 61 63 68 20 65 6e 74 72 79 20 63 6f ┆e option table: each entry co┆
0x07be0…07c00 6e 74 61 69 6e 73 3a 0a 20 20 20 20 31 2e 20 6f 70 74 69 6f 6e 20 6e 61 00 00 00 00 00 00 00 00 ┆ntains: 1. option na ┆
0x07c00…07c06 (62,) (0xcc,0xf9)
0x07c06…07c20 6d 65 0a 20 20 20 20 32 2e 20 61 63 74 69 6f 6e 20 6e 75 6d 62 65 72 0a 20 20 ┆me 2. action number ┆
0x07c20…07c40 20 20 33 2e 20 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 74 79 70 65 73 20 66 6f 72 20 74 68 ┆ 3. legal parametertypes for th┆
0x07c40…07c60 69 73 20 6f 70 74 69 6f 6e 20 28 33 20 62 79 74 65 73 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 69 ┆is option (3 bytes) (noti┆
0x07c60…07c7e 63 65 3a 20 31 20 73 68 69 66 74 20 6d 20 6d 65 61 6e 73 20 74 68 61 74 20 70 61 72 61 6d ┆ce: 1 shift m means that param┆
0x07c7e…07c84 (0xcc,0xfa)
0x07c84…07ca0 65 74 65 72 73 2c 20 77 68 6f 73 65 0a 20 20 20 20 20 20 20 20 72 65 61 64 61 6c 6c ┆eters, whose readall┆
0x07ca0…07cc0 2d 6b 69 6e 64 20 28 2d 76 61 6c 75 65 29 20 69 73 20 6d 2c 20 61 72 65 20 6c 65 67 61 6c 29 0a ┆-kind (-value) is m, are legal) ┆
0x07cc0…07ce0 20 20 20 20 34 2e 20 72 65 63 6f 72 64 74 79 70 65 20 69 6e 20 75 73 65 72 63 61 74 0a 20 20 20 ┆ 4. recordtype in usercat ┆
0x07ce0…07cfc 20 35 2e 20 72 65 63 6f 72 64 6c 65 6e 67 74 68 20 69 6e 20 75 73 65 72 63 61 74 0a ┆ 5. recordlength in usercat ┆
0x07cfc…07d02 (0xcc,0xfb)
0x07d02…07d20 20 20 20 3b 0a 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 ┆ ; begin integer type┆
0x07d20…07d40 5f 32 2c 20 74 79 70 65 5f 36 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 32 5f 36 2c 20 74 79 ┆_2, type_6, type_8, type_2_6, ty┆
0x07d40…07d60 70 65 5f 32 5f 38 3b 0a 20 20 20 62 6f 6f 6c 65 61 6e 20 66 69 65 6c 64 20 62 79 74 65 3b 0a 0a ┆pe_2_8; boolean field byte; ┆
0x07d60…07d7a 20 20 20 70 72 6f 63 65 64 75 72 65 20 70 61 63 6b 28 6f 70 74 69 6f 6e 6e 61 ┆ procedure pack(optionna┆
0x07d7a…07d80 (0xcc,0xfc)
0x07d80…07da0 6d 65 2c 20 61 63 74 69 6f 6e 6e 6f 2c 20 70 61 72 74 79 70 65 31 2c 0a 20 20 20 20 20 20 20 20 ┆me, actionno, partype1, ┆
0x07da0…07dc0 20 20 20 20 20 20 20 20 20 20 70 61 72 74 79 70 65 32 2c 20 70 61 72 74 79 70 65 33 2c 20 72 65 ┆ partype2, partype3, re┆
0x07dc0…07de0 63 74 79 70 65 2c 20 72 65 63 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 73 74 72 69 6e 67 20 ┆ctype, reclength); string ┆
0x07de0…07e00 6f 70 74 69 6f 6e 6e 61 6d 65 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 00 00 00 00 00 00 00 00 ┆optionname; intege ┆
0x07e00…07e06 (63,) (0xcc,0xfd)
0x07e06…07e20 72 20 61 63 74 69 6f 6e 6e 6f 2c 20 70 61 72 74 79 70 65 31 2c 20 70 61 72 74 ┆r actionno, partype1, part┆
0x07e20…07e40 79 70 65 32 2c 20 70 61 72 74 79 70 65 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ┆ype2, partype3, re┆
0x07e40…07e60 63 74 79 70 65 2c 20 72 65 63 6c 65 6e 67 74 68 3b 0a 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ctype, reclength; begin c┆
0x07e60…07e7e 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 70 61 63 6b 73 20 74 68 65 ┆omment the procedure packs the┆
0x07e7e…07e84 (0xcc,0xfe)
0x07e84…07ea0 20 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ parameters i┆
0x07ea0…07ec0 6e 20 74 68 65 20 6e 65 78 74 20 66 72 65 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 ┆n the next free elements of the ┆
0x07ec0…07ee0 6f 70 74 69 6f 6e 20 74 61 62 6c 65 3b 0a 20 20 20 20 20 20 6f 70 74 69 6f 6e 2e 6c 61 73 74 6f ┆option table; option.lasto┆
0x07ee0…07efc 70 74 69 6f 6e 20 3a 3d 20 6c 6f 6e 67 20 6f 70 74 69 6f 6e 6e 61 6d 65 3b 0a 20 20 ┆ption := long optionname; ┆
0x07efc…07f02 (0xcc,0xff)
0x07f02…07f20 20 20 20 20 62 79 74 65 20 3a 3d 20 6c 61 73 74 6f 70 74 69 6f 6e 3b 0a 20 20 20 20 20 20 ┆ byte := lastoption; ┆
0x07f20…07f40 66 6f 72 20 69 20 3a 3d 20 61 63 74 69 6f 6e 6e 6f 2c 20 70 61 72 74 79 70 65 31 2c 20 70 61 72 ┆for i := actionno, partype1, par┆
0x07f40…07f60 74 79 70 65 32 2c 20 70 61 72 74 79 70 65 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆type2, partype3, ┆
0x07f60…07f7a 72 65 63 74 79 70 65 2c 20 72 65 63 6c 65 6e 67 74 68 20 64 6f 0a 20 20 20 20 ┆rectype, reclength do ┆
0x07f7a…07f80 (0xcc,0x100)
0x07f80…07fa0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 62 79 74 65 20 3a 3d 20 62 79 74 65 ┆ begin byte := byte┆
0x07fa0…07fc0 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 2e 62 79 74 65 20 3a 3d 20 66 61 ┆ + 1; option.byte := fa┆
0x07fc0…07fe0 6c 73 65 20 61 64 64 20 69 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6c ┆lse add i; end; l┆
0x07fe0…08000 61 73 74 6f 70 74 69 6f 6e 20 3a 3d 20 6c 61 73 74 6f 70 74 69 6f 6e 20 00 00 00 00 00 00 00 00 ┆astoption := lastoption ┆
0x08000…08006 (64,) (0xcc,0x101)
0x08006…08020 2b 20 31 30 3b 0a 20 20 20 20 20 20 65 6e 64 20 70 61 63 6b 3b 0a 0a 20 20 20 ┆+ 10; end pack; ┆
0x08020…08040 74 79 70 65 5f 32 20 20 20 3a 3d 20 31 20 73 68 69 66 74 20 32 3b 20 20 20 20 20 20 20 63 6f 6d ┆type_2 := 1 shift 2; com┆
0x08040…08060 6d 65 6e 74 20 69 6e 74 65 67 65 72 20 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 74 79 70 65 5f ┆ment integer parameter; type_┆
0x08060…0807e 36 20 20 20 3a 3d 20 31 20 73 68 69 66 74 20 36 3b 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆6 := 1 shift 6; commen┆
0x0807e…08084 (0xcc,0x102)
0x08084…080a0 74 20 74 65 78 74 20 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 74 79 70 65 5f 38 20 ┆t text parameter; type_8 ┆
0x080a0…080c0 20 20 3a 3d 20 31 20 73 68 69 66 74 20 38 3b 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 6e ┆ := 1 shift 8; comment en┆
0x080c0…080e0 64 20 6f 66 20 6c 69 6e 65 3b 0a 20 20 20 74 79 70 65 5f 32 5f 36 20 3a 3d 20 74 79 70 65 5f 32 ┆d of line; type_2_6 := type_2┆
0x080e0…080fc 20 2b 20 74 79 70 65 5f 36 3b 20 63 6f 6d 6d 65 6e 74 20 69 6e 74 65 67 65 72 20 6f ┆ + type_6; comment integer o┆
0x080fc…08102 (0xcc,0x103)
0x08102…08120 72 20 74 65 78 74 20 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 74 79 70 65 5f 32 5f 38 20 ┆r text parameter; type_2_8 ┆
0x08120…08140 3a 3d 20 74 79 70 65 5f 32 20 2b 20 74 79 70 65 5f 38 3b 20 63 6f 6d 6d 65 6e 74 20 69 6e 74 65 ┆:= type_2 + type_8; comment inte┆
0x08140…08160 67 65 72 20 70 61 72 61 6d 20 6f 72 20 65 6e 64 20 6f 66 20 6c 69 6e 65 3b 0a 0a 20 20 20 6c 61 ┆ger param or end of line; la┆
0x08160…0817a 73 74 6f 70 74 69 6f 6e 20 3a 3d 20 34 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 61 ┆stoption := 4; pack(<:a┆
0x0817a…08180 (0xcc,0x104)
0x08180…081a0 63 63 6f 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 ┆cco:>, 1, type_2, type_8, type_8┆
0x081a0…081c0 2c 20 31 30 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 61 72 65 61 3a 3e 2c 20 31 2c 20 74 ┆, 10, 4); pack(<:area:>, 1, t┆
0x081c0…081e0 79 70 65 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 31 32 2c 20 34 29 3b 0a 20 ┆ype_2, type_8, type_8, 12, 4); ┆
0x081e0…08200 20 20 70 61 63 6b 28 3c 3a 62 75 66 3a 3e 20 2c 20 31 2c 20 74 79 70 65 00 00 00 00 00 00 00 00 ┆ pack(<:buf:> , 1, type ┆
0x08200…08206 (65,) (0xcc,0x105)
0x08206…08220 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 31 34 2c 20 34 29 ┆_2, type_8, type_8, 14, 4)┆
0x08220…08240 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 63 62 75 66 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 ┆; pack(<:cbuf:>, 1, type_2, t┆
0x08240…08260 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 31 36 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c ┆ype_8, type_8, 16, 4); pack(<┆
0x08260…0827e 3a 63 6f 72 65 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 ┆:core:>, 1, type_2, type_8, ty┆
0x0827e…08284 (0xcc,0x106)
0x08284…082a0 70 65 5f 38 2c 20 36 30 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 64 65 76 69 ┆pe_8, 60, 4); pack(<:devi┆
0x082a0…082c0 3a 3e 2c 20 32 2c 20 74 79 70 65 5f 32 5f 36 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c ┆:>, 2, type_2_6, type_8, type_8,┆
0x082c0…082e0 20 38 2c 36 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 69 6e 74 65 3a 3e 2c 20 31 2c 20 74 79 70 65 ┆ 8,6); pack(<:inte:>, 1, type┆
0x082e0…082fc 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 31 38 2c 20 34 29 3b 0a ┆_2, type_8, type_8, 18, 4); ┆
0x082fc…08302 (0xcc,0x107)
0x08302…08320 20 20 20 70 61 63 6b 28 3c 3a 6b 65 79 3a 3e 20 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 ┆ pack(<:key:> , 1, type_2, t┆
0x08320…08340 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 32 30 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c ┆ype_8, type_8, 20, 4); pack(<┆
0x08340…08360 3a 6c 61 74 65 3a 3e 2c 20 33 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f 32 5f 38 2c 20 74 79 ┆:late:>, 3, type_2, type_2_8, ty┆
0x08360…0837a 70 65 5f 38 2c 35 30 2c 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 6d 69 6e 69 ┆pe_8,50,4); pack(<:mini┆
0x0837a…08380 (0xcc,0x108)
0x08380…083a0 3a 3e 2c 20 39 2c 20 74 79 70 65 5f 36 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 36 ┆:>, 9, type_6, type_8, type_8, 6┆
0x083a0…083c0 32 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 6d 6f 75 6e 3a 3e 2c 20 31 2c 20 74 79 70 65 ┆2, 4); pack(<:moun:>, 1, type┆
0x083c0…083e0 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 32 32 2c 20 34 29 3b 0a 20 20 20 70 ┆_2, type_8, type_8, 22, 4); p┆
0x083e0…08400 61 63 6b 28 3c 3a 6f 6e 6c 69 3a 3e 2c 20 39 2c 20 74 79 70 65 5f 36 2c 00 00 00 00 00 00 00 00 ┆ack(<:onli:>, 9, type_6, ┆
0x08400…08406 (66,) (0xcc,0x109)
0x08406…08420 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 35 38 2c 20 34 29 3b 0a 20 ┆ type_8, type_8, 58, 4); ┆
0x08420…08440 20 20 70 61 63 6b 28 3c 3a 6f 75 74 70 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 ┆ pack(<:outp:>, 1, type_2, type┆
0x08440…08460 5f 38 2c 20 74 79 70 65 5f 38 2c 20 32 34 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 70 65 ┆_8, type_8, 24, 4); pack(<:pe┆
0x08460…0847e 72 6d 3a 3e 2c 20 37 2c 20 74 79 70 65 5f 36 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f ┆rm:>, 7, type_6, type_2, type_┆
0x0847e…08484 (0xcc,0x10a)
0x08484…084a0 32 2c 20 34 30 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 70 72 65 73 3a 3e 2c ┆2, 40, 4); pack(<:pres:>,┆
0x084a0…084c0 20 39 2c 20 74 79 70 65 5f 36 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 36 38 2c 20 ┆ 9, type_6, type_8, type_8, 68, ┆
0x084c0…084e0 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 70 72 69 6f 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c ┆4); pack(<:prio:>, 1, type_2,┆
0x084e0…084fc 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 36 34 2c 20 34 29 3b 0a 20 20 20 ┆ type_8, type_8, 64, 4); ┆
0x084fc…08502 (0xcc,0x10b)
0x08502…08520 70 61 63 6b 28 3c 3a 70 72 69 76 3a 3e 2c 20 34 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 ┆pack(<:priv:>, 4, type_2, type┆
0x08520…08540 5f 38 2c 20 74 79 70 65 5f 38 2c 20 37 30 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 70 72 ┆_8, type_8, 70, 4); pack(<:pr┆
0x08540…08560 6f 67 3a 3e 2c 20 35 2c 20 74 79 70 65 5f 36 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c ┆og:>, 5, type_6, type_8, type_8,┆
0x08560…0857a 20 35 34 2c 31 30 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 6c 69 6e 6b 3a 3e 2c ┆ 54,10); pack(<:link:>,┆
0x0857a…08580 (0xcc,0x10c)
0x08580…085a0 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 37 32 2c 20 ┆ 1, type_2, type_8, type_8, 72, ┆
0x085a0…085c0 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 73 69 7a 65 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c ┆4); pack(<:size:>, 1, type_2,┆
0x085c0…085e0 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 32 36 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b ┆ type_8, type_8, 26, 4); pack┆
0x085e0…08600 28 3c 3a 73 74 61 74 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 00 00 00 00 00 00 00 00 ┆(<:stat:>, 1, type_2, ty ┆
0x08600…08606 (67,) (0xcc,0x10d)
0x08606…08620 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 32 38 2c 20 34 29 3b 0a 20 20 20 70 ┆pe_8, type_8, 28, 4); p┆
0x08620…08640 61 63 6b 28 3c 3a 73 75 73 70 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f 38 2c ┆ack(<:susp:>, 1, type_2, type_8,┆
0x08640…08660 20 74 79 70 65 5f 38 2c 20 35 36 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 74 61 70 65 3a ┆ type_8, 56, 4); pack(<:tape:┆
0x08660…0867e 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 ┆>, 1, type_2, type_8, type_8, ┆
0x0867e…08684 (0xcc,0x10e)
0x08684…086a0 33 30 2c 20 34 29 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 74 65 6d 70 3a 3e 2c 20 38 2c ┆30, 4); pack(<:temp:>, 8,┆
0x086a0…086c0 20 74 79 70 65 5f 36 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 65 5f 32 5f 38 2c 33 36 2c 34 29 3b ┆ type_6, type_2, type_2_8,36,4);┆
0x086c0…086e0 0a 20 20 20 70 61 63 6b 28 3c 3a 74 69 6d 65 3a 3e 2c 20 36 2c 20 74 79 70 65 5f 32 2c 20 74 79 ┆ pack(<:time:>, 6, type_2, ty┆
0x086e0…086fc 70 65 5f 32 5f 38 2c 20 74 79 70 65 5f 32 5f 38 2c 20 33 32 2c 20 34 29 3b 0a 20 20 ┆pe_2_8, type_2_8, 32, 4); ┆
0x086fc…08702 (0xcc,0x10f)
0x08702…08720 20 70 61 63 6b 28 3c 3a 77 61 69 74 3a 3e 2c 20 31 2c 20 74 79 70 65 5f 32 2c 20 74 79 70 ┆ pack(<:wait:>, 1, type_2, typ┆
0x08720…08740 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 36 36 2c 20 34 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 ┆e_8, type_8, 66, 4); comment┆
0x08740…08760 20 6e 6f 77 20 6c 61 73 74 6f 70 74 69 6f 6e 20 70 6f 69 6e 74 73 20 61 74 20 61 20 70 6c 61 63 ┆ now lastoption points at a plac┆
0x08760…0877a 65 20 6a 75 73 74 20 61 66 74 65 72 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 ┆e just after the ┆
0x0877a…08780 (0xcc,0x110)
0x08780…087a0 20 20 74 68 65 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 73 3b 0a 0a 20 20 20 65 6e 64 20 69 6e 69 74 ┆ the option names; end init┆
0x087a0…087c0 69 61 6c 69 7a 65 20 6f 70 74 69 6f 6e 20 74 61 62 6c 65 3b 0a 0a 0c 0a 3c 2a 20 20 62 62 6a 20 ┆ialize option table; <* bbj ┆
0x087c0…087e0 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 ┆ 9 9 76 init┆
0x087e0…08800 69 61 6c 69 7a 61 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ialization ┆
0x08800…08806 (68,) (0xcc,0x111)
0x08806…08820 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 32 2e 2e 2e 20 20 2a 3e ┆ catupdate ...12... *>┆
0x08820…08840 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 74 61 62 6c 65 73 ┆ comment initialize the tables┆
0x08840…08860 20 6f 66 20 73 79 73 74 65 6d 20 64 65 76 69 63 65 73 2c 0a 20 20 20 74 6f 20 62 65 20 75 73 65 ┆ of system devices, to be use┆
0x08860…0887e 64 20 62 79 20 74 68 65 20 61 63 74 69 6f 6e 20 2e 2e 64 65 76 69 63 65 2e 2e 3b 0a 0a 20 ┆d by the action ..device..; ┆
0x0887e…08884 (0xcc,0x112)
0x08884…088a0 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 ┆ for i := 1 step 1 until 5 ┆
0x088a0…088c0 64 6f 0a 20 20 20 20 20 20 64 65 76 69 63 65 6e 61 6d 65 28 69 29 20 3a 3d 20 6c 6f 6e 67 20 28 ┆do devicename(i) := long (┆
0x088c0…088e0 63 61 73 65 20 69 20 6f 66 0a 20 20 20 20 20 20 28 3c 3a 20 20 20 20 3a 3e 2c 20 3c 3a 70 72 69 ┆case i of (<: :>, <:pri┆
0x088e0…088fc 6e 3a 3e 2c 20 3c 3a 63 61 72 64 3a 3e 2c 20 3c 3a 70 75 6e 63 3a 3e 2c 20 3c 3a 70 ┆n:>, <:card:>, <:punc:>, <:p┆
0x088fc…08902 (0xcc,0x113)
0x08902…08920 6c 6f 74 3a 3e 29 29 3b 0a 20 20 20 6f 70 65 6e 28 74 72 61 6e 73 2c 20 34 2c 20 3c 3a 62 ┆lot:>)); open(trans, 4, <:b┆
0x08920…08940 6f 70 74 69 6f 6e 73 3a 3e 2c 20 30 29 3b 0a 20 20 20 69 6e 72 65 63 36 28 74 72 61 6e 73 2c 20 ┆options:>, 0); inrec6(trans, ┆
0x08940…08960 34 29 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 32 3e 3c 31 30 3e 3b 20 63 61 ┆4); write(out, <:<12><10>; ca┆
0x08960…0897a 74 75 70 64 61 74 65 20 76 65 72 73 69 6f 6e 3a 3e 2c 20 74 72 61 6e 73 2e 69 ┆tupdate version:>, trans.i┆
0x0897a…08980 (0xcc,0x114)
0x08980…089a0 66 32 2c 20 74 72 61 6e 73 2e 69 66 34 2c 20 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 ┆f2, trans.if4, <:<10><10>:>); ┆
0x089a0…089c0 20 69 6e 72 65 63 36 28 74 72 61 6e 73 2c 20 35 30 38 29 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 64 65 ┆ inrec6(trans, 508); no_of_de┆
0x089c0…089e0 76 69 63 65 73 20 3a 3d 20 74 72 61 6e 73 2e 69 66 34 3b 0a 20 20 20 70 31 20 3a 3d 20 74 72 61 ┆vices := trans.if4; p1 := tra┆
0x089e0…08a00 6e 73 2e 69 66 32 2d 34 3b 20 20 63 6f 6d 6d 65 6e 74 20 74 6f 70 20 6f 00 00 00 00 00 00 00 00 ┆ns.if2-4; comment top o ┆
0x08a00…08a06 (69,) (0xcc,0x115)
0x08a06…08a20 66 20 64 65 76 69 63 65 6c 69 73 74 2e 2e 2e 3b 0a 20 20 20 72 65 63 3a 3d 20 ┆f devicelist...; rec:= ┆
0x08a20…08a40 30 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 70 72 69 76 6b 69 74 73 3a 3d 20 74 72 61 6e 73 2e 72 65 63 ┆0; no_of_privkits:= trans.rec┆
0x08a40…08a60 28 33 29 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 70 72 69 76 5f 64 69 73 63 64 72 69 76 65 73 3a 3d 20 ┆(3); no_of_priv_discdrives:= ┆
0x08a60…08a7e 74 72 61 6e 73 2e 72 65 63 28 34 29 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 ┆trans.rec(4); for i:=1 step┆
0x08a7e…08a84 (0xcc,0x116)
0x08a84…08aa0 20 31 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f 64 65 76 69 63 65 73 20 64 6f 0a 20 20 ┆ 1 until no_of_devices do ┆
0x08aa0…08ac0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 64 65 76 69 63 65 6e 75 6d 62 65 72 28 69 29 20 ┆ begin devicenumber(i) ┆
0x08ac0…08ae0 3a 3d 20 74 72 61 6e 73 2e 70 31 20 65 78 74 72 61 63 74 20 31 31 20 2d 20 74 72 61 6e 73 2e 70 ┆:= trans.p1 extract 11 - trans.p┆
0x08ae0…08afc 31 20 73 68 69 66 74 28 2d 31 31 29 20 65 78 74 72 61 63 74 20 31 20 73 68 69 66 74 ┆1 shift(-11) extract 1 shift┆
0x08afc…08b02 (0xcc,0x117)
0x08b02…08b20 20 31 31 3b 0a 20 20 20 20 20 20 70 31 20 3a 3d 20 70 31 20 2d 20 31 3b 0a 20 20 20 20 20 ┆ 11; p1 := p1 - 1; ┆
0x08b20…08b40 20 65 6e 64 3b 0a 20 20 20 63 6c 6f 73 65 28 74 72 61 6e 73 2c 20 74 72 75 65 29 3b 0a 0a 0a 63 ┆ end; close(trans, true); c┆
0x08b40…08b60 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f ┆omment initialize the transactio┆
0x08b60…08b7a 6e 2d 7a 6f 6e 65 20 61 6e 64 20 75 70 64 61 74 65 0a 20 20 20 74 68 65 20 6e ┆n-zone and update the n┆
0x08b7a…08b80 (0xcc,0x118)
0x08b80…08ba0 65 77 63 61 74 2d 6f 70 74 69 6f 6e 2e 2e 2e 3b 0a 0a 20 20 20 66 6f 72 20 69 3a 3d 20 33 20 73 ┆ewcat-option...; for i:= 3 s┆
0x08ba0…08bc0 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 6c 69 6e 65 28 69 29 3a 3d 20 30 3b 0a 20 ┆tep 1 until 10 do line(i):= 0; ┆
0x08bc0…08be0 20 20 6f 70 65 6e 28 74 72 61 6e 73 2c 20 34 2c 20 3c 3a 3a 3e 2c 20 30 29 3b 0a 20 20 20 6c 69 ┆ open(trans, 4, <::>, 0); li┆
0x08be0…08c00 6e 65 28 31 29 20 3a 3d 20 77 6f 72 6b 73 69 7a 65 3b 0a 20 20 20 6c 69 00 00 00 00 00 00 00 00 ┆ne(1) := worksize; li ┆
0x08c00…08c06 (70,) (0xcc,0x119)
0x08c06…08c20 6e 65 28 32 29 20 3a 3d 20 31 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 72 65 66 2e ┆ne(2) := 1; comment pref.┆
0x08c20…08c40 20 64 69 73 63 3b 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 20 63 72 65 61 74 65 20 65 6e 74 ┆ disc; monitor(40) create ent┆
0x08c40…08c60 72 79 3a 28 74 72 61 6e 73 2c 20 30 2c 20 6c 69 6e 65 29 3b 0a 20 20 20 6f 70 65 6e 28 76 61 72 ┆ry:(trans, 0, line); open(var┆
0x08c60…08c7e 74 72 61 6e 73 2c 20 34 2c 20 3c 3a 3a 3e 2c 20 30 29 3b 0a 20 20 20 6c 69 6e 65 28 31 29 ┆trans, 4, <::>, 0); line(1)┆
0x08c7e…08c84 (0xcc,0x11a)
0x08c84…08ca0 3a 3d 20 6c 69 6e 65 28 32 29 3a 3d 20 31 3b 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 34 ┆:= line(2):= 1; monitor(4┆
0x08ca0…08cc0 30 29 20 63 72 65 61 74 65 20 65 6e 74 72 79 3a 28 76 61 72 74 72 61 6e 73 2c 20 30 2c 20 6c 69 ┆0) create entry:(vartrans, 0, li┆
0x08cc0…08ce0 6e 65 29 3b 0a 20 20 20 67 65 74 7a 6f 6e 65 36 28 74 72 61 6e 73 2c 20 6c 69 6e 65 29 3b 0a 20 ┆ne); getzone6(trans, line); ┆
0x08ce0…08cfc 20 20 66 6f 72 20 69 3a 3d 20 31 2c 20 32 20 64 6f 20 0a 20 20 20 20 20 20 74 72 61 ┆ for i:= 1, 2 do tra┆
0x08cfc…08d02 (0xcc,0x11b)
0x08d02…08d20 6e 73 6e 61 6d 65 28 69 29 3a 3d 20 72 65 61 6c 3c 3a 3a 3e 20 61 64 64 20 6c 69 6e 65 28 ┆nsname(i):= real<::> add line(┆
0x08d20…08d40 69 2a 32 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 6c 69 6e 65 28 69 2a 32 2b 31 29 3b 0a 20 ┆i*2) shift 24 add line(i*2+1); ┆
0x08d40…08d60 20 20 67 65 74 7a 6f 6e 65 36 28 76 61 72 74 72 61 6e 73 2c 20 6c 69 6e 65 29 3b 0a 20 20 20 66 ┆ getzone6(vartrans, line); f┆
0x08d60…08d7a 6f 72 20 69 3a 3d 20 31 2c 32 20 64 6f 0a 20 20 20 20 20 20 76 61 72 74 72 61 ┆or i:= 1,2 do vartra┆
0x08d7a…08d80 (0xcc,0x11c)
0x08d80…08da0 6e 73 6e 61 6d 65 28 69 29 3a 3d 20 72 65 61 6c 3c 3a 3a 3e 20 61 64 64 20 6c 69 6e 65 28 69 2a ┆nsname(i):= real<::> add line(i*┆
0x08da0…08dc0 32 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 6c 69 6e 65 28 69 2a 32 2b 31 29 3b 0a 0c 0a 3c ┆2) shift 24 add line(i*2+1); <┆
0x08dc0…08de0 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* bbj 9 9 76 ┆
0x08de0…08e00 20 20 20 66 70 2d 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ fp-command ┆
0x08e00…08e06 (71,) (0xcc,0x11d)
0x08e06…08e20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 33 2e ┆ catupdate ...13.┆
0x08e20…08e40 2e 2e 20 20 2a 3e 0a 0a 3c 2a 20 20 65 78 61 6d 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 ┆.. *> <* examination of the f┆
0x08e40…08e60 70 2d 63 6f 6d 6d 61 6e 64 20 2a 3e 0a 3c 2a 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆p-command *> <* ---------------┆
0x08e60…08e7e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 2a 3e 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 65 78 ┆-------------- *> comment ex┆
0x08e7e…08e84 (0xcc,0x11e)
0x08e84…08ea0 61 6d 69 6e 65 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 6c 69 73 74 3a 0a 20 20 ┆amine the parameter list: ┆
0x08ea0…08ec0 20 31 2e 20 69 66 20 74 68 65 72 65 20 69 73 20 61 20 6c 65 66 74 73 69 64 65 20 70 61 72 61 6d ┆ 1. if there is a leftside param┆
0x08ec0…08ee0 65 74 65 72 2c 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 7a 6f 6e 65 ┆eter, the transaction zone┆
0x08ee0…08efc 20 69 73 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 ┆ is connected to the specifi┆
0x08efc…08f02 (0xcc,0x11f)
0x08f02…08f20 65 64 20 61 72 65 61 0a 20 20 20 20 20 20 28 61 6e 64 20 74 68 65 20 6f 70 74 69 6f 6e 20 ┆ed area (and the option ┆
0x08f20…08f40 2e 2e 6c 65 66 74 73 69 64 65 2e 2e 20 69 73 20 73 65 74 20 74 6f 20 74 72 75 65 29 0a 20 20 20 ┆..leftside.. is set to true) ┆
0x08f40…08f60 32 2e 20 69 66 20 74 68 65 20 66 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 20 67 72 6f 75 70 20 ┆2. if the first parameter group ┆
0x08f60…08f7a 69 73 20 20 63 61 74 2e 79 65 73 20 20 74 68 65 0a 20 20 20 20 20 20 74 72 61 ┆is cat.yes the tra┆
0x08f7a…08f80 (0xcc,0x120)
0x08f80…08fa0 6e 73 61 63 74 69 6f 6e 73 20 61 72 65 20 6e 6f 74 20 6d 65 72 67 65 64 20 77 69 74 68 20 74 68 ┆nsactions are not merged with th┆
0x08fa0…08fc0 65 20 6f 6c 64 20 75 73 65 72 63 61 74 0a 20 20 20 20 20 20 28 61 6e 64 20 74 68 65 20 6f 70 74 ┆e old usercat (and the opt┆
0x08fc0…08fe0 69 6f 6e 20 2e 2e 6e 65 77 63 61 74 2e 2e 20 69 73 20 73 65 74 20 74 6f 20 74 72 75 65 29 0a 20 ┆ion ..newcat.. is set to true) ┆
0x08fe0…09000 20 20 3b 0a 0a 70 61 72 61 6d 6e 6f 20 3a 3d 20 31 3b 20 20 63 6f 6d 6d 00 00 00 00 00 00 00 00 ┆ ; paramno := 1; comm ┆
0x09000…09006 (72,) (0xcc,0x121)
0x09006…09020 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 61 20 70 6f 73 73 69 62 6c 65 20 70 72 ┆ent point at a possible pr┆
0x09020…09040 6f 67 72 61 6d 6e 61 6d 65 3b 0a 0a 69 20 3a 3d 20 73 79 73 74 65 6d 28 34 2c 20 70 61 72 61 6d ┆ogramname; i := system(4, param┆
0x09040…09060 6e 6f 2c 20 66 70 70 61 72 61 6d 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 67 65 74 20 70 61 72 61 6d ┆no, fpparam); comment get param┆
0x09060…0907e 65 74 65 72 20 31 20 3b 0a 0a 6c 65 66 74 73 69 64 65 20 3a 3d 20 66 61 6c 73 65 3b 0a 0a ┆eter 1 ; leftside := false; ┆
0x0907e…09084 (0xcc,0x122)
0x09084…090a0 69 66 20 69 20 3d 20 36 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 3c 2a 20 3d 20 ┆if i = 6 shift 12 + 10 <* = ┆
0x090a0…090c0 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 6e 61 6d 65 20 2a 3e 20 74 68 65 6e 0a 20 20 20 62 65 ┆followed by a name *> then be┆
0x090c0…090e0 67 69 6e 0a 20 20 20 6c 65 66 74 73 69 64 65 3a 3d 20 74 72 75 65 3b 0a 20 20 20 73 79 73 74 65 ┆gin leftside:= true; syste┆
0x090e0…090fc 6d 28 34 2c 20 30 2c 20 6e 65 77 63 61 74 6e 61 6d 65 29 3b 20 3c 2a 6c 65 66 74 73 ┆m(4, 0, newcatname); <*lefts┆
0x090fc…09102 (0xcc,0x123)
0x09102…09120 69 64 65 20 3a 3d 20 6e 65 77 63 61 74 6e 61 6d 65 20 2a 3e 0a 20 20 20 70 61 72 61 6d 6e ┆ide := newcatname *> paramn┆
0x09120…09140 6f 3a 3d 20 70 61 72 61 6d 6e 6f 20 2b 20 31 3b 0a 20 20 20 69 3a 3d 20 73 79 73 74 65 6d 28 34 ┆o:= paramno + 1; i:= system(4┆
0x09140…09160 2c 20 70 61 72 61 6d 6e 6f 2c 20 66 70 70 61 72 61 6d 29 3b 20 3c 2a 20 66 70 70 61 72 61 6d 20 ┆, paramno, fpparam); <* fpparam ┆
0x09160…0917a 3a 3d 20 63 61 74 75 70 64 61 74 65 20 2a 3e 0a 20 20 20 65 6e 64 3b 0a 0a 20 ┆:= catupdate *> end; ┆
0x0917a…09180 (0xcc,0x124)
0x09180…091a0 20 20 66 69 72 73 74 5f 70 61 72 61 6d 6e 6f 20 3a 3d 20 70 61 72 61 6d 6e 6f 20 2b 20 31 3b 0a ┆ first_paramno := paramno + 1; ┆
0x091a0…091c0 0a 63 6f 6d 6d 65 6e 74 20 6e 6f 77 20 70 61 72 61 6d 6e 6f 20 69 73 20 74 68 65 20 6e 75 6d 62 ┆ comment now paramno is the numb┆
0x091c0…091e0 65 72 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 72 65 61 6c 20 70 61 72 61 6d 65 74 65 72 2c 0a ┆er of the first real parameter, ┆
0x091e0…09200 20 20 20 61 6e 64 20 66 70 70 61 72 61 6d 20 63 6f 6e 74 61 69 6e 73 20 00 00 00 00 00 00 00 00 ┆ and fpparam contains ┆
0x09200…09206 (73,) (0xcc,0x125)
0x09206…09220 74 68 65 20 70 61 72 61 6d 65 74 65 72 2c 20 77 68 69 6c 65 20 20 69 20 20 63 ┆the parameter, while i c┆
0x09220…09240 6f 6e 74 61 69 6e 73 20 74 68 65 0a 20 20 20 70 61 72 61 6d 65 74 65 72 68 65 61 64 2e 2e 2e 3b ┆ontains the parameterhead...;┆
0x09240…09260 0a 0a 63 6f 6d 6d 65 6e 74 20 74 65 73 74 20 69 66 20 74 68 65 20 66 69 72 73 74 20 70 61 72 61 ┆ comment test if the first para┆
0x09260…0927e 6d 65 74 65 72 20 67 72 6f 75 70 20 69 73 20 20 63 61 74 2e 79 65 73 2e 2e 2e 3b 0a 0a 69 ┆meter group is cat.yes...; i┆
0x0927e…09284 (0xcc,0x126)
0x09284…092a0 66 20 69 66 20 69 20 3d 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 3c 2a 20 ┆f if i = 4 shift 12 + 10 <* ┆
0x092a0…092c0 2e 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 6e 61 6d 65 20 2a 3e 20 74 68 65 6e 20 66 70 70 ┆. followed by a name *> then fpp┆
0x092c0…092e0 61 72 61 6d 28 31 29 20 3d 20 72 65 61 6c 20 3c 3a 63 61 74 3a 3e 20 65 6c 73 65 20 66 61 6c 73 ┆aram(1) = real <:cat:> else fals┆
0x092e0…092fc 65 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 ┆e then begin comment the ┆
0x092fc…09302 (0xcc,0x127)
0x09302…09320 70 61 72 61 6d 65 74 65 72 20 67 72 6f 75 70 20 6d 61 79 20 62 65 20 20 63 61 74 2e 79 65 ┆parameter group may be cat.ye┆
0x09320…09340 73 20 20 3b 0a 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 20 70 61 72 61 6d 6e 6f 20 2b 20 31 ┆s ; if system(4, paramno + 1┆
0x09340…09360 2c 20 66 70 70 61 72 61 6d 29 20 3d 20 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 0a 20 20 20 ┆, fpparam) = 8 shift 12 + 10 ┆
0x09360…0937a 20 20 20 61 6e 64 20 66 70 70 61 72 61 6d 28 31 29 20 3d 20 72 65 61 6c 20 3c ┆ and fpparam(1) = real <┆
0x0937a…09380 (0xcc,0x128)
0x09380…093a0 3a 79 65 73 3a 3e 0a 20 20 20 20 20 20 61 6e 64 20 73 79 73 74 65 6d 28 34 2c 20 70 61 72 61 6d ┆:yes:> and system(4, param┆
0x093a0…093c0 6e 6f 20 2b 20 32 2c 20 66 70 70 61 72 61 6d 29 20 73 68 69 66 74 20 28 2d 31 32 29 20 3c 3e 20 ┆no + 2, fpparam) shift (-12) <> ┆
0x093c0…093e0 38 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 70 61 72 61 6d 6e 6f ┆8 then begin paramno┆
0x093e0…09400 20 3a 3d 20 70 61 72 61 6d 6e 6f 20 2b 20 32 3b 0a 20 20 20 20 20 20 6e 00 00 00 00 00 00 00 00 ┆ := paramno + 2; n ┆
0x09400…09406 (74,) (0xcc,0x129)
0x09406…09420 6f 6f 6c 64 63 61 74 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 20 ┆ooldcat:= true; end ┆
0x09420…09440 63 61 74 2e 79 65 73 3b 0a 20 20 20 65 6e 64 20 66 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 20 ┆cat.yes; end first parameter ┆
0x09440…09460 3d 20 3c 3a 63 61 74 3a 3e 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 66 ┆= <:cat:>; comment initialize f┆
0x09460…0947e 69 65 6c 64 73 20 69 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 72 65 63 6f 72 64 73 3b 0a ┆ields in transaction records; ┆
0x0947e…09484 (0xcc,0x12a)
0x09484…094a0 20 20 20 62 61 73 69 73 20 3a 3d 20 31 34 3b 0a 20 20 20 69 6e 74 31 20 3a 3d 20 32 ┆ basis := 14; int1 := 2┆
0x094a0…094c0 20 2b 20 62 61 73 69 73 3b 0a 20 20 20 69 6e 74 32 20 3a 3d 20 34 20 2b 20 62 61 73 69 73 3b 20 ┆ + basis; int2 := 4 + basis; ┆
0x094c0…094e0 20 6c 6f 6e 67 31 20 3a 3d 20 69 6e 74 32 3b 0a 20 20 20 69 6e 74 33 20 3a 3d 20 36 20 2b 20 62 ┆ long1 := int2; int3 := 6 + b┆
0x094e0…094fc 61 73 69 73 3b 0a 20 20 20 69 6e 74 34 20 3a 3d 20 38 20 2b 20 62 61 73 69 73 3b 20 ┆asis; int4 := 8 + basis; ┆
0x094fc…09502 (0xcc,0x12b)
0x09502…09520 20 6c 6f 6e 67 32 20 3a 3d 20 69 6e 74 34 3b 0a 20 20 20 69 6e 74 35 20 3a 3d 20 31 30 2b ┆ long2 := int4; int5 := 10+┆
0x09520…09540 20 62 61 73 69 73 3b 0a 20 20 20 69 6e 74 36 20 3a 3d 20 31 32 2b 20 62 61 73 69 73 3b 0a 20 20 ┆ basis; int6 := 12+ basis; ┆
0x09540…09560 20 69 6e 74 37 20 3a 3d 20 31 34 2b 20 62 61 73 69 73 3b 0a 0a 20 20 20 6d 61 78 6c 65 6e 67 74 ┆ int7 := 14+ basis; maxlengt┆
0x09560…0957a 68 20 3a 3d 20 69 6e 74 37 3b 20 20 63 6f 6d 6d 65 6e 74 20 6c 61 73 74 20 62 ┆h := int7; comment last b┆
0x0957a…09580 (0xcc,0x12c)
0x09580…095a0 79 74 65 20 6f 66 20 6c 6f 6e 67 65 73 74 20 72 65 63 6f 72 64 3b 0a 20 20 20 6d 61 78 6c 65 6e ┆yte of longest record; maxlen┆
0x095a0…095c0 67 74 68 20 3a 3d 20 28 28 6d 61 78 6c 65 6e 67 74 68 20 2b 20 33 29 20 2f 2f 20 34 29 20 2a 20 ┆gth := ((maxlength + 3) // 4) * ┆
0x095c0…095e0 34 3b 20 63 6f 6d 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 61 0a 20 20 20 20 20 20 6d 75 6c 74 69 ┆4; comment must be a multi┆
0x095e0…09600 70 6c 65 20 6f 66 20 34 20 62 79 74 65 73 3b 0a 20 20 20 6e 6f 5f 6f 66 00 00 00 00 00 00 00 00 ┆ple of 4 bytes; no_of ┆
0x09600…09606 (75,) (0xcc,0x12d)
0x09606…09620 5f 74 72 61 6e 73 3a 3d 20 6e 6f 5f 6f 66 5f 76 61 72 74 72 61 6e 73 3a 3d 20 ┆_trans:= no_of_vartrans:= ┆
0x09620…09640 30 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 ┆0; <* bbj 9 9 76 ┆
0x09640…09660 20 20 20 20 20 20 20 20 20 66 70 2d 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ fp-command ┆
0x09660…0967e 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 34 2e 2e 2e 20 20 2a 3e ┆ catupdate ...14... *>┆
0x0967e…09684 (0xcc,0x12e)
0x09684…096a0 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 69 6e ┆ comment initialize the in┆
0x096a0…096c0 70 75 74 20 7a 6f 6e 65 2c 20 61 6e 64 20 75 70 64 61 74 65 20 74 68 65 20 6c 69 73 74 2d 6f 70 ┆put zone, and update the list-op┆
0x096c0…096e0 74 69 6f 6e 2e 2e 2e 3b 0a 0a 6e 65 78 74 5f 73 6f 75 72 63 65 3a 20 20 20 20 20 20 3b 20 63 6f ┆tion...; next_source: ; co┆
0x096e0…096fc 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 3b 0a 0a 63 ┆mment *************** ; c┆
0x096fc…09702 (0xcc,0x12f)
0x09702…09720 6f 6d 6d 65 6e 74 20 70 61 72 61 6d 6e 6f 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f ┆omment paramno is the number o┆
0x09720…09740 66 20 74 68 65 20 6e 65 78 74 20 66 70 70 61 72 61 6d 65 74 65 72 3b 0a 0a 69 20 3a 3d 20 73 79 ┆f the next fpparameter; i := sy┆
0x09740…09760 73 74 65 6d 28 34 2c 20 70 61 72 61 6d 6e 6f 2c 20 66 70 70 61 72 61 6d 29 3b 20 20 63 6f 6d 6d ┆stem(4, paramno, fpparam); comm┆
0x09760…0977a 65 6e 74 20 67 65 74 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 3b 0a 0a 69 66 ┆ent get the parameter; if┆
0x0977a…09780 (0xcc,0x130)
0x09780…097a0 20 69 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 65 ┆ i = 0 then begin comment the┆
0x097a0…097c0 20 6c 69 73 74 20 69 73 20 65 6d 70 74 79 3b 0a 20 20 20 69 66 20 6e 6f 73 6f 75 72 63 65 20 74 ┆ list is empty; if nosource t┆
0x097c0…097e0 68 65 6e 0a 20 20 20 20 20 20 70 72 69 6e 74 20 3a 3d 20 31 20 73 68 69 66 74 20 33 3b 20 20 63 ┆hen print := 1 shift 3; c┆
0x097e0…09800 6f 6d 6d 65 6e 74 20 70 72 69 6e 74 20 61 6c 6c 20 63 61 74 61 6c 6f 67 00 00 00 00 00 00 00 00 ┆omment print all catalog ┆
0x09800…09806 (76,) (0xcc,0x131)
0x09806…09820 2e 2e 2e 3b 0a 20 20 20 6c 69 6e 65 74 79 70 65 20 3a 3d 20 2d 31 3b 20 20 63 ┆...; linetype := -1; c┆
0x09820…09840 6f 6d 6d 65 6e 74 20 73 69 6d 75 6c 61 74 65 20 61 20 66 69 6e 69 73 2d 72 65 63 6f 72 64 3b 0a ┆omment simulate a finis-record; ┆
0x09840…09860 20 20 20 67 6f 74 6f 20 73 65 6c 65 63 74 3b 0a 20 20 20 65 6e 64 3b 0a 0a 69 66 20 69 20 3c 3e ┆ goto select; end; if i <>┆
0x09860…0987e 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 3c 2a 20 73 70 61 63 65 20 66 6f 6c 6c ┆ 4 shift 12 + 10 <* space foll┆
0x0987e…09884 (0xcc,0x132)
0x09884…098a0 6f 77 65 64 20 62 79 20 6e 61 6d 65 20 2a 3e 20 74 68 65 6e 20 70 61 72 61 6d 65 74 ┆owed by name *> then paramet┆
0x098a0…098c0 65 72 5f 65 72 72 6f 72 3b 0a 0a 69 20 3a 3d 20 73 79 73 74 65 6d 28 34 2c 20 70 61 72 61 6d 6e ┆er_error; i := system(4, paramn┆
0x098c0…098e0 6f 20 2b 20 31 2c 20 66 70 70 61 72 61 6d 31 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 65 78 61 6d 69 ┆o + 1, fpparam1); comment exami┆
0x098e0…098fc 6e 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 20 20 70 61 72 61 6d 65 74 65 ┆ne the following paramete┆
0x098fc…09902 (0xcc,0x133)
0x09902…09920 72 2e 2e 2e 3b 0a 0a 69 66 20 69 20 73 68 69 66 74 20 28 2d 31 32 29 20 3d 20 38 20 74 68 ┆r...; if i shift (-12) = 8 th┆
0x09920…09940 65 6e 0a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 61 6d 65 74 65 72 20 67 72 ┆en begin comment parameter gr┆
0x09940…09960 6f 75 70 20 2e 2e 2e 20 6d 75 73 74 20 62 65 20 20 6c 69 73 74 2e 6f 6e 20 20 6f 72 20 20 6c 69 ┆oup ... must be list.on or li┆
0x09960…0997a 73 74 2e 6f 66 66 3b 0a 20 20 20 69 66 20 69 20 3d 20 38 20 73 68 69 66 74 20 ┆st.off; if i = 8 shift ┆
0x0997a…09980 (0xcc,0x134)
0x09980…099a0 31 32 20 2b 20 31 30 20 3c 2a 20 2e 20 61 6e 64 20 6e 61 6d 65 20 66 6f 6c 6c 6f 77 73 20 2a 3e ┆12 + 10 <* . and name follows *>┆
0x099a0…099c0 0a 20 20 20 20 20 20 61 6e 64 20 66 70 70 61 72 61 6d 28 31 29 20 3d 20 72 65 61 6c 20 3c 3a 6c ┆ and fpparam(1) = real <:l┆
0x099c0…099e0 69 73 74 3a 3e 0a 20 20 20 20 20 20 61 6e 64 20 73 79 73 74 65 6d 28 34 2c 20 70 61 72 61 6d 6e ┆ist:> and system(4, paramn┆
0x099e0…09a00 6f 20 2b 20 32 2c 20 66 70 70 61 72 61 6d 29 20 73 68 69 66 74 20 28 2d 00 00 00 00 00 00 00 00 ┆o + 2, fpparam) shift (- ┆
0x09a00…09a06 (77,) (0xcc,0x135)
0x09a06…09a20 31 32 29 20 3c 3e 20 38 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆12) <> 8 then begin ┆
0x09a20…09a40 20 20 20 20 20 20 6c 69 73 74 20 3a 3d 20 66 70 70 61 72 61 6d 31 28 31 29 20 3d 20 72 65 61 6c ┆ list := fpparam1(1) = real┆
0x09a40…09a60 20 3c 3a 6f 6e 3a 3e 3b 0a 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 20 3a 3d 20 70 61 72 61 6d 6e ┆ <:on:>; paramno := paramn┆
0x09a60…09a7e 6f 20 2b 20 32 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 5f 73 6f 75 72 63 65 3b ┆o + 2; goto next_source;┆
0x09a7e…09a84 (0xcc,0x136)
0x09a84…09aa0 0a 20 20 20 20 20 20 65 6e 64 20 6c 69 73 74 2e 6f 6e 20 6f 72 20 6c 69 73 74 2e 6f ┆ end list.on or list.o┆
0x09aa0…09ac0 66 66 0a 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 70 61 72 61 6d 65 74 65 72 5f 65 72 72 6f 72 ┆ff else parameter_error┆
0x09ac0…09ae0 3b 0a 20 20 20 65 6e 64 20 70 61 72 61 6d 65 74 65 72 20 67 72 6f 75 70 3b 0a 0a 63 6f 6d 6d 65 ┆; end parameter group; comme┆
0x09ae0…09afc 6e 74 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 74 68 65 20 6e 61 6d 65 ┆nt the parameter is the name┆
0x09afc…09b02 (0xcc,0x137)
0x09b02…09b20 20 6f 66 20 74 68 65 20 6e 65 78 74 20 73 6f 75 72 63 65 3b 0a 0a 70 61 72 61 6d 6e 6f 20 ┆ of the next source; paramno ┆
0x09b20…09b40 3a 3d 20 70 61 72 61 6d 6e 6f 20 2b 20 31 3b 0a 0a 6e 6f 73 6f 75 72 63 65 20 3a 3d 20 20 66 61 ┆:= paramno + 1; nosource := fa┆
0x09b40…09b60 6c 73 65 3b 0a 69 66 20 70 61 72 61 6d 6e 6f 20 3d 20 66 69 72 73 74 5f 70 61 72 61 6d 6e 6f 20 ┆lse; if paramno = first_paramno ┆
0x09b60…09b7a 74 68 65 6e 0a 20 20 20 73 79 73 74 65 6d 28 39 2c 20 30 2c 20 3c 3a 3c 31 30 ┆then system(9, 0, <:<10┆
0x09b7a…09b80 (0xcc,0x138)
0x09b80…09ba0 3e 2a 2a 2a 63 61 6c 6c 20 3a 3e 29 3b 0a 63 6c 6f 73 65 28 69 6e 2c 20 74 72 75 65 29 3b 0a 0a ┆>***call :>); close(in, true); ┆
0x09ba0…09bc0 69 20 3a 3d 20 31 3b 20 6f 70 65 6e 28 69 6e 2c 20 34 2c 20 73 74 72 69 6e 67 20 66 70 70 61 72 ┆i := 1; open(in, 4, string fppar┆
0x09bc0…09be0 61 6d 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 30 29 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 65 78 ┆am(increase(i)), 0); comment ex┆
0x09be0…09c00 61 6d 69 6e 65 20 69 66 20 69 74 20 69 73 20 73 6f 6d 65 74 68 69 6e 67 00 00 00 00 00 00 00 00 ┆amine if it is something ┆
0x09c00…09c06 (78,) (0xcc,0x139)
0x09c06…09c20 20 65 6c 73 65 20 74 68 61 6e 20 61 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 65 ┆ else than a backing store┆
0x09c20…09c40 20 61 72 65 61 3b 0a 0a 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 2c 20 69 6e 2c 20 31 2c 20 ┆ area; i := monitor(42, in, 1, ┆
0x09c40…09c60 6c 69 6e 65 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 3b 0a 0a 69 ┆line); comment lookup entry; i┆
0x09c60…09c7e 66 20 69 20 3d 20 30 20 61 6e 64 20 6c 69 6e 65 28 31 29 20 3c 20 30 20 74 68 65 6e 0a 20 ┆f i = 0 and line(1) < 0 then ┆
0x09c7e…09c84 (0xcc,0x13a)
0x09c84…09ca0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 74 20 69 73 20 61 20 66 69 6c 65 ┆ begin comment it is a file┆
0x09ca0…09cc0 64 65 73 63 72 69 70 74 6f 72 2e 2e 2e 3b 0a 20 20 20 63 6c 6f 73 65 28 69 6e 2c 20 74 72 75 65 ┆descriptor...; close(in, true┆
0x09cc0…09ce0 29 3b 20 63 6f 6d 6d 65 6e 74 20 69 2e 65 2e 20 72 65 67 72 65 74 20 74 68 65 20 6f 70 65 6e 2e ┆); comment i.e. regret the open.┆
0x09ce0…09cfc 2e 2e 3b 0a 20 20 20 69 20 3a 3d 20 32 3b 0a 20 20 20 6f 70 65 6e 28 69 6e 2c 20 6c ┆..; i := 2; open(in, l┆
0x09cfc…09d02 (0xcc,0x13b)
0x09d02…09d20 69 6e 65 28 31 29 20 65 78 74 72 61 63 74 20 32 33 2c 20 73 74 72 69 6e 67 20 28 72 65 61 ┆ine(1) extract 23, string (rea┆
0x09d20…09d40 6c 20 3c 3a 3a 3e 20 61 64 64 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 28 69 6e 63 72 65 61 73 65 ┆l <::> add line(increase┆
0x09d40…09d60 28 69 29 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 6c 69 6e 65 28 69 6e 63 72 65 61 73 65 28 ┆(i)) shift 24 add line(increase(┆
0x09d60…09d7a 69 29 29 29 2c 20 30 29 3b 0a 20 20 20 65 6e 64 3b 0a 0a 63 6f 6d 6d 65 6e 74 ┆i))), 0); end; comment┆
0x09d7a…09d80 (0xcc,0x13c)
0x09d80…09da0 20 70 6f 73 69 74 69 6f 6e 20 74 68 65 20 69 6e 70 75 74 2c 20 61 63 63 6f 72 64 69 6e 67 20 74 ┆ position the input, according t┆
0x09da0…09dc0 6f 20 74 68 65 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 79 2e 2e 2e 3b 0a 0a 69 66 20 6c 69 6e 65 ┆o the catalog entry...; if line┆
0x09dc0…09de0 28 31 29 20 3e 20 30 20 6f 72 20 6c 69 6e 65 28 31 29 20 65 78 74 72 61 63 74 20 31 32 20 3d 20 ┆(1) > 0 or line(1) extract 12 = ┆
0x09de0…09e00 34 20 6f 72 20 6c 69 6e 65 28 31 29 20 65 78 74 72 61 63 74 20 31 32 20 00 00 00 00 00 00 00 00 ┆4 or line(1) extract 12 ┆
0x09e00…09e06 (79,) (0xcc,0x13d)
0x09e06…09e20 3d 20 31 38 20 74 68 65 6e 0a 73 65 74 70 6f 73 69 74 69 6f 6e 28 69 6e 2c 20 ┆= 18 then setposition(in, ┆
0x09e20…09e40 6c 69 6e 65 28 37 29 2c 20 6c 69 6e 65 28 38 29 29 3b 0a 63 6f 6d 6d 65 6e 74 20 2e 2e 2e 20 6f ┆line(7), line(8)); comment ... o┆
0x09e40…09e60 6e 6c 79 20 69 6e 20 63 61 73 65 20 6f 66 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 65 20 61 72 65 ┆nly in case of backing store are┆
0x09e60…09e7e 61 20 6f 72 20 6d 61 67 2e 74 61 70 65 2e 2e 2e 3b 0a 0a 67 6f 74 6f 20 66 69 72 73 74 5f ┆a or mag.tape...; goto first_┆
0x09e7e…09e84 (0xcc,0x13e)
0x09e84…09ea0 6c 69 6e 65 3b 0a 0a 3c 2a 20 65 6e 64 20 66 70 2d 63 6f 6d 6d 61 6e 64 20 2a 3e 0a ┆line; <* end fp-command *> ┆
0x09ea0…09ec0 3c 2a 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 2a 3e 0a 0a 0c 0a 3c 2a 20 20 62 62 6a 20 ┆<* -------------- *> <* bbj ┆
0x09ec0…09ee0 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 70 75 ┆ 9 9 76 inpu┆
0x09ee0…09efc 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 ┆t ca┆
0x09efc…09f02 (0xcc,0x13f)
0x09f02…09f20 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 35 2e 2e 2e 20 20 2a 3e 0a 0a 0a 70 72 69 6e 74 5f ┆tupdate ...15... *> print_┆
0x09f20…09f40 6c 69 6e 65 3a 20 20 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆line: ; comment ***********┆
0x09f40…09f60 2a 2a 2a 2a 20 20 3b 0a 0a 69 66 20 6c 69 73 74 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a 0a ┆**** ; if list then begin ┆
0x09f60…09f7a 61 6c 61 72 6d 70 72 69 6e 74 3a 20 20 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 ┆alarmprint: ; comment┆
0x09f7a…09f80 (0xcc,0x140)
0x09f80…09fa0 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 20 20 20 77 72 69 74 65 28 6f 75 ┆ *************** ; write(ou┆
0x09fa0…09fc0 74 2c 20 3c 3c 64 3e 2c 20 69 6e 6c 69 6e 65 74 79 70 65 29 3b 0a 20 20 20 66 6f 72 20 69 20 3a ┆t, <<d>, inlinetype); for i :┆
0x09fc0…09fe0 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 28 61 62 73 20 6c 69 6e 65 6c 65 6e 67 74 68 ┆= 1 step 1 until (abs linelength┆
0x09fe0…0a000 29 2d 31 20 64 6f 0a 20 20 20 20 20 20 63 61 73 65 20 6b 69 6e 64 28 69 00 00 00 00 00 00 00 00 ┆)-1 do case kind(i ┆
0x0a000…0a006 (80,) (0xcc,0x141)
0x0a006…0a020 29 20 6f 66 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆) of begin ┆
0x0a020…0a040 20 20 20 63 6f 6d 6d 65 6e 74 20 6b 69 6e 64 20 31 3b 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a ┆ comment kind 1; write(out, <:┆
0x0a040…0a060 2a 2a 2a 6e 75 6d 62 65 72 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 3a 3e 29 3b 0a 20 20 20 20 20 ┆***number out of range:>); ┆
0x0a060…0a07e 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6b 69 6e 64 20 32 3b 20 77 72 69 74 65 28 6f 75 74 2c ┆ comment kind 2; write(out,┆
0x0a07e…0a084 (0xcc,0x142)
0x0a084…0a0a0 20 3c 3c 64 3e 2c 20 6c 69 6e 65 28 69 29 29 3b 0a 20 20 20 20 20 20 20 20 20 63 6f ┆ <<d>, line(i)); co┆
0x0a0a0…0a0c0 6d 6d 65 6e 74 20 6b 69 6e 64 20 33 2c 34 2c 35 3b 20 3b 3b 3b 0a 20 20 20 20 20 20 20 20 20 63 ┆mment kind 3,4,5; ;;; c┆
0x0a0c0…0a0e0 6f 6d 6d 65 6e 74 20 6b 69 6e 64 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆omment kind 6; begin┆
0x0a0e0…0a0fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 ┆ write(out, stri┆
0x0a0fc…0a102 (0xcc,0x143)
0x0a102…0a120 6e 67 20 28 72 65 61 6c 20 3c 3a 3a 3e 20 61 64 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ng (real <::> add ┆
0x0a120…0a140 20 20 20 20 20 20 6c 69 6e 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 20 73 68 69 66 74 20 32 34 ┆ line(increase(i)) shift 24┆
0x0a140…0a160 20 61 64 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 28 69 6e 63 72 ┆ add line(incr┆
0x0a160…0a17a 65 61 73 65 28 69 29 29 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 20 ┆ease(i)))); i ┆
0x0a17a…0a180 (0xcc,0x144)
0x0a180…0a1a0 3a 3d 20 69 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆:= i-1; end; ┆
0x0a1a0…0a1c0 20 20 63 6f 6d 6d 65 6e 74 20 6b 69 6e 64 20 37 3b 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c ┆ comment kind 7; write(out, fal┆
0x0a1c0…0a1e0 73 65 20 61 64 64 20 6c 69 6e 65 28 69 29 2c 20 31 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 ┆se add line(i), 1); end┆
0x0a1e0…0a200 20 63 61 73 65 20 6b 69 6e 64 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 00 00 00 00 00 00 00 00 ┆ case kind; write(out ┆
0x0a200…0a206 (81,) (0xcc,0x145)
0x0a206…0a220 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 69 66 20 69 6e 6c 69 6e 65 74 79 ┆, <:<10>:>); if inlinety┆
0x0a220…0a240 70 65 20 3d 20 35 20 74 68 65 6e 20 74 65 73 74 76 61 6c 75 65 73 28 74 79 70 65 6f 66 72 65 63 ┆pe = 5 then testvalues(typeofrec┆
0x0a240…0a260 2c 76 61 6c 75 65 6f 66 70 61 72 29 3b 0a 20 20 20 65 6e 64 20 70 72 69 6e 74 20 6c 69 6e 65 3b ┆,valueofpar); end print line;┆
0x0a260…0a27e 0a 0a 63 6f 6d 6d 65 6e 74 20 72 65 61 64 69 6e 67 20 6f 66 20 69 6e 70 75 74 20 3b 0a 63 ┆ comment reading of input ; c┆
0x0a27e…0a284 (0xcc,0x146)
0x0a284…0a2a0 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 3b 0a 0a 74 ┆omment ---------------- ; t┆
0x0a2a0…0a2c0 61 62 6c 65 69 6e 64 65 78 20 3a 3d 20 32 35 36 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 ┆ableindex := 256; comment selec┆
0x0a2c0…0a2e0 74 20 73 74 64 20 61 6c 66 61 62 65 74 3b 0a 66 6f 72 20 69 20 3a 3d 20 72 65 61 64 63 68 61 72 ┆t std alfabet; for i := readchar┆
0x0a2e0…0a2fc 28 69 6e 2c 20 69 29 20 77 68 69 6c 65 20 69 20 3c 3e 20 38 20 64 6f 20 3b 0a 20 20 ┆(in, i) while i <> 8 do ; ┆
0x0a2fc…0a302 (0xcc,0x147)
0x0a302…0a320 20 63 6f 6d 6d 65 6e 74 20 73 6b 69 70 20 61 6e 79 20 70 6f 73 73 69 62 6c 65 20 6c 69 6e ┆ comment skip any possible lin┆
0x0a320…0a340 65 2d 72 65 73 74 3b 0a 0a 66 69 72 73 74 5f 6c 69 6e 65 3a 20 20 20 20 20 20 3b 20 63 6f 6d 6d ┆e-rest; first_line: ; comm┆
0x0a340…0a360 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 69 66 20 6c 69 73 74 20 ┆ent *************** ; if list ┆
0x0a360…0a37a 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 6f 70 79 ┆then begin comment copy┆
0x0a37a…0a380 (0xcc,0x148)
0x0a380…0a3a0 20 69 6e 70 75 74 20 75 6e 74 69 6c 20 73 69 67 6e 2c 20 64 69 67 69 74 73 20 6f 72 20 65 6e 64 ┆ input until sign, digits or end┆
0x0a3a0…0a3c0 6c 69 6e 65 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 72 65 61 64 63 68 61 72 28 69 6e 2c 20 6a 29 20 ┆line; for i:=readchar(in, j) ┆
0x0a3c0…0a3e0 77 68 69 6c 65 20 69 3c 3e 33 20 61 6e 64 20 69 3c 3e 32 20 61 6e 64 20 6a 3c 3e 32 35 20 64 6f ┆while i<>3 and i<>2 and j<>25 do┆
0x0a3e0…0a400 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 65 20 00 00 00 00 00 00 00 00 ┆ write(out, false ┆
0x0a400…0a406 (82,) (0xcc,0x149)
0x0a406…0a420 61 64 64 20 6a 2c 20 31 29 3b 0a 20 20 20 72 65 70 65 61 74 63 68 61 72 28 69 ┆add j, 1); repeatchar(i┆
0x0a420…0a440 6e 29 3b 0a 20 20 20 65 6e 64 3b 0a 0a 69 66 20 72 65 61 64 28 69 6e 2c 20 69 6e 6c 69 6e 65 74 ┆n); end; if read(in, inlinet┆
0x0a440…0a460 79 70 65 29 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 5f 73 6f 75 72 63 65 3b 0a ┆ype) = 0 then goto next_source; ┆
0x0a460…0a47e 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 0a 6c 69 6e 65 74 79 70 65 20 3a 3d 20 69 6e ┆repeatchar(in); linetype := in┆
0x0a47e…0a484 (0xcc,0x14a)
0x0a484…0a4a0 6c 69 6e 65 74 79 70 65 3b 0a 69 66 20 69 6e 6c 69 6e 65 74 79 70 65 20 3d 20 2d 31 ┆linetype; if inlinetype = -1┆
0x0a4a0…0a4c0 20 74 68 65 6e 20 67 6f 74 6f 20 73 65 6c 65 63 74 3b 20 20 63 6f 6d 6d 65 6e 74 20 66 69 6e 69 ┆ then goto select; comment fini┆
0x0a4c0…0a4e0 73 2d 72 65 63 6f 72 64 3b 0a 6c 69 6e 65 74 79 70 65 20 3a 3d 20 61 62 73 20 6c 69 6e 65 74 79 ┆s-record; linetype := abs linety┆
0x0a4e0…0a4fc 70 65 3b 0a 69 66 20 6c 69 6e 65 74 79 70 65 20 3d 20 33 20 6f 72 20 6c 69 6e 65 74 ┆pe; if linetype = 3 or linet┆
0x0a4fc…0a502 (0xcc,0x14b)
0x0a502…0a520 79 70 65 3d 31 32 20 74 68 65 6e 20 74 61 62 6c 65 69 6e 64 65 78 20 3a 3d 20 30 3b 20 3c ┆ype=12 then tableindex := 0; <┆
0x0a520…0a540 2a 20 6e 61 6d 65 20 61 6e 64 20 61 64 64 20 6f 72 20 61 63 63 6f 75 6e 74 69 6e 67 20 2a 3e 0a ┆* name and add or accounting *> ┆
0x0a540…0a560 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 73 70 65 63 69 61 6c 20 61 6c 66 61 62 65 74 20 ┆ comment this special alfabet ┆
0x0a560…0a57a 73 6b 69 70 73 20 74 68 65 20 70 72 65 63 65 64 69 6e 67 0a 20 20 20 73 70 61 ┆skips the preceding spa┆
0x0a57a…0a580 (0xcc,0x14c)
0x0a580…0a5a0 63 65 73 20 6f 6e 20 61 20 6c 69 6e 65 2c 20 61 6e 64 20 74 65 72 6d 69 6e 61 74 65 73 20 72 65 ┆ces on a line, and terminates re┆
0x0a5a0…0a5c0 61 64 69 6e 67 20 77 68 65 6e 0a 20 20 20 61 20 73 65 6d 69 63 6f 6c 6f 6e 20 6f 72 20 65 6e 64 ┆ading when a semicolon or end┆
0x0a5c0…0a5e0 5f 6d 65 64 69 75 6d 20 63 68 61 72 20 6f 63 63 75 72 73 3b 0a 0a 6c 69 6e 65 6c 65 6e 67 74 68 ┆_medium char occurs; linelength┆
0x0a5e0…0a600 20 3a 3d 20 72 65 61 64 61 6c 6c 28 69 6e 2c 20 6c 69 6e 65 2c 20 6b 69 00 00 00 00 00 00 00 00 ┆ := readall(in, line, ki ┆
0x0a600…0a606 (83,) (0xcc,0x14d)
0x0a606…0a620 6e 64 2c 20 31 29 3b 0a 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 0a 66 72 ┆nd, 1); repeatchar(in); fr┆
0x0a620…0a640 65 65 70 61 72 61 6d 20 3a 3d 20 6c 69 6e 65 6c 65 6e 67 74 68 20 2b 20 31 3b 0a 69 66 20 6c 69 ┆eeparam := linelength + 1; if li┆
0x0a640…0a660 6e 65 74 79 70 65 20 3e 20 31 32 20 6f 72 20 69 6e 6c 69 6e 65 74 79 70 65 20 3c 20 2d 31 20 74 ┆netype > 12 or inlinetype < -1 t┆
0x0a660…0a67e 68 65 6e 20 20 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 6c 69 6e 65 74 79 70 65 3a ┆hen alarm(<:illegal linetype:┆
0x0a67e…0a684 (0xcc,0x14e)
0x0a684…0a6a0 3e 29 3b 0a 0a 69 66 20 6c 69 6e 65 6c 65 6e 67 74 68 20 3c 20 30 20 74 68 65 6e 20 ┆>); if linelength < 0 then ┆
0x0a6a0…0a6c0 61 6c 61 72 6d 28 3c 3a 6c 69 6e 65 20 74 6f 6f 20 6c 6f 6e 67 3a 3e 29 3b 0a 69 66 20 6c 69 6e ┆alarm(<:line too long:>); if lin┆
0x0a6c0…0a6e0 65 74 79 70 65 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 73 65 6c 65 63 74 3b 20 20 63 6f 6d ┆etype = 0 then goto select; com┆
0x0a6e0…0a6fc 6d 65 6e 74 20 65 6e 64 2d 72 65 63 6f 72 64 3b 0a 69 66 20 6c 69 6e 65 74 79 70 65 ┆ment end-record; if linetype┆
0x0a6fc…0a702 (0xcc,0x14f)
0x0a702…0a720 20 3c 3e 20 33 20 61 6e 64 20 6c 69 6e 65 74 79 70 65 20 3c 3e 20 31 32 20 61 6e 64 20 6c ┆ <> 3 and linetype <> 12 and l┆
0x0a720…0a740 69 6e 65 6c 65 6e 67 74 68 20 3c 20 33 20 61 6e 64 20 6c 69 6e 65 6c 65 6e 67 74 68 20 3c 3e 20 ┆inelength < 3 and linelength <> ┆
0x0a740…0a760 30 20 74 68 65 6e 0a 20 20 20 61 6c 61 72 6d 28 3c 3a 74 6f 6f 20 66 65 77 20 70 61 72 61 6d 65 ┆0 then alarm(<:too few parame┆
0x0a760…0a77a 74 65 72 73 20 6f 6e 20 6c 69 6e 65 3a 3e 29 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 ┆ters on line:>); comment ┆
0x0a77a…0a780 (0xcc,0x150)
0x0a780…0a7a0 63 68 65 63 6b 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 6c 69 6e 65 3b 0a 0c 0a 3c 2a ┆check the type of the line; <*┆
0x0a7a0…0a7c0 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bbj 9 9 76 ┆
0x0a7c0…0a7e0 20 20 73 65 61 72 63 68 20 6b 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ search kind ┆
0x0a7e0…0a800 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 36 2e 2e 2e 20 20 2a 3e 0a 00 00 00 00 00 00 00 00 ┆catupdate ...16... *> ┆
0x0a800…0a806 (84,) (0xcc,0x151)
0x0a806…0a820 0a 0a 63 6f 6d 6d 65 6e 74 20 73 65 61 72 63 68 20 74 68 65 20 6b 69 6e 64 2d ┆ comment search the kind-┆
0x0a820…0a840 61 72 72 61 79 20 61 6e 64 20 66 69 6e 64 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 ┆array and find the start of the ┆
0x0a840…0a860 70 61 72 61 6d 65 74 65 72 73 20 3b 0a 69 20 3a 3d 20 31 3b 0a 6e 75 6d 62 65 72 5f 6f 66 5f 70 ┆parameters ; i := 1; number_of_p┆
0x0a860…0a87e 61 72 61 6d 73 20 3a 3d 20 2d 31 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 69 20 69 73 20 74 68 65 ┆arams := -1; comment i is the┆
0x0a87e…0a884 (0xcc,0x152)
0x0a884…0a8a0 20 65 6c 65 6d 65 6e 74 20 69 6e 20 2e 2e 2e 6b 69 6e 64 2e 2e 2e 20 74 6f 20 62 65 ┆ element in ...kind... to be┆
0x0a8a0…0a8c0 20 63 68 65 63 6b 65 64 2c 20 77 68 69 6c 65 0a 20 20 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 ┆ checked, while number_of_par┆
0x0a8c0…0a8e0 61 6d 73 20 69 73 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 70 61 72 61 6d 65 74 ┆ams is the corresponding paramet┆
0x0a8e0…0a8fc 65 72 20 6e 75 6d 62 65 72 20 69 6e 0a 20 20 20 74 68 65 20 6c 69 6e 65 20 28 6e 6f ┆er number in the line (no┆
0x0a8fc…0a902 (0xcc,0x153)
0x0a902…0a920 74 69 63 65 3a 20 70 61 72 61 6d 65 74 65 72 73 20 61 72 65 20 63 6f 75 6e 74 65 64 20 66 ┆tice: parameters are counted f┆
0x0a920…0a940 72 6f 6d 20 30 2e 2e 2e 29 3b 0a 0a 66 6f 72 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 ┆rom 0...); for number_of_params┆
0x0a940…0a960 20 3a 3d 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 2b 20 31 20 77 68 69 6c 65 20 6b ┆ := number_of_params + 1 while k┆
0x0a960…0a97a 69 6e 64 28 69 29 20 3c 3e 20 38 20 64 6f 0a 20 20 20 62 65 67 69 6e 0a 20 20 ┆ind(i) <> 8 do begin ┆
0x0a97a…0a980 (0xcc,0x154)
0x0a980…0a9a0 20 69 66 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 3e 20 36 20 74 68 65 6e 20 61 6c ┆ if number_of_params > 6 then al┆
0x0a9a0…0a9c0 61 72 6d 28 3c 3a 74 6f 6f 20 6d 61 6e 79 20 70 61 72 61 6d 65 74 65 72 73 3a 3e 29 3b 0a 20 20 ┆arm(<:too many parameters:>); ┆
0x0a9c0…0a9e0 20 69 66 20 28 31 20 73 68 69 66 74 20 31 20 2b 20 31 20 73 68 69 66 74 20 32 20 2b 20 31 20 73 ┆ if (1 shift 1 + 1 shift 2 + 1 s┆
0x0a9e0…0aa00 68 69 66 74 20 36 29 20 73 68 69 66 74 20 28 2d 6b 69 6e 64 28 69 29 29 00 00 00 00 00 00 00 00 ┆hift 6) shift (-kind(i)) ┆
0x0aa00…0aa06 (85,) (0xcc,0x155)
0x0aa06…0aa20 0a 20 20 20 20 20 20 65 78 74 72 61 63 74 20 31 20 3d 20 30 20 74 68 65 6e 0a ┆ extract 1 = 0 then ┆
0x0aa20…0aa40 20 20 20 20 20 20 20 20 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 3a 3d 20 6e 75 6d ┆ number_of_params := num┆
0x0aa40…0aa60 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 2d 20 31 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆ber_of_params - 1 else ┆
0x0aa60…0aa7e 20 20 20 20 20 20 70 28 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 29 20 3a 3d 20 69 ┆ p(number_of_params) := i┆
0x0aa7e…0aa84 (0xcc,0x156)
0x0aa84…0aaa0 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 69 66 20 74 68 65 20 6b 69 6e 64 20 6f 66 20 ┆; comment if the kind of ┆
0x0aaa0…0aac0 74 68 65 20 65 6c 65 6d 65 6e 74 20 69 73 20 6e 6f 74 20 69 6e 74 65 67 65 72 20 6f 72 20 74 65 ┆the element is not integer or te┆
0x0aac0…0aae0 78 74 0a 20 20 20 20 20 20 74 68 65 6e 20 73 6b 69 70 20 74 68 65 20 65 6c 65 6d 65 6e 74 2c 20 ┆xt then skip the element, ┆
0x0aae0…0aafc 65 6c 73 65 20 69 6e 64 69 63 61 74 65 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 ┆else indicate the start of t┆
0x0aafc…0ab02 (0xcc,0x157)
0x0ab02…0ab20 68 65 0a 20 20 20 20 20 20 63 75 72 72 65 6e 74 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 ┆he current parameter in ┆
0x0ab20…0ab40 74 68 65 20 61 72 72 61 79 20 2e 2e 70 2e 2e 0a 20 20 20 20 20 20 69 6e 20 74 68 69 73 20 77 61 ┆the array ..p.. in this wa┆
0x0ab40…0ab60 79 20 70 28 4a 29 20 69 73 20 74 68 65 20 73 74 61 72 74 20 69 6e 64 65 78 20 6f 66 20 70 61 72 ┆y p(J) is the start index of par┆
0x0ab60…0ab7a 61 6d 65 74 65 72 20 6a 20 6f 66 0a 20 20 20 20 20 20 74 68 65 20 63 75 72 72 ┆ameter j of the curr┆
0x0ab7a…0ab80 (0xcc,0x158)
0x0ab80…0aba0 65 6e 74 20 6c 69 6e 65 3b 0a 0a 20 20 20 66 6f 72 20 69 3a 3d 20 69 2b 31 20 77 68 69 6c 65 20 ┆ent line; for i:= i+1 while ┆
0x0aba0…0abc0 6b 69 6e 64 28 69 29 20 3d 20 6b 69 6e 64 28 69 2d 31 29 20 64 6f 20 3b 0a 20 20 20 63 6f 6d 6d ┆kind(i) = kind(i-1) do ; comm┆
0x0abc0…0abe0 65 6e 74 20 73 6b 69 70 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 6c 65 6d 65 6e 74 73 20 ┆ent skip the following elements ┆
0x0abe0…0ac00 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6b 69 6e 64 3b 0a 20 20 20 65 00 00 00 00 00 00 00 00 ┆with the same kind; e ┆
0x0ac00…0ac06 (86,) (0xcc,0x159)
0x0ac06…0ac20 6e 64 3b 0a 70 28 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 29 20 3a 3d ┆nd; p(number_of_params) :=┆
0x0ac20…0ac40 20 69 3b 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 65 6e 64 5f 6f 66 5f 6c 69 6e 65 20 65 6c 65 6d ┆ i; comment the end_of_line elem┆
0x0ac40…0ac60 65 6e 74 3b 0a 0a 0a 73 65 6c 65 63 74 3a 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6d 6d 65 6e ┆ent; select: ; commen┆
0x0ac60…0ac7e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 ┆t *************** ; comment ┆
0x0ac7e…0ac84 (0xcc,0x15a)
0x0ac84…0aca0 64 65 70 65 6e 64 65 6e 74 20 6f 66 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 ┆dependent of the type of the┆
0x0aca0…0acc0 20 6c 69 6e 65 2c 20 72 65 63 74 79 70 65 6c 67 74 68 20 69 73 0a 20 20 20 69 6e 69 74 69 61 6c ┆ line, rectypelgth is initial┆
0x0acc0…0ace0 69 7a 65 64 20 77 69 74 68 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 76 61 6c 75 65 2e 20 28 65 ┆ized with the standard value. (e┆
0x0ace0…0acfc 61 63 68 20 69 6e 70 75 74 20 6c 69 6e 65 20 6e 6f 72 6d 61 6c 6c 79 0a 20 20 20 70 ┆ach input line normally p┆
0x0acfc…0ad02 (0xcc,0x15b)
0x0ad02…0ad20 72 6f 64 75 63 65 73 20 6f 6e 65 20 72 65 63 6f 72 64 20 69 6e 20 74 68 65 20 75 73 65 72 ┆roduces one record in the user┆
0x0ad20…0ad40 63 61 74 29 2e 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 73 70 65 63 69 61 6c 0a 20 20 20 61 63 74 ┆cat). some of the special act┆
0x0ad40…0ad60 69 6f 6e 20 6d 61 79 20 68 6f 77 65 76 65 72 20 73 65 74 20 61 6e 6f 74 68 65 72 20 72 65 63 74 ┆ion may however set another rect┆
0x0ad60…0ad7a 79 70 65 6c 67 74 68 3b 0a 0a 63 6f 6d 6d 65 6e 74 3a 20 20 6c 69 6e 65 74 79 ┆ypelgth; comment: linety┆
0x0ad7a…0ad80 (0xcc,0x15c)
0x0ad80…0ada0 70 65 20 69 73 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 66 72 6f 6d 20 2d 31 20 74 6f 20 31 32 ┆pe is in the range from -1 to 12┆
0x0ada0…0adc0 20 28 62 6f 74 68 20 69 6e 63 6c 2e 29 0a 20 20 20 20 2d 31 20 20 20 30 20 20 20 31 20 20 20 32 ┆ (both incl.) -1 0 1 2┆
0x0adc0…0ade0 20 20 20 33 20 20 20 34 20 20 20 35 20 20 20 36 20 20 20 37 20 20 20 38 20 20 20 39 20 20 31 30 ┆ 3 4 5 6 7 8 9 10┆
0x0ade0…0ae00 20 20 31 31 20 20 31 32 20 20 20 3b 0a 0a 72 65 63 74 79 70 65 6c 67 74 00 00 00 00 00 00 00 00 ┆ 11 12 ; rectypelgt ┆
0x0ae00…0ae06 (87,) (0xcc,0x15d)
0x0ae06…0ae20 68 20 3a 3d 20 63 61 73 65 20 6c 69 6e 65 74 79 70 65 2b 32 20 6f 66 0a 20 20 ┆h := case linetype+2 of ┆
0x0ae20…0ae40 20 28 2d 31 2c 20 2d 31 2c 20 20 30 2c 20 20 32 2c 20 34 32 2c 20 20 36 2c 20 2d 31 2c 20 2d 31 ┆ (-1, -1, 0, 2, 42, 6, -1, -1┆
0x0ae40…0ae60 2c 20 20 34 2c 20 34 34 2c 20 33 34 2c 20 20 30 2c 20 20 32 2c 20 35 32 29 0a 20 20 20 20 20 20 ┆, 4, 44, 34, 0, 2, 52) ┆
0x0ae60…0ae7e 73 68 69 66 74 20 31 32 20 61 64 64 20 28 63 61 73 65 20 6c 69 6e 65 74 79 70 65 2b 32 20 ┆shift 12 add (case linetype+2 ┆
0x0ae7e…0ae84 (0xcc,0x15e)
0x0ae84…0aea0 6f 66 0a 20 20 20 28 2d 31 2c 20 2d 31 2c 20 31 32 2c 20 31 36 2c 20 20 30 2c 20 31 ┆of (-1, -1, 12, 16, 0, 1┆
0x0aea0…0aec0 36 2c 20 20 30 2c 20 20 30 2c 20 20 36 2c 20 20 36 2c 20 20 30 2c 20 31 32 2c 20 31 36 2c 20 20 ┆6, 0, 0, 6, 6, 0, 12, 16, ┆
0x0aec0…0aee0 30 29 20 29 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 2e 2e 2e 20 6e 6f 74 69 63 65 20 74 68 61 74 20 74 ┆0) ); comment ... notice that t┆
0x0aee0…0aefc 68 65 20 72 65 63 74 79 70 65 6c 67 74 68 20 6f 66 20 6c 69 6e 65 74 79 70 65 20 30 ┆he rectypelgth of linetype 0┆
0x0aefc…0af02 (0xcc,0x15f)
0x0af02…0af20 20 69 73 20 65 78 70 6c 69 63 69 74 6c 79 0a 20 20 20 75 73 65 64 20 61 74 20 2e 2e 2e 69 ┆ is explicitly used at ...i┆
0x0af20…0af40 6e 69 74 73 6f 72 74 2e 2e 2e 20 3b 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 74 68 ┆nitsort... ; comment select th┆
0x0af40…0af60 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 61 63 74 69 6f 6e 2c 20 64 65 70 65 6e 64 69 6e ┆e corresponding action, dependin┆
0x0af60…0af7a 67 20 6f 6e 20 6c 69 6e 65 20 74 79 70 65 0a 20 20 20 61 6e 64 20 73 74 61 74 ┆g on line type and stat┆
0x0af7a…0af80 (0xcc,0x160)
0x0af80…0afa0 65 3b 0a 0a 67 6f 74 6f 20 63 61 73 65 20 6c 69 6e 65 74 79 70 65 2a 33 20 2b 20 73 74 61 74 65 ┆e; goto case linetype*3 + state┆
0x0afa0…0afc0 20 6f 66 0a 20 20 20 28 69 6e 69 74 73 6f 72 74 20 20 2c 20 74 65 72 6d 70 72 6f 6a 20 20 2c 20 ┆ of (initsort , termproj , ┆
0x0afc0…0afe0 74 65 72 6d 75 73 65 72 20 20 2c 0a 20 20 20 20 70 72 69 6e 74 5f 6c 69 6e 65 2c 20 74 65 72 6d ┆termuser , print_line, term┆
0x0afe0…0b000 70 72 6f 6a 20 20 2c 20 74 65 72 6d 75 73 65 72 20 20 2c 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆proj , termuser , ┆
0x0b000…0b006 (88,) (0xcc,0x161)
0x0b006…0b020 6c 69 6e 65 74 79 70 65 31 20 2c 20 74 65 72 6d 70 72 6f 6a 20 20 2c 20 74 65 ┆linetype1 , termproj , te┆
0x0b020…0b040 72 6d 75 73 65 72 20 20 2c 0a 20 20 20 20 6c 69 6e 65 74 79 70 65 32 20 2c 20 74 65 72 6d 70 72 ┆rmuser , linetype2 , termpr┆
0x0b040…0b060 6f 6a 20 20 2c 20 74 65 72 6d 75 73 65 72 20 20 2c 0a 20 20 20 20 69 6c 6c 65 67 61 6c 20 20 20 ┆oj , termuser , illegal ┆
0x0b060…0b07e 2c 20 6c 69 6e 65 74 79 70 65 33 20 2c 20 6c 69 6e 65 74 79 70 65 33 2c 0a 20 20 20 20 69 ┆, linetype3 , linetype3, i┆
0x0b07e…0b084 (0xcc,0x162)
0x0b084…0b0a0 6c 6c 65 67 61 6c 20 20 20 2c 20 6c 69 6e 65 74 79 70 65 34 20 2c 20 6c 69 6e 65 74 ┆llegal , linetype4 , linet┆
0x0b0a0…0b0c0 79 70 65 34 2c 0a 20 20 20 20 69 6c 6c 65 67 61 6c 20 20 20 2c 20 6c 69 6e 65 74 79 70 65 35 20 ┆ype4, illegal , linetype5 ┆
0x0b0c0…0b0e0 2c 20 6c 69 6e 65 74 79 70 65 35 2c 0a 20 20 20 20 69 6c 6c 65 67 61 6c 20 20 20 2c 20 6c 69 6e ┆, linetype5, illegal , lin┆
0x0b0e0…0b0fc 65 74 79 70 65 36 20 2c 20 6c 69 6e 65 74 79 70 65 36 2c 0a 20 20 20 20 69 6c 6c 65 ┆etype6 , linetype6, ille┆
0x0b0fc…0b102 (0xcc,0x163)
0x0b102…0b120 67 61 6c 20 20 20 2c 20 6c 69 6e 65 74 79 70 65 37 20 2c 20 6c 69 6e 65 74 79 70 65 37 2c ┆gal , linetype7 , linetype7,┆
0x0b120…0b140 0a 20 20 20 20 69 6c 6c 65 67 61 6c 20 20 20 2c 20 6c 69 6e 65 74 79 70 65 38 20 2c 20 6c 69 6e ┆ illegal , linetype8 , lin┆
0x0b140…0b160 65 74 79 70 65 38 2c 0a 20 20 20 20 69 6c 6c 65 67 61 6c 20 20 20 2c 20 69 6c 6c 65 67 61 6c 20 ┆etype8, illegal , illegal ┆
0x0b160…0b17a 20 20 2c 20 6c 69 6e 65 74 79 70 65 39 2c 0a 20 20 20 20 6c 69 6e 65 74 79 70 ┆ , linetype9, linetyp┆
0x0b17a…0b180 (0xcc,0x164)
0x0b180…0b1a0 65 31 30 2c 20 74 65 72 6d 70 72 6f 6a 20 20 2c 20 74 65 72 6d 75 73 65 72 20 2c 0a 20 20 20 20 ┆e10, termproj , termuser , ┆
0x0b1a0…0b1c0 6c 69 6e 65 74 79 70 65 31 31 2c 20 74 65 72 6d 70 72 6f 6a 20 20 2c 20 74 65 72 6d 75 73 65 72 ┆linetype11, termproj , termuser┆
0x0b1c0…0b1e0 20 2c 0a 20 20 20 20 69 6c 6c 65 67 61 6c 20 20 20 2c 20 6c 69 6e 65 74 79 70 65 31 32 2c 20 6c ┆ , illegal , linetype12, l┆
0x0b1e0…0b200 69 6e 65 74 79 70 65 31 32 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 00 00 00 00 00 00 00 00 ┆inetype12); <* bbj ┆
0x0b200…0b206 (89,) (0xcc,0x165)
0x0b206…0b220 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9 9 76 ┆
0x0b220…0b240 6c 69 6e 65 74 79 70 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 ┆linetypes ca┆
0x0b240…0b260 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 37 2e 2e 2e 20 20 2a 3e 0a 0a 0a 0a 6c 69 6e 65 74 79 70 ┆tupdate ...17... *> linetyp┆
0x0b260…0b27e 65 31 3a 20 20 20 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 20 20 63 72 65 61 74 65 20 70 72 ┆e1: ; comment create pr┆
0x0b27e…0b284 (0xcc,0x166)
0x0b284…0b2a0 6f 6a 65 63 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 ┆oject *************** ┆
0x0b2a0…0b2c0 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 0a 0a 20 20 20 63 68 65 63 ┆ **************** ; chec┆
0x0b2c0…0b2e0 6b 70 61 72 61 6d 28 34 2c 20 35 2c 20 30 2c 20 31 20 73 68 69 66 74 20 32 29 3b 20 63 6f 6d 6d ┆kparam(4, 5, 0, 1 shift 2); comm┆
0x0b2e0…0b2fc 65 6e 74 20 34 20 6f 72 20 35 20 69 6e 74 65 67 65 72 20 70 61 72 61 6d 65 74 65 72 ┆ent 4 or 5 integer parameter┆
0x0b2fc…0b302 (0xcc,0x167)
0x0b302…0b320 73 3b 0a 20 20 20 69 66 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 3d 20 34 20 ┆s; if number_of_params = 4 ┆
0x0b320…0b340 61 6e 64 20 6c 69 6e 65 28 70 28 31 29 29 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c ┆and line(p(1)) = 0 then al┆
0x0b340…0b360 61 72 6d 28 3c 3a 6e 75 6d 62 65 72 20 6f 66 20 70 61 72 61 6d 73 3a 3e 29 3b 0a 0a 20 20 20 63 ┆arm(<:number of params:>); c┆
0x0b360…0b37a 6f 6d 6d 65 6e 74 20 63 6f 6e 76 65 72 74 20 70 72 6f 6a 65 63 74 20 77 69 64 ┆omment convert project wid┆
0x0b37a…0b380 (0xcc,0x168)
0x0b380…0b3a0 74 68 20 69 6e 74 6f 20 70 72 69 6d 69 74 69 76 65 20 70 72 6f 6a 65 63 74 0a 20 20 20 20 20 20 ┆th into primitive project ┆
0x0b3a0…0b3c0 69 6e 74 65 72 76 61 6c 2e 2e 2e 3b 0a 20 20 20 70 28 35 29 20 3a 3d 20 69 6e 63 72 65 61 73 65 ┆interval...; p(5) := increase┆
0x0b3c0…0b3e0 28 66 72 65 65 70 61 72 61 6d 29 3b 0a 20 20 20 6c 69 6e 65 28 70 28 35 29 29 20 3a 3d 20 66 69 ┆(freeparam); line(p(5)) := fi┆
0x0b3e0…0b400 72 73 74 5f 66 72 65 65 5f 70 72 6f 6a 20 2b 20 6c 69 6e 65 28 70 28 34 00 00 00 00 00 00 00 00 ┆rst_free_proj + line(p(4 ┆
0x0b400…0b406 (90,) (0xcc,0x169)
0x0b406…0b420 29 29 20 2d 20 31 3b 0a 20 20 20 70 28 34 29 20 3a 3d 20 69 6e 63 72 65 61 73 ┆)) - 1; p(4) := increas┆
0x0b420…0b440 65 28 66 72 65 65 70 61 72 61 6d 29 3b 0a 20 20 20 6c 69 6e 65 28 70 28 34 29 29 20 20 3a 3d 20 ┆e(freeparam); line(p(4)) := ┆
0x0b440…0b460 66 69 72 73 74 5f 66 72 65 65 5f 70 72 6f 6a 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 77 3a ┆first_free_proj; comment now:┆
0x0b460…0b47e 20 70 28 34 29 20 70 6f 69 6e 74 73 20 61 74 20 6c 6f 77 65 72 20 70 72 6f 6a 2d 69 6e 74 ┆ p(4) points at lower proj-int┆
0x0b47e…0b484 (0xcc,0x16a)
0x0b484…0b4a0 65 72 76 61 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 28 35 29 20 ┆erval, p(5) ┆
0x0b4a0…0b4c0 70 6f 69 6e 74 73 20 61 74 20 75 70 70 65 72 20 70 72 6f 6a 2d 69 6e 74 65 72 76 61 6c 3b 0a 20 ┆points at upper proj-interval; ┆
0x0b4c0…0b4e0 20 20 67 6f 74 6f 20 69 6e 69 74 70 72 6f 6a 3b 0a 0a 0a 6c 69 6e 65 74 79 70 65 32 3a 20 20 20 ┆ goto initproj; linetype2: ┆
0x0b4e0…0b4fc 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 20 20 63 72 65 61 74 65 20 75 73 65 72 0a 2a ┆ ; comment create user *┆
0x0b4fc…0b502 (0xcc,0x16b)
0x0b502…0b520 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a ┆************** ****┆
0x0b520…0b540 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 0a 0a 20 20 20 63 68 65 63 6b 70 61 72 61 6d 28 33 2c 20 35 2c ┆********* ; checkparam(3, 5,┆
0x0b540…0b560 20 69 2c 20 69 66 20 69 3d 30 20 74 68 65 6e 20 31 20 73 68 69 66 74 20 36 20 65 6c 73 65 20 31 ┆ i, if i=0 then 1 shift 6 else 1┆
0x0b560…0b57a 20 73 68 69 66 74 20 32 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 33 ┆ shift 2); comment 3┆
0x0b57a…0b580 (0xcc,0x16c)
0x0b580…0b5a0 2c 20 34 20 6f 72 20 35 20 70 61 72 61 6d 65 74 65 72 73 2c 20 66 69 72 73 74 20 69 73 20 6e 61 ┆, 4 or 5 parameters, first is na┆
0x0b5a0…0b5c0 6d 65 2c 20 72 65 73 74 20 61 72 65 20 69 6e 74 65 67 65 72 73 3b 0a 0a 20 20 20 63 6f 6d 6d 65 ┆me, rest are integers; comme┆
0x0b5c0…0b5e0 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 74 61 6e 64 61 72 64 20 76 61 6c 75 65 73 3b 0a 20 ┆nt initialize standard values; ┆
0x0b5e0…0b600 20 20 69 66 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 20 3d 20 00 00 00 00 00 00 00 00 ┆ if number_of_params = ┆
0x0b600…0b606 (91,) (0xcc,0x16d)
0x0b606…0b620 33 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆3 then begin comment┆
0x0b620…0b640 20 69 6e 73 65 72 74 20 73 74 64 20 6a 6f 62 2d 69 6e 74 65 72 76 61 6c 2d 77 69 64 74 68 3b 0a ┆ insert std job-interval-width; ┆
0x0b640…0b660 20 20 20 20 20 20 70 28 33 29 20 3a 3d 20 69 6e 63 72 65 61 73 65 28 66 72 65 65 70 61 72 61 6d ┆ p(3) := increase(freeparam┆
0x0b660…0b67e 29 3b 0a 20 20 20 20 20 20 6c 69 6e 65 28 70 28 33 29 29 20 3a 3d 20 31 3b 0a 20 20 20 20 ┆); line(p(3)) := 1; ┆
0x0b67e…0b684 (0xcc,0x16e)
0x0b684…0b6a0 20 20 65 6e 64 3b 0a 20 20 20 69 66 20 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d ┆ end; if number_of_param┆
0x0b6a0…0b6c0 73 20 3c 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 ┆s < 5 then begin comment i┆
0x0b6c0…0b6e0 6e 73 65 72 74 20 73 74 64 20 6e 75 6d 62 65 72 20 6f 66 20 73 69 6d 2e 20 6a 6f 62 73 3b 0a 20 ┆nsert std number of sim. jobs; ┆
0x0b6e0…0b6fc 20 20 20 20 20 70 28 34 29 20 3a 3d 20 69 6e 63 72 65 61 73 65 28 66 72 65 65 70 61 ┆ p(4) := increase(freepa┆
0x0b6fc…0b702 (0xcc,0x16f)
0x0b702…0b720 72 61 6d 29 3b 0a 20 20 20 20 20 20 6c 69 6e 65 28 70 28 34 29 29 20 3a 3d 20 31 30 3b 0a ┆ram); line(p(4)) := 10; ┆
0x0b720…0b740 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 63 6f 6d 70 75 74 65 20 70 ┆ end; comment compute p┆
0x0b740…0b760 72 69 6d 69 74 69 76 65 20 75 73 65 72 20 69 6e 74 65 72 76 61 6c 3b 0a 20 20 20 70 28 35 29 20 ┆rimitive user interval; p(5) ┆
0x0b760…0b77a 3a 3d 20 69 6e 63 72 65 61 73 65 28 66 72 65 65 70 61 72 61 6d 29 3b 0a 20 20 ┆:= increase(freeparam); ┆
0x0b77a…0b780 (0xcc,0x170)
0x0b780…0b7a0 20 6c 69 6e 65 28 70 28 35 29 29 20 3a 3d 20 66 69 72 73 74 5f 66 72 65 65 5f 70 72 6f 6a 3b 0a ┆ line(p(5)) := first_free_proj; ┆
0x0b7a0…0b7c0 20 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 77 3a 20 70 28 33 29 20 70 6f 69 6e 74 73 20 61 74 20 6a ┆ comment now: p(3) points at j┆
0x0b7c0…0b7e0 6f 62 2d 69 6e 74 65 72 76 61 6c 2d 77 69 64 74 68 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ob-interval-width. ┆
0x0b7e0…0b800 20 20 20 70 28 34 29 20 70 6f 69 6e 74 73 20 61 74 20 6e 75 6d 62 65 72 00 00 00 00 00 00 00 00 ┆ p(4) points at number ┆
0x0b800…0b806 (92,) (0xcc,0x171)
0x0b806…0b820 20 6f 66 20 73 69 6d 75 6c 74 2e 20 6a 6f 62 73 2c 0a 20 20 20 20 20 20 20 20 ┆ of simult. jobs, ┆
0x0b820…0b840 20 20 20 20 20 20 20 20 70 28 35 29 20 70 6f 69 6e 74 73 20 61 74 20 6c 6f 77 65 72 20 75 73 65 ┆ p(5) points at lower use┆
0x0b840…0b860 72 20 69 6e 74 65 72 76 61 6c 3b 0a 20 20 20 67 6f 74 6f 20 69 6e 69 74 75 73 65 72 3b 0a 0a 0a ┆r interval; goto inituser; ┆
0x0b860…0b87e 6c 69 6e 65 74 79 70 65 33 3a 20 20 20 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 20 20 75 73 ┆linetype3: ; comment us┆
0x0b87e…0b884 (0xcc,0x172)
0x0b884…0b8a0 65 72 6e 61 6d 65 20 72 65 63 6f 72 64 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ername record **************┆
0x0b8a0…0b8c0 2a 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 2a 2a 20 3b ┆* ***************** ;┆
0x0b8c0…0b8e0 0a 0a 20 20 20 63 68 65 63 6b 70 61 72 61 6d 28 31 2c 20 31 2c 20 69 2c 20 31 20 73 68 69 66 74 ┆ checkparam(1, 1, i, 1 shift┆
0x0b8e0…0b8fc 20 36 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 78 61 63 74 6c 79 20 6f ┆ 6); comment exactly o┆
0x0b8fc…0b902 (0xcc,0x173)
0x0b902…0b920 6e 65 20 74 65 78 74 20 70 61 72 61 6d 65 74 65 72 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 ┆ne text parameter; comment┆
0x0b920…0b940 3a 20 20 74 68 65 20 72 65 63 6f 72 64 20 69 73 20 63 6f 70 69 65 64 20 74 6f 20 61 0a 20 20 20 ┆: the record is copied to a ┆
0x0b940…0b960 20 20 20 73 70 65 63 69 61 6c 20 66 69 6c 65 2c 20 76 61 72 74 72 61 6e 73 2c 20 69 6e 20 6f 72 ┆ special file, vartrans, in or┆
0x0b960…0b97a 64 65 72 20 74 6f 20 66 61 63 69 6c 69 74 61 74 65 20 74 68 65 0a 20 20 20 20 ┆der to facilitate the ┆
0x0b97a…0b980 (0xcc,0x174)
0x0b980…0b9a0 20 20 73 6f 72 74 69 6e 67 20 6f 66 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 73 20 28 62 ┆ sorting of the transactions (b┆
0x0b9a0…0b9c0 65 63 61 75 73 65 20 74 68 65 20 73 6f 72 74 69 6e 67 20 74 68 65 6e 0a 20 20 20 20 20 20 6d 61 ┆ecause the sorting then ma┆
0x0b9c0…0b9e0 79 20 63 6f 6e 63 65 6e 74 72 61 74 65 20 6f 6e 20 66 69 78 6c 65 6e 67 74 68 20 72 65 63 6f 72 ┆y concentrate on fixlength recor┆
0x0b9e0…0ba00 64 73 2e 2e 2e 29 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 74 72 61 6e 73 3a 3d 00 00 00 00 00 00 00 00 ┆ds...); no_of_trans:= ┆
0x0ba00…0ba06 (93,) (0xcc,0x175)
0x0ba06…0ba20 20 6e 6f 5f 6f 66 5f 74 72 61 6e 73 20 2d 20 31 3b 0a 20 20 20 6e 6f 5f 6f 66 ┆ no_of_trans - 1; no_of┆
0x0ba20…0ba40 5f 76 61 72 74 72 61 6e 73 3a 3d 20 6e 6f 5f 6f 66 5f 76 61 72 74 72 61 6e 73 20 2b 20 31 3b 0a ┆_vartrans:= no_of_vartrans + 1; ┆
0x0ba40…0ba60 20 20 20 20 20 20 6d 6f 76 65 5f 75 73 65 72 6e 61 6d 65 28 76 61 72 74 72 61 6e 73 2c 20 76 61 ┆ move_username(vartrans, va┆
0x0ba60…0ba7e 72 6c 65 6e 67 74 68 29 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a ┆rlength); goto print_line; ┆
0x0ba7e…0ba84 (0xcc,0x176)
0x0ba84…0baa0 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 ┆ <* bbj 9 9 76 ┆
0x0baa0…0bac0 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ linetypes ┆
0x0bac0…0bae0 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 38 2e 2e 2e 20 20 2a 3e 0a ┆ catupdate ...18... *> ┆
0x0bae0…0bafc 0a 0a 6c 69 6e 65 74 79 70 65 34 3a 20 20 20 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 ┆ linetype4: ; comment┆
0x0bafc…0bb02 (0xcc,0x177)
0x0bb02…0bb20 20 20 72 65 73 6f 75 72 63 65 73 20 6f 6e 20 73 70 65 63 69 61 6c 20 64 69 73 63 2d 6b 69 ┆ resources on special disc-ki┆
0x0bb20…0bb40 74 73 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a ┆ts *************** **┆
0x0bb40…0bb60 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 20 3b ┆****************************** ;┆
0x0bb60…0bb7a 0a 0a 20 20 20 63 68 65 63 6b 70 61 72 61 6d 28 34 2c 20 34 2c 20 69 2c 20 69 ┆ checkparam(4, 4, i, i┆
0x0bb7a…0bb80 (0xcc,0x178)
0x0bb80…0bba0 66 20 69 3d 30 20 74 68 65 6e 20 31 20 73 68 69 66 74 20 36 20 65 6c 73 65 20 31 20 73 68 69 66 ┆f i=0 then 1 shift 6 else 1 shif┆
0x0bba0…0bbc0 74 20 32 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 34 20 70 61 72 61 6d 65 74 65 72 73 ┆t 2); comment 4 parameters┆
0x0bbc0…0bbe0 2c 20 74 68 65 20 66 69 72 73 74 20 69 73 20 74 65 78 74 2c 20 74 68 65 20 72 65 73 74 20 69 6e ┆, the first is text, the rest in┆
0x0bbe0…0bc00 74 65 67 65 72 73 3b 0a 20 20 20 69 66 20 2d 2c 20 70 72 6f 6a 65 63 74 00 00 00 00 00 00 00 00 ┆tegers; if -, project ┆
0x0bc00…0bc06 (94,) (0xcc,0x179)
0x0bc06…0bc20 20 74 68 65 6e 20 75 73 65 72 70 6f 6f 6c 3a 3d 20 74 72 75 65 3b 0a 20 20 20 ┆ then userpool:= true; ┆
0x0bc20…0bc40 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 30 29 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f 6d 6d 65 6e ┆nameptr := p(0) * 2 + 2; commen┆
0x0bc40…0bc60 74 20 70 6f 69 6e 74 20 61 74 20 6b 69 74 2d 6e 61 6d 65 3b 0a 20 20 20 69 66 20 6c 69 6e 65 2e ┆t point at kit-name; if line.┆
0x0bc60…0bc7e 6e 61 6d 65 70 74 72 20 3d 20 6c 6f 6e 67 20 3c 3a 64 69 73 63 3a 3e 20 6f 72 0a 20 20 20 ┆nameptr = long <:disc:> or ┆
0x0bc7e…0bc84 (0xcc,0x17a)
0x0bc84…0bca0 20 20 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 20 3d 20 6c 6f 6e 67 20 3c 3a 64 72 75 ┆ line.nameptr = long <:dru┆
0x0bca0…0bcc0 6d 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 64 ┆m:> then alarm(<:illegal d┆
0x0bcc0…0bce0 65 76 69 63 65 6e 61 6d 65 3a 3e 29 3b 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d ┆evicename:>); output(trans, m┆
0x0bce0…0bcfc 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 74 72 61 6e 73 2e 6c 6f 6e 67 31 20 3a 3d ┆axlength); trans.long1 :=┆
0x0bcfc…0bd02 (0xcc,0x17b)
0x0bd02…0bd20 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 6e ┆ line.nameptr; nameptr := n┆
0x0bd20…0bd40 61 6d 65 70 74 72 20 2b 20 34 3b 0a 20 20 20 74 72 61 6e 73 2e 6c 6f 6e 67 32 20 3a 3d 20 69 66 ┆ameptr + 4; trans.long2 := if┆
0x0bd40…0bd60 20 6b 69 6e 64 28 70 28 30 29 2b 32 29 20 3c 3e 20 36 20 74 68 65 6e 20 65 78 74 65 6e 64 20 30 ┆ kind(p(0)+2) <> 6 then extend 0┆
0x0bd60…0bd7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6c 69 ┆ else li┆
0x0bd7a…0bd80 (0xcc,0x17c)
0x0bd80…0bda0 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 35 20 3a 3d 0a 20 20 20 ┆ne.nameptr; trans.int5 := ┆
0x0bda0…0bdc0 74 72 61 6e 73 2e 69 6e 74 36 20 3a 3d 20 6c 69 6e 65 28 70 28 32 29 29 20 73 68 69 66 74 20 31 ┆trans.int6 := line(p(2)) shift 1┆
0x0bdc0…0bde0 32 20 61 64 64 20 6c 69 6e 65 28 70 28 31 29 29 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 37 20 ┆2 add line(p(1)); trans.int7 ┆
0x0bde0…0be00 3a 3d 20 6c 69 6e 65 28 70 28 33 29 29 3b 0a 20 20 20 67 6f 74 6f 20 70 00 00 00 00 00 00 00 00 ┆:= line(p(3)); goto p ┆
0x0be00…0be06 (95,) (0xcc,0x17d)
0x0be06…0be20 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 0a 6c 69 6e 65 74 79 70 65 35 3a 20 20 20 ┆rint_line; linetype5: ┆
0x0be20…0be40 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 20 20 73 74 61 6e 64 61 72 64 20 76 61 6c 75 65 73 20 66 ┆ ; comment standard values f┆
0x0be40…0be60 6f 72 20 6f 70 74 69 6f 6e 73 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 ┆or options *************** ┆
0x0be60…0be7e 20 20 20 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 ┆ ************************┆
0x0be7e…0be84 (0xcc,0x17e)
0x0be84…0bea0 2a 2a 2a 2a 2a 20 3b 0a 0a 6c 69 6e 65 74 79 70 65 36 3a 20 20 20 20 20 20 20 3b 20 ┆***** ; linetype6: ; ┆
0x0bea0…0bec0 63 6f 6d 6d 65 6e 74 20 20 6d 61 78 69 6d 75 6d 20 76 61 6c 75 65 73 20 66 6f 72 20 6f 70 74 69 ┆comment maximum values for opti┆
0x0bec0…0bee0 6f 6e 73 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ons *************** *┆
0x0bee0…0befc 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 20 ┆*************************** ┆
0x0befc…0bf02 (0xcc,0x17f)
0x0bf02…0bf20 3b 0a 0a 20 20 20 63 68 65 63 6b 70 61 72 61 6d 28 32 2c 20 34 2c 20 69 2c 20 69 66 20 69 ┆; checkparam(2, 4, i, if i┆
0x0bf20…0bf40 3d 30 20 74 68 65 6e 20 31 20 73 68 69 66 74 20 36 20 65 6c 73 65 20 2d 31 29 3b 0a 20 20 20 20 ┆=0 then 1 shift 6 else -1); ┆
0x0bf40…0bf60 20 20 63 6f 6d 6d 65 6e 74 20 32 20 74 6f 20 34 20 70 61 72 61 6d 65 74 65 72 73 2c 20 74 68 65 ┆ comment 2 to 4 parameters, the┆
0x0bf60…0bf7a 20 66 69 72 73 74 20 69 73 20 74 65 78 74 2c 0a 20 20 20 20 20 20 20 20 20 74 ┆ first is text, t┆
0x0bf7a…0bf80 (0xcc,0x180)
0x0bf80…0bfa0 68 65 20 72 65 73 74 20 6d 61 79 20 62 65 20 61 6e 79 74 68 69 6e 67 3b 0a 0a 20 20 20 6e 61 6d ┆he rest may be anything; nam┆
0x0bfa0…0bfc0 65 70 74 72 20 3a 3d 20 70 28 30 29 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 ┆eptr := p(0) * 2 + 2; comment p┆
0x0bfc0…0bfe0 6f 69 6e 74 20 61 74 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 3b 0a 20 20 20 6e 61 6d 65 20 3a 3d 20 ┆oint at option name; name := ┆
0x0bfe0…0c000 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 20 73 68 69 66 74 20 28 2d 31 36 29 00 00 00 00 00 00 00 00 ┆line.nameptr shift (-16) ┆
0x0c000…0c006 (96,) (0xcc,0x181)
0x0c006…0c020 20 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 ┆ shift 16; comment e┆
0x0c020…0c040 78 74 72 61 63 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 75 72 20 6c 65 74 74 65 72 73 2e 2e 2e ┆xtract the first four letters...┆
0x0c040…0c060 3b 0a 20 20 20 6f 70 74 69 6f 6e 2e 6c 61 73 74 6f 70 74 69 6f 6e 20 3a 3d 20 6e 61 6d 65 3b 20 ┆; option.lastoption := name; ┆
0x0c060…0c07e 20 63 6f 6d 6d 65 6e 74 20 69 6e 73 65 72 74 20 6c 61 73 74 20 69 6e 20 74 61 62 6c 65 2e ┆ comment insert last in table.┆
0x0c07e…0c084 (0xcc,0x182)
0x0c084…0c0a0 2e 2e 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 73 63 61 6e 20 74 68 65 20 6f 70 74 ┆..; comment scan the opt┆
0x0c0a0…0c0c0 69 6f 6e 20 74 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 74 68 65 20 70 72 6f 70 65 72 20 6f 70 74 ┆ion table to find the proper opt┆
0x0c0c0…0c0e0 69 6f 6e 2e 2e 2e 3b 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 2d 36 3b 0a 20 20 20 66 6f 72 ┆ion...; nameptr := -6; for┆
0x0c0e0…0c0fc 20 6e 61 6d 65 70 74 72 20 3a 3d 20 6e 61 6d 65 70 74 72 20 2b 20 31 30 20 77 68 69 ┆ nameptr := nameptr + 10 whi┆
0x0c0fc…0c102 (0xcc,0x183)
0x0c102…0c120 6c 65 20 6f 70 74 69 6f 6e 2e 6e 61 6d 65 70 74 72 20 3c 3e 20 6e 61 6d 65 20 64 6f 20 3b ┆le option.nameptr <> name do ;┆
0x0c120…0c140 0a 20 20 20 69 66 20 6e 61 6d 65 70 74 72 20 3d 20 6c 61 73 74 6f 70 74 69 6f 6e 20 74 68 65 6e ┆ if nameptr = lastoption then┆
0x0c140…0c160 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 6f 70 74 69 6f 6e 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 ┆ alarm(<:option unknown:>)┆
0x0c160…0c17a 3b 0a 0a 20 20 20 70 31 20 3a 3d 20 6e 61 6d 65 70 74 72 20 2b 20 32 3b 20 20 ┆; p1 := nameptr + 2; ┆
0x0c17a…0c180 (0xcc,0x184)
0x0c180…0c1a0 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 66 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 ┆comment point at first parameter┆
0x0c1a0…0c1c0 20 74 79 70 65 2e 2e 2e 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆ type...; for i := 1 step 1 u┆
0x0c1c0…0c1e0 6e 74 69 6c 20 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 ┆ntil 3 do begin comment ch┆
0x0c1e0…0c200 65 63 6b 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 69 6e 20 74 68 00 00 00 00 00 00 00 00 ┆eck the parameters in th ┆
0x0c200…0c206 (97,) (0xcc,0x185)
0x0c206…0c220 65 20 6f 70 74 69 6f 6e 20 6c 69 6e 65 2e 2e 2e 3b 0a 20 20 20 20 20 20 69 66 ┆e option line...; if┆
0x0c220…0c240 20 6b 69 6e 64 28 70 28 69 29 29 20 3d 20 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 ┆ kind(p(i)) = 8 then be┆
0x0c240…0c260 67 69 6e 0a 20 20 20 20 20 20 20 20 20 70 28 69 2b 31 29 20 3a 3d 20 70 28 69 29 20 2b 20 31 3b ┆gin p(i+1) := p(i) + 1;┆
0x0c260…0c27e 0a 20 20 20 20 20 20 20 20 20 6b 69 6e 64 28 70 28 69 2b 31 29 29 20 3a 3d 20 38 3b 0a 20 ┆ kind(p(i+1)) := 8; ┆
0x0c27e…0c284 (0xcc,0x186)
0x0c284…0c2a0 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆ end else ┆
0x0c2a0…0c2c0 20 69 66 20 2d 2c 20 6f 70 74 69 6f 6e 2e 70 31 20 73 68 69 66 74 20 28 2d 6b 69 6e 64 28 70 28 ┆ if -, option.p1 shift (-kind(p(┆
0x0c2c0…0c2e0 69 29 29 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 70 61 72 61 6d ┆i))) then alarm(<:param┆
0x0c2e0…0c2fc 65 74 65 72 20 6b 69 6e 64 3a 3e 29 3b 0a 20 20 20 20 20 20 70 31 20 3a 3d 20 70 31 ┆eter kind:>); p1 := p1┆
0x0c2fc…0c302 (0xcc,0x187)
0x0c302…0c320 20 2b 20 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 3a 3d 20 6e 61 6d ┆ + 1; end; i:= nam┆
0x0c320…0c340 65 70 74 72 2b 35 3b 20 3c 2a 70 6f 69 6e 74 20 61 74 20 72 65 63 6f 72 64 74 79 70 65 2a 3e 0a ┆eptr+5; <*point at recordtype*> ┆
0x0c340…0c360 20 20 20 20 20 20 74 79 70 65 6f 66 72 65 63 3a 3d 20 6f 70 74 69 6f 6e 2e 69 20 73 68 69 66 74 ┆ typeofrec:= option.i shift┆
0x0c360…0c37a 20 28 2d 31 32 29 3b 0a 0a 20 20 20 69 20 3a 3d 20 6e 61 6d 65 70 74 72 20 2b ┆ (-12); i := nameptr +┆
0x0c37a…0c380 (0xcc,0x188)
0x0c380…0c3a0 20 36 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 72 65 63 74 79 70 65 6c 67 74 ┆ 6; comment point at rectypelgt┆
0x0c3a0…0c3c0 68 20 65 6c 65 6d 65 6e 74 3b 0a 20 20 20 72 65 63 74 79 70 65 6c 67 74 68 20 3a 3d 20 6f 70 74 ┆h element; rectypelgth := opt┆
0x0c3c0…0c3e0 69 6f 6e 2e 69 3b 0a 20 20 20 69 66 20 6c 69 6e 65 74 79 70 65 20 3d 20 36 20 74 68 65 6e 0a 20 ┆ion.i; if linetype = 6 then ┆
0x0c3e0…0c400 20 20 20 20 20 72 65 63 74 79 70 65 6c 67 74 68 20 3a 3d 20 31 20 73 68 00 00 00 00 00 00 00 00 ┆ rectypelgth := 1 sh ┆
0x0c400…0c406 (98,) (0xcc,0x189)
0x0c406…0c420 69 66 74 20 31 32 20 2b 20 72 65 63 74 79 70 65 6c 67 74 68 3b 0a 20 20 20 20 ┆ift 12 + rectypelgth; ┆
0x0c420…0c440 20 20 63 6f 6d 6d 65 6e 74 20 6d 61 78 69 6d 75 6d 2d 76 61 6c 75 65 2d 72 65 63 6f 72 64 73 20 ┆ comment maximum-value-records ┆
0x0c440…0c460 68 61 76 65 20 61 6e 20 6f 64 64 20 72 65 63 6f 72 64 74 79 70 65 2e 2e 2e 3b 0a 0a 20 20 20 70 ┆have an odd recordtype...; p┆
0x0c460…0c47e 31 20 3a 3d 20 6e 61 6d 65 70 74 72 20 2b 20 31 3b 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e ┆1 := nameptr + 1; comment poin┆
0x0c47e…0c484 (0xcc,0x18a)
0x0c484…0c4a0 74 20 61 74 20 61 63 74 69 6f 6e 2d 6e 75 6d 62 65 72 20 62 79 74 65 3b 0a 20 20 20 ┆t at action-number byte; ┆
0x0c4a0…0c4c0 67 6f 74 6f 20 63 61 73 65 20 6f 70 74 69 6f 6e 2e 70 31 20 65 78 74 72 61 63 74 20 31 32 20 6f ┆goto case option.p1 extract 12 o┆
0x0c4c0…0c4e0 66 0a 20 20 20 20 20 20 28 61 63 74 69 6f 6e 31 2c 20 61 63 74 69 6f 6e 32 2c 20 61 63 74 69 6f ┆f (action1, action2, actio┆
0x0c4e0…0c4fc 6e 33 2c 20 61 63 74 69 6f 6e 34 2c 20 61 63 74 69 6f 6e 35 2c 0a 20 20 20 20 20 20 ┆n3, action4, action5, ┆
0x0c4fc…0c502 (0xcc,0x18b)
0x0c502…0c520 20 61 63 74 69 6f 6e 36 2c 20 61 63 74 69 6f 6e 37 2c 20 61 63 74 69 6f 6e 38 2c 20 61 63 ┆ action6, action7, action8, ac┆
0x0c520…0c540 74 69 6f 6e 39 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 ┆tion9); <* bbj 9 9 76 ┆
0x0c540…0c560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 73 20 20 20 20 20 20 20 20 20 ┆ linetypes ┆
0x0c560…0c57a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e ┆ catupdate ...┆
0x0c57a…0c580 (0xcc,0x18c)
0x0c580…0c5a0 31 39 2e 2e 2e 20 20 2a 3e 0a 0a 0a 6c 69 6e 65 74 79 70 65 37 3a 20 20 20 20 20 20 20 3b 20 20 ┆19... *> linetype7: ; ┆
0x0c5a0…0c5c0 63 6f 6d 6d 65 6e 74 20 20 6a 6f 62 70 72 69 6f 72 69 74 79 20 61 6e 64 20 72 65 73 70 69 74 65 ┆comment jobpriority and respite┆
0x0c5c0…0c5e0 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a ┆ *************** ***┆
0x0c5e0…0c600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 00 00 00 00 00 00 00 00 ┆********************** ; ┆
0x0c600…0c606 (99,) (0xcc,0x18d)
0x0c606…0c620 0a 20 20 20 3c 2a 20 75 73 65 64 20 62 79 20 6f 6c 64 65 72 20 76 65 72 73 69 ┆ <* used by older versi┆
0x0c620…0c640 6f 6e 73 2c 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 69 6e 20 6e 65 77 65 72 20 76 65 72 ┆ons, does not exist in newer ver┆
0x0c640…0c660 73 69 6f 6e 73 20 2a 3e 0a 0a 20 20 20 63 68 65 63 6b 70 61 72 61 6d 28 32 2c 20 32 2c 20 30 2c ┆sions *> checkparam(2, 2, 0,┆
0x0c660…0c67e 20 31 20 73 68 69 66 74 20 32 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 32 20 69 ┆ 1 shift 2); comment 2 i┆
0x0c67e…0c684 (0xcc,0x18e)
0x0c684…0c6a0 6e 74 65 67 65 72 20 70 61 72 61 6d 65 74 65 72 73 3b 0a 0a 20 20 20 6f 75 74 70 75 ┆nteger parameters; outpu┆
0x0c6a0…0c6c0 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e ┆t(trans, maxlength); trans.in┆
0x0c6c0…0c6e0 74 31 20 3a 3d 20 6c 69 6e 65 28 70 28 30 29 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 6a 6f 62 70 72 ┆t1 := line(p(0)); comment jobpr┆
0x0c6e0…0c6fc 69 6f 72 69 74 79 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 32 20 3a 3d 20 28 6c 69 ┆iority; trans.int2 := (li┆
0x0c6fc…0c702 (0xcc,0x18f)
0x0c702…0c720 6e 65 28 70 28 31 29 29 20 2a 20 28 65 78 74 65 6e 64 20 31 30 30 30 30 29 29 20 73 68 69 ┆ne(p(1)) * (extend 10000)) shi┆
0x0c720…0c740 66 74 20 28 2d 31 33 29 3b 3b 20 20 63 6f 6d 6d 65 6e 74 20 72 65 73 70 69 74 65 3b 0a 20 20 20 ┆ft (-13);; comment respite; ┆
0x0c740…0c760 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 0a 6c 69 6e 65 74 79 70 65 38 3a 20 20 20 ┆goto print_line; linetype8: ┆
0x0c760…0c77a 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 20 20 70 65 72 6d 61 6e 65 6e 74 20 ┆ ; comment permanent ┆
0x0c77a…0c780 (0xcc,0x190)
0x0c780…0c7a0 64 72 75 6d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 ┆drum *************** ┆
0x0c7a0…0c7c0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 0a 0a 20 20 20 63 68 65 63 6b 70 61 72 ┆ **************** ; checkpar┆
0x0c7c0…0c7e0 61 6d 28 32 2c 20 32 2c 20 30 2c 20 31 20 73 68 69 66 74 20 32 29 3b 0a 20 20 20 20 20 20 63 6f ┆am(2, 2, 0, 1 shift 2); co┆
0x0c7e0…0c800 6d 6d 65 6e 74 20 32 20 69 6e 74 65 67 65 72 20 70 61 72 61 6d 65 74 65 00 00 00 00 00 00 00 00 ┆mment 2 integer paramete ┆
0x0c800…0c806 (100,) (0xcc,0x191)
0x0c806…0c820 72 73 3b 0a 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c ┆rs; output(trans, maxl┆
0x0c820…0c840 65 6e 67 74 68 29 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 31 20 3a 3d 0a 20 20 20 74 72 61 6e ┆ength); trans.int1 := tran┆
0x0c840…0c860 73 2e 69 6e 74 32 20 3a 3d 20 6c 69 6e 65 28 70 28 31 29 29 20 73 68 69 66 74 20 31 32 20 61 64 ┆s.int2 := line(p(1)) shift 12 ad┆
0x0c860…0c87e 64 20 6c 69 6e 65 28 70 28 30 29 29 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 ┆d line(p(0)); goto print_li┆
0x0c87e…0c884 (0xcc,0x192)
0x0c884…0c8a0 6e 65 3b 0a 0a 0a 6c 69 6e 65 74 79 70 65 39 3a 20 20 20 20 20 20 20 3b 20 20 63 6f ┆ne; linetype9: ; co┆
0x0c8a0…0c8c0 6d 6d 65 6e 74 20 20 75 73 65 72 70 6f 6f 6c 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆mment userpool *************** ┆
0x0c8c0…0c8e0 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 0a 0a 20 20 20 63 68 65 ┆ ********** ; che┆
0x0c8e0…0c8fc 63 6b 70 61 72 61 6d 28 32 2c 20 32 2c 20 30 2c 20 31 20 73 68 69 66 74 20 32 29 3b ┆ckparam(2, 2, 0, 1 shift 2);┆
0x0c8fc…0c902 (0xcc,0x193)
0x0c902…0c920 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 32 20 69 6e 74 65 67 65 72 20 70 61 72 61 6d ┆ comment 2 integer param┆
0x0c920…0c940 65 74 65 72 73 3b 0a 0a 20 20 20 70 65 72 6d 61 6e 65 6e 74 5f 64 69 73 63 20 3a 3d 0a 20 20 20 ┆eters; permanent_disc := ┆
0x0c940…0c960 20 20 20 70 65 72 6d 61 6e 65 6e 74 5f 64 69 73 63 20 2b 20 6c 69 6e 65 28 70 28 31 29 29 20 73 ┆ permanent_disc + line(p(1)) s┆
0x0c960…0c97a 68 69 66 74 20 31 32 20 61 64 64 20 6c 69 6e 65 28 70 28 30 29 29 3b 0a 20 20 ┆hift 12 add line(p(0)); ┆
0x0c97a…0c980 (0xcc,0x194)
0x0c980…0c9a0 20 75 73 65 72 70 6f 6f 6c 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 ┆ userpool := true; goto print┆
0x0c9a0…0c9c0 5f 6c 69 6e 65 3b 0a 0a 0a 6c 69 6e 65 74 79 70 65 31 30 3a 20 20 20 20 20 20 3b 20 20 63 6f 6d ┆_line; linetype10: ; com┆
0x0c9c0…0c9e0 6d 65 6e 74 20 20 61 62 73 20 63 72 65 61 74 65 20 70 72 6f 6a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ment abs create proj **********┆
0x0c9e0…0ca00 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆***** ****** ┆
0x0ca00…0ca06 (101,) (0xcc,0x195)
0x0ca06…0ca20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 0a 0a 20 20 20 63 68 65 63 6b 70 61 72 ┆*********** ; checkpar┆
0x0ca20…0ca40 61 6d 28 36 2c 20 36 2c 20 30 2c 20 31 20 73 68 69 66 74 20 32 29 3b 0a 20 20 20 20 20 20 63 6f ┆am(6, 6, 0, 1 shift 2); co┆
0x0ca40…0ca60 6d 6d 65 6e 74 20 36 20 69 6e 74 65 67 65 72 20 70 61 72 61 6d 65 74 65 72 73 3b 0a 0a 20 20 20 ┆mment 6 integer parameters; ┆
0x0ca60…0ca7e 67 6f 74 6f 20 69 6e 69 74 70 72 6f 6a 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 ┆goto initproj; <* bbj 9 9┆
0x0ca7e…0ca84 (0xcc,0x196)
0x0ca84…0caa0 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 74 ┆ 76 linet┆
0x0caa0…0cac0 79 70 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 ┆ypes catupda┆
0x0cac0…0cae0 74 65 20 20 2e 2e 2e 32 30 2e 2e 2e 20 20 2a 3e 0a 0a 0a 6c 69 6e 65 74 79 70 65 31 31 3a 20 20 ┆te ...20... *> linetype11: ┆
0x0cae0…0cafc 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 20 20 61 62 73 20 63 72 65 61 74 65 20 75 ┆ ; comment abs create u┆
0x0cafc…0cb02 (0xcc,0x197)
0x0cb02…0cb20 73 65 72 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 ┆ser *************** ┆
0x0cb20…0cb40 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 0a 0a 20 20 20 63 68 65 63 6b 70 ┆ ***************** ; checkp┆
0x0cb40…0cb60 61 72 61 6d 28 36 2c 20 36 2c 20 69 2c 20 69 66 20 69 3d 30 20 74 68 65 6e 20 31 20 73 68 69 66 ┆aram(6, 6, i, if i=0 then 1 shif┆
0x0cb60…0cb7a 74 20 36 20 65 6c 73 65 20 31 20 73 68 69 66 74 20 32 29 3b 0a 20 20 20 20 20 ┆t 6 else 1 shift 2); ┆
0x0cb7a…0cb80 (0xcc,0x198)
0x0cb80…0cba0 20 63 6f 6d 6d 65 6e 74 20 36 20 70 61 72 61 6d 65 74 65 72 73 2c 20 74 68 65 20 66 69 72 73 74 ┆ comment 6 parameters, the first┆
0x0cba0…0cbc0 20 69 73 20 74 65 78 74 2c 20 74 68 65 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 61 72 65 20 ┆ is text, the rest are ┆
0x0cbc0…0cbe0 69 6e 74 65 67 65 72 73 3b 0a 0a 20 20 20 67 6f 74 6f 20 69 6e 69 74 75 73 65 72 3b 0a 0a 6c 69 ┆integers; goto inituser; li┆
0x0cbe0…0cc00 6e 65 74 79 70 65 31 32 3a 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 00 00 00 00 00 00 00 00 ┆netype12: ; commen ┆
0x0cc00…0cc06 (102,) (0xcc,0x199)
0x0cc06…0cc20 74 20 20 70 72 6f 6a 65 63 74 20 69 64 20 28 61 63 63 6f 75 6e 74 20 69 6e 66 ┆t project id (account inf┆
0x0cc20…0cc40 2e 29 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆.) *************** *┆
0x0cc40…0cc60 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 20 3b 0a 0a 20 20 ┆************************** ; ┆
0x0cc60…0cc7e 20 63 68 65 63 6b 70 61 72 61 6d 28 31 2c 20 31 2c 20 30 2c 20 31 20 73 68 69 66 74 20 36 ┆ checkparam(1, 1, 0, 1 shift 6┆
0x0cc7e…0cc84 (0xcc,0x19a)
0x0cc84…0cca0 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 31 20 74 65 78 74 20 70 61 72 61 ┆); comment 1 text para┆
0x0cca0…0ccc0 6d 65 74 65 72 3b 0a 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 70 28 31 29 2c 20 69 2b 31 20 77 68 ┆meter; for i := p(1), i+1 wh┆
0x0ccc0…0cce0 69 6c 65 20 70 28 30 29 2b 37 20 3e 20 69 20 64 6f 20 6c 69 6e 65 28 69 29 20 3a 3d 20 30 3b 0a ┆ile p(0)+7 > i do line(i) := 0; ┆
0x0cce0…0ccfc 20 20 20 70 28 31 29 20 3a 3d 20 70 28 30 29 20 2b 20 37 3b 0a 20 20 20 20 20 20 63 ┆ p(1) := p(0) + 7; c┆
0x0ccfc…0cd02 (0xcc,0x19b)
0x0cd02…0cd20 6f 6d 6d 65 6e 74 20 65 78 74 65 6e 64 20 74 68 65 20 74 65 78 74 20 69 6e 74 6f 20 32 31 ┆omment extend the text into 21┆
0x0cd20…0cd40 20 63 68 61 72 73 2e 2e 2e 3b 0a 20 20 20 6d 6f 76 65 5f 75 73 65 72 6e 61 6d 65 28 74 72 61 6e ┆ chars...; move_username(tran┆
0x0cd40…0cd60 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e ┆s, maxlength); goto print_lin┆
0x0cd60…0cd7a 65 3b 0a 0a 0a 69 6e 69 74 70 72 6f 6a 3a 20 20 20 20 20 20 20 20 3b 20 20 63 ┆e; initproj: ; c┆
0x0cd7a…0cd80 (0xcc,0x19c)
0x0cd80…0cda0 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 20 20 20 3c 2a 20 ┆omment *************** ; <* ┆
0x0cda0…0cdc0 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 70 6f 69 6e 74 65 64 20 61 74 20 62 79 20 70 28 31 29 ┆the parameter pointed at by p(1)┆
0x0cdc0…0cde0 20 69 73 20 3a 0a 20 20 20 20 20 20 30 20 2d 20 6e 65 77 20 70 72 6f 6a 65 63 74 20 6f 72 20 75 ┆ is : 0 - new project or u┆
0x0cde0…0ce00 73 65 72 0a 20 20 20 20 20 20 31 20 2d 20 63 68 61 6e 67 65 20 20 2d 20 00 00 00 00 00 00 00 00 ┆ser 1 - change - ┆
0x0ce00…0ce06 (103,) (0xcc,0x19d)
0x0ce06…0ce20 20 20 2d 20 20 20 2d 0a 20 20 20 20 20 20 32 20 2d 20 64 65 6c 65 74 65 20 20 ┆ - - 2 - delete ┆
0x0ce20…0ce40 2d 20 20 20 2d 20 20 2d 0a 20 20 20 2a 3e 0a 0a 20 20 20 70 72 6f 6a 6e 6f 20 3a 3d 20 6c 69 6e ┆- - - *> projno := lin┆
0x0ce40…0ce60 65 28 70 28 30 29 29 3b 0a 20 20 20 69 66 20 70 72 6f 6a 6e 6f 20 3c 20 31 20 6f 72 20 70 72 6f ┆e(p(0)); if projno < 1 or pro┆
0x0ce60…0ce7e 6a 6e 6f 20 3e 20 39 39 39 39 39 39 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 ┆jno > 999999 then alarm(┆
0x0ce7e…0ce84 (0xcc,0x19e)
0x0ce84…0cea0 3c 3a 69 6c 6c 65 67 61 6c 20 70 72 6f 6a 6e 6f 3a 3e 29 3b 0a 20 20 20 69 66 20 6c ┆<:illegal projno:>); if l┆
0x0cea0…0cec0 69 6e 65 28 70 28 31 29 29 20 3c 20 30 20 6f 72 20 6c 69 6e 65 28 70 28 31 29 29 20 3e 20 32 20 ┆ine(p(1)) < 0 or line(p(1)) > 2 ┆
0x0cec0…0cee0 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 75 70 64 61 74 ┆then alarm(<:illegal updat┆
0x0cee0…0cefc 65 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 3a 3e 29 3b 0a 20 20 20 75 70 64 61 ┆e identification:>); upda┆
0x0cefc…0cf02 (0xcc,0x19f)
0x0cf02…0cf20 74 65 69 6e 66 20 3a 3d 20 28 69 66 20 6c 69 6e 65 28 70 28 31 29 29 20 3d 20 32 20 74 68 ┆teinf := (if line(p(1)) = 2 th┆
0x0cf20…0cf40 65 6e 20 30 20 65 6c 73 65 20 6c 69 6e 65 28 70 28 31 29 29 20 2b 20 31 29 20 73 68 69 66 74 20 ┆en 0 else line(p(1)) + 1) shift ┆
0x0cf40…0cf60 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 64 20 28 69 66 20 6c 69 6e 65 74 79 ┆1 add (if linety┆
0x0cf60…0cf7a 70 65 3d 31 20 74 68 65 6e 20 31 20 65 6c 73 65 20 30 29 3b 0a 20 20 20 69 66 ┆pe=1 then 1 else 0); if┆
0x0cf7a…0cf80 (0xcc,0x1a0)
0x0cf80…0cfa0 20 75 70 64 61 74 65 69 6e 66 20 3d 20 31 20 74 68 65 6e 20 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 ┆ updateinf = 1 then alarm(<:ille┆
0x0cfa0…0cfc0 67 61 6c 20 75 70 64 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 3e 29 3b 0a 20 20 20 70 72 ┆gal update information:>); pr┆
0x0cfc0…0cfe0 6f 6a 65 63 74 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 75 73 65 72 6e 61 6d 65 31 20 3a 3d 20 75 ┆oject := true; username1 := u┆
0x0cfe0…0d000 73 65 72 6e 61 6d 65 32 20 3a 3d 20 30 3b 0a 0a 20 20 20 6f 75 74 70 75 00 00 00 00 00 00 00 00 ┆sername2 := 0; outpu ┆
0x0d000…0d006 (104,) (0xcc,0x1a1)
0x0d006…0d020 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 6d 61 ┆t(trans, maxlength); ma┆
0x0d020…0d040 78 64 65 76 69 63 65 77 6f 72 64 20 3a 3d 20 2d 31 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 64 ┆xdeviceword := -1; comment no d┆
0x0d040…0d060 65 76 69 63 65 73 20 61 6c 6c 6f 77 65 64 3b 0a 20 20 20 64 65 76 69 63 65 77 6f 72 64 20 20 20 ┆evices allowed; deviceword ┆
0x0d060…0d07e 20 3a 3d 20 20 30 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 64 65 76 69 63 65 73 20 72 65 ┆ := 0; comment no devices re┆
0x0d07e…0d084 (0xcc,0x1a2)
0x0d084…0d0a0 71 75 65 73 74 65 64 3b 0a 20 20 20 6d 61 78 64 65 76 69 63 65 20 20 20 20 20 3a 3d ┆quested; maxdevice :=┆
0x0d0a0…0d0c0 0a 20 20 20 64 65 76 69 63 65 20 20 20 20 20 20 20 20 3a 3d 20 66 61 6c 73 65 3b 0a 0a 20 20 20 ┆ device := false; ┆
0x0d0c0…0d0e0 74 72 61 6e 73 2e 69 6e 74 31 20 3a 3d 20 70 72 6f 6a 6e 6f 3b 0a 20 20 20 74 72 61 6e 73 2e 69 ┆trans.int1 := projno; trans.i┆
0x0d0e0…0d0fc 6e 74 32 20 3a 3d 20 6c 69 6e 65 28 70 28 34 29 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 ┆nt2 := line(p(4)); comment ┆
0x0d0fc…0d102 (0xcc,0x1a3)
0x0d102…0d120 6c 6f 77 65 72 20 70 72 6f 6a 20 69 6e 74 65 72 76 2e 3b 0a 20 20 20 74 72 61 6e 73 2e 69 ┆lower proj interv.; trans.i┆
0x0d120…0d140 6e 74 33 20 3a 3d 20 6c 69 6e 65 28 70 28 35 29 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 75 70 70 65 ┆nt3 := line(p(5)); comment uppe┆
0x0d140…0d160 72 20 70 72 6f 6a 20 69 6e 74 65 72 76 2e 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 34 20 3a 3d ┆r proj interv.; trans.int4 :=┆
0x0d160…0d17a 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 35 20 3a 3d 20 6c 69 6e 65 28 70 28 33 ┆ trans.int5 := line(p(3┆
0x0d17a…0d180 (0xcc,0x1a4)
0x0d180…0d1a0 29 29 20 73 68 69 66 74 20 31 32 20 61 64 64 20 6c 69 6e 65 28 70 28 32 29 29 3b 0a 0a 20 20 20 ┆)) shift 12 add line(p(2)); ┆
0x0d1a0…0d1c0 73 74 61 74 65 20 3a 3d 20 69 66 20 75 70 64 61 74 65 69 6e 66 20 3d 20 30 20 74 68 65 6e 20 6e ┆state := if updateinf = 0 then n┆
0x0d1c0…0d1e0 65 75 74 72 61 6c 73 74 61 74 65 20 65 6c 73 65 20 70 72 6f 6a 65 63 74 73 74 61 74 65 3b 0a 0a ┆eutralstate else projectstate; ┆
0x0d1e0…0d200 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0c 0a 3c 2a 00 00 00 00 00 00 00 00 ┆ goto print_line; <* ┆
0x0d200…0d206 (105,) (0xcc,0x1a5)
0x0d206…0d220 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bbj 9 9 76 ┆
0x0d220…0d240 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ linetypes ┆
0x0d240…0d260 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 32 31 2e 2e 2e 20 20 2a 3e 0a 0a 0a ┆ catupdate ...21... *> ┆
0x0d260…0d27e 69 6e 69 74 75 73 65 72 3a 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a ┆inituser: ; comment **┆
0x0d27e…0d284 (0xcc,0x1a6)
0x0d284…0d2a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 20 20 20 70 72 6f 6a 6e 6f 20 ┆************* ; projno ┆
0x0d2a0…0d2c0 3a 3d 20 6c 69 6e 65 28 70 28 31 29 29 3b 0a 20 20 20 69 66 20 6c 69 6e 65 28 70 28 32 29 29 20 ┆:= line(p(1)); if line(p(2)) ┆
0x0d2c0…0d2e0 3c 20 30 20 6f 72 20 6c 69 6e 65 28 70 28 32 29 29 20 3e 20 32 20 74 68 65 6e 0a 20 20 20 20 20 ┆< 0 or line(p(2)) > 2 then ┆
0x0d2e0…0d2fc 20 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 75 70 64 61 74 65 20 69 64 65 6e ┆ alarm(<:illegal update iden┆
0x0d2fc…0d302 (0xcc,0x1a7)
0x0d302…0d320 74 69 66 69 63 61 74 69 6f 6e 3a 3e 29 3b 0a 20 20 20 75 70 64 61 74 65 69 6e 66 20 3a 3d ┆tification:>); updateinf :=┆
0x0d320…0d340 20 28 69 66 20 6c 69 6e 65 28 70 28 32 29 29 20 3d 20 32 20 74 68 65 6e 20 30 20 65 6c 73 65 20 ┆ (if line(p(2)) = 2 then 0 else ┆
0x0d340…0d360 6c 69 6e 65 28 70 28 32 29 29 20 2b 20 31 29 20 73 68 69 66 74 20 31 0a 20 20 20 20 20 20 20 20 ┆line(p(2)) + 1) shift 1 ┆
0x0d360…0d37a 20 20 20 20 20 20 20 20 61 64 64 20 28 69 66 20 6c 69 6e 65 74 79 70 65 3d 32 ┆ add (if linetype=2┆
0x0d37a…0d380 (0xcc,0x1a8)
0x0d380…0d3a0 20 74 68 65 6e 20 31 20 65 6c 73 65 20 30 29 3b 0a 20 20 20 69 66 20 75 70 64 61 74 65 69 6e 66 ┆ then 1 else 0); if updateinf┆
0x0d3a0…0d3c0 20 3d 20 31 20 74 68 65 6e 20 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 75 70 64 61 74 65 ┆ = 1 then alarm(<:illegal update┆
0x0d3c0…0d3e0 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 3e 29 3b 0a 20 20 20 70 72 6f 6a 65 63 74 20 3a 3d 20 66 ┆ information:>); project := f┆
0x0d3e0…0d400 61 6c 73 65 3b 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 30 29 00 00 00 00 00 00 00 00 ┆alse; nameptr := p(0) ┆
0x0d400…0d406 (106,) (0xcc,0x1a9)
0x0d406…0d420 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 ┆ * 2 + 2; comment point a┆
0x0d420…0d440 74 20 75 73 65 72 6e 61 6d 65 2e 2e 2e 3b 0a 20 20 20 75 73 65 72 6e 61 6d 65 31 20 3a 3d 20 6c ┆t username...; username1 := l┆
0x0d440…0d460 69 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 6e 61 6d 65 70 ┆ine.nameptr; nameptr := namep┆
0x0d460…0d47e 74 72 20 2b 20 34 3b 0a 20 20 20 75 73 65 72 6e 61 6d 65 32 20 3a 3d 20 69 66 20 6b 69 6e ┆tr + 4; username2 := if kin┆
0x0d47e…0d484 (0xcc,0x1aa)
0x0d484…0d4a0 64 28 70 28 30 29 20 2b 20 32 29 20 3c 3e 20 36 20 74 68 65 6e 20 65 78 74 65 6e 64 ┆d(p(0) + 2) <> 6 then extend┆
0x0d4a0…0d4c0 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6c 69 6e 65 2e 6e 61 6d ┆ 0 else line.nam┆
0x0d4c0…0d4e0 65 70 74 72 20 73 68 69 66 74 20 28 2d 32 34 29 20 73 68 69 66 74 20 32 34 3b 0a 20 20 20 20 20 ┆eptr shift (-24) shift 24; ┆
0x0d4e0…0d4fc 20 63 6f 6d 6d 65 6e 74 20 69 66 20 74 68 65 20 75 73 65 72 6e 61 6d 65 20 69 73 20 ┆ comment if the username is ┆
0x0d4fc…0d502 (0xcc,0x1ab)
0x0d502…0d520 73 68 6f 72 74 65 72 20 74 68 61 6e 20 37 20 63 68 61 72 61 63 74 65 72 73 2c 0a 20 20 20 ┆shorter than 7 characters, ┆
0x0d520…0d540 20 20 20 20 20 20 74 68 65 20 6e 61 6d 65 20 69 73 20 65 78 74 65 6e 64 65 64 20 77 69 74 68 20 ┆ the name is extended with ┆
0x0d540…0d560 6e 75 6c 6c 2d 63 68 61 72 73 2c 20 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 20 20 20 20 20 74 ┆null-chars, otherwise t┆
0x0d560…0d57a 68 65 20 6e 61 6d 65 20 61 6c 6c 77 61 79 73 20 69 73 20 63 75 74 20 64 6f 77 ┆he name allways is cut dow┆
0x0d57a…0d580 (0xcc,0x1ac)
0x0d580…0d5a0 6e 20 74 6f 20 61 74 20 6d 6f 73 74 20 39 20 63 68 61 72 73 3b 0a 0a 20 20 20 6f 75 74 70 75 74 ┆n to at most 9 chars; output┆
0x0d5a0…0d5c0 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 6d 61 78 64 65 76 69 63 65 ┆(trans, maxlength); maxdevice┆
0x0d5c0…0d5e0 77 6f 72 64 20 3a 3d 20 2d 31 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 64 65 76 69 63 65 73 20 ┆word := -1; comment no devices ┆
0x0d5e0…0d600 61 6c 6c 6f 77 65 64 3b 0a 20 20 20 64 65 76 69 63 65 77 6f 72 64 20 20 00 00 00 00 00 00 00 00 ┆allowed; deviceword ┆
0x0d600…0d606 (107,) (0xcc,0x1ad)
0x0d606…0d620 20 20 3a 3d 20 20 30 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 64 65 76 69 63 ┆ := 0; comment no devic┆
0x0d620…0d640 65 73 20 72 65 71 75 65 73 74 65 64 3b 0a 20 20 20 6d 61 78 64 65 76 69 63 65 20 20 20 20 20 3a ┆es requested; maxdevice :┆
0x0d640…0d660 3d 0a 20 20 20 64 65 76 69 63 65 20 20 20 20 20 20 20 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 ┆= device := false; ┆
0x0d660…0d67e 75 73 65 72 70 6f 6f 6c 20 20 20 20 20 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 70 65 72 ┆userpool := false; per┆
0x0d67e…0d684 (0xcc,0x1ae)
0x0d684…0d6a0 6d 61 6e 65 6e 74 5f 64 69 73 63 3a 3d 20 30 3b 0a 0a 20 20 20 74 72 61 6e 73 2e 6c ┆manent_disc:= 0; trans.l┆
0x0d6a0…0d6c0 6f 6e 67 31 3a 3d 20 75 73 65 72 6e 61 6d 65 31 3b 0a 20 20 20 74 72 61 6e 73 2e 6c 6f 6e 67 32 ┆ong1:= username1; trans.long2┆
0x0d6c0…0d6e0 3a 3d 20 75 73 65 72 6e 61 6d 65 32 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 35 20 3a 3d 20 6c ┆:= username2; trans.int5 := l┆
0x0d6e0…0d6fc 69 6e 65 28 70 28 35 29 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 75 73 65 72 20 69 6e 74 ┆ine(p(5)); comment user int┆
0x0d6fc…0d702 (0xcc,0x1af)
0x0d702…0d720 65 72 76 61 6c 20 73 74 61 72 74 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 36 20 3a 3d 20 ┆erval start; trans.int6 := ┆
0x0d720…0d740 6c 69 6e 65 28 70 28 33 29 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 6a 6f 62 2d 69 6e 74 65 72 76 61 ┆line(p(3)); comment job-interva┆
0x0d740…0d760 6c 2d 77 69 64 74 68 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 37 20 3a 3d 20 6c 69 6e 65 28 70 ┆l-width; trans.int7 := line(p┆
0x0d760…0d77a 28 34 29 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 75 6d 62 65 72 20 6f 66 20 73 ┆(4)); comment number of s┆
0x0d77a…0d780 (0xcc,0x1b0)
0x0d780…0d7a0 69 6d 75 6c 74 2e 20 6a 6f 62 73 3b 0a 0a 20 20 20 73 74 61 74 65 20 3a 3d 20 69 66 20 75 70 64 ┆imult. jobs; state := if upd┆
0x0d7a0…0d7c0 61 74 65 69 6e 66 20 3d 20 30 20 74 68 65 6e 20 6e 65 75 74 72 61 6c 73 74 61 74 65 20 65 6c 73 ┆ateinf = 0 then neutralstate els┆
0x0d7c0…0d7e0 65 20 75 73 65 72 73 74 61 74 65 3b 0a 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 ┆e userstate; goto print_line┆
0x0d7e0…0d800 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 00 00 00 00 00 00 00 00 ┆; <* bbj 9 9 76 ┆
0x0d800…0d806 (108,) (0xcc,0x1b1)
0x0d806…0d820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 73 20 ┆ linetypes ┆
0x0d820…0d840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e ┆ catupdate .┆
0x0d840…0d860 2e 2e 32 32 2e 2e 2e 20 20 2a 3e 0a 0a 0a 74 65 72 6d 75 73 65 72 3a 20 20 20 20 20 20 20 20 3b ┆..22... *> termuser: ;┆
0x0d860…0d87e 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a ┆ comment *************** ; ┆
0x0d87e…0d884 (0xcc,0x1b2)
0x0d884…0d8a0 20 20 20 69 66 20 75 73 65 72 70 6f 6f 6c 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 ┆ if userpool then be┆
0x0d8a0…0d8c0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 70 75 74 20 74 68 65 20 6d 61 78 2d 69 6e 74 65 72 ┆gin comment output the max-inter┆
0x0d8c0…0d8e0 76 61 6c 20 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 72 65 63 74 79 70 65 6c 67 74 68 20 3a 3d ┆val record; rectypelgth :=┆
0x0d8e0…0d8fc 20 33 34 20 73 68 69 66 74 20 31 32 20 61 64 64 20 31 30 3b 0a 20 20 20 20 20 20 6f ┆ 34 shift 12 add 10; o┆
0x0d8fc…0d902 (0xcc,0x1b3)
0x0d902…0d920 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 ┆utput(trans, maxlength); ┆
0x0d920…0d940 20 74 72 61 6e 73 2e 69 6e 74 33 20 3a 3d 0a 20 20 20 20 20 20 74 72 61 6e 73 2e 69 6e 74 34 20 ┆ trans.int3 := trans.int4 ┆
0x0d940…0d960 3a 3d 20 70 65 72 6d 61 6e 65 6e 74 5f 64 69 73 63 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a ┆:= permanent_disc; end; ┆
0x0d960…0d97a 74 65 72 6d 70 72 6f 6a 3a 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e ┆termproj: ; commen┆
0x0d97a…0d980 (0xcc,0x1b4)
0x0d980…0d9a0 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 20 20 20 69 66 20 64 65 76 69 ┆t *************** ; if devi┆
0x0d9a0…0d9c0 63 65 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 70 ┆ce then begin comment outp┆
0x0d9c0…0d9e0 75 74 20 74 68 65 20 64 65 76 69 63 65 20 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 72 65 63 74 ┆ut the device record; rect┆
0x0d9e0…0da00 79 70 65 6c 67 74 68 20 3a 3d 20 38 20 73 68 69 66 74 20 31 32 20 61 64 00 00 00 00 00 00 00 00 ┆ypelgth := 8 shift 12 ad ┆
0x0da00…0da06 (109,) (0xcc,0x1b5)
0x0da06…0da20 64 20 36 3b 0a 20 20 20 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d ┆d 6; output(trans, m┆
0x0da20…0da40 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 2e 6c 6f 6e 67 31 20 3a 3d 20 ┆axlength); trans.long1 := ┆
0x0da40…0da60 64 65 76 69 63 65 77 6f 72 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 69 66 20 6d 61 ┆deviceword; end; if ma┆
0x0da60…0da7e 78 64 65 76 69 63 65 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆xdevice then begin comme┆
0x0da7e…0da84 (0xcc,0x1b6)
0x0da84…0daa0 6e 74 20 6f 75 74 70 75 74 20 74 68 65 20 6d 61 78 2d 64 65 76 69 63 65 20 72 65 63 ┆nt output the max-device rec┆
0x0daa0…0dac0 6f 72 64 3b 0a 20 20 20 20 20 20 72 65 63 74 79 70 65 6c 67 74 68 20 3a 3d 20 39 20 73 68 69 66 ┆ord; rectypelgth := 9 shif┆
0x0dac0…0dae0 74 20 31 32 20 61 64 64 20 36 3b 0a 20 20 20 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 ┆t 12 add 6; output(trans, ┆
0x0dae0…0dafc 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 2e 6c 6f 6e 67 ┆maxlength); trans.long┆
0x0dafc…0db02 (0xcc,0x1b7)
0x0db02…0db20 31 20 3a 3d 20 6d 61 78 64 65 76 69 63 65 77 6f 72 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆1 := maxdeviceword; end;┆
0x0db20…0db40 0a 0a 20 20 20 73 74 61 74 65 20 3a 3d 20 6e 65 75 74 72 61 6c 73 74 61 74 65 3b 0a 0a 20 20 20 ┆ state := neutralstate; ┆
0x0db40…0db60 67 6f 74 6f 20 73 65 6c 65 63 74 3b 0a 0a 0a 69 6c 6c 65 67 61 6c 3a 20 20 20 20 20 20 20 20 20 ┆goto select; illegal: ┆
0x0db60…0db7a 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆; comment ***************┆
0x0db7a…0db80 (0xcc,0x1b8)
0x0db80…0dba0 20 20 3b 0a 0a 20 20 20 61 6c 61 72 6d 28 3c 3a 6f 75 74 20 6f 66 20 73 65 71 75 65 6e 63 65 3a ┆ ; alarm(<:out of sequence:┆
0x0dba0…0dbc0 3e 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 ┆>); <* bbj 9 9 76 ┆
0x0dbc0…0dbe0 20 20 20 20 20 20 20 20 20 20 73 70 65 63 69 61 6c 20 61 63 74 69 6f 6e 73 20 20 20 20 20 20 20 ┆ special actions ┆
0x0dbe0…0dc00 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 32 33 00 00 00 00 00 00 00 00 ┆ catupdate ...23 ┆
0x0dc00…0dc06 (110,) (0xcc,0x1b9)
0x0dc06…0dc20 2e 2e 2e 20 20 2a 3e 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 74 68 65 20 66 6f 6c ┆... *> comment the fol┆
0x0dc20…0dc40 6c 6f 77 69 6e 67 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 64 69 66 66 65 72 65 6e 74 0a 20 20 ┆lowing contains the different ┆
0x0dc40…0dc60 20 73 70 65 63 69 61 6c 20 61 63 74 69 6f 6e 73 20 74 6f 20 62 65 20 74 61 6b 65 6e 20 77 69 74 ┆ special actions to be taken wit┆
0x0dc60…0dc7e 68 20 74 68 65 20 64 69 66 66 65 72 65 6e 74 0a 20 20 20 6f 70 74 69 6f 6e 73 2c 20 63 61 ┆h the different options, ca┆
0x0dc7e…0dc84 (0xcc,0x1ba)
0x0dc84…0dca0 6c 6c 65 64 20 62 79 20 6c 69 6e 65 74 79 70 65 20 35 20 61 6e 64 20 6c 69 6e 65 74 ┆lled by linetype 5 and linet┆
0x0dca0…0dcc0 79 70 65 20 36 2e 2e 2e 0a 0a 20 20 20 6e 6f 74 69 63 65 3a 20 73 6f 6d 65 20 6f 66 20 74 68 65 ┆ype 6... notice: some of the┆
0x0dcc0…0dce0 20 61 63 74 69 6f 6e 20 72 65 71 75 69 72 65 20 61 20 63 65 72 74 61 69 6e 20 6c 69 6e 65 74 79 ┆ action require a certain linety┆
0x0dce0…0dcfc 70 65 0a 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 ┆pe **********************┆
0x0dcfc…0dd02 (0xcc,0x1bb)
0x0dd02…0dd20 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 ┆******************************┆
0x0dd20…0dd40 2a 20 3b 0a 0a 61 63 74 69 6f 6e 31 3a 20 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 ┆* ; action1: ; comment┆
0x0dd40…0dd60 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 63 6f 6d 6d 65 6e 74 20 6a 6f 62 6f ┆ *************** ; comment jobo┆
0x0dd60…0dd7a 70 74 69 6f 6e 73 20 77 68 69 63 68 20 63 6f 6e 73 69 73 74 20 6f 66 20 3c 6b ┆ptions which consist of <k┆
0x0dd7a…0dd80 (0xcc,0x1bc)
0x0dd80…0dda0 65 79 77 6f 72 64 3e 20 3c 69 6e 74 20 70 61 72 61 6d 65 74 65 72 3e 20 3b 0a 0a 63 6f 6d 6d 65 ┆eyword> <int parameter> ; comme┆
0x0dda0…0ddc0 6e 74 20 61 63 63 6f 2c 20 61 72 65 61 2c 20 62 75 66 2c 20 63 62 75 66 2c 20 63 6f 72 65 2c 20 ┆nt acco, area, buf, cbuf, core, ┆
0x0ddc0…0dde0 69 6e 74 65 2c 20 6b 65 79 2c 20 6f 75 74 70 2c 0a 20 20 20 20 20 20 20 20 6d 6f 75 6e 2c 20 77 ┆inte, key, outp, moun, w┆
0x0dde0…0de00 61 69 74 2c 20 73 69 7a 65 2c 20 73 74 61 74 2c 20 73 75 73 70 2c 20 74 00 00 00 00 00 00 00 00 ┆ait, size, stat, susp, t ┆
0x0de00…0de06 (111,) (0xcc,0x1bd)
0x0de06…0de20 61 70 65 2c 20 70 72 69 6f 2c 20 6c 69 6e 6b 3b 0a 0a 20 20 20 6f 75 74 70 75 ┆ape, prio, link; outpu┆
0x0de20…0de40 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 76 61 6c 75 65 6f 66 70 ┆t(trans, maxlength); valueofp┆
0x0de40…0de60 61 72 3a 3d 74 72 61 6e 73 2e 69 6e 74 31 20 3a 3d 20 6c 69 6e 65 28 70 28 31 29 29 3b 0a 20 20 ┆ar:=trans.int1 := line(p(1)); ┆
0x0de60…0de7e 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 61 63 74 69 6f 6e 32 3a 20 20 20 ┆ goto print_line; action2: ┆
0x0de7e…0de84 (0xcc,0x1be)
0x0de84…0dea0 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; comment ***********┆
0x0dea0…0dec0 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 64 65 76 69 3b 0a 0a 20 20 20 69 66 20 6b 69 ┆**** ; comment devi; if ki┆
0x0dec0…0dee0 6e 64 28 70 28 31 29 29 20 3d 20 36 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆nd(p(1)) = 6 then begin co┆
0x0dee0…0defc 6d 6d 65 6e 74 20 74 65 78 74 20 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 20 20 20 ┆mment text parameter; ┆
0x0defc…0df02 (0xcc,0x1bf)
0x0df02…0df20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 31 29 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f 6d 6d ┆nameptr := p(1) * 2 + 2; comm┆
0x0df20…0df40 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 64 65 76 69 63 65 20 6e 61 6d 65 3b 0a 20 20 20 20 20 20 ┆ent point at device name; ┆
0x0df40…0df60 6e 61 6d 65 20 3a 3d 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 20 73 68 69 66 74 20 28 2d 31 36 29 ┆name := line.nameptr shift (-16)┆
0x0df60…0df7a 20 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆ shift 16; commen┆
0x0df7a…0df80 (0xcc,0x1c0)
0x0df80…0dfa0 74 20 65 78 74 72 61 63 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 75 72 20 6c 65 74 74 65 72 73 ┆t extract the first four letters┆
0x0dfa0…0dfc0 20 6f 66 20 64 65 76 69 63 65 20 6e 61 6d 65 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 ┆ of device name; for i := ┆
0x0dfc0…0dfe0 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 64 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 ┆2 step 1 until 5 do if ┆
0x0dfe0…0e000 64 65 76 69 63 65 6e 61 6d 65 28 69 29 20 3d 20 6e 61 6d 65 20 61 6e 64 00 00 00 00 00 00 00 00 ┆devicename(i) = name and ┆
0x0e000…0e006 (112,) (0xcc,0x1c1)
0x0e006…0e020 20 64 65 76 69 63 65 6e 75 6d 62 65 72 28 69 29 20 3e 20 30 20 74 68 65 6e 0a ┆ devicenumber(i) > 0 then ┆
0x0e020…0e040 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 64 65 76 69 63 65 5f 66 6f 75 6e 64 3b 0a 20 ┆ goto device_found; ┆
0x0e040…0e060 20 20 20 20 20 69 66 20 6e 61 6d 65 20 3d 20 6c 6f 6e 67 20 3c 3a 6e 6f 3a 3e 20 74 68 65 6e 0a ┆ if name = long <:no:> then ┆
0x0e060…0e07e 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 35 ┆ begin i := 5┆
0x0e07e…0e084 (0xcc,0x1c2)
0x0e084…0e0a0 30 3b 20 20 63 6f 6d 6d 65 6e 74 20 64 65 76 69 63 65 62 69 74 20 6f 75 74 20 6f 66 ┆0; comment devicebit out of┆
0x0e0a0…0e0c0 20 72 61 6e 67 65 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 6c 69 6e 65 74 79 70 65 20 ┆ range...; if linetype ┆
0x0e0c0…0e0e0 3d 20 35 20 74 68 65 6e 20 64 65 76 69 63 65 77 6f 72 64 20 20 20 20 3a 3d 20 30 0a 20 20 20 20 ┆= 5 then deviceword := 0 ┆
0x0e0e0…0e0fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6d 61 ┆ else ma┆
0x0e0fc…0e102 (0xcc,0x1c3)
0x0e102…0e120 78 64 65 76 69 63 65 77 6f 72 64 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 65 6e ┆xdeviceword := -1; en┆
0x0e120…0e140 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 64 65 76 69 63 ┆d else alarm(<:devic┆
0x0e140…0e160 65 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a ┆e unknown:>); end else ┆
0x0e160…0e17a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 74 65 67 65 ┆ begin comment intege┆
0x0e17a…0e180 (0xcc,0x1c4)
0x0e180…0e1a0 72 20 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 6e 6f 5f 6f ┆r parameter; for i := no_o┆
0x0e1a0…0e1c0 66 5f 64 65 76 69 63 65 73 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 34 20 64 6f 0a 20 20 20 ┆f_devices step -1 until 4 do ┆
0x0e1c0…0e1e0 20 20 20 20 20 20 69 66 20 6c 69 6e 65 28 70 28 31 29 29 20 3d 20 64 65 76 69 63 65 6e 75 6d 62 ┆ if line(p(1)) = devicenumb┆
0x0e1e0…0e200 65 72 28 69 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 00 00 00 00 00 00 00 00 ┆er(i) then g ┆
0x0e200…0e206 (113,) (0xcc,0x1c5)
0x0e206…0e220 6f 74 6f 20 64 65 76 69 63 65 5f 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 61 6c ┆oto device_found; al┆
0x0e220…0e240 61 72 6d 28 3c 3a 64 65 76 69 63 65 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 3b 0a 20 20 20 20 20 20 65 ┆arm(<:device unknown:>); e┆
0x0e240…0e260 6e 64 3b 0a 0a 64 65 76 69 63 65 5f 66 6f 75 6e 64 3a 0a 20 20 20 69 66 20 6c 69 6e 65 74 79 70 ┆nd; device_found: if linetyp┆
0x0e260…0e27e 65 20 3d 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 ┆e = 5 then begin i┆
0x0e27e…0e284 (0xcc,0x1c6)
0x0e284…0e2a0 66 20 64 65 76 69 63 65 77 6f 72 64 20 73 68 69 66 74 20 28 2d 34 37 2b 69 29 20 65 ┆f deviceword shift (-47+i) e┆
0x0e2a0…0e2c0 78 74 72 61 63 74 20 31 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 64 65 76 69 63 ┆xtract 1 = 0 then devic┆
0x0e2c0…0e2e0 65 77 6f 72 64 20 3a 3d 20 64 65 76 69 63 65 77 6f 72 64 20 2b 20 28 65 78 74 65 6e 64 20 31 29 ┆eword := deviceword + (extend 1)┆
0x0e2e0…0e2fc 20 73 68 69 66 74 20 28 34 37 2d 69 29 3b 0a 20 20 20 20 20 20 64 65 76 69 63 65 20 ┆ shift (47-i); device ┆
0x0e2fc…0e302 (0xcc,0x1c7)
0x0e302…0e320 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a 20 20 20 ┆:= true; end else ┆
0x0e320…0e340 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 6d 61 78 64 65 76 69 63 65 77 6f 72 64 20 ┆ begin if maxdeviceword ┆
0x0e340…0e360 73 68 69 66 74 20 28 2d 34 37 2b 69 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e ┆shift (-47+i) extract 1 = 1 then┆
0x0e360…0e37a 0a 20 20 20 20 20 20 20 20 20 6d 61 78 64 65 76 69 63 65 77 6f 72 64 20 3a 3d ┆ maxdeviceword :=┆
0x0e37a…0e380 (0xcc,0x1c8)
0x0e380…0e3a0 20 6d 61 78 64 65 76 69 63 65 77 6f 72 64 20 2d 20 28 65 78 74 65 6e 64 20 31 29 20 73 68 69 66 ┆ maxdeviceword - (extend 1) shif┆
0x0e3a0…0e3c0 74 20 28 34 37 2d 69 29 3b 0a 20 20 20 20 20 20 6d 61 78 64 65 76 69 63 65 20 3a 3d 20 74 72 75 ┆t (47-i); maxdevice := tru┆
0x0e3c0…0e3e0 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e ┆e; end; goto print_lin┆
0x0e3e0…0e400 65 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 00 00 00 00 00 00 00 00 ┆e; <* bbj 9 9 76 ┆
0x0e400…0e406 (114,) (0xcc,0x1c9)
0x0e406…0e420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 63 69 61 6c 20 61 ┆ special a┆
0x0e420…0e440 63 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 ┆ctions catupdate ┆
0x0e440…0e460 2e 2e 2e 32 34 2e 2e 2e 20 20 2a 3e 0a 0a 61 63 74 69 6f 6e 33 3a 20 20 20 20 20 20 20 20 20 3b ┆...24... *> action3: ;┆
0x0e460…0e47e 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a ┆ comment *************** ; ┆
0x0e47e…0e484 (0xcc,0x1ca)
0x0e484…0e4a0 63 6f 6d 6d 65 6e 74 20 6c 61 74 65 3b 0a 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 ┆comment late; output(tra┆
0x0e4a0…0e4c0 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 76 61 6c 75 65 6f 66 70 61 72 3a 3d 74 ┆ns, maxlength); valueofpar:=t┆
0x0e4c0…0e4e0 72 61 6e 73 2e 69 6e 74 31 20 3a 3d 20 65 78 74 65 6e 64 20 30 0a 20 20 20 20 20 20 2b 20 28 28 ┆rans.int1 := extend 0 + ((┆
0x0e4e0…0e4fc 6c 69 6e 65 28 70 28 31 29 29 20 2a 20 36 30 0a 20 20 20 20 20 20 20 20 20 20 2b 20 ┆line(p(1)) * 60 + ┆
0x0e4fc…0e502 (0xcc,0x1cb)
0x0e502…0e520 28 69 66 20 6b 69 6e 64 28 70 28 32 29 29 3d 32 20 74 68 65 6e 20 6c 69 6e 65 28 70 28 32 ┆(if kind(p(2))=2 then line(p(2┆
0x0e520…0e540 29 29 20 65 6c 73 65 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 2a 20 28 65 78 74 65 6e 64 20 36 ┆)) else 0)) * (extend 6┆
0x0e540…0e560 30 30 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 73 68 69 66 74 20 28 2d 31 33 29 3b 0a 0a 20 20 ┆00000)) shift (-13); ┆
0x0e560…0e57a 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 61 63 74 69 6f 6e 34 ┆ goto print_line; action4┆
0x0e57a…0e580 (0xcc,0x1cc)
0x0e580…0e5a0 3a 20 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆: ; comment ***********┆
0x0e5a0…0e5c0 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 70 72 69 76 3b 0a 20 20 20 69 66 20 6c 69 6e ┆**** ; comment priv; if lin┆
0x0e5c0…0e5e0 65 74 79 70 65 20 3c 3e 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 6d 61 ┆etype <> 5 then alarm(<:ma┆
0x0e5e0…0e600 78 20 76 61 6c 75 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 3e 29 3b 0a 00 00 00 00 00 00 00 00 ┆x value not allowed:>); ┆
0x0e600…0e606 (115,) (0xcc,0x1cd)
0x0e606…0e620 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 ┆ output(trans, maxlengt┆
0x0e620…0e640 68 29 3b 0a 20 20 20 69 3a 3d 6c 69 6e 65 28 70 28 31 29 29 3b 0a 20 20 20 69 66 20 69 3e 39 20 ┆h); i:=line(p(1)); if i>9 ┆
0x0e640…0e660 6f 72 20 69 3c 3d 30 20 74 68 65 6e 20 61 6c 61 72 6d 28 3c 3a 70 72 69 76 69 6c 65 67 65 20 69 ┆or i<=0 then alarm(<:privilege i┆
0x0e660…0e67e 6c 6c 65 67 61 6c 3a 3e 29 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 31 3a 3d 63 61 73 65 ┆llegal:>); trans.int1:=case┆
0x0e67e…0e684 (0xcc,0x1ce)
0x0e684…0e6a0 20 69 20 6f 66 20 28 34 30 38 31 2c 20 34 30 38 30 2c 20 34 30 36 34 2c 20 34 30 33 ┆ i of (4081, 4080, 4064, 403┆
0x0e6a0…0e6c0 32 2c 20 33 39 36 38 2c 20 33 38 34 30 2c 20 33 35 38 34 2c 20 33 30 37 32 2c 20 32 30 34 38 29 ┆2, 3968, 3840, 3584, 3072, 2048)┆
0x0e6c0…0e6e0 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 61 63 74 69 6f 6e 35 3a 20 ┆; goto print_line; action5: ┆
0x0e6e0…0e6fc 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; comment *********┆
0x0e6fc…0e702 (0xcc,0x1cf)
0x0e702…0e720 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 70 72 6f 67 3b 0a 0a 20 20 20 69 ┆****** ; comment prog; i┆
0x0e720…0e740 66 20 6c 69 6e 65 74 79 70 65 20 3c 3e 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d ┆f linetype <> 5 then alarm┆
0x0e740…0e760 28 3c 3a 6d 61 78 20 76 61 6c 75 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 3e 29 3b 0a 0a 20 20 ┆(<:max value not allowed:>); ┆
0x0e760…0e77a 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b ┆ output(trans, maxlength);┆
0x0e77a…0e780 (0xcc,0x1d0)
0x0e780…0e7a0 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 31 29 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f ┆ nameptr := p(1) * 2 + 2; co┆
0x0e7a0…0e7c0 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 70 72 6f 67 72 61 6d 6e 61 6d 65 3b 0a 20 20 20 74 ┆mment point at programname; t┆
0x0e7c0…0e7e0 72 61 6e 73 2e 6c 6f 6e 67 31 20 3a 3d 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 20 20 6e ┆rans.long1 := line.nameptr; n┆
0x0e7e0…0e800 61 6d 65 70 74 72 20 3a 3d 20 6e 61 6d 65 70 74 72 20 2b 20 34 3b 0a 20 00 00 00 00 00 00 00 00 ┆ameptr := nameptr + 4; ┆
0x0e800…0e806 (116,) (0xcc,0x1d1)
0x0e806…0e820 20 20 74 72 61 6e 73 2e 6c 6f 6e 67 32 20 3a 3d 20 69 66 20 6b 69 6e 64 28 70 ┆ trans.long2 := if kind(p┆
0x0e820…0e840 28 31 29 20 2b 20 32 29 20 3d 20 36 20 74 68 65 6e 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 20 73 ┆(1) + 2) = 6 then line.nameptr s┆
0x0e840…0e860 68 69 66 74 20 28 2d 38 29 20 73 68 69 66 74 20 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆hift (-8) shift 8 ┆
0x0e860…0e87e 20 20 20 20 65 6c 73 65 20 65 78 74 65 6e 64 20 30 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 ┆ else extend 0; goto pri┆
0x0e87e…0e884 (0xcc,0x1d2)
0x0e884…0e8a0 6e 74 5f 6c 69 6e 65 3b 0a 0a 61 63 74 69 6f 6e 36 3a 20 20 20 20 20 20 20 20 20 3b ┆nt_line; action6: ;┆
0x0e8a0…0e8c0 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f ┆ comment *************** ; co┆
0x0e8c0…0e8e0 6d 6d 65 6e 74 20 74 69 6d 65 3b 0a 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 ┆mment time; output(trans, ma┆
0x0e8e0…0e8fc 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 6a 20 3a 3d 20 30 3b 20 20 63 6f 6d 6d 65 6e ┆xlength); j := 0; commen┆
0x0e8fc…0e902 (0xcc,0x1d3)
0x0e902…0e920 74 20 63 6f 6d 70 75 74 65 20 74 69 6d 65 20 66 72 6f 6d 20 75 70 20 74 6f 20 74 68 72 65 ┆t compute time from up to thre┆
0x0e920…0e940 65 20 70 61 72 61 6d 73 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆e params; for i := 1 step 1 u┆
0x0e940…0e960 6e 74 69 6c 20 33 20 64 6f 0a 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 70 28 69 29 29 20 3c 3e ┆ntil 3 do if kind(p(i)) <>┆
0x0e960…0e97a 20 32 20 74 68 65 6e 20 69 20 3a 3d 20 33 0a 20 20 20 20 20 20 65 6c 73 65 20 ┆ 2 then i := 3 else ┆
0x0e97a…0e980 (0xcc,0x1d4)
0x0e980…0e9a0 6a 20 3a 3d 20 6a 20 2a 20 36 30 20 2b 20 6c 69 6e 65 28 70 28 69 29 29 3b 0a 20 20 20 76 61 6c ┆j := j * 60 + line(p(i)); val┆
0x0e9a0…0e9c0 75 65 6f 66 70 61 72 3a 3d 74 72 61 6e 73 2e 69 6e 74 31 20 3a 3d 20 28 28 65 78 74 65 6e 64 20 ┆ueofpar:=trans.int1 := ((extend ┆
0x0e9c0…0e9e0 31 30 30 30 30 29 20 2a 20 6a 29 20 73 68 69 66 74 20 28 2d 31 33 29 3b 0a 20 20 20 67 6f 74 6f ┆10000) * j) shift (-13); goto┆
0x0e9e0…0ea00 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 00 00 00 00 00 00 00 00 ┆ print_line; <* bbj ┆
0x0ea00…0ea06 (117,) (0xcc,0x1d5)
0x0ea06…0ea20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 9 9 76 ┆
0x0ea20…0ea40 20 73 70 65 63 69 61 6c 20 61 63 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 ┆ special actions c┆
0x0ea40…0ea60 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 32 35 2e 2e 2e 20 20 2a 3e 0a 0a 61 63 74 69 6f 6e 37 3a ┆atupdate ...25... *> action7:┆
0x0ea60…0ea7e 20 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; comment **********┆
0x0ea7e…0ea84 (0xcc,0x1d6)
0x0ea84…0eaa0 2a 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 70 65 72 6d 3b 0a 0a 20 20 20 ┆***** ; comment perm; ┆
0x0eaa0…0eac0 69 66 20 6c 69 6e 65 74 79 70 65 20 3c 3e 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 ┆if linetype <> 5 then alar┆
0x0eac0…0eae0 6d 28 3c 3a 6d 61 78 20 76 61 6c 75 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 3e 29 3b 0a 0a 20 ┆m(<:max value not allowed:>); ┆
0x0eae0…0eafc 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 31 29 20 2a 20 32 20 2b 20 32 3b 20 20 ┆ nameptr := p(1) * 2 + 2; ┆
0x0eafc…0eb02 (0xcc,0x1d7)
0x0eb02…0eb20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 64 65 76 69 63 65 20 6e 61 6d 65 3b 0a ┆comment point at device name; ┆
0x0eb20…0eb40 20 20 20 6e 61 6d 65 20 3a 3d 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 20 20 69 66 20 6e ┆ name := line.nameptr; if n┆
0x0eb40…0eb60 61 6d 65 20 3d 20 6c 6f 6e 67 20 3c 3a 64 72 75 6d 3a 3e 20 74 68 65 6e 20 72 65 63 74 79 70 65 ┆ame = long <:drum:> then rectype┆
0x0eb60…0eb7a 6c 67 74 68 20 3a 3d 20 34 36 20 73 68 69 66 74 20 31 32 20 61 64 64 20 34 0a ┆lgth := 46 shift 12 add 4 ┆
0x0eb7a…0eb80 (0xcc,0x1d8)
0x0eb80…0eba0 20 20 20 65 6c 73 65 20 69 66 20 6e 61 6d 65 20 3c 3e 20 6c 6f 6e 67 20 3c 3a 64 69 73 63 3a 3e ┆ else if name <> long <:disc:>┆
0x0eba0…0ebc0 20 74 68 65 6e 20 67 6f 74 6f 20 73 70 65 63 69 61 6c 3b 0a 0a 20 20 20 6f 75 74 70 75 74 28 74 ┆ then goto special; output(t┆
0x0ebc0…0ebe0 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 31 20 ┆rans, maxlength); trans.int1 ┆
0x0ebe0…0ec00 3a 3d 20 6c 69 6e 65 28 70 28 33 29 29 20 73 68 69 66 74 20 31 32 20 2b 00 00 00 00 00 00 00 00 ┆:= line(p(3)) shift 12 + ┆
0x0ec00…0ec06 (118,) (0xcc,0x1d9)
0x0ec06…0ec20 20 6c 69 6e 65 28 70 28 32 29 29 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 ┆ line(p(2)); goto print┆
0x0ec20…0ec40 5f 6c 69 6e 65 3b 0a 0a 73 70 65 63 69 61 6c 3a 0a 20 20 20 72 65 63 74 79 70 65 6c 67 74 68 20 ┆_line; special: rectypelgth ┆
0x0ec40…0ec60 3a 3d 20 34 38 20 73 68 69 66 74 20 31 32 20 61 64 64 20 31 32 3b 0a 20 20 20 6f 75 74 70 75 74 ┆:= 48 shift 12 add 12; output┆
0x0ec60…0ec7e 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 74 72 61 6e 73 2e 6c ┆(trans, maxlength); trans.l┆
0x0ec7e…0ec84 (0xcc,0x1da)
0x0ec84…0eca0 6f 6e 67 31 20 3a 3d 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 20 20 20 20 20 ┆ong1 := line.nameptr; ┆
0x0eca0…0ecc0 6e 61 6d 65 70 74 72 20 3a 3d 20 6e 61 6d 65 70 74 72 20 2b 20 34 3b 0a 20 20 20 74 72 61 6e 73 ┆nameptr := nameptr + 4; trans┆
0x0ecc0…0ece0 2e 6c 6f 6e 67 32 20 3a 3d 20 69 66 20 6b 69 6e 64 28 70 28 31 29 20 2b 20 32 29 20 3c 3e 20 36 ┆.long2 := if kind(p(1) + 2) <> 6┆
0x0ece0…0ecfc 20 74 68 65 6e 20 65 78 74 65 6e 64 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ then extend 0 ┆
0x0ecfc…0ed02 (0xcc,0x1db)
0x0ed02…0ed20 20 20 20 20 20 65 6c 73 65 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 20 73 68 69 66 74 20 28 ┆ else line.nameptr shift (┆
0x0ed20…0ed40 2d 38 29 20 73 68 69 66 74 20 38 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 35 20 20 3a 3d 20 6c ┆-8) shift 8; trans.int5 := l┆
0x0ed40…0ed60 69 6e 65 28 70 28 33 29 29 20 73 68 69 66 74 20 31 32 20 2b 20 6c 69 6e 65 28 70 28 32 29 29 3b ┆ine(p(3)) shift 12 + line(p(2));┆
0x0ed60…0ed7a 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 61 63 74 69 ┆ goto print_line; acti┆
0x0ed7a…0ed80 (0xcc,0x1dc)
0x0ed80…0eda0 6f 6e 38 3a 20 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a ┆on8: ; comment ********┆
0x0eda0…0edc0 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 74 65 6d 70 3b 0a 0a 20 20 20 69 66 ┆******* ; comment temp; if┆
0x0edc0…0ede0 20 6c 69 6e 65 74 79 70 65 20 3c 3e 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 ┆ linetype <> 5 then alarm(┆
0x0ede0…0ee00 3c 3a 6d 61 78 20 76 61 6c 75 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 00 00 00 00 00 00 00 00 ┆<:max value not allowed: ┆
0x0ee00…0ee06 (119,) (0xcc,0x1dd)
0x0ee06…0ee20 3e 29 3b 0a 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 31 29 20 2a 20 ┆>); nameptr := p(1) * ┆
0x0ee20…0ee40 32 20 2b 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 64 65 76 69 63 65 6e ┆2 + 2; comment point at devicen┆
0x0ee40…0ee60 61 6d 65 3b 0a 20 20 20 6e 61 6d 65 20 3a 3d 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 20 ┆ame; name := line.nameptr; ┆
0x0ee60…0ee7e 20 69 66 20 6e 61 6d 65 20 3d 20 6c 6f 6e 67 20 3c 3a 64 69 73 63 3a 3e 20 74 68 65 6e 20 ┆ if name = long <:disc:> then ┆
0x0ee7e…0ee84 (0xcc,0x1de)
0x0ee84…0eea0 72 65 63 74 79 70 65 6c 67 74 68 20 3a 3d 20 33 38 20 73 68 69 66 74 20 31 32 20 61 ┆rectypelgth := 38 shift 12 a┆
0x0eea0…0eec0 64 64 20 34 0a 20 20 20 65 6c 73 65 20 69 66 20 6e 61 6d 65 20 3c 3e 20 6c 6f 6e 67 20 3c 3a 64 ┆dd 4 else if name <> long <:d┆
0x0eec0…0eee0 72 75 6d 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 61 6c 61 72 6d 28 3c 3a 74 65 6d 70 20 6e 6f ┆rum:> then alarm(<:temp no┆
0x0eee0…0eefc 74 20 61 6c 6c 6f 77 65 64 20 6f 6e 20 73 70 65 63 69 66 69 65 64 20 64 65 76 69 63 ┆t allowed on specified devic┆
0x0eefc…0ef02 (0xcc,0x1df)
0x0ef02…0ef20 65 3a 3e 29 3b 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 ┆e:>); output(trans, maxleng┆
0x0ef20…0ef40 74 68 29 3b 0a 20 20 20 74 72 61 6e 73 2e 69 6e 74 31 20 3a 3d 20 6c 69 6e 65 28 70 28 32 29 29 ┆th); trans.int1 := line(p(2))┆
0x0ef40…0ef60 20 2b 20 28 69 66 20 6b 69 6e 64 28 70 28 33 29 29 20 3d 20 32 20 74 68 65 6e 20 6c 69 6e 65 28 ┆ + (if kind(p(3)) = 2 then line(┆
0x0ef60…0ef7a 70 28 33 29 29 20 73 68 69 66 74 20 31 32 0a 20 20 20 20 20 20 20 20 20 20 20 ┆p(3)) shift 12 ┆
0x0ef7a…0ef80 (0xcc,0x1e0)
0x0ef80…0efa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 30 29 3b 0a 20 20 20 ┆ else 0); ┆
0x0efa0…0efc0 67 6f 74 6f 20 70 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 61 63 74 69 6f 6e 39 3a 20 20 20 20 20 20 ┆goto print_line; action9: ┆
0x0efc0…0efe0 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b ┆ ; comment *************** ;┆
0x0efe0…0f000 0a 0a 63 6f 6d 6d 65 6e 74 20 6f 6e 6c 69 20 20 2c 20 70 72 65 73 20 6f 00 00 00 00 00 00 00 00 ┆ comment onli , pres o ┆
0x0f000…0f006 (120,) (0xcc,0x1e1)
0x0f006…0f020 72 20 20 6d 69 6e 69 3b 0a 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 ┆r mini; nameptr := p(┆
0x0f020…0f040 31 29 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 61 6e ┆1) * 2 + 2; comment point at an┆
0x0f040…0f060 73 77 65 72 3b 0a 20 20 20 6e 61 6d 65 20 3a 3d 20 6c 69 6e 65 2e 6e 61 6d 65 70 74 72 3b 0a 20 ┆swer; name := line.nameptr; ┆
0x0f060…0f07e 20 20 69 66 20 6e 61 6d 65 20 3d 20 6c 6f 6e 67 20 3c 3a 6e 6f 3a 3e 20 74 68 65 6e 20 69 ┆ if name = long <:no:> then i┆
0x0f07e…0f084 (0xcc,0x1e2)
0x0f084…0f0a0 20 3a 3d 20 30 0a 20 20 20 65 6c 73 65 20 69 66 20 6e 61 6d 65 20 3d 20 6c 6f 6e 67 ┆ := 0 else if name = long┆
0x0f0a0…0f0c0 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 69 20 3a 3d 20 31 0a 20 20 20 65 6c 73 65 20 61 6c 61 ┆ <:yes:> then i := 1 else ala┆
0x0f0c0…0f0e0 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 3a 3e 29 3b 0a 20 20 20 6f 75 ┆rm(<:illegal parameter:>); ou┆
0x0f0e0…0f0fc 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 74 ┆tput(trans, maxlength); t┆
0x0f0fc…0f102 (0xcc,0x1e3)
0x0f102…0f120 72 61 6e 73 2e 69 6e 74 31 20 3a 3d 20 69 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 5f ┆rans.int1 := i; goto print_┆
0x0f120…0f140 6c 69 6e 65 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 ┆line; <* bbj 9 9 76 ┆
0x0f140…0f160 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 6f 66 20 69 6e 70 75 74 20 20 20 20 20 20 20 20 ┆ end of input ┆
0x0f160…0f17a 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 32 36 ┆ catupdate ...26┆
0x0f17a…0f180 (0xcc,0x1e4)
0x0f180…0f1a0 2e 2e 2e 20 20 2a 3e 0a 0a 0a 0a 69 6e 69 74 73 6f 72 74 3a 20 20 20 20 20 20 20 20 20 3b 20 20 ┆... *> initsort: ; ┆
0x0f1a0…0f1c0 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d ┆comment **************** ; com┆
0x0f1c0…0f1e0 6d 65 6e 74 20 6e 6f 77 20 61 6c 6c 20 69 6e 70 75 74 20 68 61 73 20 62 65 65 6e 20 70 72 6f 63 ┆ment now all input has been proc┆
0x0f1e0…0f200 65 73 73 65 64 2c 20 61 6e 64 20 68 61 73 20 62 65 65 6e 0a 20 20 20 63 00 00 00 00 00 00 00 00 ┆essed, and has been c ┆
0x0f200…0f206 (121,) (0xcc,0x1e5)
0x0f206…0f220 68 61 6e 67 65 64 20 69 6e 74 6f 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 72 65 ┆hanged into transaction re┆
0x0f220…0f240 63 6f 72 64 73 3b 0a 0a 20 20 20 72 65 63 74 79 70 65 6c 67 74 68 20 3a 3d 20 30 20 73 68 69 66 ┆cords; rectypelgth := 0 shif┆
0x0f240…0f260 74 20 31 32 20 61 64 64 20 31 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 64 75 63 65 20 61 20 ┆t 12 add 12; comment produce a ┆
0x0f260…0f27e 65 6e 64 2d 63 61 74 61 6c 6f 67 2d 72 65 63 6f 72 64 3b 0a 20 20 20 70 72 6f 6a 6e 6f 20 ┆end-catalog-record; projno ┆
0x0f27e…0f284 (0xcc,0x1e6)
0x0f284…0f2a0 3a 3d 20 28 2d 31 29 20 73 68 69 66 74 20 28 2d 31 29 3b 0a 20 20 20 75 73 65 72 6e ┆:= (-1) shift (-1); usern┆
0x0f2a0…0f2c0 61 6d 65 31 20 3a 3d 20 75 73 65 72 6e 61 6d 65 32 20 3a 3d 20 30 3b 0a 20 20 20 75 70 64 61 74 ┆ame1 := username2 := 0; updat┆
0x0f2c0…0f2e0 65 69 6e 66 20 3a 3d 20 30 3b 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c ┆einf := 0; output(trans, maxl┆
0x0f2e0…0f2fc 65 6e 67 74 68 29 3b 0a 20 20 20 6f 75 74 70 75 74 28 76 61 72 74 72 61 6e 73 2c 20 ┆ength); output(vartrans, ┆
0x0f2fc…0f302 (0xcc,0x1e7)
0x0f302…0f320 76 61 72 6c 65 6e 67 74 68 29 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 74 72 61 6e 73 20 3a 3d 20 ┆varlength); no_of_trans := ┆
0x0f320…0f340 6e 6f 5f 6f 66 5f 74 72 61 6e 73 20 2d 20 31 3b 20 20 63 6f 6d 6d 65 6e 74 20 63 6f 6d 70 65 6e ┆no_of_trans - 1; comment compen┆
0x0f340…0f360 73 61 74 65 20 74 68 65 20 63 6f 75 6e 74 69 6e 67 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 76 61 72 74 ┆sate the counting; no_of_vart┆
0x0f360…0f37a 72 61 6e 73 20 3a 3d 20 6e 6f 5f 6f 66 5f 76 61 72 74 72 61 6e 73 20 2b 20 31 ┆rans := no_of_vartrans + 1┆
0x0f37a…0f380 (0xcc,0x1e8)
0x0f380…0f3a0 3b 0a 20 20 20 63 6c 6f 73 65 28 69 6e 2c 20 74 72 75 65 29 3b 0a 20 20 20 63 6c 6f 73 65 28 74 ┆; close(in, true); close(t┆
0x0f3a0…0f3c0 72 61 6e 73 2c 20 74 72 75 65 29 3b 0a 20 20 20 63 6c 6f 73 65 28 76 61 72 74 72 61 6e 73 2c 20 ┆rans, true); close(vartrans, ┆
0x0f3c0…0f3e0 74 72 75 65 29 3b 0a 0a 65 6e 64 3b 20 3c 2a 20 65 6e 64 20 6f 66 20 69 6e 70 75 74 20 2a 3e 0a ┆true); end; <* end of input *> ┆
0x0f3e0…0f400 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ <* bbj 9 9 76 ┆
0x0f400…0f406 (122,) (0xcc,0x1e9)
0x0f406…0f420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 72 74 69 6e 67 20 6f 66 20 72 ┆ sorting of r┆
0x0f420…0f440 65 63 6f 72 64 73 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e ┆ecords catupdate ...┆
0x0f440…0f460 32 37 2e 2e 2e 20 20 2a 3e 0a 0a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 6f 72 74 69 6e 67 ┆27... *> begin comment sorting┆
0x0f460…0f47e 20 62 6c 6f 63 6b 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 64 69 73 63 73 6f 72 74 28 66 69 ┆ block; procedure discsort(fi┆
0x0f47e…0f484 (0xcc,0x1ea)
0x0f484…0f4a0 6c 6e 61 76 6e 2c 6c 7b 2c 61 6e 74 61 6c 69 6e 64 69 76 2c 73 65 67 6d 70 72 62 6c ┆lnavn,læ,antalindiv,segmprbl┆
0x0f4a0…0f4c0 6f 6b 2c 6e 67 6c 2c 6c 65 76 6c 73 29 3b 0a 76 61 6c 75 65 20 73 65 67 6d 70 72 62 6c 6f 6b 3b ┆ok,ngl,levls); value segmprblok;┆
0x0f4c0…0f4e0 20 73 74 72 69 6e 67 20 66 69 6c 6e 61 76 6e 3b 0a 69 6e 74 65 67 65 72 20 6c 7b 2c 61 6e 74 61 ┆ string filnavn; integer læ,anta┆
0x0f4e0…0f4fc 6c 69 6e 64 69 76 2c 73 65 67 6d 70 72 62 6c 6f 6b 2c 6c 65 76 6c 73 3b 0a 69 6e 74 ┆lindiv,segmprblok,levls; int┆
0x0f4fc…0f502 (0xcc,0x1eb)
0x0f502…0f520 65 67 65 72 20 61 72 72 61 79 20 6e 67 6c 3b 0a 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 72 ┆eger array ngl; begin integer┆
0x0f520…0f540 20 66 79 73 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 2c 20 66 79 73 69 73 6b 62 6c 6f 6b ┆ fysisksubbloklængde, fysiskblok┆
0x0f540…0f560 6c 7b 6e 67 64 65 2c 20 62 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 ┆længde, b; integer array i┆
0x0f560…0f57a 61 28 31 3a 32 30 29 3b 20 61 72 72 61 79 20 72 61 28 31 3a 32 29 3b 0a 20 20 ┆a(1:20); array ra(1:2); ┆
0x0f57a…0f580 (0xcc,0x1ec)
0x0f580…0f5a0 20 20 20 20 66 79 73 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 20 3a 3d 20 35 31 32 20 2a ┆ fysisksubbloklængde := 512 *┆
0x0f5a0…0f5c0 20 73 65 67 6d 70 72 62 6c 6f 6b 3b 0a 20 20 20 20 20 20 62 3a 3d 20 28 73 79 73 74 65 6d 28 32 ┆ segmprblok; b:= (system(2┆
0x0f5c0…0f5e0 2c 62 2c 72 61 29 2d 38 2a 35 31 32 29 2f 2f 28 32 2a 66 79 73 69 73 6b 73 75 62 62 6c 6f 6b 6c ┆,b,ra)-8*512)//(2*fysisksubblokl┆
0x0f5e0…0f600 7b 6e 67 64 65 29 3b 0a 20 20 20 20 20 20 66 79 73 69 73 6b 62 6c 6f 6b 00 00 00 00 00 00 00 00 ┆ængde); fysiskblok ┆
0x0f600…0f606 (123,) (0xcc,0x1ed)
0x0f606…0f620 6c 7b 6e 67 64 65 20 3a 3d 20 62 20 2a 20 66 79 73 69 73 6b 73 75 62 62 6c 6f ┆længde := b * fysisksubblo┆
0x0f620…0f640 6b 6c 7b 6e 67 64 65 3b 0a 20 20 20 20 20 20 73 65 67 6d 70 72 62 6c 6f 6b 20 3a 3d 20 62 20 2a ┆klængde; segmprblok := b *┆
0x0f640…0f660 20 73 65 67 6d 70 72 62 6c 6f 6b 3b 0a 63 6f 6d 6d 65 6e 74 20 69 69 66 66 20 75 70 64 61 74 65 ┆ segmprblok; comment iiff update┆
0x0f660…0f67e 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 61 6e 74 61 6c ┆st then write(out, <:<10>antal┆
0x0f67e…0f684 (0xcc,0x1ee)
0x0f684…0f6a0 69 6e 64 69 76 20 3d 20 3a 3e 2c 20 61 6e 74 61 6c 69 6e 64 69 76 29 3b 0a 0a 62 65 ┆indiv = :>, antalindiv); be┆
0x0f6a0…0f6c0 67 69 6e 20 69 6e 74 65 67 65 72 20 64 69 66 66 2c 20 66 61 2c 20 69 6e 64 69 76 6c 7b 32 2c 20 ┆gin integer diff, fa, indivlæ2, ┆
0x0f6c0…0f6e0 6c 6f 67 69 73 6b 62 6c 6f 6b 6c 7b 6e 67 64 65 2c 0a 20 20 20 20 20 20 6c 6f 67 69 73 6b 73 75 ┆logiskbloklængde, logisksu┆
0x0f6e0…0f6fc 62 62 6c 6f 6b 6c 7b 6e 67 64 65 2c 20 6e 65 64 62 61 73 69 73 2c 20 6e 65 64 70 6c ┆bbloklængde, nedbasis, nedpl┆
0x0f6fc…0f702 (0xcc,0x1ef)
0x0f702…0f720 61 64 73 2c 20 6e 65 64 73 6c 75 74 2c 20 6f 70 62 61 73 69 73 2c 0a 20 20 20 20 20 20 6f ┆ads, nedslut, opbasis, o┆
0x0f720…0f740 70 70 6c 61 64 73 2c 20 6f 70 73 6c 75 74 2c 20 73 6c 75 74 32 2c 20 73 74 61 72 74 32 2c 20 73 ┆pplads, opslut, slut2, start2, s┆
0x0f740…0f760 75 62 62 6c 6f 6b 73 74 61 72 74 2c 20 74 72 61 6e 73 70 6f 72 74 65 72 3b 0a 20 20 20 20 20 20 ┆ubblokstart, transporter; ┆
0x0f760…0f77a 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6d 2c 20 6e 65 64 2c 20 6f ┆long array field m, ned, o┆
0x0f77a…0f780 (0xcc,0x1f0)
0x0f780…0f7a0 70 3b 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6e 75 76 62 6c 6f 6b 28 30 3a 31 29 3b 0a 20 ┆p; integer array nuvblok(0:1); ┆
0x0f7a0…0f7c0 20 20 20 20 20 7a 6f 6e 65 20 7a 28 66 79 73 69 73 6b 62 6c 6f 6b 6c 7b 6e 67 64 65 2f 2f 32 2c ┆ zone z(fysiskbloklængde//2,┆
0x0f7c0…0f7e0 31 2c 62 6c 70 72 6f 63 29 3b 0a 0a 20 20 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6d 69 64 ┆1,blproc); long array mid┆
0x0f7e0…0f800 2c 20 6e 7c 67 6c 65 28 31 3a 6c 65 76 6c 73 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆, nøgle(1:levls); ┆
0x0f800…0f806 (124,) (0xcc,0x1f1)
0x0f806…0f820 6c 6f 6e 67 20 72 3b 0a 20 20 20 20 20 20 6c 6f 6e 67 20 66 69 65 6c 64 20 69 ┆long r; long field i┆
0x0f820…0f840 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6a 2c 20 6c 65 76 65 6c 73 2c 20 6c 65 76 65 6c ┆; integer j, levels, level┆
0x0f840…0f860 3b 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 69 6e 64 69 76 6c 7b 3b 0a 0a 70 72 6f 63 65 64 ┆; integer field indivlæ; proced┆
0x0f860…0f87e 75 72 65 20 62 6c 70 72 6f 63 28 7a 2c 73 2c 62 29 3b 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 ┆ure blproc(z,s,b); zone z; int┆
0x0f87e…0f884 (0xcc,0x1f2)
0x0f884…0f8a0 65 67 65 72 20 73 2c 20 62 3b 0a 69 66 20 73 20 65 78 74 72 61 63 74 20 31 39 20 3c ┆eger s, b; if s extract 19 <┆
0x0f8a0…0f8c0 20 31 20 73 68 69 66 74 20 31 38 20 6f 72 20 69 61 28 34 29 3c 3e 35 20 73 68 69 66 74 20 31 32 ┆ 1 shift 18 or ia(4)<>5 shift 12┆
0x0f8c0…0f8e0 20 74 68 65 6e 0a 73 74 64 65 72 72 6f 72 28 7a 2c 73 2c 62 29 3b 0a 0a 70 72 6f 63 65 64 75 72 ┆ then stderror(z,s,b); procedur┆
0x0f8e0…0f8fc 65 20 69 6f 28 70 6c 61 64 73 2c 6f 70 65 72 61 74 69 6f 6e 29 3b 20 69 6e 74 65 67 ┆e io(plads,operation); integ┆
0x0f8fc…0f902 (0xcc,0x1f3)
0x0f902…0f920 65 72 20 70 6c 61 64 73 2c 20 6f 70 65 72 61 74 69 6f 6e 3b 0a 62 65 67 69 6e 20 62 3a 3d ┆er plads, operation; begin b:=┆
0x0f920…0f940 6e 75 76 62 6c 6f 6b 28 70 6c 61 64 73 29 2a 73 65 67 6d 70 72 62 6c 6f 6b 3b 0a 20 20 20 20 20 ┆nuvblok(plads)*segmprblok; ┆
0x0f940…0f960 20 69 66 20 62 3e 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 69 61 28 34 29 3a ┆ if b>=0 then begin ia(4):┆
0x0f960…0f97a 3d 20 6f 70 65 72 61 74 69 6f 6e 20 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 ┆= operation shift 12; ┆
0x0f97a…0f980 (0xcc,0x1f4)
0x0f980…0f9a0 20 20 20 20 20 20 20 20 69 61 28 37 29 3a 3d 20 62 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ ia(7):= b; i┆
0x0f9a0…0f9c0 61 28 35 29 3a 3d 20 62 3a 3d 20 66 61 20 2b 20 70 6c 61 64 73 2a 66 79 73 69 73 6b 62 6c 6f 6b ┆a(5):= b:= fa + plads*fysiskblok┆
0x0f9c0…0f9e0 6c 7b 6e 67 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 61 28 36 29 3a 3d 20 62 20 2b 20 ┆længde; ia(6):= b + ┆
0x0f9e0…0fa00 66 79 73 69 73 6b 62 6c 6f 6b 6c 7b 6e 67 64 65 20 2d 20 32 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆fysiskbloklængde - 2; ┆
0x0fa00…0fa06 (125,) (0xcc,0x1f5)
0x0fa06…0fa20 20 20 20 20 20 20 20 20 20 20 73 65 74 73 68 61 72 65 28 7a 2c 69 61 2c 31 29 ┆ setshare(z,ia,1)┆
0x0fa20…0fa40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 2c 7a 2c 31 2c 69 61 29 ┆; monitor(16,z,1,ia)┆
0x0fa40…0fa60 3b 20 63 68 65 63 6b 28 7a 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a 65 6e 64 20 69 6f 3b 0a 0c 0a ┆; check(z); end end io; ┆
0x0fa60…0fa7e 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆<* bbj 9 9 76 ┆
0x0fa7e…0fa84 (0xcc,0x1f6)
0x0fa84…0faa0 20 20 20 20 20 20 71 75 69 63 6b 73 6f 72 74 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ quicksort ┆
0x0faa0…0fac0 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 32 38 2e 2e 2e 20 20 2a 3e ┆ catupdate ...28... *>┆
0x0fac0…0fae0 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 ┆ ┆
0x0fae0…0fafc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fafc…0fb02 (0xcc,0x1f7)
0x0fb02…0fb20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 70 72 6f 63 65 64 75 72 65 20 71 75 69 63 6b ┆ procedure quick┆
0x0fb20…0fb40 73 6f 72 74 28 73 74 61 72 74 2c 73 6c 75 74 2c 65 6e 62 6c 6f 6b 29 3b 20 76 61 6c 75 65 20 73 ┆sort(start,slut,enblok); value s┆
0x0fb40…0fb60 74 61 72 74 2c 20 73 6c 75 74 2c 20 65 6e 62 6c 6f 6b 3b 0a 69 6e 74 65 67 65 72 20 73 74 61 72 ┆tart, slut, enblok; integer star┆
0x0fb60…0fb7a 74 2c 20 73 6c 75 74 3b 20 62 6f 6f 6c 65 61 6e 20 65 6e 62 6c 6f 6b 3b 0a 62 ┆t, slut; boolean enblok; b┆
0x0fb7a…0fb80 (0xcc,0x1f8)
0x0fb80…0fba0 65 67 69 6e 0a 0a 66 6f 72 20 6d 3a 3d 28 73 74 61 72 74 2b 73 6c 75 74 29 2f 2f 69 6e 64 69 76 ┆egin for m:=(start+slut)//indiv┆
0x0fba0…0fbc0 6c 7b 32 2a 69 6e 64 69 76 6c 7b 20 77 68 69 6c 65 20 73 74 61 72 74 3c 73 6c 75 74 2d 69 6e 64 ┆læ2*indivlæ while start<slut-ind┆
0x0fbc0…0fbe0 69 76 6c 7b 32 20 64 6f 0a 62 65 67 69 6e 20 6f 70 3a 3d 20 73 74 61 72 74 2d 6f 70 62 61 73 69 ┆ivlæ2 do begin op:= start-opbasi┆
0x0fbe0…0fc00 73 3b 20 6e 65 64 3a 3d 20 73 6c 75 74 2d 6e 65 64 62 61 73 69 73 3b 0a 00 00 00 00 00 00 00 00 ┆s; ned:= slut-nedbasis; ┆
0x0fc00…0fc06 (126,) (0xcc,0x1f9)
0x0fc06…0fc20 20 20 20 20 20 20 69 66 20 65 6e 62 6c 6f 6b 20 74 68 65 6e 20 6d 3a 3d 6d 2d ┆ if enblok then m:=m-┆
0x0fc20…0fc40 6f 70 62 61 73 69 73 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 74 72 61 6e 73 70 6f ┆opbasis else begin transpo┆
0x0fc40…0fc60 72 74 65 72 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 6d ┆rter:=0; transport(m┆
0x0fc60…0fc7e 2c 30 2c 6f 70 70 6c 61 64 73 2c 6e 65 64 70 6c 61 64 73 29 3b 0a 20 20 20 20 20 20 20 20 ┆,0,opplads,nedplads); ┆
0x0fc7e…0fc84 (0xcc,0x1fa)
0x0fc84…0fca0 20 20 20 20 6e 65 64 73 6c 75 74 3a 3d 6e 65 64 3b 20 6f 70 73 6c 75 74 3a 3d 6f 70 ┆ nedslut:=ned; opslut:=op┆
0x0fca0…0fcc0 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 6f 72 20 6c 65 76 65 6c 3a 3d 20 31 ┆; end; for level:= 1┆
0x0fcc0…0fce0 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 65 76 65 6c 73 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆ step 1 until levels do ┆
0x0fce0…0fcfc 20 6d 69 64 28 6c 65 76 65 6c 29 3a 3d 20 7a 2e 6d 28 6e 7c 67 6c 65 28 6c 65 76 65 ┆ mid(level):= z.m(nøgle(leve┆
0x0fcfc…0fd02 (0xcc,0x1fb)
0x0fd02…0fd20 6c 29 29 3b 0a 0a 73 7c 67 6e 65 64 3a 20 20 6e 65 64 3a 3d 20 6e 65 64 2d 69 6e 64 69 76 ┆l)); søgned: ned:= ned-indiv┆
0x0fd20…0fd40 6c 7b 3b 20 69 66 20 6e 65 64 20 3c 20 6e 65 64 73 6c 75 74 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆læ; if ned < nedslut then ┆
0x0fd40…0fd60 62 65 67 69 6e 20 74 72 61 6e 73 70 6f 72 74 28 6e 65 64 2c 6e 65 64 62 61 73 69 73 2c 6e 65 64 ┆begin transport(ned,nedbasis,ned┆
0x0fd60…0fd7a 70 6c 61 64 73 2c 6f 70 70 6c 61 64 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆plads,opplads); ┆
0x0fd7a…0fd80 (0xcc,0x1fc)
0x0fd80…0fda0 20 20 6e 65 64 73 6c 75 74 3a 3d 20 73 75 62 62 6c 6f 6b 73 74 61 72 74 3b 0a 20 20 20 20 20 20 ┆ nedslut:= subblokstart; ┆
0x0fda0…0fdc0 65 6e 64 3b 0a 20 20 20 20 20 20 66 6f 72 20 6c 65 76 65 6c 3a 3d 20 31 20 73 74 65 70 20 31 20 ┆end; for level:= 1 step 1 ┆
0x0fdc0…0fde0 75 6e 74 69 6c 20 6c 65 76 65 6c 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 6e 65 ┆until levels do if z.ne┆
0x0fde0…0fe00 64 28 6e 7c 67 6c 65 28 6c 65 76 65 6c 29 29 20 3e 20 6d 69 64 28 6c 65 00 00 00 00 00 00 00 00 ┆d(nøgle(level)) > mid(le ┆
0x0fe00…0fe06 (127,) (0xcc,0x1fd)
0x0fe06…0fe20 76 65 6c 29 20 74 68 65 6e 20 67 6f 74 6f 20 73 7c 67 6e 65 64 20 65 6c 73 65 ┆vel) then goto søgned else┆
0x0fe20…0fe40 0a 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 6e 65 64 28 6e 7c 67 6c 65 28 6c 65 76 65 6c 29 29 ┆ if z.ned(nøgle(level))┆
0x0fe40…0fe60 20 3c 20 6d 69 64 28 6c 65 76 65 6c 29 20 74 68 65 6e 20 6c 65 76 65 6c 3a 3d 20 6c 65 76 65 6c ┆ < mid(level) then level:= level┆
0x0fe60…0fe7e 73 3b 0a 0a 73 7c 67 6f 70 3a 20 20 20 6f 70 3a 3d 20 6f 70 2b 69 6e 64 69 76 6c 7b 3b 20 ┆s; søgop: op:= op+indivlæ; ┆
0x0fe7e…0fe84 (0xcc,0x1fe)
0x0fe84…0fea0 69 66 20 6f 70 20 3e 3d 20 6f 70 73 6c 75 74 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆if op >= opslut then b┆
0x0fea0…0fec0 65 67 69 6e 20 74 72 61 6e 73 70 6f 72 74 28 6f 70 2c 6f 70 62 61 73 69 73 2c 6f 70 70 6c 61 64 ┆egin transport(op,opbasis,opplad┆
0x0fec0…0fee0 73 2c 6e 65 64 70 6c 61 64 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 73 6c 75 74 3a ┆s,nedplads); opslut:┆
0x0fee0…0fefc 3d 20 73 75 62 62 6c 6f 6b 73 74 61 72 74 20 2b 20 6c 6f 67 69 73 6b 73 75 62 62 6c ┆= subblokstart + logisksubbl┆
0x0fefc…0ff02 (0xcc,0x1ff)
0x0ff02…0ff20 6f 6b 6c 7b 6e 67 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 ┆oklængde; if trans┆
0x0ff20…0ff40 70 6f 72 74 65 72 3d 33 20 74 68 65 6e 20 65 6e 62 6c 6f 6b 3a 3d 20 6e 65 64 73 6c 75 74 3d 73 ┆porter=3 then enblok:= nedslut=s┆
0x0ff40…0ff60 75 62 62 6c 6f 6b 73 74 61 72 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 6f ┆ubblokstart; end; fo┆
0x0ff60…0ff7a 72 20 6c 65 76 65 6c 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c ┆r level:= 1 step 1 until l┆
0x0ff7a…0ff80 (0xcc,0x200)
0x0ff80…0ffa0 65 76 65 6c 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 6f 70 28 6e 7c 67 6c 65 28 ┆evels do if z.op(nøgle(┆
0x0ffa0…0ffc0 6c 65 76 65 6c 29 29 20 3c 20 6d 69 64 28 6c 65 76 65 6c 29 20 74 68 65 6e 20 67 6f 74 6f 20 73 ┆level)) < mid(level) then goto s┆
0x0ffc0…0ffe0 7c 67 6f 70 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 6f 70 28 6e 7c 67 6c 65 ┆øgop else if z.op(nøgle┆
0x0ffe0…10000 28 6c 65 76 65 6c 29 29 20 3e 20 6d 69 64 28 6c 65 76 65 6c 29 20 74 68 00 00 00 00 00 00 00 00 ┆(level)) > mid(level) th ┆
0x10000…10006 (128,) (0xcc,0x201)
0x10006…10020 65 6e 20 6c 65 76 65 6c 3a 3d 20 6c 65 76 65 6c 73 3b 0a 0a 20 20 20 20 20 20 ┆en level:= levels; ┆
0x10020…10040 69 66 20 6f 70 2b 6f 70 62 61 73 69 73 20 3c 20 6e 65 64 2b 6e 65 64 62 61 73 69 73 20 74 68 65 ┆if op+opbasis < ned+nedbasis the┆
0x10040…10060 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 66 6f 72 20 69 3a 3d 34 20 73 74 65 70 20 34 20 75 6e ┆n begin for i:=4 step 4 un┆
0x10060…1007e 74 69 6c 20 69 6e 64 69 76 6c 7b 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆til indivlæ do beg┆
0x1007e…10084 (0xcc,0x202)
0x10084…100a0 69 6e 20 72 3a 3d 7a 2e 6f 70 2e 69 3b 20 7a 2e 6f 70 2e 69 3a 3d 7a 2e 6e 65 64 2e ┆in r:=z.op.i; z.op.i:=z.ned.┆
0x100a0…100c0 69 3b 20 7a 2e 6e 65 64 2e 69 3a 3d 72 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆i; z.ned.i:=r end; i┆
0x100c0…100e0 66 20 69 6e 64 69 76 6c 7b 20 65 78 74 72 61 63 74 20 32 20 3d 20 32 20 74 68 65 6e 0a 20 20 20 ┆f indivlæ extract 2 = 2 then ┆
0x100e0…100fc 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 6a 3a 3d 7a 2e 6f 70 2e 69 6e 64 69 ┆ begin j:=z.op.indi┆
0x100fc…10102 (0xcc,0x203)
0x10102…10120 76 6c 7b 3b 20 7a 2e 6f 70 2e 69 6e 64 69 76 6c 7b 3a 3d 7a 2e 6e 65 64 2e 69 6e 64 69 76 ┆vlæ; z.op.indivlæ:=z.ned.indiv┆
0x10120…10140 6c 7b 3b 20 7a 2e 6e 65 64 2e 69 6e 64 69 76 6c 7b 3a 3d 6a 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆læ; z.ned.indivlæ:=j end; ┆
0x10140…10160 20 20 20 20 20 20 67 6f 74 6f 20 73 7c 67 6e 65 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 ┆ goto søgned; end; ┆
0x10160…1017a 20 20 20 20 20 73 6c 75 74 32 3a 3d 20 6f 70 2b 6f 70 62 61 73 69 73 3b 20 73 ┆ slut2:= op+opbasis; s┆
0x1017a…10180 (0xcc,0x204)
0x10180…101a0 74 61 72 74 32 3a 3d 20 73 74 61 72 74 3b 20 73 74 61 72 74 3a 3d 20 6e 65 64 2b 6e 65 64 62 61 ┆tart2:= start; start:= ned+nedba┆
0x101a0…101c0 73 69 73 3b 0a 20 20 20 20 20 20 69 66 20 73 6c 75 74 2d 73 74 61 72 74 20 3c 20 73 6c 75 74 32 ┆sis; if slut-start < slut2┆
0x101c0…101e0 2d 73 74 61 72 74 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 69 3a 3d 73 6c 75 74 ┆-start2 then begin i:=slut┆
0x101e0…10200 3b 20 73 6c 75 74 3a 3d 73 6c 75 74 32 3b 20 73 6c 75 74 32 3a 3d 69 3b 00 00 00 00 00 00 00 00 ┆; slut:=slut2; slut2:=i; ┆
0x10200…10206 (129,) (0xcc,0x205)
0x10206…10220 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 73 74 61 72 74 3b 20 73 74 61 ┆ i:=start; sta┆
0x10220…10240 72 74 3a 3d 73 74 61 72 74 32 3b 20 73 74 61 72 74 32 3a 3d 69 3b 0a 20 20 20 20 20 20 65 6e 64 ┆rt:=start2; start2:=i; end┆
0x10240…10260 3b 0a 20 20 20 20 20 20 69 66 20 73 74 61 72 74 32 3c 73 6c 75 74 32 2d 69 6e 64 69 76 6c 7b 32 ┆; if start2<slut2-indivlæ2┆
0x10260…1027e 20 74 68 65 6e 20 71 75 69 63 6b 73 6f 72 74 28 73 74 61 72 74 32 2c 73 6c 75 74 32 2c 65 ┆ then quicksort(start2,slut2,e┆
0x1027e…10284 (0xcc,0x206)
0x10284…102a0 6e 62 6c 6f 6b 29 3b 0a 65 6e 64 20 66 6f 72 20 6d 3b 0a 65 6e 64 20 71 75 69 63 6b ┆nblok); end for m; end quick┆
0x102a0…102c0 73 6f 72 74 3b 0a 0c 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 ┆sort; <* bbj 9 9 76 ┆
0x102c0…102e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 20 20 20 20 20 20 20 20 20 ┆ transport ┆
0x102e0…102fc 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 32 39 2e ┆ catupdate ...29.┆
0x102fc…10302 (0xcc,0x207)
0x10302…10320 2e 2e 20 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.. *> ┆
0x10320…10340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x10340…10360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 70 72 6f 63 65 64 75 72 65 20 74 72 61 6e 73 70 6f ┆ procedure transpo┆
0x10360…1037a 72 74 28 66 79 73 69 73 6b 2c 62 61 73 69 73 2c 70 6c 61 64 73 2c 61 6e 64 65 ┆rt(fysisk,basis,plads,ande┆
0x1037a…10380 (0xcc,0x208)
0x10380…103a0 6e 70 6c 61 64 73 29 3b 0a 69 6e 74 65 67 65 72 20 66 79 73 69 73 6b 2c 20 62 61 73 69 73 2c 20 ┆nplads); integer fysisk, basis, ┆
0x103a0…103c0 70 6c 61 64 73 2c 20 61 6e 64 65 6e 70 6c 61 64 73 3b 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 72 ┆plads, andenplads; begin integer┆
0x103c0…103e0 20 6c 6f 67 69 73 6b 2c 20 62 6c 6f 6b 2c 20 62 6c 6f 6b 72 65 6c 2c 20 73 75 62 62 6c 6f 6b 6e ┆ logisk, blok, blokrel, subblokn┆
0x103e0…10400 72 2c 20 62 6c 6f 6b 62 61 73 69 73 3b 0a 0a 20 20 20 20 20 20 6c 6f 67 00 00 00 00 00 00 00 00 ┆r, blokbasis; log ┆
0x10400…10406 (130,) (0xcc,0x209)
0x10406…10420 69 73 6b 3a 3d 20 66 79 73 69 73 6b 2b 62 61 73 69 73 3b 0a 20 20 20 20 20 20 ┆isk:= fysisk+basis; ┆
0x10420…10440 62 6c 6f 6b 3a 3d 20 6c 6f 67 69 73 6b 2f 2f 6c 6f 67 69 73 6b 62 6c 6f 6b 6c 7b 6e 67 64 65 3b ┆blok:= logisk//logiskbloklængde;┆
0x10440…10460 20 62 6c 6f 6b 72 65 6c 3a 3d 20 6c 6f 67 69 73 6b 20 6d 6f 64 20 6c 6f 67 69 73 6b 62 6c 6f 6b ┆ blokrel:= logisk mod logiskblok┆
0x10460…1047e 6c 7b 6e 67 64 65 3b 0a 0a 20 20 20 20 20 20 69 66 20 62 6c 6f 6b 20 3d 20 6e 75 76 62 6c ┆længde; if blok = nuvbl┆
0x1047e…10484 (0xcc,0x20a)
0x10484…104a0 6f 6b 28 30 29 20 74 68 65 6e 20 70 6c 61 64 73 20 3a 3d 20 30 20 65 6c 73 65 0a 20 ┆ok(0) then plads := 0 else ┆
0x104a0…104c0 20 20 20 20 20 69 66 20 62 6c 6f 6b 20 3d 20 6e 75 76 62 6c 6f 6b 28 31 29 20 74 68 65 6e 20 70 ┆ if blok = nuvblok(1) then p┆
0x104c0…104e0 6c 61 64 73 20 3a 3d 20 31 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 70 6c 61 64 73 ┆lads := 1 else begin plads┆
0x104e0…104fc 20 3a 3d 20 31 2d 61 6e 64 65 6e 70 6c 61 64 73 3b 20 69 6f 28 70 6c 61 64 73 2c 35 ┆ := 1-andenplads; io(plads,5┆
0x104fc…10502 (0xcc,0x20b)
0x10502…10520 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 75 76 62 6c 6f 6b 28 70 6c 61 64 73 29 3a ┆); nuvblok(plads):┆
0x10520…10540 3d 20 62 6c 6f 6b 3b 20 69 6f 28 70 6c 61 64 73 2c 33 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆= blok; io(plads,3); end; ┆
0x10540…10560 0a 20 20 20 20 20 20 73 75 62 62 6c 6f 6b 6e 72 20 3a 3d 20 62 6c 6f 6b 72 65 6c 2f 2f 6c 6f 67 ┆ subbloknr := blokrel//log┆
0x10560…1057a 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 3b 0a 20 20 20 20 20 20 62 6c ┆isksubbloklængde; bl┆
0x1057a…10580 (0xcc,0x20c)
0x10580…105a0 6f 6b 62 61 73 69 73 20 3a 3d 20 70 6c 61 64 73 20 2a 20 66 79 73 69 73 6b 62 6c 6f 6b 6c 7b 6e ┆okbasis := plads * fysiskbloklæn┆
0x105a0…105c0 67 64 65 3b 0a 20 20 20 20 20 20 66 79 73 69 73 6b 20 3a 3d 20 62 6c 6f 6b 72 65 6c 20 2b 20 73 ┆gde; fysisk := blokrel + s┆
0x105c0…105e0 75 62 62 6c 6f 6b 6e 72 20 2a 20 64 69 66 66 20 2b 20 62 6c 6f 6b 62 61 73 69 73 3b 0a 20 20 20 ┆ubbloknr * diff + blokbasis; ┆
0x105e0…10600 20 20 20 73 75 62 62 6c 6f 6b 73 74 61 72 74 20 3a 3d 20 73 75 62 62 6c 00 00 00 00 00 00 00 00 ┆ subblokstart := subbl ┆
0x10600…10606 (131,) (0xcc,0x20d)
0x10606…10620 6f 6b 6e 72 20 2a 20 66 79 73 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 ┆oknr * fysisksubbloklængde┆
0x10620…10640 20 2b 20 62 6c 6f 6b 62 61 73 69 73 3b 0a 20 20 20 20 20 20 62 61 73 69 73 20 3a 3d 20 6c 6f 67 ┆ + blokbasis; basis := log┆
0x10640…10660 69 73 6b 20 2d 20 66 79 73 69 73 6b 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 65 72 20 ┆isk - fysisk; transporter ┆
0x10660…1067e 3a 3d 20 74 72 61 6e 73 70 6f 72 74 65 72 20 2b 20 31 3b 0a 65 6e 64 20 74 72 61 6e 73 70 ┆:= transporter + 1; end transp┆
0x1067e…10684 (0xcc,0x20e)
0x10684…106a0 6f 72 74 3b 0a 0a 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 2c 34 2c 66 69 6c 6e 61 76 ┆ort; open(z,4,filnav┆
0x106a0…106c0 6e 2c 31 20 73 68 69 66 74 20 31 38 29 3b 20 63 6c 6f 73 65 28 7a 2c 66 61 6c 73 65 29 3b 0a 20 ┆n,1 shift 18); close(z,false); ┆
0x106c0…106e0 20 20 20 20 20 67 65 74 7a 6f 6e 65 28 7a 2c 69 61 29 3b 20 66 61 3a 3d 69 61 28 31 39 29 2b 31 ┆ getzone(z,ia); fa:=ia(19)+1┆
0x106e0…106fc 3b 20 67 65 74 73 68 61 72 65 28 7a 2c 69 61 2c 31 29 3b 0a 0a 20 20 20 20 20 20 69 ┆; getshare(z,ia,1); i┆
0x106fc…10702 (0xcc,0x20f)
0x10702…10720 6e 64 69 76 6c 7b 3a 3d 20 6c 7b 3b 0a 20 20 20 20 20 20 69 6e 64 69 76 6c 7b 32 3a 3d 20 ┆ndivlæ:= læ; indivlæ2:= ┆
0x10720…10740 32 2a 69 6e 64 69 76 6c 7b 3b 0a 20 20 20 20 20 20 6c 65 76 65 6c 73 3a 3d 20 6c 65 76 6c 73 3b ┆2*indivlæ; levels:= levls;┆
0x10740…10760 0a 20 20 20 20 20 20 66 6f 72 20 6c 65 76 65 6c 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆ for level:= 1 step 1 unti┆
0x10760…1077a 6c 20 6c 65 76 65 6c 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 6e 7c 67 6c 65 ┆l levels do nøgle┆
0x1077a…10780 (0xcc,0x210)
0x10780…107a0 28 6c 65 76 65 6c 29 3a 3d 20 6e 67 6c 28 6c 65 76 65 6c 29 3b 0a 0a 20 20 20 20 20 20 64 69 66 ┆(level):= ngl(level); dif┆
0x107a0…107c0 66 3a 3d 20 66 79 73 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 20 6d 6f 64 20 69 6e 64 69 ┆f:= fysisksubbloklængde mod indi┆
0x107c0…107e0 76 6c 7b 3b 0a 20 20 20 20 20 20 6c 6f 67 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 20 3a ┆vlæ; logisksubbloklængde :┆
0x107e0…10800 3d 20 66 79 73 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 20 2d 20 00 00 00 00 00 00 00 00 ┆= fysisksubbloklængde - ┆
0x10800…10806 (132,) (0xcc,0x211)
0x10806…10820 64 69 66 66 3b 0a 20 20 20 20 20 20 6c 6f 67 69 73 6b 62 6c 6f 6b 6c 7b 6e 67 ┆diff; logiskbloklæng┆
0x10820…10840 64 65 20 3a 3d 20 62 20 2a 20 6c 6f 67 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65 3b 0a 0a ┆de := b * logisksubbloklængde; ┆
0x10840…10860 20 20 20 20 20 20 6e 75 76 62 6c 6f 6b 28 30 29 20 3a 3d 20 6e 75 76 62 6c 6f 6b 28 31 29 20 3a ┆ nuvblok(0) := nuvblok(1) :┆
0x10860…1087e 3d 20 2d 31 3b 0a 20 20 20 20 20 20 6f 70 62 61 73 69 73 3a 3d 20 6e 65 64 62 61 73 69 73 ┆= -1; opbasis:= nedbasis┆
0x1087e…10884 (0xcc,0x212)
0x10884…108a0 3a 3d 20 6e 65 64 70 6c 61 64 73 3a 3d 20 30 3b 0a 20 20 20 20 20 20 71 75 69 63 6b ┆:= nedplads:= 0; quick┆
0x108a0…108c0 73 6f 72 74 28 2d 69 6e 64 69 76 6c 7b 2c 20 69 6e 64 69 76 6c 7b 2a 61 6e 74 61 6c 69 6e 64 69 ┆sort(-indivlæ, indivlæ*antalindi┆
0x108c0…108e0 76 2c 20 66 61 6c 73 65 29 3b 0a 20 20 20 20 20 20 69 6f 28 30 2c 35 29 3b 20 69 6f 28 31 2c 35 ┆v, false); io(0,5); io(1,5┆
0x108e0…108fc 29 3b 0a 65 6e 64 20 7a 6f 6e 65 20 62 6c 6f 6b 3b 0a 65 6e 64 20 64 69 73 6b 73 6f ┆); end zone blok; end diskso┆
0x108fc…10902 (0xcc,0x213)
0x10902…10920 72 74 3b 0a 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6b 65 79 66 69 65 6c 64 28 31 3a ┆rt; integer array keyfield(1:┆
0x10920…10940 36 29 3b 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 31 20 73 ┆6); integer i; for i:= 1 s┆
0x10940…10960 74 65 70 20 31 20 75 6e 74 69 6c 20 36 20 64 6f 20 6b 65 79 66 69 65 6c 64 28 69 29 3a 3d 20 63 ┆tep 1 until 6 do keyfield(i):= c┆
0x10960…1097a 61 73 65 20 69 20 6f 66 28 31 2c 32 2c 33 2c 34 2c 35 2c 36 29 3b 0a 20 20 20 ┆ase i of(1,2,3,4,5,6); ┆
0x1097a…10980 (0xcc,0x214)
0x10980…109a0 20 20 20 69 3a 3d 20 31 3b 20 64 69 73 63 73 6f 72 74 28 73 74 72 69 6e 67 20 74 72 61 6e 73 6e ┆ i:= 1; discsort(string transn┆
0x109a0…109c0 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 6d 61 78 6c 65 6e 67 74 68 2c 20 6e 6f 5f ┆ame(increase(i)), maxlength, no_┆
0x109c0…109e0 6f 66 5f 74 72 61 6e 73 2c 20 31 2c 20 6b 65 79 66 69 65 6c 64 2c 20 36 29 3b 0a 20 20 20 20 20 ┆of_trans, 1, keyfield, 6); ┆
0x109e0…10a00 20 69 3a 3d 20 31 3b 20 64 69 73 63 73 6f 72 74 28 73 74 72 69 6e 67 20 00 00 00 00 00 00 00 00 ┆ i:= 1; discsort(string ┆
0x10a00…10a06 (133,) (0xcc,0x215)
0x10a06…10a20 76 61 72 74 72 61 6e 73 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c ┆vartransname(increase(i)),┆
0x10a20…10a40 20 76 61 72 6c 65 6e 67 74 68 2c 20 6e 6f 5f 6f 66 5f 76 61 72 74 72 61 6e 73 2c 20 31 2c 20 6b ┆ varlength, no_of_vartrans, 1, k┆
0x10a40…10a60 65 79 66 69 65 6c 64 2c 20 33 29 3b 0a 65 6e 64 20 73 6f 72 74 69 6e 67 20 62 6c 6f 63 6b 3b 0a ┆eyfield, 3); end sorting block; ┆
0x10a60…10a7e 0c 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 ┆ <* bbj 9 9 76 ┆
0x10a7e…10a84 (0xcc,0x216)
0x10a84…10aa0 20 20 20 20 20 20 20 20 20 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 20 20 20 20 20 ┆ declarations ┆
0x10aa0…10ac0 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 33 30 2e 2e 2e 20 20 ┆ catupdate ...30... ┆
0x10ac0…10ae0 2a 3e 0a 0a 0a 0a 62 65 67 69 6e 0a 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 70 72 6f 6a ┆*> begin integer proj┆
0x10ae0…10afc 6c 6f 77 65 72 2c 20 70 72 6f 6a 75 70 70 65 72 2c 20 6c 6f 77 65 72 69 6e 74 2c 20 ┆lower, projupper, lowerint, ┆
0x10afc…10b02 (0xcc,0x217)
0x10b02…10b20 75 70 70 65 72 69 6e 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 69 6d ┆upperint, minim┆
0x10b20…10b40 75 6d 2c 20 6d 61 78 69 6d 75 6d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 ┆um, maximum, next┆
0x10b40…10b60 6e 65 77 2c 20 6e 65 78 74 6f 6c 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 76 ┆new, nextold, lev┆
0x10b60…10b7a 65 6c 2c 20 63 6f 70 79 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆el, copytype, ┆
0x10b7a…10b80 (0xcc,0x218)
0x10b80…10ba0 20 20 20 66 69 72 73 74 73 65 67 6d 2c 20 70 72 6f 6a 73 65 67 6d 2c 20 70 72 6f 6a 72 65 6c 2c ┆ firstsegm, projsegm, projrel,┆
0x10ba0…10bc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 6a 73 74 61 72 74 2c 20 75 73 65 72 73 ┆ projstart, users┆
0x10bc0…10be0 74 61 72 74 2c 20 6e 69 6c 3b 0a 0a 6c 6f 6e 67 20 20 20 20 20 20 20 20 20 20 20 74 70 72 6f 6a ┆tart, nil; long tproj┆
0x10be0…10c00 2c 20 74 75 73 65 72 31 2c 20 74 75 73 65 72 32 2c 20 74 74 79 70 65 2c 00 00 00 00 00 00 00 00 ┆, tuser1, tuser2, ttype, ┆
0x10c00…10c06 (134,) (0xcc,0x219)
0x10c06…10c20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 70 72 6f 6a 2c 20 63 75 73 ┆ cproj, cus┆
0x10c20…10c40 65 72 31 2c 20 63 75 73 65 72 32 2c 20 63 74 79 70 65 2c 20 63 6b 69 74 31 2c 20 63 6b 69 74 32 ┆er1, cuser2, ctype, ckit1, ckit2┆
0x10c40…10c60 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 64 74 68 2c 20 63 61 74 6e 6f 2c 20 74 ┆, width, catno, t┆
0x10c60…10c7e 72 61 6e 73 6e 6f 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 20 20 20 20 20 20 20 61 62 73 69 6e 74 ┆ransno; boolean absint┆
0x10c7e…10c84 (0xcc,0x21a)
0x10c84…10ca0 2c 20 77 61 72 6e 69 6e 67 2c 20 64 65 6c 65 74 65 2c 20 6e 6f 64 65 6c 65 74 65 2c ┆, warning, delete, nodelete,┆
0x10ca0…10cc0 20 63 72 65 61 74 65 2c 20 61 66 74 65 72 5f 64 65 6c 65 74 65 2c 0a 20 20 20 20 20 20 20 20 20 ┆ create, after_delete, ┆
0x10cc0…10ce0 20 20 20 20 20 20 66 69 72 73 74 74 69 6d 65 2c 20 62 6f 6f 6c 2c 20 72 65 63 6f 72 64 5f 69 6e ┆ firsttime, bool, record_in┆
0x10ce0…10cfc 5f 69 6e 62 75 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 70 72 ┆_inbuf, newpr┆
0x10cfc…10d02 (0xcc,0x21b)
0x10d02…10d20 6f 6a 2c 20 66 69 72 73 74 70 72 6f 6a 2c 20 70 72 6f 6a 6c 69 73 74 2c 20 75 73 65 72 6c ┆oj, firstproj, projlist, userl┆
0x10d20…10d40 69 73 74 3b 0a 0a 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 20 70 72 6f 6a 2c 20 63 75 70 70 65 ┆ist; integer field proj, cuppe┆
0x10d40…10d60 72 2c 20 63 6c 6f 77 65 72 2c 20 63 73 74 61 72 74 2c 20 63 77 69 64 74 68 2c 20 63 6a 6f 62 73 ┆r, clower, cstart, cwidth, cjobs┆
0x10d60…10d7a 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 6c 6f 77 65 72 2c ┆, maxlower,┆
0x10d7a…10d80 (0xcc,0x21c)
0x10d80…10da0 20 6d 61 78 75 70 70 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 74 72 2c 20 6f ┆ maxupper, ptr, o┆
0x10da0…10dc0 6c 64 70 74 72 2c 20 66 69 72 73 74 66 72 65 65 2c 20 69 2c 20 6a 2c 20 69 66 32 2c 20 69 66 31 ┆ldptr, firstfree, i, j, if2, if1┆
0x10dc0…10de0 32 2c 20 62 61 73 69 73 3b 0a 0a 6c 6f 6e 67 20 66 69 65 6c 64 20 20 20 20 20 6b 69 74 6e 61 6d ┆2, basis; long field kitnam┆
0x10de0…10e00 65 31 2c 20 6b 69 74 6e 61 6d 65 32 2c 20 75 73 65 72 6e 61 6d 65 31 2c 00 00 00 00 00 00 00 00 ┆e1, kitname2, username1, ┆
0x10e00…10e06 (135,) (0xcc,0x21d)
0x10e06…10e20 20 75 73 65 72 6e 61 6d 65 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ username2, ┆
0x10e20…10e40 20 6c 67 36 2c 20 6c 67 31 30 3b 0a 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 20 78 69 6e 66 ┆ lg6, lg10; integer array xinf┆
0x10e40…10e60 28 31 3a 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 28 ┆(1:2), intervals(┆
0x10e60…10e7e 31 3a 33 2a 69 6e 74 65 72 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 29 2c 0a 20 20 20 20 20 ┆1:3*intervaltable_size), ┆
0x10e7e…10e84 (0xcc,0x21e)
0x10e84…10ea0 20 20 20 20 20 20 20 20 20 20 73 70 65 63 69 61 6c 5f 61 63 74 69 6f 6e 28 30 3a 6d ┆ special_action(0:m┆
0x10ea0…10ec0 61 78 5f 72 65 63 6f 72 64 5f 74 79 70 65 2f 2f 32 29 3b 0a 0a 6c 6f 6e 67 20 61 72 72 61 79 20 ┆ax_record_type//2); long array ┆
0x10ec0…10ee0 20 20 20 20 63 6f 6d 70 28 31 3a 32 2c 31 3a 34 29 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 61 72 72 61 ┆ comp(1:2,1:4); boolean arra┆
0x10ee0…10efc 79 20 20 63 68 61 6e 67 65 28 30 3a 6d 61 78 5f 72 65 63 6f 72 64 5f 74 79 70 65 2f ┆y change(0:max_record_type/┆
0x10efc…10f02 (0xcc,0x21f)
0x10f02…10f20 2f 32 29 3b 0a 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 6f 6c 64 2c ┆/2); integer array field old,┆
0x10f20…10f40 20 6e 65 77 2c 20 72 65 63 2c 20 63 61 74 2c 20 75 70 70 65 72 2c 20 6c 6f 77 65 72 3b 0a 0a 7a ┆ new, rec, cat, upper, lower; z┆
0x10f40…10f60 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 2c 20 76 61 72 74 72 61 6e 73 2c 20 6f ┆one trans, vartrans, o┆
0x10f60…10f7a 6c 64 63 61 74 2c 20 6e 65 77 63 61 74 28 31 32 38 2c 20 31 2c 20 73 74 64 65 ┆ldcat, newcat(128, 1, stde┆
0x10f7a…10f80 (0xcc,0x220)
0x10f80…10fa0 72 72 6f 72 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 ┆rror); <* bbj 9 9 76 ┆
0x10fa0…10fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 69 6e 69 74 69 61 6c 69 7a 65 20 20 20 20 ┆ proc initialize ┆
0x10fc0…10fe0 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 33 31 2e 2e 2e 20 20 2a ┆ catupdate ...31... *┆
0x10fe0…11000 3e 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 69 61 6c 69 7a 65 00 00 00 00 00 00 00 00 ┆> procedure initialize ┆
0x11000…11006 (136,) (0xcc,0x221)
0x11006…11020 28 73 74 61 72 74 2c 20 70 72 6f 6a 65 63 74 2c 20 6c 6f 77 69 6e 74 2c 20 75 ┆(start, project, lowint, u┆
0x11020…11040 70 69 6e 74 29 3b 0a 20 20 20 76 61 6c 75 65 20 70 72 6f 6a 65 63 74 2c 20 6c 6f 77 69 6e 74 2c ┆pint); value project, lowint,┆
0x11040…11060 20 75 70 69 6e 74 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 73 74 61 72 74 2c 20 6c 6f 77 69 6e 74 ┆ upint; integer start, lowint┆
0x11060…1107e 2c 20 75 70 69 6e 74 3b 0a 20 20 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 6a 65 63 74 3b 0a 20 ┆, upint; boolean project; ┆
0x1107e…11084 (0xcc,0x222)
0x11084…110a0 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 ┆ comment the procedure init┆
0x110a0…110c0 69 61 6c 69 7a 65 73 20 74 68 65 20 69 6e 74 65 72 76 61 6c 74 61 62 6c 65 2c 20 61 6e 64 0a 20 ┆ializes the intervaltable, and ┆
0x110c0…110e0 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 74 61 72 74 2d 61 64 64 72 ┆ returns the start-addr┆
0x110e0…110fc 65 73 73 20 6f 66 20 74 68 65 20 6c 69 73 74 20 69 6e 20 2e 2e 73 74 61 72 74 2e 2e ┆ess of the list in ..start..┆
0x110fc…11102 (0xcc,0x223)
0x11102…11120 3b 0a 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 69 6e 74 65 67 65 72 20 6c 6f 77 65 72 69 6e ┆; begin integer lowerin┆
0x11120…11140 74 2c 20 75 70 70 65 72 69 6e 74 2c 20 73 65 67 6d 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 66 69 ┆t, upperint, segm; integer fi┆
0x11140…11160 65 6c 64 20 6d 69 6e 70 74 72 2c 20 73 74 65 70 70 74 72 2c 20 73 65 61 72 63 68 70 74 72 3b 0a ┆eld minptr, stepptr, searchptr; ┆
0x11160…1117a 0a 63 6f 6d 6d 65 6e 74 20 69 69 66 66 20 75 70 64 61 74 65 73 74 20 74 68 65 ┆ comment iiff updatest the┆
0x1117a…11180 (0xcc,0x224)
0x11180…111a0 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 69 6e 69 74 69 61 6c 69 7a 65 20 3a 3e ┆n write(out, <:<10>initialize :>┆
0x111a0…111c0 2c 20 69 66 20 70 72 6f 6a 65 63 74 20 74 68 65 6e 20 3c 3a 70 72 6f 6a 3a 3e 20 65 6c 73 65 20 ┆, if project then <:proj:> else ┆
0x111c0…111e0 3c 3a 75 73 65 72 3a 3e 2c 20 6c 6f 77 69 6e 74 2c 20 75 70 69 6e 74 29 3b 0a 0a 20 20 20 69 66 ┆<:user:>, lowint, upint); if┆
0x111e0…11200 20 66 69 72 73 74 66 72 65 65 20 3e 20 69 6e 74 65 72 76 61 6c 74 61 62 00 00 00 00 00 00 00 00 ┆ firstfree > intervaltab ┆
0x11200…11206 (137,) (0xcc,0x225)
0x11206…11220 6c 65 5f 73 69 7a 65 20 74 68 65 6e 0a 20 20 20 20 20 20 69 6e 74 65 72 76 61 ┆le_size then interva┆
0x11220…11240 6c 5f 61 6c 61 72 6d 3b 0a 20 20 20 73 74 61 72 74 20 3a 3d 20 6f 6c 64 70 74 72 20 3a 3d 20 66 ┆l_alarm; start := oldptr := f┆
0x11240…11260 69 72 73 74 66 72 65 65 3b 0a 20 20 20 66 69 72 73 74 66 72 65 65 20 3a 3d 20 66 69 72 73 74 66 ┆irstfree; firstfree := firstf┆
0x11260…1127e 72 65 65 20 2b 20 36 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a ┆ree + 6; comment initializ┆
0x1127e…11284 (0xcc,0x226)
0x11284…112a0 65 20 6c 69 73 74 2d 68 65 61 64 2c 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 6f 70 2d ┆e list-head, containing top-┆
0x112a0…112c0 20 61 6e 64 20 62 61 73 65 2d 69 6e 74 65 72 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 6f 66 ┆ and base-interval of┆
0x112c0…112e0 20 74 68 65 20 2e 2e 6f 77 6e 65 72 2e 2e 20 6f 66 20 74 68 65 20 6c 69 73 74 20 28 69 2e 65 2e ┆ the ..owner.. of the list (i.e.┆
0x112e0…112fc 20 74 68 65 20 73 75 72 72 6f 75 6e 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ the surrounding ┆
0x112fc…11302 (0xcc,0x227)
0x11302…11320 69 6e 74 65 72 76 61 6c 20 74 6f 20 62 65 20 6f 62 65 79 65 64 29 3b 0a 20 20 20 69 6e 74 ┆interval to be obeyed); int┆
0x11320…11340 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 6f 6c 64 70 74 72 20 3a 3d 20 75 70 69 6e 74 20 2b 20 31 ┆ervals.lower.oldptr := upint + 1┆
0x11340…11360 3b 0a 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 6f 6c 64 70 74 72 20 3a 3d 20 6c ┆; intervals.upper.oldptr := l┆
0x11360…1137a 6f 77 69 6e 74 20 2d 20 31 3b 0a 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6f 6c ┆owint - 1; intervals.ol┆
0x1137a…11380 (0xcc,0x228)
0x11380…113a0 64 70 74 72 20 20 20 20 20 20 20 20 3a 3d 20 6e 69 6c 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 6e ┆dptr := nil; comment n┆
0x113a0…113c0 6f 74 69 63 65 20 74 68 65 20 66 75 6e 6e 79 20 65 78 63 68 61 6e 67 65 20 6f 66 20 6c 6f 77 65 ┆otice the funny exchange of lowe┆
0x113c0…113e0 72 2d 20 61 6e 64 20 75 70 70 65 72 2e 2e 2e 3b 0a 0a 20 20 20 69 66 20 6e 65 77 70 72 6f 6a 20 ┆r- and upper...; if newproj ┆
0x113e0…11400 6f 72 20 66 69 72 73 74 70 72 6f 6a 20 74 68 65 6e 20 67 6f 74 6f 20 65 00 00 00 00 00 00 00 00 ┆or firstproj then goto e ┆
0x11400…11406 (138,) (0xcc,0x229)
0x11406…11420 78 69 74 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 2e 65 2e 20 74 68 ┆xit; comment i.e. th┆
0x11420…11440 65 72 65 20 61 72 65 20 6e 6f 20 70 72 6f 70 65 72 20 72 65 63 6f 72 64 73 20 69 6e 20 6f 6c 64 ┆ere are no proper records in old┆
0x11440…11460 63 61 74 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 6f 6c 64 63 61 74 20 69 73 20 73 ┆cat; comment the oldcat is s┆
0x11460…1147e 65 61 72 63 68 65 64 2c 20 65 78 74 72 61 63 74 69 6e 67 20 74 68 65 20 69 6e 66 6f 72 6d ┆earched, extracting the inform┆
0x1147e…11484 (0xcc,0x22a)
0x11484…114a0 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 65 72 6e 69 6e 67 20 ┆ation concerning ┆
0x114a0…114c0 74 68 65 20 69 6e 74 65 72 76 61 6c 73 20 6f 66 20 61 6c 6c 20 70 72 6f 6a 65 63 74 73 20 28 6f ┆the intervals of all projects (o┆
0x114c0…114e0 72 20 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 73 20 62 65 6c 6f 6e 67 69 6e 67 ┆r all users belonging┆
0x114e0…114fc 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 29 3b 0a 20 20 ┆ to the current project); ┆
0x114fc…11502 (0xcc,0x22b)
0x11502…11520 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 6f 6c 64 63 61 74 2c 20 30 2c 20 73 65 67 6d 29 3b ┆ getposition(oldcat, 0, segm);┆
0x11520…11540 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 6c 64 63 61 74 2c 20 30 2c 20 69 66 20 70 72 ┆ setposition(oldcat, 0, if pr┆
0x11540…11560 6f 6a 65 63 74 20 74 68 65 6e 20 66 69 72 73 74 73 65 67 6d 20 65 6c 73 65 20 70 72 6f 6a 73 65 ┆oject then firstsegm else projse┆
0x11560…1157a 67 6d 29 3b 0a 20 20 20 63 61 74 20 3a 3d 20 69 66 20 70 72 6f 6a 65 63 74 20 ┆gm); cat := if project ┆
0x1157a…11580 (0xcc,0x22c)
0x11580…115a0 74 68 65 6e 20 30 20 65 6c 73 65 20 70 72 6f 6a 72 65 6c 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 ┆then 0 else projrel; <* bbj ┆
0x115a0…115c0 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 ┆ 9 9 76 proc ┆
0x115c0…115e0 69 6e 69 74 69 61 6c 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 ┆initialize catupdat┆
0x115e0…11600 65 20 20 2e 2e 2e 33 32 2e 2e 2e 20 20 2a 3e 0a 0a 6e 65 78 74 5f 62 6c 00 00 00 00 00 00 00 00 ┆e ...32... *> next_bl ┆
0x11600…11606 (139,) (0xcc,0x22d)
0x11606…11620 6f 63 6b 3a 0a 20 20 20 69 6e 72 65 63 36 28 6f 6c 64 63 61 74 2c 20 35 31 32 ┆ock: inrec6(oldcat, 512┆
0x11620…11640 29 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 6f 6c 64 63 61 74 2e 63 61 74 2e 69 66 32 20 65 78 ┆); for i := oldcat.cat.if2 ex┆
0x11640…11660 74 72 61 63 74 20 31 32 20 2b 20 63 61 74 20 77 68 69 6c 65 20 6f 6c 64 63 61 74 2e 63 61 74 2e ┆tract 12 + cat while oldcat.cat.┆
0x11660…1167e 69 66 32 20 3c 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 ┆if2 <> 0 do begin ┆
0x1167e…11684 (0xcc,0x22e)
0x11684…116a0 20 69 66 20 6f 6c 64 63 61 74 2e 63 61 74 2e 69 66 32 20 3c 20 32 20 73 68 69 66 74 ┆ if oldcat.cat.if2 < 2 shift┆
0x116a0…116c0 20 31 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ 12 then begin ┆
0x116c0…116e0 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 6a 65 63 74 20 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 20 ┆ comment project record; ┆
0x116e0…116fc 20 20 69 66 20 2d 2c 20 70 72 6f 6a 65 63 74 20 6f 72 20 6f 6c 64 63 61 74 2e 63 61 ┆ if -, project or oldcat.ca┆
0x116fc…11702 (0xcc,0x22f)
0x11702…11720 74 2e 70 72 6f 6a 20 3d 20 6d 61 78 69 6d 75 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆t.proj = maximum then ┆
0x11720…11740 20 20 20 20 67 6f 74 6f 20 75 70 64 61 74 65 64 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 66 69 ┆ goto updated; if fi┆
0x11740…11760 72 73 74 66 72 65 65 20 3e 20 69 6e 74 65 72 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 20 74 68 65 ┆rstfree > intervaltable_size the┆
0x11760…1177a 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 5f 61 6c 61 ┆n interval_ala┆
0x1177a…11780 (0xcc,0x230)
0x11780…117a0 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 66 69 72 ┆rm; intervals.lower.fir┆
0x117a0…117c0 73 74 66 72 65 65 20 3a 3d 20 6c 6f 77 65 72 69 6e 74 20 3a 3d 20 6f 6c 64 63 61 74 2e 63 61 74 ┆stfree := lowerint := oldcat.cat┆
0x117c0…117e0 2e 63 6c 6f 77 65 72 3b 0a 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 ┆.clower; intervals.uppe┆
0x117e0…11800 72 2e 66 69 72 73 74 66 72 65 65 20 3a 3d 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆r.firstfree := ┆
0x11800…11806 (140,) (0xcc,0x231)
0x11806…11820 20 20 20 6f 6c 64 63 61 74 2e 63 61 74 2e 63 75 70 70 65 72 3b 0a 20 20 20 20 ┆ oldcat.cat.cupper; ┆
0x11820…11840 20 20 20 20 20 69 66 20 6c 6f 77 65 72 69 6e 74 20 3c 3e 20 6d 69 6e 69 6d 75 6d 20 74 68 65 6e ┆ if lowerint <> minimum then┆
0x11840…11860 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 66 72 65 65 20 3a 3d 20 66 69 72 73 74 66 ┆ firstfree := firstf┆
0x11860…1187e 72 65 65 20 2b 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6d ┆ree + 6; comment m┆
0x1187e…11884 (0xcc,0x232)
0x11884…118a0 61 69 6e 74 65 6e 61 6e 63 65 2d 70 72 6f 6a 65 63 74 20 61 6e 64 20 61 63 63 6f 75 ┆aintenance-project and accou┆
0x118a0…118c0 6e 74 2d 70 72 6f 6a 65 63 74 20 61 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nt-project are ┆
0x118c0…118e0 20 20 20 6e 6f 74 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 69 6e 74 65 72 76 61 6c 2d 6c 69 73 74 ┆ not included in interval-list┆
0x118e0…118fc 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 20 70 72 6f 6a 2d 72 65 63 6f 72 64 0a 20 ┆; end proj-record ┆
0x118fc…11902 (0xcc,0x233)
0x11902…11920 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 69 66 20 70 72 6f 6a 65 63 74 20 ┆ else if if project ┆
0x11920…11940 74 68 65 6e 20 66 61 6c 73 65 20 65 6c 73 65 20 6f 6c 64 63 61 74 2e 63 61 74 2e 69 66 32 20 3c ┆then false else oldcat.cat.if2 <┆
0x11940…11960 20 34 20 73 68 69 66 74 20 31 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ 4 shift 12 then begin ┆
0x11960…1197a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 75 73 65 72 2d 72 65 63 6f ┆ comment user-reco┆
0x1197a…11980 (0xcc,0x234)
0x11980…119a0 72 64 20 28 73 6b 69 70 70 65 64 20 69 66 20 6f 6e 6c 79 20 65 78 74 72 61 63 74 69 6e 67 20 70 ┆rd (skipped if only extracting p┆
0x119a0…119c0 72 6f 6a 65 63 74 73 2e 2e 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 66 69 72 73 74 66 72 ┆rojects...); if firstfr┆
0x119c0…119e0 65 65 20 3e 20 69 6e 74 65 72 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 20 74 68 65 6e 0a 20 20 20 ┆ee > intervaltable_size then ┆
0x119e0…11a00 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 5f 61 6c 61 72 6d 3b 00 00 00 00 00 00 00 00 ┆ interval_alarm; ┆
0x11a00…11a06 (141,) (0xcc,0x235)
0x11a06…11a20 0a 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e ┆ intervals.lower.┆
0x11a20…11a40 66 69 72 73 74 66 72 65 65 20 3a 3d 20 6c 6f 77 65 72 69 6e 74 20 3a 3d 20 6f 6c 64 63 61 74 2e ┆firstfree := lowerint := oldcat.┆
0x11a40…11a60 63 61 74 2e 63 73 74 61 72 74 3b 0a 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 75 ┆cat.cstart; intervals.u┆
0x11a60…11a7e 70 70 65 72 2e 66 69 72 73 74 66 72 65 65 20 3a 3d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆pper.firstfree := ┆
0x11a7e…11a84 (0xcc,0x236)
0x11a84…11aa0 6f 6c 64 63 61 74 2e 63 61 74 2e 63 77 69 64 74 68 20 2a 20 6f 6c 64 63 61 74 2e 63 ┆oldcat.cat.cwidth * oldcat.c┆
0x11aa0…11ac0 61 74 2e 63 6a 6f 62 73 20 2b 20 6c 6f 77 65 72 69 6e 74 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 ┆at.cjobs + lowerint - 1; ┆
0x11ac0…11ae0 20 20 69 66 20 6c 6f 77 65 72 69 6e 74 20 3c 3e 20 6d 69 6e 69 6d 75 6d 20 74 68 65 6e 0a 20 20 ┆ if lowerint <> minimum then ┆
0x11ae0…11afc 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 66 72 65 65 20 3a 3d 20 66 69 72 73 74 ┆ firstfree := first┆
0x11afc…11b02 (0xcc,0x237)
0x11b02…11b20 66 72 65 65 20 2b 20 36 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 20 75 73 65 72 2d 72 65 ┆free + 6; end user-re┆
0x11b20…11b40 63 6f 72 64 3b 0a 0a 20 20 20 20 20 20 63 61 74 20 3a 3d 20 69 3b 20 20 63 6f 6d 6d 65 6e 74 20 ┆cord; cat := i; comment ┆
0x11b40…11b60 69 6e 63 72 65 61 73 65 20 74 6f 20 6e 65 78 74 20 72 65 63 6f 72 64 2e 2e 2e 3b 0a 20 20 20 20 ┆increase to next record...; ┆
0x11b60…11b7a 20 20 65 6e 64 3b 0a 0a 20 20 20 63 61 74 20 3a 3d 20 30 3b 0a 20 20 20 67 6f ┆ end; cat := 0; go┆
0x11b7a…11b80 (0xcc,0x238)
0x11b80…11ba0 74 6f 20 6e 65 78 74 5f 62 6c 6f 63 6b 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 ┆to next_block; <* bbj 9 9 7┆
0x11ba0…11bc0 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 69 6e 69 74 69 61 ┆6 proc initia┆
0x11bc0…11be0 6c 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e ┆lize catupdate ...┆
0x11be0…11c00 33 33 2e 2e 2e 20 20 2a 3e 0a 0a 75 70 64 61 74 65 64 3a 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆33... *> updated:; ┆
0x11c00…11c06 (142,) (0xcc,0x239)
0x11c06…11c20 63 6f 6d 6d 65 6e 74 20 72 65 73 74 6f 72 65 20 74 68 65 20 6f 6c 64 63 61 74 ┆comment restore the oldcat┆
0x11c20…11c40 2d 7a 6f 6e 65 2e 2e 2e 3b 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 6c 64 63 61 74 2c ┆-zone...; setposition(oldcat,┆
0x11c40…11c60 20 30 2c 20 73 65 67 6d 29 3b 0a 20 20 20 69 6e 72 65 63 36 28 6f 6c 64 63 61 74 2c 20 35 31 32 ┆ 0, segm); inrec6(oldcat, 512┆
0x11c60…11c7e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 69 6e 74 65 72 76 61 6c 73 20 6d ┆); comment the intervals m┆
0x11c7e…11c84 (0xcc,0x23a)
0x11c84…11ca0 75 73 74 20 62 65 20 73 6f 72 74 65 64 3a 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 ┆ust be sorted: pr┆
0x11ca0…11cc0 69 6d 61 72 79 3a 20 6c 6f 77 65 72 20 69 6e 74 65 72 76 61 6c 20 61 73 63 65 6e 64 69 6e 67 2c ┆imary: lower interval ascending,┆
0x11cc0…11ce0 0a 20 20 20 20 20 20 20 20 20 20 20 73 65 63 2e 61 72 79 3a 20 75 70 70 65 72 20 69 6e 74 65 72 ┆ sec.ary: upper inter┆
0x11ce0…11cfc 76 61 6c 20 64 65 73 63 65 6e 64 69 6e 67 3b 0a 0a 20 20 20 66 6f 72 20 73 74 65 70 ┆val descending; for step┆
0x11cfc…11d02 (0xcc,0x23b)
0x11d02…11d20 70 74 72 20 3a 3d 20 73 74 61 72 74 2b 36 20 73 74 65 70 20 36 20 75 6e 74 69 6c 20 66 69 ┆ptr := start+6 step 6 until fi┆
0x11d20…11d40 72 73 74 66 72 65 65 2d 36 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d ┆rstfree-6 do begin m┆
0x11d40…11d60 69 6e 70 74 72 20 3a 3d 20 73 74 65 70 70 74 72 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 ┆inptr := stepptr; comment point┆
0x11d60…11d7a 20 61 74 20 63 75 72 72 65 6e 74 20 77 69 6e 6e 65 72 3b 0a 20 20 20 20 20 20 ┆ at current winner; ┆
0x11d7a…11d80 (0xcc,0x23c)
0x11d80…11da0 6c 6f 77 65 72 69 6e 74 20 3a 3d 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 6d 69 6e 70 ┆lowerint := intervals.lower.minp┆
0x11da0…11dc0 74 72 3b 0a 0a 20 20 20 20 20 20 66 6f 72 20 73 65 61 72 63 68 70 74 72 20 3a 3d 20 73 74 65 70 ┆tr; for searchptr := step┆
0x11dc0…11de0 70 74 72 2b 36 20 73 74 65 70 20 36 20 75 6e 74 69 6c 20 66 69 72 73 74 66 72 65 65 2d 36 20 64 ┆ptr+6 step 6 until firstfree-6 d┆
0x11de0…11e00 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 69 66 20 65 78 74 65 6e 64 20 00 00 00 00 00 00 00 00 ┆o if if extend ┆
0x11e00…11e06 (143,) (0xcc,0x23d)
0x11e06…11e20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 73 65 61 72 63 68 70 74 72 20 ┆intervals.lower.searchptr ┆
0x11e20…11e40 3c 20 6c 6f 77 65 72 69 6e 74 20 74 68 65 6e 20 74 72 75 65 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆< lowerint then true else ┆
0x11e40…11e60 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 73 65 61 72 63 68 70 ┆ intervals.lower.searchp┆
0x11e60…11e7e 74 72 20 3d 20 6c 6f 77 65 72 69 6e 74 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆tr = lowerint and ┆
0x11e7e…11e84 (0xcc,0x23e)
0x11e84…11ea0 20 20 20 65 78 74 65 6e 64 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 73 65 ┆ extend intervals.upper.se┆
0x11ea0…11ec0 61 72 63 68 70 74 72 20 3c 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 6d 69 6e 70 74 72 ┆archptr < intervals.upper.minptr┆
0x11ec0…11ee0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ then begin ┆
0x11ee0…11efc 20 20 20 20 6d 69 6e 70 74 72 20 3a 3d 20 73 65 61 72 63 68 70 74 72 3b 0a 20 20 20 ┆ minptr := searchptr; ┆
0x11efc…11f02 (0xcc,0x23f)
0x11f02…11f20 20 20 20 20 20 20 20 20 20 6c 6f 77 65 72 69 6e 74 20 3a 3d 20 69 6e 74 65 72 76 61 6c 73 ┆ lowerint := intervals┆
0x11f20…11f40 2e 6c 6f 77 65 72 2e 6d 69 6e 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆.lower.minptr; end; ┆
0x11f40…11f60 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 78 63 68 61 6e 67 65 20 74 68 65 20 63 68 61 6c ┆ comment exchange the chal┆
0x11f60…11f7a 6c 65 6e 67 65 72 20 61 6e 64 20 74 68 65 20 77 69 6e 6e 65 72 3b 0a 20 20 20 ┆lenger and the winner; ┆
0x11f7a…11f80 (0xcc,0x240)
0x11f80…11fa0 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 6d 69 6e 70 74 72 20 3a 3d 20 69 6e 74 ┆ intervals.lower.minptr := int┆
0x11fa0…11fc0 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 73 74 65 70 70 74 72 3b 0a 20 20 20 20 20 20 69 6e 74 65 ┆ervals.lower.stepptr; inte┆
0x11fc0…11fe0 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 73 74 65 70 70 74 72 3a 3d 20 6c 6f 77 65 72 69 6e 74 3b 0a ┆rvals.lower.stepptr:= lowerint; ┆
0x11fe0…12000 20 20 20 20 20 20 75 70 70 65 72 69 6e 74 20 3a 3d 20 69 6e 74 65 72 76 00 00 00 00 00 00 00 00 ┆ upperint := interv ┆
0x12000…12006 (144,) (0xcc,0x241)
0x12006…12020 61 6c 73 2e 75 70 70 65 72 2e 6d 69 6e 70 74 72 3b 0a 20 20 20 20 20 20 69 6e ┆als.upper.minptr; in┆
0x12020…12040 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 6d 69 6e 70 74 72 20 3a 3d 20 69 6e 74 65 72 76 61 6c ┆tervals.upper.minptr := interval┆
0x12040…12060 73 2e 75 70 70 65 72 2e 73 74 65 70 70 74 72 3b 0a 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 ┆s.upper.stepptr; intervals┆
0x12060…1207e 2e 75 70 70 65 72 2e 73 74 65 70 70 74 72 3a 3d 20 75 70 70 65 72 69 6e 74 3b 0a 0a 20 20 ┆.upper.stepptr:= upperint; ┆
0x1207e…12084 (0xcc,0x242)
0x12084…120a0 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 6e 73 65 72 74 20 69 6e 20 6c 69 73 74 20 6f ┆ comment insert in list o┆
0x120a0…120c0 66 20 69 6e 74 65 72 76 61 6c 73 3b 0a 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6f 6c 64 ┆f intervals; intervals.old┆
0x120c0…120e0 70 74 72 20 3a 3d 20 6f 6c 64 70 74 72 20 3a 3d 20 73 74 65 70 70 74 72 3b 0a 20 20 20 20 20 20 ┆ptr := oldptr := stepptr; ┆
0x120e0…120fc 69 6e 74 65 72 76 61 6c 73 2e 73 74 65 70 70 74 72 20 3a 3d 20 6e 69 6c 3b 0a 20 20 ┆intervals.stepptr := nil; ┆
0x120fc…12102 (0xcc,0x243)
0x12102…12120 20 20 20 20 65 6e 64 20 73 6f 72 74 69 6e 67 3b 0a 0a 65 78 69 74 3a 0a 20 20 20 65 6e 64 ┆ end sorting; exit: end┆
0x12120…12140 20 69 6e 69 74 69 61 6c 69 7a 65 5f 70 72 6f 63 65 64 75 72 65 3b 0a 0c 0a 3c 2a 20 20 62 62 6a ┆ initialize_procedure; <* bbj┆
0x12140…12160 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f ┆ 9 9 76 pro┆
0x12160…1217a 63 20 67 65 74 69 6e 74 65 72 76 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆c getinterval ┆
0x1217a…12180 (0xcc,0x244)
0x12180…121a0 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 33 34 2e 2e 2e 20 20 2a 3e 0a 0a 0a 70 72 6f 63 65 64 ┆catupdate ...34... *> proced┆
0x121a0…121c0 75 72 65 20 67 65 74 5f 69 6e 74 65 72 76 61 6c 28 73 74 61 72 74 2c 20 6c 6f 77 69 6e 74 2c 20 ┆ure get_interval(start, lowint, ┆
0x121c0…121e0 75 70 69 6e 74 29 3b 0a 20 20 20 76 61 6c 75 65 20 73 74 61 72 74 3b 0a 20 20 20 69 6e 74 65 67 ┆upint); value start; integ┆
0x121e0…12200 65 72 20 73 74 61 72 74 2c 20 6c 6f 77 69 6e 74 2c 20 75 70 69 6e 74 3b 00 00 00 00 00 00 00 00 ┆er start, lowint, upint; ┆
0x12200…12206 (145,) (0xcc,0x245)
0x12206…12220 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 ┆ comment the procedure ┆
0x12220…12240 73 65 61 72 63 68 65 73 20 74 68 65 20 69 6e 74 65 72 76 61 6c 2d 6c 69 73 74 2c 20 73 74 61 72 ┆searches the interval-list, star┆
0x12240…12260 74 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 61 74 20 73 74 61 72 74 2c 20 75 6e 74 69 6c 20 ┆ting at start, until ┆
0x12260…1227e 61 20 68 6f 6c 65 20 77 69 74 68 20 74 68 65 20 77 69 64 74 68 20 75 70 69 6e 74 2d 6c 6f ┆a hole with the width upint-lo┆
0x1227e…12284 (0xcc,0x246)
0x12284…122a0 77 69 6e 74 2b 31 0a 20 20 20 20 20 20 20 20 20 20 20 69 73 20 66 6f 75 6e 64 2e 20 ┆wint+1 is found. ┆
0x122a0…122c0 73 70 65 63 69 61 6c 20 61 63 74 69 6f 6e 73 20 61 72 65 20 6d 61 64 65 20 77 69 74 68 20 61 62 ┆special actions are made with ab┆
0x122c0…122e0 73 2d 69 6e 74 65 72 76 61 6c 73 3b 0a 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 6c 6f 6e 67 20 6f ┆s-intervals; begin long o┆
0x122e0…122fc 6c 64 75 70 70 65 72 2c 20 6d 61 78 75 70 70 65 72 2c 20 6c 6f 77 3b 0a 20 20 20 77 ┆ldupper, maxupper, low; w┆
0x122fc…12302 (0xcc,0x247)
0x12302…12320 69 64 74 68 20 3a 3d 20 65 78 74 65 6e 64 20 75 70 69 6e 74 20 2d 20 6c 6f 77 69 6e 74 20 ┆idth := extend upint - lowint ┆
0x12320…12340 2b 20 31 3b 0a 20 20 20 70 74 72 20 3a 3d 20 73 74 61 72 74 3b 0a 20 20 20 6d 61 78 75 70 70 65 ┆+ 1; ptr := start; maxuppe┆
0x12340…12360 72 20 3a 3d 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 70 74 72 3b 0a 0a 63 6f 6d 6d 65 ┆r := intervals.upper.ptr; comme┆
0x12360…1237a 6e 74 20 69 69 66 66 20 75 70 64 61 74 65 73 74 20 74 68 65 6e 0a 20 20 20 77 ┆nt iiff updatest then w┆
0x1237a…12380 (0xcc,0x248)
0x12380…123a0 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 67 65 74 20 69 6e 74 65 72 76 61 6c 20 3a 3e 2c ┆rite(out, <:<10>get interval :>,┆
0x123a0…123c0 20 73 74 61 72 74 2c 20 6c 6f 77 69 6e 74 2c 20 75 70 69 6e 74 2c 20 0a 20 20 20 69 6e 74 65 72 ┆ start, lowint, upint, inter┆
0x123c0…123e0 76 61 6c 73 2e 75 70 70 65 72 2e 70 74 72 2c 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e ┆vals.upper.ptr, intervals.lower.┆
0x123e0…12400 70 74 72 29 3b 0a 0a 20 20 20 69 66 20 61 62 73 69 6e 74 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆ptr); if absint then ┆
0x12400…12406 (146,) (0xcc,0x249)
0x12406…12420 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 65 78 74 65 ┆ begin if exte┆
0x12420…12440 6e 64 20 6c 6f 77 69 6e 74 20 3c 3d 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 70 74 72 ┆nd lowint <= intervals.upper.ptr┆
0x12440…12460 20 6f 72 0a 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 75 70 69 6e 74 20 3e 3d 20 69 6e 74 ┆ or extend upint >= int┆
0x12460…1247e 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 70 74 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ervals.lower.ptr then ┆
0x1247e…12484 (0xcc,0x24a)
0x12484…124a0 20 20 20 20 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 61 ┆ update_alarm(<:illegal a┆
0x124a0…124c0 62 73 20 69 6e 74 65 72 76 61 6c 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 72 65 70 3a ┆bs interval:>); end; rep:┆
0x124c0…124e0 0a 20 20 20 6f 6c 64 70 74 72 20 20 20 3a 3d 20 70 74 72 3b 0a 20 20 20 6f 6c 64 75 70 70 65 72 ┆ oldptr := ptr; oldupper┆
0x124e0…124fc 20 3a 3d 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 6f 6c 64 70 74 72 3b 0a ┆ := intervals.upper.oldptr; ┆
0x124fc…12502 (0xcc,0x24b)
0x12502…12520 20 20 20 70 74 72 20 20 20 20 20 20 3a 3d 20 69 6e 74 65 72 76 61 6c 73 2e 6f 6c 64 70 74 ┆ ptr := intervals.oldpt┆
0x12520…12540 72 3b 0a 20 20 20 69 66 20 6f 6c 64 75 70 70 65 72 20 3e 20 6d 61 78 75 70 70 65 72 20 74 68 65 ┆r; if oldupper > maxupper the┆
0x12540…12560 6e 20 6d 61 78 75 70 70 65 72 20 3a 3d 20 6f 6c 64 75 70 70 65 72 3b 0a 0a 20 20 20 69 66 20 70 ┆n maxupper := oldupper; if p┆
0x12560…1257a 74 72 20 3c 3e 20 6e 69 6c 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e ┆tr <> nil then begin┆
0x1257a…12580 (0xcc,0x24c)
0x12580…125a0 0a 20 20 20 20 20 20 6c 6f 77 20 3a 3d 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 70 74 ┆ low := intervals.lower.pt┆
0x125a0…125c0 72 3b 0a 20 20 20 20 20 20 69 66 20 61 62 73 69 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆r; if absint then ┆
0x125c0…125e0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 61 72 63 68 20 75 ┆ begin comment search u┆
0x125e0…12600 6e 74 69 6c 20 6c 6f 77 20 68 61 73 20 70 61 73 73 65 64 20 6c 6f 77 69 00 00 00 00 00 00 00 00 ┆ntil low has passed lowi ┆
0x12600…12606 (147,) (0xcc,0x24d)
0x12606…12620 6e 74 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 6c 6f 77 20 3c 20 6c ┆nt...; if low < l┆
0x12620…12640 6f 77 69 6e 74 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 20 63 6f ┆owint then goto rep; co┆
0x12640…12660 6d 6d 65 6e 74 20 69 66 20 6c 6f 77 20 68 61 73 20 6e 6f 74 20 79 65 74 20 70 61 73 73 65 64 20 ┆mment if low has not yet passed ┆
0x12660…1267e 75 70 69 6e 74 20 74 68 65 6e 20 6f 76 65 72 6c 61 70 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 ┆upint then overlap...; ┆
0x1267e…12684 (0xcc,0x24e)
0x12684…126a0 20 20 69 66 20 6c 6f 77 20 3c 3d 20 75 70 69 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if low <= upint then ┆
0x126a0…126c0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 61 72 6e 69 6e 67 ┆ begin warning┆
0x126c0…126e0 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 70 64 61 74 65 5f 61 6c 61 ┆ := true; update_ala┆
0x126e0…126fc 72 6d 28 3c 3a 6f 76 65 72 6c 61 70 70 69 6e 67 20 69 6e 74 65 72 76 61 6c 73 3a 3e ┆rm(<:overlapping intervals:>┆
0x126fc…12702 (0xcc,0x24f)
0x12702…12720 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 63 ┆); end; c┆
0x12720…12740 6f 6d 6d 65 6e 74 20 73 65 61 72 63 68 20 75 6e 74 69 6c 20 74 68 65 20 73 6f 72 74 69 6e 67 20 ┆omment search until the sorting ┆
0x12740…12760 64 65 6d 61 6e 64 73 20 61 72 65 20 66 75 6c 66 69 6c 6c 65 64 2e 2e 2e 3b 0a 20 20 20 20 20 20 ┆demands are fulfilled...; ┆
0x12760…1277a 20 20 20 69 66 20 6c 6f 77 20 3d 20 6c 6f 77 69 6e 74 20 61 6e 64 0a 20 20 20 ┆ if low = lowint and ┆
0x1277a…12780 (0xcc,0x250)
0x12780…127a0 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 70 74 72 20 3e 20 75 ┆ intervals.upper.ptr > u┆
0x127a0…127c0 70 69 6e 74 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 ┆pint then goto rep; end┆
0x127c0…127e0 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ else begin ┆
0x127e0…12800 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 61 72 63 68 20 75 6e 74 69 6c 00 00 00 00 00 00 00 00 ┆ comment search until ┆
0x12800…12806 (148,) (0xcc,0x251)
0x12806…12820 20 61 20 68 6f 6c 65 20 69 73 20 66 6f 75 6e 64 20 62 69 67 20 65 6e 6f 75 67 ┆ a hole is found big enoug┆
0x12820…12840 68 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 6c 6f 77 20 2d 20 6f 6c 64 75 70 70 65 72 ┆h...; if low - oldupper┆
0x12840…12860 20 3c 3d 20 77 69 64 74 68 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 ┆ <= width then goto rep; ┆
0x12860…1287e 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6e 64 20 70 74 72 20 3c 3e 20 6e 69 6c 0a 20 20 20 ┆ end end ptr <> nil ┆
0x1287e…12884 (0xcc,0x252)
0x12884…128a0 65 6c 73 65 0a 20 20 20 70 74 72 20 3a 3d 20 73 74 61 72 74 3b 20 63 6f 6d 6d 65 6e ┆else ptr := start; commen┆
0x128a0…128c0 74 20 6e 6f 74 69 63 65 3a 20 6c 6f 77 65 72 2e 73 74 61 72 74 20 69 73 20 74 6f 70 20 6f 66 20 ┆t notice: lower.start is top of ┆
0x128c0…128e0 6c 65 67 61 6c 20 69 6e 74 65 72 76 2e 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 ┆legal interv.; <* bbj 9 9 7┆
0x128e0…128fc 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 67 65 ┆6 proc ge┆
0x128fc…12902 (0xcc,0x253)
0x12902…12920 74 69 6e 74 65 72 76 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 ┆tinterval catupdat┆
0x12920…12940 65 20 20 2e 2e 2e 33 35 2e 2e 2e 20 20 2a 3e 0a 0a 63 6f 6d 6d 65 6e 74 20 6e 6f 77 20 6f 6c 64 ┆e ...35... *> comment now old┆
0x12940…12960 70 74 72 20 70 6f 69 6e 74 73 20 61 74 20 65 6c 65 6d 65 6e 74 20 6a 75 73 74 20 62 65 66 6f 72 ┆ptr points at element just befor┆
0x12960…1297a 65 2c 20 77 68 69 6c 65 0a 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 ┆e, while intervals.lowe┆
0x1297a…12980 (0xcc,0x254)
0x12980…129a0 72 2e 70 74 72 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 ┆r.ptr contains the start of the ┆
0x129a0…129c0 6e 65 78 74 20 69 6e 74 65 72 76 61 6c 0a 20 20 20 28 75 73 65 64 20 74 6f 20 63 68 65 63 68 20 ┆next interval (used to chech ┆
0x129c0…129e0 2e 2e 6e 6f 20 72 6f 6f 6d 2e 2e 29 3b 0a 0a 20 20 20 69 66 20 61 62 73 69 6e 74 20 74 68 65 6e ┆..no room..); if absint then┆
0x129e0…12a00 0a 20 20 20 20 20 20 6f 6c 64 75 70 70 65 72 20 3a 3d 20 6c 6f 77 69 6e 00 00 00 00 00 00 00 00 ┆ oldupper := lowin ┆
0x12a00…12a06 (149,) (0xcc,0x255)
0x12a06…12a20 74 20 2d 20 31 0a 20 20 20 65 6c 73 65 0a 0a 20 20 20 69 66 20 69 6e 74 65 72 ┆t - 1 else if inter┆
0x12a20…12a40 76 61 6c 73 2e 6c 6f 77 65 72 2e 70 74 72 20 2d 20 6f 6c 64 75 70 70 65 72 20 3c 3d 20 77 69 64 ┆vals.lower.ptr - oldupper <= wid┆
0x12a40…12a60 74 68 20 74 68 65 6e 0a 20 20 20 20 20 20 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 6e 6f 20 ┆th then update_alarm(<:no ┆
0x12a60…12a7e 72 6f 6f 6d 3a 3e 29 3b 0a 0a 20 20 20 69 66 20 66 69 72 73 74 66 72 65 65 20 3e 20 69 6e ┆room:>); if firstfree > in┆
0x12a7e…12a84 (0xcc,0x256)
0x12a84…12aa0 74 65 72 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆tervaltable_size then ┆
0x12aa0…12ac0 69 6e 74 65 72 76 61 6c 5f 61 6c 61 72 6d 3b 0a 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 ┆interval_alarm; intervals.low┆
0x12ac0…12ae0 65 72 2e 66 69 72 73 74 66 72 65 65 20 3a 3d 20 6c 6f 77 69 6e 74 20 3a 3d 20 6f 6c 64 75 70 70 ┆er.firstfree := lowint := oldupp┆
0x12ae0…12afc 65 72 20 2b 20 31 3b 0a 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 66 ┆er + 1; intervals.upper.f┆
0x12afc…12b02 (0xcc,0x257)
0x12b02…12b20 69 72 73 74 66 72 65 65 20 3a 3d 20 75 70 69 6e 74 20 20 3a 3d 20 6f 6c 64 75 70 70 65 72 ┆irstfree := upint := oldupper┆
0x12b20…12b40 20 2b 20 77 69 64 74 68 3b 0a 20 20 20 69 66 20 6d 61 78 75 70 70 65 72 20 3e 3d 20 6c 6f 77 69 ┆ + width; if maxupper >= lowi┆
0x12b40…12b60 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 61 72 6e 69 6e ┆nt then begin warnin┆
0x12b60…12b7a 67 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 75 70 64 61 74 65 5f 61 6c ┆g := true; update_al┆
0x12b7a…12b80 (0xcc,0x258)
0x12b80…12ba0 61 72 6d 28 3c 3a 6f 76 65 72 6c 61 70 70 69 6e 67 20 69 6e 74 65 72 76 61 6c 73 3a 3e 29 3b 0a ┆arm(<:overlapping intervals:>); ┆
0x12ba0…12bc0 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 66 69 72 73 74 66 72 ┆ end; intervals.firstfr┆
0x12bc0…12be0 65 65 20 3a 3d 20 69 6e 74 65 72 76 61 6c 73 2e 6f 6c 64 70 74 72 3b 0a 20 20 20 69 6e 74 65 72 ┆ee := intervals.oldptr; inter┆
0x12be0…12c00 76 61 6c 73 2e 6f 6c 64 70 74 72 20 20 20 20 3a 3d 20 66 69 72 73 74 66 00 00 00 00 00 00 00 00 ┆vals.oldptr := firstf ┆
0x12c00…12c06 (150,) (0xcc,0x259)
0x12c06…12c20 72 65 65 3b 0a 20 20 20 66 69 72 73 74 66 72 65 65 20 20 20 20 20 20 20 20 20 ┆ree; firstfree ┆
0x12c20…12c40 20 20 3a 3d 20 66 69 72 73 74 66 72 65 65 20 2b 20 36 3b 0a 0a 20 20 20 65 6e 64 20 67 65 74 5f ┆ := firstfree + 6; end get_┆
0x12c40…12c60 69 6e 74 65 72 76 61 6c 2e 2e 2e 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 ┆interval...; <* bbj 9 9 76 ┆
0x12c60…12c7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 6f 75 74 70 75 74 ┆ proc output┆
0x12c7e…12c84 (0xcc,0x25a)
0x12c84…12ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 ┆ catupdate ┆
0x12ca0…12cc0 20 2e 2e 2e 33 36 2e 2e 2e 20 20 2a 3e 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 75 74 70 75 74 ┆ ...36... *> procedure output┆
0x12cc0…12ce0 28 66 72 6f 6d 2c 20 69 61 66 29 3b 0a 20 20 20 7a 6f 6e 65 20 66 72 6f 6d 3b 0a 20 20 20 69 6e ┆(from, iaf); zone from; in┆
0x12ce0…12cfc 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 69 61 66 3b 0a 0a 20 20 20 62 ┆teger array field iaf; b┆
0x12cfc…12d02 (0xcc,0x25b)
0x12d02…12d20 65 67 69 6e 0a 20 20 20 69 6e 74 65 67 65 72 20 6c 65 6e 67 74 68 3b 0a 20 20 20 6c 65 6e ┆egin integer length; len┆
0x12d20…12d40 67 74 68 20 3a 3d 20 66 72 6f 6d 2e 69 61 66 2e 69 66 32 20 65 78 74 72 61 63 74 20 31 32 3b 0a ┆gth := from.iaf.if2 extract 12; ┆
0x12d40…12d60 63 6f 6d 6d 65 6e 74 20 69 69 66 66 20 75 70 64 61 74 65 73 74 20 74 68 65 6e 20 77 72 69 74 65 ┆comment iiff updatest then write┆
0x12d60…12d7a 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 6f 75 74 70 75 74 20 3a 3e 2c 20 66 72 6f ┆(out, <:<10>output :>, fro┆
0x12d7a…12d80 (0xcc,0x25c)
0x12d80…12da0 6d 2e 69 61 66 2e 69 66 32 20 73 68 69 66 74 20 28 2d 31 32 29 2c 20 6c 65 6e 67 74 68 2c 20 6e ┆m.iaf.if2 shift (-12), length, n┆
0x12da0…12dc0 65 78 74 6e 65 77 29 3b 0a 20 20 20 69 66 20 6e 65 78 74 6e 65 77 2b 6c 65 6e 67 74 68 20 3e 20 ┆extnew); if nextnew+length > ┆
0x12dc0…12de0 35 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 6c 65 ┆510 then begin if le┆
0x12de0…12e00 66 74 73 69 64 65 20 74 68 65 6e 20 6f 75 74 72 65 63 36 28 6e 65 77 63 00 00 00 00 00 00 00 00 ┆ftside then outrec6(newc ┆
0x12e00…12e06 (151,) (0xcc,0x25d)
0x12e06…12e20 61 74 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 6e 65 78 74 6e 65 77 20 3a 3d ┆at, 512); nextnew :=┆
0x12e20…12e40 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 6e 65 77 20 3a 3d 20 6e 65 78 74 6e 65 77 ┆ 0; end; new := nextnew┆
0x12e40…12e60 3b 0a 20 20 20 6e 65 78 74 6e 65 77 20 3a 3d 20 6e 65 78 74 6e 65 77 20 2b 20 6c 65 6e 67 74 68 ┆; nextnew := nextnew + length┆
0x12e60…12e7e 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 6e 65 78 74 20 72 65 63 6f 72 ┆; comment point at next recor┆
0x12e7e…12e84 (0xcc,0x25e)
0x12e84…12ea0 64 3b 0a 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 32 20 73 74 65 70 20 32 20 75 6e 74 ┆d; for i := 2 step 2 unt┆
0x12ea0…12ec0 69 6c 20 6c 65 6e 67 74 68 20 64 6f 0a 20 20 20 20 20 20 6e 65 77 63 61 74 2e 6e 65 77 2e 69 20 ┆il length do newcat.new.i ┆
0x12ec0…12ee0 3a 3d 20 66 72 6f 6d 2e 69 61 66 2e 69 3b 0a 20 20 20 6e 65 77 63 61 74 2e 6e 65 77 2e 69 20 3a ┆:= from.iaf.i; newcat.new.i :┆
0x12ee0…12efc 3d 20 30 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 6e 73 65 72 74 20 61 20 ┆= 0; comment insert a ┆
0x12efc…12f02 (0xcc,0x25f)
0x12f02…12f20 64 75 6d 6d 79 20 7a 65 72 6f 20 28 69 6e 20 63 61 73 65 20 6f 66 20 62 6c 6f 63 6b 2d 63 ┆dummy zero (in case of block-c┆
0x12f20…12f40 68 61 6e 67 65 2e 2e 2e 29 3b 0a 20 20 20 65 6e 64 20 6f 75 74 70 75 74 5f 70 72 6f 63 65 64 75 ┆hange...); end output_procedu┆
0x12f40…12f60 72 65 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 74 65 72 76 61 6c 5f 61 6c 61 72 6d 3b 0a ┆re; procedure interval_alarm; ┆
0x12f60…12f7a 20 20 20 62 65 67 69 6e 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 2a ┆ begin write(out, <:*┆
0x12f7a…12f80 (0xcc,0x260)
0x12f80…12fa0 2a 2a 74 68 65 20 63 61 74 75 70 64 61 74 65 20 70 72 6f 67 72 61 6d 20 6d 75 73 74 20 62 65 20 ┆**the catupdate program must be ┆
0x12fa0…12fc0 63 6f 72 72 65 63 74 65 64 20 61 6e 64 0a 72 65 63 6f 6d 70 69 6c 65 64 2c 20 77 69 74 68 20 61 ┆corrected and recompiled, with a┆
0x12fc0…12fe0 20 67 72 65 61 74 65 72 20 69 6e 74 65 72 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 3c 31 30 3e 3a ┆ greater intervaltable_size<10>:┆
0x12fe0…13000 3e 29 3b 0a 20 20 20 73 79 73 74 65 6d 28 39 2c 20 69 6e 74 65 72 76 61 00 00 00 00 00 00 00 00 ┆>); system(9, interva ┆
0x13000…13006 (152,) (0xcc,0x261)
0x13006…13020 6c 74 61 62 6c 65 5f 73 69 7a 65 2f 2f 36 2c 20 3c 3a 3c 31 30 3e 73 69 7a 65 ┆ltable_size//6, <:<10>size┆
0x13020…13040 20 20 20 20 3a 3e 29 3b 0a 20 20 20 65 6e 64 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 75 70 64 ┆ :>); end; procedure upd┆
0x13040…13060 61 74 65 5f 61 6c 61 72 6d 28 74 65 78 74 29 3b 0a 20 20 20 73 74 72 69 6e 67 20 74 65 78 74 3b ┆ate_alarm(text); string text;┆
0x13060…1307e 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 70 72 6f 6a ┆ begin write(out, <:proj┆
0x1307e…13084 (0xcc,0x262)
0x13084…130a0 6e 6f 3d 20 3a 3e 2c 20 3c 3c 64 64 64 64 64 64 3e 2c 20 74 70 72 6f 6a 2c 20 3c 3a ┆no= :>, <<dddddd>, tproj, <:┆
0x130a0…130c0 20 20 75 73 65 72 3d 20 3a 3e 29 3b 0a 20 20 20 69 20 3a 3d 20 31 3b 0a 20 20 20 77 72 69 74 65 ┆ user= :>); i := 1; write┆
0x130c0…130e0 28 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c 0a 20 20 20 20 20 20 20 20 20 31 33 20 ┆(out, false add 32, 13 ┆
0x130e0…130fc 2d 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 28 20 63 61 73 65 20 69 6e ┆- write(out, string( case in┆
0x130fc…13102 (0xcc,0x263)
0x13102…13120 63 72 65 61 73 65 28 69 29 20 6f 66 20 28 74 75 73 65 72 31 2c 20 74 75 73 65 72 32 29 29 ┆crease(i) of (tuser1, tuser2))┆
0x13120…13140 29 2c 0a 20 20 20 20 20 20 20 20 20 3c 3a 2a 2a 2a 20 3a 3e 2c 74 65 78 74 2c 3c 3a 20 2a 2a 2a ┆), <:*** :>,text,<: ***┆
0x13140…13160 3a 3e 2c 20 3c 3a 3c 31 30 3e 3c 31 30 3e 20 20 3b 20 3a 3e 29 3b 0a 20 20 20 69 66 20 74 74 79 ┆:>, <:<10><10> ; :>); if tty┆
0x13160…1317a 70 65 3d 34 32 20 74 68 65 6e 20 70 72 69 6e 74 72 65 63 28 76 61 72 74 72 61 ┆pe=42 then printrec(vartra┆
0x1317a…13180 (0xcc,0x264)
0x13180…131a0 6e 73 2e 72 65 63 2c 20 74 70 72 6f 6a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c ┆ns.rec, tproj) el┆
0x131a0…131c0 73 65 20 70 72 69 6e 74 72 65 63 28 74 72 61 6e 73 2e 72 65 63 20 20 20 2c 20 74 70 72 6f 6a 29 ┆se printrec(trans.rec , tproj)┆
0x131c0…131e0 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 ┆; write(out, <:<10><10>:>); ┆
0x131e0…13200 20 20 69 66 20 77 61 72 6e 69 6e 67 20 74 68 65 6e 20 77 61 72 6e 69 6e 00 00 00 00 00 00 00 00 ┆ if warning then warnin ┆
0x13200…13206 (153,) (0xcc,0x265)
0x13206…13220 67 20 3a 3d 20 66 61 6c 73 65 20 65 6c 73 65 0a 20 20 20 67 6f 74 6f 20 6e 65 ┆g := false else goto ne┆
0x13220…13240 78 74 5f 74 72 61 6e 73 3b 0a 20 20 20 65 6e 64 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 ┆xt_trans; end; <* bbj 9 ┆
0x13240…13260 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 70 72 69 ┆9 76 proc pri┆
0x13260…1327e 6e 74 72 65 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 ┆ntrec catupdate┆
0x1327e…13284 (0xcc,0x266)
0x13284…132a0 20 20 2e 2e 2e 33 37 2e 2e 2e 20 20 2a 3e 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 72 ┆ ...37... *> procedure pr┆
0x132a0…132c0 69 6e 74 72 65 63 28 72 65 63 6f 72 64 2c 20 70 72 6f 6a 6e 6f 29 3b 0a 20 20 20 69 6e 74 65 67 ┆intrec(record, projno); integ┆
0x132c0…132e0 65 72 20 61 72 72 61 79 20 72 65 63 6f 72 64 3b 0a 20 20 20 6c 6f 6e 67 20 20 20 20 70 72 6f 6a ┆er array record; long proj┆
0x132e0…132fc 6e 6f 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 ┆no; comment the procedur┆
0x132fc…13302 (0xcc,0x267)
0x13302…13320 65 20 70 72 69 6e 74 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 63 6f 72 64 20 69 6e ┆e prints the current record in┆
0x13320…13340 20 73 75 63 68 20 61 20 77 61 79 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 68 61 74 20 69 74 20 ┆ such a way, that it ┆
0x13340…13360 6c 61 74 65 72 20 6d 61 79 20 62 65 20 75 73 65 64 20 61 67 61 69 6e 20 61 73 20 69 6e 70 75 74 ┆later may be used again as input┆
0x13360…1337a 20 66 6f 72 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 2e 2e 3b 0a 0a 20 20 20 62 ┆ for the program...; b┆
0x1337a…13380 (0xcc,0x268)
0x13380…133a0 65 67 69 6e 0a 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 74 79 70 2c 20 74 79 70 65 2c 20 6c 65 ┆egin integer i, typ, type, le┆
0x133a0…133c0 6e 67 74 68 3b 0a 20 20 20 6c 6f 6e 67 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 3b 0a 20 20 20 62 6f ┆ngth; long longwork; bo┆
0x133c0…133e0 6f 6c 65 61 6e 20 6e 65 77 6c 69 6e 65 3b 0a 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 73 6c 69 ┆olean newline; procedure sli┆
0x133e0…13400 63 65 73 28 6e 29 3b 20 69 6e 74 65 67 65 72 20 6e 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ces(n); integer n; ┆
0x13400…13406 (154,) (0xcc,0x269)
0x13406…13420 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 72 65 63 6f 72 64 28 6e ┆ write(out, <<d>, record(n┆
0x13420…13440 29 20 73 68 69 66 74 20 31 32 20 2f 2f 20 34 30 39 36 2c 20 3c 3a 2c 3a 3e 2c 20 72 65 63 6f 72 ┆) shift 12 // 4096, <:,:>, recor┆
0x13440…13460 64 28 6e 29 20 20 2f 2f 20 34 30 39 36 29 3b 0a 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 6c ┆d(n) // 4096); procedure cl┆
0x13460…1347e 61 69 6d 28 6e 29 3b 20 69 6e 74 65 67 65 72 20 6e 3b 0a 20 20 20 20 20 20 62 65 67 69 6e ┆aim(n); integer n; begin┆
0x1347e…13484 (0xcc,0x26a)
0x13484…134a0 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 28 73 6c 69 63 65 73 ┆ write(out, <: (slices┆
0x134a0…134c0 2c 20 65 6e 74 72 69 65 73 3d 29 20 3a 3e 29 3b 0a 20 20 20 20 20 20 73 6c 69 63 65 73 28 6e 29 ┆, entries=) :>); slices(n)┆
0x134c0…134e0 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 73 74 63 ┆; end; procedure restc┆
0x134e0…134fc 6c 61 69 6d 28 6e 29 3b 20 69 6e 74 65 67 65 72 20 6e 3b 0a 20 20 20 20 20 20 62 65 ┆laim(n); integer n; be┆
0x134fc…13502 (0xcc,0x26b)
0x13502…13520 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 28 72 65 73 74 63 ┆gin write(out, <: (restc┆
0x13520…13540 6c 61 69 6d 3d 20 3a 3e 29 3b 0a 20 20 20 20 20 20 73 6c 69 63 65 73 28 6e 29 3b 0a 20 20 20 20 ┆laim= :>); slices(n); ┆
0x13540…13560 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 29 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆ write(out, <:):>); end; ┆
0x13560…1357a 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 74 65 6d 70 5f 6f 72 5f 70 65 72 6d ┆ procedure temp_or_perm┆
0x1357a…13580 (0xcc,0x26c)
0x13580…135a0 28 64 65 76 69 63 65 2c 20 6e 29 3b 20 73 74 72 69 6e 67 20 64 65 76 69 63 65 3b 20 69 6e 74 65 ┆(device, n); string device; inte┆
0x135a0…135c0 67 65 72 20 6e 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆ger n; begin write(o┆
0x135c0…135e0 75 74 2c 20 3c 3a 20 20 35 20 3a 3e 2c 20 69 66 20 74 79 70 65 20 3c 20 34 30 20 74 68 65 6e 20 ┆ut, <: 5 :>, if type < 40 then ┆
0x135e0…13600 3c 3a 74 65 6d 70 20 3a 3e 20 65 6c 73 65 20 3c 3a 70 65 72 6d 20 3a 3e 00 00 00 00 00 00 00 00 ┆<:temp :> else <:perm :> ┆
0x13600…13606 (155,) (0xcc,0x26d)
0x13606…13620 2c 20 64 65 76 69 63 65 29 3b 0a 20 20 20 20 20 20 63 6c 61 69 6d 28 6e 29 3b ┆, device); claim(n);┆
0x13620…13640 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 6c 6f 6e 67 20 70 72 6f 63 65 64 75 72 65 20 6e ┆ end; long procedure n┆
0x13640…13660 61 6d 65 3b 0a 20 20 20 20 20 20 6e 61 6d 65 20 3a 3d 20 63 61 73 65 20 69 6e 63 72 65 61 73 65 ┆ame; name := case increase┆
0x13660…1367e 28 69 29 20 6f 66 20 28 72 65 63 6f 72 64 2e 75 73 65 72 6e 61 6d 65 31 2c 20 72 65 63 6f ┆(i) of (record.username1, reco┆
0x1367e…13684 (0xcc,0x26e)
0x13684…136a0 72 64 2e 75 73 65 72 6e 61 6d 65 32 29 3b 0a 0a 20 20 20 6c 6f 6e 67 20 70 72 6f 63 ┆rd.username2); long proc┆
0x136a0…136c0 65 64 75 72 65 20 6c 6f 6e 67 74 65 78 74 3b 0a 20 20 20 20 20 20 6c 6f 6e 67 74 65 78 74 20 3a ┆edure longtext; longtext :┆
0x136c0…136e0 3d 20 6c 6f 6e 67 20 3c 3a 3a 3e 20 61 64 64 20 28 69 66 20 69 20 3c 20 6c 65 6e 67 74 68 20 74 ┆= long <::> add (if i < length t┆
0x136e0…136fc 68 65 6e 20 72 65 63 6f 72 64 28 69 6e 63 72 65 61 73 65 28 69 29 2b 31 29 20 65 6c ┆hen record(increase(i)+1) el┆
0x136fc…13702 (0xcc,0x26f)
0x13702…13720 73 65 20 30 29 20 73 68 69 66 74 20 32 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆se 0) shift 24 ┆
0x13720…13740 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 64 20 28 69 66 20 69 20 3c 20 6c 65 6e 67 74 68 20 ┆ add (if i < length ┆
0x13740…13760 74 68 65 6e 20 72 65 63 6f 72 64 28 69 6e 63 72 65 61 73 65 28 69 29 2b 31 29 20 65 6c 73 65 20 ┆then record(increase(i)+1) else ┆
0x13760…1377a 30 29 3b 0a 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 73 74 61 6e 64 61 72 64 ┆0); procedure standard┆
0x1377a…13780 (0xcc,0x270)
0x13780…137a0 28 74 65 78 74 29 3b 20 73 74 72 69 6e 67 20 74 65 78 74 3b 0a 20 20 20 20 20 20 77 72 69 74 65 ┆(text); string text; write┆
0x137a0…137c0 28 6f 75 74 2c 20 3c 3c 64 64 64 3e 2c 20 74 79 70 2c 20 3c 3a 20 3a 3e 2c 20 74 65 78 74 2c 20 ┆(out, <<ddd>, typ, <: :>, text, ┆
0x137c0…137e0 3c 3c 20 64 3e 2c 20 72 65 63 6f 72 64 28 32 29 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 ┆<< d>, record(2)); <* bbj 9┆
0x137e0…13800 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ 9 76 ┆
0x13800…13806 (156,) (0xcc,0x271)
0x13806…13820 20 70 72 6f 63 20 70 72 69 6e 74 72 65 63 20 20 20 20 20 20 20 20 20 20 20 20 ┆ proc printrec ┆
0x13820…13840 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 33 38 2e 2e 2e 20 20 2a 3e 0a 0a 20 20 20 ┆ catupdate ...38... *> ┆
0x13840…13860 74 79 70 65 20 3a 3d 20 72 65 63 6f 72 64 28 31 29 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 ┆type := record(1) shift (-12); ┆
0x13860…1387e 20 20 6c 65 6e 67 74 68 20 3a 3d 20 72 65 63 6f 72 64 28 31 29 20 65 78 74 72 61 63 74 20 ┆ length := record(1) extract ┆
0x1387e…13884 (0xcc,0x272)
0x13884…138a0 31 32 3b 0a 20 20 20 74 79 70 20 3a 3d 20 69 66 20 74 79 70 65 20 65 78 74 72 61 63 ┆12; typ := if type extrac┆
0x138a0…138c0 74 20 31 20 3d 20 30 20 74 68 65 6e 20 35 20 65 6c 73 65 20 36 3b 0a 20 20 20 69 20 3a 3d 20 31 ┆t 1 = 0 then 5 else 6; i := 1┆
0x138c0…138e0 3b 20 20 63 6f 6d 6d 65 6e 74 20 75 73 65 64 20 69 6e 20 70 72 69 6e 74 69 6e 67 20 74 65 78 74 ┆; comment used in printing text┆
0x138e0…138fc 20 61 2e 6f 2e 3b 0a 0a 20 20 20 63 61 73 65 20 74 79 70 65 20 73 68 69 66 74 20 28 ┆ a.o.; case type shift (┆
0x138fc…13902 (0xcc,0x273)
0x13902…13920 2d 31 29 20 20 2b 20 31 20 6f 66 0a 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 63 6f 6d 6d 65 ┆-1) + 1 of begin comme┆
0x13920…13940 6e 74 20 74 79 70 65 3d 30 2c 20 70 72 6f 6a 65 63 74 2d 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 ┆nt type=0, project-record; ┆
0x13940…13960 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 31 30 20 28 6e ┆ begin write(out, <: 10 (n┆
0x13960…1397a 65 77 20 70 72 6f 6a 6e 6f 20 3d 29 3a 3e 2c 20 3c 3c 64 64 64 64 64 64 3e 2c ┆ew projno =):>, <<dddddd>,┆
0x1397a…13980 (0xcc,0x274)
0x13980…139a0 20 70 72 6f 6a 6e 6f 2c 20 3c 3a 20 30 3a 3e 29 3b 0a 20 20 20 20 20 20 63 6c 61 69 6d 28 36 29 ┆ projno, <: 0:>); claim(6)┆
0x139a0…139c0 3b 0a 20 20 20 20 20 20 72 65 73 74 63 6c 61 69 6d 28 35 29 3b 0a 20 20 20 20 20 20 77 72 69 74 ┆; restclaim(5); writ┆
0x139c0…139e0 65 28 6f 75 74 2c 20 3c 3a 20 28 69 6e 74 65 72 76 61 6c 3d 29 3a 3e 2c 20 72 65 63 6f 72 64 2e ┆e(out, <: (interval=):>, record.┆
0x139e0…13a00 63 6c 6f 77 65 72 2c 20 72 65 63 6f 72 64 2e 63 75 70 70 65 72 29 3b 0a 00 00 00 00 00 00 00 00 ┆clower, record.cupper); ┆
0x13a00…13a06 (157,) (0xcc,0x275)
0x13a06…13a20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 ┆ end; comment typ┆
0x13a20…13a40 65 3d 32 2c 20 75 73 65 72 2d 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆e=2, user-record; write(ou┆
0x13a40…13a60 74 2c 20 3c 3a 20 31 31 20 28 6e 65 77 20 75 73 65 72 20 3d 29 20 3a 3e 2c 20 73 74 72 69 6e 67 ┆t, <: 11 (new user =) :>, string┆
0x13a60…13a7e 20 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 28 70 72 ┆ name, <: (pr┆
0x13a7e…13a84 (0xcc,0x276)
0x13a84…13aa0 6f 6a 6e 6f 20 3d 29 3a 3e 2c 20 70 72 6f 6a 6e 6f 2c 20 3c 3a 20 30 20 28 77 69 64 ┆ojno =):>, projno, <: 0 (wid┆
0x13aa0…13ac0 74 68 2c 6a 6f 62 73 2c 73 74 61 72 74 20 3d 29 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆th,jobs,start =):>, ┆
0x13ac0…13ae0 20 20 20 20 20 72 65 63 6f 72 64 2e 63 77 69 64 74 68 2c 20 72 65 63 6f 72 64 2e 63 6a 6f 62 73 ┆ record.cwidth, record.cjobs┆
0x13ae0…13afc 2c 20 72 65 63 6f 72 64 2e 63 73 74 61 72 74 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e ┆, record.cstart); commen┆
0x13afc…13b02 (0xcc,0x277)
0x13b02…13b20 74 20 74 79 70 65 3d 34 2c 20 70 72 69 6f 72 69 74 79 20 61 6e 64 20 72 65 73 70 69 74 65 ┆t type=4, priority and respite┆
0x13b20…13b40 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 20 37 20 28 70 72 69 6f 72 69 ┆; write(out, <: 7 (priori┆
0x13b40…13b60 74 79 2c 20 72 65 73 70 69 74 65 20 3d 29 3a 3e 2c 20 72 65 63 6f 72 64 28 32 29 2c 0a 20 20 20 ┆ty, respite =):>, record(2), ┆
0x13b60…13b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 65 6e 64 20 72 65 63 6f ┆ (extend reco┆
0x13b7a…13b80 (0xcc,0x278)
0x13b80…13ba0 72 64 28 33 29 29 20 73 68 69 66 74 20 31 33 20 2f 2f 20 31 30 30 30 30 29 3b 0a 0a 20 20 20 63 ┆rd(3)) shift 13 // 10000); c┆
0x13ba0…13bc0 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 36 2c 20 63 6c 61 69 6d 73 20 6f 6e 20 70 72 69 76 61 74 65 ┆omment type=6, claims on private┆
0x13bc0…13be0 20 6b 69 74 73 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆ kits; begin write(o┆
0x13be0…13c00 75 74 2c 20 3c 3a 20 20 34 20 28 70 72 69 76 61 74 65 20 6b 69 74 20 3d 00 00 00 00 00 00 00 00 ┆ut, <: 4 (private kit = ┆
0x13c00…13c06 (158,) (0xcc,0x279)
0x13c06…13c20 29 20 3a 3e 2c 20 73 74 72 69 6e 67 20 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 ┆) :>, string name); ┆
0x13c20…13c40 63 6c 61 69 6d 28 37 29 3b 0a 20 20 20 20 20 20 72 65 73 74 63 6c 61 69 6d 28 36 29 3b 0a 20 20 ┆claim(7); restclaim(6); ┆
0x13c40…13c60 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 28 73 6c 69 63 65 6c 65 6e 67 74 68 20 3d ┆ write(out, <: (slicelength =┆
0x13c60…13c7e 29 3a 3e 2c 20 69 66 20 6c 65 6e 67 74 68 20 3d 20 31 34 20 74 68 65 6e 20 38 20 65 6c 73 ┆):>, if length = 14 then 8 els┆
0x13c7e…13c84 (0xcc,0x27a)
0x13c84…13ca0 65 20 72 65 63 6f 72 64 28 38 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆e record(8)); end; ┆
0x13ca0…13cc0 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 38 2f 39 20 2c 20 64 65 76 69 63 65 2d 6d 61 73 6b 20 ┆ comment type=8/9 , device-mask ┆
0x13cc0…13ce0 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6c 6f 6e 67 77 6f ┆record; begin longwo┆
0x13ce0…13cfc 72 6b 20 3a 3d 20 72 65 63 6f 72 64 2e 75 73 65 72 6e 61 6d 65 31 3b 0a 20 20 20 20 ┆rk := record.username1; ┆
0x13cfc…13d02 (0xcc,0x27b)
0x13d02…13d20 20 20 69 66 20 74 79 70 65 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 6c ┆ if type extract 1 = 1 then l┆
0x13d20…13d40 6f 6e 67 77 6f 72 6b 20 3a 3d 20 2d 31 20 2d 20 6c 6f 6e 67 77 6f 72 6b 3b 0a 20 20 20 20 20 20 ┆ongwork := -1 - longwork; ┆
0x13d40…13d60 20 20 20 63 6f 6d 6d 65 6e 74 20 6f 6e 65 73 2d 63 6f 6d 70 6c 65 6d 65 6e 74 2e 2e 2e 3b 0a 0a ┆ comment ones-complement...; ┆
0x13d60…13d7a 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f 72 6b 20 3d 20 30 20 74 68 65 6e ┆ if longwork = 0 then┆
0x13d7a…13d80 (0xcc,0x27c)
0x13d80…13da0 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 64 64 3e 2c 20 74 79 70 ┆ write(out, <<ddd>, typ┆
0x13da0…13dc0 2c 20 3c 3a 20 64 65 76 69 63 65 20 6e 6f 3a 3e 29 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆, <: device no:>) else ┆
0x13dc0…13de0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6e 65 77 6c 69 6e 65 20 3a 3d 20 ┆ begin newline := ┆
0x13de0…13e00 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 3a 3d 00 00 00 00 00 00 00 00 ┆false; for i := ┆
0x13e00…13e06 (159,) (0xcc,0x27d)
0x13e06…13e20 20 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 64 6f 0a 20 20 20 20 20 ┆ 2 step 1 until 5 do ┆
0x13e20…13e40 20 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 34 37 2b 69 29 ┆ if longwork shift (-47+i)┆
0x13e40…13e60 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ extract 1 = 1 then ┆
0x13e60…13e7e 20 20 20 62 65 67 69 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 65 77 6c 69 6e 65 2c 20 31 ┆ begin write(out, newline, 1┆
0x13e7e…13e84 (0xcc,0x27e)
0x13e84…13ea0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 6c 69 6e 65 20 3a 3d ┆); newline :=┆
0x13ea0…13ec0 20 66 61 6c 73 65 20 61 64 64 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 ┆ false add 10; wr┆
0x13ec0…13ee0 69 74 65 28 6f 75 74 2c 20 3c 3c 64 64 64 3e 2c 20 74 79 70 2c 20 3c 3a 20 64 65 76 69 63 65 20 ┆ite(out, <<ddd>, typ, <: device ┆
0x13ee0…13efc 3a 3e 2c 20 73 74 72 69 6e 67 20 64 65 76 69 63 65 6e 61 6d 65 28 69 29 29 3b 0a 20 ┆:>, string devicename(i)); ┆
0x13efc…13f02 (0xcc,0x27f)
0x13f02…13f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 66 6f ┆ end; fo┆
0x13f20…13f40 72 20 69 20 3a 3d 20 36 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f 64 65 76 69 ┆r i := 6 step 1 until no_of_devi┆
0x13f40…13f60 63 65 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f 72 6b 20 73 ┆ces do if longwork s┆
0x13f60…13f7a 68 69 66 74 20 28 2d 34 37 2b 69 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 ┆hift (-47+i) extract 1 = 1┆
0x13f7a…13f80 (0xcc,0x280)
0x13f80…13fa0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 77 72 69 74 65 ┆ then begin write┆
0x13fa0…13fc0 28 6f 75 74 2c 20 6e 65 77 6c 69 6e 65 2c 20 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(out, newline, 1); ┆
0x13fc0…13fe0 20 20 6e 65 77 6c 69 6e 65 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 31 30 3b 0a 20 20 20 20 20 ┆ newline := false add 10; ┆
0x13fe0…14000 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 00 00 00 00 00 00 00 00 ┆ write(out, <<d ┆
0x14000…14006 (160,) (0xcc,0x281)
0x14006…14020 64 64 3e 2c 20 74 79 70 2c 20 3c 3a 20 64 65 76 69 63 65 20 3a 3e 2c 20 64 65 ┆dd>, typ, <: device :>, de┆
0x14020…14040 76 69 63 65 6e 75 6d 62 65 72 28 69 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆vicenumber(i)); e┆
0x14040…14060 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 3c ┆nd; end; end; <┆
0x14060…1407e 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* bbj 9 9 76 ┆
0x1407e…14084 (0xcc,0x282)
0x14084…140a0 20 20 20 20 20 70 72 69 6e 74 20 72 65 63 20 74 79 70 65 73 20 20 20 20 20 20 20 20 ┆ print rec types ┆
0x140a0…140c0 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 33 39 2e 2e 2e 20 20 2a 3e 0a 0a 20 ┆ catupdate ...39... *> ┆
0x140c0…140e0 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 31 30 2f 31 31 3b 0a 20 20 20 20 20 20 73 74 61 6e ┆ comment type=10/11; stan┆
0x140e0…140fc 64 61 72 64 28 3c 3a 61 63 63 6f 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆dard(<:acco:>); comment ┆
0x140fc…14102 (0xcc,0x283)
0x14102…14120 74 79 70 65 3d 31 32 2f 31 33 3b 0a 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 61 ┆type=12/13; standard(<:a┆
0x14120…14140 72 65 61 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 31 34 2f 31 35 3b 0a ┆rea:>); comment type=14/15; ┆
0x14140…14160 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 62 75 66 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d ┆ standard(<:buf:>); com┆
0x14160…1417a 6d 65 6e 74 20 74 79 70 65 3d 31 36 2f 31 37 3b 0a 20 20 20 20 20 20 73 74 61 ┆ment type=16/17; sta┆
0x1417a…14180 (0xcc,0x284)
0x14180…141a0 6e 64 61 72 64 28 3c 3a 63 62 75 66 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 ┆ndard(<:cbuf:>); comment typ┆
0x141a0…141c0 65 3d 31 38 2f 31 39 3b 0a 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 69 6e 74 65 3a 3e ┆e=18/19; standard(<:inte:>┆
0x141c0…141e0 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 32 30 2f 32 31 3b 0a 20 20 20 20 20 ┆); comment type=20/21; ┆
0x141e0…14200 20 73 74 61 6e 64 61 72 64 28 3c 3a 6b 65 79 3a 3e 29 3b 0a 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ standard(<:key:>); ┆
0x14200…14206 (161,) (0xcc,0x285)
0x14206…14220 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 32 32 2f 32 33 3b 0a 20 20 20 20 20 20 ┆comment type=22/23; ┆
0x14220…14240 73 74 61 6e 64 61 72 64 28 3c 3a 6d 6f 75 6e 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆standard(<:moun:>); comment ┆
0x14240…14260 74 79 70 65 3d 32 34 2f 32 35 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 ┆type=24/25; write(out, <<d┆
0x14260…1427e 64 64 3e 2c 20 74 79 70 2c 20 3c 3a 20 6f 75 74 70 3a 3e 2c 20 3c 3c 20 64 3e 2c 20 72 65 ┆dd>, typ, <: outp:>, << d>, re┆
0x1427e…14284 (0xcc,0x286)
0x14284…142a0 63 6f 72 64 28 32 29 2c 20 3c 3a 20 28 73 6c 69 63 65 73 29 3a 3e 29 3b 0a 0a 20 20 ┆cord(2), <: (slices):>); ┆
0x142a0…142c0 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 32 36 2f 32 37 3b 0a 20 20 20 20 20 20 73 74 61 6e 64 ┆ comment type=26/27; stand┆
0x142c0…142e0 61 72 64 28 3c 3a 73 69 7a 65 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d ┆ard(<:size:>); comment type=┆
0x142e0…142fc 32 38 2f 32 39 3b 0a 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 73 74 61 74 ┆28/29; standard(<:stat┆
0x142fc…14302 (0xcc,0x287)
0x14302…14320 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 33 30 2f 33 31 3b 0a 20 ┆:>); comment type=30/31; ┆
0x14320…14340 20 20 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 74 61 70 65 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d ┆ standard(<:tape:>); com┆
0x14340…14360 6d 65 6e 74 20 74 79 70 65 3d 33 32 2f 33 33 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ment type=32/33; begin ┆
0x14360…1437a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 64 64 3e 2c 20 74 79 70 2c ┆ write(out, <<ddd>, typ,┆
0x1437a…14380 (0xcc,0x288)
0x14380…143a0 20 3c 3a 20 74 69 6d 65 3a 3e 29 3b 0a 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 3a 3d 20 28 ┆ <: time:>); longwork := (┆
0x143a0…143c0 65 78 74 65 6e 64 20 72 65 63 6f 72 64 28 32 29 29 20 73 68 69 66 74 20 31 33 20 2f 2f 20 31 30 ┆extend record(2)) shift 13 // 10┆
0x143c0…143e0 30 30 30 3b 0a 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f 72 6b 20 3e 3d 20 33 36 30 30 20 74 ┆000; if longwork >= 3600 t┆
0x143e0…14400 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 6c 6f 6e 67 77 6f 72 6b 20 00 00 00 00 00 00 00 00 ┆hen write(out, longwork ┆
0x14400…14406 (162,) (0xcc,0x289)
0x14406…14420 2f 2f 20 33 36 30 30 29 3b 0a 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f 72 ┆// 3600); if longwor┆
0x14420…14440 6b 20 3e 3d 20 36 30 20 20 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 6c 6f 6e 67 77 6f ┆k >= 60 then write(out, longwo┆
0x14440…14460 72 6b 20 6d 6f 64 20 33 36 30 30 20 2f 2f 20 36 30 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 ┆rk mod 3600 // 60); write(┆
0x14460…1447e 6f 75 74 2c 20 6c 6f 6e 67 77 6f 72 6b 20 6d 6f 64 20 36 30 29 3b 0a 20 20 20 20 20 20 65 ┆out, longwork mod 60); e┆
0x1447e…14484 (0xcc,0x28a)
0x14484…144a0 6e 64 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 33 34 3b 0a 20 20 20 ┆nd; comment type=34; ┆
0x144a0…144c0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 20 39 20 ┆ begin write(out, <: 9 ┆
0x144c0…144e0 28 75 73 65 72 70 6f 6f 6c 29 3a 3e 29 3b 0a 20 20 20 20 20 20 63 6c 61 69 6d 28 35 29 3b 0a 20 ┆(userpool):>); claim(5); ┆
0x144e0…144fc 20 20 20 20 20 72 65 73 74 63 6c 61 69 6d 28 34 29 3b 0a 20 20 20 20 20 20 65 6e 64 ┆ restclaim(4); end┆
0x144fc…14502 (0xcc,0x28b)
0x14502…14520 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 33 36 2c 20 74 65 6d 70 20 64 72 ┆; comment type=36, temp dr┆
0x14520…14540 75 6d 3b 0a 20 20 20 20 20 20 74 65 6d 70 5f 6f 72 5f 70 65 72 6d 28 3c 3a 64 72 75 6d 3a 3e 2c ┆um; temp_or_perm(<:drum:>,┆
0x14540…14560 20 32 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 33 38 2c 20 74 65 6d 70 20 64 ┆ 2); comment type=38, temp d┆
0x14560…1457a 69 73 63 3b 0a 20 20 20 20 20 20 74 65 6d 70 5f 6f 72 5f 70 65 72 6d 28 3c 3a ┆isc; temp_or_perm(<:┆
0x1457a…14580 (0xcc,0x28c)
0x14580…145a0 64 69 73 63 3a 3e 2c 20 32 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 34 30 2c ┆disc:>, 2); comment type=40,┆
0x145a0…145c0 20 70 65 72 6d 20 64 69 73 63 3b 0a 20 20 20 20 20 20 74 65 6d 70 5f 6f 72 5f 70 65 72 6d 28 3c ┆ perm disc; temp_or_perm(<┆
0x145c0…145e0 3a 64 69 73 63 3a 3e 2c 20 32 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 34 32 ┆:disc:>, 2); comment type=42┆
0x145e0…14600 2c 20 75 73 65 72 6e 61 6d 65 20 61 6e 64 20 61 64 64 72 65 73 73 3b 0a 00 00 00 00 00 00 00 00 ┆, username and address; ┆
0x14600…14606 (163,) (0xcc,0x28d)
0x14606…14620 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 20 33 20 3a 3e 2c ┆ write(out, <: 3 :>,┆
0x14620…14640 20 73 74 72 69 6e 67 20 6c 6f 6e 67 74 65 78 74 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 20 ┆ string longtext); <* bbj ┆
0x14640…14660 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 20 72 ┆9 9 76 print r┆
0x14660…1467e 65 63 20 74 79 70 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 ┆ec types catupdat┆
0x1467e…14684 (0xcc,0x28e)
0x14684…146a0 65 20 20 2e 2e 2e 34 30 2e 2e 2e 20 20 2a 3e 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆e ...40... *> comment ┆
0x146a0…146c0 74 79 70 65 3d 34 34 2c 20 70 65 72 6d 61 6e 65 6e 74 20 72 65 73 6f 75 72 63 65 73 20 6f 6e 20 ┆type=44, permanent resources on ┆
0x146c0…146e0 64 72 75 6d 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆drum; begin write(ou┆
0x146e0…146fc 74 2c 20 3c 3a 20 20 38 20 28 70 65 72 6d 61 6e 65 6e 74 20 64 72 75 6d 29 3a 3e 29 ┆t, <: 8 (permanent drum):>)┆
0x146fc…14702 (0xcc,0x28f)
0x14702…14720 3b 0a 20 20 20 20 20 20 63 6c 61 69 6d 28 33 29 3b 0a 20 20 20 20 20 20 72 65 73 74 63 6c ┆; claim(3); restcl┆
0x14720…14740 61 69 6d 28 32 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 ┆aim(2); end; comment t┆
0x14740…14760 79 70 65 3d 34 36 2c 20 70 65 72 6d 20 64 72 75 6d 3b 0a 20 20 20 20 20 20 74 65 6d 70 5f 6f 72 ┆ype=46, perm drum; temp_or┆
0x14760…1477a 5f 70 65 72 6d 28 3c 3a 64 72 75 6d 3a 3e 2c 20 32 29 3b 0a 0a 20 20 20 63 6f ┆_perm(<:drum:>, 2); co┆
0x1477a…14780 (0xcc,0x290)
0x14780…147a0 6d 6d 65 6e 74 20 74 79 70 65 3d 34 38 2c 20 70 65 72 6d 20 3c 70 72 69 76 61 74 65 20 6b 69 74 ┆mment type=48, perm <private kit┆
0x147a0…147c0 3e 3b 0a 20 20 20 20 20 20 74 65 6d 70 5f 6f 72 5f 70 65 72 6d 28 73 74 72 69 6e 67 20 6e 61 6d ┆>; temp_or_perm(string nam┆
0x147c0…147e0 65 2c 20 36 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 35 30 2f 35 31 20 74 68 ┆e, 6); comment type=50/51 th┆
0x147e0…14800 65 20 6c 61 74 65 73 74 20 66 69 6e 69 73 68 69 6e 67 20 74 69 6d 65 20 00 00 00 00 00 00 00 00 ┆e latest finishing time ┆
0x14800…14806 (164,) (0xcc,0x291)
0x14806…14820 66 6f 72 20 74 68 65 20 6a 6f 62 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆for the job; begin ┆
0x14820…14840 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 3a 3d 20 28 65 78 74 65 6e 64 20 72 65 63 6f 72 64 28 ┆ longwork := (extend record(┆
0x14840…14860 32 29 29 20 73 68 69 66 74 20 31 33 20 2f 2f 20 36 30 30 30 30 30 3b 0a 20 20 20 20 20 20 77 72 ┆2)) shift 13 // 600000; wr┆
0x14860…1487e 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 3e 2c 20 74 79 70 2c 20 3c 3a 20 6c 61 74 65 3a 3e ┆ite(out,<<ddd>, typ, <: late:>┆
0x1487e…14884 (0xcc,0x292)
0x14884…148a0 2c 20 6c 6f 6e 67 77 6f 72 6b 20 2f 2f 20 36 30 2c 20 6c 6f 6e 67 77 6f 72 6b 20 6d ┆, longwork // 60, longwork m┆
0x148a0…148c0 6f 64 20 36 30 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 ┆od 60); end; comment t┆
0x148c0…148e0 79 70 65 3d 35 32 2c 20 70 72 6f 6a 65 63 74 20 69 64 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 ┆ype=52, project id; write(┆
0x148e0…148fc 6f 75 74 2c 20 3c 3a 20 31 32 20 3a 3e 2c 20 73 74 72 69 6e 67 20 6c 6f 6e 67 74 65 ┆out, <: 12 :>, string longte┆
0x148fc…14902 (0xcc,0x293)
0x14902…14920 78 74 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 35 34 3b 0a 20 20 20 20 ┆xt); comment type=54; ┆
0x14920…14940 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 20 35 20 70 72 6f 67 72 61 6d 3d 20 3a 3e 2c 20 ┆ write(out, <: 5 program= :>, ┆
0x14940…14960 73 74 72 69 6e 67 20 6e 61 6d 65 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 35 ┆string name); comment type=5┆
0x14960…1497a 36 3b 0a 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 73 75 73 70 3a 3e ┆6; standard(<:susp:>┆
0x1497a…14980 (0xcc,0x294)
0x14980…149a0 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 35 38 2f 35 39 3b 0a 20 20 20 20 20 ┆); comment type=58/59; ┆
0x149a0…149c0 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 64 64 3e 2c 20 74 79 70 2c 20 3c 3a 20 6f 6e 6c 69 ┆ write(out, <<ddd>, typ, <: onli┆
0x149c0…149e0 3a 3e 2c 20 69 66 20 72 65 63 6f 72 64 28 32 29 20 3d 20 30 20 74 68 65 6e 20 3c 3a 20 6e 6f 3a ┆:>, if record(2) = 0 then <: no:┆
0x149e0…14a00 3e 20 65 6c 73 65 20 3c 3a 20 79 65 73 3a 3e 29 3b 0a 0a 20 20 20 63 6f 00 00 00 00 00 00 00 00 ┆> else <: yes:>); co ┆
0x14a00…14a06 (165,) (0xcc,0x295)
0x14a06…14a20 6d 6d 65 6e 74 20 74 79 70 65 3d 36 30 2f 36 31 3b 0a 20 20 20 20 20 20 73 74 ┆mment type=60/61; st┆
0x14a20…14a40 61 6e 64 61 72 64 28 3c 3a 63 6f 72 65 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 ┆andard(<:core:>); comment ty┆
0x14a40…14a60 70 65 3d 36 32 2f 36 33 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 3e ┆pe=62/63; write(out,<<ddd>┆
0x14a60…14a7e 2c 20 74 79 70 2c 20 3c 3a 20 6d 69 6e 69 3a 3e 2c 20 69 66 20 72 65 63 6f 72 64 28 32 29 ┆, typ, <: mini:>, if record(2)┆
0x14a7e…14a84 (0xcc,0x296)
0x14a84…14aa0 20 3d 20 30 20 74 68 65 6e 20 3c 3a 20 6e 6f 3a 3e 20 65 6c 73 65 20 3c 3a 20 79 65 ┆ = 0 then <: no:> else <: ye┆
0x14aa0…14ac0 73 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 36 34 2f 36 35 3b 0a 20 20 ┆s:>); comment type=64/65; ┆
0x14ac0…14ae0 20 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 70 72 69 6f 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d ┆ standard(<:prio:>); comm┆
0x14ae0…14afc 65 6e 74 20 74 79 70 65 3d 36 36 2f 36 37 3b 0a 20 20 20 20 20 20 73 74 61 6e 64 61 ┆ent type=66/67; standa┆
0x14afc…14b02 (0xcc,0x297)
0x14b02…14b20 72 64 28 3c 3a 77 61 69 74 3a 3e 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 ┆rd(<:wait:>); comment type┆
0x14b20…14b40 3d 36 38 2f 36 39 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 64 64 3e 2c ┆=68/69; write(out, <<ddd>,┆
0x14b40…14b60 20 74 79 70 2c 20 3c 3a 20 70 72 65 73 3a 3e 2c 20 69 66 20 72 65 63 6f 72 64 28 32 29 20 3d 20 ┆ typ, <: pres:>, if record(2) = ┆
0x14b60…14b7a 30 20 74 68 65 6e 20 3c 3a 20 6e 6f 3a 3e 20 65 6c 73 65 20 3c 3a 20 79 65 73 ┆0 then <: no:> else <: yes┆
0x14b7a…14b80 (0xcc,0x298)
0x14b80…14ba0 3a 3e 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 ┆:>); <* bbj 9 9 76 ┆
0x14ba0…14bc0 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 20 72 65 63 20 74 79 70 65 73 20 20 20 20 20 20 ┆ print rec types ┆
0x14bc0…14be0 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 34 31 2e 2e 2e 20 20 2a 3e 0a ┆ catupdate ...41... *> ┆
0x14be0…14c00 20 20 20 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 37 30 3b 0a 00 00 00 00 00 00 00 00 ┆ comment type=70; ┆
0x14c00…14c06 (166,) (0xcc,0x299)
0x14c06…14c20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆ begin write┆
0x14c20…14c40 28 6f 75 74 2c 3c 3c 64 64 64 3e 2c 20 74 79 70 2c 3c 3a 20 70 72 69 76 3a 3e 29 3b 0a 20 20 20 ┆(out,<<ddd>, typ,<: priv:>); ┆
0x14c40…14c60 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 3a 3d 72 65 63 6f 72 64 28 32 29 3b 0a 20 20 20 20 20 ┆ longwork:=record(2); ┆
0x14c60…14c7e 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f 72 6b 20 65 78 74 72 61 63 74 20 31 3d 31 20 74 68 ┆ if longwork extract 1=1 th┆
0x14c7e…14c84 (0xcc,0x29a)
0x14c84…14ca0 65 6e 20 69 3a 3d 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆en i:=1 else begin ┆
0x14ca0…14cc0 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 3a 3d 6c 6f 6e 67 77 6f 72 6b 20 73 68 ┆ longwork:=longwork sh┆
0x14cc0…14ce0 69 66 74 20 28 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 32 3b 0a 20 20 20 20 20 ┆ift (-3); i:=2; ┆
0x14ce0…14cfc 20 20 20 20 20 20 66 6f 72 20 6c 6f 6e 67 77 6f 72 6b 3a 3d 6c 6f 6e 67 77 6f 72 6b ┆ for longwork:=longwork┆
0x14cfc…14d02 (0xcc,0x29b)
0x14d02…14d20 20 73 68 69 66 74 20 28 2d 31 29 20 77 68 69 6c 65 20 6c 6f 6e 67 77 6f 72 6b 20 65 78 74 ┆ shift (-1) while longwork ext┆
0x14d20…14d40 72 61 63 74 20 31 3d 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 2b 31 ┆ract 1=0 do i:=i+1┆
0x14d40…14d60 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆; end; write(o┆
0x14d60…14d7a 75 74 2c 69 2c 3c 3a 20 20 28 62 69 74 20 70 61 74 74 65 72 6e 3a 20 3a 3e 29 ┆ut,i,<: (bit pattern: :>)┆
0x14d7a…14d80 (0xcc,0x29c)
0x14d80…14da0 3b 0a 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 3a 3d 72 65 63 6f 72 64 28 32 29 3b 0a ┆; longwork:=record(2); ┆
0x14da0…14dc0 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 20 64 3e 2c 20 6c 6f 6e 67 77 6f ┆ write(out,<< d>, longwo┆
0x14dc0…14de0 72 6b 20 73 68 69 66 74 20 28 2d 31 31 29 20 65 78 74 72 61 63 74 20 31 2c 0a 20 20 20 20 20 20 ┆rk shift (-11) extract 1, ┆
0x14de0…14e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 00 00 00 00 00 00 00 00 ┆ long ┆
0x14e00…14e06 (167,) (0xcc,0x29d)
0x14e06…14e20 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 31 30 29 20 65 78 74 72 61 63 74 20 31 ┆work shift (-10) extract 1┆
0x14e20…14e40 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 6c 6f 6e 67 ┆, long┆
0x14e40…14e60 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 39 29 20 65 78 74 72 61 63 74 20 31 2c 0a 20 20 20 20 20 ┆work shift (-9) extract 1, ┆
0x14e60…14e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 ┆ longwork ┆
0x14e7e…14e84 (0xcc,0x29e)
0x14e84…14ea0 73 68 69 66 74 20 28 2d 38 29 20 65 78 74 72 61 63 74 20 31 2c 0a 20 20 20 20 20 20 ┆shift (-8) extract 1, ┆
0x14ea0…14ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 ┆ longwork shi┆
0x14ec0…14ee0 66 74 20 28 2d 37 29 20 65 78 74 72 61 63 74 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ft (-7) extract 1, ┆
0x14ee0…14efc 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 66 74 20 ┆ longwork shift ┆
0x14efc…14f02 (0xcc,0x29f)
0x14f02…14f20 28 2d 36 29 20 65 78 74 72 61 63 74 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(-6) extract 1, ┆
0x14f20…14f40 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 35 29 20 ┆ longwork shift (-5) ┆
0x14f40…14f60 65 78 74 72 61 63 74 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆extract 1, ┆
0x14f60…14f7a 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 34 29 20 65 ┆ longwork shift (-4) e┆
0x14f7a…14f80 (0xcc,0x2a0)
0x14f80…14fa0 78 74 72 61 63 74 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xtract 1, ┆
0x14fa0…14fc0 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 33 29 20 65 78 74 72 61 63 74 20 ┆ longwork shift (-3) extract ┆
0x14fc0…14fe0 31 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 6c 6f 6e ┆1, lon┆
0x14fe0…15000 67 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 32 29 20 65 78 74 72 61 63 74 00 00 00 00 00 00 00 00 ┆gwork shift (-2) extract ┆
0x15000…15006 (168,) (0xcc,0x2a1)
0x15006…15020 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1, ┆
0x15020…15040 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 31 29 20 65 78 74 72 61 63 74 20 ┆ longwork shift (-1) extract ┆
0x15040…15060 31 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 6c 6f 6e ┆1, lon┆
0x15060…1507e 67 77 6f 72 6b 20 65 78 74 72 61 63 74 20 31 2c 3c 3a 29 3a 3e 29 3b 0a 20 20 20 20 20 20 ┆gwork extract 1,<:):>); ┆
0x1507e…15084 (0xcc,0x2a2)
0x15084…150a0 65 6e 64 3b 0a 20 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 37 32 20 20 6c ┆end; comment type=72 l┆
0x150a0…150c0 69 6e 6b 20 3b 0a 20 20 20 73 74 61 6e 64 61 72 64 28 3c 3a 6c 69 6e 6b 3a 3e 29 3b 0a 20 0a 0a ┆ink ; standard(<:link:>); ┆
0x150c0…150e0 20 20 20 65 6e 64 20 63 61 73 65 20 74 79 70 65 2e 2e 2e 3b 0a 0a 20 20 20 77 72 69 74 65 28 6f ┆ end case type...; write(o┆
0x150e0…150fc 75 74 2c 20 3c 3a 3b 3a 3e 29 3b 0a 0a 20 20 20 65 6e 64 20 70 72 6f 63 65 64 75 72 ┆ut, <:;:>); end procedur┆
0x150fc…15102 (0xcc,0x2a3)
0x15102…15120 65 20 70 72 69 6e 74 72 65 63 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 ┆e printrec; <* bbj 9 9 76┆
0x15120…15140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 ┆ initializati┆
0x15140…15160 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 34 ┆on catupdate ...4┆
0x15160…1517a 32 2e 2e 2e 20 20 2a 3e 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c ┆2... *> comment initial┆
0x1517a…15180 (0xcc,0x2a4)
0x15180…151a0 69 7a 65 20 66 69 65 6c 64 2d 76 61 72 69 61 62 6c 65 73 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 70 72 ┆ize field-variables; comment pr┆
0x151a0…151c0 6f 6a 65 63 74 20 72 65 63 6f 72 64 20 28 74 79 70 65 20 3d 20 30 29 3b 0a 70 72 6f 6a 20 20 20 ┆oject record (type = 0); proj ┆
0x151c0…151e0 3a 3d 20 34 3b 0a 63 6c 6f 77 65 72 20 3a 3d 20 36 3b 0a 63 75 70 70 65 72 20 3a 3d 20 38 3b 0a ┆:= 4; clower := 6; cupper := 8; ┆
0x151e0…15200 0a 63 6f 6d 6d 65 6e 74 20 75 73 65 72 20 72 65 63 6f 72 64 20 28 74 79 00 00 00 00 00 00 00 00 ┆ comment user record (ty ┆
0x15200…15206 (169,) (0xcc,0x2a5)
0x15206…15220 70 65 20 3d 20 32 29 3b 0a 75 73 65 72 6e 61 6d 65 31 20 3a 3d 20 36 3b 0a 75 ┆pe = 2); username1 := 6; u┆
0x15220…15240 73 65 72 6e 61 6d 65 32 20 3a 3d 20 31 30 3b 0a 63 73 74 61 72 74 20 20 20 20 3a 3d 20 31 32 3b ┆sername2 := 10; cstart := 12;┆
0x15240…15260 0a 63 77 69 64 74 68 20 20 20 20 3a 3d 20 31 34 3b 0a 63 6a 6f 62 73 20 20 20 20 20 3a 3d 20 31 ┆ cwidth := 14; cjobs := 1┆
0x15260…1527e 36 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 73 70 65 63 69 61 6c 20 62 73 2d 64 65 76 69 63 65 20 ┆6; comment special bs-device ┆
0x1527e…15284 (0xcc,0x2a6)
0x15284…152a0 72 65 63 6f 72 64 20 28 74 79 70 65 20 3d 20 36 29 3b 0a 6b 69 74 6e 61 6d 65 31 20 ┆record (type = 6); kitname1 ┆
0x152a0…152c0 20 3a 3d 20 36 3b 0a 6b 69 74 6e 61 6d 65 32 20 20 3a 3d 20 31 30 3b 0a 0a 63 6f 6d 6d 65 6e 74 ┆ := 6; kitname2 := 10; comment┆
0x152c0…152e0 20 75 73 65 72 70 6f 6f 6c 20 72 65 63 6f 72 64 28 74 79 70 65 20 3d 20 33 34 29 3b 0a 6d 61 78 ┆ userpool record(type = 34); max┆
0x152e0…152fc 6c 6f 77 65 72 20 20 3a 3d 20 34 3b 0a 6d 61 78 75 70 70 65 72 20 20 3a 3d 20 36 3b ┆lower := 4; maxupper := 6;┆
0x152fc…15302 (0xcc,0x2a7)
0x15302…15320 0a 0a 63 6f 6d 6d 65 6e 74 20 73 6f 72 74 69 6e 67 20 66 69 65 6c 64 73 20 69 6e 20 74 72 ┆ comment sorting fields in tr┆
0x15320…15340 61 6e 73 61 63 74 69 6f 6e 73 3b 0a 69 66 32 20 20 20 20 20 20 20 3a 3d 20 32 3b 20 20 63 6f 6d ┆ansactions; if2 := 2; com┆
0x15340…15360 6d 65 6e 74 20 70 72 6f 6a 65 63 74 6e 75 6d 62 65 72 20 6f 66 20 74 72 61 6e 73 61 63 74 69 6f ┆ment projectnumber of transactio┆
0x15360…1537a 6e 2c 20 72 65 63 74 79 70 65 20 6f 66 20 75 73 65 72 63 61 74 3b 0a 6c 67 36 ┆n, rectype of usercat; lg6┆
0x1537a…15380 (0xcc,0x2a8)
0x15380…153a0 20 20 20 20 20 20 20 3a 3d 20 36 3b 20 20 63 6f 6d 6d 65 6e 74 20 75 73 65 72 6e 61 6d 65 31 20 ┆ := 6; comment username1 ┆
0x153a0…153c0 6f 66 20 74 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0a 6c 67 31 30 20 20 20 20 20 20 3a 3d 20 31 30 ┆of transactions; lg10 := 10┆
0x153c0…153e0 3b 20 63 6f 6d 6d 65 6e 74 20 75 73 65 72 6e 61 6d 65 32 20 6f 66 20 74 72 61 6e 73 61 63 74 69 ┆; comment username2 of transacti┆
0x153e0…15400 6f 6e 73 3b 0a 69 66 31 32 20 20 20 20 20 20 3a 3d 20 31 32 3b 20 63 6f 00 00 00 00 00 00 00 00 ┆ons; if12 := 12; co ┆
0x15400…15406 (170,) (0xcc,0x2a9)
0x15406…15420 6d 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 73 20 75 70 64 61 74 65 69 6e 66 2e 2e ┆mment contains updateinf..┆
0x15420…15440 2e 3b 0a 62 61 73 69 73 20 20 20 20 20 3a 3d 20 31 34 3b 20 63 6f 6d 6d 65 6e 74 20 72 65 63 6f ┆.; basis := 14; comment reco┆
0x15440…15460 72 64 74 79 70 65 20 61 6e 64 20 2d 6c 65 6e 67 74 68 20 6f 66 20 74 72 61 6e 73 61 63 74 69 6f ┆rdtype and -length of transactio┆
0x15460…1547e 6e 73 3b 0a 72 65 63 20 20 20 20 20 20 20 3a 3d 20 62 61 73 69 73 2d 69 66 32 3b 0a 0a 63 ┆ns; rec := basis-if2; c┆
0x1547e…15484 (0xcc,0x2aa)
0x15484…154a0 6f 6d 6d 65 6e 74 20 69 6e 74 65 72 76 61 6c 2d 6c 69 73 74 3b 0a 69 6e 74 65 72 76 ┆omment interval-list; interv┆
0x154a0…154c0 61 6c 74 61 62 6c 65 5f 73 69 7a 65 20 3a 3d 20 69 6e 74 65 72 76 61 6c 74 61 62 6c 65 5f 73 69 ┆altable_size := intervaltable_si┆
0x154c0…154e0 7a 65 20 2a 20 36 3b 0a 75 73 65 72 73 74 61 72 74 20 3a 3d 20 66 69 72 73 74 66 72 65 65 20 3a ┆ze * 6; userstart := firstfree :┆
0x154e0…154fc 3d 20 32 3b 0a 75 70 70 65 72 20 3a 3d 20 32 3b 0a 6c 6f 77 65 72 20 3a 3d 20 75 70 ┆= 2; upper := 2; lower := up┆
0x154fc…15502 (0xcc,0x2ab)
0x15502…15520 70 65 72 20 2b 20 32 3b 0a 77 61 72 6e 69 6e 67 20 3a 3d 20 66 61 6c 73 65 3b 0a 0a 63 6f ┆per + 2; warning := false; co┆
0x15520…15540 6d 6d 65 6e 74 20 73 74 64 2d 76 61 72 69 61 62 6c 65 73 3b 0a 6d 61 78 69 6d 75 6d 20 3a 3d 20 ┆mment std-variables; maximum := ┆
0x15540…15560 28 2d 31 29 20 73 68 69 66 74 20 28 2d 31 29 3b 0a 6d 69 6e 69 6d 75 6d 20 3a 3d 20 31 20 73 68 ┆(-1) shift (-1); minimum := 1 sh┆
0x15560…1557a 69 66 74 20 32 33 20 2b 20 31 3b 0a 6e 69 6c 20 20 20 20 20 3a 3d 20 2d 31 3b ┆ift 23 + 1; nil := -1;┆
0x1557a…15580 (0xcc,0x2ac)
0x15580…155a0 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 75 70 64 61 74 65 2d 74 61 62 ┆ comment initialize update-tab┆
0x155a0…155c0 6c 65 73 3b 0a 0a 66 6f 72 20 69 20 3a 3d 20 30 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 6d 61 ┆les; for i := 0 step 2 until ma┆
0x155c0…155e0 78 5f 72 65 63 6f 72 64 5f 74 79 70 65 20 64 6f 0a 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 63 68 ┆x_record_type do begin ch┆
0x155e0…15600 61 6e 67 65 28 69 2f 2f 32 29 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 0a 00 00 00 00 00 00 00 00 ┆ange(i//2) := false add ┆
0x15600…15606 (171,) (0xcc,0x2ad)
0x15606…15620 20 20 20 20 20 20 28 69 66 20 69 3d 30 20 20 74 68 65 6e 20 28 31 20 2b 20 31 ┆ (if i=0 then (1 + 1┆
0x15620…15640 20 73 68 69 66 74 20 34 20 2b 20 31 20 73 68 69 66 74 20 35 29 20 65 6c 73 65 0a 20 20 20 20 20 ┆ shift 4 + 1 shift 5) else ┆
0x15640…15660 20 20 69 66 20 69 3d 32 20 20 74 68 65 6e 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if i=2 then 1 ┆
0x15660…1567e 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 69 66 20 69 3d 36 20 ┆ else if i=6 ┆
0x1567e…15684 (0xcc,0x2ae)
0x15684…156a0 20 74 68 65 6e 20 28 31 20 2b 20 31 20 73 68 69 66 74 20 35 20 2b 20 31 20 73 68 69 ┆ then (1 + 1 shift 5 + 1 shi┆
0x156a0…156c0 66 74 20 36 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 69 66 20 69 3d 33 34 20 74 68 65 6e 20 28 ┆ft 6) else if i=34 then (┆
0x156c0…156e0 31 20 2b 20 31 20 73 68 69 66 74 20 33 20 2b 20 31 20 73 68 69 66 74 20 34 29 20 65 6c 73 65 0a ┆1 + 1 shift 3 + 1 shift 4) else ┆
0x156e0…156fc 20 20 20 20 20 20 20 69 66 20 69 3d 34 34 20 74 68 65 6e 20 28 31 20 2b 20 31 20 73 ┆ if i=44 then (1 + 1 s┆
0x156fc…15702 (0xcc,0x2af)
0x15702…15720 68 69 66 74 20 31 20 2b 20 31 20 73 68 69 66 74 20 32 29 20 65 6c 73 65 0a 20 20 20 20 20 ┆hift 1 + 1 shift 2) else ┆
0x15720…15740 20 20 69 66 20 69 3d 34 36 20 74 68 65 6e 20 28 31 20 2b 20 31 20 73 68 69 66 74 20 31 20 20 20 ┆ if i=46 then (1 + 1 shift 1 ┆
0x15740…15760 20 20 20 20 20 20 20 20 20 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 69 66 20 69 3d 34 38 20 74 ┆ ) else if i=48 t┆
0x15760…1577a 68 65 6e 20 28 31 20 2b 20 31 20 73 68 69 66 74 20 35 20 20 20 20 20 20 20 20 ┆hen (1 + 1 shift 5 ┆
0x1577a…15780 (0xcc,0x2b0)
0x15780…157a0 20 20 20 20 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 30 20 29 3b 0a 20 20 20 63 6f 6d 6d 65 6e ┆ ) else 0 ); commen┆
0x157a0…157c0 74 20 74 68 69 73 20 6d 65 61 6e 73 2c 20 74 68 61 74 20 69 6e 20 66 2e 65 78 2e 20 74 68 65 20 ┆t this means, that in f.ex. the ┆
0x157c0…157e0 72 65 63 6f 72 64 20 6f 66 20 74 79 70 65 20 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 75 70 64 ┆record of type 6, upd┆
0x157e0…15800 61 74 69 6e 67 20 69 73 20 6d 61 64 65 20 62 79 20 69 6e 63 72 65 61 73 00 00 00 00 00 00 00 00 ┆ating is made by increas ┆
0x15800…15806 (172,) (0xcc,0x2b1)
0x15806…15820 69 6e 67 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 0a 20 20 20 20 20 20 ┆ing the contents of ┆
0x15820…15840 20 20 20 20 20 77 6f 72 64 20 35 20 28 69 2e 65 2e 20 31 20 73 68 69 66 74 20 35 29 20 61 6e 64 ┆ word 5 (i.e. 1 shift 5) and┆
0x15840…15860 20 77 6f 72 64 20 36 20 69 6e 20 74 68 65 20 75 73 65 72 63 61 74 2d 0a 20 20 20 20 20 20 20 20 ┆ word 6 in the usercat- ┆
0x15860…1587e 20 20 20 72 65 63 6f 72 64 20 62 79 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 ┆ record by the corresponding┆
0x1587e…15884 (0xcc,0x2b2)
0x15884…158a0 20 77 6f 72 64 73 20 69 6e 20 74 68 65 20 74 72 61 6e 73 2d 0a 20 20 20 20 20 20 20 ┆ words in the trans- ┆
0x158a0…158c0 20 20 20 20 61 63 74 69 6f 6e 2d 72 65 63 6f 72 64 2e 20 20 2a 2a 2a 2a 2a 20 20 6f 6e 6c 79 20 ┆ action-record. ***** only ┆
0x158c0…158e0 62 73 20 63 6c 61 69 6d 73 20 20 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 68 65 ┆bs claims ***** (the┆
0x158e0…158fc 20 62 69 74 20 31 20 73 68 69 66 74 20 30 20 69 6e 64 69 63 61 74 65 73 20 77 68 65 ┆ bit 1 shift 0 indicates whe┆
0x158fc…15902 (0xcc,0x2b3)
0x15902…15920 74 68 65 72 20 74 68 65 20 72 65 63 6f 72 64 20 69 73 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ther the record is ┆
0x15920…15940 20 74 6f 20 62 65 20 75 70 64 61 74 65 64 20 6f 72 20 73 69 6d 70 6c 79 20 65 78 63 68 61 6e 67 ┆ to be updated or simply exchang┆
0x15940…15960 65 64 20 62 79 20 61 20 6e 65 77 20 72 65 63 6f 72 64 29 3b 0a 0a 20 20 20 73 70 65 63 69 61 6c ┆ed by a new record); special┆
0x15960…1597a 5f 61 63 74 69 6f 6e 28 69 2f 2f 32 29 20 3a 3d 0a 20 20 20 20 20 20 69 66 20 ┆_action(i//2) := if ┆
0x1597a…15980 (0xcc,0x2b4)
0x15980…159a0 69 3d 30 20 74 68 65 6e 20 31 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 69 3d 32 20 74 68 65 ┆i=0 then 1 else if i=2 the┆
0x159a0…159c0 6e 20 32 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 69 3d 36 20 6f 72 20 69 3d 34 38 20 74 68 ┆n 2 else if i=6 or i=48 th┆
0x159c0…159e0 65 6e 20 33 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 69 3d 33 34 20 74 68 65 6e 20 34 20 65 ┆en 3 else if i=34 then 4 e┆
0x159e0…15a00 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 00 00 00 00 00 00 00 00 ┆lse 5 ┆
0x15a00…15a06 (173,) (0xcc,0x2b5)
0x15a06…15a20 20 20 20 20 3b 0a 0a 20 20 20 65 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 75 ┆ ; end initialize u┆
0x15a20…15a40 70 64 61 74 65 2d 74 61 62 6c 65 73 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 ┆pdate-tables; <* bbj 9 9 76┆
0x15a40…15a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 78 20 20 63 61 74 61 6c 6f 67 ┆ mix catalog┆
0x15a60…15a7e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e ┆s catupdate ..┆
0x15a7e…15a84 (0xcc,0x2b6)
0x15a84…15aa0 2e 34 33 2e 2e 2e 20 20 2a 3e 0a 0a 0a 69 66 20 6e 6f 6f 6c 64 63 61 74 20 20 74 68 ┆.43... *> if nooldcat th┆
0x15aa0…15ac0 65 6e 20 20 3c 2a 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 63 61 74 2e 79 65 73 20 69 73 20 ┆en <* the parameter cat.yes is ┆
0x15ac0…15ae0 73 65 74 20 2a 3e 0a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 6f 6c 64 20 75 ┆set *> begin comment no old u┆
0x15ae0…15afc 73 65 72 63 61 74 20 70 72 65 73 65 6e 74 2c 20 73 69 6d 75 6c 61 74 65 20 65 6e 64 ┆sercat present, simulate end┆
0x15afc…15b02 (0xcc,0x2b7)
0x15b02…15b20 2d 72 65 63 6f 72 64 3b 0a 20 20 20 6f 6c 64 63 61 74 2e 69 66 32 20 20 20 20 3a 3d 20 30 ┆-record; oldcat.if2 := 0┆
0x15b20…15b40 20 73 68 69 66 74 20 31 32 20 2b 20 31 32 3b 20 20 20 63 6f 6d 6d 65 6e 74 20 72 65 63 74 79 70 ┆ shift 12 + 12; comment rectyp┆
0x15b40…15b60 65 20 6f 66 20 70 72 6f 6a 2d 72 65 63 6f 72 64 3b 0a 20 20 20 6f 6c 64 63 61 74 2e 70 72 6f 6a ┆e of proj-record; oldcat.proj┆
0x15b60…15b7a 20 20 20 3a 3d 20 6d 61 78 69 6d 75 6d 3b 20 20 20 20 20 20 20 20 20 20 20 63 ┆ := maximum; c┆
0x15b7a…15b80 (0xcc,0x2b8)
0x15b80…15ba0 6f 6d 6d 65 6e 74 20 70 72 6f 6a 6e 6f 20 6f 66 20 65 6e 64 2d 72 65 63 6f 72 64 3b 0a 20 20 20 ┆omment projno of end-record; ┆
0x15ba0…15bc0 63 70 72 6f 6a 20 20 20 20 20 20 20 20 20 3a 3d 20 6d 61 78 69 6d 75 6d 3b 0a 20 20 20 63 75 73 ┆cproj := maximum; cus┆
0x15bc0…15be0 65 72 31 20 20 3a 3d 20 63 75 73 65 72 32 20 3a 3d 20 63 74 79 70 65 20 3a 3d 20 30 3b 0a 20 20 ┆er1 := cuser2 := ctype := 0; ┆
0x15be0…15c00 20 66 69 72 73 74 73 65 67 6d 20 20 20 20 20 3a 3d 20 73 74 64 5f 75 73 00 00 00 00 00 00 00 00 ┆ firstsegm := std_us ┆
0x15c00…15c06 (174,) (0xcc,0x2b9)
0x15c06…15c20 65 72 63 61 74 5f 69 6e 64 65 78 3b 0a 20 20 20 6f 6c 64 20 20 20 20 20 20 20 ┆ercat_index; old ┆
0x15c20…15c40 20 20 20 20 3a 3d 20 30 3b 0a 20 20 20 72 65 63 6f 72 64 5f 69 6e 5f 69 6e 62 75 66 20 3a 3d 20 ┆ := 0; record_in_inbuf := ┆
0x15c40…15c60 74 72 75 65 3b 0a 20 20 20 65 6e 64 0a 65 6c 73 65 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 6f 70 ┆true; end else begin op┆
0x15c60…15c7e 65 6e 28 6f 6c 64 63 61 74 2c 20 34 2c 20 3c 3a 75 73 65 72 63 61 74 3a 3e 2c 20 30 29 3b ┆en(oldcat, 4, <:usercat:>, 0);┆
0x15c7e…15c84 (0xcc,0x2ba)
0x15c84…15ca0 0a 20 20 20 66 69 72 73 74 73 65 67 6d 20 3a 3d 20 30 3b 0a 20 20 20 66 6f 72 20 69 ┆ firstsegm := 0; for i┆
0x15ca0…15cc0 3a 3d 20 69 6e 72 65 63 36 28 6f 6c 64 63 61 74 2c 20 32 29 2c 20 69 6e 72 65 63 36 28 6f 6c 64 ┆:= inrec6(oldcat, 2), inrec6(old┆
0x15cc0…15ce0 63 61 74 2c 20 32 29 20 77 68 69 6c 65 20 6f 6c 64 63 61 74 2e 69 66 32 20 3c 20 30 20 64 6f 0a ┆cat, 2) while oldcat.if2 < 0 do ┆
0x15ce0…15cfc 20 20 20 20 20 20 66 69 72 73 74 73 65 67 6d 20 3a 3d 20 66 69 72 73 74 73 65 67 6d ┆ firstsegm := firstsegm┆
0x15cfc…15d02 (0xcc,0x2bb)
0x15d02…15d20 20 2b 20 31 3b 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 6c 64 63 61 74 2c 20 30 ┆ + 1; setposition(oldcat, 0┆
0x15d20…15d40 2c 20 66 69 72 73 74 73 65 67 6d 29 3b 0a 20 20 20 63 70 72 6f 6a 20 3a 3d 20 2d 31 3b 0a 20 20 ┆, firstsegm); cproj := -1; ┆
0x15d40…15d60 20 6e 65 78 74 6f 6c 64 20 3a 3d 20 30 3b 0a 20 20 20 69 6e 72 65 63 36 28 6f 6c 64 63 61 74 2c ┆ nextold := 0; inrec6(oldcat,┆
0x15d60…15d7a 20 35 31 32 29 3b 0a 20 20 20 72 65 63 6f 72 64 5f 69 6e 5f 69 6e 62 75 66 20 ┆ 512); record_in_inbuf ┆
0x15d7a…15d80 (0xcc,0x2bc)
0x15d80…15da0 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 65 6e 64 3b 0a 0a 69 20 3a 3d 20 31 3b 20 6f 70 65 6e 28 ┆:= false; end; i := 1; open(┆
0x15da0…15dc0 74 72 61 6e 73 2c 20 34 2c 20 73 74 72 69 6e 67 28 74 72 61 6e 73 6e 61 6d 65 28 69 6e 63 72 65 ┆trans, 4, string(transname(incre┆
0x15dc0…15de0 61 73 65 28 69 29 29 29 2c 20 30 29 3b 0a 69 20 3a 3d 20 31 3b 20 6f 70 65 6e 28 76 61 72 74 72 ┆ase(i))), 0); i := 1; open(vartr┆
0x15de0…15e00 61 6e 73 2c 20 34 2c 20 73 74 72 69 6e 67 28 76 61 72 74 72 61 6e 73 6e 00 00 00 00 00 00 00 00 ┆ans, 4, string(vartransn ┆
0x15e00…15e06 (175,) (0xcc,0x2bd)
0x15e06…15e20 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 2c 20 30 29 3b 0a 0a 6e 65 ┆ame(increase(i))), 0); ne┆
0x15e20…15e40 78 74 6e 65 77 20 3a 3d 20 35 31 32 3b 0a 69 66 20 6c 65 66 74 73 69 64 65 20 74 68 65 6e 0a 20 ┆xtnew := 512; if leftside then ┆
0x15e40…15e60 20 20 62 65 67 69 6e 0a 20 20 20 69 20 3a 3d 20 31 3b 20 6f 70 65 6e 28 6e 65 77 63 61 74 2c 20 ┆ begin i := 1; open(newcat, ┆
0x15e60…15e7e 34 2c 20 73 74 72 69 6e 67 28 6e 65 77 63 61 74 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 ┆4, string(newcatname(increase(┆
0x15e7e…15e84 (0xcc,0x2be)
0x15e84…15ea0 69 29 29 29 2c 20 30 29 3b 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6e 65 77 ┆i))), 0); setposition(new┆
0x15ea0…15ec0 63 61 74 2c 20 30 2c 20 73 74 64 5f 75 73 65 72 63 61 74 5f 69 6e 64 65 78 29 3b 0a 20 20 20 65 ┆cat, 0, std_usercat_index); e┆
0x15ec0…15ee0 6e 64 3b 0a 0a 70 72 6f 6a 6c 69 73 74 20 3a 3d 20 66 61 6c 73 65 3b 20 20 63 6f 6d 6d 65 6e 74 ┆nd; projlist := false; comment┆
0x15ee0…15efc 20 74 68 65 20 69 6e 74 65 72 76 61 6c 2d 6c 69 73 74 20 6f 66 20 70 72 6f 6a 73 20 ┆ the interval-list of projs ┆
0x15efc…15f02 (0xcc,0x2bf)
0x15f02…15f20 69 73 20 6e 6f 74 20 63 72 65 61 74 65 64 20 79 65 74 3b 0a 66 69 72 73 74 70 72 6f 6a 20 ┆is not created yet; firstproj ┆
0x15f20…15f40 3a 3d 20 74 72 75 65 3b 0a 66 69 72 73 74 74 69 6d 65 20 3a 3d 20 74 72 75 65 3b 0a 74 74 79 70 ┆:= true; firsttime := true; ttyp┆
0x15f40…15f60 65 20 3a 3d 20 30 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 72 76 65 73 20 74 ┆e := 0 ; comment serves t┆
0x15f60…15f7a 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 74 72 61 6e 73 2d 7a 6f 6e ┆o initialize the trans-zon┆
0x15f7a…15f80 (0xcc,0x2c0)
0x15f80…15fa0 65 73 2e 2e 2e 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 ┆es...; <* bbj 9 9 76 ┆
0x15fa0…15fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 78 20 63 61 74 61 6c 6f 67 73 20 20 20 20 20 20 20 ┆ mix catalogs ┆
0x15fc0…15fe0 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 20 2e 2e 2e 34 34 2e 2e 2e 20 20 2a ┆ catupdate ...44... *┆
0x15fe0…16000 3e 0a 0a 0a 6e 65 78 74 5f 74 72 61 6e 73 3a 20 20 20 20 20 20 3b 20 20 00 00 00 00 00 00 00 00 ┆> next_trans: ; ┆
0x16000…16006 (176,) (0xcc,0x2c1)
0x16006…16020 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b ┆comment *************** ;┆
0x16020…16040 0a 0a 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 74 68 65 20 6e 65 78 74 20 74 72 61 6e 73 61 ┆ comment select the next transa┆
0x16040…16060 63 74 69 6f 6e 20 66 72 6f 6d 20 65 69 74 68 65 72 20 74 68 65 0a 74 72 61 6e 73 2d 7a 6f 6e 65 ┆ction from either the trans-zone┆
0x16060…1607e 20 6f 72 20 74 68 65 20 76 61 72 74 72 61 6e 73 2d 7a 6f 6e 65 2e 20 69 6e 69 74 69 61 6c ┆ or the vartrans-zone. initial┆
0x1607e…16084 (0xcc,0x2c2)
0x16084…160a0 69 7a 65 20 74 68 65 20 6d 65 72 67 69 6e 67 0a 76 61 72 69 61 62 6c 65 73 3b 0a 0a ┆ize the merging variables; ┆
0x160a0…160c0 69 66 20 66 69 72 73 74 5f 74 69 6d 65 20 6f 72 20 74 74 79 70 65 3d 34 32 20 74 68 65 6e 0a 20 ┆if first_time or ttype=42 then ┆
0x160c0…160e0 20 20 62 65 67 69 6e 0a 20 20 20 66 69 72 73 74 5f 74 69 6d 65 20 3a 3d 20 66 61 6c 73 65 3b 0a ┆ begin first_time := false; ┆
0x160e0…160fc 20 20 20 69 6e 72 65 63 36 28 76 61 72 74 72 61 6e 73 2c 20 76 61 72 6c 65 6e 67 74 ┆ inrec6(vartrans, varlengt┆
0x160fc…16102 (0xcc,0x2c3)
0x16102…16120 68 29 3b 0a 20 20 20 63 6f 6d 70 28 31 2c 31 29 20 3a 3d 20 76 61 72 74 72 61 6e 73 2e 69 ┆h); comp(1,1) := vartrans.i┆
0x16120…16140 66 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 6a 65 63 74 20 6e 75 6d 62 65 72 3b 0a 20 20 20 ┆f2; comment project number; ┆
0x16140…16160 63 6f 6d 70 28 31 2c 32 29 20 3a 3d 20 76 61 72 74 72 61 6e 73 2e 6c 67 36 3b 20 20 63 6f 6d 6d ┆comp(1,2) := vartrans.lg6; comm┆
0x16160…1617a 65 6e 74 20 75 73 65 72 6e 61 6d 65 2e 2e 2e 3b 0a 20 20 20 63 6f 6d 70 28 31 ┆ent username...; comp(1┆
0x1617a…16180 (0xcc,0x2c4)
0x16180…161a0 2c 33 29 20 3a 3d 20 76 61 72 74 72 61 6e 73 2e 6c 67 31 30 3b 0a 20 20 20 78 69 6e 66 28 31 29 ┆,3) := vartrans.lg10; xinf(1)┆
0x161a0…161c0 20 20 20 3a 3d 20 76 61 72 74 72 61 6e 73 2e 69 66 31 32 20 65 78 74 72 61 63 74 20 34 3b 20 20 ┆ := vartrans.if12 extract 4; ┆
0x161c0…161e0 63 6f 6d 6d 65 6e 74 20 75 70 64 61 74 65 69 6e 66 3b 0a 20 20 20 63 6f 6d 70 28 31 2c 34 29 20 ┆comment updateinf; comp(1,4) ┆
0x161e0…16200 3a 3d 20 76 61 72 74 72 61 6e 73 2e 62 61 73 69 73 20 73 68 69 66 74 20 00 00 00 00 00 00 00 00 ┆:= vartrans.basis shift ┆
0x16200…16206 (177,) (0xcc,0x2c5)
0x16206…16220 28 2d 31 32 29 3b 20 63 6f 6d 6d 65 6e 74 20 72 65 63 6f 72 64 74 79 70 65 3b ┆(-12); comment recordtype;┆
0x16220…16240 0a 20 20 20 65 6e 64 3b 0a 0a 69 66 20 74 74 79 70 65 20 3c 3e 20 34 32 20 74 68 65 6e 0a 20 20 ┆ end; if ttype <> 42 then ┆
0x16240…16260 20 62 65 67 69 6e 0a 20 20 20 69 6e 72 65 63 36 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 ┆ begin inrec6(trans, maxlengt┆
0x16260…1627e 68 29 3b 0a 20 20 20 63 6f 6d 70 28 32 2c 31 29 20 3a 3d 20 74 72 61 6e 73 2e 69 66 32 3b ┆h); comp(2,1) := trans.if2;┆
0x1627e…16284 (0xcc,0x2c6)
0x16284…162a0 20 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 6a 65 63 74 20 6e 75 6d 62 65 72 3b 0a 20 20 ┆ comment project number; ┆
0x162a0…162c0 20 63 6f 6d 70 28 32 2c 32 29 20 3a 3d 20 74 72 61 6e 73 2e 6c 67 36 3b 20 20 63 6f 6d 6d 65 6e ┆ comp(2,2) := trans.lg6; commen┆
0x162c0…162e0 74 20 75 73 65 72 6e 61 6d 65 2e 2e 2e 3b 0a 20 20 20 63 6f 6d 70 28 32 2c 33 29 20 3a 3d 20 74 ┆t username...; comp(2,3) := t┆
0x162e0…162fc 72 61 6e 73 2e 6c 67 31 30 3b 0a 20 20 20 78 69 6e 66 28 32 29 20 20 20 3a 3d 20 74 ┆rans.lg10; xinf(2) := t┆
0x162fc…16302 (0xcc,0x2c7)
0x16302…16320 72 61 6e 73 2e 69 66 31 32 20 65 78 74 72 61 63 74 20 34 3b 20 20 63 6f 6d 6d 65 6e 74 20 ┆rans.if12 extract 4; comment ┆
0x16320…16340 75 70 64 61 74 65 69 6e 66 3b 0a 20 20 20 63 6f 6d 70 28 32 2c 34 29 20 3a 3d 20 74 72 61 6e 73 ┆updateinf; comp(2,4) := trans┆
0x16340…16360 2e 62 61 73 69 73 20 73 68 69 66 74 20 28 2d 31 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 72 65 63 ┆.basis shift (-12); comment rec┆
0x16360…1637a 6f 72 64 74 79 70 65 3b 0a 20 20 20 65 6e 64 3b 0a 0a 69 20 3a 3d 20 31 3b 20 ┆ordtype; end; i := 1; ┆
0x1637a…16380 (0xcc,0x2c8)
0x16380…163a0 20 63 6f 6d 6d 65 6e 74 20 73 75 70 70 6f 73 65 20 76 61 72 74 72 61 6e 73 20 77 69 6e 73 2e 2e ┆ comment suppose vartrans wins..┆
0x163a0…163c0 2e 3b 0a 0a 66 6f 72 20 6c 65 76 65 6c 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆.; for level := 1 step 1 until ┆
0x163c0…163e0 34 20 64 6f 0a 20 20 20 69 66 20 63 6f 6d 70 28 31 2c 6c 65 76 65 6c 29 20 3c 20 63 6f 6d 70 28 ┆4 do if comp(1,level) < comp(┆
0x163e0…16400 32 2c 6c 65 76 65 6c 29 20 74 68 65 6e 20 67 6f 74 6f 20 77 69 6e 6e 65 00 00 00 00 00 00 00 00 ┆2,level) then goto winne ┆
0x16400…16406 (178,) (0xcc,0x2c9)
0x16406…16420 72 20 65 6c 73 65 0a 20 20 20 69 66 20 63 6f 6d 70 28 31 2c 6c 65 76 65 6c 29 ┆r else if comp(1,level)┆
0x16420…16440 20 3e 20 63 6f 6d 70 28 32 2c 6c 65 76 65 6c 29 20 74 68 65 6e 20 6c 65 76 65 6c 20 3a 3d 20 35 ┆ > comp(2,level) then level := 5┆
0x16440…16460 3b 0a 0a 69 20 3a 3d 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 76 61 72 74 72 61 6e 73 20 6c 6f 73 ┆; i := 2; comment vartrans los┆
0x16460…1647e 74 20 74 68 65 20 63 6f 6d 70 65 74 69 74 69 6f 6e 2e 2e 2e 3b 0a 0a 77 69 6e 6e 65 72 3a ┆t the competition...; winner:┆
0x1647e…16484 (0xcc,0x2ca)
0x16484…164a0 20 20 3b 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 3b 0a 0a 74 70 72 6f 6a 20 3a ┆ ; comment ******; tproj :┆
0x164a0…164c0 3d 20 63 6f 6d 70 28 69 2c 31 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 6a 65 63 74 20 6e 75 ┆= comp(i,1); comment project nu┆
0x164c0…164e0 6d 62 65 72 3b 0a 74 75 73 65 72 31 3a 3d 20 63 6f 6d 70 28 69 2c 32 29 3b 20 20 63 6f 6d 6d 65 ┆mber; tuser1:= comp(i,2); comme┆
0x164e0…164fc 6e 74 20 75 73 65 72 6e 61 6d 65 2e 2e 2e 3b 0a 74 75 73 65 72 32 3a 3d 20 63 6f 6d ┆nt username...; tuser2:= com┆
0x164fc…16502 (0xcc,0x2cb)
0x16502…16520 70 28 69 2c 33 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 2e 2e 2e 2e 20 3b 0a 74 74 79 70 65 20 ┆p(i,3); comment .... ; ttype ┆
0x16520…16540 3a 3d 20 63 6f 6d 70 28 69 2c 34 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 72 65 63 6f 72 64 74 79 70 ┆:= comp(i,4); comment recordtyp┆
0x16540…16560 65 3b 0a 0a 61 62 73 69 6e 74 3a 3d 20 78 69 6e 66 28 69 29 20 65 78 74 72 61 63 74 20 31 20 3d ┆e; absint:= xinf(i) extract 1 =┆
0x16560…1657a 20 30 3b 0a 64 65 6c 65 74 65 3a 3d 20 78 69 6e 66 28 69 29 20 73 68 69 66 74 ┆ 0; delete:= xinf(i) shift┆
0x1657a…16580 (0xcc,0x2cc)
0x16580…165a0 20 28 2d 31 29 20 3d 20 30 3b 0a 63 72 65 61 74 65 3a 3d 20 78 69 6e 66 28 69 29 20 73 68 69 66 ┆ (-1) = 0; create:= xinf(i) shif┆
0x165a0…165c0 74 20 28 2d 31 29 20 3d 20 31 3b 0a 0a 6e 6f 64 65 6c 65 74 65 20 3a 3d 20 74 72 75 65 3b 0a 61 ┆t (-1) = 1; nodelete := true; a┆
0x165c0…165e0 66 74 65 72 5f 64 65 6c 65 74 65 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 63 6f 6d 6d 65 6e 74 20 ┆fter_delete := false; comment ┆
0x165e0…16600 6e 6f 20 64 65 6c 65 74 69 6e 67 20 69 73 20 69 6e 20 70 72 6f 67 72 65 00 00 00 00 00 00 00 00 ┆no deleting is in progre ┆
0x16600…16606 (179,) (0xcc,0x2cd)
0x16606…16620 73 73 2e 2e 2e 3b 0a 63 6f 6d 6d 65 6e 74 20 69 69 66 66 20 75 70 64 61 74 65 ┆ss...; comment iiff update┆
0x16620…16640 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 63 61 73 65 20 69 20 6f 66 20 28 3c 3a ┆st then write(out, case i of (<:┆
0x16640…16660 3c 31 30 3e 76 61 72 3a 3e 2c 20 3c 3a 3c 31 30 3e 74 72 20 3a 3e 29 2c 20 74 70 72 6f 6a 2c 20 ┆<10>var:>, <:<10>tr :>), tproj, ┆
0x16660…1667e 74 74 79 70 65 2c 20 78 69 6e 66 28 69 29 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 ┆ttype, xinf(i)); <* bbj 9┆
0x1667e…16684 (0xcc,0x2ce)
0x16684…166a0 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 78 ┆ 9 76 mix┆
0x166a0…166c0 20 63 61 74 61 6c 6f 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 ┆ catalogs catupdat┆
0x166c0…166e0 65 20 20 2e 2e 2e 34 35 2e 2e 2e 20 20 2a 3e 0a 0a 63 6f 6d 70 61 72 65 5f 73 74 61 72 74 3a 20 ┆e ...45... *> compare_start: ┆
0x166e0…166fc 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; comment ***************┆
0x166fc…16702 (0xcc,0x2cf)
0x16702…16720 20 20 3b 0a 0a 6c 65 76 65 6c 20 3a 3d 20 31 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 ┆ ; level := 1; comment star┆
0x16720…16740 74 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 61 74 20 70 72 6f 6a 65 63 74 2d 6c 65 76 65 ┆t the comparison at project-leve┆
0x16740…16760 6c 3b 0a 0a 63 6f 6d 70 61 72 65 3a 20 20 20 20 20 20 20 20 20 3b 20 20 63 6f 6d 6d 65 6e 74 0a ┆l; compare: ; comment ┆
0x16760…1677a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b 0a 0a 63 6f 6d 6d 65 6e ┆*************** ; commen┆
0x1677a…16780 (0xcc,0x2d0)
0x16780…167a0 74 20 70 72 6f 63 65 65 64 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 61 74 20 74 68 65 20 ┆t proceed the comparison at the ┆
0x167a0…167c0 63 75 72 72 65 6e 74 20 6c 65 76 65 6c 2e 2e 2e 3b 0a 0a 63 61 74 6e 6f 20 20 20 20 3a 3d 20 63 ┆current level...; catno := c┆
0x167c0…167e0 61 73 65 20 6c 65 76 65 6c 20 6f 66 20 28 63 70 72 6f 6a 2c 20 63 75 73 65 72 31 2c 20 63 75 73 ┆ase level of (cproj, cuser1, cus┆
0x167e0…16800 65 72 32 2c 20 63 74 79 70 65 2c 20 63 6b 69 74 31 2c 20 63 6b 69 74 32 00 00 00 00 00 00 00 00 ┆er2, ctype, ckit1, ckit2 ┆
0x16800…16806 (180,) (0xcc,0x2d1)
0x16806…16820 29 3b 20 3c 2a 20 63 75 72 72 65 6e 74 20 72 65 63 6f 72 64 2d 76 61 72 69 61 ┆); <* current record-varia┆
0x16820…16840 62 6c 65 73 20 2a 3e 0a 74 72 61 6e 73 6e 6f 20 20 3a 3d 20 63 61 73 65 20 6c 65 76 65 6c 20 6f ┆bles *> transno := case level o┆
0x16840…16860 66 20 28 74 70 72 6f 6a 2c 20 74 75 73 65 72 31 2c 20 74 75 73 65 72 32 2c 20 74 74 79 70 65 2c ┆f (tproj, tuser1, tuser2, ttype,┆
0x16860…1687e 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 74 72 ┆ tr┆
0x1687e…16884 (0xcc,0x2d2)
0x16884…168a0 61 6e 73 2e 72 65 63 2e 6b 69 74 6e 61 6d 65 31 2c 20 74 72 61 6e 73 2e 72 65 63 2e ┆ans.rec.kitname1, trans.rec.┆
0x168a0…168c0 6b 69 74 6e 61 6d 65 32 29 3b 20 3c 2a 20 72 65 63 6f 72 64 20 66 72 6f 6d 20 74 72 61 6e 73 20 ┆kitname2); <* record from trans ┆
0x168c0…168e0 6f 72 20 76 61 72 74 72 61 6e 73 20 2a 3e 0a 63 6f 70 79 74 79 70 65 20 3a 3d 20 63 61 73 65 20 ┆or vartrans *> copytype := case ┆
0x168e0…168fc 6c 65 76 65 6c 20 6f 66 20 28 32 2c 20 34 2c 20 34 2c 20 31 30 30 30 2c 20 31 30 30 ┆level of (2, 4, 4, 1000, 100┆
0x168fc…16902 (0xcc,0x2d3)
0x16902…16920 30 2c 20 31 30 30 30 29 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 69 69 66 66 20 75 70 64 61 74 65 ┆0, 1000); comment iiff update┆
0x16920…16940 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 63 61 74 3a 3e 2c 20 ┆st then write(out, <:<10>cat:>, ┆
0x16940…16960 6c 65 76 65 6c 2c 20 63 61 74 6e 6f 2c 20 74 72 61 6e 73 6e 6f 29 3b 0a 0a 0a 0a 0a 69 66 20 63 ┆level, catno, transno); if c┆
0x16960…1697a 61 74 6e 6f 20 3c 20 74 72 61 6e 73 6e 6f 20 74 68 65 6e 0a 20 20 20 62 65 67 ┆atno < transno then beg┆
0x1697a…16980 (0xcc,0x2d4)
0x16980…169a0 69 6e 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 63 6f 72 64 ┆in comment the current record┆
0x169a0…169c0 20 69 73 20 63 6f 6d 70 6c 65 74 65 6c 79 20 75 70 64 61 74 65 64 2e 0a 20 20 20 20 20 20 20 20 ┆ is completely updated. ┆
0x169c0…169e0 20 20 20 63 6f 70 79 20 74 68 65 20 75 73 65 72 63 61 74 2c 20 75 6e 74 69 6c 20 61 20 72 65 63 ┆ copy the usercat, until a rec┆
0x169e0…16a00 6f 72 64 20 77 69 74 68 20 72 65 63 6f 72 64 74 79 70 65 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ord with recordtype ┆
0x16a00…16a06 (181,) (0xcc,0x2d5)
0x16a06…16a20 20 20 20 20 20 20 20 6c 65 73 73 20 74 68 61 6e 20 2e 2e 63 6f 70 79 74 79 70 ┆ less than ..copytyp┆
0x16a20…16a40 65 2e 2e 20 69 73 20 6d 65 74 3b 0a 0a 63 6f 70 79 3a 0a 20 20 20 69 66 20 6e 6f 64 65 6c 65 74 ┆e.. is met; copy: if nodelet┆
0x16a40…16a60 65 20 61 6e 64 20 72 65 63 6f 72 64 5f 69 6e 5f 69 6e 62 75 66 20 74 68 65 6e 20 6f 75 74 70 75 ┆e and record_in_inbuf then outpu┆
0x16a60…16a7e 74 28 6f 6c 64 63 61 74 2c 20 6f 6c 64 29 3b 0a 20 20 20 69 66 20 6e 65 78 74 6e 65 77 20 ┆t(oldcat, old); if nextnew ┆
0x16a7e…16a84 (0xcc,0x2d6)
0x16a84…16aa0 3c 20 35 31 32 20 61 6e 64 20 70 72 69 6e 74 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 ┆< 512 and print > 0 then ┆
0x16aa0…16ac0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 72 69 6e 74 20 74 68 65 20 63 75 72 72 65 ┆ begin comment print the curre┆
0x16ac0…16ae0 6e 74 20 72 65 63 6f 72 64 2e 2e 2e 3b 0a 20 20 20 20 20 20 69 66 20 6e 6f 64 65 6c 65 74 65 20 ┆nt record...; if nodelete ┆
0x16ae0…16afc 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆then begin ┆
0x16afc…16b02 (0xcc,0x2d7)
0x16b02…16b20 20 70 72 69 6e 74 72 65 63 28 6e 65 77 63 61 74 2e 6e 65 77 2c 20 63 70 72 6f 6a 29 3b 0a ┆ printrec(newcat.new, cproj); ┆
0x16b20…16b40 20 20 20 20 20 20 20 20 20 69 66 20 70 72 69 6e 74 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 ┆ if print extract 1 = 1 ┆
0x16b40…16b60 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 2d 2d 2d 20 75 70 64 61 74 65 64 20 2d ┆then write(out, <: --- updated -┆
0x16b60…16b7a 2d 2d 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆--:>); end ┆
0x16b7a…16b80 (0xcc,0x2d8)
0x16b80…16ba0 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 70 72 69 ┆else begin pri┆
0x16ba0…16bc0 6e 74 72 65 63 28 6f 6c 64 63 61 74 2e 6f 6c 64 2c 20 63 70 72 6f 6a 29 3b 0a 20 20 20 20 20 20 ┆ntrec(oldcat.old, cproj); ┆
0x16bc0…16be0 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 2d 2d 2d 20 64 65 6c 65 74 65 64 20 2d 2d 2d ┆ write(out, <: --- deleted ---┆
0x16be0…16c00 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆:>); end; ┆
0x16c00…16c06 (182,) (0xcc,0x2d9)
0x16c06…16c20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 ┆ write(out, <:<10>:>); ┆
0x16c20…16c40 20 20 20 70 72 69 6e 74 20 3a 3d 20 70 72 69 6e 74 20 73 68 69 66 74 20 28 2d 31 29 20 73 68 69 ┆ print := print shift (-1) shi┆
0x16c40…16c60 66 74 20 31 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 76 65 20 74 68 ┆ft 1; comment remove th┆
0x16c60…16c7e 65 20 75 70 64 61 74 65 2d 62 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 66 6f ┆e update-bit; end; fo┆
0x16c7e…16c84 (0xcc,0x2da)
0x16c84…16ca0 72 20 6f 6c 64 20 3a 3d 20 6e 65 78 74 6f 6c 64 20 77 68 69 6c 65 20 6f 6c 64 63 61 ┆r old := nextold while oldca┆
0x16ca0…16cc0 74 2e 6f 6c 64 2e 69 66 32 20 3d 20 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆t.old.if2 = 0 do begin ┆
0x16cc0…16ce0 20 20 20 6e 65 78 74 6f 6c 64 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 6f 6c ┆ nextold := 0; inrec6(ol┆
0x16ce0…16cfc 64 63 61 74 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 6e 65 ┆dcat, 512); end; ne┆
0x16cfc…16d02 (0xcc,0x2db)
0x16d02…16d20 78 74 6f 6c 64 20 3a 3d 20 6f 6c 64 63 61 74 2e 6f 6c 64 2e 69 66 32 20 65 78 74 72 61 63 ┆xtold := oldcat.old.if2 extrac┆
0x16d20…16d40 74 20 31 32 20 2b 20 6f 6c 64 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 74 65 70 20 6e ┆t 12 + old; comment step n┆
0x16d40…16d60 65 78 74 6f 6c 64 20 75 70 20 70 6f 69 6e 74 69 6e 67 20 61 74 20 6e 65 78 74 20 72 65 63 6f 72 ┆extold up pointing at next recor┆
0x16d60…16d7a 64 2e 2e 2e 3b 0a 20 20 20 63 74 79 70 65 20 20 20 3a 3d 20 6f 6c 64 63 61 74 ┆d...; ctype := oldcat┆
0x16d7a…16d80 (0xcc,0x2dc)
0x16d80…16da0 2e 6f 6c 64 2e 69 66 32 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 20 20 72 65 63 6f 72 64 5f ┆.old.if2 shift (-12); record_┆
0x16da0…16dc0 69 6e 5f 69 6e 62 75 66 20 3a 3d 20 74 72 75 65 3b 0a 0a 20 20 20 69 66 20 63 74 79 70 65 20 3e ┆in_inbuf := true; if ctype >┆
0x16dc0…16de0 3d 20 63 6f 70 79 74 79 70 65 20 74 68 65 6e 20 67 6f 74 6f 20 63 6f 70 79 3b 0a 0a 0a 63 6f 6d ┆= copytype then goto copy; com┆
0x16de0…16e00 6d 65 6e 74 20 74 68 65 20 70 72 65 73 65 6e 74 20 72 65 63 6f 72 64 20 00 00 00 00 00 00 00 00 ┆ment the present record ┆
0x16e00…16e06 (183,) (0xcc,0x2dd)
0x16e06…16e20 69 73 20 74 6f 20 62 65 20 73 65 70 65 72 61 74 6c 79 20 63 6f 6e 73 69 64 65 ┆is to be seperatly conside┆
0x16e20…16e40 72 65 64 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 ┆red; <* bbj 9 9 76 ┆
0x16e40…16e60 20 20 20 20 20 20 20 20 20 20 20 6d 69 78 20 63 61 74 61 6c 6f 67 73 20 20 20 20 20 20 20 20 20 ┆ mix catalogs ┆
0x16e60…16e7e 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 20 2e 2e 2e 34 36 2e 2e 2e 20 20 2a 3e ┆ catupdate ...46... *>┆
0x16e7e…16e84 (0xcc,0x2de)
0x16e84…16ea0 0a 0a 20 20 20 69 66 20 63 74 79 70 65 20 3c 20 28 63 61 73 65 20 6c 65 76 65 6c 20 ┆ if ctype < (case level ┆
0x16ea0…16ec0 6f 66 20 28 20 30 2c 20 32 2c 20 32 2c 20 34 2c 20 34 2c 20 34 29 29 20 74 68 65 6e 0a 20 20 20 ┆of ( 0, 2, 2, 4, 4, 4)) then ┆
0x16ec0…16ee0 20 20 20 67 6f 74 6f 20 70 6f 73 73 69 62 6c 79 5f 6e 65 77 5f 72 65 63 6f 72 64 3b 0a 20 20 20 ┆ goto possibly_new_record; ┆
0x16ee0…16efc 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 6d 65 61 6e 73 2c 20 74 68 61 74 20 ┆ comment this means, that ┆
0x16efc…16f02 (0xcc,0x2df)
0x16f02…16f20 74 68 65 20 6e 65 78 74 20 70 72 6f 6a 65 63 74 2d 72 65 63 6f 72 64 20 6f 72 0a 20 20 20 ┆the next project-record or ┆
0x16f20…16f40 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 75 73 65 72 2d 72 65 63 6f 72 64 20 69 73 20 6d ┆ next user-record is m┆
0x16f40…16f60 65 74 20 28 69 2e 65 2e 20 61 20 73 6f 72 74 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆et (i.e. a sort of ┆
0x16f60…16f7a 20 65 6e 64 2d 73 69 74 75 61 74 69 6f 6e 20 68 61 73 20 63 6f 6d 65 20 75 70 ┆ end-situation has come up┆
0x16f7a…16f80 (0xcc,0x2e0)
0x16f80…16fa0 2e 2e 2e 29 3b 0a 0a 0a 20 20 20 63 61 73 65 20 6c 65 76 65 6c 20 6f 66 0a 20 20 20 62 65 67 69 ┆...); case level of begi┆
0x16fa0…16fc0 6e 0a 0a 6c 65 76 65 6c 31 3a 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 6a 65 63 74 ┆n level1: begin comment project┆
0x16fc0…16fe0 6e 6f 20 77 61 73 20 6e 6f 74 20 6f 6b 2c 20 74 72 79 20 74 68 69 73 20 6f 6e 65 3b 0a 20 20 20 ┆no was not ok, try this one; ┆
0x16fe0…17000 20 20 20 20 20 63 70 72 6f 6a 20 3a 3d 20 6f 6c 64 63 61 74 2e 6f 6c 64 00 00 00 00 00 00 00 00 ┆ cproj := oldcat.old ┆
0x17000…17006 (184,) (0xcc,0x2e1)
0x17006…17020 2e 70 72 6f 6a 3b 0a 20 20 20 20 20 20 20 20 63 75 73 65 72 31 20 3a 3d 20 63 ┆.proj; cuser1 := c┆
0x17020…17040 75 73 65 72 32 20 3a 3d 20 63 74 79 70 65 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 66 69 72 ┆user2 := ctype := 0; fir┆
0x17040…17060 73 74 70 72 6f 6a 20 3a 3d 20 66 61 6c 73 65 3b 0a 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆stproj := false; commen┆
0x17060…1707e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 69 6e 74 65 72 76 61 6c 2d 70 72 6f 63 65 64 75 72 ┆t initialize interval-procedur┆
0x1707e…17084 (0xcc,0x2e2)
0x17084…170a0 65 73 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 6f ┆es...; getposition(o┆
0x170a0…170c0 6c 64 63 61 74 2c 20 30 2c 20 70 72 6f 6a 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 70 72 6f ┆ldcat, 0, projsegm); pro┆
0x170c0…170e0 6a 72 65 6c 20 3a 3d 20 6e 65 78 74 6f 6c 64 3b 0a 20 20 20 20 20 20 20 20 66 69 72 73 74 66 72 ┆jrel := nextold; firstfr┆
0x170e0…170fc 65 65 20 3a 3d 20 75 73 65 72 73 74 61 72 74 3b 0a 20 20 20 20 20 20 20 20 70 72 6f ┆ee := userstart; pro┆
0x170fc…17102 (0xcc,0x2e3)
0x17102…17120 6a 6c 6f 77 65 72 20 3a 3d 20 6f 6c 64 63 61 74 2e 6f 6c 64 2e 63 6c 6f 77 65 72 3b 0a 20 ┆jlower := oldcat.old.clower; ┆
0x17120…17140 20 20 20 20 20 20 20 70 72 6f 6a 75 70 70 65 72 20 3a 3d 20 6f 6c 64 63 61 74 2e 6f 6c 64 2e 63 ┆ projupper := oldcat.old.c┆
0x17140…17160 75 70 70 65 72 3b 0a 20 20 20 20 20 20 20 20 6e 65 77 70 72 6f 6a 20 3a 3d 20 75 73 65 72 6c 69 ┆upper; newproj := userli┆
0x17160…1717a 73 74 20 3a 3d 20 66 61 6c 73 65 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 20 ┆st := false; end ┆
0x1717a…17180 (0xcc,0x2e4)
0x17180…171a0 6c 65 76 65 6c 31 3b 0a 0a 6c 65 76 65 6c 32 3a 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 ┆level1; level2: begin comment p┆
0x171a0…171c0 72 6f 6a 65 63 74 20 6f 6b 2c 20 75 73 65 72 20 6e 6f 74 20 6f 6b 2c 20 74 72 79 20 74 68 69 73 ┆roject ok, user not ok, try this┆
0x171c0…171e0 20 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 63 75 73 65 72 31 20 3a 3d 20 6f 6c 64 63 61 74 2e ┆ user; cuser1 := oldcat.┆
0x171e0…17200 6f 6c 64 2e 75 73 65 72 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 63 00 00 00 00 00 00 00 00 ┆old.username1; c ┆
0x17200…17206 (185,) (0xcc,0x2e5)
0x17206…17220 75 73 65 72 32 20 3a 3d 20 6f 6c 64 63 61 74 2e 6f 6c 64 2e 75 73 65 72 6e 61 ┆user2 := oldcat.old.userna┆
0x17220…17240 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 6c 6f 77 65 72 69 6e 74 20 3a 3d 20 6f 6c 64 63 61 74 2e ┆me2; lowerint := oldcat.┆
0x17240…17260 6f 6c 64 2e 63 73 74 61 72 74 3b 0a 20 20 20 20 20 20 20 20 75 70 70 65 72 69 6e 74 20 3a 3d 20 ┆old.cstart; upperint := ┆
0x17260…1727e 6f 6c 64 63 61 74 2e 6f 6c 64 2e 63 77 69 64 74 68 20 2a 20 6f 6c 64 63 61 74 2e 6f 6c 64 ┆oldcat.old.cwidth * oldcat.old┆
0x1727e…17284 (0xcc,0x2e6)
0x17284…172a0 2e 63 6a 6f 62 73 20 2b 20 6c 6f 77 65 72 69 6e 74 20 2d 20 31 3b 0a 20 20 20 20 20 ┆.cjobs + lowerint - 1; ┆
0x172a0…172c0 20 20 20 65 6e 64 3b 0a 0a 6c 65 76 65 6c 33 3a 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 ┆ end; level3: begin comment s┆
0x172c0…172e0 65 63 6f 6e 64 20 70 61 72 74 20 6f 66 20 75 73 65 72 6e 61 6d 65 20 6e 6f 74 20 6f 6b 2c 20 74 ┆econd part of username not ok, t┆
0x172e0…172fc 72 79 20 74 68 69 73 20 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 6c 65 76 65 6c 20 ┆ry this user; level ┆
0x172fc…17302 (0xcc,0x2e7)
0x17302…17320 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 65 76 65 6c 32 3b 0a 20 20 20 ┆:= 2; goto level2; ┆
0x17320…17340 20 20 20 20 20 65 6e 64 3b 0a 0a 6c 65 76 65 6c 34 3a 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ end; level4: begin comment┆
0x17340…17360 20 70 72 6f 6a 65 63 74 20 61 6e 64 20 75 73 65 72 20 6f 6b 2c 20 72 65 63 6f 72 64 74 79 70 65 ┆ project and user ok, recordtype┆
0x17360…1737a 20 6e 6f 74 20 6f 6b 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ not ok. ┆
0x1737a…17380 (0xcc,0x2e8)
0x17380…173a0 20 20 20 20 20 74 72 79 20 74 68 69 73 20 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆ try this record; en┆
0x173a0…173c0 64 3b 0a 0a 6c 65 76 65 6c 35 3a 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 69 72 73 74 20 ┆d; level5: begin comment first ┆
0x173c0…173e0 70 61 72 74 20 6f 66 20 6b 69 74 6e 61 6d 65 20 69 6e 20 72 65 63 6f 72 64 20 63 6f 6e 63 65 72 ┆part of kitname in record concer┆
0x173e0…17400 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ning ┆
0x17400…17406 (186,) (0xcc,0x2e9)
0x17406…17420 20 20 20 70 72 69 76 61 74 65 20 6b 69 74 20 69 73 20 6e 6f 74 20 6f 6b 2c 20 ┆ private kit is not ok, ┆
0x17420…17440 74 72 79 20 74 68 69 73 20 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 6c 65 76 65 6c 20 3a ┆try this record; level :┆
0x17440…17460 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 6c 65 76 65 6c 36 3a 20 62 65 67 69 6e ┆= 4; end; level6: begin┆
0x17460…1747e 20 63 6f 6d 6d 65 6e 74 20 73 65 63 6f 6e 64 20 70 61 72 74 20 6f 66 20 6b 69 74 6e 61 6d ┆ comment second part of kitnam┆
0x1747e…17484 (0xcc,0x2ea)
0x17484…174a0 65 20 6e 6f 74 20 6f 6b 2c 20 74 72 79 20 74 68 69 73 20 72 65 63 6f 72 64 3b 0a 20 ┆e not ok, try this record; ┆
0x174a0…174c0 20 20 20 20 20 20 20 6c 65 76 65 6c 20 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ level := 4; end; ┆
0x174c0…174e0 0a 20 20 20 65 6e 64 20 6c 65 76 65 6c 5f 63 61 73 65 3b 0a 0a 20 20 20 67 6f 74 6f 20 63 6f 6d ┆ end level_case; goto com┆
0x174e0…174fc 70 61 72 65 3b 20 63 6f 6d 6d 65 6e 74 20 69 2e 65 2e 20 74 65 73 74 20 77 69 74 68 ┆pare; comment i.e. test with┆
0x174fc…17502 (0xcc,0x2eb)
0x17502…17520 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 65 76 65 6c 2e 2e 2e 3b 0a 0a 20 20 20 65 6e 64 ┆ the current level...; end┆
0x17520…17540 20 63 61 74 6e 6f 3c 74 72 61 6e 73 6e 6f 3b 0a 0a 0a 0a 69 66 20 63 61 74 6e 6f 20 3d 20 74 72 ┆ catno<transno; if catno = tr┆
0x17540…17560 61 6e 73 6e 6f 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 70 ┆ansno then begin comment p┆
0x17560…1757a 72 6f 63 65 65 64 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 6e 20 61 ┆roceed the comparison in a┆
0x1757a…17580 (0xcc,0x2ec)
0x17580…175a0 6c 6c 20 6c 65 76 65 6c 73 2e 2e 2e 3b 0a 0a 20 20 20 6c 65 76 65 6c 20 3a 3d 20 6c 65 76 65 6c ┆ll levels...; level := level┆
0x175a0…175c0 20 2b 20 31 3b 0a 20 20 20 69 66 20 6c 65 76 65 6c 20 3c 3d 20 34 20 74 68 65 6e 20 67 6f 74 6f ┆ + 1; if level <= 4 then goto┆
0x175c0…175e0 20 63 6f 6d 70 61 72 65 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 61 74 20 74 68 69 73 20 70 6f 69 6e 74 ┆ compare; comment at this point┆
0x175e0…17600 20 70 72 6f 6a 65 63 74 6e 75 6d 62 65 72 2c 20 75 73 65 72 6e 61 6d 65 00 00 00 00 00 00 00 00 ┆ projectnumber, username ┆
0x17600…17606 (187,) (0xcc,0x2ed)
0x17606…17620 20 61 6e 64 20 72 65 63 6f 72 64 74 79 70 65 20 69 73 20 6f 6b 3b 20 0a 0c 0a ┆ and recordtype is ok; ┆
0x17620…17640 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆<* bbj 9 9 76 ┆
0x17640…17660 20 20 20 20 6d 69 78 20 63 61 74 61 6c 6f 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 ┆ mix catalogs c┆
0x17660…1767e 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 34 37 2e 2e 2e 20 20 2a 3e 0a 0a 0a 20 20 20 63 61 ┆atupdate ...47... *> ca┆
0x1767e…17684 (0xcc,0x2ee)
0x17684…176a0 73 65 20 73 70 65 63 69 61 6c 5f 61 63 74 69 6f 6e 28 63 74 79 70 65 2f 2f 32 29 20 ┆se special_action(ctype//2) ┆
0x176a0…176c0 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 61 63 74 69 31 3a 20 20 62 65 67 69 6e 20 63 6f ┆of begin acti1: begin co┆
0x176c0…176e0 6d 6d 65 6e 74 20 63 74 79 70 65 20 3d 20 30 2e 2e 2e 20 70 72 6f 6a 65 63 74 2d 72 65 63 6f 72 ┆mment ctype = 0... project-recor┆
0x176e0…176fc 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 63 70 72 6f 6a 20 3d 20 6d 61 78 69 6d 75 ┆d; if cproj = maximu┆
0x176fc…17702 (0xcc,0x2ef)
0x17702…17720 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆m then begin ┆
0x17720…17740 20 20 20 20 20 6f 75 74 70 75 74 28 6f 6c 64 63 61 74 2c 20 6f 6c 64 29 3b 20 20 63 6f 6d 6d 65 ┆ output(oldcat, old); comme┆
0x17740…17760 6e 74 20 65 6e 64 2d 72 65 63 6f 72 64 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆nt end-record...; got┆
0x17760…1777a 6f 20 66 69 6e 69 73 75 70 64 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆o finisupdate; ┆
0x1777a…17780 (0xcc,0x2f0)
0x17780…177a0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 74 65 73 74 63 72 65 61 74 65 3b 0a 20 20 ┆end; goto testcreate; ┆
0x177a0…177c0 20 20 20 20 20 20 65 6e 64 3b 0a 0a 61 63 74 69 32 3a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ end; acti2: begin commen┆
0x177c0…177e0 74 20 63 74 79 70 65 20 3d 20 32 2e 2e 2e 20 75 73 65 72 2d 72 65 63 6f 72 64 3b 0a 0a 74 65 73 ┆t ctype = 2... user-record; tes┆
0x177e0…17800 74 63 72 65 61 74 65 3a 20 69 66 20 63 72 65 61 74 65 20 74 68 65 6e 20 00 00 00 00 00 00 00 00 ┆tcreate: if create then ┆
0x17800…17806 (188,) (0xcc,0x2f1)
0x17806…17820 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 65 78 69 73 74 69 6e 67 3a 3e 29 ┆update_alarm(<:existing:>)┆
0x17820…17840 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 64 65 6c 65 74 65 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆; if delete then ┆
0x17840…17860 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 75 73 65 72 31 20 ┆ begin if cuser1 ┆
0x17860…1787e 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆= 0 then begin c┆
0x1787e…17884 (0xcc,0x2f2)
0x17884…178a0 6f 6d 6d 65 6e 74 20 64 65 6c 65 74 65 20 70 72 6f 6a 65 63 74 20 75 6e 74 69 6c 20 ┆omment delete project until ┆
0x178a0…178c0 6e 65 78 74 20 70 72 6f 6a 2d 72 65 63 6f 72 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆next proj-record; ┆
0x178c0…178e0 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 70 72 6f 70 65 72 20 69 6e 74 65 72 76 61 6c 2e 2e ┆ comment check proper interval..┆
0x178e0…178fc 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 2e 72 65 ┆.; if trans.re┆
0x178fc…17902 (0xcc,0x2f3)
0x17902…17920 63 2e 63 6c 6f 77 65 72 20 3c 3e 20 70 72 6f 6a 6c 6f 77 65 72 20 6f 72 0a 20 20 20 20 20 ┆c.clower <> projlower or ┆
0x17920…17940 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 2e 72 65 63 2e 63 75 70 70 65 72 20 3c 3e 20 ┆ trans.rec.cupper <> ┆
0x17940…17960 70 72 6f 6a 75 70 70 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆projupper then ┆
0x17960…1797a 20 20 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 64 65 6c 65 74 65 20 77 72 ┆ update_alarm(<:delete wr┆
0x1797a…17980 (0xcc,0x2f4)
0x17980…179a0 6f 6e 67 20 69 6e 74 65 72 76 61 6c 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆ong interval:>); t┆
0x179a0…179c0 70 72 6f 6a 20 3a 3d 20 74 70 72 6f 6a 20 2b 20 31 3b 20 63 6f 6d 6d 65 6e 74 20 74 6f 20 73 6b ┆proj := tproj + 1; comment to sk┆
0x179c0…179e0 69 70 20 72 65 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ip rest of project; ┆
0x179e0…17a00 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 00 00 00 00 00 00 00 00 ┆ end else ┆
0x17a00…17a06 (189,) (0xcc,0x2f5)
0x17a06…17a20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ begin comment┆
0x17a20…17a40 20 64 65 6c 65 74 65 20 75 73 65 72 2e 2e 2e 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ delete user...; ┆
0x17a40…17a60 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 70 72 6f 70 65 72 20 69 6e 74 65 72 76 61 6c 2e 2e 2e ┆comment check proper interval...┆
0x17a60…17a7e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 6f 77 65 72 69 6e 74 20 3c 3e ┆; if lowerint <>┆
0x17a7e…17a84 (0xcc,0x2f6)
0x17a84…17aa0 20 74 72 61 6e 73 2e 72 65 63 2e 63 73 74 61 72 74 20 6f 72 0a 20 20 20 20 20 20 20 ┆ trans.rec.cstart or ┆
0x17aa0…17ac0 20 20 20 20 20 20 20 20 20 75 70 70 65 72 69 6e 74 20 3c 3e 20 74 72 61 6e 73 2e 72 65 63 2e 63 ┆ upperint <> trans.rec.c┆
0x17ac0…17ae0 77 69 64 74 68 20 2a 20 74 72 61 6e 73 2e 72 65 63 2e 63 6a 6f 62 73 0a 20 20 20 20 20 20 20 20 ┆width * trans.rec.cjobs ┆
0x17ae0…17afc 20 20 20 20 20 20 20 20 20 20 20 2b 20 6c 6f 77 65 72 69 6e 74 20 2d 20 31 20 74 68 ┆ + lowerint - 1 th┆
0x17afc…17b02 (0xcc,0x2f7)
0x17b02…17b20 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 70 64 61 74 65 5f 61 6c 61 ┆en update_ala┆
0x17b20…17b40 72 6d 28 3c 3a 64 65 6c 65 74 65 20 77 72 6f 6e 67 20 69 6e 74 65 72 76 61 6c 3a 3e 29 3b 0a 20 ┆rm(<:delete wrong interval:>); ┆
0x17b40…17b60 20 20 20 20 20 20 20 20 20 20 20 20 20 74 75 73 65 72 32 20 3a 3d 20 74 75 73 65 72 32 20 2b 20 ┆ tuser2 := tuser2 + ┆
0x17b60…17b7a 31 3b 20 63 6f 6d 6d 65 6e 74 20 74 6f 20 73 6b 69 70 20 72 65 73 74 20 6f 66 ┆1; comment to skip rest of┆
0x17b7a…17b80 (0xcc,0x2f8)
0x17b80…17ba0 20 75 73 65 72 2e 2e 2e 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a ┆ user...; end; ┆
0x17ba0…17bc0 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 6a 65 63 74 20 28 ┆ comment the project (┆
0x17bc0…17be0 6f 72 20 75 73 65 72 29 20 69 73 20 6e 6f 74 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 ┆or user) is not removed from the┆
0x17be0…17c00 20 69 6e 74 65 72 6e 61 6c 20 6c 69 73 74 3b 0a 0a 73 74 61 72 74 5f 64 00 00 00 00 00 00 00 00 ┆ internal list; start_d ┆
0x17c00…17c06 (190,) (0xcc,0x2f9)
0x17c06…17c20 65 6c 65 74 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 61 66 74 65 72 5f 64 65 ┆elete: after_de┆
0x17c20…17c40 6c 65 74 65 20 3a 3d 20 74 72 75 65 3b 20 20 63 6f 6d 6d 65 6e 74 20 69 2e 65 2e 20 72 65 6d 65 ┆lete := true; comment i.e. reme┆
0x17c40…17c60 6d 62 65 72 20 74 68 65 20 66 6f 72 67 65 72 79 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆mber the forgery...; ┆
0x17c60…17c7e 6e 6f 64 65 6c 65 74 65 20 20 20 20 20 3a 3d 20 66 61 6c 73 65 3b 20 63 6f 6d 6d 65 6e 74 ┆nodelete := false; comment┆
0x17c7e…17c84 (0xcc,0x2fa)
0x17c84…17ca0 20 69 2e 65 2e 20 73 6b 69 70 20 72 65 73 74 20 6f 66 20 70 72 6f 6a 20 6f 72 20 75 ┆ i.e. skip rest of proj or u┆
0x17ca0…17cc0 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 65 74 65 20 20 20 20 20 20 20 3a 3d 20 ┆ser; delete := ┆
0x17cc0…17ce0 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 20 20 20 20 20 20 20 20 3a ┆false; print :┆
0x17ce0…17cfc 3d 20 70 72 69 6e 74 20 73 68 69 66 74 20 28 2d 31 29 20 73 68 69 66 74 20 31 20 61 ┆= print shift (-1) shift 1 a┆
0x17cfc…17d02 (0xcc,0x2fb)
0x17d02…17d20 64 64 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 6d 70 61 72 65 5f ┆dd 1; goto compare_┆
0x17d20…17d40 73 74 61 72 74 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 64 65 6c 65 74 65 2d 61 63 ┆start; end delete-ac┆
0x17d40…17d60 74 69 6f 6e 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 61 66 74 65 72 5f 64 65 6c 65 74 65 20 74 ┆tion; if after_delete t┆
0x17d60…17d7a 68 65 6e 0a 73 74 6f 70 5f 64 65 6c 65 74 65 3a 0a 20 20 20 20 20 20 20 20 20 ┆hen stop_delete: ┆
0x17d7a…17d80 (0xcc,0x2fc)
0x17d80…17da0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 67 65 74 20 61 62 6f 75 74 20 74 68 65 ┆ begin comment forget about the┆
0x17da0…17dc0 20 73 69 6d 75 6c 61 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 2e 2e 3b 0a 20 20 20 20 20 ┆ simulated transaction...; ┆
0x17dc0…17de0 20 20 20 20 20 20 6e 6f 64 65 6c 65 74 65 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 ┆ nodelete := true; ┆
0x17de0…17e00 20 20 20 74 74 79 70 65 20 3a 3d 20 74 74 79 70 65 20 2d 20 31 3b 20 20 00 00 00 00 00 00 00 00 ┆ ttype := ttype - 1; ┆
0x17e00…17e06 (191,) (0xcc,0x2fd)
0x17e06…17e20 63 6f 6d 6d 65 6e 74 20 69 6e 20 63 61 73 65 20 6f 66 20 64 65 6c 65 74 69 6e ┆comment in case of deletin┆
0x17e20…17e40 67 20 75 73 65 72 6e 61 6d 65 2d 72 65 63 6f 72 64 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆g username-record...; ┆
0x17e40…17e60 20 67 6f 74 6f 20 6e 65 78 74 5f 74 72 61 6e 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ goto next_trans; end┆
0x17e60…17e7e 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 20 61 63 74 69 6f 6e 20 32 2c 20 64 65 6c 65 74 ┆; end action 2, delet┆
0x17e7e…17e84 (0xcc,0x2fe)
0x17e84…17ea0 65 20 75 73 65 72 20 6f 72 20 70 72 6f 6a 65 63 74 3b 0a 0c 0a 3c 2a 20 20 62 62 6a ┆e user or project; <* bbj┆
0x17ea0…17ec0 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 78 ┆ 9 9 76 mix┆
0x17ec0…17ee0 20 63 61 74 61 6c 6f 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 ┆ catalogs catupdat┆
0x17ee0…17efc 65 20 20 2e 2e 2e 34 38 2e 2e 2e 20 20 2a 3e 0a 0a 61 63 74 69 33 3a 20 20 62 65 67 ┆e ...48... *> acti3: beg┆
0x17efc…17f02 (0xcc,0x2ff)
0x17f02…17f20 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 70 65 63 69 61 6c 20 62 73 2d 64 65 76 69 63 65 73 2c ┆in comment special bs-devices,┆
0x17f20…17f40 20 63 74 79 70 65 20 3d 20 36 20 6f 72 20 63 74 79 70 65 20 3d 20 34 38 3b 0a 20 20 20 20 20 20 ┆ ctype = 6 or ctype = 48; ┆
0x17f40…17f60 20 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 63 65 65 64 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e ┆ comment proceed the comparison┆
0x17f60…17f7a 20 74 6f 20 63 68 65 63 6b 20 74 68 65 20 64 65 76 69 63 65 6e 61 6d 65 2e 2e ┆ to check the devicename..┆
0x17f7a…17f80 (0xcc,0x300)
0x17f80…17fa0 2e 3b 0a 20 20 20 20 20 20 20 20 69 66 20 72 65 63 6f 72 64 5f 69 6e 5f 69 6e 62 75 66 20 74 68 ┆.; if record_in_inbuf th┆
0x17fa0…17fc0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 63 ┆en begin c┆
0x17fc0…17fe0 6b 69 74 31 20 3a 3d 20 6f 6c 64 63 61 74 2e 6f 6c 64 2e 6b 69 74 6e 61 6d 65 31 3b 0a 20 20 20 ┆kit1 := oldcat.old.kitname1; ┆
0x17fe0…18000 20 20 20 20 20 20 20 20 63 6b 69 74 32 20 3a 3d 20 6f 6c 64 63 61 74 2e 00 00 00 00 00 00 00 00 ┆ ckit2 := oldcat. ┆
0x18000…18006 (192,) (0xcc,0x301)
0x18006…18020 6f 6c 64 2e 6b 69 74 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 ┆old.kitname2; e┆
0x18020…18040 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆nd else begin┆
0x18040…18060 0a 20 20 20 20 20 20 20 20 20 20 20 63 6b 69 74 31 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e ┆ ckit1 := newcat.new.┆
0x18060…1807e 6b 69 74 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6b 69 74 32 20 3a 3d 20 ┆kitname1; ckit2 := ┆
0x1807e…18084 (0xcc,0x302)
0x18084…180a0 6e 65 77 63 61 74 2e 6e 65 77 2e 6b 69 74 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 ┆newcat.new.kitname2; ┆
0x180a0…180c0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6c 65 76 65 6c 20 3c 20 37 20 74 68 ┆ end; if level < 7 th┆
0x180c0…180e0 65 6e 20 67 6f 74 6f 20 63 6f 6d 70 61 72 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 64 65 6c 65 ┆en goto compare; if dele┆
0x180e0…180fc 74 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆te then begin ┆
0x180fc…18102 (0xcc,0x303)
0x18102…18120 20 20 20 20 20 20 20 20 74 72 61 6e 73 2e 72 65 63 2e 6b 69 74 6e 61 6d 65 32 20 3a 3d 20 ┆ trans.rec.kitname2 := ┆
0x18120…18140 74 72 61 6e 73 2e 72 65 63 2e 6b 69 74 6e 61 6d 65 32 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 ┆trans.rec.kitname2 + 1; ┆
0x18140…18160 20 20 20 67 6f 74 6f 20 73 74 61 72 74 5f 64 65 6c 65 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto start_delete; ┆
0x18160…1817a 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 61 63 74 69 6f 6e 20 33 ┆ end; end action 3┆
0x1817a…18180 (0xcc,0x304)
0x18180…181a0 3b 0a 0a 61 63 74 69 34 3a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 74 79 70 65 20 3d ┆; acti4: begin comment ctype =┆
0x181a0…181c0 20 33 34 2c 20 75 73 65 72 70 6f 6f 6c 20 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 69 66 ┆ 34, userpool record; if┆
0x181c0…181e0 20 64 65 6c 65 74 65 20 74 68 65 6e 20 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 64 65 6c 65 ┆ delete then update_alarm(<:dele┆
0x181e0…18200 74 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 3e 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆te not allowed:>); ┆
0x18200…18206 (193,) (0xcc,0x305)
0x18206…18220 20 20 20 65 6e 64 3b 0a 0a 61 63 74 69 35 3a 20 20 62 65 67 69 6e 20 63 6f 6d ┆ end; acti5: begin com┆
0x18220…18240 6d 65 6e 74 20 6f 74 68 65 72 20 72 65 63 6f 72 64 73 2c 20 6e 6f 20 61 63 74 69 6f 6e 20 74 6f ┆ment other records, no action to┆
0x18240…18260 20 62 65 20 64 6f 6e 65 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 69 66 20 64 65 6c 65 74 65 20 74 ┆ be done...; if delete t┆
0x18260…1827e 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 ┆hen begin comment s┆
0x1827e…18284 (0xcc,0x306)
0x18284…182a0 6b 69 70 20 72 65 63 6f 72 64 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 74 74 ┆kip record...; tt┆
0x182a0…182c0 79 70 65 20 3a 3d 20 74 74 79 70 65 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆ype := ttype + 1; got┆
0x182c0…182e0 6f 20 73 74 61 72 74 5f 64 65 6c 65 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆o start_delete; end; ┆
0x182e0…182fc 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 65 6e 64 20 73 70 65 63 ┆ end; end spec┆
0x182fc…18302 (0xcc,0x307)
0x18302…18320 69 61 6c 5f 61 63 74 69 6f 6e 5f 63 61 73 65 3b 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 61 74 20 ┆ial_action_case; comment at ┆
0x18320…18340 74 68 69 73 20 70 6f 69 6e 74 20 74 68 65 20 70 72 6f 70 65 72 20 72 65 63 6f 72 64 20 69 73 20 ┆this point the proper record is ┆
0x18340…18360 66 6f 75 6e 64 0a 0a 20 20 20 20 20 20 20 20 75 70 64 61 74 65 20 69 74 2e 2e 2e 3b 0a 0c 0a 3c ┆found update it...; <┆
0x18360…1837a 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 ┆* bbj 9 9 76 ┆
0x1837a…18380 (0xcc,0x308)
0x18380…183a0 20 20 20 20 20 20 20 20 20 6d 69 78 20 63 61 74 61 6c 6f 67 73 20 20 20 20 20 20 20 20 20 20 20 ┆ mix catalogs ┆
0x183a0…183c0 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 20 2e 2e 2e 34 39 2e 2e 2e 20 20 2a 3e 0a 0a 0a 20 ┆ catupdate ...49... *> ┆
0x183c0…183e0 20 20 62 6f 6f 6c 20 3a 3d 20 63 68 61 6e 67 65 28 63 74 79 70 65 2f 2f 32 29 3b 0a 0a 20 20 20 ┆ bool := change(ctype//2); ┆
0x183e0…18400 69 66 20 62 6f 6f 6c 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆if bool then begin ┆
0x18400…18406 (194,) (0xcc,0x309)
0x18406…18420 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 62 6f 6f 6c ┆ comment the variable bool┆
0x18420…18440 20 63 6f 6e 74 61 69 6e 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 0a 20 20 20 20 ┆ contains information about ┆
0x18440…18460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 63 68 20 65 6c 65 6d 65 6e 74 73 20 69 ┆ which elements i┆
0x18460…1847e 6e 20 74 68 65 20 72 65 63 6f 72 64 20 74 6f 20 75 70 64 61 74 65 3b 0a 20 20 20 20 20 20 ┆n the record to update; ┆
0x1847e…18484 (0xcc,0x30a)
0x18484…184a0 69 66 20 72 65 63 6f 72 64 5f 69 6e 5f 69 6e 62 75 66 20 74 68 65 6e 20 6f 75 74 70 ┆if record_in_inbuf then outp┆
0x184a0…184c0 75 74 28 6f 6c 64 63 61 74 2c 20 6f 6c 64 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 ┆ut(oldcat, old); for i := ┆
0x184c0…184e0 2d 31 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 2d 31 31 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆-1 step -1 until -11 do ┆
0x184e0…184fc 20 69 66 20 62 6f 6f 6c 20 73 68 69 66 74 20 69 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if bool shift i then ┆
0x184fc…18502 (0xcc,0x30b)
0x18502…18520 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6e 65 77 ┆ begin j:=new┆
0x18520…18540 63 61 74 2e 6e 65 77 28 31 2d 69 29 20 2b 20 74 72 61 6e 73 2e 72 65 63 28 31 2d 69 29 3b 0a 20 ┆cat.new(1-i) + trans.rec(1-i); ┆
0x18540…18560 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 3c 30 20 6f 72 20 6a 20 73 68 69 66 74 20 31 32 20 ┆ if j<0 or j shift 12 ┆
0x18560…1857a 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆< 0 then be┆
0x1857a…18580 (0xcc,0x30c)
0x18580…185a0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 6c 61 69 6d 73 20 77 6f 75 6c 64 20 67 65 74 20 6e 65 67 ┆gin comment claims would get neg┆
0x185a0…185c0 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 72 6e 69 6e 67 3a 3d 74 ┆ative; warning:=t┆
0x185c0…185e0 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 70 64 61 74 65 5f 61 6c 61 72 6d ┆rue; update_alarm┆
0x185e0…18600 28 3c 3a 69 6c 6c 65 67 61 6c 20 63 6c 61 69 6d 73 3a 3e 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆(<:illegal claims:>); ┆
0x18600…18606 (195,) (0xcc,0x30d)
0x18606…18620 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆ end ┆
0x18620…18640 20 20 20 65 6c 73 65 20 6e 65 77 63 61 74 2e 6e 65 77 28 31 2d 69 29 3a 3d 6a 3b 0a 20 20 20 20 ┆ else newcat.new(1-i):=j; ┆
0x18640…18660 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a 20 ┆ end; end else ┆
0x18660…1867e 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 67 65 74 20 61 62 6f 75 ┆ begin comment forget abou┆
0x1867e…18684 (0xcc,0x30e)
0x18684…186a0 74 20 74 68 65 20 6f 6c 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 63 ┆t the old version of the rec┆
0x186a0…186c0 6f 72 64 2e 2e 2e 3b 0a 20 20 20 20 20 20 69 66 20 2d 2c 20 72 65 63 6f 72 64 5f 69 6e 5f 69 6e ┆ord...; if -, record_in_in┆
0x186c0…186e0 62 75 66 20 74 68 65 6e 20 6e 65 78 74 6e 65 77 20 3a 3d 20 6e 65 77 3b 0a 6e 65 77 5f 72 65 63 ┆buf then nextnew := new; new_rec┆
0x186e0…186fc 6f 72 64 3a 0a 20 20 20 20 20 20 69 66 20 74 74 79 70 65 20 3d 20 34 32 20 74 68 65 ┆ord: if ttype = 42 the┆
0x186fc…18702 (0xcc,0x30f)
0x18702…18720 6e 20 6f 75 74 70 75 74 28 76 61 72 74 72 61 6e 73 2c 20 72 65 63 29 0a 20 20 20 20 20 20 ┆n output(vartrans, rec) ┆
0x18720…18740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6f 75 74 70 75 74 28 74 72 61 6e 73 20 ┆ else output(trans ┆
0x18740…18760 20 20 2c 20 72 65 63 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 74 79 70 65 20 3a ┆ , rec); end; ctype :┆
0x18760…1877a 3d 20 74 74 79 70 65 3b 0a 20 20 20 72 65 63 6f 72 64 5f 69 6e 5f 69 6e 62 75 ┆= ttype; record_in_inbu┆
0x1877a…18780 (0xcc,0x310)
0x18780…187a0 66 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 70 72 69 6e 74 20 3a 3d 20 70 72 69 6e 74 20 73 68 ┆f := false; print := print sh┆
0x187a0…187c0 69 66 74 20 28 2d 31 29 20 73 68 69 66 74 20 31 20 61 64 64 20 31 3b 0a 20 20 20 20 20 20 63 6f ┆ift (-1) shift 1 add 1; co┆
0x187c0…187e0 6d 6d 65 6e 74 20 69 6e 64 69 63 61 74 65 20 74 68 65 20 75 70 64 61 74 69 6e 67 3b 0a 0a 20 20 ┆mment indicate the updating; ┆
0x187e0…18800 20 67 6f 74 6f 20 6e 65 78 74 5f 74 72 61 6e 73 3b 0a 0a 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆ goto next_trans; en ┆
0x18800…18806 (196,) (0xcc,0x311)
0x18806…18820 64 20 63 61 74 6e 6f 20 3d 20 74 72 61 6e 73 6e 6f 3b 0a 0c 0a 3c 2a 20 20 62 ┆d catno = transno; <* b┆
0x18820…18840 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d ┆bj 9 9 76 m┆
0x18840…18860 69 78 20 63 61 74 61 6c 6f 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 ┆ix catalogs catupd┆
0x18860…1887e 61 74 65 20 20 2e 2e 2e 35 30 2e 2e 2e 20 20 2a 3e 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 63 ┆ate ...50... *> comment c┆
0x1887e…18884 (0xcc,0x312)
0x18884…188a0 61 74 6e 6f 20 3e 20 74 72 61 6e 73 6e 6f 3b 0a 0a 70 6f 73 73 69 62 6c 79 5f 6e 65 ┆atno > transno; possibly_ne┆
0x188a0…188c0 77 5f 72 65 63 6f 72 64 3a 0a 0a 20 20 20 6e 65 78 74 6f 6c 64 20 3a 3d 20 6f 6c 64 3b 20 20 63 ┆w_record: nextold := old; c┆
0x188c0…188e0 6f 6d 6d 65 6e 74 20 72 65 67 72 65 74 20 69 6e 70 75 74 2c 20 69 2e 65 2e 20 72 65 70 65 61 74 ┆omment regret input, i.e. repeat┆
0x188e0…188fc 20 6e 65 78 74 20 74 69 6d 65 2e 2e 2e 3b 0a 20 20 20 72 65 63 6f 72 64 5f 69 6e 5f ┆ next time...; record_in_┆
0x188fc…18902 (0xcc,0x313)
0x18902…18920 69 6e 62 75 66 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 69 66 20 61 66 74 65 72 64 65 6c ┆inbuf := false; if afterdel┆
0x18920…18940 65 74 65 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 5f 64 65 6c 65 74 65 3b 0a 0a 20 20 20 63 ┆ete then goto stop_delete; c┆
0x18940…18960 61 73 65 20 73 70 65 63 69 61 6c 5f 61 63 74 69 6f 6e 28 74 74 79 70 65 2f 2f 32 29 20 6f 66 0a ┆ase special_action(ttype//2) of ┆
0x18960…1897a 20 20 20 62 65 67 69 6e 0a 0a 61 63 74 31 3a 20 20 20 62 65 67 69 6e 20 63 6f ┆ begin act1: begin co┆
0x1897a…18980 (0xcc,0x314)
0x18980…189a0 6d 6d 65 6e 74 20 74 74 79 70 65 20 3d 20 30 2c 20 6e 65 77 20 70 72 6f 6a 65 63 74 3b 0a 20 20 ┆mment ttype = 0, new project; ┆
0x189a0…189c0 20 20 20 20 20 20 69 66 20 2d 2c 20 63 72 65 61 74 65 20 74 68 65 6e 20 75 70 64 61 74 65 5f 61 ┆ if -, create then update_a┆
0x189c0…189e0 6c 61 72 6d 28 3c 3a 70 72 6f 6a 65 63 74 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 3b 0a 20 20 20 20 20 ┆larm(<:project unknown:>); ┆
0x189e0…18a00 20 20 20 66 69 72 73 74 66 72 65 65 20 3a 3d 20 75 73 65 72 73 74 61 72 00 00 00 00 00 00 00 00 ┆ firstfree := userstar ┆
0x18a00…18a06 (197,) (0xcc,0x315)
0x18a06…18a20 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 70 72 6f 6a 6c 69 73 74 20 ┆t; if -, projlist ┆
0x18a20…18a40 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 69 7a 65 28 70 72 6f 6a 73 ┆then initialize(projs┆
0x18a40…18a60 74 61 72 74 2c 20 74 72 75 65 2c 20 6d 69 6e 69 6d 75 6d 2b 32 2c 20 6d 61 78 69 6d 75 6d 2d 32 ┆tart, true, minimum+2, maximum-2┆
0x18a60…18a7e 29 3b 0a 20 20 20 20 20 20 20 20 70 72 6f 6a 6c 69 73 74 20 3a 3d 20 74 72 75 65 3b 0a 20 ┆); projlist := true; ┆
0x18a7e…18a84 (0xcc,0x316)
0x18a84…18aa0 20 20 20 20 20 20 20 75 73 65 72 6c 69 73 74 20 3a 3d 20 66 61 6c 73 65 3b 20 6e 65 ┆ userlist := false; ne┆
0x18aa0…18ac0 77 70 72 6f 6a 20 3a 3d 20 74 72 75 65 3b 0a 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆wproj := true; comment ┆
0x18ac0…18ae0 74 68 65 20 69 6e 74 65 72 76 61 6c 73 20 6f 66 20 74 68 65 20 70 72 6f 6a 65 63 74 20 6d 75 73 ┆the intervals of the project mus┆
0x18ae0…18afc 74 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆t be inserted in ┆
0x18afc…18b02 (0xcc,0x317)
0x18b02…18b20 74 68 65 20 69 6e 74 65 72 76 61 6c 2d 6c 69 73 74 20 28 65 78 63 65 70 74 20 74 68 65 20 ┆the interval-list (except the ┆
0x18b20…18b40 6d 61 69 6e 74 65 6e 61 6e 63 65 2d 70 72 6f 6a 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 ┆maintenance-proj and ┆
0x18b40…18b60 74 68 65 20 61 63 63 6f 75 6e 74 2d 70 72 6f 6a 65 63 74 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 ┆the account-project); i┆
0x18b60…18b7a 66 20 74 72 61 6e 73 2e 72 65 63 2e 63 6c 6f 77 65 72 20 3c 3e 20 6d 69 6e 69 ┆f trans.rec.clower <> mini┆
0x18b7a…18b80 (0xcc,0x318)
0x18b80…18ba0 6d 75 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 69 6e 74 65 72 76 61 6c ┆mum then get_interval┆
0x18ba0…18bc0 28 70 72 6f 6a 73 74 61 72 74 2c 20 74 72 61 6e 73 2e 72 65 63 2e 63 6c 6f 77 65 72 2c 20 74 72 ┆(projstart, trans.rec.clower, tr┆
0x18bc0…18be0 61 6e 73 2e 72 65 63 2e 63 75 70 70 65 72 29 3b 0a 20 20 20 20 20 20 20 20 75 73 65 72 73 74 61 ┆ans.rec.cupper); usersta┆
0x18be0…18c00 72 74 20 20 3a 3d 20 66 69 72 73 74 66 72 65 65 3b 0a 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆rt := firstfree; ┆
0x18c00…18c06 (198,) (0xcc,0x319)
0x18c06…18c20 20 20 20 70 72 6f 6a 6c 6f 77 65 72 20 3a 3d 20 74 72 61 6e 73 2e 72 65 63 2e ┆ projlower := trans.rec.┆
0x18c20…18c40 63 6c 6f 77 65 72 3b 0a 20 20 20 20 20 20 20 20 70 72 6f 6a 75 70 70 65 72 20 3a 3d 20 74 72 61 ┆clower; projupper := tra┆
0x18c40…18c60 6e 73 2e 72 65 63 2e 63 75 70 70 65 72 3b 0a 20 20 20 20 20 20 20 20 63 70 72 6f 6a 20 20 20 20 ┆ns.rec.cupper; cproj ┆
0x18c60…18c7e 20 3a 3d 20 74 70 72 6f 6a 3b 0a 20 20 20 20 20 20 20 20 63 75 73 65 72 31 20 3a 3d 20 63 ┆ := tproj; cuser1 := c┆
0x18c7e…18c84 (0xcc,0x31a)
0x18c84…18ca0 75 73 65 72 32 20 3a 3d 20 63 74 79 70 65 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆user2 := ctype := 0; ┆
0x18ca0…18cc0 20 65 6e 64 20 61 63 74 69 6f 6e 20 31 3b 0a 0a 61 63 74 32 3a 20 20 20 62 65 67 69 6e 20 63 6f ┆ end action 1; act2: begin co┆
0x18cc0…18ce0 6d 6d 65 6e 74 20 74 74 79 70 65 20 3d 20 32 2c 20 6e 65 77 20 75 73 65 72 3b 0a 20 20 20 20 20 ┆mment ttype = 2, new user; ┆
0x18ce0…18cfc 20 20 20 69 66 20 6c 65 76 65 6c 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if level = 1 then ┆
0x18cfc…18d02 (0xcc,0x31b)
0x18d02…18d20 20 20 20 20 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 70 72 6f 6a 65 63 74 20 75 6e 6b ┆ update_alarm(<:project unk┆
0x18d20…18d40 6e 6f 77 6e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 63 72 65 61 74 65 20 74 68 ┆nown:>); if -, create th┆
0x18d40…18d60 65 6e 20 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 75 73 65 72 20 75 6e 6b 6e 6f 77 6e 3a 3e ┆en update_alarm(<:user unknown:>┆
0x18d60…18d7a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 75 73 65 72 6c 69 73 74 20 ┆); if -, userlist ┆
0x18d7a…18d80 (0xcc,0x31c)
0x18d80…18da0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 69 7a 65 28 75 73 65 72 73 ┆then initialize(users┆
0x18da0…18dc0 74 61 72 74 2c 20 66 61 6c 73 65 2c 20 70 72 6f 6a 6c 6f 77 65 72 2c 20 70 72 6f 6a 75 70 70 65 ┆tart, false, projlower, projuppe┆
0x18dc0…18de0 72 29 3b 0a 20 20 20 20 20 20 20 20 75 73 65 72 6c 69 73 74 20 3a 3d 20 74 72 75 65 3b 0a 0a 20 ┆r); userlist := true; ┆
0x18de0…18e00 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 69 6e 74 65 72 00 00 00 00 00 00 00 00 ┆ comment the inter ┆
0x18e00…18e06 (199,) (0xcc,0x31d)
0x18e06…18e20 76 61 6c 73 20 6f 66 20 74 68 65 20 75 73 65 72 20 6d 75 73 74 20 62 65 20 69 ┆vals of the user must be i┆
0x18e20…18e40 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 ┆nserted in the interv┆
0x18e40…18e60 61 6c 20 6c 69 73 74 3b 0a 20 20 20 20 20 20 20 20 6c 6f 77 65 72 69 6e 74 3a 3d 20 74 72 61 6e ┆al list; lowerint:= tran┆
0x18e60…18e7e 73 2e 72 65 63 2e 63 73 74 61 72 74 3b 0a 20 20 20 20 20 20 20 20 75 70 70 65 72 69 6e 74 ┆s.rec.cstart; upperint┆
0x18e7e…18e84 (0xcc,0x31e)
0x18e84…18ea0 20 3a 3d 20 74 72 61 6e 73 2e 72 65 63 2e 63 77 69 64 74 68 20 2a 20 74 72 61 6e 73 ┆ := trans.rec.cwidth * trans┆
0x18ea0…18ec0 2e 72 65 63 2e 63 6a 6f 62 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.rec.cjobs ┆
0x18ec0…18ee0 20 2b 20 6c 6f 77 65 72 69 6e 74 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 67 65 74 5f 69 6e 74 ┆ + lowerint - 1; get_int┆
0x18ee0…18efc 65 72 76 61 6c 28 75 73 65 72 73 74 61 72 74 2c 20 6c 6f 77 65 72 69 6e 74 2c 20 75 ┆erval(userstart, lowerint, u┆
0x18efc…18f02 (0xcc,0x31f)
0x18f02…18f20 70 70 65 72 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 2e 72 65 63 2e 63 73 ┆pperint); trans.rec.cs┆
0x18f20…18f40 74 61 72 74 20 3a 3d 20 6c 6f 77 65 72 69 6e 74 3b 0a 20 20 20 20 20 20 20 20 63 75 73 65 72 31 ┆tart := lowerint; cuser1┆
0x18f40…18f60 20 3a 3d 20 74 75 73 65 72 31 3b 0a 20 20 20 20 20 20 20 20 63 75 73 65 72 32 20 3a 3d 20 74 75 ┆ := tuser1; cuser2 := tu┆
0x18f60…18f7a 73 65 72 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 61 63 74 69 6f 6e 20 32 ┆ser2; end action 2┆
0x18f7a…18f80 (0xcc,0x320)
0x18f80…18fa0 3b 0a 0a 61 63 74 33 3a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 70 65 63 69 61 6c ┆; act3: begin comment special┆
0x18fa0…18fc0 20 62 73 2d 64 65 76 69 63 65 73 2c 20 74 74 79 70 65 20 3d 20 36 3b 0a 20 20 20 20 20 20 20 20 ┆ bs-devices, ttype = 6; ┆
0x18fc0…18fe0 67 6f 74 6f 20 61 63 74 35 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 61 63 74 34 3a 20 20 ┆goto act5; end; act4: ┆
0x18fe0…19000 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 75 73 65 72 70 6f 6f 6c 20 00 00 00 00 00 00 00 00 ┆ begin comment userpool ┆
0x19000…19006 (200,) (0xcc,0x321)
0x19006…19020 72 65 63 6f 72 64 2c 20 74 74 79 70 65 20 3d 20 33 34 3b 0a 20 20 20 20 20 20 ┆record, ttype = 34; ┆
0x19020…19040 20 20 69 66 20 6c 65 76 65 6c 20 3c 20 34 20 74 68 65 6e 20 67 6f 74 6f 20 61 63 74 35 3b 0a 20 ┆ if level < 4 then goto act5; ┆
0x19040…19060 20 20 20 20 20 20 20 74 72 61 6e 73 2e 72 65 63 2e 6d 61 78 6c 6f 77 65 72 3a 3d 20 6c 6f 77 65 ┆ trans.rec.maxlower:= lowe┆
0x19060…1907e 72 69 6e 74 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 2e 72 65 63 2e 6d 61 78 75 70 70 ┆rint; trans.rec.maxupp┆
0x1907e…19084 (0xcc,0x322)
0x19084…190a0 65 72 3a 3d 20 75 70 70 65 72 69 6e 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆er:= upperint; end; ┆
0x190a0…190c0 0a 61 63 74 35 3a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 74 68 65 72 20 72 65 63 ┆ act5: begin comment other rec┆
0x190c0…190e0 6f 72 64 73 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6c 65 76 65 6c 20 3c 20 34 20 74 68 65 6e 20 ┆ords; if level < 4 then ┆
0x190e0…190fc 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 6f 75 74 20 6f 66 20 73 65 71 75 65 6e ┆update_alarm(<:out of sequen┆
0x190fc…19102 (0xcc,0x323)
0x19102…19120 63 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 65 6e 64 20 73 70 ┆ce:>); end; end sp┆
0x19120…19140 65 63 69 61 6c 2d 61 63 74 69 6f 6e 5f 63 61 73 65 20 77 69 74 68 20 6e 65 77 20 72 65 63 6f 72 ┆ecial-action_case with new recor┆
0x19140…19160 64 2e 2e 2e 3b 0a 20 20 20 69 66 20 64 65 6c 65 74 65 20 74 68 65 6e 20 75 70 64 61 74 65 61 6c ┆d...; if delete then updateal┆
0x19160…1917a 61 72 6d 28 3c 3a 72 65 63 6f 72 64 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 3b 0a 20 ┆arm(<:record unknown:>); ┆
0x1917a…19180 (0xcc,0x324)
0x19180…191a0 20 20 0a 20 20 20 62 6f 6f 6c 3a 3d 63 68 61 6e 67 65 28 74 74 79 70 65 2f 2f 32 29 3b 0a 20 20 ┆ bool:=change(ttype//2); ┆
0x191a0…191c0 20 69 66 20 62 6f 6f 6c 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 2d 31 20 73 74 ┆ if bool then for i:=-1 st┆
0x191c0…191e0 65 70 20 2d 31 20 75 6e 74 69 6c 20 2d 31 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 62 ┆ep -1 until -11 do if b┆
0x191e0…19200 6f 6f 6c 20 73 68 69 66 74 20 69 20 74 68 65 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ool shift i then ┆
0x19200…19206 (201,) (0xcc,0x325)
0x19206…19220 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ begin if ┆
0x19220…19240 74 72 61 6e 73 2e 72 65 63 28 31 2d 69 29 3c 30 20 6f 72 20 74 72 61 6e 73 2e 72 65 63 28 31 2d ┆trans.rec(1-i)<0 or trans.rec(1-┆
0x19240…19260 69 29 20 73 68 69 66 74 20 31 32 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆i) shift 12 < 0 then ┆
0x19260…1927e 20 20 20 20 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 69 6c 6c 65 67 61 6c 20 63 6c 61 ┆ update_alarm(<:illegal cla┆
0x1927e…19284 (0xcc,0x326)
0x19284…192a0 69 6d 73 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆ims:>); end; ┆
0x192a0…192c0 20 67 6f 74 6f 20 6e 65 77 5f 72 65 63 6f 72 64 3b 0a 0a 66 69 6e 69 73 5f 75 70 64 61 74 65 3a ┆ goto new_record; finis_update:┆
0x192c0…192e0 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a ┆ ; comment ****************; ┆
0x192e0…192fc 69 66 20 70 72 69 6e 74 20 73 68 69 66 74 28 2d 33 29 20 65 78 74 72 61 63 74 20 31 ┆if print shift(-3) extract 1┆
0x192fc…19302 (0xcc,0x327)
0x19302…19320 3d 31 20 74 68 65 6e 0a 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2d 31 20 3b 20 65 6e 64 20 6f ┆=1 then write(out,<:-1 ; end o┆
0x19320…19340 66 20 63 61 74 61 6c 6f 67 3c 31 30 3e 3a 3e 29 3b 0a 63 6c 6f 73 65 28 76 61 72 74 72 61 6e 73 ┆f catalog<10>:>); close(vartrans┆
0x19340…19360 2c 20 74 72 75 65 29 3b 20 20 6d 6f 6e 69 74 6f 72 28 34 38 29 20 72 65 6d 6f 76 65 20 65 6e 74 ┆, true); monitor(48) remove ent┆
0x19360…1937a 72 79 3a 28 76 61 72 74 72 61 6e 73 2c 20 30 2c 20 78 69 6e 66 29 3b 0a 63 6c ┆ry:(vartrans, 0, xinf); cl┆
0x1937a…19380 (0xcc,0x328)
0x19380…193a0 6f 73 65 28 74 72 61 6e 73 2c 20 74 72 75 65 29 3b 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 ┆ose(trans, true); monitor(48┆
0x193a0…193c0 29 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 3a 28 74 72 61 6e 73 2c 20 30 2c 20 78 69 6e 66 29 3b ┆) remove entry:(trans, 0, xinf);┆
0x193c0…193e0 0a 63 6c 6f 73 65 28 6f 6c 64 63 61 74 2c 20 74 72 75 65 29 3b 0a 63 6c 6f 73 65 28 6e 65 77 63 ┆ close(oldcat, true); close(newc┆
0x193e0…19400 61 74 2c 20 66 61 6c 73 65 29 3b 0a 0a 65 6e 64 20 75 70 64 61 74 65 5f 00 00 00 00 00 00 00 00 ┆at, false); end update_ ┆
0x19400…19406 (202,) (0xcc,0x329)
0x19406…19420 62 6c 6f 63 6b 3b 0a 0a 65 6e 64 20 64 65 76 69 63 65 2d 6e 75 6d 62 65 72 20 ┆block; end device-number ┆
0x19420…19440 62 6c 6f 63 6b 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 ┆block; <* bbj 9 9 76 ┆
0x19440…19460 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 20 73 65 67 6d 65 6e 74 20 20 20 20 20 20 ┆ index segment ┆
0x19460…1947e 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 20 2e 2e 2e 35 31 2e 2e 2e 20 20 ┆ catupdate ...51... ┆
0x1947e…19484 (0xcc,0x32a)
0x19484…194a0 2a 3e 0a 0a 69 66 20 6c 65 66 74 73 69 64 65 20 74 68 65 6e 0a 62 65 67 69 6e 20 63 ┆*> if leftside then begin c┆
0x194a0…194c0 6f 6d 6d 65 6e 74 20 75 70 64 61 74 65 20 74 68 65 20 69 6e 64 65 78 20 73 65 67 6d 65 6e 74 73 ┆omment update the index segments┆
0x194c0…194e0 2e 2e 2e 3b 0a 0a 7a 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 28 31 32 38 2c 20 ┆...; zone index(128, ┆
0x194e0…194fc 31 2c 20 73 74 64 65 72 72 6f 72 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1, stderror), ┆
0x194fc…19502 (0xcc,0x32b)
0x19502…19520 20 6e 65 77 63 61 74 28 31 32 38 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 69 6e 74 ┆ newcat(128, 1, stderror); int┆
0x19520…19540 65 67 65 72 20 61 72 72 61 79 20 20 65 6e 74 72 2c 20 73 6c 69 63 65 6c 65 6e 67 74 68 28 31 3a ┆eger array entr, slicelength(1:┆
0x19540…19560 6d 61 78 5f 6e 6f 5f 6f 66 5f 64 69 73 63 6b 69 74 73 29 2c 20 74 61 69 6c 28 31 3a 31 30 29 3b ┆max_no_of_disckits), tail(1:10);┆
0x19560…1957a 0a 6c 6f 6e 67 20 20 20 20 61 72 72 61 79 20 20 6b 69 74 74 61 62 6c 65 28 32 ┆ long array kittable(2┆
0x1957a…19580 (0xcc,0x32c)
0x19580…195a0 3a 32 2a 6d 61 78 5f 6e 6f 5f 6f 66 5f 64 69 73 63 6b 69 74 73 2b 31 29 3b 0a 69 6e 74 65 67 65 ┆:2*max_no_of_disckits+1); intege┆
0x195a0…195c0 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 6e 65 77 3b 0a 69 6e 74 65 67 65 72 20 66 69 65 6c 64 ┆r array field new; integer field┆
0x195c0…195e0 20 20 69 66 32 2c 20 70 72 6f 6a 2c 20 73 6c 69 63 65 6c 67 74 68 2c 20 64 69 73 63 5f 65 6e 74 ┆ if2, proj, slicelgth, disc_ent┆
0x195e0…19600 72 2c 20 70 72 69 76 5f 65 6e 74 72 2c 20 75 73 65 72 64 69 73 63 5f 65 00 00 00 00 00 00 00 00 ┆r, priv_entr, userdisc_e ┆
0x19600…19606 (203,) (0xcc,0x32d)
0x19606…19620 6e 74 72 2c 20 64 72 75 6d 5f 65 6e 74 72 3b 0a 6c 6f 6e 67 20 20 20 20 66 69 ┆ntr, drum_entr; long fi┆
0x19620…19640 65 6c 64 20 20 6b 69 74 31 2c 20 6b 69 74 32 2c 20 75 73 65 72 31 2c 20 75 73 65 72 32 3b 0a 69 ┆eld kit1, kit2, user1, user2; i┆
0x19640…19660 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 69 2c 20 6a 2c 20 70 72 6f 6a 6e 6f 2c 20 74 79 70 65 ┆nteger i, j, projno, type┆
0x19660…1967e 2c 20 65 6e 74 72 69 65 73 2c 20 6d 61 78 2c 20 6d 61 78 69 6e 64 65 78 2c 20 6e 6f 5f 6f ┆, entries, max, maxindex, no_o┆
0x1967e…19684 (0xcc,0x32e)
0x19684…196a0 66 5f 64 69 73 63 6b 69 74 73 2c 20 6b 69 74 63 6f 75 6e 74 3b 0a 6c 6f 6e 67 20 20 ┆f_disckits, kitcount; long ┆
0x196a0…196c0 20 20 20 20 20 20 20 20 20 6e 61 6d 65 31 2c 20 6e 61 6d 65 32 3b 0a 0a 70 72 6f 63 65 64 75 72 ┆ name1, name2; procedur┆
0x196c0…196e0 65 20 77 61 72 6e 28 74 65 78 74 29 3b 0a 20 20 20 73 74 72 69 6e 67 20 74 65 78 74 3b 0a 20 20 ┆e warn(text); string text; ┆
0x196e0…196fc 20 62 65 67 69 6e 0a 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 77 72 69 74 ┆ begin integer i; writ┆
0x196fc…19702 (0xcc,0x32f)
0x19702…19720 65 28 6f 75 74 2c 20 3c 3a 70 72 6f 6a 6e 6f 3d 20 3a 3e 2c 20 3c 3c 64 64 64 64 64 64 3e ┆e(out, <:projno= :>, <<dddddd>┆
0x19720…19740 2c 20 70 72 6f 6a 6e 6f 2c 20 3c 3a 20 20 75 73 65 72 3d 20 3a 3e 29 3b 0a 20 20 20 69 20 3a 3d ┆, projno, <: user= :>); i :=┆
0x19740…19760 20 31 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c 0a ┆ 1; write(out, false add 32, ┆
0x19760…1977a 20 20 20 20 20 20 20 20 20 31 33 20 2d 20 77 72 69 74 65 28 6f 75 74 2c 20 73 ┆ 13 - write(out, s┆
0x1977a…19780 (0xcc,0x330)
0x19780…197a0 74 72 69 6e 67 20 28 63 61 73 65 20 69 6e 63 72 65 61 73 65 28 69 29 20 6f 66 20 28 6e 61 6d 65 ┆tring (case increase(i) of (name┆
0x197a0…197c0 31 2c 20 6e 61 6d 65 32 29 29 29 2c 0a 20 20 20 20 20 20 20 20 20 74 65 78 74 2c 20 3c 3a 3c 31 ┆1, name2))), text, <:<1┆
0x197c0…197e0 30 3e 3a 3e 29 3b 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 20 69 20 3a 3d 20 31 3b 20 6f 70 65 6e 28 ┆0>:>); end; i := 1; open(┆
0x197e0…19800 69 6e 64 65 78 20 2c 20 34 2c 20 73 74 72 69 6e 67 20 6e 65 77 63 61 74 00 00 00 00 00 00 00 00 ┆index , 4, string newcat ┆
0x19800…19806 (204,) (0xcc,0x331)
0x19806…19820 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 30 29 3b 0a 20 20 20 ┆name(increase(i)), 0); ┆
0x19820…19840 69 20 3a 3d 20 31 3b 20 6f 70 65 6e 28 6e 65 77 63 61 74 2c 20 34 2c 20 73 74 72 69 6e 67 20 6e ┆i := 1; open(newcat, 4, string n┆
0x19840…19860 65 77 63 61 74 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 30 29 3b 0a 20 20 20 73 ┆ewcatname(increase(i)), 0); s┆
0x19860…1987e 65 74 70 6f 73 69 74 69 6f 6e 28 6e 65 77 63 61 74 2c 20 30 2c 20 73 74 64 5f 75 73 65 72 ┆etposition(newcat, 0, std_user┆
0x1987e…19884 (0xcc,0x332)
0x19884…198a0 63 61 74 5f 69 6e 64 65 78 29 3b 0a 0a 20 20 20 69 66 32 20 3a 3d 20 32 3b 0a 20 20 ┆cat_index); if2 := 2; ┆
0x198a0…198c0 20 70 72 6f 6a 20 20 20 20 20 20 3a 3d 20 34 3b 0a 20 20 20 64 69 73 63 5f 65 6e 74 72 20 3a 3d ┆ proj := 4; disc_entr :=┆
0x198c0…198e0 20 31 32 3b 0a 20 20 20 70 72 69 76 5f 65 6e 74 72 20 3a 3d 20 31 34 3b 0a 20 20 20 75 73 65 72 ┆ 12; priv_entr := 14; user┆
0x198e0…198fc 64 69 73 63 5f 65 6e 74 72 20 3a 3d 20 31 30 3b 0a 20 20 20 64 72 75 6d 5f 65 6e 74 ┆disc_entr := 10; drum_ent┆
0x198fc…19902 (0xcc,0x333)
0x19902…19920 72 20 3a 3d 20 20 36 3b 0a 20 20 20 6b 69 74 31 20 20 20 20 20 20 3a 3d 20 20 36 3b 0a 20 ┆r := 6; kit1 := 6; ┆
0x19920…19940 20 20 6b 69 74 32 20 20 20 20 20 20 3a 3d 20 31 30 3b 0a 20 20 20 73 6c 69 63 65 6c 67 74 68 3a ┆ kit2 := 10; slicelgth:┆
0x19940…19960 3d 20 31 36 3b 0a 20 20 20 75 73 65 72 31 20 20 20 20 20 3a 3d 20 20 36 3b 0a 20 20 20 75 73 65 ┆= 16; user1 := 6; use┆
0x19960…1997a 72 32 20 20 20 20 20 3a 3d 20 31 30 3b 0a 20 20 20 70 72 6f 6a 6e 6f 20 20 20 ┆r2 := 10; projno ┆
0x1997a…19980 (0xcc,0x334)
0x19980…199a0 20 3a 3d 20 2d 31 3b 0a 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e ┆ := -1; for i := 1 step 1 un┆
0x199a0…199c0 74 69 6c 20 73 74 64 5f 75 73 65 72 63 61 74 5f 69 6e 64 65 78 20 64 6f 0a 20 20 20 20 20 20 62 ┆til std_usercat_index do b┆
0x199c0…199e0 65 67 69 6e 0a 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 69 6e 64 65 78 2c 20 32 29 3b 0a 20 20 ┆egin outrec6(index, 2); ┆
0x199e0…19a00 20 20 20 20 69 6e 64 65 78 2e 69 66 32 20 3a 3d 20 70 72 6f 6a 6e 6f 3b 00 00 00 00 00 00 00 00 ┆ index.if2 := projno; ┆
0x19a00…19a06 (205,) (0xcc,0x335)
0x19a06…19a20 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 73 63 61 6e 20 ┆ end; comment scan ┆
0x19a20…19a40 74 68 65 20 6e 65 77 20 75 73 65 72 63 61 74 20 61 6e 64 20 63 6f 75 6e 74 20 74 68 65 20 6d 61 ┆the new usercat and count the ma┆
0x19a40…19a60 78 69 6d 75 6d 2d 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 6f 66 20 70 72 65 2d 70 72 6f 6d ┆ximum-number of pre-prom┆
0x19a60…19a7e 69 73 73 65 64 20 65 6e 74 72 69 65 73 3b 0a 0a 20 20 20 65 6e 74 72 69 65 73 20 3a 3d 20 ┆issed entries; entries := ┆
0x19a7e…19a84 (0xcc,0x336)
0x19a84…19aa0 30 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 64 69 73 63 6b 69 74 73 20 3a 3d 20 30 3b 0a 0a ┆0; no_of_disckits := 0; ┆
0x19aa0…19ac0 6e 65 78 74 5f 62 6c 6f 63 6b 3a 0a 0a 20 20 20 69 6e 72 65 63 36 28 6e 65 77 63 61 74 2c 20 35 ┆next_block: inrec6(newcat, 5┆
0x19ac0…19ae0 31 32 29 3b 0a 20 20 20 69 6e 64 65 78 2e 69 66 32 20 3a 3d 20 70 72 6f 6a 6e 6f 3b 0a 20 20 20 ┆12); index.if2 := projno; ┆
0x19ae0…19afc 6e 65 77 20 3a 3d 20 30 3b 0a 20 20 20 6f 75 74 72 65 63 36 28 69 6e 64 65 78 2c 20 ┆new := 0; outrec6(index, ┆
0x19afc…19b02 (0xcc,0x337)
0x19b02…19b20 32 29 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 ┆2); <* bbj 9 9 76 ┆
0x19b20…19b40 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 20 65 6e 74 72 69 65 73 20 20 20 20 20 20 20 ┆ count entries ┆
0x19b40…19b60 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 35 32 2e 2e 2e 20 20 2a 3e 0a 0a ┆ catupdate ...52... *> ┆
0x19b60…19b7a 6e 65 78 74 5f 72 65 63 6f 72 64 3a 0a 0a 20 20 20 74 79 70 65 20 3a 3d 20 6e ┆next_record: type := n┆
0x19b7a…19b80 (0xcc,0x338)
0x19b80…19ba0 65 77 63 61 74 2e 6e 65 77 2e 69 66 32 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 0a 20 20 20 69 ┆ewcat.new.if2 shift (-12); i┆
0x19ba0…19bc0 66 20 74 79 70 65 20 3c 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆f type < 2 then begin comm┆
0x19bc0…19be0 65 6e 74 20 70 72 6f 6a 65 63 74 2d 72 65 63 6f 72 64 20 6f 72 20 65 6e 64 2d 6f 66 2d 73 65 67 ┆ent project-record or end-of-seg┆
0x19be0…19c00 6d 65 6e 74 3b 0a 20 20 20 20 20 20 69 66 20 6e 65 77 63 61 74 2e 6e 65 00 00 00 00 00 00 00 00 ┆ment; if newcat.ne ┆
0x19c00…19c06 (206,) (0xcc,0x339)
0x19c06…19c20 77 2e 69 66 32 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 5f 62 ┆w.if2 = 0 then goto next_b┆
0x19c20…19c40 6c 6f 63 6b 3b 0a 20 20 20 20 20 20 70 72 6f 6a 6e 6f 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 ┆lock; projno := newcat.new┆
0x19c40…19c60 2e 70 72 6f 6a 3b 0a 20 20 20 20 20 20 69 66 20 70 72 6f 6a 6e 6f 20 3d 20 28 2d 31 29 20 73 68 ┆.proj; if projno = (-1) sh┆
0x19c60…19c7e 69 66 74 20 28 2d 31 29 20 74 68 65 6e 20 67 6f 74 6f 20 66 69 6e 69 73 68 65 64 3b 0a 20 ┆ift (-1) then goto finished; ┆
0x19c7e…19c84 (0xcc,0x33a)
0x19c84…19ca0 20 20 20 20 20 65 6e 74 72 69 65 73 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 64 ┆ entries := newcat.new.d┆
0x19ca0…19cc0 69 73 63 5f 65 6e 74 72 20 73 68 69 66 74 20 28 2d 31 32 29 20 2b 20 65 6e 74 72 69 65 73 3b 0a ┆isc_entr shift (-12) + entries; ┆
0x19cc0…19ce0 20 20 20 20 20 20 6b 69 74 63 6f 75 6e 74 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 6e 61 6d 65 31 ┆ kitcount := 0; name1┆
0x19ce0…19cfc 20 3a 3d 20 6e 61 6d 65 32 20 3a 3d 20 6c 6f 6e 67 20 3c 3a 3a 3e 3b 0a 20 20 20 20 ┆ := name2 := long <::>; ┆
0x19cfc…19d02 (0xcc,0x33b)
0x19d02…19d20 20 20 65 6e 64 0a 0a 20 20 20 65 6c 73 65 0a 0a 20 20 20 69 66 20 74 79 70 65 20 3c 20 34 ┆ end else if type < 4┆
0x19d20…19d40 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 75 73 65 72 2d 72 ┆ then begin comment user-r┆
0x19d40…19d60 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 6b 69 74 63 6f 75 6e 74 20 3a 3d 20 30 3b 0a 20 20 20 20 ┆ecord; kitcount := 0; ┆
0x19d60…19d7a 20 20 6e 61 6d 65 31 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 75 73 65 72 ┆ name1 := newcat.new.user┆
0x19d7a…19d80 (0xcc,0x33c)
0x19d80…19da0 31 3b 0a 20 20 20 20 20 20 6e 61 6d 65 32 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 75 73 65 ┆1; name2 := newcat.new.use┆
0x19da0…19dc0 72 32 3b 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 65 6c 73 65 0a 0a 20 20 20 69 66 20 74 79 ┆r2; end else if ty┆
0x19dc0…19de0 70 65 20 3d 20 36 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆pe = 6 then begin comment ┆
0x19de0…19e00 70 72 69 76 61 74 65 20 64 69 73 63 6b 69 74 2c 20 73 65 61 72 63 68 20 00 00 00 00 00 00 00 00 ┆private disckit, search ┆
0x19e00…19e06 (207,) (0xcc,0x33d)
0x19e06…19e20 6b 69 74 6e 61 6d 65 20 69 6e 20 6b 69 74 74 61 62 6c 65 3b 0a 20 20 20 20 20 ┆kitname in kittable; ┆
0x19e20…19e40 20 66 6f 72 20 69 20 3a 3d 20 32 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f 64 ┆ for i := 2 step 2 until no_of_d┆
0x19e40…19e60 69 73 63 6b 69 74 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 69 66 20 6e 65 77 63 61 74 ┆isckits do if if newcat┆
0x19e60…19e7e 2e 6e 65 77 2e 6b 69 74 31 20 3c 3e 20 6b 69 74 74 61 62 6c 65 28 69 29 20 74 68 65 6e 20 ┆.new.kit1 <> kittable(i) then ┆
0x19e7e…19e84 (0xcc,0x33e)
0x19e84…19ea0 66 61 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6e 65 77 63 61 74 2e ┆false else newcat.┆
0x19ea0…19ec0 6e 65 77 2e 6b 69 74 32 20 3d 20 20 6b 69 74 74 61 62 6c 65 28 69 2b 31 29 20 74 68 65 6e 20 67 ┆new.kit2 = kittable(i+1) then g┆
0x19ec0…19ee0 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6b 69 74 6e 61 6d 65 ┆oto found; comment kitname┆
0x19ee0…19efc 20 77 61 73 20 6e 6f 74 20 69 6e 20 6b 69 74 74 61 62 6c 65 2c 20 69 6e 63 6c 75 64 ┆ was not in kittable, includ┆
0x19efc…19f02 (0xcc,0x33f)
0x19f02…19f20 65 20 69 74 20 6e 6f 77 2e 2e 2e 3b 0a 20 20 20 20 20 20 69 66 20 69 20 3e 20 32 2a 20 6d ┆e it now...; if i > 2* m┆
0x19f20…19f40 61 78 5f 6e 6f 5f 6f 66 5f 64 69 73 63 6b 69 74 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ax_no_of_disckits then ┆
0x19f40…19f60 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 77 61 72 6e 28 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 ┆begin warn(<::>); ┆
0x19f60…19f7a 20 20 20 20 73 79 73 74 65 6d 28 39 2c 20 69 2f 2f 32 2c 20 3c 3a 3c 31 30 3e ┆ system(9, i//2, <:<10>┆
0x19f7a…19f80 (0xcc,0x340)
0x19f80…19fa0 64 69 73 63 6b 69 74 73 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆disckits:>); end; ┆
0x19fa0…19fc0 20 6e 6f 5f 6f 66 5f 64 69 73 63 6b 69 74 73 20 3a 3d 20 69 3b 0a 20 20 20 20 20 20 6b 69 74 74 ┆ no_of_disckits := i; kitt┆
0x19fc0…19fe0 61 62 6c 65 28 69 29 20 20 20 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 6b 69 74 31 3b 0a 20 ┆able(i) := newcat.new.kit1; ┆
0x19fe0…1a000 20 20 20 20 20 6b 69 74 74 61 62 6c 65 28 69 2b 31 29 20 20 3a 3d 20 6e 00 00 00 00 00 00 00 00 ┆ kittable(i+1) := n ┆
0x1a000…1a006 (208,) (0xcc,0x341)
0x1a006…1a020 65 77 63 61 74 2e 6e 65 77 2e 6b 69 74 32 3b 0a 20 20 20 20 20 20 73 6c 69 63 ┆ewcat.new.kit2; slic┆
0x1a020…1a040 65 6c 65 6e 67 74 68 28 69 2f 2f 32 29 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 73 6c 69 63 ┆elength(i//2) := newcat.new.slic┆
0x1a040…1a060 65 6c 67 74 68 3b 0a 20 20 20 20 20 20 65 6e 74 72 28 69 2f 2f 32 29 20 20 20 20 20 3a 3d 20 30 ┆elgth; entr(i//2) := 0┆
0x1a060…1a07e 3b 0a 0a 20 20 20 66 6f 75 6e 64 3a 0a 20 20 20 20 20 20 6b 69 74 63 6f 75 6e 74 20 20 20 ┆; found: kitcount ┆
0x1a07e…1a084 (0xcc,0x342)
0x1a084…1a0a0 20 20 20 20 3a 3d 20 6b 69 74 63 6f 75 6e 74 20 2b 20 31 3b 0a 20 20 20 20 20 20 69 ┆ := kitcount + 1; i┆
0x1a0a0…1a0c0 66 20 6b 69 74 63 6f 75 6e 74 20 3d 20 6e 6f 5f 6f 66 5f 70 72 69 76 6b 69 74 73 20 2b 20 31 20 ┆f kitcount = no_of_privkits + 1 ┆
0x1a0c0…1a0e0 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 77 61 72 6e 28 3c 3a 74 6f 6f 20 6d 61 6e 79 20 70 ┆then warn(<:too many p┆
0x1a0e0…1a0fc 72 69 76 6b 69 74 73 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 74 72 28 69 2f 2f 32 29 ┆rivkits:>); entr(i//2)┆
0x1a0fc…1a102 (0xcc,0x343)
0x1a102…1a120 20 20 20 20 20 3a 3d 20 65 6e 74 72 28 69 2f 2f 32 29 20 2b 20 6e 65 77 63 61 74 2e 6e 65 ┆ := entr(i//2) + newcat.ne┆
0x1a120…1a140 77 2e 70 72 69 76 5f 65 6e 74 72 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 20 20 20 20 20 69 ┆w.priv_entr shift (-12); i┆
0x1a140…1a160 66 20 73 6c 69 63 65 6c 65 6e 67 74 68 28 69 2f 2f 32 29 20 3c 3e 20 6e 65 77 63 61 74 2e 6e 65 ┆f slicelength(i//2) <> newcat.ne┆
0x1a160…1a17a 77 2e 73 6c 69 63 65 6c 67 74 68 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆w.slicelgth then ┆
0x1a17a…1a180 (0xcc,0x344)
0x1a180…1a1a0 77 61 72 6e 28 3c 3a 64 69 66 66 65 72 65 6e 74 20 73 6c 69 63 65 2d 6c 65 6e 67 74 68 20 6f 6e ┆warn(<:different slice-length on┆
0x1a1a0…1a1c0 20 73 61 6d 65 20 6b 69 74 3a 3e 29 3b 0a 20 20 20 20 20 20 73 6c 69 63 65 6c 65 6e 67 74 68 28 ┆ same kit:>); slicelength(┆
0x1a1c0…1a1e0 69 2f 2f 32 29 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 73 6c 69 63 65 6c 67 74 68 3b 0a 20 ┆i//2) := newcat.new.slicelgth; ┆
0x1a1e0…1a200 20 20 20 20 20 65 6e 64 20 74 79 70 65 3d 36 0a 0a 20 20 20 65 6c 73 65 00 00 00 00 00 00 00 00 ┆ end type=6 else ┆
0x1a200…1a206 (209,) (0xcc,0x345)
0x1a206…1a220 0a 0a 20 20 20 69 66 20 74 79 70 65 20 3d 20 33 34 20 74 68 65 6e 0a 20 20 20 ┆ if type = 34 then ┆
0x1a220…1a240 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 75 73 65 72 70 6f 6f 6c 2d 72 65 63 6f 72 64 ┆ begin comment userpool-record┆
0x1a240…1a260 3b 0a 20 20 20 20 20 20 65 6e 74 72 69 65 73 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 75 73 ┆; entries := newcat.new.us┆
0x1a260…1a27e 65 72 64 69 73 63 5f 65 6e 74 72 20 73 68 69 66 74 20 28 2d 31 32 29 20 2b 20 65 6e 74 72 ┆erdisc_entr shift (-12) + entr┆
0x1a27e…1a284 (0xcc,0x346)
0x1a284…1a2a0 69 65 73 3b 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 65 6c 73 65 0a 0a 20 20 20 ┆ies; end else ┆
0x1a2a0…1a2c0 69 66 20 74 79 70 65 20 3d 20 34 34 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆if type = 44 then begin co┆
0x1a2c0…1a2e0 6d 6d 65 6e 74 20 70 65 72 6d 61 6e 65 6e 74 20 64 72 75 6d 2d 72 65 63 6f 72 64 3b 0a 20 20 20 ┆mment permanent drum-record; ┆
0x1a2e0…1a2fc 20 20 20 65 6e 74 72 69 65 73 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 2e 64 72 75 ┆ entries := newcat.new.dru┆
0x1a2fc…1a302 (0xcc,0x347)
0x1a302…1a320 6d 5f 65 6e 74 72 20 73 68 69 66 74 20 28 2d 31 32 29 20 2b 20 65 6e 74 72 69 65 73 3b 0a ┆m_entr shift (-12) + entries; ┆
0x1a320…1a340 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 6e 65 77 20 3a 3d 20 6e 65 77 63 61 74 2e 6e 65 77 ┆ end; new := newcat.new┆
0x1a340…1a360 2e 69 66 32 20 65 78 74 72 61 63 74 20 31 32 20 2b 20 6e 65 77 3b 0a 20 20 20 67 6f 74 6f 20 6e ┆.if2 extract 12 + new; goto n┆
0x1a360…1a37a 65 78 74 5f 72 65 63 6f 72 64 3b 0a 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 ┆ext_record; <* bbj 9┆
0x1a37a…1a380 (0xcc,0x348)
0x1a380…1a3a0 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 76 61 74 65 ┆ 9 76 private┆
0x1a3a0…1a3c0 20 6b 69 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e ┆ kits catupdate .┆
0x1a3c0…1a3e0 2e 2e 35 33 2e 2e 2e 20 20 2a 3e 0a 0a 66 69 6e 69 73 68 65 64 3a 0a 0a 20 20 20 67 65 74 70 6f ┆..53... *> finished: getpo┆
0x1a3e0…1a400 73 69 74 69 6f 6e 28 69 6e 64 65 78 2c 20 30 2c 20 6e 65 77 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆sition(index, 0, new); ┆
0x1a400…1a406 (210,) (0xcc,0x349)
0x1a406…1a420 20 20 69 66 20 6e 65 77 20 3e 3d 20 73 74 64 5f 75 73 65 72 63 61 74 5f 69 6e ┆ if new >= std_usercat_in┆
0x1a420…1a440 64 65 78 20 74 68 65 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e ┆dex then write(out, <:<10>┆
0x1a440…1a460 2a 2a 2a 73 74 64 5f 75 73 65 72 63 61 74 5f 69 6e 64 65 78 20 74 6f 6f 20 73 6d 61 6c 6c 2a 2a ┆***std_usercat_index too small**┆
0x1a460…1a47e 2a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 69 6e 64 65 78 2e 69 66 32 20 3a 3d 20 70 72 6f 6a ┆*<10>:>); index.if2 := proj┆
0x1a47e…1a484 (0xcc,0x34a)
0x1a484…1a4a0 6e 6f 3b 0a 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e ┆no; for i := 1 step 1 un┆
0x1a4a0…1a4c0 74 69 6c 20 6e 6f 5f 6f 66 5f 70 72 69 76 5f 64 69 73 63 64 72 69 76 65 73 20 64 6f 0a 20 20 20 ┆til no_of_priv_discdrives do ┆
0x1a4c0…1a4e0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 61 78 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 6d ┆ begin max := 0; m┆
0x1a4e0…1a4fc 61 78 69 6e 64 65 78 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 20 3a 3d ┆axindex := 1; for j :=┆
0x1a4fc…1a502 (0xcc,0x34b)
0x1a502…1a520 20 6e 6f 5f 6f 66 5f 64 69 73 63 6b 69 74 73 2f 2f 32 20 73 74 65 70 20 2d 31 20 75 6e 74 ┆ no_of_disckits//2 step -1 unt┆
0x1a520…1a540 69 6c 20 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 65 6e 74 72 28 6a 29 20 3e 20 6d 61 ┆il 1 do if entr(j) > ma┆
0x1a540…1a560 78 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆x then begin ┆
0x1a560…1a57a 20 20 20 20 20 6d 61 78 20 3a 3d 20 65 6e 74 72 28 6a 29 3b 0a 20 20 20 20 20 ┆ max := entr(j); ┆
0x1a57a…1a580 (0xcc,0x34c)
0x1a580…1a5a0 20 20 20 20 20 20 20 6d 61 78 69 6e 64 65 78 20 3a 3d 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ maxindex := j; ┆
0x1a5a0…1a5c0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 74 72 69 65 73 20 3a 3d 20 65 6e 74 72 69 65 73 20 ┆ end; entries := entries ┆
0x1a5c0…1a5e0 2b 20 6d 61 78 3b 0a 20 20 20 20 20 20 65 6e 74 72 28 6d 61 78 69 6e 64 65 78 29 20 3a 3d 20 30 ┆+ max; entr(maxindex) := 0┆
0x1a5e0…1a600 3b 20 20 63 6f 6d 6d 65 6e 74 20 69 2e 65 2e 20 63 6c 65 61 72 20 69 6e 00 00 00 00 00 00 00 00 ┆; comment i.e. clear in ┆
0x1a600…1a606 (211,) (0xcc,0x34d)
0x1a606…1a620 20 74 68 65 20 6b 69 74 74 61 62 6c 65 2e 2e 2e 3b 0a 20 20 20 20 20 20 65 6e ┆ the kittable...; en┆
0x1a620…1a640 64 3b 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 69 6e 64 65 78 2c 20 30 2c 20 30 29 3b 0a ┆d; setposition(index, 0, 0); ┆
0x1a640…1a660 20 20 20 73 77 6f 70 72 65 63 36 28 69 6e 64 65 78 2c 20 32 29 3b 0a 20 20 20 69 6e 64 65 78 2e ┆ swoprec6(index, 2); index.┆
0x1a660…1a67e 69 66 32 20 3a 3d 20 2d 20 65 6e 74 72 69 65 73 3b 0a 0a 20 20 20 3c 2a 20 63 75 74 20 6c ┆if2 := - entries; <* cut l┆
0x1a67e…1a684 (0xcc,0x34e)
0x1a684…1a6a0 65 6e 67 74 68 20 6f 66 20 6e 65 77 63 61 74 20 74 6f 20 73 65 67 6d 65 6e 74 73 20 ┆ength of newcat to segments ┆
0x1a6a0…1a6c0 61 63 74 75 61 6c 6c 79 20 75 73 65 64 2c 0a 20 20 20 20 20 20 61 6e 64 20 73 65 74 20 73 68 6f ┆actually used, and set sho┆
0x1a6c0…1a6e0 72 74 63 6c 6f 63 6b 20 69 6e 20 74 61 69 6c 20 2a 3e 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 ┆rtclock in tail *> monitor(42┆
0x1a6e0…1a6fc 20 3c 2a 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 20 2a 3e 2c 20 6e 65 77 63 61 74 2c ┆ <* lookup entry *>, newcat,┆
0x1a6fc…1a702 (0xcc,0x34f)
0x1a702…1a720 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 6e 65 77 63 ┆ 0, tail); getposition(newc┆
0x1a720…1a740 61 74 2c 20 30 2c 20 69 29 3b 0a 20 20 20 74 61 69 6c 28 31 29 3a 3d 20 69 20 2b 20 31 3b 20 20 ┆at, 0, i); tail(1):= i + 1; ┆
0x1a740…1a760 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 73 65 67 6d 65 6e 74 73 20 75 73 65 64 20 2a 3e 0a ┆ <* segments used *> ┆
0x1a760…1a77a 20 20 20 74 61 69 6c 28 36 29 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c 20 30 2c ┆ tail(6):= systime(7, 0,┆
0x1a77a…1a780 (0xcc,0x350)
0x1a780…1a7a0 20 30 2e 30 29 3b 20 3c 2a 20 73 68 6f 72 74 63 6c 6f 63 6b 20 2a 3e 0a 20 20 20 6d 6f 6e 69 74 ┆ 0.0); <* shortclock *> monit┆
0x1a7a0…1a7c0 6f 72 28 34 34 20 3c 2a 20 63 68 61 6e 67 65 20 65 6e 74 72 79 20 2a 3e 2c 20 6e 65 77 63 61 74 ┆or(44 <* change entry *>, newcat┆
0x1a7c0…1a7e0 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 0a 20 20 20 63 6c 6f 73 65 28 69 6e 64 65 78 2c 20 74 72 75 ┆, 0, tail); close(index, tru┆
0x1a7e0…1a800 65 29 3b 0a 20 20 20 63 6c 6f 73 65 28 6e 65 77 63 61 74 2c 74 72 75 65 00 00 00 00 00 00 00 00 ┆e); close(newcat,true ┆
0x1a800…1a806 (212,) (0xcc,0x351)
0x1a806…1a820 29 3b 0a 0a 65 6e 64 20 69 6e 64 65 78 2d 75 70 64 61 74 65 20 62 6c 6f 63 6b ┆); end index-update block┆
0x1a820…1a840 3b 0a 0a 65 6e 64 0a 0a 19 00 20 20 20 20 66 6f 72 20 6a 20 3a 3d 20 6e 6f 5f 6f 66 5f 64 69 73 ┆; end for j := no_of_dis┆
0x1a840…1a860 63 6b 69 74 73 2f 2f 32 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 64 6f 0a 20 20 20 20 ┆ckits//2 step -1 until 1 do ┆
0x1a860…1a87e 20 20 20 20 20 69 66 20 65 6e 74 72 28 6a 29 20 3e 20 6d 61 78 20 74 68 65 6e 0a 20 20 20 ┆ if entr(j) > max then ┆
0x1a87e…1a884 (0xcc,0x352)
0x1a884…1a8a0 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d ┆ begin m┆
0x1a8a0…1a8c0 61 78 20 3a 3d 20 65 6e 74 72 28 6a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6e ┆ax := entr(j); maxin┆
0x1a8c0…1a8e0 64 65 78 20 3a 3d 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆dex := j; end; ┆
0x1a8e0…1a8fc 20 65 6e 74 72 69 65 73 20 3a 3d 20 65 6e 74 72 69 65 73 20 2b 20 6d 61 78 3b 0a 20 ┆ entries := entries + max; ┆
0x1a8fc…1a902 (0xcc,0x353)
0x1a902…1a920 20 20 20 20 20 65 6e 74 72 28 6d 61 78 69 6e 64 65 78 29 20 3a 3d 20 30 3b 20 20 63 6f 6d ┆ entr(maxindex) := 0; com┆
0x1a920…1a940 6d 65 6e 74 20 69 2e 65 2e 20 63 6c 65 61 72 20 69 6e 20 74 68 65 20 6b 69 74 74 61 62 6c 65 2e ┆ment i.e. clear in the kittable.┆
0x1a940…1a960 2e 2e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 69 6e ┆..; end; setposition(in┆
0x1a960…1a97a 64 65 78 2c 20 30 2c 20 30 29 3b 0a 20 20 20 73 77 6f 70 72 65 63 36 28 69 6e ┆dex, 0, 0); swoprec6(in┆
0x1a97a…1a980 (0xcc,0x354)
0x1a980…1a9a0 64 65 78 2c 20 32 29 3b 0a 20 20 20 69 6e 64 65 78 2e 69 66 32 20 3a 3d 20 2d 20 65 6e 74 72 69 ┆dex, 2); index.if2 := - entri┆
0x1a9a0…1a9c0 65 73 3b 0a 0a 20 20 20 3c 2a 20 63 75 74 20 6c 65 6e 67 74 68 20 6f 66 20 6e 65 77 63 61 74 20 ┆es; <* cut length of newcat ┆
0x1a9c0…1a9e0 74 6f 20 73 65 67 6d 65 6e 74 73 20 61 63 74 75 61 6c 6c 79 20 75 73 65 64 2c 0a 20 20 20 20 20 ┆to segments actually used, ┆
0x1a9e0…1aa00 20 61 6e 64 20 73 65 74 20 73 68 6f 72 74 63 6c 6f 63 6b 20 69 6e 20 74 00 00 00 00 00 00 00 00 ┆ and set shortclock in t ┆
0x1aa00…1aa06 (213,) (0xcc,0x355)
0x1aa06…1aa20 61 69 6c 20 2a 3e 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 20 3c 2a 20 6c 6f ┆ail *> monitor(42 <* lo┆
0x1aa20…1aa40 6f 6b 75 70 20 65 6e 74 72 79 20 2a 3e 2c 20 6e 65 77 63 61 74 2c 20 30 2c 20 74 61 69 6c 29 3b ┆okup entry *>, newcat, 0, tail);┆
0x1aa40…1aa60 0a 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 6e 65 77 63 61 74 2c 20 30 2c 20 69 29 3b 0a 20 ┆ getposition(newcat, 0, i); ┆
0x1aa60…1aa7e 20 20 74 61 69 6c 28 31 29 3a 3d 20 69 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tail(1):= i + 1; ┆
0x1aa7e…1aa84 (0xcc,0x356)
0x1aa84…1aaa0 20 20 3c 2a 20 73 65 67 6d 65 6e 74 73 20 75 73 65 64 20 2a 3e 0a 20 20 20 74 61 69 ┆ <* segments used *> tai┆
0x1aaa0…1aac0 6c 28 36 29 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c 20 30 2c 20 61 6e 64 20 73 65 74 20 73 68 6f ┆l(6):= systime(7, 0, and set sho┆
0x1aac0…1aae0 72 74 63 6c 6f 63 6b 20 69 6e 20 74 61 69 6c 20 2a 3e 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 ┆rtclock in tail *> monitor(42┆
0x1aae0…1aafc 20 3c 2a 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 20 2a 3e 2c 20 6e 65 77 63 61 74 2c ┆ <* lookup entry *>, newcat,┆
0x1aafc…1ab02 (0x130,0x357)
0x1ab02…1ab20 75 73 65 72 6f 75 74 20 3d 20 73 65 74 20 35 30 20 64 69 73 63 0a 73 63 6f 70 65 20 75 73 ┆userout = set 50 disc scope us┆
0x1ab20…1ab40 65 72 20 75 73 65 72 6f 75 74 0a 28 75 73 65 72 6f 75 74 20 3d 20 61 6c 67 6f 6c 20 0a 65 6e 64 ┆er userout (userout = algol end┆
0x1ab40…1ab60 29 0a 62 65 67 69 6e 20 6d 65 73 73 61 67 65 20 76 65 72 73 69 6f 6e 69 64 20 3a 20 37 36 20 31 ┆) begin message versionid : 76 1┆
0x1ab60…1ab7a 30 20 32 38 2c 20 33 20 3b 0a 20 63 6f 6d 6d 65 6e 74 20 65 64 69 74 31 20 3a ┆0 28, 3 ; comment edit1 :┆
0x1ab7a…1ab80 (0x130,0x358)
0x1ab80…1aba0 0a 20 20 31 29 20 61 6c 6c 20 6e 65 77 20 74 79 70 65 73 20 69 6e 20 74 68 65 20 63 61 74 61 6c ┆ 1) all new types in the catal┆
0x1aba0…1abc0 6f 67 20 68 61 76 65 20 62 65 65 6e 20 61 64 64 65 64 20 28 35 38 2d 36 38 29 0a 20 20 32 29 20 ┆og have been added (58-68) 2) ┆
0x1abc0…1abe0 74 68 65 20 6c 61 79 6f 75 74 20 66 6f 72 20 6f 75 74 70 75 74 20 68 61 73 20 62 65 65 6e 20 73 ┆the layout for output has been s┆
0x1abe0…1ac00 6c 69 67 68 74 6c 79 20 6d 6f 64 69 66 69 65 64 0a 20 20 33 29 20 61 20 00 00 00 00 00 00 00 00 ┆lightly modified 3) a ┆
0x1ac00…1ac06 (214,) (0x130,0x359)
0x1ac06…1ac20 66 65 77 20 63 6f 6d 6d 65 6e 74 73 20 68 61 76 65 20 62 65 65 6e 20 61 64 64 ┆few comments have been add┆
0x1ac20…1ac40 65 64 20 69 6e 20 72 65 6c 65 76 61 6e 74 20 70 6c 61 63 65 73 0a 20 3b 0a 0a 69 6e 74 65 67 65 ┆ed in relevant places ; intege┆
0x1ac40…1ac60 72 20 69 2c 20 6a 2c 20 6e 6f 2c 20 20 62 69 6e 64 65 78 2c 20 77 69 6e 64 65 78 2c 20 73 65 67 ┆r i, j, no, bindex, windex, seg┆
0x1ac60…1ac7e 6d 65 6e 74 2c 20 6d 61 78 2c 0a 20 20 20 20 20 20 20 20 72 65 73 74 6c 69 6e 65 73 2c 20 ┆ment, max, restlines, ┆
0x1ac7e…1ac84 (0x130,0x35a)
0x1ac84…1aca0 70 61 67 65 2c 20 6c 65 6e 67 74 68 2c 20 74 79 70 65 2c 20 6d 61 78 74 79 70 65 2c ┆page, length, type, maxtype,┆
0x1aca0…1acc0 0a 20 20 20 20 20 20 20 20 69 6e 64 65 78 73 65 67 6d 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 ┆ indexsegm; integer arra┆
0x1acc0…1ace0 79 20 64 75 6d 6d 79 20 28 31 3a 31 30 29 3b 0a 7a 6f 6e 65 20 75 73 65 72 63 61 74 20 28 31 32 ┆y dummy (1:10); zone usercat (12┆
0x1ace0…1acfc 38 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 72 65 61 6c 20 64 61 74 65 2c 20 ┆8, 1, stderror); real date, ┆
0x1acfc…1ad02 (0x130,0x35b)
0x1ad02…1ad20 74 69 6d 65 3b 0a 62 6f 6f 6c 65 61 6e 20 6e 6c 2c 20 73 70 3b 0a 69 6e 74 65 67 65 72 20 ┆time; boolean nl, sp; integer ┆
0x1ad20…1ad40 61 72 72 61 79 20 66 69 65 6c 64 20 77 6f 72 64 72 65 63 3b 0a 62 6f 6f 6c 65 61 6e 20 61 72 72 ┆array field wordrec; boolean arr┆
0x1ad40…1ad60 61 79 20 66 69 65 6c 64 20 62 79 74 65 72 65 63 3b 0a 72 65 61 6c 20 20 20 20 61 72 72 61 79 20 ┆ay field byterec; real array ┆
0x1ad60…1ad7a 66 69 65 6c 64 20 74 65 78 74 72 65 63 3b 0a 20 20 20 20 20 20 0a 20 63 6f 6d ┆field textrec; com┆
0x1ad7a…1ad80 (0x130,0x35c)
0x1ad80…1ada0 6d 65 6e 74 0a 20 20 20 6c 65 6e 67 74 68 20 2d 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 ┆ment length - the length of t┆
0x1ada0…1adc0 68 65 20 63 75 72 72 65 6e 74 20 72 65 63 6f 72 64 20 69 6e 20 62 79 74 65 73 2e 0a 20 20 20 77 ┆he current record in bytes. w┆
0x1adc0…1ade0 69 6e 64 65 78 20 2d 20 74 65 6c 6c 73 20 68 6f 77 20 66 61 72 20 77 65 20 68 61 76 65 20 63 6f ┆index - tells how far we have co┆
0x1ade0…1ae00 6d 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 63 6f 72 64 00 00 00 00 00 00 00 00 ┆me in the current record ┆
0x1ae00…1ae06 (215,) (0x130,0x35d)
0x1ae06…1ae20 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 65 64 20 69 6e 20 77 6f ┆ counted in wo┆
0x1ae20…1ae40 72 64 73 2e 0a 20 20 20 62 69 6e 64 65 78 20 2d 20 61 73 20 61 62 6f 76 65 20 69 6e 20 62 79 74 ┆rds. bindex - as above in byt┆
0x1ae40…1ae60 65 73 2e 20 20 20 20 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 75 74 63 72 28 6e 6f 29 3b 0a 76 ┆es. ; procedure outcr(no); v┆
0x1ae60…1ae7e 61 6c 75 65 20 20 20 6e 6f 3b 0a 69 6e 74 65 67 65 72 20 6e 6f 3b 0a 20 20 62 65 67 69 6e ┆alue no; integer no; begin┆
0x1ae7e…1ae84 (0x130,0x35e)
0x1ae84…1aea0 0a 20 20 72 65 73 74 6c 69 6e 65 73 20 3a 3d 20 72 65 73 74 6c 69 6e 65 73 20 2d 20 ┆ restlines := restlines - ┆
0x1aea0…1aec0 6e 6f 3b 0a 20 20 69 66 20 72 65 73 74 6c 69 6e 65 73 20 3c 20 31 20 74 68 65 6e 20 6f 75 74 70 ┆no; if restlines < 1 then outp┆
0x1aec0…1aee0 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 77 72 ┆age else wr┆
0x1aee0…1aefc 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 6e 6f 29 3b 0a 20 20 65 6e 64 20 6f 75 74 63 72 ┆ite(out, nl,no); end outcr┆
0x1aefc…1af02 (0x130,0x35f)
0x1af02…1af20 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 75 74 70 61 67 65 3b 0a 20 20 62 65 67 69 6e 0a ┆; procedure outpage; begin ┆
0x1af20…1af40 20 20 70 61 67 65 20 3a 3d 20 70 61 67 65 20 2b 20 31 3b 0a 20 20 72 65 73 74 6c 69 6e 65 73 20 ┆ page := page + 1; restlines ┆
0x1af40…1af60 3a 3d 20 35 38 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 31 32 ┆:= 58; write(out, false add 12┆
0x1af60…1af7a 2c 31 2c 20 73 70 2c 34 30 2c 20 3c 3a 75 73 65 72 63 61 74 3a 3e 2c 0a 20 20 ┆,1, sp,40, <:usercat:>, ┆
0x1af7a…1af80 (0x130,0x360)
0x1af80…1afa0 20 20 20 20 20 20 20 73 70 2c 33 33 2c 20 3c 3c 20 20 64 64 20 64 64 20 64 64 3e 2c 20 64 61 74 ┆ sp,33, << dd dd dd>, dat┆
0x1afa0…1afc0 65 2c 20 3c 3c 20 20 20 20 64 64 20 64 64 3e 2c 20 74 69 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 ┆e, << dd dd>, time, ┆
0x1afc0…1afe0 3c 3a 20 20 20 70 61 67 65 3a 3e 2c 20 3c 3c 20 64 64 64 3e 2c 20 70 61 67 65 2c 20 6e 6c 2c 32 ┆<: page:>, << ddd>, page, nl,2┆
0x1afe0…1b000 29 3b 0a 20 69 66 20 70 61 67 65 3e 31 20 74 68 65 6e 20 77 72 69 74 65 00 00 00 00 00 00 00 00 ┆); if page>1 then write ┆
0x1b000…1b006 (216,) (0x130,0x361)
0x1b006…1b020 28 6f 75 74 2c 3c 3a 73 65 67 6d 20 20 62 79 74 65 20 20 74 79 70 65 3a 3e 2c ┆(out,<:segm byte type:>,┆
0x1b020…1b040 6e 6c 2c 31 29 3b 0a 20 20 65 6e 64 20 6f 75 74 70 61 67 65 3b 0a 0a 70 72 6f 63 65 64 75 72 65 ┆nl,1); end outpage; procedure┆
0x1b040…1b060 20 6e 65 78 74 73 65 67 6d 65 6e 74 3b 0a 20 20 62 65 67 69 6e 0a 20 20 73 65 67 6d 65 6e 74 20 ┆ nextsegment; begin segment ┆
0x1b060…1b07e 3a 3d 20 73 65 67 6d 65 6e 74 20 2b 20 31 3b 0a 20 20 69 6e 72 65 63 28 75 73 65 72 63 61 ┆:= segment + 1; inrec(userca┆
0x1b07e…1b084 (0x130,0x362)
0x1b084…1b0a0 74 2c 20 31 32 38 29 3b 0a 20 20 62 69 6e 64 65 78 20 3a 3d 20 77 69 6e 64 65 78 20 ┆t, 128); bindex := windex ┆
0x1b0a0…1b0c0 3a 3d 20 30 3b 0a 20 20 65 6e 64 20 6e 65 78 74 73 65 67 6d 65 6e 74 3b 0a 0a 70 72 6f 63 65 64 ┆:= 0; end nextsegment; proced┆
0x1b0c0…1b0e0 75 72 65 20 6e 65 78 74 72 65 63 3b 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 20 74 68 ┆ure nextrec; begin comment th┆
0x1b0e0…1b0fc 65 20 70 72 6f 63 65 64 75 72 65 20 6d 61 6b 65 73 20 74 68 65 20 6e 65 78 74 20 72 ┆e procedure makes the next r┆
0x1b0fc…1b102 (0x130,0x363)
0x1b102…1b120 65 63 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 76 61 69 6c 61 62 ┆ecord availab┆
0x1b120…1b140 6c 65 20 66 6f 72 20 70 72 69 6e 74 69 6e 67 2c 20 61 6e 64 20 70 72 69 6e 74 73 20 61 0a 20 20 ┆le for printing, and prints a ┆
0x1b140…1b160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 20 68 65 61 64 3b 0a 20 20 69 6e ┆ record head; in┆
0x1b160…1b17a 74 65 67 65 72 20 77 6f 72 64 3b 0a 20 20 62 69 6e 64 65 78 20 3a 3d 20 62 69 ┆teger word; bindex := bi┆
0x1b17a…1b180 (0x130,0x364)
0x1b180…1b1a0 6e 64 65 78 20 2b 20 6c 65 6e 67 74 68 3b 0a 20 20 77 69 6e 64 65 78 20 3a 3d 20 77 69 6e 64 65 ┆ndex + length; windex := winde┆
0x1b1a0…1b1c0 78 20 2b 20 6c 65 6e 67 74 68 2f 32 3b 0a 20 20 69 66 20 62 69 6e 64 65 78 20 3e 20 35 31 30 20 ┆x + length/2; if bindex > 510 ┆
0x1b1c0…1b1e0 74 68 65 6e 20 6e 65 78 74 73 65 67 6d 65 6e 74 3b 0a 20 20 66 6f 72 20 77 6f 72 64 20 3a 3d 20 ┆then nextsegment; for word := ┆
0x1b1e0…1b200 75 73 65 72 63 61 74 2e 77 6f 72 64 72 65 63 28 77 69 6e 64 65 78 29 20 00 00 00 00 00 00 00 00 ┆usercat.wordrec(windex) ┆
0x1b200…1b206 (217,) (0x130,0x365)
0x1b206…1b220 77 68 69 6c 65 20 77 6f 72 64 20 3d 20 30 20 64 6f 0a 20 20 20 20 6e 65 78 74 ┆while word = 0 do next┆
0x1b220…1b240 73 65 67 6d 65 6e 74 3b 0a 20 20 74 79 70 65 20 20 20 3a 3d 20 75 73 65 72 63 61 74 2e 62 79 74 ┆segment; type := usercat.byt┆
0x1b240…1b260 65 72 65 63 28 62 69 6e 64 65 78 29 20 20 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 6c 65 6e ┆erec(bindex) extract 12; len┆
0x1b260…1b27e 67 74 68 20 3a 3d 20 75 73 65 72 63 61 74 2e 62 79 74 65 72 65 63 28 62 69 6e 64 65 78 2b ┆gth := usercat.byterec(bindex+┆
0x1b27e…1b284 (0x130,0x366)
0x1b284…1b2a0 31 29 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 69 66 20 74 79 70 65 20 3c 20 34 ┆1) extract 12; if type < 4┆
0x1b2a0…1b2c0 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 72 65 73 74 6c 69 6e 65 73 ┆ then begin if restlines┆
0x1b2c0…1b2e0 20 3c 3e 20 35 38 20 74 68 65 6e 20 6f 75 74 63 72 28 69 66 20 74 79 70 65 20 3c 20 32 20 74 68 ┆ <> 58 then outcr(if type < 2 th┆
0x1b2e0…1b2fc 65 6e 20 35 20 65 6c 73 65 20 32 29 3b 0a 20 20 20 20 69 66 20 72 65 73 74 6c 69 6e ┆en 5 else 2); if restlin┆
0x1b2fc…1b302 (0x130,0x367)
0x1b302…1b320 65 73 20 3c 20 28 69 66 20 74 79 70 65 20 3c 20 32 20 74 68 65 6e 20 31 30 20 65 6c 73 65 ┆es < (if type < 2 then 10 else┆
0x1b320…1b340 20 35 29 20 74 68 65 6e 20 6f 75 74 70 61 67 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 6f 75 74 ┆ 5) then outpage; end; out┆
0x1b340…1b360 63 72 28 31 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 64 64 3e 2c 20 3c 3a 28 3a ┆cr(1); write(out, <<ddd>, <:(:┆
0x1b360…1b37a 3e 2c 20 73 65 67 6d 65 6e 74 2c 20 3c 3a 2c 3a 3e 2c 20 62 69 6e 64 65 78 2c ┆>, segment, <:,:>, bindex,┆
0x1b37a…1b380 (0x130,0x368)
0x1b380…1b3a0 20 3c 3a 29 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 73 70 2c 33 2c 20 74 79 70 65 29 3b 0a 20 20 ┆ <:):>, sp,3, type); ┆
0x1b3a0…1b3c0 69 66 20 74 79 70 65 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 77 72 69 74 65 ┆if type extract 1 = 1 then write┆
0x1b3c0…1b3e0 28 6f 75 74 2c 20 73 70 2c 33 2c 20 3c 3a 6d 61 78 3a 3e 29 3b 0a 20 20 65 6e 64 20 6e 65 78 74 ┆(out, sp,3, <:max:>); end next┆
0x1b3e0…1b400 72 65 63 3b 0a 0c 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 74 28 72 65 6c 00 00 00 00 00 00 00 00 ┆rec; procedure int(rel ┆
0x1b400…1b406 (218,) (0x130,0x369)
0x1b406…1b420 2c 20 74 65 78 74 29 3b 0a 76 61 6c 75 65 20 20 20 72 65 6c 3b 0a 69 6e 74 65 ┆, text); value rel; inte┆
0x1b420…1b440 67 65 72 20 72 65 6c 3b 0a 73 74 72 69 6e 67 20 20 74 65 78 74 3b 0a 20 20 77 72 69 74 65 28 6f ┆ger rel; string text; write(o┆
0x1b440…1b460 75 74 2c 20 73 70 2c 33 2c 20 74 65 78 74 2c 20 3c 3a 20 3d 20 3a 3e 2c 20 3c 3c 64 3e 2c 0a 20 ┆ut, sp,3, text, <: = :>, <<d>, ┆
0x1b460…1b47e 20 20 20 20 20 20 20 20 75 73 65 72 63 61 74 2e 77 6f 72 64 72 65 63 28 77 69 6e 64 65 78 ┆ usercat.wordrec(windex┆
0x1b47e…1b484 (0x130,0x36a)
0x1b484…1b4a0 20 2b 20 72 65 6c 2f 32 29 29 3b 0a 20 20 20 20 0a 70 72 6f 63 65 64 75 72 65 20 69 ┆ + rel/2)); procedure i┆
0x1b4a0…1b4c0 6e 74 32 28 74 78 74 29 3b 0a 73 74 72 69 6e 67 20 74 78 74 3b 0a 20 20 77 72 69 74 65 28 6f 75 ┆nt2(txt); string txt; write(ou┆
0x1b4c0…1b4e0 74 2c 20 73 70 2c 20 33 2c 20 74 78 74 2c 20 73 70 20 2c 20 32 2c 20 69 66 20 75 73 65 72 63 61 ┆t, sp, 3, txt, sp , 2, if userca┆
0x1b4e0…1b4fc 74 2e 77 6f 72 64 72 65 63 28 77 69 6e 64 65 78 2b 31 29 3d 30 20 74 68 65 6e 20 0a ┆t.wordrec(windex+1)=0 then ┆
0x1b4fc…1b502 (0x130,0x36b)
0x1b502…1b520 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6e 6f 3a 3e 20 65 6c 73 65 20 3c 3a 79 65 73 ┆ <:no:> else <:yes┆
0x1b520…1b540 3a 3e 29 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 64 6f 75 62 6c 65 28 72 65 6c 2c 20 74 65 78 ┆:>); procedure double(rel, tex┆
0x1b540…1b560 74 29 3b 0a 76 61 6c 75 65 20 20 20 72 65 6c 3b 0a 69 6e 74 65 67 65 72 20 72 65 6c 3b 0a 73 74 ┆t); value rel; integer rel; st┆
0x1b560…1b57a 72 69 6e 67 20 20 74 65 78 74 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 ┆ring text; write(out, s┆
0x1b57a…1b580 (0x130,0x36c)
0x1b580…1b5a0 70 2c 33 2c 20 74 65 78 74 2c 20 3c 3a 20 3d 20 3a 3e 2c 20 3c 3c 64 3e 2c 0a 20 20 20 20 20 20 ┆p,3, text, <: = :>, <<d>, ┆
0x1b5a0…1b5c0 20 20 20 75 73 65 72 63 61 74 2e 77 6f 72 64 72 65 63 28 77 69 6e 64 65 78 20 2b 20 72 65 6c 2f ┆ usercat.wordrec(windex + rel/┆
0x1b5c0…1b5e0 32 29 2c 20 3c 3a 2f 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 75 73 65 72 63 61 74 2e 77 6f 72 64 ┆2), <:/:>, usercat.word┆
0x1b5e0…1b600 72 65 63 28 77 69 6e 64 65 78 20 2b 20 72 65 6c 2f 32 20 2b 20 31 29 29 00 00 00 00 00 00 00 00 ┆rec(windex + rel/2 + 1)) ┆
0x1b600…1b606 (219,) (0x130,0x36d)
0x1b606…1b620 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 62 79 74 65 73 28 72 65 6c 2c 20 74 ┆; procedure bytes(rel, t┆
0x1b620…1b640 65 78 74 29 3b 0a 76 61 6c 75 65 20 20 20 72 65 6c 3b 0a 69 6e 74 65 67 65 72 20 72 65 6c 3b 0a ┆ext); value rel; integer rel; ┆
0x1b640…1b660 73 74 72 69 6e 67 20 20 74 65 78 74 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 33 2c ┆string text; write(out, sp,3,┆
0x1b660…1b67e 20 74 65 78 74 2c 20 3c 3a 20 3d 20 3a 3e 2c 20 3c 3c 64 3e 2c 0a 20 20 20 20 20 20 20 20 ┆ text, <: = :>, <<d>, ┆
0x1b67e…1b684 (0x130,0x36e)
0x1b684…1b6a0 20 75 73 65 72 63 61 74 2e 62 79 74 65 72 65 63 28 62 69 6e 64 65 78 20 2b 20 72 65 ┆ usercat.byterec(bindex + re┆
0x1b6a0…1b6c0 6c 29 20 65 78 74 72 61 63 74 20 31 32 2c 20 3c 3a 2f 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 75 ┆l) extract 12, <:/:>, u┆
0x1b6c0…1b6e0 73 65 72 63 61 74 2e 62 79 74 65 72 65 63 28 62 69 6e 64 65 78 20 2b 20 72 65 6c 20 2b 20 31 29 ┆sercat.byterec(bindex + rel + 1)┆
0x1b6e0…1b6fc 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 62 69 74 ┆ extract 12); procedure bit┆
0x1b6fc…1b702 (0x130,0x36f)
0x1b702…1b720 6d 61 73 6b 28 74 65 78 74 29 3b 0a 73 74 72 69 6e 67 20 74 65 78 74 3b 0a 62 65 67 69 6e ┆mask(text); string text; begin┆
0x1b720…1b740 20 69 6e 74 65 67 65 72 20 77 6f 72 64 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 73 70 2c 33 2c ┆ integer word; write(out,sp,3,┆
0x1b740…1b760 74 65 78 74 2c 3c 3a 20 3a 20 3a 3e 29 3b 0a 20 20 77 6f 72 64 3a 3d 20 75 73 65 72 63 61 74 2e ┆text,<: : :>); word:= usercat.┆
0x1b760…1b77a 77 6f 72 64 72 65 63 28 77 69 6e 64 65 78 2b 31 29 3b 0a 20 20 66 6f 72 20 69 ┆wordrec(windex+1); for i┆
0x1b77a…1b780 (0x130,0x370)
0x1b780…1b7a0 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 34 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 ┆:=1 step 1 until 24 do begin ┆
0x1b7a0…1b7c0 20 20 20 69 66 20 77 6f 72 64 3c 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 31 3a ┆ if word<0 then write(out,<:1:┆
0x1b7c0…1b7e0 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c ┆>) else write(out,┆
0x1b7e0…1b800 3c 3a 30 3a 3e 29 3b 0a 20 20 20 20 77 6f 72 64 3a 3d 77 6f 72 64 20 73 00 00 00 00 00 00 00 00 ┆<:0:>); word:=word s ┆
0x1b800…1b806 (220,) (0x130,0x371)
0x1b806…1b820 68 69 66 74 20 31 3b 0a 20 20 65 6e 64 3b 0a 65 6e 64 20 70 72 6f 63 20 62 69 ┆hift 1; end; end proc bi┆
0x1b820…1b840 74 6d 61 73 6b 3b 0a 0a 20 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 74 65 78 74 28 72 65 6c 2c 20 ┆tmask; procedure text(rel, ┆
0x1b840…1b860 74 78 74 29 3b 0a 76 61 6c 75 65 20 20 20 72 65 6c 3b 0a 69 6e 74 65 67 65 72 20 72 65 6c 3b 0a ┆txt); value rel; integer rel; ┆
0x1b860…1b87e 73 74 72 69 6e 67 20 20 74 78 74 3b 0a 20 20 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 ┆string txt; begin integer┆
0x1b87e…1b884 (0x130,0x372)
0x1b884…1b8a0 20 69 3b 0a 20 20 74 65 78 74 72 65 63 20 3a 3d 20 62 69 6e 64 65 78 20 2b 20 72 65 ┆ i; textrec := bindex + re┆
0x1b8a0…1b8c0 6c 20 2d 20 31 3b 0a 20 20 69 20 3a 3d 20 31 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 ┆l - 1; i := 1; write(out, sp┆
0x1b8c0…1b8e0 2c 33 2c 20 74 78 74 2c 20 73 74 72 69 6e 67 20 75 73 65 72 63 61 74 2e 74 65 78 74 72 65 63 28 ┆,3, txt, string usercat.textrec(┆
0x1b8e0…1b8fc 69 6e 63 72 65 61 73 65 28 69 29 29 29 3b 0a 20 20 65 6e 64 20 74 65 78 74 3b 0a 0a ┆increase(i))); end text; ┆
0x1b8fc…1b902 (0x130,0x373)
0x1b902…1b920 0a 70 72 6f 63 65 64 75 72 65 20 62 69 74 73 28 72 65 6c 2c 20 74 65 78 74 2c 20 77 6f 72 ┆ procedure bits(rel, text, wor┆
0x1b920…1b940 64 73 29 3b 0a 76 61 6c 75 65 20 20 20 72 65 6c 2c 20 77 6f 72 64 73 3b 0a 69 6e 74 65 67 65 72 ┆ds); value rel, words; integer┆
0x1b940…1b960 20 72 65 6c 2c 20 77 6f 72 64 73 3b 0a 73 74 72 69 6e 67 20 20 74 65 78 74 3b 0a 20 20 62 65 67 ┆ rel, words; string text; beg┆
0x1b960…1b97a 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6a 2c 20 77 6f 72 64 3b 0a 20 ┆in integer i, j, word; ┆
0x1b97a…1b980 (0x130,0x374)
0x1b980…1b9a0 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 33 2c 20 74 65 78 74 2c 20 3c 3a 20 3a 20 3a 3e 29 ┆ write(out, sp,3, text, <: : :>)┆
0x1b9a0…1b9c0 3b 0a 20 20 66 6f 72 20 69 20 3a 3d 20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 77 6f 72 64 ┆; for i := 0 step 1 until word┆
0x1b9c0…1b9e0 73 2d 31 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 77 6f 72 64 20 3a 3d 20 75 73 65 ┆s-1 do begin word := use┆
0x1b9e0…1ba00 72 63 61 74 2e 77 6f 72 64 72 65 63 28 77 69 6e 64 65 78 20 2b 20 72 65 00 00 00 00 00 00 00 00 ┆rcat.wordrec(windex + re ┆
0x1ba00…1ba06 (221,) (0x130,0x375)
0x1ba06…1ba20 6c 2f 32 20 2b 20 69 29 3b 0a 20 20 20 20 66 6f 72 20 6a 20 3a 3d 20 30 20 73 ┆l/2 + i); for j := 0 s┆
0x1ba20…1ba40 74 65 70 20 31 20 75 6e 74 69 6c 20 32 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆tep 1 until 23 do begin ┆
0x1ba40…1ba60 20 20 20 20 69 66 20 28 74 79 70 65 20 65 78 74 72 61 63 74 20 31 20 3d 20 30 29 20 61 6e 64 20 ┆ if (type extract 1 = 0) and ┆
0x1ba60…1ba7e 28 77 6f 72 64 3c 30 29 20 74 68 65 6e 20 3c 2a 73 74 61 6e 64 61 72 64 2a 3e 0a 20 20 20 ┆(word<0) then <*standard*> ┆
0x1ba7e…1ba84 (0x130,0x376)
0x1ba84…1baa0 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 20 64 3e 2c 32 34 2a 69 2b 6a 29 3b ┆ write(out,<< d>,24*i+j);┆
0x1baa0…1bac0 0a 20 20 20 20 20 20 69 66 20 28 74 79 70 65 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 29 20 61 ┆ if (type extract 1 = 1) a┆
0x1bac0…1bae0 6e 64 20 28 77 6f 72 64 3e 30 29 20 74 68 65 6e 20 3c 2a 6d 61 78 2a 3e 0a 20 20 20 20 20 20 20 ┆nd (word>0) then <*max*> ┆
0x1bae0…1bafc 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 20 64 3e 2c 32 34 2a 69 2b 6a 29 3b 0a 20 20 ┆ write(out,<< d>,24*i+j); ┆
0x1bafc…1bb02 (0x130,0x377)
0x1bb02…1bb20 20 20 20 20 3c 2a 20 74 68 65 20 64 65 76 69 63 65 6d 61 73 6b 20 68 61 73 20 74 68 65 20 ┆ <* the devicemask has the ┆
0x1bb20…1bb40 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 74 65 6e 74 0a 20 20 20 20 20 20 20 20 20 6d 61 78 20 3a ┆following content max :┆
0x1bb40…1bb60 20 31 20 2d 20 64 65 76 69 63 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 0a 20 20 20 20 20 20 20 20 ┆ 1 - device not allowed ┆
0x1bb60…1bb7a 20 20 20 20 20 20 20 30 20 2d 20 64 65 76 69 63 65 20 61 6c 6c 6f 77 65 64 0a ┆ 0 - device allowed ┆
0x1bb7a…1bb80 (0x130,0x378)
0x1bb80…1bba0 0a 20 20 20 20 20 20 20 20 20 73 74 64 20 3a 20 31 20 2d 20 64 65 76 69 63 65 20 61 6c 6c 6f 77 ┆ std : 1 - device allow┆
0x1bba0…1bbc0 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 2d 20 64 65 76 69 63 65 20 6e 6f 74 ┆ed 0 - device not┆
0x1bbc0…1bbe0 20 61 6c 6c 6f 77 65 64 0a 20 20 20 20 20 20 2a 3e 0a 20 20 20 20 20 20 77 6f 72 64 20 3a 3d 20 ┆ allowed *> word := ┆
0x1bbe0…1bc00 77 6f 72 64 20 73 68 69 66 74 20 31 3b 0a 20 20 20 20 20 20 65 6e 64 0a 00 00 00 00 00 00 00 00 ┆word shift 1; end ┆
0x1bc00…1bc06 (222,) (0x130,0x379)
0x1bc06…1bc20 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 20 62 69 74 73 3b 0a 0c 0a 62 79 74 65 ┆ end end bits; byte┆
0x1bc20…1bc40 72 65 63 20 3a 3d 20 31 3b 0a 77 6f 72 64 72 65 63 20 3a 3d 20 32 3b 0a 73 65 67 6d 65 6e 74 20 ┆rec := 1; wordrec := 2; segment ┆
0x1bc40…1bc60 3a 3d 20 2d 31 3b 0a 70 61 67 65 20 3a 3d 20 30 3b 0a 6c 65 6e 67 74 68 20 3a 3d 20 30 3b 0a 6d ┆:= -1; page := 0; length := 0; m┆
0x1bc60…1bc7e 61 78 20 3a 3d 20 28 2d 31 29 20 65 78 74 72 61 63 74 20 32 33 3b 0a 6d 61 78 74 79 70 65 ┆ax := (-1) extract 23; maxtype┆
0x1bc7e…1bc84 (0x130,0x37a)
0x1bc84…1bca0 20 3a 3d 20 37 30 3b 0a 0a 6e 6c 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 31 30 3b ┆ := 70; nl := false add 10;┆
0x1bca0…1bcc0 0a 73 70 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 33 32 3b 0a 0a 73 79 73 74 69 6d 65 28 31 2c ┆ sp := false add 32; systime(1,┆
0x1bcc0…1bce0 20 30 2c 20 64 61 74 65 29 3b 0a 64 61 74 65 20 3a 3d 20 73 79 73 74 69 6d 65 28 32 2c 20 64 61 ┆ 0, date); date := systime(2, da┆
0x1bce0…1bcfc 74 65 2c 20 74 69 6d 65 29 3b 0a 74 69 6d 65 20 3a 3d 20 74 69 6d 65 2f 31 30 30 3b ┆te, time); time := time/100;┆
0x1bcfc…1bd02 (0x130,0x37b)
0x1bd02…1bd20 0a 0a 6f 70 65 6e 28 75 73 65 72 63 61 74 2c 20 34 2c 20 3c 3a 75 73 65 72 63 61 74 3a 3e ┆ open(usercat, 4, <:usercat:>┆
0x1bd20…1bd40 2c 20 30 29 3b 0a 6d 6f 6e 69 74 6f 72 28 35 32 2c 20 75 73 65 72 63 61 74 2c 20 69 2c 20 64 75 ┆, 0); monitor(52, usercat, i, du┆
0x1bd40…1bd60 6d 6d 79 29 3b 0a 69 66 20 6d 6f 6e 69 74 6f 72 28 38 2c 20 75 73 65 72 63 61 74 2c 20 69 2c 20 ┆mmy); if monitor(8, usercat, i, ┆
0x1bd60…1bd7a 64 75 6d 6d 79 29 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 ┆dummy) <> 0 then begin ┆
0x1bd7a…1bd80 (0x130,0x37c)
0x1bd80…1bda0 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 32 2c 20 3c 3a 2a 2a 2a 20 75 73 65 72 63 61 74 20 ┆ write(out, nl,2, <:*** usercat ┆
0x1bda0…1bdc0 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 3a 3e 29 3b 0a 20 20 67 6f 74 6f 20 66 69 6e 69 73 3b 0a ┆not available:>); goto finis; ┆
0x1bdc0…1bde0 20 20 65 6e 64 3b 0a 0a 6f 75 74 70 61 67 65 3b 0a 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 34 ┆ end; outpage; write(out, sp,4┆
0x1bde0…1be00 31 2c 20 3c 3a 69 6e 64 65 78 74 61 62 6c 65 3a 3e 29 3b 0a 6f 75 74 63 00 00 00 00 00 00 00 00 ┆1, <:indextable:>); outc ┆
0x1be00…1be06 (223,) (0x130,0x37d)
0x1be06…1be20 72 28 32 29 3b 0a 6e 65 78 74 73 65 67 6d 65 6e 74 3b 0a 69 6e 64 65 78 73 65 ┆r(2); nextsegment; indexse┆
0x1be20…1be40 67 6d 3a 3d 20 6a 20 3a 3d 20 30 3b 0a 66 6f 72 20 6a 20 3a 3d 20 6a 20 2b 20 31 20 77 68 69 6c ┆gm:= j := 0; for j := j + 1 whil┆
0x1be40…1be60 65 20 75 73 65 72 63 61 74 2e 77 6f 72 64 72 65 63 28 6a 29 20 3c 20 30 20 64 6f 3b 0a 20 63 6f ┆e usercat.wordrec(j) < 0 do; co┆
0x1be60…1be7e 6d 6d 65 6e 74 20 74 68 65 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 20 61 6e 64 20 74 ┆mment the segment number and t┆
0x1be7e…1be84 (0x130,0x37e)
0x1be84…1bea0 68 65 20 70 72 6f 6a 65 63 74 6e 75 6d 62 65 72 20 65 6e 64 69 6e 67 20 74 68 69 73 ┆he projectnumber ending this┆
0x1bea0…1bec0 20 73 65 67 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 69 73 20 77 72 69 74 74 65 6e 20 6f 75 74 ┆ segment is written out┆
0x1bec0…1bee0 20 28 69 2e 65 2e 20 74 68 65 20 69 6e 64 65 78 74 61 62 6c 65 29 3b 0a 20 6e 6f 20 3a 3d 20 30 ┆ (i.e. the indextable); no := 0┆
0x1bee0…1befc 3b 0a 66 6f 72 20 69 20 3a 3d 20 30 2c 20 69 2b 31 20 77 68 69 6c 65 20 6e 6f 20 3c ┆; for i := 0, i+1 while no <┆
0x1befc…1bf02 (0x130,0x37f)
0x1bf02…1bf20 3e 20 6d 61 78 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 6e 6f 20 3a 3d 20 75 73 65 72 63 ┆> max do begin no := userc┆
0x1bf20…1bf40 61 74 2e 77 6f 72 64 72 65 63 28 69 20 2d 20 32 35 36 2a 28 73 65 67 6d 65 6e 74 20 2d 20 69 6e ┆at.wordrec(i - 256*(segment - in┆
0x1bf40…1bf60 64 65 78 73 65 67 6d 29 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 32 32 2c 20 3c ┆dexsegm)); write(out, sp,22, <┆
0x1bf60…1bf7a 3c 64 64 64 3e 2c 20 69 2c 20 3c 3c 20 2d 64 64 64 64 64 64 64 64 3e 2c 20 6e ┆<ddd>, i, << -dddddddd>, n┆
0x1bf7a…1bf80 (0x130,0x380)
0x1bf80…1bfa0 6f 29 3b 0a 20 20 69 66 20 69 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 6f 75 ┆o); if i extract 1 = 1 then ou┆
0x1bfa0…1bfc0 74 63 72 28 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆tcr(1) else┆
0x1bfc0…1bfe0 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 31 30 29 3b 0a 20 20 69 66 20 69 20 65 78 74 72 61 ┆ write(out, sp,10); if i extra┆
0x1bfe0…1c000 63 74 20 38 20 3d 20 32 35 35 20 74 68 65 6e 20 6e 65 78 74 73 65 67 6d 00 00 00 00 00 00 00 00 ┆ct 8 = 255 then nextsegm ┆
0x1c000…1c006 (224,) (0x130,0x381)
0x1c006…1c020 65 6e 74 3b 0a 20 20 65 6e 64 3b 0a 66 6f 72 20 6a 20 3a 3d 20 6a 20 77 68 69 ┆ent; end; for j := j whi┆
0x1c020…1c040 6c 65 20 6a 20 3c 3e 20 73 65 67 6d 65 6e 74 20 64 6f 20 6e 65 78 74 73 65 67 6d 65 6e 74 3b 0a ┆le j <> segment do nextsegment; ┆
0x1c040…1c060 0a 6f 75 74 70 61 67 65 3b 0a 0c 0a 0a 0a 0a 6e 65 78 74 3a 0a 0a 6e 65 78 74 72 65 63 3b 0a 69 ┆ outpage; next: nextrec; i┆
0x1c060…1c07e 66 20 74 79 70 65 20 3e 20 28 6d 61 78 74 79 70 65 2b 31 29 20 74 68 65 6e 20 67 6f 74 6f ┆f type > (maxtype+1) then goto┆
0x1c07e…1c084 (0x130,0x382)
0x1c084…1c0a0 20 75 6e 6b 6e 6f 77 6e 3b 0a 63 61 73 65 20 74 79 70 65 2f 2f 32 20 2b 20 31 20 6f ┆ unknown; case type//2 + 1 o┆
0x1c0a0…1c0c0 66 0a 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 79 70 ┆f begin begin comment typ┆
0x1c0c0…1c0e0 65 20 30 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 70 72 6f 6a 65 63 74 3a 3e 29 3b 0a 20 63 ┆e 0; int(2, <:project:>); c┆
0x1c0e0…1c0fc 6f 6d 6d 65 6e 74 20 74 68 65 20 63 61 74 61 6c 6f 67 20 69 73 20 66 69 6e 69 73 68 ┆omment the catalog is finish┆
0x1c0fc…1c102 (0x130,0x383)
0x1c102…1c120 65 64 20 62 79 20 61 20 70 72 6f 6a 65 63 74 20 77 69 74 68 20 74 68 65 20 70 72 6f 6a 65 ┆ed by a project with the proje┆
0x1c120…1c140 63 74 6e 75 6d 62 65 72 20 32 2a 2a 32 33 2d 31 0a 20 3b 0a 20 20 20 20 69 66 20 75 73 65 72 63 ┆ctnumber 2**23-1 ; if userc┆
0x1c140…1c160 61 74 2e 77 6f 72 64 72 65 63 28 77 69 6e 64 65 78 2b 31 29 20 3d 20 6d 61 78 20 74 68 65 6e 20 ┆at.wordrec(windex+1) = max then ┆
0x1c160…1c17a 67 6f 74 6f 20 66 69 6e 69 73 3b 0a 20 20 20 20 64 6f 75 62 6c 65 28 34 2c 20 ┆goto finis; double(4, ┆
0x1c17a…1c180 (0x130,0x384)
0x1c180…1c1a0 3c 3a 6d 61 78 20 69 6e 74 65 72 76 61 6c 3a 3e 29 3b 0a 20 20 20 20 72 65 73 74 6c 69 6e 65 73 ┆<:max interval:>); restlines┆
0x1c1a0…1c1c0 20 3a 3d 20 72 65 73 74 6c 69 6e 65 73 20 2d 20 31 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆ := restlines - 1; write(out┆
0x1c1c0…1c1e0 2c 20 6e 6c 2c 31 2c 20 73 70 2c 31 35 29 3b 0a 20 20 20 20 62 79 74 65 73 28 38 2c 20 3c 3a 72 ┆, nl,1, sp,15); bytes(8, <:r┆
0x1c1e0…1c200 65 73 74 20 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 20 6f 6e 20 00 00 00 00 00 00 00 00 ┆est entries, slices on ┆
0x1c200…1c206 (225,) (0x130,0x385)
0x1c206…1c220 64 69 73 63 3a 3e 29 3b 0a 20 20 20 20 62 79 74 65 73 28 31 30 2c 3c 3a 74 6f ┆disc:>); bytes(10,<:to┆
0x1c220…1c240 74 61 6c 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 20 6f 6e 20 64 69 73 63 3a 3e 29 3b 0a ┆tal entries, slices on disc:>); ┆
0x1c240…1c260 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 ┆ end; begin comment type┆
0x1c260…1c27e 20 32 3b 0a 20 20 20 20 74 65 78 74 28 32 2c 20 3c 3a 6e 61 6d 65 20 20 3a 20 20 3a 3e 29 ┆ 2; text(2, <:name : :>)┆
0x1c27e…1c284 (0x130,0x386)
0x1c284…1c2a0 3b 0a 20 20 20 20 69 6e 74 28 31 30 2c 20 3c 3a 73 74 64 20 69 6e 74 65 72 76 61 6c ┆; int(10, <:std interval┆
0x1c2a0…1c2c0 20 73 74 61 72 74 3a 3e 29 3b 0a 20 20 20 20 72 65 73 74 6c 69 6e 65 73 20 3a 3d 20 72 65 73 74 ┆ start:>); restlines := rest┆
0x1c2c0…1c2e0 6c 69 6e 65 73 20 2d 20 31 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 31 2c 20 ┆lines - 1; write(out, nl,1, ┆
0x1c2e0…1c2fc 73 70 2c 31 35 29 3b 0a 20 20 20 20 69 6e 74 28 31 32 2c 20 3c 3a 69 6e 74 65 72 76 ┆sp,15); int(12, <:interv┆
0x1c2fc…1c302 (0x130,0x387)
0x1c302…1c320 61 6c 20 6c 65 6e 67 74 68 3a 3e 29 3b 0a 20 20 20 20 69 6e 74 28 31 34 2c 20 3c 3a 6e 6f ┆al length:>); int(14, <:no┆
0x1c320…1c340 20 6f 66 20 69 6e 74 65 72 76 61 6c 73 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 ┆ of intervals:>); end; ┆
0x1c340…1c360 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 34 3b 0a 20 20 20 20 69 6e 74 28 32 ┆ begin comment type 4; int(2┆
0x1c360…1c37a 2c 20 3c 3a 70 72 69 6f 72 69 74 79 3a 3e 29 3b 0a 20 20 20 20 69 6e 74 28 34 ┆, <:priority:>); int(4┆
0x1c37a…1c380 (0x130,0x388)
0x1c380…1c3a0 2c 20 3c 3a 6d 69 6e 69 6d 61 6c 20 76 61 6c 75 65 20 6f 66 20 6c 61 74 65 3a 3e 29 3b 0a 20 20 ┆, <:minimal value of late:>); ┆
0x1c3a0…1c3c0 20 20 65 6e 64 3b 0a 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 36 ┆ end; begin comment type 6┆
0x1c3c0…1c3e0 3b 0a 20 20 20 20 74 65 78 74 28 32 2c 20 3c 3a 64 65 76 69 63 65 20 20 3a 20 20 3a 3e 29 3b 0a ┆; text(2, <:device : :>); ┆
0x1c3e0…1c400 20 20 20 20 62 79 74 65 73 28 31 30 2c 20 3c 3a 6b 65 79 20 33 2c 72 65 00 00 00 00 00 00 00 00 ┆ bytes(10, <:key 3,re ┆
0x1c400…1c406 (226,) (0x130,0x389)
0x1c406…1c420 73 74 20 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 3a 3e 29 3b 0a 20 20 ┆st entries, slices:>); ┆
0x1c420…1c440 20 20 62 79 74 65 73 28 31 32 2c 20 3c 3a 6b 65 79 33 2c 74 6f 74 61 6c 20 65 6e 74 72 69 65 73 ┆ bytes(12, <:key3,total entries┆
0x1c440…1c460 2c 20 73 6c 69 63 65 73 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 ┆, slices:>); end; comme┆
0x1c460…1c47e 6e 74 20 74 79 70 65 20 38 3b 0a 20 20 20 20 62 69 74 73 28 32 2c 20 3c 3a 73 70 65 63 69 ┆nt type 8; bits(2, <:speci┆
0x1c47e…1c484 (0x130,0x38a)
0x1c484…1c4a0 61 6c 20 64 65 76 69 63 65 73 3a 3e 2c 20 6c 65 6e 67 74 68 2f 2f 32 20 2d 20 31 29 ┆al devices:>, length//2 - 1)┆
0x1c4a0…1c4c0 3b 0a 20 20 20 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 31 30 3b 0a 20 20 20 20 ┆; comment type 10; ┆
0x1c4c0…1c4e0 69 6e 74 28 32 2c 20 3c 3a 61 63 63 6f 75 6e 74 73 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 ┆int(2, <:accounts:>); comme┆
0x1c4e0…1c4fc 6e 74 20 74 79 70 65 20 31 32 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 61 72 65 ┆nt type 12; int(2, <:are┆
0x1c4fc…1c502 (0x130,0x38b)
0x1c502…1c520 61 20 63 6c 61 69 6d 3a 3e 29 3b 0a 20 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 ┆a claim:>); comment typ┆
0x1c520…1c540 65 20 31 34 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 62 75 66 66 65 72 20 63 6c 61 69 6d 3a ┆e 14; int(2, <:buffer claim:┆
0x1c540…1c560 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 31 36 3b 0a 20 20 20 20 69 6e ┆>); comment type 16; in┆
0x1c560…1c57a 74 28 32 2c 20 3c 3a 63 6f 6e 76 65 72 74 20 62 75 66 66 65 72 73 3a 3e 29 3b ┆t(2, <:convert buffers:>);┆
0x1c57a…1c580 (0x130,0x38c)
0x1c580…1c5a0 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 31 38 3b 0a 20 20 20 20 69 6e 74 28 32 ┆ comment type 18; int(2┆
0x1c5a0…1c5c0 2c 20 3c 3a 69 6e 74 65 72 6e 61 6c 20 63 6c 61 69 6d 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d ┆, <:internal claim:>); comm┆
0x1c5c0…1c5e0 65 6e 74 20 74 79 70 65 20 32 30 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 6b 65 79 73 3a 3e ┆ent type 20; int(2, <:keys:>┆
0x1c5e0…1c600 29 3b 0a 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 32 32 00 00 00 00 00 00 00 00 ┆); comment type 22 ┆
0x1c600…1c606 (227,) (0x130,0x38d)
0x1c606…1c620 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 6d 6f 75 6e 74 73 3a 3e 29 3b 0a ┆; int(2, <:mounts:>); ┆
0x1c620…1c640 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 32 34 3b 0a 20 20 20 20 69 6e 74 28 32 2c ┆ comment type 24; int(2,┆
0x1c640…1c660 20 3c 3a 6f 75 74 70 75 74 3a 3e 29 3b 0a 0a 0c 0a 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 ┆ <:output:>); comment t┆
0x1c660…1c67e 79 70 65 20 32 36 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 73 69 7a 65 3a 3e 29 3b 0a ┆ype 26; int(2, <:size:>); ┆
0x1c67e…1c684 (0x130,0x38e)
0x1c684…1c6a0 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 32 38 3b 0a 20 20 20 20 69 6e ┆ comment type 28; in┆
0x1c6a0…1c6c0 74 28 32 2c 20 3c 3a 73 74 61 74 69 6f 6e 73 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆t(2, <:stations:>); comment┆
0x1c6c0…1c6e0 20 74 79 70 65 20 33 30 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 74 61 70 65 73 3a 3e 29 3b ┆ type 30; int(2, <:tapes:>);┆
0x1c6e0…1c6fc 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 33 32 3b 0a 20 20 20 20 69 ┆ comment type 32; i┆
0x1c6fc…1c702 (0x130,0x38f)
0x1c702…1c720 6e 74 28 32 2c 20 3c 3a 74 69 6d 65 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆nt(2, <:time:>); comment ┆
0x1c720…1c740 74 79 70 65 20 33 34 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 64 6f 75 62 6c 65 28 32 2c ┆type 34; begin double(2,┆
0x1c740…1c760 20 3c 3a 75 73 65 72 20 6d 61 78 20 69 6e 74 65 72 76 61 6c 3a 3e 29 3b 0a 20 20 20 20 77 72 69 ┆ <:user max interval:>); wri┆
0x1c760…1c77a 74 65 28 6f 75 74 2c 6e 6c 2c 31 2c 73 70 2c 31 38 29 3b 0a 20 20 20 20 72 65 ┆te(out,nl,1,sp,18); re┆
0x1c77a…1c780 (0x130,0x390)
0x1c780…1c7a0 73 74 6c 69 6e 65 73 20 3a 3d 72 65 73 74 6c 69 6e 65 73 2d 31 3b 0a 20 20 20 20 62 79 74 65 73 ┆stlines :=restlines-1; bytes┆
0x1c7a0…1c7c0 28 36 2c 20 3c 3a 6b 65 79 20 33 2c 20 72 65 73 74 20 20 75 73 65 72 20 63 6c 61 69 6d 3a 3e 29 ┆(6, <:key 3, rest user claim:>)┆
0x1c7c0…1c7e0 3b 0a 20 20 20 20 62 79 74 65 73 28 38 2c 20 3c 3a 6b 65 79 20 33 2c 20 74 6f 74 61 6c 20 75 73 ┆; bytes(8, <:key 3, total us┆
0x1c7e0…1c800 65 72 20 63 6c 61 69 6d 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 00 00 00 00 00 00 00 00 ┆er claim:>); end; ┆
0x1c800…1c806 (228,) (0x130,0x391)
0x1c806…1c820 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 33 36 3b 0a 20 20 20 20 62 79 ┆ comment type 36; by┆
0x1c820…1c840 74 65 73 28 32 2c 20 3c 3a 64 72 75 6d 2c 20 6b 65 79 20 31 2c 20 20 65 6e 74 72 69 65 73 2c 20 ┆tes(2, <:drum, key 1, entries, ┆
0x1c840…1c860 73 6c 69 63 65 73 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 33 38 3b ┆slices:>); comment type 38;┆
0x1c860…1c87e 0a 20 20 20 20 62 79 74 65 73 28 32 2c 20 3c 3a 64 69 73 63 2c 20 6b 65 79 31 2c 20 20 65 ┆ bytes(2, <:disc, key1, e┆
0x1c87e…1c884 (0x130,0x392)
0x1c884…1c8a0 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d ┆ntries, slices:>); comm┆
0x1c8a0…1c8c0 65 6e 74 20 74 79 70 65 20 34 30 3b 0a 20 20 20 20 62 79 74 65 73 28 32 2c 20 3c 3a 64 69 73 63 ┆ent type 40; bytes(2, <:disc┆
0x1c8c0…1c8e0 2c 20 6b 65 79 20 33 2c 20 20 75 73 65 72 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 3a 3e ┆, key 3, user entries, slices:>┆
0x1c8e0…1c8fc 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 34 32 3b 0a 20 20 20 ┆); comment type 42; ┆
0x1c8fc…1c902 (0x130,0x393)
0x1c902…1c920 20 74 65 78 74 28 32 2c 20 3c 3a 75 73 65 72 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e ┆ text(2, <:user identification┆
0x1c920…1c940 20 3a 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 34 34 3b 0a 20 20 20 ┆ ::>); comment type 44; ┆
0x1c940…1c960 20 62 65 67 69 6e 0a 20 20 20 20 62 79 74 65 73 28 32 2c 20 3c 3a 64 72 75 6d 2c 20 6b 65 79 20 ┆ begin bytes(2, <:drum, key ┆
0x1c960…1c97a 33 2c 20 72 65 73 74 20 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 3a 3e ┆3, rest entries, slices:>┆
0x1c97a…1c980 (0x130,0x394)
0x1c980…1c9a0 29 3b 0a 20 20 20 20 62 79 74 65 73 28 34 2c 20 3c 3a 64 72 75 6d 2c 20 6b 65 79 20 33 2c 20 74 ┆); bytes(4, <:drum, key 3, t┆
0x1c9a0…1c9c0 6f 74 61 6c 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 ┆otal entries, slices:>); end┆
0x1c9c0…1c9e0 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 34 36 3b 0a 20 20 20 20 62 79 74 65 ┆; comment type 46; byte┆
0x1c9e0…1ca00 73 28 32 2c 20 3c 3a 64 72 75 6d 2c 20 6b 65 79 20 33 2c 20 20 20 75 73 00 00 00 00 00 00 00 00 ┆s(2, <:drum, key 3, us ┆
0x1ca00…1ca06 (229,) (0x130,0x395)
0x1ca06…1ca20 65 72 20 65 6e 74 72 69 65 73 2c 20 73 6c 69 63 65 73 3a 3e 29 3b 0a 0a 20 20 ┆er entries, slices:>); ┆
0x1ca20…1ca40 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 34 38 3b 0a 20 20 20 20 74 65 78 ┆ begin comment type 48; tex┆
0x1ca40…1ca60 74 28 32 2c 20 3c 3a 64 65 76 69 63 65 20 20 3a 20 20 3a 3e 29 3b 0a 20 20 20 20 62 79 74 65 73 ┆t(2, <:device : :>); bytes┆
0x1ca60…1ca7e 28 31 30 2c 20 3c 3a 6b 65 79 33 2c 20 20 75 73 65 72 20 65 6e 74 72 69 65 73 2c 20 73 6c ┆(10, <:key3, user entries, sl┆
0x1ca7e…1ca84 (0x130,0x396)
0x1ca84…1caa0 69 63 65 73 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 ┆ices:>); end; comme┆
0x1caa0…1cac0 6e 74 20 74 79 70 65 20 35 30 3b 0a 20 20 20 20 69 6e 74 28 32 2c 20 3c 3a 6c 61 74 65 73 74 20 ┆nt type 50; int(2, <:latest ┆
0x1cac0…1cae0 66 69 6e 69 73 68 69 6e 67 20 74 69 6d 65 3a 3e 29 3b 0a 20 20 0a 20 20 20 20 63 6f 6d 6d 65 6e ┆finishing time:>); commen┆
0x1cae0…1cafc 74 20 74 79 70 65 20 35 32 3b 0a 20 20 20 20 74 65 78 74 28 32 2c 20 3c 3a 70 72 6f ┆t type 52; text(2, <:pro┆
0x1cafc…1cb02 (0x130,0x397)
0x1cb02…1cb20 6a 65 63 74 20 69 64 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 ┆ject id:>); comment type ┆
0x1cb20…1cb40 35 34 3b 0a 20 20 20 20 74 65 78 74 28 32 2c 20 3c 3a 70 72 6f 67 72 61 6d 20 6e 61 6d 65 3a 3e ┆54; text(2, <:program name:>┆
0x1cb40…1cb60 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 35 36 3b 0a 20 20 20 20 69 6e 74 ┆); comment type 56; int┆
0x1cb60…1cb7a 28 32 2c 20 3c 3a 73 75 73 70 65 6e 64 69 6e 67 73 3a 3e 29 3b 0a 20 20 20 20 ┆(2, <:suspendings:>); ┆
0x1cb7a…1cb80 (0x130,0x398)
0x1cb80…1cba0 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 35 38 20 6f 6e 6c 69 6e 65 3b 0a 20 20 ┆ comment type 58 online; ┆
0x1cba0…1cbc0 20 20 69 6e 74 32 28 3c 3a 6f 6e 6c 69 6e 65 3a 3e 29 3b 0a 20 0a 20 20 20 20 63 6f 6d 6d 65 6e ┆ int2(<:online:>); commen┆
0x1cbc0…1cbe0 74 20 74 79 70 65 20 36 30 20 63 6f 72 65 6c 6f 63 6b 3b 0a 20 20 20 20 69 6e 74 28 32 2c 3c 3a ┆t type 60 corelock; int(2,<:┆
0x1cbe0…1cc00 63 6f 72 65 6c 6f 63 6b 3a 3e 29 3b 0a 20 0a 20 20 20 20 63 6f 6d 6d 65 00 00 00 00 00 00 00 00 ┆corelock:>); comme ┆
0x1cc00…1cc06 (230,) (0x130,0x399)
0x1cc06…1cc20 6e 74 20 74 79 70 65 20 36 32 3b 0a 20 20 20 20 69 6e 74 32 28 3c 3a 6d 69 6e ┆nt type 62; int2(<:min┆
0x1cc20…1cc40 69 6d 61 6c 3a 3e 29 3b 0a 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 36 34 20 73 ┆imal:>); comment type 64 s┆
0x1cc40…1cc60 74 61 72 74 20 70 72 69 6f 72 69 74 79 3b 0a 20 20 20 20 69 6e 74 28 32 2c 3c 3a 70 72 69 6f 72 ┆tart priority; int(2,<:prior┆
0x1cc60…1cc7e 69 74 79 3a 3e 29 3b 0a 20 20 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 36 ┆ity:>); comment type 6┆
0x1cc7e…1cc84 (0x130,0x39a)
0x1cc84…1cca0 36 3b 0a 20 20 20 20 69 6e 74 28 32 2c 3c 3a 6d 61 78 20 73 77 6f 70 6f 75 74 20 74 ┆6; int(2,<:max swopout t┆
0x1cca0…1ccc0 69 6d 65 3a 3e 29 3b 0a 20 20 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 36 38 3b ┆ime:>); comment type 68;┆
0x1ccc0…1cce0 0a 20 20 20 20 69 6e 74 32 28 3c 3a 70 72 65 73 65 72 76 65 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f ┆ int2(<:preserve:>); co┆
0x1cce0…1ccfc 6d 6d 65 6e 74 20 74 79 70 65 20 37 30 20 75 73 65 72 20 72 69 67 68 74 20 62 69 74 ┆mment type 70 user right bit┆
0x1ccfc…1cd02 (0x130,0x39b)
0x1cd02…1cd20 73 20 3b 0a 20 20 20 20 62 69 74 6d 61 73 6b 28 3c 3a 75 73 65 72 62 69 74 73 20 3a 3e 29 ┆s ; bitmask(<:userbits :>)┆
0x1cd20…1cd40 3b 0a 0a 0a 20 20 65 6e 64 20 63 61 73 65 2d 6c 69 73 74 3b 0a 67 6f 74 6f 20 6e 65 78 74 3b 0a ┆; end case-list; goto next; ┆
0x1cd40…1cd60 0a 0c 0a 0a 75 6e 6b 6e 6f 77 6e 3a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 33 2c 20 ┆ unknown: write(out, sp,3, ┆
0x1cd60…1cd7a 3c 3a 75 6e 6b 6e 6f 77 6e 20 74 79 70 65 20 2d 20 63 6f 6e 74 65 6e 74 73 3a ┆<:unknown type - contents:┆
0x1cd7a…1cd80 (0x130,0x39c)
0x1cd80…1cda0 3a 3e 29 3b 0a 20 20 6f 75 74 63 72 28 31 29 3b 0a 20 20 66 6f 72 20 69 20 3a 3d 20 30 20 73 74 ┆:>); outcr(1); for i := 0 st┆
0x1cda0…1cdc0 65 70 20 32 20 75 6e 74 69 6c 20 6c 65 6e 67 74 68 2d 32 20 64 6f 0a 20 20 20 20 62 65 67 69 6e ┆ep 2 until length-2 do begin┆
0x1cdc0…1cde0 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 31 38 2c 20 3c 3a 28 3a 3e 2c 20 3c 3c ┆ write(out, sp,18, <:(:>, <<┆
0x1cde0…1ce00 64 64 3e 2c 20 69 2c 20 3c 3a 29 3a 3e 2c 20 3c 3c 20 20 20 64 64 64 64 00 00 00 00 00 00 00 00 ┆dd>, i, <:):>, << dddd ┆
0x1ce00…1ce06 (231,) (0x130,0x39d)
0x1ce06…1ce20 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 75 73 65 72 63 61 74 2e 62 79 74 65 72 ┆>, usercat.byter┆
0x1ce20…1ce40 65 63 20 28 62 69 6e 64 65 78 20 2b 20 69 20 20 20 20 29 20 65 78 74 72 61 63 74 20 31 32 2c 0a ┆ec (bindex + i ) extract 12, ┆
0x1ce40…1ce60 20 20 20 20 20 20 20 20 20 20 75 73 65 72 63 61 74 2e 62 79 74 65 72 65 63 20 28 62 69 6e 64 65 ┆ usercat.byterec (binde┆
0x1ce60…1ce7e 78 20 2b 20 69 20 2b 20 31 29 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 6f 75 ┆x + i + 1) extract 12); ou┆
0x1ce7e…1ce84 (0x130,0x39e)
0x1ce84…1cea0 74 63 72 28 31 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 67 6f 74 6f 20 6e 65 78 74 ┆tcr(1); end; goto next┆
0x1cea0…1cec0 3b 0a 0a 0a 66 69 6e 69 73 3a 0a 0a 63 6c 6f 73 65 28 75 73 65 72 63 61 74 2c 20 74 72 75 65 29 ┆; finis: close(usercat, true)┆
0x1cec0…1cee0 3b 0a 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 32 3e 3a 3e 29 3b 0a 0a 65 6e 64 20 70 72 6f ┆; write(out, <:<12>:>); end pro┆
0x1cee0…1cefc 67 72 61 6d 3b 0a 0a 0c 19 00 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 36 ┆gram; comment type 6┆
0x1cefc…1cf02 (0x130,0x39f)
0x1cf02…1cf20 30 20 63 6f 72 65 6c 6f 63 6b 3b 0a 20 20 20 20 69 6e 74 28 32 2c 3c 3a 63 6f 72 65 6c 6f ┆0 corelock; int(2,<:corelo┆
0x1cf20…1cf40 63 6b 3a 3e 29 3b 0a 20 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 36 32 3b 0a 20 20 ┆ck:>); comment type 62; ┆
0x1cf40…1cf60 20 20 69 6e 74 32 28 3c 3a 6d 69 6e 69 6d 61 6c 3a 3e 29 3b 0a 20 0a 20 20 20 20 63 6f 6d 6d 65 ┆ int2(<:minimal:>); comme┆
0x1cf60…1cf7a 6e 74 20 74 79 70 65 20 36 34 20 73 74 61 72 74 20 70 72 69 6f 72 69 74 79 3b ┆nt type 64 start priority;┆
0x1cf7a…1cf80 (0x130,0x3a0)
0x1cf80…1cfa0 0a 20 20 20 20 69 6e 74 28 32 2c 3c 3a 70 72 69 6f 72 69 74 79 3a 3e 29 3b 0a 20 20 20 0a 20 20 ┆ int(2,<:priority:>); ┆
0x1cfa0…1cfc0 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65 20 36 36 3b 0a 20 20 20 20 69 6e 74 28 32 2c 3c 3a 6d ┆ comment type 66; int(2,<:m┆
0x1cfc0…1cfe0 61 78 20 73 77 6f 70 6f 75 74 20 74 69 6d 65 3a 3e 29 3b 0a 20 20 20 0a 20 20 20 20 63 6f 6d 6d ┆ax swopout time:>); comm┆
0x1cfe0…1d000 65 6e 74 20 74 79 70 65 20 36 38 3b 0a 20 20 20 20 69 6e 74 32 28 3c 3a 00 00 00 00 00 00 00 00 ┆ent type 68; int2(<: ┆
0x1d000…1d006 (232,) (0x130,0x3a1)
0x1d006…1d020 70 72 65 73 65 72 76 65 3a 3e 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆preserve:>); comment ┆
0x1d020…1d040 74 79 70 65 20 37 30 20 75 73 65 72 20 72 69 67 68 74 20 62 69 74 73 20 3b 0a 20 20 20 20 62 69 ┆type 70 user right bits ; bi┆
0x1d040…1d060 74 6d 61 73 6b 28 3c 3a 75 73 65 72 62 69 74 73 20 3a 3e 29 3b 0a 0a 0a 20 20 65 6e 64 20 63 61 ┆tmask(<:userbits :>); end ca┆
0x1d060…1d07e 73 65 2d 6c 69 73 74 3b 0a 67 6f 74 6f 20 6e 65 78 74 3b 0a 0a 0c 0a 0a 75 6e 6b 6e 6f 77 ┆se-list; goto next; unknow┆
0x1d07e…1d084 (0x130,0x3a2)
0x1d084…1d0a0 6e 3a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 33 2c 20 3c 3a 75 6e 6b 6e ┆n: write(out, sp,3, <:unkn┆
0x1d0a0…1d0c0 6f 77 6e 20 74 79 70 65 20 2d 20 63 6f 6e 74 65 6e 74 73 3a 3a 3e 29 3b 0a 20 20 6f 75 74 63 72 ┆own type - contents::>); outcr┆
0x1d0c0…1d0e0 28 31 29 3b 0a 20 20 66 6f 72 20 69 20 3a 3d 20 30 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 6c ┆(1); for i := 0 step 2 until l┆
0x1d0e0…1d0fc 65 6e 67 74 68 2d 32 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 77 72 69 ┆ength-2 do begin wri┆
0x1d0fc…1d102 (0x130,0x3a3)
0x1d102…1d120 74 65 28 6f 75 74 2c 20 73 70 2c 31 38 2c 20 3c 3a 28 3a 3e 2c 20 3c 3c 64 64 3e 2c 20 69 ┆te(out, sp,18, <:(:>, <<dd>, i┆
0x1d120…1d140 2c 20 3c 3a 29 3a 3e 2c 20 3c 3c 20 20 20 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 75 ┆, <:):>, << dddd>, u┆
0x1d140…1d160 73 65 72 63 61 74 2e 62 79 74 65 72 65 63 20 28 62 69 6e 64 65 78 20 2b 20 69 20 20 20 20 29 20 ┆sercat.byterec (bindex + i ) ┆
0x1d160…1d17a 65 78 75 6e 6b 6e 6f 77 6e 20 74 79 70 65 20 2d 20 63 6f 6e 74 65 6e 74 73 3a ┆exunknown type - contents:┆
0x1d17a…1d180 (0x194,0x3a4)
0x1d180…1d1a0 0a 3b 20 62 74 6a 20 33 30 2e 30 38 2e 37 34 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 ┆ ; btj 30.08.74 bossout┆
0x1d1a0…1d1c0 20 61 6e 64 20 6c 61 73 74 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 ┆ and last boss2, testou┆
0x1d1c0…1d1e0 74 20 20 20 20 2e 2e 2e 31 2e 2e 2e 0a 0a 28 62 6f 73 73 6f 75 74 3d 73 65 74 20 31 35 20 31 0a ┆t ...1... (bossout=set 15 1 ┆
0x1d1e0…1d200 62 6f 73 73 6f 75 74 3d 61 6c 67 6f 6c 0a 73 63 6f 70 65 20 75 73 65 72 00 00 00 00 00 00 00 00 ┆bossout=algol scope user ┆
0x1d200…1d206 (233,) (0x194,0x3a5)
0x1d206…1d220 20 62 6f 73 73 6f 75 74 0a 29 0a 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 64 ┆ bossout ) external proced┆
0x1d220…1d240 75 72 65 20 62 6f 73 73 6f 75 74 28 66 6b 69 6e 64 2c 20 66 74 69 6d 65 2c 20 66 63 6f 72 75 6e ┆ure bossout(fkind, ftime, fcorun┆
0x1d240…1d260 6f 2c 20 66 74 68 69 72 64 2c 20 66 72 65 63 6f 72 64 2c 20 66 6d 6f 76 65 2c 20 66 70 72 69 6e ┆o, fthird, frecord, fmove, fprin┆
0x1d260…1d27e 74 29 3b 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 3c ┆t); <┆
0x1d27e…1d284 (0x194,0x3a6)
0x1d284…1d2a0 2a 3c 2d 2d 2d 2d 61 73 73 69 67 6e 65 64 20 62 79 20 62 6f 73 73 6f 75 74 2d 2d 2d ┆*<----assigned by bossout---┆
0x1d2a0…1d2c0 2d 3e 20 20 20 20 20 20 20 20 20 3c 2d 6a 65 6e 73 65 6e 20 64 65 76 69 63 65 2d 3e 2a 3e 0a 69 ┆-> <-jensen device->*> i┆
0x1d2c0…1d2e0 6e 74 65 67 65 72 20 66 6b 69 6e 64 2c 20 66 74 69 6d 65 2c 20 66 63 6f 72 75 6e 6f 2c 20 66 74 ┆nteger fkind, ftime, fcoruno, ft┆
0x1d2e0…1d2fc 68 69 72 64 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 72 65 63 6f 72 64 3b ┆hird; integer array frecord;┆
0x1d2fc…1d302 (0x194,0x3a7)
0x1d302…1d320 20 20 63 6f 6d 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 64 65 63 6c 61 72 65 64 20 69 6e 74 ┆ comment must be declared int┆
0x1d320…1d340 65 67 65 72 20 61 72 72 61 79 20 66 72 65 63 6f 72 64 28 30 3a 32 35 36 29 3b 0a 3c 2a 20 20 69 ┆eger array frecord(0:256); <* i┆
0x1d340…1d360 6e 20 6f 72 64 65 72 20 74 6f 20 75 73 65 20 66 72 65 63 6f 72 64 2c 20 79 6f 75 20 63 61 6e 3a ┆n order to use frecord, you can:┆
0x1d360…1d37a 0a 20 20 20 20 63 6f 64 65 20 61 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 ┆ code a boolean proced┆
0x1d37a…1d380 (0x194,0x3a8)
0x1d380…1d3a0 75 72 65 2c 20 77 6f 72 6b 69 6e 67 20 6f 6e 20 66 72 65 63 6f 72 64 2c 20 61 6e 64 20 6e 61 6d ┆ure, working on frecord, and nam┆
0x1d3a0…1d3c0 65 20 69 74 20 61 73 0a 20 20 20 20 70 61 72 61 6d 65 74 65 72 20 66 70 72 69 6e 74 20 74 6f 20 ┆e it as parameter fprint to ┆
0x1d3c0…1d3e0 62 6f 73 73 6f 75 74 20 28 72 65 73 75 6c 74 20 76 61 6c 75 65 20 6d 61 79 20 62 65 20 66 61 6c ┆bossout (result value may be fal┆
0x1d3e0…1d400 73 65 29 0a 2a 3e 0a 62 6f 6f 6c 65 61 6e 20 66 6d 6f 76 65 2c 20 66 70 00 00 00 00 00 00 00 00 ┆se) *> boolean fmove, fp ┆
0x1d400…1d406 (234,) (0x194,0x3a9)
0x1d406…1d420 72 69 6e 74 3b 0a 6d 65 73 73 61 67 65 20 62 6f 73 73 6f 75 74 20 76 65 72 73 ┆rint; message bossout vers┆
0x1d420…1d440 69 6f 6e 20 69 64 3a 20 38 34 20 30 37 20 31 38 2c 20 32 39 3b 0a 62 65 67 69 6e 0a 20 20 3c 2a ┆ion id: 84 07 18, 29; begin <*┆
0x1d440…1d460 20 6d 6f 73 74 20 6f 66 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 72 65 2d 63 6f 64 ┆ most of the procedure is re-cod┆
0x1d460…1d47e 65 64 2e 20 6a 61 6e 20 31 39 38 32 2c 20 63 68 64 2e 0a 20 20 20 20 20 69 6e 20 65 76 65 ┆ed. jan 1982, chd. in eve┆
0x1d47e…1d484 (0x194,0x3aa)
0x1d484…1d4a0 72 79 20 74 65 73 74 6f 75 74 70 75 74 20 73 65 67 6d 65 6e 74 2c 20 74 68 65 20 66 ┆ry testoutput segment, the f┆
0x1d4a0…1d4c0 69 72 73 74 20 32 20 77 6f 72 64 73 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 6d 6f 6e 69 74 6f ┆irst 2 words contains the monito┆
0x1d4c0…1d4e0 72 20 63 6c 6f 63 6b 2c 0a 20 20 20 20 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 ┆r clock, corresponding to t┆
0x1d4e0…1d4fc 68 65 20 66 69 72 73 74 20 72 65 63 6f 72 64 20 6f 6e 20 74 68 65 20 73 65 67 6d 65 ┆he first record on the segme┆
0x1d4fc…1d502 (0x194,0x3ab)
0x1d502…1d520 6e 74 2c 20 6f 72 20 3d 30 20 69 66 20 73 65 67 6d 65 6e 74 20 69 73 20 6e 6f 74 20 75 73 ┆nt, or =0 if segment is not us┆
0x1d520…1d540 65 64 2e 0a 20 20 20 20 20 70 73 3a 20 74 68 65 20 74 65 72 6d 20 27 74 79 70 65 27 20 69 73 20 ┆ed. ps: the term 'type' is ┆
0x1d540…1d560 75 73 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 74 65 72 6d 20 27 6b 69 6e 64 27 20 ┆used instead of the term 'kind' ┆
0x1d560…1d57a 69 6e 20 62 6f 73 73 6f 75 74 2c 0a 20 20 20 20 20 28 66 69 72 73 74 20 77 6f ┆in bossout, (first wo┆
0x1d57a…1d580 (0x194,0x3ac)
0x1d580…1d5a0 72 64 20 3d 20 74 61 69 6c 20 6c 65 6e 67 74 68 20 3c 36 20 2b 20 74 79 70 65 29 2e 0a 20 20 2a ┆rd = tail length <6 + type). *┆
0x1d5a0…1d5c0 3e 0a 20 20 20 20 20 20 7a 6f 6e 65 20 7a 28 31 32 38 2a 32 2c 32 2c 65 6f 66 29 3b 0a 20 20 20 ┆> zone z(128*2,2,eof); ┆
0x1d5c0…1d5e0 20 20 3c 2a 20 74 68 65 20 62 6c 6f 63 6b 70 72 6f 63 20 65 6f 66 20 69 73 20 6f 6e 6c 79 20 72 ┆ <* the blockproc eof is only r┆
0x1d5e0…1d600 65 6c 65 76 61 6e 74 20 66 6f 72 20 6d 61 67 74 61 70 65 20 2a 3e 0a 0a 00 00 00 00 00 00 00 00 ┆elevant for magtape *> ┆
0x1d600…1d606 (235,) (0x194,0x3ad)
0x1d606…1d620 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 65 6f 66 28 7a 2c 73 2c 62 29 ┆ procedure eof(z,s,b)┆
0x1d620…1d640 3b 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 65 67 65 72 20 73 2c 62 3b 0a 20 20 20 20 20 20 62 65 67 ┆; zone z; integer s,b; beg┆
0x1d640…1d660 69 6e 20 6f 77 6e 20 62 6f 6f 6c 65 61 6e 20 65 6f 74 3b 20 20 69 6e 74 65 67 65 72 20 61 72 72 ┆in own boolean eot; integer arr┆
0x1d660…1d67e 61 79 20 7a 6f 6e 65 64 65 73 63 72 28 31 3a 32 30 29 3b 0a 20 20 20 20 20 20 69 66 20 73 ┆ay zonedescr(1:20); if s┆
0x1d67e…1d684 (0x194,0x3ae)
0x1d684…1d6a0 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 61 6e 64 20 73 20 73 68 69 66 74 20 28 ┆ extract 1 = 1 and s shift (┆
0x1d6a0…1d6c0 2d 31 34 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 30 20 74 68 65 6e 20 73 74 64 65 72 72 6f 72 ┆-14) extract 1 = 0 then stderror┆
0x1d6c0…1d6e0 28 7a 2c 73 2c 62 29 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 66 69 6c 65 20 3e 3d 20 30 20 ┆(z,s,b) else if file >= 0 ┆
0x1d6e0…1d6fc 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 69 66 20 73 20 73 68 69 66 74 28 ┆then begin if s shift(┆
0x1d6fc…1d702 (0x194,0x3af)
0x1d702…1d720 2d 31 38 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 65 6f 74 3a 3d 20 ┆-18) extract 1 = 1 then eot:= ┆
0x1d720…1d740 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 31 ┆true; if s shift (-1┆
0x1d740…1d760 34 29 20 65 78 74 72 61 63 74 20 31 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆4) extract 1=1 then ┆
0x1d760…1d77a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6d 6f 64 65 20 65 72 72 6f 72 3b 0a ┆begin comment mode error; ┆
0x1d77a…1d780 (0x194,0x3b0)
0x1d780…1d7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c ┆ getposition(z,┆
0x1d7a0…1d7c0 20 30 2c 20 62 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 64 65 73 74 72 6f 79 20 62 3b 0a 20 20 20 20 ┆ 0, b); comment destroy b; ┆
0x1d7c0…1d7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 7a 6f 6e 65 36 28 7a 2c 20 7a 6f 6e 65 64 65 ┆ getzone6(z, zonede┆
0x1d7e0…1d800 73 63 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆scr); ┆
0x1d800…1d806 (236,) (0x194,0x3b1)
0x1d806…1d820 69 66 20 7a 6f 6e 65 64 65 73 63 72 28 31 29 20 3d 20 34 20 73 68 69 66 74 20 ┆if zonedescr(1) = 4 shift ┆
0x1d820…1d840 31 32 20 2b 20 31 38 20 6f 72 20 62 20 3e 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆12 + 18 or b > 1 then ┆
0x1d840…1d860 20 20 20 20 20 20 20 20 20 20 20 20 73 74 64 65 72 72 6f 72 28 7a 2c 20 73 2c 20 30 29 3b 20 20 ┆ stderror(z, s, 0); ┆
0x1d860…1d87e 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 65 64 20 72 65 63 75 72 73 69 76 65 2c 20 6f 72 20 6e ┆comment called recursive, or n┆
0x1d87e…1d884 (0x194,0x3b2)
0x1d884…1d8a0 6f 74 20 61 74 20 73 74 61 72 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ot at start; ┆
0x1d8a0…1d8c0 20 20 20 7a 6f 6e 65 64 65 73 63 72 28 31 29 20 3a 3d 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 ┆ zonedescr(1) := 4 shift 12 + ┆
0x1d8c0…1d8e0 31 38 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 72 7a 2d 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆18; comment nrz-mode; ┆
0x1d8e0…1d8fc 20 20 20 20 20 20 20 20 20 73 65 74 7a 6f 6e 65 36 28 7a 2c 20 7a 6f 6e 65 64 65 73 ┆ setzone6(z, zonedes┆
0x1d8fc…1d902 (0x194,0x3b3)
0x1d902…1d920 63 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 62 20 3a ┆cr); for b :┆
0x1d920…1d940 3d 20 7a 6f 6e 65 64 65 73 63 72 28 31 38 29 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 ┆= zonedescr(18) step -1 until 1 ┆
0x1d940…1d960 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆do begin co┆
0x1d960…1d97a 6d 6d 65 6e 74 20 63 68 61 6e 67 65 20 6d 6f 64 65 20 69 6e 20 73 68 61 72 65 ┆mment change mode in share┆
0x1d97a…1d980 (0x194,0x3b4)
0x1d980…1d9a0 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 73 68 61 72 65 ┆s; getshare┆
0x1d9a0…1d9c0 36 28 7a 2c 20 7a 6f 6e 65 64 65 73 63 72 2c 20 62 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆6(z, zonedescr, b); ┆
0x1d9c0…1d9e0 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 64 65 73 63 72 28 34 29 20 3a 3d 20 34 3b 0a 20 20 20 20 ┆ zonedescr(4) := 4; ┆
0x1d9e0…1da00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 73 68 61 72 00 00 00 00 00 00 00 00 ┆ setshar ┆
0x1da00…1da06 (237,) (0x194,0x3b5)
0x1da06…1da20 65 36 28 7a 2c 20 7a 6f 6e 65 64 65 73 63 72 2c 20 62 29 3b 0a 20 20 20 20 20 ┆e6(z, zonedescr, b); ┆
0x1da20…1da40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1da40…1da60 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 20 30 2c 20 30 29 3b 20 73 65 74 ┆ setposition(z, 0, 0); set┆
0x1da60…1da7e 70 6f 73 69 74 69 6f 6e 28 7a 2c 20 30 2c 20 30 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 ┆position(z, 0, 0); comment se┆
0x1da7e…1da84 (0x194,0x3b6)
0x1da84…1daa0 74 20 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 ┆t mode; se┆
0x1daa0…1dac0 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 20 66 69 6c 65 2c 20 30 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 ┆tposition(z, file, 0); comment ┆
0x1dac0…1dae0 72 65 73 74 61 72 74 20 73 61 6d 65 20 66 69 6c 65 20 69 6e 20 6e 72 7a 20 6d 6f 64 65 3b 0a 20 ┆restart same file in nrz mode; ┆
0x1dae0…1dafc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 3a 3d 20 62 20 3a 3d 20 30 ┆ s := b := 0┆
0x1dafc…1db02 (0x194,0x3b7)
0x1db02…1db20 3b 20 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 20 62 6c 6f 63 6b 2c 20 61 6e 64 20 73 ┆; comment repeat block, and s┆
0x1db20…1db40 6b 69 70 20 72 65 73 74 20 6f 66 20 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆kip rest of status; ┆
0x1db40…1db60 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6f 74 20 61 6e 64 20 ┆end else if eot and ┆
0x1db60…1db7a 73 20 73 68 69 66 74 28 2d 31 36 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 ┆s shift(-16) extract 1 = 1┆
0x1db7a…1db80 (0x194,0x3b8)
0x1db80…1dba0 20 61 6e 64 20 62 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ and b > 0 then begi┆
0x1dba0…1dbc0 6e 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 20 2d 31 2c 20 2d 31 29 3b 20 73 65 74 70 6f 73 ┆n setposition(z, -1, -1); setpos┆
0x1dbc0…1dbe0 69 74 69 6f 6e 28 7a 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ition(z, 0, 0); ┆
0x1dbe0…1dc00 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 2a 63 00 00 00 00 00 00 00 00 ┆ write(out,<:<10><10>*c ┆
0x1dc00…1dc06 (238,) (0x194,0x3b9)
0x1dc06…1dc20 68 61 6e 67 65 20 74 61 70 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆hange tape:>); ┆
0x1dc20…1dc40 20 20 20 20 20 20 20 66 69 6c 65 3a 3d 20 30 3b 20 62 3a 3d 20 30 3b 20 65 6f 74 3a 3d 20 66 61 ┆ file:= 0; b:= 0; eot:= fa┆
0x1dc40…1dc60 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆lse; end else ┆
0x1dc60…1dc7e 20 20 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 31 36 29 20 65 78 74 72 61 63 74 ┆ if s shift (-16) extract┆
0x1dc7e…1dc84 (0x194,0x3ba)
0x1dc84…1dca0 20 31 3d 31 20 61 6e 64 20 62 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 ┆ 1=1 and b>0 then ┆
0x1dca0…1dcc0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆ begin write(out┆
0x1dcc0…1dce0 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 2a 65 6e 64 20 6f 66 20 74 61 70 65 20 66 69 6c 65 3a 3e 29 3b ┆,<:<10><10>*end of tape file:>);┆
0x1dce0…1dcfc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 3b 0a 20 20 ┆ goto stop; ┆
0x1dcfc…1dd02 (0x194,0x3bb)
0x1dd02…1dd20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ end; end; ┆
0x1dd20…1dd40 20 20 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 65 6f 66 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 ┆ end procedure eof; comment┆
0x1dd40…1dd60 20 62 74 6a 20 33 30 2e 30 38 2e 37 34 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 ┆ btj 30.08.74 bossout ┆
0x1dd60…1dd7a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 ┆ boss2, testou┆
0x1dd7a…1dd80 (0x194,0x3bc)
0x1dd80…1dda0 74 20 20 20 20 2e 2e 2e 32 2e 2e 2e 0a 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 62 6f 73 73 68 ┆t ...2... ; procedure bossh┆
0x1dda0…1ddc0 65 61 64 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 62 65 67 69 6e 0a 20 ┆ead; <*****************> begin ┆
0x1ddc0…1dde0 20 69 6e 74 65 67 65 72 20 69 2c 20 6a 2c 6b 2c 20 6c 3b 0a 20 20 72 65 61 6c 20 20 20 20 20 20 ┆ integer i, j,k, l; real ┆
0x1dde0…1de00 20 72 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 72 61 2c 20 70 72 6f 00 00 00 00 00 00 00 00 ┆ r; real array ra, pro ┆
0x1de00…1de06 (239,) (0x194,0x3bd)
0x1de06…1de20 67 20 28 31 3a 32 29 3b 0a 0a 20 20 6a 3a 3d 20 6c 3a 3d 20 30 3b 20 20 77 72 ┆g (1:2); j:= l:= 0; wr┆
0x1de20…1de40 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 66 6f 72 20 69 3a 3d ┆ite(out,<:<12><10>:>); for i:=┆
0x1de40…1de60 20 73 79 73 74 65 6d 28 34 2c 6a 2c 72 61 29 20 77 68 69 6c 65 20 69 3c 3e 30 20 64 6f 0a 20 20 ┆ system(4,j,ra) while i<>0 do ┆
0x1de60…1de7e 62 65 67 69 6e 0a 20 20 20 20 69 66 20 6c 3e 39 30 20 74 68 65 6e 20 6c 3a 3d 20 77 72 69 ┆begin if l>90 then l:= wri┆
0x1de7e…1de84 (0x194,0x3be)
0x1de84…1dea0 74 65 28 6f 75 74 2c 20 3c 3a 2c 3a 3e 2c 20 6e 6c 2c 31 2c 20 73 70 2c 36 29 3b 0a ┆te(out, <:,:>, nl,1, sp,6); ┆
0x1dea0…1dec0 20 20 20 20 6c 3a 3d 20 6c 20 2b 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 6a 20 3d 20 30 20 ┆ l:= l + write(out, if j = 0 ┆
0x1dec0…1dee0 74 68 65 6e 20 3c 3a 3a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 ┆then <::> else if ┆
0x1dee0…1defc 69 20 73 68 69 66 74 28 2d 31 32 29 20 3d 20 38 20 74 68 65 6e 20 3c 3a 2e 3a 3e 20 ┆i shift(-12) = 8 then <:.:> ┆
0x1defc…1df02 (0x194,0x3bf)
0x1df02…1df20 65 6c 73 65 20 3c 3a 20 3a 3e 29 3b 0a 20 20 20 20 6b 3a 3d 20 72 61 28 31 29 3b 0a 20 20 ┆else <: :>); k:= ra(1); ┆
0x1df20…1df40 20 20 69 66 20 69 20 65 78 74 72 61 63 74 20 31 32 20 3d 34 20 74 68 65 6e 20 6c 3a 3d 20 6c 2b ┆ if i extract 12 =4 then l:= l+┆
0x1df40…1df60 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 6b 29 0a 20 20 20 20 65 6c 73 65 20 6c 3a ┆ write(out, <<d>, k) else l:┆
0x1df60…1df7a 3d 20 6c 2b 20 77 72 69 74 65 28 6f 75 74 2c 20 72 61 2e 72 74 6f 6c 29 3b 0a ┆= l+ write(out, ra.rtol); ┆
0x1df7a…1df80 (0x194,0x3c0)
0x1df80…1dfa0 20 20 20 20 6a 3a 3d 20 6a 2b 31 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 73 79 73 74 65 6d 28 34 2c ┆ j:= j+1; end; system(4,┆
0x1dfa0…1dfc0 30 2c 70 72 6f 67 29 3b 0a 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 32 2c 72 61 29 20 65 78 ┆0,prog); if system(4,2,ra) ex┆
0x1dfc0…1dfe0 74 72 61 63 74 20 31 32 20 3d 34 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 20 3c 2a 66 69 6c 65 20 ┆tract 12 =4 then begin <*file ┆
0x1dfe0…1e000 6e 6f 2c 20 6d 74 2a 3e 0a 20 20 20 20 66 69 6c 65 3a 3d 20 72 61 28 31 00 00 00 00 00 00 00 00 ┆no, mt*> file:= ra(1 ┆
0x1e000…1e006 (240,) (0x194,0x3c1)
0x1e006…1e020 29 3b 20 6b 69 6e 64 3a 3d 20 31 38 3b 0a 20 20 65 6e 64 0a 20 20 65 6c 73 65 ┆); kind:= 18; end else┆
0x1e020…1e040 0a 20 20 62 65 67 69 6e 20 3c 2a 6e 61 6d 65 2c 20 62 73 20 61 73 73 75 6d 65 64 2a 3e 0a 20 20 ┆ begin <*name, bs assumed*> ┆
0x1e040…1e060 20 20 6b 69 6e 64 3a 3d 20 34 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 73 79 73 74 65 6d 28 34 2c 31 ┆ kind:= 4; end; system(4,1┆
0x1e060…1e07e 2c 72 61 29 3b 0a 20 20 6f 70 65 6e 28 7a 2c 20 6b 69 6e 64 2c 20 72 61 2c 20 69 66 20 6b ┆,ra); open(z, kind, ra, if k┆
0x1e07e…1e084 (0x194,0x3c2)
0x1e084…1e0a0 69 6e 64 3d 34 20 74 68 65 6e 20 30 20 0a 20 20 20 20 20 20 20 65 6c 73 65 20 28 31 ┆ind=4 then 0 else (1┆
0x1e0a0…1e0c0 20 73 68 69 66 74 20 31 34 20 2b 20 31 20 73 68 69 66 74 20 31 36 20 2b 20 31 20 73 68 69 66 74 ┆ shift 14 + 1 shift 16 + 1 shift┆
0x1e0c0…1e0e0 20 31 38 29 20 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 66 69 6c 65 2c 30 29 3b ┆ 18) ); setposition(z,file,0);┆
0x1e0e0…1e0fc 0a 0a 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 62 6f 73 73 68 65 61 64 3b 0a 0a 70 ┆ end procedure bosshead; p┆
0x1e0fc…1e102 (0x194,0x3c3)
0x1e102…1e120 72 6f 63 65 64 75 72 65 20 62 73 63 6c 61 69 6d 73 28 62 6f 73 73 29 3b 0a 3c 2a 2a 2a 2a ┆rocedure bsclaims(boss); <****┆
0x1e120…1e140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 62 6f 6f 6c 65 61 6e 20 62 6f 73 ┆*******************> boolean bos┆
0x1e140…1e160 73 3b 0a 0a 69 66 20 68 77 73 20 3c 3e 20 36 2b 32 36 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c ┆s; if hws <> 6+26 then print(z,┆
0x1e160…1e17a 30 2c 30 2c 30 29 20 65 6c 73 65 0a 62 65 67 69 6e 0a 20 20 72 65 61 6c 20 61 ┆0,0,0) else begin real a┆
0x1e17a…1e180 (0x194,0x3c4)
0x1e180…1e1a0 72 72 61 79 20 66 69 65 6c 64 20 72 61 66 3b 0a 20 20 68 77 73 3a 3d 20 36 3b 0a 20 20 70 72 69 ┆rray field raf; hws:= 6; pri┆
0x1e1a0…1e1c0 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 68 77 73 3a 3d 20 36 2b 32 36 3b 0a 20 20 66 6f 72 ┆nt(z,0,0,0); hws:= 6+26; for┆
0x1e1c0…1e1e0 20 77 3a 3d 20 38 20 73 74 65 70 20 34 20 75 6e 74 69 6c 20 32 30 20 64 6f 0a 20 20 62 65 67 69 ┆ w:= 8 step 4 until 20 do begi┆
0x1e1e0…1e200 6e 0a 20 20 20 20 77 61 3a 3d 20 77 20 2b 20 32 3b 0a 20 20 20 20 77 72 00 00 00 00 00 00 00 00 ┆n wa:= w + 2; wr ┆
0x1e200…1e206 (241,) (0x194,0x3c5)
0x1e206…1e220 69 74 65 28 6f 75 74 2c 20 3c 3c 20 2d 64 64 64 64 64 64 3e 2c 20 7a 2e 77 2c ┆ite(out, << -dddddd>, z.w,┆
0x1e220…1e240 20 3c 3c 2d 64 64 64 64 3e 2c 20 7a 2e 77 61 29 3b 0a 20 20 65 6e 64 3b 0a 20 20 77 72 69 74 65 ┆ <<-dddd>, z.wa); end; write┆
0x1e240…1e260 28 6f 75 74 2c 20 73 70 2c 32 29 3b 0a 20 20 72 61 66 3a 3d 20 32 32 3b 0a 20 20 6f 75 74 74 65 ┆(out, sp,2); raf:= 22; outte┆
0x1e260…1e27e 78 74 28 6f 75 74 2c 20 31 32 2c 20 7a 2e 72 61 66 2c 20 31 29 3b 0a 20 20 77 61 3a 3d 20 ┆xt(out, 12, z.raf, 1); wa:= ┆
0x1e27e…1e284 (0x194,0x3c6)
0x1e284…1e2a0 33 32 3b 0a 20 20 69 66 20 62 6f 73 73 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 ┆32; if boss then write(out┆
0x1e2a0…1e2c0 2c 20 3c 3c 20 64 64 64 64 64 64 3e 2c 20 7a 2e 77 61 29 0a 20 20 20 20 65 6c 73 65 20 77 72 69 ┆, << dddddd>, z.wa) else wri┆
0x1e2c0…1e2e0 74 65 28 6f 75 74 2c 20 3c 3c 20 64 64 3e 2c 20 7a 2e 77 61 20 73 68 69 66 74 20 28 2d 31 32 29 ┆te(out, << dd>, z.wa shift (-12)┆
0x1e2e0…1e2fc 2c 20 7a 2e 77 61 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 65 6e 64 3b 0a 0c 0a 63 ┆, z.wa extract 12); end; c┆
0x1e2fc…1e302 (0x194,0x3c7)
0x1e302…1e320 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 ┆omment chd 82.01.20 ┆
0x1e320…1e340 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 ┆bossout boss2, testout ┆
0x1e340…1e360 20 20 20 2e 2e 2e 33 2e 2e 2e 0a 3b 0a 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 73 65 63 63 6c 6f ┆ ...3... ; procedure secclo┆
0x1e360…1e37a 63 6b 28 77 6e 6f 29 3b 20 20 20 20 76 61 6c 75 65 20 77 6e 6f 3b 0a 3c 2a 2a ┆ck(wno); value wno; <**┆
0x1e37a…1e380 (0x194,0x3c8)
0x1e380…1e3a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 69 6e 74 65 67 65 72 20 77 6e 6f ┆*******************> integer wno┆
0x1e3a0…1e3c0 3b 0a 62 65 67 69 6e 0a 20 20 3c 2a 20 77 72 69 74 65 20 77 6f 72 64 20 6e 6f 20 77 6e 6f 20 61 ┆; begin <* write word no wno a┆
0x1e3c0…1e3e0 73 20 73 65 63 6f 6e 64 73 20 69 6e 20 73 61 6d 65 20 6e 6f 74 61 74 69 6f 6e 20 61 73 20 68 65 ┆s seconds in same notation as he┆
0x1e3e0…1e400 61 64 2d 74 69 6d 65 2c 20 73 75 70 70 6f 73 69 6e 67 20 74 68 65 20 77 00 00 00 00 00 00 00 00 ┆ad-time, supposing the w ┆
0x1e400…1e406 (242,) (0x194,0x3c9)
0x1e406…1e420 6f 72 64 0a 20 20 20 20 20 63 6f 6e 74 61 69 6e 73 20 61 20 62 6f 73 73 2d 73 ┆ord contains a boss-s┆
0x1e420…1e440 68 6f 72 74 63 6c 6f 63 6b 20 69 6e 20 74 68 65 20 66 6f 72 6d 3a 20 6d 6f 6e 74 69 6d 65 20 73 ┆hortclock in the form: montime s┆
0x1e440…1e460 68 69 66 74 28 2d 31 33 29 20 65 78 74 72 61 63 74 20 32 34 2e 0a 20 20 2a 3e 0a 20 20 69 6e 74 ┆hift(-13) extract 24. *> int┆
0x1e460…1e47e 65 67 65 72 20 66 69 65 6c 64 20 77 78 3b 20 20 69 6e 74 65 67 65 72 20 74 3b 0a 0a 20 20 ┆eger field wx; integer t; ┆
0x1e47e…1e484 (0x194,0x3ca)
0x1e484…1e4a0 77 78 3a 3d 20 77 6e 6f 20 73 68 69 66 74 20 31 3b 0a 20 20 69 66 20 77 78 20 3c 3d ┆wx:= wno shift 1; if wx <=┆
0x1e4a0…1e4c0 20 68 77 73 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 74 3a 3d 20 7a 2e 77 32 20 2d ┆ hws then begin t:= z.w2 -┆
0x1e4c0…1e4e0 20 73 77 74 69 6d 65 3b 0a 20 20 20 20 69 66 20 74 3c 30 20 74 68 65 6e 20 74 3a 3d 20 74 2b 20 ┆ swtime; if t<0 then t:= t+ ┆
0x1e4e0…1e4fc 35 20 33 36 38 20 37 30 39 3b 0a 20 20 20 20 3c 2a 20 74 3d 20 74 69 6d 65 20 66 72 ┆5 368 709; <* t= time fr┆
0x1e4fc…1e502 (0x194,0x3cb)
0x1e502…1e520 6f 6d 20 73 65 67 6d 20 73 74 61 72 74 20 74 6f 20 27 6e 6f 77 27 2c 20 75 6e 69 74 73 20 ┆om segm start to 'now', units ┆
0x1e520…1e540 6f 66 20 30 2e 30 31 20 73 65 63 73 2a 3e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c ┆of 0.01 secs*> write(out, <<┆
0x1e540…1e560 20 20 64 64 64 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 7a 2e 77 32 20 2f 20 31 30 30 20 20 3c 2a ┆ ddddddd>, z.w2 / 100 <*┆
0x1e560…1e57a 68 65 61 64 2d 74 69 6d 65 2a 3e 0a 20 20 20 20 20 20 2b 20 28 28 65 78 74 65 ┆head-time*> + ((exte┆
0x1e57a…1e580 (0x194,0x3cc)
0x1e580…1e5a0 6e 64 20 30 20 61 64 64 20 7a 2e 77 78 29 20 73 68 69 66 74 20 31 33 29 20 2f 20 31 30 20 30 30 ┆nd 0 add z.wx) shift 13) / 10 00┆
0x1e5a0…1e5c0 30 20 3c 2a 74 69 6d 65 20 69 6e 20 77 6e 6f 20 69 6e 20 73 65 63 6f 6e 64 73 2a 3e 0a 20 20 20 ┆0 <*time in wno in seconds*> ┆
0x1e5c0…1e5e0 20 20 20 2d 20 28 73 74 69 6d 65 20 73 68 69 66 74 20 31 31 20 73 68 69 66 74 28 2d 31 31 29 29 ┆ - (stime shift 11 shift(-11))┆
0x1e5e0…1e600 20 2f 20 31 30 20 30 30 30 20 3c 2a 20 2d 20 73 65 67 6d 20 73 74 61 72 00 00 00 00 00 00 00 00 ┆ / 10 000 <* - segm star ┆
0x1e600…1e606 (243,) (0x194,0x3cd)
0x1e606…1e620 74 20 74 69 6d 65 20 2a 3e 0a 20 20 20 20 20 20 2d 20 74 20 2f 31 30 30 20 29 ┆t time *> - t /100 )┆
0x1e620…1e640 3b 0a 20 20 20 20 74 3a 3d 20 28 28 28 28 20 73 74 69 6d 65 20 73 68 69 66 74 20 28 2d 28 34 38 ┆; t:= (((( stime shift (-(48┆
0x1e640…1e660 2d 31 31 29 29 20 20 20 20 20 20 20 20 20 3c 2a 20 6d 6f 73 74 20 73 69 67 6e 69 66 69 63 61 6e ┆-11)) <* most significan┆
0x1e660…1e67e 74 20 31 31 20 62 69 74 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t 11 bits *> ┆
0x1e67e…1e684 (0x194,0x3ce)
0x1e684…1e6a0 20 20 73 68 69 66 74 20 32 34 29 20 61 64 64 20 7a 2e 77 78 29 20 20 20 20 20 20 3c ┆ shift 24) add z.wx) <┆
0x1e6a0…1e6c0 2a 20 6e 65 78 74 20 32 34 20 62 69 74 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* next 24 bits *> ┆
0x1e6c0…1e6e0 20 20 20 20 20 73 68 69 66 74 20 31 33 29 20 2f 2f 20 31 30 30 30 30 29 20 6d 6f 64 20 28 32 34 ┆ shift 13) // 10000) mod (24┆
0x1e6e0…1e6fc 2a 36 30 2a 36 30 29 3b 20 20 20 3c 2a 20 74 69 6d 65 20 6f 66 20 64 61 79 20 2a 3e ┆*60*60); <* time of day *>┆
0x1e6fc…1e702 (0x194,0x3cf)
0x1e702…1e720 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 7a 64 20 64 64 20 64 64 3e 2c 0a ┆ write(out, << zd dd dd>, ┆
0x1e720…1e740 20 20 20 20 20 20 28 74 20 2f 2f 20 33 36 30 30 29 20 2a 20 31 30 30 30 30 0a 20 20 20 20 20 20 ┆ (t // 3600) * 10000 ┆
0x1e740…1e760 2b 20 28 28 74 20 6d 6f 64 20 33 36 30 30 29 20 2f 2f 20 36 30 29 20 2a 20 31 30 30 0a 20 20 20 ┆+ ((t mod 3600) // 60) * 100 ┆
0x1e760…1e77a 20 20 20 2b 20 28 74 20 6d 6f 64 20 36 30 29 29 3b 0a 20 20 65 6e 64 3b 0a 65 ┆ + (t mod 60)); end; e┆
0x1e77a…1e780 (0x194,0x3d0)
0x1e780…1e7a0 6e 64 20 70 72 6f 63 65 64 75 72 65 20 73 65 63 63 6c 6f 63 6b 3b 0a 0a 0a 70 72 6f 63 65 64 75 ┆nd procedure secclock; procedu┆
0x1e7a0…1e7c0 72 65 20 73 65 63 28 77 6e 6f 29 3b 20 20 20 76 61 6c 75 65 20 77 6e 6f 3b 0a 3c 2a 2a 2a 2a 2a ┆re sec(wno); value wno; <*****┆
0x1e7c0…1e7e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 69 6e 74 65 67 65 72 20 77 6e 6f 3b 0a 62 65 67 69 6e ┆************> integer wno; begin┆
0x1e7e0…1e800 0a 20 20 3c 2a 20 20 77 72 69 74 65 20 77 6f 72 64 20 6e 6f 20 77 6e 6f 00 00 00 00 00 00 00 00 ┆ <* write word no wno ┆
0x1e800…1e806 (244,) (0x194,0x3d1)
0x1e806…1e820 20 6f 66 20 7a 6f 6e 65 20 7a 20 61 73 20 73 65 63 6f 6e 64 73 2c 20 63 6f 6e ┆ of zone z as seconds, con┆
0x1e820…1e840 76 65 72 74 69 6e 67 20 66 72 6f 6d 20 75 6e 69 74 73 20 6f 66 20 30 2e 38 20 73 65 63 6f 6e 64 ┆verting from units of 0.8 second┆
0x1e840…1e860 73 20 2a 3e 0a 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 77 78 3b 0a 0a 20 20 77 78 3a 3d ┆s *> integer field wx; wx:=┆
0x1e860…1e87e 20 77 6e 6f 20 73 68 69 66 74 20 31 3b 0a 20 20 69 66 20 77 78 3c 3d 20 68 77 73 20 74 68 ┆ wno shift 1; if wx<= hws th┆
0x1e87e…1e884 (0x194,0x3d2)
0x1e884…1e8a0 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 20 2d 64 64 64 64 64 64 64 3e 2c 20 7a ┆en write(out,<< -ddddddd>, z┆
0x1e8a0…1e8c0 2e 77 78 2a 30 2e 38 31 39 32 29 3b 0a 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 73 65 63 3b 0a ┆.wx*0.8192); end procedure sec; ┆
0x1e8c0…1e8e0 0a 0a 70 72 6f 63 65 64 75 72 65 20 64 75 6d 70 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ procedure dump; <*************┆
0x1e8e0…1e8fc 3e 0a 69 66 20 68 77 73 20 3c 20 38 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 30 2c ┆> if hws < 8 then print(z,0,┆
0x1e8fc…1e902 (0x194,0x3d3)
0x1e902…1e920 30 2c 30 29 20 65 6c 73 65 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 6f 6c 64 76 ┆0,0) else begin integer oldv┆
0x1e920…1e940 61 6c 75 65 3b 0a 20 20 6f 6c 64 76 61 6c 75 65 3a 3d 20 68 77 73 3b 0a 20 20 68 77 73 3a 3d 20 ┆alue; oldvalue:= hws; hws:= ┆
0x1e940…1e960 36 3b 0a 20 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 68 77 73 3a 3d 20 6f 6c 64 ┆6; print(z,0,0,0); hws:= old┆
0x1e960…1e97a 76 61 6c 75 65 3b 0a 20 20 77 72 69 74 65 61 6c 6c 28 7a 2c 20 38 2c 20 68 77 ┆value; writeall(z, 8, hw┆
0x1e97a…1e980 (0x194,0x3d4)
0x1e980…1e9a0 73 2c 20 7a 2e 77 33 29 3b 0a 65 6e 64 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e ┆s, z.w3); end; comment chd 82.┆
0x1e9a0…1e9c0 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 ┆01.20 bossout ┆
0x1e9c0…1e9e0 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 33 61 2e 2e 2e 0a 3b 0a 0a 0a ┆ boss2, testout ...3a... ; ┆
0x1e9e0…1ea00 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 61 6c 6c 28 7a 2c 20 66 69 00 00 00 00 00 00 00 00 ┆procedure writeall(z, fi ┆
0x1ea00…1ea06 (245,) (0x194,0x3d5)
0x1ea06…1ea20 72 73 74 2c 20 74 6f 70 2c 20 69 63 29 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆rst, top, ic); <**********┆
0x1ea20…1ea40 2a 2a 2a 2a 2a 2a 3e 0a 0a 76 61 6c 75 65 20 66 69 72 73 74 2c 20 74 6f 70 2c 20 69 63 3b 0a 69 ┆******> value first, top, ic; i┆
0x1ea40…1ea60 6e 74 65 67 65 72 20 66 69 72 73 74 2c 20 74 6f 70 2c 20 69 63 3b 0a 7a 6f 6e 65 20 7a 3b 0a 0a ┆nteger first, top, ic; zone z; ┆
0x1ea60…1ea7e 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 20 77 6f 72 64 2c 20 63 68 61 72 2c ┆begin integer i, word, char,┆
0x1ea7e…1ea84 (0x194,0x3d6)
0x1ea84…1eaa0 20 6c 65 66 74 68 61 6c 66 2c 20 72 69 67 68 74 68 61 6c 66 2c 0a 20 20 20 20 20 20 ┆ lefthalf, righthalf, ┆
0x1eaa0…1eac0 20 20 20 20 66 75 6e 63 74 69 6f 6e 2c 20 77 72 65 67 2c 20 78 72 65 67 2c 20 70 6f 73 3b 0a 20 ┆ function, wreg, xreg, pos; ┆
0x1eac0…1eae0 20 62 6f 6f 6c 65 61 6e 20 72 65 6c 61 74 69 76 65 2c 20 69 6e 64 69 72 65 63 74 3b 0a 20 20 69 ┆ boolean relative, indirect; i┆
0x1eae0…1eafc 6e 74 65 67 65 72 20 66 69 65 6c 64 20 69 66 69 65 6c 64 3b 0a 0a 20 20 77 72 69 74 ┆nteger field ifield; writ┆
0x1eafc…1eb02 (0x194,0x3d7)
0x1eb02…1eb20 65 28 6f 75 74 2c 20 73 70 2c 20 32 2c 0a 20 20 20 20 3c 3a 61 64 64 72 65 73 73 20 20 74 ┆e(out, sp, 2, <:address t┆
0x1eb20…1eb40 65 78 74 20 20 20 63 68 61 72 61 63 74 65 72 73 20 20 20 20 61 62 73 68 61 6c 66 20 20 20 20 68 ┆ext characters abshalf h┆
0x1eb40…1eb60 61 6c 66 77 6f 72 64 73 20 20 20 69 6e 74 65 67 65 72 20 20 63 6f 64 65 3a 3e 29 3b 0a 0a 20 20 ┆alfwords integer code:>); ┆
0x1eb60…1eb7a 66 6f 72 20 69 66 69 65 6c 64 3a 3d 20 66 69 72 73 74 20 73 74 65 70 20 32 20 ┆for ifield:= first step 2 ┆
0x1eb7a…1eb80 (0x194,0x3d8)
0x1eb80…1eba0 75 6e 74 69 6c 20 74 6f 70 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 77 6f 72 64 3a 3d 20 ┆until top do begin word:= ┆
0x1eba0…1ebc0 7a 2e 69 66 69 65 6c 64 3b 0a 0a 20 20 20 20 3c 2a 20 61 64 64 72 65 73 73 20 2a 3e 0a 20 20 20 ┆z.ifield; <* address *> ┆
0x1ebc0…1ebe0 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 31 2c 20 73 70 2c 20 32 31 2c 0a 20 20 20 20 20 ┆ write(out, nl, 1, sp, 21, ┆
0x1ebe0…1ec00 20 3c 3c 20 2d 64 64 64 64 64 64 64 3e 2c 20 69 63 29 3b 0a 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ << -ddddddd>, ic); ┆
0x1ec00…1ec06 (246,) (0x194,0x3d9)
0x1ec06…1ec20 20 3c 2a 20 74 65 78 74 20 2a 3e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆ <* text *> write(out,┆
0x1ec20…1ec40 20 73 70 2c 20 33 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 20 2d 31 36 2c 20 2d 38 2c 20 30 20 ┆ sp, 3); for i:= -16, -8, 0 ┆
0x1ec40…1ec60 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 63 68 61 72 3a 3d 20 77 6f 72 64 20 73 ┆do begin char:= word s┆
0x1ec60…1ec7e 68 69 66 74 20 69 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 69 66 20 63 68 61 ┆hift i extract 8; if cha┆
0x1ec7e…1ec84 (0x194,0x3da)
0x1ec84…1eca0 72 3c 33 32 20 6f 72 20 63 68 61 72 3e 31 32 36 20 74 68 65 6e 20 63 68 61 72 3a 3d ┆r<32 or char>126 then char:=┆
0x1eca0…1ecc0 20 33 32 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 ┆ 32; write(out, false add ┆
0x1ecc0…1ece0 63 68 61 72 2c 20 31 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 3c 2a 20 63 68 61 72 61 ┆char, 1); end; <* chara┆
0x1ece0…1ecfc 63 74 65 72 73 20 28 38 2d 62 69 74 20 76 61 6c 75 65 73 29 20 2a 3e 0a 20 20 20 20 ┆cters (8-bit values) *> ┆
0x1ecfc…1ed02 (0x194,0x3db)
0x1ed02…1ed20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 20 31 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d ┆write(out, sp, 1); for i:=┆
0x1ed20…1ed40 20 2d 31 36 2c 20 2d 38 2c 20 30 20 64 6f 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 ┆ -16, -8, 0 do write(out, ┆
0x1ed40…1ed60 3c 3c 20 64 64 64 3e 2c 20 77 6f 72 64 20 73 68 69 66 74 20 69 20 65 78 74 72 61 63 74 20 38 29 ┆<< ddd>, word shift i extract 8)┆
0x1ed60…1ed7a 3b 0a 0a 20 20 20 20 3c 2a 20 61 62 73 68 61 6c 66 20 28 75 6e 73 69 67 6e 65 ┆; <* abshalf (unsigne┆
0x1ed7a…1ed80 (0x194,0x3dc)
0x1ed80…1eda0 64 20 68 61 6c 66 77 6f 72 64 73 29 20 2a 3e 0a 20 20 20 20 6c 65 66 74 68 61 6c 66 3a 3d 20 77 ┆d halfwords) *> lefthalf:= w┆
0x1eda0…1edc0 6f 72 64 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 20 20 20 72 69 67 68 74 68 61 6c 66 3a 3d ┆ord shift (-12); righthalf:=┆
0x1edc0…1ede0 20 77 6f 72 64 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆ word extract 12; write(out,┆
0x1ede0…1ee00 20 73 70 2c 20 31 2c 20 3c 3c 20 64 64 64 64 3e 2c 20 6c 65 66 74 68 61 00 00 00 00 00 00 00 00 ┆ sp, 1, << dddd>, leftha ┆
0x1ee00…1ee06 (247,) (0x194,0x3dd)
0x1ee06…1ee20 6c 66 2c 20 72 69 67 68 74 68 61 6c 66 29 3b 0a 0a 20 20 20 20 3c 2a 20 68 61 ┆lf, righthalf); <* ha┆
0x1ee20…1ee40 6c 66 77 6f 72 64 73 20 28 77 69 74 68 20 73 69 67 6e 29 20 2a 3e 0a 20 20 20 20 69 66 20 6c 65 ┆lfwords (with sign) *> if le┆
0x1ee40…1ee60 66 74 68 61 6c 66 20 3e 20 32 30 34 37 20 74 68 65 6e 20 6c 65 66 74 68 61 6c 66 3a 3d 20 6c 65 ┆fthalf > 2047 then lefthalf:= le┆
0x1ee60…1ee7e 66 74 68 61 6c 66 20 2d 20 34 30 39 36 3b 0a 20 20 20 20 69 66 20 72 69 67 68 74 68 61 6c ┆fthalf - 4096; if righthal┆
0x1ee7e…1ee84 (0x194,0x3de)
0x1ee84…1eea0 66 20 3e 20 32 30 34 37 20 74 68 65 6e 20 72 69 67 68 74 68 61 6c 66 3a 3d 20 72 69 ┆f > 2047 then righthalf:= ri┆
0x1eea0…1eec0 67 68 74 68 61 6c 66 20 2d 20 34 30 39 36 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 ┆ghthalf - 4096; write(out, s┆
0x1eec0…1eee0 70 2c 20 31 2c 20 3c 3c 20 2d 64 64 64 64 3e 2c 20 6c 65 66 74 68 61 6c 66 2c 20 72 69 67 68 74 ┆p, 1, << -dddd>, lefthalf, right┆
0x1eee0…1eefc 68 61 6c 66 29 3b 0a 0a 20 20 20 20 3c 2a 20 69 6e 74 65 67 65 72 20 28 77 69 74 68 ┆half); <* integer (with┆
0x1eefc…1ef02 (0x194,0x3df)
0x1ef02…1ef20 20 73 69 67 6e 29 20 2a 3e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 20 2d ┆ sign) *> write(out, << -┆
0x1ef20…1ef40 64 64 64 64 64 64 64 3e 2c 20 77 6f 72 64 29 3b 0a 0a 20 20 20 20 3c 2a 20 63 6f 64 65 20 2a 3e ┆ddddddd>, word); <* code *>┆
0x1ef40…1ef60 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 3a 3d 20 77 6f 72 64 20 73 68 69 66 74 20 28 2d 31 38 29 ┆ function:= word shift (-18)┆
0x1ef60…1ef7a 3b 20 3c 2a 20 62 69 74 73 20 30 2d 35 20 2a 3e 0a 20 20 20 20 77 72 65 67 3a ┆; <* bits 0-5 *> wreg:┆
0x1ef7a…1ef80 (0x194,0x3e0)
0x1ef80…1efa0 3d 20 77 6f 72 64 20 73 68 69 66 74 20 28 2d 31 36 29 20 65 78 74 72 61 63 74 20 32 3b 20 3c 2a ┆= word shift (-16) extract 2; <*┆
0x1efa0…1efc0 20 62 69 74 73 20 36 2d 37 20 2a 3e 0a 20 20 20 20 72 65 6c 61 74 69 76 65 3a 3d 20 28 77 6f 72 ┆ bits 6-7 *> relative:= (wor┆
0x1efc0…1efe0 64 20 73 68 69 66 74 20 28 2d 31 35 29 20 65 78 74 72 61 63 74 20 31 29 20 3d 20 31 3b 20 3c 2a ┆d shift (-15) extract 1) = 1; <*┆
0x1efe0…1f000 20 62 69 74 20 38 20 2a 3e 0a 20 20 20 20 69 6e 64 69 72 65 63 74 3a 3d 00 00 00 00 00 00 00 00 ┆ bit 8 *> indirect:= ┆
0x1f000…1f006 (248,) (0x194,0x3e1)
0x1f006…1f020 20 28 77 6f 72 64 20 73 68 69 66 74 20 28 2d 31 34 29 20 65 78 74 72 61 63 74 ┆ (word shift (-14) extract┆
0x1f020…1f040 20 31 29 20 3d 20 31 3b 20 3c 2a 20 62 69 74 20 39 20 2a 3e 0a 20 20 20 20 78 72 65 67 3a 3d 20 ┆ 1) = 1; <* bit 9 *> xreg:= ┆
0x1f040…1f060 77 6f 72 64 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 32 3b 20 3c 2a 20 62 ┆word shift (-12) extract 2; <* b┆
0x1f060…1f07e 69 74 73 20 31 30 2d 31 31 20 2a 3e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 ┆its 10-11 *> write(out, sp┆
0x1f07e…1f084 (0x194,0x3e2)
0x1f084…1f0a0 2c 20 32 2c 20 63 61 73 65 20 66 75 6e 63 74 69 6f 6e 2b 31 20 6f 66 0a 20 20 20 20 ┆, 2, case function+1 of ┆
0x1f0a0…1f0c0 20 20 28 3c 3a 61 77 3a 3e 2c 3c 3a 64 6f 3a 3e 2c 3c 3a 65 6c 3a 3e 2c 3c 3a 68 6c 3a 3e 2c 3c ┆ (<:aw:>,<:do:>,<:el:>,<:hl:>,<┆
0x1f0c0…1f0e0 3a 6c 61 3a 3e 2c 3c 3a 6c 6f 3a 3e 2c 3c 3a 6c 78 3a 3e 2c 3c 3a 77 61 3a 3e 2c 3c 3a 77 73 3a ┆:la:>,<:lo:>,<:lx:>,<:wa:>,<:ws:┆
0x1f0e0…1f0fc 3e 2c 3c 3a 61 6d 3a 3e 2c 0a 20 20 20 20 20 20 20 3c 3a 77 6d 3a 3e 2c 3c 3a 61 6c ┆>,<:am:>, <:wm:>,<:al┆
0x1f0fc…1f102 (0x194,0x3e3)
0x1f102…1f120 3a 3e 2c 3c 3a 72 69 3a 3e 2c 3c 3a 6a 6c 3a 3e 2c 3c 3a 6a 64 3a 3e 2c 3c 3a 6a 65 3a 3e ┆:>,<:ri:>,<:jl:>,<:jd:>,<:je:>┆
0x1f120…1f140 2c 3c 3a 78 6c 3a 3e 2c 3c 3a 65 73 3a 3e 2c 3c 3a 65 61 3a 3e 2c 3c 3a 7a 6c 3a 3e 2c 0a 20 20 ┆,<:xl:>,<:es:>,<:ea:>,<:zl:>, ┆
0x1f140…1f160 20 20 20 20 20 3c 3a 72 6c 3a 3e 2c 3c 3a 73 70 3a 3e 2c 3c 3a 72 65 3a 3e 2c 3c 3a 72 73 3a 3e ┆ <:rl:>,<:sp:>,<:re:>,<:rs:>┆
0x1f160…1f17a 2c 3c 3a 77 64 3a 3e 2c 3c 3a 72 78 3a 3e 2c 3c 3a 68 73 3a 3e 2c 3c 3a 78 73 ┆,<:wd:>,<:rx:>,<:hs:>,<:xs┆
0x1f17a…1f180 (0x194,0x3e4)
0x1f180…1f1a0 3a 3e 2c 3c 3a 67 67 3a 3e 2c 3c 3a 64 69 3a 3e 2c 0a 20 20 20 20 20 20 20 3c 3a 6d 73 3a 3e 2c ┆:>,<:gg:>,<:di:>, <:ms:>,┆
0x1f1a0…1f1c0 3c 3a 69 73 3a 3e 2c 3c 3a 63 69 3a 3e 2c 3c 3a 61 63 3a 3e 2c 3c 3a 6e 73 3a 3e 2c 3c 3a 6e 64 ┆<:is:>,<:ci:>,<:ac:>,<:ns:>,<:nd┆
0x1f1c0…1f1e0 3a 3e 2c 3c 3a 61 73 3a 3e 2c 3c 3a 61 64 3a 3e 2c 3c 3a 6c 73 3a 3e 2c 3c 3a 6c 64 3a 3e 2c 0a ┆:>,<:as:>,<:ad:>,<:ls:>,<:ld:>, ┆
0x1f1e0…1f200 20 20 20 20 20 20 20 3c 3a 73 68 3a 3e 2c 3c 3a 73 6c 3a 3e 2c 3c 3a 73 00 00 00 00 00 00 00 00 ┆ <:sh:>,<:sl:>,<:s ┆
0x1f200…1f206 (249,) (0x194,0x3e5)
0x1f206…1f220 65 3a 3e 2c 3c 3a 73 6e 3a 3e 2c 3c 3a 73 6f 3a 3e 2c 3c 3a 73 7a 3a 3e 2c 3c ┆e:>,<:sn:>,<:so:>,<:sz:>,<┆
0x1f220…1f240 3a 73 78 3a 3e 2c 3c 3a 67 70 3a 3e 2c 3c 3a 66 61 3a 3e 2c 3c 3a 66 73 3a 3e 2c 0a 20 20 20 20 ┆:sx:>,<:gp:>,<:fa:>,<:fs:>, ┆
0x1f240…1f260 20 20 20 3c 3a 66 6d 3a 3e 2c 3c 3a 6b 73 3a 3e 2c 3c 3a 66 64 3a 3e 2c 3c 3a 63 66 3a 3e 2c 3c ┆ <:fm:>,<:ks:>,<:fd:>,<:cf:>,<┆
0x1f260…1f27e 3a 64 6c 3a 3e 2c 3c 3a 64 73 3a 3e 2c 3c 3a 61 61 3a 3e 2c 3c 3a 73 73 3a 3e 2c 3c 3a 35 ┆:dl:>,<:ds:>,<:aa:>,<:ss:>,<:5┆
0x1f27e…1f284 (0x194,0x3e6)
0x1f284…1f2a0 38 3a 3e 2c 3c 3a 35 39 3a 3e 2c 0a 20 20 20 20 20 20 20 3c 3a 36 30 3a 3e 2c 3c 3a ┆8:>,<:59:>, <:60:>,<:┆
0x1f2a0…1f2c0 36 31 3a 3e 2c 3c 3a 36 32 3a 3e 2c 3c 3a 36 33 3a 3e 29 29 3b 0a 20 20 20 20 77 72 69 74 65 28 ┆61:>,<:62:>,<:63:>)); write(┆
0x1f2c0…1f2e0 6f 75 74 2c 20 69 66 20 72 65 6c 61 74 69 76 65 20 74 68 65 6e 20 3c 3a 2e 20 3a 3e 20 65 6c 73 ┆out, if relative then <:. :> els┆
0x1f2e0…1f2fc 65 20 3c 3a 20 20 3a 3e 29 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 ┆e <: :>); write(out, if┆
0x1f2fc…1f302 (0x194,0x3e7)
0x1f302…1f320 20 77 72 65 67 20 3e 20 30 20 74 68 65 6e 20 28 63 61 73 65 20 77 72 65 67 20 6f 66 20 28 ┆ wreg > 0 then (case wreg of (┆
0x1f320…1f340 3c 3a 77 31 3a 3e 2c 20 3c 3a 77 32 3a 3e 2c 20 3c 3a 77 33 3a 3e 29 29 0a 20 20 20 20 20 20 65 ┆<:w1:>, <:w2:>, <:w3:>)) e┆
0x1f340…1f360 6c 73 65 20 63 61 73 65 20 66 75 6e 63 74 69 6f 6e 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 28 ┆lse case function+1 of (┆
0x1f360…1f37a 3c 3a 20 20 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a ┆<: :>,<:w0:>,<:w0:>,<:w0:┆
0x1f37a…1f380 (0x194,0x3e8)
0x1f380…1f3a0 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a ┆>,<:w0:>,<:w0:>,<:w0:>,<:w0:>,<:┆
0x1f3a0…1f3c0 77 30 3a 3e 2c 3c 3a 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 3c 3a 77 30 3a 3e 2c 3c 3a 77 ┆w0:>,<: :>, <:w0:>,<:w┆
0x1f3c0…1f3e0 30 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a 3e 2c ┆0:>,<: :>,<: :>,<: :>,<: :>,┆
0x1f3e0…1f400 3c 3a 20 20 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 00 00 00 00 00 00 00 00 ┆<: :>,<:w0:>,<:w0:>,<:w ┆
0x1f400…1f406 (250,) (0x194,0x3e9)
0x1f406…1f420 30 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 3c 3a 77 30 3a 3e 2c 3c 3a 20 20 3a ┆0:>, <:w0:>,<: :┆
0x1f420…1f440 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a ┆>,<: :>,<:w0:>,<:w0:>,<:w0:>,<:┆
0x1f440…1f460 77 30 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 0a 20 20 20 20 20 ┆w0:>,<: :>,<:w0:>,<:w0:>, ┆
0x1f460…1f47e 20 20 20 20 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a ┆ <: :>,<: :>,<:w0:>,<:w0:┆
0x1f47e…1f484 (0x194,0x3ea)
0x1f484…1f4a0 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a ┆>,<:w0:>,<:w0:>,<:w0:>,<:w0:┆
0x1f4a0…1f4c0 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 3c 3a 77 30 3a 3e ┆>,<:w0:>,<:w0:>, <:w0:>┆
0x1f4c0…1f4e0 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 ┆,<:w0:>,<:w0:>,<:w0:>,<:w0:>,<:w┆
0x1f4e0…1f4fc 30 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 ┆0:>,<: :>,<:w0:>,<:w0:>,<:w┆
0x1f4fc…1f502 (0x194,0x3eb)
0x1f502…1f520 30 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 3c 3a 77 30 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a ┆0:>, <:w0:>,<: :>,<:┆
0x1f520…1f540 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e 2c 3c 3a 77 30 3a 3e ┆w0:>,<:w0:>,<:w0:>,<:w0:>,<:w0:>┆
0x1f540…1f560 2c 3c 3a 77 30 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 ┆,<:w0:>,<: :>,<: :>, ┆
0x1f560…1f57a 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a 3e 2c 3c 3a 20 20 3a ┆<: :>,<: :>,<: :>,<: :┆
0x1f57a…1f580 (0x194,0x3ec)
0x1f580…1f5a0 3e 29 29 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 69 6e 64 69 72 65 63 74 20 ┆>)); write(out, if indirect ┆
0x1f5a0…1f5c0 74 68 65 6e 20 3c 3a 20 28 3a 3e 20 65 6c 73 65 20 3c 3a 20 20 3a 3e 29 3b 0a 20 20 20 20 77 72 ┆then <: (:> else <: :>); wr┆
0x1f5c0…1f5e0 69 74 65 28 6f 75 74 2c 20 63 61 73 65 20 78 72 65 67 2b 31 20 6f 66 20 28 3c 3a 20 20 3a 3e 2c ┆ite(out, case xreg+1 of (<: :>,┆
0x1f5e0…1f600 20 3c 3a 78 31 3a 3e 2c 20 3c 3a 78 32 3a 3e 2c 20 3c 3a 78 33 3a 3e 29 00 00 00 00 00 00 00 00 ┆ <:x1:>, <:x2:>, <:x3:>) ┆
0x1f600…1f606 (251,) (0x194,0x3ed)
0x1f606…1f620 29 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 20 38 2d 0a 20 ┆); write(out, sp, 8- ┆
0x1f620…1f640 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 72 65 6c 61 74 69 76 65 20 6f 72 20 78 ┆ write(out, if relative or x┆
0x1f640…1f660 72 65 67 3e 30 20 74 68 65 6e 20 3c 3c 2b 64 3e 20 65 6c 73 65 20 3c 3c 2d 64 3e 2c 20 72 69 67 ┆reg>0 then <<+d> else <<-d>, rig┆
0x1f660…1f67e 68 74 68 61 6c 66 2c 0a 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 69 72 65 63 74 20 74 68 ┆hthalf, if indirect th┆
0x1f67e…1f684 (0x194,0x3ee)
0x1f684…1f6a0 65 6e 20 3c 3a 29 20 20 3a 3e 20 65 6c 73 65 20 3c 3a 20 20 20 3a 3e 29 20 29 3b 0a ┆en <:) :> else <: :>) ); ┆
0x1f6a0…1f6c0 20 20 20 20 69 66 20 72 65 6c 61 74 69 76 65 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 ┆ if relative then write(out, ┆
0x1f6c0…1f6e0 3c 3c 2d 64 3e 2c 20 69 63 20 2b 20 72 69 67 68 74 68 61 6c 66 29 3b 0a 0a 20 20 20 20 3c 2a 20 ┆<<-d>, ic + righthalf); <* ┆
0x1f6e0…1f6fc 70 72 65 70 61 72 65 20 6e 65 78 74 20 2a 3e 0a 0a 20 20 20 20 69 63 3a 3d 20 69 63 ┆prepare next *> ic:= ic┆
0x1f6fc…1f702 (0x194,0x3ef)
0x1f702…1f720 20 2b 20 32 3b 0a 20 20 65 6e 64 3b 0a 65 6e 64 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 63 68 ┆ + 2; end; end; comment ch┆
0x1f720…1f740 64 20 38 32 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 ┆d 82.01.20 bossout ┆
0x1f740…1f760 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 33 62 2e 2e 2e ┆ boss2, testout ...3b...┆
0x1f760…1f77a 0a 3b 0a 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 72 69 6e 74 20 28 7a 2c 20 ┆ ; procedure print (z, ┆
0x1f77a…1f780 (0x194,0x3f0)
0x1f780…1f7a0 74 65 78 74 73 74 61 72 74 2c 20 68 77 66 6f 72 6d 2c 20 6e 61 6d 65 66 6f 72 6d 29 3b 0a 3c 2a ┆textstart, hwform, nameform); <*┆
0x1f7a0…1f7c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 ┆*************> value ┆
0x1f7c0…1f7e0 20 20 20 74 65 78 74 73 74 61 72 74 2c 20 68 77 66 6f 72 6d 2c 20 6e 61 6d 65 66 6f 72 6d 3b 0a ┆ textstart, hwform, nameform; ┆
0x1f7e0…1f800 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 00 00 00 00 00 00 00 00 ┆integer text ┆
0x1f800…1f806 (252,) (0x194,0x3f1)
0x1f806…1f820 73 74 61 72 74 2c 20 68 77 66 6f 72 6d 2c 20 6e 61 6d 65 66 6f 72 6d 3b 0a 7a ┆start, hwform, nameform; z┆
0x1f820…1f840 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 3b 0a 0a 62 65 67 69 6e 0a 20 20 3c 2a 20 20 ┆one z; begin <* ┆
0x1f840…1f860 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 61 6e 20 70 72 69 6e 74 20 6d 6f 73 74 20 6f 66 ┆this procedure can print most of┆
0x1f860…1f87e 20 74 68 65 20 72 65 63 6f 72 64 20 74 79 70 65 73 20 75 73 65 64 20 69 6e 20 74 65 73 74 ┆ the record types used in test┆
0x1f87e…1f884 (0x194,0x3f2)
0x1f884…1f8a0 6f 75 74 70 75 74 0a 20 20 20 20 20 20 7a 6f 6e 65 20 7a 20 63 6f 6e 74 61 69 6e 73 ┆output zone z contains┆
0x1f8a0…1f8c0 20 74 68 65 20 72 65 63 6f 72 64 2c 20 69 6e 63 6c 75 64 69 6e 67 20 68 65 61 64 20 3c 2d 20 6e ┆ the record, including head <- n┆
0x1f8c0…1f8e0 6f 74 65 20 3c 2d 0a 20 20 20 20 20 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 74 68 ┆ote <- global variables th┆
0x1f8e0…1f8fc 61 74 20 6d 75 73 74 20 62 65 20 73 65 74 20 62 65 66 6f 72 65 20 63 61 6c 6c 3a 0a ┆at must be set before call: ┆
0x1f8fc…1f902 (0x194,0x3f3)
0x1f902…1f920 20 20 20 20 20 20 20 20 68 77 73 20 20 20 20 3a 20 6c 65 6e 67 74 68 20 6f 66 20 77 68 6f ┆ hws : length of who┆
0x1f920…1f940 6c 65 20 72 65 63 6f 72 64 2e 0a 20 20 20 20 20 20 20 20 74 79 70 65 20 20 20 3a 20 74 79 70 65 ┆le record. type : type┆
0x1f940…1f960 20 66 72 6f 6d 20 68 65 61 64 2c 20 6f 72 20 3d 30 20 28 74 72 6f 75 62 6c 65 73 29 0a 20 20 20 ┆ from head, or =0 (troubles) ┆
0x1f960…1f97a 20 20 20 20 20 63 68 61 6e 67 65 64 3a 20 63 6f 72 75 6e 6f 20 63 68 61 6e 67 ┆ changed: coruno chang┆
0x1f97a…1f980 (0x194,0x3f4)
0x1f980…1f9a0 65 64 2c 20 65 78 74 72 61 20 6e 6c 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 20 20 63 61 6c 6c 20 ┆ed, extra nl output. call ┆
0x1f9a0…1f9c0 70 61 72 61 6d 65 74 65 72 73 3a 0a 20 20 20 20 20 20 20 20 74 65 78 74 73 74 61 72 74 3a 20 77 ┆parameters: textstart: w┆
0x1f9c0…1f9e0 6f 72 64 20 6e 6f 2e 20 66 72 6f 6d 20 68 65 72 65 20 61 6e 64 20 6f 6e 2c 20 74 68 65 20 72 65 ┆ord no. from here and on, the re┆
0x1f9e0…1fa00 73 74 20 6f 66 20 72 65 63 6f 72 64 20 69 73 20 74 65 78 74 2e 0a 20 20 00 00 00 00 00 00 00 00 ┆st of record is text. ┆
0x1fa00…1fa06 (253,) (0x194,0x3f5)
0x1fa06…1fa20 20 20 20 20 20 20 68 77 66 6f 72 6d 20 20 20 3a 20 61 20 62 69 74 20 66 6f 72 ┆ hwform : a bit for┆
0x1fa20…1fa40 20 65 61 63 68 20 77 6f 72 64 20 69 6e 20 72 65 63 6f 72 64 20 28 31 3c 35 20 6d 65 61 6e 73 20 ┆ each word in record (1<5 means ┆
0x1fa40…1fa60 77 6f 72 64 20 35 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 ┆word 5), if a┆
0x1fa60…1fa7e 20 62 69 74 20 3d 31 2c 20 74 68 65 20 77 6f 72 64 20 69 73 20 70 72 69 6e 74 65 64 20 61 ┆ bit =1, the word is printed a┆
0x1fa7e…1fa84 (0x194,0x3f6)
0x1fa84…1faa0 73 20 32 20 70 6f 73 69 74 69 76 65 20 68 77 73 2e 0a 20 20 20 20 20 20 20 20 6e 61 ┆s 2 positive hws. na┆
0x1faa0…1fac0 6d 65 66 6f 72 6d 20 3a 20 62 69 74 20 6d 61 73 6b 20 61 73 20 61 62 6f 76 65 2c 20 69 66 20 61 ┆meform : bit mask as above, if a┆
0x1fac0…1fae0 20 62 69 74 20 3d 31 2c 20 74 68 69 73 20 77 6f 72 64 20 61 6e 64 20 74 68 65 20 6e 65 78 74 20 ┆ bit =1, this word and the next ┆
0x1fae0…1fafc 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e ┆3 contain┆
0x1fafc…1fb02 (0x194,0x3f7)
0x1fb02…1fb20 73 20 61 20 6e 61 6d 65 20 28 69 6e 20 72 63 38 30 30 30 20 6e 61 6d 65 20 66 6f 72 6d 61 ┆s a name (in rc8000 name forma┆
0x1fb20…1fb40 74 29 2e 0a 20 20 2a 3e 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 6f 73 2c 20 66 69 72 73 74 66 2c ┆t). *> integer pos, firstf,┆
0x1fb40…1fb60 20 20 66 2c 20 69 2c 20 6b 2c 20 6c 2c 20 6e 70 6f 73 2c 20 63 68 3b 0a 20 20 69 6e 74 65 67 65 ┆ f, i, k, l, npos, ch; intege┆
0x1fb60…1fb7a 72 20 66 69 65 6c 64 20 69 6e 74 2c 20 6e 61 6d 65 3b 0a 0a 20 20 69 66 20 74 ┆r field int, name; if t┆
0x1fb7a…1fb80 (0x194,0x3f8)
0x1fb80…1fba0 65 78 74 73 74 61 72 74 3d 30 20 74 68 65 6e 20 74 65 78 74 73 74 61 72 74 3a 3d 20 68 77 73 3b ┆extstart=0 then textstart:= hws;┆
0x1fba0…1fbc0 20 3c 2a 20 6e 6f 20 74 65 78 74 2a 3e 0a 20 20 70 6f 73 3a 3d 20 31 3b 20 3c 2a 20 6e 65 78 74 ┆ <* no text*> pos:= 1; <* next┆
0x1fbc0…1fbe0 20 70 6f 73 20 66 6f 72 20 61 20 66 69 65 6c 64 20 28 61 20 77 6f 72 64 29 2e 20 6d 61 78 20 31 ┆ pos for a field (a word). max 1┆
0x1fbe0…1fc00 30 20 66 69 65 6c 64 73 20 69 6e 20 6f 6e 65 20 70 72 69 6e 74 20 6c 69 00 00 00 00 00 00 00 00 ┆0 fields in one print li ┆
0x1fc00…1fc06 (254,) (0x194,0x3f9)
0x1fc06…1fc20 6e 65 2a 3e 0a 20 20 66 69 72 73 74 66 3a 3d 20 69 66 20 74 79 70 65 3d 30 3c ┆ne*> firstf:= if type=0<┆
0x1fc20…1fc40 2a 74 72 6f 75 62 6c 65 73 2a 3e 20 74 68 65 6e 20 32 20 65 6c 73 65 20 38 3b 0a 0a 20 20 77 72 ┆*troubles*> then 2 else 8; wr┆
0x1fc40…1fc60 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 69 66 20 63 68 61 6e 67 65 64 20 74 68 65 6e 20 32 20 65 ┆ite(out, nl, if changed then 2 e┆
0x1fc60…1fc7e 6c 73 65 20 31 29 3b 0a 0a 20 20 69 66 20 74 79 70 65 20 3e 20 34 32 20 74 68 65 6e 20 77 ┆lse 1); if type > 42 then w┆
0x1fc7e…1fc84 (0x194,0x3fa)
0x1fc84…1fca0 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 3e 2c 20 74 79 70 65 29 0a 20 20 65 6c ┆rite(out,<<dddd>, type) el┆
0x1fca0…1fcc0 73 65 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 63 61 73 65 20 28 74 79 70 65 2b 31 29 20 ┆se write(out, case (type+1) ┆
0x1fcc0…1fce0 6f 66 20 20 28 20 3c 3a 74 72 6f 75 3a 3e 2c 0a 20 20 20 20 3c 2a 20 31 2a 3e 20 3c 3a 73 65 6e ┆of ( <:trou:>, <* 1*> <:sen┆
0x1fce0…1fcfc 64 3a 3e 2c 3c 3a 6c 6f 63 6b 3a 3e 2c 3c 3a 6f 70 63 68 3a 3e 2c 3c 3a 6f 70 65 6e ┆d:>,<:lock:>,<:opch:>,<:open┆
0x1fcfc…1fd02 (0x194,0x3fb)
0x1fd02…1fd20 3a 3e 2c 3c 3a 65 78 69 74 3a 3e 2c 0a 20 20 20 20 3c 2a 20 36 2a 3e 20 3c 3a 6d 65 73 73 ┆:>,<:exit:>, <* 6*> <:mess┆
0x1fd20…1fd40 3a 3e 2c 3c 3a 61 6e 73 77 3a 3e 2c 3c 3a 6a 64 2d 31 3a 3e 2c 3c 3a 73 74 6f 70 3a 3e 2c 3c 3a ┆:>,<:answ:>,<:jd-1:>,<:stop:>,<:┆
0x1fd40…1fd60 6f 70 20 20 3a 3e 2c 0a 20 20 20 20 3c 2a 31 31 2a 3e 20 3c 3a 20 20 31 31 3a 3e 2c 3c 3a 20 20 ┆op :>, <*11*> <: 11:>,<: ┆
0x1fd60…1fd7a 31 32 3a 3e 2c 3c 3a 6c 6f 61 64 3a 3e 2c 3c 3a 65 78 74 20 3a 3e 2c 3c 3a 6c ┆12:>,<:load:>,<:ext :>,<:l┆
0x1fd7a…1fd80 (0x194,0x3fc)
0x1fd80…1fda0 69 6e 65 3a 3e 2c 0a 20 20 20 20 3c 2a 31 36 2a 3e 20 3c 3a 20 20 31 36 3a 3e 2c 3c 3a 20 20 31 ┆ine:>, <*16*> <: 16:>,<: 1┆
0x1fda0…1fdc0 37 3a 3e 2c 3c 3a 20 20 31 38 3a 3e 2c 3c 3a 20 20 31 39 3a 3e 2c 3c 3a 20 20 32 30 3a 3e 2c 0a ┆7:>,<: 18:>,<: 19:>,<: 20:>, ┆
0x1fdc0…1fde0 20 20 20 20 3c 2a 32 31 2a 3e 20 3c 3a 20 20 32 31 3a 3e 2c 3c 3a 63 6f 64 65 3a 3e 2c 3c 3a 72 ┆ <*21*> <: 21:>,<:code:>,<:r┆
0x1fde0…1fe00 65 71 75 3a 3e 2c 3c 3a 20 20 32 34 3a 3e 2c 3c 3a 70 73 6a 31 3a 3e 2c 00 00 00 00 00 00 00 00 ┆equ:>,<: 24:>,<:psj1:>, ┆
0x1fe00…1fe06 (255,) (0x194,0x3fd)
0x1fe06…1fe20 0a 20 20 20 20 3c 2a 32 36 2a 3e 20 3c 3a 70 73 6a 32 3a 3e 2c 3c 3a 70 73 6a ┆ <*26*> <:psj2:>,<:psj┆
0x1fe20…1fe40 33 3a 3e 2c 3c 3a 70 73 6a 34 3a 3e 2c 3c 3a 20 20 32 39 3a 3e 2c 3c 3a 20 20 33 30 3a 3e 2c 0a ┆3:>,<:psj4:>,<: 29:>,<: 30:>, ┆
0x1fe40…1fe60 20 20 20 20 3c 2a 33 31 2a 3e 20 3c 3a 20 20 33 31 3a 3e 2c 3c 3a 20 20 33 32 3a 3e 2c 3c 3a 20 ┆ <*31*> <: 31:>,<: 32:>,<: ┆
0x1fe60…1fe7e 20 33 33 3a 3e 2c 3c 3a 20 20 33 34 3a 3e 2c 3c 3a 20 20 33 35 3a 3e 2c 0a 20 20 20 20 3c ┆ 33:>,<: 34:>,<: 35:>, <┆
0x1fe7e…1fe84 (0x194,0x3fe)
0x1fe84…1fea0 2a 33 36 2a 3e 20 3c 3a 20 20 33 36 3a 3e 2c 3c 3a 63 6c 20 20 3a 3e 2c 3c 3a 70 30 ┆*36*> <: 36:>,<:cl :>,<:p0┆
0x1fea0…1fec0 20 20 3a 3e 2c 3c 3a 70 31 20 20 3a 3e 2c 3c 3a 70 32 20 20 3a 3e 2c 0a 20 20 20 20 3c 2a 34 31 ┆ :>,<:p1 :>,<:p2 :>, <*41┆
0x1fec0…1fee0 2a 3e 20 3c 3a 70 33 20 20 3a 3e 2c 3c 3a 70 34 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆*> <:p3 :>,<:p4 :>, ┆
0x1fee0…1fefc 20 3c 3a 78 78 78 78 3a 3e 29 29 3b 0a 0a 20 20 69 66 20 74 79 70 65 3e 30 20 74 68 ┆ <:xxxx:>)); if type>0 th┆
0x1fefc…1ff02 (0x194,0x3ff)
0x1ff02…1ff20 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 2d 64 64 64 64 64 2e 64 64 3e 2c 20 7a 2e 77 ┆en write(out,<<-ddddd.dd>, z.w┆
0x1ff20…1ff40 32 2f 31 30 30 20 3c 2a 74 69 6d 65 2a 3e 2c 20 3c 3c 2d 64 64 64 64 64 64 64 3e 2c 20 7a 2e 77 ┆2/100 <*time*>, <<-ddddddd>, z.w┆
0x1ff40…1ff60 33 29 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e 30 31 2e 32 30 20 20 20 20 ┆3); comment chd 82.01.20 ┆
0x1ff60…1ff7a 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bossout ┆
0x1ff7a…1ff80 (0x194,0x400)
0x1ff80…1ffa0 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 34 2e 2e 2e 0a 3b 0a 0a 20 20 3c ┆boss2, testout ...4... ; <┆
0x1ffa0…1ffc0 2a 20 73 70 65 63 69 61 6c 20 66 6f 72 6d 61 74 20 66 6f 72 20 65 78 69 74 20 72 65 63 6f 72 64 ┆* special format for exit record┆
0x1ffc0…1ffe0 20 2a 3e 0a 20 20 69 66 20 74 79 70 65 3d 35 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 ┆ *> if type=5 then write(out, ┆
0x1ffe0…20000 73 70 2c 20 33 36 29 3b 0a 0a 20 20 66 6f 72 20 69 6e 74 3a 3d 20 66 69 00 00 00 00 00 00 00 00 ┆sp, 36); for int:= fi ┆
0x20000…20006 (256,) (0x194,0x401)
0x20006…20020 72 73 74 66 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 68 77 73 20 64 6f 0a 20 ┆rstf step 2 until hws do ┆
0x20020…20040 20 62 65 67 69 6e 0a 20 20 20 20 66 3a 3d 20 69 6e 74 20 73 68 69 66 74 28 2d 31 29 3b 20 3c 2a ┆ begin f:= int shift(-1); <*┆
0x20040…20060 20 77 6f 72 64 20 6e 6f 20 2a 3e 0a 20 20 20 20 69 66 20 70 6f 73 3e 31 30 20 74 68 65 6e 0a 20 ┆ word no *> if pos>10 then ┆
0x20060…2007e 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 70 6f 73 3a 3d 20 31 3b 0a 20 20 20 20 20 20 ┆ begin pos:= 1; ┆
0x2007e…20084 (0x194,0x402)
0x20084…200a0 77 72 69 74 65 28 6f 75 74 2c 6e 6c 2c 31 2c 20 73 70 2c 32 31 29 3b 0a 20 20 20 20 ┆write(out,nl,1, sp,21); ┆
0x200a0…200c0 65 6e 64 3b 0a 0a 20 20 20 20 69 66 20 68 77 66 6f 72 6d 20 73 68 69 66 74 28 2d 66 29 20 65 78 ┆end; if hwform shift(-f) ex┆
0x200c0…200e0 74 72 61 63 74 20 31 20 3d 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 20 3c 2a 20 70 72 ┆tract 1 =1 then begin <* pr┆
0x200e0…200fc 69 6e 74 20 77 6f 72 64 20 61 73 20 32 20 70 6f 73 69 74 69 76 65 20 68 77 73 20 2a ┆int word as 2 positive hws *┆
0x200fc…20102 (0x194,0x403)
0x20102…20120 3e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 3e 2c 20 7a 2e 69 ┆> write(out,<<dddd>, z.i┆
0x20120…20140 6e 74 20 73 68 69 66 74 20 28 2d 31 32 29 2c 20 3c 3c 20 64 64 64 64 3e 2c 20 7a 2e 69 6e 74 20 ┆nt shift (-12), << dddd>, z.int ┆
0x20140…20160 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 20 20 70 6f 73 3a 3d 20 70 6f 73 20 2b 20 31 ┆extract 12); pos:= pos + 1┆
0x20160…2017a 3b 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 0a 0a 0c 0a 0a 3c 2a 20 ┆; end else <* ┆
0x2017a…20180 (0x194,0x404)
0x20180…201a0 20 20 20 20 20 63 68 64 20 38 32 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 ┆ chd 82.01.20 boss┆
0x201a0…201c0 6f 75 74 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e ┆out boss2, testout .┆
0x201c0…201e0 2e 2e 35 2e 2e 2e 20 20 0a 2a 3e 0a 0a 0a 20 20 20 20 69 66 20 6e 61 6d 65 66 6f 72 6d 20 73 68 ┆..5... *> if nameform sh┆
0x201e0…20200 69 66 74 28 2d 66 29 20 65 78 74 72 61 63 74 20 31 20 3d 31 20 20 20 74 00 00 00 00 00 00 00 00 ┆ift(-f) extract 1 =1 t ┆
0x20200…20206 (257,) (0x194,0x405)
0x20206…20220 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 20 3c 2a 70 72 69 6e 74 20 6e 61 6d ┆hen begin <*print nam┆
0x20220…20240 65 20 28 3d 34 20 77 6f 72 64 73 29 2a 3e 0a 20 20 20 20 20 20 6e 70 6f 73 3a 3d 20 77 72 69 74 ┆e (=4 words)*> npos:= writ┆
0x20240…20260 65 28 6f 75 74 2c 20 73 70 2c 20 31 29 3b 0a 20 20 20 20 20 20 6c 3a 3d 20 69 6e 74 2b 36 3b 0a ┆e(out, sp, 1); l:= int+6; ┆
0x20260…2027e 20 20 20 20 20 20 69 66 20 6c 3e 68 77 73 20 74 68 65 6e 20 6c 3a 3d 20 68 77 73 3b 0a 20 ┆ if l>hws then l:= hws; ┆
0x2027e…20284 (0x194,0x406)
0x20284…202a0 20 20 20 20 20 66 6f 72 20 6e 61 6d 65 3a 3d 20 69 6e 74 20 73 74 65 70 20 32 20 75 ┆ for name:= int step 2 u┆
0x202a0…202c0 6e 74 69 6c 20 6c 20 64 6f 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 2d 31 36 2c 20 2d 38 2c ┆ntil l do for i:= -16, -8,┆
0x202c0…202e0 20 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 68 3a 3d 20 7a ┆ 0 do begin ch:= z┆
0x202e0…202fc 2e 6e 61 6d 65 20 73 68 69 66 74 20 69 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 ┆.name shift i extract 8; ┆
0x202fc…20302 (0x194,0x407)
0x20302…20320 20 20 20 20 20 69 66 20 63 68 3d 30 20 74 68 65 6e 20 6e 70 6f 73 3a 3d 20 6e 70 6f 73 20 ┆ if ch=0 then npos:= npos ┆
0x20320…20340 2b 20 77 72 69 74 65 28 6f 75 74 2c 73 70 2c 31 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆+ write(out,sp,1) else ┆
0x20340…20360 20 20 20 20 20 20 20 69 66 20 28 63 68 3e 34 37 20 61 6e 64 20 63 68 3c 35 38 29 20 6f 72 20 28 ┆ if (ch>47 and ch<58) or (┆
0x20360…2037a 63 68 3e 39 36 20 61 6e 64 20 63 68 3c 31 32 36 29 20 20 3c 2a 6c 65 67 61 6c ┆ch>96 and ch<126) <*legal┆
0x2037a…20380 (0x194,0x408)
0x20380…203a0 20 63 68 61 72 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 6e 70 6f 73 3a 3d 20 6e 70 ┆ char*> then npos:= np┆
0x203a0…203c0 6f 73 20 2b 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 63 68 2c 20 31 29 ┆os + write(out, false add ch, 1)┆
0x203c0…203e0 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 6e 70 6f 73 3a 3d 20 6e 70 6f ┆ else npos:= npo┆
0x203e0…20400 73 20 2b 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 36 30 3e 3a 3e 2c 20 00 00 00 00 00 00 00 00 ┆s + write(out,<:<60>:>, ┆
0x20400…20406 (258,) (0x194,0x409)
0x20406…20420 3c 3c 64 3e 2c 20 63 68 2c 20 3c 3a 3c 36 32 3e 3a 3e 29 3b 0a 20 20 20 20 20 ┆<<d>, ch, <:<62>:>); ┆
0x20420…20440 20 65 6e 64 20 74 77 6f 20 6c 6f 6f 70 73 3b 0a 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆ end two loops; write(out┆
0x20440…20460 2c 20 73 70 2c 20 31 38 2d 6e 70 6f 73 29 3b 0a 20 20 20 20 20 20 70 6f 73 3a 3d 20 70 6f 73 2b ┆, sp, 18-npos); pos:= pos+┆
0x20460…2047e 32 3b 0a 20 20 20 20 20 20 69 6e 74 3a 3d 20 69 6e 74 2b 36 3b 20 3c 2a 6e 6f 74 65 2a 3e ┆2; int:= int+6; <*note*>┆
0x2047e…20484 (0x194,0x40a)
0x20484…204a0 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 0a 0a 20 20 20 20 69 66 20 66 20 ┆ end else if f ┆
0x204a0…204c0 3e 3d 20 74 65 78 74 73 74 61 72 74 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 3c 2a 72 65 ┆>= textstart then begin <*re┆
0x204c0…204e0 73 74 20 6f 66 20 72 65 63 6f 72 64 20 69 73 20 74 65 78 74 2e 20 6e 75 6c 6c 2d 63 68 61 72 73 ┆st of record is text. null-chars┆
0x204e0…204fc 20 61 72 65 20 73 6b 69 70 70 65 64 20 2a 3e 0a 20 20 20 20 20 20 69 66 20 66 3d 74 ┆ are skipped *> if f=t┆
0x204fc…20502 (0x194,0x40b)
0x20502…20520 65 78 74 73 74 61 72 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 20 31 ┆extstart then write(out, sp, 1┆
0x20520…20540 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 2d 31 36 2c 20 2d 38 2c 20 30 20 64 6f 0a 20 ┆); for i:= -16, -8, 0 do ┆
0x20540…20560 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 68 3a 3d 20 7a 2e 69 6e 74 20 73 68 ┆ begin ch:= z.int sh┆
0x20560…2057a 69 66 74 20 69 20 65 78 74 72 61 63 74 20 38 3b 20 0a 20 20 20 20 20 20 20 20 ┆ift i extract 8; ┆
0x2057a…20580 (0x194,0x40c)
0x20580…205a0 69 66 20 63 68 3d 30 20 6f 72 20 63 68 3d 31 32 37 20 74 68 65 6e 20 3c 2a 6e 6f 74 68 69 6e 67 ┆if ch=0 or ch=127 then <*nothing┆
0x205a0…205c0 2a 3e 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 63 68 3c 33 32 ┆*> else if ch<32┆
0x205c0…205e0 20 6f 72 20 63 68 3e 31 32 35 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 36 30 ┆ or ch>125 then write(out, <:<60┆
0x205e0…20600 3e 3a 3e 2c 20 3c 3c 64 3e 2c 20 63 68 2c 20 3c 3a 3c 36 32 3e 3a 3e 29 00 00 00 00 00 00 00 00 ┆>:>, <<d>, ch, <:<62>:>) ┆
0x20600…20606 (259,) (0x194,0x40d)
0x20606…20620 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 6f 75 ┆ else ou┆
0x20620…20640 74 63 68 61 72 28 6f 75 74 2c 20 63 68 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 ┆tchar(out, ch); end; e┆
0x20640…20660 6e 64 0a 20 20 20 20 65 6c 73 65 0a 0a 20 20 20 20 62 65 67 69 6e 20 20 3c 2a 70 72 69 6e 74 20 ┆nd else begin <*print ┆
0x20660…2067e 77 6f 72 64 20 61 73 20 69 6e 74 65 67 65 72 2a 3e 0a 20 20 20 20 20 20 77 72 69 74 65 28 ┆word as integer*> write(┆
0x2067e…20684 (0x194,0x40e)
0x20684…206a0 6f 75 74 2c 20 3c 3c 20 2d 64 64 64 64 64 64 64 3e 2c 20 7a 2e 69 6e 74 29 3b 0a 20 ┆out, << -ddddddd>, z.int); ┆
0x206a0…206c0 20 20 20 20 20 70 6f 73 3a 3d 20 70 6f 73 2b 31 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 65 6e ┆ pos:= pos+1; end; en┆
0x206c0…206e0 64 20 66 6f 72 2d 64 6f 3b 0a 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 70 72 69 6e 74 3b 0a 0c ┆d for-do; end procedure print; ┆
0x206e0…206fc 63 6f 6d 6d 65 6e 74 20 66 62 20 31 39 38 34 2e 30 37 2e 31 38 20 20 20 20 20 20 20 ┆comment fb 1984.07.18 ┆
0x206fc…20702 (0x194,0x40f)
0x20702…20720 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c ┆ bossout boss2,┆
0x20720…20740 20 74 65 73 74 6f 75 74 20 20 2e 2e 2e 35 62 2e 2e 2e 0a 3b 0a 0a 0a 20 20 70 72 6f 63 65 64 75 ┆ testout ...5b... ; procedu┆
0x20740…20760 72 65 20 77 72 69 74 65 63 6f 72 65 20 28 7a 2c 20 66 69 72 73 74 2c 20 74 6f 70 2c 20 61 64 64 ┆re writecore (z, first, top, add┆
0x20760…2077a 72 65 73 73 2c 20 77 6f 72 64 73 6c 69 6e 65 29 3b 0a 20 20 76 61 6c 75 65 20 ┆ress, wordsline); value ┆
0x2077a…20780 (0x194,0x410)
0x20780…207a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 2c 20 74 6f 70 2c 20 61 64 ┆ first, top, ad┆
0x207a0…207c0 64 72 65 73 73 2c 20 77 6f 72 64 73 6c 69 6e 65 20 3b 0a 20 20 69 6e 74 65 67 65 72 20 20 20 20 ┆dress, wordsline ; integer ┆
0x207c0…207e0 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 2c 20 74 6f 70 2c 20 61 64 64 72 65 73 73 ┆ first, top, address┆
0x207e0…20800 2c 20 77 6f 72 64 73 6c 69 6e 65 20 3b 0a 20 20 7a 6f 6e 65 20 20 20 20 00 00 00 00 00 00 00 00 ┆, wordsline ; zone ┆
0x20800…20806 (260,) (0x194,0x411)
0x20806…20820 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ z ┆
0x20820…20840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 62 65 67 69 6e 0a 20 ┆ ; begin ┆
0x20840…20860 20 20 20 69 6e 74 65 67 65 72 20 73 74 61 72 74 5f 61 64 64 72 65 73 73 3b 0a 20 20 20 20 69 6e ┆ integer start_address; in┆
0x20860…2087e 74 65 67 65 72 20 66 69 65 6c 64 20 63 6f 6e 74 65 6e 74 73 3b 0a 20 20 20 20 73 74 61 72 ┆teger field contents; star┆
0x2087e…20884 (0x194,0x412)
0x20884…208a0 74 5f 61 64 64 72 65 73 73 3a 3d 20 66 69 72 73 74 3b 0a 20 20 20 20 77 72 69 74 65 ┆t_address:= first; write┆
0x208a0…208c0 20 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 72 ┆ (out, <:<10> (cor┆
0x208c0…208e0 65 29 3a 3e 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 20 63 6f 6e 74 65 6e 74 73 3a 3d 20 66 ┆e):>); for contents:= f┆
0x208e0…208fc 69 72 73 74 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 74 6f 70 20 64 6f 0a 20 20 20 ┆irst step 2 until top do ┆
0x208fc…20902 (0x194,0x413)
0x20902…20920 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 28 63 6f 6e 74 65 6e 74 73 2d 66 69 72 73 ┆ begin if (contents-firs┆
0x20920…20940 74 29 20 6d 6f 64 20 28 77 6f 72 64 73 6c 69 6e 65 2a 32 29 20 3d 20 30 20 74 68 65 6e 0a 20 20 ┆t) mod (wordsline*2) = 0 then ┆
0x20940…20960 20 20 20 20 77 72 69 74 65 20 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 20 20 20 20 20 20 20 20 20 20 ┆ write (out, <:<10> ┆
0x20960…2097a 20 3a 3e 2c 20 3c 3c 20 2d 64 64 64 64 64 64 64 3e 2c 20 63 6f 6e 74 65 6e 74 ┆ :>, << -ddddddd>, content┆
0x2097a…20980 (0x194,0x414)
0x20980…209a0 73 2d 66 69 72 73 74 2b 61 64 64 72 65 73 73 2c 20 3c 3a 2e 3a 3e 29 3b 0a 20 20 20 20 20 20 77 ┆s-first+address, <:.:>); w┆
0x209a0…209c0 72 69 74 65 20 28 6f 75 74 2c 20 3c 3c 20 2d 64 64 64 64 64 64 64 3e 2c 20 7a 2e 63 6f 6e 74 65 ┆rite (out, << -ddddddd>, z.conte┆
0x209c0…209e0 6e 74 73 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 70 72 6f 63 65 64 75 ┆nts); end; end; procedu┆
0x209e0…20a00 72 65 20 64 75 6d 70 63 68 61 69 6e 3b 0a 20 20 62 65 67 69 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆re dumpchain; begin ┆
0x20a00…20a06 (261,) (0x194,0x415)
0x20a06…20a20 20 20 69 6e 74 65 67 65 72 20 73 68 77 3b 0a 20 20 20 20 73 68 77 3a 3d 20 68 ┆ integer shw; shw:= h┆
0x20a20…20a40 77 73 3b 0a 20 20 20 20 68 77 73 3a 3d 20 36 3b 0a 20 20 20 20 70 72 69 6e 74 20 28 7a 2c 20 30 ┆ws; hws:= 6; print (z, 0┆
0x20a40…20a60 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 68 77 73 3a 3d 20 73 68 77 3b 0a 20 20 20 20 77 72 69 74 ┆, 0, 0); hws:= shw; writ┆
0x20a60…20a7e 65 63 6f 72 65 20 28 7a 2c 20 38 2c 20 68 77 73 2c 20 7a 2e 77 33 2c 20 34 29 3b 0a 20 20 ┆ecore (z, 8, hws, z.w3, 4); ┆
0x20a7e…20a84 (0x194,0x416)
0x20a84…20aa0 65 6e 64 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 64 75 6d 70 63 6f 72 65 3b 0a ┆end; procedure dumpcore; ┆
0x20aa0…20ac0 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 73 68 77 3b 0a 20 20 20 20 73 68 77 ┆ begin integer shw; shw┆
0x20ac0…20ae0 3a 3d 20 68 77 73 3b 0a 20 20 20 20 68 77 73 3a 3d 36 3b 0a 20 20 20 20 70 72 69 6e 74 20 28 7a ┆:= hws; hws:=6; print (z┆
0x20ae0…20afc 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 68 77 73 3a 3d 20 73 68 77 3b 0a 20 ┆, 0, 0, 0); hws:= shw; ┆
0x20afc…20b02 (0x194,0x417)
0x20b02…20b20 20 20 20 77 72 69 74 65 63 6f 72 65 20 28 7a 2c 20 38 2c 20 68 77 73 2c 20 7a 2e 77 33 2c ┆ writecore (z, 8, hws, z.w3,┆
0x20b20…20b40 20 31 30 29 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 ┆ 10); end; comment chd 82┆
0x20b40…20b60 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 ┆.01.20 bossout ┆
0x20b60…20b7a 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 36 ┆ boss2, testout ...6┆
0x20b7a…20b80 (0x194,0x418)
0x20b80…20ba0 2e 2e 2e 0a 3b 0a 0a 3c 2a 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 76 61 72 69 61 62 6c ┆... ; <* declaration of variabl┆
0x20ba0…20bc0 65 73 20 66 6f 72 20 62 6f 73 73 6f 75 74 20 2a 3e 0a 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 ┆es for bossout *> integer ┆
0x20bc0…20be0 20 20 20 20 20 20 20 62 31 2c 62 32 2c 62 33 2c 62 34 2c 62 35 2c 62 36 2c 62 37 2c 62 38 2c 62 ┆ b1,b2,b3,b4,b5,b6,b7,b8,b┆
0x20be0…20c00 39 2c 62 31 30 2c 62 31 31 2c 62 31 32 2c 62 31 33 2c 62 31 34 2c 62 31 00 00 00 00 00 00 00 00 ┆9,b10,b11,b12,b13,b14,b1 ┆
0x20c00…20c06 (262,) (0x194,0x419)
0x20c06…20c20 35 2c 62 31 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆5,b16, ┆
0x20c20…20c40 20 62 31 37 2c 62 31 38 2c 62 31 39 2c 62 32 30 2c 62 32 31 2c 62 32 32 2c 62 32 33 3b 20 20 20 ┆ b17,b18,b19,b20,b21,b22,b23; ┆
0x20c40…20c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 62 69 74 2d 76 61 72 73 2c 20 66 6f 72 20 ┆ <*bit-vars, for ┆
0x20c60…20c7e 63 61 6c 6c 20 6f 66 20 70 72 69 6e 74 2a 3e 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 ┆call of print*> integer ┆
0x20c7e…20c84 (0x194,0x41a)
0x20c84…20ca0 66 69 65 6c 64 20 77 31 2c 77 32 2c 77 33 2c 77 34 2c 77 35 2c 77 36 2c 77 37 2c 77 ┆field w1,w2,w3,w4,w5,w6,w7,w┆
0x20ca0…20cc0 38 2c 77 39 2c 77 31 30 2c 77 31 31 2c 77 31 32 2c 20 20 77 2c 77 61 3b 20 3c 2a 66 69 65 6c 64 ┆8,w9,w10,w11,w12, w,wa; <*field┆
0x20cc0…20ce0 69 6e 67 20 77 6f 72 64 73 20 6f 66 20 72 65 63 6f 72 64 2a 3e 0a 69 6e 74 65 67 65 72 20 61 72 ┆ing words of record*> integer ar┆
0x20ce0…20cfc 72 61 79 20 66 69 65 6c 64 20 69 61 66 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 ┆ray field iaf; integer ┆
0x20cfc…20d02 (0x194,0x41b)
0x20d02…20d20 20 20 20 20 20 20 20 78 31 33 2c 78 31 39 2c 78 32 33 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ x13,x19,x23; ┆
0x20d20…20d40 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 2a 77 6f 72 6b 2c 20 ┆ <*work, ┆
0x20d40…20d60 66 6f 72 20 73 70 65 63 69 66 69 63 20 72 65 63 6f 72 64 20 74 79 70 65 73 2a 3e 0a 69 6e 74 65 ┆for specific record types*> inte┆
0x20d60…20d7a 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 69 2c 6a 2c 6b 2c 6c 2c 64 2c ┆ger i,j,k,l,d,┆
0x20d7a…20d80 (0x194,0x41c)
0x20d80…20da0 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t; ┆
0x20da0…20dc0 20 20 20 20 20 3c 2a 77 6f 72 6b 2a 3e 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 ┆ <*work*> integer ┆
0x20dc0…20de0 20 20 66 69 6c 65 2c 20 6b 69 6e 64 2c 20 66 69 6c 65 73 69 7a 65 2c 20 63 79 63 6c 65 73 74 61 ┆ file, kind, filesize, cyclesta┆
0x20de0…20e00 72 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 66 69 6c 65 20 00 00 00 00 00 00 00 00 ┆rt, <*file ┆
0x20e00…20e06 (263,) (0x194,0x41d)
0x20e06…20e20 63 6f 6e 74 72 6f 6c 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆control*> ┆
0x20e20…20e40 20 20 20 20 73 6e 6f 2c 20 73 65 67 6d 63 6f 75 6e 74 2c 20 6c 61 73 74 73 2c 20 6f 6c 64 2c 20 ┆ sno, segmcount, lasts, old, ┆
0x20e40…20e60 75 73 65 64 73 65 67 73 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 ┆usedsegs; integer ty┆
0x20e60…20e7e 70 65 2c 20 63 6f 72 75 6e 6f 2c 20 68 77 73 2c 20 72 65 73 74 3b 20 20 20 20 20 20 20 20 ┆pe, coruno, hws, rest; ┆
0x20e7e…20e84 (0x194,0x41e)
0x20e84…20ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 72 65 63 6f 72 64 20 63 6f 6e 74 ┆ <*record cont┆
0x20ea0…20ec0 72 6f 6c 2a 3e 0a 62 6f 6f 6c 65 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 61 6e 67 65 ┆rol*> boolean change┆
0x20ec0…20ee0 64 3b 0a 6c 6f 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6c 64 74 69 6d 65 2c 20 ┆d; long oldtime, ┆
0x20ee0…20efc 73 74 69 6d 65 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆stime; integer s┆
0x20efc…20f02 (0x194,0x41f)
0x20f02…20f20 77 74 69 6d 65 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 20 20 20 20 20 20 69 61 28 ┆wtime; integer array ia(┆
0x20f20…20f40 31 3a 32 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1:20); ┆
0x20f40…20f60 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 77 6f 72 6b 2a 3e 0a 72 65 61 6c 20 20 20 20 61 72 72 ┆ <*work*> real arr┆
0x20f60…20f7a 61 79 20 20 20 20 20 20 20 72 61 28 31 3a 32 29 3b 0a 6c 6f 6e 67 20 20 20 20 ┆ay ra(1:2); long ┆
0x20f7a…20f80 (0x194,0x420)
0x20f80…20fa0 20 20 20 20 20 20 66 69 65 6c 64 20 6d 6f 6e 74 69 6d 65 3b 0a 6c 6f 6e 67 20 20 20 20 61 72 72 ┆ field montime; long arr┆
0x20fa0…20fc0 61 79 20 66 69 65 6c 64 20 6c 61 66 2c 20 72 74 6f 6c 3b 0a 72 65 61 6c 20 20 20 20 20 20 20 20 ┆ay field laf, rtol; real ┆
0x20fc0…20fe0 20 20 20 20 20 20 20 20 72 3b 0a 62 6f 6f 6c 65 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 6e ┆ r; boolean n┆
0x20fe0…21000 6c 2c 20 73 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆l, sp; ┆
0x21000…21006 (264,) (0x194,0x421)
0x21006…21020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 66 6f ┆ <*fo┆
0x21020…21040 72 20 77 72 69 74 65 2a 3e 0a 7a 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 28 ┆r write*> zone c(┆
0x21040…21060 31 30 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10, 1, stderror); ┆
0x21060…2107e 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 77 6f 72 6b 2c 20 66 6f 72 20 77 72 69 74 65 ┆ <*work, for write┆
0x2107e…21084 (0x194,0x422)
0x21084…210a0 2a 3e 0a 0a 3c 2a 20 69 6e 69 74 69 61 6c 69 7a 65 20 76 61 72 69 61 62 6c 65 73 20 ┆*> <* initialize variables ┆
0x210a0…210c0 2a 3e 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 70 3b 20 ┆*> begin integer procedure p; ┆
0x210c0…210e0 3c 2a 68 65 6c 70 20 70 72 6f 63 65 64 75 72 65 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 70 ┆<*help procedure*> begin p┆
0x210e0…210fc 3a 3d 20 31 20 73 68 69 66 74 20 69 3b 0a 20 20 20 20 69 3a 3d 20 69 2b 31 3b 0a 20 ┆:= 1 shift i; i:= i+1; ┆
0x210fc…21102 (0x194,0x423)
0x21102…21120 20 65 6e 64 3b 0a 0a 20 20 69 3a 3d 20 31 3b 0a 20 20 20 62 31 3a 3d 70 3b 20 62 32 3a 3d ┆ end; i:= 1; b1:=p; b2:=┆
0x21120…21140 70 3b 20 62 33 3a 3d 70 3b 20 62 34 3a 3d 70 3b 20 62 35 3a 3d 70 3b 20 62 36 3a 3d 70 3b 20 62 ┆p; b3:=p; b4:=p; b5:=p; b6:=p; b┆
0x21140…21160 37 3a 3d 70 3b 20 62 38 3a 3d 70 3b 20 62 39 3a 3d 70 3b 62 31 30 3a 3d 70 3b 0a 20 20 62 31 31 ┆7:=p; b8:=p; b9:=p;b10:=p; b11┆
0x21160…2117a 3a 3d 70 3b 62 31 32 3a 3d 70 3b 62 31 33 3a 3d 70 3b 62 31 34 3a 3d 70 3b 62 ┆:=p;b12:=p;b13:=p;b14:=p;b┆
0x2117a…21180 (0x194,0x424)
0x21180…211a0 31 35 3a 3d 70 3b 62 31 36 3a 3d 70 3b 62 31 37 3a 3d 70 3b 62 31 38 3a 3d 70 3b 62 31 39 3a 3d ┆15:=p;b16:=p;b17:=p;b18:=p;b19:=┆
0x211a0…211c0 70 3b 62 32 30 3a 3d 70 3b 0a 20 20 62 32 31 3a 3d 70 3b 62 32 32 3a 3d 70 3b 62 32 33 3a 3d 70 ┆p;b20:=p; b21:=p;b22:=p;b23:=p┆
0x211c0…211e0 3b 0a 65 6e 64 3b 0a 0a 77 31 3a 3d 20 32 3b 20 77 32 3a 3d 20 34 3b 20 77 33 3a 3d 20 36 3b 20 ┆; end; w1:= 2; w2:= 4; w3:= 6; ┆
0x211e0…21200 77 34 3a 3d 20 38 3b 20 77 35 3a 3d 20 31 30 3b 20 20 77 36 3a 3d 31 32 00 00 00 00 00 00 00 00 ┆w4:= 8; w5:= 10; w6:=12 ┆
0x21200…21206 (265,) (0x194,0x425)
0x21206…21220 3b 20 77 37 3a 3d 31 34 3b 20 77 38 3a 3d 31 36 3b 20 77 39 3a 3d 31 38 3b 20 ┆; w7:=14; w8:=16; w9:=18; ┆
0x21220…21240 77 31 30 3a 3d 32 30 3b 20 77 31 31 3a 3d 20 32 32 3b 0a 77 31 32 3a 3d 20 32 34 3b 20 20 6d 6f ┆w10:=20; w11:= 22; w12:= 24; mo┆
0x21240…21260 6e 74 69 6d 65 3a 3d 20 34 3b 0a 6e 6c 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 31 30 3b 0a 73 70 ┆ntime:= 4; nl:= false add 10; sp┆
0x21260…2127e 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 33 32 3b 0a 69 61 66 3a 3d 20 30 3b 0a 72 74 6f 6c ┆:= false add 32; iaf:= 0; rtol┆
0x2127e…21284 (0x194,0x426)
0x21284…212a0 3a 3d 20 30 3b 0a 6f 70 65 6e 28 63 2c 30 2c 3c 3a 3a 3e 2c 30 29 3b 0a 0a 0c 0a 0a ┆:= 0; open(c,0,<::>,0); ┆
0x212a0…212c0 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 ┆comment chd 82.01.20 b┆
0x212c0…212e0 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 ┆ossout boss2, testout ┆
0x212e0…212fc 20 20 2e 2e 2e 36 61 2e 2e 2e 0a 3b 0a 0a 0a 0a 0a 3c 2a 20 73 74 61 72 74 20 75 70 ┆ ...6a... ; <* start up┆
0x212fc…21302 (0x194,0x427)
0x21302…21320 20 2a 3e 0a 0a 62 6f 73 73 68 65 61 64 3b 0a 69 66 20 6b 69 6e 64 3d 34 20 74 68 65 6e 0a ┆ *> bosshead; if kind=4 then ┆
0x21320…21340 62 65 67 69 6e 0a 20 20 6d 6f 6e 69 74 6f 72 28 34 32 3c 2a 6c 6f 6f 6b 75 70 65 6e 74 72 79 2a ┆begin monitor(42<*lookupentry*┆
0x21340…21360 3e 2c 20 7a 2c 30 2c 69 61 29 3b 0a 20 20 66 69 6c 65 73 69 7a 65 3a 3d 20 75 73 65 64 73 65 67 ┆>, z,0,ia); filesize:= usedseg┆
0x21360…2137a 73 3a 3d 20 69 61 28 31 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a ┆s:= ia(1); write(out, <:┆
0x2137a…21380 (0x194,0x428)
0x21380…213a0 3c 31 30 3e 73 69 7a 65 20 6f 66 20 74 65 73 74 6f 75 74 70 75 74 20 66 69 6c 65 20 3d 3a 3e 2c ┆<10>size of testoutput file =:>,┆
0x213a0…213c0 20 66 69 6c 65 73 69 7a 65 2c 20 3c 3a 20 73 65 67 6d 65 6e 74 73 2e 3a 3e 29 3b 0a 65 6e 64 0a ┆ filesize, <: segments.:>); end ┆
0x213c0…213e0 65 6c 73 65 20 66 69 6c 65 73 69 7a 65 3a 3d 20 75 73 65 64 73 65 67 73 3a 3d 20 28 2d 31 29 20 ┆else filesize:= usedsegs:= (-1) ┆
0x213e0…21400 73 68 69 66 74 28 2d 31 29 3b 20 3c 2a 62 69 67 67 65 73 74 20 70 6f 73 00 00 00 00 00 00 00 00 ┆shift(-1); <*biggest pos ┆
0x21400…21406 (266,) (0x194,0x429)
0x21406…21420 20 69 6e 74 65 67 65 72 2a 3e 0a 0a 69 3a 3d 20 73 79 73 74 65 6d 28 34 2c 33 ┆ integer*> i:= system(4,3┆
0x21420…21440 2c 72 61 29 3b 0a 6c 61 73 74 73 3a 3d 20 69 66 20 69 3d 28 38 20 73 68 69 66 74 20 31 32 20 2b ┆,ra); lasts:= if i=(8 shift 12 +┆
0x21440…21460 34 29 20 61 6e 64 20 6b 69 6e 64 3d 34 20 74 68 65 6e 20 72 6f 75 6e 64 28 72 61 28 31 29 29 0a ┆4) and kind=4 then round(ra(1)) ┆
0x21460…2147e 20 20 20 20 20 20 20 20 65 6c 73 65 20 66 69 6c 65 73 69 7a 65 3b 0a 3c 2a 6f 6e 6c 79 20 ┆ else filesize; <*only ┆
0x2147e…21484 (0x194,0x42a)
0x21484…214a0 70 72 69 6e 74 20 6f 75 74 20 74 68 65 20 6c 61 73 74 20 27 6c 61 73 74 73 27 20 73 ┆print out the last 'lasts' s┆
0x214a0…214c0 65 67 6d 65 6e 74 73 20 6f 75 74 20 6f 66 20 27 75 73 65 64 73 65 67 73 27 20 69 6e 20 63 79 63 ┆egments out of 'usedsegs' in cyc┆
0x214c0…214e0 6c 65 20 70 61 72 74 2a 3e 0a 3c 2a 2d 75 73 65 64 73 65 67 73 20 72 65 64 75 63 65 64 20 61 66 ┆le part*> <*-usedsegs reduced af┆
0x214e0…214fc 74 65 72 20 66 69 78 65 64 20 70 61 72 74 2c 20 73 6f 20 74 68 61 74 20 65 6d 70 74 ┆ter fixed part, so that empt┆
0x214fc…21502 (0x194,0x42b)
0x21502…21520 79 20 73 65 67 6d 65 6e 74 73 20 64 6f 20 6e 6f 74 20 63 6f 75 6e 74 2a 3e 0a 0a 63 79 63 ┆y segments do not count*> cyc┆
0x21520…21540 6c 65 73 74 61 72 74 3a 3d 20 30 3b 20 3c 2a 3d 6e 6f 74 20 64 65 66 2e 20 79 65 74 2a 3e 0a 63 ┆lestart:= 0; <*=not def. yet*> c┆
0x21540…21560 6f 72 75 6e 6f 3a 3d 20 2d 31 3b 0a 73 6e 6f 3a 3d 20 2d 31 3b 20 3c 2a 73 65 67 6d 20 6e 6f 20 ┆oruno:= -1; sno:= -1; <*segm no ┆
0x21560…2157a 6f 66 20 63 75 72 72 65 6e 74 20 73 65 67 6d 2e 20 63 6f 75 6e 74 20 66 72 6f ┆of current segm. count fro┆
0x2157a…21580 (0x194,0x42c)
0x21580…215a0 6d 20 30 20 74 6f 20 28 66 69 6c 65 73 69 7a 65 2d 31 29 2a 3e 0a 78 31 33 3a 3d 20 78 31 39 3a ┆m 0 to (filesize-1)*> x13:= x19:┆
0x215a0…215c0 3d 20 30 3b 0a 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e 30 31 2e 32 30 20 20 20 20 ┆= 0; comment chd 82.01.20 ┆
0x215c0…215e0 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 ┆ bossout boss2, t┆
0x215e0…21600 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 37 2e 2e 2e 0a 3b 0a 0a 0a 3c 2a 00 00 00 00 00 00 00 00 ┆estout ...7... ; <* ┆
0x21600…21606 (267,) (0x194,0x42d)
0x21606…21620 20 72 65 61 64 20 66 69 6c 65 20 2a 3e 0a 0a 66 6f 72 20 73 65 67 6d 63 6f 75 ┆ read file *> for segmcou┆
0x21620…21640 6e 74 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 66 69 6c 65 73 69 7a 65 20 64 6f 0a ┆nt:= 1 step 1 until filesize do ┆
0x21640…21660 62 65 67 69 6e 0a 20 20 3c 2a 20 20 74 68 69 73 20 6c 6f 6f 70 20 69 73 20 65 78 65 63 75 74 65 ┆begin <* this loop is execute┆
0x21660…2167e 64 20 6f 6e 63 65 20 66 6f 72 20 65 61 63 68 20 73 65 67 6d 65 6e 74 20 6f 66 20 74 68 65 ┆d once for each segment of the┆
0x2167e…21684 (0x194,0x42e)
0x21684…216a0 20 66 69 6c 65 20 2a 3e 0a 20 20 73 6e 6f 3a 3d 20 73 6e 6f 2b 31 3b 0a 20 20 69 66 ┆ file *> sno:= sno+1; if┆
0x216a0…216c0 20 73 6e 6f 3d 66 69 6c 65 73 69 7a 65 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 73 ┆ sno=filesize then begin s┆
0x216c0…216e0 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 63 79 63 6c 65 73 74 61 72 74 29 3b 0a 20 20 20 20 ┆etposition(z,0,cyclestart); ┆
0x216e0…216fc 73 6e 6f 3a 3d 20 63 79 63 6c 65 73 74 61 72 74 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 ┆sno:= cyclestart; end; ┆
0x216fc…21702 (0x194,0x42f)
0x21702…21720 69 6e 72 65 63 36 28 7a 2c 35 31 32 29 3b 20 3c 2a 6e 65 77 20 73 65 67 6d 65 6e 74 2a 3e ┆inrec6(z,512); <*new segment*>┆
0x21720…21740 0a 20 20 69 66 20 7a 2e 6d 6f 6e 74 69 6d 65 3d 65 78 74 65 6e 64 20 30 20 74 68 65 6e 20 67 6f ┆ if z.montime=extend 0 then go┆
0x21740…21760 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 20 20 73 74 69 6d 65 3a 3d 20 7a 2e 6d 6f 6e 74 69 6d 65 ┆to nextsegm; stime:= z.montime┆
0x21760…2177a 3b 0a 20 20 73 77 74 69 6d 65 3a 3d 20 7a 2e 77 34 3b 20 3c 2a 74 69 6d 65 20 ┆; swtime:= z.w4; <*time ┆
0x2177a…21780 (0x194,0x430)
0x21780…217a0 76 61 6c 75 65 20 69 6e 20 68 65 61 64 20 6f 66 20 66 69 72 73 74 20 72 65 63 6f 72 64 20 6f 6e ┆value in head of first record on┆
0x217a0…217c0 20 73 65 67 6d 2a 3e 0a 20 20 69 66 20 63 79 63 6c 65 73 74 61 72 74 3e 30 20 3c 2a 61 66 74 65 ┆ segm*> if cyclestart>0 <*afte┆
0x217c0…217e0 72 20 74 79 70 65 32 34 20 72 65 63 6f 72 64 2a 3e 0a 20 20 61 6e 64 20 73 65 67 6d 63 6f 75 6e ┆r type24 record*> and segmcoun┆
0x217e0…21800 74 20 3c 3d 20 75 73 65 64 73 65 67 73 2d 6c 61 73 74 73 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆t <= usedsegs-lasts then ┆
0x21800…21806 (268,) (0x194,0x431)
0x21806…21820 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 0a 20 20 72 3a 3d 20 7a 2e 6d ┆ goto nextsegm; r:= z.m┆
0x21820…21840 6f 6e 74 69 6d 65 20 2f 2f 20 31 30 30 30 30 3b 20 64 3a 3d 20 73 79 73 74 69 6d 65 28 34 2c 72 ┆ontime // 10000; d:= systime(4,r┆
0x21840…21860 2c 72 29 3b 20 74 3a 3d 20 72 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 ┆,r); t:= r; write(out,<:<10><1┆
0x21860…2187e 30 3e 73 65 67 6d 3a 3e 2c 20 3c 3c 64 64 64 64 3e 2c 20 73 6e 6f 2c 0a 20 20 20 20 20 20 ┆0>segm:>, <<dddd>, sno, ┆
0x2187e…21884 (0x194,0x432)
0x21884…218a0 20 20 69 66 20 73 6e 6f 20 3d 20 30 20 74 68 65 6e 20 3c 3a 20 73 74 61 72 74 2d 75 ┆ if sno = 0 then <: start-u┆
0x218a0…218c0 70 20 74 69 6d 65 3a 3a 3e 20 65 6c 73 65 20 3c 3a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 3c 3a 20 ┆p time::> else <::>, <: ┆
0x218c0…218e0 20 20 31 39 3a 3e 2c 20 3c 3c 7a 64 3e 2c 20 64 20 2f 2f 20 31 30 30 30 30 2c 20 3c 3a 2e 3a 3e ┆ 19:>, <<zd>, d // 10000, <:.:>┆
0x218e0…218fc 2c 20 28 64 20 6d 6f 64 20 31 30 30 30 30 29 20 2f 2f 20 31 30 30 2c 0a 20 20 20 20 ┆, (d mod 10000) // 100, ┆
0x218fc…21902 (0x194,0x433)
0x21902…21920 20 20 20 20 3c 3a 2e 3a 3e 2c 20 64 20 6d 6f 64 20 31 30 30 2c 20 3c 3a 20 3a 3e 2c 20 74 ┆ <:.:>, d mod 100, <: :>, t┆
0x21920…21940 2f 2f 31 30 30 30 30 2c 20 3c 3a 2e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 28 74 2f 2f 31 30 30 29 ┆//10000, <:.:>, (t//100)┆
0x21940…21960 20 6d 6f 64 20 31 30 30 2c 20 3c 3a 2e 3a 3e 2c 20 74 20 6d 6f 64 20 31 30 30 29 3b 0a 0a 20 20 ┆ mod 100, <:.:>, t mod 100); ┆
0x21960…2197a 72 65 73 74 3a 3d 20 63 68 61 6e 67 65 72 65 63 36 28 7a 2c 34 29 3b 0a 20 20 ┆rest:= changerec6(z,4); ┆
0x2197a…21980 (0x194,0x434)
0x21980…219a0 77 68 69 6c 65 20 72 65 73 74 3e 30 20 64 6f 0a 20 20 62 65 67 69 6e 20 20 3c 2a 74 61 6b 65 20 ┆while rest>0 do begin <*take ┆
0x219a0…219c0 74 68 65 20 72 65 63 6f 72 64 73 20 6f 66 20 61 20 73 65 67 6d 65 6e 74 2a 3e 0a 20 20 20 20 72 ┆the records of a segment*> r┆
0x219c0…219e0 65 73 74 3a 3d 20 69 6e 72 65 63 36 28 7a 2c 32 29 3b 0a 20 20 20 20 69 66 20 7a 2e 77 31 3d 30 ┆est:= inrec6(z,2); if z.w1=0┆
0x219e0…21a00 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ then goto nextsegm; ┆
0x21a00…21a06 (269,) (0x194,0x435)
0x21a06…21a20 20 6c 3a 3d 20 7a 2e 77 31 20 73 68 69 66 74 28 2d 36 29 3b 20 3c 2a 74 61 69 ┆ l:= z.w1 shift(-6); <*tai┆
0x21a20…21a40 6c 20 6c 65 6e 67 74 68 2a 3e 0a 20 20 20 20 74 79 70 65 3a 3d 20 7a 2e 77 31 20 65 78 74 72 61 ┆l length*> type:= z.w1 extra┆
0x21a40…21a60 63 74 20 36 3b 0a 20 20 20 20 72 65 73 74 3a 3d 20 63 68 61 6e 67 65 72 65 63 36 28 7a 2c 30 29 ┆ct 6; rest:= changerec6(z,0)┆
0x21a60…21a7e 3b 0a 0a 20 20 20 20 69 66 20 6c 2b 36 20 3e 20 72 65 73 74 20 20 6f 72 20 72 65 73 74 3c ┆; if l+6 > rest or rest<┆
0x21a7e…21a84 (0x194,0x436)
0x21a84…21aa0 36 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 3c 2a 74 72 6f 75 62 6c 65 73 2a ┆6 then begin <*troubles*┆
0x21aa0…21ac0 3e 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 72 65 73 74 29 3b 0a 20 20 20 20 20 20 68 77 ┆> inrec6(z,rest); hw┆
0x21ac0…21ae0 73 3a 3d 20 69 66 20 72 65 73 74 20 3c 20 32 30 20 74 68 65 6e 20 72 65 73 74 20 65 6c 73 65 20 ┆s:= if rest < 20 then rest else ┆
0x21ae0…21afc 32 30 3b 0a 20 20 20 20 20 20 74 79 70 65 3a 3d 20 30 3b 0a 20 20 20 20 20 20 63 68 ┆20; type:= 0; ch┆
0x21afc…21b02 (0x194,0x437)
0x21b02…21b20 61 6e 67 65 64 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 ┆anged:= false; print(z,0┆
0x21b20…21b40 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 20 20 20 20 ┆,0,0); goto nextsegm; ┆
0x21b40…21b60 65 6e 64 3b 0a 0a 20 20 20 20 68 77 73 3a 3d 20 6c 2b 36 3b 0a 20 20 20 20 72 65 73 74 3a 3d 20 ┆end; hws:= l+6; rest:= ┆
0x21b60…21b7a 69 6e 72 65 63 36 28 7a 2c 68 77 73 29 3b 0a 20 20 20 20 69 66 20 74 79 70 65 ┆inrec6(z,hws); if type┆
0x21b7a…21b80 (0x194,0x438)
0x21b80…21ba0 3e 34 20 61 6e 64 20 74 79 70 65 3c 36 31 20 61 6e 64 20 74 79 70 65 3c 3e 34 37 20 74 68 65 6e ┆>4 and type<61 and type<>47 then┆
0x21ba0…21bc0 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 63 68 61 6e 67 65 64 3a 3d 20 63 6f 72 75 6e ┆ begin changed:= corun┆
0x21bc0…21be0 6f 20 3c 3e 20 7a 2e 77 33 3b 0a 20 20 20 20 20 20 63 6f 72 75 6e 6f 3a 3d 20 69 66 20 7a 2e 77 ┆o <> z.w3; coruno:= if z.w┆
0x21be0…21c00 33 3c 30 20 6f 72 20 7a 2e 77 33 3e 35 31 31 20 74 68 65 6e 20 30 20 65 00 00 00 00 00 00 00 00 ┆3<0 or z.w3>511 then 0 e ┆
0x21c00…21c06 (270,) (0x194,0x439)
0x21c06…21c20 6c 73 65 20 7a 2e 77 33 3b 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 ┆lse z.w3; end else┆
0x21c20…21c40 20 63 68 61 6e 67 65 64 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 69 66 20 63 68 61 6e 67 65 64 ┆ changed:= false; if changed┆
0x21c40…21c60 20 74 68 65 6e 20 78 31 39 3a 3d 20 30 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 ┆ then x19:= 0; comment chd 8┆
0x21c60…21c7e 32 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 ┆2.01.20 bossout ┆
0x21c7e…21c84 (0x194,0x43a)
0x21c84…21ca0 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 38 2e ┆ boss2, testout ...8.┆
0x21ca0…21cc0 2e 2e 0a 3b 0a 0a 0a 0a 20 20 20 20 3c 2a 73 65 74 20 70 61 72 61 6d 73 20 66 6f 72 20 6a 65 6e ┆.. ; <*set params for jen┆
0x21cc0…21ce0 73 65 6e 2d 64 65 76 69 63 65 2a 3e 0a 20 20 20 20 66 6b 69 6e 64 20 20 3a 3d 20 74 79 70 65 3b ┆sen-device*> fkind := type;┆
0x21ce0…21cfc 0a 20 20 20 20 66 74 69 6d 65 20 20 3a 3d 20 7a 2e 77 32 3b 0a 20 20 20 20 66 74 68 ┆ ftime := z.w2; fth┆
0x21cfc…21d02 (0x194,0x43b)
0x21d02…21d20 69 72 64 20 3a 3d 20 7a 2e 77 33 3b 0a 20 20 20 20 66 63 6f 72 75 6e 6f 3a 3d 20 63 6f 72 ┆ird := z.w3; fcoruno:= cor┆
0x21d20…21d40 75 6e 6f 3b 0a 0a 20 20 20 20 66 72 65 63 6f 72 64 28 30 29 3a 3d 20 68 77 73 3b 0a 20 20 20 20 ┆uno; frecord(0):= hws; ┆
0x21d40…21d60 69 66 20 66 6d 6f 76 65 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 72 20 77 3a 3d 20 32 20 73 74 ┆if fmove then for w:= 2 st┆
0x21d60…21d7a 65 70 20 32 20 75 6e 74 69 6c 20 68 77 73 20 64 6f 20 66 72 65 63 6f 72 64 2e ┆ep 2 until hws do frecord.┆
0x21d7a…21d80 (0x194,0x43c)
0x21d80…21da0 77 3a 3d 20 7a 2e 77 3b 0a 0a 20 20 20 20 69 66 20 66 70 72 69 6e 74 20 20 6f 72 20 20 74 79 70 ┆w:= z.w; if fprint or typ┆
0x21da0…21dc0 65 3d 39 20 20 6f 72 20 20 74 79 70 65 3d 31 33 20 20 6f 72 20 20 74 79 70 65 3d 32 34 20 20 74 ┆e=9 or type=13 or type=24 t┆
0x21dc0…21de0 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 20 3c 2a 70 72 69 6e 74 20 74 68 65 20 72 65 63 6f 72 ┆hen begin <*print the recor┆
0x21de0…21e00 64 2a 3e 0a 20 20 20 20 20 20 20 69 66 20 74 79 70 65 20 3e 20 36 30 20 00 00 00 00 00 00 00 00 ┆d*> if type > 60 ┆
0x21e00…21e06 (271,) (0x194,0x43d)
0x21e06…21e20 74 68 65 6e 20 64 75 6d 70 63 6f 72 65 20 0a 20 20 20 20 20 20 20 65 6c 73 65 ┆then dumpcore else┆
0x21e20…21e40 20 69 66 20 74 79 70 65 20 3e 20 35 37 20 74 68 65 6e 20 64 75 6d 70 0a 20 20 20 20 20 20 20 65 ┆ if type > 57 then dump e┆
0x21e40…21e60 6c 73 65 20 69 66 20 74 79 70 65 20 3e 20 34 37 20 74 68 65 6e 20 70 72 69 6e 74 20 28 7a 2c 20 ┆lse if type > 47 then print (z, ┆
0x21e60…21e7e 30 2c 20 30 2c 20 30 29 0a 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 63 61 73 ┆0, 0, 0) else cas┆
0x21e7e…21e84 (0x194,0x43e)
0x21e84…21ea0 65 20 74 79 70 65 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 3c 2a 20 31 ┆e type of begin <* 1┆
0x21ea0…21ec0 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 62 34 2c 30 29 3b 0a 20 20 3c 2a 20 32 2a 3e 70 72 69 6e 74 ┆*>print(z,0,b4,0); <* 2*>print┆
0x21ec0…21ee0 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 3c 2a 20 33 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 62 35 2c ┆(z,0,0,0); <* 3*>print(z,0,b5,┆
0x21ee0…21efc 30 29 3b 0a 20 20 3c 2a 20 34 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a ┆0); <* 4*>print(z,0,0,0); ┆
0x21efc…21f02 (0x194,0x43f)
0x21f02…21f20 20 20 3c 2a 20 35 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 20 62 39 2c 30 29 3b 0a 20 20 3c 2a ┆ <* 5*>print(z,0, b9,0); <*┆
0x21f20…21f40 20 36 2a 3e 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 20 62 36 2c ┆ 6*>begin print(z,0, b6,┆
0x21f40…21f60 20 30 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 7a 2e 77 36 20 73 68 69 66 74 28 2d 31 32 29 20 ┆ 0); if z.w6 shift(-12) ┆
0x21f60…21f7a 65 78 74 72 61 63 74 20 31 3d 30 20 61 6e 64 20 7a 2e 77 36 20 73 68 69 66 74 ┆extract 1=0 and z.w6 shift┆
0x21f7a…21f80 (0x194,0x440)
0x21f80…21fa0 28 2d 31 32 29 20 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 3c 2a 20 ┆(-12) >1 then begin <* ┆
0x21fa0…21fc0 69 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 61 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 20 2a ┆it looks like a parent message *┆
0x21fc0…21fe0 3e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6e 70 6f 73 3b 0a 20 20 20 20 20 20 ┆> integer npos; ┆
0x21fe0…22000 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 31 2c 20 73 70 00 00 00 00 00 00 00 00 ┆ write(out, nl, 1, sp ┆
0x22000…22006 (272,) (0x194,0x441)
0x22006…22020 2c 20 32 34 2c 20 3c 3a 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 3a 20 3a 3e ┆, 24, <:parent message: :>┆
0x22020…22040 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 3a 3d 20 7a 2e 77 36 20 73 68 69 66 74 28 2d 35 29 20 ┆); i:= z.w6 shift(-5) ┆
0x22040…22060 65 78 74 72 61 63 74 20 37 3b 20 3c 2a 20 66 6f 72 6d 61 74 20 62 69 74 73 20 2a 3e 0a 20 20 20 ┆extract 7; <* format bits *> ┆
0x22060…2207e 20 20 20 20 20 20 20 6e 70 6f 73 3a 3d 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c ┆ npos:= write(out, <<d>,┆
0x2207e…22084 (0x194,0x442)
0x22084…220a0 20 7a 2e 77 36 20 73 68 69 66 74 28 2d 31 32 29 2c 20 3c 3a 2e 3a 3e 2c 0a 20 20 20 ┆ z.w6 shift(-12), <:.:>, ┆
0x220a0…220c0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 2c 20 3c 3a 2e 3a 3e 2c 20 7a 2e 77 36 20 65 78 74 72 ┆ i, <:.:>, z.w6 extr┆
0x220c0…220e0 61 63 74 20 35 2c 20 73 70 2c 20 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆act 5, sp, 1); write(o┆
0x220e0…220fc 75 74 2c 20 73 70 2c 20 38 2d 6e 70 6f 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ut, sp, 8-npos); i┆
0x220fc…22102 (0x194,0x443)
0x22102…22120 3a 3d 20 7a 2e 77 36 20 73 68 69 66 74 20 31 32 3b 20 3c 2a 20 66 69 72 73 74 20 62 69 74 ┆:= z.w6 shift 12; <* first bit┆
0x22120…22140 20 6f 66 20 69 20 69 73 20 6e 6f 77 20 73 69 67 6e 2d 62 69 74 2a 3e 0a 20 20 20 20 20 20 20 20 ┆ of i is now sign-bit*> ┆
0x22140…22160 20 20 66 6f 72 20 77 61 3a 3d 20 31 34 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 32 36 20 64 6f ┆ for wa:= 14 step 2 until 26 do┆
0x22160…2217a 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x2217a…22180 (0x194,0x444)
0x22180…221a0 20 20 20 6a 3a 3d 20 7a 2e 77 61 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 70 6f 73 3a 3d 20 ┆ j:= z.wa; npos:= ┆
0x221a0…221c0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 20 3c 20 30 20 20 3c 2a 20 69 6e 74 65 ┆0; if i < 0 <* inte┆
0x221c0…221e0 67 65 72 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 6e 70 6f 73 3a 3d ┆ger *> then npos:=┆
0x221e0…22200 20 6e 70 6f 73 20 2b 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 20 2d 64 00 00 00 00 00 00 00 00 ┆ npos + write(out, << -d ┆
0x22200…22206 (273,) (0x194,0x445)
0x22206…22220 64 64 64 64 64 64 3e 2c 20 6a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c ┆dddddd>, j) el┆
0x22220…22240 73 65 20 69 66 20 6a 20 3d 20 30 20 20 3c 2a 20 65 6d 70 74 79 20 74 65 78 74 20 70 6f 72 74 69 ┆se if j = 0 <* empty text porti┆
0x22240…22260 6f 6e 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 6e 70 6f 73 3a 3d 20 ┆on *> then npos:= ┆
0x22260…2227e 6e 70 6f 73 20 2b 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c 20 39 29 0a 20 20 20 20 20 ┆npos + write(out, sp, 9) ┆
0x2227e…22284 (0x194,0x446)
0x22284…222a0 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 ┆ else for ┆
0x222a0…222c0 6a 3a 3d 20 2d 31 36 2c 20 2d 38 2c 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆j:= -16, -8, 0 do be┆
0x222c0…222e0 67 69 6e 20 3c 2a 74 65 78 74 20 70 6f 72 74 69 6f 6e 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆gin <*text portion*> ┆
0x222e0…222fc 20 20 20 6b 3a 3d 20 7a 2e 77 61 20 73 68 69 66 74 20 6a 20 65 78 74 72 61 63 74 20 ┆ k:= z.wa shift j extract ┆
0x222fc…22302 (0x194,0x447)
0x22302…22320 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 70 6f 73 3a 3d 20 6e 70 6f 73 0a 20 ┆8; npos:= npos ┆
0x22320…22340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 28 69 66 20 6b 3c 33 33 20 6f 72 20 6b 3e 31 ┆ + (if k<33 or k>1┆
0x22340…22360 32 35 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 72 69 ┆25 then wri┆
0x22360…2237a 74 65 28 6f 75 74 2c 20 3c 3a 3c 36 30 3e 3a 3e 2c 20 3c 3c 64 3e 2c 20 6b 2c ┆te(out, <:<60>:>, <<d>, k,┆
0x2237a…22380 (0x194,0x448)
0x22380…223a0 20 3c 3a 3c 36 32 3e 3a 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c ┆ <:<62>:>) el┆
0x223a0…223c0 73 65 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 6b 2c 20 31 29 29 3b 0a ┆se write(out, false add k, 1)); ┆
0x223c0…223e0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆ end; wri┆
0x223e0…22400 74 65 28 6f 75 74 2c 20 73 70 2c 20 39 2d 6e 70 6f 73 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆te(out, sp, 9-npos); ┆
0x22400…22406 (274,) (0x194,0x449)
0x22406…22420 20 20 20 20 20 20 20 20 20 69 3a 3d 20 69 20 73 68 69 66 74 20 31 3b 0a 20 20 ┆ i:= i shift 1; ┆
0x22420…22440 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ end; end; ┆
0x22440…22460 20 20 65 6e 64 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e 30 31 2e 32 30 20 ┆ end; comment chd 82.01.20 ┆
0x22460…2247e 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 20 62 6f 73 ┆ bossout bos┆
0x2247e…22484 (0x194,0x44a)
0x22484…224a0 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 38 61 2e 2e 2e 0a 3b 0a 0a 0a ┆s2, testout ...8a... ; ┆
0x224a0…224c0 0a 20 20 3c 2a 20 37 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 3c 2a 20 38 2a ┆ <* 7*>print(z,0,0,0); <* 8*┆
0x224c0…224e0 3e 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 3c 2a 20 39 20 20 73 74 6f 70 2d 72 65 ┆>print(z,0,0,0); <* 9 stop-re┆
0x224e0…224fc 63 6f 72 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆cord *> begin ┆
0x224fc…22502 (0x194,0x44b)
0x22502…22520 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 62 31 35 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆ print(z,0,b15,0); ┆
0x22520…22540 20 20 69 66 20 68 77 73 20 3e 3d 20 31 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆ if hws >= 16 then be┆
0x22540…22560 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 31 ┆gin write(out, nl, 1┆
0x22560…2257a 2c 20 73 70 2c 20 32 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆, sp, 21); wri┆
0x2257a…22580 (0x194,0x44c)
0x22580…225a0 74 65 61 6c 6c 28 7a 2c 20 38 2c 20 31 34 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e ┆teall(z, 8, 14, 0); en┆
0x225a0…225c0 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 3c 2a 31 30 2a 3e 70 72 69 6e 74 28 7a 2c ┆d; end; <*10*>print(z,┆
0x225c0…225e0 30 2c 20 62 35 2c 20 30 29 3b 0a 20 20 3c 2a 31 31 2a 3e 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆0, b5, 0); <*11*>begin ┆
0x225e0…22600 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ print(z,0,0,0); ┆
0x22600…22606 (275,) (0x194,0x44d)
0x22606…22620 20 20 20 20 20 69 66 20 68 77 73 3d 31 30 20 74 68 65 6e 20 77 72 69 74 65 28 ┆ if hws=10 then write(┆
0x22620…22640 6f 75 74 2c 3c 3a 20 20 69 6e 20 63 6f 72 65 20 61 3a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆out,<: in core a::>, ┆
0x22640…22660 20 20 20 20 69 66 20 7a 2e 77 34 3d 30 20 74 68 65 6e 20 30 20 65 6c 73 65 20 28 7a 2e 77 34 2f ┆ if z.w4=0 then 0 else (z.w4/┆
0x22660…2267e 2f 36 32 20 2b 31 39 38 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 20 62 ┆/62 +198), <: b┆
0x2267e…22684 (0x194,0x44e)
0x22684…226a0 3a 3a 3e 2c 20 69 66 20 7a 2e 77 35 3d 30 20 74 68 65 6e 20 30 20 65 6c 73 65 20 28 ┆::>, if z.w5=0 then 0 else (┆
0x226a0…226c0 7a 2e 77 35 2f 2f 36 32 20 2b 31 39 38 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆z.w5//62 +198)); end; ┆
0x226c0…226e0 3c 2a 31 32 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 3c 2a 31 33 2a 3e 69 66 ┆<*12*>print(z,0,0,0); <*13*>if┆
0x226e0…226fc 20 78 31 33 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ x13=0 then begin ┆
0x226fc…22702 (0x194,0x44f)
0x22702…22720 20 20 20 20 20 20 20 20 6c 61 66 3a 3d 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆ laf:= 6; wri┆
0x22720…22740 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 32 2c 20 73 70 2c 20 39 2c 20 3c 3a 69 6e 73 74 61 6c 6c 61 ┆te(out, nl, 2, sp, 9, <:installa┆
0x22740…22760 74 69 6f 6e 20 6e 61 6d 65 3a 20 3a 3e 2c 20 7a 2e 6c 61 66 2c 20 6e 6c 2c 31 29 3b 0a 20 20 20 ┆tion name: :>, z.laf, nl,1); ┆
0x22760…2277a 20 20 20 20 20 20 20 78 31 33 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆ x13:= 1; en┆
0x2277a…22780 (0x194,0x450)
0x22780…227a0 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 68 77 73 20 3d 20 36 2b 35 36 20 74 68 65 ┆d else if hws = 6+56 the┆
0x227a0…227c0 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 73 74 61 72 74 2d 75 70 20 72 65 63 6f ┆n begin <* start-up reco┆
0x227c0…227e0 72 64 2c 20 62 6f 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 68 77 73 3a 3d 20 36 2b 32 32 3b ┆rd, bos *> hws:= 6+22;┆
0x227e0…22800 0a 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 62 00 00 00 00 00 00 00 00 ┆ print(z,0,0,b ┆
0x22800…22806 (276,) (0x194,0x451)
0x22806…22820 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 68 77 73 3a 3d 20 36 2b 35 36 3b 0a ┆4); hws:= 6+56; ┆
0x22820…22840 20 20 20 20 20 20 20 20 20 20 69 61 66 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆ iaf:= 0; wri┆
0x22840…22860 74 65 28 6f 75 74 2c 20 3c 3c 2d 64 64 64 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆te(out, <<-ddddddd>, ┆
0x22860…2287e 20 6e 6c 2c 32 2c 73 70 2c 39 2c 3c 3a 66 69 72 73 74 20 6c 6f 67 69 63 61 6c 20 61 64 64 ┆ nl,2,sp,9,<:first logical add┆
0x2287e…22884 (0x194,0x452)
0x22884…228a0 72 65 73 73 20 6f 66 20 62 6f 73 73 2d 70 72 6f 63 65 73 73 3a 20 20 20 20 3a 3e 2c ┆ress of boss-process: :>,┆
0x228a0…228c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 31 35 29 2c 0a 20 20 20 20 20 20 ┆ z.iaf(15), ┆
0x228c0…228e0 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 74 6f 70 20 20 20 6c 6f 67 69 63 61 6c 20 ┆ nl,1,sp,9,<:top logical ┆
0x228e0…228fc 61 64 64 72 65 73 73 20 6f 66 20 62 6f 73 73 2d 70 72 6f 63 65 73 73 3a 20 20 20 20 ┆address of boss-process: ┆
0x228fc…22902 (0x194,0x453)
0x22902…22920 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 31 36 29 2c 0a 20 ┆:>, z.iaf(16), ┆
0x22920…22940 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 20 20 73 69 7a 65 20 6f 66 ┆ nl,1,sp,9,<: size of┆
0x22940…22960 20 62 6f 73 73 2d 70 72 6f 63 65 73 73 20 28 68 77 29 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ boss-process (hw): ┆
0x22960…2297a 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 31 ┆ :>, z.iaf(1┆
0x2297a…22980 (0x194,0x454)
0x22980…229a0 36 29 20 2d 20 7a 2e 69 61 66 28 31 35 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 ┆6) - z.iaf(15), nl,1┆
0x229a0…229c0 2c 73 70 2c 39 2c 3c 3a 66 69 72 73 74 20 6c 6f 67 69 63 61 6c 20 61 64 64 72 65 73 73 20 61 63 ┆,sp,9,<:first logical address ac┆
0x229c0…229e0 74 75 61 6c 6c 79 20 75 73 65 64 3a 20 20 20 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆tually used: :>, ┆
0x229e0…22a00 20 20 20 20 7a 2e 69 61 66 28 31 37 29 2c 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ z.iaf(17), ┆
0x22a00…22a06 (277,) (0x194,0x455)
0x22a06…22a20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 6c 61 73 74 20 20 6c 6f 67 69 63 ┆ nl,1,sp,9,<:last logic┆
0x22a20…22a40 61 6c 20 61 64 64 72 65 73 73 20 61 63 74 75 61 6c 6c 79 20 75 73 65 64 3a 20 20 20 20 20 20 3a ┆al address actually used: :┆
0x22a40…22a60 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 31 38 29 2c 0a 20 20 20 20 ┆>, z.iaf(18), ┆
0x22a60…22a7e 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 20 20 73 69 7a 65 20 6f 66 20 ┆ nl,1,sp,9,<: size of ┆
0x22a7e…22a84 (0x194,0x456)
0x22a84…22aa0 70 72 6f 63 65 73 73 20 61 63 74 75 61 6c 6c 79 20 75 73 65 64 20 28 68 77 29 3a 20 ┆process actually used (hw): ┆
0x22aa0…22ac0 20 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 7a 2e 69 61 66 28 31 38 29 ┆ :>, (z.iaf(18)┆
0x22ac0…22ae0 20 2b 20 32 29 20 2d 20 7a 2e 69 61 66 28 31 37 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e ┆ + 2) - z.iaf(17), n┆
0x22ae0…22afc 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 63 70 61 20 20 28 72 65 61 64 2d 6f 6e 6c 79 20 6c ┆l,1,sp,9,<:cpa (read-only l┆
0x22afc…22b02 (0x194,0x457)
0x22b02…22b20 69 6d 69 74 29 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3e 2c 0a 20 ┆imit): :>, ┆
0x22b20…22b40 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 31 39 29 2c 0a 20 20 20 20 20 20 20 20 ┆ z.iaf(19), ┆
0x22b40…22b60 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 62 61 73 65 20 28 61 64 64 72 65 73 73 20 64 69 ┆ nl,1,sp,9,<:base (address di┆
0x22b60…22b7a 73 70 6c 61 63 65 6d 65 6e 74 29 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆splacement): ┆
0x22b7a…22b80 (0x194,0x458)
0x22b80…22ba0 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 32 30 29 2c 0a 20 20 20 ┆:>, z.iaf(20), ┆
0x22ba0…22bc0 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 74 6f 74 61 6c 20 73 69 7a 65 20 ┆ nl,1,sp,9,<:total size ┆
0x22bc0…22be0 6f 66 20 70 72 69 6d 61 72 79 20 73 74 6f 72 61 67 65 20 28 68 77 29 3a 20 20 20 20 20 20 20 3a ┆of primary storage (hw): :┆
0x22be0…22c00 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 32 00 00 00 00 00 00 00 00 ┆>, z.iaf(2 ┆
0x22c00…22c06 (278,) (0x194,0x459)
0x22c06…22c20 31 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c ┆1), nl,1,sp,9,┆
0x22c20…22c40 3c 3a 6d 6f 6e 69 74 6f 72 20 72 65 6c 65 61 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆<:monitor release: ┆
0x22c40…22c60 20 20 20 20 20 20 20 20 20 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c ┆ :>, <<┆
0x22c60…22c7e 20 20 20 64 64 3e 2c 20 7a 2e 69 61 66 28 32 32 29 20 73 68 69 66 74 28 2d 31 32 29 20 65 ┆ dd>, z.iaf(22) shift(-12) e┆
0x22c7e…22c84 (0x194,0x45a)
0x22c84…22ca0 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e ┆xtract 12, <:.┆
0x22ca0…22cc0 3a 3e 2c 20 3c 3c 7a 64 3e 2c 20 7a 2e 69 61 66 28 32 32 29 20 65 78 74 72 61 63 74 20 31 32 2c ┆:>, <<zd>, z.iaf(22) extract 12,┆
0x22cc0…22ce0 20 3c 3a 20 20 28 61 63 74 75 61 6c 29 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c ┆ <: (actual):>, nl,┆
0x22ce0…22cfc 32 2c 73 70 2c 39 2c 3c 3a 6f 70 74 69 6f 6e 20 76 61 6c 75 65 73 3a 3a 3e 2c 0a 20 ┆2,sp,9,<:option values::>, ┆
0x22cfc…22d02 (0x194,0x45b)
0x22d02…22d20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 65 37 38 20 20 62 6f ┆ nl,1,sp,9,<:e78 bo┆
0x22d20…22d40 73 73 20 72 65 6c 65 61 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ss release: ┆
0x22d40…22d60 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 20 20 64 64 3e 2c 20 7a ┆ :>, << dd>, z┆
0x22d60…22d7a 2e 69 61 66 28 32 33 29 20 73 68 69 66 74 28 2d 31 32 29 20 65 78 74 72 61 63 ┆.iaf(23) shift(-12) extrac┆
0x22d7a…22d80 (0x194,0x45c)
0x22d80…22da0 74 20 31 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e 3a 3e 2c 20 3c 3c 7a 64 3e ┆t 12, <:.:>, <<zd>┆
0x22da0…22dc0 2c 20 7a 2e 69 61 66 28 32 33 29 20 65 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20 20 20 20 20 ┆, z.iaf(23) extract 12, ┆
0x22dc0…22de0 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 65 37 39 20 20 6d 6f 6e 69 74 6f 72 20 72 65 6c ┆ nl,1,sp,9,<:e79 monitor rel┆
0x22de0…22e00 65 61 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ease: ┆
0x22e00…22e06 (279,) (0x194,0x45d)
0x22e06…22e20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 2d 64 64 64 ┆ :>, <<-ddd┆
0x22e20…22e40 64 64 64 64 3e 2c 20 7a 2e 69 61 66 28 32 34 29 2c 20 3c 3a 20 20 28 63 6f 6d 70 61 72 65 20 77 ┆dddd>, z.iaf(24), <: (compare w┆
0x22e40…22e60 69 74 68 20 61 63 74 75 61 6c 2c 20 61 62 6f 76 65 29 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ith actual, above):>, ┆
0x22e60…22e7e 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 65 38 30 20 20 6a 6f 62 68 6f 73 74 20 63 6f 6d ┆ nl,1,sp,9,<:e80 jobhost com┆
0x22e7e…22e84 (0x194,0x45e)
0x22e84…22ea0 70 75 74 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3e ┆puter: :>┆
0x22ea0…22ec0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 69 61 66 28 32 35 29 20 3c 20 30 ┆, if z.iaf(25) < 0┆
0x22ec0…22ee0 20 74 68 65 6e 20 3c 3a 20 20 72 63 34 30 30 30 3a 3e 20 65 6c 73 65 20 3c 3a 20 20 72 63 38 30 ┆ then <: rc4000:> else <: rc80┆
0x22ee0…22efc 30 30 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c ┆00:>, nl,1,sp,9,┆
0x22efc…22f02 (0x194,0x45f)
0x22f02…22f20 3c 3a 69 34 20 20 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 72 6d 69 6e 61 6c 73 3a 20 20 20 ┆<:i4 number of terminals: ┆
0x22f20…22f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ :>, ┆
0x22f40…22f60 7a 2e 69 61 66 28 32 36 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 ┆z.iaf(26), nl,1,sp,9┆
0x22f60…22f7a 2c 3c 3a 69 32 39 20 20 6e 75 6d 62 65 72 20 6f 66 20 64 72 75 6d 20 61 6e 64 ┆,<:i29 number of drum and┆
0x22f7a…22f80 (0x194,0x460)
0x22f80…22fa0 20 64 69 73 63 20 62 73 2d 64 65 76 69 63 65 73 3a 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 ┆ disc bs-devices: :>, ┆
0x22fa0…22fc0 20 20 20 20 20 7a 2e 69 61 66 28 32 37 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 ┆ z.iaf(27), nl,1┆
0x22fc0…22fe0 2c 73 70 2c 39 2c 3c 3a 65 32 33 20 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 69 76 61 74 65 20 62 ┆,sp,9,<:e23 number of private b┆
0x22fe0…23000 73 2d 64 65 76 69 63 65 73 3a 20 20 20 20 20 20 20 20 3a 3e 2c 0a 20 20 00 00 00 00 00 00 00 00 ┆s-devices: :>, ┆
0x23000…23006 (280,) (0x194,0x461)
0x23006…23020 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 32 38 29 2c 0a 20 20 20 ┆ z.iaf(28), ┆
0x23020…23040 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 69 37 31 20 20 6e 75 6d 62 65 72 ┆ nl,1,sp,9,<:i71 number┆
0x23040…23060 20 6f 66 20 73 74 61 6e 64 61 72 64 20 70 72 69 6e 74 65 72 73 3a 20 20 20 20 20 20 20 20 20 3a ┆ of standard printers: :┆
0x23060…2307e 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 32 39 29 2c 0a 20 20 ┆>, z.iaf(29), ┆
0x2307e…23084 (0x194,0x462)
0x23084…230a0 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 69 31 39 30 20 6e ┆ nl,1,sp,9,<:i190 n┆
0x230a0…230c0 75 6d 62 65 72 20 6f 66 20 72 65 6d 6f 74 65 20 20 20 70 72 69 6e 74 65 72 73 3a 20 20 20 20 20 ┆umber of remote printers: ┆
0x230c0…230e0 20 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 28 33 30 29 2c ┆ :>, z.iaf(30),┆
0x230e0…230fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 73 70 2c 39 2c 3c 3a 69 34 35 ┆ nl,1,sp,9,<:i45┆
0x230fc…23102 (0x194,0x463)
0x23102…23120 20 20 6e 75 6d 62 65 72 20 6f 66 20 70 73 6a 6f 62 20 63 6f 72 6f 75 74 69 6e 65 73 3a 20 ┆ number of psjob coroutines: ┆
0x23120…23140 20 20 20 20 20 20 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 69 61 66 ┆ :>, z.iaf┆
0x23140…23160 28 33 31 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 20 ┆(31), nl,1); ┆
0x23160…2317a 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 70 72 69 6e 74 28 7a 2c ┆ end else print(z,┆
0x2317a…23180 (0x194,0x464)
0x23180…231a0 30 2c 62 32 32 2b 62 32 33 2c 20 62 34 29 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 ┆0,b22+b23, b4); comment chd ┆
0x231a0…231c0 38 32 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 20 ┆82.01.20 bossout ┆
0x231c0…231e0 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 39 2e 2e 2e 0a 3b 0a ┆ boss2, testout ...9... ; ┆
0x231e0…23200 0a 0a 20 20 3c 2a 31 34 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 00 00 00 00 00 00 00 00 ┆ <*14*>print(z,0,0,0) ┆
0x23200…23206 (281,) (0x194,0x465)
0x23206…23220 3b 0a 20 20 3c 2a 31 35 2a 3e 70 72 69 6e 74 28 7a 2c 34 2c 30 2c 30 29 3b 0a ┆; <*15*>print(z,4,0,0); ┆
0x23220…23240 20 20 3c 2a 20 31 36 20 62 73 63 6c 61 69 6d 73 2c 20 6f 6e 6c 79 20 62 65 66 6f 72 65 20 72 65 ┆ <* 16 bsclaims, only before re┆
0x23240…23260 6c 65 61 73 65 20 31 39 2e 30 30 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 66 20 68 77 73 20 3d 20 ┆lease 19.00 *> if hws = ┆
0x23260…2327e 31 30 2b 36 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 20 30 2c 20 62 34 2b 62 35 2b 62 36 ┆10+6 then print(z, 0, b4+b5+b6┆
0x2327e…23284 (0x194,0x466)
0x23284…232a0 2b 62 37 2b 62 38 2c 20 30 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆+b7+b8, 0) else ┆
0x232a0…232c0 20 20 20 20 69 66 20 68 77 73 20 3d 20 31 38 2b 36 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 20 ┆ if hws = 18+6 then print(z, ┆
0x232c0…232e0 30 2c 20 62 34 2b 62 35 2b 62 36 2b 62 37 2c 20 62 38 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 ┆0, b4+b5+b6+b7, b8) else┆
0x232e0…232fc 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 3c ┆ print(z,0,0,0); <┆
0x232fc…23302 (0x194,0x467)
0x23302…23320 2a 20 31 37 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 69 65 73 20 28 68 77 73 3d 36 2b 33 34 ┆* 17 catalog entries (hws=6+34┆
0x23320…23340 29 2c 20 61 6e 64 20 63 68 61 69 6e 74 61 62 6c 65 20 68 65 61 64 73 20 28 68 77 73 3d 36 2b 33 ┆), and chaintable heads (hws=6+3┆
0x23340…23360 36 29 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 66 20 68 77 73 20 3c 3e 20 36 2b 33 34 20 61 6e 64 ┆6) *> if hws <> 6+34 and┆
0x23360…2337a 20 68 77 73 20 3c 3e 20 36 2b 33 36 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c ┆ hws <> 6+36 then print(z,┆
0x2337a…23380 (0x194,0x468)
0x23380…233a0 30 2c 30 2c 30 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆0,0,0) else begi┆
0x233a0…233c0 6e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 0a 20 20 20 20 20 20 20 20 ┆n integer i; ┆
0x233c0…233e0 20 20 69 3a 3d 20 68 77 73 3b 20 20 68 77 73 3a 3d 20 36 3b 20 20 70 72 69 6e 74 28 7a 2c 30 2c ┆ i:= hws; hws:= 6; print(z,0,┆
0x233e0…23400 30 2c 30 29 3b 20 20 68 77 73 3a 3d 20 69 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆0,0); hws:= i; ┆
0x23400…23406 (282,) (0x194,0x469)
0x23406…23420 20 20 77 61 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 68 77 73 ┆ wa:= 8; if hws┆
0x23420…23440 20 3d 20 36 2b 33 34 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 65 6e 74 72 79 ┆ = 6+34 then write(out, <: entry┆
0x23440…23460 3a 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆::>) else begin ┆
0x23460…2347e 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 63 68 61 69 6e 3a 3a 3e 2c 20 7a ┆ write(out,<: chain::>, z┆
0x2347e…23484 (0x194,0x46a)
0x23484…234a0 2e 77 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 61 3a 3d 20 77 61 20 2b 20 ┆.wa); wa:= wa + ┆
0x234a0…234c0 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 ┆2; end; writ┆
0x234c0…234e0 65 28 6f 75 74 2c 20 73 70 2c 32 2c 20 7a 2e 77 61 20 73 68 69 66 74 20 28 2d 31 32 29 2c 0a 20 ┆e(out, sp,2, z.wa shift (-12), ┆
0x234e0…234fc 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e 3a 3e 2c 20 3c 3c 64 3e 2c 20 7a 2e 77 61 ┆ <:.:>, <<d>, z.wa┆
0x234fc…23502 (0x194,0x46b)
0x23502…23520 20 73 68 69 66 74 20 28 2d 33 29 20 65 78 74 72 61 63 74 20 39 2c 0a 20 20 20 20 20 20 20 ┆ shift (-3) extract 9, ┆
0x23520…23540 20 20 20 20 20 3c 3a 2e 3a 3e 2c 20 7a 2e 77 61 20 65 78 74 72 61 63 74 20 33 29 3b 0a 20 20 20 ┆ <:.:>, z.wa extract 3); ┆
0x23540…23560 20 20 20 20 20 20 20 77 61 3a 3d 20 77 61 20 2b 20 32 3b 20 20 20 77 3a 3d 20 77 61 20 2b 20 32 ┆ wa:= wa + 2; w:= wa + 2┆
0x23560…2357a 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 7a 2e 77 ┆; write(out, z.w┆
0x2357a…23580 (0x194,0x46c)
0x23580…235a0 61 2c 20 7a 2e 77 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 61 3a 3d 20 77 61 20 2b 20 34 3b 20 ┆a, z.w); wa:= wa + 4; ┆
0x235a0…235c0 20 6c 61 66 3a 3d 20 77 61 20 2d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 77 61 ┆ laf:= wa - 2; if z.wa┆
0x235c0…235e0 20 3d 20 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 7a 2e 77 61 29 0a 20 20 20 20 20 ┆ = 0 then write(out, z.wa) ┆
0x235e0…23600 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 20 73 00 00 00 00 00 00 00 00 ┆ else write(out, s ┆
0x23600…23606 (283,) (0x194,0x46d)
0x23606…23620 70 2c 31 2c 20 7a 2e 6c 61 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 61 3a ┆p,1, z.laf); wa:┆
0x23620…23640 3d 20 77 61 20 2b 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 77 61 20 3e 20 30 20 ┆= wa + 8; if z.wa > 0 ┆
0x23640…23660 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 7a 2e 77 61 29 0a 20 20 20 20 20 20 20 20 20 20 ┆then write(out, z.wa) ┆
0x23660…2367e 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 20 7a 2e 77 61 20 73 68 69 66 74 20 28 ┆ else write(out, z.wa shift (┆
0x2367e…23684 (0x194,0x46e)
0x23684…236a0 2d 31 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e ┆-12), <:.┆
0x236a0…236c0 3a 3e 2c 20 3c 3c 64 3e 2c 20 7a 2e 77 61 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 ┆:>, <<d>, z.wa extract 12); ┆
0x236c0…236e0 20 20 20 20 20 20 77 61 3a 3d 20 77 61 20 2b 20 32 3b 20 20 20 6c 61 66 3a 3d 20 77 61 20 2d 20 ┆ wa:= wa + 2; laf:= wa - ┆
0x236e0…236fc 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 77 61 20 3d 20 30 20 6f 72 20 ┆2; if z.wa = 0 or ┆
0x236fc…23702 (0x194,0x46f)
0x23702…23720 7a 2e 77 61 20 3d 20 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 7a 2e 77 61 29 ┆z.wa = 1 then write(out, z.wa)┆
0x23720…23740 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 20 73 70 2c ┆ else write(out, sp,┆
0x23740…23760 31 2c 20 7a 2e 6c 61 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 77 61 3a 3d 20 77 61 ┆1, z.laf); for wa:= wa┆
0x23760…2377a 20 2b 20 38 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 68 77 73 20 64 6f 0a 20 ┆ + 8 step 2 until hws do ┆
0x2377a…23780 (0x194,0x470)
0x23780…237a0 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 7a 2e 77 61 20 73 68 69 66 74 ┆ write(out, z.wa shift┆
0x237a0…237c0 20 28 2d 31 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e 3a 3e 2c 20 3c 3c 64 ┆ (-12), <:.:>, <<d┆
0x237c0…237e0 3e 2c 20 7a 2e 77 61 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆>, z.wa extract 12); end┆
0x237e0…23800 3b 0a 20 20 3c 2a 31 38 2a 3e 70 72 69 6e 74 28 7a 2c 30 2c 20 62 34 2b 00 00 00 00 00 00 00 00 ┆; <*18*>print(z,0, b4+ ┆
0x23800…23806 (284,) (0x194,0x471)
0x23806…23820 62 35 2b 62 38 2c 20 30 29 3b 0a 20 20 3c 2a 31 39 2a 3e 62 65 67 69 6e 0a 20 ┆b5+b8, 0); <*19*>begin ┆
0x23820…23840 20 20 20 20 20 20 20 20 20 69 3a 3d 20 30 3b 20 3c 2a 73 6b 69 70 20 65 6d 70 74 79 20 65 6e 74 ┆ i:= 0; <*skip empty ent┆
0x23840…23860 72 69 65 73 20 69 6e 20 74 61 70 65 20 74 61 62 6c 65 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 66 ┆ries in tape table*> f┆
0x23860…2387e 6f 72 20 77 3a 3d 20 38 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 68 77 73 20 64 6f 20 69 ┆or w:= 8 step 2 until hws do i┆
0x2387e…23884 (0x194,0x472)
0x23884…238a0 66 20 7a 2e 77 3c 3e 30 20 74 68 65 6e 20 69 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 ┆f z.w<>0 then i:= 1; ┆
0x238a0…238c0 20 20 20 78 31 39 3a 3d 20 78 31 39 2b 31 3b 20 3c 2a 78 31 39 3a 3d 20 30 20 77 68 65 6e 20 63 ┆ x19:= x19+1; <*x19:= 0 when c┆
0x238c0…238e0 68 61 6e 67 65 64 20 3d 20 74 72 75 65 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 69 3d 31 ┆hanged = true*> if i=1┆
0x238e0…238fc 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ then begin ┆
0x238fc…23902 (0x194,0x473)
0x23902…23920 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 20 30 2c 20 62 34 2b 62 37 2c 20 62 38 29 3b 0a ┆ print(z, 0, b4+b7, b8); ┆
0x23920…23940 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 6e 6f 3d 3a 3e 2c 20 ┆ write(out,<: no=:>, ┆
0x23940…23960 3c 3c 64 3e 2c 20 78 31 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆<<d>, x19); end; ┆
0x23960…2397a 20 20 20 65 6e 64 3b 0a 20 20 3c 2a 32 30 2a 3e 70 72 69 6e 74 28 7a 2c 20 30 ┆ end; <*20*>print(z, 0┆
0x2397a…23980 (0x194,0x474)
0x23980…239a0 2c 20 30 2c 20 62 39 29 3b 0a 20 20 3c 2a 32 31 2a 3e 70 72 69 6e 74 28 7a 2c 20 30 2c 20 30 2c ┆, 0, b9); <*21*>print(z, 0, 0,┆
0x239a0…239c0 20 62 37 2b 62 31 36 29 3b 0a 20 20 3c 2a 20 32 32 20 64 75 6d 70 65 64 20 63 6f 64 65 20 2a 3e ┆ b7+b16); <* 22 dumped code *>┆
0x239c0…239e0 0a 20 20 20 20 20 20 20 20 64 75 6d 70 3b 0a 20 20 3c 2a 20 32 33 20 72 65 71 75 65 73 74 20 6c ┆ dump; <* 23 request l┆
0x239e0…23a00 69 6e 65 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 66 20 68 77 73 3c 31 00 00 00 00 00 00 00 00 ┆ines *> if hws<1 ┆
0x23a00…23a06 (285,) (0x194,0x475)
0x23a06…23a20 30 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 0a 20 20 20 20 ┆0 then print(z,0,0,0) ┆
0x23a20…23a40 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x23a40…23a60 20 69 66 20 7a 2e 77 34 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ if z.w4=1 then begin ┆
0x23a60…23a7e 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 ┆ print(z,0,0,0); ┆
0x23a7e…23a84 (0x194,0x476)
0x23a84…23aa0 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 28 72 65 6d ┆ write(out,<: (rem┆
0x23aa0…23ac0 6f 76 65 20 72 65 71 75 65 73 74 29 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆ove request):>); end ┆
0x23ac0…23ae0 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ else begin ┆
0x23ae0…23afc 20 20 20 20 20 20 20 20 20 20 6b 3a 3d 20 7a 2e 77 35 3b 20 3c 2a 74 65 78 74 20 6c ┆ k:= z.w5; <*text l┆
0x23afc…23b02 (0x194,0x477)
0x23b02…23b20 65 6e 67 74 68 20 69 6e 20 68 77 73 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ength in hws*> if ┆
0x23b20…23b40 6b 3c 30 20 74 68 65 6e 20 6b 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 68 ┆k<0 then k:= 0; if h┆
0x23b40…23b60 77 73 3e 6b 2b 31 30 20 20 61 6e 64 20 20 7a 2e 77 34 3d 36 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ws>k+10 and z.w4=6 then ┆
0x23b60…23b7a 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 72 65 6d 6f 74 65 20 72 65 71 2e 6c ┆ begin <*remote req.l┆
0x23b7a…23b80 (0x194,0x478)
0x23b80…23ba0 69 6e 65 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 32 33 3a 3d 20 68 77 73 3b 0a 20 ┆ine*> x23:= hws; ┆
0x23ba0…23bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 68 77 73 3a 3d 20 6b 2b 31 30 3b 20 3c 2a 70 72 69 6e 74 ┆ hws:= k+10; <*print┆
0x23bc0…23be0 20 75 6e 74 69 6c 20 74 65 78 74 20 65 6e 64 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ until text end*> ┆
0x23be0…23c00 70 72 69 6e 74 28 7a 2c 20 36 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆print(z, 6, 0, 0); ┆
0x23c00…23c06 (286,) (0x194,0x479)
0x23c06…23c20 20 20 20 20 20 20 20 20 20 68 77 73 3a 3d 20 78 32 33 3b 0a 20 20 20 20 20 20 ┆ hws:= x23; ┆
0x23c20…23c40 20 20 20 20 20 20 20 20 77 3a 3d 20 68 77 73 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w:= hws-2; ┆
0x23c40…23c60 20 77 61 3a 3d 20 68 77 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆ wa:= hws; write(o┆
0x23c60…23c7e 75 74 2c 3c 3a 20 28 72 65 6d 6f 74 65 29 20 3a 3e 2c 20 7a 2e 77 2c 20 7a 2e 77 61 29 3b ┆ut,<: (remote) :>, z.w, z.wa);┆
0x23c7e…23c84 (0x194,0x47a)
0x23c84…23ca0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end ┆
0x23ca0…23cc0 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 20 36 2c 20 ┆ else print(z, 6, ┆
0x23cc0…23ce0 30 2c 20 30 29 3b 20 3c 2a 6f 74 68 65 72 20 72 65 71 2e 6c 69 6e 65 73 2a 3e 0a 20 20 20 20 20 ┆0, 0); <*other req.lines*> ┆
0x23ce0…23cfc 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0c 0a 0a 63 ┆ end; end; c┆
0x23cfc…23d02 (0x194,0x47b)
0x23d02…23d20 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 ┆omment chd 82.01.20 ┆
0x23d20…23d40 62 6f 73 73 6f 75 74 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 ┆bossout boss2, testout ┆
0x23d40…23d60 20 20 20 2e 2e 2e 31 30 2e 2e 2e 0a 3b 0a 0a 0a 20 20 3c 2a 32 34 2a 3e 62 65 67 69 6e 0a 20 20 ┆ ...10... ; <*24*>begin ┆
0x23d60…23d7a 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 ┆ print(z,0,0,0); ┆
0x23d7a…23d80 (0x194,0x47c)
0x23d80…23da0 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 2a 65 6e 64 ┆ write(out,<:<10><10>*end┆
0x23da0…23dc0 20 6f 66 20 66 69 78 65 64 20 70 61 72 74 3c 31 30 3e 3c 31 32 3e 3a 3e 29 3b 0a 0a 20 20 20 20 ┆ of fixed part<10><12>:>); ┆
0x23dc0…23de0 20 20 20 20 20 20 3c 2a 6e 6f 77 2c 20 73 63 61 6e 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 ┆ <*now, scan the rest of th┆
0x23de0…23e00 65 20 66 69 6c 65 2c 20 66 69 6e 64 20 6f 6c 64 65 73 74 20 73 65 67 6d 00 00 00 00 00 00 00 00 ┆e file, find oldest segm ┆
0x23e00…23e06 (287,) (0x194,0x47d)
0x23e06…23e20 20 61 6e 64 20 73 74 61 72 74 20 74 68 65 72 65 2a 3e 0a 20 20 20 20 20 20 20 ┆ and start there*> ┆
0x23e20…23e40 20 20 20 69 66 20 6b 69 6e 64 3d 34 20 61 6e 64 20 63 79 63 6c 65 73 74 61 72 74 3d 30 20 74 68 ┆ if kind=4 and cyclestart=0 th┆
0x23e40…23e60 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆en begin o┆
0x23e60…23e7e 6c 64 3a 3d 20 63 79 63 6c 65 73 74 61 72 74 3a 3d 20 73 6e 6f 2b 31 3b 0a 20 20 20 20 20 ┆ld:= cyclestart:= sno+1; ┆
0x23e7e…23e84 (0x194,0x47e)
0x23e84…23ea0 20 20 20 20 20 20 20 6f 6c 64 74 69 6d 65 3a 3d 20 28 65 78 74 65 6e 64 28 2d 31 29 ┆ oldtime:= (extend(-1)┆
0x23ea0…23ec0 29 20 73 68 69 66 74 28 2d 31 29 3b 20 3c 2a 62 69 67 67 65 73 74 20 70 6f 73 69 74 69 76 65 20 ┆) shift(-1); <*biggest positive ┆
0x23ec0…23ee0 6c 6f 6e 67 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 63 79 63 6c 65 ┆long*> for i:= cycle┆
0x23ee0…23efc 73 74 61 72 74 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 66 69 6c 65 73 69 7a 65 2d ┆start step 1 until filesize-┆
0x23efc…23f02 (0x194,0x47f)
0x23f02…23f20 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆1 do begin ┆
0x23f20…23f40 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ inrec6(z,512); ┆
0x23f40…23f60 20 20 20 20 69 66 20 7a 2e 6d 6f 6e 74 69 6d 65 3c 3e 20 65 78 74 65 6e 64 20 30 20 61 6e 64 20 ┆ if z.montime<> extend 0 and ┆
0x23f60…23f7a 7a 2e 6d 6f 6e 74 69 6d 65 3c 6f 6c 64 74 69 6d 65 20 74 68 65 6e 0a 20 20 20 ┆z.montime<oldtime then ┆
0x23f7a…23f80 (0x194,0x480)
0x23f80…23fa0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x23fa0…23fc0 20 6f 6c 64 74 69 6d 65 3a 3d 20 7a 2e 6d 6f 6e 74 69 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ oldtime:= z.montime; ┆
0x23fc0…23fe0 20 20 20 20 20 20 6f 6c 64 3a 3d 20 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ old:= i; end┆
0x23fe0…24000 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 6d 6f 6e 00 00 00 00 00 00 00 00 ┆; if z.mon ┆
0x24000…24006 (288,) (0x194,0x481)
0x24006…24020 74 69 6d 65 20 3d 20 65 78 74 65 6e 64 20 30 20 74 68 65 6e 20 75 73 65 64 73 ┆time = extend 0 then useds┆
0x24020…24040 65 67 73 3a 3d 20 75 73 65 64 73 65 67 73 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆egs:= usedsegs -1; e┆
0x24040…24060 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c ┆nd; setposition(z,0,┆
0x24060…2407e 6f 6c 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 6e 6f 3a 3d 20 6f 6c 64 2d 31 3b ┆old); sno:= old-1;┆
0x2407e…24084 (0x194,0x482)
0x24084…240a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a ┆ goto nextsegm; ┆
0x240a0…240c0 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ end scan; end;┆
0x240c0…240e0 0a 20 20 3c 2a 32 35 2a 3e 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a ┆ <*25*>begin print(z┆
0x240e0…240fc 2c 20 30 2c 20 62 39 2c 20 62 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 ┆, 0, b9, b4); writ┆
0x240fc…24102 (0x194,0x483)
0x24102…24120 65 28 6f 75 74 2c 20 6e 6c 2c 20 31 2c 20 73 70 2c 20 32 31 2b 39 2a 33 2c 20 3c 3a 20 73 ┆e(out, nl, 1, sp, 21+9*3, <: s┆
0x24120…24140 65 63 6f 6e 64 73 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 63 28 31 30 29 3b 20 73 ┆econds::>); sec(10); s┆
0x24140…24160 65 63 28 31 31 29 3b 20 73 65 63 63 6c 6f 63 6b 28 31 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆ec(11); secclock(12); en┆
0x24160…2417a 64 3b 0a 20 20 3c 2a 32 36 2a 3e 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆d; <*26*>begin ┆
0x2417a…24180 (0x194,0x484)
0x24180…241a0 20 70 72 69 6e 74 28 7a 2c 20 30 2c 20 62 35 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ print(z, 0, b5, 0); w┆
0x241a0…241c0 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 20 31 2c 20 73 70 2c 20 32 31 2b 39 2a 31 2c 20 3c 3a 20 ┆rite(out, nl, 1, sp, 21+9*1, <: ┆
0x241c0…241e0 73 65 63 6f 6e 64 73 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 63 28 36 29 3b 20 73 ┆seconds::>); sec(6); s┆
0x241e0…24200 65 63 28 37 29 3b 20 73 65 63 63 6c 6f 63 6b 28 38 29 3b 20 73 65 63 28 00 00 00 00 00 00 00 00 ┆ec(7); secclock(8); sec( ┆
0x24200…24206 (289,) (0x194,0x485)
0x24206…24220 39 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 3c 2a 32 37 2a 3e 70 ┆9); end; <*27*>p┆
0x24220…24240 72 69 6e 74 28 7a 2c 20 30 2c 20 62 34 2b 62 35 2b 62 36 2b 62 37 2b 62 38 2b 62 39 2b 62 31 30 ┆rint(z, 0, b4+b5+b6+b7+b8+b9+b10┆
0x24240…24260 2b 62 31 31 2c 20 30 29 3b 0a 20 20 3c 2a 32 38 2a 3e 70 72 69 6e 74 28 7a 2c 20 30 2c 20 2d 31 ┆+b11, 0); <*28*>print(z, 0, -1┆
0x24260…2427e 3c 2a 61 6c 6c 2a 3e 2c 20 30 29 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e ┆<*all*>, 0); comment chd 82.┆
0x2427e…24284 (0x194,0x486)
0x24284…242a0 30 31 2e 32 30 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 20 20 20 20 20 ┆01.20 bossout ┆
0x242a0…242c0 20 20 20 20 20 62 6f 73 73 32 2c 20 74 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 31 30 61 2e 2e 2e ┆ boss2, testout ...10a...┆
0x242c0…242e0 0a 3b 0a 20 20 3c 2a 20 32 39 20 63 61 6c 6c 20 70 61 72 61 6d 65 74 65 72 73 2c 20 6c 6f 6f 6b ┆ ; <* 29 call parameters, look┆
0x242e0…242fc 75 70 20 68 6f 73 74 20 2a 3e 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 ┆up host *> print(z,0┆
0x242fc…24302 (0x194,0x487)
0x24302…24320 2c 30 2c 30 29 3b 0a 20 20 3c 2a 20 33 30 20 72 65 74 75 72 6e 20 70 61 72 61 6d 65 74 65 ┆,0,0); <* 30 return paramete┆
0x24320…24340 72 73 2c 20 6c 6f 6f 6b 75 70 20 68 6f 73 74 20 2a 3e 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 ┆rs, lookup host *> print┆
0x24340…24360 28 7a 2c 30 2c 30 2c 30 29 3b 0a 20 20 3c 2a 20 33 31 20 63 61 6c 6c 20 70 61 72 61 6d 65 74 65 ┆(z,0,0,0); <* 31 call paramete┆
0x24360…2437a 72 73 2c 20 6c 6f 6f 6b 75 70 20 64 65 76 69 63 65 20 61 6e 64 20 6c 69 6e 6b ┆rs, lookup device and link┆
0x2437a…24380 (0x194,0x488)
0x24380…243a0 2d 75 70 20 72 65 6d 6f 74 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 66 20 68 77 73 20 3c 20 31 ┆-up remote *> if hws < 1┆
0x243a0…243c0 30 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 20 65 6c 73 65 0a 20 20 20 20 20 ┆0 then print(z,0,0,0) else ┆
0x243c0…243e0 20 20 20 69 66 20 7a 2e 77 35 20 3e 20 39 36 20 73 68 69 66 74 20 31 36 20 20 20 20 20 3c 2a 20 ┆ if z.w5 > 96 shift 16 <* ┆
0x243e0…24400 77 35 20 61 6e 64 20 6f 6e 20 63 6f 6e 74 61 69 6e 73 20 61 20 6e 61 6d 00 00 00 00 00 00 00 00 ┆w5 and on contains a nam ┆
0x24400…24406 (290,) (0x194,0x489)
0x24406…24420 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 70 72 69 6e 74 28 ┆e *> then print(┆
0x24420…24440 7a 2c 30 2c 62 31 31 2c 62 35 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 70 72 69 6e 74 28 7a ┆z,0,b11,b5) else print(z┆
0x24440…24460 2c 30 2c 62 31 31 2c 30 29 3b 20 20 20 20 3c 2a 20 74 65 6c 65 78 20 6f 72 20 72 65 6d 6f 74 65 ┆,0,b11,0); <* telex or remote┆
0x24460…2447e 20 62 79 20 64 65 66 61 75 6c 74 2d 70 72 69 6e 74 65 72 20 2a 3e 0a 20 20 3c 2a 20 33 32 ┆ by default-printer *> <* 32┆
0x2447e…24484 (0x194,0x48a)
0x24484…244a0 20 68 6f 73 74 20 6d 65 73 73 61 67 65 2c 20 6c 6f 6f 6b 75 70 20 64 65 76 69 63 65 ┆ host message, lookup device┆
0x244a0…244c0 20 61 6e 64 20 6c 69 6e 6b 2d 75 70 20 72 65 6d 6f 74 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 70 ┆ and link-up remote *> p┆
0x244c0…244e0 72 69 6e 74 28 7a 2c 30 2c 62 34 2b 62 37 2b 62 39 2c 30 29 3b 0a 20 20 3c 2a 20 33 33 20 68 6f ┆rint(z,0,b4+b7+b9,0); <* 33 ho┆
0x244e0…244fc 73 74 20 6f 75 74 70 75 74 20 64 61 74 61 2c 20 6c 6f 6f 6b 75 70 20 64 65 76 69 63 ┆st output data, lookup devic┆
0x244fc…24502 (0x194,0x48b)
0x24502…24520 65 20 61 6e 64 20 6c 69 6e 6b 2d 75 70 20 72 65 6d 6f 74 65 20 2a 3e 0a 20 20 20 20 20 20 ┆e and link-up remote *> ┆
0x24520…24540 20 20 69 66 20 68 77 73 20 3c 20 31 34 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 ┆ if hws < 14 then print(z,0,0,0┆
0x24540…24560 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 7a 2e 77 37 20 3e 20 39 36 20 73 68 69 66 ┆) else if z.w7 > 96 shif┆
0x24560…2457a 74 20 31 36 20 20 20 20 20 20 3c 2a 20 77 37 20 61 6e 64 20 6f 6e 20 63 6f 6e ┆t 16 <* w7 and on con┆
0x2457a…24580 (0x194,0x48c)
0x24580…245a0 74 61 69 6e 73 20 61 20 6e 61 6d 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 70 ┆tains a name *> then p┆
0x245a0…245c0 72 69 6e 74 28 7a 2c 30 2c 62 34 2b 62 35 2b 62 31 33 2c 62 37 29 0a 20 20 20 20 20 20 20 20 65 ┆rint(z,0,b4+b5+b13,b7) e┆
0x245c0…245e0 6c 73 65 20 70 72 69 6e 74 28 7a 2c 30 2c 62 34 2b 62 35 2b 62 31 33 2c 30 29 3b 20 3c 2a 20 70 ┆lse print(z,0,b4+b5+b13,0); <* p┆
0x245e0…24600 72 6f 62 61 62 6c 79 20 74 65 6c 65 78 20 2a 3e 0a 20 20 3c 2a 20 33 34 00 00 00 00 00 00 00 00 ┆robably telex *> <* 34 ┆
0x24600…24606 (291,) (0x194,0x48d)
0x24606…24620 20 68 6f 73 74 20 61 6e 73 77 65 72 2c 20 61 6c 6c 20 68 6f 73 74 20 6f 70 65 ┆ host answer, all host ope┆
0x24620…24640 72 61 74 69 6f 6e 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 28 7a 2c 30 2c 62 34 2b ┆rations *> print(z,0,b4+┆
0x24640…24660 62 37 2b 62 39 2c 30 29 3b 0a 20 20 3c 2a 20 33 35 20 68 6f 73 74 20 69 6e 70 75 74 20 64 61 74 ┆b7+b9,0); <* 35 host input dat┆
0x24660…2467e 61 2c 20 61 6c 6c 20 68 6f 73 74 20 6f 70 65 72 61 74 69 6f 6e 73 20 28 69 66 20 61 6e 73 ┆a, all host operations (if ans┆
0x2467e…24684 (0x194,0x48e)
0x24684…246a0 77 65 72 20 72 65 73 75 6c 74 20 3d 20 31 29 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 ┆wer result = 1) *> i┆
0x246a0…246c0 66 20 68 77 73 20 3c 20 31 34 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 20 65 ┆f hws < 14 then print(z,0,0,0) e┆
0x246c0…246e0 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 7a 2e 77 37 20 3e 20 39 36 20 73 68 69 66 74 20 31 ┆lse if z.w7 > 96 shift 1┆
0x246e0…246fc 36 20 20 20 20 20 20 20 20 3c 2a 20 77 37 20 61 6e 64 20 6f 6e 20 63 6f 6e 74 61 69 ┆6 <* w7 and on contai┆
0x246fc…24702 (0x194,0x48f)
0x24702…24720 6e 73 20 61 20 6e 61 6d 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 70 72 ┆ns a name *> then pr┆
0x24720…24740 69 6e 74 28 7a 2c 30 2c 62 34 2b 62 35 2b 62 31 33 2c 62 37 29 0a 20 20 20 20 20 20 20 20 65 6c ┆int(z,0,b4+b5+b13,b7) el┆
0x24740…24760 73 65 20 70 72 69 6e 74 28 7a 2c 30 2c 62 34 2b 62 35 2b 62 31 33 2c 30 29 3b 20 3c 2a 20 70 72 ┆se print(z,0,b4+b5+b13,0); <* pr┆
0x24760…2477a 6f 62 61 62 6c 79 20 74 65 6c 65 78 20 2a 3e 0a 20 20 3c 2a 20 33 36 20 72 65 ┆obably telex *> <* 36 re┆
0x2477a…24780 (0x194,0x490)
0x24780…247a0 74 75 72 6e 20 70 61 72 61 6d 65 74 65 72 73 2c 20 6c 6f 6f 6b 75 70 20 64 65 76 69 63 65 20 61 ┆turn parameters, lookup device a┆
0x247a0…247c0 6e 64 20 6c 69 6e 6b 2d 75 70 20 72 65 6d 6f 74 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 66 20 ┆nd link-up remote *> if ┆
0x247c0…247e0 68 77 73 20 3c 20 31 30 20 74 68 65 6e 20 70 72 69 6e 74 28 7a 2c 30 2c 30 2c 30 29 20 65 6c 73 ┆hws < 10 then print(z,0,0,0) els┆
0x247e0…24800 65 0a 20 20 20 20 20 20 20 20 69 66 20 7a 2e 77 35 20 3e 20 39 36 20 73 00 00 00 00 00 00 00 00 ┆e if z.w5 > 96 s ┆
0x24800…24806 (292,) (0x194,0x491)
0x24806…24820 68 69 66 74 20 31 35 20 20 20 20 20 20 3c 2a 20 77 35 20 61 6e 64 20 6f 6e 20 ┆hift 15 <* w5 and on ┆
0x24820…24840 63 6f 6e 74 61 69 6e 73 20 61 20 6e 61 6d 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 ┆contains a name *> the┆
0x24840…24860 6e 20 70 72 69 6e 74 28 7a 2c 30 2c 62 31 31 2c 62 35 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 ┆n print(z,0,b11,b5) else┆
0x24860…2487e 20 70 72 69 6e 74 28 7a 2c 30 2c 62 31 31 2c 30 29 3b 20 20 20 20 20 3c 2a 20 74 65 6c 65 ┆ print(z,0,b11,0); <* tele┆
0x2487e…24884 (0x194,0x492)
0x24884…248a0 78 20 6f 72 20 72 65 6d 6f 74 65 20 62 79 20 64 65 66 61 75 6c 74 2d 70 72 69 6e 74 ┆x or remote by default-print┆
0x248a0…248c0 65 72 20 2a 3e 0a 20 20 3c 2a 20 33 37 20 63 65 6e 74 72 61 6c 20 76 61 72 69 61 62 6c 65 73 20 ┆er *> <* 37 central variables ┆
0x248c0…248e0 2a 3e 0a 20 20 20 20 20 20 20 20 64 75 6d 70 3b 0a 20 20 3c 2a 20 33 38 20 63 75 72 72 65 6e 74 ┆*> dump; <* 38 current┆
0x248e0…248fc 20 70 61 67 65 30 20 2a 3e 0a 20 20 20 20 20 20 20 20 64 75 6d 70 3b 0a 20 20 3c 2a ┆ page0 *> dump; <*┆
0x248fc…24902 (0x194,0x493)
0x24902…24920 20 33 39 20 63 75 72 72 65 6e 74 20 70 61 67 65 31 20 2a 3e 0a 20 20 20 20 20 20 20 20 64 ┆ 39 current page1 *> d┆
0x24920…24940 75 6d 70 3b 0a 20 20 3c 2a 20 34 30 20 63 75 72 72 65 6e 74 20 70 61 67 65 32 20 2a 3e 0a 20 20 ┆ump; <* 40 current page2 *> ┆
0x24940…24960 20 20 20 20 20 20 64 75 6d 70 3b 0a 20 20 3c 2a 20 34 31 20 63 75 72 72 65 6e 74 20 70 61 67 65 ┆ dump; <* 41 current page┆
0x24960…2497a 33 20 2a 3e 0a 20 20 20 20 20 20 20 20 64 75 6d 70 3b 0a 20 20 3c 2a 20 34 32 ┆3 *> dump; <* 42┆
0x2497a…24980 (0x194,0x494)
0x24980…249a0 20 63 75 72 72 65 6e 74 20 70 61 67 65 34 20 2a 3e 0a 20 20 20 20 20 20 20 20 64 75 6d 70 3b 0a ┆ current page4 *> dump; ┆
0x249a0…249c0 20 20 3c 2a 20 34 33 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 61 67 65 20 63 6c 61 69 6d 73 2c 20 ┆ <* 43 backing storage claims, ┆
0x249c0…249e0 62 6f 73 73 2c 20 66 72 6f 6d 20 6d 6f 6e 69 74 6f 72 20 74 61 62 6c 65 20 2a 3e 0a 20 20 20 20 ┆boss, from monitor table *> ┆
0x249e0…24a00 20 20 20 20 62 73 63 6c 61 69 6d 73 28 20 3c 2a 20 62 6f 73 73 20 3d 20 00 00 00 00 00 00 00 00 ┆ bsclaims( <* boss = ┆
0x24a00…24a06 (293,) (0x194,0x495)
0x24a06…24a20 2a 3e 20 74 72 75 65 29 3b 0a 20 20 3c 2a 20 34 34 20 62 73 63 6c 61 69 6d 73 ┆*> true); <* 44 bsclaims┆
0x24a20…24a40 2c 20 62 6f 73 73 2c 20 64 69 66 66 65 72 65 6e 63 65 20 62 65 74 77 65 65 6e 20 6e 65 77 20 61 ┆, boss, difference between new a┆
0x24a40…24a60 6e 64 20 6f 6c 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 62 73 63 6c 61 69 6d 73 28 74 72 75 65 29 ┆nd old *> bsclaims(true)┆
0x24a60…24a7e 3b 0a 20 20 3c 2a 20 34 35 20 62 73 63 6c 61 69 6d 73 2c 20 75 73 65 72 2c 20 62 65 66 6f ┆; <* 45 bsclaims, user, befo┆
0x24a7e…24a84 (0x194,0x496)
0x24a84…24aa0 72 65 20 61 64 6a 75 73 74 20 6b 65 79 33 20 2a 3e 0a 20 20 20 20 20 20 20 20 62 73 ┆re adjust key3 *> bs┆
0x24aa0…24ac0 63 6c 61 69 6d 73 28 66 61 6c 73 65 29 3b 0a 20 20 3c 2a 20 34 36 20 62 73 63 6c 61 69 6d 73 2c ┆claims(false); <* 46 bsclaims,┆
0x24ac0…24ae0 20 75 73 65 72 2c 20 61 66 74 65 72 20 61 64 6a 75 73 74 20 6b 65 79 33 20 2a 3e 0a 20 20 20 20 ┆ user, after adjust key3 *> ┆
0x24ae0…24afc 20 20 20 20 62 73 63 6c 61 69 6d 73 28 66 61 6c 73 65 29 3b 0a 20 20 3c 2a 20 34 37 ┆ bsclaims(false); <* 47┆
0x24afc…24b02 (0x194,0x497)
0x24b02…24b20 20 63 6f 72 65 20 70 69 63 74 75 72 65 20 64 75 6d 70 20 2a 3e 0a 20 20 20 20 20 20 20 20 ┆ core picture dump *> ┆
0x24b20…24b40 64 75 6d 70 63 68 61 69 6e 3b 0a 0a 20 20 20 20 20 20 65 6e 64 20 63 61 73 65 20 74 79 70 65 3b ┆dumpchain; end case type;┆
0x24b40…24b60 0a 0a 20 20 20 20 65 6e 64 20 70 72 69 6e 74 69 6e 67 3b 0a 20 20 65 6e 64 20 74 61 6b 65 20 72 ┆ end printing; end take r┆
0x24b60…24b7a 65 63 6f 72 64 73 20 6f 66 20 61 20 73 65 67 6d 65 6e 74 3b 0a 0a 6e 65 78 74 ┆ecords of a segment; next┆
0x24b7a…24b80 (0x194,0x498)
0x24b80…24ba0 73 65 67 6d 3a 0a 65 6e 64 20 74 61 6b 65 20 61 6c 6c 20 73 65 67 6d 65 6e 74 20 6f 66 20 66 69 ┆segm: end take all segment of fi┆
0x24ba0…24bc0 6c 65 3b 0a 0a 73 74 6f 70 3a 0a 65 6e 64 3b 20 65 6e 64 3b 0a 0c 20 20 20 20 20 20 20 20 20 20 ┆le; stop: end; end; ┆
0x24bc0…24be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24be0…24c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x24c00…24c06 (294,) (0x194,0x499)
0x24c06…24c20 20 0a 3b 20 62 74 6a 20 33 30 2e 30 38 2e 37 34 20 20 20 20 20 20 20 20 20 20 ┆ ; btj 30.08.74 ┆
0x24c20…24c40 20 20 20 20 20 20 20 6c 61 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 32 2c 20 74 ┆ last boss2, t┆
0x24c40…24c60 65 73 74 6f 75 74 20 20 20 20 2e 2e 2e 31 31 2e 2e 2e 0a 3b 20 63 61 6c 6c 20 6f 66 20 6c 61 73 ┆estout ...11... ; call of las┆
0x24c60…24c7e 74 3a 0a 3b 20 6c 61 73 74 20 64 6f 63 6e 61 6d 65 2e 66 69 6c 65 5f 6f 72 5f 62 73 2e 62 ┆t: ; last docname.file_or_bs.b┆
0x24c7e…24c84 (0x194,0x49a)
0x24c84…24ca0 6c 6f 63 6b 73 5f 61 74 5f 65 6e 64 20 20 66 69 72 73 74 5f 63 6f 72 75 6e 6f 2e 6c ┆locks_at_end first_coruno.l┆
0x24ca0…24cc0 61 73 74 5f 63 6f 72 75 6e 6f 20 3c 61 6e 79 20 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 73 ┆ast_coruno <any legal parameters┆
0x24cc0…24ce0 3e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 6f 70 ┆> ; **op┆
0x24ce0…24cfc 74 69 6f 6e 61 6c 2a 2a 2a 20 20 2a 2a 6f 70 74 69 6f 6e 61 6c 2a 2a 20 2a 2a 6f 70 ┆tional*** **optional** **op┆
0x24cfc…24d02 (0x194,0x49b)
0x24d02…24d20 74 69 6f 6e 61 6c 2a 0a 0a 28 6c 61 73 74 3d 73 65 74 20 33 30 20 31 0a 6c 61 73 74 3d 61 ┆tional* (last=set 30 1 last=a┆
0x24d20…24d40 6c 67 6f 6c 0a 73 63 6f 70 65 20 75 73 65 72 20 6c 61 73 74 0a 29 0a 62 65 67 69 6e 20 69 6e 74 ┆lgol scope user last ) begin int┆
0x24d40…24d60 65 67 65 72 20 6b 2c 63 2c 66 2c 6a 2c 69 2c 6c 3b 20 61 72 72 61 79 20 72 61 28 31 3a 32 29 3b ┆eger k,c,f,j,i,l; array ra(1:2);┆
0x24d60…24d7a 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 72 65 63 6f 72 ┆ integer array recor┆
0x24d7a…24d80 (0x194,0x49c)
0x24d80…24da0 64 28 30 3a 30 29 3b 0a 20 20 20 20 20 66 3a 3d 30 3b 20 6c 3a 3d 31 30 30 30 3b 20 69 3a 3d 20 ┆d(0:0); f:=0; l:=1000; i:= ┆
0x24da0…24dc0 69 66 20 73 79 73 74 65 6d 28 34 2c 20 33 2c 20 72 61 29 20 73 68 69 66 74 28 2d 31 32 29 20 3d ┆if system(4, 3, ra) shift(-12) =┆
0x24dc0…24de0 20 38 20 74 68 65 6e 20 34 20 65 6c 73 65 20 33 3b 0a 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 ┆ 8 then 4 else 3; comment i┆
0x24de0…24e00 66 20 74 68 65 20 6e 65 78 74 20 74 77 6f 20 70 61 72 61 6d 65 74 65 72 00 00 00 00 00 00 00 00 ┆f the next two parameter ┆
0x24e00…24e06 (295,) (0x194,0x49d)
0x24e06…24e20 73 20 61 72 65 20 69 6e 74 65 67 65 72 73 2c 20 73 65 70 61 72 61 74 65 64 20 ┆s are integers, separated ┆
0x24e20…24e40 62 79 20 61 20 70 6f 69 6e 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 75 73 ┆by a point, then us┆
0x24e40…24e60 65 20 74 68 65 6d 20 61 73 20 6c 6f 77 65 72 20 61 6e 64 20 75 70 70 65 72 20 6c 69 6d 69 74 20 ┆e them as lower and upper limit ┆
0x24e60…24e7e 6f 66 20 63 6f 72 75 74 69 6e 65 20 6e 75 6d 62 65 72 73 3b 0a 20 20 20 20 20 63 20 3a 3d ┆of corutine numbers; c :=┆
0x24e7e…24e84 (0x194,0x49e)
0x24e84…24ea0 20 73 79 73 74 65 6d 28 34 2c 69 2b 32 2c 72 61 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 ┆ system(4,i+2,ra); comment ┆
0x24ea0…24ec0 73 65 70 61 72 61 74 6f 72 20 61 66 74 65 72 20 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 6a 20 3a ┆separator after limits; j :┆
0x24ec0…24ee0 3d 20 73 79 73 74 65 6d 28 34 2c 69 20 20 2c 72 61 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 70 ┆= system(4,i ,ra); comment sep┆
0x24ee0…24efc 61 72 61 74 6f 72 20 62 65 66 6f 72 65 20 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 6b ┆arator before limits; k┆
0x24efc…24f02 (0x194,0x49f)
0x24f02…24f20 20 3a 3d 20 73 79 73 74 65 6d 28 34 2c 69 2b 31 2c 72 61 29 3b 20 20 63 6f 6d 6d 65 6e 74 ┆ := system(4,i+1,ra); comment┆
0x24f20…24f40 20 73 65 70 61 72 61 74 6f 72 20 62 65 74 77 65 65 6e 20 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 ┆ separator between limits; ┆
0x24f40…24f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 76 74 20 72 ┆ comment evt r┆
0x24f60…24f7a 61 28 31 29 20 3d 6c 61 73 74 5f 63 6f 72 6f 6e 75 3b 0a 20 20 20 20 20 69 66 ┆a(1) =last_coronu; if┆
0x24f7a…24f80 (0x194,0x4a0)
0x24f80…24fa0 20 6a 20 73 68 69 66 74 20 28 2d 31 32 29 20 3d 20 38 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 ┆ j shift (-12) = 8 then write(ou┆
0x24fa0…24fc0 74 2c 20 3c 3a 2a 2a 2a 6c 61 73 74 20 70 61 72 61 6d 3c 31 30 3e 3a 3e 29 0a 20 20 20 20 20 65 ┆t, <:***last param<10>:>) e┆
0x24fc0…24fe0 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 69 66 20 6a 20 65 78 74 72 61 63 74 20 31 32 ┆lse begin if j extract 12┆
0x24fe0…25000 20 3d 20 34 20 61 6e 64 20 6b 20 65 78 74 72 61 63 74 20 31 32 20 3d 20 00 00 00 00 00 00 00 00 ┆ = 4 and k extract 12 = ┆
0x25000…25006 (296,) (0x194,0x4a1)
0x25006…25020 34 0a 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 6b 20 73 68 69 66 74 20 28 2d ┆4 and k shift (-┆
0x25020…25040 31 32 29 20 3d 20 38 0a 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 28 63 20 3d 20 30 20 20 6f 72 ┆12) = 8 and (c = 0 or┆
0x25040…25060 20 20 63 20 73 68 69 66 74 20 28 2d 31 32 29 20 3d 20 34 20 29 20 74 68 65 6e 0a 20 20 20 20 20 ┆ c shift (-12) = 4 ) then ┆
0x25060…2507e 20 20 20 20 20 20 20 62 65 67 69 6e 20 6c 3a 3d 72 61 28 31 29 3b 20 73 79 73 74 65 6d 28 ┆ begin l:=ra(1); system(┆
0x2507e…25084 (0x194,0x4a2)
0x25084…250a0 34 2c 69 2c 72 61 29 3b 20 66 3a 3d 72 61 28 31 29 20 65 6e 64 3b 0a 20 20 20 20 20 ┆4,i,ra); f:=ra(1) end; ┆
0x250a0…250c0 20 20 20 20 20 62 6f 73 73 6f 75 74 28 6b 2c 30 2c 63 2c 30 2c 72 65 63 6f 72 64 2c 66 61 6c 73 ┆ bossout(k,0,c,0,record,fals┆
0x250c0…250e0 65 2c 28 66 3c 3d 63 20 61 6e 64 20 63 3c 3d 6c 29 20 6f 72 20 6b 3d 31 34 0a 20 20 20 20 20 20 ┆e,(f<=c and c<=l) or k=14 ┆
0x250e0…250fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x250fc…25102 (0x194,0x4a3)
0x25102…25120 20 20 20 20 20 20 6f 72 20 6b 3d 32 32 20 6f 72 20 28 33 37 3c 3d 6b 20 61 6e 64 20 6b 3c ┆ or k=22 or (37<=k and k<┆
0x25120…25140 3d 34 32 29 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6a 65 6e 73 65 ┆=42) ); comment jense┆
0x25140…25160 6e 73 20 64 65 76 69 63 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 70 61 72 61 6d 65 ┆ns device: the parame┆
0x25160…2517a 74 65 72 73 20 6b 20 61 6e 64 20 63 20 61 72 65 20 73 65 74 20 62 79 20 74 68 ┆ters k and c are set by th┆
0x2517a…25180 (0x194,0x4a4)
0x25180…251a0 65 20 70 72 6f 63 65 64 75 72 65 20 61 6e 64 20 74 68 65 20 6c 61 73 74 0a 20 20 20 20 20 20 20 ┆e procedure and the last ┆
0x251a0…251c0 20 20 20 20 70 61 72 61 6d 65 74 65 72 20 65 76 61 6c 75 61 74 65 64 20 77 69 74 68 20 74 68 65 ┆ parameter evaluated with the┆
0x251c0…251e0 73 65 20 76 61 6c 75 65 73 3b 0a 20 20 20 20 20 20 20 65 6e 64 0a 65 6e 64 0a 0c 19 00 69 6d 69 ┆se values; end end imi┆
0x251e0…25200 74 73 3b 0a 20 20 20 20 20 6a 20 3a 3d 20 73 79 73 74 65 6d 28 34 2c 69 00 00 00 00 00 00 00 00 ┆ts; j := system(4,i ┆
0x25200…25206 (297,) (0x194,0x4a5)
0x25206…25220 20 20 2c 72 61 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 70 61 72 61 74 6f 72 ┆ ,ra); comment separator┆
0x25220…25240 20 62 65 66 6f 72 65 20 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 6b 20 3a 3d 20 73 79 73 74 65 6d ┆ before limits; k := system┆
0x25240…25260 28 34 2c 69 2b 31 2c 72 61 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 70 61 72 61 74 6f 72 20 62 ┆(4,i+1,ra); comment separator b┆
0x25260…2527e 65 74 77 65 65 6e 20 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆etween limits; ┆
0x2527e…25284 (0x194,0x4a6)
0x25284…252a0 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 76 74 20 72 61 28 31 29 20 3d ┆ comment evt ra(1) =┆
0x252a0…252c0 6c 61 73 74 5f 63 6f 72 6f 6e 75 3b 0a 20 20 20 20 20 69 66 20 6a 20 73 68 69 66 74 20 28 2d 31 ┆last_coronu; if j shift (-1┆
0x252c0…252e0 32 29 20 3d 20 38 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 2a 2a 2a 6c 61 73 74 ┆2) = 8 then write(out, <:***last┆
0x252e0…252fc 20 70 61 72 61 6d 3c 31 30 3e 3a 3e 29 0a 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 ┆ param<10>:>) else begi┆
0x252fc…25302 (0x194,0x4a7)
0x25302…25320 6e 0a 20 20 20 20 20 20 20 69 66 20 6a 20 65 78 74 72 61 63 74 20 31 32 20 3d 20 34 20 61 ┆n if j extract 12 = 4 a┆
0x25320…25340 6e 64 20 6b 20 65 78 74 72 61 63 74 20 31 32 20 3d 20 34 0a 20 20 20 20 20 20 20 20 20 20 61 6e ┆nd k extract 12 = 4 an┆
0x25340…25360 64 20 6b 20 73 68 69 66 74 20 28 2d 31 32 29 20 3d 20 38 0a 20 20 20 20 20 20 20 20 20 20 61 6e ┆d k shift (-12) = 8 an┆
0x25360…2537a 64 20 28 63 20 3d 20 30 20 20 6f 72 20 20 63 20 73 68 69 66 74 20 28 2d 31 32 ┆d (c = 0 or c shift (-12┆
0x2537a…25380 (0x194,0x4a8)
0x25380…253a0 29 20 3d 20 34 20 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 6c ┆) = 4 ) then begin l┆
0x253a0…253c0 3a 3d 72 61 28 31 29 3b 20 73 79 73 74 65 6d 28 34 2c 69 2c 72 61 29 3b 20 66 3a 3d 72 61 28 31 ┆:=ra(1); system(4,i,ra); f:=ra(1┆
0x253c0…253e0 29 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 6f 73 73 6f 75 74 28 6b 2c 30 2c 63 2c 30 ┆) end; bossout(k,0,c,0┆
0x253e0…25400 2c 72 65 63 6f 72 64 2c 66 61 6c 73 65 2c 28 66 3c 3d 63 20 61 6e 64 20 00 00 00 00 00 00 00 00 ┆,record,false,(f<=c and ┆
0x25400…25406 (298,) (0x194,0x4a9)
0x25406…25420 63 3c 3d 6c 29 20 6f 72 20 6b 3d 31 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆c<=l) or k=14 ┆
0x25420…25440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 20 6b ┆ or k┆
0x25440…25460 3d 32 32 20 6f 72 20 28 33 37 3c 3d 6b 20 61 6e 64 20 6b 3c 3d 34 32 29 20 29 3b 0a 20 20 20 20 ┆=22 or (37<=k and k<=42) ); ┆
0x25460…2547e 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6a 65 6e 73 65 6e 73 20 64 65 76 69 63 65 3a ┆ comment jensens device:┆
0x2547e…25484 (0x194,0x4aa)
0x25484…254a0 0a 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 6b ┆ the parameters k┆
0x254a0…254c0 20 61 6e 64 20 63 20 61 72 65 20 73 65 74 20 62 79 20 74 68 2c 72 65 63 6f 72 64 2c 66 61 6c 73 ┆ and c are set by th,record,fals┆
0x254c0…254e0 65 2c 28 66 3c 3d 63 20 61 6e 64 20 63 3c 3d 6c 29 20 6f 72 20 6b 3d 31 34 0a 20 20 20 20 20 20 ┆e,(f<=c and c<=l) or k=14 ┆
0x254e0…254fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x254fc…25502 (0x1f8,0x4ab)
0x25502…25520 3b 20 20 20 20 20 20 20 20 73 6d 20 37 35 2e 30 37 2e 32 35 20 20 20 20 20 20 20 20 20 20 ┆; sm 75.07.25 ┆
0x25520…25540 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 20 20 20 70 61 67 65 20 2e 2e 2e 31 2e 2e ┆ textxref page ...1..┆
0x25540…25560 2e 0a 3b 0a 28 65 78 74 78 72 65 66 3d 73 65 74 20 31 20 31 0a 73 63 6f 70 65 20 75 73 65 72 20 ┆. ; (extxref=set 1 1 scope user ┆
0x25560…2557a 65 78 74 78 72 65 66 0a 65 78 74 78 72 65 66 3d 61 6c 67 6f 6c 0a 29 0a 0a 62 ┆extxref extxref=algol ) b┆
0x2557a…25580 (0x1f8,0x4ac)
0x25580…255a0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 65 78 61 6d 69 6e 61 ┆egin comment program for examina┆
0x255a0…255c0 74 69 6f 6e 20 6f 66 20 65 78 74 65 72 6e 61 6c 73 20 69 6e 20 62 6f 73 73 66 69 6c 65 73 3b 0a ┆tion of externals in bossfiles; ┆
0x255c0…255e0 6d 65 73 73 61 67 65 20 65 78 74 78 72 65 66 20 76 65 72 73 69 6f 6e 69 64 3a 20 20 20 20 38 35 ┆message extxref versionid: 85┆
0x255e0…25600 20 30 35 20 32 30 2c 20 31 30 3b 0a 3c 2a 20 70 72 6f 67 72 61 6d 20 63 00 00 00 00 00 00 00 00 ┆ 05 20, 10; <* program c ┆
0x25600…25606 (299,) (0x1f8,0x4ad)
0x25606…25620 61 6c 6c 3a 20 65 78 74 78 72 65 66 20 6c 69 73 74 2e 3c 73 65 6c 65 63 74 3e ┆all: extxref list.<select>┆
0x25620…25640 0a 20 20 20 20 3c 73 65 6c 65 63 74 3e 3d 20 27 61 6c 6c 27 3a 20 61 6c 6c 20 6c 69 73 74 73 20 ┆ <select>= 'all': all lists ┆
0x25640…25660 70 72 69 6e 74 65 64 0a 20 20 20 20 3c 73 65 6c 65 63 74 3e 3d 20 61 62 63 64 20 3a 20 61 20 6e ┆printed <select>= abcd : a n┆
0x25660…2567e 75 6d 62 65 72 2c 20 77 68 65 72 65 20 61 2c 62 2c 63 20 61 6e 64 20 64 20 61 72 65 20 64 ┆umber, where a,b,c and d are d┆
0x2567e…25684 (0x1f8,0x4ae)
0x25684…256a0 69 67 69 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 3d 31 20 20 3a 20 ┆igits. a=1 : ┆
0x256a0…256c0 64 65 66 69 6e 69 74 69 6f 6e 20 6c 69 73 74 20 70 72 69 6e 74 65 64 2e 0a 20 20 20 20 20 20 20 ┆definition list printed. ┆
0x256c0…256e0 20 20 20 20 20 20 20 62 3d 31 20 20 3a 20 72 65 66 65 72 65 6e 63 65 20 6c 69 73 74 20 70 72 69 ┆ b=1 : reference list pri┆
0x256e0…256fc 6e 74 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 3d 31 20 20 3a 20 37 ┆nted. c=1 : 7┆
0x256fc…25702 (0x1f8,0x4af)
0x25702…25720 20 73 6d 61 6c 6c 20 6c 69 73 74 73 20 70 72 69 6e 74 65 64 2e 0a 20 20 20 20 20 20 20 20 ┆ small lists printed. ┆
0x25720…25740 20 20 20 20 20 20 64 3d 31 20 20 3a 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 20 6c 69 73 ┆ d=1 : cross reference lis┆
0x25740…25760 74 20 70 72 69 6e 74 65 64 2e 0a 20 20 20 20 64 65 66 61 75 6c 74 20 28 6e 6f 20 3c 73 65 6c 65 ┆t printed. default (no <sele┆
0x25760…2577a 63 74 3e 29 20 69 73 20 3c 73 65 6c 65 63 74 3e 3a 3d 20 31 31 3b 0a 2a 3e 0a ┆ct>) is <select>:= 11; *> ┆
0x2577a…25780 (0x1f8,0x4b0)
0x25780…257a0 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 69 67 6e 5f 69 6e 74 28 62 79 74 65 29 ┆integer procedure sign_int(byte)┆
0x257a0…257c0 3b 0a 76 61 6c 75 65 20 62 79 74 65 3b 0a 62 6f 6f 6c 65 61 6e 20 62 79 74 65 3b 0a 62 65 67 69 ┆; value byte; boolean byte; begi┆
0x257c0…257e0 6e 0a 63 6f 6d 6d 65 6e 74 20 65 78 74 65 6e 64 73 20 61 20 31 32 2d 62 69 74 20 73 69 67 6e 65 ┆n comment extends a 12-bit signe┆
0x257e0…25800 64 20 69 6e 74 65 67 65 72 20 74 6f 20 74 68 65 20 63 6f 72 72 65 73 70 00 00 00 00 00 00 00 00 ┆d integer to the corresp ┆
0x25800…25806 (300,) (0x1f8,0x4b1)
0x25806…25820 6f 6e 64 69 6e 67 0a 20 20 20 20 32 34 2d 62 69 74 20 73 69 67 6e 65 64 20 69 ┆onding 24-bit signed i┆
0x25820…25840 6e 74 65 67 65 72 3b 0a 73 69 67 6e 5f 69 6e 74 3a 3d 28 69 66 20 62 79 74 65 20 73 68 69 66 74 ┆nteger; sign_int:=(if byte shift┆
0x25840…25860 20 28 2d 31 31 29 20 74 68 65 6e 20 28 2d 31 29 20 73 68 69 66 74 20 31 32 20 65 6c 73 65 20 30 ┆ (-11) then (-1) shift 12 else 0┆
0x25860…2587e 29 0a 20 20 20 20 20 20 20 20 20 20 20 61 64 64 20 20 28 62 79 74 65 20 65 78 74 72 61 63 ┆) add (byte extrac┆
0x2587e…25884 (0x1f8,0x4b2)
0x25884…258a0 74 20 31 32 29 3b 0a 65 6e 64 20 73 69 67 6e 5f 69 6e 74 3b 0a 0a 69 6e 74 65 67 65 ┆t 12); end sign_int; intege┆
0x258a0…258c0 72 20 65 78 74 75 73 65 64 2c 20 72 65 73 65 72 76 61 74 69 6f 6e 73 2c 20 65 78 74 64 65 66 69 ┆r extused, reservations, extdefi┆
0x258c0…258e0 6e 65 64 2c 20 6f 66 66 73 65 74 2c 69 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 76 65 72 ┆ned, offset,i; integer array ver┆
0x258e0…258fc 73 69 6f 6e 69 64 28 31 3a 32 2c 31 3a 39 29 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 ┆sionid(1:2,1:9); integer arr┆
0x258fc…25902 (0x1f8,0x4b3)
0x25902…25920 61 79 20 66 69 6c 65 63 6f 6e 76 28 30 3a 31 34 29 3b 20 3c 2a 20 66 69 6c 65 63 6f 6e 76 ┆ay fileconv(0:14); <* fileconv┆
0x25920…25940 20 69 73 20 75 73 65 64 20 74 6f 20 63 6f 6e 76 65 72 74 20 66 69 6c 65 6e 6f 27 73 20 0a 20 20 ┆ is used to convert fileno's ┆
0x25940…25960 20 20 20 20 20 20 20 20 20 20 66 72 6f 6d 20 6e 6f 2e 20 75 73 65 64 20 69 6e 20 63 61 6c 6c 20 ┆ from no. used in call ┆
0x25960…2597a 6f 66 20 70 72 6f 63 20 77 72 69 74 65 6c 69 73 74 0a 20 20 20 20 20 20 20 20 ┆of proc writelist ┆
0x2597a…25980 (0x1f8,0x4b4)
0x25980…259a0 20 20 20 20 20 74 6f 20 20 6e 6f 2e 20 75 73 65 64 20 69 6e 20 63 61 6c 6c 20 6f 66 20 70 72 6f ┆ to no. used in call of pro┆
0x259a0…259c0 63 20 66 69 6c 65 6e 61 6d 65 20 2a 3e 0a 69 6e 74 65 67 65 72 20 74 6f 74 72 65 66 73 2c 20 74 ┆c filename *> integer totrefs, t┆
0x259c0…259e0 6f 74 64 65 66 73 2c 20 6c 69 73 74 73 65 6c 65 63 74 3b 0a 72 65 61 6c 20 61 72 72 61 79 20 72 ┆otdefs, listselect; real array r┆
0x259e0…25a00 61 28 31 3a 32 29 3b 0a 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 77 31 00 00 00 00 00 00 00 00 ┆a(1:2); integer field w1 ┆
0x25a00…25a06 (301,) (0x1f8,0x4b5)
0x25a06…25a20 2c 77 32 2c 77 33 3b 0a 62 6f 6f 6c 65 61 6e 20 66 69 65 6c 64 20 68 77 31 2c ┆,w2,w3; boolean field hw1,┆
0x25a20…25a40 68 77 32 3b 0a 72 65 61 6c 20 20 20 20 66 69 65 6c 64 20 72 35 3b 0a 0a 77 31 3a 3d 32 3b 20 77 ┆hw2; real field r5; w1:=2; w┆
0x25a40…25a60 32 3a 3d 34 3b 20 77 33 3a 3d 36 3b 0a 68 77 31 3a 3d 31 3b 20 68 77 32 3a 3d 32 3b 0a 72 35 3a ┆2:=4; w3:=6; hw1:=1; hw2:=2; r5:┆
0x25a60…25a7e 3d 31 30 3b 0a 66 6f 72 20 69 3a 3d 20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 34 ┆=10; for i:= 0 step 1 until 14┆
0x25a7e…25a84 (0x1f8,0x4b6)
0x25a84…25aa0 20 64 6f 20 66 69 6c 65 63 6f 6e 76 28 69 29 3a 3d 20 63 61 73 65 20 28 69 2b 31 29 ┆ do fileconv(i):= case (i+1)┆
0x25aa0…25ac0 20 6f 66 0a 20 20 20 20 28 31 30 2c 31 30 2c 31 30 2c 31 30 2c 31 31 2c 32 2c 31 2c 33 2c 34 2c ┆ of (10,10,10,10,11,2,1,3,4,┆
0x25ac0…25ae0 35 2c 36 2c 37 2c 38 2c 39 2c 31 32 29 3b 0a 69 66 20 73 79 73 74 65 6d 28 34 2c 32 2c 72 61 29 ┆5,6,7,8,9,12); if system(4,2,ra)┆
0x25ae0…25afc 3d 30 20 74 68 65 6e 20 6c 69 73 74 73 65 6c 65 63 74 3a 3d 20 31 31 0a 65 6c 73 65 ┆=0 then listselect:= 11 else┆
0x25afc…25b02 (0x1f8,0x4b7)
0x25b02…25b20 0a 69 66 20 72 61 28 31 29 3d 72 65 61 6c 3c 3a 61 6c 6c 3a 3e 20 74 68 65 6e 20 6c 69 73 ┆ if ra(1)=real<:all:> then lis┆
0x25b20…25b40 74 73 65 6c 65 63 74 3a 3d 20 31 31 31 31 31 31 0a 65 6c 73 65 20 6c 69 73 74 73 65 6c 65 63 74 ┆tselect:= 111111 else listselect┆
0x25b40…25b60 3a 3d 20 72 61 28 31 29 3b 0a 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 37 35 2e 30 37 2e 32 ┆:= ra(1); comment sm 75.07.2┆
0x25b60…25b7a 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 ┆5 textxre┆
0x25b7a…25b80 (0x1f8,0x4b8)
0x25b80…25ba0 66 20 20 20 20 20 70 61 67 65 20 2e 2e 2e 32 2e 2e 2e 0a 3b 0a 0a 62 65 67 69 6e 0a 7a 6f 6e 65 ┆f page ...2... ; begin zone┆
0x25ba0…25bc0 20 69 6e 66 69 6c 65 28 34 30 2a 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 7a 6f 6e 65 ┆ infile(40*128,1,stderror); zone┆
0x25bc0…25be0 20 72 65 73 5f 6f 75 74 2c 64 65 66 5f 6f 75 74 2c 6f 75 74 5f 6c 69 73 74 28 31 32 38 2c 31 2c ┆ res_out,def_out,out_list(128,1,┆
0x25be0…25c00 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 20 64 00 00 00 00 00 00 00 00 ┆stderror); comment d ┆
0x25c00…25c06 (302,) (0x1f8,0x4b9)
0x25c06…25c20 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 7a 6f 6e 65 73 3a 0a 20 ┆escription of the zones: ┆
0x25c20…25c40 20 20 20 20 20 69 6e 66 69 6c 65 20 20 20 20 20 75 73 65 64 20 66 6f 72 20 69 6e 70 75 74 20 6f ┆ infile used for input o┆
0x25c40…25c60 66 20 74 68 65 20 39 20 62 69 6e 61 72 79 20 62 6f 73 73 2d 66 69 6c 65 73 0a 20 20 20 20 20 20 ┆f the 9 binary boss-files ┆
0x25c60…25c7e 72 65 73 5f 6f 75 74 20 20 20 20 75 73 65 64 20 66 6f 72 20 6f 75 74 70 75 74 20 6f 66 20 ┆res_out used for output of ┆
0x25c7e…25c84 (0x1f8,0x4ba)
0x25c84…25ca0 74 68 65 20 72 65 73 65 72 76 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 ┆the reservations ┆
0x25ca0…25cc0 20 20 20 20 20 20 20 20 20 20 28 73 65 65 3a 20 70 72 6f 63 20 6f 75 74 5f 72 65 73 29 0a 20 20 ┆ (see: proc out_res) ┆
0x25cc0…25ce0 20 20 20 20 6f 75 74 5f 6c 69 73 74 20 20 20 75 73 65 64 20 66 6f 72 20 6f 75 74 70 75 74 20 6f ┆ out_list used for output o┆
0x25ce0…25cfc 66 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 ┆f the list of references to ┆
0x25cfc…25d02 (0x1f8,0x4bb)
0x25d02…25d20 65 78 74 65 72 6e 61 6c 73 0a 20 20 20 20 3b 0a 69 6e 74 65 67 65 72 20 66 69 6c 65 5f 6e ┆externals ; integer file_n┆
0x25d20…25d40 6f 2c 72 65 6c 5f 65 78 74 2c 62 79 74 65 5f 6e 6f 2c 61 62 73 5f 65 78 74 2c 65 78 74 65 72 6e ┆o,rel_ext,byte_no,abs_ext,extern┆
0x25d40…25d60 2c 72 65 73 65 72 76 65 3b 0a 63 6f 6d 6d 65 6e 74 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f ┆,reserve; comment description o┆
0x25d60…25d7a 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 3a 0a 20 20 20 66 69 6c 65 5f 6e ┆f the variables: file_n┆
0x25d7a…25d80 (0x1f8,0x4bc)
0x25d80…25da0 6f 20 20 20 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 ┆o the number of the current i┆
0x25da0…25dc0 6e 70 75 74 2d 66 69 6c 65 0a 20 20 20 72 65 6c 5f 65 78 74 20 20 20 20 74 68 65 20 70 6f 73 69 ┆nput-file rel_ext the posi┆
0x25dc0…25de0 74 69 6f 6e 20 28 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 6e ┆tion (relative to the current en┆
0x25de0…25e00 74 72 61 6e 63 65 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆trance in the ┆
0x25e00…25e06 (303,) (0x1f8,0x4bd)
0x25e06…25e20 20 20 20 20 65 78 74 65 72 6e 61 6c 20 6c 69 73 74 29 20 77 68 65 72 65 20 61 ┆ external list) where a┆
0x25e20…25e40 6e 20 65 78 74 65 72 6e 61 6c 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 0a 20 20 20 62 79 74 65 ┆n external is referenced byte┆
0x25e40…25e60 5f 6e 6f 20 20 20 20 74 68 65 20 62 79 74 65 6e 75 6d 62 65 72 20 28 69 6e 20 74 68 65 20 69 6e ┆_no the bytenumber (in the in┆
0x25e60…25e7e 70 75 74 2d 66 69 6c 65 29 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 0a 20 20 20 20 ┆put-file) of the current ┆
0x25e7e…25e84 (0x1f8,0x4be)
0x25e84…25ea0 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 61 6e 63 65 20 69 6e 20 74 68 65 20 65 78 ┆ entrance in the ex┆
0x25ea0…25ec0 74 65 72 6e 61 6c 20 6c 69 73 74 0a 20 20 20 61 62 73 5f 65 78 74 20 20 20 20 74 68 65 20 61 62 ┆ternal list abs_ext the ab┆
0x25ec0…25ee0 73 6f 6c 75 74 65 20 70 6f 73 69 74 69 6f 6e 20 28 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 ┆solute position (relative to the┆
0x25ee0…25efc 20 69 6e 70 75 74 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ input-file) w┆
0x25efc…25f02 (0x1f8,0x4bf)
0x25f02…25f20 68 65 72 65 20 61 6e 20 65 78 74 65 72 6e 61 6c 20 69 73 20 72 65 66 65 72 65 6e 63 65 64 ┆here an external is referenced┆
0x25f20…25f40 0a 20 20 20 65 78 74 65 72 6e 20 20 20 20 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 78 74 65 72 ┆ extern the current exter┆
0x25f40…25f60 6e 61 6c 20 6e 75 6d 62 65 72 0a 20 20 20 72 65 73 65 72 76 65 20 20 20 20 74 68 65 20 73 69 7a ┆nal number reserve the siz┆
0x25f60…25f7a 65 20 6f 66 20 74 68 65 20 72 65 73 65 72 76 61 74 69 6f 6e 0a 3b 0a 0a 0a 69 ┆e of the reservation ; i┆
0x25f7a…25f80 (0x1f8,0x4c0)
0x25f80…25fa0 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 77 6f 72 64 28 62 79 74 65 6e 6f 29 ┆nteger procedure getword(byteno)┆
0x25fa0…25fc0 3b 0a 76 61 6c 75 65 20 62 79 74 65 6e 6f 3b 0a 69 6e 74 65 67 65 72 20 62 79 74 65 6e 6f 3b 0a ┆; value byteno; integer byteno; ┆
0x25fc0…25fe0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 67 65 74 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 ┆begin comment gets the value of ┆
0x25fe0…26000 74 68 65 20 77 6f 72 64 20 77 68 69 63 68 20 63 6f 6e 73 69 73 74 73 20 00 00 00 00 00 00 00 00 ┆the word which consists ┆
0x26000…26006 (304,) (0x1f8,0x4c1)
0x26006…26020 6f 66 20 74 68 65 20 62 79 74 65 73 20 77 69 74 68 20 6e 75 6d 62 65 72 73 0a ┆of the bytes with numbers ┆
0x26020…26040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 6e 6f 2d 31 2c 62 79 74 65 6e 6f 29 0a ┆ (byteno-1,byteno) ┆
0x26040…26060 20 20 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 69 6e 70 75 74 2d 66 69 6c 65 3b 0a 67 65 74 77 ┆ in the input-file; getw┆
0x26060…2607e 6f 72 64 3a 3d 67 65 74 62 79 74 65 28 62 79 74 65 6e 6f 2d 31 29 20 73 68 69 66 74 20 31 ┆ord:=getbyte(byteno-1) shift 1┆
0x2607e…26084 (0x1f8,0x4c2)
0x26084…260a0 32 20 2b 20 67 65 74 62 79 74 65 28 62 79 74 65 6e 6f 29 20 65 78 74 72 61 63 74 20 ┆2 + getbyte(byteno) extract ┆
0x260a0…260c0 31 32 3b 0a 65 6e 64 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 62 ┆12; end; integer procedure getb┆
0x260c0…260e0 79 74 65 28 62 79 74 65 6e 6f 29 3b 0a 76 61 6c 75 65 20 62 79 74 65 6e 6f 3b 0a 69 6e 74 65 67 ┆yte(byteno); value byteno; integ┆
0x260e0…260fc 65 72 20 62 79 74 65 6e 6f 3b 0a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 67 65 74 ┆er byteno; begin comment get┆
0x260fc…26102 (0x1f8,0x4c3)
0x26102…26120 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 62 79 74 65 20 77 69 74 68 20 74 ┆s the value of the byte with t┆
0x26120…26140 68 65 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 6e 6f 0a 20 ┆he number byteno ┆
0x26140…26160 20 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 69 6e 70 75 74 2d 66 69 6c 65 3b 0a 62 6f 6f 6c 65 ┆ in the input-file; boole┆
0x26160…2617a 61 6e 20 66 69 65 6c 64 20 62 79 74 65 3b 0a 62 79 74 65 3a 3d 62 79 74 65 6e ┆an field byte; byte:=byten┆
0x2617a…26180 (0x1f8,0x4c4)
0x26180…261a0 6f 3b 0a 67 65 74 62 79 74 65 3a 3d 73 69 67 6e 5f 69 6e 74 28 69 6e 66 69 6c 65 2e 62 79 74 65 ┆o; getbyte:=sign_int(infile.byte┆
0x261a0…261c0 29 3b 0a 65 6e 64 20 67 65 74 62 79 74 65 3b 0a 0a 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 ┆); end getbyte; comment sm ┆
0x261c0…261e0 37 35 2e 30 37 2e 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 ┆75.07.25 textxr┆
0x261e0…26200 65 66 20 20 20 20 20 70 61 67 65 20 2e 2e 2e 33 2e 2e 2e 0a 3b 0a 0a 70 00 00 00 00 00 00 00 00 ┆ef page ...3... ; p ┆
0x26200…26206 (305,) (0x1f8,0x4c5)
0x26206…26220 72 6f 63 65 64 75 72 65 20 6f 75 74 5f 65 78 74 28 65 78 74 65 72 6e 2c 72 65 ┆rocedure out_ext(extern,re┆
0x26220…26240 6c 61 74 69 76 65 29 3b 0a 76 61 6c 75 65 20 65 78 74 65 72 6e 2c 72 65 6c 61 74 69 76 65 3b 0a ┆lative); value extern,relative; ┆
0x26240…26260 69 6e 74 65 67 65 72 20 65 78 74 65 72 6e 2c 72 65 6c 61 74 69 76 65 3b 0a 62 65 67 69 6e 20 63 ┆integer extern,relative; begin c┆
0x26260…2627e 6f 6d 6d 65 6e 74 20 6f 75 74 70 75 74 73 20 6f 6e 65 20 72 65 63 6f 72 64 20 77 69 74 68 ┆omment outputs one record with┆
0x2627e…26284 (0x1f8,0x4c6)
0x26284…262a0 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 69 65 6c 64 73 3a 0a 20 20 20 20 20 ┆ the following fields: ┆
0x262a0…262c0 20 20 20 20 20 20 20 20 20 20 20 31 2e 20 62 79 74 65 3a 20 20 65 78 74 65 72 6e 0a 20 20 20 20 ┆ 1. byte: extern ┆
0x262c0…262e0 20 20 20 20 20 20 20 20 20 20 20 20 32 2e 20 62 79 74 65 3a 20 20 66 69 6c 65 6e 6f 0a 20 20 20 ┆ 2. byte: fileno ┆
0x262e0…262fc 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2e 20 77 6f 72 64 3a 20 20 72 65 6c 61 74 ┆ 2. word: relat┆
0x262fc…26302 (0x1f8,0x4c7)
0x26302…26320 69 76 65 0a 20 20 20 20 20 20 20 20 20 61 6e 64 20 63 6f 75 6e 74 73 20 74 68 65 6d 20 69 ┆ive and counts them i┆
0x26320…26340 6e 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 ┆n the global variable ┆
0x26340…26360 20 20 20 20 20 20 20 20 65 78 74 5f 75 73 65 64 0a 20 20 20 20 20 20 3b 0a 69 6e 74 65 67 65 72 ┆ ext_used ; integer┆
0x26360…2637a 20 66 69 65 6c 64 20 72 65 6c 2c 65 78 74 5f 61 6e 64 5f 66 69 6c 3b 0a 72 65 ┆ field rel,ext_and_fil; re┆
0x2637a…26380 (0x1f8,0x4c8)
0x26380…263a0 6c 3a 3d 34 3b 0a 65 78 74 61 6e 64 66 69 6c 3a 3d 32 3b 0a 0a 6f 75 74 72 65 63 36 28 6f 75 74 ┆l:=4; extandfil:=2; outrec6(out┆
0x263a0…263c0 6c 69 73 74 2c 34 29 3b 0a 0a 6f 75 74 6c 69 73 74 2e 72 65 6c 3a 3d 72 65 6c 61 74 69 76 65 3b ┆list,4); outlist.rel:=relative;┆
0x263c0…263e0 0a 6f 75 74 6c 69 73 74 2e 65 78 74 61 6e 64 66 69 6c 3a 3d 65 78 74 65 72 6e 20 73 68 69 66 74 ┆ outlist.extandfil:=extern shift┆
0x263e0…26400 20 31 32 20 61 64 64 20 66 69 6c 65 6e 6f 3b 0a 0a 65 78 74 75 73 65 64 00 00 00 00 00 00 00 00 ┆ 12 add fileno; extused ┆
0x26400…26406 (306,) (0x1f8,0x4c9)
0x26406…26420 3a 3d 65 78 74 75 73 65 64 20 2b 20 31 3b 0a 65 6e 64 20 6f 75 74 65 78 74 3b ┆:=extused + 1; end outext;┆
0x26420…26440 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 75 74 5f 65 78 74 5f 64 65 66 28 65 78 74 65 72 6e 2c 72 ┆ procedure out_ext_def(extern,r┆
0x26440…26460 65 6c 61 74 69 76 65 29 3b 0a 76 61 6c 75 65 20 65 78 74 65 72 6e 2c 72 65 6c 61 74 69 76 65 3b ┆elative); value extern,relative;┆
0x26460…2647e 0a 69 6e 74 65 67 65 72 20 65 78 74 65 72 6e 2c 72 65 6c 61 74 69 76 65 3b 0a 62 65 67 69 ┆ integer extern,relative; begi┆
0x2647e…26484 (0x1f8,0x4ca)
0x26484…264a0 6e 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 70 75 74 73 20 6f 6e 65 20 72 65 63 6f 72 64 ┆n comment outputs one record┆
0x264a0…264c0 20 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 69 65 6c 64 73 3a 0a 20 20 20 20 ┆ with the following fields: ┆
0x264c0…264e0 20 20 31 2e 20 20 62 79 74 65 3a 20 20 20 65 78 74 65 72 6e 0a 20 20 20 20 20 20 32 2e 20 20 62 ┆ 1. byte: extern 2. b┆
0x264e0…264fc 79 74 65 3a 20 20 20 66 69 6c 65 6e 6f 0a 20 20 20 20 20 20 32 2e 20 20 77 6f 72 64 ┆yte: fileno 2. word┆
0x264fc…26502 (0x1f8,0x4cb)
0x26502…26520 3a 20 20 20 72 65 6c 61 74 69 76 65 0a 20 20 61 6e 64 20 63 6f 75 6e 74 73 20 74 68 65 6d ┆: relative and counts them┆
0x26520…26540 20 69 6e 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 65 78 74 64 65 66 69 6e ┆ in the global variable extdefin┆
0x26540…26560 65 64 3b 0a 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 65 78 74 2c 72 65 6c 3b 0a 20 20 65 ┆ed; integer field ext,rel; e┆
0x26560…2657a 78 74 3a 3d 32 3b 0a 20 20 72 65 6c 3a 3d 34 3b 0a 20 20 6f 75 74 72 65 63 36 ┆xt:=2; rel:=4; outrec6┆
0x2657a…26580 (0x1f8,0x4cc)
0x26580…265a0 28 64 65 66 6f 75 74 2c 34 29 3b 0a 20 20 64 65 66 6f 75 74 2e 65 78 74 3a 3d 65 78 74 65 72 6e ┆(defout,4); defout.ext:=extern┆
0x265a0…265c0 20 73 68 69 66 74 20 31 32 20 61 64 64 20 66 69 6c 65 6e 6f 3b 0a 20 20 64 65 66 6f 75 74 2e 72 ┆ shift 12 add fileno; defout.r┆
0x265c0…265e0 65 6c 3a 3d 72 65 6c 61 74 69 76 65 2d 34 3b 0a 20 20 65 78 74 64 65 66 69 6e 65 64 3a 3d 65 78 ┆el:=relative-4; extdefined:=ex┆
0x265e0…26600 74 64 65 66 69 6e 65 64 2b 31 3b 0a 65 6e 64 20 6f 75 74 65 78 74 64 65 00 00 00 00 00 00 00 00 ┆tdefined+1; end outextde ┆
0x26600…26606 (307,) (0x1f8,0x4cd)
0x26606…26620 66 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 75 74 5f 72 65 73 28 65 78 74 65 ┆f; procedure out_res(exte┆
0x26620…26640 72 6e 2c 72 65 73 65 72 76 65 2c 72 65 6c 61 74 69 76 65 29 3b 0a 76 61 6c 75 65 20 65 78 74 65 ┆rn,reserve,relative); value exte┆
0x26640…26660 72 6e 2c 72 65 73 65 72 76 65 2c 72 65 6c 61 74 69 76 65 3b 0a 69 6e 74 65 67 65 72 20 65 78 74 ┆rn,reserve,relative; integer ext┆
0x26660…2667e 65 72 6e 2c 72 65 73 65 72 76 65 2c 72 65 6c 61 74 69 76 65 3b 0a 62 65 67 69 6e 20 63 6f ┆ern,reserve,relative; begin co┆
0x2667e…26684 (0x1f8,0x4ce)
0x26684…266a0 6d 6d 65 6e 74 20 20 6f 75 74 70 75 74 73 20 74 68 65 20 74 61 62 6c 65 20 72 65 73 ┆mment outputs the table res┆
0x266a0…266c0 65 72 76 61 74 69 6f 6e 73 20 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 ┆ervations with the following for┆
0x266c0…266e0 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 20 77 6f 72 64 3a 20 20 65 78 ┆mat 1. word: ex┆
0x266e0…266fc 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2e 20 77 6f 72 64 ┆tern 2. word┆
0x266fc…26702 (0x1f8,0x4cf)
0x26702…26720 3a 20 20 72 65 73 65 72 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2e 20 ┆: reserve 3. ┆
0x26720…26740 77 6f 72 64 3a 20 20 66 69 6c 65 6e 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 2e ┆word: fileno 4.┆
0x26740…26760 20 77 6f 72 64 3a 20 20 72 65 6c 61 74 69 76 65 0a 20 20 20 20 20 20 20 20 3b 0a 69 6e 74 65 67 ┆ word: relative ; integ┆
0x26760…2677a 65 72 20 66 69 65 6c 64 20 65 78 74 2c 72 65 73 2c 66 69 6c 2c 72 65 6c 3b 0a ┆er field ext,res,fil,rel; ┆
0x2677a…26780 (0x1f8,0x4d0)
0x26780…267a0 65 78 74 3a 3d 32 3b 0a 72 65 73 3a 3d 34 3b 0a 66 69 6c 3a 3d 36 3b 0a 72 65 6c 3a 3d 38 3b 0a ┆ext:=2; res:=4; fil:=6; rel:=8; ┆
0x267a0…267c0 0a 6f 75 74 72 65 63 36 28 72 65 73 6f 75 74 2c 38 29 3b 0a 0a 72 65 73 6f 75 74 2e 65 78 74 3a ┆ outrec6(resout,8); resout.ext:┆
0x267c0…267e0 3d 65 78 74 65 72 6e 3b 0a 72 65 73 6f 75 74 2e 72 65 73 3a 3d 72 65 73 65 72 76 65 3b 0a 72 65 ┆=extern; resout.res:=reserve; re┆
0x267e0…26800 73 6f 75 74 2e 66 69 6c 3a 3d 66 69 6c 65 6e 6f 3b 0a 72 65 73 6f 75 74 00 00 00 00 00 00 00 00 ┆sout.fil:=fileno; resout ┆
0x26800…26806 (308,) (0x1f8,0x4d1)
0x26806…26820 2e 72 65 6c 3a 3d 72 65 6c 61 74 69 76 65 3b 0a 0a 72 65 73 65 72 76 61 74 69 ┆.rel:=relative; reservati┆
0x26820…26840 6f 6e 73 3a 3d 72 65 73 65 72 76 61 74 69 6f 6e 73 20 2b 20 31 3b 0a 0a 65 6e 64 20 6f 75 74 72 ┆ons:=reservations + 1; end outr┆
0x26840…26860 65 73 3b 0a 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 37 35 2e 30 37 2e 32 35 20 20 20 20 20 ┆es; comment sm 75.07.25 ┆
0x26860…2687e 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 20 20 20 70 61 67 65 ┆ textxref page┆
0x2687e…26884 (0x1f8,0x4d2)
0x26884…268a0 20 2e 2e 2e 34 2e 2e 2e 0a 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 ┆ ...4... ; integer array t┆
0x268a0…268c0 61 69 6c 28 31 3a 31 30 29 3b 0a 69 6e 74 65 67 65 72 20 69 3b 0a 0a 62 65 67 69 6e 0a 20 20 20 ┆ail(1:10); integer i; begin ┆
0x268c0…268e0 63 6f 6d 6d 65 6e 74 20 69 6e 20 74 68 69 73 20 62 6c 6f 63 6b 20 74 68 65 20 34 20 61 72 65 61 ┆comment in this block the 4 area┆
0x268e0…268fc 73 20 74 68 61 74 20 61 72 65 20 75 73 65 64 20 69 6e 20 74 68 65 20 70 72 6f 67 72 ┆s that are used in the progr┆
0x268fc…26902 (0x1f8,0x4d3)
0x26902…26920 61 6d 20 61 72 65 20 63 72 65 61 74 65 64 2e 0a 20 20 20 20 20 20 69 66 20 61 6e 20 65 72 ┆am are created. if an er┆
0x26920…26940 72 6f 72 20 6f 63 63 75 72 73 2c 20 61 6e 20 65 72 72 6f 72 6d 65 73 73 61 67 65 20 69 73 20 77 ┆ror occurs, an errormessage is w┆
0x26940…26960 72 69 74 74 65 6e 2c 20 61 6e 64 20 74 68 65 20 72 75 6e 20 69 73 20 74 65 72 6d 69 6e 61 74 65 ┆ritten, and the run is terminate┆
0x26960…2697a 64 3b 0a 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 73 74 61 74 75 ┆d; integer array statu┆
0x2697a…26980 (0x1f8,0x4d4)
0x26980…269a0 73 28 31 3a 35 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 62 6f 6f 6c 65 61 6e ┆s(1:5); integer i; boolean┆
0x269a0…269c0 20 6f 6b 3b 0a 20 20 20 7a 6f 6e 65 20 7a 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a ┆ ok; zone z(128,1,stderror); ┆
0x269c0…269e0 20 20 20 74 61 69 6c 28 32 29 3a 3d 31 3b 0a 20 20 20 6f 6b 3a 3d 74 72 75 65 3b 0a 0a 20 20 20 ┆ tail(2):=1; ok:=true; ┆
0x269e0…26a00 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 00 00 00 00 00 00 00 00 ┆for i:=1 step 1 until 5 ┆
0x26a00…26a06 (309,) (0x1f8,0x4d5)
0x26a06…26a20 64 6f 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆do begin comment ┆
0x26a20…26a40 74 68 65 20 61 72 65 61 73 20 61 72 65 20 63 72 65 61 74 65 64 2e 20 73 74 61 74 75 73 20 74 65 ┆the areas are created. status te┆
0x26a40…26a60 6c 6c 73 20 69 66 20 65 76 65 72 79 74 68 69 6e 67 20 69 73 20 6f 6b 20 6f 72 20 6e 6f 74 3b 0a ┆lls if everything is ok or not; ┆
0x26a60…26a7e 20 20 20 20 20 20 73 74 61 74 75 73 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 74 61 69 6c ┆ status(i):=0; tail┆
0x26a7e…26a84 (0x1f8,0x4d6)
0x26a84…26aa0 28 31 29 3a 3d 63 61 73 65 20 69 20 6f 66 20 28 33 36 2c 33 36 2c 33 36 2c 33 36 2c ┆(1):=case i of (36,36,36,36,┆
0x26aa0…26ac0 33 36 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65 20 35 20 ┆36); comment the size of the 5 ┆
0x26ac0…26ae0 61 72 65 61 73 20 75 73 65 64 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 2c 34 2c 63 61 73 65 20 ┆areas used; open(z,4,case ┆
0x26ae0…26afc 69 20 6f 66 20 28 3c 3a 65 78 74 65 72 6e 61 6c 73 3a 3e 2c 3c 3a 72 65 73 65 72 76 ┆i of (<:externals:>,<:reserv┆
0x26afc…26b02 (0x1f8,0x4d7)
0x26b02…26b20 65 3a 3e 2c 3c 3a 65 78 74 64 65 66 3a 3e 2c 3c 3a 6c 69 73 74 31 3a 3e 2c 3c 3a 65 78 74 ┆e:>,<:extdef:>,<:list1:>,<:ext┆
0x26b20…26b40 6e 61 6d 65 3a 3e 29 2c 30 29 3b 0a 20 20 20 20 20 20 73 74 61 74 75 73 28 69 29 3a 3d 6d 6f 6e ┆name:>),0); status(i):=mon┆
0x26b40…26b60 69 74 6f 72 28 34 30 2c 7a 2c 30 2c 74 61 69 6c 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 63 72 65 61 ┆itor(40,z,0,tail); comment crea┆
0x26b60…26b7a 74 65 20 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 69 66 20 73 74 61 74 75 73 28 ┆te entry; if status(┆
0x26b7a…26b80 (0x1f8,0x4d8)
0x26b80…26ba0 69 29 3c 3e 30 20 74 68 65 6e 20 6f 6b 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 63 6c 6f 73 ┆i)<>0 then ok:=false; clos┆
0x26ba0…26bc0 65 28 7a 2c 74 72 75 65 29 3b 0a 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 69 66 20 2d 2c 6f 6b 20 ┆e(z,true); end; if -,ok ┆
0x26bc0…26be0 74 68 65 6e 20 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 ┆then begin comment the┆
0x26be0…26c00 20 61 72 65 61 73 20 74 68 61 74 20 68 61 76 65 20 62 65 65 6e 20 63 72 00 00 00 00 00 00 00 00 ┆ areas that have been cr ┆
0x26c00…26c06 (310,) (0x1f8,0x4d9)
0x26c06…26c20 65 61 74 65 64 20 64 75 72 69 6e 67 20 74 68 69 73 20 72 75 6e 2c 20 61 72 65 ┆eated during this run, are┆
0x26c20…26c40 20 64 65 6c 65 74 65 64 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 72 75 6e ┆ deleted; write(out,<:<10>run┆
0x26c40…26c60 20 74 65 72 6d 69 6e 61 74 65 64 2e 20 65 72 72 6f 72 20 69 6e 20 63 72 65 61 74 69 6f 6e 20 6f ┆ terminated. error in creation o┆
0x26c60…26c7e 66 3a 3e 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 ┆f:>, ┆
0x26c7e…26c84 (0x1f8,0x4da)
0x26c84…26ca0 20 3c 3a 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 61 67 65 20 61 72 65 61 2e 3a 3e 29 ┆ <: backing storage area.:>)┆
0x26ca0…26cc0 3b 0a 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 0a ┆; for i:=1 step 1 until 5 do ┆
0x26cc0…26ce0 20 20 20 69 66 20 73 74 61 74 75 73 28 69 29 3d 30 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a ┆ if status(i)=0 then begin ┆
0x26ce0…26cfc 20 20 20 20 20 20 6f 70 65 6e 28 7a 2c 34 2c 63 61 73 65 20 69 20 6f 66 20 28 3c 3a ┆ open(z,4,case i of (<:┆
0x26cfc…26d02 (0x1f8,0x4db)
0x26d02…26d20 65 78 74 65 72 6e 61 6c 73 3a 3e 2c 3c 3a 72 65 73 65 72 76 65 3a 3e 2c 3c 3a 65 78 74 64 ┆externals:>,<:reserve:>,<:extd┆
0x26d20…26d40 65 66 3a 3e 2c 3c 3a 6c 69 73 74 31 3a 3e 2c 3c 3a 65 78 74 6e 61 6d 65 3a 3e 29 2c 30 29 3b 0a ┆ef:>,<:list1:>,<:extname:>),0); ┆
0x26d40…26d60 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 2c 7a 2c 30 2c 74 61 69 6c 29 3b 20 20 63 6f 6d ┆ monitor(48,z,0,tail); com┆
0x26d60…26d7a 6d 65 6e 74 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 63 ┆ment remove entry; c┆
0x26d7a…26d80 (0x1f8,0x4dc)
0x26d80…26da0 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 20 20 20 65 6e 64 0a 20 0a 20 20 20 65 6c 73 65 20 77 ┆lose(z,true); end else w┆
0x26da0…26dc0 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 20 63 61 73 65 20 69 20 6f 66 20 28 3c 3a ┆rite(out,<:<10>:>, case i of (<:┆
0x26dc0…26de0 65 78 74 65 72 6e 61 6c 73 3a 3a 3e 2c 3c 3a 72 65 73 65 72 76 65 20 20 3a 3a 3e 2c 3c 3a 65 78 ┆externals::>,<:reserve ::>,<:ex┆
0x26de0…26e00 74 64 65 66 20 20 20 3a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆tdef ::>, ┆
0x26e00…26e06 (311,) (0x1f8,0x4dd)
0x26e06…26e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26e20…26e40 20 3c 3a 6c 69 73 74 31 20 20 20 20 3a 3a 3e 2c 3c 3a 65 78 74 6e 61 6d 65 20 20 3a 3a 3e 29 2c ┆ <:list1 ::>,<:extname ::>),┆
0x26e40…26e60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 73 74 61 74 75 73 28 69 ┆ case status(i┆
0x26e60…26e7e 29 20 6f 66 20 28 3c 3a 3a 3e 2c 3c 3a 20 63 61 74 61 6c 6f 67 20 69 2f 6f 20 65 72 72 6f ┆) of (<::>,<: catalog i/o erro┆
0x26e7e…26e84 (0x1f8,0x4de)
0x26e84…26ea0 72 2e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6e ┆r.:>, <: n┆
0x26ea0…26ec0 61 6d 65 20 63 6f 6e 66 6c 69 63 74 2e 3a 3e 2c 3c 3a 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 ┆ame conflict.:>,<: claims exceed┆
0x26ec0…26ee0 65 64 2e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 63 61 74 61 ┆ed.:>, <: cata┆
0x26ee0…26efc 6c 6f 67 20 62 61 73 65 20 64 6f 65 73 20 6e 6f 74 20 61 6c 6c 6f 77 20 63 72 65 61 ┆log base does not allow crea┆
0x26efc…26f02 (0x1f8,0x4df)
0x26f02…26f20 74 69 6f 6e 20 6f 66 20 65 6e 74 72 79 2e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆tion of entry.:>, ┆
0x26f20…26f40 20 20 20 20 20 20 3c 3a 20 6e 61 6d 65 20 66 6f 72 6d 61 74 20 69 6c 6c 65 67 61 6c 2e 3a 3e 29 ┆ <: name format illegal.:>)┆
0x26f40…26f60 29 3b 0a 20 20 20 67 6f 74 6f 20 65 6e 64 70 72 6f 67 3b 0a 20 20 20 65 6e 64 3b 0a 65 6e 64 3b ┆); goto endprog; end; end;┆
0x26f60…26f7a 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 37 35 2e 30 37 2e 32 35 20 20 20 ┆ comment sm 75.07.25 ┆
0x26f7a…26f80 (0x1f8,0x4e0)
0x26f80…26fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 20 20 20 70 61 67 65 ┆ textxref page┆
0x26fa0…26fc0 20 2e 2e 2e 35 2e 2e 2e 0a 3b 0a 0a 0a 6f 70 65 6e 28 6f 75 74 5f 6c 69 73 74 2c 34 2c 3c 3a 65 ┆ ...5... ; open(out_list,4,<:e┆
0x26fc0…26fe0 78 74 65 72 6e 61 6c 73 3a 3e 2c 30 29 3b 0a 6f 70 65 6e 28 72 65 73 5f 6f 75 74 2c 34 2c 3c 3a ┆xternals:>,0); open(res_out,4,<:┆
0x26fe0…27000 72 65 73 65 72 76 65 3a 3e 2c 30 29 3b 0a 6f 70 65 6e 28 64 65 66 6f 75 00 00 00 00 00 00 00 00 ┆reserve:>,0); open(defou ┆
0x27000…27006 (312,) (0x1f8,0x4e1)
0x27006…27020 74 2c 34 2c 3c 3a 65 78 74 64 65 66 3a 3e 2c 30 29 3b 0a 6f 66 66 73 65 74 3a ┆t,4,<:extdef:>,0); offset:┆
0x27020…27040 3d 30 3b 0a 65 78 74 64 65 66 69 6e 65 64 3a 3d 30 3b 0a 0a 65 78 74 75 73 65 64 3a 3d 30 3b 0a ┆=0; extdefined:=0; extused:=0; ┆
0x27040…27060 72 65 73 65 72 76 61 74 69 6f 6e 73 3a 3d 30 3b 0a 0a 66 6f 72 20 66 69 6c 65 6e 6f 3a 3d 31 20 ┆reservations:=0; for fileno:=1 ┆
0x27060…2707e 73 74 65 70 20 31 20 75 6e 74 69 6c 20 39 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 6f 70 ┆step 1 until 9 do begin op┆
0x2707e…27084 (0x1f8,0x4e2)
0x27084…270a0 65 6e 28 69 6e 66 69 6c 65 2c 34 2c 63 61 73 65 20 66 69 6c 65 6e 6f 20 6f 66 20 28 ┆en(infile,4,case fileno of (┆
0x270a0…270c0 3c 3a 62 74 65 72 6d 32 3a 3e 2c 3c 3a 62 74 65 72 6d 31 3a 3e 2c 3c 3a 62 6a 6f 62 73 74 61 72 ┆<:bterm2:>,<:bterm1:>,<:bjobstar┆
0x270c0…270e0 74 3a 3e 2c 3c 3a 62 6a 6f 62 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t:>,<:bjob:>, ┆
0x270e0…270fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 62 6d 6f 75 6e 74 3a 3e 2c 3c 3a 62 ┆ <:bmount:>,<:b┆
0x270fc…27102 (0x1f8,0x4e3)
0x27102…27120 72 65 61 64 3a 3e 2c 3c 3a 62 70 72 69 6e 74 65 72 3a 3e 2c 3c 3a 62 70 72 6f 63 73 3a 3e ┆read:>,<:bprinter:>,<:bprocs:>┆
0x27120…27140 2c 3c 3a 62 62 61 6e 6b 65 72 3a 3e 29 2c 30 29 3b 0a 6d 6f 6e 69 74 6f 72 28 34 32 29 6c 6f 6f ┆,<:bbanker:>),0); monitor(42)loo┆
0x27140…27160 6b 75 70 5f 65 6e 74 72 79 3a 28 69 6e 66 69 6c 65 2c 30 2c 74 61 69 6c 29 3b 0a 69 6e 72 65 63 ┆kup_entry:(infile,0,tail); inrec┆
0x27160…2717a 36 28 69 6e 66 69 6c 65 2c 74 61 69 6c 28 31 30 29 29 3b 0a 20 20 76 65 72 73 ┆6(infile,tail(10)); vers┆
0x2717a…27180 (0x1f8,0x4e4)
0x27180…271a0 69 6f 6e 69 64 28 31 2c 66 69 6c 65 6e 6f 29 3a 3d 67 65 74 77 6f 72 64 28 36 29 3b 20 76 65 72 ┆ionid(1,fileno):=getword(6); ver┆
0x271a0…271c0 73 69 6f 6e 69 64 28 32 2c 66 69 6c 65 6e 6f 29 3a 3d 67 65 74 77 6f 72 64 28 38 29 3b 0a 20 20 ┆sionid(2,fileno):=getword(8); ┆
0x271c0…271e0 62 79 74 65 6e 6f 3a 3d 31 30 3b 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 65 78 74 65 72 6e ┆byteno:=10; comment the extern┆
0x271e0…27200 61 6c 20 6c 69 73 74 20 73 74 61 72 74 73 20 69 6e 20 62 79 74 65 20 39 00 00 00 00 00 00 00 00 ┆al list starts in byte 9 ┆
0x27200…27206 (313,) (0x1f8,0x4e5)
0x27206…27220 20 61 6e 64 20 31 30 20 6f 66 20 74 68 65 20 69 6e 70 75 74 20 66 69 6c 65 3b ┆ and 10 of the input file;┆
0x27220…27240 0a 0a 20 20 66 6f 72 20 72 65 6c 65 78 74 3a 3d 67 65 74 77 6f 72 64 28 62 79 74 65 6e 6f 29 20 ┆ for relext:=getword(byteno) ┆
0x27240…27260 77 68 69 6c 65 20 72 65 6c 65 78 74 20 3c 3e 20 30 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆while relext <> 0 do begin ┆
0x27260…2727e 20 20 20 69 66 20 72 65 6c 65 78 74 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 79 ┆ if relext < 0 then by┆
0x2727e…27284 (0x1f8,0x4e6)
0x27284…272a0 74 65 6e 6f 3a 3d 62 79 74 65 6e 6f 2d 72 65 6c 65 78 74 0a 20 20 20 20 65 6c 73 65 ┆teno:=byteno-relext else┆
0x272a0…272c0 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 61 62 73 5f 65 78 74 3a 3d 62 79 74 65 ┆ begin abs_ext:=byte┆
0x272c0…272e0 5f 6e 6f 2b 72 65 6c 5f 65 78 74 3b 0a 20 20 20 20 20 20 69 66 20 61 62 73 5f 65 78 74 20 65 78 ┆_no+rel_ext; if abs_ext ex┆
0x272e0…272fc 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 ┆tract 1 = 1 then beg┆
0x272fc…27302 (0x1f8,0x4e7)
0x27302…27320 69 6e 20 63 6f 6d 6d 65 6e 74 20 20 61 62 73 5f 65 78 74 20 69 73 20 75 6e 65 76 65 6e 20 ┆in comment abs_ext is uneven ┆
0x27320…27340 3b 0a 20 20 20 20 20 20 20 20 61 62 73 5f 65 78 74 3a 3d 61 62 73 5f 65 78 74 20 2d 20 31 3b 0a ┆; abs_ext:=abs_ext - 1; ┆
0x27340…27360 20 20 20 20 20 20 20 20 6f 75 74 5f 65 78 74 28 67 65 74 62 79 74 65 28 61 62 73 5f 65 78 74 29 ┆ out_ext(getbyte(abs_ext)┆
0x27360…2737a 2c 61 62 73 5f 65 78 74 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆,abs_ext-1); end ┆
0x2737a…27380 (0x1f8,0x4e8)
0x27380…273a0 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x273a0…273c0 63 6f 6d 6d 65 6e 74 20 61 62 73 5f 65 78 74 20 69 73 20 65 76 65 6e 3b 0a 20 20 20 20 20 20 20 ┆comment abs_ext is even; ┆
0x273c0…273e0 20 65 78 74 65 72 6e 3a 3d 67 65 74 62 79 74 65 28 61 62 73 5f 65 78 74 29 3b 0a 20 20 20 20 20 ┆ extern:=getbyte(abs_ext); ┆
0x273e0…27400 20 20 20 6f 75 74 5f 65 78 74 28 65 78 74 65 72 6e 2c 61 62 73 5f 65 78 00 00 00 00 00 00 00 00 ┆ out_ext(extern,abs_ex ┆
0x27400…27406 (314,) (0x1f8,0x4e9)
0x27406…27420 74 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 72 65 73 65 72 76 65 3a 3d 67 65 74 ┆t-2); reserve:=get┆
0x27420…27440 62 79 74 65 28 61 62 73 5f 65 78 74 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 72 65 73 65 ┆byte(abs_ext-1); if rese┆
0x27440…27460 72 76 65 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 6f 75 74 5f 72 65 73 28 65 ┆rve > 0 then out_res(e┆
0x27460…2747e 78 74 65 72 6e 2c 72 65 73 65 72 76 65 2c 61 62 73 5f 65 78 74 2d 32 29 3b 0a 20 20 20 20 ┆xtern,reserve,abs_ext-2); ┆
0x2747e…27484 (0x1f8,0x4ea)
0x27484…274a0 20 20 20 20 69 66 20 65 78 74 65 72 6e 3d 31 30 20 74 68 65 6e 20 6f 75 74 72 65 73 ┆ if extern=10 then outres┆
0x274a0…274c0 28 65 78 74 65 72 6e 2c 20 67 65 74 77 6f 72 64 28 61 62 73 5f 65 78 74 2d 32 29 2c 20 61 62 73 ┆(extern, getword(abs_ext-2), abs┆
0x274c0…274e0 5f 65 78 74 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 65 78 74 65 72 6e 3d 34 30 20 74 68 ┆_ext-2); if extern=40 th┆
0x274e0…274fc 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 20 20 61 ┆en begin comment a┆
0x274fc…27502 (0x1f8,0x4eb)
0x27502…27520 66 74 65 72 20 65 78 74 28 34 30 29 20 20 28 3d 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 ┆fter ext(40) (= reference to ┆
0x27520…27540 73 65 74 2d 65 78 74 65 72 6e 61 6c 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆set-external- ┆
0x27540…27560 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 29 20 66 6f 6c 6c 6f 77 73 20 61 20 74 61 62 6c 65 ┆ procedure) follows a table┆
0x27560…2757a 20 28 69 6e 20 77 6f 72 64 20 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 ┆ (in word mode) ┆
0x2757a…27580 (0x1f8,0x4ec)
0x27580…275a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e 69 6e 67 20 70 61 69 72 73 20 6f ┆ containing pairs o┆
0x275a0…275c0 66 20 74 68 69 73 20 66 6f 72 6d 61 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f this format: ┆
0x275c0…275e0 20 20 20 20 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 20 76 61 6c 75 65 20 20 20 2c 20 20 20 65 ┆ external value , e┆
0x275e0…27600 78 74 65 72 6e 61 6c 20 6e 75 6d 62 65 72 2e 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆xternal number. ┆
0x27600…27606 (315,) (0x1f8,0x4ed)
0x27606…27620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 20 65 6c 65 6d 65 ┆ last eleme┆
0x27620…27640 6e 74 20 6f 66 20 61 20 74 61 62 6c 65 20 69 73 20 65 78 74 28 2d 31 30 30 30 29 3b 0a 20 20 20 ┆nt of a table is ext(-1000); ┆
0x27640…27660 20 20 20 20 20 20 20 61 62 73 65 78 74 3a 3d 61 62 73 65 78 74 2b 34 3b 0a 20 20 20 20 20 20 20 ┆ absext:=absext+4; ┆
0x27660…2767e 20 20 20 66 6f 72 20 65 78 74 65 72 6e 3a 3d 67 65 74 77 6f 72 64 28 61 62 73 65 78 74 29 ┆ for extern:=getword(absext)┆
0x2767e…27684 (0x1f8,0x4ee)
0x27684…276a0 20 77 68 69 6c 65 20 65 78 74 65 72 6e 3e 2d 31 30 30 30 20 64 6f 0a 20 20 20 20 20 ┆ while extern>-1000 do ┆
0x276a0…276c0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 65 78 74 64 65 66 ┆ begin outextdef┆
0x276c0…276e0 28 65 78 74 65 72 6e 2c 61 62 73 65 78 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 62 73 ┆(extern,absext); abs┆
0x276e0…276fc 65 78 74 3a 3d 61 62 73 65 78 74 2b 34 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ext:=absext+4; end┆
0x276fc…27702 (0x1f8,0x4ef)
0x27702…27720 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6f 66 66 73 65 74 3c 3d 30 20 74 68 65 6e 20 ┆; if offset<=0 then ┆
0x27720…27740 6f 66 66 73 65 74 3a 3d 67 65 74 77 6f 72 64 28 61 62 73 65 78 74 2d 32 29 2d 61 62 73 65 78 74 ┆offset:=getword(absext-2)-absext┆
0x27740…27760 2b 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆+2; end; end; ┆
0x27760…2777a 20 20 20 20 62 79 74 65 6e 6f 3a 3d 62 79 74 65 6e 6f 2b 32 3b 0a 20 20 20 20 ┆ byteno:=byteno+2; ┆
0x2777a…27780 (0x1f8,0x4f0)
0x27780…277a0 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 63 6c 6f 73 65 28 69 6e 66 69 6c 65 2c ┆ end; end; close(infile,┆
0x277a0…277c0 74 72 75 65 29 3b 0a 20 20 65 6e 64 3b 0a 0a 63 6c 6f 73 65 28 6f 75 74 5f 6c 69 73 74 2c 74 72 ┆true); end; close(out_list,tr┆
0x277c0…277e0 75 65 29 3b 0a 63 6c 6f 73 65 28 64 65 66 6f 75 74 2c 74 72 75 65 29 3b 0a 63 6c 6f 73 65 28 72 ┆ue); close(defout,true); close(r┆
0x277e0…27800 65 73 5f 6f 75 74 2c 74 72 75 65 29 3b 0a 74 6f 74 72 65 66 73 3a 3d 20 00 00 00 00 00 00 00 00 ┆es_out,true); totrefs:= ┆
0x27800…27806 (316,) (0x1f8,0x4f1)
0x27806…27820 65 78 74 75 73 65 64 3b 0a 74 6f 74 64 65 66 73 3a 3d 20 65 78 74 64 65 66 69 ┆extused; totdefs:= extdefi┆
0x27820…27840 6e 65 64 3b 0a 0a 65 6e 64 3b 0a 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 37 35 2e 30 37 2e ┆ned; end; comment sm 75.07.┆
0x27840…27860 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 20 20 ┆25 textxref ┆
0x27860…2787e 20 70 61 67 65 20 2e 2e 2e 36 2e 2e 2e 0a 3b 0a 0a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ page ...6... ; begin comment┆
0x2787e…27884 (0x1f8,0x4f2)
0x27884…278a0 20 73 6f 72 74 69 6e 67 20 6f 66 20 74 68 65 20 65 78 74 65 72 6e 61 6c 73 3b 0a 0a ┆ sorting of the externals; ┆
0x278a0…278c0 7a 6f 6e 65 20 7a 28 65 78 74 5f 75 73 65 64 20 73 68 69 66 74 20 28 2d 37 29 20 61 64 64 20 31 ┆zone z(ext_used shift (-7) add 1┆
0x278c0…278e0 20 73 68 69 66 74 20 37 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 63 6f 6d 6d 65 6e 74 20 74 68 ┆ shift 7,1,stderror); comment th┆
0x278e0…278fc 65 20 7a 6f 6e 65 20 7a 20 69 73 20 75 73 65 64 20 66 6f 72 20 69 6e 74 65 72 6e 61 ┆e zone z is used for interna┆
0x278fc…27902 (0x1f8,0x4f3)
0x27902…27920 6c 20 73 6f 72 74 69 6e 67 20 6f 66 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 72 65 66 65 ┆l sorting of the external refe┆
0x27920…27940 72 65 6e 63 65 73 3b 0a 69 6e 74 65 67 65 72 20 69 2c 6a 2c 6b 2c 6d 3b 0a 72 65 61 6c 20 74 65 ┆rences; integer i,j,k,m; real te┆
0x27940…27960 6d 70 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 73 68 65 6c 6c 73 6f 72 74 28 6d 61 78 65 78 74 29 ┆mp; procedure shellsort(maxext)┆
0x27960…2797a 3b 0a 76 61 6c 75 65 20 6d 61 78 65 78 74 3b 0a 69 6e 74 65 67 65 72 20 6d 61 ┆; value maxext; integer ma┆
0x2797a…27980 (0x1f8,0x4f4)
0x27980…279a0 78 65 78 74 3b 0a 62 65 67 69 6e 0a 20 20 73 77 6f 70 72 65 63 36 28 7a 2c 6d 61 78 65 78 74 2a ┆xext; begin swoprec6(z,maxext*┆
0x279a0…279c0 34 29 3b 0a 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 69 20 75 6e 74 69 6c 20 6d 61 78 65 78 74 ┆4); for i:=1 step i until maxext┆
0x279c0…279e0 20 64 6f 0a 20 20 6d 3a 3d 32 2a 69 2d 31 3b 0a 66 6f 72 20 6d 3a 3d 6d 2f 2f 32 20 77 68 69 6c ┆ do m:=2*i-1; for m:=m//2 whil┆
0x279e0…27a00 65 20 6d 20 3c 3e 20 30 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 6b 3a 00 00 00 00 00 00 00 00 ┆e m <> 0 do begin k: ┆
0x27a00…27a06 (317,) (0x1f8,0x4f5)
0x27a06…27a20 3d 6d 61 78 65 78 74 2d 6d 3b 0a 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 ┆=maxext-m; for j:=1 step┆
0x27a20…27a40 20 31 20 75 6e 74 69 6c 20 6b 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 66 6f 72 20 ┆ 1 until k do begin for ┆
0x27a40…27a60 69 3a 3d 6a 20 73 74 65 70 20 2d 6d 20 75 6e 74 69 6c 20 31 20 64 6f 0a 20 20 20 20 20 20 62 65 ┆i:=j step -m until 1 do be┆
0x27a60…27a7e 67 69 6e 0a 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 20 7a 28 69 2b 6d 29 20 3e 3d 20 6c 6f ┆gin if long z(i+m) >= lo┆
0x27a7e…27a84 (0x1f8,0x4f6)
0x27a84…27aa0 6e 67 20 7a 28 69 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 ┆ng z(i) then goto ne┆
0x27aa0…27ac0 78 74 5f 6a 3b 0a 20 20 20 20 20 20 74 65 6d 70 3a 3d 7a 28 69 29 3b 0a 20 20 20 20 20 20 7a 28 ┆xt_j; temp:=z(i); z(┆
0x27ac0…27ae0 69 29 3a 3d 7a 28 69 2b 6d 29 3b 0a 20 20 20 20 20 20 7a 28 69 2b 6d 29 3a 3d 74 65 6d 70 3b 0a ┆i):=z(i+m); z(i+m):=temp; ┆
0x27ae0…27afc 20 20 20 20 20 20 65 6e 64 20 69 3b 0a 6e 65 78 74 5f 6a 3a 0a 20 20 20 20 65 6e 64 ┆ end i; next_j: end┆
0x27afc…27b02 (0x1f8,0x4f7)
0x27b02…27b20 20 6a 3b 0a 20 20 65 6e 64 20 6d 3b 0a 65 6e 64 20 73 68 65 6c 6c 73 6f 72 74 3b 0a 0a 6f ┆ j; end m; end shellsort; o┆
0x27b20…27b40 70 65 6e 28 7a 2c 34 2c 3c 3a 65 78 74 65 72 6e 61 6c 73 3a 3e 2c 30 29 3b 0a 73 68 65 6c 6c 73 ┆pen(z,4,<:externals:>,0); shells┆
0x27b40…27b60 6f 72 74 28 65 78 74 75 73 65 64 29 3b 0a 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 6f 70 65 ┆ort(extused); close(z,true); ope┆
0x27b60…27b7a 6e 28 7a 2c 34 2c 3c 3a 65 78 74 64 65 66 3a 3e 2c 30 29 3b 0a 73 68 65 6c 6c ┆n(z,4,<:extdef:>,0); shell┆
0x27b7a…27b80 (0x1f8,0x4f8)
0x27b80…27ba0 73 6f 72 74 28 65 78 74 64 65 66 69 6e 65 64 29 3b 0a 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b ┆sort(extdefined); close(z,true);┆
0x27ba0…27bc0 0a 0a 65 6e 64 20 73 6f 72 74 69 6e 67 3b 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 73 6d 20 37 ┆ end sorting; comment sm 7┆
0x27bc0…27be0 35 2e 30 37 2e 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 ┆5.07.25 textxref ┆
0x27be0…27c00 20 20 20 70 61 67 65 20 2e 2e 2e 37 2e 2e 2e 0a 3b 0a 0a 0a 62 65 67 69 00 00 00 00 00 00 00 00 ┆ page ...7... ; begi ┆
0x27c00…27c06 (318,) (0x1f8,0x4f9)
0x27c06…27c20 6e 0a 0a 3c 2a 20 20 62 6c 6f 63 6b 20 6c 65 76 65 6c 20 32 2e 20 63 6f 76 65 ┆n <* block level 2. cove┆
0x27c20…27c40 72 73 20 72 65 73 74 20 6f 66 20 70 72 6f 67 72 61 6d 20 2a 3e 0a 0a 70 72 6f 63 65 64 75 72 65 ┆rs rest of program *> procedure┆
0x27c40…27c60 20 66 69 6c 65 6e 61 6d 65 28 66 69 6c 65 6e 75 6d 62 65 72 29 3b 0a 76 61 6c 75 65 20 66 69 6c ┆ filename(filenumber); value fil┆
0x27c60…27c7e 65 6e 75 6d 62 65 72 3b 0a 69 6e 74 65 67 65 72 20 66 69 6c 65 6e 75 6d 62 65 72 3b 0a 77 ┆enumber; integer filenumber; w┆
0x27c7e…27c84 (0x1f8,0x4fa)
0x27c84…27ca0 72 69 74 65 28 6f 75 74 2c 63 61 73 65 20 66 69 6c 65 6e 75 6d 62 65 72 20 6f 66 0a ┆rite(out,case filenumber of ┆
0x27ca0…27cc0 20 20 28 3c 3a 20 74 74 65 72 6d 32 20 20 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 74 74 65 72 6d 31 ┆ (<: tterm2 :>, <: tterm1┆
0x27cc0…27ce0 20 20 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 74 6a 6f 62 73 74 61 72 74 20 3a 3e 2c 0a 20 20 20 3c ┆ :>, <: tjobstart :>, <┆
0x27ce0…27cfc 3a 20 74 6a 6f 62 20 20 20 20 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 74 6d 6f 75 6e 74 ┆: tjob :>, <: tmount┆
0x27cfc…27d02 (0x1f8,0x4fb)
0x27d02…27d20 20 20 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 74 72 65 61 64 20 20 20 20 20 3a 3e 2c 0a 20 20 ┆ :>, <: tread :>, ┆
0x27d20…27d40 20 3c 3a 20 74 70 72 69 6e 74 65 72 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 74 70 72 6f 63 73 20 20 ┆ <: tprinter :>, <: tprocs ┆
0x27d40…27d60 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 74 62 61 6e 6b 65 72 20 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 ┆ :>, <: tbanker :>, <: ┆
0x27d60…27d7a 20 20 20 20 20 20 20 20 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 63 65 6e 74 72 61 ┆ :>, <: centra┆
0x27d7a…27d80 (0x1f8,0x4fc)
0x27d80…27da0 6c 20 20 20 3a 3e 2c 0a 20 20 20 3c 3a 20 6a 6f 62 64 65 73 63 72 5f 5f 3a 3e 29 29 3b 0a 3c 2a ┆l :>, <: jobdescr__:>)); <*┆
0x27da0…27dc0 20 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 66 69 6c 65 6e 61 6d 65 20 2a 3e 0a 0a 0a 0a 66 6f ┆ end procedure filename *> fo┆
0x27dc0…27de0 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 39 20 64 6f 0a 62 65 67 69 6e 0a 20 ┆r i:=1 step 1 until 9 do begin ┆
0x27de0…27e00 20 66 69 6c 65 6e 61 6d 65 28 69 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 00 00 00 00 00 00 00 00 ┆ filename(i); write(ou ┆
0x27e00…27e06 (319,) (0x1f8,0x4fd)
0x27e06…27e20 74 2c 3c 3a 20 20 20 20 20 3a 3e 2c 3c 3c 64 64 20 64 64 20 64 64 3e 2c 76 65 ┆t,<: :>,<<dd dd dd>,ve┆
0x27e20…27e40 72 73 69 6f 6e 69 64 28 31 2c 69 29 2c 3c 3c 64 64 64 64 64 64 64 64 3e 2c 76 65 72 73 69 6f 6e ┆rsionid(1,i),<<dddddddd>,version┆
0x27e40…27e60 69 64 28 32 2c 69 29 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 65 6e 64 3b 0a 0c 0a 63 6f 6d 6d 65 6e ┆id(2,i),<:<10>:>); end; commen┆
0x27e60…27e7e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆t lkn 75.09.10 ┆
0x27e7e…27e84 (0x1f8,0x4fe)
0x27e84…27ea0 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 20 2e 2e 2e 38 ┆ textxref page ...8┆
0x27ea0…27ec0 2e 2e 2e 0a 3b 0a 0a 0a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 20 49 6e 20 74 68 69 73 20 73 ┆... ; begin comment In this s┆
0x27ec0…27ee0 65 63 74 69 6f 6e 20 74 68 65 20 65 78 74 65 72 6e 61 6c 73 20 61 72 65 20 69 6e 70 75 74 20 66 ┆ection the externals are input f┆
0x27ee0…27efc 72 6f 6d 20 74 68 72 65 65 20 6c 69 73 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆rom three lists ┆
0x27efc…27f02 (0x1f8,0x4ff)
0x27f02…27f20 20 20 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 69 72 20 75 73 65 3a 0a 0a 20 20 ┆ according to their use: ┆
0x27f20…27f40 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 70 75 74 20 66 72 6f 6d 20 20 20 20 20 20 20 20 20 ┆ input from ┆
0x27f40…27f60 20 20 20 20 20 20 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ according to ┆
0x27f60…27f7a 20 20 20 66 69 6c 65 20 27 65 78 74 65 72 6e 61 6c 73 27 20 20 20 20 20 20 20 ┆ file 'externals' ┆
0x27f7a…27f80 (0x1f8,0x500)
0x27f80…27fa0 20 20 20 72 65 66 65 72 65 6e 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c ┆ references fil┆
0x27fa0…27fc0 65 20 27 65 78 74 64 65 66 27 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 69 74 69 6f ┆e 'extdef' definitio┆
0x27fc0…27fe0 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 6f 66 20 77 72 69 74 65 6c ┆ns call of writel┆
0x27fe0…28000 69 73 74 20 20 20 20 20 20 20 20 20 6e 61 6d 69 6e 67 73 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ist namings ┆
0x28000…28006 (320,) (0x1f8,0x501)
0x28006…28020 20 20 48 65 72 65 20 74 68 65 79 20 61 72 65 20 6d 65 72 67 65 64 20 61 6e 64 ┆ Here they are merged and┆
0x28020…28040 20 6f 75 74 70 75 74 20 6f 6e 20 61 20 62 73 2d 66 69 6c 65 20 27 6c 69 73 74 31 27 20 61 73 20 ┆ output on a bs-file 'list1' as ┆
0x28040…28060 72 65 63 6f 72 64 73 0a 20 20 20 20 20 20 6f 66 20 74 68 69 73 20 66 6f 72 6d 61 74 3a 0a 20 20 ┆records of this format: ┆
0x28060…2807e 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 ┆ byt┆
0x2807e…28084 (0x1f8,0x502)
0x28084…280a0 65 20 31 3a 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 20 6e 75 6d 62 65 72 0a 20 20 ┆e 1: external number ┆
0x280a0…280c0 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 32 3a 20 20 20 20 20 20 66 69 6c 65 20 6e ┆ byte 2: file n┆
0x280c0…280e0 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 32 3a 20 20 20 20 ┆umber word 2: ┆
0x280e0…280fc 20 20 6b 65 79 20 73 68 69 66 74 20 32 30 20 61 64 64 20 72 65 6c 61 74 69 76 65 0a ┆ key shift 20 add relative ┆
0x280fc…28102 (0x1f8,0x503)
0x28102…28120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 33 2d 34 3a 20 20 20 20 74 65 ┆ word 3-4: te┆
0x28120…28140 78 74 72 65 66 65 72 65 6e 63 65 0a 0a 20 20 20 20 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ┆xtreference The following┆
0x28140…28160 20 6b 65 79 73 20 61 72 65 20 75 73 65 64 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 ┆ keys are used: 0 ┆
0x28160…2817a 20 20 20 20 75 6e 75 73 65 64 20 65 78 74 65 72 6e 61 6c 0a 20 20 20 20 20 20 ┆ unused external ┆
0x2817a…28180 (0x1f8,0x504)
0x28180…281a0 20 20 20 20 20 20 31 20 20 20 20 20 20 20 75 73 65 64 2c 20 6e 6f 74 20 6e 61 6d 65 64 0a 20 20 ┆ 1 used, not named ┆
0x281a0…281c0 20 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 20 72 65 66 65 72 65 6e 63 65 64 2c 20 6e 6f ┆ 2 referenced, no┆
0x281c0…281e0 74 20 64 65 66 69 6e 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 20 20 20 20 20 64 65 ┆t defined 3 de┆
0x281e0…28200 66 69 6e 65 64 2c 20 6e 6f 74 20 72 65 66 65 72 65 6e 63 65 64 0a 20 20 00 00 00 00 00 00 00 00 ┆fined, not referenced ┆
0x28200…28206 (321,) (0x1f8,0x505)
0x28206…28220 20 20 20 20 20 20 20 20 20 20 34 20 20 20 20 20 20 20 72 65 66 65 72 65 6e 63 ┆ 4 referenc┆
0x28220…28240 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 35 20 20 20 20 20 20 20 6e 61 6d 65 64 20 75 6e 75 ┆ed 5 named unu┆
0x28240…28260 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 20 20 20 20 20 6d 75 6c 74 69 70 6c 79 ┆sed 6 multiply┆
0x28260…2827e 20 64 65 66 69 6e 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 37 20 20 20 20 20 20 20 64 ┆ defined 7 d┆
0x2827e…28284 (0x1f8,0x506)
0x28284…282a0 65 66 69 6e 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 31 35 20 20 20 20 20 20 20 73 ┆efined 15 s┆
0x282a0…282c0 74 6f 70 20 6b 65 79 0a 3b 0a 20 20 69 6e 74 65 67 65 72 20 78 72 65 66 2c 78 64 65 66 2c 66 69 ┆top key ; integer xref,xdef,fi┆
0x282c0…282e0 6c 72 65 66 2c 66 69 6c 64 65 66 2c 72 65 6c 72 65 66 2c 72 65 6c 64 65 66 2c 78 67 6c 6f 62 2c ┆lref,fildef,relref,reldef,xglob,┆
0x282e0…282fc 64 6f 75 62 6c 65 64 65 66 2c 69 3b 0a 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 ┆doubledef,i; integer field┆
0x282fc…28302 (0x1f8,0x507)
0x28302…28320 20 72 2c 78 66 3b 0a 20 20 62 6f 6f 6c 65 61 6e 20 66 69 65 6c 64 20 78 2c 66 3b 0a 20 20 ┆ r,xf; boolean field x,f; ┆
0x28320…28340 72 65 61 6c 20 66 69 65 6c 64 20 74 3b 0a 20 20 7a 6f 6e 65 20 7a 2c 7a 64 65 66 2c 75 64 7a 2c ┆real field t; zone z,zdef,udz,┆
0x28340…28360 65 78 74 6e 61 6d 65 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 0a 20 20 70 72 6f 63 ┆extname(128,1,stderror); proc┆
0x28360…2837a 65 64 75 72 65 20 73 61 76 65 28 6c 69 73 74 2c 65 78 74 2c 66 69 6c 2c 72 65 ┆edure save(list,ext,fil,re┆
0x2837a…28380 (0x1f8,0x508)
0x28380…283a0 6c 2c 74 65 78 74 29 3b 0a 20 20 63 6f 6d 6d 65 6e 74 20 20 20 6f 75 74 70 75 74 73 20 72 65 63 ┆l,text); comment outputs rec┆
0x283a0…283c0 6f 72 64 73 20 6f 66 20 6d 65 72 67 65 64 20 65 78 74 65 72 6e 61 6c 73 20 6f 6e 20 27 6c 69 73 ┆ords of merged externals on 'lis┆
0x283c0…283e0 74 31 27 3b 0a 20 20 76 61 6c 75 65 20 6c 69 73 74 2c 65 78 74 2c 66 69 6c 2c 72 65 6c 3b 0a 20 ┆t1'; value list,ext,fil,rel; ┆
0x283e0…28400 20 69 6e 74 65 67 65 72 20 6c 69 73 74 2c 65 78 74 2c 66 69 6c 2c 72 65 00 00 00 00 00 00 00 00 ┆ integer list,ext,fil,re ┆
0x28400…28406 (322,) (0x1f8,0x509)
0x28406…28420 6c 3b 0a 20 20 73 74 72 69 6e 67 20 74 65 78 74 3b 0a 20 20 62 65 67 69 6e 0a ┆l; string text; begin ┆
0x28420…28440 20 20 20 20 6f 75 74 72 65 63 36 28 75 64 7a 2c 38 29 3b 0a 20 20 20 20 75 64 7a 2e 78 66 3a 3d ┆ outrec6(udz,8); udz.xf:=┆
0x28440…28460 65 78 74 20 73 68 69 66 74 20 31 32 2b 66 69 6c 3b 0a 20 20 20 20 75 64 7a 2e 72 3a 3d 6c 69 73 ┆ext shift 12+fil; udz.r:=lis┆
0x28460…2847e 74 20 73 68 69 66 74 20 32 30 20 61 64 64 20 28 72 65 6c 20 65 78 74 72 61 63 74 20 32 30 ┆t shift 20 add (rel extract 20┆
0x2847e…28484 (0x1f8,0x50a)
0x28484…284a0 29 3b 0a 20 20 20 20 75 64 7a 2e 74 3a 3d 72 65 61 6c 20 74 65 78 74 3b 0a 20 20 65 ┆); udz.t:=real text; e┆
0x284a0…284c0 6e 64 20 73 61 76 65 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 65 6e 74 72 61 6c 28 70 61 ┆nd save; procedure central(pa┆
0x284c0…284e0 67 65 2c 74 79 70 65 29 3b 20 20 20 20 76 61 6c 75 65 20 70 61 67 65 2c 74 79 70 65 3b 0a 20 20 ┆ge,type); value page,type; ┆
0x284e0…284fc 72 65 61 6c 20 70 61 67 65 3b 0a 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 3b 0a 20 ┆real page; integer type; ┆
0x284fc…28502 (0x1f8,0x50b)
0x28502…28520 20 62 65 67 69 6e 0a 20 20 3c 2a 6f 75 74 70 75 74 20 61 20 73 70 65 63 69 61 6c 20 6e 61 ┆ begin <*output a special na┆
0x28520…28540 6d 65 20 72 65 63 6f 72 64 20 66 6f 72 20 64 65 66 20 61 6e 64 20 72 65 20 69 6e 20 63 65 6e 74 ┆me record for def and re in cent┆
0x28540…28560 72 61 6c 2e 0a 20 20 20 20 66 6f 72 6d 61 74 3a 20 77 6f 72 64 31 3a 20 65 78 74 65 72 6e 61 6c ┆ral. format: word1: external┆
0x28560…2857a 20 6e 6f 20 20 28 73 65 65 20 61 6c 73 6f 20 77 72 69 74 65 6c 69 73 74 29 0a ┆ no (see also writelist) ┆
0x2857a…28580 (0x1f8,0x50c)
0x28580…285a0 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 32 3a 20 74 79 70 65 2e 20 31 30 31 3d 64 65 66 ┆ word2: type. 101=def┆
0x285a0…285c0 69 6e 20 69 6e 20 63 65 6e 74 72 61 6c 2c 20 31 30 32 3d 72 65 66 20 69 6e 20 63 65 6e 74 72 61 ┆in in central, 102=ref in centra┆
0x285c0…285e0 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 33 3a 20 70 61 67 65 20 72 65 66 0a 20 ┆l. word3: page ref ┆
0x285e0…28600 20 20 20 20 20 20 20 20 77 6f 72 64 20 34 2d 35 3a 20 3d 3c 3a 3a 3e 0a 00 00 00 00 00 00 00 00 ┆ word 4-5: =<::> ┆
0x28600…28606 (323,) (0x1f8,0x50d)
0x28606…28620 20 20 2a 3e 0a 20 20 6f 75 74 72 65 63 36 28 65 78 74 6e 61 6d 65 2c 31 30 29 ┆ *> outrec6(extname,10)┆
0x28620…28640 3b 0a 20 20 65 78 74 6e 61 6d 65 2e 77 31 3a 3d 20 78 67 6c 6f 62 3b 0a 20 20 65 78 74 6e 61 6d ┆; extname.w1:= xglob; extnam┆
0x28640…28660 65 2e 77 32 3a 3d 20 74 79 70 65 2b 31 30 30 3b 0a 20 20 65 78 74 6e 61 6d 65 2e 77 33 3a 3d 20 ┆e.w2:= type+100; extname.w3:= ┆
0x28660…2867e 72 6f 75 6e 64 28 70 61 67 65 2a 31 30 29 3b 0a 20 20 65 78 74 6e 61 6d 65 2e 72 35 3a 3d ┆round(page*10); extname.r5:=┆
0x2867e…28684 (0x1f8,0x50e)
0x28684…286a0 20 72 65 61 6c 3c 3a 3a 3e 3b 0a 20 20 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 63 ┆ real<::>; end procedure c┆
0x286a0…286c0 65 6e 74 72 61 6c 3b 0a 20 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 ┆entral; comment lkn 75.09┆
0x286c0…286e0 2e 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 ┆.10 textxref ┆
0x286e0…286fc 20 70 61 67 65 20 20 2e 2e 2e 39 2e 2e 2e 0a 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 ┆ page ...9... ; procedur┆
0x286fc…28702 (0x1f8,0x50f)
0x28702…28720 65 20 77 72 69 74 65 6c 69 73 74 28 78 6e 61 6d 65 2c 66 69 6c 6e 61 6d 65 2c 72 65 6c 6e ┆e writelist(xname,filname,reln┆
0x28720…28740 61 6d 65 2c 65 78 70 6c 61 6e 29 3b 0a 20 20 63 6f 6d 6d 65 6e 74 20 20 20 74 68 69 73 20 70 72 ┆ame,explan); comment this pr┆
0x28740…28760 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64 20 6f 6e 6c 79 20 74 6f 20 63 6f 6e 6e 65 63 ┆ocedure is called only to connec┆
0x28760…2877a 74 20 6e 61 6d 65 73 20 74 6f 20 65 78 2d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆t names to ex- ┆
0x2877a…28780 (0x1f8,0x510)
0x28780…287a0 20 74 65 72 6e 61 6c 73 2e 20 54 68 65 20 76 65 72 79 20 6d 65 72 67 69 6e 67 20 69 73 20 67 6f ┆ ternals. The very merging is go┆
0x287a0…287c0 69 6e 67 20 6f 6e 20 68 65 72 65 2c 20 62 75 74 20 69 74 20 69 73 0a 20 20 20 20 20 20 20 20 20 ┆ing on here, but it is ┆
0x287c0…287e0 20 20 20 73 74 65 70 70 69 6e 67 20 74 68 72 6f 75 67 68 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 ┆ stepping through all possible┆
0x287e0…28800 20 65 78 74 65 72 6e 61 6c 73 20 66 72 6f 6d 20 2d 31 32 20 74 6f 20 35 00 00 00 00 00 00 00 00 ┆ externals from -12 to 5 ┆
0x28800…28806 (324,) (0x1f8,0x511)
0x28806…28820 35 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 63 6f 72 64 69 6e 67 20 ┆50 (according ┆
0x28820…28840 74 6f 20 61 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 78 67 6c 6f 62 29 20 69 6e 64 65 ┆to a global variable xglob) inde┆
0x28840…28860 70 65 6e 64 65 6e 74 6c 79 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 70 72 6f ┆pendently of the pro┆
0x28860…2887e 63 65 64 75 72 65 20 63 61 6c 6c 73 20 20 2d 20 20 77 68 65 6e 20 74 68 65 72 65 20 6f 6e ┆cedure calls - when there on┆
0x2887e…28884 (0x1f8,0x512)
0x28884…288a0 6c 79 20 69 73 20 6f 6e 65 20 63 61 6c 6c 20 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 ┆ly is one call not ┆
0x288a0…288c0 20 20 20 6c 6f 77 65 72 20 74 68 61 6e 20 35 35 30 3b 0a 20 20 76 61 6c 75 65 20 78 6e 61 6d 65 ┆ lower than 550; value xname┆
0x288c0…288e0 2c 66 69 6c 6e 61 6d 65 2c 72 65 6c 6e 61 6d 65 3b 0a 20 20 69 6e 74 65 67 65 72 20 78 6e 61 6d ┆,filname,relname; integer xnam┆
0x288e0…288fc 65 2c 66 69 6c 6e 61 6d 65 3b 0a 20 20 72 65 61 6c 20 72 65 6c 6e 61 6d 65 3b 0a 20 ┆e,filname; real relname; ┆
0x288fc…28902 (0x1f8,0x513)
0x28902…28920 20 73 74 72 69 6e 67 20 65 78 70 6c 61 6e 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e ┆ string explan; begin in┆
0x28920…28940 74 65 67 65 72 20 73 74 61 74 65 2c 6f 6c 64 67 6c 6f 62 3b 0a 20 20 20 20 6f 6c 64 67 6c 6f 62 ┆teger state,oldglob; oldglob┆
0x28940…28960 3a 3d 2d 35 30 3b 0a 20 20 20 20 3c 2a 20 6f 6e 65 20 6e 61 6d 65 20 72 65 63 6f 72 64 20 70 72 ┆:=-50; <* one name record pr┆
0x28960…2897a 6f 64 75 63 65 64 20 66 6f 72 20 65 76 65 72 79 20 63 61 6c 6c 20 6f 66 20 77 ┆oduced for every call of w┆
0x2897a…28980 (0x1f8,0x514)
0x28980…289a0 72 69 74 65 6c 69 73 74 2e 0a 20 20 20 20 20 20 20 66 6f 72 6d 61 74 3a 20 20 20 28 73 65 65 20 ┆ritelist. format: (see ┆
0x289a0…289c0 61 6c 73 6f 20 70 72 6f 63 20 63 65 6e 74 72 61 6c 29 0a 20 20 20 20 20 20 20 77 6f 72 64 20 20 ┆also proc central) word ┆
0x289c0…289e0 20 31 3a 20 65 78 74 65 72 6e 61 6c 20 6e 6f 0a 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 32 3a ┆ 1: external no word 2:┆
0x289e0…28a00 20 66 69 6c 65 6e 61 6d 65 20 28 6e 75 6d 62 65 72 2c 20 31 2d 31 33 29 00 00 00 00 00 00 00 00 ┆ filename (number, 1-13) ┆
0x28a00…28a06 (325,) (0x1f8,0x515)
0x28a06…28a20 0a 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 33 3a 20 70 61 67 65 2d 72 65 66 ┆ word 3: page-ref┆
0x28a20…28a40 65 72 65 6e 63 65 20 28 70 61 67 65 2a 31 30 20 2b 20 73 75 62 70 61 67 65 20 29 0a 20 20 20 20 ┆erence (page*10 + subpage ) ┆
0x28a40…28a60 20 20 20 77 6f 72 64 20 34 2d 35 3a 20 74 65 78 74 20 72 65 66 65 72 65 6e 63 65 0a 20 20 20 20 ┆ word 4-5: text reference ┆
0x28a60…28a7e 2a 3e 0a 20 20 20 20 6f 75 74 72 65 63 36 28 65 78 74 6e 61 6d 65 2c 31 30 29 3b 0a 20 20 ┆*> outrec6(extname,10); ┆
0x28a7e…28a84 (0x1f8,0x516)
0x28a84…28aa0 20 20 65 78 74 6e 61 6d 65 2e 77 31 3a 3d 20 78 6e 61 6d 65 3b 0a 20 20 20 20 65 78 ┆ extname.w1:= xname; ex┆
0x28aa0…28ac0 74 6e 61 6d 65 2e 77 32 3a 3d 20 66 69 6c 6e 61 6d 65 3b 0a 20 20 20 20 65 78 74 6e 61 6d 65 2e ┆tname.w2:= filname; extname.┆
0x28ac0…28ae0 77 33 3a 3d 20 72 6f 75 6e 64 28 72 65 6c 6e 61 6d 65 2a 31 30 29 3b 0a 20 20 20 20 65 78 74 6e ┆w3:= round(relname*10); extn┆
0x28ae0…28afc 61 6d 65 2e 72 35 3a 3d 20 72 65 61 6c 20 65 78 70 6c 61 6e 3b 0a 6e 65 77 65 78 74 ┆ame.r5:= real explan; newext┆
0x28afc…28b02 (0x1f8,0x517)
0x28b02…28b20 3a 0a 20 20 20 20 73 74 61 74 65 3a 3d 31 3b 0a 20 20 20 20 78 67 6c 6f 62 3a 3d 78 67 6c ┆: state:=1; xglob:=xgl┆
0x28b20…28b40 6f 62 2b 31 3b 0a 20 20 20 20 69 66 20 78 67 6c 6f 62 3e 35 35 30 20 74 68 65 6e 20 67 6f 74 6f ┆ob+1; if xglob>550 then goto┆
0x28b40…28b60 20 61 66 74 65 72 6c 61 73 74 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 37 ┆ afterlast; comment lkn 7┆
0x28b60…28b7a 35 2e 30 39 2e 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆5.09.10 t┆
0x28b7a…28b80 (0x1f8,0x518)
0x28b80…28ba0 65 78 74 78 72 65 66 20 20 20 20 20 70 61 67 65 20 2e 2e 2e 31 30 2e 2e 2e 0a 3b 0a 0a 0a 20 20 ┆extxref page ...10... ; ┆
0x28ba0…28bc0 20 20 69 66 20 78 72 65 66 3d 78 67 6c 6f 62 20 74 68 65 6e 20 73 74 61 74 65 3a 3d 73 74 61 74 ┆ if xref=xglob then state:=stat┆
0x28bc0…28be0 65 2b 31 3b 0a 20 20 20 20 69 66 20 78 64 65 66 3d 78 67 6c 6f 62 20 74 68 65 6e 20 73 74 61 74 ┆e+1; if xdef=xglob then stat┆
0x28be0…28c00 65 3a 3d 73 74 61 74 65 2b 32 3b 0a 20 20 20 20 69 66 20 78 6e 61 6d 65 00 00 00 00 00 00 00 00 ┆e:=state+2; if xname ┆
0x28c00…28c06 (326,) (0x1f8,0x519)
0x28c06…28c20 3d 78 67 6c 6f 62 20 74 68 65 6e 20 73 74 61 74 65 3a 3d 73 74 61 74 65 2b 34 ┆=xglob then state:=state+4┆
0x28c20…28c40 3b 0a 0a 6e 65 77 63 61 73 65 3a 0a 20 20 20 20 63 61 73 65 20 73 74 61 74 65 20 6f 66 0a 20 20 ┆; newcase: case state of ┆
0x28c40…28c60 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 28 30 2c 78 67 6c 6f 62 2c 30 2c 30 2c 3c ┆ begin save(0,xglob,0,0,<┆
0x28c60…28c7e 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 ┆::>); begin save┆
0x28c7e…28c84 (0x1f8,0x51a)
0x28c84…28ca0 28 31 2c 78 67 6c 6f 62 2c 30 2c 30 2c 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 ┆(1,xglob,0,0,<::>); ┆
0x28ca0…28cc0 73 61 76 65 28 32 2c 78 67 6c 6f 62 2c 30 2c 30 2c 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 ┆save(2,xglob,0,0,<::>); ┆
0x28cc0…28ce0 73 61 76 65 28 34 2c 78 67 6c 6f 62 2c 66 69 6c 72 65 66 2c 72 65 6c 72 65 66 2c 3c 3a 3a 3e 29 ┆save(4,xglob,filref,relref,<::>)┆
0x28ce0…28cfc 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆; end; begin ┆
0x28cfc…28d02 (0x1f8,0x51b)
0x28d02…28d20 20 20 20 20 20 73 61 76 65 28 31 2c 78 67 6c 6f 62 2c 30 2c 30 2c 3c 3a 3a 3e 29 3b 0a 20 ┆ save(1,xglob,0,0,<::>); ┆
0x28d20…28d40 20 20 20 20 20 20 20 73 61 76 65 28 33 2c 78 67 6c 6f 62 2c 66 69 6c 64 65 66 2c 72 65 6c 64 65 ┆ save(3,xglob,fildef,relde┆
0x28d40…28d60 66 2c 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆f,<::>); end; begin ┆
0x28d60…28d7a 20 20 20 20 20 20 20 20 73 61 76 65 28 31 2c 78 67 6c 6f 62 2c 30 2c 30 2c 3c ┆ save(1,xglob,0,0,<┆
0x28d7a…28d80 (0x1f8,0x51c)
0x28d80…28da0 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 28 34 2c 78 67 6c 6f 62 2c 66 69 6c 72 65 ┆::>); save(4,xglob,filre┆
0x28da0…28dc0 66 2c 72 65 6c 72 65 66 2c 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆f,relref,<::>); end; ┆
0x28dc0…28de0 20 73 61 76 65 28 35 2c 78 67 6c 6f 62 2c 66 69 6c 6e 61 6d 65 2c 72 6f 75 6e 64 28 72 65 6c 6e ┆ save(5,xglob,filname,round(reln┆
0x28de0…28e00 61 6d 65 2a 31 30 29 2c 20 65 78 70 6c 61 6e 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ame*10), explan); ┆
0x28e00…28e06 (327,) (0x1f8,0x51d)
0x28e06…28e20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 78 67 6c 6f 62 3c 3e 6f 6c ┆begin if xglob<>ol┆
0x28e20…28e40 64 67 6c 6f 62 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆dglob then begin ┆
0x28e40…28e60 20 20 20 69 66 20 66 69 6c 6e 61 6d 65 3d 34 20 74 68 65 6e 20 73 61 76 65 28 37 2c 78 67 6c 6f ┆ if filname=4 then save(7,xglo┆
0x28e60…28e7e 62 2c 66 69 6c 6e 61 6d 65 2b 31 30 2c 72 6f 75 6e 64 28 72 65 6c 6e 61 6d 65 2a 31 30 29 ┆b,filname+10,round(relname*10)┆
0x28e7e…28e84 (0x1f8,0x51e)
0x28e84…28ea0 2c 65 78 70 6c 61 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,explan) ┆
0x28ea0…28ec0 20 20 20 20 65 6c 73 65 20 73 61 76 65 28 32 2c 78 67 6c 6f 62 2c 30 2c 30 2c 65 78 70 6c 61 6e ┆ else save(2,xglob,0,0,explan┆
0x28ec0…28ee0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 6c 64 67 6c 6f 62 3a 3d 78 67 6c 6f 62 3b 0a 20 20 20 ┆); oldglob:=xglob; ┆
0x28ee0…28efc 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 28 34 2c 78 67 6c ┆ end; save(4,xgl┆
0x28efc…28f02 (0x1f8,0x51f)
0x28f02…28f20 6f 62 2c 66 69 6c 72 65 66 2c 72 65 6c 72 65 66 2c 65 78 70 6c 61 6e 29 3b 0a 20 20 20 20 ┆ob,filref,relref,explan); ┆
0x28f20…28f40 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 73 61 76 65 28 33 2c 78 67 6c 6f 62 2c 66 69 6c 64 65 66 ┆ end; save(3,xglob,fildef┆
0x28f40…28f60 2c 72 65 6c 64 65 66 2c 65 78 70 6c 61 6e 29 3b 0a 20 20 20 20 20 20 73 61 76 65 28 34 2c 78 67 ┆,reldef,explan); save(4,xg┆
0x28f60…28f7a 6c 6f 62 2c 66 69 6c 72 65 66 2c 72 65 6c 72 65 66 2c 65 78 70 6c 61 6e 29 3b ┆lob,filref,relref,explan);┆
0x28f7a…28f80 (0x1f8,0x520)
0x28f80…28fa0 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 69 66 20 78 72 65 66 3d 78 67 6c 6f 62 20 74 68 65 ┆ end; if xref=xglob the┆
0x28fa0…28fc0 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 65 78 74 75 73 65 64 3e 30 20 74 ┆n begin if extused>0 t┆
0x28fc0…28fe0 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a ┆hen begin inrec6(z┆
0x28fe0…29000 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 65 78 74 75 73 65 64 3a 3d 65 78 00 00 00 00 00 00 00 00 ┆,4); extused:=ex ┆
0x29000…29006 (328,) (0x1f8,0x521)
0x29006…29020 74 75 73 65 64 2d 31 3b 0a 20 20 20 20 20 20 20 20 78 72 65 66 3a 3d 73 69 67 ┆tused-1; xref:=sig┆
0x29020…29040 6e 69 6e 74 28 7a 2e 78 29 3b 0a 20 20 20 20 20 20 20 20 66 69 6c 72 65 66 3a 3d 73 69 67 6e 69 ┆nint(z.x); filref:=signi┆
0x29040…29060 6e 74 28 7a 2e 66 29 3b 0a 20 20 20 20 20 20 20 20 72 65 6c 72 65 66 3a 3d 7a 2e 72 3b 0a 20 20 ┆nt(z.f); relref:=z.r; ┆
0x29060…2907e 20 20 20 20 65 6e 64 20 65 6c 73 65 20 78 72 65 66 3a 3d 31 30 30 30 3b 0a 20 20 20 20 20 ┆ end else xref:=1000; ┆
0x2907e…29084 (0x1f8,0x522)
0x29084…290a0 20 69 66 20 78 72 65 66 3d 78 67 6c 6f 62 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 77 ┆ if xref=xglob then goto new┆
0x290a0…290c0 63 61 73 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 0a 20 20 20 20 69 66 20 78 64 65 66 3d ┆case; end; if xdef=┆
0x290c0…290e0 78 67 6c 6f 62 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 6e 65 77 64 65 66 3a 0a 20 20 20 ┆xglob then begin newdef: ┆
0x290e0…290fc 20 20 20 73 61 76 65 28 37 2c 78 64 65 66 2c 66 69 6c 64 65 66 2c 72 65 6c 64 65 66 ┆ save(7,xdef,fildef,reldef┆
0x290fc…29102 (0x1f8,0x523)
0x29102…29120 2c 69 66 20 78 64 65 66 3d 78 6e 61 6d 65 20 74 68 65 6e 20 65 78 70 6c 61 6e 20 65 6c 73 ┆,if xdef=xname then explan els┆
0x29120…29140 65 20 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 69 66 20 65 78 74 64 65 66 69 6e 65 64 3e 30 20 74 ┆e <::>); if extdefined>0 t┆
0x29140…29160 68 65 6e 20 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 ┆hen begin inrec6(┆
0x29160…2917a 7a 64 65 66 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 65 78 74 64 65 66 69 6e 65 ┆zdef,4); extdefine┆
0x2917a…29180 (0x1f8,0x524)
0x29180…291a0 64 3a 3d 65 78 74 64 65 66 69 6e 65 64 2d 31 3b 0a 20 20 20 20 20 20 20 20 78 64 65 66 3a 3d 73 ┆d:=extdefined-1; xdef:=s┆
0x291a0…291c0 69 67 6e 69 6e 74 28 7a 64 65 66 2e 78 29 3b 0a 20 20 20 20 20 20 20 20 66 69 6c 64 65 66 3a 3d ┆ignint(zdef.x); fildef:=┆
0x291c0…291e0 73 69 67 6e 69 6e 74 28 7a 64 65 66 2e 66 29 3b 0a 20 20 20 20 20 20 20 20 72 65 6c 64 65 66 3a ┆signint(zdef.f); reldef:┆
0x291e0…29200 3d 7a 64 65 66 2e 72 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 00 00 00 00 00 00 00 00 ┆=zdef.r; end else ┆
0x29200…29206 (329,) (0x1f8,0x525)
0x29206…29220 78 64 65 66 3a 3d 31 30 30 30 3b 0a 20 20 20 20 20 20 69 66 20 78 64 65 66 3d ┆xdef:=1000; if xdef=┆
0x29220…29240 78 67 6c 6f 62 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 ┆xglob then begin i┆
0x29240…29260 66 20 78 64 65 66 3c 3e 64 6f 75 62 6c 65 64 65 66 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 73 ┆f xdef<>doubledef then s┆
0x29260…2927e 61 76 65 28 36 2c 78 64 65 66 2c 30 2c 30 2c 69 66 20 78 64 65 66 3d 78 6e 61 6d 65 20 74 ┆ave(6,xdef,0,0,if xdef=xname t┆
0x2927e…29284 (0x1f8,0x526)
0x29284…292a0 68 65 6e 20 65 78 70 6c 61 6e 20 65 6c 73 65 20 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 ┆hen explan else <::>); ┆
0x292a0…292c0 20 20 20 64 6f 75 62 6c 65 64 65 66 3a 3d 78 64 65 66 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f ┆ doubledef:=xdef; goto┆
0x292c0…292e0 20 6e 65 77 64 65 66 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆ newdef; end; end; ┆
0x292e0…292fc 20 20 69 66 20 78 67 6c 6f 62 3c 78 6e 61 6d 65 20 20 74 68 65 6e 20 67 6f 74 6f 20 ┆ if xglob<xname then goto ┆
0x292fc…29302 (0x1f8,0x527)
0x29302…29320 6e 65 77 65 78 74 3b 0a 61 66 74 65 72 6c 61 73 74 3a 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 ┆newext; afterlast: end; ┆
0x29320…29340 78 3a 3d 31 3b 20 66 3a 3d 32 3b 20 78 66 3a 3d 32 3b 20 72 3a 3d 34 3b 20 74 3a 3d 38 3b 20 78 ┆x:=1; f:=2; xf:=2; r:=4; t:=8; x┆
0x29340…29360 67 6c 6f 62 3a 3d 2d 31 33 3b 20 64 6f 75 62 6c 65 64 65 66 3a 3d 2d 32 35 3b 0a 20 20 6f 70 65 ┆glob:=-13; doubledef:=-25; ope┆
0x29360…2937a 6e 28 75 64 7a 2c 34 2c 3c 3a 6c 69 73 74 31 3a 3e 2c 30 29 3b 0a 20 20 6f 70 ┆n(udz,4,<:list1:>,0); op┆
0x2937a…29380 (0x1f8,0x528)
0x29380…293a0 65 6e 28 7a 64 65 66 2c 34 2c 3c 3a 65 78 74 64 65 66 3a 3e 2c 30 29 3b 0a 20 20 6f 70 65 6e 28 ┆en(zdef,4,<:extdef:>,0); open(┆
0x293a0…293c0 7a 2c 34 2c 3c 3a 65 78 74 65 72 6e 61 6c 73 3a 3e 2c 30 29 3b 0a 20 20 6f 70 65 6e 28 65 78 74 ┆z,4,<:externals:>,0); open(ext┆
0x293c0…293e0 6e 61 6d 65 2c 34 2c 3c 3a 65 78 74 6e 61 6d 65 3a 3e 2c 30 29 3b 0a 20 20 69 6e 72 65 63 36 28 ┆name,4,<:extname:>,0); inrec6(┆
0x293e0…29400 7a 2c 34 29 3b 0a 20 20 78 72 65 66 3a 3d 73 69 67 6e 69 6e 74 28 7a 2e 00 00 00 00 00 00 00 00 ┆z,4); xref:=signint(z. ┆
0x29400…29406 (330,) (0x1f8,0x529)
0x29406…29420 78 29 3b 0a 20 20 66 69 6c 72 65 66 3a 3d 73 69 67 6e 69 6e 74 28 7a 2e 66 29 ┆x); filref:=signint(z.f)┆
0x29420…29440 3b 0a 20 20 72 65 6c 72 65 66 3a 3d 7a 2e 72 3b 0a 20 20 65 78 74 75 73 65 64 3a 3d 65 78 74 75 ┆; relref:=z.r; extused:=extu┆
0x29440…29460 73 65 64 2d 31 3b 0a 20 20 69 6e 72 65 63 36 28 7a 64 65 66 2c 34 29 3b 0a 20 20 78 64 65 66 3a ┆sed-1; inrec6(zdef,4); xdef:┆
0x29460…2947e 3d 73 69 67 6e 69 6e 74 28 7a 64 65 66 2e 78 29 3b 0a 20 20 66 69 6c 64 65 66 3a 3d 73 69 ┆=signint(zdef.x); fildef:=si┆
0x2947e…29484 (0x1f8,0x52a)
0x29484…294a0 67 6e 69 6e 74 28 7a 64 65 66 2e 66 29 3b 0a 20 20 72 65 6c 64 65 66 3a 3d 7a 64 65 ┆gnint(zdef.f); reldef:=zde┆
0x294a0…294c0 66 2e 72 3b 0a 20 20 65 78 74 64 65 66 69 6e 65 64 3a 3d 65 78 74 64 65 66 69 6e 65 64 2d 31 3b ┆f.r; extdefined:=extdefined-1;┆
0x294c0…294e0 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 20 20 20 20 ┆ comment lkn 75.09.10 ┆
0x294e0…294fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 ┆ textxref pag┆
0x294fc…29502 (0x1f8,0x52b)
0x29502…29520 65 20 20 2e 2e 2e 31 31 2e 2e 2e 0a 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d 31 30 ┆e ...11... ; writelist(-10┆
0x29520…29540 2c 31 33 2c 35 2e 30 2c 3c 3a 72 65 6c 3a 20 66 72 65 65 2d 74 6f 74 61 6c 20 28 64 31 30 2d 64 ┆,13,5.0,<:rel: free-total (d10-d┆
0x29540…29560 31 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d 39 2c 31 33 2c 35 2e 30 2c 3c ┆12):>); writelist(-9,13,5.0,<┆
0x29560…2957a 3a 72 65 6c 3a 20 74 6f 74 61 6c 2d 6d 61 72 67 69 6e 20 28 64 31 32 2d 64 31 ┆:rel: total-margin (d12-d1┆
0x2957a…29580 (0x1f8,0x52c)
0x29580…295a0 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d 38 2c 37 2c 31 34 2e 30 2c 3c 3a ┆3):>); writelist(-8,7,14.0,<:┆
0x295a0…295c0 64 65 76 69 63 65 20 6d 61 73 6b 20 32 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d ┆device mask 2:>); writelist(-┆
0x295c0…295e0 37 2c 37 2c 31 34 2e 30 2c 3c 3a 64 65 76 69 63 65 20 6d 61 73 6b 20 31 3a 3e 29 3b 0a 20 20 20 ┆7,7,14.0,<:device mask 1:>); ┆
0x295e0…29600 77 72 69 74 65 6c 69 73 74 28 2d 36 2c 37 2c 31 34 2e 30 2c 3c 3a 64 65 00 00 00 00 00 00 00 00 ┆writelist(-6,7,14.0,<:de ┆
0x29600…29606 (331,) (0x1f8,0x52d)
0x29606…29620 76 69 63 65 20 62 69 74 73 20 32 20 66 6f 72 20 62 61 6e 6b 65 72 3a 3e 29 3b ┆vice bits 2 for banker:>);┆
0x29620…29640 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d 35 2c 37 2c 31 34 2e 30 2c 3c 3a 64 65 76 69 63 65 ┆ writelist(-5,7,14.0,<:device┆
0x29640…29660 20 62 69 74 73 20 31 20 66 6f 72 20 62 61 6e 6b 65 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆ bits 1 for banker:>); writel┆
0x29660…2967e 69 73 74 28 2d 34 2c 37 2c 31 34 2e 30 2c 3c 3a 62 6f 73 73 20 73 74 64 20 69 6e 74 65 72 ┆ist(-4,7,14.0,<:boss std inter┆
0x2967e…29684 (0x1f8,0x52e)
0x29684…296a0 76 61 6c 20 75 70 70 65 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d ┆val upper:>); writelist(-┆
0x296a0…296c0 33 2c 37 2c 31 34 2e 30 2c 3c 3a 62 6f 73 73 20 73 74 64 20 69 6e 74 65 72 76 61 6c 20 6c 6f 77 ┆3,7,14.0,<:boss std interval low┆
0x296c0…296e0 65 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d 32 2c 31 31 2c 34 34 2e 30 2c 3c ┆er:>); writelist(-2,11,44.0,<┆
0x296e0…296fc 3a 62 6f 73 73 20 70 72 69 76 61 74 65 20 69 6e 74 65 72 76 61 6c 20 75 70 70 65 72 ┆:boss private interval upper┆
0x296fc…29702 (0x1f8,0x52f)
0x29702…29720 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 2d 31 2c 31 31 2c 34 34 2e 30 2c 3c ┆:>); writelist(-1,11,44.0,<┆
0x29720…29740 3a 62 6f 73 73 20 70 72 69 76 61 74 65 20 69 6e 74 65 72 76 61 6c 20 6c 6f 77 65 72 3a 3e 29 3b ┆:boss private interval lower:>);┆
0x29740…29760 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 30 2c 34 2c 33 33 2e 30 2c 3c 3a 62 61 73 65 20 6f 66 ┆ writelist(0,4,33.0,<:base of┆
0x29760…2977a 20 65 78 74 65 72 6e 61 6c 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 20 20 20 ┆ external table:>); ┆
0x2977a…29780 (0x1f8,0x530)
0x29780…297a0 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆ central(33.0,1); writelist┆
0x297a0…297c0 28 31 2c 34 2c 33 33 2e 30 2c 3c 3a 73 65 6e 64 20 61 6e 64 20 77 61 69 74 3a 3e 29 3b 0a 20 20 ┆(1,4,33.0,<:send and wait:>); ┆
0x297c0…297e0 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 ┆ central(33.0,1); write┆
0x297e0…29800 6c 69 73 74 28 32 2c 34 2c 33 33 2e 30 2c 3c 3a 73 65 6e 64 20 61 6e 64 00 00 00 00 00 00 00 00 ┆list(2,4,33.0,<:send and ┆
0x29800…29806 (332,) (0x1f8,0x531)
0x29806…29820 20 77 61 69 74 20 66 61 73 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 63 65 ┆ wait fast:>); ce┆
0x29820…29840 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 2c 34 2c ┆ntral(33.0,1); writelist(3,4,┆
0x29840…29860 33 33 2e 30 2c 3c 3a 6c 6f 63 6b 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c ┆33.0,<:lock:>); central┆
0x29860…2987e 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 2c 34 2c 33 33 2e ┆(33.0,1); writelist(4,4,33.┆
0x2987e…29884 (0x1f8,0x532)
0x29884…298a0 30 2c 3c 3a 6f 70 65 6e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 ┆0,<:open:>); centra┆
0x298a0…298c0 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 2c 34 2c 33 33 2e 30 ┆l(33.0,1); writelist(5,4,33.0┆
0x298c0…298e0 2c 3c 3a 6c 6f 63 6b 20 63 68 61 69 6e 65 64 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 63 65 6e ┆,<:lock chained:>); cen┆
0x298e0…298fc 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 36 ┆tral(33.0,1); writelist(6┆
0x298fc…29902 (0x1f8,0x533)
0x29902…29920 2c 34 2c 33 33 2e 30 2c 3c 3a 6f 70 65 6e 20 63 68 61 69 6e 65 64 3a 3e 29 3b 0a 20 20 20 ┆,4,33.0,<:open chained:>); ┆
0x29920…29940 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆ central(33.0,1); writel┆
0x29940…29960 69 73 74 28 37 2c 34 2c 33 33 2e 30 2c 3c 3a 67 65 74 20 70 61 67 65 73 3a 3e 29 3b 0a 20 20 20 ┆ist(7,4,33.0,<:get pages:>); ┆
0x29960…2997a 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 ┆ central(33.0,1); ┆
0x2997a…29980 (0x1f8,0x534)
0x29980…299a0 77 72 69 74 65 6c 69 73 74 28 38 2c 34 2c 33 33 2e 30 2c 3c 3a 70 61 67 65 20 6a 75 6d 70 3a 3e ┆writelist(8,4,33.0,<:page jump:>┆
0x299a0…299c0 29 3b 0a 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 ┆); central(33.0,1); ┆
0x299c0…299e0 77 72 69 74 65 6c 69 73 74 28 39 2c 34 2c 33 33 2e 30 2c 3c 3a 73 65 6e 64 20 61 6e 64 20 77 61 ┆writelist(9,4,33.0,<:send and wa┆
0x299e0…29a00 69 74 20 73 6c 6f 77 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 63 65 6e 00 00 00 00 00 00 00 00 ┆it slow:>); cen ┆
0x29a00…29a06 (333,) (0x1f8,0x535)
0x29a06…29a20 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆tral(33.0,1); writelist┆
0x29a20…29a40 28 31 30 2c 34 2c 33 37 2e 30 2c 20 3c 3a 6c 61 72 67 65 20 72 65 73 65 72 76 61 74 69 6f 6e 73 ┆(10,4,37.0, <:large reservations┆
0x29a40…29a60 20 69 6e 20 73 65 6d 61 66 6f 72 65 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ in semafore table:>); ┆
0x29a60…29a7e 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 ┆ central(41.0,1); writ┆
0x29a7e…29a84 (0x1f8,0x536)
0x29a84…29aa0 65 6c 69 73 74 28 31 31 2c 34 2c 33 33 2e 30 2c 3c 3a 63 6c 65 61 72 20 63 6f 72 65 ┆elist(11,4,33.0,<:clear core┆
0x29aa0…29ac0 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a ┆:>); central(33.0,1); ┆
0x29ac0…29ae0 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 32 2c 34 2c 33 33 2e 30 2c 3c 3a 72 65 73 65 72 76 65 ┆ writelist(12,4,33.0,<:reserve┆
0x29ae0…29afc 20 76 69 72 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 ┆ virt:>); central(┆
0x29afc…29b02 (0x1f8,0x537)
0x29b02…29b20 33 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 33 2c 34 2c 33 33 2e ┆33.0,1); writelist(13,4,33.┆
0x29b20…29b40 30 2c 3c 3a 20 31 2e 70 61 73 73 3a 20 64 75 6d 6d 79 20 32 2e 70 61 73 73 3a 20 6d 6f 76 65 20 ┆0,<: 1.pass: dummy 2.pass: move ┆
0x29b40…29b60 76 69 72 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c ┆virt:>); central(33.0,┆
0x29b60…29b7a 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 ┆1); central(41.0┆
0x29b7a…29b80 (0x1f8,0x538)
0x29b80…29ba0 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 34 2c 34 2c 33 33 2e 30 2c 3c 3a 20 31 ┆,1); writelist(14,4,33.0,<: 1┆
0x29ba0…29bc0 2e 70 61 73 73 3a 20 64 75 6d 6d 79 20 32 2e 70 61 73 73 3a 20 73 69 6d 75 6c 61 74 65 20 6c 6f ┆.pass: dummy 2.pass: simulate lo┆
0x29bc0…29be0 63 6b 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 ┆ck:>); central(33.0,1)┆
0x29be0…29c00 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 00 00 00 00 00 00 00 00 ┆; central(41.0 ┆
0x29c00…29c06 (334,) (0x1f8,0x539)
0x29c06…29c20 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 2c 34 2c 33 33 2e ┆,1); writelist(15,4,33.┆
0x29c20…29c40 31 2c 3c 3a 65 6e 64 20 69 6e 69 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 ┆1,<:end init:>); centr┆
0x29c40…29c60 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 2c 34 2c 34 32 ┆al(33.1,1); writelist(16,4,42┆
0x29c60…29c7e 2e 30 2c 3c 3a 6e 75 6d 62 65 72 20 6f 66 20 63 6f 72 65 20 70 6c 61 63 65 73 20 66 6f 72 ┆.0,<:number of core places for┆
0x29c7e…29c84 (0x1f8,0x53a)
0x29c84…29ca0 20 62 6f 73 73 70 61 67 65 73 20 28 3d 69 31 32 30 29 3a 3e 29 3b 0a 20 20 20 20 20 ┆ bosspages (=i120):>); ┆
0x29ca0…29cc0 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 32 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆ central(42.0,1); writeli┆
0x29cc0…29ce0 73 74 28 31 37 2c 34 2c 33 33 2e 31 2c 3c 3a 66 69 72 73 74 20 63 6f 72 65 20 70 6c 61 63 65 20 ┆st(17,4,33.1,<:first core place ┆
0x29ce0…29cfc 28 61 62 73 20 61 64 64 72 29 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e ┆(abs addr):>); cen┆
0x29cfc…29d02 (0x1f8,0x53b)
0x29d02…29d20 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 38 2c ┆tral(33.1,1); writelist(18,┆
0x29d20…29d40 34 2c 33 35 2e 30 2c 3c 3a 72 65 73 65 72 76 61 74 69 6f 6e 20 69 6e 20 63 6f 72 75 6e 6f 20 74 ┆4,35.0,<:reservation in coruno t┆
0x29d40…29d60 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 35 2e 30 2c ┆able:>); central(35.0,┆
0x29d60…29d7a 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 36 2e 30 ┆1); central(36.0┆
0x29d7a…29d80 (0x1f8,0x53c)
0x29d80…29da0 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 33 2e 30 2c 32 29 3b 0a ┆,1); central(43.0,2); ┆
0x29da0…29dc0 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 39 2c 34 2c 33 35 2e 30 2c 3c 3a 72 65 73 65 72 76 61 ┆ writelist(19,4,35.0,<:reserva┆
0x29dc0…29de0 74 69 6f 6e 20 69 6e 20 73 65 6d 61 70 68 6f 72 65 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 20 ┆tion in semaphore table:>); ┆
0x29de0…29e00 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 35 2e 30 2c 31 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆ central(35.0,1); ┆
0x29e00…29e06 (335,) (0x1f8,0x53d)
0x29e06…29e20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 36 2e 30 2c 31 29 3b 0a ┆ central(36.0,1); ┆
0x29e20…29e40 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 33 2e 30 2c 32 29 3b 0a 0a 0c 0a 0a 63 ┆ central(43.0,2); c┆
0x29e40…29e60 6f 6d 6d 65 6e 74 20 20 20 20 20 63 68 64 20 38 32 2e 30 34 2e 32 39 20 20 20 20 20 20 20 20 20 ┆omment chd 82.04.29 ┆
0x29e60…29e7e 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 20 20 20 20 20 70 61 67 65 ┆ textxref page┆
0x29e7e…29e84 (0x1f8,0x53e)
0x29e84…29ea0 20 2e 2e 2e 31 31 61 2e 2e 2e 0a 3b 0a 0a 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆ ...11a... ; writelist(┆
0x29ea0…29ec0 32 30 2c 34 2c 33 35 2e 30 2c 3c 3a 72 65 73 65 72 76 61 74 69 6f 6e 20 69 6e 20 73 65 6e 64 65 ┆20,4,35.0,<:reservation in sende┆
0x29ec0…29ee0 72 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 35 ┆r table:>); central(35┆
0x29ee0…29efc 2e 30 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 36 2e ┆.0,1); central(36.┆
0x29efc…29f02 (0x1f8,0x53f)
0x29f02…29f20 30 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 32 2e 30 2c 32 ┆0,1); central(42.0,2┆
0x29f20…29f40 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 31 2c 34 2c 33 33 2e 31 2c 3c 3a 63 6f 72 75 ┆); writelist(21,4,33.1,<:coru┆
0x29f40…29f60 6e 6f 20 6f 75 74 70 75 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 ┆no output:>); central(┆
0x29f60…29f7a 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 32 2c 36 ┆33.1,1); writelist(22,6┆
0x29f7a…29f80 (0x1f8,0x540)
0x29f80…29fa0 2c 36 34 2e 30 2c 3c 3a 66 69 72 73 74 20 74 65 72 6d 69 6e 61 6c 20 6f 75 74 70 75 74 3a 3e 29 ┆,64.0,<:first terminal output:>)┆
0x29fa0…29fc0 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 33 2c 34 2c 33 33 2e 31 2c 3c 3a 6e 61 6d 65 20 ┆; writelist(23,4,33.1,<:name ┆
0x29fc0…29fe0 6f 66 20 6d 61 69 6e 20 63 6f 6e 73 6f 6c 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 ┆of main console:>); ce┆
0x29fe0…2a000 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 00 00 00 00 00 00 00 00 ┆ntral(33.1,1); writel ┆
0x2a000…2a006 (336,) (0x1f8,0x541)
0x2a006…2a020 69 73 74 28 32 34 2c 34 2c 33 33 2e 30 2c 3c 3a 20 31 2e 70 61 73 73 3a 20 64 ┆ist(24,4,33.0,<: 1.pass: d┆
0x2a020…2a040 75 6d 6d 79 20 32 2e 70 61 73 73 3a 20 70 75 74 20 69 6e 20 61 63 74 69 76 65 20 63 68 61 69 6e ┆ummy 2.pass: put in active chain┆
0x2a040…2a060 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 30 2c 31 29 3b 0a ┆:>); central(33.0,1); ┆
0x2a060…2a07e 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 2c 31 29 3b 0a 20 20 20 ┆ central(41.0,1); ┆
0x2a07e…2a084 (0x1f8,0x542)
0x2a084…2a0a0 77 72 69 74 65 6c 69 73 74 28 32 35 2c 34 2c 33 33 2e 31 2c 3c 3a 63 61 6c 6c 3a 3e ┆writelist(25,4,33.1,<:call:>┆
0x2a0a0…2a0c0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 ┆); central(33.1,1); ┆
0x2a0c0…2a0e0 20 77 72 69 74 65 6c 69 73 74 28 32 36 2c 34 2c 33 33 2e 31 2c 3c 3a 63 75 72 72 65 6e 74 20 63 ┆ writelist(26,4,33.1,<:current c┆
0x2a0e0…2a0fc 6f 72 6f 75 74 69 6e 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 ┆oroutine:>); centr┆
0x2a0fc…2a102 (0x1f8,0x543)
0x2a102…2a120 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 ┆al(33.1,1); central(┆
0x2a120…2a140 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 38 2c 34 2c 33 33 2e 31 2c ┆33.1,1); writelist(28,4,33.1,┆
0x2a140…2a160 3c 3a 62 6f 73 73 20 73 74 61 72 74 20 74 69 6d 65 20 61 64 64 72 65 73 73 3a 3e 29 3b 0a 20 20 ┆<:boss start time address:>); ┆
0x2a160…2a17a 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 ┆ central(33.1,1); ┆
0x2a17a…2a180 (0x1f8,0x544)
0x2a180…2a1a0 20 20 77 72 69 74 65 6c 69 73 74 28 32 39 2c 34 2c 33 33 2e 31 2c 3c 3a 6e 75 6d 62 65 72 20 6f ┆ writelist(29,4,33.1,<:number o┆
0x2a1a0…2a1c0 66 20 77 6f 72 6b 20 63 6f 72 65 20 70 6c 61 63 65 73 20 65 78 63 6c 75 73 69 76 65 6c 79 20 66 ┆f work core places exclusively f┆
0x2a1c0…2a1e0 6f 72 20 62 6f 73 73 20 70 61 67 65 73 20 28 3d 69 31 31 36 2c 20 66 69 72 73 74 20 63 6f 72 65 ┆or boss pages (=i116, first core┆
0x2a1e0…2a200 20 70 6c 61 63 65 20 66 6f 72 20 6a 6f 62 73 3a 3e 29 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ place for jobs:>); ┆
0x2a200…2a206 (337,) (0x1f8,0x545)
0x2a206…2a220 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 ┆ central(33.1,1); ┆
0x2a220…2a240 77 72 69 74 65 6c 69 73 74 28 33 30 2c 34 2c 33 33 2e 31 2c 3c 3a 73 74 6f 70 20 61 6e 64 20 77 ┆writelist(30,4,33.1,<:stop and w┆
0x2a240…2a260 61 69 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 ┆ait:>); central(33.1,1┆
0x2a260…2a27e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 2c 34 2c 33 33 2e 31 2c 3c 3a 69 6e ┆); writelist(31,4,33.1,<:in┆
0x2a27e…2a284 (0x1f8,0x546)
0x2a284…2a2a0 69 74 20 61 6c 61 72 6d 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 ┆it alarm:>); centr┆
0x2a2a0…2a2c0 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 32 2c 34 2c 33 33 ┆al(33.1,1); writelist(32,4,33┆
0x2a2c0…2a2e0 2e 31 2c 3c 3a 70 72 65 70 61 72 65 20 61 63 63 65 73 73 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 ┆.1,<:prepare access:>); ┆
0x2a2e0…2a2fc 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆ central(33.1,1); writel┆
0x2a2fc…2a302 (0x1f8,0x547)
0x2a302…2a320 69 73 74 28 33 33 2c 34 2c 33 33 2e 31 2c 3c 3a 74 65 72 6d 69 6e 61 74 65 20 61 63 63 65 ┆ist(33,4,33.1,<:terminate acce┆
0x2a320…2a340 73 73 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 ┆ss:>); central(33.1,1)┆
0x2a340…2a360 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 34 2c 34 2c 33 33 2e 31 2c 3c 3a 77 30 20 63 61 ┆; writelist(34,4,33.1,<:w0 ca┆
0x2a360…2a37a 6c 6c 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 ┆ll:>); central(3┆
0x2a37a…2a380 (0x1f8,0x548)
0x2a380…2a3a0 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 2c 34 2c 33 33 2e 31 2c 3c ┆3.1,1); writelist(35,4,33.1,<┆
0x2a3a0…2a3c0 3a 77 61 69 74 20 61 6e 73 77 65 72 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 ┆:wait answer:>); centr┆
0x2a3c0…2a3e0 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 2c 34 2c 33 33 ┆al(33.1,1); writelist(36,4,33┆
0x2a3e0…2a400 2e 31 2c 3c 3a 73 65 61 72 63 68 20 6c 69 6d 69 74 3a 3e 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆.1,<:search limit:>); ┆
0x2a400…2a406 (338,) (0x1f8,0x549)
0x2a406…2a420 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a 20 ┆ central(33.1,1); ┆
0x2a420…2a440 20 20 77 72 69 74 65 6c 69 73 74 28 33 37 2c 34 2c 33 33 2e 31 2c 3c 3a 74 65 73 74 6f 75 74 70 ┆ writelist(37,4,33.1,<:testoutp┆
0x2a440…2a460 75 74 20 73 77 69 74 63 68 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 ┆ut switch:>); central(┆
0x2a460…2a47e 33 33 2e 31 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 38 2c 34 2c 33 33 2e ┆33.1,1); writelist(38,4,33.┆
0x2a47e…2a484 (0x1f8,0x54a)
0x2a484…2a4a0 31 2c 3c 3a 63 75 72 72 65 6e 74 20 73 65 67 6d 65 6e 74 20 69 6e 20 62 6f 73 73 74 ┆1,<:current segment in bosst┆
0x2a4a0…2a4c0 65 73 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 ┆est:>); central(33.1,1┆
0x2a4c0…2a4e0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 39 2c 34 2c 33 33 2e 31 2c 3c 3a 6e 61 6d 65 ┆); writelist(39,4,33.1,<:name┆
0x2a4e0…2a4fc 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 20 6f 66 20 62 6f 73 73 74 65 73 74 3a 3e ┆ table address of bosstest:>┆
0x2a4fc…2a502 (0x1f8,0x54b)
0x2a502…2a520 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e 31 2c 31 29 3b 0a ┆); central(33.1,1); ┆
0x2a520…2a540 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 30 2c 34 2c 33 33 2e 31 2c 3c 3a 73 65 74 20 65 78 74 ┆ writelist(40,4,33.1,<:set ext┆
0x2a540…2a560 65 72 6e 61 6c 73 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 33 33 2e ┆ernals:>); central(33.┆
0x2a560…2a57a 31 2c 31 29 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 ┆1,1); comment lkn 75┆
0x2a57a…2a580 (0x1f8,0x54c)
0x2a580…2a5a0 2e 30 39 2e 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 ┆.09.10 textxr┆
0x2a5a0…2a5c0 65 66 20 20 70 61 67 65 20 2e 2e 2e 31 32 2e 2e 2e 0a 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆ef page ...12... ; writelist┆
0x2a5c0…2a5e0 28 34 31 2c 34 2c 34 32 2e 31 2c 3c 3a 6e 6f 20 6f 66 20 63 6f 72 65 20 70 6c 61 63 65 73 20 66 ┆(41,4,42.1,<:no of core places f┆
0x2a5e0…2a600 6f 72 20 6a 6f 62 73 20 2d 20 69 6e 63 6c 75 73 69 76 65 20 73 68 61 72 00 00 00 00 00 00 00 00 ┆or jobs - inclusive shar ┆
0x2a600…2a606 (339,) (0x1f8,0x54d)
0x2a606…2a620 65 64 20 70 6c 61 63 65 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆ed places:>); writelist┆
0x2a620…2a640 28 34 32 2c 34 2c 34 32 2e 31 2c 3c 3a 74 6f 70 20 63 6f 72 65 20 70 6c 61 63 65 3a 3e 29 3b 0a ┆(42,4,42.1,<:top core place:>); ┆
0x2a640…2a660 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 2c 31 33 2c 31 37 2e 31 2c 3c 3a 73 74 61 72 74 20 ┆ writelist(43,13,17.1,<:start ┆
0x2a660…2a67e 61 64 64 72 65 73 73 20 6f 66 20 63 6f 72 65 20 70 69 63 74 75 72 65 3a 3e 29 3b 0a 20 20 ┆address of core picture:>); ┆
0x2a67e…2a684 (0x1f8,0x54e)
0x2a684…2a6a0 20 77 72 69 74 65 6c 69 73 74 28 34 34 2c 31 33 2c 31 37 2e 31 2c 3c 3a 73 69 7a 65 ┆ writelist(44,13,17.1,<:size┆
0x2a6a0…2a6c0 20 6f 66 20 63 6f 72 65 20 70 69 63 74 75 72 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆ of core picture:>); writelis┆
0x2a6c0…2a6e0 74 28 34 35 2c 36 2c 37 36 2e 30 2c 3c 3a 76 69 72 74 75 61 6c 20 64 69 73 70 6c 61 79 20 63 6f ┆t(45,6,76.0,<:virtual display co┆
0x2a6e0…2a6fc 72 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 36 2c 36 2c 37 36 2e ┆re:>); writelist(46,6,76.┆
0x2a6fc…2a702 (0x1f8,0x54f)
0x2a702…2a720 30 2c 3c 3a 72 65 6c 61 74 69 76 65 20 64 69 73 70 6c 61 79 20 63 6f 72 65 20 28 76 69 72 ┆0,<:relative display core (vir┆
0x2a720…2a740 74 2e 34 35 29 3a 3e 29 3b 0a 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 31 2c 36 2c 37 32 2e ┆t.45):>); writelist(51,6,72.┆
0x2a740…2a760 30 2c 3c 3a 61 64 64 72 65 73 73 20 6f 66 20 72 65 71 75 65 73 74 20 71 75 65 75 65 20 73 65 6d ┆0,<:address of request queue sem┆
0x2a760…2a77a 61 70 68 6f 72 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 32 ┆aphore:>); writelist(52┆
0x2a77a…2a780 (0x1f8,0x550)
0x2a780…2a7a0 2c 36 2c 37 32 2e 30 2c 3c 3a 61 64 64 72 65 73 73 20 6f 66 20 72 65 71 75 65 73 74 20 66 72 65 ┆,6,72.0,<:address of request fre┆
0x2a7a0…2a7c0 65 20 73 65 6d 61 70 68 6f 72 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 ┆e semaphore:>); centra┆
0x2a7c0…2a7e0 6c 28 34 31 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 33 2c 36 2c 36 34 2e ┆l(41.0,1); writelist(53,6,64.┆
0x2a7e0…2a800 30 2c 3c 3a 74 65 72 6d 69 6e 61 6c 20 72 65 73 65 72 76 65 20 73 65 6d 00 00 00 00 00 00 00 00 ┆0,<:terminal reserve sem ┆
0x2a800…2a806 (340,) (0x1f8,0x551)
0x2a806…2a820 61 70 68 6f 72 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 34 ┆aphore:>); writelist(54┆
0x2a820…2a840 2c 36 2c 36 34 2e 30 2c 3c 3a 74 65 72 6d 69 6e 61 6c 20 66 75 6c 6c 20 73 65 6d 61 70 68 6f 72 ┆,6,64.0,<:terminal full semaphor┆
0x2a840…2a860 65 20 28 73 69 6d 70 6c 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 36 2c 31 ┆e (simple):>); writelist(56,1┆
0x2a860…2a87e 30 2c 33 2e 30 2c 3c 3a 72 65 61 64 65 72 20 6f 70 65 72 61 74 69 6f 6e 20 71 75 65 75 65 ┆0,3.0,<:reader operation queue┆
0x2a87e…2a884 (0x1f8,0x552)
0x2a884…2a8a0 20 28 63 68 61 69 6e 65 64 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆ (chained):>); writelist(┆
0x2a8a0…2a8c0 35 37 2c 31 30 2c 33 2e 30 2c 3c 3a 72 65 61 64 65 72 20 66 72 65 65 20 62 6f 73 73 20 63 6f 6e ┆57,10,3.0,<:reader free boss con┆
0x2a8c0…2a8e0 74 72 6f 6c 6c 65 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 38 2c 31 30 2c 33 ┆trolled:>); writelist(58,10,3┆
0x2a8e0…2a8fc 2e 30 2c 3c 3a 72 65 61 64 65 72 20 66 75 6c 6c 20 62 6f 73 73 20 63 6f 6e 74 72 6f ┆.0,<:reader full boss contro┆
0x2a8fc…2a902 (0x1f8,0x553)
0x2a902…2a920 6c 6c 65 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 39 2c 39 2c 35 32 2e ┆lled:>); writelist(59,9,52.┆
0x2a920…2a940 30 2c 3c 3a 72 65 77 69 6e 64 65 72 20 62 75 66 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆0,<:rewinder buf:>); writelis┆
0x2a940…2a960 74 28 36 30 2c 31 31 2c 36 38 2e 30 2c 3c 3a 73 65 67 6d 65 6e 74 73 20 66 72 65 65 3a 3e 29 3b ┆t(60,11,68.0,<:segments free:>);┆
0x2a960…2a97a 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 36 31 2c 31 31 2c 36 38 2e 30 2c 3c ┆ writelist(61,11,68.0,<┆
0x2a97a…2a980 (0x1f8,0x554)
0x2a980…2a9a0 3a 73 65 67 6d 65 6e 74 73 20 66 75 6c 6c 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆:segments full:>); writelist(┆
0x2a9a0…2a9c0 36 32 2c 35 2c 33 33 2e 30 2c 3c 3a 66 69 72 73 74 20 61 74 74 65 6e 74 69 6f 6e 20 73 65 6d 61 ┆62,5,33.0,<:first attention sema┆
0x2a9c0…2a9e0 70 68 6f 72 65 20 28 73 69 6d 70 6c 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆phore (simple):>); writelist(┆
0x2a9e0…2aa00 36 33 2c 35 2c 33 33 2e 30 2c 3c 3a 66 69 72 73 74 20 70 73 6a 6f 62 20 00 00 00 00 00 00 00 00 ┆63,5,33.0,<:first psjob ┆
0x2aa00…2aa06 (341,) (0x1f8,0x555)
0x2aa06…2aa20 71 75 65 75 65 20 73 65 6d 61 70 68 6f 72 65 20 28 63 68 61 69 6e 65 64 29 3a ┆queue semaphore (chained):┆
0x2aa20…2aa40 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 36 34 2c 35 2c 33 33 2e 30 2c 3c 3a 66 69 72 ┆>); writelist(64,5,33.0,<:fir┆
0x2aa40…2aa60 73 74 20 6a 6f 62 20 69 6e 20 63 6f 72 65 20 73 65 6d 61 70 68 6f 72 65 20 28 62 69 6e 61 72 79 ┆st job in core semaphore (binary┆
0x2aa60…2aa7e 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 36 35 2c 31 30 2c 33 2e 30 2c 3c ┆):>); writelist(65,10,3.0,<┆
0x2aa7e…2aa84 (0x1f8,0x556)
0x2aa84…2aaa0 3a 72 65 61 64 65 72 20 66 72 65 65 20 6a 6f 62 20 63 6f 6e 74 72 6f 6c 6c 65 64 3a ┆:reader free job controlled:┆
0x2aaa0…2aac0 3e 29 3b 0a 20 20 20 20 77 72 69 74 65 6c 69 73 74 28 36 36 2c 34 2c 33 33 2e 30 2c 3c 3a 70 72 ┆>); writelist(66,4,33.0,<:pr┆
0x2aac0…2aae0 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 6f 66 20 62 6f 73 ┆ocess description address of bos┆
0x2aae0…2aafc 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 36 37 2c 31 33 2c 34 2e 30 ┆s:>); writelist(67,13,4.0┆
0x2aafc…2ab02 (0x1f8,0x557)
0x2ab02…2ab20 2c 3c 3a 62 61 6e 6b 65 72 20 71 75 65 75 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆,<:banker queue:>); writeli┆
0x2ab20…2ab40 73 74 28 37 32 2c 31 30 2c 31 39 2e 30 2c 3c 3a 63 61 72 64 20 72 65 61 64 65 72 20 66 72 65 65 ┆st(72,10,19.0,<:card reader free┆
0x2ab40…2ab60 20 6f 70 65 72 61 74 69 6f 6e 20 71 75 65 75 65 20 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆ operation queue :>); writeli┆
0x2ab60…2ab7a 73 74 28 37 34 2c 31 32 2c 31 30 2e 30 2c 3c 3a 63 61 74 61 6c 6f 63 6b 20 73 ┆st(74,12,10.0,<:catalock s┆
0x2ab7a…2ab80 (0x1f8,0x558)
0x2ab80…2aba0 65 6d 61 66 6f 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 37 35 2c 31 32 2c 32 35 ┆emafor:>); writelist(75,12,25┆
0x2aba0…2abc0 2e 30 2c 3c 3a 72 65 73 65 72 76 65 20 75 73 65 72 63 61 74 20 73 65 6d 61 66 6f 72 3a 3e 29 3b ┆.0,<:reserve usercat semafor:>);┆
0x2abc0…2abe0 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 37 36 2c 37 2c 31 34 2e 30 2c 3c 3a 66 69 72 73 74 20 ┆ writelist(76,7,14.0,<:first ┆
0x2abe0…2ac00 70 73 6a 6f 62 20 61 6e 73 77 65 72 20 73 65 6d 61 66 6f 72 3a 3e 29 3b 00 00 00 00 00 00 00 00 ┆psjob answer semafor:>); ┆
0x2ac00…2ac06 (342,) (0x1f8,0x559)
0x2ac06…2ac20 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 37 37 2c 39 2c 35 32 2e 30 2c 3c 3a ┆ writelist(77,9,52.0,<:┆
0x2ac20…2ac40 72 65 77 69 6e 64 65 72 20 71 75 65 75 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆rewinder queue:>); writelist(┆
0x2ac40…2ac60 37 38 2c 31 31 2c 34 32 2e 30 2c 3c 3a 62 61 6e 6b 65 72 20 61 63 63 65 73 73 20 73 65 6d 61 66 ┆78,11,42.0,<:banker access semaf┆
0x2ac60…2ac7e 6f 72 20 28 62 69 6e 61 72 79 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 37 ┆or (binary):>); writelist(7┆
0x2ac7e…2ac84 (0x1f8,0x55a)
0x2ac84…2aca0 39 2c 36 2c 34 34 2e 30 2c 3c 3a 6b 69 74 20 63 68 61 6e 67 65 20 71 75 65 75 65 3a ┆9,6,44.0,<:kit change queue:┆
0x2aca0…2acc0 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 38 30 2c 31 31 2c 31 35 2e 30 2c 3c 3a 66 69 ┆>); writelist(80,11,15.0,<:fi┆
0x2acc0…2ace0 72 73 74 20 70 72 69 6e 74 65 72 20 71 75 65 75 65 20 73 65 6d 61 66 6f 72 3a 3e 29 3b 0a 20 20 ┆rst printer queue semafor:>); ┆
0x2ace0…2acfc 20 77 72 69 74 65 6c 69 73 74 28 38 31 2c 36 2c 36 34 2e 30 2c 3c 3a 74 65 72 6d 69 ┆ writelist(81,6,64.0,<:termi┆
0x2acfc…2ad02 (0x1f8,0x55b)
0x2ad02…2ad20 6e 61 6c 20 69 6e 70 75 74 20 73 65 6d 61 70 68 6f 72 65 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆nal input semaphore:>); wri┆
0x2ad20…2ad40 74 65 6c 69 73 74 28 38 32 2c 31 33 2c 31 37 2e 31 2c 3c 3a 63 75 72 72 65 6e 74 20 63 6f 72 65 ┆telist(82,13,17.1,<:current core┆
0x2ad40…2ad60 20 70 69 63 74 75 72 65 20 28 72 65 6c 20 64 35 33 20 6f 6e 20 62 61 6e 6b 65 72 20 76 61 72 2e ┆ picture (rel d53 on banker var.┆
0x2ad60…2ad7a 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 30 ┆ page):>); writelist(10┆
0x2ad7a…2ad80 (0x1f8,0x55c)
0x2ad80…2ada0 30 2c 35 2c 33 31 2e 31 2c 3c 3a 66 69 72 73 74 20 70 73 6a 6f 62 20 63 6f 72 6f 75 74 69 6e 65 ┆0,5,31.1,<:first psjob coroutine┆
0x2ada0…2adc0 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 30 31 2c 35 2c 33 33 2e 30 2c 3c 3a 66 ┆:>); writelist(101,5,33.0,<:f┆
0x2adc0…2ade0 69 72 73 74 20 63 6f 6d 6d 61 6e 64 69 6f 20 63 6f 72 6f 75 74 69 6e 65 3a 3e 29 3b 0a 0c 0a 63 ┆irst commandio coroutine:>); c┆
0x2ade0…2ae00 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 00 00 00 00 00 00 00 00 ┆omment lkn 75.09.10 ┆
0x2ae00…2ae06 (343,) (0x1f8,0x55d)
0x2ae06…2ae20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 ┆ textxre┆
0x2ae20…2ae40 66 20 20 70 61 67 65 20 20 2e 2e 2e 31 33 2e 2e 2e 0a 3b 0a 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆f page ...13... ; writelis┆
0x2ae40…2ae60 74 28 31 30 32 2c 34 2c 34 33 2e 30 2c 3c 3a 66 69 72 73 74 20 63 6f 72 6f 75 74 69 6e 65 20 28 ┆t(102,4,43.0,<:first coroutine (┆
0x2ae60…2ae7e 70 61 67 65 72 29 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 ┆pager):>); central(4┆
0x2ae7e…2ae84 (0x1f8,0x55e)
0x2ae84…2aea0 33 2e 30 2c 31 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 32 30 2c 35 2c 34 ┆3.0,1); writelist(120,5,4┆
0x2aea0…2aec0 37 2e 30 2c 3c 3a 72 65 6c 20 65 6e 74 72 79 2c 20 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 3a ┆7.0,<:rel entry, delete command:┆
0x2aec0…2aee0 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 32 31 2c 35 2c 33 33 2e 30 2c 3c 3a 73 74 ┆>); writelist(121,5,33.0,<:st┆
0x2aee0…2aefc 61 72 74 20 6c 69 6e 65 2c 20 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 3a 3e 29 3b ┆art line, delete command:>);┆
0x2aefc…2af02 (0x1f8,0x55f)
0x2af02…2af20 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 32 32 2c 35 2c 33 33 2e 30 2c 3c 3a 65 6e 64 ┆ writelist(122,5,33.0,<:end┆
0x2af20…2af40 20 6c 69 6e 65 2c 20 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆ line, delete command:>); wri┆
0x2af40…2af60 74 65 6c 69 73 74 28 31 32 33 2c 35 2c 33 33 2e 30 2c 3c 3a 69 6e 63 72 65 6d 65 6e 74 20 6c 69 ┆telist(123,5,33.0,<:increment li┆
0x2af60…2af7a 6e 65 2c 20 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 3a 3e 29 3b 0a 20 20 20 ┆ne, delete command:>); ┆
0x2af7a…2af80 (0x1f8,0x560)
0x2af80…2afa0 77 72 69 74 65 6c 69 73 74 28 31 32 34 2c 35 2c 33 33 2e 30 2c 3c 3a 72 65 6c 20 65 6e 74 72 79 ┆writelist(124,5,33.0,<:rel entry┆
0x2afa0…2afc0 20 6f 66 20 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 63 6f 6d 69 6f 3a 3e 29 3b 0a ┆ of delete command in comio:>); ┆
0x2afc0…2afe0 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 32 35 2c 35 2c 33 33 2e 30 2c 3c 3a 76 65 72 69 66 79 ┆ writelist(125,5,33.0,<:verify┆
0x2afe0…2b000 20 61 66 74 65 72 20 72 65 70 6c 61 63 65 3a 3e 29 3b 0a 20 20 20 77 72 00 00 00 00 00 00 00 00 ┆ after replace:>); wr ┆
0x2b000…2b006 (344,) (0x1f8,0x561)
0x2b006…2b020 69 74 65 6c 69 73 74 28 31 33 30 2c 35 2c 34 37 2c 3c 3a 76 69 72 74 20 73 6e ┆itelist(130,5,47,<:virt sn┆
0x2b020…2b040 61 70 73 68 6f 74 2c 61 75 74 6f 6c 69 6e 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆apshot,autoline:>); writelist┆
0x2b040…2b060 28 31 33 31 2c 35 2c 34 37 2c 3c 3a 72 65 6c 20 65 6e 74 72 79 20 73 6e 61 70 73 68 6f 74 20 28 ┆(131,5,47,<:rel entry snapshot (┆
0x2b060…2b07e 76 69 72 74 20 31 33 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 33 32 ┆virt 130):>); writelist(132┆
0x2b07e…2b084 (0x1f8,0x562)
0x2b084…2b0a0 2c 35 2c 34 37 2c 3c 3a 72 65 6c 20 65 6e 74 72 79 20 61 75 74 6f 6c 69 6e 65 20 28 ┆,5,47,<:rel entry autoline (┆
0x2b0a0…2b0c0 76 69 72 74 20 31 33 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 33 33 2c 35 ┆virt 130):>); writelist(133,5┆
0x2b0c0…2b0e0 2c 33 33 2c 3c 3a 61 75 74 6f 6c 69 6e 65 20 28 72 65 6c 20 6f 6e 20 6a 6f 62 20 66 69 6c 65 20 ┆,33,<:autoline (rel on job file ┆
0x2b0e0…2b0fc 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 33 34 2c 35 ┆page):>); writelist(134,5┆
0x2b0fc…2b102 (0x1f8,0x563)
0x2b102…2b120 2c 33 33 2c 3c 3a 74 65 72 6d 69 6e 61 6c 20 75 73 65 72 20 72 69 67 68 74 73 20 28 72 65 ┆,33,<:terminal user rights (re┆
0x2b120…2b140 6c 20 6f 6e 20 6a 6f 62 20 66 69 6c 65 20 70 61 67 65 2c 20 64 38 38 29 3a 3e 29 3b 0a 20 20 20 ┆l on job file page, d88):>); ┆
0x2b140…2b160 77 72 69 74 65 6c 69 73 74 28 31 33 35 2c 35 2c 33 33 2e 30 2c 3c 3a 61 75 74 6f 6c 69 6e 65 20 ┆writelist(135,5,33.0,<:autoline ┆
0x2b160…2b17a 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 20 64 38 36 3a 3e 29 3b 0a 20 20 20 77 ┆current line. d86:>); w┆
0x2b17a…2b180 (0x1f8,0x564)
0x2b180…2b1a0 72 69 74 65 6c 69 73 74 28 31 33 36 2c 35 2c 33 33 2e 30 2c 3c 3a 61 75 74 6f 6c 69 6e 65 20 6c ┆ritelist(136,5,33.0,<:autoline l┆
0x2b1a0…2b1c0 69 6e 65 20 69 6e 63 72 65 6d 65 6e 74 2c 20 64 38 37 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆ine increment, d87:>); writel┆
0x2b1c0…2b1e0 69 73 74 28 31 33 37 2c 36 2c 34 34 2e 30 2c 3c 3a 72 65 6c 20 68 6f 74 6e 65 77 73 20 28 76 69 ┆ist(137,6,44.0,<:rel hotnews (vi┆
0x2b1e0…2b200 72 74 3d 32 34 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 00 00 00 00 00 00 00 00 ┆rt=247):>); writelist ┆
0x2b200…2b206 (345,) (0x1f8,0x565)
0x2b206…2b220 28 31 33 38 2c 36 2c 34 34 2e 30 2c 3c 3a 61 62 73 20 28 76 69 72 74 29 20 68 ┆(138,6,44.0,<:abs (virt) h┆
0x2b220…2b240 6f 74 6e 65 77 73 20 72 65 71 75 65 73 74 20 6c 69 6e 65 20 61 64 64 72 65 73 73 3a 3e 29 3b 0a ┆otnews request line address:>); ┆
0x2b240…2b260 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 34 30 2c 31 32 2c 36 30 2e 30 2c 3c 3a 76 69 72 74 20 ┆ writelist(140,12,60.0,<:virt ┆
0x2b260…2b27e 72 65 6d 6f 74 65 20 62 61 74 63 68 20 63 6f 64 65 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 ┆remote batch codepage:>); w┆
0x2b27e…2b284 (0x1f8,0x566)
0x2b284…2b2a0 72 69 74 65 6c 69 73 74 28 31 34 31 2c 31 32 2c 36 30 2e 30 2c 3c 3a 72 65 6c 20 6c ┆ritelist(141,12,60.0,<:rel l┆
0x2b2a0…2b2c0 69 6e 6b 75 70 20 72 65 6d 6f 74 65 20 28 76 69 72 74 3d 31 34 30 29 3a 3e 29 3b 0a 20 20 20 77 ┆inkup remote (virt=140):>); w┆
0x2b2c0…2b2e0 72 69 74 65 6c 69 73 74 28 31 34 32 2c 31 32 2c 36 30 2e 30 2c 3c 3a 72 65 6c 20 6c 6f 6f 6b 75 ┆ritelist(142,12,60.0,<:rel looku┆
0x2b2e0…2b2fc 70 20 64 65 76 69 63 65 20 28 76 69 72 74 3d 31 34 30 29 3a 3e 29 3b 0a 20 20 20 77 ┆p device (virt=140):>); w┆
0x2b2fc…2b302 (0x1f8,0x567)
0x2b302…2b320 72 69 74 65 6c 69 73 74 28 31 34 33 2c 31 32 2c 36 30 2e 30 2c 3c 3a 72 65 6c 20 73 65 61 ┆ritelist(143,12,60.0,<:rel sea┆
0x2b320…2b340 72 63 68 20 64 65 76 69 63 65 20 28 76 69 72 74 3d 31 34 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆rch device (virt=140):>); wri┆
0x2b340…2b360 74 65 6c 69 73 74 28 31 34 34 2c 31 32 2c 36 30 2e 30 2c 3c 3a 72 65 6c 20 73 65 61 72 63 68 20 ┆telist(144,12,60.0,<:rel search ┆
0x2b360…2b37a 61 6e 64 20 6c 6f 6f 6b 75 70 20 64 65 76 69 63 65 20 28 76 69 72 74 3d 31 34 ┆and lookup device (virt=14┆
0x2b37a…2b380 (0x1f8,0x568)
0x2b380…2b3a0 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 34 35 2c 31 32 2c 36 30 2e 30 2c ┆0):>); writelist(145,12,60.0,┆
0x2b3a0…2b3c0 3c 3a 72 65 6c 20 64 65 66 69 6e 65 20 64 65 76 69 63 65 20 28 76 69 72 74 3d 31 34 30 29 3a 3e ┆<:rel define device (virt=140):>┆
0x2b3c0…2b3e0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 34 36 2c 31 32 2c 36 30 2e 30 2c 3c 3a 72 65 ┆); writelist(146,12,60.0,<:re┆
0x2b3e0…2b400 6c 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 28 6f 72 20 68 6f 73 74 00 00 00 00 00 00 00 00 ┆l lookup process(or host ┆
0x2b400…2b406 (346,) (0x1f8,0x569)
0x2b406…2b420 29 20 28 6c 69 6e 6b 29 20 28 76 69 72 74 3d 31 34 30 29 3a 3e 29 3b 0a 20 20 ┆) (link) (virt=140):>); ┆
0x2b420…2b440 20 77 72 69 74 65 6c 69 73 74 28 31 34 37 2c 31 31 2c 31 32 2c 3c 3a 72 65 6c 20 65 6e 74 72 79 ┆ writelist(147,11,12,<:rel entry┆
0x2b440…2b460 20 64 69 73 70 6c 61 79 20 63 6f 6e 76 65 72 74 20 28 76 69 72 74 3d 33 38 35 29 3a 3e 29 3b 0a ┆ display convert (virt=385):>); ┆
0x2b460…2b47e 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 34 38 2c 31 34 2c 34 2e 30 2c 3c 3a 72 65 61 64 ┆ writelist(148,14,4.0,<:read┆
0x2b47e…2b484 (0x1f8,0x56a)
0x2b484…2b4a0 65 72 20 64 65 76 69 63 65 20 6e 75 6d 62 65 72 20 28 62 6f 73 73 72 65 61 64 65 72 ┆er device number (bossreader┆
0x2b4a0…2b4c0 3c 31 32 2b 6a 6f 62 72 65 61 64 65 72 29 20 28 72 65 6c 20 64 31 33 31 20 6f 6e 20 6a 6f 62 64 ┆<12+jobreader) (rel d131 on jobd┆
0x2b4c0…2b4e0 65 73 63 72 2e 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 34 39 2c ┆escr.page):>); writelist(149,┆
0x2b4e0…2b4fc 31 34 2c 34 2e 30 2c 3c 3a 72 65 61 64 65 72 20 74 61 62 6c 65 20 61 64 64 72 65 73 ┆14,4.0,<:reader table addres┆
0x2b4fc…2b502 (0x1f8,0x56b)
0x2b502…2b520 73 20 72 65 6c 61 74 69 76 65 20 74 6f 20 28 72 65 61 64 65 72 29 20 6f 70 65 72 61 74 69 ┆s relative to (reader) operati┆
0x2b520…2b540 6f 6e 20 28 64 31 34 32 3d 64 31 34 31 2d 64 38 37 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 70 61 ┆on (d142=d141-d87 on jobdescr.pa┆
0x2b540…2b560 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 30 2c 36 2c 36 34 2e 30 2c ┆ge):>); writelist(150,6,64.0,┆
0x2b560…2b57a 3c 3a 73 74 61 72 74 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 61 72 65 61 20 28 ┆<:start of terminal area (┆
0x2b57a…2b580 (0x1f8,0x56c)
0x2b580…2b5a0 3d 73 74 61 72 74 20 6f 66 20 6d 61 69 6e 20 63 6f 6e 73 6f 6c 65 20 62 75 66 66 65 72 29 3a 3e ┆=start of main console buffer):>┆
0x2b5a0…2b5c0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 31 2c 37 2c 31 34 2e 30 2c 3c 3a 66 69 72 ┆); writelist(151,7,14.0,<:fir┆
0x2b5c0…2b5e0 73 74 20 6f 66 20 70 73 6a 6f 62 20 73 65 6e 64 65 72 20 74 61 62 6c 65 20 65 6e 74 72 69 65 73 ┆st of psjob sender table entries┆
0x2b5e0…2b600 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 32 2c 36 2c 00 00 00 00 00 00 00 00 ┆:>); writelist(152,6, ┆
0x2b600…2b606 (347,) (0x1f8,0x56d)
0x2b606…2b620 37 31 2e 30 2c 3c 3a 66 69 72 73 74 20 6f 66 20 72 65 71 75 65 73 74 20 6c 69 ┆71.0,<:first of request li┆
0x2b620…2b640 6e 65 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 33 2c 37 2c 31 34 2e 30 2c ┆nes:>); writelist(153,7,14.0,┆
0x2b640…2b660 3c 3a 74 6f 70 20 6f 66 20 70 73 6a 6f 62 20 73 65 6e 64 65 72 20 74 61 62 6c 65 3a 3e 29 3b 0a ┆<:top of psjob sender table:>); ┆
0x2b660…2b67e 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 34 2c 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 20 ┆ writelist(154,6,31.0,<:rel ┆
0x2b67e…2b684 (0x1f8,0x56e)
0x2b684…2b6a0 70 72 69 6e 74 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 79 20 28 76 69 72 74 3d 32 30 ┆print catalog entry (virt=20┆
0x2b6a0…2b6c0 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 35 2c 35 2c 33 32 2e 30 2c 3c ┆6):>); writelist(155,5,32.0,<┆
0x2b6c0…2b6e0 3a 76 61 6c 75 65 20 66 6f 72 20 61 62 73 20 70 61 67 65 20 28 6e 65 78 74 6c 69 6e 65 29 3a 3e ┆:value for abs page (nextline):>┆
0x2b6e0…2b6fc 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 35 36 2c 34 2c 34 32 2e 30 2c 3c ┆); writelist(156,4,42.0,<┆
0x2b6fc…2b702 (0x1f8,0x56f)
0x2b702…2b720 3a 66 69 72 73 74 20 6f 66 20 63 6f 72 65 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 77 72 ┆:first of core table:>); wr┆
0x2b720…2b740 69 74 65 6c 69 73 74 28 31 35 37 2c 35 2c 33 33 2e 30 2c 3c 3a 76 69 72 74 20 6e 65 78 74 6c 69 ┆itelist(157,5,33.0,<:virt nextli┆
0x2b740…2b760 6e 65 2c 20 69 6e 69 74 6c 69 6e 65 2c 20 62 75 6c 6b 66 69 6c 65 3a 3e 29 3b 0a 20 20 20 77 72 ┆ne, initline, bulkfile:>); wr┆
0x2b760…2b77a 69 74 65 6c 69 73 74 28 31 35 38 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 6e ┆itelist(158,5,32.0,<:rel n┆
0x2b77a…2b780 (0x1f8,0x570)
0x2b780…2b7a0 65 78 74 6c 69 6e 65 20 28 76 69 72 74 3d 31 35 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆extline (virt=157):>); writel┆
0x2b7a0…2b7c0 69 73 74 28 31 35 39 2c 31 32 2c 32 35 2e 30 2c 3c 3a 76 69 72 74 20 6c 6f 6f 6b 75 70 20 75 73 ┆ist(159,12,25.0,<:virt lookup us┆
0x2b7c0…2b7e0 65 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 30 2c 31 32 2c 32 35 2e 30 2c ┆er:>); writelist(160,12,25.0,┆
0x2b7e0…2b800 3c 3a 72 65 6c 20 6c 6f 6f 6b 75 70 20 75 73 65 72 20 28 76 69 72 74 3d 00 00 00 00 00 00 00 00 ┆<:rel lookup user (virt= ┆
0x2b800…2b806 (348,) (0x1f8,0x571)
0x2b806…2b820 31 35 39 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 31 2c ┆159):>); writelist(161,┆
0x2b820…2b840 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 69 6e 69 74 6c 69 6e 65 20 28 76 69 72 74 3d 31 35 37 29 ┆5,32.0,<:rel initline (virt=157)┆
0x2b840…2b860 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 32 2c 35 2c 34 36 2e 30 2c 3c 3a 76 ┆:>); writelist(162,5,46.0,<:v┆
0x2b860…2b87e 69 72 74 20 6c 69 73 74 20 65 74 63 2e 20 28 72 65 6c 3d 32 30 34 2c 20 32 30 35 2c 20 32 ┆irt list etc. (rel=204, 205, 2┆
0x2b87e…2b884 (0x1f8,0x572)
0x2b884…2b8a0 30 39 2c 20 32 32 34 2c 20 32 32 35 2c 20 32 32 39 2c 20 32 36 34 2c 20 33 31 30 2c ┆09, 224, 225, 229, 264, 310,┆
0x2b8a0…2b8c0 20 34 39 31 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 33 2c 35 2c 33 33 2e ┆ 491):>); writelist(163,5,33.┆
0x2b8c0…2b8e0 30 2c 3c 3a 66 69 72 73 74 20 74 65 72 6d 69 6e 61 6c 20 73 65 6e 64 65 72 20 64 65 73 63 72 3a ┆0,<:first terminal sender descr:┆
0x2b8e0…2b8fc 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 34 2c 31 30 2c 33 2e 30 2c ┆>); writelist(164,10,3.0,┆
0x2b8fc…2b902 (0x1f8,0x573)
0x2b902…2b920 3c 3a 66 69 72 73 74 20 6f 66 20 62 6f 73 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 75 66 ┆<:first of boss controlled buf┆
0x2b920…2b940 66 65 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 35 2c 31 30 2c 33 2e 30 2c ┆fer:>); writelist(165,10,3.0,┆
0x2b940…2b960 3c 3a 74 6f 70 20 6f 66 20 62 6f 73 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 75 66 66 65 72 3a ┆<:top of boss controlled buffer:┆
0x2b960…2b97a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 36 2c 31 30 2c 33 2e ┆>); writelist(166,10,3.┆
0x2b97a…2b980 (0x1f8,0x574)
0x2b980…2b9a0 30 2c 3c 3a 66 69 72 73 74 20 6f 66 20 6a 6f 62 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 75 66 66 ┆0,<:first of job controlled buff┆
0x2b9a0…2b9c0 65 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 37 2c 31 30 2c 33 2e 30 2c 3c ┆er:>); writelist(167,10,3.0,<┆
0x2b9c0…2b9e0 3a 74 6f 70 20 6f 66 20 6a 6f 62 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 75 66 66 65 72 3a 3e 29 ┆:top of job controlled buffer:>)┆
0x2b9e0…2ba00 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 36 38 2c 31 30 2c 33 2e 00 00 00 00 00 00 00 00 ┆; writelist(168,10,3. ┆
0x2ba00…2ba06 (349,) (0x1f8,0x575)
0x2ba06…2ba20 30 2c 3c 3a 70 61 67 65 20 63 6f 75 6e 74 20 61 64 64 72 65 73 73 3a 3e 29 3b ┆0,<:page count address:>);┆
0x2ba20…2ba40 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 20 20 20 20 ┆ comment lkn 75.09.10 ┆
0x2ba40…2ba60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 20 2e ┆ textxref page .┆
0x2ba60…2ba7e 2e 2e 31 34 2e 2e 2e 0a 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 37 31 2c 35 2c 33 ┆..14... ; writelist(171,5,3┆
0x2ba7e…2ba84 (0x1f8,0x576)
0x2ba84…2baa0 33 2e 30 2c 3c 3a 76 69 72 74 2e 61 64 64 72 65 73 73 20 6f 66 20 77 6f 72 6b 20 70 ┆3.0,<:virt.address of work p┆
0x2baa0…2bac0 61 67 65 28 64 31 33 20 6f 6e 20 6a 6f 62 20 66 69 6c 65 20 70 61 67 65 29 20 75 73 65 64 20 62 ┆age(d13 on job file page) used b┆
0x2bac0…2bae0 79 20 64 69 73 70 6c 61 79 20 63 6f 72 65 20 63 6f 6d 6d 61 6e 64 3a 3e 29 3b 0a 20 20 20 77 72 ┆y display core command:>); wr┆
0x2bae0…2bafc 69 74 65 6c 69 73 74 28 31 37 32 2c 37 2c 31 35 2e 31 2c 3c 3a 74 65 72 6d 69 6e 61 ┆itelist(172,7,15.1,<:termina┆
0x2bafc…2bb02 (0x1f8,0x577)
0x2bb02…2bb20 6c 20 75 73 65 72 20 72 69 67 68 74 73 20 28 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 ┆l user rights (on job descr pa┆
0x2bb20…2bb40 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 37 33 2c 37 2c 31 35 2e 31 2c ┆ge):>); writelist(173,7,15.1,┆
0x2bb40…2bb60 3c 3a 72 65 6c 20 61 64 64 72 20 6f 66 20 72 65 61 64 65 72 20 74 61 62 6c 65 20 28 66 72 6f 6d ┆<:rel addr of reader table (from┆
0x2bb60…2bb7a 20 72 65 61 64 65 72 20 6f 70 65 72 61 74 69 6f 6e 29 3a 3e 29 3b 0a 0a 20 20 ┆ reader operation):>); ┆
0x2bb7a…2bb80 (0x1f8,0x578)
0x2bb80…2bba0 20 77 72 69 74 65 6c 69 73 74 28 31 37 34 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 76 65 72 69 ┆ writelist(174,5,46.0,<:rel veri┆
0x2bba0…2bbc0 66 79 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 ┆fy (virt=162):>); writelist(1┆
0x2bbc0…2bbe0 37 35 2c 35 2c 33 32 2e 30 2c 3c 3a 70 73 6a 6f 62 20 71 75 65 75 65 20 28 72 65 6c 20 64 35 30 ┆75,5,32.0,<:psjob queue (rel d50┆
0x2bbe0…2bc00 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ on jobfile page):>); ┆
0x2bc00…2bc06 (350,) (0x1f8,0x579)
0x2bc06…2bc20 20 77 72 69 74 65 6c 69 73 74 28 31 37 36 2c 35 2c 33 32 2e 30 2c 3c 3a 6a 6f ┆ writelist(176,5,32.0,<:jo┆
0x2bc20…2bc40 62 20 69 6e 20 63 6f 72 65 20 28 72 65 6c 20 64 35 31 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 ┆b in core (rel d51 on jobfile pa┆
0x2bc40…2bc60 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 37 37 2c 35 2c 33 32 2e 30 2c ┆ge):>); writelist(177,5,32.0,┆
0x2bc60…2bc7e 3c 3a 6a 6f 62 20 64 65 73 63 72 69 70 74 69 6f 6e 20 70 61 67 65 20 28 72 65 6c 20 64 33 ┆<:job description page (rel d3┆
0x2bc7e…2bc84 (0x1f8,0x57a)
0x2bc84…2bca0 36 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 ┆6 on jobfile page):>); wr┆
0x2bca0…2bcc0 69 74 65 6c 69 73 74 28 31 37 38 2c 35 2c 33 32 2e 30 2c 3c 3a 66 69 72 73 74 20 61 64 64 72 65 ┆itelist(178,5,32.0,<:first addre┆
0x2bcc0…2bce0 73 73 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 20 28 72 65 6c 20 64 34 32 20 6f ┆ss of terminal buffer (rel d42 o┆
0x2bce0…2bcfc 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆n jobfile page):>); write┆
0x2bcfc…2bd02 (0x1f8,0x57b)
0x2bd02…2bd20 6c 69 73 74 28 31 37 39 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 64 36 20 6f 6e 20 6a 6f ┆list(179,5,32.0,<:rel d6 on jo┆
0x2bd20…2bd40 62 66 69 6c 65 20 70 61 67 65 3a 20 63 6f 6e 73 6f 6c 65 20 73 74 61 74 65 3c 31 32 20 2b 20 6a ┆bfile page: console state<12 + j┆
0x2bd40…2bd60 6f 62 20 73 74 61 74 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ob state. ┆
0x2bd60…2bd7a 20 20 20 20 20 20 63 6f 6e 73 6f 6c 65 20 73 74 61 74 65 20 28 6c 65 66 74 20 ┆ console state (left ┆
0x2bd7a…2bd80 (0x1f8,0x57c)
0x2bd80…2bda0 62 79 74 65 29 3a 20 20 38 2b 72 65 61 64 79 2a 34 2b 75 73 65 72 2a 32 2b 6f 70 65 72 61 74 6f ┆byte): 8+ready*4+user*2+operato┆
0x2bda0…2bdc0 72 2a 31 2b 75 6e 6c 6f 67 67 65 64 2a 31 36 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r*1+unlogged*16. ┆
0x2bdc0…2bde0 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 6f 62 20 73 74 61 74 65 20 28 72 69 67 68 74 20 62 79 ┆ job state (right by┆
0x2bde0…2be00 74 65 29 3a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆te): ┆
0x2be00…2be06 (351,) (0x1f8,0x57d)
0x2be06…2be20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3c 30 20 20 6a 6f 62 20 63 61 72 ┆ 1<0 job car┆
0x2be20…2be40 64 20 72 65 61 64 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 ┆d reader ┆
0x2be40…2be60 20 20 20 20 20 20 20 20 20 31 3c 31 20 20 6a 6f 62 20 70 72 69 6e 74 65 72 0a 20 20 20 20 20 20 ┆ 1<1 job printer ┆
0x2be60…2be7e 20 20 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 3c 32 20 ┆ 1<2 ┆
0x2be7e…2be84 (0x1f8,0x57e)
0x2be84…2bea0 20 6a 6f 62 20 74 61 70 65 20 72 65 61 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ job tape reader ┆
0x2bea0…2bec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3c 33 20 20 6f 66 66 20 6c 69 ┆ 1<3 off li┆
0x2bec0…2bee0 6e 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 ┆ne ┆
0x2bee0…2befc 20 20 20 31 3c 34 20 20 6a 6f 62 20 70 72 69 6e 74 65 72 20 75 73 65 64 0a 20 20 20 ┆ 1<4 job printer used ┆
0x2befc…2bf02 (0x1f8,0x57f)
0x2bf02…2bf20 20 20 20 20 20 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 ┆ 1┆
0x2bf20…2bf40 3c 35 20 20 6e 6f 20 63 6f 6e 76 65 72 73 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆<5 no conversation ┆
0x2bf40…2bf60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3c 36 20 20 6a 6f 62 20 70 72 69 ┆ 1<6 job pri┆
0x2bf60…2bf7a 6e 74 65 72 20 61 63 63 6f 75 6e 74 65 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆nter accounted:>); writ┆
0x2bf7a…2bf80 (0x1f8,0x580)
0x2bf80…2bfa0 65 6c 69 73 74 28 31 38 30 2c 35 2c 33 32 2e 30 2c 3c 3a 65 78 68 61 75 73 74 20 63 6f 75 6e 74 ┆elist(180,5,32.0,<:exhaust count┆
0x2bfa0…2bfc0 20 28 72 65 6c 20 64 35 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 ┆ (rel d52 on jobfile page):>); ┆
0x2bfc0…2bfe0 20 20 77 72 69 74 65 6c 69 73 74 28 31 38 31 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 73 74 20 72 6f ┆ writelist(181,5,32.0,<:rest ro┆
0x2bfe0…2c000 6f 6d 20 6f 6e 20 70 61 67 65 20 28 72 65 6c 20 64 35 33 20 6f 6e 20 6a 00 00 00 00 00 00 00 00 ┆om on page (rel d53 on j ┆
0x2c000…2c006 (352,) (0x1f8,0x581)
0x2c006…2c020 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆obfile page):>); writel┆
0x2c020…2c040 69 73 74 28 31 38 32 2c 35 2c 33 32 2e 30 2c 3c 3a 6a 6f 62 20 62 75 66 66 65 72 20 69 6e 64 65 ┆ist(182,5,32.0,<:job buffer inde┆
0x2c040…2c060 78 20 28 72 65 6c 20 64 35 34 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a ┆x (rel d54 on jobfile page):>); ┆
0x2c060…2c07e 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 38 33 2c 35 2c 33 32 2e 30 2c 3c 3a 67 65 74 20 ┆ writelist(183,5,32.0,<:get ┆
0x2c07e…2c084 (0x1f8,0x582)
0x2c084…2c0a0 63 75 72 72 65 6e 74 20 76 69 72 74 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73 20 ┆current virt buffer address ┆
0x2c0a0…2c0c0 28 72 65 6c 20 64 35 35 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 ┆(rel d55 on jobfile page):>); ┆
0x2c0c0…2c0e0 20 77 72 69 74 65 6c 69 73 74 28 31 38 34 2c 35 2c 33 32 2e 30 2c 3c 3a 6d 65 73 73 61 67 65 20 ┆ writelist(184,5,32.0,<:message ┆
0x2c0e0…2c0fc 61 64 64 72 65 73 73 20 28 72 65 6c 20 64 35 36 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 ┆address (rel d56 on jobfile ┆
0x2c0fc…2c102 (0x1f8,0x583)
0x2c102…2c120 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 38 35 2c 35 2c 33 ┆page):>); writelist(185,5,3┆
0x2c120…2c140 32 2e 30 2c 3c 3a 66 69 72 73 74 20 6f 66 20 6a 6f 62 20 28 65 76 65 6e 29 20 28 72 65 6c 20 64 ┆2.0,<:first of job (even) (rel d┆
0x2c140…2c160 35 37 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆57 on jobfile page):>); write┆
0x2c160…2c17a 6c 69 73 74 28 31 38 36 2c 35 2c 33 32 2e 30 2c 3c 3a 74 6f 70 20 6f 66 20 6a ┆list(186,5,32.0,<:top of j┆
0x2c17a…2c180 (0x1f8,0x584)
0x2c180…2c1a0 6f 62 20 28 29 20 28 72 65 6c 20 64 35 38 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a ┆ob () (rel d58 on jobfile page):┆
0x2c1a0…2c1c0 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 38 37 2c 35 2c 33 32 2e 30 2c 3c 3a 62 61 ┆>); writelist(187,5,32.0,<:ba┆
0x2c1c0…2c1e0 73 65 20 73 74 6f 72 65 20 72 65 6c 20 28 72 65 6c 20 64 31 39 20 6f 6e 20 6a 6f 62 66 69 6c 65 ┆se store rel (rel d19 on jobfile┆
0x2c1e0…2c200 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 00 00 00 00 00 00 00 00 ┆ page):>); writelist( ┆
0x2c200…2c206 (353,) (0x1f8,0x585)
0x2c206…2c220 31 38 38 2c 35 2c 33 32 2e 30 2c 3c 3a 61 62 73 20 6f 6e 20 70 61 67 65 20 28 ┆188,5,32.0,<:abs on page (┆
0x2c220…2c240 72 65 6c 20 64 31 38 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 ┆rel d18 on jobfile page):>); ┆
0x2c240…2c260 77 72 69 74 65 6c 69 73 74 28 31 38 39 2c 35 2c 33 32 2e 30 2c 3c 3a 77 6f 72 6b 20 70 61 67 65 ┆writelist(189,5,32.0,<:work page┆
0x2c260…2c27e 20 76 69 72 74 20 61 64 64 72 65 73 73 20 28 72 65 6c 20 64 31 36 20 6f 6e 20 6a 6f 62 66 ┆ virt address (rel d16 on jobf┆
0x2c27e…2c284 (0x1f8,0x586)
0x2c284…2c2a0 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 ┆ile page):>); writelist(1┆
0x2c2a0…2c2c0 39 30 2c 35 2c 33 32 2e 30 2c 3c 3a 6c 69 6e 65 20 67 6f 74 20 2d 20 6c 6f 67 69 63 61 6c 20 73 ┆90,5,32.0,<:line got - logical s┆
0x2c2c0…2c2e0 74 61 74 75 73 20 61 74 20 61 6c 61 72 6d 20 28 72 65 6c 20 64 33 33 20 6f 6e 20 6a 6f 62 66 69 ┆tatus at alarm (rel d33 on jobfi┆
0x2c2e0…2c2fc 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 39 ┆le page):>); writelist(19┆
0x2c2fc…2c302 (0x1f8,0x587)
0x2c302…2c320 31 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 73 74 20 72 6f 6f 6d 20 6f 6e 20 70 61 67 65 20 28 ┆1,5,32.0,<:rest room on page (┆
0x2c320…2c340 72 65 6c 20 64 35 39 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 ┆rel d59 on jobfile page):>); ┆
0x2c340…2c360 77 72 69 74 65 6c 69 73 74 28 31 39 32 2c 35 2c 33 32 2e 30 2c 3c 3a 6a 6f 62 20 62 75 66 66 65 ┆writelist(192,5,32.0,<:job buffe┆
0x2c360…2c37a 72 20 69 6e 64 65 78 20 28 72 65 6c 20 64 36 30 20 6f 6e 20 6a 6f 62 66 69 6c ┆r index (rel d60 on jobfil┆
0x2c37a…2c380 (0x1f8,0x588)
0x2c380…2c3a0 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 39 33 2c 35 2c 33 ┆e page):>); writelist(193,5,3┆
0x2c3a0…2c3c0 32 2e 30 2c 3c 3a 76 69 72 74 20 62 75 66 66 65 72 20 28 72 65 6c 20 64 36 31 20 6f 6e 20 6a 6f ┆2.0,<:virt buffer (rel d61 on jo┆
0x2c3c0…2c3e0 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 39 34 ┆bfile page):>); writelist(194┆
0x2c3e0…2c400 2c 35 2c 33 32 2e 30 2c 3c 3a 66 69 72 73 74 20 62 75 66 66 65 72 20 62 00 00 00 00 00 00 00 00 ┆,5,32.0,<:first buffer b ┆
0x2c400…2c406 (354,) (0x1f8,0x589)
0x2c406…2c420 79 74 65 20 28 72 65 6c 20 64 36 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 ┆yte (rel d62 on jobfile pa┆
0x2c420…2c440 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 39 35 2c 35 2c 33 32 2e 30 2c ┆ge):>); writelist(195,5,32.0,┆
0x2c440…2c460 3c 3a 6e 61 6d 65 20 6f 66 20 73 75 70 65 72 20 62 75 66 66 65 72 20 61 72 65 61 20 28 72 65 6c ┆<:name of super buffer area (rel┆
0x2c460…2c47e 20 64 36 33 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 ┆ d63 on jobfile page):>); w┆
0x2c47e…2c484 (0x1f8,0x58a)
0x2c484…2c4a0 72 69 74 65 6c 69 73 74 28 31 39 36 2c 35 2c 33 32 2e 30 2c 3c 3a 6c 65 6e 67 74 68 ┆ritelist(196,5,32.0,<:length┆
0x2c4a0…2c4c0 20 6f 66 20 73 75 70 65 72 20 62 75 66 66 65 72 20 28 6e 6f 20 6f 66 20 73 65 67 6d 2e 20 2a 20 ┆ of super buffer (no of segm. * ┆
0x2c4c0…2c4e0 35 31 32 20 2d 20 35 31 32 29 20 28 72 65 6c 20 64 36 34 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 ┆512 - 512) (rel d64 on jobfile p┆
0x2c4e0…2c4fc 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 39 37 2c 35 2c ┆age):>); writelist(197,5,┆
0x2c4fc…2c502 (0x1f8,0x58b)
0x2c502…2c520 33 32 2e 30 2c 3c 3a 74 65 72 6d 69 6e 61 6c 20 66 75 6c 6c 20 28 72 65 6c 20 64 36 35 20 ┆32.0,<:terminal full (rel d65 ┆
0x2c520…2c540 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆on jobfile page):>); writelis┆
0x2c540…2c560 74 28 31 39 38 2c 35 2c 33 32 2e 30 2c 3c 3a 70 72 6f 67 20 73 74 61 74 65 20 28 61 6e 64 20 61 ┆t(198,5,32.0,<:prog state (and a┆
0x2c560…2c57a 6e 73 77 65 72 20 72 65 6c 29 20 28 72 65 6c 20 64 36 36 20 6f 6e 20 6a 6f 62 ┆nswer rel) (rel d66 on job┆
0x2c57a…2c580 (0x1f8,0x58c)
0x2c580…2c5a0 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 31 39 39 2c ┆file page):>); writelist(199,┆
0x2c5a0…2c5c0 35 2c 33 32 2e 30 2c 3c 3a 63 75 72 72 65 6e 74 20 76 69 72 74 75 61 6c 20 61 64 64 72 65 73 73 ┆5,32.0,<:current virtual address┆
0x2c5c0…2c5e0 20 6f 66 20 63 61 72 64 20 62 75 66 66 65 72 20 28 72 65 6c 20 64 36 37 20 6f 6e 20 6a 6f 62 66 ┆ of card buffer (rel d67 on jobf┆
0x2c5e0…2c600 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 00 00 00 00 00 00 00 00 ┆ile page):>); writeli ┆
0x2c600…2c606 (355,) (0x1f8,0x58d)
0x2c606…2c620 73 74 28 32 30 30 2c 35 2c 33 32 2e 30 2c 3c 3a 6c 61 73 74 20 72 65 63 65 69 ┆st(200,5,32.0,<:last recei┆
0x2c620…2c640 76 65 64 20 73 74 61 74 75 73 20 6f 66 20 63 61 72 64 20 72 65 61 64 65 72 20 28 72 65 6c 20 64 ┆ved status of card reader (rel d┆
0x2c640…2c660 36 38 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆68 on jobfile page):>); write┆
0x2c660…2c67e 6c 69 73 74 28 32 30 31 2c 35 2c 33 32 2e 30 2c 3c 3a 63 61 72 64 20 6c 65 6e 67 74 68 20 ┆list(201,5,32.0,<:card length ┆
0x2c67e…2c684 (0x1f8,0x58e)
0x2c684…2c6a0 28 72 65 6c 20 64 36 39 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 ┆(rel d69 on jobfile page):>)┆
0x2c6a0…2c6c0 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 30 32 2c 35 2c 33 33 2e 30 2c 3c 3a 76 69 72 74 ┆; writelist(202,5,33.0,<:virt┆
0x2c6c0…2c6e0 20 63 6f 6d 6d 61 6e 64 69 6f 20 63 65 6e 74 72 61 6c 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆ commandio central:>); writel┆
0x2c6e0…2c6fc 69 73 74 28 32 30 33 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 61 66 74 65 72 20 61 ┆ist(203,5,32.0,<:rel after a┆
0x2c6fc…2c702 (0x1f8,0x58f)
0x2c702…2c720 63 74 69 6f 6e 20 28 76 69 72 74 3d 32 30 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆ction (virt=202):>); writel┆
0x2c720…2c740 69 73 74 28 32 30 34 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 61 6c 61 72 6d 20 70 72 69 6e 74 ┆ist(204,5,46.0,<:rel alarm print┆
0x2c740…2c760 69 6e 67 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆ing (virt=162):>); writelist(┆
0x2c760…2c77a 32 30 35 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 69 6f 20 61 6c 61 72 6d 20 ┆205,5,46.0,<:rel io alarm ┆
0x2c77a…2c780 (0x1f8,0x590)
0x2c780…2c7a0 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 30 36 2c ┆(virt=162):>); writelist(206,┆
0x2c7a0…2c7c0 36 2c 33 31 2e 30 2c 3c 3a 76 69 72 74 20 73 61 76 65 2c 20 67 65 74 3a 3e 29 3b 0a 20 20 20 77 ┆6,31.0,<:virt save, get:>); w┆
0x2c7c0…2c7e0 72 69 74 65 6c 69 73 74 28 32 30 37 2c 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 20 73 61 76 65 20 28 ┆ritelist(207,6,31.0,<:rel save (┆
0x2c7e0…2c800 76 69 72 74 3d 32 30 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 00 00 00 00 00 00 00 00 ┆virt=206):>); writeli ┆
0x2c800…2c806 (356,) (0x1f8,0x591)
0x2c806…2c820 73 74 28 32 30 38 2c 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 20 67 65 74 20 28 76 ┆st(208,6,31.0,<:rel get (v┆
0x2c820…2c840 69 72 74 3d 32 30 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 30 39 2c 35 2c ┆irt=206):>); writelist(209,5,┆
0x2c840…2c860 34 36 2e 30 2c 3c 3a 72 65 6c 20 6c 69 73 74 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 ┆46.0,<:rel list (virt=162):>); ┆
0x2c860…2c87e 20 20 77 72 69 74 65 6c 69 73 74 28 32 31 30 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 66 ┆ writelist(210,5,46.0,<:rel f┆
0x2c87e…2c884 (0x1f8,0x592)
0x2c884…2c8a0 69 6c 65 20 61 6c 61 72 6d 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 ┆ile alarm (virt=162):>); ┆
0x2c8a0…2c8c0 77 72 69 74 65 6c 69 73 74 28 32 31 31 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 62 75 6c 6b 20 ┆writelist(211,5,32.0,<:rel bulk ┆
0x2c8c0…2c8e0 67 65 74 20 28 76 69 72 74 3d 31 35 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆get (virt=157):>); writelist(┆
0x2c8e0…2c8fc 32 31 32 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 62 75 6c 6b 20 73 61 76 65 20 28 ┆212,5,32.0,<:rel bulk save (┆
0x2c8fc…2c902 (0x1f8,0x593)
0x2c902…2c920 76 69 72 74 3d 31 35 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 31 33 ┆virt=157):>); writelist(213┆
0x2c920…2c940 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 63 6c 65 61 72 20 63 6f 72 72 65 63 74 69 6f 6e 73 20 ┆,5,32.0,<:rel clear corrections ┆
0x2c940…2c960 28 76 69 72 74 3d 31 35 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 31 34 2c ┆(virt=157):>); writelist(214,┆
0x2c960…2c97a 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 ┆5,46.0,<:rel date and time┆
0x2c97a…2c980 (0x1f8,0x594)
0x2c980…2c9a0 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 31 35 ┆ (virt=162):>); writelist(215┆
0x2c9a0…2c9c0 2c 36 2c 33 31 2e 30 2c 3c 3a 76 69 72 74 20 6c 6f 67 6f 75 74 2c 20 63 68 65 63 6b 20 6c 6f 67 ┆,6,31.0,<:virt logout, check log┆
0x2c9c0…2c9e0 69 6e 20 28 72 65 6c 3d 32 31 36 2c 20 32 32 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆in (rel=216, 220):>); writeli┆
0x2c9e0…2ca00 73 74 28 32 31 36 2c 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 20 6c 6f 67 6f 00 00 00 00 00 00 00 00 ┆st(216,6,31.0,<:rel logo ┆
0x2ca00…2ca06 (357,) (0x1f8,0x595)
0x2ca06…2ca20 75 74 20 28 76 69 72 74 3d 32 31 35 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆ut (virt=215):>); write┆
0x2ca20…2ca40 6c 69 73 74 28 32 31 37 2c 35 2c 33 32 2e 30 2c 3c 3a 74 65 72 6d 69 6e 61 6c 20 6e 61 6d 65 20 ┆list(217,5,32.0,<:terminal name ┆
0x2ca40…2ca60 28 72 65 6c 20 64 34 31 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 20 3d 20 65 78 74 65 ┆(rel d41 on jobfile page) = exte┆
0x2ca60…2ca7e 72 6e 61 6c 20 33 30 30 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 31 38 2c ┆rnal 300:>); writelist(218,┆
0x2ca7e…2ca84 (0x1f8,0x596)
0x2ca84…2caa0 35 2c 33 32 2e 30 2c 3c 3a 62 61 73 69 73 20 66 69 6c 65 20 6e 61 6d 65 20 28 72 65 ┆5,32.0,<:basis file name (re┆
0x2caa0…2cac0 6c 20 64 34 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 ┆l d42 on jobfile page):>); wr┆
0x2cac0…2cae0 69 74 65 6c 69 73 74 28 32 31 39 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 72 65 61 64 20 6c 6f ┆itelist(219,5,32.0,<:rel read lo┆
0x2cae0…2cafc 67 69 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 76 69 72 74 3d 32 30 32 29 3a 3e ┆gin information (virt=202):>┆
0x2cafc…2cb02 (0x1f8,0x597)
0x2cb02…2cb20 29 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 ┆); comment lkn 75.09.10 ┆
0x2cb20…2cb40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 ┆ textxref pag┆
0x2cb40…2cb60 65 20 20 2e 2e 2e 31 35 2e 2e 2e 0a 3b 0a 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 32 30 2c ┆e ...15... ; writelist(220,┆
0x2cb60…2cb7a 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 20 63 68 65 63 6b 20 6c 6f 67 69 6e 20 70 ┆6,31.0,<:rel check login p┆
0x2cb7a…2cb80 (0x1f8,0x598)
0x2cb80…2cba0 61 72 61 6d 20 28 76 69 72 74 3d 32 31 35 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆aram (virt=215):>); writelist┆
0x2cba0…2cbc0 28 32 32 31 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 74 65 72 6d 69 6e 61 6c 20 72 65 73 65 72 ┆(221,5,32.0,<:rel terminal reser┆
0x2cbc0…2cbe0 76 65 20 28 72 65 6c 20 64 33 38 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b ┆ve (rel d38 on jobfile page):>);┆
0x2cbe0…2cc00 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 32 32 2c 35 2c 33 32 2e 30 00 00 00 00 00 00 00 00 ┆ writelist(222,5,32.0 ┆
0x2cc00…2cc06 (358,) (0x1f8,0x599)
0x2cc06…2cc20 2c 3c 3a 72 65 6c 20 74 65 72 6d 69 6e 61 6c 20 73 65 6e 64 65 72 20 64 65 73 ┆,<:rel terminal sender des┆
0x2cc20…2cc40 63 72 2e 20 61 64 64 72 2e 20 28 72 65 6c 20 64 34 30 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 ┆cr. addr. (rel d40 on jobfile pa┆
0x2cc40…2cc60 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 32 33 2c 35 2c 33 32 2e 30 2c ┆ge):>); writelist(223,5,32.0,┆
0x2cc60…2cc7e 3c 3a 72 65 6c 20 61 74 74 65 6e 74 69 6f 6e 20 73 65 6d 61 70 68 6f 72 65 20 28 72 65 6c ┆<:rel attention semaphore (rel┆
0x2cc7e…2cc84 (0x1f8,0x59a)
0x2cc84…2cca0 20 64 33 39 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 ┆ d39 on jobfile page):>); ┆
0x2cca0…2ccc0 20 77 72 69 74 65 6c 69 73 74 28 32 32 34 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 73 74 61 72 ┆ writelist(224,5,46.0,<:rel star┆
0x2ccc0…2cce0 74 20 63 6f 6d 6d 61 6e 64 69 6f 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 ┆t commandio (virt=162):>); wr┆
0x2cce0…2ccfc 69 74 65 6c 69 73 74 28 32 32 35 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 6c 6f 67 ┆itelist(225,5,46.0,<:rel log┆
0x2ccfc…2cd02 (0x1f8,0x59b)
0x2cd02…2cd20 69 6e 20 61 66 74 65 72 20 65 72 72 6f 72 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a ┆in after error (virt=162):>); ┆
0x2cd20…2cd40 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 32 36 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 28 2d 32 ┆ writelist(226,5,32.0,<:rel(-2┆
0x2cd40…2cd60 3a 6c 6f 67 69 6e 20 74 69 6d 65 29 2c 20 6f 70 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d ┆:login time), operations perform┆
0x2cd60…2cd7a 65 64 20 28 72 65 6c 20 64 34 34 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 ┆ed (rel d44 on jobfile pag┆
0x2cd7a…2cd80 (0x1f8,0x59c)
0x2cd80…2cda0 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 32 37 2c 35 2c 33 32 2e 30 2c 3c ┆e):>); writelist(227,5,32.0,<┆
0x2cda0…2cdc0 3a 72 65 6c 20 73 74 64 20 69 6e 74 65 72 76 61 6c 20 28 72 65 6c 20 64 34 35 20 6f 6e 20 6a 6f ┆:rel std interval (rel d45 on jo┆
0x2cdc0…2cde0 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 32 38 ┆bfile page):>); writelist(228┆
0x2cde0…2ce00 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 6f 66 20 66 69 72 73 74 20 63 00 00 00 00 00 00 00 00 ┆,5,32.0,<:rel of first c ┆
0x2ce00…2ce06 (359,) (0x1f8,0x59d)
0x2ce06…2ce20 6f 72 72 65 63 74 69 6f 6e 20 73 65 67 6d 2e 20 28 72 65 6c 20 64 31 35 2b 32 ┆orrection segm. (rel d15+2┆
0x2ce20…2ce40 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆ on jobfile page):>); writeli┆
0x2ce40…2ce60 73 74 28 32 32 39 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 67 65 6e 65 72 61 6c 20 70 72 69 6e ┆st(229,5,46.0,<:rel general prin┆
0x2ce60…2ce7e 74 20 28 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆t (virt=162):>); writelist(┆
0x2ce7e…2ce84 (0x1f8,0x59e)
0x2ce84…2cea0 32 33 30 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 6e 65 78 74 20 66 69 6c 65 20 69 ┆230,5,32.0,<:rel next file i┆
0x2cea0…2cec0 6e 64 65 78 20 28 72 65 6c 20 64 33 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e ┆ndex (rel d32 on jobfile page):>┆
0x2cec0…2cee0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 33 31 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c ┆); writelist(231,5,32.0,<:rel┆
0x2cee0…2cefc 20 73 65 67 6d 2e 20 6e 75 6d 62 65 72 20 69 6e 20 62 61 73 69 73 20 66 69 6c 65 20 ┆ segm. number in basis file ┆
0x2cefc…2cf02 (0x1f8,0x59f)
0x2cf02…2cf20 28 72 65 6c 20 64 32 31 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a ┆(rel d21 on jobfile page):>); ┆
0x2cf20…2cf40 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 33 32 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 6e 65 77 ┆ writelist(232,6,9.0,<:rel new┆
0x2cf40…2cf60 6a 6f 62 20 28 76 69 72 74 3d 32 33 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆job (virt=237):>); writelist(┆
0x2cf60…2cf7a 32 33 33 2c 36 2c 33 31 2e 30 2c 3c 3a 76 69 72 74 20 73 61 76 65 20 61 6e 64 ┆233,6,31.0,<:virt save and┆
0x2cf7a…2cf80 (0x1f8,0x5a0)
0x2cf80…2cfa0 20 63 6c 65 61 6e 20 62 75 66 66 65 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 ┆ clean buffer:>); writelist(2┆
0x2cfa0…2cfc0 33 34 2c 36 2c 33 31 2e 30 2c 3c 3a 6f 70 65 72 61 74 6f 72 20 6e 61 6d 65 20 61 64 64 72 65 73 ┆34,6,31.0,<:operator name addres┆
0x2cfc0…2cfe0 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 33 35 2c 36 2c 33 31 2e 30 2c 3c 3a ┆s:>); writelist(235,6,31.0,<:┆
0x2cfe0…2d000 72 65 6c 20 67 65 74 20 66 72 6f 6d 20 70 73 6a 6f 62 20 28 76 69 72 74 00 00 00 00 00 00 00 00 ┆rel get from psjob (virt ┆
0x2d000…2d006 (360,) (0x1f8,0x5a1)
0x2d006…2d020 3d 32 30 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 33 36 ┆=206):>); writelist(236┆
0x2d020…2d040 2c 36 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 63 6f 6d 6d 61 6e 64 69 6f 20 61 6e 73 77 65 72 20 73 ┆,6,32.0,<:rel commandio answer s┆
0x2d040…2d060 65 6d 61 70 68 6f 72 65 20 28 72 65 6c 20 64 37 30 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 ┆emaphore (rel d70 on jobfile pag┆
0x2d060…2d07e 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 33 37 2c 36 2c 39 2e 30 2c ┆e):>); writelist(237,6,9.0,┆
0x2d07e…2d084 (0x1f8,0x5a2)
0x2d084…2d0a0 3c 3a 76 69 72 74 20 63 6f 6e 76 65 72 74 2c 20 67 6f 2c 20 6e 65 77 6a 6f 62 2c 20 ┆<:virt convert, go, newjob, ┆
0x2d0a0…2d0c0 72 75 6e 2c 20 72 65 67 72 65 74 2c 20 6a 6f 62 2c 20 73 74 6f 70 20 28 35 30 36 29 3a 3e 29 3b ┆run, regret, job, stop (506):>);┆
0x2d0c0…2d0e0 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 33 38 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 63 6f ┆ writelist(238,6,9.0,<:rel co┆
0x2d0e0…2d0fc 6e 76 65 72 74 20 28 76 69 72 74 3d 32 33 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆nvert (virt=237):>); writ┆
0x2d0fc…2d102 (0x1f8,0x5a3)
0x2d102…2d120 65 6c 69 73 74 28 32 33 39 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 67 6f 20 28 76 69 72 74 ┆elist(239,6,9.0,<:rel go (virt┆
0x2d120…2d140 3d 32 33 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 34 30 2c 36 2c 39 2e 30 ┆=237):>); writelist(240,6,9.0┆
0x2d140…2d160 2c 3c 3a 72 65 6c 20 72 75 6e 20 28 76 69 72 74 3d 32 33 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆,<:rel run (virt=237):>); wri┆
0x2d160…2d17a 74 65 6c 69 73 74 28 32 34 31 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 72 65 67 ┆telist(241,6,9.0,<:rel reg┆
0x2d17a…2d180 (0x1f8,0x5a4)
0x2d180…2d1a0 72 65 74 20 28 76 69 72 74 3d 32 33 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆ret (virt=237):>); writelist(┆
0x2d1a0…2d1c0 32 34 32 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 6a 6f 62 20 28 76 69 72 74 3d 32 33 37 29 3a 3e ┆242,6,9.0,<:rel job (virt=237):>┆
0x2d1c0…2d1e0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 34 33 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 ┆); writelist(243,6,9.0,<:rel ┆
0x2d1e0…2d200 73 63 6f 70 65 20 28 76 69 72 74 3d 32 35 31 29 3a 3e 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆scope (virt=251):>); ┆
0x2d200…2d206 (361,) (0x1f8,0x5a5)
0x2d206…2d220 77 72 69 74 65 6c 69 73 74 28 32 34 34 2c 36 2c 31 2e 30 2c 3c 3a 76 69 72 74 ┆writelist(244,6,1.0,<:virt┆
0x2d220…2d240 20 61 6e 73 77 65 72 20 65 74 63 2e 20 28 72 65 6c 3d 32 34 35 2c 20 32 34 36 2c 20 20 32 35 34 ┆ answer etc. (rel=245, 246, 254┆
0x2d240…2d260 2c 20 32 35 35 2c 20 32 35 36 2c 20 32 35 38 2c 20 32 39 35 2c 20 33 39 31 2c 20 33 39 32 2c 20 ┆, 255, 256, 258, 295, 391, 392, ┆
0x2d260…2d27e 34 39 30 2c 20 35 32 38 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 34 35 ┆490, 528):>); writelist(245┆
0x2d27e…2d284 (0x1f8,0x5a6)
0x2d284…2d2a0 2c 36 2c 31 2e 30 2c 3c 3a 72 65 6c 20 61 6e 73 77 65 72 20 28 76 69 72 74 3d 32 34 ┆,6,1.0,<:rel answer (virt=24┆
0x2d2a0…2d2c0 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 34 36 2c 36 2c 31 2e 30 2c 3c 3a ┆4):>); writelist(246,6,1.0,<:┆
0x2d2c0…2d2e0 72 65 6c 20 6b 69 6c 6c 20 28 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆rel kill (virt=244):>); write┆
0x2d2e0…2d2fc 6c 69 73 74 28 32 34 37 2c 36 2c 34 34 2e 30 2c 3c 3a 76 69 72 74 20 64 69 73 70 6c ┆list(247,6,44.0,<:virt displ┆
0x2d2fc…2d302 (0x1f8,0x5a7)
0x2d302…2d320 61 79 20 65 74 63 2e 20 28 72 65 6c 3d 32 34 38 2c 20 32 34 39 2c 20 32 35 30 2c 20 32 36 ┆ay etc. (rel=248, 249, 250, 26┆
0x2d320…2d340 33 2c 20 32 36 35 2c 20 34 38 35 2c 20 34 38 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆3, 265, 485, 486):>); writeli┆
0x2d340…2d360 73 74 28 32 34 38 2c 36 2c 34 34 2e 30 2c 3c 3a 72 65 6c 20 64 69 73 70 6c 61 79 20 28 76 69 72 ┆st(248,6,44.0,<:rel display (vir┆
0x2d360…2d37a 74 3d 32 34 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 34 ┆t=247):>); writelist(24┆
0x2d37a…2d380 (0x1f8,0x5a8)
0x2d380…2d3a0 39 2c 36 2c 34 34 2e 30 2c 3c 3a 72 65 6c 20 72 65 71 75 65 73 74 20 28 76 69 72 74 3d 32 34 37 ┆9,6,44.0,<:rel request (virt=247┆
0x2d3a0…2d3c0 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 35 30 2c 36 2c 34 34 2e 30 2c 3c 3a ┆):>); writelist(250,6,44.0,<:┆
0x2d3c0…2d3e0 72 65 6c 20 6b 69 74 20 28 76 69 72 74 3d 32 34 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆rel kit (virt=247):>); writel┆
0x2d3e0…2d400 69 73 74 28 32 35 31 2c 36 2c 39 2e 30 2c 3c 3a 76 69 72 74 20 72 65 6e 00 00 00 00 00 00 00 00 ┆ist(251,6,9.0,<:virt ren ┆
0x2d400…2d406 (362,) (0x1f8,0x5a9)
0x2d406…2d420 61 6d 65 2c 20 63 6c 65 61 72 2c 20 73 63 6f 70 65 3a 3e 29 3b 0a 20 20 20 77 ┆ame, clear, scope:>); w┆
0x2d420…2d440 72 69 74 65 6c 69 73 74 28 32 35 32 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 72 65 6e 61 6d 65 20 ┆ritelist(252,6,9.0,<:rel rename ┆
0x2d440…2d460 28 76 69 72 74 3d 32 35 31 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 35 33 2c ┆(virt=251):>); writelist(253,┆
0x2d460…2d47e 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 63 6c 65 61 72 20 28 76 69 72 74 3d 32 35 31 29 3a 3e ┆6,9.0,<:rel clear (virt=251):>┆
0x2d47e…2d484 (0x1f8,0x5aa)
0x2d484…2d4a0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 35 34 2c 36 2c 31 2e 30 2c 3c 3a ┆); writelist(254,6,1.0,<:┆
0x2d4a0…2d4c0 72 65 6c 20 73 74 61 72 74 20 28 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆rel start (virt=244):>); writ┆
0x2d4c0…2d4e0 65 6c 69 73 74 28 32 35 35 2c 36 2c 31 2e 30 2c 3c 3a 72 65 6c 20 72 65 70 65 61 74 20 28 76 69 ┆elist(255,6,1.0,<:rel repeat (vi┆
0x2d4e0…2d4fc 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 35 36 ┆rt=244):>); writelist(256┆
0x2d4fc…2d502 (0x1f8,0x5ab)
0x2d502…2d520 2c 36 2c 31 2e 30 2c 3c 3a 72 65 6c 20 63 6c 6f 73 65 20 28 76 69 72 74 3d 32 34 34 29 3a ┆,6,1.0,<:rel close (virt=244):┆
0x2d520…2d540 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 35 37 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 ┆>); writelist(257,5,32.0,<:re┆
0x2d540…2d560 74 75 72 6e 20 66 6f 72 20 6e 65 78 74 20 6c 69 6e 65 20 65 74 63 2e 20 28 72 65 6c 20 64 32 35 ┆turn for next line etc. (rel d25┆
0x2d560…2d57a 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 ┆ on jobfile page):>); w┆
0x2d57a…2d580 (0x1f8,0x5ac)
0x2d580…2d5a0 72 69 74 65 6c 69 73 74 28 32 35 38 2c 36 2c 31 2e 30 2c 3c 3a 72 65 6c 20 63 68 61 6e 67 65 20 ┆ritelist(258,6,1.0,<:rel change ┆
0x2d5a0…2d5c0 28 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 35 39 2c ┆(virt=244):>); writelist(259,┆
0x2d5c0…2d5e0 36 2c 33 31 2e 30 2c 3c 3a 76 69 72 74 20 74 72 61 6e 73 6d 69 74 3a 3e 29 3b 0a 20 20 20 77 72 ┆6,31.0,<:virt transmit:>); wr┆
0x2d5e0…2d600 69 74 65 6c 69 73 74 28 32 36 30 2c 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 00 00 00 00 00 00 00 00 ┆itelist(260,6,31.0,<:rel ┆
0x2d600…2d606 (363,) (0x1f8,0x5ad)
0x2d606…2d620 20 74 72 61 6e 73 6d 69 74 20 28 76 69 72 74 3d 32 35 39 29 3a 3e 29 3b 0a 20 ┆ transmit (virt=259):>); ┆
0x2d620…2d640 20 20 77 72 69 74 65 6c 69 73 74 28 32 36 31 2c 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 20 63 72 65 ┆ writelist(261,6,31.0,<:rel cre┆
0x2d640…2d660 61 74 65 20 6f 75 74 70 75 74 20 28 76 69 72 74 3d 32 30 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆ate output (virt=206):>); wri┆
0x2d660…2d67e 74 65 6c 69 73 74 28 32 36 32 2c 36 2c 33 31 2e 30 2c 3c 3a 72 65 6c 20 72 65 74 75 72 6e ┆telist(262,6,31.0,<:rel return┆
0x2d67e…2d684 (0x1f8,0x5ae)
0x2d684…2d6a0 20 66 72 6f 6d 20 63 72 65 61 74 65 20 6f 75 74 70 75 74 3a 3e 29 3b 0a 20 20 20 77 ┆ from create output:>); w┆
0x2d6a0…2d6c0 72 69 74 65 6c 69 73 74 28 32 36 33 2c 36 2c 34 34 2e 30 2c 3c 3a 72 65 6c 20 6b 69 74 20 6c 61 ┆ritelist(263,6,44.0,<:rel kit la┆
0x2d6c0…2d6e0 62 65 6c 20 28 76 69 72 74 3d 32 34 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆bel (virt=247):>); writelist(┆
0x2d6e0…2d6fc 32 36 34 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 61 74 74 65 6e 74 69 6f 6e 20 28 ┆264,5,46.0,<:rel attention (┆
0x2d6fc…2d702 (0x1f8,0x5af)
0x2d702…2d720 76 69 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 36 35 ┆virt=162):>); writelist(265┆
0x2d720…2d740 2c 36 2c 34 34 2e 30 2c 3c 3a 72 65 6c 20 72 65 73 6f 75 72 63 65 20 64 69 73 70 6c 61 79 20 28 ┆,6,44.0,<:rel resource display (┆
0x2d740…2d760 76 69 72 74 3d 32 34 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 36 37 2c 31 ┆virt=247):>); writelist(267,1┆
0x2d760…2d77a 33 2c 34 2e 30 2c 3c 3a 72 65 6c 20 75 6e 63 6c 61 69 6d 65 64 20 61 63 63 6f ┆3,4.0,<:rel unclaimed acco┆
0x2d77a…2d780 (0x1f8,0x5b0)
0x2d780…2d7a0 75 6e 74 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 36 38 2c 31 33 2c 34 2e 30 ┆unts:>); writelist(268,13,4.0┆
0x2d7a0…2d7c0 2c 3c 3a 72 65 6c 20 66 72 65 65 20 61 63 63 6f 75 6e 74 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆,<:rel free accounts:>); writ┆
0x2d7c0…2d7e0 65 6c 69 73 74 28 32 36 39 2c 31 33 2c 34 2e 30 2c 3c 3a 72 65 6c 20 61 63 63 6f 75 6e 74 20 61 ┆elist(269,13,4.0,<:rel account a┆
0x2d7e0…2d800 63 63 6f 75 6e 74 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 00 00 00 00 00 00 00 00 ┆ccounts:>); writelist ┆
0x2d800…2d806 (364,) (0x1f8,0x5b1)
0x2d806…2d820 28 32 37 30 2c 31 33 2c 35 2e 30 2c 3c 3a 28 6a 32 30 29 20 72 65 6c 20 66 69 ┆(270,13,5.0,<:(j20) rel fi┆
0x2d820…2d840 6e 69 73 20 74 69 6d 65 20 72 65 63 6f 72 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆nis time record:>); writelist┆
0x2d840…2d860 28 32 37 31 2c 31 33 2c 35 2e 30 2c 3c 3a 28 6a 37 29 20 72 65 6c 20 73 74 61 74 65 20 72 65 63 ┆(271,13,5.0,<:(j7) rel state rec┆
0x2d860…2d87e 6f 72 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 37 34 2c 31 33 2c 35 2e ┆ord:>); writelist(274,13,5.┆
0x2d87e…2d884 (0x1f8,0x5b2)
0x2d884…2d8a0 30 2c 3c 3a 28 6a 31 35 29 20 72 65 6c 20 72 65 73 65 72 76 65 20 61 6c 6c 20 72 65 ┆0,<:(j15) rel reserve all re┆
0x2d8a0…2d8c0 63 6f 72 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 37 35 2c 31 33 2c 35 2e 30 ┆cord:>); writelist(275,13,5.0┆
0x2d8c0…2d8e0 2c 3c 3a 28 6a 31 37 2b 32 29 20 72 65 6c 20 6a 6f 62 20 6e 61 6d 65 20 72 65 63 6f 72 64 20 2b ┆,<:(j17+2) rel job name record +┆
0x2d8e0…2d8fc 20 32 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 37 36 2c 31 33 2c 35 ┆ 2:>); writelist(276,13,5┆
0x2d8fc…2d902 (0x1f8,0x5b3)
0x2d902…2d920 2e 30 2c 3c 3a 28 6a 31 37 2b 36 29 20 72 65 6c 20 6a 6f 62 20 6e 61 6d 65 20 72 65 63 6f ┆.0,<:(j17+6) rel job name reco┆
0x2d920…2d940 72 64 20 2b 20 36 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 37 37 2c 31 33 2c 35 ┆rd + 6:>); writelist(277,13,5┆
0x2d940…2d960 2e 30 2c 3c 3a 28 64 30 29 20 66 69 72 73 74 20 70 73 6a 6f 62 20 28 64 6f 77 6e 65 72 29 3a 3e ┆.0,<:(d0) first psjob (downer):>┆
0x2d960…2d97a 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 37 38 2c 31 33 2c 35 2e 30 ┆); writelist(278,13,5.0┆
0x2d97a…2d980 (0x1f8,0x5b4)
0x2d980…2d9a0 2c 3c 3a 28 64 32 2b 31 29 20 64 65 61 64 20 68 65 61 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆,<:(d2+1) dead head:>); write┆
0x2d9a0…2d9c0 6c 69 73 74 28 32 37 39 2c 31 33 2c 35 2e 30 2c 3c 3a 28 64 31 2b 31 29 20 72 65 73 6f 75 72 63 ┆list(279,13,5.0,<:(d1+1) resourc┆
0x2d9c0…2d9e0 65 20 68 65 61 64 3a 3e 29 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e ┆e head:>); comment lkn 75.┆
0x2d9e0…2da00 30 39 2e 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆09.10 ┆
0x2da00…2da06 (365,) (0x1f8,0x5b5)
0x2da06…2da20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 20 2e 2e 2e 31 36 2e 2e 2e 0a ┆ textxref page ...16... ┆
0x2da20…2da40 3b 0a 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 38 30 2c 31 33 2c 35 2e 30 2c 3c 3a 76 69 72 ┆; writelist(280,13,5.0,<:vir┆
0x2da40…2da60 74 20 62 61 6e 6b 65 72 20 76 61 72 69 61 62 6c 65 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆t banker variables:>); writel┆
0x2da60…2da7e 69 73 74 28 32 38 31 2c 31 33 2c 34 2e 30 2c 3c 3a 72 65 6c 20 6f 66 20 61 63 63 6f 75 6e ┆ist(281,13,4.0,<:rel of accoun┆
0x2da7e…2da84 (0x1f8,0x5b6)
0x2da84…2daa0 74 20 6e 61 6d 65 20 28 76 69 72 74 3d 32 38 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆t name (virt=280):>); wri┆
0x2daa0…2dac0 74 65 6c 69 73 74 28 32 38 32 2c 31 33 2c 34 2e 30 2c 3c 3a 6f 6c 64 20 74 69 6d 65 20 2d 20 6f ┆telist(282,13,4.0,<:old time - o┆
0x2dac0…2dae0 6c 64 20 63 70 75 20 74 69 6d 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 38 33 ┆ld cpu time:>); writelist(283┆
0x2dae0…2dafc 2c 31 33 2c 31 38 2e 30 2c 3c 3a 72 65 6c 20 6a 6f 62 20 73 69 7a 65 20 28 3d 6a 34 ┆,13,18.0,<:rel job size (=j4┆
0x2dafc…2db02 (0x1f8,0x5b7)
0x2db02…2db20 31 20 69 6e 20 62 61 6e 6b 65 72 73 20 6a 6f 62 20 64 65 73 63 72 69 70 74 69 6f 6e 29 3a ┆1 in bankers job description):┆
0x2db20…2db40 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 38 34 2c 31 33 2c 34 2e 30 2c 3c 3a 6c 65 ┆>); writelist(284,13,4.0,<:le┆
0x2db40…2db60 6e 67 74 68 20 70 73 6a 6f 62 20 64 65 73 63 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆ngth psjob descr:>); writelis┆
0x2db60…2db7a 74 28 32 38 35 2c 31 33 2c 36 2e 30 2c 3c 3a 6e 61 6d 65 20 74 61 62 6c 65 20 ┆t(285,13,6.0,<:name table ┆
0x2db7a…2db80 (0x1f8,0x5b8)
0x2db80…2dba0 61 64 64 72 65 73 73 20 6f 66 20 63 61 74 61 6c 6f 67 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆address of catalog:>); writel┆
0x2dba0…2dbc0 69 73 74 28 32 38 36 2c 31 33 2c 36 2e 30 2c 3c 3a 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 ┆ist(286,13,6.0,<:name table addr┆
0x2dbc0…2dbe0 65 73 73 20 6f 66 20 75 73 65 72 63 61 74 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆ess of usercat:>); writelist(┆
0x2dbe0…2dc00 32 38 37 2c 31 33 2c 35 2e 30 2c 3c 3a 73 6c 69 63 65 20 6c 65 6e 67 74 00 00 00 00 00 00 00 00 ┆287,13,5.0,<:slice lengt ┆
0x2dc00…2dc06 (366,) (0x1f8,0x5b9)
0x2dc06…2dc20 68 20 64 72 75 6d 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 38 ┆h drum:>); writelist(28┆
0x2dc20…2dc40 38 2c 31 33 2c 35 2e 30 2c 3c 3a 73 6c 69 63 65 20 6c 65 6e 67 74 68 20 64 69 73 63 3a 3e 29 3b ┆8,13,5.0,<:slice length disc:>);┆
0x2dc40…2dc60 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 38 39 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 73 ┆ writelist(289,5,32.0,<:rel s┆
0x2dc60…2dc7e 70 65 63 69 61 6c 20 63 68 61 72 20 61 6e 64 20 6c 6f 67 6f 75 74 20 63 61 75 73 65 20 2d ┆pecial char and logout cause -┆
0x2dc7e…2dc84 (0x1f8,0x5ba)
0x2dc84…2dca0 20 28 72 65 6c 20 64 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 ┆ (rel d2 on jobfile page):>)┆
0x2dca0…2dcc0 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 39 30 2c 36 2c 34 35 2e 30 2c 3c 3a 62 61 73 65 ┆; writelist(290,6,45.0,<:base┆
0x2dcc0…2dce0 20 6f 66 20 62 6f 73 73 20 6b 69 74 20 74 61 62 6c 65 20 28 31 30 20 62 79 74 65 73 20 70 72 2e ┆ of boss kit table (10 bytes pr.┆
0x2dce0…2dcfc 20 65 6e 74 72 79 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 39 31 ┆ entry):>); writelist(291┆
0x2dcfc…2dd02 (0x1f8,0x5bb)
0x2dd02…2dd20 2c 36 2c 34 35 2e 30 2c 3c 3a 6c 61 73 74 20 6f 66 20 62 6f 73 73 20 6b 69 74 20 74 61 62 ┆,6,45.0,<:last of boss kit tab┆
0x2dd20…2dd40 6c 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 39 32 2c 31 33 2c 35 2e 30 2c 3c ┆le:>); writelist(292,13,5.0,<┆
0x2dd40…2dd60 3a 28 6a 37 2b 31 29 20 72 65 6c 20 74 69 6d 65 20 63 6c 61 73 73 3a 3e 29 3b 0a 20 20 20 77 72 ┆:(j7+1) rel time class:>); wr┆
0x2dd60…2dd7a 69 74 65 6c 69 73 74 28 32 39 33 2c 31 33 2c 35 2e 30 2c 3c 3a 28 6a 31 34 29 ┆itelist(293,13,5.0,<:(j14)┆
0x2dd7a…2dd80 (0x1f8,0x5bc)
0x2dd80…2dda0 20 72 65 6c 20 72 65 73 74 20 63 6c 61 69 6d 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆ rel rest claims:>); writelis┆
0x2dda0…2ddc0 74 28 32 39 34 2c 31 33 2c 35 2e 30 2c 3c 3a 28 66 32 29 20 6c 65 6e 67 74 68 20 6f 66 20 72 65 ┆t(294,13,5.0,<:(f2) length of re┆
0x2ddc0…2dde0 73 6f 75 72 63 65 20 76 65 63 74 6f 72 3a 3e 29 3b 0a 20 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆source vector:>); writelist(┆
0x2dde0…2de00 32 39 35 2c 35 2c 33 33 2e 30 2c 3c 3a 69 6e 69 74 69 61 6c 20 63 6f 6d 00 00 00 00 00 00 00 00 ┆295,5,33.0,<:initial com ┆
0x2de00…2de06 (367,) (0x1f8,0x5bd)
0x2de06…2de20 6d 61 6e 64 20 73 74 61 74 65 20 28 67 32 30 20 69 6e 20 74 74 65 72 6d 31 29 ┆mand state (g20 in tterm1)┆
0x2de20…2de40 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 39 36 2c 39 2c 35 32 2e 30 2c 3c 3a 76 ┆:>); writelist(296,9,52.0,<:v┆
0x2de40…2de60 69 72 74 20 6e 61 6d 65 2c 20 6c 61 62 65 6c 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆irt name, label:>); writelist┆
0x2de60…2de7e 28 32 39 37 2c 39 2c 35 32 2e 30 2c 3c 3a 72 65 6c 20 6e 61 6d 65 20 28 76 69 72 74 3d 32 ┆(297,9,52.0,<:rel name (virt=2┆
0x2de7e…2de84 (0x1f8,0x5be)
0x2de84…2dea0 39 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 32 39 38 2c 39 2c 35 ┆96):>); writelist(298,9,5┆
0x2dea0…2dec0 32 2e 30 2c 3c 3a 72 65 6c 20 6c 61 62 65 6c 20 28 76 69 72 74 3d 32 39 36 29 3a 3e 29 3b 0a 20 ┆2.0,<:rel label (virt=296):>); ┆
0x2dec0…2dee0 20 20 77 72 69 74 65 6c 69 73 74 28 32 39 39 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 73 74 61 ┆ writelist(299,5,32.0,<:rel sta┆
0x2dee0…2defc 74 65 20 6f 66 20 74 65 72 6d 2e 6f 75 74 70 75 74 20 28 72 65 6c 20 64 37 31 20 6f ┆te of term.output (rel d71 o┆
0x2defc…2df02 (0x1f8,0x5bf)
0x2df02…2df20 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆n jobfile page):>); writeli┆
0x2df20…2df40 73 74 28 33 30 30 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 74 65 72 6d 69 6e 61 6c 20 6e 61 6d ┆st(300,5,32.0,<:rel terminal nam┆
0x2df40…2df60 65 20 28 72 65 6c 20 64 34 31 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 20 3d 65 78 74 ┆e (rel d41 on jobfile page) =ext┆
0x2df60…2df7a 65 72 6e 61 6c 20 32 31 37 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆ernal 217:>); writelist┆
0x2df7a…2df80 (0x1f8,0x5c0)
0x2df80…2dfa0 28 33 30 31 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 6e 65 78 74 20 62 79 74 65 20 28 72 65 6c ┆(301,5,32.0,<:rel next byte (rel┆
0x2dfa0…2dfc0 20 64 37 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆ d72 on jobfile page):>); wri┆
0x2dfc0…2dfe0 74 65 6c 69 73 74 28 33 30 32 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 62 75 66 20 62 79 74 65 ┆telist(302,5,32.0,<:rel buf byte┆
0x2dfe0…2e000 20 28 72 65 6c 20 64 37 32 2b 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 00 00 00 00 00 00 00 00 ┆ (rel d72+2 on jobfile p ┆
0x2e000…2e006 (368,) (0x1f8,0x5c1)
0x2e006…2e020 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 30 33 2c ┆age):>); writelist(303,┆
0x2e020…2e040 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 76 69 72 74 20 62 79 74 65 20 28 72 65 6c 20 64 37 33 20 ┆5,32.0,<:rel virt byte (rel d73 ┆
0x2e040…2e060 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆on jobfile page):>); writelis┆
0x2e060…2e07e 74 28 33 30 34 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 61 70 70 65 74 69 74 65 20 28 72 ┆t(304,5,32.0,<:rel appetite (r┆
0x2e07e…2e084 (0x1f8,0x5c2)
0x2e084…2e0a0 65 6c 20 64 37 33 2b 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 ┆el d73+2 on jobfile page):>)┆
0x2e0a0…2e0c0 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 30 35 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 ┆; writelist(305,5,32.0,<:rel ┆
0x2e0c0…2e0e0 6f 75 74 20 62 79 74 65 73 20 28 72 65 6c 20 64 37 34 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 ┆out bytes (rel d74 on jobfile pa┆
0x2e0e0…2e0fc 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 30 36 2c 35 2c 33 ┆ge):>); writelist(306,5,3┆
0x2e0fc…2e102 (0x1f8,0x5c3)
0x2e102…2e120 32 2e 30 2c 3c 3a 72 65 6c 20 74 65 72 6d 69 6e 61 6c 20 69 6e 70 75 74 20 73 65 6d 61 70 ┆2.0,<:rel terminal input semap┆
0x2e120…2e140 68 6f 72 65 20 28 72 65 6c 20 64 38 30 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e ┆hore (rel d80 on jobfile page):>┆
0x2e140…2e160 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 30 37 2c 36 2c 39 2e 30 2c 3c 3a 72 65 6c 20 ┆); writelist(307,6,9.0,<:rel ┆
0x2e160…2e17a 6c 6f 6f 6b 75 70 20 28 76 69 72 74 3d 32 35 31 29 3a 3e 29 3b 0a 20 20 20 77 ┆lookup (virt=251):>); w┆
0x2e17a…2e180 (0x1f8,0x5c4)
0x2e180…2e1a0 72 69 74 65 6c 69 73 74 28 33 30 38 2c 31 33 2c 35 2e 30 2c 3c 3a 28 6a 32 31 29 20 72 65 6c 20 ┆ritelist(308,13,5.0,<:(j21) rel ┆
0x2e1a0…2e1c0 66 69 72 73 74 20 63 6f 72 65 20 70 6c 61 63 65 20 6f 6e 20 62 61 6e 6b 65 72 20 70 61 67 65 3a ┆first core place on banker page:┆
0x2e1c0…2e1e0 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 30 39 2c 31 33 2c 35 2e 30 2c 3c 3a 28 64 ┆>); writelist(309,13,5.0,<:(d┆
0x2e1e0…2e200 31 33 29 20 72 65 6c 20 6d 61 72 67 69 6e 20 6f 6e 20 62 61 6e 6b 65 72 00 00 00 00 00 00 00 00 ┆13) rel margin on banker ┆
0x2e200…2e206 (369,) (0x1f8,0x5c5)
0x2e206…2e220 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 30 ┆ page:>); writelist(310┆
0x2e220…2e240 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 6d 65 73 73 61 67 65 20 61 63 74 69 6f 6e 20 28 76 69 ┆,5,46.0,<:rel message action (vi┆
0x2e240…2e260 72 74 3d 31 36 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 31 2c 39 2c 35 ┆rt=162):>); writelist(311,9,5┆
0x2e260…2e27e 32 2e 30 2c 3c 3a 76 69 72 74 20 61 63 74 69 6f 6e 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 ┆2.0,<:virt action table:>); ┆
0x2e27e…2e284 (0x1f8,0x5c6)
0x2e284…2e2a0 20 77 72 69 74 65 6c 69 73 74 28 33 31 32 2c 39 2c 35 32 2e 30 2c 3c 3a 76 69 72 74 ┆ writelist(312,9,52.0,<:virt┆
0x2e2a0…2e2c0 20 6d 6f 75 6e 74 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 ┆ mount table:>); writelist(31┆
0x2e2c0…2e2e0 33 2c 39 2c 35 32 2e 30 2c 3c 3a 76 69 72 74 20 70 73 6a 6f 62 20 6d 6f 75 6e 74 3a 3e 29 3b 0a ┆3,9,52.0,<:virt psjob mount:>); ┆
0x2e2e0…2e2fc 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 34 2c 39 2c 35 32 2e 30 2c 3c 3a 72 65 ┆ writelist(314,9,52.0,<:re┆
0x2e2fc…2e302 (0x1f8,0x5c7)
0x2e302…2e320 6c 20 6d 6f 75 6e 74 20 73 70 65 63 69 61 6c 20 28 76 69 72 74 3d 33 31 33 29 3a 3e 29 3b ┆l mount special (virt=313):>);┆
0x2e320…2e340 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 35 2c 39 2c 35 32 2e 30 2c 3c 3a 72 65 6c 20 6d ┆ writelist(315,9,52.0,<:rel m┆
0x2e340…2e360 6f 75 6e 74 20 72 69 6e 67 20 28 76 69 72 74 3d 33 31 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆ount ring (virt=313):>); writ┆
0x2e360…2e37a 65 6c 69 73 74 28 33 31 36 2c 39 2c 35 33 2e 30 2c 3c 3a 72 65 6c 20 6d 6f 75 ┆elist(316,9,53.0,<:rel mou┆
0x2e37a…2e380 (0x1f8,0x5c8)
0x2e380…2e3a0 6e 74 20 74 61 70 65 20 28 76 69 72 74 3d 33 31 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆nt tape (virt=313):>); writel┆
0x2e3a0…2e3c0 69 73 74 28 33 31 37 2c 39 2c 35 33 2e 30 2c 3c 3a 72 65 6c 20 73 75 73 70 65 6e 64 20 28 76 69 ┆ist(317,9,53.0,<:rel suspend (vi┆
0x2e3c0…2e3e0 72 74 3d 33 31 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 38 2c 39 2c 35 ┆rt=313):>); writelist(318,9,5┆
0x2e3e0…2e400 33 2e 30 2c 3c 3a 72 65 6c 20 72 65 6c 65 61 73 65 20 28 76 69 72 74 3d 00 00 00 00 00 00 00 00 ┆3.0,<:rel release (virt= ┆
0x2e400…2e406 (370,) (0x1f8,0x5c9)
0x2e406…2e420 33 31 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 31 39 2c ┆313):>); writelist(319,┆
0x2e420…2e440 39 2c 35 33 2e 30 2c 3c 3a 72 65 6c 20 74 61 70 65 20 72 65 61 64 79 20 28 76 69 72 74 3d 33 31 ┆9,53.0,<:rel tape ready (virt=31┆
0x2e440…2e460 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 32 30 2c 38 2c 31 39 2e 31 2c 3c ┆3):>); writelist(320,8,19.1,<┆
0x2e460…2e47e 3a 76 69 72 74 20 70 73 6a 6f 62 20 69 2f 6f 20 28 76 69 72 74 3d 33 32 31 29 3a 3e 29 3b ┆:virt psjob i/o (virt=321):>);┆
0x2e47e…2e484 (0x1f8,0x5ca)
0x2e484…2e4a0 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 32 31 2c 38 2c 31 39 2e 31 2c 3c 3a 72 ┆ writelist(321,8,19.1,<:r┆
0x2e4a0…2e4c0 65 6c 20 65 6e 74 72 79 20 70 73 6a 6f 62 20 69 2f 6f 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆el entry psjob i/o:>); writel┆
0x2e4c0…2e4e0 69 73 74 28 33 32 32 2c 39 2c 35 32 2e 30 2c 3c 3a 72 65 73 65 72 76 65 64 20 73 74 61 74 65 20 ┆ist(322,9,52.0,<:reserved state ┆
0x2e4e0…2e4fc 69 6e 20 6a 6f 62 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆in job table:>); writelis┆
0x2e4fc…2e502 (0x1f8,0x5cb)
0x2e502…2e520 74 28 33 32 33 2c 38 2c 31 39 2e 31 2c 3c 3a 76 69 72 74 20 70 73 6a 6f 62 20 61 75 78 3a ┆t(323,8,19.1,<:virt psjob aux:┆
0x2e520…2e540 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 32 34 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 ┆>); writelist(324,7,14.0,<:(d┆
0x2e540…2e560 31 34 2b 33 29 20 72 65 6c 20 70 73 6a 6f 62 6e 6f 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 ┆14+3) rel psjobno on psjob descr┆
0x2e560…2e57a 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 32 35 ┆ page:>); writelist(325┆
0x2e57a…2e580 (0x1f8,0x5cc)
0x2e580…2e5a0 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 30 37 29 20 72 65 6c 20 73 77 6f 70 20 61 72 65 61 20 73 ┆,7,14.0,<:(d107) rel swop area s┆
0x2e5a0…2e5c0 70 65 63 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 ┆pec on psjob descr page:>); w┆
0x2e5c0…2e5e0 72 69 74 65 6c 69 73 74 28 33 32 36 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 32 30 29 20 72 65 6c 20 ┆ritelist(326,7,14.0,<:(d20) rel ┆
0x2e5e0…2e600 70 72 6f 6a 65 63 74 20 6e 6f 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 00 00 00 00 00 00 00 00 ┆project no on psjob desc ┆
0x2e600…2e606 (371,) (0x1f8,0x5cd)
0x2e606…2e620 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 32 ┆r page:>); writelist(32┆
0x2e620…2e640 37 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 39 31 29 20 72 65 6c 20 6a 6f 62 20 6e 6f 20 6f 6e 20 70 ┆7,7,14.0,<:(d91) rel job no on p┆
0x2e640…2e660 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆sjob descr page:>); writelist┆
0x2e660…2e67e 28 33 32 38 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 39 29 20 72 65 6c 20 6a 6f 62 6e 61 6d ┆(328,7,14.0,<:(d19) rel jobnam┆
0x2e67e…2e684 (0x1f8,0x5ce)
0x2e684…2e6a0 65 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 ┆e on psjob descr page:>); ┆
0x2e6a0…2e6c0 20 77 72 69 74 65 6c 69 73 74 28 33 32 39 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 39 2b 32 29 20 ┆ writelist(329,7,14.0,<:(d19+2) ┆
0x2e6c0…2e6e0 72 65 6c 20 6a 6f 62 6e 61 6d 65 20 2b 20 32 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 ┆rel jobname + 2 on psjob descr p┆
0x2e6e0…2e6fc 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 33 30 2c 37 2c 31 ┆age:>); writelist(330,7,1┆
0x2e6fc…2e702 (0x1f8,0x5cf)
0x2e702…2e720 34 2e 30 2c 3c 3a 28 64 31 39 2b 34 29 20 72 65 6c 20 6a 6f 62 6e 61 6d 65 20 2b 20 34 20 ┆4.0,<:(d19+4) rel jobname + 4 ┆
0x2e720…2e740 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆on psjob descr page:>); write┆
0x2e740…2e760 6c 69 73 74 28 33 33 31 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 39 36 29 20 72 65 6c 20 70 73 6a 6f ┆list(331,7,14.0,<:(d96) rel psjo┆
0x2e760…2e77a 62 20 73 65 6d 20 72 65 6c 20 28 3d 70 73 6a 6f 62 20 6e 6f 2a 65 31 33 29 20 ┆b sem rel (=psjob no*e13) ┆
0x2e77a…2e780 (0x1f8,0x5d0)
0x2e780…2e7a0 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 20 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆on psjob descr page :>); writ┆
0x2e7a0…2e7c0 65 6c 69 73 74 28 33 33 32 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 38 37 29 20 72 65 6c 20 70 73 6a ┆elist(332,7,14.0,<:(d87) rel psj┆
0x2e7c0…2e7e0 6f 62 20 6f 70 65 72 61 74 69 6f 6e 3a 20 73 65 6d 61 70 68 6f 72 65 20 6f 70 65 72 61 74 69 6f ┆ob operation: semaphore operatio┆
0x2e7e0…2e800 6e 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 00 00 00 00 00 00 00 00 ┆n on psjob descr page:>) ┆
0x2e800…2e806 (372,) (0x1f8,0x5d1)
0x2e806…2e820 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 33 33 2c 37 2c 31 34 2e 30 2c ┆; writelist(333,7,14.0,┆
0x2e820…2e840 3c 3a 28 64 38 37 2b 32 29 20 72 65 6c 20 70 73 6a 6f 62 20 6f 70 65 72 61 74 69 6f 6e 20 2b 20 ┆<:(d87+2) rel psjob operation + ┆
0x2e840…2e860 32 3a 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 ┆2: on psjob descr page:>); wr┆
0x2e860…2e87e 69 74 65 6c 69 73 74 28 33 33 34 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 38 37 2b 34 29 20 72 ┆itelist(334,7,14.0,<:(d87+4) r┆
0x2e87e…2e884 (0x1f8,0x5d2)
0x2e884…2e8a0 65 6c 20 70 73 6a 6f 62 20 6f 70 65 72 61 74 69 6f 6e 20 2b 20 34 3a 20 6f 6e 20 70 ┆el psjob operation + 4: on p┆
0x2e8a0…2e8c0 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆sjob descr page:>); writelist┆
0x2e8c0…2e8e0 28 33 33 35 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 38 37 2b 36 3d 64 31 34 29 20 72 65 6c 20 70 73 ┆(335,7,14.0,<:(d87+6=d14) rel ps┆
0x2e8e0…2e8fc 6a 6f 62 20 6f 70 65 72 61 74 69 6f 6e 20 2b 20 36 3a 62 61 6e 6b 65 72 20 6f 70 65 ┆job operation + 6:banker ope┆
0x2e8fc…2e902 (0x1f8,0x5d3)
0x2e902…2e920 72 61 74 69 6f 6e 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b ┆ration on psjob descr page:>);┆
0x2e920…2e940 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 33 36 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 39 38 29 ┆ writelist(336,7,14.0,<:(d98)┆
0x2e940…2e960 20 72 65 6c 20 72 65 73 74 20 6d 6f 75 6e 74 73 20 28 62 79 74 65 29 20 6f 6e 20 70 73 6a 6f 62 ┆ rel rest mounts (byte) on psjob┆
0x2e960…2e97a 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆ descr page:>); writeli┆
0x2e97a…2e980 (0x1f8,0x5d4)
0x2e980…2e9a0 73 74 28 33 33 37 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 72 65 73 74 20 73 75 73 70 65 6e 64 ┆st(337,7,14.0,<:rel rest suspend┆
0x2e9a0…2e9c0 73 20 28 62 79 74 65 29 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b ┆s (byte) on psjob descr page:>);┆
0x2e9c0…2e9e0 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 33 38 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 30 29 20 ┆ writelist(338,7,14.0,<:(d0) ┆
0x2e9e0…2ea00 76 69 72 74 20 6a 6f 62 66 69 6c 65 20 64 65 73 63 72 3a 3e 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆virt jobfile descr:>); ┆
0x2ea00…2ea06 (373,) (0x1f8,0x5d5)
0x2ea06…2ea20 20 20 77 72 69 74 65 6c 69 73 74 28 33 33 39 2c 37 2c 31 34 2e 30 2c 3c 3a 28 ┆ writelist(339,7,14.0,<:(┆
0x2ea20…2ea40 64 31 30 34 29 20 72 65 6c 20 66 69 6e 69 73 20 63 61 75 73 65 20 6f 6e 20 70 73 6a 6f 62 20 64 ┆d104) rel finis cause on psjob d┆
0x2ea40…2ea60 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 ┆escr page:>); comment lkn ┆
0x2ea60…2ea7e 37 35 2e 30 39 2e 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 ┆75.09.10 tex┆
0x2ea7e…2ea84 (0x1f8,0x5d6)
0x2ea84…2eaa0 74 78 72 65 66 20 20 70 61 67 65 20 20 2e 2e 2e 31 37 2e 2e 2e 0a 3b 0a 20 0a 20 20 ┆txref page ...17... ; ┆
0x2eaa0…2eac0 20 77 72 69 74 65 6c 69 73 74 28 33 34 30 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 33 30 2b 32 29 20 ┆ writelist(340,7,14.0,<:(d30+2) ┆
0x2eac0…2eae0 72 65 6c 20 64 65 76 69 63 65 20 6d 61 73 6b 20 28 6c 61 73 74 20 6f 66 20 64 62 20 77 6f 72 64 ┆rel device mask (last of db word┆
0x2eae0…2eafc 29 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 ┆) on psjob descr page:>); ┆
0x2eafc…2eb02 (0x1f8,0x5d7)
0x2eb02…2eb20 20 77 72 69 74 65 6c 69 73 74 28 33 34 31 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 30 38 29 ┆ writelist(341,7,14.0,<:(d108)┆
0x2eb20…2eb40 20 72 65 6c 20 73 65 6e 64 65 72 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 20 6f 6e 20 70 73 6a ┆ rel sender table address on psj┆
0x2eb40…2eb60 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 ┆ob descr page:>); writelist(3┆
0x2eb60…2eb7a 34 32 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 30 36 29 20 72 65 6c 20 70 72 6f ┆42,7,14.0,<:(d106) rel pro┆
0x2eb7a…2eb80 (0x1f8,0x5d8)
0x2eb80…2eba0 63 65 73 73 20 64 65 73 63 72 2e 20 61 64 64 72 65 73 73 20 6f 66 20 6a 6f 62 20 6f 6e 20 70 73 ┆cess descr. address of job on ps┆
0x2eba0…2ebc0 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆job descr page:>); writelist(┆
0x2ebc0…2ebe0 33 34 33 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 39 33 29 20 72 65 6c 20 72 65 71 75 65 73 74 20 6c ┆343,7,14.0,<:(d93) rel request l┆
0x2ebe0…2ec00 69 6e 65 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 00 00 00 00 00 00 00 00 ┆ine on psjob descr page: ┆
0x2ec00…2ec06 (374,) (0x1f8,0x5d9)
0x2ec06…2ec20 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 34 34 2c 37 2c 31 34 2e ┆>); writelist(344,7,14.┆
0x2ec20…2ec40 30 2c 3c 3a 28 64 34 33 29 20 72 65 6c 20 6d 6f 75 6e 74 73 20 6f 6e 20 70 73 6a 6f 62 20 64 65 ┆0,<:(d43) rel mounts on psjob de┆
0x2ec40…2ec60 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 34 35 2c 37 2c ┆scr page:>); writelist(345,7,┆
0x2ec60…2ec7e 31 34 2e 30 2c 3c 3a 28 64 31 31 31 2b 31 29 20 72 65 6c 20 72 65 73 74 20 61 63 63 6f 75 ┆14.0,<:(d111+1) rel rest accou┆
0x2ec7e…2ec84 (0x1f8,0x5da)
0x2ec84…2eca0 6e 74 73 20 28 62 79 74 65 29 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 ┆nts (byte) on psjob descr pa┆
0x2eca0…2ecc0 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 34 36 2c 37 2c 31 34 2e 30 2c 3c ┆ge:>); writelist(346,7,14.0,<┆
0x2ecc0…2ece0 3a 28 64 36 31 29 20 72 65 6c 20 75 73 65 72 20 69 64 65 6e 74 20 69 6e 20 75 73 65 72 20 63 61 ┆:(d61) rel user ident in user ca┆
0x2ece0…2ecfc 74 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 ┆t on psjob descr page:>); ┆
0x2ecfc…2ed02 (0x1f8,0x5db)
0x2ed02…2ed20 20 77 72 69 74 65 6c 69 73 74 28 33 34 37 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 31 31 29 ┆ writelist(347,7,14.0,<:(d111)┆
0x2ed20…2ed40 20 72 65 6c 20 72 65 73 74 20 63 6f 6e 76 65 72 74 73 20 28 62 79 74 65 29 20 6f 6e 20 70 73 6a ┆ rel rest converts (byte) on psj┆
0x2ed40…2ed60 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 ┆ob descr page:>); writelist(3┆
0x2ed60…2ed7a 34 38 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 34 2b 32 29 20 72 65 6c 20 28 6f ┆48,7,14.0,<:(d14+2) rel (o┆
0x2ed7a…2ed80 (0x1f8,0x5dc)
0x2ed80…2eda0 70 2e 63 6f 64 65 2c 20 70 73 6a 6f 62 6e 6f 29 20 69 6e 20 62 61 6e 6b 65 72 20 6f 70 65 72 61 ┆p.code, psjobno) in banker opera┆
0x2eda0…2edc0 74 69 6f 6e 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 ┆tion on psjob descr page:>); ┆
0x2edc0…2ede0 77 72 69 74 65 6c 69 73 74 28 33 34 39 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 34 2b 34 29 20 72 ┆writelist(349,7,14.0,<:(d14+4) r┆
0x2ede0…2ee00 65 6c 20 28 61 6c 6c 2c 20 73 74 61 74 69 6f 6e 73 29 20 69 6e 20 62 61 00 00 00 00 00 00 00 00 ┆el (all, stations) in ba ┆
0x2ee00…2ee06 (375,) (0x1f8,0x5dd)
0x2ee06…2ee20 6e 6b 65 72 20 6f 70 65 72 61 74 69 6f 6e 20 6f 6e 20 70 73 6a 6f 62 20 64 65 ┆nker operation on psjob de┆
0x2ee20…2ee40 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 30 2c 38 2c ┆scr page:>); writelist(350,8,┆
0x2ee40…2ee60 31 39 2e 31 2c 3c 3a 72 65 6c 20 61 6e 73 77 65 72 20 28 76 69 72 74 3d 33 32 31 29 3a 3e 29 3b ┆19.1,<:rel answer (virt=321):>);┆
0x2ee60…2ee7e 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 31 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c ┆ writelist(351,8,69.0,<:rel┆
0x2ee7e…2ee84 (0x1f8,0x5de)
0x2ee84…2eea0 20 75 73 65 72 20 6b 69 6c 6c 20 28 76 69 72 74 3d 34 32 36 29 3a 3e 29 3b 0a 20 20 ┆ user kill (virt=426):>); ┆
0x2eea0…2eec0 20 77 72 69 74 65 6c 69 73 74 28 33 35 32 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 74 65 72 6d ┆ writelist(352,8,69.0,<:rel term┆
0x2eec0…2eee0 69 6e 61 74 65 20 28 76 69 72 74 3d 34 32 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆inate (virt=426):>); writelis┆
0x2eee0…2eefc 74 28 33 35 33 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 74 69 6d 65 2d 75 70 20 28 ┆t(353,8,69.0,<:rel time-up (┆
0x2eefc…2ef02 (0x1f8,0x5df)
0x2ef02…2ef20 72 65 63 65 69 76 65 20 74 69 6d 65 72 20 6f 70 2e 29 20 28 76 69 72 74 20 3d 34 32 36 29 ┆receive timer op.) (virt =426)┆
0x2ef20…2ef40 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 34 2c 38 2c 36 39 2e 30 2c 3c 3a 72 ┆:>); writelist(354,8,69.0,<:r┆
0x2ef40…2ef60 65 6c 20 66 69 6e 69 73 20 72 65 71 75 65 73 74 20 28 76 69 72 74 3d 34 31 37 29 3a 3e 29 3b 0a ┆el finis request (virt=417):>); ┆
0x2ef60…2ef7a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 35 2c 38 2c 36 39 2e 30 2c 3c 3a ┆ writelist(355,8,69.0,<:┆
0x2ef7a…2ef80 (0x1f8,0x5e0)
0x2ef80…2efa0 72 65 6c 20 62 72 65 61 6b 20 72 65 71 75 65 73 74 20 28 76 69 72 74 3d 34 32 36 29 3a 3e 29 3b ┆rel break request (virt=426):>);┆
0x2efa0…2efc0 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 36 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 72 ┆ writelist(356,8,69.0,<:rel r┆
0x2efc0…2efe0 65 70 6c 61 63 65 20 72 65 71 75 65 73 74 20 28 76 69 72 74 3d 34 32 36 29 3a 3e 29 3b 0a 20 20 ┆eplace request (virt=426):>); ┆
0x2efe0…2f000 20 77 72 69 74 65 6c 69 73 74 28 33 35 37 2c 38 2c 36 39 2e 30 2c 3c 3a 00 00 00 00 00 00 00 00 ┆ writelist(357,8,69.0,<: ┆
0x2f000…2f006 (376,) (0x1f8,0x5e1)
0x2f006…2f020 72 65 6c 20 74 69 6d 65 72 20 72 65 71 75 65 73 74 20 28 76 69 72 74 3d 34 32 ┆rel timer request (virt=42┆
0x2f020…2f040 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 38 2c 38 2c 36 39 2e 30 2c 3c ┆6):>); writelist(358,8,69.0,<┆
0x2f040…2f060 3a 72 65 6c 20 69 6e 70 75 74 20 65 78 68 61 75 73 74 65 64 20 28 76 69 72 74 3d 34 32 36 29 3a ┆:rel input exhausted (virt=426):┆
0x2f060…2f07e 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 35 39 2c 38 2c 36 39 2e 30 2c 3c 3a ┆>); writelist(359,8,69.0,<:┆
0x2f07e…2f084 (0x1f8,0x5e2)
0x2f084…2f0a0 72 65 6c 20 68 61 72 64 20 65 72 72 6f 72 20 70 72 69 6d 61 72 79 20 69 6e 70 75 74 ┆rel hard error primary input┆
0x2f0a0…2f0c0 20 28 76 69 72 74 3d 34 32 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 30 ┆ (virt=426):>); writelist(360┆
0x2f0c0…2f0e0 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 65 6e 64 20 6d 65 64 69 75 6d 20 70 72 69 6d 61 72 79 ┆,8,69.0,<:rel end medium primary┆
0x2f0e0…2f0fc 20 69 6e 70 75 74 20 28 76 69 72 74 3d 34 31 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆ input (virt=417):>); wri┆
0x2f0fc…2f102 (0x1f8,0x5e3)
0x2f102…2f120 74 65 6c 69 73 74 28 33 36 31 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 6d 6f 75 6e 74 20 ┆telist(361,8,69.0,<:rel mount ┆
0x2f120…2f140 65 72 72 6f 72 20 28 63 61 75 73 65 3d 39 2c 2e 2e 2e 2c 31 36 29 20 28 76 69 72 74 3d 34 32 36 ┆error (cause=9,...,16) (virt=426┆
0x2f140…2f160 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 32 2c 38 2c 36 39 2e 30 2c 3c 3a ┆):>); writelist(362,8,69.0,<:┆
0x2f160…2f17a 72 65 6c 20 73 77 6f 70 20 6f 75 74 20 61 6e 64 20 77 61 69 74 20 28 76 69 72 ┆rel swop out and wait (vir┆
0x2f17a…2f180 (0x1f8,0x5e4)
0x2f180…2f1a0 74 3d 34 32 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 33 2c 38 2c 36 39 ┆t=426):>); writelist(363,8,69┆
0x2f1a0…2f1c0 2e 30 2c 3c 3a 72 65 6c 20 63 6c 65 61 6e 20 63 61 74 61 6c 6f 67 20 28 76 69 72 74 3d 34 39 35 ┆.0,<:rel clean catalog (virt=495┆
0x2f1c0…2f1e0 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 34 2c 37 2c 31 34 2e 30 2c 3c 3a ┆):>); writelist(364,7,14.0,<:┆
0x2f1e0…2f200 72 65 6c 20 62 61 6e 6b 65 72 20 6b 69 6c 6c 20 28 76 69 72 74 3d 34 37 00 00 00 00 00 00 00 00 ┆rel banker kill (virt=47 ┆
0x2f200…2f206 (377,) (0x1f8,0x5e5)
0x2f206…2f220 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 35 2c 31 30 ┆3):>); writelist(365,10┆
0x2f220…2f240 2c 32 31 2e 30 2c 3c 3a 76 69 72 74 20 73 74 61 72 74 20 63 61 72 64 3a 3e 29 3b 0a 20 20 20 77 ┆,21.0,<:virt start card:>); w┆
0x2f240…2f260 72 69 74 65 6c 69 73 74 28 33 36 36 2c 31 30 2c 32 31 2e 30 2c 3c 3a 72 65 6c 20 73 74 61 72 74 ┆ritelist(366,10,21.0,<:rel start┆
0x2f260…2f27e 20 63 61 72 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 37 2c 35 2c 33 ┆ card:>); writelist(367,5,3┆
0x2f27e…2f284 (0x1f8,0x5e6)
0x2f284…2f2a0 32 2e 30 2c 3c 3a 72 65 6c 20 64 38 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 ┆2.0,<:rel d82 on jobfile pag┆
0x2f2a0…2f2c0 65 3a 20 63 61 72 64 73 20 66 72 65 65 20 6a 6f 62 63 6f 6e 74 72 6f 6c 6c 65 64 3a 3e 29 3b 0a ┆e: cards free jobcontrolled:>); ┆
0x2f2c0…2f2e0 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 36 38 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 64 38 ┆ writelist(368,5,32.0,<:rel d8┆
0x2f2e0…2f2fc 33 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 3a 20 63 61 72 64 73 20 66 75 6c ┆3 on jobfile page: cards ful┆
0x2f2fc…2f302 (0x1f8,0x5e7)
0x2f302…2f320 6c 20 6a 6f 62 63 6f 6e 74 72 6f 6c 6c 65 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆l jobcontrolled:>); writeli┆
0x2f320…2f340 73 74 28 33 36 39 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 64 38 34 20 6f 6e 20 6a 6f 62 66 69 ┆st(369,5,32.0,<:rel d84 on jobfi┆
0x2f340…2f360 6c 65 20 70 61 67 65 3a 20 66 69 72 73 74 20 76 69 72 74 20 63 61 72 64 20 6a 6f 62 63 6f 6e 74 ┆le page: first virt card jobcont┆
0x2f360…2f37a 72 6f 6c 6c 65 64 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 37 ┆rolled:>); writelist(37┆
0x2f37a…2f380 (0x1f8,0x5e8)
0x2f380…2f3a0 30 2c 35 2c 33 32 2e 30 2c 3c 3a 72 65 6c 20 64 38 35 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 ┆0,5,32.0,<:rel d85 on jobfile pa┆
0x2f3a0…2f3c0 67 65 3a 20 74 6f 70 20 76 69 72 74 20 63 61 72 64 20 6a 6f 62 63 6f 6e 74 72 6f 6c 6c 65 64 3a ┆ge: top virt card jobcontrolled:┆
0x2f3c0…2f3e0 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 37 31 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 ┆>); writelist(371,7,14.0,<:re┆
0x2f3e0…2f400 6c 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 20 63 61 72 00 00 00 00 00 00 00 00 ┆l on job descr page: car ┆
0x2f400…2f406 (378,) (0x1f8,0x5e9)
0x2f406…2f420 64 20 72 65 61 64 65 72 20 71 75 65 75 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆d reader queue:>); writ┆
0x2f420…2f440 65 6c 69 73 74 28 33 37 32 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 70 72 69 6f 72 69 74 79 20 ┆elist(372,7,14.0,<:rel priority ┆
0x2f440…2f460 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 37 33 2c ┆(virt=400):>); writelist(373,┆
0x2f460…2f47e 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 77 61 69 74 20 28 76 69 72 74 3d 34 30 30 29 3a 3e ┆7,14.0,<:rel wait (virt=400):>┆
0x2f47e…2f484 (0x1f8,0x5ea)
0x2f484…2f4a0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 37 34 2c 37 2c 31 34 2e 30 2c 3c ┆); writelist(374,7,14.0,<┆
0x2f4a0…2f4c0 3a 72 65 6c 20 70 72 65 73 65 72 76 65 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 ┆:rel preserve (virt=400):>); ┆
0x2f4c0…2f4e0 77 72 69 74 65 6c 69 73 74 28 33 37 35 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 34 30 29 20 72 65 ┆writelist(375,7,14.0,<:(d140) re┆
0x2f4e0…2f4fc 6c 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 20 6e 6f 20 6f 66 20 63 ┆l on job descr page: no of c┆
0x2f4fc…2f502 (0x1f8,0x5eb)
0x2f502…2f520 6f 6e 76 65 72 73 61 74 69 6f 6e 61 6c 20 69 6e 70 75 74 20 6c 69 6e 65 73 3a 3e 29 3b 0a ┆onversational input lines:>); ┆
0x2f520…2f540 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 37 36 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 33 37 29 ┆ writelist(376,7,14.0,<:(d137)┆
0x2f540…2f560 20 72 65 6c 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 20 61 63 74 75 61 6c 20 77 ┆ rel on job descr page: actual w┆
0x2f560…2f57a 61 69 74 69 6e 67 20 74 69 6d 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆aiting time:>); writeli┆
0x2f57a…2f580 (0x1f8,0x5ec)
0x2f580…2f5a0 73 74 28 33 37 37 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 72 65 6d 6f 74 65 20 70 72 69 6e 74 65 72 ┆st(377,11,-99.0,<:remote printer┆
0x2f5a0…2f5c0 20 77 61 69 74 20 73 65 6d 61 70 68 6f 72 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆ wait semaphore:>); writelist┆
0x2f5c0…2f5e0 28 33 37 38 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 72 65 6d 6f 74 65 20 20 63 6f 6e 76 65 72 74 20 ┆(378,11,-99.0,<:remote convert ┆
0x2f5e0…2f600 71 75 65 75 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 00 00 00 00 00 00 00 00 ┆queue:>); writelist(3 ┆
0x2f600…2f606 (379,) (0x1f8,0x5ed)
0x2f606…2f620 37 39 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 70 61 70 65 72 20 6d 61 6e 69 70 75 ┆79,11,-99.0,<:paper manipu┆
0x2f620…2f640 6c 61 74 69 6f 6e 20 28 62 69 6e 61 72 79 20 73 65 6d 61 70 68 6f 72 65 29 3a 3e 29 3b 0a 20 20 ┆lation (binary semaphore):>); ┆
0x2f640…2f660 20 77 72 69 74 65 6c 69 73 74 28 33 38 30 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 70 61 70 65 72 20 ┆ writelist(380,11,-99.0,<:paper ┆
0x2f660…2f67e 30 20 71 75 65 75 65 20 73 65 6d 61 66 6f 72 20 61 64 64 72 65 73 73 3a 3e 29 3b 0a 20 20 ┆0 queue semafor address:>); ┆
0x2f67e…2f684 (0x1f8,0x5ee)
0x2f684…2f6a0 20 77 72 69 74 65 6c 69 73 74 28 33 38 31 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 73 74 ┆ writelist(381,11,-99.0,<:st┆
0x2f6a0…2f6c0 64 20 70 72 69 6e 74 65 72 20 77 61 69 74 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆d printer wait:>); writelist(┆
0x2f6c0…2f6e0 33 38 32 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 63 6f 6e 76 65 72 74 73 20 66 72 65 65 20 73 65 6d ┆382,11,-99.0,<:converts free sem┆
0x2f6e0…2f6fc 61 66 6f 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 38 33 2c 31 31 ┆afor:>); writelist(383,11┆
0x2f6fc…2f702 (0x1f8,0x5ef)
0x2f702…2f720 2c 2d 39 39 2e 30 2c 3c 3a 76 69 72 74 20 73 70 6f 6f 6c 20 62 75 66 66 65 72 20 73 74 61 ┆,-99.0,<:virt spool buffer sta┆
0x2f720…2f740 72 74 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 38 34 2c 31 31 2c 2d 39 39 2e 30 ┆rt:>); writelist(384,11,-99.0┆
0x2f740…2f760 2c 3c 3a 76 69 72 74 20 73 70 6f 6f 6c 20 62 75 66 66 65 72 20 74 6f 70 3a 3e 29 3b 0a 20 20 20 ┆,<:virt spool buffer top:>); ┆
0x2f760…2f77a 77 72 69 74 65 6c 69 73 74 28 33 38 35 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 76 ┆writelist(385,11,-99.0,<:v┆
0x2f77a…2f780 (0x1f8,0x5f0)
0x2f780…2f7a0 69 72 74 20 63 6f 64 65 70 61 67 65 20 37 30 20 28 6e 65 78 74 20 63 6f 6e 76 65 72 74 29 3a 3e ┆irt codepage 70 (next convert):>┆
0x2f7a0…2f7c0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 38 36 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 76 ┆); writelist(386,11,-99.0,<:v┆
0x2f7c0…2f7e0 69 72 74 20 63 6f 64 65 70 61 67 65 20 37 33 20 28 70 72 69 6e 74 69 6e 67 29 3a 3e 29 3b 0a 20 ┆irt codepage 73 (printing):>); ┆
0x2f7e0…2f800 20 20 77 72 69 74 65 6c 69 73 74 28 33 38 37 2c 31 31 2c 2d 39 39 2e 30 00 00 00 00 00 00 00 00 ┆ writelist(387,11,-99.0 ┆
0x2f800…2f806 (380,) (0x1f8,0x5f1)
0x2f806…2f820 2c 3c 3a 76 69 72 74 20 63 6f 64 65 70 61 67 65 20 37 31 20 28 6e 65 78 74 20 ┆,<:virt codepage 71 (next ┆
0x2f820…2f840 61 63 74 69 6f 6e 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 38 38 2c 31 31 2c ┆action):>); writelist(388,11,┆
0x2f840…2f860 2d 39 39 2e 30 2c 3c 3a 6a 6f 62 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 63 6f 6e 76 65 72 74 20 6f ┆-99.0,<:job controlled convert o┆
0x2f860…2f87e 70 65 72 61 74 69 6f 6e 20 73 65 6d 61 66 6f 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆peration semafor:>); writel┆
0x2f87e…2f884 (0x1f8,0x5f2)
0x2f884…2f8a0 69 73 74 28 33 38 39 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 76 69 72 74 20 63 6f 64 65 ┆ist(389,11,-99.0,<:virt code┆
0x2f8a0…2f8c0 70 61 67 65 20 37 32 20 28 74 72 69 61 6e 67 6c 65 20 70 72 69 6e 74 69 6e 67 29 3a 3e 29 3b 0a ┆page 72 (triangle printing):>); ┆
0x2f8c0…2f8e0 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 39 30 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 63 6f 6e 76 ┆ writelist(390,11,-99.0,<:conv┆
0x2f8e0…2f8fc 65 72 74 20 61 6e 73 77 65 72 20 73 65 6d 61 66 6f 72 65 3a 3e 29 3b 0a 20 20 20 77 ┆ert answer semafore:>); w┆
0x2f8fc…2f902 (0x1f8,0x5f3)
0x2f902…2f920 72 69 74 65 6c 69 73 74 28 33 39 31 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 72 65 6c 20 65 6e ┆ritelist(391,11,-99.0,<:rel en┆
0x2f920…2f940 74 72 79 20 72 6f 75 74 65 20 63 6f 6d 6d 61 6e 64 20 28 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b ┆try route command (virt=244):>);┆
0x2f940…2f960 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 39 32 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 72 65 6c ┆ writelist(392,11,-99.0,<:rel┆
0x2f960…2f97a 20 65 6e 74 72 79 20 63 61 6e 63 65 6c 20 72 6f 75 74 69 6e 67 20 63 6f 6d 6d ┆ entry cancel routing comm┆
0x2f97a…2f980 (0x1f8,0x5f4)
0x2f980…2f9a0 61 6e 64 20 28 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆and (virt=244):>); writelist(┆
0x2f9a0…2f9c0 33 39 33 2c 31 31 2c 31 32 2e 30 2c 3c 3a 63 75 72 72 65 6e 74 20 63 6f 6e 76 65 72 74 20 69 64 ┆393,11,12.0,<:current convert id┆
0x2f9c0…2f9e0 65 6e 74 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 39 34 2c 31 31 2c 31 32 2e 30 ┆ent:>); writelist(394,11,12.0┆
0x2f9e0…2fa00 2c 3c 3a 70 61 72 6b 69 6e 67 20 71 75 65 75 65 20 73 65 6d 20 61 64 64 00 00 00 00 00 00 00 00 ┆,<:parking queue sem add ┆
0x2fa00…2fa06 (381,) (0x1f8,0x5f5)
0x2fa06…2fa20 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 39 35 2c 31 31 2c ┆r:>); writelist(395,11,┆
0x2fa20…2fa40 31 32 2e 30 2c 3c 3a 70 72 69 6e 74 65 72 20 62 75 73 79 20 71 75 65 75 65 20 73 65 6d 20 61 64 ┆12.0,<:printer busy queue sem ad┆
0x2fa40…2fa60 64 72 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 39 36 2c 31 31 2c 31 32 2e 30 2c ┆dr:>); writelist(396,11,12.0,┆
0x2fa60…2fa7e 3c 3a 72 65 6c 20 73 65 6c 65 63 74 20 63 6f 6d 6d 61 6e 64 20 28 76 69 72 74 3d 33 38 35 ┆<:rel select command (virt=385┆
0x2fa7e…2fa84 (0x1f8,0x5f6)
0x2fa84…2faa0 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 33 39 37 2c 31 31 2c 31 32 ┆):>); writelist(397,11,12┆
0x2faa0…2fac0 2e 30 2c 3c 3a 72 65 6c 20 72 65 6a 65 63 74 20 63 6f 6d 6d 61 6e 64 20 28 76 69 72 74 3d 33 38 ┆.0,<:rel reject command (virt=38┆
0x2fac0…2fae0 35 29 3a 3e 29 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 ┆5):>); comment lkn 75.09.1┆
0x2fae0…2fafc 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 ┆0 textxre┆
0x2fafc…2fb02 (0x1f8,0x5f7)
0x2fb02…2fb20 66 20 20 70 61 67 65 20 20 2e 2e 2e 31 38 2e 2e 2e 0a 3b 0a 0a 20 20 20 77 72 69 74 65 6c ┆f page ...18... ; writel┆
0x2fb20…2fb40 69 73 74 28 34 30 30 2c 37 2c 31 33 2e 30 2c 3c 3a 76 69 72 74 20 63 6f 64 65 70 61 67 65 20 31 ┆ist(400,7,13.0,<:virt codepage 1┆
0x2fb40…2fb60 33 20 28 63 2e 70 2e 33 20 69 6e 20 74 6a 6f 62 73 74 61 72 74 29 3a 3e 29 3b 0a 20 20 20 77 72 ┆3 (c.p.3 in tjobstart):>); wr┆
0x2fb60…2fb7a 69 74 65 6c 69 73 74 28 34 30 31 2c 37 2c 31 34 2e 30 2c 3c 3a 28 63 36 31 29 ┆itelist(401,7,14.0,<:(c61)┆
0x2fb7a…2fb80 (0x1f8,0x5f8)
0x2fb80…2fba0 20 72 65 6c 20 69 6e 63 6c 75 64 65 20 75 73 65 72 20 28 6f 6e 20 63 6f 64 65 70 61 67 65 20 34 ┆ rel include user (on codepage 4┆
0x2fba0…2fbc0 29 20 28 76 69 72 74 3d 34 37 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 30 ┆) (virt=473):>); writelist(40┆
0x2fbc0…2fbe0 32 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 72 65 70 6c 61 63 65 20 6a 6f 62 20 28 76 69 72 74 ┆2,7,14.0,<:rel replace job (virt┆
0x2fbe0…2fc00 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 00 00 00 00 00 00 00 00 ┆=400):>); writelist(4 ┆
0x2fc00…2fc06 (382,) (0x1f8,0x5f9)
0x2fc06…2fc20 30 33 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 32 38 29 20 72 65 6c 20 66 69 72 73 ┆03,7,14.0,<:(d28) rel firs┆
0x2fc20…2fc40 74 20 6f 66 20 70 72 69 76 61 74 65 20 6b 69 74 20 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 77 72 ┆t of private kit table:>); wr┆
0x2fc40…2fc60 69 74 65 6c 69 73 74 28 34 30 34 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 65 6e 74 72 79 20 6f ┆itelist(404,7,14.0,<:rel entry o┆
0x2fc60…2fc7e 66 66 2d 6c 69 6e 65 20 6a 6f 62 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 ┆ff-line job (virt=400):>); ┆
0x2fc7e…2fc84 (0x1f8,0x5fa)
0x2fc84…2fca0 77 72 69 74 65 6c 69 73 74 28 34 30 35 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 65 ┆writelist(405,7,14.0,<:rel e┆
0x2fca0…2fcc0 6e 74 72 79 20 6f 6e 2d 6c 69 6e 65 20 6a 6f 62 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a ┆ntry on-line job (virt=400):>); ┆
0x2fcc0…2fce0 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 30 36 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 36 32 29 20 ┆ writelist(406,7,14.0,<:(d62) ┆
0x2fce0…2fcfc 72 65 6c 20 6e 6f 20 6f 66 20 75 73 65 61 62 6c 65 20 70 72 69 76 61 74 65 20 6b 69 ┆rel no of useable private ki┆
0x2fcfc…2fd02 (0x1f8,0x5fb)
0x2fd02…2fd20 74 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 30 37 2c 37 2c 31 34 2e 30 ┆ts:>); writelist(407,7,14.0┆
0x2fd20…2fd40 2c 3c 3a 28 64 32 32 29 20 72 65 6c 20 75 73 65 72 20 63 61 74 20 72 65 66 20 64 69 73 63 20 72 ┆,<:(d22) rel user cat ref disc r┆
0x2fd40…2fd60 65 73 74 20 6b 65 79 20 33 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a ┆est key 3 on job descr page:>); ┆
0x2fd60…2fd7a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 30 38 2c 37 2c 31 34 2e 30 2c 3c 3a ┆ writelist(408,7,14.0,<:┆
0x2fd7a…2fd80 (0x1f8,0x5fc)
0x2fd80…2fda0 28 64 36 30 29 20 72 65 6c 20 75 73 65 72 20 63 61 74 20 72 65 66 20 64 72 75 6d 20 72 65 73 74 ┆(d60) rel user cat ref drum rest┆
0x2fda0…2fdc0 20 6b 65 79 20 33 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 ┆ key 3 on job descr page:>); ┆
0x2fdc0…2fde0 77 72 69 74 65 6c 69 73 74 28 34 30 39 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 36 39 29 20 72 65 6c ┆writelist(409,7,14.0,<:(d69) rel┆
0x2fde0…2fe00 20 64 69 73 63 20 72 65 73 74 20 6b 65 79 20 32 20 6f 6e 20 6a 6f 62 20 00 00 00 00 00 00 00 00 ┆ disc rest key 2 on job ┆
0x2fe00…2fe06 (383,) (0x1f8,0x5fd)
0x2fe06…2fe20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆descr page:>); writelis┆
0x2fe20…2fe40 74 28 34 31 30 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 35 38 29 20 72 65 6c 20 64 69 73 63 20 72 65 ┆t(410,7,14.0,<:(d58) rel disc re┆
0x2fe40…2fe60 73 74 20 6b 65 79 20 31 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 ┆st key 1 on job descr page:>); ┆
0x2fe60…2fe7e 20 20 77 72 69 74 65 6c 69 73 74 28 34 31 31 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 36 37 29 ┆ writelist(411,7,14.0,<:(d67)┆
0x2fe7e…2fe84 (0x1f8,0x5fe)
0x2fe84…2fea0 20 72 65 6c 20 64 72 75 6d 20 72 65 73 74 20 6b 65 79 20 32 20 6f 6e 20 6a 6f 62 20 ┆ rel drum rest key 2 on job ┆
0x2fea0…2fec0 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 31 32 2c ┆descr page:>); writelist(412,┆
0x2fec0…2fee0 37 2c 31 34 2e 30 2c 3c 3a 28 64 35 39 29 20 72 65 6c 20 64 72 75 6d 20 72 65 73 74 20 6b 65 79 ┆7,14.0,<:(d59) rel drum rest key┆
0x2fee0…2fefc 20 31 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 ┆ 1 on job descr page:>); ┆
0x2fefc…2ff02 (0x1f8,0x5ff)
0x2ff02…2ff20 77 72 69 74 65 6c 69 73 74 28 34 31 33 2c 31 32 2c 31 30 2e 30 2c 3c 3a 72 65 6c 20 72 65 ┆writelist(413,12,10.0,<:rel re┆
0x2ff20…2ff40 66 20 70 72 65 70 61 72 65 20 62 73 20 61 64 6a 75 73 74 20 28 76 69 72 74 3d 34 31 35 29 3a 3e ┆f prepare bs adjust (virt=415):>┆
0x2ff40…2ff60 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 31 34 2c 31 32 2c 31 30 2e 30 2c 3c 3a 72 65 ┆); writelist(414,12,10.0,<:re┆
0x2ff60…2ff7a 6c 20 72 65 66 20 74 65 72 6d 69 6e 61 74 65 20 62 73 20 61 64 6a 75 73 74 20 ┆l ref terminate bs adjust ┆
0x2ff7a…2ff80 (0x1f8,0x600)
0x2ff80…2ffa0 28 76 69 72 74 3d 34 31 35 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 31 35 2c ┆(virt=415):>); writelist(415,┆
0x2ffa0…2ffc0 31 32 2c 31 30 2e 30 2c 3c 3a 76 69 72 74 20 72 65 66 20 62 73 20 61 64 6a 75 73 74 3a 3e 29 3b ┆12,10.0,<:virt ref bs adjust:>);┆
0x2ffc0…2ffe0 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 31 36 2c 31 32 2c 32 35 2e 30 2c 3c 3a 76 69 72 74 ┆ writelist(416,12,25.0,<:virt┆
0x2ffe0…30000 20 72 65 66 20 75 73 65 72 63 61 74 20 62 75 66 66 65 72 20 70 61 67 65 00 00 00 00 00 00 00 00 ┆ ref usercat buffer page ┆
0x30000…30006 (384,) (0x1f8,0x601)
0x30006…30020 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 31 37 2c 38 2c 36 39 ┆:>); writelist(417,8,69┆
0x30020…30040 2e 30 2c 3c 3a 76 69 72 74 20 72 65 66 20 66 69 6e 69 73 20 6a 6f 62 20 70 61 67 65 3a 3e 29 3b ┆.0,<:virt ref finis job page:>);┆
0x30040…30060 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 31 39 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 31 35 29 ┆ writelist(419,7,14.0,<:(d15)┆
0x30060…3007e 20 72 65 6c 20 74 61 69 6c 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a ┆ rel tail on psjob descr page:┆
0x3007e…30084 (0x1f8,0x602)
0x30084…300a0 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 32 30 2c 37 2c 31 34 2e 30 2c ┆>); writelist(420,7,14.0,┆
0x300a0…300c0 3c 3a 72 65 6c 20 6d 69 6e 69 6d 61 6c 20 63 6f 6d 6d 61 6e 64 20 28 76 69 72 74 3d 34 30 30 29 ┆<:rel minimal command (virt=400)┆
0x300c0…300e0 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 32 31 2c 37 2c 31 34 2e 30 2c 3c 3a 28 ┆:>); writelist(421,7,14.0,<:(┆
0x300e0…300fc 64 32 34 29 20 72 65 6c 20 73 74 61 6e 64 61 72 64 20 69 6e 74 65 72 76 61 6c 20 6f ┆d24) rel standard interval o┆
0x300fc…30102 (0x1f8,0x603)
0x30102…30120 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆n psjob descr page:>); writ┆
0x30120…30140 65 6c 69 73 74 28 34 32 32 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 36 35 2d 64 33 30 29 20 6d 61 78 ┆elist(422,7,14.0,<:(d65-d30) max┆
0x30140…30160 20 64 65 76 69 63 65 20 72 65 6c 20 74 6f 20 73 74 61 6e 64 61 72 64 20 64 65 76 69 63 65 3a 3e ┆ device rel to standard device:>┆
0x30160…3017a 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 32 33 2c 37 2c 31 31 2e 30 ┆); writelist(423,7,11.0┆
0x3017a…30180 (0x1f8,0x604)
0x30180…301a0 2c 3c 3a 68 6f 73 74 64 65 73 63 72 2e 73 75 62 68 6f 73 74 6e 6f 20 28 72 65 6c 20 64 31 31 39 ┆,<:hostdescr.subhostno (rel d119┆
0x301a0…301c0 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆ on jobdescr. page):>); write┆
0x301c0…301e0 6c 69 73 74 28 34 32 34 2c 37 2c 31 31 2e 30 2c 3c 3a 68 6f 73 74 64 65 73 63 72 2c 20 6c 61 73 ┆list(424,7,11.0,<:hostdescr, las┆
0x301e0…30200 74 20 6f 66 20 64 6f 75 62 6c 65 77 6f 72 64 20 28 72 65 6c 20 64 31 32 00 00 00 00 00 00 00 00 ┆t of doubleword (rel d12 ┆
0x30200…30206 (385,) (0x1f8,0x605)
0x30206…30220 32 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 70 61 67 65 29 3a 3e 29 3b 0a 20 ┆2 on jobdescr. page):>); ┆
0x30220…30240 20 20 77 72 69 74 65 6c 69 73 74 28 34 32 35 2c 37 2c 31 31 2e 30 2c 3c 3a 70 72 69 6e 74 65 72 ┆ writelist(425,7,11.0,<:printer┆
0x30240…30260 64 65 73 63 72 2c 20 6c 61 73 74 20 6f 66 20 64 6f 75 62 6c 65 77 6f 72 64 20 28 72 65 6c 20 64 ┆descr, last of doubleword (rel d┆
0x30260…3027e 31 32 31 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 ┆121 on jobdescr. page):>); ┆
0x3027e…30284 (0x1f8,0x606)
0x30284…302a0 77 72 69 74 65 6c 69 73 74 28 34 32 36 2c 38 2c 36 39 2e 30 2c 3c 3a 76 69 72 74 20 ┆writelist(426,8,69.0,<:virt ┆
0x302a0…302c0 72 65 66 20 62 72 65 61 6b 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆ref break page:>); writelist(┆
0x302c0…302e0 34 32 37 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 66 69 6e 69 73 20 28 66 69 6e 69 73 63 61 75 ┆427,8,69.0,<:rel finis (finiscau┆
0x302e0…302fc 73 65 29 20 28 76 69 72 74 3d 34 31 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆se) (virt=417):>); writel┆
0x302fc…30302 (0x1f8,0x607)
0x30302…30320 69 73 74 28 34 32 38 2c 31 32 2c 31 30 2e 30 2c 3c 3a 72 65 6c 20 72 65 66 20 74 72 61 6e ┆ist(428,12,10.0,<:rel ref tran┆
0x30320…30340 73 66 65 72 20 70 65 72 6d 20 63 6c 61 69 6d 73 20 61 6e 64 20 70 72 65 70 61 72 65 20 28 76 69 ┆sfer perm claims and prepare (vi┆
0x30340…30360 72 74 3d 34 31 35 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 32 39 2c 35 2c 33 ┆rt=415):>); writelist(429,5,3┆
0x30360…3037a 33 2e 30 2c 3c 3a 20 6e 65 78 74 20 73 74 6f 72 65 20 69 6e 20 6a 6f 62 20 69 ┆3.0,<: next store in job i┆
0x3037a…30380 (0x1f8,0x608)
0x30380…303a0 6e 70 75 74 20 61 72 65 61 20 28 72 65 6c 20 64 38 31 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 ┆nput area (rel d81 on jobfile pa┆
0x303a0…303c0 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 30 2c 31 32 2c 33 2e 30 2c ┆ge):>); writelist(430,12,3.0,┆
0x303c0…303e0 3c 3a 75 73 65 64 20 61 63 63 6f 75 6e 74 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆<:used accounts:>); writelist┆
0x303e0…30400 28 34 33 31 2c 31 32 2c 31 2e 30 2c 3c 3a 72 65 6c 20 6f 75 74 72 65 63 00 00 00 00 00 00 00 00 ┆(431,12,1.0,<:rel outrec ┆
0x30400…30406 (386,) (0x1f8,0x609)
0x30406…30420 20 28 76 69 72 74 3d 34 33 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 ┆ (virt=436):>); writeli┆
0x30420…30440 73 74 28 34 33 32 2c 31 32 2c 31 2e 30 2c 3c 3a 72 65 6c 20 70 72 65 70 61 72 65 20 28 76 69 72 ┆st(432,12,1.0,<:rel prepare (vir┆
0x30440…30460 74 3d 34 33 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 33 2c 31 32 2c 31 ┆t=436):>); writelist(433,12,1┆
0x30460…3047e 2e 30 2c 3c 3a 72 65 6c 20 70 72 69 76 61 74 65 20 28 76 69 72 74 3d 34 33 36 29 3a 3e 29 ┆.0,<:rel private (virt=436):>)┆
0x3047e…30484 (0x1f8,0x60a)
0x30484…304a0 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 34 2c 31 32 2c 31 2e 30 2c 3c 3a ┆; writelist(434,12,1.0,<:┆
0x304a0…304c0 72 65 6c 20 74 65 72 6d 69 6e 61 74 65 20 28 76 69 72 74 3d 34 33 36 29 3a 3e 29 3b 0a 20 20 20 ┆rel terminate (virt=436):>); ┆
0x304c0…304e0 77 72 69 74 65 6c 69 73 74 28 34 33 35 2c 31 32 2c 31 2e 30 2c 3c 3a 76 69 72 74 20 61 63 63 6f ┆writelist(435,12,1.0,<:virt acco┆
0x304e0…304fc 75 6e 74 20 62 75 66 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 36 ┆unt buf:>); writelist(436┆
0x304fc…30502 (0x1f8,0x60b)
0x30502…30520 2c 31 32 2c 31 2e 30 2c 3c 3a 76 69 72 74 20 61 63 63 6f 75 6e 74 20 63 6f 64 65 3a 3e 29 ┆,12,1.0,<:virt account code:>)┆
0x30520…30540 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 37 2c 31 30 2c 35 35 2e 30 2c 3c 3a 72 65 6c ┆; writelist(437,10,55.0,<:rel┆
0x30540…30560 20 65 6d 70 74 79 20 66 69 6c 65 73 20 69 6e 20 70 73 6c 6f 61 64 20 28 76 69 72 74 3d 34 34 30 ┆ empty files in psload (virt=440┆
0x30560…3057a 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 38 2c 37 2c 31 ┆):>); writelist(438,7,1┆
0x3057a…30580 (0x1f8,0x60c)
0x30580…305a0 34 2e 30 2c 3c 3a 28 64 39 32 29 20 72 65 6c 20 70 61 70 65 72 20 74 61 70 65 20 63 6f 75 6e 74 ┆4.0,<:(d92) rel paper tape count┆
0x305a0…305c0 20 28 62 79 74 65 29 20 6f 6e 20 70 73 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a ┆ (byte) on psjob descr page:>); ┆
0x305c0…305e0 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 33 39 2c 37 2c 31 34 2e 30 2c 3c 3a 28 64 35 31 29 20 ┆ writelist(439,7,14.0,<:(d51) ┆
0x305e0…30600 72 65 6c 20 74 61 70 65 73 20 28 62 79 74 65 29 20 6f 6e 20 70 73 6a 6f 00 00 00 00 00 00 00 00 ┆rel tapes (byte) on psjo ┆
0x30600…30606 (387,) (0x1f8,0x60d)
0x30606…30620 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆b descr page:>); writel┆
0x30620…30640 69 73 74 28 34 34 30 2c 31 30 2c 35 35 2e 30 2c 3c 3a 76 69 72 74 20 6c 6f 61 64 2c 20 65 6d 70 ┆ist(440,10,55.0,<:virt load, emp┆
0x30640…30660 74 79 20 66 69 6c 65 73 20 28 72 65 6c 3d 34 33 37 2c 20 34 34 31 29 3a 3e 29 3b 0a 20 20 20 77 ┆ty files (rel=437, 441):>); w┆
0x30660…3067e 72 69 74 65 6c 69 73 74 28 34 34 31 2c 31 30 2c 35 35 2e 30 2c 3c 3a 72 65 6c 20 6c 6f 61 ┆ritelist(441,10,55.0,<:rel loa┆
0x3067e…30684 (0x1f8,0x60e)
0x30684…306a0 64 20 65 6e 74 72 79 20 28 76 69 72 74 3d 34 34 30 29 3a 3e 29 3b 0a 20 20 20 77 72 ┆d entry (virt=440):>); wr┆
0x306a0…306c0 69 74 65 6c 69 73 74 28 34 34 32 2c 31 30 2c 33 33 2e 30 2c 3c 3a 76 69 72 74 20 72 65 61 64 20 ┆itelist(442,10,33.0,<:virt read ┆
0x306c0…306e0 74 61 70 65 20 28 72 65 6c 3d 34 34 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆tape (rel=443):>); writelist(┆
0x306e0…306fc 34 34 33 2c 31 30 2c 33 33 2e 30 2c 3c 3a 72 65 6c 20 72 65 61 64 20 74 61 70 65 20 ┆443,10,33.0,<:rel read tape ┆
0x306fc…30702 (0x1f8,0x60f)
0x30702…30720 28 76 69 72 74 3d 34 34 32 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 34 ┆(virt=442):>); writelist(44┆
0x30720…30740 34 2c 31 30 2c 34 34 2e 30 2c 3c 3a 76 69 72 74 20 72 65 61 64 20 63 61 72 64 20 28 72 65 6c 3d ┆4,10,44.0,<:virt read card (rel=┆
0x30740…30760 34 34 35 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 34 35 2c 31 30 2c 34 34 2e ┆445):>); writelist(445,10,44.┆
0x30760…3077a 30 2c 3c 3a 72 65 6c 20 72 65 61 64 20 63 61 72 64 20 65 6e 74 72 79 20 28 76 ┆0,<:rel read card entry (v┆
0x3077a…30780 (0x1f8,0x610)
0x30780…307a0 69 72 74 3d 34 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 34 36 2c 35 2c ┆irt=444):>); writelist(446,5,┆
0x307a0…307c0 33 32 2e 30 2c 3c 3a 74 61 70 65 20 72 65 61 64 65 72 20 28 6a 6f 62 29 3a 20 70 72 6f 67 20 73 ┆32.0,<:tape reader (job): prog s┆
0x307c0…307e0 74 61 74 65 20 28 61 6e 64 20 61 6e 73 77 65 72 20 72 65 6c 29 20 28 72 65 6c 20 64 37 35 20 6f ┆tate (and answer rel) (rel d75 o┆
0x307e0…30800 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 00 00 00 00 00 00 00 00 ┆n jobfile page):>); w ┆
0x30800…30806 (388,) (0x1f8,0x611)
0x30806…30820 72 69 74 65 6c 69 73 74 28 34 34 37 2c 35 2c 33 32 2e 30 2c 3c 3a 74 61 70 65 ┆ritelist(447,5,32.0,<:tape┆
0x30820…30840 20 72 65 61 64 65 72 20 28 6a 6f 62 29 3a 20 73 74 61 72 74 20 72 65 6c 20 28 72 65 6c 20 64 37 ┆ reader (job): start rel (rel d7┆
0x30840…30860 36 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆6 on jobfile page):>); writel┆
0x30860…3087e 69 73 74 28 34 34 38 2c 35 2c 33 32 2e 30 2c 3c 3a 74 61 70 65 20 72 65 61 64 65 72 20 28 ┆ist(448,5,32.0,<:tape reader (┆
0x3087e…30884 (0x1f8,0x612)
0x30884…308a0 6a 6f 62 29 3a 20 63 75 72 72 2e 20 76 69 72 74 20 61 64 64 72 2e 20 6f 66 20 74 61 ┆job): curr. virt addr. of ta┆
0x308a0…308c0 70 65 20 62 75 66 66 65 72 20 28 72 65 6c 20 64 37 37 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 ┆pe buffer (rel d77 on jobfile pa┆
0x308c0…308e0 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 34 39 2c 35 2c 33 32 2e 30 2c ┆ge):>); writelist(449,5,32.0,┆
0x308e0…308fc 3c 3a 74 61 70 65 20 72 65 61 64 65 72 20 28 6a 6f 62 29 3a 20 6c 61 73 74 20 72 65 ┆<:tape reader (job): last re┆
0x308fc…30902 (0x1f8,0x613)
0x30902…30920 63 65 69 76 65 64 20 73 74 61 74 75 73 20 6f 66 20 74 61 70 65 20 72 65 61 64 65 72 20 28 ┆ceived status of tape reader (┆
0x30920…30940 72 65 6c 20 64 37 33 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 ┆rel d73 on jobfile page):>); ┆
0x30940…30960 77 72 69 74 65 6c 69 73 74 28 34 35 30 2c 35 2c 33 32 2e 30 2c 3c 3a 63 61 72 64 20 72 65 61 64 ┆writelist(450,5,32.0,<:card read┆
0x30960…3097a 65 72 20 28 6a 6f 62 29 3a 20 73 74 61 72 74 20 72 65 6c 20 6f 66 20 69 6e 70 ┆er (job): start rel of inp┆
0x3097a…30980 (0x1f8,0x614)
0x30980…309a0 75 74 20 69 6e 20 62 75 66 66 65 72 20 28 72 65 6c 20 64 36 36 2b 31 20 6f 6e 20 6a 6f 62 66 69 ┆ut in buffer (rel d66+1 on jobfi┆
0x309a0…309c0 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 35 31 2c 37 2c ┆le page):>); writelist(451,7,┆
0x309c0…309e0 31 33 2e 30 2c 3c 3a 76 69 72 74 20 63 6f 64 65 70 61 67 65 20 31 32 20 28 63 2e 70 2e 32 20 69 ┆13.0,<:virt codepage 12 (c.p.2 i┆
0x309e0…30a00 6e 20 74 6a 6f 62 73 74 61 72 74 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 00 00 00 00 00 00 00 00 ┆n tjobstart):>); writ ┆
0x30a00…30a06 (389,) (0x1f8,0x615)
0x30a06…30a20 65 6c 69 73 74 28 34 35 32 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 73 69 7a ┆elist(452,7,14.0,<:rel siz┆
0x30a20…30a40 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 2c 20 63 6f 64 65 70 ┆e specification (virt=400, codep┆
0x30a40…30a60 61 67 65 20 31 33 2c 20 74 6a 6f 62 73 74 61 72 74 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆age 13, tjobstart):>); writel┆
0x30a60…30a7e 69 73 74 28 34 35 33 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 69 6e 74 65 72 6e 61 6c 73 ┆ist(453,7,14.0,<:rel internals┆
0x30a7e…30a84 (0x1f8,0x616)
0x30a84…30aa0 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 ┆ specification (virt=400):>)┆
0x30aa0…30ac0 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 35 34 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 ┆; writelist(454,7,14.0,<:rel ┆
0x30ac0…30ae0 70 72 6f 67 72 61 6d 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 ┆program specification (virt=400)┆
0x30ae0…30afc 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 35 35 2c 37 2c 31 34 2e 30 ┆:>); writelist(455,7,14.0┆
0x30afc…30b02 (0x1f8,0x617)
0x30b02…30b20 2c 3c 3a 72 65 6c 20 62 75 66 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 ┆,<:rel buf specification (virt┆
0x30b20…30b40 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 35 36 2c 37 2c 31 34 2e ┆=400):>); writelist(456,7,14.┆
0x30b40…30b60 30 2c 3c 3a 72 65 6c 20 61 72 65 61 73 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 ┆0,<:rel areas specification (vir┆
0x30b60…30b7a 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 35 ┆t=400):>); writelist(45┆
0x30b7a…30b80 (0x1f8,0x618)
0x30b80…30ba0 37 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 6b 65 79 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e ┆7,7,14.0,<:rel key specification┆
0x30ba0…30bc0 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 35 38 ┆ (virt=400):>); writelist(458┆
0x30bc0…30be0 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 70 65 72 6d 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e ┆,7,14.0,<:rel perm specification┆
0x30be0…30c00 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 00 00 00 00 00 00 00 00 ┆ (virt=400):>); write ┆
0x30c00…30c06 (390,) (0x1f8,0x619)
0x30c06…30c20 6c 69 73 74 28 34 35 39 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 74 65 6d 70 ┆list(459,7,14.0,<:rel temp┆
0x30c20…30c40 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 0c 0a ┆ specification (virt=400):>); ┆
0x30c40…30c60 63 6f 6d 6d 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 20 20 20 20 20 20 20 ┆comment lkn 75.09.10 ┆
0x30c60…30c7e 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 20 2e 2e ┆ textxref page ..┆
0x30c7e…30c84 (0x1f8,0x61a)
0x30c84…30ca0 2e 31 39 2e 2e 2e 0a 3b 0a 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 36 30 2c 37 ┆.19... ; writelist(460,7┆
0x30ca0…30cc0 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 6c 61 74 65 73 74 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e ┆,14.0,<:rel latest specification┆
0x30cc0…30ce0 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 36 31 ┆ (virt=400):>); writelist(461┆
0x30ce0…30cfc 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 6d 6f 75 6e 74 73 20 73 70 65 63 69 66 69 ┆,7,14.0,<:rel mounts specifi┆
0x30cfc…30d02 (0x1f8,0x61b)
0x30d02…30d20 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆cation (virt=400):>); write┆
0x30d20…30d40 6c 69 73 74 28 34 36 32 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 6f 75 74 70 75 74 20 73 70 65 ┆list(462,7,14.0,<:rel output spe┆
0x30d40…30d60 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 ┆cification (virt=400):>); wri┆
0x30d60…30d7a 74 65 6c 69 73 74 28 34 36 33 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 74 69 ┆telist(463,7,14.0,<:rel ti┆
0x30d7a…30d80 (0x1f8,0x61c)
0x30d80…30da0 6d 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a ┆me specification (virt=400):>); ┆
0x30da0…30dc0 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 36 34 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 61 63 ┆ writelist(464,7,14.0,<:rel ac┆
0x30dc0…30de0 63 6f 75 6e 74 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e ┆count specification (virt=400):>┆
0x30de0…30e00 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 36 35 2c 37 2c 31 34 00 00 00 00 00 00 00 00 ┆); writelist(465,7,14 ┆
0x30e00…30e06 (391,) (0x1f8,0x61d)
0x30e06…30e20 2e 30 2c 3c 3a 72 65 6c 20 73 74 61 74 69 6f 6e 73 20 73 70 65 63 69 66 69 63 ┆.0,<:rel stations specific┆
0x30e20…30e40 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆ation (virt=400):>); writelis┆
0x30e40…30e60 74 28 34 36 36 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 64 65 76 69 63 65 20 73 70 65 63 69 66 ┆t(466,7,14.0,<:rel device specif┆
0x30e60…30e7e 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 37 33 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆ication (virt=473):>); writ┆
0x30e7e…30e84 (0x1f8,0x61e)
0x30e84…30ea0 65 6c 69 73 74 28 34 36 37 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 74 61 70 65 73 ┆elist(467,7,14.0,<:rel tapes┆
0x30ea0…30ec0 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 ┆ specification (virt=400):>); ┆
0x30ec0…30ee0 20 77 72 69 74 65 6c 69 73 74 28 34 36 38 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 63 62 75 66 ┆ writelist(468,7,14.0,<:rel cbuf┆
0x30ee0…30efc 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 ┆ specification (virt=400):>)┆
0x30efc…30f02 (0x1f8,0x61f)
0x30f02…30f20 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 36 39 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 ┆; writelist(469,7,14.0,<:re┆
0x30f20…30f40 6c 20 73 75 73 70 65 6e 64 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 76 69 72 74 3d 34 30 ┆l suspend specification (virt=40┆
0x30f40…30f60 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 30 2c 37 2c 31 34 2e 30 2c 3c ┆0):>); writelist(470,7,14.0,<┆
0x30f60…30f7a 3a 72 65 6c 20 70 72 6f 63 20 73 65 74 20 62 73 20 63 6c 61 69 6d 20 28 76 69 ┆:rel proc set bs claim (vi┆
0x30f7a…30f80 (0x1f8,0x620)
0x30f80…30fa0 72 74 3d 34 35 31 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 31 2c 37 2c 31 ┆rt=451):>); writelist(471,7,1┆
0x30fa0…30fc0 33 2e 30 2c 3c 3a 76 69 72 74 20 63 6f 64 65 70 61 67 65 20 31 35 20 28 63 2e 70 2e 35 20 69 6e ┆3.0,<:virt codepage 15 (c.p.5 in┆
0x30fc0…30fe0 20 74 6a 6f 62 73 74 61 72 74 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 32 ┆ tjobstart):>); writelist(472┆
0x30fe0…31000 2c 37 2c 31 33 2e 30 2c 3c 3a 76 69 72 74 20 63 6f 64 65 70 61 67 65 20 00 00 00 00 00 00 00 00 ┆,7,13.0,<:virt codepage ┆
0x31000…31006 (392,) (0x1f8,0x621)
0x31006…31020 31 31 20 28 63 2e 70 2e 31 20 69 6e 20 74 6a 6f 62 73 74 61 72 74 29 3a 3e 29 ┆11 (c.p.1 in tjobstart):>)┆
0x31020…31040 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 33 2c 37 2c 31 33 2e 30 2c 3c 3a 76 69 72 74 ┆; writelist(473,7,13.0,<:virt┆
0x31040…31060 20 63 6f 64 65 70 61 67 65 20 31 34 20 28 63 2e 70 2e 34 20 69 6e 20 74 6a 6f 62 73 74 61 72 74 ┆ codepage 14 (c.p.4 in tjobstart┆
0x31060…3107e 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 34 2c 35 2c 33 32 2e 30 2c ┆):>); writelist(474,5,32.0,┆
0x3107e…31084 (0x1f8,0x622)
0x31084…310a0 3c 3a 20 63 75 72 72 65 6e 74 20 70 61 70 65 72 20 74 79 70 65 20 28 72 65 6c 20 64 ┆<: current paper type (rel d┆
0x310a0…310c0 37 39 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 ┆79 on jobfile page):>); write┆
0x310c0…310e0 6c 69 73 74 28 34 37 35 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 64 69 73 63 20 72 65 73 74 20 ┆list(475,7,14.0,<:rel disc rest ┆
0x310e0…310fc 6b 65 79 20 33 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 36 2c 37 ┆key 3:>); writelist(476,7┆
0x310fc…31102 (0x1f8,0x623)
0x31102…31120 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 64 72 75 6d 20 72 65 73 74 20 6b 65 79 20 33 3a 3e 29 ┆,14.0,<:rel drum rest key 3:>)┆
0x31120…31140 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 37 2c 39 2c 35 33 2e 30 2c 3c 3a 72 65 6c 20 ┆; writelist(477,9,53.0,<:rel ┆
0x31140…31160 66 69 6e 69 73 20 6d 6f 75 6e 74 20 28 76 69 72 74 3d 33 31 33 29 3a 3e 29 3b 0a 20 20 20 77 72 ┆finis mount (virt=313):>); wr┆
0x31160…3117a 69 74 65 6c 69 73 74 28 34 37 38 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 72 ┆itelist(478,8,69.0,<:rel r┆
0x3117a…31180 (0x1f8,0x624)
0x31180…311a0 65 74 75 72 6e 20 66 72 6f 6d 20 6d 6f 75 6e 74 65 72 20 66 69 6e 69 73 20 28 76 69 72 74 3d 34 ┆eturn from mounter finis (virt=4┆
0x311a0…311c0 37 37 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 37 39 2c 37 2c 31 34 2e 30 2c ┆77):>); writelist(479,7,14.0,┆
0x311c0…311e0 3c 3a 28 64 37 34 29 20 72 65 6c 20 63 6f 6e 76 65 72 74 20 63 6c 61 69 6d 3a 20 65 6e 74 72 69 ┆<:(d74) rel convert claim: entri┆
0x311e0…31200 65 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 38 30 2c 00 00 00 00 00 00 00 00 ┆es:>); writelist(480, ┆
0x31200…31206 (393,) (0x1f8,0x625)
0x31206…31220 37 2c 31 34 2e 30 2c 3c 3a 28 64 37 34 2b 31 29 20 72 65 6c 20 63 6f 6e 76 65 ┆7,14.0,<:(d74+1) rel conve┆
0x31220…31240 72 74 20 63 6c 61 69 6d 3a 20 73 6c 69 63 65 73 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆rt claim: slices:>); writelis┆
0x31240…31260 74 28 34 38 31 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 63 6f 72 65 6c 6f 63 6b 20 72 65 71 75 ┆t(481,8,69.0,<:rel corelock requ┆
0x31260…3127e 65 73 74 20 28 76 69 72 74 3d 34 32 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆est (virt=426):>); writelis┆
0x3127e…31284 (0x1f8,0x626)
0x31284…312a0 74 28 34 38 32 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 63 6f 72 65 6f 70 65 6e 20 ┆t(482,8,69.0,<:rel coreopen ┆
0x312a0…312c0 72 65 71 75 65 73 74 20 28 76 69 72 74 3d 34 32 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆request (virt=426):>); writel┆
0x312c0…312e0 69 73 74 28 34 38 33 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 6f 6e 6c 69 6e 65 20 63 6f 6d 6d ┆ist(483,7,14.0,<:rel online comm┆
0x312e0…312fc 61 6e 64 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆and (virt=400):>); writel┆
0x312fc…31302 (0x1f8,0x627)
0x31302…31320 69 73 74 28 34 38 34 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 63 6f 72 65 6c 6f 63 6b 20 ┆ist(484,7,14.0,<:rel corelock ┆
0x31320…31340 63 6f 6d 6d 61 6e 64 20 28 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆command (virt=400):>); writel┆
0x31340…31360 69 73 74 28 34 38 35 2c 36 2c 34 34 2e 30 2c 3c 3a 72 65 6c 20 6d 65 73 73 61 67 65 20 28 76 69 ┆ist(485,6,44.0,<:rel message (vi┆
0x31360…3137a 72 74 3d 32 34 37 29 20 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 ┆rt=247) :>); writelist(┆
0x3137a…31380 (0x1f8,0x628)
0x31380…313a0 34 38 36 2c 36 2c 34 34 2e 30 2c 3c 3a 72 65 6c 20 72 65 6d 6f 76 65 20 28 76 69 72 74 3d 32 34 ┆486,6,44.0,<:rel remove (virt=24┆
0x313a0…313c0 37 29 20 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 38 37 2c 39 2c 35 32 2e 30 2c ┆7) :>); writelist(487,9,52.0,┆
0x313c0…313e0 3c 3a 72 65 6c 20 65 76 65 6e 20 6f 6e 20 6c 61 62 65 6c 20 70 61 67 65 20 28 76 69 72 74 3d 32 ┆<:rel even on label page (virt=2┆
0x313e0…31400 39 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 38 38 00 00 00 00 00 00 00 00 ┆96):>); writelist(488 ┆
0x31400…31406 (394,) (0x1f8,0x629)
0x31406…31420 2c 39 2c 35 32 2e 30 2c 3c 3a 72 65 6c 20 6e 72 7a 20 6f 6e 20 6c 61 62 65 6c ┆,9,52.0,<:rel nrz on label┆
0x31420…31440 20 70 61 67 65 20 28 76 69 72 74 3d 32 39 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆ page (virt=296):>); writelis┆
0x31440…31460 74 28 34 38 39 2c 39 2c 35 32 2e 30 2c 3c 3a 72 65 6c 20 6e 72 7a 65 20 6f 6e 20 6c 61 62 65 6c ┆t(489,9,52.0,<:rel nrze on label┆
0x31460…3147e 20 70 61 67 65 20 28 76 69 72 74 3d 32 39 36 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆ page (virt=296):>); writel┆
0x3147e…31484 (0x1f8,0x62a)
0x31484…314a0 69 73 74 28 34 39 30 2c 36 2c 31 2e 30 2c 3c 3a 72 65 6c 20 74 65 73 74 20 6f 6e 20 ┆ist(490,6,1.0,<:rel test on ┆
0x314a0…314c0 6b 69 6c 6c 20 70 61 67 65 20 28 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆kill page (virt=244):>); writ┆
0x314c0…314e0 65 6c 69 73 74 28 34 39 31 2c 35 2c 34 36 2e 30 2c 3c 3a 72 65 6c 20 63 6c 6f 63 6b 20 6f 6e 20 ┆elist(491,5,46.0,<:rel clock on ┆
0x314e0…314fc 67 65 6e 65 72 61 6c 20 70 72 69 6e 74 20 70 61 67 65 20 28 76 69 72 74 3d 31 36 32 ┆general print page (virt=162┆
0x314fc…31502 (0x1f8,0x62b)
0x31502…31520 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 39 32 2c 37 2c 31 34 2e 30 2c ┆):>); writelist(492,7,14.0,┆
0x31520…31540 3c 3a 72 65 6c 20 61 63 63 6f 75 6e 74 20 6a 6f 62 20 65 6e 74 72 79 3a 3e 29 3b 0a 20 20 20 77 ┆<:rel account job entry:>); w┆
0x31540…31560 72 69 74 65 6c 69 73 74 28 34 39 33 2c 38 2c 36 39 2e 30 2c 3c 3a 72 65 6c 20 68 69 67 68 20 70 ┆ritelist(493,8,69.0,<:rel high p┆
0x31560…3157a 72 69 6f 72 69 74 79 20 73 74 61 72 74 20 28 76 69 72 74 3d 34 32 36 29 3a 3e ┆riority start (virt=426):>┆
0x3157a…31580 (0x1f8,0x62c)
0x31580…315a0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 39 34 2c 35 2c 33 32 2e 30 2c 3c 3a 20 74 69 ┆); writelist(494,5,32.0,<: ti┆
0x315a0…315c0 6d 65 20 6c 6f 67 67 65 64 20 69 6e 20 28 72 65 6c 20 64 34 33 20 6f 6e 20 6a 6f 62 66 69 6c 65 ┆me logged in (rel d43 on jobfile┆
0x315c0…315e0 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 39 35 2c 38 2c 36 39 ┆ page):>); writelist(495,8,69┆
0x315e0…31600 2e 30 2c 3c 3a 76 69 72 74 20 72 65 66 20 63 6c 65 61 6e 20 63 61 74 61 00 00 00 00 00 00 00 00 ┆.0,<:virt ref clean cata ┆
0x31600…31606 (395,) (0x1f8,0x62d)
0x31606…31620 6c 6f 67 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 39 36 2c 36 ┆log:>); writelist(496,6┆
0x31620…31640 2c 31 2e 30 2c 3c 3a 72 65 6c 20 64 65 66 69 6e 65 20 6f 6e 20 6b 69 6c 6c 20 70 61 67 65 20 28 ┆,1.0,<:rel define on kill page (┆
0x31640…31660 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 39 37 2c 31 ┆virt=244):>); writelist(497,1┆
0x31660…3167e 33 2c 34 2e 30 2c 3c 3a 72 65 6c 20 70 72 69 6f 72 69 74 79 20 69 6e 20 6a 6f 62 20 64 65 ┆3,4.0,<:rel priority in job de┆
0x3167e…31684 (0x1f8,0x62e)
0x31684…316a0 73 63 72 20 6f 6e 20 62 61 6e 6b 65 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 ┆scr on banker page:>); wr┆
0x316a0…316c0 69 74 65 6c 69 73 74 28 34 39 38 2c 37 2c 31 35 2c 3c 3a 72 65 6c 20 65 6e 74 72 79 20 63 6f 70 ┆itelist(498,7,15,<:rel entry cop┆
0x316c0…316e0 79 20 61 72 65 61 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 34 39 39 2c 37 2c 31 35 ┆y area:>); writelist(499,7,15┆
0x316e0…316fc 2c 3c 3a 73 74 61 74 75 73 2c 20 6f 70 65 72 61 74 69 6f 6e 20 28 66 72 6f 6d 20 63 ┆,<:status, operation (from c┆
0x316fc…31702 (0x1f8,0x62f)
0x31702…31720 6f 70 79 20 61 72 65 61 29 3a 3e 29 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 63 68 ┆opy area):>); comment ch┆
0x31720…31740 64 20 20 38 32 2e 30 34 2e 32 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 ┆d 82.04.29 textxre┆
0x31740…31760 66 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 20 2e 2e 2e 31 39 61 2e 2e 2e 0a 3b 0a 0a ┆f page ...19a... ; ┆
0x31760…3177a 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 30 31 2c 37 2c 31 34 2e 30 2c 3c ┆ writelist(501,7,14.0,<┆
0x3177a…31780 (0x1f8,0x630)
0x31780…317a0 3a 72 65 6c 20 63 70 75 20 2d 20 75 73 65 64 20 28 30 2e 38 20 73 65 63 2e 29 20 6f 6e 20 6a 6f ┆:rel cpu - used (0.8 sec.) on jo┆
0x317a0…317c0 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 30 ┆b descr page:>); writelist(50┆
0x317c0…317e0 32 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 74 65 6d 70 20 64 72 75 6d 2c 20 64 69 73 63 20 6f ┆2,7,14.0,<:rel temp drum, disc o┆
0x317e0…31800 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆n job descr page:>); ┆
0x31800…31806 (396,) (0x1f8,0x631)
0x31806…31820 77 72 69 74 65 6c 69 73 74 28 35 30 33 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c ┆writelist(503,7,14.0,<:rel┆
0x31820…31840 20 73 74 61 74 69 6f 6e 73 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a ┆ stations on job descr page:>); ┆
0x31840…31860 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 30 34 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 74 6f ┆ writelist(504,7,14.0,<:rel to┆
0x31860…3187e 70 20 28 69 6e 69 74 69 61 6c 6c 79 20 74 69 6d 65 29 20 61 64 64 72 65 73 73 20 6f 6e 20 ┆p (initially time) address on ┆
0x3187e…31884 (0x1f8,0x632)
0x31884…318a0 6a 6f 62 20 64 65 73 63 72 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c ┆job descr page:>); writel┆
0x318a0…318c0 69 73 74 28 35 30 35 2c 37 2c 31 34 2e 30 2c 3c 3a 72 65 6c 20 66 69 72 73 74 20 61 64 64 72 65 ┆ist(505,7,14.0,<:rel first addre┆
0x318c0…318e0 73 73 20 28 69 6e 69 74 69 61 6c 6c 79 20 73 69 7a 65 29 20 6f 6e 20 6a 6f 62 20 64 65 73 63 72 ┆ss (initially size) on job descr┆
0x318e0…318fc 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 30 36 2c 36 ┆ page:>); writelist(506,6┆
0x318fc…31902 (0x1f8,0x633)
0x31902…31920 2c 39 2e 30 2c 3c 3a 72 65 6c 20 73 74 6f 70 20 28 76 69 72 74 3d 32 33 37 29 3a 3e 29 3b ┆,9.0,<:rel stop (virt=237):>);┆
0x31920…31940 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 30 37 2c 35 2c 33 33 2e 30 2c 3c 3a 73 65 67 6d 65 ┆ writelist(507,5,33.0,<:segme┆
0x31940…31960 6e 74 73 20 69 6e 20 73 61 76 65 20 62 75 66 66 65 72 20 2b 20 6a 6f 62 66 69 6c 65 3a 3e 29 3b ┆nts in save buffer + jobfile:>);┆
0x31960…3197a 0a 20 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 2c 32 ┆ central(41.0,2┆
0x3197a…31980 (0x1f8,0x634)
0x31980…319a0 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 30 38 2c 37 2c 31 34 2e 30 2c 3c 3a 6c 65 6e ┆); writelist(508,7,14.0,<:len┆
0x319a0…319c0 67 74 68 20 28 69 6e 20 73 65 67 6d 65 6e 74 73 29 20 6f 66 20 6a 6f 62 20 64 65 73 63 72 3a 3e ┆gth (in segments) of job descr:>┆
0x319c0…319e0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 2c 32 29 3b 0a 20 ┆); central(41.0,2); ┆
0x319e0…31a00 20 20 77 72 69 74 65 6c 69 73 74 28 35 30 39 2c 39 2c 35 33 2e 30 2c 3c 00 00 00 00 00 00 00 00 ┆ writelist(509,9,53.0,< ┆
0x31a00…31a06 (397,) (0x1f8,0x635)
0x31a06…31a20 3a 6c 65 6e 67 74 68 20 28 69 6e 20 73 65 67 6d 65 6e 74 73 29 20 6f 66 20 70 ┆:length (in segments) of p┆
0x31a20…31a40 73 6a 6f 62 20 6d 6f 75 6e 74 20 63 6f 64 65 20 2b 20 6d 6f 75 6e 74 74 61 62 6c 65 20 2b 20 6d ┆sjob mount code + mounttable + m┆
0x31a40…31a60 6f 75 6e 74 2d 61 63 74 69 6f 6e 2d 74 61 62 6c 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ount-action-table:>); ┆
0x31a60…31a7e 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 2c 32 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 ┆ central(41.0,2); writelist┆
0x31a7e…31a84 (0x1f8,0x636)
0x31a84…31aa0 28 35 31 30 2c 36 2c 37 32 2e 30 2c 3c 3a 6c 65 6e 67 74 68 20 28 20 69 6e 20 73 65 ┆(510,6,72.0,<:length ( in se┆
0x31aa0…31ac0 67 6d 65 6e 74 73 29 20 6f 66 20 72 65 71 75 65 73 74 20 6c 69 6e 65 20 70 61 67 65 3a 3e 29 3b ┆gments) of request line page:>);┆
0x31ac0…31ae0 0a 20 20 20 20 20 20 20 20 20 20 20 63 65 6e 74 72 61 6c 28 34 31 2e 30 2c 32 29 3b 0a 20 20 20 ┆ central(41.0,2); ┆
0x31ae0…31afc 77 72 69 74 65 6c 69 73 74 28 35 31 38 2c 35 2c 33 2e 30 2c 3c 3a 72 65 61 64 65 72 ┆writelist(518,5,3.0,<:reader┆
0x31afc…31b02 (0x1f8,0x637)
0x31b02…31b20 20 66 72 65 65 20 73 65 6d 61 66 6f 72 20 28 72 65 6c 20 64 39 30 20 6f 6e 20 6a 6f 62 66 ┆ free semafor (rel d90 on jobf┆
0x31b20…31b40 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 31 39 2c 35 ┆ile page):>); writelist(519,5┆
0x31b40…31b60 2c 33 2e 30 2c 3c 3a 72 65 61 64 65 72 20 66 75 6c 6c 20 73 65 6d 61 66 6f 72 20 28 72 65 6c 20 ┆,3.0,<:reader full semafor (rel ┆
0x31b60…31b7a 64 39 31 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e 29 3b 0a 20 ┆d91 on jobfile page):>); ┆
0x31b7a…31b80 (0x1f8,0x638)
0x31b80…31ba0 20 20 77 72 69 74 65 6c 69 73 74 28 35 32 30 2c 35 2c 33 2e 30 2c 3c 3a 66 69 72 73 74 20 76 69 ┆ writelist(520,5,3.0,<:first vi┆
0x31ba0…31bc0 72 74 75 61 6c 20 62 75 66 66 65 72 20 28 72 65 6c 20 64 39 32 20 6f 6e 20 6a 6f 62 66 69 6c 65 ┆rtual buffer (rel d92 on jobfile┆
0x31bc0…31be0 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 32 31 2c 35 2c 33 2e ┆ page):>); writelist(521,5,3.┆
0x31be0…31c00 30 2c 3c 3a 74 6f 70 20 76 69 72 74 75 61 6c 20 62 75 66 66 65 72 20 28 00 00 00 00 00 00 00 00 ┆0,<:top virtual buffer ( ┆
0x31c00…31c06 (398,) (0x1f8,0x639)
0x31c06…31c20 72 65 6c 20 64 39 33 20 6f 6e 20 6a 6f 62 66 69 6c 65 20 70 61 67 65 29 3a 3e ┆rel d93 on jobfile page):>┆
0x31c20…31c40 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 32 32 2c 31 33 2c 2d 39 39 2e 30 2c 3c 3a 61 ┆); writelist(522,13,-99.0,<:a┆
0x31c40…31c60 72 72 69 76 61 6c 20 74 69 6d 65 20 28 6a 31 30 20 69 6e 20 62 61 6e 6b 65 72 73 20 70 73 6a 6f ┆rrival time (j10 in bankers psjo┆
0x31c60…31c7e 62 20 64 65 73 63 72 69 70 74 69 6f 6e 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆b description):>); writelis┆
0x31c7e…31c84 (0x1f8,0x63a)
0x31c84…31ca0 74 28 35 32 33 2c 31 34 2c 31 2e 30 2c 3c 3a 61 62 73 72 65 66 20 6f 66 20 70 65 72 ┆t(523,14,1.0,<:absref of per┆
0x31ca0…31cc0 6d 20 63 6f 72 65 20 66 6f 72 20 68 6f 73 74 6d 65 73 73 61 67 65 73 20 28 72 65 6c 20 64 31 34 ┆m core for hostmessages (rel d14┆
0x31cc0…31ce0 36 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆6 on jobdescr. page):>); writ┆
0x31ce0…31cfc 65 6c 69 73 74 28 35 32 34 2c 31 34 2c 33 2e 30 2c 3c 3a 70 72 69 6f 72 69 74 79 20 ┆elist(524,14,3.0,<:priority ┆
0x31cfc…31d02 (0x1f8,0x63b)
0x31d02…31d20 28 72 65 6c 20 64 31 33 32 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 70 61 67 65 29 3a 3e ┆(rel d132 on jobdescr. page):>┆
0x31d20…31d40 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 32 35 2c 31 34 2c 34 2e 30 2c 3c 3a 74 6f 74 ┆); writelist(525,14,4.0,<:tot┆
0x31d40…31d60 61 6c 20 6e 65 74 20 74 69 6d 20 28 72 65 6c 20 64 32 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 ┆al net tim (rel d2 on jobdescr. ┆
0x31d60…31d7a 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 32 36 ┆page):>); writelist(526┆
0x31d7a…31d80 (0x1f8,0x63c)
0x31d80…31da0 2c 37 2c 2d 39 39 2e 30 2c 3c 3a 6c 69 6e 6b 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 28 72 ┆,7,-99.0,<:link specification (r┆
0x31da0…31dc0 65 6c 20 63 37 30 2c 20 63 6f 64 65 70 61 67 65 20 31 33 2c 20 74 6a 6f 62 73 74 61 72 74 2c 20 ┆el c70, codepage 13, tjobstart, ┆
0x31dc0…31de0 76 69 72 74 3d 34 30 30 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 32 37 2c 31 ┆virt=400):>); writelist(527,1┆
0x31de0…31e00 34 2c 33 2e 30 2c 3c 3a 6c 69 6e 6b 73 20 28 72 65 6c 20 64 31 34 38 20 00 00 00 00 00 00 00 00 ┆4,3.0,<:links (rel d148 ┆
0x31e00…31e06 (399,) (0x1f8,0x63d)
0x31e06…31e20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 70 61 67 65 29 3a 3e 29 3b 0a 20 20 20 ┆on jobdescr. page):>); ┆
0x31e20…31e40 77 72 69 74 65 6c 69 73 74 28 35 32 38 2c 36 2c 2d 39 39 2e 30 2c 3c 3a 63 61 6c 6c 20 63 6f 6d ┆writelist(528,6,-99.0,<:call com┆
0x31e40…31e60 6d 61 6e 64 20 28 72 65 6c 20 63 31 35 2c 20 63 6f 64 65 70 61 67 65 20 31 30 30 2c 20 74 74 65 ┆mand (rel c15, codepage 100, tte┆
0x31e60…31e7e 72 6d 32 2c 20 76 69 72 74 3d 32 34 34 29 3a 3e 29 3b 0a 20 20 20 77 72 69 74 65 6c 69 73 ┆rm2, virt=244):>); writelis┆
0x31e7e…31e84 (0x1f8,0x63e)
0x31e84…31ea0 74 28 35 32 39 2c 31 34 2c 32 2e 30 2c 3c 3a 70 72 6f 6a 65 63 74 20 62 61 73 65 20 ┆t(529,14,2.0,<:project base ┆
0x31ea0…31ec0 28 72 65 6c 20 64 32 36 20 6f 6e 20 6a 6f 62 64 65 73 63 72 2e 20 70 61 67 65 29 3a 3e 29 3b 0a ┆(rel d26 on jobdescr. page):>); ┆
0x31ec0…31ee0 20 20 20 77 72 69 74 65 6c 69 73 74 28 35 33 30 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 76 69 72 74 ┆ writelist(530,11,-99.0,<:virt┆
0x31ee0…31efc 20 70 61 70 65 72 74 61 62 6c 65 20 70 61 67 65 3a 3e 29 3b 0a 20 20 20 77 72 69 74 ┆ papertable page:>); writ┆
0x31efc…31f02 (0x1f8,0x63f)
0x31f02…31f20 65 6c 69 73 74 28 35 33 31 2c 31 31 2c 2d 39 39 2e 30 2c 3c 3a 76 69 72 74 20 70 72 69 6e ┆elist(531,11,-99.0,<:virt prin┆
0x31f20…31f40 74 65 72 74 61 62 6c 65 20 70 61 67 65 3a 3e 29 3b 0a 0a 0a 0a 0a 0a 0a 0a 0a 0c 0a 63 6f 6d 6d ┆tertable page:>); comm┆
0x31f40…31f60 65 6e 74 20 20 73 6d 20 37 35 2e 30 37 2e 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ent sm 75.07.25 ┆
0x31f60…31f7a 20 20 74 65 78 74 78 72 65 66 20 20 20 20 20 70 61 67 65 20 2e 2e 2e 32 30 2e ┆ textxref page ...20.┆
0x31f7a…31f80 (0x1f8,0x640)
0x31f80…31fa0 2e 2e 0a 3b 0a 20 20 77 72 69 74 65 6c 69 73 74 28 35 35 31 2c 30 2c 30 2c 3c 3a 3a 3e 29 3b 0a ┆.. ; writelist(551,0,0,<::>); ┆
0x31fa0…31fc0 20 20 73 61 76 65 28 31 35 2c 31 30 30 30 2c 30 2c 30 2c 3c 3a 3a 3e 29 3b 0a 20 20 63 6c 6f 73 ┆ save(15,1000,0,0,<::>); clos┆
0x31fc0…31fe0 65 28 65 78 74 6e 61 6d 65 2c 74 72 75 65 29 3b 0a 20 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 ┆e(extname,true); close(z,true)┆
0x31fe0…32000 3b 0a 20 20 63 6c 6f 73 65 28 7a 64 65 66 2c 74 72 75 65 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆; close(zdef,true); ┆
0x32000…32006 (400,) (0x1f8,0x641)
0x32006…32020 63 6c 6f 73 65 28 75 64 7a 2c 74 72 75 65 29 3b 0a 65 6e 64 20 73 6f 72 74 69 ┆close(udz,true); end sorti┆
0x32020…32040 6e 67 20 69 6e 20 67 72 6f 75 70 73 20 61 66 74 65 72 20 75 73 65 3b 0a 0c 0a 0a 63 6f 6d 6d 65 ┆ng in groups after use; comme┆
0x32040…32060 6e 74 20 20 20 63 68 64 20 38 32 2e 30 34 2e 32 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nt chd 82.04.29 ┆
0x32060…3207e 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 2e 2e 2e ┆ textxref page ...┆
0x3207e…32084 (0x1f8,0x642)
0x32084…320a0 32 30 61 2e 2e 2e 0a 3b 0a 0a 69 66 20 28 6c 69 73 74 73 65 6c 65 63 74 2f 2f 31 30 ┆20a... ; if (listselect//10┆
0x320a0…320c0 29 20 6d 6f 64 20 31 30 20 3c 3e 30 20 74 68 65 6e 0a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆) mod 10 <>0 then begin comment ┆
0x320c0…320e0 77 72 69 74 69 6e 67 20 6f 66 20 72 65 73 65 72 76 61 74 69 6f 6e 73 3b 0a 0a 70 72 6f 63 65 64 ┆writing of reservations; proced┆
0x320e0…320fc 75 72 65 20 67 65 74 6e 61 6d 65 28 78 29 3b 20 20 20 20 76 61 6c 75 65 20 78 3b 0a ┆ure getname(x); value x; ┆
0x320fc…32102 (0x1f8,0x643)
0x32102…32120 69 6e 74 65 67 65 72 20 78 3b 20 20 3c 2a 20 78 20 69 73 20 65 78 74 65 72 6e 61 6c 20 6e ┆integer x; <* x is external n┆
0x32120…32140 75 6d 62 65 72 20 2a 3e 0a 62 65 67 69 6e 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 65 78 74 ┆umber *> begin setposition(ext┆
0x32140…32160 6e 61 6d 65 2c 30 2c 30 29 3b 0a 20 20 69 6e 72 65 63 36 28 65 78 74 6e 61 6d 65 2c 31 30 29 3b ┆name,0,0); inrec6(extname,10);┆
0x32160…3217a 0a 20 20 77 68 69 6c 65 20 78 3c 3e 65 78 74 6e 61 6d 65 2e 77 31 20 61 6e 64 ┆ while x<>extname.w1 and┆
0x3217a…32180 (0x1f8,0x644)
0x32180…321a0 20 65 78 74 6e 61 6d 65 2e 77 31 3c 35 35 31 20 64 6f 20 69 6e 72 65 63 36 28 65 78 74 6e 61 6d ┆ extname.w1<551 do inrec6(extnam┆
0x321a0…321c0 65 2c 31 30 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 2c ┆e,10); write(out,<:<10><10>:>,┆
0x321c0…321e0 20 3c 3c 64 64 64 3e 2c 20 78 2c 20 3c 3a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 6e 61 6d 65 64 3a 5f 3a ┆ <<ddd>, x, <:__________named:_:┆
0x321e0…32200 3e 2c 0a 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 65 78 74 6e 61 6d 00 00 00 00 00 00 00 00 ┆>, string extnam ┆
0x32200…32206 (401,) (0x1f8,0x645)
0x32206…32220 65 2e 72 35 29 3b 0a 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 6e 61 ┆e.r5); end procedure getna┆
0x32220…32240 6d 65 3b 0a 0a 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 65 78 74 2c 72 65 73 2c 66 69 6c 2c 72 ┆me; integer field ext,res,fil,r┆
0x32240…32260 65 6c 3b 0a 7a 6f 6e 65 20 69 6e 72 65 73 28 72 65 73 65 72 76 61 74 69 6f 6e 73 20 73 68 69 66 ┆el; zone inres(reservations shif┆
0x32260…3227e 74 20 28 2d 36 29 20 61 64 64 20 31 20 73 68 69 66 74 20 37 2c 31 2c 73 74 64 65 72 72 6f ┆t (-6) add 1 shift 7,1,stderro┆
0x3227e…32284 (0x1f8,0x646)
0x32284…322a0 72 29 3b 0a 7a 6f 6e 65 20 65 78 74 6e 61 6d 65 28 31 32 38 2c 31 2c 73 74 64 65 72 ┆r); zone extname(128,1,stder┆
0x322a0…322c0 72 6f 72 29 3b 0a 69 6e 74 65 67 65 72 20 69 2c 6d 69 6e 65 78 74 2c 6c 61 73 74 65 78 74 2c 66 ┆ror); integer i,minext,lastext,f┆
0x322c0…322e0 69 6c 65 6e 6f 2c 72 65 73 73 75 6d 2c 20 74 6f 74 73 75 6d 3b 0a 0a 6f 70 65 6e 28 69 6e 5f 72 ┆ileno,ressum, totsum; open(in_r┆
0x322e0…322fc 65 73 2c 34 2c 3c 3a 72 65 73 65 72 76 65 3a 3e 2c 30 29 3b 0a 6f 70 65 6e 28 65 78 ┆es,4,<:reserve:>,0); open(ex┆
0x322fc…32302 (0x1f8,0x647)
0x32302…32320 74 6e 61 6d 65 2c 34 2c 3c 3a 65 78 74 6e 61 6d 65 3a 3e 2c 30 29 3b 0a 69 6e 72 65 63 36 ┆tname,4,<:extname:>,0); inrec6┆
0x32320…32340 28 69 6e 5f 72 65 73 2c 72 65 73 65 72 76 61 74 69 6f 6e 73 2a 38 29 3b 0a 0a 77 72 69 74 65 28 ┆(in_res,reservations*8); write(┆
0x32340…32360 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 2a 2a 2a 5f 6c 69 73 74 ┆out,<:<12><10>__________***_list┆
0x32360…3237a 20 6f 66 20 72 65 73 65 72 76 61 74 69 6f 6e 73 5f 2a 2a 2a 3a 3e 29 3b 0a 77 ┆ of reservations_***:>); w┆
0x3237a…32380 (0x1f8,0x648)
0x32380…323a0 72 69 74 65 28 6f 75 74 2c 3c 3a 5f 5f 5f 5f 74 6f 74 61 6c 20 6e 6f 20 6f 66 20 72 65 73 65 72 ┆rite(out,<:____total no of reser┆
0x323a0…323c0 76 61 74 69 6f 6e 73 3a 3a 3e 2c 20 72 65 73 65 72 76 61 74 69 6f 6e 73 29 3b 0a 77 72 69 74 65 ┆vations::>, reservations); write┆
0x323c0…323e0 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 65 78 74 5f 66 69 6c 65 5f 5f 5f 5f 5f 72 65 6c 61 ┆(out,<:<10><10>ext_file_____rela┆
0x323e0…32400 64 72 3a 5f 2b 72 65 73 3d 5f 5f 69 6e 3c 39 35 3e 66 69 6c 65 5f 5f 5f 00 00 00 00 00 00 00 00 ┆dr:_+res=__in<95>file___ ┆
0x32400…32406 (402,) (0x1f8,0x649)
0x32406…32420 69 6e 3c 39 35 3e 65 78 74 3a 3e 29 3b 0a 77 72 69 74 65 28 6f 75 74 2c 3c 3a ┆in<95>ext:>); write(out,<:┆
0x32420…32440 3c 31 30 3e 3a 3e 2c 20 66 61 6c 73 65 20 61 64 64 20 34 35 2c 20 34 34 29 3b 0a 0a 6c 61 73 74 ┆<10>:>, false add 45, 44); last┆
0x32440…32460 65 78 74 3a 3d 2d 35 31 3b 0a 0a 6e 65 78 74 5f 72 65 73 3a 0a 0a 6d 69 6e 65 78 74 3a 3d 36 30 ┆ext:=-51; next_res: minext:=60┆
0x32460…3247e 30 3b 0a 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 72 65 73 65 72 ┆0; for i:=1 step 1 until reser┆
0x3247e…32484 (0x1f8,0x64a)
0x32484…324a0 76 61 74 69 6f 6e 73 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 65 78 74 3a 3d 69 2a ┆vations do begin ext:=i*┆
0x324a0…324c0 38 2d 36 3b 0a 20 20 66 69 6c 3a 3d 65 78 74 2b 34 3b 0a 20 20 69 66 20 69 6e 72 65 73 2e 65 78 ┆8-6; fil:=ext+4; if inres.ex┆
0x324c0…324e0 74 20 3e 20 6c 61 73 74 65 78 74 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 69 ┆t > lastext then begin i┆
0x324e0…324fc 66 20 69 6e 72 65 73 2e 65 78 74 20 3c 20 6d 69 6e 65 78 74 20 74 68 65 6e 0a 20 20 ┆f inres.ext < minext then ┆
0x324fc…32502 (0x1f8,0x64b)
0x32502…32520 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 69 6e 65 78 74 3a 3d 69 6e 72 65 73 2e ┆ begin minext:=inres.┆
0x32520…32540 65 78 74 3b 0a 20 20 20 20 20 20 66 69 6c 65 5f 6e 6f 3a 3d 69 6e 72 65 73 2e 66 69 6c 3b 0a 20 ┆ext; file_no:=inres.fil; ┆
0x32540…32560 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0a 69 66 20 6d 69 ┆ end; end; end; if mi┆
0x32560…3257a 6e 65 78 74 3d 36 30 30 20 74 68 65 6e 20 67 6f 74 6f 20 6e 6f 5f 6d 6f 72 65 ┆next=600 then goto no_more┆
0x3257a…32580 (0x1f8,0x64c)
0x32580…325a0 5f 72 65 73 3b 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 63 68 64 20 38 32 2e 30 34 2e 32 39 ┆_res; comment chd 82.04.29┆
0x325a0…325c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 ┆ textxref ┆
0x325c0…325e0 20 20 20 70 61 67 65 20 2e 2e 2e 32 30 62 2e 2e 2e 0a 3b 0a 0a 0a 67 65 74 6e 61 6d 65 28 6d 69 ┆ page ...20b... ; getname(mi┆
0x325e0…32600 6e 65 78 74 29 3b 0a 66 69 6c 65 5f 6e 6f 3a 3d 20 2d 31 3b 0a 74 6f 74 00 00 00 00 00 00 00 00 ┆next); file_no:= -1; tot ┆
0x32600…32606 (403,) (0x1f8,0x64d)
0x32606…32620 5f 73 75 6d 3a 3d 20 30 3b 0a 72 65 73 73 75 6d 3a 3d 20 30 3b 0a 66 6f 72 20 ┆_sum:= 0; ressum:= 0; for ┆
0x32620…32640 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 72 65 73 65 72 76 61 74 69 6f 6e 73 20 64 ┆i:=1 step 1 until reservations d┆
0x32640…32660 6f 0a 20 20 62 65 67 69 6e 0a 20 20 72 65 6c 3a 3d 69 2a 38 3b 0a 20 20 66 69 6c 3a 3d 72 65 6c ┆o begin rel:=i*8; fil:=rel┆
0x32660…3267e 2d 32 3b 0a 20 20 72 65 73 3a 3d 72 65 6c 2d 34 3b 0a 20 20 65 78 74 3a 3d 72 65 6c 2d 36 ┆-2; res:=rel-4; ext:=rel-6┆
0x3267e…32684 (0x1f8,0x64e)
0x32684…326a0 3b 0a 20 20 69 66 20 69 6e 72 65 73 2e 65 78 74 20 3d 20 6d 69 6e 65 78 74 20 74 68 ┆; if inres.ext = minext th┆
0x326a0…326c0 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 69 6e 72 65 73 2e 66 69 6c 20 3c 3e ┆en begin if inres.fil <>┆
0x326c0…326e0 20 66 69 6c 65 6e 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 66 ┆ fileno then begin f┆
0x326e0…326fc 69 6c 65 6e 6f 3a 3d 69 6e 72 65 73 2e 66 69 6c 3b 0a 20 20 20 20 20 20 72 65 73 5f ┆ileno:=inres.fil; res_┆
0x326fc…32702 (0x1f8,0x64f)
0x32702…32720 73 75 6d 3a 3d 30 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e ┆sum:=0; write(out,<:<10>┆
0x32720…32740 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 28 66 69 6c 65 6e 6f 29 3b 0a ┆ :>); filename(fileno); ┆
0x32740…32760 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 77 72 69 74 65 ┆ end else write┆
0x32760…3277a 28 6f 75 74 2c 3c 3a 3c 31 30 3e 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 3a ┆(out,<:<10>______________:┆
0x3277a…32780 (0x1f8,0x650)
0x32780…327a0 3e 29 3b 0a 20 20 20 20 74 6f 74 73 75 6d 3a 3d 20 74 6f 74 73 75 6d 20 2b 20 69 6e 5f 72 65 73 ┆>); totsum:= totsum + in_res┆
0x327a0…327c0 2e 72 65 73 3b 0a 20 20 20 20 72 65 73 73 75 6d 3a 3d 72 65 73 73 75 6d 2b 69 6e 5f 72 65 73 2e ┆.res; ressum:=ressum+in_res.┆
0x327c0…327e0 72 65 73 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 64 3e 2c 69 6e 5f 72 ┆res; write(out,<<ddddd>,in_r┆
0x327e0…32800 65 73 2e 72 65 6c 2c 3c 3a 3a 3a 3e 2c 3c 3c 2b 64 64 64 64 3e 2c 69 6e 00 00 00 00 00 00 00 00 ┆es.rel,<:::>,<<+dddd>,in ┆
0x32800…32806 (404,) (0x1f8,0x651)
0x32806…32820 5f 72 65 73 2e 72 65 73 2c 3c 3a 3d 3a 3e 2c 3c 3c 64 64 64 64 64 64 64 64 64 ┆_res.res,<:=:>,<<ddddddddd┆
0x32820…32840 3e 2c 72 65 73 5f 73 75 6d 2c 74 6f 74 73 75 6d 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e ┆>,res_sum,totsum); end; en┆
0x32840…32860 64 20 66 6f 72 3b 0a 6c 61 73 74 65 78 74 3a 3d 6d 69 6e 65 78 74 3b 0a 67 6f 74 6f 20 6e 65 78 ┆d for; lastext:=minext; goto nex┆
0x32860…3287e 74 5f 72 65 73 3b 0a 6e 6f 5f 6d 6f 72 65 5f 72 65 73 3a 0a 63 6c 6f 73 65 28 69 6e 72 65 ┆t_res; no_more_res: close(inre┆
0x3287e…32884 (0x1f8,0x652)
0x32884…328a0 73 2c 74 72 75 65 29 3b 0a 63 6c 6f 73 65 28 65 78 74 6e 61 6d 65 2c 74 72 75 65 29 ┆s,true); close(extname,true)┆
0x328a0…328c0 3b 0a 0a 65 6e 64 20 20 70 72 69 6e 74 69 6e 67 20 72 65 73 65 72 76 61 74 69 6f 6e 73 3b 0a 0a ┆; end printing reservations; ┆
0x328c0…328e0 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 63 68 64 20 38 32 2e 30 34 2e 32 39 20 20 20 20 ┆ comment chd 82.04.29 ┆
0x328e0…328fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 ┆ textxre┆
0x328fc…32902 (0x1f8,0x653)
0x32902…32920 66 20 20 20 70 61 67 65 20 2e 2e 2e 32 30 63 2e 2e 2e 0a 3b 0a 0a 0a 69 66 20 6c 69 73 74 ┆f page ...20c... ; if list┆
0x32920…32940 73 65 6c 65 63 74 20 6d 6f 64 20 31 30 20 3c 3e 30 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 3c ┆select mod 10 <>0 then begin <┆
0x32940…32960 2a 20 74 68 69 73 20 62 6c 6f 63 6b 20 69 73 20 75 73 65 64 20 66 6f 72 20 70 72 69 6e 74 69 6e ┆* this block is used for printin┆
0x32960…3297a 67 20 74 68 65 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 20 6c 69 73 74 ┆g the cross reference list┆
0x3297a…32980 (0x1f8,0x654)
0x32980…329a0 0a 20 20 20 20 20 74 68 65 20 66 69 6c 65 73 20 65 78 74 6e 61 6d 65 2c 20 65 78 74 64 65 66 2c ┆ the files extname, extdef,┆
0x329a0…329c0 20 65 78 74 65 72 6e 61 6c 73 20 20 61 72 65 20 73 63 61 6e 6e 65 64 20 61 6e 64 20 6d 65 72 67 ┆ externals are scanned and merg┆
0x329c0…329e0 65 64 2c 0a 20 20 20 20 20 61 6e 64 20 66 6f 72 20 65 76 65 72 79 20 65 78 74 65 72 6e 61 6c 20 ┆ed, and for every external ┆
0x329e0…32a00 69 73 20 70 72 69 6e 74 65 64 0a 20 20 20 20 20 20 20 6e 61 6d 65 20 28 00 00 00 00 00 00 00 00 ┆is printed name ( ┆
0x32a00…32a06 (405,) (0x1f8,0x655)
0x32a06…32a20 72 65 63 6f 72 64 29 0a 20 20 20 20 20 20 20 64 65 66 69 6e 69 74 69 6f 6e 73 ┆record) definitions┆
0x32a20…32a40 20 28 72 65 63 6f 72 64 73 29 0a 20 20 20 20 20 20 20 72 65 66 65 72 65 6e 63 65 73 20 28 72 65 ┆ (records) references (re┆
0x32a40…32a60 63 6f 72 64 73 29 0a 20 20 20 20 20 69 6e 20 74 68 65 20 6f 72 64 65 72 20 6d 65 6e 74 69 6f 6e ┆cords) in the order mention┆
0x32a60…32a7e 65 64 2e 0a 20 20 2a 3e 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 78 68 65 61 64 3b 0a 20 ┆ed. *> procedure xhead; ┆
0x32a7e…32a84 (0x1f8,0x656)
0x32a84…32aa0 20 62 65 67 69 6e 0a 20 20 20 20 3c 2a 20 70 72 69 6e 74 20 65 78 74 65 72 6e 61 6c ┆ begin <* print external┆
0x32aa0…32ac0 20 6e 75 6d 62 65 72 2c 20 6b 65 65 70 69 6e 67 20 74 72 61 63 6b 20 6f 66 20 75 6e 75 73 65 64 ┆ number, keeping track of unused┆
0x32ac0…32ae0 20 65 78 74 65 72 6e 61 6c 20 6e 6f 27 73 2e 0a 20 20 20 20 20 20 20 69 73 20 6f 6e 6c 79 20 63 ┆ external no's. is only c┆
0x32ae0…32afc 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 72 65 20 69 73 20 73 6f 6d 65 74 68 69 6e ┆alled when there is somethin┆
0x32afc…32b02 (0x1f8,0x657)
0x32b02…32b20 67 20 74 6f 20 77 72 69 74 65 20 6f 6e 20 61 6e 20 65 78 74 65 72 6e 61 6c 2e 0a 20 20 20 ┆g to write on an external. ┆
0x32b20…32b40 20 2a 3e 0a 20 20 20 20 69 66 20 6c 61 73 74 75 73 65 64 20 3c 20 78 67 6c 6f 62 2d 31 20 74 68 ┆ *> if lastused < xglob-1 th┆
0x32b40…32b60 65 6e 20 20 3c 2a 66 69 72 73 74 20 75 6e 75 73 65 64 2a 3e 0a 20 20 20 20 20 20 77 72 69 74 65 ┆en <*first unused*> write┆
0x32b60…32b7a 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 2c 3c 3c 2d 64 64 64 3e 2c ┆(out,<:<10><10>:>,<<-ddd>,┆
0x32b7a…32b80 (0x1f8,0x658)
0x32b80…32ba0 6c 61 73 74 75 73 65 64 2b 31 2c 3c 3a 3a 20 20 5f 5f 5f 5f 5f 75 6e 75 73 65 64 3a 3e 29 3b 0a ┆lastused+1,<:: _____unused:>); ┆
0x32ba0…32bc0 0a 20 20 20 20 69 66 20 6c 61 73 74 75 73 65 64 20 3d 20 78 67 6c 6f 62 2d 34 20 74 68 65 6e 20 ┆ if lastused = xglob-4 then ┆
0x32bc0…32be0 20 3c 2a 73 65 63 6f 6e 64 20 75 6e 75 73 65 64 20 6f 75 74 20 6f 66 20 33 2a 3e 0a 20 20 20 20 ┆ <*second unused out of 3*> ┆
0x32be0…32c00 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3c 2d 00 00 00 00 00 00 00 00 ┆ write(out,<:<10>:>,<<- ┆
0x32c00…32c06 (406,) (0x1f8,0x659)
0x32c06…32c20 64 64 64 3e 2c 6c 61 73 74 75 73 65 64 2b 32 2c 3c 3a 3a 20 20 5f 5f 5f 5f 5f ┆ddd>,lastused+2,<:: _____┆
0x32c20…32c40 75 6e 75 73 65 64 3a 3e 29 3b 0a 0a 20 20 20 20 69 66 20 6c 61 73 74 75 73 65 64 20 3c 20 78 67 ┆unused:>); if lastused < xg┆
0x32c40…32c60 6c 6f 62 2d 34 20 74 68 65 6e 20 20 3c 2a 6d 6f 72 65 20 74 68 61 6e 20 33 20 75 6e 75 73 65 64 ┆lob-4 then <*more than 3 unused┆
0x32c60…32c7e 2a 3e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 2e 2e 2e 2e ┆*> write(out,<:<10> ....┆
0x32c7e…32c84 (0x1f8,0x65a)
0x32c84…32ca0 2e 3a 3e 29 3b 0a 0a 20 20 20 20 69 66 20 6c 61 73 74 75 73 65 64 20 3c 20 78 67 6c ┆.:>); if lastused < xgl┆
0x32ca0…32cc0 6f 62 2d 32 20 74 68 65 6e 20 20 3c 2a 6c 61 73 74 20 75 6e 75 73 65 64 2a 3e 0a 20 20 20 20 20 ┆ob-2 then <*last unused*> ┆
0x32cc0…32ce0 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3c 2d 64 64 64 3e 2c 78 67 6c 6f ┆ write(out,<:<10>:>,<<-ddd>,xglo┆
0x32ce0…32cfc 62 2d 31 2c 3c 3a 3a 20 20 5f 5f 5f 5f 5f 75 6e 75 73 65 64 3a 3e 29 3b 0a 0a 20 20 ┆b-1,<:: _____unused:>); ┆
0x32cfc…32d02 (0x1f8,0x65b)
0x32d02…32d20 20 20 69 66 20 6c 61 73 74 75 73 65 64 20 3c 20 78 67 6c 6f 62 20 61 6e 64 20 78 67 6c 6f ┆ if lastused < xglob and xglo┆
0x32d20…32d40 62 3c 35 35 31 20 74 68 65 6e 20 20 3c 2a 63 75 72 72 65 6e 74 2a 3e 0a 20 20 20 20 20 20 77 72 ┆b<551 then <*current*> wr┆
0x32d40…32d60 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 2c 3c 3c 2d 64 64 64 3e 2c 78 67 6c ┆ite(out,<:<10><10>:>,<<-ddd>,xgl┆
0x32d60…32d7a 6f 62 2c 3c 3a 3a 5f 5f 5f 5f 5f 5f 5f 3a 3e 29 3b 0a 0a 20 20 20 20 6c 61 73 ┆ob,<::_______:>); las┆
0x32d7a…32d80 (0x1f8,0x65c)
0x32d80…32da0 74 75 73 65 64 3a 3d 20 78 67 6c 6f 62 3b 0a 20 20 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 78 ┆tused:= xglob; end procedure x┆
0x32da0…32dc0 68 65 61 64 3b 0a 0a 20 20 7a 6f 6e 65 20 65 78 74 6e 61 6d 65 2c 20 65 78 74 64 65 66 2c 20 65 ┆head; zone extname, extdef, e┆
0x32dc0…32de0 78 74 65 72 6e 61 6c 73 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 69 6e 74 65 ┆xternals(128,1,stderror); inte┆
0x32de0…32e00 67 65 72 20 78 67 6c 6f 62 2c 20 78 6e 61 6d 65 2c 20 78 64 65 66 2c 20 00 00 00 00 00 00 00 00 ┆ger xglob, xname, xdef, ┆
0x32e00…32e06 (407,) (0x1f8,0x65d)
0x32e06…32e20 78 72 65 66 2c 20 6c 61 73 74 75 73 65 64 2c 20 72 65 66 6e 6f 2c 20 6f 6c 64 ┆xref, lastused, refno, old┆
0x32e20…32e40 66 2c 20 66 72 65 66 3b 0a 0a 20 20 6f 70 65 6e 28 65 78 74 6e 61 6d 65 2c 34 2c 3c 3a 65 78 74 ┆f, fref; open(extname,4,<:ext┆
0x32e40…32e60 6e 61 6d 65 3a 3e 2c 30 29 3b 0a 20 20 6f 70 65 6e 28 65 78 74 64 65 66 20 2c 34 2c 3c 3a 65 78 ┆name:>,0); open(extdef ,4,<:ex┆
0x32e60…32e7e 74 64 65 66 3a 3e 20 2c 30 29 3b 0a 20 20 6f 70 65 6e 28 65 78 74 65 72 6e 61 6c 73 2c 34 ┆tdef:> ,0); open(externals,4┆
0x32e7e…32e84 (0x1f8,0x65e)
0x32e84…32ea0 2c 3c 3a 65 78 74 65 72 6e 61 6c 73 3a 3e 2c 30 29 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 ┆,<:externals:>,0); comme┆
0x32ea0…32ec0 6e 74 20 20 20 20 20 63 68 64 20 38 32 2e 30 34 2e 32 39 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nt chd 82.04.29 ┆
0x32ec0…32ee0 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 2e 2e 2e 32 30 64 2e 2e ┆ textxref page ...20d..┆
0x32ee0…32efc 2e 0a 3b 0a 0a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 32 3e 3c 31 30 ┆. ; write(out, <:<12><10┆
0x32efc…32f02 (0x1f8,0x65f)
0x32f02…32f20 3e 3c 31 30 3e 5f 5f 5f 5f 5f 5f 5f 5f 2a 2a 2a 2a 20 20 63 72 6f 73 73 20 72 65 66 65 72 ┆><10>________**** cross refer┆
0x32f20…32f40 65 6e 63 65 20 6c 69 73 74 20 20 2a 2a 2a 3c 31 30 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 ┆ence list ***<10><10><10>:>); ┆
0x32f40…32f60 20 69 6e 72 65 63 36 28 65 78 74 6e 61 6d 65 2c 31 30 29 3b 0a 20 20 69 6e 72 65 63 36 28 65 78 ┆ inrec6(extname,10); inrec6(ex┆
0x32f60…32f7a 74 64 65 66 2c 34 29 3b 20 20 20 20 74 6f 74 64 65 66 73 3a 3d 20 74 6f 74 64 ┆tdef,4); totdefs:= totd┆
0x32f7a…32f80 (0x1f8,0x660)
0x32f80…32fa0 65 66 73 2d 31 3b 0a 20 20 69 6e 72 65 63 36 28 65 78 74 65 72 6e 61 6c 73 2c 34 29 3b 20 74 6f ┆efs-1; inrec6(externals,4); to┆
0x32fa0…32fc0 74 72 65 66 73 3a 3d 20 74 6f 74 72 65 66 73 2d 31 3b 0a 20 20 6c 61 73 74 75 73 65 64 3a 3d 20 ┆trefs:= totrefs-1; lastused:= ┆
0x32fc0…32fe0 2d 35 31 3b 0a 0a 20 20 66 6f 72 20 78 67 6c 6f 62 3a 3d 20 2d 35 30 20 73 74 65 70 20 31 20 75 ┆-51; for xglob:= -50 step 1 u┆
0x32fe0…33000 6e 74 69 6c 20 35 35 30 20 64 6f 0a 20 20 62 65 67 69 6e 0a 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ntil 550 do begin ┆
0x33000…33006 (408,) (0x1f8,0x661)
0x33006…33020 20 3c 2a 74 61 6b 65 20 6e 61 6d 65 20 72 65 63 6f 72 64 2a 3e 0a 20 20 20 20 ┆ <*take name record*> ┆
0x33020…33040 77 68 69 6c 65 20 65 78 74 6e 61 6d 65 2e 77 31 20 3d 20 78 67 6c 6f 62 20 64 6f 0a 20 20 20 20 ┆while extname.w1 = xglob do ┆
0x33040…33060 62 65 67 69 6e 0a 20 20 20 20 20 20 78 6e 61 6d 65 3a 3d 20 65 78 74 6e 61 6d 65 2e 77 31 3b 0a ┆begin xname:= extname.w1; ┆
0x33060…3307e 20 20 20 20 20 20 78 68 65 61 64 3b 0a 20 20 20 20 20 20 69 66 20 65 78 74 6e 61 6d 65 2e ┆ xhead; if extname.┆
0x3307e…33084 (0x1f8,0x662)
0x33084…330a0 77 32 3c 31 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 6e 6f ┆w2<100 then begin <*no┆
0x330a0…330c0 72 6d 61 6c 20 6e 61 6d 65 20 72 65 63 6f 72 64 2a 3e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆rmal name record*> write┆
0x330c0…330e0 28 6f 75 74 2c 20 73 74 72 69 6e 67 28 65 78 74 6e 61 6d 65 2e 72 35 29 2c 3c 3a 3c 31 30 3e 5f ┆(out, string(extname.r5),<:<10>_┆
0x330e0…330fc 5f 5f 5f 5f 6e 61 6d 65 64 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 66 69 6c 65 6e ┆____named::>); filen┆
0x330fc…33102 (0x1f8,0x663)
0x33102…33120 61 6d 65 28 66 69 6c 65 63 6f 6e 76 28 65 78 74 6e 61 6d 65 2e 77 32 29 29 3b 0a 20 20 20 ┆ame(fileconv(extname.w2)); ┆
0x33120…33140 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 20 3c 2a 73 70 65 63 69 61 6c 20 72 65 63 6f ┆ end else <*special reco┆
0x33140…33160 72 64 20 66 6f 72 20 72 65 66 20 6f 72 20 64 65 66 20 69 6e 20 63 65 6e 74 72 61 6c 20 2a 3e 0a ┆rd for ref or def in central *> ┆
0x33160…3317a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 65 78 74 6e ┆ write(out, if extn┆
0x3317a…33180 (0x1f8,0x664)
0x33180…331a0 61 6d 65 2e 77 32 3d 31 30 31 20 74 68 65 6e 20 3c 3a 3c 31 30 3e 5f 5f 5f 63 2d 64 65 66 69 6e ┆ame.w2=101 then <:<10>___c-defin┆
0x331a0…331c0 3a 3a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 3c 3a 3c 31 30 3e 5f 5f 5f ┆::> else <:<10>___┆
0x331c0…331e0 5f 5f 63 2d 72 65 66 3a 3a 3e 2c 20 3c 3a 5f 63 65 6e 74 72 61 6c 5f 5f 5f 3a 3e 29 3b 0a 20 20 ┆__c-ref::>, <:_central___:>); ┆
0x331e0…33200 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 70 61 67 65 3a 3e 2c 3c 00 00 00 00 00 00 00 00 ┆ write(out,<:page:>,< ┆
0x33200…33206 (409,) (0x1f8,0x665)
0x33206…33220 3c 2d 64 64 64 3e 2c 65 78 74 6e 61 6d 65 2e 77 33 2f 2f 31 30 2c 0a 20 20 20 ┆<-ddd>,extname.w3//10, ┆
0x33220…33240 20 20 20 20 20 63 61 73 65 20 28 65 78 74 6e 61 6d 65 2e 77 33 20 6d 6f 64 20 31 30 20 2b 31 29 ┆ case (extname.w3 mod 10 +1)┆
0x33240…33260 20 6f 66 0a 20 20 20 20 20 20 20 20 28 3c 3a 5f 5f 3a 3e 2c 3c 3a 2e 61 3a 3e 2c 3c 3a 2e 62 3a ┆ of (<:__:>,<:.a:>,<:.b:┆
0x33260…3327e 3e 2c 3c 3a 2e 63 3a 3e 2c 3c 3a 2e 64 3a 3e 2c 3c 3a 2e 65 3a 3e 2c 3c 3a 2e 66 3a 3e 2c ┆>,<:.c:>,<:.d:>,<:.e:>,<:.f:>,┆
0x3327e…33284 (0x1f8,0x666)
0x33284…332a0 3c 3a 2e 67 3a 3e 2c 3c 3a 2e 68 3a 3e 2c 3c 3a 2e 69 3a 3e 2c 3c 3a 2e 6a 3a 3e 29 ┆<:.g:>,<:.h:>,<:.i:>,<:.j:>)┆
0x332a0…332c0 29 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 65 78 74 6e 61 6d 65 2c 31 30 29 3b 0a 20 20 20 ┆); inrec6(extname,10); ┆
0x332c0…332e0 20 65 6e 64 3b 0a 0a 20 20 20 20 3c 2a 74 61 6b 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 72 65 63 ┆ end; <*take definition rec┆
0x332e0…332fc 6f 72 64 73 2a 3e 0a 20 20 20 20 77 68 69 6c 65 20 73 69 67 6e 69 6e 74 28 65 78 74 ┆ords*> while signint(ext┆
0x332fc…33302 (0x1f8,0x667)
0x33302…33320 64 65 66 2e 68 77 31 29 20 3d 20 78 67 6c 6f 62 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a ┆def.hw1) = xglob do begin ┆
0x33320…33340 20 20 20 20 20 20 78 64 65 66 3a 3d 20 73 69 67 6e 69 6e 74 28 65 78 74 64 65 66 2e 68 77 31 29 ┆ xdef:= signint(extdef.hw1)┆
0x33340…33360 3b 0a 20 20 20 20 20 20 78 68 65 61 64 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆; xhead; write(out,<┆
0x33360…3337a 3a 3c 31 30 3e 5f 5f 5f 5f 5f 64 65 66 69 6e 3a 3a 3e 29 3b 20 3c 2a 6f 6e 65 ┆:<10>_____defin::>); <*one┆
0x3337a…33380 (0x1f8,0x668)
0x33380…333a0 20 64 65 66 20 6f 6e 20 65 61 63 68 20 6c 69 6e 65 2a 3e 0a 20 20 20 20 20 20 66 69 6c 65 6e 61 ┆ def on each line*> filena┆
0x333a0…333c0 6d 65 28 73 69 67 6e 69 6e 74 28 65 78 74 64 65 66 2e 68 77 32 29 29 3b 0a 20 20 20 20 20 20 77 ┆me(signint(extdef.hw2)); w┆
0x333c0…333e0 72 69 74 65 28 6f 75 74 2c 3c 3c 2d 64 64 64 64 64 64 64 3e 2c 65 78 74 64 65 66 2e 77 32 29 3b ┆rite(out,<<-ddddddd>,extdef.w2);┆
0x333e0…33400 0a 20 20 20 20 20 20 69 66 20 74 6f 74 64 65 66 73 3e 30 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆ if totdefs>0 then ┆
0x33400…33406 (410,) (0x1f8,0x669)
0x33406…33420 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 ┆ begin inrec┆
0x33420…33440 36 28 65 78 74 64 65 66 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 74 6f 74 64 65 66 73 3a 3d 20 74 ┆6(extdef,4); totdefs:= t┆
0x33440…33460 6f 74 64 65 66 73 2d 31 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 20 65 ┆otdefs-1; end else e┆
0x33460…3347e 78 74 64 65 66 2e 77 31 3a 3d 20 28 2d 31 29 20 73 68 69 66 74 28 2d 31 29 3b 20 3c 2a 62 ┆xtdef.w1:= (-1) shift(-1); <*b┆
0x3347e…33484 (0x1f8,0x66a)
0x33484…334a0 69 67 20 6e 75 6d 62 65 72 2c 20 6d 61 6b 65 73 20 69 74 20 73 74 6f 70 2a 3e 0a 20 ┆ig number, makes it stop*> ┆
0x334a0…334c0 20 20 20 65 6e 64 3b 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 63 68 64 20 38 32 2e 30 ┆ end; comment chd 82.0┆
0x334c0…334e0 34 2e 32 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 ┆4.29 textxre┆
0x334e0…334fc 66 20 20 20 70 61 67 65 20 2e 2e 2e 32 30 66 2e 2e 2e 0a 3b 0a 0a 0a 20 20 20 20 3c ┆f page ...20f... ; <┆
0x334fc…33502 (0x1f8,0x66b)
0x33502…33520 2a 74 61 6b 65 20 72 65 66 65 72 65 6e 63 65 20 72 65 63 6f 72 64 73 2a 3e 0a 20 20 20 20 ┆*take reference records*> ┆
0x33520…33540 72 65 66 6e 6f 3a 3d 20 6f 6c 64 66 3a 3d 20 30 3b 0a 20 20 20 20 77 68 69 6c 65 20 73 69 67 6e ┆refno:= oldf:= 0; while sign┆
0x33540…33560 69 6e 74 28 65 78 74 65 72 6e 61 6c 73 2e 68 77 31 29 20 3d 20 78 67 6c 6f 62 20 64 6f 0a 20 20 ┆int(externals.hw1) = xglob do ┆
0x33560…3357a 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 78 72 65 66 3a 3d 20 73 69 67 6e 69 ┆ begin xref:= signi┆
0x3357a…33580 (0x1f8,0x66c)
0x33580…335a0 6e 74 28 65 78 74 65 72 6e 61 6c 73 2e 68 77 31 29 3b 0a 20 20 20 20 20 20 66 72 65 66 3a 3d 20 ┆nt(externals.hw1); fref:= ┆
0x335a0…335c0 73 69 67 6e 69 6e 74 28 65 78 74 65 72 6e 61 6c 73 2e 68 77 32 29 3b 0a 20 20 20 20 20 20 78 68 ┆signint(externals.hw2); xh┆
0x335c0…335e0 65 61 64 3b 0a 20 20 20 20 20 20 69 66 20 66 72 65 66 20 3c 3e 20 6f 6c 64 66 20 74 68 65 6e 0a ┆ead; if fref <> oldf then ┆
0x335e0…33600 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 6e 65 77 20 66 69 6c 65 2a 3e 00 00 00 00 00 00 00 00 ┆ begin <*new file*> ┆
0x33600…33606 (411,) (0x1f8,0x66d)
0x33606…33620 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 5f ┆ write(out,<:<10>_┆
0x33620…33640 5f 5f 5f 5f 5f 5f 72 65 66 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 28 ┆______ref::>); filename(┆
0x33640…33660 66 72 65 66 29 3b 0a 20 20 20 20 20 20 20 20 6f 6c 64 66 3a 3d 20 66 72 65 66 3b 0a 20 20 20 20 ┆fref); oldf:= fref; ┆
0x33660…3367e 20 20 20 20 72 65 66 6e 6f 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ refno:= 0; end; ┆
0x3367e…33684 (0x1f8,0x66e)
0x33684…336a0 20 20 72 65 66 6e 6f 3a 3d 20 72 65 66 6e 6f 2b 31 3b 0a 20 20 20 20 20 20 69 66 20 ┆ refno:= refno+1; if ┆
0x336a0…336c0 72 65 66 6e 6f 3e 38 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆refno>8 then begin ┆
0x336c0…336e0 20 72 65 66 6e 6f 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a ┆ refno:= 1; write(out,<:┆
0x336e0…336fc 3c 31 30 3e 3a 3e 2c 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c 20 32 32 29 3b 0a 20 ┆<10>:>, false add 32, 22); ┆
0x336fc…33702 (0x1f8,0x66f)
0x33702…33720 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 2d 64 ┆ end; write(out,<<-d┆
0x33720…33740 64 64 64 64 64 64 3e 2c 65 78 74 65 72 6e 61 6c 73 2e 77 32 29 3b 0a 20 20 20 20 20 20 69 66 20 ┆dddddd>,externals.w2); if ┆
0x33740…33760 74 6f 74 72 65 66 73 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆totrefs>0 then begin ┆
0x33760…3377a 20 20 20 69 6e 72 65 63 36 28 65 78 74 65 72 6e 61 6c 73 2c 34 29 3b 0a 20 20 ┆ inrec6(externals,4); ┆
0x3377a…33780 (0x1f8,0x670)
0x33780…337a0 20 20 20 20 20 20 74 6f 74 72 65 66 73 3a 3d 20 74 6f 74 72 65 66 73 2d 31 3b 0a 20 20 20 20 20 ┆ totrefs:= totrefs-1; ┆
0x337a0…337c0 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 20 65 78 74 65 72 6e 61 6c 73 2e 77 31 3a 3d 20 28 ┆ end else externals.w1:= (┆
0x337c0…337e0 2d 31 29 20 73 68 69 66 74 28 2d 31 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 65 6e 64 20 6c ┆-1) shift(-1); end; end l┆
0x337e0…33800 6f 6f 70 20 78 67 6c 6f 62 3b 0a 0a 20 20 78 67 6c 6f 62 3a 3d 35 35 31 00 00 00 00 00 00 00 00 ┆oop xglob; xglob:=551 ┆
0x33800…33806 (412,) (0x1f8,0x671)
0x33806…33820 3b 0a 20 20 78 68 65 61 64 3b 0a 20 20 63 6c 6f 73 65 28 65 78 74 6e 61 6d 65 ┆; xhead; close(extname┆
0x33820…33840 2c 74 72 75 65 29 3b 0a 20 20 63 6c 6f 73 65 28 65 78 74 64 65 66 20 2c 74 72 75 65 29 3b 0a 20 ┆,true); close(extdef ,true); ┆
0x33840…33860 20 63 6c 6f 73 65 28 65 78 74 65 72 6e 61 6c 73 2c 74 72 75 65 29 3b 0a 0a 65 6e 64 20 62 6c 6f ┆ close(externals,true); end blo┆
0x33860…3387e 63 6b 20 66 6f 72 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 3b 0a 0a 0a 0c 0a 0a 63 ┆ck for cross reference; c┆
0x3387e…33884 (0x1f8,0x672)
0x33884…338a0 6f 6d 6d 65 6e 74 20 20 20 20 20 73 6d 20 37 35 2e 30 37 2e 32 35 20 20 20 20 20 20 ┆omment sm 75.07.25 ┆
0x338a0…338c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 20 70 61 ┆ textxref pa┆
0x338c0…338e0 67 65 20 2e 2e 2e 32 30 67 2e 2e 2e 0a 3b 0a 0a 0a 0a 0a 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e ┆ge ...20g... ; begin commen┆
0x338e0…338fc 74 20 20 54 68 69 73 20 62 6c 6f 63 6b 20 6f 75 74 70 75 74 73 20 74 68 65 20 72 65 ┆t This block outputs the re┆
0x338fc…33902 (0x1f8,0x673)
0x33902…33920 63 6f 72 64 73 20 69 6e 20 6c 69 73 74 73 20 28 6f 6e 65 20 6c 69 73 74 20 61 63 63 6f 72 ┆cords in lists (one list accor┆
0x33920…33940 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 6e 67 20 74 6f 20 65 61 63 68 20 6f ┆- ding to each o┆
0x33940…33960 66 20 74 68 65 20 6b 65 79 73 29 2e 20 54 68 65 20 72 65 63 6f 72 64 73 20 61 72 65 20 73 63 61 ┆f the keys). The records are sca┆
0x33960…3397a 6e 6e 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 6f ┆nned and o┆
0x3397a…33980 (0x1f8,0x674)
0x33980…339a0 75 74 70 75 74 20 6f 6e 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 6f 6e 65 20 6c 69 73 74 ┆utput on current output one list┆
0x339a0…339c0 20 61 74 20 61 20 74 69 6d 65 3b 0a 0a 20 20 7a 6f 6e 65 20 7a 28 31 32 38 2c 31 2c 73 74 64 65 ┆ at a time; zone z(128,1,stde┆
0x339c0…339e0 72 72 6f 72 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 65 78 74 65 72 6e 2c 66 69 6c 65 2c 72 65 6c ┆rror); integer extern,file,rel┆
0x339e0…33a00 61 74 69 76 65 2c 72 65 6c 6e 75 6d 2c 65 78 74 6e 75 6d 2c 6f 6c 64 66 00 00 00 00 00 00 00 00 ┆ative,relnum,extnum,oldf ┆
0x33a00…33a06 (413,) (0x1f8,0x675)
0x33a06…33a20 69 6c 65 2c 6f 6c 64 65 78 74 2c 69 3b 0a 20 20 72 65 61 6c 20 74 65 78 74 72 ┆ile,oldext,i; real textr┆
0x33a20…33a40 65 66 3b 0a 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 72 3b 0a 20 20 62 6f 6f 6c 65 61 6e ┆ef; integer field r; boolean┆
0x33a40…33a60 20 66 69 65 6c 64 20 78 2c 66 3b 0a 20 20 72 65 61 6c 20 66 69 65 6c 64 20 74 3b 0a 0a 20 20 70 ┆ field x,f; real field t; p┆
0x33a60…33a7e 72 6f 63 65 64 75 72 65 20 67 65 74 72 65 63 6f 72 64 28 6c 69 73 74 65 6e 72 29 3b 0a 20 ┆rocedure getrecord(listenr); ┆
0x33a7e…33a84 (0x1f8,0x676)
0x33a84…33aa0 20 63 6f 6d 6d 65 6e 74 20 20 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 ┆ comment This procedure r┆
0x33aa0…33ac0 65 61 64 73 20 61 6e 64 20 64 65 6c 69 76 65 72 73 20 74 68 65 20 6e 65 78 74 20 72 65 63 6f 72 ┆eads and delivers the next recor┆
0x33ac0…33ae0 64 20 77 69 74 68 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 73 70 65 63 69 66 69 65 64 ┆d with a specified┆
0x33ae0…33afc 20 6b 65 79 20 28 72 65 61 64 20 66 72 6f 6d 20 27 6c 69 73 74 31 27 29 2e 0a 20 20 ┆ key (read from 'list1'). ┆
0x33afc…33b02 (0x1f8,0x677)
0x33b02…33b20 20 20 20 20 20 20 20 20 20 20 20 41 6c 6c 20 72 65 63 6f 72 64 73 20 6e 6f 74 20 66 69 74 ┆ All records not fit┆
0x33b20…33b40 74 69 6e 67 20 61 72 65 20 6e 65 67 6c 65 63 74 65 64 3b 0a 20 20 76 61 6c 75 65 20 6c 69 73 74 ┆ting are neglected; value list┆
0x33b40…33b60 65 6e 72 3b 0a 20 20 69 6e 74 65 67 65 72 20 6c 69 73 74 65 6e 72 3b 0a 20 20 62 65 67 69 6e 0a ┆enr; integer listenr; begin ┆
0x33b60…33b7a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 69 6e 72 65 63 36 28 ┆ integer i; inrec6(┆
0x33b7a…33b80 (0x1f8,0x678)
0x33b80…33ba0 7a 2c 38 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 7a 2e 72 20 73 68 69 66 74 20 28 2d 32 30 29 ┆z,8); for i:=z.r shift (-20)┆
0x33ba0…33bc0 20 77 68 69 6c 65 20 69 3c 3e 6c 69 73 74 65 6e 72 20 61 6e 64 20 69 3c 3e 31 35 20 64 6f 20 69 ┆ while i<>listenr and i<>15 do i┆
0x33bc0…33be0 6e 72 65 63 36 28 7a 2c 38 29 3b 0a 20 20 20 20 65 78 74 65 72 6e 3a 3d 73 69 67 6e 69 6e 74 28 ┆nrec6(z,8); extern:=signint(┆
0x33be0…33c00 7a 2e 78 29 3b 0a 20 20 20 20 66 69 6c 65 3a 3d 73 69 67 6e 69 6e 74 28 00 00 00 00 00 00 00 00 ┆z.x); file:=signint( ┆
0x33c00…33c06 (414,) (0x1f8,0x679)
0x33c06…33c20 7a 2e 66 29 3b 0a 20 20 20 20 72 65 6c 61 74 69 76 65 3a 3d 7a 2e 72 20 65 78 ┆z.f); relative:=z.r ex┆
0x33c20…33c40 74 72 61 63 74 20 32 30 3b 0a 20 20 20 20 74 65 78 74 72 65 66 3a 3d 7a 2e 74 3b 0a 20 20 65 6e ┆tract 20; textref:=z.t; en┆
0x33c40…33c60 64 20 67 65 74 72 65 63 6f 72 64 3b 0a 0a 20 20 6f 70 65 6e 28 7a 2c 34 2c 3c 3a 6c 69 73 74 31 ┆d getrecord; open(z,4,<:list1┆
0x33c60…33c7e 3a 3e 2c 30 29 3b 0a 20 20 78 3a 3d 31 3b 20 66 3a 3d 32 3b 20 72 3a 3d 34 3b 20 74 3a 3d ┆:>,0); x:=1; f:=2; r:=4; t:=┆
0x33c7e…33c84 (0x1f8,0x67a)
0x33c84…33ca0 38 3b 0a 20 20 69 66 20 6f 66 66 73 65 74 3c 30 20 74 68 65 6e 20 6f 66 66 73 65 74 ┆8; if offset<0 then offset┆
0x33ca0…33cc0 3a 3d 30 3b 0a 0a 0a 20 20 69 66 20 28 6c 69 73 74 73 65 6c 65 63 74 2f 2f 31 30 30 30 29 20 6d ┆:=0; if (listselect//1000) m┆
0x33cc0…33ce0 6f 64 20 31 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 77 72 69 74 65 28 ┆od 10 <> 0 then begin write(┆
0x33ce0…33cfc 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 44 65 66 69 6e 69 74 69 6f 6e ┆out,<:<12><10><10>Definition┆
0x33cfc…33d02 (0x1f8,0x67b)
0x33d02…33d20 73 20 6f 66 20 65 78 74 65 72 6e 61 6c 73 3a 3c 31 30 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 29 ┆s of externals:<10><10><10>:>)┆
0x33d20…33d40 3b 0a 20 20 67 65 74 72 65 63 6f 72 64 28 37 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 ┆; getrecord(7); for i:=0 whi┆
0x33d40…33d60 6c 65 20 65 78 74 65 72 6e 3c 35 35 31 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 77 72 69 ┆le extern<551 do begin wri┆
0x33d60…33d7a 74 65 28 6f 75 74 2c 3c 3c 2d 64 64 64 3e 2c 20 65 78 74 65 72 6e 2c 3c 3a 20 ┆te(out,<<-ddd>, extern,<: ┆
0x33d7a…33d80 (0x1f8,0x67c)
0x33d80…33da0 20 64 65 66 3a 20 3a 3e 29 3b 0a 20 20 20 20 69 66 20 66 69 6c 65 3d 31 34 20 74 68 65 6e 0a 20 ┆ def: :>); if file=14 then ┆
0x33da0…33dc0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 28 31 31 29 3b 0a 20 20 20 ┆ begin filename(11); ┆
0x33dc0…33de0 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 70 61 67 65 20 3a 3e 2c 3c 3c 64 64 64 64 3e ┆ write(out,<: page :>,<<dddd>┆
0x33de0…33e00 2c 72 65 6c 61 74 69 76 65 2f 2f 31 30 2c 63 61 73 65 20 72 65 6c 61 74 00 00 00 00 00 00 00 00 ┆,relative//10,case relat ┆
0x33e00…33e06 (415,) (0x1f8,0x67d)
0x33e06…33e20 69 76 65 20 6d 6f 64 20 31 30 20 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 ┆ive mod 10 +1 of ┆
0x33e20…33e40 20 20 28 3c 3a 20 20 3a 3e 2c 3c 3a 2e 61 3a 3e 2c 3c 3a 2e 62 3a 3e 2c 3c 3a 2e 63 3a 3e 2c 3c ┆ (<: :>,<:.a:>,<:.b:>,<:.c:>,<┆
0x33e40…33e60 3a 2e 64 3a 3e 2c 3c 3a 2e 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e 66 3a 3e ┆:.d:>,<:.e:>, <:.f:>┆
0x33e60…33e7e 2c 3c 3a 2e 67 3a 3e 2c 3c 3a 2e 68 3a 3e 2c 3c 3a 2e 69 3a 3e 29 2c 3c 3a 20 20 20 3a 3e ┆,<:.g:>,<:.h:>,<:.i:>),<: :>┆
0x33e7e…33e84 (0x1f8,0x67e)
0x33e84…33ea0 2c 73 74 72 69 6e 67 20 74 65 78 74 72 65 66 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e ┆,string textref,<:<10><10>:>┆
0x33ea0…33ec0 29 3b 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆); end else begin ┆
0x33ec0…33ee0 66 69 6c 65 6e 61 6d 65 28 66 69 6c 65 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆filename(file); write(out,┆
0x33ee0…33efc 3c 3c 64 64 64 64 64 64 3e 2c 72 65 6c 61 74 69 76 65 2b 6f 66 66 73 65 74 2c 3c 3a ┆<<dddddd>,relative+offset,<:┆
0x33efc…33f02 (0x1f8,0x67f)
0x33f02…33f20 20 20 20 3a 3e 2c 73 74 72 69 6e 67 20 74 65 78 74 72 65 66 2c 3c 3a 3c 31 30 3e 3c 31 30 ┆ :>,string textref,<:<10><10┆
0x33f20…33f40 3e 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 67 65 74 72 65 63 6f 72 64 28 37 29 3b ┆>:>); end; getrecord(7);┆
0x33f40…33f60 0a 20 20 65 6e 64 3b 0a 20 20 65 6e 64 20 73 65 6c 65 63 74 65 64 3b 0a 0c 0a 63 6f 6d 6d 65 6e ┆ end; end selected; commen┆
0x33f60…33f7a 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 20 20 20 20 20 20 20 ┆t lkn 75.09.10 ┆
0x33f7a…33f80 (0x1f8,0x680)
0x33f80…33fa0 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 20 2e 2e 2e 32 ┆ textxref page ...2┆
0x33fa0…33fc0 31 2e 2e 2e 0a 3b 0a 0a 0a 0a 20 20 69 66 20 28 6c 69 73 74 73 65 6c 65 63 74 2f 2f 31 30 30 29 ┆1... ; if (listselect//100)┆
0x33fc0…33fe0 20 6d 6f 64 20 31 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 77 72 69 74 ┆ mod 10 <> 0 then begin writ┆
0x33fe0…34000 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 52 65 66 65 00 00 00 00 00 00 00 00 ┆e(out,<:<12><10><10>Refe ┆
0x34000…34006 (416,) (0x1f8,0x681)
0x34006…34020 72 65 6e 63 65 73 20 74 6f 20 65 78 74 65 72 6e 61 6c 73 3a 3c 31 30 3e 3c 31 ┆rences to externals:<10><1┆
0x34020…34040 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b ┆0><10>:>); setposition(z,0,0);┆
0x34040…34060 0a 20 20 6f 6c 64 65 78 74 3a 3d 2d 32 35 3b 0a 20 20 67 65 74 72 65 63 6f 72 64 28 34 29 3b 0a ┆ oldext:=-25; getrecord(4); ┆
0x34060…3407e 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 65 78 74 65 72 6e 3c 35 35 31 20 64 6f ┆ for i:=0 while extern<551 do┆
0x3407e…34084 (0x1f8,0x682)
0x34084…340a0 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 6f 6c 64 65 78 74 3c 3e 65 78 74 65 ┆ begin if oldext<>exte┆
0x340a0…340c0 72 6e 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6f 6c 64 65 78 74 3a 3d ┆rn then begin oldext:=┆
0x340c0…340e0 65 78 74 65 72 6e 3b 0a 20 20 20 20 20 20 6f 6c 64 66 69 6c 65 3a 3d 2d 31 3b 0a 20 20 20 20 20 ┆extern; oldfile:=-1; ┆
0x340e0…340fc 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 2c 3c 3c 2d 64 ┆ write(out,<:<10><10>:>,<<-d┆
0x340fc…34102 (0x1f8,0x683)
0x34102…34120 64 64 3e 2c 20 65 78 74 65 72 6e 2c 3c 3a 20 20 20 3a 3e 2c 20 73 74 72 69 6e 67 20 74 65 ┆dd>, extern,<: :>, string te┆
0x34120…34140 78 74 72 65 66 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 6f 6c 64 66 69 6c 65 3c ┆xtref); end; if oldfile<┆
0x34140…34160 3e 66 69 6c 65 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 ┆>file then begin write┆
0x34160…3417a 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 20 20 20 20 20 20 20 3a 3e 29 3b 0a 20 20 ┆(out,<:<10> :>); ┆
0x3417a…34180 (0x1f8,0x684)
0x34180…341a0 20 20 20 20 66 69 6c 65 6e 61 6d 65 28 66 69 6c 65 29 3b 0a 20 20 20 20 20 20 6f 6c 64 66 69 6c ┆ filename(file); oldfil┆
0x341a0…341c0 65 3a 3d 66 69 6c 65 3b 0a 20 20 20 20 20 20 72 65 6c 6e 75 6d 3a 3d 30 3b 0a 20 20 20 20 65 6e ┆e:=file; relnum:=0; en┆
0x341c0…341e0 64 3b 0a 20 20 20 20 69 66 20 72 65 6c 6e 75 6d 3d 38 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 ┆d; if relnum=8 then begi┆
0x341e0…34200 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 00 00 00 00 00 00 00 00 ┆n write(out,<:<10> ┆
0x34200…34206 (417,) (0x1f8,0x685)
0x34206…34220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3e 29 3b 0a 20 20 ┆ :>); ┆
0x34220…34240 20 20 20 20 72 65 6c 6e 75 6d 3a 3d 30 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 77 72 69 74 ┆ relnum:=0; end; writ┆
0x34240…34260 65 28 6f 75 74 2c 3c 3c 64 64 64 64 64 64 3e 2c 20 72 65 6c 61 74 69 76 65 2b 6f 66 66 73 65 74 ┆e(out,<<dddddd>, relative+offset┆
0x34260…3427e 29 3b 0a 20 20 20 20 72 65 6c 6e 75 6d 3a 3d 72 65 6c 6e 75 6d 2b 31 3b 0a 20 20 20 20 67 ┆); relnum:=relnum+1; g┆
0x3427e…34284 (0x1f8,0x686)
0x34284…342a0 65 74 72 65 63 6f 72 64 28 34 29 3b 0a 20 20 65 6e 64 3b 0a 20 20 65 6e 64 20 73 65 ┆etrecord(4); end; end se┆
0x342a0…342c0 6c 65 63 74 65 64 3b 0a 0a 0a 0a 0c 0a 0a 63 6f 6d 6d 65 6e 74 20 63 68 64 20 38 32 2e 30 34 2e ┆lected; comment chd 82.04.┆
0x342c0…342e0 32 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 74 65 78 74 78 72 ┆29 textxr┆
0x342e0…342fc 65 66 20 20 20 20 20 70 61 67 65 20 2e 2e 2e 32 31 61 2e 2e 2e 0a 3b 0a 0a 0a 20 20 ┆ef page ...21a... ; ┆
0x342fc…34302 (0x1f8,0x687)
0x34302…34320 69 66 20 28 6c 69 73 74 73 65 6c 65 63 74 2f 2f 31 30 29 20 6d 6f 64 20 31 30 20 3c 3e 20 ┆if (listselect//10) mod 10 <> ┆
0x34320…34340 30 20 74 68 65 6e 0a 0a 20 20 62 65 67 69 6e 20 20 20 3c 2a 20 73 65 6c 65 63 74 20 36 20 73 6d ┆0 then begin <* select 6 sm┆
0x34340…34360 61 6c 6c 20 6c 69 73 74 73 20 2a 3e 0a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e ┆all lists *> write(out,<:<12>┆
0x34360…3437a 3c 31 30 3e 3c 31 30 3e 44 65 66 69 6e 65 64 2c 20 75 6e 72 65 66 65 72 65 6e ┆<10><10>Defined, unreferen┆
0x3437a…34380 (0x1f8,0x688)
0x34380…343a0 63 65 64 20 65 78 74 65 72 6e 61 6c 73 3a 3c 31 30 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 ┆ced externals:<10><10><10>:>); ┆
0x343a0…343c0 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 67 65 74 72 65 63 6f 72 64 ┆ setposition(z,0,0); getrecord┆
0x343c0…343e0 28 33 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 65 78 74 65 72 6e 3c 35 35 31 ┆(3); for i:=0 while extern<551┆
0x343e0…34400 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 00 00 00 00 00 00 00 00 ┆ do begin write(ou ┆
0x34400…34406 (418,) (0x1f8,0x689)
0x34406…34420 74 2c 3c 3c 2d 64 64 64 3e 2c 20 65 78 74 65 72 6e 2c 3c 3a 20 20 64 65 66 3a ┆t,<<-ddd>, extern,<: def:┆
0x34420…34440 20 3a 3e 29 3b 0a 20 20 20 20 66 69 6c 65 6e 61 6d 65 28 66 69 6c 65 29 3b 0a 20 20 20 20 77 72 ┆ :>); filename(file); wr┆
0x34440…34460 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 64 64 3e 2c 20 72 65 6c 61 74 69 76 65 2b 6f 66 66 73 ┆ite(out,<<dddddd>, relative+offs┆
0x34460…3447e 65 74 2c 3c 3a 20 20 20 3a 3e 2c 73 74 72 69 6e 67 20 74 65 78 74 72 65 66 2c 3c 3a 3c 31 ┆et,<: :>,string textref,<:<1┆
0x3447e…34484 (0x1f8,0x68a)
0x34484…344a0 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 67 65 74 72 65 63 6f 72 64 28 33 29 3b ┆0><10>:>); getrecord(3);┆
0x344a0…344c0 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e ┆ end; write(out,<:<12><10>┆
0x344c0…344e0 3c 31 30 3e 4e 61 6d 65 64 2c 20 75 6e 64 65 66 69 6e 65 64 2c 20 75 6e 72 65 66 65 72 65 6e 63 ┆<10>Named, undefined, unreferenc┆
0x344e0…344fc 65 64 20 65 78 74 65 72 6e 61 6c 73 3a 3c 31 30 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 29 ┆ed externals:<10><10><10>:>)┆
0x344fc…34502 (0x1f8,0x68b)
0x34502…34520 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 67 65 74 72 ┆; setposition(z,0,0); getr┆
0x34520…34540 65 63 6f 72 64 28 35 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 65 78 74 65 72 ┆ecord(5); for i:=0 while exter┆
0x34540…34560 6e 3c 35 35 31 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆n<551 do begin write(out,<┆
0x34560…3457a 3c 2d 64 64 64 3e 2c 65 78 74 65 72 6e 2c 3c 3a 20 6e 61 6d 65 64 3a 20 3a 3e ┆<-ddd>,extern,<: named: :>┆
0x3457a…34580 (0x1f8,0x68c)
0x34580…345a0 29 3b 0a 20 20 20 20 66 69 6c 65 6e 61 6d 65 28 66 69 6c 65 63 6f 6e 76 28 66 69 6c 65 29 29 3b ┆); filename(fileconv(file));┆
0x345a0…345c0 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 70 61 67 65 3a 20 3a 3e 2c 3c 3c 64 64 64 ┆ write(out,<: page: :>,<<ddd┆
0x345c0…345e0 3e 2c 20 72 65 6c 61 74 69 76 65 2f 2f 31 30 2c 63 61 73 65 20 72 65 6c 61 74 69 76 65 20 6d 6f ┆>, relative//10,case relative mo┆
0x345e0…34600 64 20 31 30 20 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 28 3c 3a 20 00 00 00 00 00 00 00 00 ┆d 10 +1 of (<: ┆
0x34600…34606 (419,) (0x1f8,0x68d)
0x34606…34620 20 3a 3e 2c 3c 3a 2e 61 3a 3e 2c 3c 3a 2e 62 3a 3e 2c 3c 3a 2e 63 3a 3e 2c 3c ┆ :>,<:.a:>,<:.b:>,<:.c:>,<┆
0x34620…34640 3a 2e 64 3a 3e 2c 3c 3a 2e 65 3a 3e 2c 3c 3a 2e 66 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 3c ┆:.d:>,<:.e:>,<:.f:>, <┆
0x34640…34660 3a 2e 67 3a 3e 2c 3c 3a 2e 68 3a 3e 2c 3c 3a 2e 69 3a 3e 29 2c 3c 3a 20 20 20 3a 3e 2c 73 74 72 ┆:.g:>,<:.h:>,<:.i:>),<: :>,str┆
0x34660…3467e 69 6e 67 20 74 65 78 74 72 65 66 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 ┆ing textref,<:<10><10>:>); ┆
0x3467e…34684 (0x1f8,0x68e)
0x34684…346a0 20 67 65 74 72 65 63 6f 72 64 28 35 29 3b 0a 20 20 65 6e 64 3b 0a 0c 0a 63 6f 6d 6d ┆ getrecord(5); end; comm┆
0x346a0…346c0 65 6e 74 20 20 20 6c 6b 6e 20 20 20 37 35 2e 30 39 2e 31 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ent lkn 75.09.10 ┆
0x346c0…346e0 20 20 20 20 20 20 20 20 74 65 78 74 78 72 65 66 20 20 70 61 67 65 20 20 2e 2e 2e 32 32 2e 2e 2e ┆ textxref page ...22...┆
0x346e0…346fc 0a 3b 0a 0a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3c ┆ ; write(out,<:<12><10><┆
0x346fc…34702 (0x1f8,0x68f)
0x34702…34720 31 30 3e 55 6e 75 73 65 64 20 65 78 74 65 72 6e 61 6c 73 20 28 6e 6f 74 20 6e 61 6d 65 64 ┆10>Unused externals (not named┆
0x34720…34740 2c 20 6e 6f 74 20 64 65 66 69 6e 65 64 2c 20 6e 6f 74 20 72 65 66 65 72 65 6e 63 65 64 29 3a 3c ┆, not defined, not referenced):<┆
0x34740…34760 31 30 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c ┆10><10><10>:>); setposition(z,┆
0x34760…3477a 30 2c 30 29 3b 0a 20 20 65 78 74 6e 75 6d 3a 3d 30 3b 0a 20 20 67 65 74 72 65 ┆0,0); extnum:=0; getre┆
0x3477a…34780 (0x1f8,0x690)
0x34780…347a0 63 6f 72 64 28 30 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 65 78 74 65 72 6e ┆cord(0); for i:=0 while extern┆
0x347a0…347c0 3c 35 35 31 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 65 78 74 6e 75 6d 3d 31 30 ┆<551 do begin if extnum=10┆
0x347c0…347e0 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 ┆ then begin outchar(ou┆
0x347e0…34800 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 65 78 74 6e 75 6d 3a 3d 30 3b 0a 00 00 00 00 00 00 00 00 ┆t,10); extnum:=0; ┆
0x34800…34806 (420,) (0x1f8,0x691)
0x34806…34820 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 2d ┆ end; write(out,<<-┆
0x34820…34840 64 64 64 64 64 3e 2c 65 78 74 65 72 6e 29 3b 0a 20 20 20 20 65 78 74 6e 75 6d 3a 3d 65 78 74 6e ┆ddddd>,extern); extnum:=extn┆
0x34840…34860 75 6d 2b 31 3b 0a 20 20 20 20 67 65 74 72 65 63 6f 72 64 28 30 29 3b 0a 20 20 65 6e 64 3b 0a 0a ┆um+1; getrecord(0); end; ┆
0x34860…3487e 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 55 73 65 ┆ write(out,<:<12><10><10>Use┆
0x3487e…34884 (0x1f8,0x692)
0x34884…348a0 64 20 65 78 74 65 72 6e 61 6c 73 2c 20 6e 6f 74 20 6e 61 6d 65 64 20 28 62 75 74 20 ┆d externals, not named (but ┆
0x348a0…348c0 65 69 74 68 65 72 20 64 65 66 69 6e 65 64 20 6f 72 20 72 65 66 65 72 65 6e 63 65 64 29 3a 3c 31 ┆either defined or referenced):<1┆
0x348c0…348e0 30 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 ┆0><10><10>:>); setposition(z,0┆
0x348e0…348fc 2c 30 29 3b 0a 20 20 65 78 74 6e 75 6d 3a 3d 30 3b 0a 20 20 6f 6c 64 65 78 74 3a 3d ┆,0); extnum:=0; oldext:=┆
0x348fc…34902 (0x1f8,0x693)
0x34902…34920 2d 32 35 3b 0a 20 20 67 65 74 72 65 63 6f 72 64 28 31 29 3b 0a 20 20 66 6f 72 20 69 3a 3d ┆-25; getrecord(1); for i:=┆
0x34920…34940 30 20 77 68 69 6c 65 20 65 78 74 65 72 6e 3c 35 35 31 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 ┆0 while extern<551 do begin ┆
0x34940…34960 20 20 69 66 20 65 78 74 65 72 6e 3c 3e 6f 6c 64 65 78 74 20 74 68 65 6e 0a 20 20 20 20 62 65 67 ┆ if extern<>oldext then beg┆
0x34960…3497a 69 6e 0a 20 20 20 20 20 20 6f 6c 64 65 78 74 3a 3d 65 78 74 65 72 6e 3b 0a 20 ┆in oldext:=extern; ┆
0x3497a…34980 (0x1f8,0x694)
0x34980…349a0 20 20 20 20 20 69 66 20 65 78 74 6e 75 6d 3d 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 ┆ if extnum=10 then beg┆
0x349a0…349c0 69 6e 0a 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 ┆in outchar(out,10); ┆
0x349c0…349e0 20 20 20 20 65 78 74 6e 75 6d 3a 3d 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ extnum:=0; end; ┆
0x349e0…34a00 77 72 69 74 65 28 6f 75 74 2c 3c 3c 2d 64 64 64 64 64 3e 2c 65 78 74 65 00 00 00 00 00 00 00 00 ┆write(out,<<-ddddd>,exte ┆
0x34a00…34a06 (421,) (0x1f8,0x695)
0x34a06…34a20 72 6e 29 3b 0a 20 20 20 20 20 20 65 78 74 6e 75 6d 3a 3d 65 78 74 6e 75 6d 2b ┆rn); extnum:=extnum+┆
0x34a20…34a40 31 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 67 65 74 72 65 63 6f 72 64 28 31 29 3b 0a 20 20 ┆1; end; getrecord(1); ┆
0x34a40…34a60 65 6e 64 3b 0a 0a 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3c 31 30 ┆end; write(out,<:<12><10><10┆
0x34a60…34a7e 3e 52 65 66 65 72 65 6e 63 65 64 2c 20 75 6e 64 65 66 69 6e 65 64 20 65 78 74 65 72 6e 61 ┆>Referenced, undefined externa┆
0x34a7e…34a84 (0x1f8,0x696)
0x34a84…34aa0 6c 73 3a 3c 31 30 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 73 65 74 70 6f 73 ┆ls:<10><10><10>:>); setpos┆
0x34aa0…34ac0 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 6f 6c 64 65 78 74 3a 3d 2d 32 35 3b 0a 20 20 66 ┆ition(z,0,0); oldext:=-25; f┆
0x34ac0…34ae0 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 65 78 74 65 72 6e 3c 35 35 31 20 64 6f 0a 20 20 62 65 ┆or i:=0 while extern<551 do be┆
0x34ae0…34afc 67 69 6e 0a 20 20 20 20 69 66 20 65 78 74 65 72 6e 3c 3e 6f 6c 64 65 78 74 20 74 68 ┆gin if extern<>oldext th┆
0x34afc…34b02 (0x1f8,0x697)
0x34b02…34b20 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6f 6c 64 65 78 74 3a 3d 65 78 74 ┆en begin oldext:=ext┆
0x34b20…34b40 65 72 6e 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 2d 64 64 64 3e 2c 20 65 78 ┆ern; write(out,<<-ddd>, ex┆
0x34b40…34b60 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 20 3a 3e 2c 73 ┆tern); write(out,<: :>,s┆
0x34b60…34b7a 74 72 69 6e 67 20 74 65 78 74 72 65 66 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 ┆tring textref,<:<10>:>); ┆
0x34b7a…34b80 (0x1f8,0x698)
0x34b80…34ba0 20 20 20 20 20 67 65 74 72 65 63 6f 72 64 28 32 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ getrecord(2); end; ┆
0x34ba0…34bc0 20 67 65 74 72 65 63 6f 72 64 28 32 29 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 77 72 69 74 65 28 ┆ getrecord(2); end; write(┆
0x34bc0…34be0 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 4d 75 6c 74 69 70 6c 79 20 64 65 66 69 6e ┆out,<:<12><10><10>Multiply defin┆
0x34be0…34c00 65 64 20 65 78 74 65 72 6e 61 6c 73 3a 3c 31 30 3e 3c 31 30 3e 3c 31 30 00 00 00 00 00 00 00 00 ┆ed externals:<10><10><10 ┆
0x34c00…34c06 (422,) (0x1f8,0x699)
0x34c06…34c20 3e 3a 3e 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 ┆>:>); setposition(z,0,0)┆
0x34c20…34c40 3b 0a 20 20 67 65 74 72 65 63 6f 72 64 28 36 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 ┆; getrecord(6); for i:=0 whi┆
0x34c40…34c60 6c 65 20 65 78 74 65 72 6e 3c 35 35 31 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 77 72 69 ┆le extern<551 do begin wri┆
0x34c60…34c7e 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3c 2d 64 64 64 3e 2c 65 78 74 65 72 6e ┆te(out,<:<10>:>,<<-ddd>,extern┆
0x34c7e…34c84 (0x1f8,0x69a)
0x34c84…34ca0 29 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 20 3a 3e 2c 73 74 72 ┆); write(out,<: :>,str┆
0x34ca0…34cc0 69 6e 67 20 74 65 78 74 72 65 66 29 3b 0a 20 20 20 20 67 65 74 72 65 63 6f 72 64 28 36 29 3b 0a ┆ing textref); getrecord(6); ┆
0x34cc0…34ce0 20 20 65 6e 64 3b 0a 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 32 29 3b 0a 0a 20 20 65 6e 64 ┆ end; outchar(out,12); end┆
0x34ce0…34cfc 20 20 36 20 73 6d 61 6c 6c 20 6c 69 73 74 73 20 73 65 6c 65 63 74 65 64 3b 0a 0a 65 ┆ 6 small lists selected; e┆
0x34cfc…34d02 (0x1f8,0x69b)
0x34d02…34d20 6e 64 3b 0a 65 6e 64 3b 0a 20 0a 65 6e 64 70 72 6f 67 3a 0a 65 6e 64 3b 0a 0a 19 74 65 28 ┆nd; end; endprog: end; te(┆
0x34d20…34d40 6f 75 74 2c 3c 3c 2d 64 64 64 64 64 3e 2c 65 78 74 65 72 6e 29 3b 0a 20 20 20 20 20 20 65 78 74 ┆out,<<-ddddd>,extern); ext┆
0x34d40…34d60 6e 75 6d 3a 3d 65 78 74 6e 75 6d 2b 31 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 67 65 74 72 ┆num:=extnum+1; end; getr┆
0x34d60…34d7a 65 63 6f 72 64 28 31 29 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 77 72 69 74 65 ┆ecord(1); end; write┆
0x34d7a…34d80 (0x1f8,0x69c)
0x34d80…34da0 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 52 65 66 65 72 65 6e 63 65 64 2c 20 75 ┆(out,<:<12><10><10>Referenced, u┆
0x34da0…34dc0 6e 64 65 66 69 6e 65 64 20 65 78 74 65 72 6e 61 6c 73 3a 3c 31 30 3e 3c 31 30 3e 3c 31 30 3e 3a ┆ndefined externals:<10><10><10>:┆
0x34dc0…34de0 3e 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 6f 6c 64 65 ┆>); setposition(z,0,0); olde┆
0x34de0…34e00 78 74 3a 3d 2d 32 35 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 6c 00 00 00 00 00 00 00 00 ┆xt:=-25; for i:=0 whil ┆
0x34e00…34e06 (423,) (0x1f8,0x69d)
0x34e06…34e20 65 20 65 78 74 65 72 6e 3c 35 35 31 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 ┆e extern<551 do begin ┆
0x34e20…34e40 20 20 69 66 20 65 78 74 65 72 6e 3c 3e 6f 6c 64 65 78 74 20 74 68 65 6e 0a 20 20 20 20 62 65 67 ┆ if extern<>oldext then beg┆
0x34e40…34e60 69 6e 0a 20 20 20 20 20 20 6f 6c 64 65 78 74 3a 3d 65 78 74 65 72 6e 3b 0a 20 20 20 20 20 20 77 ┆in oldext:=extern; w┆
0x34e60…34e7e 72 69 74 65 28 6f 75 74 2c 3c 3c 2d 64 64 64 3e 2c 20 65 78 74 65 72 6e 29 3b 0a 20 20 20 ┆rite(out,<<-ddd>, extern); ┆
0x34e7e…34e84 (0x1f8,0x69e)
0x34e84…34ea0 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 20 3a 3e 2c 73 74 72 74 70 6f 73 ┆ write(out,<: :>,strtpos┆
0x34ea0…34ec0 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 6f 6c 64 65 78 74 3a 3d 2d 32 35 3b 0a 20 20 66 ┆ition(z,0,0); oldext:=-25; f┆
0x34ec0…34ee0 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 65 78 74 65 72 6e 3c 35 35 31 20 64 6f 0a 20 20 62 65 ┆or i:=0 while extern<551 do be┆
0x34ee0…34efc 67 69 6e 0a 20 20 20 20 69 66 20 65 78 74 65 72 6e 3c 3e 6f 6c 64 65 78 74 20 74 68 ┆gin if extern<>oldext th┆
0x34efc…34f02 (0x25c,0x69f)
0x34f02…34f20 0a 73 61 76 65 63 6f 6e 76 20 3d 20 73 65 74 20 33 30 20 31 0a 73 63 6f 70 65 20 75 73 65 ┆ saveconv = set 30 1 scope use┆
0x34f20…34f40 72 20 73 61 76 65 63 6f 6e 76 0a 73 61 76 65 63 6f 6e 76 20 3d 20 61 6c 67 6f 6c 20 6c 69 73 74 ┆r saveconv saveconv = algol list┆
0x34f40…34f60 2e 6e 6f 20 78 72 65 66 2e 6e 6f 0a 62 65 67 69 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 ┆.no xref.no begin write(out,<:<1┆
0x34f60…34f7a 32 3e 3c 31 30 3e 20 73 61 76 65 63 6f 6e 76 20 76 65 72 73 69 6f 6e 69 64 3a ┆2><10> saveconv versionid:┆
0x34f7a…34f80 (0x25c,0x6a0)
0x34f80…34fa0 20 37 38 20 31 30 20 32 35 2c 20 31 32 20 3c 31 30 3e 3a 3e 29 3b 0a 0a 62 65 67 69 6e 0a 63 6f ┆ 78 10 25, 12 <10>:>); begin co┆
0x34fa0…34fc0 6d 6d 65 6e 74 20 20 73 6d 20 37 35 2e 30 39 2e 30 38 20 20 74 73 61 76 65 63 6f 6e 76 20 20 20 ┆mment sm 75.09.08 tsaveconv ┆
0x34fc0…34fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 31 2e 2e 2e 20 20 20 20 20 20 ┆ ...1... ┆
0x34fe0…35000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 0a 20 20 0a 20 20 00 00 00 00 00 00 00 00 ┆ ; ┆
0x35000…35006 (424,) (0x25c,0x6a1)
0x35006…35020 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 67 72 61 6d 20 69 73 20 75 73 ┆ comment the program is us┆
0x35020…35040 65 64 2c 20 77 68 65 6e 20 62 6f 73 73 20 68 61 73 20 63 72 61 73 68 65 64 20 66 6f 72 20 73 6f ┆ed, when boss has crashed for so┆
0x35040…35060 6d 65 20 72 65 61 73 6f 6e 2e 0a 20 20 20 74 68 65 20 70 75 72 70 6f 73 65 20 69 73 20 74 6f 20 ┆me reason. the purpose is to ┆
0x35060…3507e 73 61 76 65 20 61 6c 6c 20 63 6f 6e 76 65 72 74 61 72 65 61 73 2c 20 6d 61 64 65 20 72 65 ┆save all convertareas, made re┆
0x3507e…35084 (0x25c,0x6a2)
0x35084…350a0 61 64 79 20 66 6f 72 20 63 6f 6e 76 65 72 73 69 6f 6e 2e 0a 20 20 20 63 61 74 61 6c ┆ady for conversion. catal┆
0x350a0…350c0 6f 67 20 65 6e 74 72 69 65 73 2c 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 73 65 20 63 6f 6e ┆og entries, describing these con┆
0x350c0…350e0 76 65 72 74 61 72 65 61 73 20 61 72 65 20 72 65 63 6f 67 6e 69 7a 65 64 20 61 73 20 66 6f 6c 6c ┆vertareas are recognized as foll┆
0x350e0…350fc 6f 77 73 3a 0a 20 20 20 69 6e 74 65 72 76 61 6c 20 3d 20 2d 38 33 38 38 36 30 36 2c ┆ows: interval = -8388606,┆
0x350fc…35102 (0x25c,0x6a3)
0x35102…35120 2d 38 33 38 38 36 30 36 0a 20 20 20 6b 65 79 20 20 20 20 20 20 3d 20 32 20 20 20 20 20 20 ┆-8388606 key = 2 ┆
0x35120…35140 20 20 20 20 20 20 20 20 20 20 20 28 69 2e 65 2e 20 6c 6f 67 69 6e 20 73 63 6f 70 65 29 0a 20 20 ┆ (i.e. login scope) ┆
0x35140…35160 20 74 68 65 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 79 20 63 6f 6e 74 61 69 6e 73 20 66 75 72 74 ┆ the catalog entry contains furt┆
0x35160…3517a 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 20 20 20 6e 61 6d 65 20 74 ┆her information: name t┆
0x3517a…35180 (0x25c,0x6a4)
0x35180…351a0 61 62 6c 65 20 61 64 64 72 65 73 73 20 66 69 65 6c 64 20 63 6f 6e 74 61 69 6e 73 20 73 65 67 6d ┆able address field contains segm┆
0x351a0…351c0 65 6e 74 6e 75 6d 62 65 72 20 61 6e 64 20 2d 62 79 74 65 72 65 6c 61 74 69 76 65 20 69 6e 0a 20 ┆entnumber and -byterelative in ┆
0x351c0…351e0 20 20 75 73 65 72 63 61 74 61 6c 6f 67 2c 20 66 6f 72 20 66 69 6e 64 69 6e 67 20 75 73 65 72 2d ┆ usercatalog, for finding user-┆
0x351e0…35200 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 2e 0a 20 20 20 65 6e 74 72 79 00 00 00 00 00 00 00 00 ┆identification. entry ┆
0x35200…35206 (425,) (0x25c,0x6a5)
0x35206…35220 20 66 69 65 6c 64 20 63 6f 6e 74 61 69 6e 73 20 70 61 70 65 72 20 6e 75 6d 62 ┆ field contains paper numb┆
0x35220…35240 65 72 2e 0a 0a 20 20 20 74 68 65 20 61 72 65 61 73 20 61 72 65 20 63 6f 70 69 65 64 20 74 6f 20 ┆er. the areas are copied to ┆
0x35240…35260 61 20 6d 61 67 74 61 70 65 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 61 79 3a 0a ┆a magtape in the following way: ┆
0x35260…3527e 20 20 20 66 69 6c 65 20 31 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 65 61 73 2c 20 ┆ file 1 : number of areas, ┆
0x3527e…35284 (0x25c,0x6a6)
0x35284…352a0 70 61 70 65 72 74 79 70 65 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 61 72 65 61 28 ┆papertype of the first area(┆
0x352a0…352c0 73 29 2c 0a 20 20 20 66 69 6c 65 20 32 20 74 6f 20 66 69 6c 65 3a 20 65 61 63 68 20 66 69 6c 65 ┆s), file 2 to file: each file┆
0x352c0…352e0 20 63 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 61 72 65 61 20 77 69 74 63 68 20 73 68 6f 75 6c 64 20 ┆ contains one area witch should ┆
0x352e0…352fc 62 65 20 70 72 69 6e 74 65 64 20 6f 6e 20 74 68 65 20 70 61 70 65 72 2d 0a 20 20 20 ┆be printed on the paper- ┆
0x352fc…35302 (0x25c,0x6a7)
0x35302…35320 74 79 70 65 20 64 65 66 69 6e 65 64 20 69 6e 20 66 69 6c 65 20 31 2e 20 65 61 63 68 20 61 ┆type defined in file 1. each a┆
0x35320…35340 72 65 61 20 69 73 20 77 72 69 74 74 65 6e 20 6f 6e 20 74 68 65 20 74 61 70 65 20 77 69 74 68 20 ┆rea is written on the tape with ┆
0x35340…35360 61 20 74 72 69 61 6e 67 6c 65 20 62 65 66 6f 72 65 0a 20 20 20 61 6e 64 20 61 66 74 65 72 2c 0a ┆a triangle before and after, ┆
0x35360…3537a 20 20 20 66 69 6c 65 20 78 2b 31 3a 20 70 61 70 65 72 74 79 70 65 20 6f 66 20 ┆ file x+1: papertype of ┆
0x3537a…35380 (0x25c,0x6a8)
0x35380…353a0 74 68 65 20 6e 65 78 74 20 61 72 65 61 28 73 29 2c 0a 20 20 20 65 74 63 2e 0a 20 20 20 6c 61 73 ┆the next area(s), etc. las┆
0x353a0…353c0 74 20 66 69 6c 65 3a 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 74 65 78 74 3a 20 20 61 6c 6c 20 ┆t file: contains the text: all ┆
0x353c0…353e0 66 69 6c 65 73 20 68 61 76 65 20 62 65 65 6e 20 70 72 69 6e 74 65 64 2e 0a 0a 20 20 20 74 68 65 ┆files have been printed. the┆
0x353e0…35400 20 67 65 6e 65 72 61 74 65 64 20 74 61 70 65 20 63 61 6e 20 62 65 20 75 00 00 00 00 00 00 00 00 ┆ generated tape can be u ┆
0x35400…35406 (426,) (0x25c,0x6a9)
0x35406…35420 73 65 64 20 61 73 20 69 6e 70 75 74 2d 74 61 70 65 20 74 6f 20 74 68 65 20 70 ┆sed as input-tape to the p┆
0x35420…35440 72 6f 67 72 61 6d 20 67 65 74 63 6f 6e 76 20 6f 72 20 69 74 20 0a 20 20 20 63 61 6e 20 62 65 20 ┆rogram getconv or it can be ┆
0x35440…35460 70 72 69 6e 74 65 64 20 6f 6e 20 61 20 63 6f 6e 76 65 72 74 65 72 2d 69 6e 73 74 61 6c 6c 61 74 ┆printed on a converter-installat┆
0x35460…3547e 69 6f 6e 2e 0a 0a 20 20 20 63 61 6c 6c 20 6f 66 20 70 72 6f 67 72 61 6d 3a 20 73 61 76 65 ┆ion. call of program: save┆
0x3547e…35484 (0x25c,0x6aa)
0x35484…354a0 63 6f 6e 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 20 20 73 61 76 ┆conv or sav┆
0x354a0…354c0 65 63 6f 6e 76 20 3c 74 61 70 65 2d 69 64 3e 2e 3c 6d 6f 64 65 3e 0a 20 20 20 20 20 20 20 20 20 ┆econv <tape-id>.<mode> ┆
0x354c0…354e0 20 20 20 20 77 68 65 72 65 20 20 3c 74 61 70 65 2d 69 64 3e 20 3a 3a 3d 20 6d 74 3c 69 64 65 6e ┆ where <tape-id> ::= mt<iden┆
0x354e0…354fc 74 69 66 69 63 61 74 6f 72 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e ┆tificator> an┆
0x354fc…35502 (0x25c,0x6ab)
0x35502…35520 64 20 20 20 20 20 3c 6d 6f 64 65 3e 20 3a 3a 3d 20 6d 74 6f 2c 20 6d 74 65 2c 20 6e 72 7a ┆d <mode> ::= mto, mte, nrz┆
0x35520…35540 20 6f 72 20 6e 72 7a 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 76 ┆ or nrze. default v┆
0x35540…35560 61 6c 75 65 73 20 3a 20 6d 74 73 61 76 65 63 6f 6e 76 2e 6d 74 6f 3b 0a 0c 0a 63 6f 6d 6d 65 6e ┆alues : mtsaveconv.mto; commen┆
0x35560…3557a 74 20 20 73 6d 20 37 35 2e 30 39 2e 30 38 20 20 74 73 61 76 65 63 6f 6e 76 20 ┆t sm 75.09.08 tsaveconv ┆
0x3557a…35580 (0x25c,0x6ac)
0x35580…355a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 32 2e 2e 2e 20 20 20 20 ┆ ...2... ┆
0x355a0…355c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 0a 20 20 20 0a 20 20 20 7a 6f 6e 65 ┆ ; zone┆
0x355c0…355e0 20 63 61 74 2c 20 75 73 65 72 63 61 74 28 31 32 38 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 2c ┆ cat, usercat(128, 1, stderror),┆
0x355e0…35600 20 7a 28 31 32 38 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ z(128, 1, stderror); ┆
0x35600…35606 (427,) (0x25c,0x6ad)
0x35606…35620 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 77 6f 72 64 2c 20 6b 65 79 2c 20 ┆ integer field word, key, ┆
0x35620…35640 6c 6f 77 65 72 2c 20 75 70 70 65 72 2c 20 73 69 7a 65 2c 20 75 73 65 72 69 64 3b 0a 20 20 20 6c ┆lower, upper, size, userid; l┆
0x35640…35660 6f 6e 67 20 20 20 20 66 69 65 6c 64 20 6e 61 6d 65 31 2c 20 6e 61 6d 65 32 3b 0a 20 20 20 62 6f ┆ong field name1, name2; bo┆
0x35660…3567e 6f 6c 65 61 6e 20 66 69 65 6c 64 20 70 61 70 65 72 74 79 70 65 3b 0a 20 20 20 69 6e 74 65 ┆olean field papertype; inte┆
0x3567e…35684 (0x25c,0x6ae)
0x35684…356a0 67 65 72 20 20 20 20 20 20 20 65 6e 74 72 79 6e 6f 2c 20 69 2c 20 6b 2c 20 6d 6f 64 ┆ger entryno, i, k, mod┆
0x356a0…356c0 65 2c 20 6e 75 6d 62 65 72 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6f 6c 64 63 ┆e, number; integer array oldc┆
0x356c0…356e0 61 74 62 61 73 65 2c 69 61 28 31 3a 32 30 29 3b 0a 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 ┆atbase,ia(1:20); long array f┆
0x356e0…356fc 69 65 6c 64 20 75 73 65 72 6e 61 6d 65 62 61 73 65 3b 0a 20 20 20 72 65 61 6c 20 61 ┆ield usernamebase; real a┆
0x356fc…35702 (0x25c,0x6af)
0x35702…35720 3b 0a 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 70 61 72 61 6d 31 2c 20 70 61 72 61 6d 32 ┆; real array param1, param2┆
0x35720…35740 28 31 3a 32 29 2c 20 6d 6f 64 65 74 65 78 74 28 31 3a 34 29 3b 0a 0a 20 20 20 70 72 6f 63 65 64 ┆(1:2), modetext(1:4); proced┆
0x35740…35760 75 72 65 20 70 61 72 61 6d 65 72 72 3b 0a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 ┆ure paramerr; begin comment c┆
0x35760…3577a 61 6c 6c 65 64 20 69 66 20 65 72 72 6f 72 73 20 69 6e 20 70 72 6f 67 72 61 6d ┆alled if errors in program┆
0x3577a…35780 (0x25c,0x6b0)
0x35780…357a0 2d 70 61 72 61 6d 65 74 65 72 73 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c ┆-parameters; write(out,<:<┆
0x357a0…357c0 31 30 3e 70 61 72 61 6d 65 74 65 72 20 65 72 72 6f 72 2e 3a 3e 29 3b 0a 20 20 20 20 20 20 67 6f ┆10>parameter error.:>); go┆
0x357c0…357e0 74 6f 20 65 78 69 74 3b 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 ┆to exit; end; for i:=1 st┆
0x357e0…35800 65 70 20 31 20 75 6e 74 69 6c 20 34 20 64 6f 0a 20 20 20 20 20 6d 6f 64 00 00 00 00 00 00 00 00 ┆ep 1 until 4 do mod ┆
0x35800…35806 (428,) (0x25c,0x6b1)
0x35806…35820 65 74 65 78 74 28 69 29 3a 3d 72 65 61 6c 28 63 61 73 65 20 69 20 6f 66 20 28 ┆etext(i):=real(case i of (┆
0x35820…35840 3c 3a 6d 74 6f 3a 3e 2c 3c 3a 6d 74 65 3a 3e 2c 3c 3a 6e 72 7a 3a 3e 2c 3c 3a 6e 72 7a 65 3a 3e ┆<:mto:>,<:mte:>,<:nrz:>,<:nrze:>┆
0x35840…35860 29 29 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 72 65 61 64 20 70 72 6f 67 72 61 6d 20 70 61 72 ┆)); comment read program par┆
0x35860…3587e 61 6d 65 74 65 72 73 20 28 69 66 20 61 6e 79 29 3b 0a 20 20 20 6b 3a 3d 73 79 73 74 65 6d ┆ameters (if any); k:=system┆
0x3587e…35884 (0x25c,0x6b2)
0x35884…358a0 28 34 2c 20 31 2c 20 70 61 72 61 6d 31 29 3b 0a 20 20 20 69 66 20 6b 3d 34 20 73 68 ┆(4, 1, param1); if k=4 sh┆
0x358a0…358c0 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ift 12 + 10 then begin ┆
0x358c0…358e0 69 66 20 70 61 72 61 6d 31 28 31 29 20 73 68 69 66 74 20 28 2d 33 32 29 20 73 68 69 66 74 20 33 ┆if param1(1) shift (-32) shift 3┆
0x358e0…358fc 32 20 3c 3e 20 72 65 61 6c 3c 3a 6d 74 3a 3e 20 74 68 65 6e 20 70 61 72 61 6d 65 72 ┆2 <> real<:mt:> then paramer┆
0x358fc…35902 (0x25c,0x6b3)
0x35902…35920 72 3b 0a 20 20 20 20 20 20 6b 3a 3d 73 79 73 74 65 6d 28 34 2c 20 32 2c 20 70 61 72 61 6d ┆r; k:=system(4, 2, param┆
0x35920…35940 32 29 3b 0a 20 20 20 20 20 20 69 66 20 6b 3c 3e 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 ┆2); if k<>8 shift 12 + 10 ┆
0x35940…35960 74 68 65 6e 20 70 61 72 61 6d 65 72 72 3b 0a 20 20 20 20 20 20 61 3a 3d 70 61 72 61 6d 32 28 31 ┆then paramerr; a:=param2(1┆
0x35960…3597a 29 3b 0a 20 20 20 20 20 20 6d 6f 64 65 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 66 ┆); mode:=-1; f┆
0x3597a…35980 (0x25c,0x6b4)
0x35980…359a0 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 34 20 64 6f 0a 20 20 20 20 20 20 ┆or i:=1 step 1 until 4 do ┆
0x359a0…359c0 20 20 69 66 20 61 3d 6d 6f 64 65 74 65 78 74 28 69 29 20 74 68 65 6e 20 6d 6f 64 65 3a 3d 28 69 ┆ if a=modetext(i) then mode:=(i┆
0x359c0…359e0 2d 31 29 2a 32 3b 0a 20 20 20 20 20 20 69 66 20 6d 6f 64 65 3d 2d 31 20 74 68 65 6e 20 70 61 72 ┆-1)*2; if mode=-1 then par┆
0x359e0…35a00 61 6d 65 72 72 3b 0a 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a 20 20 00 00 00 00 00 00 00 00 ┆amerr; end else ┆
0x35a00…35a06 (429,) (0x25c,0x6b5)
0x35a06…35a20 20 69 66 20 6b 3d 30 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ if k=0 then begin ┆
0x35a20…35a40 20 20 70 61 72 61 6d 31 28 31 29 3a 3d 72 65 61 6c 3c 3a 6d 74 73 61 76 3a 3e 20 61 64 64 20 31 ┆ param1(1):=real<:mtsav:> add 1┆
0x35a40…35a60 30 31 3b 0a 20 20 20 20 20 20 70 61 72 61 6d 31 28 32 29 3a 3d 72 65 61 6c 3c 3a 63 6f 6e 76 3a ┆01; param1(2):=real<:conv:┆
0x35a60…35a7e 3e 3b 0a 20 20 20 20 20 20 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 65 6e 64 0a 20 20 20 65 6c ┆>; mode:=0; end el┆
0x35a7e…35a84 (0x25c,0x6b6)
0x35a84…35aa0 73 65 0a 20 20 20 70 61 72 61 6d 65 72 72 3b 0a 0a 20 20 20 73 79 73 74 65 6d 28 31 ┆se paramerr; system(1┆
0x35aa0…35ac0 31 29 20 67 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 65 74 63 65 74 65 72 61 20 3a 28 30 ┆1) get catalog base etcetera :(0┆
0x35ac0…35ae0 2c 6f 6c 64 63 61 74 62 61 73 65 29 3b 20 63 6f 6d 6d 65 6e 74 20 73 61 76 65 20 6f 6c 64 20 63 ┆,oldcatbase); comment save old c┆
0x35ae0…35afc 61 74 61 6c 6f 67 20 62 61 73 65 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 ┆atalog base; comment chec┆
0x35afc…35b02 (0x25c,0x6b7)
0x35b02…35b20 6b 20 74 68 61 74 20 74 68 65 20 70 72 69 76 61 74 65 20 62 61 73 65 73 20 6f 66 20 62 6f ┆k that the private bases of bo┆
0x35b20…35b40 73 73 20 28 2d 38 33 38 38 36 30 37 2c 20 2d 38 33 38 38 36 30 36 29 20 69 73 20 63 6f 6e 74 61 ┆ss (-8388607, -8388606) is conta┆
0x35b40…35b60 69 6e 65 64 20 69 6e 0a 20 20 20 74 68 65 20 6d 61 78 20 62 61 73 65 20 28 37 2c 38 29 20 6f 66 ┆ined in the max base (7,8) of┆
0x35b60…35b7a 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 6e 64 20 63 6f 6e 74 61 69 6e 73 2c ┆ the process and contains,┆
0x35b7a…35b80 (0x25c,0x6b8)
0x35b80…35ba0 20 65 71 75 61 6c 73 20 6f 72 20 69 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 74 68 65 0a 20 ┆ equals or is contained in the ┆
0x35ba0…35bc0 20 20 73 74 64 20 62 61 73 65 20 28 33 2c 34 29 3b 0a 20 20 20 69 66 20 6f 6c 64 63 61 74 62 61 ┆ std base (3,4); if oldcatba┆
0x35bc0…35be0 73 65 28 37 29 3e 2d 38 33 38 38 36 30 37 20 6f 72 20 6f 6c 64 63 61 74 62 61 73 65 28 38 29 3c ┆se(7)>-8388607 or oldcatbase(8)<┆
0x35be0…35c00 2d 38 33 38 38 36 30 36 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆-8388606 then begin ┆
0x35c00…35c06 (430,) (0x25c,0x6b9)
0x35c06…35c20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 20 6d 61 78 20 62 ┆ write(out,<:*** max b┆
0x35c20…35c40 61 73 65 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 3a 20 2d 38 33 38 38 36 30 37 2c 20 2d 38 ┆ase should contain: -8388607, -8┆
0x35c40…35c60 33 38 38 36 30 36 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 3c 31 30 3e 69 74 20 69 73 3a 20 3a 3e 2c ┆388606:>, <:<10>it is: :>,┆
0x35c60…35c7e 6f 6c 64 63 61 74 62 61 73 65 28 37 29 2c 3c 3a 2c 20 3a 3e 2c 20 6f 6c 64 63 61 74 62 61 ┆oldcatbase(7),<:, :>, oldcatba┆
0x35c7e…35c84 (0x25c,0x6ba)
0x35c84…35ca0 73 65 28 38 29 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 0a 20 20 20 65 ┆se(8)); goto exit e┆
0x35ca0…35cc0 6e 64 3b 0a 20 20 20 69 66 20 6f 6c 64 63 61 74 62 61 73 65 28 33 29 3e 2d 38 33 38 38 36 30 37 ┆nd; if oldcatbase(3)>-8388607┆
0x35cc0…35ce0 20 6f 72 20 6f 6c 64 63 61 74 62 61 73 65 28 34 29 3c 2d 38 33 38 38 36 30 36 20 74 68 65 6e 0a ┆ or oldcatbase(4)<-8388606 then ┆
0x35ce0…35cfc 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a ┆ begin write(out,<:*┆
0x35cfc…35d02 (0x25c,0x6bb)
0x35d02…35d20 2a 2a 20 73 74 64 20 62 61 73 65 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 3a 20 2d 38 ┆** std base should contain: -8┆
0x35d20…35d40 33 38 38 36 30 37 2c 20 2d 38 33 38 38 36 30 36 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 3c 31 30 3e ┆388607, -8388606:>, <:<10>┆
0x35d40…35d60 69 74 20 69 73 3a 20 3a 3e 2c 20 6f 6c 64 63 61 74 62 61 73 65 28 33 29 2c 20 3c 3a 2c 20 3a 3e ┆it is: :>, oldcatbase(3), <:, :>┆
0x35d60…35d7a 2c 20 6f 6c 64 63 61 74 62 61 73 65 28 34 29 29 3b 0a 20 20 20 20 20 20 67 6f ┆, oldcatbase(4)); go┆
0x35d7a…35d80 (0x25c,0x6bc)
0x35d80…35da0 74 6f 20 65 78 69 74 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 20 6f 70 65 6e 28 7a 2c 20 30 2c 20 3c ┆to exit end; open(z, 0, <┆
0x35da0…35dc0 3a 3a 3e 2c 20 30 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 20 73 65 74 20 63 61 74 62 61 73 ┆::>, 0); comment for set catbas┆
0x35dc0…35de0 65 3b 0a 20 20 20 69 61 28 31 29 20 3a 3d 20 69 61 28 32 29 20 3a 3d 20 2d 38 33 38 38 36 30 37 ┆e; ia(1) := ia(2) := -8388607┆
0x35de0…35e00 3b 20 20 63 6f 6d 6d 65 6e 74 20 69 6e 74 65 72 76 61 6c 20 6f 66 20 75 00 00 00 00 00 00 00 00 ┆; comment interval of u ┆
0x35e00…35e06 (431,) (0x25c,0x6bd)
0x35e06…35e20 73 65 72 63 61 74 3b 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 20 73 65 74 ┆sercat; monitor(72) set┆
0x35e20…35e40 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 3a 28 7a 2c 20 30 2c 20 69 61 29 3b 0a 20 20 20 6f 70 ┆ catalog base :(z, 0, ia); op┆
0x35e40…35e60 65 6e 28 75 73 65 72 63 61 74 2c 20 34 2c 20 3c 3a 75 73 65 72 63 61 74 3a 3e 2c 20 30 29 3b 0a ┆en(usercat, 4, <:usercat:>, 0); ┆
0x35e60…35e7e 20 20 20 69 6e 72 65 63 36 28 75 73 65 72 63 61 74 2c 20 35 31 32 29 3b 20 20 63 6f 6d 6d ┆ inrec6(usercat, 512); comm┆
0x35e7e…35e84 (0x25c,0x6be)
0x35e84…35ea0 65 6e 74 20 74 6f 20 73 65 74 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 73 ┆ent to set name table addres┆
0x35ea0…35ec0 73 3b 0a 0a 20 20 20 69 61 28 31 29 20 3a 3d 20 69 61 28 32 29 20 3a 3d 20 2d 38 33 38 38 36 30 ┆s; ia(1) := ia(2) := -838860┆
0x35ec0…35ee0 36 3b 20 20 63 6f 6d 6d 65 6e 74 20 69 6e 74 65 72 76 61 6c 20 6f 66 20 63 6f 6e 76 65 72 74 20 ┆6; comment interval of convert ┆
0x35ee0…35efc 61 72 65 61 73 3b 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 20 73 65 74 20 63 61 ┆areas; monitor(72) set ca┆
0x35efc…35f02 (0x25c,0x6bf)
0x35f02…35f20 74 61 6c 6f 67 20 62 61 73 65 20 3a 28 7a 2c 20 30 2c 20 69 61 29 3b 0a 20 20 20 63 6c 6f ┆talog base :(z, 0, ia); clo┆
0x35f20…35f40 73 65 28 7a 2c 74 72 75 65 29 3b 0a 0a 20 20 20 6f 70 65 6e 28 63 61 74 2c 20 34 2c 20 3c 3a 63 ┆se(z,true); open(cat, 4, <:c┆
0x35f40…35f60 61 74 61 6c 6f 67 3a 3e 2c 20 30 29 3b 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f ┆atalog:>, 0); monitor(42) loo┆
0x35f60…35f7a 6b 75 70 20 65 6e 74 72 79 20 3a 28 63 61 74 2c 20 30 2c 20 69 61 29 3b 20 20 ┆kup entry :(cat, 0, ia); ┆
0x35f7a…35f80 (0x25c,0x6c0)
0x35f80…35fa0 63 6f 6d 6d 65 6e 74 20 74 6f 20 67 65 74 20 63 61 74 61 6c 6f 67 20 73 69 7a 65 3b 0a 20 20 20 ┆comment to get catalog size; ┆
0x35fa0…35fc0 65 6e 74 72 79 6e 6f 20 3a 3d 20 69 61 28 31 29 20 2a 20 31 35 3b 0a 0a 20 20 20 63 6f 6d 6d 65 ┆entryno := ia(1) * 15; comme┆
0x35fc0…35fe0 6e 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 69 65 6c 64 73 20 64 65 73 63 72 69 62 65 ┆nt the following fields describe┆
0x35fe0…36000 20 61 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 79 3b 0a 20 20 20 6b 65 79 00 00 00 00 00 00 00 00 ┆ a catalog entry; key ┆
0x36000…36006 (432,) (0x25c,0x6c1)
0x36006…36020 20 3a 3d 20 32 3b 20 20 6c 6f 77 65 72 20 3a 3d 20 34 3b 20 20 75 70 70 65 72 ┆ := 2; lower := 4; upper┆
0x36020…36040 20 3a 3d 20 36 3b 20 20 6e 61 6d 65 31 20 3a 3d 20 31 30 3b 20 20 6e 61 6d 65 32 20 3a 3d 20 31 ┆ := 6; name1 := 10; name2 := 1┆
0x36040…36060 34 3b 0a 20 20 20 73 69 7a 65 20 3a 3d 20 31 36 3b 20 20 75 73 65 72 69 64 20 3a 3d 20 32 36 3b ┆4; size := 16; userid := 26;┆
0x36060…3607e 20 20 70 61 70 65 72 74 79 70 65 20 3a 3d 20 33 32 3b 0a 20 20 20 0c 0a 63 6f 6d 6d 65 6e ┆ papertype := 32; commen┆
0x3607e…36084 (0x25c,0x6c2)
0x36084…360a0 74 20 20 73 6d 20 37 35 2e 30 39 2e 30 38 20 20 74 73 61 76 65 63 6f 6e 76 20 20 20 ┆t sm 75.09.08 tsaveconv ┆
0x360a0…360c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 33 2e 2e 2e 20 20 20 20 20 20 ┆ ...3... ┆
0x360c0…360e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 73 63 61 ┆ ; comment sca┆
0x360e0…360fc 6e 20 74 68 65 20 77 68 6f 6c 65 20 63 61 74 61 6c 6f 67 3b 0a 20 20 20 6e 75 6d 62 ┆n the whole catalog; numb┆
0x360fc…36102 (0x25c,0x6c3)
0x36102…36120 65 72 3a 3d 30 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 61 6c 6c 20 63 61 74 61 6c 6f 67 ┆er:=0; comment all catalog┆
0x36120…36140 2d 65 6e 74 72 69 65 73 20 6f 66 20 63 6f 6e 76 65 72 74 2d 61 72 65 61 73 20 61 72 65 20 63 6f ┆-entries of convert-areas are co┆
0x36140…36160 70 69 65 64 20 74 6f 20 74 68 65 20 61 72 65 61 20 68 65 6c 70 63 61 74 61 6c 6f 67 3b 0a 0a 20 ┆pied to the area helpcatalog; ┆
0x36160…3617a 20 20 6f 70 65 6e 28 7a 2c 34 2c 3c 3a 68 65 6c 70 63 61 74 61 6c 6f 67 3a 3e ┆ open(z,4,<:helpcatalog:>┆
0x3617a…36180 (0x25c,0x6c4)
0x36180…361a0 2c 30 29 3b 0a 20 20 20 69 61 28 31 29 3a 3d 69 61 28 32 29 3a 3d 31 3b 0a 20 20 20 6d 6f 6e 69 ┆,0); ia(1):=ia(2):=1; moni┆
0x361a0…361c0 74 6f 72 28 34 30 2c 7a 2c 30 2c 69 61 29 3b 0a 20 20 20 66 6f 72 20 65 6e 74 72 79 6e 6f 3a 3d ┆tor(40,z,0,ia); for entryno:=┆
0x361c0…361e0 65 6e 74 72 79 6e 6f 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 64 6f 0a 20 20 20 62 65 ┆entryno step -1 until 1 do be┆
0x361e0…36200 67 69 6e 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 63 61 74 2c 33 34 29 00 00 00 00 00 00 00 00 ┆gin inrec6(cat,34) ┆
0x36200…36206 (433,) (0x25c,0x6c5)
0x36206…36220 3b 0a 20 20 20 20 20 20 69 66 20 20 20 20 20 63 61 74 2e 6b 65 79 20 65 78 74 ┆; if cat.key ext┆
0x36220…36240 72 61 63 74 20 33 20 3d 20 32 0a 20 20 20 20 20 20 20 20 20 61 6e 64 20 63 61 74 2e 6c 6f 77 65 ┆ract 3 = 2 and cat.lowe┆
0x36240…36260 72 20 3d 20 2d 38 33 38 38 36 30 36 0a 20 20 20 20 20 20 20 20 20 61 6e 64 20 63 61 74 2e 75 70 ┆r = -8388606 and cat.up┆
0x36260…3627e 70 65 72 20 3d 20 2d 38 33 38 38 36 30 36 0a 20 20 20 20 20 20 20 20 20 61 6e 64 20 63 61 ┆per = -8388606 and ca┆
0x3627e…36284 (0x25c,0x6c6)
0x36284…362a0 74 2e 73 69 7a 65 20 3e 20 30 20 20 20 20 20 20 20 20 20 74 68 65 6e 0a 20 20 20 20 ┆t.size > 0 then ┆
0x362a0…362c0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 69 73 ┆ begin comment this is┆
0x362c0…362e0 20 61 20 63 6f 6e 76 65 72 74 20 61 72 65 61 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 77 6f ┆ a convert area; for wo┆
0x362e0…362fc 72 64 3a 3d 32 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 33 34 20 64 6f 0a 20 20 20 ┆rd:=2 step 2 until 34 do ┆
0x362fc…36302 (0x25c,0x6c7)
0x36302…36320 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 ┆ begin outrec┆
0x36320…36340 36 28 7a 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 6b 65 79 3a 3d 63 61 74 2e 77 ┆6(z,2); z.key:=cat.w┆
0x36340…36360 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 6e 75 6d 62 ┆ord; end; numb┆
0x36360…3637a 65 72 3a 3d 6e 75 6d 62 65 72 2b 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆er:=number+1; end; ┆
0x3637a…36380 (0x25c,0x6c8)
0x36380…363a0 20 20 65 6e 64 3b 0a 20 20 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 20 20 20 63 6c 6f 73 ┆ end; close(z,true); clos┆
0x363a0…363c0 65 28 63 61 74 2c 74 72 75 65 29 3b 0a 20 20 20 69 66 20 6e 75 6d 62 65 72 3d 30 20 74 68 65 6e ┆e(cat,true); if number=0 then┆
0x363c0…363e0 20 67 6f 74 6f 20 65 6e 64 70 72 6f 67 3b 0a 0a 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ goto endprog; begin ┆
0x363e0…36400 63 6f 6d 6d 65 6e 74 20 6e 6f 77 20 74 68 65 20 61 72 65 61 73 20 61 72 00 00 00 00 00 00 00 00 ┆comment now the areas ar ┆
0x36400…36406 (434,) (0x25c,0x6c9)
0x36406…36420 65 20 63 6f 70 69 65 64 3b 0a 0a 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 ┆e copied; procedure┆
0x36420…36440 20 77 72 69 74 28 74 79 70 65 29 3b 0a 20 20 20 20 20 20 76 61 6c 75 65 20 74 79 70 65 3b 20 20 ┆ writ(type); value type; ┆
0x36440…36460 69 6e 74 65 67 65 72 20 74 79 70 65 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆integer type; begin ┆
0x36460…3647e 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 ┆ comment the procedure write┆
0x3647e…36484 (0x25c,0x6ca)
0x36484…364a0 73 20 74 72 69 61 6e 67 6c 65 73 2c 20 61 72 65 61 20 61 6e 64 20 75 73 65 72 69 64 ┆s triangles, area and userid┆
0x364a0…364c0 20 65 74 63 2e 20 62 65 66 6f 72 65 20 65 78 69 74 0a 20 20 20 20 20 20 20 20 20 74 68 65 20 63 ┆ etc. before exit the c┆
0x364c0…364e0 75 72 72 65 6e 74 20 73 68 61 72 65 20 69 73 20 66 69 6c 6c 65 64 20 77 69 74 68 20 3c 30 3e 2e ┆urrent share is filled with <0>.┆
0x364e0…364fc 20 65 61 63 68 20 74 72 69 61 6e 67 6c 65 20 66 69 6c 6c 73 20 74 77 6f 20 62 6c 6f ┆ each triangle fills two blo┆
0x364fc…36502 (0x25c,0x6cb)
0x36502…36520 63 6b 73 0a 20 20 20 20 20 20 20 20 20 74 79 70 65 3a 20 20 31 20 20 3a 20 73 74 61 72 74 ┆cks type: 1 : start┆
0x36520…36540 2d 74 72 69 61 6e 67 6c 65 2c 20 20 32 3a 20 20 65 6e 64 20 74 72 69 61 6e 67 6c 65 3b 0a 0a 20 ┆-triangle, 2: end triangle; ┆
0x36540…36560 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6e 75 63 68 61 72 2c 20 69 2c 20 72 65 73 74 3b ┆ integer nuchar, i, rest;┆
0x36560…3657a 0a 20 20 20 20 20 20 20 20 20 6e 75 63 68 61 72 3a 3d 30 3b 0a 20 20 20 20 20 ┆ nuchar:=0; ┆
0x3657a…36580 (0x25c,0x6cc)
0x36580…365a0 20 20 20 20 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 2b 28 69 66 20 74 79 70 65 3d 31 20 74 68 ┆ nuchar:=nuchar+(if type=1 th┆
0x365a0…365c0 65 6e 20 77 72 69 74 65 28 6f 75 74 70 75 74 2c 3c 3a 3c 31 35 3e 3a 3e 29 20 65 6c 73 65 0a 20 ┆en write(output,<:<15>:>) else ┆
0x365c0…365e0 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 70 75 74 2c 3c 3a 3c 31 32 3e 3a 3e 29 29 3b ┆ write(output,<:<12>:>));┆
0x365e0…36600 0a 20 20 20 20 20 20 20 20 20 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 00 00 00 00 00 00 00 00 ┆ nuchar:=nuchar ┆
0x36600…36606 (435,) (0x25c,0x6cd)
0x36606…36620 2b 77 72 69 74 65 28 6f 75 74 70 75 74 2c 66 61 6c 73 65 20 61 64 64 20 30 2c ┆+write(output,false add 0,┆
0x36620…36640 31 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 61 72 65 61 3a 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 ┆1,<:<10><10>area: :>); ┆
0x36640…36660 20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 70 75 74 2c 66 61 ┆ i:=1; write(output,fa┆
0x36660…3667e 6c 73 65 20 61 64 64 20 30 2c 28 31 32 2d 77 72 69 74 65 28 6f 75 74 70 75 74 2c 0a 20 20 ┆lse add 0,(12-write(output, ┆
0x3667e…36684 (0x25c,0x6ce)
0x36684…366a0 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 28 63 61 73 65 20 69 6e 63 72 65 61 73 65 ┆ string (case increase┆
0x366a0…366c0 28 69 29 20 6f 66 20 28 7a 2e 6e 61 6d 65 31 2c 20 7a 2e 6e 61 6d 65 32 29 29 29 29 29 3b 0a 20 ┆(i) of (z.name1, z.name2))))); ┆
0x366c0…366e0 20 20 20 20 20 20 20 20 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 2b 31 32 3b 20 20 69 3a 3d 31 ┆ nuchar:=nuchar+12; i:=1┆
0x366e0…366fc 3b 0a 20 20 20 20 20 20 20 20 20 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 2b 77 72 ┆; nuchar:=nuchar+wr┆
0x366fc…36702 (0x25c,0x6cf)
0x36702…36720 69 74 65 28 6f 75 74 70 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 70 61 70 65 72 74 79 70 65 ┆ite(output,<:<10><10>papertype┆
0x36720…36740 20 3a 20 20 3a 3e 2c 3c 3c 7a 64 64 3e 2c 70 61 70 65 72 2c 0a 20 20 20 20 20 20 20 20 20 3c 3a ┆ : :>,<<zdd>,paper, <:┆
0x36740…36760 3c 31 30 3e 3c 31 30 3e 73 69 7a 65 3a 20 3a 3e 2c 3c 3c 7a 64 64 64 3e 2c 6e 75 73 65 67 6d 2c ┆<10><10>size: :>,<<zddd>,nusegm,┆
0x36760…3677a 0a 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 2c 73 74 72 ┆ <:<10><10>:>,str┆
0x3677a…36780 (0x25c,0x6d0)
0x36780…367a0 69 6e 67 20 75 73 65 72 63 61 74 2e 75 73 65 72 6e 61 6d 65 62 61 73 65 28 69 6e 63 72 65 61 73 ┆ing usercat.usernamebase(increas┆
0x367a0…367c0 65 28 69 29 29 2c 0a 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 30 2c 31 29 3b 0a ┆e(i)), false add 0,1); ┆
0x367c0…367e0 20 20 20 20 20 20 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 32 ┆ for i:=1 step 1 until 2┆
0x367e0…36800 35 20 64 6f 20 63 61 73 65 20 74 79 70 65 20 6f 66 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆5 do case type of ┆
0x36800…36806 (436,) (0x25c,0x6d1)
0x36806…36820 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 75 63 68 61 ┆ begin nucha┆
0x36820…36840 72 3a 3d 6e 75 63 68 61 72 2b 77 72 69 74 65 28 6f 75 74 70 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c ┆r:=nuchar+write(output,<:<10>:>,┆
0x36840…36860 66 61 6c 73 65 20 61 64 64 20 33 32 2c 28 69 2d 31 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆false add 32,(i-1), ┆
0x36860…3687e 66 61 6c 73 65 20 61 64 64 20 34 32 2c 28 32 35 2d 69 29 2a 32 2b 31 29 3b 0a 20 20 20 20 ┆false add 42,(25-i)*2+1); ┆
0x3687e…36884 (0x25c,0x6d2)
0x36884…368a0 20 20 20 20 20 20 20 20 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 2b 77 72 69 74 65 ┆ nuchar:=nuchar+write┆
0x368a0…368c0 28 6f 75 74 70 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 66 61 6c 73 65 20 61 64 64 20 33 32 2c 28 32 ┆(output,<:<10>:>,false add 32,(2┆
0x368c0…368e0 35 2d 69 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 34 32 2c 28 ┆5-i), false add 42,(┆
0x368e0…368fc 32 2a 69 29 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆2*i)-1); end; ┆
0x368fc…36902 (0x25c,0x6d3)
0x36902…36920 20 20 20 20 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 2b 77 72 69 74 65 28 6f 75 74 70 75 ┆ nuchar:=nuchar+write(outpu┆
0x36920…36940 74 2c 66 61 6c 73 65 20 61 64 64 20 31 32 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d ┆t,false add 12,1); comm┆
0x36940…36960 65 6e 74 20 6e 6f 77 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 ┆ent now the rest of the current ┆
0x36960…3697a 73 68 61 72 65 20 69 73 20 66 69 6c 6c 65 64 20 77 69 74 68 20 3c 30 3e 3b 0a ┆share is filled with <0>; ┆
0x3697a…36980 (0x25c,0x6d4)
0x36980…369a0 20 20 20 20 20 20 20 20 20 72 65 73 74 3a 3d 6e 75 63 68 61 72 20 6d 6f 64 20 37 36 38 3b 0a 20 ┆ rest:=nuchar mod 768; ┆
0x369a0…369c0 20 20 20 20 20 20 20 20 69 66 20 72 65 73 74 3e 30 20 74 68 65 6e 20 6e 75 63 68 61 72 3a 3d 6e ┆ if rest>0 then nuchar:=n┆
0x369c0…369e0 75 63 68 61 72 2b 77 72 69 74 65 28 6f 75 74 70 75 74 2c 66 61 6c 73 65 20 61 64 64 20 30 2c 37 ┆uchar+write(output,false add 0,7┆
0x369e0…36a00 36 38 2d 72 65 73 74 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 70 72 6f 63 00 00 00 00 00 00 00 00 ┆68-rest); end proc ┆
0x36a00…36a06 (437,) (0x25c,0x6d5)
0x36a06…36a20 65 64 75 72 65 20 77 72 69 74 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 ┆edure writ; comment sm ┆
0x36a20…36a40 37 35 2e 30 39 2e 30 38 20 20 74 73 61 76 65 63 6f 6e 76 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆75.09.08 tsaveconv ┆
0x36a40…36a60 20 20 20 20 20 20 20 20 20 2e 2e 2e 34 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ...4... ┆
0x36a60…36a7e 20 20 20 20 3b 0a 20 20 0a 20 20 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 ┆ ; integer proc┆
0x36a7e…36a84 (0x25c,0x6d6)
0x36a84…36aa0 65 64 75 72 65 20 73 63 61 6e 5f 6f 72 5f 63 6f 70 79 28 74 79 70 65 29 3b 0a 20 20 ┆edure scan_or_copy(type); ┆
0x36aa0…36ac0 20 20 20 20 76 61 6c 75 65 20 74 79 70 65 3b 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 3b 0a 20 ┆ value type; integer type; ┆
0x36ac0…36ae0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 ┆ begin comment the ┆
0x36ae0…36afc 70 72 6f 63 65 64 75 72 65 20 65 69 74 68 65 72 20 73 63 61 6e 73 20 6f 72 20 63 6f ┆procedure either scans or co┆
0x36afc…36b02 (0x25c,0x6d7)
0x36b02…36b20 70 69 65 73 20 61 6e 20 61 72 65 61 2e 20 74 68 65 20 61 72 65 61 20 69 73 20 64 65 73 63 ┆pies an area. the area is desc┆
0x36b20…36b40 72 69 62 65 64 0a 20 20 20 20 20 20 20 20 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 74 68 65 20 66 ┆ribed by means of the f┆
0x36b40…36b60 69 65 6c 64 2d 76 61 72 69 61 62 6c 65 73 20 6e 61 6d 65 31 20 61 6e 64 20 6e 61 6d 65 32 20 28 ┆ield-variables name1 and name2 (┆
0x36b60…36b7a 66 69 65 6c 64 73 20 69 6e 20 74 68 65 20 7a 6f 6e 65 20 7a 3a 0a 20 20 20 20 ┆fields in the zone z: ┆
0x36b7a…36b80 (0x25c,0x6d8)
0x36b80…36ba0 20 20 20 20 20 68 65 6c 70 63 61 74 61 6c 6f 67 2e 0a 20 20 20 20 20 20 20 20 20 74 79 70 65 3d ┆ helpcatalog. type=┆
0x36ba0…36bc0 31 3a 20 74 68 65 20 61 72 65 61 20 69 73 20 73 63 61 6e 6e 65 64 2c 20 73 63 61 6e 5f 6f 72 5f ┆1: the area is scanned, scan_or_┆
0x36bc0…36be0 63 6f 70 79 3a 3d 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 2c 0a 20 20 20 20 20 20 ┆copy:=number of segments, ┆
0x36be0…36c00 20 20 20 74 79 70 65 3d 32 3a 20 74 68 65 20 61 72 65 61 20 69 73 20 63 00 00 00 00 00 00 00 00 ┆ type=2: the area is c ┆
0x36c00…36c06 (438,) (0x25c,0x6d9)
0x36c06…36c20 6f 70 69 65 64 20 74 6f 20 74 61 70 65 2c 20 6c 61 73 74 20 62 6c 6f 63 6b 20 ┆opied to tape, last block ┆
0x36c20…36c40 69 73 20 66 69 6c 6c 65 64 20 77 69 74 68 20 3c 30 3e 3b 0a 0a 20 20 20 20 20 20 20 20 20 70 72 ┆is filled with <0>; pr┆
0x36c40…36c60 6f 63 65 64 75 72 65 20 73 6b 69 70 28 7a 2c 73 2c 62 29 3b 0a 20 20 20 20 20 20 20 20 20 7a 6f ┆ocedure skip(z,s,b); zo┆
0x36c60…36c7e 6e 65 20 7a 3b 20 20 69 6e 74 65 67 65 72 20 73 2c 62 3b 0a 20 20 20 20 20 20 20 20 20 62 ┆ne z; integer s,b; b┆
0x36c7e…36c84 (0x25c,0x6da)
0x36c84…36ca0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 74 6f ┆egin comment sto┆
0x36ca0…36cc0 70 20 63 6f 6e 76 65 72 73 69 6f 6e 20 6f 6e 20 61 6e 79 20 73 74 61 74 75 73 62 69 74 3b 0a 20 ┆p conversion on any statusbit; ┆
0x36cc0…36ce0 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 2a ┆ write(out,<:<12><10>*┆
0x36ce0…36cfc 2a 2a 20 68 61 72 64 65 72 72 6f 72 2c 20 64 65 63 69 6d 61 6c 20 73 74 61 74 75 73 ┆** harderror, decimal status┆
0x36cfc…36d02 (0x25c,0x6db)
0x36d02…36d20 20 3d 3a 3e 2c 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 74 65 72 6d ┆ =:>,s); goto term┆
0x36d20…36d40 69 6e 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 20 70 72 6f 63 65 64 75 72 65 20 73 6b ┆inate; end procedure sk┆
0x36d40…36d60 69 70 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 20 61 72 65 61 28 31 32 38 2c 31 2c 73 ┆ip; zone area(128,1,s┆
0x36d60…36d7a 6b 69 70 29 3b 0a 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 ┆kip); integer i, ┆
0x36d7a…36d80 (0x25c,0x6dc)
0x36d80…36da0 6b 2c 20 6a 2c 20 73 68 69 66 74 73 2c 20 20 6e 75 63 68 61 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆k, j, shifts, nuchar; ┆
0x36da0…36dc0 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 28 31 3a 32 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆integer array ia(1:20); ┆
0x36dc0…36de0 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 6b 3a 3d ┆ integer field rel; k:=┆
0x36de0…36e00 30 3b 0a 20 20 20 20 20 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆0; i:=1; ┆
0x36e00…36e06 (439,) (0x25c,0x6dd)
0x36e06…36e20 20 20 20 6f 70 65 6e 28 61 72 65 61 2c 34 2c 73 74 72 69 6e 67 20 28 63 61 73 ┆ open(area,4,string (cas┆
0x36e20…36e40 65 20 69 6e 63 72 65 61 73 65 28 69 29 20 6f 66 20 28 7a 2e 6e 61 6d 65 31 2c 7a 2e 6e 61 6d 65 ┆e increase(i) of (z.name1,z.name┆
0x36e40…36e60 32 29 29 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆2)),0); i:=1; ┆
0x36e60…36e7e 69 66 20 74 79 70 65 3d 31 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a ┆if type=1 then goto nextsegm; ┆
0x36e7e…36e84 (0x25c,0x6de)
0x36e84…36ea0 20 20 20 20 20 20 20 20 20 6b 3a 3d 6e 75 73 65 67 6d 2d 31 3b 0a 20 20 20 20 20 20 ┆ k:=nusegm-1; ┆
0x36ea0…36ec0 20 20 20 67 65 74 7a 6f 6e 65 36 28 6f 75 74 70 75 74 2c 69 61 29 3b 0a 20 20 20 20 20 20 20 20 ┆ getzone6(output,ia); ┆
0x36ec0…36ee0 20 69 61 28 31 33 29 3a 3d 36 3b 0a 20 20 20 20 20 20 20 20 20 73 65 74 7a 6f 6e 65 36 28 6f 75 ┆ ia(13):=6; setzone6(ou┆
0x36ee0…36efc 74 70 75 74 2c 69 61 29 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 ┆tput,ia); for i:=1 ┆
0x36efc…36f02 (0x25c,0x6df)
0x36f02…36f20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6b 20 64 6f 0a 20 20 20 20 20 20 20 20 20 62 65 67 ┆step 1 until k do beg┆
0x36f20…36f40 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 6f 75 74 70 75 74 2c 35 31 ┆in outrec6(output,51┆
0x36f40…36f60 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 61 72 65 61 2c 35 31 32 29 ┆2); inrec6(area,512)┆
0x36f60…36f7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 ┆; for j:=1 ste┆
0x36f7a…36f80 (0x25c,0x6e0)
0x36f80…36fa0 70 20 31 20 75 6e 74 69 6c 20 31 32 38 20 64 6f 20 6f 75 74 70 75 74 28 6a 29 3a 3d 61 72 65 61 ┆p 1 until 128 do output(j):=area┆
0x36fa0…36fc0 28 6a 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 72 ┆(j); end; outr┆
0x36fc0…36fe0 65 63 36 28 6f 75 74 70 75 74 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 67 65 74 7a 6f 6e ┆ec6(output,512); getzon┆
0x36fe0…37000 65 36 28 6f 75 74 70 75 74 2c 69 61 29 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆e6(output,ia); ┆
0x37000…37006 (440,) (0x25c,0x6e1)
0x37006…37020 69 61 28 31 33 29 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 73 65 74 7a 6f 6e ┆ia(13):=3; setzon┆
0x37020…37040 65 36 28 6f 75 74 70 75 74 2c 69 61 29 3b 0a 6e 65 78 74 73 65 67 6d 3a 0a 6a 3a 3d 69 6e 72 65 ┆e6(output,ia); nextsegm: j:=inre┆
0x37040…37060 63 36 28 61 72 65 61 2c 30 29 3b 0a 69 6e 72 65 63 36 28 61 72 65 61 2c 6a 29 3b 0a 20 20 20 20 ┆c6(area,0); inrec6(area,j); ┆
0x37060…3707e 20 20 20 20 20 6b 3a 3d 6b 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 6e 75 63 68 61 72 3a 3d ┆ k:=k+1; nuchar:=┆
0x3707e…37084 (0x25c,0x6e2)
0x37084…370a0 30 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 72 65 6c 3a 3d 32 20 73 74 65 70 20 ┆0; for rel:=2 step ┆
0x370a0…370c0 32 20 75 6e 74 69 6c 20 6a 20 64 6f 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 68 69 66 74 73 ┆2 until j do for shifts┆
0x370c0…370e0 3a 3d 2d 31 36 20 73 74 65 70 20 38 20 75 6e 74 69 6c 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆:=-16 step 8 until 0 do ┆
0x370e0…370fc 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 61 72 65 61 2e 72 ┆ begin i:=area.r┆
0x370fc…37102 (0x25c,0x6e3)
0x37102…37120 65 6c 20 73 68 69 66 74 20 73 68 69 66 74 73 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 ┆el shift shifts extract 8; ┆
0x37120…37140 20 20 20 20 20 20 20 20 20 69 66 20 69 3d 32 35 20 6f 72 20 69 3e 31 32 37 20 74 68 65 6e 20 67 ┆ if i=25 or i>127 then g┆
0x37140…37160 6f 74 6f 20 74 65 72 6d 69 6e 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 79 ┆oto terminate; if ty┆
0x37160…3717a 70 65 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆pe=2 then begi┆
0x3717a…37180 (0x25c,0x6e4)
0x37180…371a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 70 75 74 2c ┆n outchar(output,┆
0x371a0…371c0 69 29 3b 20 20 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆i); nuchar:=nuchar+1; ┆
0x371c0…371e0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 67 ┆ end; end; g┆
0x371e0…37200 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 0a 74 65 72 6d 69 6e 61 74 65 00 00 00 00 00 00 00 00 ┆oto nextsegm; terminate ┆
0x37200…37206 (441,) (0x25c,0x6e5)
0x37206…37220 3a 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 79 70 65 3d 32 20 74 68 65 6e 20 ┆: if type=2 then ┆
0x37220…37240 6e 75 63 68 61 72 3a 3d 6e 75 63 68 61 72 2b 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆nuchar:=nuchar+ write(o┆
0x37240…37260 75 74 70 75 74 2c 66 61 6c 73 65 20 61 64 64 20 30 2c 37 36 38 2d 6e 75 63 68 61 72 29 3b 0a 20 ┆utput,false add 0,768-nuchar); ┆
0x37260…3727e 20 20 20 20 20 20 20 20 6a 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 79 70 65 ┆ j:=1; if type┆
0x3727e…37284 (0x25c,0x6e6)
0x37284…372a0 3d 32 20 61 6e 64 20 69 3e 31 32 37 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆=2 and i>127 then ┆
0x372a0…372c0 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 66 61 6c 73 65 20 61 64 64 20 33 32 ┆ write(out,<:<10>:>,false add 32┆
0x372c0…372e0 2c 20 32 30 2c 3c 3a 63 6f 6e 76 65 72 73 69 6f 6e 20 6f 66 20 3a 3e 2c 0a 20 20 20 20 20 20 20 ┆, 20,<:conversion of :>, ┆
0x372e0…372fc 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 28 63 61 73 65 20 69 6e 63 72 65 61 ┆ string(case increa┆
0x372fc…37302 (0x25c,0x6e7)
0x37302…37320 73 65 28 6a 29 20 6f 66 20 28 7a 2e 6e 61 6d 65 31 2c 20 7a 2e 6e 61 6d 65 32 29 29 2c 0a ┆se(j) of (z.name1, z.name2)), ┆
0x37320…37340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 74 65 72 6d 69 6e 61 74 65 64 2e 20 ┆ <: terminated. ┆
0x37340…37360 69 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 74 65 72 20 66 6f 75 6e 64 3a 3e 29 3b 0a 20 20 20 20 ┆illegal character found:>); ┆
0x37360…3737a 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 ┆ comment the current b┆
0x3737a…37380 (0x25c,0x6e8)
0x37380…373a0 6c 6f 63 6b 20 69 73 20 66 69 6c 6c 65 64 20 77 69 74 68 20 3c 30 3e 2c 20 6c 61 73 74 20 63 68 ┆lock is filled with <0>, last ch┆
0x373a0…373c0 61 72 61 63 74 65 72 3a 20 3c 32 35 3e 3b 0a 20 20 20 20 20 20 20 20 20 73 63 61 6e 5f 6f 72 5f ┆aracter: <25>; scan_or_┆
0x373c0…373e0 63 6f 70 79 3a 3d 28 69 66 20 74 79 70 65 3d 31 20 74 68 65 6e 20 6b 20 65 6c 73 65 20 6e 75 63 ┆copy:=(if type=1 then k else nuc┆
0x373e0…37400 68 61 72 29 3b 0a 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 61 72 65 00 00 00 00 00 00 00 00 ┆har); close(are ┆
0x37400…37406 (442,) (0x25c,0x6e9)
0x37406…37420 61 2c 20 74 72 75 65 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 70 72 6f 63 65 64 ┆a, true); end proced┆
0x37420…37440 75 72 65 20 73 63 61 6e 5f 6f 72 5f 63 6f 70 79 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 ┆ure scan_or_copy; comment sm ┆
0x37440…37460 37 35 2e 30 39 2e 30 38 20 20 74 73 61 76 65 63 6f 6e 76 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆75.09.08 tsaveconv ┆
0x37460…3747e 20 20 20 20 20 20 20 20 20 2e 2e 2e 35 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ...5... ┆
0x3747e…37484 (0x25c,0x6ea)
0x37484…374a0 20 20 20 20 20 20 3b 0a 20 20 0a 0a 20 20 20 20 20 20 7a 6f 6e 65 20 7a 28 65 6e 74 ┆ ; zone z(ent┆
0x374a0…374c0 69 65 72 28 6e 75 6d 62 65 72 2a 33 34 2f 34 29 20 73 68 69 66 74 20 28 2d 37 29 20 61 64 64 20 ┆ier(number*34/4) shift (-7) add ┆
0x374c0…374e0 31 20 73 68 69 66 74 20 37 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 2c 0a 20 20 20 20 20 20 6f ┆1 shift 7, 1, stderror), o┆
0x374e0…374fc 75 74 70 75 74 28 32 35 36 2c 32 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 20 ┆utput(256,2,stderror); ┆
0x374fc…37502 (0x25c,0x6eb)
0x37502…37520 20 72 65 61 6c 20 61 72 72 61 79 20 61 28 31 3a 6e 75 6d 62 65 72 29 3b 0a 20 20 20 20 20 ┆ real array a(1:number); ┆
0x37520…37540 20 72 65 61 6c 20 74 65 6d 70 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6d 2c 20 ┆ real temp; integer i, m, ┆
0x37540…37560 6b 2c 20 6a 2c 20 70 61 70 65 72 2c 20 61 64 72 2c 20 6e 75 73 65 67 6d 2c 20 66 69 6c 65 6e 6f ┆k, j, paper, adr, nusegm, fileno┆
0x37560…3757a 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 2c 34 2c 3c 3a 68 65 6c 70 63 61 74 ┆; open(z,4,<:helpcat┆
0x3757a…37580 (0x25c,0x6ec)
0x37580…375a0 61 6c 6f 67 3a 3e 2c 30 29 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 33 34 2a 6e 75 6d ┆alog:>,0); inrec6(z,34*num┆
0x375a0…375c0 62 65 72 29 3b 0a 20 20 20 20 20 20 70 61 70 65 72 74 79 70 65 3a 3d 2d 32 3b 0a 20 20 20 20 20 ┆ber); papertype:=-2; ┆
0x375c0…375e0 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 75 6d 62 65 72 20 64 6f ┆ for i:=1 step 1 until number do┆
0x375e0…37600 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 70 61 00 00 00 00 00 00 00 00 ┆ begin pa ┆
0x37600…37606 (443,) (0x25c,0x6ed)
0x37606…37620 70 65 72 74 79 70 65 3a 3d 70 61 70 65 72 74 79 70 65 2b 33 34 3b 0a 20 20 20 ┆pertype:=papertype+34; ┆
0x37620…37640 20 20 20 20 20 20 61 28 69 29 3a 3d 30 2e 30 20 73 68 69 66 74 20 32 34 20 61 64 64 20 28 7a 2e ┆ a(i):=0.0 shift 24 add (z.┆
0x37640…37660 70 61 70 65 72 74 79 70 65 20 65 78 74 72 61 63 74 20 31 32 29 20 73 68 69 66 74 20 32 34 20 61 ┆papertype extract 12) shift 24 a┆
0x37660…3767e 64 64 20 69 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆dd i; end; comment┆
0x3767e…37684 (0x25c,0x6ee)
0x37684…376a0 20 6e 6f 77 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 61 72 72 ┆ now each element of the arr┆
0x376a0…376c0 61 79 20 61 20 68 6f 6c 64 73 20 70 61 70 65 72 74 79 70 65 2c 20 72 65 63 6f 72 64 6e 75 6d 62 ┆ay a holds papertype, recordnumb┆
0x376c0…376e0 65 72 2e 0a 20 20 20 20 20 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 73 20 6e 6f 77 20 73 6f ┆er. the elements is now so┆
0x376e0…376fc 72 74 65 64 20 28 73 68 65 6c 6c 2d 73 6f 72 74 29 3b 0a 20 20 20 20 20 20 66 6f 72 ┆rted (shell-sort); for┆
0x376fc…37702 (0x25c,0x6ef)
0x37702…37720 20 69 3a 3d 31 20 73 74 65 70 20 69 20 75 6e 74 69 6c 20 6e 75 6d 62 65 72 20 64 6f 20 6d ┆ i:=1 step i until number do m┆
0x37720…37740 3a 3d 32 2a 69 2d 31 3b 0a 20 20 20 20 20 20 66 6f 72 20 6d 3a 3d 6d 2f 2f 32 20 77 68 69 6c 65 ┆:=2*i-1; for m:=m//2 while┆
0x37740…37760 20 6d 3c 3e 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6b 3a ┆ m<>0 do begin k:┆
0x37760…3777a 3d 6e 75 6d 62 65 72 2d 6d 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 6a 3a ┆=number-m; for j:┆
0x3777a…37780 (0x25c,0x6f0)
0x37780…377a0 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6b 20 64 6f 0a 20 20 20 20 20 20 20 20 20 62 65 ┆=1 step 1 until k do be┆
0x377a0…377c0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 6a 20 73 74 65 70 20 2d 6d ┆gin for i:=j step -m┆
0x377c0…377e0 20 75 6e 74 69 6c 20 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ until 1 do begin ┆
0x377e0…37800 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 20 61 28 69 00 00 00 00 00 00 00 00 ┆ if long a(i ┆
0x37800…37806 (444,) (0x25c,0x6f1)
0x37806…37820 2b 6d 29 20 3e 3d 20 6c 6f 6e 67 20 61 28 69 29 20 74 68 65 6e 20 67 6f 74 6f ┆+m) >= long a(i) then goto┆
0x37820…37840 20 6e 65 78 74 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 70 3a 3d 61 28 69 ┆ nextj; temp:=a(i┆
0x37840…37860 29 3b 20 20 61 28 69 29 3a 3d 61 28 69 2b 6d 29 3b 20 20 61 28 69 2b 6d 29 3a 3d 74 65 6d 70 3b ┆); a(i):=a(i+m); a(i+m):=temp;┆
0x37860…3787e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 69 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ end i; ┆
0x3787e…37884 (0x25c,0x6f2)
0x37884…378a0 20 20 6e 65 78 74 6a 3a 0a 20 20 20 20 20 20 20 20 20 65 6e 64 20 6a 3b 0a 20 20 20 ┆ nextj: end j; ┆
0x378a0…378c0 20 20 20 65 6e 64 20 6d 3b 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 77 20 74 68 65 ┆ end m; comment now the┆
0x378c0…378e0 20 61 72 72 61 79 20 61 20 63 6f 6e 74 61 69 6e 73 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 77 ┆ array a contains elements of tw┆
0x378e0…378fc 6f 20 69 6e 74 65 67 65 72 2d 66 69 65 6c 64 73 20 65 61 63 68 2e 0a 20 20 20 20 20 ┆o integer-fields each. ┆
0x378fc…37902 (0x25c,0x6f3)
0x37902…37920 20 66 69 72 73 74 20 77 6f 72 64 3a 20 70 61 70 65 72 74 79 70 65 2c 20 73 65 63 6f 6e 64 ┆ first word: papertype, second┆
0x37920…37940 20 77 6f 72 64 3a 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 72 65 63 6f 72 64 0a ┆ word: the number of the record ┆
0x37940…37960 20 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 68 65 6c 70 63 61 74 61 6c 6f 67 20 28 74 ┆ in the file helpcatalog (t┆
0x37960…3797a 68 65 20 7a 6f 6e 65 20 7a 29 0a 20 20 20 20 20 20 6e 6f 77 20 74 68 65 20 61 ┆he zone z) now the a┆
0x3797a…37980 (0x25c,0x6f4)
0x37980…379a0 72 65 61 73 20 61 72 65 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 64 69 73 63 20 74 6f 20 74 61 70 ┆reas are copied from disc to tap┆
0x379a0…379c0 65 3b 0a 20 20 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 6f 75 74 70 75 74 ┆e; i:=1; open(output┆
0x379c0…379e0 2c 6d 6f 64 65 20 73 68 69 66 74 20 31 32 2b 31 38 2c 73 74 72 69 6e 67 20 70 61 72 61 6d 31 28 ┆,mode shift 12+18,string param1(┆
0x379e0…37a00 69 6e 63 72 65 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 20 20 20 20 70 00 00 00 00 00 00 00 00 ┆increase(i)),0); p ┆
0x37a00…37a06 (445,) (0x25c,0x6f5)
0x37a06…37a20 61 70 65 72 3a 3d 61 28 31 29 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 ┆aper:=a(1) shift (-24) ext┆
0x37a20…37a40 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 31 3b 20 20 73 65 74 70 6f ┆ract 24; fileno:=1; setpo┆
0x37a40…37a60 73 69 74 69 6f 6e 28 6f 75 74 70 75 74 2c 66 69 6c 65 6e 6f 2c 30 29 3b 0a 20 20 20 20 20 20 63 ┆sition(output,fileno,0); c┆
0x37a60…37a7e 6f 6d 6d 65 6e 74 20 74 68 65 20 66 69 72 73 74 20 66 69 6c 65 2c 20 66 69 72 73 74 20 62 ┆omment the first file, first b┆
0x37a7e…37a84 (0x25c,0x6f6)
0x37a84…37aa0 6c 6f 63 6b 20 69 73 20 6e 6f 77 20 77 72 69 74 74 65 6e 2e 20 69 74 20 63 6f 6e 74 ┆lock is now written. it cont┆
0x37aa0…37ac0 61 69 6e 73 20 74 68 65 20 6e 75 6d 2d 0a 20 20 20 20 20 20 62 65 72 20 6f 66 20 61 72 65 61 73 ┆ains the num- ber of areas┆
0x37ac0…37ae0 20 74 6f 20 62 65 20 63 6f 70 69 65 64 20 61 6e 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 ┆ to be copied and information ab┆
0x37ae0…37afc 6f 75 74 20 74 68 65 20 70 61 70 65 72 74 79 70 65 0a 20 20 20 20 20 20 74 6f 20 62 ┆out the papertype to b┆
0x37afc…37b02 (0x25c,0x6f7)
0x37b02…37b20 65 20 75 73 65 64 20 66 69 72 73 74 3b 0a 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆e used first; write(out┆
0x37b20…37b40 70 75 74 2c 3c 3a 3c 31 35 3e 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 6e 75 6d 62 65 72 20 6f 66 20 ┆put,<:<15><12><10><10>number of ┆
0x37b40…37b60 61 72 65 61 73 3a 20 3a 3e 2c 0a 20 20 20 20 20 20 3c 3c 7a 64 64 3e 2c 6e 75 6d 62 65 72 29 3b ┆areas: :>, <<zdd>,number);┆
0x37b60…37b7a 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 ┆ for i:=1 step 1 unt┆
0x37b7a…37b80 (0x25c,0x6f8)
0x37b80…37ba0 69 6c 20 32 30 20 64 6f 20 77 72 69 74 65 28 6f 75 74 70 75 74 2c 0a 20 20 20 20 20 20 3c 3a 3c ┆il 20 do write(output, <:<┆
0x37ba0…37bc0 31 30 3e 3c 31 30 3e 20 70 75 74 20 70 61 70 65 72 20 6f 66 20 74 79 70 65 20 3a 3e 2c 3c 3c 7a ┆10><10> put paper of type :>,<<z┆
0x37bc0…37be0 64 64 3e 2c 70 61 70 65 72 2c 3c 3a 20 69 6e 20 70 72 69 6e 74 65 72 21 3a 3e 29 3b 0a 20 20 20 ┆dd>,paper,<: in printer!:>); ┆
0x37be0…37c00 20 20 20 77 72 69 74 65 28 6f 75 74 70 75 74 2c 66 61 6c 73 65 20 61 64 00 00 00 00 00 00 00 00 ┆ write(output,false ad ┆
0x37c00…37c06 (446,) (0x25c,0x6f9)
0x37c06…37c20 64 20 31 30 2c 31 30 2c 66 61 6c 73 65 20 61 64 64 20 30 2c 31 33 2c 66 61 6c ┆d 10,10,false add 0,13,fal┆
0x37c20…37c40 73 65 20 61 64 64 20 31 32 2c 31 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 ┆se add 12,1); comment the ┆
0x37c40…37c60 62 6c 6f 63 6b 20 69 73 20 66 69 6c 6c 65 64 20 77 69 74 68 20 3c 30 3e 3b 0c 0a 63 6f 6d 6d 65 ┆block is filled with <0>; comme┆
0x37c60…37c7e 6e 74 20 20 73 6d 20 37 35 2e 30 39 2e 30 38 20 20 74 73 61 76 65 63 6f 6e 76 20 20 20 20 ┆nt sm 75.09.08 tsaveconv ┆
0x37c7e…37c84 (0x25c,0x6fa)
0x37c84…37ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 36 2e 2e 2e 20 20 20 ┆ ...6... ┆
0x37ca0…37cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 0a 20 20 0a 20 20 20 20 20 20 77 ┆ ; w┆
0x37cc0…37ce0 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 63 6f 70 69 65 64 20 61 72 65 61 73 3a 3c 31 30 ┆rite(out,<:<10> copied areas:<10┆
0x37ce0…37cfc 3e 66 69 6c 65 6e 6f 20 6f 6e 20 74 61 70 65 3c 31 30 3e 3a 3e 2c 0a 20 20 20 20 20 ┆>fileno on tape<10>:>, ┆
0x37cfc…37d02 (0x25c,0x6fb)
0x37d02…37d20 20 3c 3a 20 20 20 20 20 70 61 70 65 72 74 79 70 65 3c 31 30 3e 20 20 20 20 20 20 20 20 20 ┆ <: papertype<10> ┆
0x37d20…37d40 20 66 69 6c 65 6e 61 6d 65 3c 31 30 3e 3a 3e 29 3b 0a 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d ┆ filename<10>:>); for i:=┆
0x37d40…37d60 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 75 6d 62 65 72 20 64 6f 0a 20 20 20 20 20 20 62 ┆1 step 1 until number do b┆
0x37d60…37d7a 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 ┆egin comment the ┆
0x37d7a…37d80 (0x25c,0x6fc)
0x37d80…37da0 61 72 65 61 73 20 61 72 65 20 63 6f 70 69 65 64 2e 20 66 6f 72 20 65 61 63 68 20 61 72 65 61 20 ┆areas are copied. for each area ┆
0x37da0…37dc0 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 77 72 69 74 74 65 6e 3a 0a 20 20 20 20 20 20 ┆the following is written: ┆
0x37dc0…37de0 20 20 20 61 20 6c 65 61 64 69 6e 67 20 74 72 69 61 6e 67 6c 65 20 77 69 74 68 20 69 64 2d 69 6e ┆ a leading triangle with id-in┆
0x37de0…37e00 66 6f 72 6d 61 74 69 6f 6e 20 28 32 20 62 6c 6f 63 6b 73 29 2c 0a 20 20 00 00 00 00 00 00 00 00 ┆formation (2 blocks), ┆
0x37e00…37e06 (447,) (0x25c,0x6fd)
0x37e06…37e20 20 20 20 20 20 20 20 74 68 65 20 61 72 65 61 20 69 74 73 65 6c 66 20 61 6e 64 ┆ the area itself and┆
0x37e20…37e40 20 61 20 74 65 72 6d 69 6e 61 74 69 6e 67 20 74 72 69 61 6e 67 6c 65 20 28 32 20 62 6c 6f 63 6b ┆ a terminating triangle (2 block┆
0x37e40…37e60 73 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 61 64 72 3a 3d 28 28 61 28 69 29 20 65 78 74 72 61 63 ┆s); adr:=((a(i) extrac┆
0x37e60…37e7e 74 20 32 34 29 20 2d 20 31 29 20 2a 20 33 34 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d ┆t 24) - 1) * 34; comm┆
0x37e7e…37e84 (0x25c,0x6fe)
0x37e84…37ea0 65 6e 74 20 61 64 72 20 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 20 62 79 74 65 20 6a ┆ent adr points to the byte j┆
0x37ea0…37ec0 75 73 74 20 62 65 66 6f 72 65 20 74 68 65 20 61 63 74 75 61 6c 20 72 65 63 6f 72 64 3b 0a 0a 20 ┆ust before the actual record; ┆
0x37ec0…37ee0 20 20 20 20 20 20 20 20 70 61 70 65 72 74 79 70 65 3a 3d 33 32 2b 61 64 72 3b 0a 20 20 20 20 20 ┆ papertype:=32+adr; ┆
0x37ee0…37efc 20 20 20 20 6e 61 6d 65 31 3a 3d 31 30 2b 61 64 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆ name1:=10+adr; ┆
0x37efc…37f02 (0x25c,0x6ff)
0x37f02…37f20 6e 61 6d 65 32 3a 3d 31 34 2b 61 64 72 3b 0a 20 20 20 20 20 20 20 20 20 75 73 65 72 69 64 ┆name2:=14+adr; userid┆
0x37f20…37f40 3a 3d 32 36 2b 61 64 72 3b 0a 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 75 ┆:=26+adr; setposition(u┆
0x37f40…37f60 73 65 72 63 61 74 2c 30 2c 7a 2e 75 73 65 72 69 64 20 73 68 69 66 74 20 28 2d 31 32 29 29 3b 0a ┆sercat,0,z.userid shift (-12)); ┆
0x37f60…37f7a 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 75 73 65 72 63 61 74 2c 35 31 ┆ inrec6(usercat,51┆
0x37f7a…37f80 (0x25c,0x700)
0x37f80…37fa0 32 29 3b 0a 20 20 20 20 20 20 20 20 20 75 73 65 72 6e 61 6d 65 62 61 73 65 3a 3d 7a 2e 75 73 65 ┆2); usernamebase:=z.use┆
0x37fa0…37fc0 72 69 64 20 65 78 74 72 61 63 74 20 31 32 3b 0a 0a 20 20 20 20 20 20 20 20 20 69 66 20 70 61 70 ┆rid extract 12; if pap┆
0x37fc0…37fe0 65 72 3c 3e 28 7a 2e 70 61 70 65 72 74 79 70 65 20 65 78 74 72 61 63 74 20 31 32 29 20 74 68 65 ┆er<>(z.papertype extract 12) the┆
0x37fe0…38000 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆n begin ┆
0x38000…38006 (448,) (0x25c,0x701)
0x38006…38020 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 6e 65 78 74 20 61 72 65 61 ┆ comment the next area┆
0x38020…38040 20 74 6f 20 62 65 20 63 6f 70 69 65 64 20 68 61 73 20 73 70 65 63 69 66 69 65 64 20 61 20 70 61 ┆ to be copied has specified a pa┆
0x38040…38060 70 65 72 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 69 66 66 65 72 65 6e 74 20 66 72 ┆pertype different fr┆
0x38060…3807e 6f 6d 20 74 68 65 20 6c 61 73 74 20 6f 6e 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 ┆om the last one; p┆
0x3807e…38084 (0x25c,0x702)
0x38084…380a0 61 70 65 72 3a 3d 7a 2e 70 61 70 65 72 74 79 70 65 20 65 78 74 72 61 63 74 20 31 32 ┆aper:=z.papertype extract 12┆
0x380a0…380c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 31 20 62 6c 6f 63 6b 20 69 73 ┆; comment 1 block is┆
0x380c0…380e0 20 77 72 69 74 74 65 6e 20 28 69 6e 20 69 74 73 20 6f 77 6e 20 66 69 6c 65 29 20 63 6f 6e 74 61 ┆ written (in its own file) conta┆
0x380e0…380fc 69 6e 69 6e 67 20 69 6e 66 6f 72 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6f ┆ining infor- tio┆
0x380fc…38102 (0x25c,0x703)
0x38102…38120 6e 20 74 6f 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 61 62 6f 75 74 20 74 68 65 20 70 61 ┆n to the operator about the pa┆
0x38120…38140 70 65 72 73 68 69 66 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 66 69 ┆pershift; fileno:=fi┆
0x38140…38160 6c 65 6e 6f 2b 31 3b 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 70 75 74 2c 66 69 6c 65 ┆leno+1; setposition(output,file┆
0x38160…3817a 6e 6f 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆no,0); write(o┆
0x3817a…38180 (0x25c,0x704)
0x38180…381a0 75 74 70 75 74 2c 3c 3a 3c 31 35 3e 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 2c 0a 20 20 20 20 ┆utput,<:<15><12><10><10>:>, ┆
0x381a0…381c0 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 30 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆ false add 0,2); ┆
0x381c0…381e0 20 20 20 20 66 6f 72 20 6b 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 35 20 64 6f 20 ┆ for k:=1 step 1 until 15 do ┆
0x381e0…38200 77 72 69 74 65 28 6f 75 74 70 75 74 2c 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆write(output, ┆
0x38200…38206 (449,) (0x25c,0x705)
0x38206…38220 20 20 3c 3a 63 68 61 6e 67 65 20 70 61 70 65 72 20 69 6e 20 70 72 69 6e 74 65 ┆ <:change paper in printe┆
0x38220…38240 72 2e 6e 65 77 20 70 61 70 65 72 74 79 70 65 3a 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆r.new papertype: :>, ┆
0x38240…38260 20 3c 3c 7a 64 64 3e 2c 70 61 70 65 72 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 2c 66 61 6c 73 65 ┆ <<zdd>,paper,<:<10><10>:>,false┆
0x38260…3827e 20 61 64 64 20 30 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆ add 0,4); write(o┆
0x3827e…38284 (0x25c,0x706)
0x38284…382a0 75 74 70 75 74 2c 66 61 6c 73 65 20 61 64 64 20 30 2c 34 31 2c 66 61 6c 73 65 20 61 ┆utput,false add 0,41,false a┆
0x382a0…382c0 64 64 20 31 34 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 ┆dd 14,1); comment th┆
0x382c0…382e0 65 20 62 6c 6f 63 6b 20 69 73 20 66 69 6c 6c 65 64 20 77 69 74 68 20 3c 30 3e 3b 0a 20 20 20 20 ┆e block is filled with <0>; ┆
0x382e0…382fc 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 66 ┆ end; fileno:=f┆
0x382fc…38302 (0x25c,0x707)
0x38302…38320 69 6c 65 6e 6f 2b 31 3b 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 70 75 74 2c 66 ┆ileno+1; setposition(output,f┆
0x38320…38340 69 6c 65 6e 6f 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 6e 75 73 65 67 6d 3a 3d 73 63 61 6e 5f ┆ileno,0); nusegm:=scan_┆
0x38340…38360 6f 72 5f 63 6f 70 79 28 31 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 61 72 65 61 20 69 73 ┆or_copy(1); comment the area is┆
0x38360…3837a 20 73 63 61 6e 6e 65 64 20 74 6f 20 66 69 6e 64 20 69 74 73 20 73 69 7a 65 3b ┆ scanned to find its size;┆
0x3837a…38380 (0x25c,0x708)
0x38380…383a0 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 28 31 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 6c 65 61 64 ┆ writ(1); comment lead┆
0x383a0…383c0 69 6e 67 20 74 72 69 61 6e 67 6c 65 20 69 73 20 77 72 69 74 74 65 6e 3b 0a 20 20 20 20 20 20 20 ┆ing triangle is written; ┆
0x383c0…383e0 20 20 6b 3a 3d 73 63 61 6e 5f 6f 72 5f 63 6f 70 79 28 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 74 ┆ k:=scan_or_copy(2); comment t┆
0x383e0…38400 68 65 20 61 72 65 61 20 69 73 20 63 6f 70 69 65 64 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆he area is copied; ┆
0x38400…38406 (450,) (0x25c,0x709)
0x38406…38420 20 20 20 20 77 72 69 74 28 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 ┆ writ(2); comment the ┆
0x38420…38440 74 65 72 6d 69 6e 61 74 69 6e 67 20 74 72 69 61 6e 67 6c 65 20 69 73 20 77 72 69 74 74 65 6e 3b ┆terminating triangle is written;┆
0x38440…38460 0a 20 20 20 20 20 20 20 20 20 6a 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆ j:=1; write(o┆
0x38460…3847e 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3c 64 64 64 3e 2c 66 69 6c 65 6e 6f 2c 3c 3c 20 20 ┆ut,<:<10>:>,<<ddd>,fileno,<< ┆
0x3847e…38484 (0x25c,0x70a)
0x38484…384a0 64 64 64 3e 2c 70 61 70 65 72 2c 3c 3a 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 ┆ddd>,paper,<: :>, ┆
0x384a0…384c0 73 74 72 69 6e 67 20 28 63 61 73 65 20 69 6e 63 72 65 61 73 65 28 6a 29 20 6f 66 20 28 7a 2e 6e ┆string (case increase(j) of (z.n┆
0x384c0…384e0 61 6d 65 31 2c 7a 2e 6e 61 6d 65 32 29 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 69 3b 0a 0a 20 ┆ame1,z.name2))); end i; ┆
0x384e0…384fc 20 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 66 69 6c 65 6e 6f 2b 31 3b 20 20 73 65 74 70 ┆ fileno:=fileno+1; setp┆
0x384fc…38502 (0x25c,0x70b)
0x38502…38520 6f 73 69 74 69 6f 6e 28 6f 75 74 70 75 74 2c 66 69 6c 65 6e 6f 2c 30 29 3b 0a 20 20 20 20 ┆osition(output,fileno,0); ┆
0x38520…38540 20 20 77 72 69 74 65 28 6f 75 74 70 75 74 2c 3c 3a 3c 31 35 3e 3c 31 32 3e 3c 31 30 3e 3c 31 30 ┆ write(output,<:<15><12><10><10┆
0x38540…38560 3e 3a 3e 2c 66 61 6c 73 65 20 61 64 64 20 30 2c 32 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a ┆>:>,false add 0,2); for i:┆
0x38560…3857a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 35 20 64 6f 20 77 72 69 74 ┆=1 step 1 until 25 do writ┆
0x3857a…38580 (0x25c,0x70c)
0x38580…385a0 65 28 6f 75 74 70 75 74 2c 0a 20 20 20 20 20 20 3c 3a 61 6c 6c 20 66 69 6c 65 73 20 68 61 76 65 ┆e(output, <:all files have┆
0x385a0…385c0 20 62 65 65 6e 20 70 72 69 6e 74 65 64 20 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 ┆ been printed <10><10>:>); ┆
0x385c0…385e0 20 77 72 69 74 65 28 6f 75 74 70 75 74 2c 66 61 6c 73 65 20 61 64 64 20 30 2c 31 31 2c 66 61 6c ┆ write(output,false add 0,11,fal┆
0x385e0…38600 73 65 20 61 64 64 20 31 32 2c 31 29 3b 0a 20 20 20 20 20 20 73 65 74 70 00 00 00 00 00 00 00 00 ┆se add 12,1); setp ┆
0x38600…38606 (451,) (0x25c,0x70d)
0x38606…38620 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 63 6c ┆osition(out,0,0); cl┆
0x38620…38640 6f 73 65 28 6f 75 74 70 75 74 2c 74 72 75 65 29 3b 0a 20 20 20 20 20 20 63 6c 6f 73 65 28 7a 2c ┆ose(output,true); close(z,┆
0x38640…38660 74 72 75 65 29 3b 0a 20 20 20 65 6e 64 3b 0a 20 20 20 20 0a 65 6e 64 70 72 6f 67 3a 0a 20 20 20 ┆true); end; endprog: ┆
0x38660…3867e 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 32 3e 0a 20 20 20 2a 2a 2a 63 6f 6e 76 65 72 ┆write(out, <:<12> ***conver┆
0x3867e…38684 (0x25c,0x70e)
0x38684…386a0 73 69 6f 6e 20 66 69 6e 69 73 68 65 64 0a 20 20 20 3a 3e 29 3b 0a 20 20 20 6f 70 65 ┆sion finished :>); ope┆
0x386a0…386c0 6e 28 7a 2c 20 30 2c 20 3c 3a 3a 3e 2c 20 30 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 72 65 65 73 74 ┆n(z, 0, <::>, 0); comment reest┆
0x386c0…386e0 61 62 6c 69 73 68 20 6f 6c 64 20 63 61 74 61 6c 6f 67 20 62 61 73 65 3b 0a 20 20 20 6d 6f 6e 69 ┆ablish old catalog base; moni┆
0x386e0…386fc 74 6f 72 28 37 32 29 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 3a 28 7a ┆tor(72) set catalog base :(z┆
0x386fc…38702 (0x25c,0x70f)
0x38702…38720 2c 20 30 2c 20 6f 6c 64 63 61 74 62 61 73 65 29 3b 0a 20 20 20 63 6c 6f 73 65 28 7a 2c 20 ┆, 0, oldcatbase); close(z, ┆
0x38720…38740 74 72 75 65 29 3b 0a 20 20 20 63 6c 6f 73 65 28 75 73 65 72 63 61 74 2c 20 74 72 75 65 29 3b 0a ┆true); close(usercat, true); ┆
0x38740…38760 65 78 69 74 3a 20 3b 20 63 6f 6d 6d 65 6e 74 20 75 73 65 64 20 62 79 20 62 61 73 65 20 61 6c 61 ┆exit: ; comment used by base ala┆
0x38760…3877a 72 6d 20 61 6e 64 20 70 61 72 61 6d 65 72 72 3b 0a 65 6e 64 3b 0a 65 6e 64 0a ┆rm and paramerr; end; end ┆
0x3877a…38780 (0x25c,0x710)
0x38780…387a0 19 00 00 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3c ┆ write(out,<:<10>:>,<<┆
0x387a0…387c0 64 64 64 3e 2c 66 69 6c 65 6e 6f 2c 3c 3c 20 20 64 64 64 3e 2c 70 61 70 65 72 2c 3c 3a 20 20 3a ┆ddd>,fileno,<< ddd>,paper,<: :┆
0x387c0…387e0 3e 2c 0a 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 28 63 61 73 65 20 69 6e 63 72 65 61 73 ┆>, string (case increas┆
0x387e0…38800 65 28 6a 29 20 6f 66 20 28 7a 2e 6e 61 6d 65 31 2c 7a 2e 6e 61 6d 65 32 00 00 00 00 00 00 00 00 ┆e(j) of (z.name1,z.name2 ┆
0x38800…38806 (452,) (0x25c,0x711)
0x38806…38820 29 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 69 3b 0a 0a 20 20 20 20 20 20 66 ┆))); end i; f┆
0x38820…38840 69 6c 65 6e 6f 3a 3d 66 69 6c 65 6e 6f 2b 31 3b 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 ┆ileno:=fileno+1; setposition(ou┆
0x38840…38860 74 70 75 74 2c 66 69 6c 65 6e 6f 2c 30 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 70 ┆tput,fileno,0); write(outp┆
0x38860…3887e 75 74 2c 3c 3a 3c 31 35 3e 3c 31 32 3e 3c 31 30 3e 3c 31 30 3e 3a 3e 2c 66 61 6c 73 65 20 ┆ut,<:<15><12><10><10>:>,false ┆
0x3887e…38884 (0x25c,0x712)
0x38884…388a0 61 64 64 20 30 2c 32 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 20 20 20 ┆add 0,2); for i:=1 ┆
0x388a0…388c0 73 74 72 69 6e 67 20 28 63 61 73 65 20 69 6e 63 72 65 61 73 65 28 6a 29 20 6f 66 20 28 7a 2e 6e ┆string (case increase(j) of (z.n┆
0x388c0…388e0 61 6d 65 31 2c 7a 2e 6e 61 6d 65 32 29 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 69 3b 0a 0a 20 ┆ame1,z.name2))); end i; ┆
0x388e0…388fc 20 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 66 69 6c 65 6e 6f 2b 31 3b 20 20 73 65 74 70 ┆ fileno:=fileno+1; setp┆
0x388fc…38902 (0x2c0,0x713)
0x38902…38920 67 65 74 63 6f 6e 76 20 3d 20 73 65 74 20 33 30 20 31 0a 73 63 6f 70 65 20 75 73 65 72 20 ┆getconv = set 30 1 scope user ┆
0x38920…38940 67 65 74 63 6f 6e 76 0a 67 65 74 63 6f 6e 76 20 3d 20 61 6c 67 6f 6c 20 0a 62 65 67 69 6e 20 77 ┆getconv getconv = algol begin w┆
0x38940…38960 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 20 67 65 74 63 6f 6e 76 20 76 65 72 73 ┆rite(out,<:<12><10> getconv vers┆
0x38960…3897a 69 6f 6e 69 64 3a 20 37 36 20 31 30 20 31 39 2c 20 33 20 3c 31 30 3e 3a 3e 29 ┆ionid: 76 10 19, 3 <10>:>)┆
0x3897a…38980 (0x2c0,0x714)
0x38980…389a0 3b 0a 20 20 0a 62 65 67 69 6e 0a 20 63 6f 6d 6d 65 6e 74 20 20 73 6d 20 37 35 2e 30 39 2e 30 38 ┆; begin comment sm 75.09.08┆
0x389a0…389c0 20 20 67 65 74 63 6f 6e 76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e ┆ getconv .┆
0x389c0…389e0 2e 2e 31 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 20 ┆..1... ; ┆
0x389e0…38a00 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 67 72 61 6d 20 63 6f 00 00 00 00 00 00 00 00 ┆ comment the program co ┆
0x38a00…38a06 (453,) (0x2c0,0x715)
0x38a06…38a20 6e 76 65 72 74 73 20 61 72 65 61 73 20 74 68 61 74 20 68 61 76 65 20 62 65 65 ┆nverts areas that have bee┆
0x38a20…38a40 6e 20 63 6f 70 69 65 64 20 74 6f 20 6d 61 67 74 61 70 65 20 62 79 20 74 68 65 20 70 72 6f 67 72 ┆n copied to magtape by the progr┆
0x38a40…38a60 61 6d 0a 20 20 20 73 61 76 65 63 6f 6e 76 2e 0a 20 20 20 65 61 63 68 20 61 72 65 61 20 69 73 20 ┆am saveconv. each area is ┆
0x38a60…38a7e 63 6f 70 69 65 64 20 66 72 6f 6d 20 74 61 70 65 20 74 6f 20 64 69 73 63 20 61 6e 64 20 69 ┆copied from tape to disc and i┆
0x38a7e…38a84 (0x2c0,0x716)
0x38a84…38aa0 73 20 74 68 65 6e 20 63 6f 6e 76 65 72 74 65 64 20 28 62 79 20 6d 65 61 6e 73 20 6f ┆s then converted (by means o┆
0x38aa0…38ac0 66 20 74 68 65 20 73 74 61 6e 64 61 72 64 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 73 79 73 74 ┆f the standard procedure syst┆
0x38ac0…38ae0 65 6d 28 31 30 2c 2e 2e 2e 29 2e 0a 0a 20 20 20 70 72 6f 67 72 61 6d 20 63 61 6c 6c 3a 0a 20 20 ┆em(10,...). program call: ┆
0x38ae0…38afc 20 67 65 74 63 6f 6e 76 20 3c 74 61 70 65 2d 69 64 3e 2e 3c 6d 6f 64 65 3e 20 3c 66 ┆ getconv <tape-id>.<mode> <f┆
0x38afc…38b02 (0x2c0,0x717)
0x38b02…38b20 69 6c 65 6e 6f 3e 2e 3c 6e 75 6d 62 65 72 3e 20 6f 72 0a 20 20 20 67 65 74 63 6f 6e 76 20 ┆ileno>.<number> or getconv ┆
0x38b20…38b40 3c 74 61 70 65 2d 69 64 3e 2e 3c 6d 6f 64 65 3e 20 6f 72 0a 20 20 20 67 65 74 63 6f 6e 76 20 3c ┆<tape-id>.<mode> or getconv <┆
0x38b40…38b60 66 69 6c 65 6e 6f 3e 2e 3c 6e 75 6d 62 65 72 3e 20 6f 72 0a 20 20 20 67 65 74 63 6f 6e 76 0a 0a ┆fileno>.<number> or getconv ┆
0x38b60…38b7a 20 20 20 20 20 3c 74 61 70 65 2d 69 64 3e 20 3a 3a 3d 20 6d 74 3c 69 64 65 6e ┆ <tape-id> ::= mt<iden┆
0x38b7a…38b80 (0x2c0,0x718)
0x38b80…38ba0 74 69 66 69 65 72 3e 0a 20 20 20 20 20 20 20 20 3c 6d 6f 64 65 3e 20 3a 3a 3d 20 6d 74 6f 2c 20 ┆tifier> <mode> ::= mto, ┆
0x38ba0…38bc0 6d 74 65 2c 20 6e 72 7a 20 6f 72 20 6e 72 7a 65 0a 20 20 20 20 20 20 3c 66 69 6c 65 6e 6f 3e 20 ┆mte, nrz or nrze <fileno> ┆
0x38bc0…38be0 3a 3a 3d 20 69 6e 74 65 67 65 72 2c 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 66 69 72 73 74 ┆::= integer, number of the first┆
0x38be0…38c00 20 66 69 6c 65 20 6f 6e 20 74 68 65 20 74 61 70 65 20 74 6f 20 62 65 20 00 00 00 00 00 00 00 00 ┆ file on the tape to be ┆
0x38c00…38c06 (454,) (0x2c0,0x719)
0x38c06…38c20 63 6f 6e 76 65 72 74 65 64 0a 20 20 20 20 20 20 3c 6e 75 6d 62 65 72 3e 20 3a ┆converted <number> :┆
0x38c20…38c40 3a 3d 20 69 6e 74 65 67 65 72 2c 20 6e 75 6d 62 65 72 20 6f 66 20 66 69 6c 65 73 20 74 6f 20 62 ┆:= integer, number of files to b┆
0x38c40…38c60 65 20 63 6f 6e 76 65 72 74 65 64 20 28 74 68 61 74 20 69 73 20 75 6e 74 69 6c 20 74 68 65 20 63 ┆e converted (that is until the c┆
0x38c60…38c7e 6c 61 69 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 ┆laims of the ┆
0x38c7e…38c84 (0x2c0,0x71a)
0x38c84…38ca0 70 72 6f 63 65 73 73 20 61 72 65 20 65 78 63 65 65 64 65 64 29 0a 0a 20 20 20 20 20 ┆process are exceeded) ┆
0x38ca0…38cc0 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73 3a 20 6d 74 73 61 76 65 63 6f 6e 76 2e 6d 74 6f 20 31 ┆default values: mtsaveconv.mto 1┆
0x38cc0…38ce0 2e 3c 6d 61 78 3e 0a 0a 20 20 20 61 20 6c 6f 67 20 69 73 20 77 72 69 74 74 65 6e 20 6f 6e 20 63 ┆.<max> a log is written on c┆
0x38ce0…38cfc 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 64 75 72 69 6e 67 20 65 78 65 63 75 74 69 ┆urrent output during executi┆
0x38cfc…38d02 (0x2c0,0x71b)
0x38d02…38d20 6f 6e 3b 0a 0a 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 76 ┆on; integer procedure conv┆
0x38d20…38d40 65 72 74 28 69 6e 64 65 78 2c 20 6c 65 6e 67 74 68 29 3b 0a 20 20 20 76 61 6c 75 65 20 69 6e 64 ┆ert(index, length); value ind┆
0x38d40…38d60 65 78 2c 20 6c 65 6e 67 74 68 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 69 6e 64 65 78 2c 20 6c 65 ┆ex, length; integer index, le┆
0x38d60…38d7a 6e 67 74 68 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 63 6f 6d 6d 65 ┆ngth; begin comme┆
0x38d7a…38d80 (0x2c0,0x71c)
0x38d80…38da0 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 76 65 72 74 73 20 63 68 61 72 61 63 ┆nt the procedure converts charac┆
0x38da0…38dc0 74 65 72 73 20 74 68 61 74 20 61 72 65 20 70 61 63 6b 65 64 20 69 6e 20 0a 20 20 20 20 20 20 69 ┆ters that are packed in i┆
0x38dc0…38de0 6e 70 75 74 28 69 6e 64 65 78 29 20 74 6f 20 61 6e 20 69 6e 74 65 67 65 72 2e 20 74 68 65 20 6e ┆nput(index) to an integer. the n┆
0x38de0…38e00 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 28 64 69 67 00 00 00 00 00 00 00 00 ┆umber of characters (dig ┆
0x38e00…38e06 (455,) (0x2c0,0x71d)
0x38e06…38e20 69 74 73 29 0a 20 20 20 20 20 20 69 73 20 73 70 65 63 69 66 69 65 64 20 62 79 ┆its) is specified by┆
0x38e20…38e40 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 6c 65 6e 67 74 68 3b 0a 20 20 0a 20 20 20 20 20 20 ┆ the parameter length; ┆
0x38e40…38e60 69 6e 74 65 67 65 72 20 69 2c 20 6a 2c 20 6b 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 ┆integer i, j, k; integer a┆
0x38e60…38e7e 72 72 61 79 20 63 69 66 28 31 3a 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 ┆rray cif(1:length); for ┆
0x38e7e…38e84 (0x2c0,0x71e)
0x38e84…38ea0 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 65 6e 67 74 68 20 64 6f 0a ┆i:=1 step 1 until length do ┆
0x38ea0…38ec0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6a 3a 3d 69 6e 70 75 74 28 69 6e ┆ begin j:=input(in┆
0x38ec0…38ee0 64 65 78 29 20 73 68 69 66 74 20 28 2d 38 2a 28 6c 65 6e 67 74 68 2d 69 29 29 20 65 78 74 72 61 ┆dex) shift (-8*(length-i)) extra┆
0x38ee0…38efc 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 6b 3a 3d 30 20 73 74 65 70 ┆ct 8; for k:=0 step┆
0x38efc…38f02 (0x2c0,0x71f)
0x38f02…38f20 20 31 20 75 6e 74 69 6c 20 39 20 64 6f 0a 20 20 20 20 20 20 20 20 20 69 66 20 6a 3d 34 38 ┆ 1 until 9 do if j=48┆
0x38f20…38f40 2b 6b 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆+k then begin ┆
0x38f40…38f60 20 20 20 63 69 66 28 69 29 3a 3d 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 ┆ cif(i):=k; goto c┆
0x38f60…38f7a 6f 6e 74 69 6e 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 63 6f 6e 74 69 ┆ontin; end; conti┆
0x38f7a…38f80 (0x2c0,0x720)
0x38f80…38fa0 6e 3a 0a 20 20 20 20 20 20 65 6e 64 20 69 3b 0a 20 20 20 20 20 20 6a 3a 3d 30 3b 0a 20 20 20 20 ┆n: end i; j:=0; ┆
0x38fa0…38fc0 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 65 6e 67 74 68 20 64 ┆ for i:=1 step 1 until length d┆
0x38fc0…38fe0 6f 20 6a 3a 3d 6a 2a 31 30 2b 63 69 66 28 69 29 3b 0a 20 20 20 20 20 20 63 6f 6e 76 65 72 74 3a ┆o j:=j*10+cif(i); convert:┆
0x38fe0…39000 3d 6a 3b 0a 20 20 20 65 6e 64 3b 0a 0c 20 20 0a 63 6f 6d 6d 65 6e 74 20 00 00 00 00 00 00 00 00 ┆=j; end; comment ┆
0x39000…39006 (456,) (0x2c0,0x721)
0x39006…39020 73 6d 20 37 35 2e 30 39 2e 30 38 20 20 74 67 65 74 63 6f 6e 76 20 20 20 20 20 ┆sm 75.09.08 tgetconv ┆
0x39020…39040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 32 2e 2e 2e 20 20 20 20 20 20 20 20 ┆ ...2... ┆
0x39040…39060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 0a 20 20 20 7a 6f 6e 65 20 69 6e 70 ┆ ; zone inp┆
0x39060…3907e 75 74 2c 20 61 72 65 61 28 32 35 36 2c 32 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 69 ┆ut, area(256,2,stderror); i┆
0x3907e…39084 (0x2c0,0x722)
0x39084…390a0 6e 74 65 67 65 72 20 69 2c 20 6a 2c 20 6b 2c 20 6e 75 6d 62 65 72 2c 20 73 69 7a 65 ┆nteger i, j, k, number, size┆
0x390a0…390c0 2c 20 70 61 70 65 72 2c 20 66 69 6c 65 6e 6f 2c 20 6d 6f 64 65 2c 20 70 61 72 31 2c 20 70 61 72 ┆, paper, fileno, mode, par1, par┆
0x390c0…390e0 32 2c 20 70 61 72 33 2c 20 70 61 72 34 3b 0a 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 6e 61 6d ┆2, par3, par4; real array nam┆
0x390e0…390fc 65 2c 70 61 72 61 6d 31 2c 70 61 72 61 6d 32 2c 20 70 61 72 61 6d 33 2c 20 70 61 72 ┆e,param1,param2, param3, par┆
0x390fc…39102 (0x2c0,0x723)
0x39102…39120 61 6d 34 2c 20 74 61 70 65 69 64 28 31 3a 32 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 ┆am4, tapeid(1:2); integer a┆
0x39120…39140 72 72 61 79 20 6d 6f 6e 69 2c 20 73 79 73 74 28 31 3a 31 30 29 3b 0a 20 20 20 62 6f 6f 6c 65 61 ┆rray moni, syst(1:10); boolea┆
0x39140…39160 6e 20 74 61 70 65 6f 6b 2c 20 66 69 6c 65 6f 6b 3b 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 74 ┆n tapeok, fileok; procedure t┆
0x39160…3917a 65 73 74 74 61 70 65 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e ┆esttape; begin in┆
0x3917a…39180 (0x2c0,0x724)
0x39180…391a0 74 65 67 65 72 20 69 3b 0a 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 31 28 31 29 20 73 68 69 66 ┆teger i; if param1(1) shif┆
0x391a0…391c0 74 20 28 2d 33 32 29 20 73 68 69 66 74 20 33 32 20 3c 3e 20 72 65 61 6c 3c 3a 6d 74 3a 3e 20 74 ┆t (-32) shift 32 <> real<:mt:> t┆
0x391c0…391e0 68 65 6e 20 67 6f 74 6f 20 65 6e 64 70 72 6f 63 3b 0a 20 20 20 20 20 20 6d 6f 64 65 3a 3d 2d 31 ┆hen goto endproc; mode:=-1┆
0x391e0…39200 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 00 00 00 00 00 00 00 00 ┆; for i:=1 step 1 ┆
0x39200…39206 (457,) (0x2c0,0x725)
0x39206…39220 75 6e 74 69 6c 20 34 20 64 6f 0a 20 20 20 20 20 20 20 20 69 66 20 70 61 72 61 ┆until 4 do if para┆
0x39220…39240 6d 32 28 31 29 3d 72 65 61 6c 28 63 61 73 65 20 69 20 6f 66 20 28 3c 3a 6d 74 6f 3a 3e 2c 3c 3a ┆m2(1)=real(case i of (<:mto:>,<:┆
0x39240…39260 6d 74 65 3a 3e 2c 3c 3a 6e 72 7a 3a 3e 2c 3c 3a 6e 72 7a 65 3a 3e 29 29 0a 20 20 20 20 20 20 20 ┆mte:>,<:nrz:>,<:nrze:>)) ┆
0x39260…3927e 20 20 20 74 68 65 6e 20 6d 6f 64 65 3a 3d 28 69 2d 31 29 2a 32 3b 0a 20 20 20 20 20 20 69 ┆ then mode:=(i-1)*2; i┆
0x3927e…39284 (0x2c0,0x726)
0x39284…392a0 66 20 6d 6f 64 65 3d 2d 31 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 70 72 6f 63 3b ┆f mode=-1 then goto endproc;┆
0x392a0…392c0 0a 20 20 20 20 20 20 74 61 70 65 69 64 28 31 29 3a 3d 70 61 72 61 6d 31 28 31 29 3b 20 20 74 61 ┆ tapeid(1):=param1(1); ta┆
0x392c0…392e0 70 65 69 64 28 32 29 3a 3d 70 61 72 61 6d 31 28 32 29 3b 0a 20 20 20 20 20 20 74 61 70 65 6f 6b ┆peid(2):=param1(2); tapeok┆
0x392e0…392fc 3a 3d 74 72 75 65 3b 0a 65 6e 64 70 72 6f 63 3a 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆:=true; endproc: end; ┆
0x392fc…39302 (0x2c0,0x727)
0x39302…39320 20 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 66 69 6c 65 28 70 61 72 61 6d 31 2c 20 70 61 ┆ procedure testfile(param1, pa┆
0x39320…39340 72 61 6d 32 29 3b 0a 20 20 20 76 61 6c 75 65 20 70 61 72 61 6d 31 2c 20 70 61 72 61 6d 32 3b 20 ┆ram2); value param1, param2; ┆
0x39340…39360 72 65 61 6c 20 70 61 72 61 6d 31 2c 20 70 61 72 61 6d 32 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 ┆real param1, param2; begin ┆
0x39360…3937a 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 70 61 72 61 6d 31 2d 31 3b 0a 20 20 20 20 ┆ fileno:=param1-1; ┆
0x3937a…39380 (0x2c0,0x728)
0x39380…393a0 20 20 6e 75 6d 62 65 72 3a 3d 70 61 72 61 6d 32 3b 0a 20 20 20 20 20 20 69 66 20 66 69 6c 65 6e ┆ number:=param2; if filen┆
0x393a0…393c0 6f 3c 3d 30 20 74 68 65 6e 20 66 69 6c 65 6e 6f 3a 3d 31 3b 0a 20 20 20 20 20 20 66 69 6c 65 6f ┆o<=0 then fileno:=1; fileo┆
0x393c0…393e0 6b 3a 3d 74 72 75 65 3b 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 70 ┆k:=true; end; procedure p┆
0x393e0…39400 61 72 61 6d 65 72 72 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆aramerr; begin ┆
0x39400…39406 (458,) (0x2c0,0x729)
0x39406…39420 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 70 61 72 61 6d 65 74 65 72 20 ┆write(out,<:<10>parameter ┆
0x39420…39440 65 72 72 6f 72 2e 3a 3e 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 65 6e 64 70 3b 0a 20 20 20 65 ┆error.:>); goto endp; e┆
0x39440…39460 6e 64 3b 0a 20 20 20 6d 6f 6e 69 28 32 29 3a 3d 6c 6f 6e 67 3c 3a 64 69 73 3a 3e 20 73 68 69 66 ┆nd; moni(2):=long<:dis:> shif┆
0x39460…3947e 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 6d 6f 6e 69 28 33 29 ┆t (-24) extract 24; moni(3)┆
0x3947e…39484 (0x2c0,0x72a)
0x39484…394a0 3a 3d 6c 6f 6e 67 3c 3a 63 3a 3e 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 ┆:=long<:c:> shift (-24) extr┆
0x394a0…394c0 61 63 74 20 32 34 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 34 2c 20 35 2c 20 39 20 64 6f 20 6d 6f 6e ┆act 24; for i:=4, 5, 9 do mon┆
0x394c0…394e0 69 28 69 29 3a 3d 30 3b 0a 0c 0a 63 6f 6d 6d 65 6e 74 20 73 6d 20 37 35 2e 31 32 2e 30 34 20 20 ┆i(i):=0; comment sm 75.12.04 ┆
0x394e0…394fc 74 67 65 74 63 6f 6e 76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tgetconv ┆
0x394fc…39502 (0x2c0,0x72b)
0x39502…39520 2e 2e 2e 32 61 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a ┆...2a... ; ┆
0x39520…39540 20 20 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 74 6f 20 ┆ comment the parameters to ┆
0x39540…39560 74 68 65 20 70 72 6f 67 72 61 6d 2d 63 61 6c 6c 20 28 69 66 20 61 6e 79 29 20 61 72 65 20 63 68 ┆the program-call (if any) are ch┆
0x39560…3957a 65 63 6b 65 64 3b 0a 20 20 20 74 61 70 65 6f 6b 3a 3d 66 61 6c 73 65 3b 20 66 ┆ecked; tapeok:=false; f┆
0x3957a…39580 (0x2c0,0x72c)
0x39580…395a0 69 6c 65 6f 6b 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 70 61 72 31 3a 3d 73 79 73 74 65 6d 28 34 2c ┆ileok:=false; par1:=system(4,┆
0x395a0…395c0 31 2c 70 61 72 61 6d 31 29 3b 0a 20 20 20 69 66 20 70 61 72 31 3d 30 20 74 68 65 6e 20 67 6f 74 ┆1,param1); if par1=0 then got┆
0x395c0…395e0 6f 20 63 6f 6e 74 3b 0a 20 20 20 70 61 72 32 3a 3d 73 79 73 74 65 6d 28 34 2c 32 2c 70 61 72 61 ┆o cont; par2:=system(4,2,para┆
0x395e0…39600 6d 32 29 3b 0a 20 20 20 70 61 72 33 3a 3d 73 79 73 74 65 6d 28 34 2c 33 00 00 00 00 00 00 00 00 ┆m2); par3:=system(4,3 ┆
0x39600…39606 (459,) (0x2c0,0x72d)
0x39606…39620 2c 70 61 72 61 6d 33 29 3b 0a 20 20 20 69 66 20 70 61 72 33 3d 30 20 74 68 65 ┆,param3); if par3=0 the┆
0x39620…39640 6e 0a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 61 70 65 69 64 2e 6d 6f 64 65 20 6f ┆n begin comment tapeid.mode o┆
0x39640…39660 72 20 66 69 6c 65 6e 6f 2e 6e 75 6d 62 65 72 3b 0a 20 20 20 20 20 20 69 66 20 70 61 72 31 3d 34 ┆r fileno.number; if par1=4┆
0x39660…3967e 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 70 61 ┆ shift 12 + 10 and pa┆
0x3967e…39684 (0x2c0,0x72e)
0x39684…396a0 72 32 3d 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 20 74 65 73 74 ┆r2=8 shift 12 + 10 then test┆
0x396a0…396c0 74 61 70 65 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 70 61 72 31 3d 34 20 ┆tape else if par1=4 ┆
0x396c0…396e0 73 68 69 66 74 20 31 32 20 2b 20 34 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 70 61 72 32 3d 38 ┆shift 12 + 4 and par2=8┆
0x396e0…396fc 20 73 68 69 66 74 20 31 32 20 2b 20 34 20 74 68 65 6e 20 74 65 73 74 66 69 6c 65 28 ┆ shift 12 + 4 then testfile(┆
0x396fc…39702 (0x2c0,0x72f)
0x39702…39720 70 61 72 61 6d 31 28 31 29 2c 20 70 61 72 61 6d 32 28 31 29 29 3b 0a 20 20 20 20 20 20 69 ┆param1(1), param2(1)); i┆
0x39720…39740 66 20 2d 2c 74 61 70 65 6f 6b 20 61 6e 64 20 2d 2c 66 69 6c 65 6f 6b 20 74 68 65 6e 20 70 61 72 ┆f -,tapeok and -,fileok then par┆
0x39740…39760 61 6d 65 72 72 3b 0a 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a 20 20 20 62 65 67 69 6e 20 63 ┆amerr; end else begin c┆
0x39760…3977a 6f 6d 6d 65 6e 74 20 74 61 70 65 69 64 2e 6d 6f 64 65 20 61 6e 64 20 66 69 6c ┆omment tapeid.mode and fil┆
0x3977a…39780 (0x2c0,0x730)
0x39780…397a0 65 6e 6f 2e 6e 75 6d 62 65 72 3b 0a 20 20 20 20 20 20 70 61 72 34 3a 3d 73 79 73 74 65 6d 28 34 ┆eno.number; par4:=system(4┆
0x397a0…397c0 2c 34 2c 70 61 72 61 6d 34 29 3b 0a 20 20 20 20 20 20 69 66 20 70 61 72 31 3d 34 20 73 68 69 66 ┆,4,param4); if par1=4 shif┆
0x397c0…397e0 74 20 31 32 20 2b 20 31 30 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 70 61 72 32 3d 38 20 73 68 ┆t 12 + 10 and par2=8 sh┆
0x397e0…39800 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 20 74 65 73 74 74 61 70 00 00 00 00 00 00 00 00 ┆ift 12 + 10 then testtap ┆
0x39800…39806 (460,) (0x2c0,0x731)
0x39806…39820 65 3b 0a 20 20 20 20 20 20 69 66 20 74 61 70 65 6f 6b 20 61 6e 64 0a 20 20 20 ┆e; if tapeok and ┆
0x39820…39840 20 20 20 20 20 20 70 61 72 33 3d 34 20 73 68 69 66 74 20 31 32 20 2b 20 34 20 61 6e 64 0a 20 20 ┆ par3=4 shift 12 + 4 and ┆
0x39840…39860 20 20 20 20 20 20 20 70 61 72 34 3d 38 20 73 68 69 66 74 20 31 32 20 2b 20 34 20 74 68 65 6e 20 ┆ par4=8 shift 12 + 4 then ┆
0x39860…3987e 74 65 73 74 66 69 6c 65 28 70 61 72 61 6d 33 28 31 29 2c 20 70 61 72 61 6d 34 28 31 29 29 ┆testfile(param3(1), param4(1))┆
0x3987e…39884 (0x2c0,0x732)
0x39884…398a0 3b 0a 20 20 20 20 20 20 69 66 20 2d 2c 74 61 70 65 6f 6b 20 6f 72 20 2d 2c 66 69 6c ┆; if -,tapeok or -,fil┆
0x398a0…398c0 65 6f 6b 20 74 68 65 6e 20 70 61 72 61 6d 65 72 72 3b 0a 20 20 20 65 6e 64 3b 0a 0a 63 6f 6e 74 ┆eok then paramerr; end; cont┆
0x398c0…398e0 3a 0a 20 20 20 69 66 20 2d 2c 74 61 70 65 6f 6b 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a 20 ┆: if -,tapeok then begin ┆
0x398e0…398fc 20 20 20 20 20 74 61 70 65 69 64 28 31 29 3a 3d 72 65 61 6c 3c 3a 6d 74 73 61 76 3a ┆ tapeid(1):=real<:mtsav:┆
0x398fc…39902 (0x2c0,0x733)
0x39902…39920 3e 20 61 64 64 20 31 30 31 3b 0a 20 20 20 20 20 20 74 61 70 65 69 64 28 32 29 3a 3d 72 65 ┆> add 101; tapeid(2):=re┆
0x39920…39940 61 6c 3c 3a 63 6f 6e 76 3a 3e 3b 0a 20 20 20 20 20 20 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 65 6e ┆al<:conv:>; mode:=0; en┆
0x39940…39960 64 3b 0a 20 20 20 69 3a 3d 31 3b 0a 20 20 20 6f 70 65 6e 28 69 6e 70 75 74 2c 6d 6f 64 65 20 73 ┆d; i:=1; open(input,mode s┆
0x39960…3997a 68 69 66 74 20 31 32 2b 31 38 2c 20 73 74 72 69 6e 67 20 74 61 70 65 69 64 28 ┆hift 12+18, string tapeid(┆
0x3997a…39980 (0x2c0,0x734)
0x39980…399a0 69 6e 63 72 65 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 20 69 66 20 66 69 6c 65 6f 6b 20 74 68 ┆increase(i)),0); if fileok th┆
0x399a0…399c0 65 6e 20 67 6f 74 6f 20 66 69 72 73 74 66 69 6c 65 3b 0a 20 20 20 66 69 6c 65 6e 6f 3a 3d 31 3b ┆en goto firstfile; fileno:=1;┆
0x399c0…399e0 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 69 6e 70 75 74 2c 66 69 6c 65 6e 6f 2c 30 29 3b ┆ setposition(input,fileno,0);┆
0x399e0…39a00 0a 20 20 20 69 6e 72 65 63 36 28 69 6e 70 75 74 2c 35 31 32 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆ inrec6(input,512); ┆
0x39a00…39a06 (461,) (0x2c0,0x735)
0x39a06…39a20 20 20 6e 75 6d 62 65 72 3a 3d 63 6f 6e 76 65 72 74 28 34 2c 33 29 3b 0a 0c 20 ┆ number:=convert(4,3); ┆
0x39a20…39a40 20 0a 63 6f 6d 6d 65 6e 74 20 73 6d 20 37 35 2e 30 39 2e 30 38 20 20 74 67 65 74 63 6f 6e 76 20 ┆ comment sm 75.09.08 tgetconv ┆
0x39a40…39a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 33 2e 2e 2e 20 20 20 20 ┆ ...3... ┆
0x39a60…39a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 0a 66 69 72 73 74 66 69 ┆ ; firstfi┆
0x39a7e…39a84 (0x2c0,0x736)
0x39a84…39aa0 6c 65 3a 0a 20 20 20 69 66 20 6e 75 6d 62 65 72 3c 3d 30 20 74 68 65 6e 20 67 6f 74 ┆le: if number<=0 then got┆
0x39aa0…39ac0 6f 20 65 6e 64 70 72 6f 67 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 20 63 ┆o endprog; write(out,<:<10> c┆
0x39ac0…39ae0 61 6c 6c 73 20 6f 66 20 63 6f 6e 76 65 72 74 3a 3c 31 30 3e 61 6e 73 77 65 72 3c 31 30 3e 20 20 ┆alls of convert:<10>answer<10> ┆
0x39ae0…39afc 20 20 20 70 61 70 65 72 74 79 70 65 3c 31 30 3e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆ papertype<10>:>, ┆
0x39afc…39b02 (0x2c0,0x737)
0x39b02…39b20 20 3c 3a 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 3c 31 30 3e 3a 3e 29 3b 0a ┆ <: filename<10>:>); ┆
0x39b20…39b40 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 6e 75 6d 62 65 72 20 ┆ for i:=1 step 1 until number ┆
0x39b40…39b60 64 6f 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 66 69 6c 65 6e 6f ┆do begin fileno:=fileno┆
0x39b60…39b7a 2b 31 3b 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 69 6e 70 75 74 2c 66 69 6c ┆+1; setposition(input,fil┆
0x39b7a…39b80 (0x2c0,0x738)
0x39b80…39ba0 65 6e 6f 2c 30 29 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 69 6e 70 75 74 2c 35 31 32 29 3b ┆eno,0); inrec6(input,512);┆
0x39ba0…39bc0 0a 20 20 20 20 20 20 69 66 20 69 6e 70 75 74 28 32 29 3d 72 65 61 6c 3c 3a 63 68 61 6e 67 3a 3e ┆ if input(2)=real<:chang:>┆
0x39bc0…39be0 20 61 64 64 20 31 30 31 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ add 101 then begin ┆
0x39be0…39c00 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 00 00 00 00 00 00 00 00 ┆ comment the current f ┆
0x39c00…39c06 (462,) (0x2c0,0x739)
0x39c06…39c20 69 6c 65 20 73 70 65 63 69 66 69 65 73 20 61 20 6e 65 77 20 70 61 70 65 72 74 ┆ile specifies a new papert┆
0x39c20…39c40 79 70 65 3b 0a 20 20 20 20 20 20 20 20 20 66 69 6c 65 6e 6f 3a 3d 66 69 6c 65 6e 6f 2b 31 3b 20 ┆ype; fileno:=fileno+1; ┆
0x39c40…39c60 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 69 6e 70 75 74 2c 66 69 6c 65 6e 6f 2c 30 29 3b 0a 20 20 ┆ setposition(input,fileno,0); ┆
0x39c60…39c7e 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 69 6e 70 75 74 2c 35 31 32 29 3b 0a 20 20 20 20 ┆ inrec6(input,512); ┆
0x39c7e…39c84 (0x2c0,0x73a)
0x39c84…39ca0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 69 6e 70 75 74 28 32 29 3d 72 65 61 ┆ end; if input(2)=rea┆
0x39ca0…39cc0 6c 3c 3a 61 6c 6c 20 66 3a 3e 20 61 64 64 20 31 30 35 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 ┆l<:all f:> add 105 then goto end┆
0x39cc0…39ce0 70 72 6f 67 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 6d 6f 72 65 20 66 ┆prog; comment no more f┆
0x39ce0…39cfc 69 6c 65 73 20 74 6f 20 62 65 20 63 6f 6e 76 65 72 74 65 64 3b 0a 20 20 0a 20 20 20 ┆iles to be converted; ┆
0x39cfc…39d02 (0x2c0,0x73b)
0x39d02…39d20 20 20 20 6e 61 6d 65 28 31 29 3a 3d 69 6e 70 75 74 28 33 29 3b 0a 20 20 20 20 20 20 6e 61 ┆ name(1):=input(3); na┆
0x39d20…39d40 6d 65 28 32 29 3a 3d 69 6e 70 75 74 28 34 29 3b 0a 20 20 20 20 20 20 70 61 70 65 72 3a 3d 63 6f ┆me(2):=input(4); paper:=co┆
0x39d40…39d60 6e 76 65 72 74 28 37 2c 33 29 3b 0a 20 20 20 20 20 20 73 69 7a 65 3a 3d 63 6f 6e 76 65 72 74 28 ┆nvert(7,3); size:=convert(┆
0x39d60…39d7a 39 2c 34 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 28 31 29 3a 3d 73 69 7a 65 2b ┆9,4); moni(1):=size+┆
0x39d7a…39d80 (0x2c0,0x73c)
0x39d80…39da0 34 3b 0a 20 20 20 20 20 20 73 69 7a 65 3a 3d 73 69 7a 65 2b 33 3b 0a 20 20 20 20 20 20 6a 3a 3d ┆4; size:=size+3; j:=┆
0x39da0…39dc0 31 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 61 72 65 61 2c 34 2c 73 74 72 69 6e 67 20 6e 61 6d 65 ┆1; open(area,4,string name┆
0x39dc0…39de0 28 69 6e 63 72 65 61 73 65 28 6a 29 29 2c 30 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆(increase(j)),0); monitor(┆
0x39de0…39e00 34 30 2c 61 72 65 61 2c 30 2c 6d 6f 6e 69 29 3b 20 20 63 6f 6d 6d 65 6e 00 00 00 00 00 00 00 00 ┆40,area,0,moni); commen ┆
0x39e00…39e06 (463,) (0x2c0,0x73d)
0x39e06…39e20 74 20 63 72 65 61 74 65 20 61 72 65 61 3b 0a 20 20 20 20 20 20 6f 75 74 72 65 ┆t create area; outre┆
0x39e20…39e40 63 36 28 61 72 65 61 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 ┆c6(area,512); comment the ┆
0x39e40…39e60 61 72 65 61 20 69 73 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 74 61 70 65 20 74 6f 20 64 69 73 63 ┆area is copied from tape to disc┆
0x39e60…39e7e 3b 0a 20 20 20 20 20 20 66 6f 72 20 6b 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆; for k:=1 step 1 until ┆
0x39e7e…39e84 (0x2c0,0x73e)
0x39e84…39ea0 31 32 38 20 64 6f 20 61 72 65 61 28 6b 29 3a 3d 69 6e 70 75 74 28 6b 29 3b 0a 20 20 ┆128 do area(k):=input(k); ┆
0x39ea0…39ec0 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 73 69 7a 65 20 64 ┆ for j:=1 step 1 until size d┆
0x39ec0…39ee0 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 61 ┆o begin outrec6(a┆
0x39ee0…39efc 72 65 61 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 69 6e ┆rea,512); inrec6(in┆
0x39efc…39f02 (0x2c0,0x73f)
0x39f02…39f20 70 75 74 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 6b 3a 3d 31 20 73 74 ┆put,512); for k:=1 st┆
0x39f20…39f40 65 70 20 31 20 75 6e 74 69 6c 20 31 32 38 20 64 6f 20 61 72 65 61 28 6b 29 3a 3d 69 6e 70 75 74 ┆ep 1 until 128 do area(k):=input┆
0x39f40…39f60 28 6b 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 61 72 65 61 28 31 32 38 29 3a ┆(k); end; area(128):┆
0x39f60…39f7a 3d 61 72 65 61 28 31 32 38 29 20 73 68 69 66 74 20 28 2d 38 29 20 73 68 69 66 ┆=area(128) shift (-8) shif┆
0x39f7a…39f80 (0x2c0,0x740)
0x39f80…39fa0 74 20 38 20 61 64 64 20 32 35 3b 0a 20 20 20 20 20 20 63 6c 6f 73 65 28 61 72 65 61 2c 74 72 75 ┆t 8 add 25; close(area,tru┆
0x39fa0…39fc0 65 29 3b 0a 20 20 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 61 72 61 6d 65 74 ┆e); comment the paramet┆
0x39fc0…39fe0 65 72 73 20 74 6f 20 74 68 65 20 73 79 73 74 65 6d 28 31 30 2e 2e 2e 29 2d 63 61 6c 6c 20 61 72 ┆ers to the system(10...)-call ar┆
0x39fe0…3a000 65 20 69 6e 69 74 69 61 6c 69 73 65 64 3b 0a 20 20 20 20 20 20 66 6f 72 00 00 00 00 00 00 00 00 ┆e initialised; for ┆
0x3a000…3a006 (464,) (0x2c0,0x741)
0x3a006…3a020 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 38 20 64 6f 20 73 79 ┆ j:=1 step 1 until 8 do sy┆
0x3a020…3a040 73 74 28 6a 29 3a 3d 63 61 73 65 20 28 6a 29 20 6f 66 20 28 0a 20 20 20 20 20 20 33 30 20 73 68 ┆st(j):=case (j) of ( 30 sh┆
0x3a040…3a060 69 66 74 20 31 32 20 2b 20 31 20 73 68 69 66 74 20 39 20 2b 20 31 2c 0a 20 20 20 20 20 20 6c 6f ┆ift 12 + 1 shift 9 + 1, lo┆
0x3a060…3a07e 6e 67 20 3c 3a 63 6f 6e 3a 3e 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 ┆ng <:con:> shift (-24) extract┆
0x3a07e…3a084 (0x2c0,0x742)
0x3a084…3a0a0 20 32 34 2c 0a 20 20 20 20 20 20 6c 6f 6e 67 20 3c 3a 76 3a 3e 20 73 68 69 66 74 20 ┆ 24, long <:v:> shift ┆
0x3a0a0…3a0c0 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 2c 0a 20 20 20 20 20 20 70 61 70 65 72 2c 0a 20 ┆(-24) extract 24, paper, ┆
0x3a0c0…3a0e0 20 20 20 20 20 6e 61 6d 65 28 31 29 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 ┆ name(1) shift (-24) extract┆
0x3a0e0…3a0fc 20 32 34 2c 0a 20 20 20 20 20 20 6e 61 6d 65 28 31 29 20 65 78 74 72 61 63 74 20 32 ┆ 24, name(1) extract 2┆
0x3a0fc…3a102 (0x2c0,0x743)
0x3a102…3a120 34 2c 0a 20 20 20 20 20 20 6e 61 6d 65 28 32 29 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 ┆4, name(2) shift (-24) e┆
0x3a120…3a140 78 74 72 61 63 74 20 32 34 2c 0a 20 20 20 20 20 20 6e 61 6d 65 28 32 29 20 65 78 74 72 61 63 74 ┆xtract 24, name(2) extract┆
0x3a140…3a160 20 32 34 29 3b 0a 20 20 20 20 20 20 73 79 73 74 65 6d 28 31 30 2c 31 2c 73 79 73 74 29 3b 20 20 ┆ 24); system(10,1,syst); ┆
0x3a160…3a17a 63 6f 6d 6d 65 6e 74 20 6d 65 73 73 61 67 65 20 74 6f 20 62 6f 73 73 2c 20 63 ┆comment message to boss, c┆
0x3a17a…3a180 (0x2c0,0x744)
0x3a180…3a1a0 6f 6e 76 65 72 74 20 61 72 65 61 3b 0a 20 20 20 20 20 20 6a 3a 3d 31 3b 0a 20 20 20 20 20 20 77 ┆onvert area; j:=1; w┆
0x3a1a0…3a1c0 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3c 64 64 64 3e 2c 73 79 73 74 28 31 29 ┆rite(out,<:<10>:>,<<ddd>,syst(1)┆
0x3a1c0…3a1e0 2c 3c 3c 20 20 64 64 64 3e 2c 66 69 6c 65 6e 6f 2c 3c 3a 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 ┆,<< ddd>,fileno,<: :>, ┆
0x3a1e0…3a200 20 20 20 20 20 73 74 72 69 6e 67 20 6e 61 6d 65 28 69 6e 63 72 65 61 73 00 00 00 00 00 00 00 00 ┆ string name(increas ┆
0x3a200…3a206 (465,) (0x2c0,0x745)
0x3a206…3a220 65 28 6a 29 29 29 3b 0a 20 20 20 65 6e 64 20 69 3b 0a 65 6e 64 70 72 6f 67 3a ┆e(j))); end i; endprog:┆
0x3a220…3a240 0a 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 63 6c 6f ┆ setposition(out,0,0); clo┆
0x3a240…3a260 73 65 28 69 6e 70 75 74 2c 20 74 72 75 65 29 3b 0a 65 6e 64 70 3a 0a 65 6e 64 0a 65 6e 64 3b 0a ┆se(input, true); endp: end end; ┆
0x3a260…3a27e 19 00 00 64 6f 20 61 72 65 61 28 6b 29 3a 3d 69 6e 70 75 74 28 6b 29 3b 0a 20 20 20 20 20 ┆ do area(k):=input(k); ┆
0x3a27e…3a284 (0x2c0,0x746)
0x3a284…3a2a0 20 65 6e 64 3b 0a 20 20 20 20 20 20 61 72 65 61 28 31 32 38 29 3a 3d 61 3b 0a 20 20 ┆ end; area(128):=a; ┆
0x3a2a0…3a2c0 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 73 69 7a 65 20 64 ┆ for j:=1 step 1 until size d┆
0x3a2c0…3a2e0 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 61 ┆o begin outrec6(a┆
0x3a2e0…3a2fc 72 65 61 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 69 6e ┆rea,512); inrec6(in┆
0x3a2fc…3a302 (0x324,0x747)
0x3a302…3a320 75 73 65 72 63 61 74 20 3d 20 73 65 74 20 38 20 64 69 73 63 0a 73 63 6f 70 65 20 75 73 65 ┆usercat = set 8 disc scope use┆
0x3a320…3a340 72 20 75 73 65 72 63 61 74 0a 74 74 74 3d 65 64 69 74 0a 69 2f 0a 20 0a 3b 20 74 75 73 65 72 63 ┆r usercat ttt=edit i/ ; tuserc┆
0x3a340…3a360 61 74 20 76 65 72 73 69 6f 6e 69 64 3a 20 37 37 20 31 31 20 30 38 2c 20 32 0a 31 30 20 35 31 20 ┆at versionid: 77 11 08, 2 10 51 ┆
0x3a360…3a37a 30 20 33 20 33 20 2d 38 33 38 38 36 30 37 20 2d 38 33 38 38 36 30 37 0a 32 20 ┆0 3 3 -8388607 -8388607 2 ┆
0x3a37a…3a380 (0x324,0x748)
0x3a380…3a3a0 61 63 63 6f 75 6e 74 20 35 31 20 30 20 31 20 31 0a 0a 31 30 20 31 20 30 20 31 32 35 20 35 30 20 ┆account 51 0 1 1 10 1 0 125 50 ┆
0x3a3a0…3a3c0 39 30 30 20 39 39 39 0a 35 20 70 65 72 6d 20 64 69 73 63 20 35 30 20 35 0a 35 20 70 72 69 76 69 ┆900 999 5 perm disc 50 5 5 privi┆
0x3a3c0…3a3e0 6c 65 67 65 73 20 33 0a 35 20 74 69 6d 65 20 33 20 30 0a 36 20 6d 69 6e 69 6d 61 6c 20 79 65 73 ┆leges 3 5 time 3 0 6 minimal yes┆
0x3a3e0…3a400 0a 36 20 6f 6e 6c 69 6e 65 20 79 65 73 0a 33 20 72 63 38 30 30 30 0a 20 00 00 00 00 00 00 00 00 ┆ 6 online yes 3 rc8000 ┆
0x3a400…3a406 (466,) (0x324,0x749)
0x3a406…3a420 20 64 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 3b 0a 0a 31 31 20 75 73 65 72 61 20 ┆ demonstration; 11 usera ┆
0x3a420…3a440 31 20 30 20 31 20 32 30 20 39 30 30 0a 31 31 20 75 73 65 72 62 20 31 20 30 20 31 20 32 30 20 39 ┆1 0 1 20 900 11 userb 1 0 1 20 9┆
0x3a440…3a460 32 30 0a 31 31 20 75 73 65 72 63 20 31 20 30 20 31 20 32 30 20 39 34 30 0a 0a 31 30 20 32 20 30 ┆20 11 userc 1 0 1 20 940 10 2 0┆
0x3a460…3a47e 20 35 30 20 31 30 20 31 30 30 30 20 31 30 32 30 0a 35 20 74 69 6d 65 20 35 20 30 0a 36 20 ┆ 50 10 1000 1020 5 time 5 0 6 ┆
0x3a47e…3a484 (0x324,0x74a)
0x3a484…3a4a0 6f 6e 6c 69 6e 65 20 79 65 73 0a 36 20 63 6f 72 65 6c 6f 63 6b 20 36 30 0a 35 20 73 ┆online yes 6 corelock 60 5 s┆
0x3a4a0…3a4c0 69 7a 65 20 31 30 30 30 30 30 20 0a 36 20 70 72 65 73 65 72 76 65 20 79 65 73 0a 0a 31 31 20 75 ┆ize 100000 6 preserve yes 11 u┆
0x3a4c0…3a4e0 73 65 72 64 20 32 20 30 20 31 20 31 30 20 31 30 30 30 0a 31 31 20 75 73 65 72 65 20 32 20 30 20 ┆serd 2 0 1 10 1000 11 usere 2 0 ┆
0x3a4e0…3a4fc 31 20 31 30 20 31 30 31 30 0a 2d 31 0a 2f 2c 0a 66 0a 75 73 65 72 63 61 74 3d 63 61 ┆1 10 1010 -1 /, f usercat=ca┆
0x3a4fc…3a502 (0x324,0x74b)
0x3a502…3a520 74 75 70 64 61 74 65 20 63 61 74 2e 79 65 73 20 6c 69 73 74 2e 79 65 73 20 74 74 74 0a 19 ┆tupdate cat.yes list.yes ttt ┆
0x3a520…3a540 00 00 00 00 00 00 05 c2 01 00 00 00 00 00 00 67 f1 42 05 96 00 04 b0 01 00 00 00 00 00 00 05 c6 ┆ g B ┆
0x3a540…3a560 01 00 00 00 00 00 00 68 71 42 05 96 00 04 bc 01 00 00 00 00 00 00 05 ca 01 00 00 00 00 00 00 68 ┆ hqB h┆
0x3a560…3a57a f1 42 05 96 00 04 c8 01 00 00 00 00 00 00 05 ce 01 00 00 00 00 00 00 69 71 42 ┆ B iqB┆
0x3a57a…3a580 (0x324,0x74c)
0x3a580…3a5a0 05 96 00 04 d4 01 00 00 00 00 00 00 05 d2 01 00 00 00 00 00 00 69 f1 42 05 96 00 04 e0 01 00 00 ┆ i B ┆
0x3a5a0…3a5c0 00 00 00 00 05 d6 01 00 00 00 00 00 00 6a 71 42 05 96 00 04 ec 01 00 00 00 00 00 00 05 da 01 00 ┆ jqB ┆
0x3a5c0…3a5e0 00 00 00 00 00 6a f1 42 05 96 00 04 f8 01 00 00 00 00 00 00 05 de 01 00 00 00 00 00 00 6b 71 42 ┆ j B kqB┆
0x3a5e0…3a600 05 96 00 05 04 01 00 00 00 00 00 00 05 e2 01 00 00 00 00 00 00 6b f1 42 00 00 00 00 00 00 00 00 ┆ k B ┆
0x3a600…3a606 (467,) (0x324,0x74d)
0x3a606…3a620 05 96 00 05 10 01 00 00 00 00 00 00 05 e6 01 00 00 00 00 00 00 6c 71 42 05 96 ┆ lqB ┆
0x3a620…3a640 00 05 1c 01 00 00 00 00 00 00 05 ea 01 00 00 00 00 20 02 00 20 02 30 29 3b 0a 20 20 20 63 6c 6f ┆ 0); clo┆
0x3a640…3a660 73 65 28 69 6e 70 75 74 2c 20 74 72 75 65 29 3b 0a 65 6e 64 70 3a 0a 65 6e 64 0a 65 6e 64 3b 0a ┆se(input, true); endp: end end; ┆
0x3a660…3a67e 19 00 00 64 6f 20 61 72 65 61 28 6b 29 3a 3d 69 6e 70 75 74 28 6b 29 3b 0a 20 20 20 20 20 ┆ do area(k):=input(k); ┆
0x3a67e…3a684 (0x0,0x0)
0x3a684…3a6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3a6a0…3a6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x3a6e0…3a6fc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3a6fc…3a702 (0x0,0x0)
0x3a702…3a720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3a720…3a740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x3a760…3a77a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3a77a…3a780 (0x0,0x0)
0x3a780…3a7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]