|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 219648 (0x35a00)
Types: flxcat
Notes: GA21-9182-File(01FLXSAVEFIL)
Names: »01FLXSAVEFIL«
└─⟦16311b62b⟧ Bits:30009128 PD8100/1/6.0 - OPERATING SYSTEM MISP/TS - 2 OF 2
└─⟦this⟧
| Start | End | Artifact | Summary |
|---|---|---|---|
| 0x00000000 | 0x00035a00 | ⟦4142e2504⟧ | »s18100:1.tsostest main «, »tsostest main «, TextFile, flxfile |
| 0x00000000 | 0x00035a00 | ⟦475cd3859⟧ | »s18100:1.tnews main «, »tnews main «, TextFile, flxfile |
| 0x00000000 | 0x00035a00 | ⟦48189a232⟧ | »s18100:1.tsoscat main «, »tsoscat main «, TextFile, flxfile |
| 0x00000000 | 0x00035a00 | ⟦7b71421f3⟧ | »s18100:1.tprologue main «, »tprologue main «, TextFile, flxfile |
| 0x00000000 | 0x00035a00 | ⟦aeaa17df2⟧ | »s18100:1.tupsoscat main «, »tupsoscat main «, TextFile, flxfile |
| 0x00000000 | 0x00035a00 | ⟦eb9a4fcf7⟧ | »s18100:1.tdisplay main «, »tdisplay main «, TextFile, flxfile |
| 0x00000000 | 0x00035a00 | ⟦f7415902c⟧ | »s18100:1.tcleartemp main «, »tcleartemp main «, TextFile, flxfile |
0x00000…0003f (0,) FlxHdr {w000=(0x1,0x1), magic=»flxcat«, w011=»mipsrel60 «, nent=0x000012, nrec=0x0006b4, tstamp=1985-09-30T14:37, w024=0x0f1fff, w026=0x000054, w028=0x000156, flxset=»s18100«, flxno=0x000001, firstvol=»s18100«, nextvol=»s28100«}
0x0003f…00040 65 ┆e┆
0x00040…00060 78 69 6e 67 20 28 61 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 20 20 20 20 20 20 74 65 72 6d 69 6e ┆xing (a number of termin┆
0x00060…0007e 61 6c 73 20 66 6f 72 6d 20 61 20 67 72 6f 75 70 29 20 61 6e 64 20 74 65 72 6d 69 6e 61 6c ┆als form a group) and terminal┆
0x0007e…000fc FlxDirSec {
0x0007e…000fc w00 = (0x2,0x2) // 0x7e @0x0
0x0007e…000fc w01 = FlxDirEnt {name=»mipsid main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000001, w07=»disc «, w10=1985-09-30T14:31, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x84 @0x6
0x0007e…000fc w02 = FlxDirEnt {name=»mipshelp main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000012, w07=»disc «, w10=1985-09-30T14:31, 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=»bcheckmt main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000002, w07=»disc2 «, w10=1983-02-24T10:40, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x102 @0x6
0x000fc…0017a w02 = FlxDirEnt {name=»trcmol main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x0000b2, w07=»disc «, w10=1985-09-30T14:34, 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=»ttrace main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000007, w07=»disc2 «, w10=1983-02-24T10:40, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x180 @0x6
0x0017a…001f8 w02 = FlxDirEnt {name=»ttem main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000060, w07=»disc «, w10=1985-09-30T14:34, 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=»ttemtest main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000020, w07=»disc «, w10=1985-09-30T14:35, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x206 @0x6
0x00200…0027e w02 = FlxDirEnt {name=»tprimo main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000131, w07=»disc «, w10=1985-09-30T14:33, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x242 @0x42
0x00200…0027e }
0x0027e…002fc FlxDirSec {
0x0027e…002fc w00 = (0x2,0x6) // 0x27e @0x0
0x0027e…002fc w01 = FlxDirEnt {name=»ttransfer main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x00000c, w07=»disc2 «, w10=1983-02-24T10:42, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x284 @0x6
0x0027e…002fc w02 = FlxDirEnt {name=»tfileutil main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000039, w07=»disc2 «, w10=1983-02-24T10:42, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x2c0 @0x42
0x0027e…002fc }
0x002fc…0037a FlxDirSec {
0x002fc…0037a w00 = (0x2,0x7) // 0x2fc @0x0
0x002fc…0037a w01 = FlxDirEnt {name=»tsos main «, w02=0x000000, w03=0x000003, range=[-0x00d…0x03a9], w6=0x0000ae, w07=»disc «, w10=1985-09-30T14:33, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x302 @0x6
0x002fc…0037a w02 = FlxDirEnt {name=»tcleartemp main «, w02=0x000000, w03=0x000003, range=[0x03aa…0x03d0], w6=0x000006, w07=»disc «, w10=1985-09-30T14:34, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x33e @0x42
0x002fc…0037a }
0x0037a…003f8 FlxDirSec {
0x0037a…003f8 w00 = (0x2,0x8) // 0x37a @0x0
0x0037a…003f8 w01 = FlxDirEnt {name=»tupsoscat main «, w02=0x000000, w03=0x000003, range=[0x03d1…0x061d], w6=0x00005c, w07=»disc2 «, w10=1984-10-03T15:51, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x380 @0x6
0x0037a…003f8 w02 = FlxDirEnt {name=»tprologue main «, w02=0x000000, w03=0x000003, range=[0x061e…0x0664], w6=0x00000b, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x3bc @0x42
0x0037a…003f8 }
0x003f8…00400 00 00 00 00 00 00 00 00 ┆ ┆
0x00400…0047e (2,) FlxDirSec {
0x00400…0047e w00 = (0x2,0x9) // 0x400 @0x0
0x00400…0047e w01 = FlxDirEnt {name=»tsoscat main «, w02=0x000000, w03=0x000003, range=[0x0665…0x0671], w6=0x000002, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x406 @0x6
0x00400…0047e w02 = FlxDirEnt {name=»tsostest main «, w02=0x000000, w03=0x000003, range=[0x0672…0x068b], w6=0x000004, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x442 @0x42
0x00400…0047e }
0x0047e…004fc FlxDirSec {
0x0047e…004fc w00 = (0x2,0xa) // 0x47e @0x0
0x0047e…004fc w01 = FlxDirEnt {name=»tdisplay main «, w02=0x000000, w03=0x000003, range=[0x068c…0x06a5], w6=0x000004, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x484 @0x6
0x0047e…004fc w02 = FlxDirEnt {name=»tnews main «, w02=0x000000, w03=0x000003, range=[0x06a6…0x06b2], w6=0x000002, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x4c0 @0x42
0x0047e…004fc }
0x004fc…00502 (0x3,0xb)
0x00502…00520 62 63 68 65 63 6b 6d 74 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 73 31 38 31 30 30 ┆bcheckmt main s18100┆
0x00520…00540 00 00 02 64 69 73 63 32 00 00 00 00 00 00 00 8b 24 74 00 00 00 00 00 00 00 00 00 00 00 00 74 72 ┆ disc2 $t tr┆
0x00540…00560 63 6d 6f 6c 00 00 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 73 31 38 31 30 30 00 00 b2 64 ┆cmol main s18100 d┆
0x00560…0057a 69 73 63 00 00 00 00 00 00 00 00 a3 02 80 00 00 00 00 00 00 00 00 00 00 00 00 ┆isc ┆
0x0057a…00580 (0x3,0xc)
0x00580…005a0 74 74 72 61 63 65 00 00 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 73 31 38 31 30 30 00 00 ┆ttrace main s18100 ┆
0x005a0…005c0 07 64 69 73 63 32 00 00 00 00 00 00 00 8b 24 74 00 00 00 00 00 00 00 00 00 00 00 00 74 74 65 6d ┆ disc2 $t ttem┆
0x005c0…005e0 00 00 00 00 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 73 31 38 31 30 30 00 00 60 64 69 73 ┆ main s18100 `dis┆
0x005e0…00600 63 00 00 00 00 00 00 00 00 a3 02 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆c ┆
0x00600…00606 (3,) (0x450,0xd)
0x00606…00620 30 30 30 30 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆00001 then if ┆
0x00620…00640 77 33 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 ┆w3:=(w2).operation onemask 1 the┆
0x00640…00660 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 20 20 20 20 ┆n begin ┆
0x00660…0067e 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ swop(.w3.,w1:=0); ┆
0x0067e…00684 (0x450,0xe)
0x00684…006a0 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ !get 2; if┆
0x006a0…006c0 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 ┆ w0 <> 1 then goto discfault; ┆
0x006c0…006e0 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 6f 75 74 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 ┆ logout(.w3.,w1:=user┆
0x006e0…006fc 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆entry); end; ┆
0x006fc…00702 (0x450,0xf)
0x00702…00720 20 20 20 20 20 20 20 20 20 75 73 65 72 65 6e 74 72 79 2e 6d 65 73 73 67 6f 74 3a 3d 77 30 ┆ userentry.messgot:=w0┆
0x00720…00740 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 20 21 20 73 65 ┆; monitor(22); ! se┆
0x00740…00760 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 ┆nd answer ! testout(┆
0x00760…0077a 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 2c 77 32 3a 3d 36 31 29 3b 0a 20 20 ┆.w3.,w0:=16,w1,w2:=61); ┆
0x0077a…00780 (0x450,0x10)
0x00780…007a0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 6d 69 ┆ end; if w2:=mi┆
0x007a0…007c0 63 74 69 6d 65 72 20 3e 20 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 28 38 32 29 3b 20 20 21 20 ┆ctimer > 0 then monitor(82); ! ┆
0x007c0…007e0 72 65 67 72 65 74 20 74 69 6d 65 72 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 ┆regret timer message ! ┆
0x007e0…00800 20 69 66 20 77 30 3a 3d 74 69 6d 65 72 6d 65 73 73 20 3c 3e 20 30 20 74 00 00 00 00 00 00 00 00 ┆ if w0:=timermess <> 0 t ┆
0x00800…00806 (4,) (0x450,0x11)
0x00806…00820 68 65 6e 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 ┆hen goto continue; ┆
0x00820…00840 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 6d 69 63 74 69 6d ┆ end else if w2 = mictim┆
0x00840…00860 65 72 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 20 20 20 ┆er then begin ┆
0x00860…0087e 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 3a 3d 75 73 65 72 65 ┆startstop(.w3.,w0:=0,w1:=usere┆
0x0087e…00884 (0x450,0x12)
0x00884…008a0 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 ┆ntry); link(.w3.,w┆
0x008a0…008c0 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 ┆1,w2:=address(waitqfst)); ┆
0x008c0…008e0 20 20 65 6e 64 20 65 6c 73 65 20 67 6f 74 6f 20 73 65 6d 69 62 75 73 79 3b 0a 20 20 20 20 20 20 ┆ end else goto semibusy; ┆
0x008e0…008fc 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 69 6f 6e 20 31 30 20 21 0a 20 20 20 20 20 20 62 ┆end; ! action 10 ! b┆
0x008fc…00902 (0x450,0x13)
0x00902…00920 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 20 66 6f 72 20 70 72 65 76 69 6f 75 73 ┆egin comment wait for previous┆
0x00920…00940 20 6d 65 73 73 61 67 65 20 74 6f 20 62 65 20 61 6e 73 77 65 72 65 64 3b 0a 20 20 20 20 20 20 20 ┆ message to be answered; ┆
0x00940…00960 20 77 32 3a 3d 35 3b 0a 6d 65 73 73 77 61 69 74 3a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆ w2:=5; messwait: if w0:┆
0x00960…0097a 3d 28 77 31 29 2e 73 74 61 74 65 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆=(w1).state < 0 then ┆
0x0097a…00980 (0x450,0x14)
0x00980…009a0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 ┆ begin (w1).buflengt┆
0x009a0…009c0 68 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 ┆h:=w0:=0; send(.w3.,w0┆
0x009c0…009e0 3a 3d 31 2c 77 31 2c 77 32 3a 3d 38 27 32 30 30 30 30 30 29 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆:=1,w1,w2:=8'200000); en┆
0x009e0…00a00 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆d else begin ┆
0x00a00…00a06 (5,) (0x450,0x15)
0x00a06…00a20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d ┆ startstop(.w3.,w0:=┆
0x00a20…00a40 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 32 3b ┆0,w1); (w1).state:=w2;┆
0x00a40…00a60 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 ┆ link(.w3.,w1,w2:=addr┆
0x00a60…00a7e 65 73 73 28 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ess(waitqfst)); end; ┆
0x00a7e…00a84 (0x450,0x16)
0x00a84…00aa0 20 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 63 6f 72 65 75 73 65 72 20 74 68 65 ┆ if w1 <> coreuser the┆
0x00aa0…00ac0 6e 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 21 20 ┆n goto continue; end; ! ┆
0x00ac0…00ae0 61 63 74 69 6f 6e 20 31 31 20 21 0a 20 20 20 20 20 20 70 72 69 6d 65 73 73 28 2e 77 33 2e 29 3b ┆action 11 ! primess(.w3.);┆
0x00ae0…00afc 20 21 20 6d 65 73 73 73 61 67 65 20 74 6f 20 70 72 69 6d 6f 20 21 0a 0a 0a 21 20 61 ┆ ! messsage to primo ! ! a┆
0x00afc…00b02 (0x450,0x17)
0x00b02…00b20 63 74 69 6f 6e 20 31 32 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6d 65 73 73 61 ┆ction 12 ! begin ! messa┆
0x00b20…00b40 67 65 20 74 6f 20 62 65 20 73 65 6e 64 20 6c 61 74 65 72 20 74 6f 20 70 72 69 6d 6f 20 21 0a 20 ┆ge to be send later to primo ! ┆
0x00b40…00b60 20 20 20 20 20 20 20 20 77 32 3a 3d 37 3b 20 67 6f 74 6f 20 6d 65 73 73 77 61 69 74 3b 0a 20 20 ┆ w2:=7; goto messwait; ┆
0x00b60…00b7a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 0a 0a 72 65 67 72 65 ┆ end; end; regre┆
0x00b7a…00b80 (0x450,0x18)
0x00b80…00ba0 74 74 69 6d 65 72 3a 0a 20 20 20 20 69 66 20 77 32 3a 3d 74 69 6d 65 72 6d 65 73 73 3c 3e 30 20 ┆ttimer: if w2:=timermess<>0 ┆
0x00ba0…00bc0 74 68 65 6e 20 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 32 ┆then begin monitor(82┆
0x00bc0…00be0 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 ┆); comment regret message; ┆
0x00be0…00c00 20 20 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 74 69 6d 65 72 6d 65 73 73 00 00 00 00 00 00 00 00 ┆ w2:=0; timermess ┆
0x00c00…00c06 (6,) (0x450,0x19)
0x00c06…00c20 3a 3d 77 32 3b 0a 20 20 20 20 65 6e 64 3b 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e ┆:=w2; end; commen┆
0x00c20…00c40 74 20 20 20 20 20 73 65 6c 65 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 6e 65 78 74 20 70 72 6f 63 ┆t selection of the next proc┆
0x00c40…00c60 65 73 73 20 74 6f 20 62 65 20 61 63 74 69 76 61 74 65 64 0a 0a 74 68 65 20 73 79 73 74 65 6d 20 ┆ess to be activated the system ┆
0x00c60…00c7e 64 65 61 6c 73 20 77 69 74 68 20 74 77 6f 20 64 69 66 66 65 72 65 6e 74 20 71 75 65 75 65 ┆deals with two different queue┆
0x00c7e…00c84 (0x450,0x1a)
0x00c84…00ca0 73 3a 0a 0a 31 29 20 74 68 65 20 61 63 74 69 76 65 2d 71 75 65 75 65 20 20 20 20 70 ┆s: 1) the active-queue p┆
0x00ca0…00cc0 72 6f 63 65 73 73 65 73 20 72 65 61 64 79 20 66 6f 72 20 72 75 6e 6e 69 6e 67 20 28 69 6e 70 75 ┆rocesses ready for running (inpu┆
0x00cc0…00ce0 74 20 68 61 73 20 61 72 72 69 76 65 64 20 65 74 63 29 0a 32 29 20 74 68 65 20 77 61 69 74 69 6e ┆t has arrived etc) 2) the waitin┆
0x00ce0…00cfc 67 2d 71 75 65 75 65 20 20 20 70 72 6f 63 65 73 73 65 73 20 73 75 73 70 65 6e 64 65 ┆g-queue processes suspende┆
0x00cfc…00d02 (0x450,0x1b)
0x00d02…00d20 64 20 6f 72 20 6e 6f 74 20 75 73 65 64 20 61 74 20 61 6c 6c 0a 0a 61 74 20 61 63 74 69 76 ┆d or not used at all at activ┆
0x00d20…00d40 61 74 69 6f 6e 20 74 68 65 20 66 69 72 73 74 20 75 73 65 72 20 69 6e 20 74 68 65 20 61 63 74 69 ┆ation the first user in the acti┆
0x00d40…00d60 76 65 71 75 65 75 65 20 28 69 66 20 61 6e 79 29 20 69 73 20 74 65 73 74 65 64 20 66 6f 72 0a 68 ┆vequeue (if any) is tested for h┆
0x00d60…00d7a 69 73 20 70 72 69 6f 72 69 74 79 20 2d 20 69 73 20 69 74 20 7a 65 72 6f 20 74 ┆is priority - is it zero t┆
0x00d7a…00d80 (0x450,0x1c)
0x00d80…00da0 68 65 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 73 65 6c 65 63 74 65 64 20 66 6f 72 20 ┆hen the process is selected for ┆
0x00da0…00dc0 61 63 74 69 76 61 74 69 6f 6e 0a 2d 20 6f 74 68 65 72 77 69 7a 65 20 74 68 65 20 70 72 69 6f 72 ┆activation - otherwize the prior┆
0x00dc0…00de0 69 74 79 20 69 73 20 69 6e 63 72 65 61 73 65 64 2c 20 61 6e 64 20 74 68 65 20 75 73 65 72 20 69 ┆ity is increased, and the user i┆
0x00de0…00e00 73 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 0a 61 63 74 69 76 00 00 00 00 00 00 00 00 ┆s removed from the activ ┆
0x00e00…00e06 (7,) (0x450,0x1d)
0x00e06…00e20 65 71 75 65 75 65 20 61 6e 64 20 74 68 65 6e 20 70 75 74 20 62 61 63 6b 20 6f ┆equeue and then put back o┆
0x00e20…00e40 6e 20 74 68 65 20 71 75 65 75 65 20 61 67 61 69 6e 0a 3b 0a 0a 61 63 74 69 76 61 74 65 3a 0a 20 ┆n the queue again ; activate: ┆
0x00e40…00e60 20 20 20 75 73 65 72 65 6e 74 72 79 3a 3d 77 31 3a 3d 61 63 74 69 76 71 66 73 74 3b 0a 20 20 20 ┆ userentry:=w1:=activqfst; ┆
0x00e60…00e7e 20 69 66 20 77 30 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 20 3c 3e 20 ┆ if w0:=address(activqfst) <> ┆
0x00e7e…00e84 (0x450,0x1e)
0x00e84…00ea0 77 31 20 74 68 65 6e 20 20 20 20 20 21 20 61 63 74 69 76 65 71 75 65 75 65 20 6e 6f ┆w1 then ! activequeue no┆
0x00ea0…00ec0 74 20 65 6d 70 74 79 20 21 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 77 30 3a ┆t empty ! begin if w0:┆
0x00ec0…00ee0 3d 28 77 31 29 2e 73 74 61 74 65 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 69 66 20 77 30 ┆=(w1).state = 0 then if w0┆
0x00ee0…00efc 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2b 74 69 6d 65 72 6c 6f 73 73 20 3c 20 62 61 74 ┆:=(w1).class+timerloss < bat┆
0x00efc…00f02 (0x450,0x1f)
0x00f02…00f20 63 68 63 6c 61 73 73 20 74 68 65 6e 20 20 20 20 20 21 20 6a 6f 62 20 69 73 20 62 61 74 63 ┆chclass then ! job is batc┆
0x00f20…00f40 68 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 ┆h ! begin link(.w3┆
0x00f40…00f60 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 61 74 63 68 71 66 73 74 29 29 3b 0a 20 20 ┆.,w1,w2:=address(batchqfst)); ┆
0x00f60…00f7a 20 20 20 20 20 20 67 6f 74 6f 20 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 20 ┆ goto activate; ┆
0x00f7a…00f80 (0x450,0x20)
0x00f80…00fa0 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 20 20 20 20 ┆ end; end else begin ┆
0x00fa0…00fc0 20 20 20 20 21 20 61 63 74 69 76 65 71 75 65 75 65 20 65 6d 70 74 79 20 21 0a 20 20 20 20 20 20 ┆ ! activequeue empty ! ┆
0x00fc0…00fe0 75 73 65 72 65 6e 74 72 79 3a 3d 77 31 3a 3d 62 61 74 63 68 71 66 73 74 3b 0a 20 20 20 20 20 20 ┆userentry:=w1:=batchqfst; ┆
0x00fe0…01000 69 66 20 77 30 3a 3d 61 64 64 72 65 73 73 28 62 61 74 63 68 71 66 73 74 00 00 00 00 00 00 00 00 ┆if w0:=address(batchqfst ┆
0x01000…01006 (8,) (0x450,0x21)
0x01006…01020 29 20 3d 20 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b ┆) = w1 then goto continue;┆
0x01020…01040 20 20 21 20 62 61 74 63 68 71 75 65 75 65 20 61 6c 73 6f 20 65 6d 70 74 79 20 21 0a 20 20 20 20 ┆ ! batchqueue also empty ! ┆
0x01040…01060 65 6e 64 3b 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 3c 30 20 74 68 65 ┆end; if w0:=(w1).state<0 the┆
0x01060…0107e 6e 0a 20 20 20 20 62 65 67 69 6e 20 21 20 73 79 73 74 65 6d 63 6f 6d 6d 61 6e 64 20 21 0a ┆n begin ! systemcommand ! ┆
0x0107e…01084 (0x450,0x22)
0x01084…010a0 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 3a 3d 30 29 3b 0a 20 20 20 20 ┆ swop(.w3.,w1:=0); ┆
0x010a0…010c0 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 ┆ !get 2; if w0 <> 1 then ┆
0x010c0…010e0 67 6f 74 6f 20 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 73 79 73 63 6f 6d 6d 61 6e 64 ┆goto discfault; syscommand┆
0x010e0…010fc 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 65 6e ┆(.w3.,w1:=userentry); en┆
0x010fc…01102 (0x450,0x23)
0x01102…01120 64 20 65 6c 73 65 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 70 72 69 6f 3c 30 20 ┆d else if w0:=(w1).prio<0 ┆
0x01120…01140 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 77 30 2b 63 79 63 6c 65 ┆then begin if w0+cycle┆
0x01140…01160 67 61 69 6e 20 3e 20 30 20 74 68 65 6e 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e ┆gain > 0 then w0:=0; (w1).┆
0x01160…0117a 70 72 69 6f 3a 3d 77 30 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c ┆prio:=w0; link(.w3.,┆
0x0117a…01180 (0x450,0x24)
0x01180…011a0 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 ┆w1,w2:=address(activqfst)); ┆
0x011a0…011c0 65 6e 64 20 65 6c 73 65 20 0a 20 20 20 20 62 65 67 69 6e 20 0a 20 20 20 20 20 20 69 66 20 77 30 ┆end else begin if w0┆
0x011c0…011e0 3a 3d 20 28 77 31 29 2e 63 6c 61 73 73 20 3e 20 62 2e 62 61 74 63 68 63 6c 61 73 73 20 74 68 65 ┆:= (w1).class > b.batchclass the┆
0x011e0…01200 6e 0a 20 20 20 20 20 20 28 77 31 29 2e 70 72 69 6f 3a 3d 20 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆n (w1).prio:= w0:= ┆
0x01200…01206 (9,) (0x450,0x25)
0x01206…01220 20 28 77 31 29 2e 63 6c 61 73 73 3b 0a 20 20 20 20 20 20 70 72 65 70 61 72 65 ┆ (w1).class; prepare┆
0x01220…01240 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 69 6d 65 75 ┆(.w3.); w1:= address(timeu┆
0x01240…01260 6e 69 74 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 74 69 6d 65 72 29 3b ┆nit); w3:= address(timer);┆
0x01260…0127e 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 0a 20 20 20 20 20 20 74 69 6d 65 ┆ monitor(16); time┆
0x0127e…01284 (0x450,0x26)
0x01284…012a0 72 6d 65 73 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 ┆rmess:= w2; startstop(┆
0x012a0…012c0 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 63 6f 72 65 75 73 65 72 29 3b 0a 20 20 20 20 20 20 ┆.w3.,w0:=1,w1:=coreuser); ┆
0x012c0…012e0 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 67 6f 74 6f ┆goto continue; end; goto┆
0x012e0…012fc 20 61 63 74 69 76 61 74 65 3b 0a 0a 0c 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 20 63 ┆ activate; comment in c┆
0x012fc…01302 (0x450,0x27)
0x01302…01320 61 73 65 20 6f 66 20 61 20 64 69 73 63 20 66 61 75 6c 74 20 64 69 73 74 75 72 62 69 6e 67 ┆ase of a disc fault disturbing┆
0x01320…01340 20 74 68 65 20 6f 76 65 72 6c 61 79 20 74 72 61 6e 73 70 6f 72 74 73 2c 20 74 68 69 73 20 70 69 ┆ the overlay transports, this pi┆
0x01340…01360 65 63 65 0a 6f 66 20 63 6f 64 65 20 77 69 6c 6c 20 62 65 20 61 63 74 69 76 61 74 65 64 20 20 2d ┆ece of code will be activated -┆
0x01360…0137a 0a 74 68 65 20 6f 63 74 61 6c 20 73 74 61 74 75 73 2c 20 72 65 73 75 6c 74 20 ┆ the octal status, result ┆
0x0137a…01380 (0x450,0x28)
0x01380…013a0 6f 66 20 74 68 65 20 74 72 61 6e 73 70 6f 72 74 20 61 6e 64 20 74 68 65 20 6e 61 6d 65 20 6f 66 ┆of the transport and the name of┆
0x013a0…013c0 20 74 68 65 20 70 72 6f 67 72 61 6d 20 61 72 65 61 0a 77 69 6c 6c 20 62 65 20 77 72 69 74 74 65 ┆ the program area will be writte┆
0x013c0…013e0 6e 20 6f 6e 20 74 68 65 20 6d 61 69 6e 20 63 6f 6e 73 6f 6c 65 20 61 6e 64 20 74 68 65 20 22 73 ┆n on the main console and the "s┆
0x013e0…01400 6f 73 20 70 72 6f 63 65 73 73 22 20 77 69 6c 6c 20 64 69 65 3b 0a 0a 0a 00 00 00 00 00 00 00 00 ┆os process" will die; ┆
0x01400…01406 (10,) (0x450,0x29)
0x01406…01420 64 69 73 63 66 61 75 6c 74 3a 0a 20 20 20 20 72 65 67 69 73 74 65 72 30 3a 3d ┆discfault: register0:=┆
0x01420…01440 77 30 3b 0a 20 20 20 20 72 65 67 69 73 74 65 72 33 3a 3d 77 33 3b 0a 20 20 20 20 77 31 3a 3d 66 ┆w0; register3:=w3; w1:=f┆
0x01440…01460 69 72 73 74 75 73 65 72 3b 0a 20 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 ┆irstuser; (w1).peripheral:=w┆
0x01460…0147e 32 3a 3d 6d 61 69 6e 63 6f 6e 73 72 65 66 3b 0a 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 ┆2:=mainconsref; (w1).bufle┆
0x0147e…01484 (0x450,0x2a)
0x01484…014a0 6e 67 74 68 3a 3d 77 32 3a 3d 34 34 3b 0a 20 20 20 20 28 77 31 29 2e 62 75 66 66 65 ┆ngth:=w2:=44; (w1).buffe┆
0x014a0…014c0 72 3a 3d 77 32 3a 3d 61 64 64 72 65 73 73 28 66 61 75 6c 74 74 65 78 74 29 3b 0a 20 20 20 20 28 ┆r:=w2:=address(faulttext); (┆
0x014c0…014e0 77 32 2b 31 34 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 32 31 31 31 35 32 37 3b 20 20 20 21 20 20 22 ┆w2+14).word:=w0:=2111527; ! "┆
0x014e0…014fc 20 38 27 22 20 20 21 0a 20 20 20 20 66 6f 72 20 77 31 3a 3d 2d 32 31 20 73 74 65 70 ┆ 8'" ! for w1:=-21 step┆
0x014fc…01502 (0x450,0x2b)
0x01502…01520 20 33 20 75 70 74 6f 20 30 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 ┆ 3 upto 0 do begin w┆
0x01520…01540 32 2b 32 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 72 65 67 69 73 74 ┆2+2; (w2).word:=w0:=regist┆
0x01540…01560 65 72 30 20 6c 73 68 69 66 74 20 28 77 31 29 20 65 78 74 72 61 63 74 20 33 20 2b 20 34 38 3b 0a ┆er0 lshift (w1) extract 3 + 48; ┆
0x01560…0157a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 28 77 32 2b 32 29 2e 77 6f 72 64 3a 3d ┆ end; (w2+2).word:=┆
0x0157a…01580 (0x450,0x2c)
0x01580…015a0 77 30 3a 3d 33 32 3b 0a 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d ┆w0:=32; copy(.w3.,w0:=8,w1:=┆
0x015a0…015c0 72 65 67 69 73 74 65 72 33 2c 77 32 2b 32 29 3b 0a 20 20 20 20 28 77 32 2b 38 29 2e 77 6f 72 64 ┆register3,w2+2); (w2+8).word┆
0x015c0…015e0 3a 3d 77 30 3a 3d 31 30 3b 0a 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 ┆:=w0:=10; send(.w3.,w0:=0,w1┆
0x015e0…01600 3a 3d 66 69 72 73 74 75 73 65 72 2c 77 32 3a 3d 32 30 34 38 30 29 3b 0a 00 00 00 00 00 00 00 00 ┆:=firstuser,w2:=20480); ┆
0x01600…01606 (11,) (0x450,0x2d)
0x01606…01620 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 30 29 3b ┆ w3:=0; monitor(0);┆
0x01620…01640 20 20 21 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 20 21 0a 20 20 20 20 21 68 61 6c 74 20 31 3b ┆ ! set interrupt ! !halt 1;┆
0x01640…01660 20 20 20 21 20 70 72 6f 76 6f 6b 65 20 72 75 6e 6e 69 6e 67 20 61 66 74 65 72 20 65 72 72 6f 72 ┆ ! provoke running after error┆
0x01660…0167e 20 21 0a 0a 20 20 65 6e 64 3b 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 ┆ ! end; comment ┆
0x0167e…01684 (0x450,0x2e)
0x01684…016a0 70 72 65 70 61 72 61 74 69 6f 6e 20 6f 66 20 70 72 6f 63 65 73 73 20 77 61 69 74 69 ┆preparation of process waiti┆
0x016a0…016c0 6e 67 20 74 6f 20 62 65 20 61 63 74 69 76 61 74 65 64 0a 0a 66 69 72 73 74 20 6f 66 20 61 6c 6c ┆ng to be activated first of all┆
0x016c0…016e0 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 6d 61 67 65 20 69 6e 20 63 6f 72 65 20 69 73 20 70 6f ┆ the process image in core is po┆
0x016e0…016fc 73 73 69 62 6c 79 20 77 72 69 74 74 65 6e 20 62 61 63 6b 20 69 6e 74 6f 20 74 68 65 ┆ssibly written back into the┆
0x016fc…01702 (0x450,0x2f)
0x01702…01720 0a 73 77 6f 70 61 72 65 61 20 61 6e 64 20 74 68 65 20 69 6d 61 67 65 20 6f 66 20 74 68 65 ┆ swoparea and the image of the┆
0x01720…01740 20 6e 65 77 20 70 72 6f 63 65 73 73 20 69 73 20 6c 6f 61 64 65 64 0a 74 68 65 6e 20 6f 6e 65 20 ┆ new process is loaded then one ┆
0x01740…01760 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 63 74 69 6f 6e 73 20 61 72 65 20 74 61 6b ┆of the following actions are tak┆
0x01760…0177a 65 6e 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 73 74 ┆en corresponding to the st┆
0x0177a…01780 (0x450,0x30)
0x01780…017a0 61 74 65 20 6f 66 0a 74 68 65 20 73 65 6c 65 63 74 65 64 20 70 72 6f 63 65 73 73 0a 0a 30 29 20 ┆ate of the selected process 0) ┆
0x017a0…017c0 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 72 65 61 64 79 20 66 6f 72 20 72 75 6e 6e 69 6e 67 ┆the process is ready for running┆
0x017c0…017e0 20 2d 0a 20 20 20 20 20 6e 6f 20 61 63 74 69 6f 6e 73 0a 0a 31 29 20 69 6e 70 75 74 20 68 61 73 ┆ - no actions 1) input has┆
0x017e0…01800 20 61 72 72 69 76 65 64 20 66 72 6f 6d 20 74 68 65 20 74 65 72 6d 69 6e 00 00 00 00 00 00 00 00 ┆ arrived from the termin ┆
0x01800…01806 (12,) (0x450,0x31)
0x01806…01820 61 6c 20 2d 0a 20 20 20 20 20 74 68 65 20 69 6e 70 75 74 20 69 73 20 63 6f 70 ┆al - the input is cop┆
0x01820…01840 69 65 64 20 66 72 6f 6d 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 20 69 6e 74 ┆ied from the terminal buffer int┆
0x01840…01860 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 6e 64 0a 20 20 20 20 20 61 6e 20 61 6e 73 77 65 72 ┆o the process and an answer┆
0x01860…0187e 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 0a 0a 32 29 20 74 65 ┆ is sent to the process 2) te┆
0x0187e…01884 (0x450,0x32)
0x01884…018a0 72 6d 69 6e 61 6c 20 68 61 73 20 62 65 63 6f 6d 65 20 72 65 61 64 79 20 61 66 74 65 ┆rminal has become ready afte┆
0x018a0…018c0 72 20 6f 75 74 70 75 74 20 28 74 65 72 6d 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 66 ┆r output (term buffer has been f┆
0x018c0…018e0 75 6c 6c 29 0a 20 20 20 20 20 6e 6f 20 61 63 74 69 6f 6e 73 0a 0a 33 29 20 74 68 65 20 70 72 6f ┆ull) no actions 3) the pro┆
0x018e0…018fc 63 65 73 73 20 69 73 20 74 6f 20 62 65 20 73 74 61 72 74 65 64 20 77 69 74 68 20 6e ┆cess is to be started with n┆
0x018fc…01902 (0x450,0x33)
0x01902…01920 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 74 68 65 20 70 72 6f 63 65 73 ┆ew abs program the proces┆
0x01920…01940 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 73 20 6d 6f 64 69 66 69 65 64 20 61 63 63 6f 72 64 ┆s description is modified accord┆
0x01940…01960 69 6e 67 20 74 6f 20 74 68 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 66 6f 72 0a 20 20 20 20 20 ┆ing to the conventions for ┆
0x01960…0197a 73 74 61 72 74 20 6f 66 20 61 6e 20 61 62 73 20 70 72 6f 67 72 61 6d 0a 3b 0a ┆start of an abs program ; ┆
0x0197a…01980 (0x450,0x34)
0x01980…019a0 0a 0a 0a 62 6f 64 79 20 6f 66 20 70 72 65 70 61 72 65 0a 62 65 67 69 6e 0a 20 20 6c 61 62 65 6c ┆ body of prepare begin label┆
0x019a0…019c0 20 69 6e 70 75 74 72 65 61 64 79 3b 0a 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 77 6f 72 64 20 72 ┆ inputready; incode word r┆
0x019c0…019e0 65 74 75 72 6e 3b 0a 20 20 20 20 77 6f 72 64 20 63 5f 66 75 6e 63 74 3a 3d 32 27 30 31 31 30 31 ┆eturn; word c_funct:=2'01101┆
0x019e0…01a00 3b 0a 20 20 20 20 72 65 66 20 20 63 5f 66 69 72 73 74 2c 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆; ref c_first, ┆
0x01a00…01a06 (13,) (0x450,0x35)
0x01a06…01a20 20 20 20 20 20 63 5f 6c 61 73 74 3b 0a 20 20 20 20 77 6f 72 64 20 63 5f 72 65 ┆ c_last; word c_re┆
0x01a20…01a40 6c 3a 3d 30 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 ┆l:=0; begin return:=w3; ┆
0x01a40…01a60 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 63 61 73 65 20 77 33 3a 3d 28 77 ┆ swop(.w3.,w1); case w3:=(w┆
0x01a60…01a7e 31 29 2e 73 74 61 74 65 2b 31 20 6f 66 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆1).state+1 of begin ┆
0x01a7e…01a84 (0x450,0x36)
0x01a84…01aa0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 30 3a 20 6e 6f 20 69 6f 20 6f 72 20 63 6f ┆begin comment 0: no io or co┆
0x01aa0…01ac0 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 76 69 61 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 3b 0a ┆mmunication via pseudo process; ┆
0x01ac0…01ae0 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 20 3e 20 31 30 ┆ if w3:=(w1).messgot > 10┆
0x01ae0…01afc 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 70 75 74 72 65 61 64 79 3b 0a 20 20 20 20 20 ┆ then goto inputready; ┆
0x01afc…01b02 (0x450,0x37)
0x01b02…01b20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 31 3a 20 69 ┆ end; begin comment 1: i┆
0x01b20…01b40 6e 70 75 74 20 72 65 61 64 79 3b 0a 69 6e 70 75 74 72 65 61 64 79 3a 0a 20 20 20 20 20 20 20 20 ┆nput ready; inputready: ┆
0x01b40…01b60 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 ┆w0:=(w1).messsend; w3:=(┆
0x01b60…01b7a 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 ┆w1).messgot; if w3┆
0x01b7a…01b80 (0x450,0x38)
0x01b80…01ba0 3a 3d 28 77 33 29 2e 6f 70 65 72 61 74 69 6f 6e 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 0a ┆:=(w3).operation onemask 1 then ┆
0x01ba0…01bc0 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 28 77 31 29 2e 73 74 61 74 75 73 69 6e 66 20 ┆ if w0 or (w1).statusinf ┆
0x01bc0…01be0 6f 72 20 38 27 31 30 32 30 30 30 30 31 20 3c 3e 20 38 27 31 30 32 30 30 30 30 31 20 74 68 65 6e ┆or 8'10200001 <> 8'10200001 then┆
0x01be0…01c00 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x01c00…01c06 (14,) (0x450,0x39)
0x01c06…01c20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 ┆ swop(.w3.,w1:=0); ┆
0x01c20…01c40 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 20 ┆ !get 2; if w0 <> 1 ┆
0x01c40…01c60 74 68 65 6e 20 67 6f 74 6f 20 62 2e 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆then goto b.discfault; ┆
0x01c60…01c7e 20 6c 6f 67 6f 75 74 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 3b ┆ logout(.w3.,w1:=b.userentry);┆
0x01c7e…01c84 (0x450,0x3a)
0x01c84…01ca0 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆ end; if w0:┆
0x01ca0…01cc0 3d 28 77 31 29 2e 70 72 6f 63 62 75 66 31 3c 77 33 3a 3d 62 2e 66 73 74 63 6f 72 65 20 74 68 65 ┆=(w1).procbuf1<w3:=b.fstcore the┆
0x01cc0…01ce0 6e 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 28 2e 77 33 2e 2c 77 31 29 0a 20 20 20 20 20 20 ┆n unintelligible(.w3.,w1) ┆
0x01ce0…01cfc 20 20 65 6c 73 65 20 69 66 20 77 30 2b 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3e ┆ else if w0+(w1).buflength>┆
0x01cfc…01d02 (0x450,0x3b)
0x01d02…01d20 28 77 33 2b 28 77 31 29 2e 70 72 6f 63 73 69 7a 65 29 20 74 68 65 6e 20 75 6e 69 6e 74 65 ┆(w3+(w1).procsize) then uninte┆
0x01d20…01d40 6c 6c 69 67 69 62 6c 65 28 2e 77 33 2e 2c 77 31 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆lligible(.w3.,w1) else ┆
0x01d40…01d60 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 63 6f 72 ┆ begin w2:=b.cor┆
0x01d60…01d7a 65 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e ┆euser; copy(.w3.┆
0x01d7a…01d80 (0x450,0x3c)
0x01d80…01da0 2c 77 30 3a 3d 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 2c 77 31 3a 3d 28 77 31 29 2e 62 75 66 ┆,w0:=(w1).buflength,w1:=(w1).buf┆
0x01da0…01dc0 66 65 72 2c 77 32 3a 3d 28 77 32 29 2e 70 72 6f 63 62 75 66 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆fer,w2:=(w2).procbuf1); ┆
0x01dc0…01de0 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 ┆ testout(.w3.,w0,w1,w2:=0); ┆
0x01de0…01e00 20 20 20 20 20 20 20 28 77 33 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 00 00 00 00 00 00 00 00 ┆ (w3:=b.userentry) ┆
0x01e00…01e06 (15,) (0x450,0x3d)
0x01e06…01e20 2e 63 75 72 72 6c 6f 63 69 64 3a 3d 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b ┆.currlocid:=w0:=(w1).word;┆
0x01e20…01e40 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 ┆ w1:= b.userentry; ┆
0x01e40…01e60 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 73 65 ┆ send(.w3.,w0:=(w1).messse┆
0x01e60…01e7e 6e 64 2c 77 31 2c 77 32 3a 3d 28 77 31 29 2e 73 74 61 74 75 73 69 6e 66 29 3b 0a 20 20 20 ┆nd,w1,w2:=(w1).statusinf); ┆
0x01e7e…01e84 (0x450,0x3e)
0x01e84…01ea0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 ┆ end; (w1).state┆
0x01ea0…01ec0 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 6c 61 ┆:=w0:=0; if w0:=(w1).cla┆
0x01ec0…01ee0 73 73 2b 62 2e 74 69 6d 65 72 6c 6f 73 73 20 3e 20 62 2e 62 61 74 63 68 63 6c 61 73 73 20 74 68 ┆ss+b.timerloss > b.batchclass th┆
0x01ee0…01efc 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 ┆en begin i┆
0x01efc…01f02 (0x450,0x3f)
0x01f02…01f20 66 20 77 30 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2b 62 2e 69 6e 70 75 74 67 61 69 6e 20 3e ┆f w0:=(w1).class+b.inputgain >┆
0x01f20…01f40 20 30 20 74 68 65 6e 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 6c ┆ 0 then w0:=0; (w1).cl┆
0x01f40…01f60 61 73 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 69 6f 3a 3d 77 30 ┆ass:=w0; (w1).prio:=w0┆
0x01f60…01f7a 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆; end; end; ┆
0x01f7a…01f80 (0x450,0x40)
0x01f80…01fa0 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 32 3a 20 77 61 69 74 69 6e 67 20 66 ┆ begin comment 2: waiting f┆
0x01fa0…01fc0 6f 72 20 6f 75 74 70 75 74 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆or output answer; end; ┆
0x01fc0…01fe0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 33 3a 20 77 61 69 74 69 6e 67 20 66 6f 72 20 ┆ begin comment 3: waiting for ┆
0x01fe0…02000 6c 6f 61 64 69 6e 67 20 77 69 74 68 20 6e 65 77 20 61 62 73 20 70 72 6f 00 00 00 00 00 00 00 00 ┆loading with new abs pro ┆
0x02000…02006 (16,) (0x450,0x41)
0x02006…02020 67 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆gram; w3:=address(┆
0x02020…02040 62 2e 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 ┆b.procname); w0:=address┆
0x02040…02060 28 28 77 31 29 2e 70 72 5f 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 77 30 2b 62 2e 62 61 73 65 ┆((w1).pr_out); w0+b.base┆
0x02060…0207e 72 65 67 3b 0a 20 20 20 20 20 20 20 20 62 2e 72 65 67 69 73 74 65 72 32 3a 3d 77 30 3b 0a ┆reg; b.register2:=w0; ┆
0x0207e…02084 (0x450,0x42)
0x02084…020a0 20 20 20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 70 72 5f ┆ w0:=address((w1).pr_┆
0x020a0…020c0 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 62 2e 72 65 67 69 73 74 65 72 30 3a 3d 77 30 2b 62 2e 62 ┆in); b.register0:=w0+b.b┆
0x020c0…020e0 61 73 65 72 65 67 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 ┆asereg; w2:=(w1).interna┆
0x020e0…020fc 6c 3b 0a 20 20 20 20 20 20 20 20 62 2e 72 65 67 69 73 74 65 72 33 3a 3d 77 32 3b 0a ┆l; b.register3:=w2; ┆
0x020fc…02102 (0x450,0x43)
0x02102…02120 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 32 3c 31 0a 20 ┆ if w0:=(w1).state2<1 ┆
0x02120…02140 20 20 20 20 20 20 20 74 68 65 6e 20 77 30 3a 3d 62 2e 66 73 74 63 6f 72 65 2b 62 2e 66 70 5f 72 ┆ then w0:=b.fstcore+b.fp_r┆
0x02140…02160 65 6c 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 6e 0a 20 20 ┆el else begin ┆
0x02160…0217a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3a 3d 30 3b ┆ (w1).class:=w0:=0;┆
0x0217a…02180 (0x450,0x44)
0x02180…021a0 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 62 2e 66 73 74 63 6f 72 65 2b 62 2e 63 6c 65 61 72 ┆ w0:=b.fstcore+b.clear┆
0x021a0…021c0 74 5f 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 2e 69 63 ┆t_rel; end; b.ic┆
0x021c0…021e0 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 28 77 33 ┆:= w0; w2+2; (w3┆
0x021e0…02200 29 2e 6e 61 6d 65 31 3a 3d 66 31 3a 3d 28 77 32 29 2e 6e 61 6d 65 31 3b 00 00 00 00 00 00 00 00 ┆).name1:=f1:=(w2).name1; ┆
0x02200…02206 (17,) (0x450,0x45)
0x02206…02220 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 32 3a 3d 66 31 3a 3d 28 ┆ (w3).name2:=f1:=(┆
0x02220…02240 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 ┆w2).name2; w1:=address(b┆
0x02240…02260 2e 72 65 67 69 73 74 65 72 30 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 32 29 ┆.register0); monitor(62)┆
0x02260…0227e 3b 20 20 63 6f 6d 6d 65 6e 74 20 6d 6f 64 69 66 79 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f ┆; comment modify internal pro┆
0x0227e…02284 (0x450,0x46)
0x02284…022a0 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 63 6f 72 65 75 73 65 72 ┆cess; w1:=b.coreuser┆
0x022a0…022c0 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 ┆; (w1).state:=w0:=0; ┆
0x022c0…022e0 20 20 20 20 20 28 77 31 29 2e 70 72 69 6f 3a 3d 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ (w1).prio:=w0; end; ┆
0x022e0…022fc 20 20 20 20 20 62 65 67 69 6e 20 21 20 34 3a 20 73 75 73 70 65 6e 64 65 64 20 62 65 ┆ begin ! 4: suspended be┆
0x022fc…02302 (0x450,0x47)
0x02302…02320 63 61 75 73 65 20 6f 66 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20 66 75 6c 6c 20 21 0a ┆cause of output buffer full ! ┆
0x02320…02340 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 35 3a 20 6d 65 73 73 ┆ end; begin ! 5: mess┆
0x02340…02360 61 67 65 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 73 65 6e 64 20 21 0a 20 20 20 20 20 20 65 ┆age waiting to be send ! e┆
0x02360…0237a 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 36 3a 20 77 61 69 74 69 ┆nd; begin ! 6: waiti┆
0x0237a…02380 (0x450,0x48)
0x02380…023a0 6e 67 20 66 6f 72 20 61 6e 73 77 65 72 20 66 72 6f 6d 20 70 72 69 6d 6f 20 21 0a 20 20 20 20 20 ┆ng for answer from primo ! ┆
0x023a0…023c0 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 3b 0a 20 20 20 ┆ startstop(.w3.,w0:=1,w1); ┆
0x023c0…023e0 20 20 20 20 20 63 5f 66 69 72 73 74 3a 3d 77 30 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 ┆ c_first:=w0:=(w1).buffer; ┆
0x023e0…02400 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 00 00 00 00 00 00 00 00 ┆ w3:=(w1).buflengt ┆
0x02400…02406 (18,) (0x450,0x49)
0x02406…02420 68 2d 32 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 63 5f 6c 61 73 74 3a 3d 77 33 ┆h-2+w0; c_last:=w3┆
0x02420…02440 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 ┆; w2:=(w1).messgot; ┆
0x02440…02460 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 63 5f 66 75 6e 63 74 29 3b 0a 20 20 20 20 20 20 ┆ w1:=address(c_funct); ┆
0x02460…0247e 20 20 69 66 20 77 33 3e 3d 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆ if w3>=w0 then mon┆
0x0247e…02484 (0x450,0x4a)
0x02484…024a0 69 74 6f 72 28 38 34 29 20 21 20 67 65 6e 65 72 61 6c 20 63 6f 70 79 20 21 0a 20 20 ┆itor(84) ! general copy ! ┆
0x024a0…024c0 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 ┆ else w0:=0; ┆
0x024c0…024e0 20 20 20 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆ w1:=b.userentry; if ┆
0x024e0…024fc 77 30 3c 3e 30 20 74 68 65 6e 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 30 ┆w0<>0 then (w1).messsend:=w0┆
0x024fc…02502 (0x450,0x4b)
0x02502…02520 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 29 2e 6d ┆; send(.w3.,w0:=(w1).m┆
0x02520…02540 65 73 73 73 65 6e 64 2c 77 31 2c 77 32 3a 3d 28 77 31 29 2e 73 74 61 74 75 73 69 6e 66 29 3b 0a ┆esssend,w1,w2:=(w1).statusinf); ┆
0x02540…02560 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 ┆ startstop(.w3.,w0:=0,w1)┆
0x02560…0257a 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d ┆; (w1).state:=w0:=┆
0x0257a…02580 (0x450,0x4c)
0x02580…025a0 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 37 3a 20 6d ┆0; end; begin ! 7: m┆
0x025a0…025c0 65 73 73 61 67 65 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 73 65 6e 64 20 74 6f 20 70 72 69 ┆essage waiting to be send to pri┆
0x025c0…025e0 6d 6f 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 77 33 3a ┆mo ! end; end; w3:┆
0x025e0…02600 3d 72 65 74 75 72 6e 0a 20 20 65 6e 64 0a 65 6e 64 3b 20 20 20 20 20 21 00 00 00 00 00 00 00 00 ┆=return end end; ! ┆
0x02600…02606 (19,) (0x450,0x4d)
0x02606…02620 20 20 70 72 65 70 61 72 65 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e ┆ prepare ! commen┆
0x02620…02640 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 65 76 65 6e 74 0a 0a 74 68 69 73 ┆t waitevent this┆
0x02640…02660 20 70 72 6f 63 65 64 75 72 65 20 61 77 61 69 74 73 20 74 68 65 20 66 69 72 73 74 20 65 76 65 6e ┆ procedure awaits the first even┆
0x02660…0267e 74 20 71 75 65 75 65 64 20 75 70 20 74 6f 20 74 68 65 20 6f 6e 6c 69 6e 65 61 64 6d 69 6e ┆t queued up to the onlineadmin┆
0x0267e…02684 (0x450,0x4e)
0x02684…026a0 69 73 74 72 61 74 6f 72 0a 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 6b 69 ┆istrator according to the ki┆
0x026a0…026c0 6e 64 20 6f 66 20 74 68 69 73 20 65 76 65 6e 74 20 69 74 20 70 72 6f 63 65 65 64 73 20 61 73 20 ┆nd of this event it proceeds as ┆
0x026c0…026e0 66 6f 6c 6c 6f 77 73 3a 0a 0a 61 6e 73 77 65 72 3a 20 61 6e 20 61 6e 73 77 65 72 20 69 73 20 65 ┆follows: answer: an answer is e┆
0x026e0…026fc 78 70 65 63 74 65 64 20 74 6f 20 63 6f 6d 65 20 66 72 6f 6d 20 74 68 65 20 74 69 6d ┆xpected to come from the tim┆
0x026fc…02702 (0x450,0x4f)
0x02702…02720 65 72 20 6f 72 20 66 72 6f 6d 20 61 20 74 65 72 6d 69 6e 61 6c 0a 6c 6f 67 67 65 64 20 69 ┆er or from a terminal logged i┆
0x02720…02740 6e 2c 20 20 73 6f 20 74 68 65 20 75 73 65 72 65 6e 74 72 69 65 73 20 61 72 65 20 73 63 61 6e 6e ┆n, so the userentries are scann┆
0x02740…02760 65 64 20 74 6f 20 66 69 6e 64 20 74 68 65 20 6f 6e 65 20 6d 61 74 63 68 69 6e 67 20 74 68 69 73 ┆ed to find the one matching this┆
0x02760…0277a 0a 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 28 74 68 65 20 62 75 66 66 65 ┆ message buffer (the buffe┆
0x0277a…02780 (0x450,0x50)
0x02780…027a0 72 20 61 64 64 72 65 73 73 65 73 20 6f 66 20 6d 65 73 73 61 67 65 73 20 73 65 6e 74 20 74 6f 20 ┆r addresses of messages sent to ┆
0x027a0…027c0 74 65 72 6d 69 6e 61 6c 73 20 61 72 65 20 0a 73 61 76 65 64 20 69 6e 20 74 68 65 20 75 73 65 72 ┆terminals are saved in the user┆
0x027c0…027e0 65 6e 74 72 69 65 73 29 2c 20 20 69 66 20 6e 6f 20 65 6e 74 72 79 20 69 73 20 66 6f 75 6e 64 2c ┆entries), if no entry is found,┆
0x027e0…02800 20 61 6e 64 20 69 74 20 69 73 20 6e 6f 74 20 61 6e 20 61 6e 73 77 65 72 00 00 00 00 00 00 00 00 ┆ and it is not an answer ┆
0x02800…02806 (20,) (0x450,0x51)
0x02806…02820 0a 66 72 6f 6d 20 74 68 65 20 74 69 6d 65 72 2c 20 74 68 65 6e 20 74 68 65 20 ┆ from the timer, then the ┆
0x02820…02840 61 6e 73 77 65 72 20 69 73 20 6e 65 67 6c 65 63 74 65 64 20 61 6e 64 20 74 68 65 20 70 72 6f 63 ┆answer is neglected and the proc┆
0x02840…02860 65 64 75 72 65 20 61 77 61 69 74 73 20 74 68 65 0a 6e 65 78 74 20 65 76 65 6e 74 2e 0a 0a 6d 65 ┆edure awaits the next event. me┆
0x02860…0287e 73 73 61 67 65 3a 20 61 20 6d 65 73 73 61 67 65 20 69 73 20 65 78 70 65 63 74 65 64 20 74 ┆ssage: a message is expected t┆
0x0287e…02884 (0x450,0x52)
0x02884…028a0 6f 20 62 65 20 61 6e 20 69 2d 6f 20 6d 65 73 73 61 67 65 20 6f 72 20 61 20 70 61 72 ┆o be an i-o message or a par┆
0x028a0…028c0 65 6e 74 20 6d 65 73 73 61 67 65 20 0a 66 72 6f 6d 20 61 6e 20 69 6e 74 65 72 6e 61 6c 20 70 72 ┆ent message from an internal pr┆
0x028c0…028e0 6f 63 65 73 73 20 6f 72 20 61 6e 20 61 74 74 65 6e 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 66 72 ┆ocess or an attention message fr┆
0x028e0…028fc 6f 6d 20 61 20 74 65 72 6d 69 6e 61 6c 2e 20 74 68 65 0a 75 73 65 72 65 6e 74 72 69 ┆om a terminal. the userentri┆
0x028fc…02902 (0x450,0x53)
0x02902…02920 65 73 20 61 72 65 20 73 63 61 6e 6e 65 64 20 74 6f 20 66 69 6e 64 20 74 68 65 20 73 65 6e ┆es are scanned to find the sen┆
0x02920…02940 64 65 72 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 2e 20 69 66 20 6e 6f 20 65 6e 74 72 79 0a ┆der of the message. if no entry ┆
0x02940…02960 64 6f 65 73 20 6d 61 74 63 68 20 74 68 65 20 73 65 6e 64 65 72 20 28 6e 65 69 74 68 65 72 20 69 ┆does match the sender (neither i┆
0x02960…0297a 6e 74 65 72 6e 61 6c 20 6e 6f 72 20 70 65 72 69 70 68 65 72 61 6c 20 70 72 6f ┆nternal nor peripheral pro┆
0x0297a…02980 (0x450,0x54)
0x02980…029a0 63 65 73 73 20 62 65 6c 6f 6e 67 69 6e 67 0a 74 6f 20 61 6e 79 20 75 73 65 72 29 20 74 68 65 6e ┆cess belonging to any user) then┆
0x029a0…029c0 20 74 68 65 20 6d 65 73 73 61 67 65 20 6d 61 79 20 62 65 3a 0a 31 29 20 61 6e 20 61 74 74 65 6e ┆ the message may be: 1) an atten┆
0x029c0…029e0 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 6e 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 ┆tion message from an unknown ter┆
0x029e0…02a00 6d 69 6e 61 6c 2c 20 74 68 65 20 73 65 6e 64 65 72 20 69 73 20 74 68 65 00 00 00 00 00 00 00 00 ┆minal, the sender is the ┆
0x02a00…02a06 (21,) (0x450,0x55)
0x02a06…02a20 6e 20 73 61 76 65 64 0a 20 20 20 69 6e 20 61 20 66 72 65 65 20 75 73 65 72 65 ┆n saved in a free usere┆
0x02a20…02a40 6e 74 72 79 20 28 69 66 20 61 6e 79 29 0a 32 29 20 61 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 ┆ntry (if any) 2) a message from ┆
0x02a40…02a60 61 6e 20 75 6e 6b 6e 6f 77 6e 20 70 72 6f 63 65 73 73 2c 20 20 74 68 65 20 6d 65 73 73 61 67 65 ┆an unknown process, the message┆
0x02a60…02a7e 20 69 73 20 72 65 6a 65 63 74 65 64 0a 0a 74 68 75 73 20 61 74 20 65 78 69 74 20 74 68 65 ┆ is rejected thus at exit the┆
0x02a7e…02a84 (0x450,0x56)
0x02a84…02aa0 20 70 72 6f 63 65 64 75 72 65 20 61 6c 77 61 79 73 20 64 65 6c 69 76 65 72 73 3a 0a ┆ procedure always delivers: ┆
0x02aa0…02ac0 20 20 20 61 6e 20 65 76 65 6e 74 20 28 77 32 29 0a 20 20 20 61 20 75 73 65 72 65 6e 74 72 79 20 ┆ an event (w2) a userentry ┆
0x02ac0…02ae0 28 77 31 29 0a 20 20 20 61 6e 20 65 76 65 6e 74 20 6b 69 6e 64 20 28 77 30 29 20 74 68 65 73 65 ┆(w1) an event kind (w0) these┆
0x02ae0…02afc 20 6b 69 6e 64 73 20 61 72 65 3a 20 20 31 20 3d 20 69 6e 70 75 74 20 6d 65 73 73 61 ┆ kinds are: 1 = input messa┆
0x02afc…02b02 (0x450,0x57)
0x02b02…02b20 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ge from internal ┆
0x02b20…02b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 3d 20 6f ┆ 2 = o┆
0x02b40…02b60 75 74 70 75 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 ┆utput message from internal ┆
0x02b60…02b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02b7a…02b80 (0x450,0x58)
0x02b80…02ba0 20 20 20 20 20 20 20 20 20 20 33 20 3d 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 20 66 72 6f ┆ 3 = parent message fro┆
0x02ba0…02bc0 6d 20 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆m internal ┆
0x02bc0…02be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 3d 20 61 74 74 65 6e 74 69 6f 6e ┆ 4 = attention┆
0x02be0…02c00 20 66 72 6f 6d 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ from known terminal ┆
0x02c00…02c06 (22,) (0x450,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 35 20 3d 20 61 6e 73 77 65 72 20 66 72 6f 6d 20 6b 6e 6f 77 6e ┆ 5 = answer from known┆
0x02c40…02c60 20 74 65 72 6d 69 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ terminal ┆
0x02c60…02c7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 20 3d 20 61 74 74 65 6e 74 69 6f ┆ 6 = attentio┆
0x02c7e…02c84 (0x450,0x5a)
0x02c84…02ca0 6e 20 66 72 6f 6d 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 0a 20 20 20 20 ┆n from unknown terminal ┆
0x02ca0…02cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02cc0…02ce0 20 20 20 20 37 20 3d 20 61 6e 73 77 65 72 20 66 72 6f 6d 20 74 69 6d 65 72 0a 20 20 20 20 20 20 ┆ 7 = answer from timer ┆
0x02ce0…02cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02cfc…02d02 (0x450,0x5b)
0x02d02…02d20 20 20 20 20 20 20 38 20 3d 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 20 62 61 73 74 61 ┆ 8 = message from a basta┆
0x02d20…02d40 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rd ┆
0x02d40…02d60 20 20 20 20 20 20 20 20 20 20 20 39 20 3d 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 73 65 75 ┆ 9 = message to a pseu┆
0x02d60…02d7a 64 6f 20 70 72 6f 63 65 73 73 20 28 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 ┆do process (tem) ┆
0x02d7a…02d80 (0x450,0x5c)
0x02d80…02da0 20 20 20 20 20 20 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 30 ┆ 10┆
0x02da0…02dc0 20 3d 20 6d 65 73 73 61 67 65 20 74 6f 20 62 65 20 73 65 6e 64 20 6c 61 74 65 72 0a 20 20 20 20 ┆ = message to be send later ┆
0x02dc0…02de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02de0…02e00 20 20 20 31 31 20 3d 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 73 65 00 00 00 00 00 00 00 00 ┆ 11 = message to a pse ┆
0x02e00…02e06 (23,) (0x450,0x5d)
0x02e06…02e20 75 64 6f 20 70 72 6f 63 65 73 73 20 28 70 72 69 6d 6f 29 0a 20 20 20 20 20 20 ┆udo process (primo) ┆
0x02e20…02e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02e40…02e60 20 31 32 20 3d 20 6d 65 73 73 61 67 65 20 74 6f 20 62 65 20 73 65 6e 64 20 6c 61 74 65 72 20 74 ┆ 12 = message to be send later t┆
0x02e60…02e7e 6f 20 70 72 69 6d 6f 0a 3b 0a 0c 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 77 61 69 74 ┆o primo ; body of wait┆
0x02e7e…02e84 (0x450,0x5e)
0x02e84…02ea0 65 76 65 6e 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6c 61 62 65 6c 20 ┆event begin label ┆
0x02ea0…02ec0 77 61 69 74 2c 65 78 69 74 2c 72 65 6a 65 63 74 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 ┆wait,exit,reject; incode ┆
0x02ec0…02ee0 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 30 2c 73 61 76 65 77 31 2c 7a 65 72 6f 3a 3d 30 ┆ word save0,savew1,zero:=0┆
0x02ee0…02efc 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 2c 63 75 72 72 6d 65 73 ┆; ref return,currmes┆
0x02efc…02f02 (0x450,0x5f)
0x02f02…02f20 73 2c 65 6e 74 72 79 72 65 66 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆s,entryref; begin ┆
0x02f20…02f40 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 77 61 69 74 3a 0a 20 20 20 20 20 20 20 20 77 32 3a 3d ┆ return:=w3; wait: w2:=┆
0x02f40…02f60 62 2e 62 61 73 65 65 76 65 6e 74 3b 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 34 ┆b.baseevent;; monitor(24┆
0x02f60…02f7a 29 3b 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 20 66 69 72 73 74 20 65 76 65 6e ┆); comment wait first even┆
0x02f7a…02f80 (0x450,0x60)
0x02f80…02fa0 74 3b 0a 20 20 20 20 20 20 20 20 63 75 72 72 6d 65 73 73 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 ┆t; currmess:=w2; ┆
0x02fa0…02fc0 20 77 31 3a 3d 62 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d ┆ w1:=b.lastuser; if w0 =┆
0x02fc0…02fe0 20 31 20 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 ┆ 1 then comment answer; ┆
0x02fe0…03000 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 00 00 00 00 00 00 00 00 ┆begin (w1).mes ┆
0x03000…03006 (24,) (0x450,0x61)
0x03006…03020 73 73 65 6e 64 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 ┆ssend:=w2; w1:=a┆
0x03020…03040 64 64 72 65 73 73 28 62 2e 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d ┆ddress(b.interrupt); m┆
0x03040…03060 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 20 61 6e 73 77 65 72 ┆onitor(18); comment wait answer┆
0x03060…0307e 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 62 2e 74 69 6d 65 72 6d 65 73 ┆; if w2 = b.timermes┆
0x0307e…03084 (0x450,0x62)
0x03084…030a0 73 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 ┆s then begin ┆
0x030a0…030c0 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 69 6d 65 ┆ w0:=0; b.time┆
0x030c0…030e0 72 6d 65 73 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 37 3b 0a 20 20 ┆rmess:=w0; w0:=7; ┆
0x030e0…030fc 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 ┆ goto exit; ┆
0x030fc…03102 (0x450,0x63)
0x03102…03120 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 66 69 72 73 74 75 ┆ end; w1:=b.firstu┆
0x03120…03140 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 20 3c 3e 20 28 77 31 29 2e ┆ser; while w2 <> (w1).┆
0x03140…03160 6d 65 73 73 73 65 6e 64 20 64 6f 20 77 31 2b 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 ┆messsend do w1+!length(userentry┆
0x03160…0317a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 62 2e 6c 61 73 ┆); if w1 = b.las┆
0x0317a…03180 (0x450,0x64)
0x03180…031a0 74 75 73 65 72 20 74 68 65 6e 20 20 21 20 61 6e 73 77 65 72 20 66 72 6f 6d 20 75 6e 6b 6e 6f 77 ┆tuser then ! answer from unknow┆
0x031a0…031c0 6e 20 69 73 20 6e 65 67 6c 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆n is neglected ! begin┆
0x031c0…031e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 34 ┆ testout(.w3.,w0:=24┆
0x031e0…03200 2c 77 31 3a 3d 63 75 72 72 6d 65 73 73 2c 77 32 3a 3d 36 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆,w1:=currmess,w2:=6); ┆
0x03200…03206 (25,) (0x450,0x65)
0x03206…03220 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 61 69 74 3b 0a 20 20 20 20 20 ┆ goto wait; ┆
0x03220…03240 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e ┆ end; (w1).messsen┆
0x03240…03260 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 20 74 68 65 6e 20 77 30 ┆d:=w0; if w0=1 then w0┆
0x03260…0327e 3a 3d 28 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 69 6e 74 65 72 72 75 70 74 29 29 2e 62 ┆:=(w3:=address(b.interrupt)).b┆
0x0327e…03284 (0x450,0x66)
0x03284…032a0 79 74 65 73 20 65 6c 73 65 20 77 30 3a 3d 34 3b 0a 20 20 20 20 20 20 20 20 20 20 28 ┆ytes else w0:=4; (┆
0x032a0…032c0 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆w1).buflength:= w0; (w┆
0x032c0…032e0 31 29 2e 73 74 61 74 75 73 69 6e 66 3a 3d 77 30 3a 3d 28 77 33 29 2e 73 74 61 74 75 73 3b 0a 20 ┆1).statusinf:=w0:=(w3).status; ┆
0x032e0…032fc 20 20 20 20 20 20 20 20 20 77 30 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f ┆ w0:=5; go┆
0x032fc…03302 (0x450,0x67)
0x03302…03320 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 ┆to exit; end else ┆
0x03320…03340 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 ┆ begin comment message; ┆
0x03340…03360 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 3c 30 20 74 68 65 ┆ if w0:=(w2).operation<0 the┆
0x03360…0337a 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 6b 69 70 20 69 ┆n begin ! skip i┆
0x0337a…03380 (0x450,0x68)
0x03380…033a0 66 20 64 75 6d 6d 79 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 74 65 72 6d 2e 6d 6f 64 75 6c 65 ┆f dummy message from term.module┆
0x033a0…033c0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 74 5f ┆ ! w3:= address(b.t_┆
0x033c0…033e0 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 21 ┆mdul); monitor(4); !┆
0x033e0…03400 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 0a 20 00 00 00 00 00 00 00 00 ┆ process description ! ┆
0x03400…03406 (26,) (0x450,0x69)
0x03406…03420 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 77 32 29 2e 73 65 6e 64 ┆ if w0=(w2).send┆
0x03420…03440 65 72 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 ┆er then begin ┆
0x03440…03460 20 20 20 20 20 20 20 20 62 2e 62 61 73 65 65 76 65 6e 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 ┆ b.baseevent:= w2; ┆
0x03460…0347e 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 34 2c 77 31 ┆ testout(.w3.,w0:=24,w1┆
0x0347e…03484 (0x450,0x6a)
0x03484…034a0 3a 3d 63 75 72 72 6d 65 73 73 2c 77 32 3a 3d 36 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆:=currmess,w2:=6); ┆
0x034a0…034c0 20 20 20 20 20 67 6f 74 6f 20 77 61 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ goto wait; end;┆
0x034c0…034e0 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 6d 6f 6e 69 74 6f ┆ end; monito┆
0x034e0…034fc 72 28 32 36 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 67 65 74 20 65 76 65 6e 74 3b 0a 20 ┆r(26); comment get event; ┆
0x034fc…03502 (0x450,0x6b)
0x03502…03520 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 32 29 2e 73 65 6e 64 65 72 3b 0a 20 20 20 20 ┆ w3:=(w2).sender; ┆
0x03520…03540 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 ┆ (w1).internal:=w3; ┆
0x03540…03560 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).peripheral:=w3; ┆
0x03560…0357a 20 20 77 31 3a 3d 62 2e 66 69 72 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 ┆ w1:=b.firstuser; ┆
0x0357a…03580 (0x450,0x6c)
0x03580…035a0 20 20 20 77 68 69 6c 65 20 77 33 3c 3e 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 20 64 6f 20 77 31 ┆ while w3<>(w1).internal do w1┆
0x035a0…035c0 2b 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆+!length(userentry); i┆
0x035c0…035e0 66 20 77 31 3d 62 2e 6c 61 73 74 75 73 65 72 20 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6e ┆f w1=b.lastuser then comment sen┆
0x035e0…03600 64 65 72 20 69 73 20 6e 6f 74 20 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆der is not child; ┆
0x03600…03606 (27,) (0x450,0x6d)
0x03606…03620 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 77 ┆ begin if w┆
0x03620…03640 30 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 20 ┆0:=(w2).operation<>0 then ┆
0x03640…03660 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 77 33 2b 35 30 ┆ begin w3+50┆
0x03660…0367e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 77 6f ┆; if w0:=(w3).wo┆
0x0367e…03684 (0x450,0x6e)
0x03684…036a0 72 64 20 3d 20 62 2e 6f 77 6e 70 72 6f 63 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆rd = b.ownproc then ┆
0x036a0…036c0 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 20 77 30 3a 3d ┆ begin w0:=┆
0x036c0…036e0 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 ┆8; goto exit; ┆
0x036e0…036fc 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 67 6f 74 6f 20 72 65 ┆ end else goto re┆
0x036fc…03702 (0x450,0x6f)
0x03702…03720 6a 65 63 74 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 ┆ject; end; ┆
0x03720…03740 20 20 20 20 20 77 31 3a 3d 62 2e 66 69 72 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:=b.firstuser; ┆
0x03740…03760 20 20 77 68 69 6c 65 20 77 33 3c 3e 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 20 64 6f 20 77 ┆ while w3<>(w1).peripheral do w┆
0x03760…0377a 31 2b 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 ┆1+!length(userentry); ┆
0x0377a…03780 (0x450,0x70)
0x03780…037a0 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 62 2e 6c 61 73 74 75 73 65 72 20 74 68 65 6e 20 63 6f ┆ if w1<b.lastuser then co┆
0x037a0…037c0 6d 6d 65 6e 74 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 69 73 20 6b 6e 6f 77 6e 3b 0a 20 20 20 ┆mment the terminal is known; ┆
0x037c0…037e0 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 69 66 20 ┆ begin if ┆
0x037e0…03800 77 33 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3e 31 30 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆w3:=(w1).messgot>10 then ┆
0x03800…03806 (28,) (0x450,0x71)
0x03806…03820 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ begin ┆
0x03820…03840 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d 30 ┆ (w1).buflength:=w2:=0┆
0x03840…03860 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d ┆; send(.w3.,w0:=┆
0x03860…0387e 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆1,w1,w2); end; ┆
0x0387e…03884 (0x450,0x72)
0x03884…038a0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 34 3b 0a 20 20 20 20 20 20 20 20 ┆ w0:=4; ┆
0x038a0…038c0 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 63 6f 6d 6d 65 6e 74 ┆ end else comment┆
0x038c0…038e0 20 61 74 74 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c ┆ attention from unknown terminal┆
0x038e0…038fc 3b 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 ┆; begin ┆
0x038fc…03902 (0x450,0x73)
0x03902…03920 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆ w0:=0; (w1┆
0x03920…03940 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆).peripheral:=w0; ┆
0x03940…03960 77 31 3a 3d 62 2e 66 69 72 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆w1:=b.firstuser; w┆
0x03960…0397a 68 69 6c 65 20 77 30 3c 3e 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 20 64 ┆hile w0<>(w1).peripheral d┆
0x0397a…03980 (0x450,0x74)
0x03980…039a0 6f 20 77 31 2b 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 ┆o w1+!length(userentry); ┆
0x039a0…039c0 20 20 20 20 20 20 20 69 66 20 77 33 3c 30 20 74 68 65 6e 20 77 31 3a 3d 62 2e 6c 61 73 74 75 73 ┆ if w3<0 then w1:=b.lastus┆
0x039c0…039e0 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 62 2e 6c 61 73 74 75 73 ┆er; if w1=b.lastus┆
0x039e0…03a00 65 72 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆er then b ┆
0x03a00…03a06 (29,) (0x450,0x75)
0x03a06…03a20 65 67 69 6e 0a 72 65 6a 65 63 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆egin reject: ┆
0x03a20…03a40 20 20 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (w1).messgot:=w2; ┆
0x03a40…03a60 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 ┆ (w1).buflength:=w2:=0; ┆
0x03a60…03a7e 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 ┆ send(.w3.,w0:=2,w1┆
0x03a7e…03a84 (0x450,0x76)
0x03a84…03aa0 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 ┆,w2); goto w┆
0x03aa0…03ac0 61 69 74 3b 0a 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 ┆ait; end; ┆
0x03ac0…03ae0 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 ┆ (w1).internal:=w3; ┆
0x03ae0…03afc 20 20 20 20 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 33 3b 20 ┆ (w1).peripheral:=w3; ┆
0x03afc…03b02 (0x450,0x77)
0x03b02…03b20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b 20 74 65 72 6d 69 6e 61 6c 20 74 6f 20 65 6e 74 72 79 ┆comment link terminal to entry┆
0x03b20…03b40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 36 3b 0a 20 20 20 20 20 20 20 20 20 ┆; w0:=6; ┆
0x03b40…03b60 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 ┆ end; (w1).messgot┆
0x03b60…03b7a 3a 3d 77 32 3a 3d 63 75 72 72 6d 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=w2:=currmess; ┆
0x03b7a…03b80 (0x450,0x78)
0x03b80…03ba0 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 ┆ goto exit; end ┆
0x03ba0…03bc0 20 20 20 20 20 65 6c 73 65 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 65 72 3d 69 6e 74 65 72 6e 61 ┆ else comment sender=interna┆
0x03bc0…03be0 6c 3b 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 69 ┆l; begin i┆
0x03be0…03c00 66 20 77 33 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3e 31 30 20 74 68 00 00 00 00 00 00 00 00 ┆f w3:=(w1).messgot>10 th ┆
0x03c00…03c06 (30,) (0x450,0x79)
0x03c06…03c20 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 ┆en begin ┆
0x03c20…03c40 20 20 20 20 20 20 20 20 20 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ w0:=2; mo┆
0x03c40…03c60 6e 69 74 6f 72 28 32 32 29 3b 20 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 2d 20 72 65 6a 65 ┆nitor(22); ! send answer - reje┆
0x03c60…03c7e 63 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 61 69 74 3b 0a ┆ct ! goto wait; ┆
0x03c7e…03c84 (0x450,0x7a)
0x03c84…03ca0 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; ┆
0x03ca0…03cc0 20 73 61 76 65 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 ┆ savew1:=w1; w1:=(w1┆
0x03cc0…03ce0 29 2e 69 6e 74 65 72 6e 61 6c 2b 37 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 28 ┆).internal+76; f1:=(┆
0x03ce0…03cfc 77 31 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆w1).double; w3:=┆
0x03cfc…03d02 (0x450,0x7b)
0x03d02…03d20 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆address(zero); mon┆
0x03d20…03d40 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 74 6f 20 ┆itor(72); ! set catalog base to ┆
0x03d40…03d60 74 68 61 74 20 6f 66 20 63 68 69 6c 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆that of child ! w3:=┆
0x03d60…03d7a 61 64 64 72 65 73 73 28 62 2e 70 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 ┆address(b.p_mdul); ┆
0x03d7a…03d80 (0x450,0x7c)
0x03d80…03da0 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 21 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 ┆ monitor(4); ! process descr┆
0x03da0…03dc0 69 70 74 69 6f 6e 20 6f 66 20 70 72 69 6d 6f 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 ┆iption of primo pseudo process !┆
0x03dc0…03de0 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 ┆ w1:=savew1; ┆
0x03de0…03e00 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 3a 3d 77 32 3b 0a 20 00 00 00 00 00 00 00 00 ┆ (w1).messgot:=w2; ┆
0x03e00…03e06 (31,) (0x450,0x7d)
0x03e06…03e20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 6d 65 73 ┆ if w3:=(w1).mes┆
0x03e20…03e40 73 73 65 6e 64 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ssend > 10 then begi┆
0x03e40…03e60 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 32 29 2e 72 65 63 65 ┆n if w3:=(w2).rece┆
0x03e60…03e7e 69 76 65 72 2b 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 31 32 0a 20 20 20 20 20 20 20 20 ┆iver+w0=0 then w0:=12 ┆
0x03e7e…03e84 (0x450,0x7e)
0x03e84…03ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03ea0…03ec0 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 31 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a ┆ else w0:=10 end ┆
0x03ec0…03ee0 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ else if ┆
0x03ee0…03efc 77 33 3a 3d 28 77 32 29 2e 72 65 63 65 69 76 65 72 2b 77 30 3d 30 20 74 68 65 6e 0a ┆w3:=(w2).receiver+w0=0 then ┆
0x03efc…03f02 (0x450,0x7f)
0x03f02…03f20 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 20 20 20 20 ┆ begin ┆
0x03f20…03f40 20 20 20 69 66 20 77 30 3a 3d 37 20 3c 3e 20 77 33 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f ┆ if w0:=7 <> w3:=(w2).operatio┆
0x03f40…03f60 6e 20 74 68 65 6e 20 21 20 72 65 6a 65 63 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n then ! reject ! ┆
0x03f60…03f7a 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ begin w┆
0x03f7a…03f80 (0x450,0x80)
0x03f80…03fa0 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 ┆0:=2; (w1).mes┆
0x03fa0…03fc0 73 67 6f 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆sgot:=w0; moni┆
0x03fc0…03fe0 74 6f 72 28 32 32 29 3b 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 ┆tor(22); ! send answer ! ┆
0x03fe0…04000 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 61 69 74 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ goto wait; ┆
0x04000…04006 (32,) (0x450,0x81)
0x04006…04020 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 30 3a 3d ┆ end else w0:=┆
0x04020…04040 31 31 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 20 20 ┆11 end else ┆
0x04040…04060 20 20 20 20 69 66 20 77 33 3a 3d 28 77 32 29 2e 72 65 63 65 69 76 65 72 2b 62 2e 6f 77 6e 70 72 ┆ if w3:=(w2).receiver+b.ownpr┆
0x04060…0407e 6f 63 20 3c 3e 20 30 20 74 68 65 6e 20 77 30 3a 3d 39 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆oc <> 0 then w0:=9 else ┆
0x0407e…04084 (0x450,0x82)
0x04084…040a0 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 3d ┆ if w3:=(w2).operation=┆
0x040a0…040c0 33 20 74 68 65 6e 20 77 30 3a 3d 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆3 then w0:=1 else if┆
0x040c0…040e0 20 77 33 3d 35 20 74 68 65 6e 20 77 30 3a 3d 32 20 65 6c 73 65 20 77 30 3a 3d 33 3b 0a 20 20 20 ┆ w3=5 then w0:=2 else w0:=3; ┆
0x040e0…040fc 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 65 78 69 ┆ end; end; exi┆
0x040fc…04102 (0x450,0x83)
0x04102…04120 74 3a 0a 20 20 20 20 20 20 20 20 65 6e 74 72 79 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 ┆t: entryref:=w1; ┆
0x04120…04140 20 20 20 62 2e 75 73 65 72 65 6e 74 72 79 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 ┆ b.userentry:=w1; save┆
0x04140…04160 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 20 20 20 20 74 65 73 74 ┆0:=w0; comment * test┆
0x04160…0417a 6f 75 74 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 21 6c 65 6e 67 74 68 28 75 73 65 ┆out (.w3., w0:=!length(use┆
0x0417a…04180 (0x450,0x84)
0x04180…041a0 72 65 6e 74 72 79 29 2c 20 77 31 3a 3d 65 6e 74 72 79 72 65 66 2c 20 77 32 3a 3d 36 38 29 3b 0a ┆rentry), w1:=entryref, w2:=68); ┆
0x041a0…041c0 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 3b 20 20 20 74 65 73 74 6f 75 74 20 28 2e 77 ┆ comment *; testout (.w┆
0x041c0…041e0 33 2e 2c 20 77 30 3a 3d 31 32 2c 20 77 31 3a 3d 61 64 64 72 65 73 73 28 73 61 76 65 30 29 2c 20 ┆3., w0:=12, w1:=address(save0), ┆
0x041e0…04200 77 32 3a 3d 32 36 29 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 00 00 00 00 00 00 00 00 ┆w2:=26); testout ┆
0x04200…04206 (33,) (0x450,0x85)
0x04206…04220 28 2e 77 33 2e 2c 77 30 3a 3d 32 34 2c 77 31 3a 3d 63 75 72 72 6d 65 73 73 2c ┆(.w3.,w0:=24,w1:=currmess,┆
0x04220…04240 77 32 3a 3d 36 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 62 2e 73 74 61 72 74 62 61 73 65 3b ┆w2:=6); f1:=b.startbase;┆
0x04240…04260 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 ┆ w3:=address(zero); ┆
0x04260…0427e 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 72 65 73 65 74 20 63 61 74 61 6c ┆ monitor(72); ! reset catal┆
0x0427e…04284 (0x450,0x86)
0x04284…042a0 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 30 3b ┆og base ! w0:=save0;┆
0x042a0…042c0 20 77 31 3a 3d 65 6e 74 72 79 72 65 66 3b 20 77 32 3a 3d 63 75 72 72 6d 65 73 73 3b 20 77 33 3a ┆ w1:=entryref; w2:=currmess; w3:┆
0x042c0…042e0 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 ┆=return; end; end; ┆
0x042e0…042fc 20 21 20 20 77 61 69 74 65 76 65 6e 74 20 20 21 0a 0c 0a 0a 0a 0a 0a 63 6f 6d 6d 65 ┆ ! waitevent ! comme┆
0x042fc…04302 (0x450,0x87)
0x04302…04320 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 20 28 75 73 65 72 65 6e 74 ┆nt link (userent┆
0x04320…04340 72 79 29 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6c 69 6e 6b 73 20 6f 66 66 20 74 68 ┆ry) this procedure links off th┆
0x04340…04360 65 20 75 73 65 72 65 6e 74 72 79 20 70 6f 69 6e 74 65 64 20 6f 75 74 20 62 79 20 77 31 20 66 72 ┆e userentry pointed out by w1 fr┆
0x04360…0437a 6f 6d 20 77 68 65 72 65 76 65 72 20 69 74 0a 69 74 20 69 73 20 63 68 61 69 6e ┆om wherever it it is chain┆
0x0437a…04380 (0x450,0x88)
0x04380…043a0 65 64 20 75 70 2c 20 61 6e 64 20 74 68 65 6e 20 6c 69 6e 6b 73 20 69 74 20 75 70 20 69 6d 6d 65 ┆ed up, and then links it up imme┆
0x043a0…043c0 64 69 61 74 65 6c 79 20 61 66 74 65 72 20 74 68 65 20 75 73 65 72 65 6e 74 72 79 20 70 6f 69 6e ┆diately after the userentry poin┆
0x043c0…043e0 74 65 64 0a 6f 75 74 20 62 79 20 77 32 2e 20 20 74 68 65 20 68 65 61 64 73 20 6f 66 20 74 68 65 ┆ted out by w2. the heads of the┆
0x043e0…04400 20 71 75 65 75 65 73 20 28 61 63 74 69 76 65 2d 20 61 6e 64 20 77 61 69 00 00 00 00 00 00 00 00 ┆ queues (active- and wai ┆
0x04400…04406 (34,) (0x450,0x89)
0x04406…04420 74 69 6e 67 2d 71 75 65 75 65 29 20 61 72 65 20 6f 66 20 74 68 65 0a 73 61 6d ┆ting-queue) are of the sam┆
0x04420…04440 65 20 66 6f 72 6d 61 74 20 61 73 20 74 68 65 20 63 68 61 69 6e 65 6c 65 6d 65 6e 74 73 20 69 6e ┆e format as the chainelements in┆
0x04440…04460 20 74 68 65 20 75 73 65 72 65 6e 74 72 69 65 73 20 73 6f 20 74 68 61 74 20 74 68 65 20 63 68 61 ┆ the userentries so that the cha┆
0x04460…0447e 69 6e 68 65 61 64 73 0a 6d 61 79 20 62 65 20 75 73 65 64 20 6a 75 73 74 20 6c 69 6b 65 20 ┆inheads may be used just like ┆
0x0447e…04484 (0x450,0x8a)
0x04484…044a0 6f 74 68 65 72 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 63 68 61 69 6e 73 ┆other elements in the chains┆
0x044a0…044c0 2e 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 6c 69 6e 6b 0a 20 20 20 20 62 65 67 69 6e ┆. ; body of link begin┆
0x044c0…044e0 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 ┆ incode double w01┆
0x044e0…044fc 2c 20 77 32 33 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 ┆, w23; begin w┆
0x044fc…04502 (0x450,0x8b)
0x04502…04520 30 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 77 32 33 3a 3d 66 33 3b 0a 20 20 20 20 20 ┆01:=f1; w23:=f3; ┆
0x04520…04540 20 20 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b 20 6f 66 66 20 75 73 65 72 65 6e 74 72 79 3b 0a 20 ┆ comment link off userentry; ┆
0x04540…04560 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 70 72 65 76 75 73 65 72 3b 0a 20 20 20 20 20 20 ┆ w3:=(w1).prevuser; ┆
0x04560…0457a 20 20 28 77 33 29 2e 6e 65 78 74 75 73 65 72 3a 3d 77 30 3a 3d 28 77 31 29 2e ┆ (w3).nextuser:=w0:=(w1).┆
0x0457a…04580 (0x450,0x8c)
0x04580…045a0 6e 65 78 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 6e 65 78 74 75 ┆nextuser; w3:=(w1).nextu┆
0x045a0…045c0 73 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 65 76 75 73 65 72 3a 3d 77 30 3a 3d ┆ser; (w3).prevuser:=w0:=┆
0x045c0…045e0 28 77 31 29 2e 70 72 65 76 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6c ┆(w1).prevuser; comment l┆
0x045e0…04600 69 6e 6b 20 75 73 65 72 65 6e 74 72 79 28 77 31 29 20 61 66 74 65 72 20 00 00 00 00 00 00 00 00 ┆ink userentry(w1) after ┆
0x04600…04606 (35,) (0x450,0x8d)
0x04606…04620 75 73 65 72 65 6e 74 72 79 28 77 32 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 ┆userentry(w2); (w1┆
0x04620…04640 29 2e 70 72 65 76 75 73 65 72 3a 3d 77 33 3a 3d 28 77 32 29 2e 70 72 65 76 75 73 65 72 3b 0a 20 ┆).prevuser:=w3:=(w2).prevuser; ┆
0x04640…04660 20 20 20 20 20 20 20 28 77 31 29 2e 6e 65 78 74 75 73 65 72 3a 3d 77 30 3a 3d 28 77 33 29 2e 6e ┆ (w1).nextuser:=w0:=(w3).n┆
0x04660…0467e 65 78 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 72 65 76 75 73 65 72 ┆extuser; (w2).prevuser┆
0x0467e…04684 (0x450,0x8e)
0x04684…046a0 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 65 78 74 75 73 65 72 3a ┆:=w1; (w3).nextuser:┆
0x046a0…046c0 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 20 20 20 74 65 73 74 6f 75 74 ┆=w1; comment * testout┆
0x046c0…046e0 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 32 30 2c 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 ┆ (.w3., w0:=20, w1:=address(b.ac┆
0x046e0…046fc 74 69 76 71 66 73 74 29 2c 20 77 32 3a 3d 39 29 3b 0a 20 20 20 20 20 20 20 20 66 31 ┆tivqfst), w2:=9); f1┆
0x046fc…04702 (0x450,0x8f)
0x04702…04720 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 77 32 33 3b 0a 20 20 20 20 20 20 ┆:=w01; f3:=w23; ┆
0x04720…04740 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 6c 69 6e 6b 20 20 21 0a 0c 0a 0a ┆end; end; ! link ! ┆
0x04740…04760 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 20 0a 0a 74 68 69 73 ┆ comment copy this┆
0x04760…0477a 20 70 72 6f 63 65 64 75 72 65 20 6a 75 73 74 20 6d 6f 76 65 73 20 77 30 20 62 ┆ procedure just moves w0 b┆
0x0477a…04780 (0x450,0x90)
0x04780…047a0 79 74 65 73 20 66 72 6f 6d 20 74 68 65 20 61 64 64 72 65 73 73 20 6f 66 20 77 31 20 28 61 6e 64 ┆ytes from the address of w1 (and┆
0x047a0…047c0 20 6f 6e 77 61 72 64 73 29 20 74 6f 0a 74 68 65 20 61 64 64 72 65 73 73 20 6f 66 20 77 32 20 28 ┆ onwards) to the address of w2 (┆
0x047c0…047e0 61 6e 64 20 6f 6e 77 61 72 64 73 29 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 63 6f 70 ┆and onwards) ; body of cop┆
0x047e0…04800 79 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 00 00 00 00 00 00 00 00 ┆y begin incode ┆
0x04800…04806 (36,) (0x450,0x91)
0x04806…04820 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 77 32 33 3b 0a 20 ┆ double w01,w23; ┆
0x04820…04840 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 31 3a 3d 66 31 3b 20 77 32 33 3a ┆ begin w01:=f1; w23:┆
0x04840…04860 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆=f3; w3:=w1+w0; ┆
0x04860…0487e 77 68 69 6c 65 20 77 31 3c 77 33 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆while w1<w3 do begin ┆
0x0487e…04884 (0x450,0x92)
0x04884…048a0 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 28 77 31 29 ┆ (w2).word:=w0:=(w1)┆
0x048a0…048c0 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 3b 20 77 32 2b 32 3b 0a 20 20 20 ┆.word; w1+2; w2+2; ┆
0x048c0…048e0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 20 66 33 3a 3d 77 ┆ end; f1:=w01; f3:=w┆
0x048e0…048fc 32 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0c 0a 0a 0a ┆23; end; end; ┆
0x048fc…04902 (0x450,0x93)
0x04902…04920 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 0a 0a ┆ comment swop ┆
0x04920…04940 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6d 61 6b 65 73 20 73 75 72 65 2c 20 74 68 61 74 20 ┆this procedure makes sure, that ┆
0x04940…04960 74 68 65 20 63 6f 72 65 20 69 6d 61 67 65 20 6f 66 20 74 68 65 20 75 73 65 72 65 6e 74 72 79 20 ┆the core image of the userentry ┆
0x04960…0497a 70 6f 69 6e 74 65 64 0a 6f 75 74 20 62 79 20 77 31 20 69 73 20 62 72 6f 75 67 ┆pointed out by w1 is broug┆
0x0497a…04980 (0x450,0x94)
0x04980…049a0 68 74 20 69 6e 74 6f 20 63 6f 72 65 20 28 69 66 20 69 74 20 77 61 73 20 6e 6f 74 20 74 68 65 72 ┆ht into core (if it was not ther┆
0x049a0…049c0 65 20 61 6c 72 65 61 64 79 29 2e 20 69 66 20 74 68 65 20 73 74 61 74 65 0a 69 73 20 77 61 69 74 ┆e already). if the state is wait┆
0x049c0…049e0 69 6e 67 20 66 6f 72 20 73 74 61 72 74 20 77 69 74 68 20 6e 65 77 20 61 62 73 20 70 72 6f 67 72 ┆ing for start with new abs progr┆
0x049e0…04a00 61 6d 2c 20 73 77 6f 70 20 6c 6f 61 64 73 20 61 20 70 72 6f 63 65 73 73 00 00 00 00 00 00 00 00 ┆am, swop loads a process ┆
0x04a00…04a06 (37,) (0x450,0x95)
0x04a06…04a20 20 69 6d 61 67 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 0a 6e 65 77 20 61 62 ┆ image containing a new ab┆
0x04a20…04a40 73 20 70 72 6f 67 72 61 6d 2e 20 20 69 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 61 73 20 69 ┆s program. if the process was i┆
0x04a40…04a60 6e 20 63 6f 72 65 20 61 6c 72 65 61 64 79 20 61 6e 64 20 74 68 65 72 65 20 69 73 20 6e 6f 74 20 ┆n core already and there is not ┆
0x04a60…04a7e 61 73 6b 65 64 20 66 6f 72 20 61 0a 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 20 2d 20 ┆asked for a new abs program - ┆
0x04a7e…04a84 (0x450,0x96)
0x04a84…04aa0 74 68 65 6e 20 6e 6f 74 68 69 6e 67 20 69 73 20 64 6f 6e 65 2e 0a 3b 0a 0a 0a 20 20 ┆then nothing is done. ; ┆
0x04aa0…04ac0 20 20 62 6f 64 79 20 6f 66 20 73 77 6f 70 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6c ┆ body of swop begin l┆
0x04ac0…04ae0 61 62 65 6c 20 65 78 69 74 73 77 6f 70 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 ┆abel exitswop; incode ┆
0x04ae0…04afc 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 77 32 33 3b 0a 20 20 20 20 20 20 20 20 ┆ double w01,w23; ┆
0x04afc…04b02 (0x450,0x97)
0x04b02…04b20 77 6f 72 64 20 6f 70 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 63 6f 72 65 66 ┆word opmode; ref coref┆
0x04b20…04b40 73 74 2c 63 6f 72 65 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 65 67 6d 73 77 3b ┆st,coretop; word segmsw;┆
0x04b40…04b60 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 31 3a 3d 66 31 3b 20 77 32 ┆ begin w01:=f1; w2┆
0x04b60…04b7a 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 63 6f 72 65 66 73 74 3a 3d 77 30 ┆3:=f3; corefst:=w0┆
0x04b7a…04b80 (0x450,0x98)
0x04b80…04ba0 3a 3d 62 2e 66 73 74 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 62 2e 63 6f ┆:=b.fstcore; if w2:=b.co┆
0x04ba0…04bc0 72 65 75 73 65 72 3d 77 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 ┆reuser=w1 then if w3:=(w┆
0x04bc0…04be0 31 29 2e 73 74 61 74 65 3c 3e 33 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 69 74 73 77 6f 70 3b 0a ┆1).state<>3 then goto exitswop; ┆
0x04be0…04c00 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 20 63 6f 6d 00 00 00 00 00 00 00 00 ┆ if w2>0 then com ┆
0x04c00…04c06 (38,) (0x450,0x99)
0x04c06…04c20 6d 65 6e 74 20 63 6f 72 65 20 6e 6f 74 20 66 72 65 65 3b 0a 20 20 20 20 20 20 ┆ment core not free; ┆
0x04c20…04c40 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e ┆ begin startstop(.w3.┆
0x04c40…04c60 2c 77 30 3a 3d 30 2c 77 31 3a 3d 77 32 29 3b 20 21 20 73 74 6f 70 20 63 6f 72 65 75 73 65 72 20 ┆,w0:=0,w1:=w2); ! stop coreuser ┆
0x04c60…04c7e 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 6f 64 65 3a 3d 77 30 3a 3d 35 20 61 73 68 69 ┆! opmode:=w0:=5 ashi┆
0x04c7e…04c84 (0x450,0x9a)
0x04c84…04ca0 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 72 65 74 6f 70 3a 3d 77 30 ┆ft 12; coretop:=w0┆
0x04ca0…04cc0 3a 3d 63 6f 72 65 66 73 74 2b 28 77 32 29 2e 70 72 6f 63 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 ┆:=corefst+(w2).procsize; ┆
0x04cc0…04ce0 20 20 20 73 65 67 6d 73 77 3a 3d 77 30 3a 3d 28 77 32 29 2e 73 77 6f 70 73 65 67 6d 3b 0a 20 20 ┆ segmsw:=w0:=(w2).swopsegm; ┆
0x04ce0…04cfc 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 6d 6f 64 65 29 3b ┆ w1:=address(opmode);┆
0x04cfc…04d02 (0x450,0x9b)
0x04d02…04d20 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 77 6e 61 6d ┆ w3:=address(b.swnam┆
0x04d20…04d40 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 32 2e 2c 77 31 2c ┆e); transport(.w2.,w1,┆
0x04d40…04d60 77 33 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 ┆w3); end; f1:=w0┆
0x04d60…04d7a 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 30 20 74 68 65 6e 0a 20 ┆1; if w1<>0 then ┆
0x04d7a…04d80 (0x450,0x9c)
0x04d80…04da0 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 63 6f 72 65 74 6f 70 ┆ begin coretop┆
0x04da0…04dc0 3a 3d 77 30 3a 3d 63 6f 72 65 66 73 74 2b 28 77 31 29 2e 70 72 6f 63 73 69 7a 65 3b 0a 20 20 20 ┆:=w0:=corefst+(w1).procsize; ┆
0x04dc0…04de0 20 20 20 20 20 20 20 6f 70 6d 6f 64 65 3a 3d 77 30 3a 3d 33 20 61 73 68 69 66 74 20 31 32 3b 0a ┆ opmode:=w0:=3 ashift 12; ┆
0x04de0…04e00 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 00 00 00 00 00 00 00 00 ┆ if w0:=(w1).st ┆
0x04e00…04e06 (39,) (0x450,0x9d)
0x04e06…04e20 61 74 65 3d 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ate=3 then begin┆
0x04e20…04e40 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 73 77 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 ┆ segmsw:=w0:=0; ┆
0x04e40…04e60 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 32 3c 31 0a 20 20 20 ┆ if w0:=(w1).state2<1 ┆
0x04e60…04e7e 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 66 70 ┆ then w3:=address(b.fp┆
0x04e7e…04e84 (0x450,0x9e)
0x04e84…04ea0 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 33 3a 3d 61 ┆code) else w3:=a┆
0x04ea0…04ec0 64 64 72 65 73 73 28 62 2e 63 6c 65 61 72 74 65 6d 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆ddress(b.cleartemp); e┆
0x04ec0…04ee0 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆nd else begin ┆
0x04ee0…04efc 20 20 20 20 73 65 67 6d 73 77 3a 3d 77 30 3a 3d 28 77 31 29 2e 73 77 6f 70 73 65 67 ┆ segmsw:=w0:=(w1).swopseg┆
0x04efc…04f02 (0x450,0x9f)
0x04f02…04f20 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 ┆m; w3:=address(b.s┆
0x04f20…04f40 77 6e 61 6d 65 29 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 ┆wname); end; ┆
0x04f40…04f60 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 6d 6f 64 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:=address(opmode); ┆
0x04f60…04f7a 74 72 61 6e 73 70 6f 72 74 28 2e 77 32 2e 2c 77 31 2c 77 33 29 3b 0a 20 20 20 ┆transport(.w2.,w1,w3); ┆
0x04f7a…04f80 (0x450,0xa0)
0x04f80…04fa0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 ┆ end; f1:=w01; ┆
0x04fa0…04fc0 20 20 20 62 2e 63 6f 72 65 75 73 65 72 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f ┆ b.coreuser:=w1; testo┆
0x04fc0…04fe0 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 2c 77 ┆ut(.w3.,w0:=!length(userentry),w┆
0x04fe0…05000 31 2c 77 32 3a 3d 33 29 3b 0a 65 78 69 74 73 77 6f 70 3a 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆1,w2:=3); exitswop: ┆
0x05000…05006 (40,) (0x450,0xa1)
0x05006…05020 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 77 ┆ f1:=w01; f3:=w┆
0x05020…05040 32 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 73 ┆23; end; end; ! s┆
0x05040…05060 77 6f 70 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 75 6e 69 6e 74 65 ┆wop ! body of uninte┆
0x05060…0507e 6c 6c 69 67 69 62 6c 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 ┆lligible begin incod┆
0x0507e…05084 (0x450,0xa2)
0x05084…050a0 65 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 77 32 33 3b 0a 20 20 ┆e double w01,w23; ┆
0x050a0…050c0 20 20 20 20 20 20 77 6f 72 64 20 6f 70 2c 66 73 74 2c 6c 73 74 3b 0a 20 20 20 20 20 20 62 65 67 ┆ word op,fst,lst; beg┆
0x050c0…050e0 69 6e 0a 20 20 20 20 20 20 20 20 77 30 31 3a 3d 66 31 3b 20 77 32 33 3a 3d 66 33 3b 0a 21 74 65 ┆in w01:=f1; w23:=f3; !te┆
0x050e0…050fc 73 74 20 39 39 3b 0a 20 20 20 20 20 20 20 20 6f 70 3a 3d 77 30 3a 3d 30 3b 0a 20 20 ┆st 99; op:=w0:=0; ┆
0x050fc…05102 (0x450,0xa3)
0x05102…05120 20 20 20 20 20 20 66 73 74 3a 3d 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 6c 73 74 3a ┆ fst:=w0:=2; lst:┆
0x05120…05140 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 ┆=w0:=3; w2:=(w1).messgot┆
0x05140…05160 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 ┆; w0:=3; (w1).me┆
0x05160…0517a 73 73 67 6f 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 ┆ssgot:=w0; w1:=add┆
0x0517a…05180 (0x450,0xa4)
0x05180…051a0 72 65 73 73 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 ┆ress(op); monitor(22); !┆
0x051a0…051c0 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e ┆ send answer ! testout(.┆
0x051c0…051e0 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 29 2c 77 32 3a 3d 36 30 ┆w3.,w0:=6,w1:=address(op),w2:=60┆
0x051e0…05200 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 20 66 33 3a 3d 00 00 00 00 00 00 00 00 ┆); f1:=w01; f3:= ┆
0x05200…05206 (41,) (0x450,0xa5)
0x05206…05220 77 32 33 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 ┆w23 end end; ┆
0x05220…05240 20 21 20 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 63 6f 6d ┆ ! unintelligible ! com┆
0x05240…05260 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 ┆ment send message ┆
0x05260…0527e 74 6f 20 70 72 69 6d 6f 0a 0a 20 20 20 77 31 20 3d 20 75 73 65 72 65 6e 74 72 79 0a 20 20 ┆to primo w1 = userentry ┆
0x0527e…05284 (0x450,0xa6)
0x05284…052a0 20 77 32 20 3d 20 6d 65 73 73 62 75 66 20 61 64 64 72 65 73 73 20 6f 66 20 62 75 66 ┆ w2 = messbuf address of buf┆
0x052a0…052c0 66 65 72 20 73 65 6e 74 20 74 6f 20 70 72 69 6d 6f 20 28 70 73 65 75 64 6f 20 70 72 6f 63 65 73 ┆fer sent to primo (pseudo proces┆
0x052c0…052e0 73 29 0a 20 20 20 61 74 20 72 65 74 75 72 6e 20 77 32 20 3d 20 6d 65 73 73 62 75 66 20 61 64 64 ┆s) at return w2 = messbuf add┆
0x052e0…052fc 72 65 73 73 20 6f 66 20 6d 65 73 73 61 67 65 20 73 65 6e 74 20 74 6f 20 70 72 69 6d ┆ress of message sent to prim┆
0x052fc…05302 (0x450,0xa7)
0x05302…05320 6f 20 28 72 65 61 6c 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o (real process) ┆
0x05320…05340 77 33 20 3d 20 6f 6c 64 20 77 32 0a 3b 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 73 65 6e 64 5f ┆w3 = old w2 ; body of send_┆
0x05340…05360 70 72 69 6d 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆primo begin incode ┆
0x05360…0537a 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆ word savew2; ┆
0x0537a…05380 (0x450,0xa8)
0x05380…053a0 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 ┆double savef1; ref retur┆
0x053a0…053c0 6e 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 6f 70 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 ┆n; word op; ref ┆
0x053c0…053e0 20 6f 66 69 72 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6c 61 73 74 2c 0a 20 20 20 ┆ ofirst, olast, ┆
0x053e0…05400 20 20 20 20 20 20 20 20 20 20 69 66 69 72 73 74 2c 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ifirst, ┆
0x05400…05406 (42,) (0x450,0xa9)
0x05406…05420 20 20 20 20 20 20 20 69 6c 61 73 74 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ ilast; begin ┆
0x05420…05440 20 20 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 ┆ savef1:=f1; retu┆
0x05440…05460 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 ┆rn:=w3; savew2:=w2; ┆
0x05460…0547e 20 20 20 20 6f 70 3a 3d 77 30 3a 3d 32 38 36 37 32 3b 20 20 20 20 21 20 37 3c 31 32 20 21 ┆ op:=w0:=28672; ! 7<12 !┆
0x0547e…05484 (0x450,0xaa)
0x05484…054a0 0a 20 20 20 20 20 20 20 20 6f 66 69 72 73 74 3a 3d 77 30 3a 3d 28 77 31 29 2e 62 75 ┆ ofirst:=w0:=(w1).bu┆
0x054a0…054c0 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 69 66 69 72 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆ffer; ifirst:=w0; ┆
0x054c0…054e0 20 20 6f 6c 61 73 74 3a 3d 77 33 3a 3d 28 77 32 29 2e 6d 62 6c 73 74 2d 28 77 32 29 2e 6d 62 66 ┆ olast:=w3:=(w2).mblst-(w2).mbf┆
0x054e0…054fc 73 74 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 69 6c 61 73 74 3a 3d 77 33 3a 3d 28 77 ┆st+w0; ilast:=w3:=(w┆
0x054fc…05502 (0x450,0xab)
0x05502…05520 32 29 2e 6d 62 69 6c 61 73 74 2d 28 77 32 29 2e 73 65 67 6d 6e 6f 2b 77 30 3b 0a 20 20 20 ┆2).mbilast-(w2).segmno+w0; ┆
0x05520…05540 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 77 33 ┆ w1:=address(op); w3┆
0x05540…05560 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 5f 70 73 65 75 64 6f 29 3b 0a 20 20 20 20 20 20 20 20 6d ┆:=address(b.p_pseudo); m┆
0x05560…0557a 6f 6e 69 74 6f 72 28 31 36 29 3b 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 ┆onitor(16); ! send message┆
0x0557a…05580 (0x450,0xac)
0x05580…055a0 20 74 6f 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 63 72 65 61 74 65 64 20 62 79 20 70 72 ┆ to pseudo process created by pr┆
0x055a0…055c0 69 6d 6f 20 21 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 ┆imo ! f1:=savef1; ┆
0x055c0…055e0 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 ┆ (w1).messsend:=w2; (w1┆
0x055e0…05600 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 36 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆).state:=w0:=6; ┆
0x05600…05606 (43,) (0x450,0xad)
0x05606…05620 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 30 2c 77 31 3a 3d 61 64 ┆testout(.w3.,w0:=10,w1:=ad┆
0x05620…05640 64 72 65 73 73 28 6f 70 29 2c 77 32 3a 3d 32 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 ┆dress(op),w2:=2); f1:=sa┆
0x05640…05660 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3b ┆vef1; w2:=(w1).messsend;┆
0x05660…0567e 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 63 ┆ w3:=savew2; c┆
0x0567e…05684 (0x450,0xae)
0x05684…056a0 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 ┆all w0 return end ┆
0x056a0…056c0 65 6e 64 3b 20 20 20 20 20 21 20 20 73 65 6e 64 5f 70 72 69 6d 6f 20 20 21 0a 0c 0a 0a 0a 0a 0a ┆end; ! send_primo ! ┆
0x056c0…056e0 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 70 72 69 6d 65 73 73 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆ body of primess begin ┆
0x056e0…056fc 20 20 20 20 20 6c 61 62 65 6c 20 73 74 6f 70 70 65 64 3b 0a 20 20 20 20 20 20 69 6e ┆ label stopped; in┆
0x056fc…05702 (0x450,0xaf)
0x05702…05720 63 6f 64 65 0a 20 20 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 ┆code ref return; ┆
0x05720…05740 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 7a 65 72 ┆ word savew0; word zer┆
0x05740…05760 6f 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 5f 66 75 6e 63 74 3a 3d 32 27 30 30 ┆o:=0; word c_funct:=2'00┆
0x05760…0577a 31 30 30 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 20 63 5f 66 69 72 73 74 2c ┆100; ref c_first,┆
0x0577a…05780 (0x450,0xb0)
0x05780…057a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 77 6f ┆ c_last; wo┆
0x057a0…057c0 72 64 20 63 5f 72 65 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆rd c_rel:=0; begin ┆
0x057c0…057e0 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 ┆ return:=w3; if w0:=(w1)┆
0x057e0…05800 2e 73 74 61 74 65 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆.state<0 then be ┆
0x05800…05806 (44,) (0x450,0xb1)
0x05806…05820 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 ┆gin (w1).bufleng┆
0x05820…05840 74 68 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 ┆th:=w2:=0; send(.w3.,w┆
0x05840…05860 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 32 35 36 29 3b 20 21 20 73 74 6f 70 70 65 64 20 21 0a 20 20 ┆0:=1,w1,w2:=256); ! stopped ! ┆
0x05860…0587e 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 ┆ goto b.continue; ┆
0x0587e…05884 (0x450,0xb2)
0x05884…058a0 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ end else begin ┆
0x058a0…058c0 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 ┆ if w0=0 then b┆
0x058c0…058e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 62 2e 63 6f 72 65 75 73 65 72 20 ┆egin if w1=b.coreuser ┆
0x058e0…058fc 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 20 ┆then begin ┆
0x058fc…05902 (0x450,0xb3)
0x05902…05920 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 31 31 3b 0a 20 20 20 ┆ w3:=(w1).internal+11; ┆
0x05920…05940 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 33 29 2e 62 79 74 65 20 61 6e 64 20 32 27 ┆ if w3:=(w3).byte and 2'┆
0x05940…05960 31 30 31 30 30 30 30 30 3d 32 27 31 30 31 30 30 30 30 30 20 74 68 65 6e 20 21 20 73 74 6f 70 70 ┆10100000=2'10100000 then ! stopp┆
0x05960…0597a 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ed ! begin ┆
0x0597a…05980 (0x450,0xb4)
0x05980…059a0 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 36 3b 0a 20 20 ┆ (w1).state:=w0:=6; ┆
0x059a0…059c0 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 31 ┆ startstop(.w3.,w0:=1┆
0x059c0…059e0 2c 77 31 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 ┆,w1); end; ┆
0x059e0…05a00 20 20 20 63 5f 66 69 72 73 74 3a 3d 77 30 3a 3d 28 77 31 29 2e 62 75 66 00 00 00 00 00 00 00 00 ┆ c_first:=w0:=(w1).buf ┆
0x05a00…05a06 (45,) (0x450,0xb5)
0x05a06…05a20 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 5f 6c 61 73 74 3a 3d 77 ┆fer; c_last:=w┆
0x05a20…05a40 33 3a 3d 28 77 32 29 2e 6d 62 6c 73 74 2d 28 77 32 29 2e 6d 62 66 73 74 2b 77 30 3b 0a 20 20 20 ┆3:=(w2).mblst-(w2).mbfst+w0; ┆
0x05a40…05a60 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 63 5f 66 75 6e 63 74 29 3b 0a 20 ┆ w1:=address(c_funct); ┆
0x05a60…05a7e 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3e 3d 77 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if w3>=w0 then ┆
0x05a7e…05a84 (0x450,0xb6)
0x05a84…05aa0 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 34 29 20 21 20 67 65 6e 65 ┆ monitor(84) ! gene┆
0x05aa0…05ac0 72 61 6c 20 63 6f 70 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆ral copy ! else ┆
0x05ac0…05ae0 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 ┆ w0:=0; sav┆
0x05ae0…05afc 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 75 ┆ew0:=w0; w1:=b.u┆
0x05afc…05b02 (0x450,0xb7)
0x05b02…05b20 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 36 ┆serentry; if w0:=6┆
0x05b20…05b40 3d 28 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 29 20 74 68 65 6e 20 73 74 61 72 74 73 74 6f 70 ┆=(w3:=(w1).state) then startstop┆
0x05b40…05b60 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆(.w3.,w0:=0,w1); if ┆
0x05b60…05b7a 77 30 3a 3d 73 61 76 65 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆w0:=savew0<>0 then ┆
0x05b7a…05b80 (0x450,0xb8)
0x05b80…05ba0 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 6c 69 67 62 6c 65 28 2e 77 33 2e 2c 77 31 29 0a 20 20 ┆ unintelligble(.w3.,w1) ┆
0x05ba0…05bc0 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ else begin┆
0x05bc0…05be0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a ┆ w3:=(w1).buffer; ┆
0x05be0…05c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 77 00 00 00 00 00 00 00 00 ┆ w0:=(w3).w ┆
0x05c00…05c06 (46,) (0x450,0xb9)
0x05c06…05c20 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 32 3b 20 77 ┆ord; w3+2; w┆
0x05c20…05c40 33 3a 3d 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆3:=(w3).word; if w┆
0x05c40…05c60 30 3d 34 27 32 30 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆0=4'2000000 then b┆
0x05c60…05c7e 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 34 27 31 30 31 ┆egin if w3=4'101┆
0x05c7e…05c84 (0x450,0xba)
0x05c84…05ca0 30 30 31 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 ┆0010 then begi┆
0x05ca0…05cc0 6e 20 21 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 ┆n ! define transport ! ┆
0x05cc0…05ce0 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 37 36 3b 0a 20 20 20 ┆ w1:=(w1).internal+76; ┆
0x05ce0…05cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 31 29 2e 64 6f 75 62 6c 65 ┆ f1:=(w1).double┆
0x05cfc…05d02 (0x450,0xbb)
0x05d02…05d20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆; w3:=address(┆
0x05d20…05d40 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 ┆zero); monitor(7┆
0x05d40…05d60 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 74 6f 20 74 68 61 74 20 6f ┆2); ! set catalog base to that o┆
0x05d60…05d7a 66 20 63 68 69 6c 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f child ! ┆
0x05d7a…05d80 (0x450,0xbc)
0x05d80…05da0 73 65 6e 64 5f 70 72 69 6d 6f 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c ┆send_primo(.w3.,w1:=b.userentry,┆
0x05da0…05dc0 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 ┆w2); w1:=address┆
0x05dc0…05de0 28 62 2e 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d ┆(b.interrupt); m┆
0x05de0…05e00 6f 6e 69 74 6f 72 28 31 38 29 3b 20 21 20 77 61 69 74 20 61 6e 73 77 65 00 00 00 00 00 00 00 00 ┆onitor(18); ! wait answe ┆
0x05e00…05e06 (47,) (0x450,0xbd)
0x05e06…05e20 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 31 ┆r ! w3:=w1┆
0x05e20…05e40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 ┆; w1:=b.userentr┆
0x05e40…05e60 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 ┆y; (w1).messsend┆
0x05e60…05e7e 3a 3d 77 30 3b 20 21 20 72 65 73 75 6c 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=w0; ! result ! ┆
0x05e7e…05e84 (0x450,0xbe)
0x05e84…05ea0 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 28 77 33 29 2e ┆ (w1).buflength:=w0:=(w3).┆
0x05ea0…05ec0 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 ┆bytes; (w1).stat┆
0x05ec0…05ee0 75 73 69 6e 66 3a 3d 77 30 3a 3d 28 77 33 29 2e 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 ┆usinf:=w0:=(w3).status; ┆
0x05ee0…05efc 20 20 20 20 20 20 20 20 66 31 3a 3d 62 2e 73 74 61 72 74 62 61 73 65 3b 0a 20 20 20 ┆ f1:=b.startbase; ┆
0x05efc…05f02 (0x450,0xbf)
0x05f02…05f20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 ┆ w3:=address(zero)┆
0x05f20…05f40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 ┆; monitor(72); !┆
0x05f40…05f60 20 72 65 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ reset catalog base ! ┆
0x05f60…05f7a 20 20 20 20 20 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 ┆ w1:=b.userentry; ┆
0x05f7a…05f80 (0x450,0xc0)
0x05f80…05fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 35 3b 20 21 20 61 6e 73 77 65 72 2c 20 77 31 ┆ w0:=5; ! answer, w1┆
0x05fa0…05fc0 3d 75 73 65 72 65 6e 74 72 79 2c 20 77 32 3d 6d 65 73 73 62 75 66 61 64 64 72 20 21 0a 20 20 20 ┆=userentry, w2=messbufaddr ! ┆
0x05fc0…05fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 62 2e 74 69 6d 65 72 6d 65 73 73 3c ┆ if w2:=b.timermess<┆
0x05fe0…06000 3e 30 20 74 68 65 6e 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 ┆>0 then ┆
0x06000…06006 (48,) (0x450,0xc1)
0x06006…06020 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆begin mo┆
0x06020…06040 6e 69 74 6f 72 28 38 32 29 3b 20 21 20 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 20 21 0a 20 20 ┆nitor(82); ! regret message ! ┆
0x06040…06060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w2:=0; ┆
0x06060…0607e 20 20 20 20 20 20 20 20 20 62 2e 74 69 6d 65 72 6d 65 73 73 3a 3d 77 32 0a 20 20 20 20 20 ┆ b.timermess:=w2 ┆
0x0607e…06084 (0x450,0xc2)
0x06084…060a0 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 ┆ end; ┆
0x060a0…060c0 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 6f 6e 63 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto b.actioncase; ┆
0x060c0…060e0 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆ end else ┆
0x060e0…060fc 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 28 ┆ unintelligible(┆
0x060fc…06102 (0x450,0xc3)
0x06102…06120 2e 77 33 2e 2c 77 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 64 ┆.w3.,w1) end ! d┆
0x06120…06140 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆efine transport ! ┆
0x06140…06160 65 6c 73 65 0a 20 20 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 ┆else begin ┆
0x06160…0617a 20 20 20 20 20 20 20 20 20 73 65 6e 64 5f 70 72 69 6d 6f 28 2e 77 33 2e 2c 77 ┆ send_primo(.w3.,w┆
0x0617a…06180 (0x450,0xc4)
0x06180…061a0 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 62 2e ┆1,w2); if w2:=b.┆
0x061a0…061c0 74 69 6d 65 72 6d 65 73 73 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆timermess<>0 then ┆
0x061c0…061e0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆ begin monito┆
0x061e0…06200 72 28 38 32 29 3b 20 21 20 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 20 00 00 00 00 00 00 00 00 ┆r(82); ! regret message ┆
0x06200…06206 (49,) (0x450,0xc5)
0x06206…06220 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 30 3b ┆! w2:=0;┆
0x06220…06240 20 62 2e 74 69 6d 65 72 6d 65 73 73 3a 3d 77 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ b.timermess:=w2 ┆
0x06240…06260 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c ┆ end; link(.w3.,┆
0x06260…0627e 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 ┆w1,w2:=address(b.waitqfst)); ┆
0x0627e…06284 (0x450,0xc6)
0x06284…062a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 ┆ startstop(.w3┆
0x062a0…062c0 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆.,w0:=0,w1); end ┆
0x062c0…062e0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 6d 65 73 73 61 67 65 20 6f 6b 20 21 0a 20 20 ┆ end ! message ok ! ┆
0x062e0…062fc 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆ end else ┆
0x062fc…06302 (0x450,0xc7)
0x06302…06320 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 70 65 64 0a 20 20 20 20 20 20 ┆ goto stopped ┆
0x06320…06340 20 20 20 20 65 6e 64 20 21 20 73 74 61 74 65 3d 30 20 61 6e 64 20 69 6e 20 63 6f 72 65 20 21 0a ┆ end ! state=0 and in core ! ┆
0x06340…06360 20 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 20 21 ┆ else begin !┆
0x06360…0637a 20 73 74 61 74 65 3e 30 20 6f 72 20 6e 6f 74 20 63 6f 72 65 75 73 65 72 20 21 ┆ state>0 or not coreuser !┆
0x0637a…06380 (0x450,0xc8)
0x06380…063a0 0a 73 74 6f 70 70 65 64 3a 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a ┆ stopped: (w1).buflength:=w0:┆
0x063a0…063c0 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3b 0a ┆=0; (w1).state:=w0; ┆
0x063c0…063e0 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 ┆ send(.w3.,w0:=1,w1,w┆
0x063e0…06400 32 3a 3d 32 35 36 29 3b 20 21 20 73 74 6f 70 70 65 64 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆2:=256); ! stopped ! ┆
0x06400…06406 (50,) (0x450,0xc9)
0x06406…06420 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 74 61 74 65 3e 30 20 6f 72 20 6e ┆ end; ! state>0 or n┆
0x06420…06440 6f 74 20 63 6f 72 65 75 73 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 ┆ot coreuser ! if w0:=b┆
0x06440…06460 2e 74 69 6d 65 72 6d 65 73 73 3c 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e ┆.timermess<>0 then goto b.contin┆
0x06460…0647e 75 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 74 61 74 65 3e 3d 30 20 21 0a ┆ue; end; ! state>=0 ! ┆
0x0647e…06484 (0x450,0xca)
0x06484…064a0 20 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 0a 20 20 20 20 20 20 65 6e 64 ┆ w3:=return end┆
0x064a0…064c0 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 70 72 69 6d 65 73 73 20 20 21 0a 0c 0a 0a 0a ┆ end; ! primess ! ┆
0x064c0…064e0 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 20 20 28 6d ┆ comment send (m┆
0x064e0…064fc 65 73 73 61 67 65 20 6f 72 20 61 6e 73 77 65 72 29 0a 0a 61 63 63 6f 72 64 69 6e 67 ┆essage or answer) according┆
0x064fc…06502 (0x450,0xcb)
0x06502…06520 20 74 6f 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 77 30 20 74 68 69 73 20 70 72 6f ┆ to the content of w0 this pro┆
0x06520…06540 63 65 64 75 72 65 20 73 65 6e 64 73 20 61 20 6d 65 73 73 61 67 65 20 6f 72 20 61 6e 20 61 6e 73 ┆cedure sends a message or an ans┆
0x06540…06560 77 65 72 0a 74 6f 20 74 68 65 20 70 65 72 69 70 68 65 72 61 6c 20 6f 72 20 74 68 65 20 69 6e 74 ┆wer to the peripheral or the int┆
0x06560…0657a 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 72 65 66 65 72 65 6e 63 65 64 20 62 ┆ernal process referenced b┆
0x0657a…06580 (0x450,0xcc)
0x06580…065a0 79 20 74 68 65 20 75 73 65 72 65 6e 74 72 79 28 77 31 29 2e 0a 77 30 20 3e 20 30 20 20 61 6e 73 ┆y the userentry(w1). w0 > 0 ans┆
0x065a0…065c0 77 65 72 20 69 73 20 73 65 6e 74 20 74 6f 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 ┆wer is sent to internal process ┆
0x065c0…065e0 28 77 32 20 3d 20 73 74 61 74 75 73 2c 20 77 30 20 3d 20 72 65 73 75 6c 74 29 0a 77 30 20 3c 3d ┆(w2 = status, w0 = result) w0 <=┆
0x065e0…06600 20 30 20 20 6d 65 73 73 61 67 65 20 69 73 20 73 65 6e 74 20 74 6f 20 70 00 00 00 00 00 00 00 00 ┆ 0 message is sent to p ┆
0x06600…06606 (51,) (0x450,0xcd)
0x06606…06620 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 65 73 73 20 28 77 32 20 3d 20 6f 70 ┆eripheral process (w2 = op┆
0x06620…06640 65 72 61 74 69 6f 6e 20 3c 20 31 32 20 2b 20 6d 6f 64 65 29 0a 61 74 20 69 2d 6f 20 6d 65 73 73 ┆eration < 12 + mode) at i-o mess┆
0x06640…06660 61 67 65 73 20 74 6f 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 2c 20 74 68 65 20 74 65 72 6d 69 6e ┆ages to the terminal, the termin┆
0x06660…0667e 61 6c 20 62 75 66 66 65 72 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 68 69 73 20 6f 70 65 ┆al buffer is used for this ope┆
0x0667e…06684 (0x450,0xce)
0x06684…066a0 2d 0a 72 61 74 69 6f 6e 2e 20 61 74 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 77 ┆- ration. at communication w┆
0x066a0…066c0 69 74 68 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 73 2c 20 64 61 74 61 20 69 73 20 ┆ith internal processes, data is ┆
0x066c0…066e0 63 6f 70 69 65 64 20 74 6f 2d 66 72 6f 6d 20 73 6f 6d 65 20 69 6e 2d 0a 74 65 72 6e 61 6c 20 62 ┆copied to-from some in- ternal b┆
0x066e0…066fc 75 66 66 65 72 20 66 72 6f 6d 2d 74 6f 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 62 ┆uffer from-to the terminal b┆
0x066fc…06702 (0x450,0xcf)
0x06702…06720 75 66 66 65 72 2e 20 74 68 69 73 20 63 6f 70 79 69 6e 67 20 6d 75 73 74 20 62 65 20 64 6f ┆uffer. this copying must be do┆
0x06720…06740 6e 65 20 62 65 66 6f 72 65 0a 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 ┆ne before calling this procedure┆
0x06740…06760 2e 0a 0a 77 68 65 6e 20 77 30 20 3c 20 30 20 6f 6e 6c 79 20 61 20 70 61 72 74 20 6f 66 20 74 68 ┆. when w0 < 0 only a part of th┆
0x06760…0677a 65 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 20 69 73 20 75 73 65 64 20 ┆e terminal buffer is used ┆
0x0677a…06780 (0x450,0xd0)
0x06780…067a0 66 6f 72 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 0a 2d 77 30 20 67 69 76 69 6e 67 20 74 ┆for the operation, -w0 giving t┆
0x067a0…067c0 68 65 20 72 65 6c 61 74 69 76 65 20 73 74 61 72 74 20 61 64 64 72 65 73 73 20 69 6e 20 74 68 65 ┆he relative start address in the┆
0x067c0…067e0 20 62 75 66 66 65 72 2e 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 73 65 6e 64 0a 20 20 ┆ buffer. ; body of send ┆
0x067e0…06800 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ begin incode ┆
0x06800…06806 (52,) (0x450,0xd1)
0x06806…06820 20 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 77 32 33 3b 0a 20 20 20 20 20 ┆ double w01,w23; ┆
0x06820…06840 20 20 20 77 6f 72 64 20 6f 70 2c 66 73 74 2c 6c 73 74 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ word op,fst,lst; begin ┆
0x06840…06860 20 20 20 20 20 20 20 20 77 30 31 3a 3d 66 31 3b 20 77 32 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 ┆ w01:=f1; w23:=f3; ┆
0x06860…0687e 20 20 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 30 20 74 68 65 6e ┆ op:=w2; if w0>0 then┆
0x0687e…06884 (0x450,0xd2)
0x06884…068a0 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 ┆ comment send answer; ┆
0x068a0…068c0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 6c 65 ┆ begin w2:=(w1).bufle┆
0x068c0…068e0 6e 67 74 68 3b 20 20 20 20 21 20 6f 70 3d 73 74 61 74 75 73 2c 20 66 73 74 3d 6e 6f 2e 6f 66 20 ┆ngth; ! op=status, fst=no.of ┆
0x068e0…068fc 68 77 2e 73 2c 20 6c 73 74 3d 6e 6f 20 6f 66 20 63 68 61 72 73 20 21 0a 20 20 20 20 ┆hw.s, lst=no of chars ! ┆
0x068fc…06902 (0x450,0xd3)
0x06902…06920 20 20 20 20 20 20 66 73 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 73 74 3a 3d ┆ fst:=w2; lst:=┆
0x06920…06940 77 32 2b 28 77 33 3a 3d 77 32 20 61 73 68 69 66 74 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆w2+(w3:=w2 ashift -1); ┆
0x06940…06960 20 77 32 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆ w2:=(w1).messgot; (w1┆
0x06960…0697a 29 2e 6d 65 73 73 67 6f 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆).messgot:=w0; w┆
0x0697a…06980 (0x450,0xd4)
0x06980…069a0 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆1:=address(op); monito┆
0x069a0…069c0 72 28 32 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 61 6e 73 77 65 72 3b 0a 20 20 20 ┆r(22); comment send answer; ┆
0x069c0…069e0 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 63 6f 6d 6d 65 6e 74 20 73 65 ┆ end else comment se┆
0x069e0…06a00 6e 64 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 00 00 00 00 00 00 00 00 ┆nd message; begi ┆
0x06a00…06a06 (53,) (0x450,0xd5)
0x06a06…06a20 6e 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 70 65 72 69 70 ┆n w2:=(w1).perip┆
0x06a20…06a40 68 65 72 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3c 20 30 20 74 68 65 6e 20 ┆heral; if w2 < 0 then ┆
0x06a40…06a60 2d 28 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆-(w2); w2+2; ┆
0x06a60…06a7e 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 ┆ w3:=address(b.procname); ┆
0x06a7e…06a84 (0x450,0xd6)
0x06a84…06aa0 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 31 3a 3d 66 31 3a 3d 28 77 32 29 2e 6e ┆ (w3).name1:=f1:=(w2).n┆
0x06aa0…06ac0 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 32 3a 3d 66 31 3a 3d ┆ame1; (w3).name2:=f1:=┆
0x06ac0…06ae0 28 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 ┆(w2).name2; f1:=w01; ┆
0x06ae0…06afc 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 30 20 74 68 65 6e 20 2d 28 77 30 29 3b ┆ if w0<0 then -(w0);┆
0x06afc…06b02 (0x450,0xd7)
0x06b02…06b20 0a 20 20 20 20 20 20 20 20 20 20 77 30 20 2b 20 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 ┆ w0 + (w1).buffer; ┆
0x06b20…06b40 20 20 20 20 20 20 20 20 20 66 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 73 74 3a ┆ fst:=w0; lst:┆
0x06b40…06b60 3d 77 30 2b 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆=w0+(w1).buflength-2; ┆
0x06b60…06b7a 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆w1:=address(op); ┆
0x06b7a…06b80 (0x450,0xd8)
0x06b80…06ba0 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 6d 65 73 73 ┆ monitor(16); comment send mess┆
0x06ba0…06bc0 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 ┆age; f1:=w01; ┆
0x06bc0…06be0 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ (w1).messsend:=w2; end┆
0x06be0…06c00 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 00 00 00 00 00 00 00 00 ┆; testout(.w3.,w ┆
0x06c00…06c06 (54,) (0x450,0xd9)
0x06c06…06c20 30 3a 3d 31 34 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 77 30 31 29 2c 77 32 3a ┆0:=14,w1:=address(w01),w2:┆
0x06c20…06c40 3d 32 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 20 66 33 3a 3d 77 32 33 3b 0a 20 ┆=2); f1:=w01; f3:=w23; ┆
0x06c40…06c60 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 73 65 6e 64 20 20 ┆ end; end; ! send ┆
0x06c60…06c7e 21 0a 0c 0a 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! comment ┆
0x06c7e…06c84 (0x450,0xda)
0x06c84…06ca0 20 73 74 61 72 74 73 74 6f 70 20 20 28 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 ┆ startstop (internal proces┆
0x06ca0…06cc0 73 29 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6a 75 73 74 20 73 74 61 72 74 73 20 6f ┆s) this procedure just starts o┆
0x06cc0…06ce0 72 20 73 74 6f 70 73 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 72 65 66 ┆r stops the internal process ref┆
0x06ce0…06cfc 65 72 65 6e 63 65 64 20 62 79 20 74 68 65 0a 75 73 65 72 65 6e 74 72 79 20 28 77 31 ┆erenced by the userentry (w1┆
0x06cfc…06d02 (0x450,0xdb)
0x06d02…06d20 29 2e 20 0a 77 30 20 3d 20 30 20 20 73 74 6f 70 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 ┆). w0 = 0 stop process ┆
0x06d20…06d40 31 20 20 73 74 61 72 74 20 70 72 6f 63 65 73 73 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 ┆1 start process ; body of┆
0x06d40…06d60 20 73 74 61 72 74 73 74 6f 70 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 ┆ startstop begin incod┆
0x06d60…06d7a 65 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 77 32 33 3b 0a ┆e double w01,w23; ┆
0x06d7a…06d80 (0x450,0xdc)
0x06d80…06da0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 31 3a 3d 66 31 3b 20 77 32 33 ┆ begin w01:=f1; w23┆
0x06da0…06dc0 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 ┆:=f3; w3:=address(b.proc┆
0x06dc0…06de0 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c ┆name); w2:=(w1).internal┆
0x06de0…06e00 2b 32 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 31 3a 3d 00 00 00 00 00 00 00 00 ┆+2; (w3).name1:= ┆
0x06e00…06e06 (55,) (0x450,0xdd)
0x06e06…06e20 66 31 3a 3d 28 77 32 29 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 28 77 ┆f1:=(w2).name1; (w┆
0x06e20…06e40 33 29 2e 6e 61 6d 65 32 3a 3d 66 31 3a 3d 28 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 ┆3).name2:=f1:=(w2).name2; ┆
0x06e40…06e60 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a ┆ f1:=w01; if w0=0 then ┆
0x06e60…06e7e 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e ┆ begin w1:=b.┆
0x06e7e…06e84 (0x450,0xde)
0x06e84…06ea0 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆lastuser; monitor(┆
0x06ea0…06ec0 36 30 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 ┆60); comment stop internal proc┆
0x06ec0…06ee0 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 63 6f 6d ┆ess; monitor(18); com┆
0x06ee0…06efc 6d 65 6e 74 20 77 61 69 74 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ment wait answer; ┆
0x06efc…06f02 (0x450,0xdf)
0x06f02…06f20 69 66 20 77 30 3c 3e 31 20 74 68 65 6e 20 6b 65 79 28 77 30 31 29 3a 3d 77 30 3b 0a 20 20 ┆if w0<>1 then key(w01):=w0; ┆
0x06f20…06f40 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ end else begin ┆
0x06f40…06f60 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 38 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 74 61 ┆ monitor(58); comment sta┆
0x06f60…06f7a 72 74 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 ┆rt internal process; ┆
0x06f7a…06f80 (0x450,0xe0)
0x06f80…06fa0 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 6b 65 79 28 77 30 31 29 3a 3d 77 30 3b ┆ if w0<>0 then key(w01):=w0;┆
0x06fa0…06fc0 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 ┆ end; f1:=w01; ┆
0x06fc0…06fe0 20 20 20 20 20 20 20 77 32 3a 3d 77 30 2b 34 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 ┆ w2:=w0+4; testout┆
0x06fe0…07000 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 00 00 00 00 00 00 00 00 ┆(.w3.,w0:=!length(useren ┆
0x07000…07006 (56,) (0x450,0xe1)
0x07006…07020 74 72 79 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 ┆try),w1,w2); f1:=w┆
0x07020…07040 30 31 3b 20 20 66 33 3a 3d 77 32 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 ┆01; f3:=w23; end; end┆
0x07040…07060 3b 20 20 20 20 20 21 20 20 73 74 61 72 74 73 74 6f 70 20 20 21 0a 0c 0a 0a 0a 0a 0a 20 20 20 20 ┆; ! startstop ! ┆
0x07060…0707e 62 6f 64 79 20 6f 66 20 74 65 73 74 6f 75 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆body of testout begin ┆
0x0707e…07084 (0x450,0xe2)
0x07084…070a0 20 20 72 65 63 6f 72 64 20 74 65 73 74 68 65 61 64 28 62 79 74 65 20 6c 65 6e 67 74 ┆ record testhead(byte lengt┆
0x070a0…070c0 68 2c 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆h,kind; wo┆
0x070c0…070e0 72 64 20 74 69 6d 65 2c 75 73 65 72 2c 74 61 69 6c 66 73 74 29 3b 0a 20 20 20 20 20 20 72 65 63 ┆rd time,user,tailfst); rec┆
0x070e0…070fc 6f 72 64 20 64 75 6d 70 20 28 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 72 65 67 30 ┆ord dump ( word reg0┆
0x070fc…07102 (0x450,0xe3)
0x07102…07120 2c 72 65 67 31 2c 72 65 67 32 2c 72 65 67 33 2c 65 78 72 65 67 2c 69 6e 73 74 72 2c 63 61 ┆,reg1,reg2,reg3,exreg,instr,ca┆
0x07120…07140 75 73 65 2c 73 62 72 65 67 29 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 ┆use,sbreg); incode ┆
0x07140…07160 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 62 75 66 72 65 6c ┆ ref return; word bufrel┆
0x07160…0717a 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 77 32 ┆:=0; double w01,w2┆
0x0717a…07180 (0x450,0xe4)
0x07180…071a0 33 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 31 3a 3d 66 31 3b 20 ┆3; begin w01:=f1; ┆
0x071a0…071c0 20 77 32 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 62 2e 74 65 73 74 62 ┆ w23:=f3; if w3:=b.testb┆
0x071c0…071e0 66 73 74 3c 62 2e 74 65 73 74 62 6c 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆fst<b.testblst then begi┆
0x071e0…07200 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 2b 62 75 66 72 65 6c 00 00 00 00 00 00 00 00 ┆n if w0+bufrel ┆
0x07200…07206 (57,) (0x450,0xe5)
0x07206…07220 2b 38 3e 35 31 30 20 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 61 6e 67 65 ┆+8>510 then comment change┆
0x07220…07240 20 62 75 66 66 65 72 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ buffer segment; begin┆
0x07240…07260 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 31 30 32 34 20 74 68 65 6e 20 77 ┆ if w0 > 1024 then w┆
0x07260…0727e 30 3a 3d 2d 32 20 65 6c 73 65 20 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆0:=-2 else w0:=-1; ┆
0x0727e…07284 (0x450,0xe6)
0x07284…072a0 20 28 77 33 3a 3d 62 2e 74 65 73 74 62 66 73 74 2b 62 75 66 72 65 6c 29 2e 77 6f 72 ┆ (w3:=b.testbfst+bufrel).wor┆
0x072a0…072c0 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 ┆d:=w0; w1:=address(b┆
0x072c0…072e0 2e 74 65 73 74 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 ┆.testop); w3:=addres┆
0x072e0…072fc 73 28 62 2e 74 73 74 61 72 65 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 ┆s(b.tstarea); tr┆
0x072fc…07302 (0x450,0xe7)
0x07302…07320 61 6e 73 70 6f 72 74 28 2e 77 32 2e 2c 77 31 2c 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ansport(.w2.,w1,w3); ┆
0x07320…07340 20 20 20 69 66 20 77 31 3a 3d 62 2e 74 65 73 74 73 65 67 6d 2b 31 3d 62 2e 6d 61 78 74 65 73 74 ┆ if w1:=b.testsegm+1=b.maxtest┆
0x07340…07360 73 65 67 6d 20 74 68 65 6e 20 77 31 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 ┆segm then w1:=1; b.t┆
0x07360…0737a 65 73 74 73 65 67 6d 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆estsegm:=w1; b┆
0x0737a…07380 (0x450,0xe8)
0x07380…073a0 75 66 72 65 6c 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ufrel:=w0:=0; end; ┆
0x073a0…073c0 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 20 20 66 33 3a 3d 77 32 33 3b 0a 20 20 20 20 20 20 ┆ f1:=w01; f3:=w23; ┆
0x073c0…073e0 20 20 20 20 77 33 3a 3d 62 2e 74 65 73 74 62 66 73 74 2b 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 ┆ w3:=b.testbfst+bufrel; ┆
0x073e0…07400 20 20 20 20 20 28 77 33 29 2e 6c 65 6e 67 74 68 3a 3d 77 30 2b 36 3b 0a 00 00 00 00 00 00 00 00 ┆ (w3).length:=w0+6; ┆
0x07400…07406 (58,) (0x450,0xe9)
0x07406…07420 20 20 20 20 20 20 20 20 20 20 62 75 66 72 65 6c 3a 3d 77 31 3a 3d 62 75 66 72 ┆ bufrel:=w1:=bufr┆
0x07420…07440 65 6c 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 31 30 38 3b 20 20 63 6f 6d 6d 65 ┆el+w0; w1:=108; comme┆
0x07440…07460 6e 74 20 61 62 73 20 72 65 66 20 63 75 72 72 65 6e 74 20 74 69 6d 65 3b 0a 20 20 20 20 20 20 20 ┆nt abs ref current time; ┆
0x07460…0747e 20 20 20 66 31 3a 3d 28 77 31 29 2e 64 6f 75 62 6c 65 2d 62 2e 73 74 61 72 74 74 69 6d 65 ┆ f1:=(w1).double-b.starttime┆
0x0747e…07484 (0x450,0xea)
0x07484…074a0 20 6c 73 68 69 66 74 20 2d 37 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 ┆ lshift -7; (w3).t┆
0x074a0…074c0 69 6d 65 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6b 69 6e 64 3a 3d 77 32 ┆ime:=w1; (w3).kind:=w2┆
0x074c0…074e0 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆; f1:=w01; w┆
0x074e0…074fc 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 ┆1:=b.userentry; w2┆
0x074fc…07502 (0x450,0xeb)
0x07502…07520 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆:=(w1).internal; (w3┆
0x07520…07540 29 2e 75 73 65 72 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 ┆).user:=w2; f1:=w01; ┆
0x07540…07560 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 28 77 33 ┆ copy(.w3.,w0,w1,w2:=(w3┆
0x07560…0757a 2b 36 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆+6)); end; ┆
0x0757a…07580 (0x450,0xec)
0x07580…075a0 20 66 33 3a 3d 77 32 33 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 37 20 74 68 65 6e 20 63 ┆ f3:=w23; if w2=7 then c┆
0x075a0…075c0 6f 6d 6d 65 6e 74 20 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆omment fault; begin ┆
0x075c0…075e0 20 20 20 20 20 20 77 33 3a 3d 20 28 77 31 29 2e 69 6e 73 74 72 2d 32 3b 0a 20 20 20 20 20 20 20 ┆ w3:= (w1).instr-2; ┆
0x075e0…07600 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 77 6f 72 64 20 6c 73 68 69 00 00 00 00 00 00 00 00 ┆ if w0:=(w3).word lshi ┆
0x07600…07606 (59,) (0x450,0xed)
0x07606…07620 66 74 20 2d 31 32 3d 28 35 31 2a 36 34 29 20 21 20 6b 65 79 20 73 74 6f 72 65 ┆ft -12=(51*64) ! key store┆
0x07620…07640 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 65 73 74 61 ┆ ! then begin ! reesta┆
0x07640…07660 62 6c 69 73 68 20 72 65 67 69 73 74 65 72 73 20 61 6e 64 20 63 6f 6e 74 69 6e 75 65 20 21 0a 20 ┆blish registers and continue ! ┆
0x07660…0767e 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆ w3+1; (┆
0x0767e…07684 (0x450,0xee)
0x07684…076a0 77 31 29 2e 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 62 79 74 65 3b 0a ┆w1).cause:= w0:= (w3).byte; ┆
0x076a0…076c0 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 69 6e 73 74 72 3b 0a 20 20 20 ┆ w0:= (w1).instr; ┆
0x076c0…076e0 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ return:= w0; ┆
0x076e0…076fc 20 20 77 30 3a 3d 20 28 77 31 29 2e 72 65 67 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w0:= (w1).reg0; ┆
0x076fc…07702 (0x450,0xef)
0x07702…07720 20 20 77 32 3a 3d 20 28 77 31 29 2e 72 65 67 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2:= (w1).reg2; ┆
0x07720…07740 77 33 3a 3d 20 28 77 31 29 2e 72 65 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆w3:= (w1).reg3; w1:=┆
0x07740…07760 20 28 77 31 29 2e 72 65 67 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 ┆ (w1).reg1; call w0 ┆
0x07760…0777a 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 ┆return; end ┆
0x0777a…07780 (0x450,0xf0)
0x07780…077a0 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 20 20 20 ┆ else begin ┆
0x077a0…077c0 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d ┆ f1:=w01; f3:=┆
0x077c0…077e0 77 32 33 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 65 6e 64 3b ┆w23; end; end;┆
0x077e0…07800 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; end; ┆
0x07800…07806 (60,) (0x450,0xf1)
0x07806…07820 20 21 20 20 74 65 73 74 6f 75 74 20 20 21 0a 0c 0a 0a 0a 0a 0a 63 6f 6d 6d 65 ┆ ! testout ! comme┆
0x07820…07840 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 0a 0a 3b ┆nt transport ;┆
0x07840…07860 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 62 65 67 ┆ body of transport beg┆
0x07860…0787e 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f ┆in incode byte o┆
0x0787e…07884 (0x450,0xf2)
0x07884…078a0 70 74 72 3a 3d 32 2c 6d 6f 64 65 74 72 3a 3d 38 27 31 30 30 31 3b 0a 20 20 20 20 20 ┆ptr:=2,modetr:=8'1001; ┆
0x078a0…078c0 20 20 20 74 65 78 74 20 28 36 29 20 73 74 61 72 73 3a 3d 22 73 74 61 74 75 73 22 3b 0a 20 20 20 ┆ text (6) stars:="status"; ┆
0x078c0…078e0 20 20 20 20 20 77 6f 72 64 20 74 72 73 74 61 74 75 73 2c 20 74 72 62 79 74 65 73 2c 20 63 68 61 ┆ word trstatus, trbytes, cha┆
0x078e0…078fc 72 73 2c 20 61 34 2c 20 61 35 2c 20 61 36 2c 20 61 37 2c 20 61 38 3b 0a 20 20 20 20 ┆rs, a4, a5, a6, a7, a8; ┆
0x078fc…07902 (0x450,0xf3)
0x07902…07920 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 20 73 61 76 65 77 31 3b 0a 20 20 20 20 20 ┆ word savew0, savew1; ┆
0x07920…07940 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 62 ┆ double savef1,savef3; b┆
0x07940…07960 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3b 20 73 61 76 65 77 31 3a ┆egin savew0:=w0; savew1:┆
0x07960…0797a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 ┆=w1; savef3:=f3; ┆
0x0797a…07980 (0x450,0xf4)
0x07980…079a0 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3d 30 ┆ w0:=0; while w0=0┆
0x079a0…079c0 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆ do begin moni┆
0x079c0…079e0 74 6f 72 28 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 ┆tor(16); w1:=address(t┆
0x079e0…07a00 72 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 00 00 00 00 00 00 00 00 ┆rstatus); moni ┆
0x07a00…07a06 (61,) (0x450,0xf5)
0x07a06…07a20 74 6f 72 28 31 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 31 20 61 ┆tor(18); w2:=1 a┆
0x07a20…07a40 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 20 74 68 65 6e ┆shift w0; if w0=1 then┆
0x07a40…07a60 20 77 32 2b 74 72 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 62 79 74 65 ┆ w2+trstatus; trbyte┆
0x07a60…07a7e 73 20 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 ┆s :=w0; if w2<>2 the┆
0x07a7e…07a84 (0x450,0xf6)
0x07a84…07aa0 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 ┆n begin ┆
0x07aa0…07ac0 20 20 74 72 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 ┆ trstatus:= w2; cop┆
0x07ac0…07ae0 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 33 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆y(.w3.,w0:=8,w1:=w3,w2:=address(┆
0x07ae0…07afc 74 72 62 79 74 65 73 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 ┆trbytes)); !get ┆
0x07afc…07b02 (0x450,0xf7)
0x07b02…07b20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e ┆2; if w0 <> 1 then┆
0x07b20…07b40 20 67 6f 74 6f 20 62 2e 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆ goto b.discfault; o┆
0x07b40…07b60 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 74 72 29 2c 77 32 3a ┆pmess(.w3.,w1:=address(optr),w2:┆
0x07b60…07b7a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆=b.ownproc); end┆
0x07b7a…07b80 (0x450,0xf8)
0x07b80…07ba0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 74 72 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 ┆; w0:=trbytes; ┆
0x07ba0…07bc0 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 ┆ w1:=savew1; f3:=sav┆
0x07bc0…07be0 65 66 33 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 ┆ef3; end; w0:=sa┆
0x07be0…07c00 76 65 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆vew0; end; end ┆
0x07c00…07c06 (62,) (0x450,0xf9)
0x07c06…07c20 3b 20 20 20 20 20 21 20 20 74 72 61 6e 73 70 6f 72 74 20 20 21 0a 0c 0a 0a 0a ┆; ! transport ! ┆
0x07c20…07c40 0a 21 62 72 61 6e 63 68 20 31 2c 32 3b 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 ┆ !branch 1,2; comment ┆
0x07c40…07c60 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 ┆ init this procedure i┆
0x07c60…07c7e 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 65 20 75 73 65 72 65 6e 74 72 69 65 73 20 28 62 65 ┆nitializes the userentries (be┆
0x07c7e…07c84 (0x450,0xfa)
0x07c84…07ca0 69 6e 67 20 61 6c 6c 20 66 72 65 65 29 20 72 65 73 65 72 76 65 73 20 61 72 65 61 0a ┆ing all free) reserves area ┆
0x07ca0…07cc0 66 6f 72 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 2c 20 74 65 73 74 62 75 66 66 65 72 2c ┆for terminal buffer, testbuffer,┆
0x07cc0…07ce0 20 20 63 6f 6d 70 75 74 65 73 20 61 62 73 6f 6c 75 74 65 20 61 64 64 72 65 73 73 65 73 20 28 63 ┆ computes absolute addresses (c┆
0x07ce0…07cfc 72 65 61 74 69 6e 67 0a 74 68 65 20 63 68 61 69 6e 73 20 6f 66 20 74 68 65 20 71 75 ┆reating the chains of the qu┆
0x07cfc…07d02 (0x450,0xfb)
0x07d02…07d20 65 75 65 73 2c 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 62 75 66 66 65 72 73 20 61 6e ┆eues, references to buffers an┆
0x07d20…07d40 64 20 70 72 6f 63 65 73 73 2d 61 72 65 61 20 65 74 63 29 2c 0a 63 72 65 61 74 65 73 20 73 77 6f ┆d process-area etc), creates swo┆
0x07d40…07d60 70 2d 20 61 6e 64 20 74 65 73 74 2d 61 72 65 61 2d 70 72 6f 63 65 73 73 65 73 20 20 2d 20 20 61 ┆p- and test-area-processes - a┆
0x07d60…07d7a 6e 64 20 61 66 74 65 72 20 65 78 65 63 75 74 69 6f 6e 20 69 74 20 69 73 20 6f ┆nd after execution it is o┆
0x07d7a…07d80 (0x450,0xfc)
0x07d80…07da0 76 65 72 2d 0a 77 72 69 74 74 65 6e 20 28 75 73 65 64 20 61 73 20 62 75 66 66 65 72 20 61 72 65 ┆ver- written (used as buffer are┆
0x07da0…07dc0 61 20 66 6f 72 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 ┆a for execution of child process┆
0x07dc0…07de0 29 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 69 6e 69 74 0a 20 20 20 20 62 65 67 69 6e ┆) ; body of init begin┆
0x07de0…07e00 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 77 6f 00 00 00 00 00 00 00 00 ┆ incode wo ┆
0x07e00…07e06 (63,) (0x450,0xfd)
0x07e06…07e20 72 64 20 63 68 69 6c 64 73 74 61 72 74 2c 73 77 6f 70 6e 6f 3a 3d 30 3b 0a 20 ┆rd childstart,swopno:=0; ┆
0x07e20…07e40 20 20 20 20 20 20 20 62 79 74 65 20 76 6f 70 3a 3d 31 36 2c 76 6d 6f 64 65 3a 3d 38 27 31 34 30 ┆ byte vop:=16,vmode:=8'140┆
0x07e40…07e60 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 76 65 72 73 74 78 74 3a 3d 0a 20 20 20 ┆; text(14) verstxt:= ┆
0x07e60…07e7e 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 73 6f 73 20 2a ┆ ! *** sos *┆
0x07e7e…07e84 (0x450,0xfe)
0x07e84…07ea0 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 22 72 65 6c 65 ┆** ! "rele┆
0x07ea0…07ec0 61 73 65 3a 20 34 2e 30 22 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 6f 73 76 65 72 73 69 ┆ase: 4.0"; word sosversi┆
0x07ec0…07ee0 6f 6e 20 3a 3d 20 38 35 30 38 30 31 2c 0a 0a 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆on := 850801, comment ┆
0x07ee0…07efc 3d 3d 3d 74 72 69 6d 73 74 61 72 74 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆===trimstart; commen┆
0x07efc…07f02 (0x450,0xff)
0x07f02…07f20 74 20 64 61 74 65 20 6f 66 20 6f 70 74 69 6f 6e 20 76 65 72 73 69 6f 6e 3b 20 20 20 20 20 ┆t date of option version; ┆
0x07f20…07f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 69 64 20 20 3a 3d 20 20 20 ┆ optionid := ┆
0x07f40…07f60 20 20 30 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 72 63 34 30 30 30 2f 72 63 38 30 ┆ 0, comment rc4000/rc80┆
0x07f60…07f7a 30 30 20 28 72 63 34 30 30 30 3d 34 30 30 30 2c 72 63 38 30 30 30 3d 38 30 30 ┆00 (rc4000=4000,rc8000=800┆
0x07f7a…07f80 (0x450,0x100)
0x07f80…07fa0 30 29 3b 20 20 20 20 20 72 63 20 20 20 20 20 20 20 20 3a 3d 20 20 38 30 30 30 2c 0a 20 20 20 20 ┆0); rc := 8000, ┆
0x07fa0…07fc0 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6d 69 6e 69 6d 75 6d 20 6e 6f 20 6f 66 20 61 63 74 69 76 65 ┆ comment minimum no of active┆
0x07fc0…07fe0 20 63 68 69 6c 64 73 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 3b 6d 69 6e 75 73 65 72 ┆ childs at the same time;minuser┆
0x07fe0…08000 73 20 20 3a 3d 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 00 00 00 00 00 00 00 00 ┆s := 1, com ┆
0x08000…08006 (64,) (0x450,0x101)
0x08006…08020 6d 65 6e 74 20 74 65 72 6d 69 6e 61 6c 73 20 70 65 72 66 6f 72 6d 69 6e 67 20 ┆ment terminals performing ┆
0x08020…08040 6f 73 2d 63 6f 6d 6d 61 6e 64 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6e 64 75 73 65 ┆os-commands; comnduse┆
0x08040…08060 72 73 3a 3d 20 20 20 20 20 32 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6d 69 6e 2e ┆rs:= 2, comment min.┆
0x08060…0807e 20 6e 6f 20 6f 66 20 62 75 66 73 20 72 65 73 65 72 76 65 64 20 66 6f 72 20 63 68 69 6c 64 ┆ no of bufs reserved for child┆
0x0807e…08084 (0x450,0x102)
0x08084…080a0 73 3b 20 20 20 20 20 20 20 20 20 6d 69 6e 62 75 66 73 20 20 20 3a 3d 20 20 20 20 20 ┆s; minbufs := ┆
0x080a0…080c0 34 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6d 69 6e 2e 20 6e 6f 20 6f 66 20 61 72 ┆4, comment min. no of ar┆
0x080c0…080e0 65 61 73 20 72 65 73 65 72 76 65 64 20 66 6f 72 20 63 68 69 6c 64 73 3b 20 20 20 20 20 20 20 20 ┆eas reserved for childs; ┆
0x080e0…080fc 6d 69 6e 61 72 65 61 73 20 20 3a 3d 20 20 20 20 20 37 2c 0a 20 20 20 20 20 20 20 20 ┆minareas := 7, ┆
0x080fc…08102 (0x450,0x103)
0x08102…08120 63 6f 6d 6d 65 6e 74 20 6d 69 6e 2e 20 63 6f 72 65 20 73 69 7a 65 20 66 6f 72 20 63 68 69 ┆comment min. core size for chi┆
0x08120…08140 6c 64 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 73 69 7a 65 20 20 ┆lds; minsize ┆
0x08140…08160 20 3a 3d 20 31 32 38 30 30 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 69 7a 65 20 ┆ := 12800, comment size ┆
0x08160…0817a 6f 66 20 74 65 73 74 6f 75 74 70 75 74 20 61 72 65 61 3b 20 20 20 20 20 20 20 ┆of testoutput area; ┆
0x0817a…08180 (0x450,0x104)
0x08180…081a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 73 65 67 6d 6e 74 3a 3d 20 20 20 31 36 38 ┆ testsegmnt:= 168┆
0x081a0…081c0 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 69 7a 65 20 6f 66 20 69 2d 6f 20 62 75 ┆, comment size of i-o bu┆
0x081c0…081e0 66 66 65 72 20 66 6f 72 20 61 20 74 65 72 6d 69 6e 61 6c 20 28 62 79 74 65 73 29 3b 20 20 20 62 ┆ffer for a terminal (bytes); b┆
0x081e0…08200 75 66 6c 20 20 20 20 20 20 3a 3d 20 20 20 31 30 34 2c 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ufl := 104, ┆
0x08200…08206 (65,) (0x450,0x105)
0x08206…08220 20 20 20 63 6f 6d 6d 65 6e 74 20 6c 65 6e 67 74 68 20 6f 66 20 61 20 74 69 6d ┆ comment length of a tim┆
0x08220…08240 65 73 6c 69 63 65 20 20 28 73 65 63 6f 6e 64 73 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 74 69 ┆eslice (seconds); ti┆
0x08240…08260 6d 65 73 6c 69 63 65 20 3a 3d 20 20 20 20 20 33 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆meslice := 3, commen┆
0x08260…0827e 74 20 6d 61 78 20 6e 6f 20 6f 66 20 74 69 6d 65 73 6c 69 63 65 73 20 75 73 65 64 20 69 6e ┆t max no of timeslices used in┆
0x0827e…08284 (0x450,0x106)
0x08284…082a0 20 63 70 75 20 28 6e 6f 20 69 6e 70 75 74 29 3b 20 63 70 75 6c 69 6d 69 74 20 20 3a ┆ cpu (no input); cpulimit :┆
0x082a0…082c0 3d 20 20 20 31 30 30 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6c 6f 73 73 20 6f 66 ┆= 100, comment loss of┆
0x082c0…082e0 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 20 77 68 65 6e 20 74 69 6d 65 64 20 6f 75 74 3b 20 ┆ priority class when timed out; ┆
0x082e0…082fc 20 20 20 20 20 20 63 6c 61 73 73 6c 6f 73 73 20 3a 3d 20 20 20 20 20 31 2c 0a 20 20 ┆ classloss := 1, ┆
0x082fc…08302 (0x450,0x107)
0x08302…08320 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 20 67 ┆ comment priority class g┆
0x08320…08340 61 69 6e 20 61 74 20 69 6e 70 75 74 20 28 69 66 20 63 6c 61 73 73 3c 30 29 3b 20 20 20 63 6c 61 ┆ain at input (if class<0); cla┆
0x08340…08360 73 73 67 61 69 6e 20 3a 3d 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆ssgain := 1, comment┆
0x08360…0837a 20 70 72 69 6f 72 69 74 79 20 67 61 69 6e 20 77 68 65 6e 20 66 69 72 73 74 20 ┆ priority gain when first ┆
0x0837a…08380 (0x450,0x108)
0x08380…083a0 69 6e 20 61 63 74 69 76 65 71 75 65 75 65 3b 20 20 20 20 20 70 72 69 6f 67 61 69 6e 20 20 3a 3d ┆in activequeue; priogain :=┆
0x083a0…083c0 20 20 20 20 20 31 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 72 65 61 63 74 69 6f 6e ┆ 1, comment reaction┆
0x083c0…083e0 20 6f 6e 20 74 69 6d 65 20 65 78 63 65 65 64 65 64 2f 62 72 65 61 6b 3b 20 20 20 20 20 20 20 20 ┆ on time exceeded/break; ┆
0x083e0…08400 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 73 20 3a 3d 20 32 27 30 30 30 00 00 00 00 00 00 00 00 ┆ conditions := 2'000 ┆
0x08400…08406 (66,) (0x450,0x109)
0x08406…08420 30 31 31 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 20 32 27 ┆011, comment 2'┆
0x08420…08440 30 30 30 30 30 31 20 3d 20 61 62 6f 72 74 20 6a 6f 62 20 61 74 20 74 69 6d 65 20 65 78 63 65 65 ┆000001 = abort job at time excee┆
0x08440…08460 64 65 64 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 20 32 27 30 30 30 30 31 30 ┆ded; comment 2'000010┆
0x08460…0847e 20 3d 20 61 62 6f 72 74 20 6a 6f 62 20 61 66 74 65 72 20 62 72 65 61 6b 20 63 6f 6d 6d 61 ┆ = abort job after break comma┆
0x0847e…08484 (0x450,0x10a)
0x08484…084a0 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 69 6d 74 65 78 ┆nd; trimtex┆
0x084a0…084c0 74 73 3b 20 20 74 65 78 74 28 31 31 29 0a 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6f ┆ts; text(11) comment o┆
0x084c0…084e0 70 65 72 61 74 6f 72 20 6b 65 79 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆perator key; ┆
0x084e0…084fc 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6b 65 79 20 20 20 20 3a 3d 20 22 6f 70 ┆ oprkey := "op┆
0x084fc…08502 (0x450,0x10b)
0x08502…08520 72 22 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 64 6f 63 75 6d 65 6e 74 20 66 ┆r", comment document f┆
0x08520…08540 6f 72 20 73 77 6f 70 61 72 65 61 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆or swoparea; ┆
0x08540…08560 20 20 20 73 77 6f 70 64 6f 63 20 20 20 3a 3d 20 20 20 20 22 22 2c 0a 20 20 20 20 20 20 20 20 63 ┆ swopdoc := "", c┆
0x08560…0857a 6f 6d 6d 65 6e 74 20 64 6f 63 75 6d 65 6e 74 20 66 6f 72 20 74 65 73 74 61 72 ┆omment document for testar┆
0x0857a…08580 (0x450,0x10c)
0x08580…085a0 65 61 3b 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 73 74 64 6f ┆ea; testdo┆
0x085a0…085c0 63 20 20 20 3a 3d 20 20 20 20 22 22 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 3d 3d ┆c := "", comment ==┆
0x085c0…085e0 3d 74 72 69 6d 66 69 6e 69 73 3b 0a 0a 0a 20 20 20 20 20 20 20 20 6b 65 79 74 65 78 74 20 3a 3d ┆=trimfinis; keytext :=┆
0x085e0…08600 22 6b 65 79 22 2c 0a 20 20 20 20 20 20 20 20 69 6e 74 74 65 78 74 20 3a 00 00 00 00 00 00 00 00 ┆"key", inttext : ┆
0x08600…08606 (67,) (0x450,0x10d)
0x08606…08620 3d 22 69 6e 74 65 72 6e 61 6c 22 2c 0a 20 20 20 20 20 20 20 20 62 75 66 74 65 ┆="internal", bufte┆
0x08620…08640 78 74 20 3a 3d 22 62 75 66 22 2c 0a 20 20 20 20 20 20 20 20 61 72 65 61 74 65 78 74 3a 3d 22 61 ┆xt :="buf", areatext:="a┆
0x08640…08660 72 65 61 22 2c 0a 20 20 20 20 20 20 20 20 73 69 7a 65 74 65 78 74 3a 3d 22 73 69 7a 65 22 3b 0a ┆rea", sizetext:="size"; ┆
0x08660…0867e 20 20 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 2c 63 75 72 72 65 6e 74 72 79 2c 70 ┆ ref return,currentry,p┆
0x0867e…08684 (0x450,0x10e)
0x08684…086a0 72 65 76 63 68 61 69 6e 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 7a 65 ┆revchain:=0; word ze┆
0x086a0…086c0 72 6f 3a 3d 30 3b 0a 0a 20 20 20 20 20 20 20 20 61 72 72 61 79 20 28 31 3a 31 30 29 20 74 61 69 ┆ro:=0; array (1:10) tai┆
0x086c0…086e0 6c 20 6f 66 20 77 6f 72 64 20 3a 3d 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 ┆l of word := 0 0 0 0 0 0 0 0 0 0┆
0x086e0…086fc 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 31 3a 3d 31 36 2c 20 6d 6f 64 65 ┆; byte op1:=16, mode┆
0x086fc…08702 (0x450,0x10f)
0x08702…08720 31 3a 3d 38 27 34 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 61 6c 61 72 6d 3b 0a 20 ┆1:=8'40; word alarm; ┆
0x08720…08740 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 72 65 73 6f 75 72 63 65 3b 0a 20 20 20 20 20 20 ┆ text(11) resource; ┆
0x08740…08760 20 20 77 6f 72 64 20 66 69 6c 6c 65 72 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 ┆ word filler:=0; word s┆
0x08760…0877a 74 64 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 32 31 29 20 ┆tdvalue; text(21) ┆
0x0877a…08780 (0x450,0x110)
0x08780…087a0 66 75 6e 63 74 65 78 74 3a 3d 22 2a 2a 2a 66 75 6e 63 74 69 6f 6e 20 31 2c 32 2c 33 2c 34 2c 35 ┆functext:="***function 1,2,3,4,5┆
0x087a0…087c0 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 6c 74 65 78 74 3a 3d 22 2a ┆", bufltext:="*┆
0x087c0…087e0 2a 2a 62 75 66 6c 65 6e 67 74 68 20 3e 3d 20 39 34 22 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 ┆**buflength >= 94"; word┆
0x087e0…08800 20 73 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 32 3a 00 00 00 00 00 00 00 00 ┆ stop; byte op2: ┆
0x08800…08806 (68,) (0x450,0x111)
0x08806…08820 3d 20 31 36 2c 20 6d 6f 64 65 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 74 ┆= 16, mode2:= 0; t┆
0x08820…08840 65 78 74 20 28 32 30 29 20 63 68 69 6c 64 72 65 73 3a 3d 22 63 68 69 6c 64 20 72 65 73 6f 75 72 ┆ext (20) childres:="child resour┆
0x08840…08860 63 65 73 22 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 73 74 6f 70 3a 3d 20 32 2c 20 6d ┆ces"; byte opstop:= 2, m┆
0x08860…0887e 6f 64 65 73 74 6f 70 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 20 28 32 30 29 ┆odestop:= 1; text (20)┆
0x0887e…08884 (0x450,0x112)
0x08884…088a0 20 69 6e 69 74 74 72 3a 3d 20 22 2a 2a 2a 69 6e 69 74 20 74 72 6f 75 62 6c 65 73 22 ┆ inittr:= "***init troubles"┆
0x088a0…088c0 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 33 3a 3d 31 36 2c 20 6d 6f 64 65 33 3a 3d 30 ┆; byte op3:=16, mode3:=0┆
0x088c0…088e0 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 20 28 32 30 29 20 73 74 61 72 74 65 64 3a 3d 22 73 74 ┆; text (20) started:="st┆
0x088e0…088fc 61 72 74 65 64 22 3b 0a 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 68 69 6c 64 61 ┆arted"; word childa┆
0x088fc…08902 (0x450,0x113)
0x08902…08920 72 65 61 73 2c 20 75 73 65 72 73 2c 20 73 77 6f 70 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 ┆reas, users, swopsize; ┆
0x08920…08940 20 74 65 78 74 28 31 31 29 20 73 77 6f 70 61 72 65 61 3a 3d 22 73 77 70 22 2c 74 65 73 74 61 72 ┆ text(11) swoparea:="swp",testar┆
0x08940…08960 65 61 3a 3d 22 74 73 74 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 61 72 ┆ea:="tst", fpar┆
0x08960…0897a 65 61 3a 3d 22 66 70 22 2c 63 6c 65 61 72 61 72 65 61 3a 3d 22 63 6c 65 61 72 ┆ea:="fp",cleararea:="clear┆
0x0897a…08980 (0x450,0x114)
0x08980…089a0 74 65 6d 70 22 2c 73 6f 73 63 61 74 3a 3d 22 73 6f 73 63 61 74 22 2c 0a 20 20 20 20 20 20 20 20 ┆temp",soscat:="soscat", ┆
0x089a0…089c0 20 20 20 20 20 20 20 20 20 74 5f 6d 6f 64 75 6c 65 3a 3d 22 74 65 6d 22 2c 70 5f 6d 6f 64 75 6c ┆ t_module:="tem",p_modul┆
0x089c0…089e0 65 3a 3d 22 70 72 69 6d 6f 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 5f 6d ┆e:="primo", p_m┆
0x089e0…08a00 73 79 73 3a 3d 22 70 72 69 6d 6f 73 79 73 22 2c 63 6f 6e 73 6f 6c 65 31 00 00 00 00 00 00 00 00 ┆sys:="primosys",console1 ┆
0x08a00…08a06 (69,) (0x450,0x115)
0x08a06…08a20 3a 3d 22 63 6f 6e 73 6f 6c 65 31 22 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆:="console1"; begin ┆
0x08a20…08a40 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d ┆ return:=w3; w3:=┆
0x08a40…08a60 31 30 38 3b 0a 20 20 20 20 20 20 20 20 62 2e 73 74 61 72 74 74 69 6d 65 3a 3d 66 31 3a 3d 28 77 ┆108; b.starttime:=f1:=(w┆
0x08a60…08a7e 33 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 72 63 20 3d ┆3).double; if w2:=rc =┆
0x08a7e…08a84 (0x450,0x116)
0x08a84…08aa0 20 34 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ 4000 then begin ┆
0x08aa0…08ac0 20 20 20 20 20 20 20 62 2e 72 65 6c 69 6e 74 72 70 74 3a 3d 77 30 3a 3d 33 36 3b 0a 20 20 20 20 ┆ b.relintrpt:=w0:=36; ┆
0x08ac0…08ae0 20 20 20 20 20 20 62 2e 72 65 6c 64 75 6d 70 3a 3d 77 30 3a 3d 33 38 3b 0a 20 20 20 20 20 20 20 ┆ b.reldump:=w0:=38; ┆
0x08ae0…08afc 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ end else begin ┆
0x08afc…08b02 (0x450,0x117)
0x08b02…08b20 20 20 20 20 20 20 62 2e 72 65 6c 69 6e 74 72 70 74 3a 3d 77 30 3a 3d 33 36 3b 0a 20 20 20 ┆ b.relintrpt:=w0:=36; ┆
0x08b20…08b40 20 20 20 20 20 20 20 62 2e 72 65 6c 64 75 6d 70 3a 3d 77 30 3a 3d 38 30 3b 0a 20 20 20 20 20 20 ┆ b.reldump:=w0:=80; ┆
0x08b40…08b60 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 ┆ end; copy(.w3.,w0:=8,w┆
0x08b60…08b7a 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 72 6b 65 79 29 2c 77 32 3a 3d 61 64 64 ┆1:=address(oprkey),w2:=add┆
0x08b7a…08b80 (0x450,0x118)
0x08b80…08ba0 72 65 73 73 28 62 2e 6f 70 65 72 61 74 6f 72 29 29 3b 0a 20 20 20 20 20 20 20 20 62 2e 6d 61 78 ┆ress(b.operator)); b.max┆
0x08ba0…08bc0 62 75 66 3a 3d 77 30 3a 3d 62 75 66 6c 3b 0a 20 20 20 20 20 20 20 20 62 75 66 6c 3a 3d 77 30 3a ┆buf:=w0:=bufl; bufl:=w0:┆
0x08bc0…08be0 3d 62 75 66 6c 2b 32 3b 0a 20 20 20 20 20 20 20 20 62 2e 6d 69 6e 70 72 69 6f 3a 3d 2d 28 77 31 ┆=bufl+2; b.minprio:=-(w1┆
0x08be0…08c00 3a 3d 63 70 75 6c 69 6d 69 74 29 3b 0a 20 20 20 20 20 20 20 20 62 2e 69 00 00 00 00 00 00 00 00 ┆:=cpulimit); b.i ┆
0x08c00…08c06 (70,) (0x450,0x119)
0x08c06…08c20 6e 74 65 72 76 61 6c 3a 3d 77 31 3a 3d 74 69 6d 65 73 6c 69 63 65 3b 0a 20 20 ┆nterval:=w1:=timeslice; ┆
0x08c20…08c40 20 20 20 20 20 20 62 2e 74 69 6d 65 72 6c 6f 73 73 3a 3d 77 31 3a 3d 63 6c 61 73 73 6c 6f 73 73 ┆ b.timerloss:=w1:=classloss┆
0x08c40…08c60 3b 0a 20 20 20 20 20 20 20 20 62 2e 63 79 63 6c 65 67 61 69 6e 3a 3d 77 31 3a 3d 70 72 69 6f 67 ┆; b.cyclegain:=w1:=priog┆
0x08c60…08c7e 61 69 6e 3b 0a 20 20 20 20 20 20 20 20 62 2e 69 6e 70 75 74 67 61 69 6e 3a 3d 77 31 3a 3d ┆ain; b.inputgain:=w1:=┆
0x08c7e…08c84 (0x450,0x11a)
0x08c84…08ca0 63 6c 61 73 73 67 61 69 6e 3b 0a 20 20 20 20 20 20 20 20 62 2e 73 79 73 63 6f 6e 64 ┆classgain; b.syscond┆
0x08ca0…08cc0 3a 3d 77 31 3a 3d 63 6f 6e 64 69 74 69 6f 6e 73 3b 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 ┆:=w1:=conditions; w3:= ┆
0x08cc0…08ce0 62 2e 6f 77 6e 70 72 6f 63 2b 33 32 3b 0a 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 ┆b.ownproc+32; w0:= (w3)┆
0x08ce0…08cfc 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 31 ┆.word; f1 lshift -1┆
0x08cfc…08d02 (0x450,0x11b)
0x08d02…08d20 32 3b 20 77 31 20 6c 73 68 69 66 74 20 2d 31 32 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 ┆2; w1 lshift -12; if ┆
0x08d20…08d40 77 32 3a 3d 72 63 20 3c 3e 20 34 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 ┆w2:=rc <> 4000 then beg┆
0x08d40…08d60 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 2e 63 68 69 6c 64 70 72 3a 3d 20 77 30 3b 0a 20 20 ┆in b.childpr:= w0; ┆
0x08d60…08d7a 20 20 20 20 20 20 20 20 20 62 2e 63 68 69 6c 64 70 6b 3a 3d 20 77 31 3b 0a 20 ┆ b.childpk:= w1; ┆
0x08d7a…08d80 (0x450,0x11c)
0x08d80…08da0 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆ end else ┆
0x08da0…08dc0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 31 29 3b 0a 20 20 20 20 20 ┆ begin -(w1); ┆
0x08dc0…08de0 20 20 20 20 20 20 62 2e 63 68 69 6c 64 70 72 3a 3d 20 77 32 3a 3d 20 31 32 38 20 6c 73 68 69 66 ┆ b.childpr:= w2:= 128 lshif┆
0x08de0…08e00 74 20 77 31 20 2b 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆t w1 + w0; if ┆
0x08e00…08e06 (71,) (0x450,0x11d)
0x08e06…08e20 20 77 32 20 65 78 74 72 61 63 74 20 38 3d 31 32 37 20 74 68 65 6e 20 21 20 6e ┆ w2 extract 8=127 then ! n┆
0x08e20…08e40 6f 20 6b 65 79 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 63 68 69 6c 64 20 21 0a 20 20 20 20 ┆o key available for child ! ┆
0x08e40…08e60 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 73 74 64 76 61 6c ┆ begin stdval┆
0x08e60…08e7e 75 65 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 ┆ue:= w0:= 2; copy┆
0x08e7e…08e84 (0x450,0x11e)
0x08e84…08ea0 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6b 65 79 74 ┆(.w3.,w0:=8,w1:=address(keyt┆
0x08ea0…08ec0 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 ┆ext),w2:=address(resource)); ┆
0x08ec0…08ee0 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a ┆ alarm:= w0:= 2763306; ┆
0x08ee0…08efc 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆ stop:= w0; ┆
0x08efc…08f02 (0x450,0x11f)
0x08f02…08f20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 ┆ opmess(.w3.,w1:=addre┆
0x08f20…08f40 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 ┆ss(op1),w2:=b.ownproc); ┆
0x08f40…08f60 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 63 68 69 6c 64 70 ┆ end; w2:=b.childp┆
0x08f60…08f7a 72 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆r extract 8; w1┆
0x08f7a…08f80 (0x450,0x120)
0x08f80…08fa0 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 20 6c 73 68 69 66 74 ┆:= 1; while w2 lshift┆
0x08fa0…08fc0 20 31 20 6f 6e 65 6d 61 73 6b 20 31 32 38 20 64 6f 20 77 31 2b 31 3b 0a 20 20 20 20 20 20 20 20 ┆ 1 onemask 128 do w1+1; ┆
0x08fc0…08fe0 20 20 20 62 2e 63 68 69 6c 64 70 6b 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ b.childpk:= w1; end;┆
0x08fe0…09000 0a 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 00 00 00 00 00 00 00 00 ┆ opmess(.w3.,w1 ┆
0x09000…09006 (72,) (0x450,0x121)
0x09006…09020 3a 3d 61 64 64 72 65 73 73 28 76 6f 70 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 ┆:=address(vop),w2:=b.ownpr┆
0x09020…09040 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b 32 39 3b 20 20 ┆oc); w3:=b.ownproc+29; ┆
0x09040…09060 20 21 20 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 20 6d 61 73 6b 20 21 0a 20 20 20 20 20 20 20 20 ┆ ! test function mask ! ┆
0x09060…0907e 69 66 20 77 30 3a 3d 28 77 33 29 2e 62 79 74 65 20 6f 6e 65 6d 61 73 6b 20 38 27 33 37 30 ┆if w0:=(w3).byte onemask 8'370┆
0x0907e…09084 (0x450,0x122)
0x09084…090a0 30 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆0 then else begin ┆
0x090a0…090c0 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 31 34 2c 77 31 3a 3d 61 64 64 ┆ copy(.w3.,w0:=14,w1:=add┆
0x090c0…090e0 72 65 73 73 28 66 75 6e 63 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 73 74 61 72 74 ┆ress(functext),w2:=address(start┆
0x090e0…090fc 65 64 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 30 3a 3d 31 3b ┆ed)); stop:=w0:=1;┆
0x090fc…09102 (0x450,0x123)
0x09102…09120 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 ┆ opmess(.w3.,w1:=add┆
0x09120…09140 72 65 73 73 28 6f 70 33 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 ┆ress(op3),w2:=b.ownproc); ┆
0x09140…09160 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 75 66 6c 20 3c 20 39 34 ┆ end; if w0:=bufl < 94┆
0x09160…0917a 20 74 68 65 6e 20 20 20 21 20 62 75 66 66 65 72 20 73 69 7a 65 20 74 6f 6f 20 ┆ then ! buffer size too ┆
0x0917a…09180 (0x450,0x124)
0x09180…091a0 73 6d 61 6c 6c 20 66 6f 72 20 73 6f 73 27 20 70 72 69 76 61 74 65 20 75 73 65 20 21 0a 20 20 20 ┆small for sos' private use ! ┆
0x091a0…091c0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 ┆ begin copy(.w3.,w┆
0x091c0…091e0 30 3a 3d 31 34 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 75 66 6c 74 65 78 74 29 2c 77 32 3a 3d ┆0:=14,w1:=address(bufltext),w2:=┆
0x091e0…09200 61 64 64 72 65 73 73 28 73 74 61 72 74 65 64 29 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆address(started)); ┆
0x09200…09206 (73,) (0x450,0x125)
0x09206…09220 20 20 20 20 20 73 74 6f 70 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 ┆ stop:=w0:=1; ┆
0x09220…09240 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 33 29 2c 77 ┆ opmess(.w3.,w1:=address(op3),w┆
0x09240…09260 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆2:=b.ownproc); end; ┆
0x09260…0927e 20 20 20 20 20 77 33 3a 3d 20 62 2e 6f 77 6e 70 72 6f 63 2b 32 38 3b 0a 20 20 20 20 20 20 ┆ w3:= b.ownproc+28; ┆
0x0927e…09284 (0x450,0x126)
0x09284…092a0 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w0:= (w3).byte; ┆
0x092a0…092c0 69 66 20 77 30 3c 6d 69 6e 75 73 65 72 73 20 74 68 65 6e 20 21 20 74 6f 6f 20 66 65 77 20 69 6e ┆if w0<minusers then ! too few in┆
0x092c0…092e0 74 65 72 6e 61 6c 73 20 61 76 61 69 6c 61 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 62 65 67 ┆ternals available ! beg┆
0x092e0…092fc 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3a ┆in stdvalue:= w0:┆
0x092fc…09302 (0x450,0x127)
0x09302…09320 3d 20 6d 69 6e 75 73 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 ┆= minusers; copy(.w┆
0x09320…09340 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 74 74 65 78 74 29 2c 77 32 ┆3.,w0:=8,w1:=address(inttext),w2┆
0x09340…09360 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=address(resource)); ┆
0x09360…0937a 20 61 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 20 ┆ alarm:= w0:= 2763306; ┆
0x0937a…09380 (0x450,0x128)
0x09380…093a0 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 ┆ stop:= w0; op┆
0x093a0…093c0 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 ┆mess(.w3.,w1:=address(op1),w2:=b┆
0x093c0…093e0 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 6d 69 6e 75 73 ┆.ownproc); w0:= minus┆
0x093e0…09400 65 72 73 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 ┆ers; end; ┆
0x09400…09406 (74,) (0x450,0x129)
0x09406…09420 20 20 20 20 75 73 65 72 73 3a 3d 20 77 30 2b 63 6f 6d 6e 64 75 73 65 72 73 3b ┆ users:= w0+comndusers;┆
0x09420…09440 0a 20 20 20 20 20 20 20 20 20 77 30 2a 32 3b 20 20 21 20 63 6f 6d 70 75 74 65 20 66 72 65 65 20 ┆ w0*2; ! compute free ┆
0x09440…09460 62 75 66 73 20 21 0a 20 20 20 20 20 20 20 20 20 77 30 2b 34 3b 0a 20 20 20 20 20 20 20 20 20 77 ┆bufs ! w0+4; w┆
0x09460…0947e 33 3a 3d 20 62 2e 6f 77 6e 70 72 6f 63 2b 32 36 3b 0a 20 20 20 20 20 20 20 20 20 2d 28 77 ┆3:= b.ownproc+26; -(w┆
0x0947e…09484 (0x450,0x12a)
0x09484…094a0 30 2d 28 77 33 29 2e 62 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20 20 62 2e 66 72 65 ┆0-(w3).byte); b.fre┆
0x094a0…094c0 65 62 75 66 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 6d 69 6e 62 75 ┆ebufs:= w0; if w0<minbu┆
0x094c0…094e0 66 73 20 74 68 65 6e 20 21 20 74 6f 6f 20 66 65 77 20 62 75 66 66 65 72 73 20 21 0a 20 20 20 20 ┆fs then ! too few buffers ! ┆
0x094e0…094fc 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 30 2d 6d ┆ begin -(w0-m┆
0x094fc…09502 (0x450,0x12b)
0x09502…09520 69 6e 62 75 66 73 2d 28 77 33 29 2e 62 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆inbufs-(w3).byte); ┆
0x09520…09540 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e ┆stdvalue:= w0; copy(.┆
0x09540…09560 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 75 66 74 65 78 74 29 2c 77 ┆w3.,w0:=8,w1:=address(buftext),w┆
0x09560…0957a 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 ┆2:=address(resource)); ┆
0x0957a…09580 (0x450,0x12c)
0x09580…095a0 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 ┆ alarm:= w0:= 2763306; ┆
0x095a0…095c0 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6f ┆ stop:= w0; o┆
0x095c0…095e0 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d ┆pmess(.w3.,w1:=address(op1),w2:=┆
0x095e0…09600 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆b.ownproc); end ┆
0x09600…09606 (75,) (0x450,0x12d)
0x09606…09620 3b 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 6f 77 6e 70 72 6f 63 2b ┆; w3:= b.ownproc+┆
0x09620…09640 32 37 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 74 65 73 74 73 65 67 6d 6e 74 73 3d ┆27; if w0:=testsegmnts=┆
0x09640…09660 30 20 74 68 65 6e 20 77 30 3a 3d 34 20 65 6c 73 65 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 ┆0 then w0:=4 else w0:= 5; ┆
0x09660…0967e 20 20 20 77 30 2b 75 73 65 72 73 2d 63 6f 6d 6e 64 75 73 65 72 73 3b 0a 20 20 20 20 20 20 ┆ w0+users-comndusers; ┆
0x0967e…09684 (0x450,0x12e)
0x09684…096a0 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w2:= (w3).byte; ┆
0x096a0…096c0 63 68 69 6c 64 61 72 65 61 3a 3d 20 77 33 3a 3d 20 77 32 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆childarea:= w3:= w2-w0; ┆
0x096c0…096e0 20 77 30 2b 6d 69 6e 61 72 65 61 73 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 77 30 20 ┆ w0+minareas; if w2<w0 ┆
0x096e0…096fc 74 68 65 6e 20 21 20 74 6f 6f 20 66 65 77 20 61 72 65 61 73 20 21 0a 20 20 20 20 20 ┆then ! too few areas ! ┆
0x096fc…09702 (0x450,0x12f)
0x09702…09720 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a ┆ begin stdvalue:┆
0x09720…09740 3d 20 77 30 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a ┆= w0+1; copy(.w3.,w0:┆
0x09740…09760 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 61 72 65 61 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 ┆=8,w1:=address(areatext),w2:=add┆
0x09760…0977a 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ress(resource)); ┆
0x0977a…09780 (0x450,0x130)
0x09780…097a0 20 20 61 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 ┆ alarm:= w0:= 2763306; ┆
0x097a0…097c0 20 20 20 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 ┆ stop:= w0; opmess(┆
0x097c0…097e0 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 ┆.w3.,w1:=address(op1),w2:=b.ownp┆
0x097e0…09800 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆roc); end; ┆
0x09800…09806 (76,) (0x450,0x131)
0x09806…09820 20 20 20 20 20 77 33 3a 3d 20 62 2e 6f 77 6e 70 72 6f 63 2b 32 32 3b 0a 20 20 ┆ w3:= b.ownproc+22; ┆
0x09820…09840 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 20 20 62 2e 66 73 74 63 6f 72 ┆ w0:= (w3).word; b.fstcor┆
0x09840…09860 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 77 33 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆e:= w0; w3+2; ┆
0x09860…0987e 77 30 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 20 62 2e 74 6f 70 63 6f 72 65 3a 3d 20 77 30 ┆w0:= (w3).word; b.topcore:= w0┆
0x0987e…09884 (0x450,0x132)
0x09884…098a0 3b 0a 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 62 75 66 6c 2b 21 6c 65 6e 67 74 68 ┆; w0:= bufl+!length┆
0x098a0…098c0 28 75 73 65 72 65 6e 74 72 79 29 2a 75 73 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 77 30 2b 21 ┆(userentry)*users; w0+!┆
0x098c0…098e0 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆length(userentry); if w┆
0x098e0…098fc 33 3a 3d 74 65 73 74 73 65 67 6d 6e 74 73 3c 3e 30 20 74 68 65 6e 20 77 30 2b 35 31 ┆3:=testsegmnts<>0 then w0+51┆
0x098fc…09902 (0x450,0x133)
0x09902…09920 32 3b 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 63 68 69 6c 64 ┆2; w3:= address(child┆
0x09920…09940 73 74 61 72 74 29 3b 20 2d 28 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 77 33 2b 62 2e 74 6f 70 ┆start); -(w3); w3+b.top┆
0x09940…09960 63 6f 72 65 3b 20 77 33 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3c 6d 69 6e 73 ┆core; w3-w0; if w3<mins┆
0x09960…0997a 69 7a 65 20 74 68 65 6e 20 21 20 73 69 7a 65 20 74 6f 6f 20 73 6d 61 6c 6c 20 ┆ize then ! size too small ┆
0x0997a…09980 (0x450,0x134)
0x09980…099a0 21 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 20 20 2d 28 77 33 ┆! begin -(w3┆
0x099a0…099c0 2d 6d 69 6e 73 69 7a 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 62 2e 74 6f 70 63 6f ┆-minsize); w3+b.topco┆
0x099c0…099e0 72 65 2d 62 2e 66 73 74 63 6f 72 65 3b 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 33 3b 0a 20 20 20 ┆re-b.fstcore; stdvalue:= w3; ┆
0x099e0…09a00 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 00 00 00 00 00 00 00 00 ┆ copy(.w3.,w0:=8, ┆
0x09a00…09a06 (77,) (0x450,0x135)
0x09a06…09a20 77 31 3a 3d 61 64 64 72 65 73 73 28 73 69 7a 65 74 65 78 74 29 2c 77 32 3a 3d ┆w1:=address(sizetext),w2:=┆
0x09a20…09a40 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 61 ┆address(resource)); a┆
0x09a40…09a60 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆larm:= w0:= 2763306; ┆
0x09a60…09a7e 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e ┆stop:= w0; opmess(.┆
0x09a7e…09a84 (0x450,0x136)
0x09a84…09aa0 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f ┆w3.,w1:=address(op1),w2:=b.o┆
0x09aa0…09ac0 77 6e 70 72 6f 63 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 ┆wnproc); end; ┆
0x09ac0…09ae0 73 77 6f 70 73 69 7a 65 3a 3d 20 77 33 20 61 73 68 69 66 74 20 2d 39 3b 0a 20 20 20 20 20 20 20 ┆swopsize:= w3 ashift -9; ┆
0x09ae0…09afc 20 20 77 33 20 61 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 62 2e 66 73 ┆ w3 ashift 9; b.fs┆
0x09afc…09b02 (0x450,0x137)
0x09b02…09b20 74 63 6f 72 65 3a 3d 20 77 31 3a 3d 20 61 64 64 72 65 73 73 20 28 63 68 69 6c 64 73 74 61 ┆tcore:= w1:= address (childsta┆
0x09b20…09b40 72 74 29 3b 20 20 20 20 20 21 20 75 73 65 72 20 70 72 6f 63 65 73 73 20 69 73 20 70 6c 61 63 65 ┆rt); ! user process is place┆
0x09b40…09b60 64 20 69 6e 73 74 65 61 64 20 6f 66 20 62 72 61 6e 63 68 20 32 20 21 0a 20 20 20 20 20 20 20 20 ┆d instead of branch 2 ! ┆
0x09b60…09b7a 20 77 31 2b 77 33 3b 20 62 2e 74 6f 70 63 6f 72 65 3a 3d 20 77 31 3b 0a 20 20 ┆ w1+w3; b.topcore:= w1; ┆
0x09b7a…09b80 (0x450,0x138)
0x09b80…09ba0 20 20 20 20 20 20 20 62 2e 74 65 73 74 62 66 73 74 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 20 ┆ b.testbfst:= w1; ┆
0x09ba0…09bc0 20 20 77 32 3a 3d 20 74 65 73 74 73 65 67 6d 6e 74 73 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 ┆ w2:= testsegmnts; if ┆
0x09bc0…09be0 77 32 3e 30 20 74 68 65 6e 20 21 20 70 72 65 70 61 72 65 20 74 65 73 74 6f 75 74 70 75 74 20 21 ┆w2>0 then ! prepare testoutput !┆
0x09be0…09c00 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x09c00…09c06 (78,) (0x450,0x139)
0x09c06…09c20 20 20 20 77 31 2b 35 31 30 3b 20 62 2e 74 65 73 74 62 6c 73 74 3a 3d 20 77 31 ┆ w1+510; b.testblst:= w1┆
0x09c20…09c40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a ┆; copy(.w3.,w0:=6,w1:┆
0x09c40…09c60 3d 62 2e 6f 77 6e 70 72 6f 63 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 ┆=b.ownproc+2,w2:=address(testare┆
0x09c60…09c7e 61 29 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 77 32 3a 3d 32 29 3b ┆a)+2); tail(w2:=2);┆
0x09c7e…09c84 (0x450,0x13a)
0x09c84…09ca0 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆ copy(.w3.,w0:=8,┆
0x09ca0…09cc0 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 64 6f 63 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆w1:=address(testdoc),w2); ┆
0x09cc0…09ce0 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 65 6e 20 28 ┆ if w0:=(w2).word = 0 then (┆
0x09ce0…09cfc 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w2).word:=w0:=1; ┆
0x09cfc…09d02 (0x450,0x13b)
0x09d02…09d20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 3b 0a 20 20 20 20 20 20 ┆w3:= address(testarea); ┆
0x09d20…09d40 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 29 3b 20 21 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 ┆ monitor(48); ! remove entry┆
0x09d40…09d60 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 ┆ ! (tail(w1:=1)).word┆
0x09d60…09d7a 3a 3d 20 77 32 3a 3d 74 65 73 74 73 65 67 6d 6e 74 73 3b 0a 20 20 20 20 20 20 ┆:= w2:=testsegmnts; ┆
0x09d7a…09d80 (0x450,0x13c)
0x09d80…09da0 20 20 20 20 20 62 2e 6d 61 78 74 65 73 74 73 65 67 6d 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 ┆ b.maxtestsegm:= w2; ┆
0x09da0…09dc0 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 3b 20 21 20 63 72 65 61 74 65 20 74 65 73 74 6f 75 ┆ monitor(40); ! create testou┆
0x09dc0…09de0 74 70 75 74 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 ┆tput area ! monitor(5┆
0x09de0…09e00 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 00 00 00 00 00 00 00 00 ┆2); ! create area proces ┆
0x09e00…09e06 (79,) (0x450,0x13d)
0x09e06…09e20 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b ┆s ! monitor(8);┆
0x09e20…09e40 20 20 21 20 72 65 73 65 72 76 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 ┆ ! reserve area process ! ┆
0x09e40…09e60 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 ┆ if w0<>0 then b┆
0x09e60…09e7e 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 ┆egin stdvalue:= w┆
0x09e7e…09e84 (0x450,0x13e)
0x09e84…09ea0 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 ┆2; copy(.w3.,w0┆
0x09ea0…09ec0 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 2c 77 32 3a 3d 61 64 ┆:=8,w1:=address(testarea),w2:=ad┆
0x09ec0…09ee0 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆dress(resource)); a┆
0x09ee0…09efc 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 ┆larm:= w0:= 2763306; ┆
0x09efc…09f02 (0x450,0x13f)
0x09f02…09f20 20 20 20 20 20 20 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ stop:= w0; ┆
0x09f20…09f40 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a ┆opmess(.w3.,w1:=address(op1),w2:┆
0x09f40…09f60 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆=b.ownproc); end; ┆
0x09f60…09f7a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:= 3; ┆
0x09f7a…09f80 (0x450,0x140)
0x09f80…09fa0 20 6d 6f 6e 69 74 6f 72 28 35 30 29 3b 20 21 20 70 65 72 6d 61 6e 65 6e 74 20 65 6e 74 72 79 20 ┆ monitor(50); ! permanent entry ┆
0x09fa0…09fc0 21 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆! copy(.w3.,w0:=8,w1:┆
0x09fc0…09fe0 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 ┆=address(testarea),w2:=address(b┆
0x09fe0…0a000 2e 74 73 74 61 72 65 61 29 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆.tstarea)); end ┆
0x0a000…0a006 (80,) (0x450,0x141)
0x0a006…0a020 0a 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 62 2e ┆ else b.┆
0x0a020…0a040 74 65 73 74 62 6c 73 74 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 20 21 20 70 72 65 70 61 ┆testblst:= w1; ! prepa┆
0x0a040…0a060 72 65 20 73 77 6f 70 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e ┆re swoparea ! copy(.w3.┆
0x0a060…0a07e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b 32 2c 77 32 3a 3d 61 64 64 ┆,w0:=6,w1:=b.ownproc+2,w2:=add┆
0x0a07e…0a084 (0x450,0x142)
0x0a084…0a0a0 72 65 73 73 28 73 77 6f 70 61 72 65 61 29 2b 32 29 3b 20 20 20 20 20 21 20 6e 61 6d ┆ress(swoparea)+2); ! nam┆
0x0a0a0…0a0c0 65 20 3d 20 22 73 77 70 3c 73 6f 73 3e 22 20 21 0a 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 77 ┆e = "swp<sos>" ! tail(w┆
0x0a0c0…0a0e0 32 3a 3d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆2:=2); copy(.w3.,w0:=8,┆
0x0a0e0…0a0fc 77 31 3a 3d 61 64 64 72 65 73 73 28 73 77 6f 70 64 6f 63 29 2c 77 32 29 3b 0a 20 20 ┆w1:=address(swopdoc),w2); ┆
0x0a0fc…0a102 (0x450,0x143)
0x0a102…0a120 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 ┆ if w0:=(w2).word = 0 th┆
0x0a120…0a140 65 6e 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 77 33 ┆en (w2).word:=w0:=1; w3┆
0x0a140…0a160 3a 3d 20 61 64 64 72 65 73 73 28 73 77 6f 70 61 72 65 61 29 3b 0a 20 20 20 20 20 20 20 20 20 6d ┆:= address(swoparea); m┆
0x0a160…0a17a 6f 6e 69 74 6f 72 28 34 38 29 3b 20 21 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 ┆onitor(48); ! remove entry┆
0x0a17a…0a180 (0x450,0x144)
0x0a180…0a1a0 20 21 0a 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 75 73 65 72 73 2a 73 77 6f 70 73 69 7a 65 3b ┆ ! w2:= users*swopsize;┆
0x0a1a0…0a1c0 0a 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 3a 3d 20 77 ┆ (tail(w1:=1)).word:= w┆
0x0a1c0…0a1e0 32 3b 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 3b 20 21 20 63 72 65 61 74 ┆2; monitor(40); ! creat┆
0x0a1e0…0a200 65 20 73 77 6f 70 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 20 6d 00 00 00 00 00 00 00 00 ┆e swop area ! m ┆
0x0a200…0a206 (81,) (0x450,0x145)
0x0a206…0a220 6f 6e 69 74 6f 72 28 35 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 ┆onitor(52); ! create area ┆
0x0a220…0a240 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 20 38 29 3b 20 ┆process ! monitor( 8); ┆
0x0a240…0a260 21 20 72 65 73 65 72 76 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 ┆! reserve area process ! ┆
0x0a260…0a27e 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ if w0<>0 then begin┆
0x0a27e…0a284 (0x450,0x146)
0x0a284…0a2a0 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 32 3b 0a 20 ┆ stdvalue:= w2; ┆
0x0a2a0…0a2c0 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 ┆ copy(.w3.,w0:=8,w1:=ad┆
0x0a2c0…0a2e0 64 72 65 73 73 28 73 77 6f 70 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f ┆dress(swoparea),w2:=address(reso┆
0x0a2e0…0a2fc 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 20 77 ┆urce)); alarm:= w┆
0x0a2fc…0a302 (0x450,0x147)
0x0a302…0a320 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d ┆0:= 2763306; stop:=┆
0x0a320…0a340 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d ┆ w0; opmess(.w3.,w1:=┆
0x0a340…0a360 20 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 ┆ address(op1),w2:=b.ownproc); ┆
0x0a360…0a37a 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 ┆ end; copy(┆
0x0a37a…0a380 (0x450,0x148)
0x0a380…0a3a0 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 77 6f 70 61 72 65 61 29 ┆.w3.,w0:=8,w1:=address(swoparea)┆
0x0a3a0…0a3c0 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 77 6e 61 6d 65 29 29 3b 0a 0a 20 20 20 20 20 20 ┆,w2:=address(b.swname)); ┆
0x0a3c0…0a3e0 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 66 70 61 72 65 61 29 3b 20 20 20 20 20 21 20 22 ┆ w3:= address(fparea); ! "┆
0x0a3e0…0a400 66 70 22 20 21 0a 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆fp" ! tail(w1:= ┆
0x0a400…0a406 (82,) (0x450,0x149)
0x0a406…0a420 31 29 3b 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 3b 20 ┆1); monitor(42); ┆
0x0a420…0a440 21 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 77 31 2b 31 37 3b ┆! lookup entry ! w1+17;┆
0x0a440…0a460 0a 20 20 20 20 20 20 20 20 20 62 2e 66 70 5f 72 65 6c 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 ┆ b.fp_rel:= w0:= (w1).b┆
0x0a460…0a47e 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 21 20 63 ┆yte; monitor(52); ! c┆
0x0a47e…0a484 (0x450,0x14a)
0x0a484…0a4a0 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 ┆reate area process ! ┆
0x0a4a0…0a4c0 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ if w0<>0 then begin ┆
0x0a4c0…0a4e0 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ stdvalue:= w0; ┆
0x0a4e0…0a4fc 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 ┆ copy(.w3.,w0:=8,w1:=addr┆
0x0a4fc…0a502 (0x450,0x14b)
0x0a502…0a520 65 73 73 28 66 70 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 ┆ess(fparea),w2:=address(resour┆
0x0a520…0a540 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 ┆ce)); alarm:= w0:= 27┆
0x0a540…0a560 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 ┆63306; stop:= w0; ┆
0x0a560…0a57a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 ┆ opmess(.w3.,w1:=ad┆
0x0a57a…0a580 (0x450,0x14c)
0x0a580…0a5a0 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 ┆dress(op1),w2:=b.ownproc); ┆
0x0a5a0…0a5c0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d ┆ end; copy(.w3.,w0:=┆
0x0a5c0…0a5e0 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 66 70 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 ┆8,w1:=address(fparea),w2:=addres┆
0x0a5e0…0a600 73 28 62 2e 66 70 63 6f 64 65 29 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆s(b.fpcode)); ┆
0x0a600…0a606 (83,) (0x450,0x14d)
0x0a606…0a620 77 33 3a 3d 20 61 64 64 72 65 73 73 28 63 6c 65 61 72 61 72 65 61 29 3b 20 20 ┆w3:= address(cleararea); ┆
0x0a620…0a640 20 20 20 21 20 22 63 6c 65 61 72 74 65 6d 70 22 20 21 0a 20 20 20 20 20 20 20 20 20 74 61 69 6c ┆ ! "cleartemp" ! tail┆
0x0a640…0a660 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 3b 20 21 ┆(w1:=1); monitor(42); !┆
0x0a660…0a67e 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 77 31 2b 31 37 ┆ lookup entry ! w1+17┆
0x0a67e…0a684 (0x450,0x14e)
0x0a684…0a6a0 3b 0a 20 20 20 20 20 20 20 20 20 62 2e 63 6c 65 61 72 74 5f 72 65 6c 3a 3d 20 77 30 ┆; b.cleart_rel:= w0┆
0x0a6a0…0a6c0 3a 3d 20 28 77 31 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 ┆:= (w1).byte; monitor(5┆
0x0a6c0…0a6e0 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 ┆2); ! create area process ! ┆
0x0a6e0…0a6fc 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w0<>0 then ┆
0x0a6fc…0a702 (0x450,0x14f)
0x0a702…0a720 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 ┆begin stdvalue:= w0┆
0x0a720…0a740 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆; copy(.w3.,w0:=8,w1:┆
0x0a740…0a760 3d 61 64 64 72 65 73 73 28 63 6c 65 61 72 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆=address(cleararea),w2:=address(┆
0x0a760…0a77a 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 61 6c 61 ┆resource)); ala┆
0x0a77a…0a780 (0x450,0x150)
0x0a780…0a7a0 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 ┆rm:= w0:= 2763306; st┆
0x0a7a0…0a7c0 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c ┆op:= w0; opmess(.w3.,┆
0x0a7c0…0a7e0 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b ┆w1:=address(op1),w2:=b.ownproc);┆
0x0a7e0…0a800 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x0a800…0a806 (84,) (0x450,0x151)
0x0a806…0a820 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 ┆copy(.w3.,w0:=8,w1:=addres┆
0x0a820…0a840 73 28 63 6c 65 61 72 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 63 6c 65 61 72 ┆s(cleararea),w2:=address(b.clear┆
0x0a840…0a860 74 65 6d 70 29 29 3b 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b 36 ┆temp)); w3:=b.ownproc+6┆
0x0a860…0a87e 38 3b 0a 20 20 20 20 20 20 20 20 20 62 2e 73 74 61 72 74 62 61 73 65 3a 3d 66 31 3a 3d 28 ┆8; b.startbase:=f1:=(┆
0x0a87e…0a884 (0x450,0x152)
0x0a884…0a8a0 77 33 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 ┆w3).double; w3:=add┆
0x0a8a0…0a8c0 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 77 30 3a 3d 77 31 3b 0a 20 20 20 ┆ress(zero); w0:=w1; ┆
0x0a8c0…0a8e0 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 20 21 20 73 65 74 20 73 6f 73 20 6f 77 ┆ monitor(72); ! set sos ow┆
0x0a8e0…0a8fc 6e 20 63 61 74 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 ┆n cat base ! w3:= a┆
0x0a8fc…0a902 (0x450,0x153)
0x0a902…0a920 64 64 72 65 73 73 28 73 6f 73 63 61 74 29 3b 20 20 20 20 20 21 20 22 73 6f 73 63 61 74 22 ┆ddress(soscat); ! "soscat"┆
0x0a920…0a940 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 ┆ ! tail(w1:=1); ┆
0x0a940…0a960 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 ┆ monitor(52); ! create area p┆
0x0a960…0a97a 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 ┆rocess ! if w0<>0┆
0x0a97a…0a980 (0x450,0x154)
0x0a980…0a9a0 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 20 20 ┆ then begin ┆
0x0a9a0…0a9c0 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e ┆stdvalue:= w0; copy(.┆
0x0a9c0…0a9e0 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 6f 73 63 61 74 29 2c 77 32 ┆w3.,w0:=8,w1:=address(soscat),w2┆
0x0a9e0…0aa00 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆:=address(resource)); ┆
0x0aa00…0aa06 (85,) (0x450,0x155)
0x0aa06…0aa20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 20 77 30 3a 3d 20 32 37 36 33 ┆ alarm:= w0:= 2763┆
0x0aa20…0aa40 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆306; stop:= w0; ┆
0x0aa40…0aa60 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 ┆ opmess(.w3.,w1:=address(op┆
0x0aa60…0aa7e 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e ┆1),w2:=b.ownproc); en┆
0x0aa7e…0aa84 (0x450,0x156)
0x0aa84…0aaa0 64 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆d; copy(.w3.,w0:=8,┆
0x0aaa0…0aac0 77 31 3a 3d 61 64 64 72 65 73 73 28 73 6f 73 63 61 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆w1:=address(soscat),w2:=address(┆
0x0aac0…0aae0 62 2e 75 73 65 72 63 61 74 29 29 3b 20 20 20 20 20 20 21 20 22 73 6f 73 63 61 74 22 20 20 20 21 ┆b.usercat)); ! "soscat" !┆
0x0aae0…0aafc 0a 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 ┆ copy(.w3.,w0:=8,w┆
0x0aafc…0ab02 (0x450,0x157)
0x0ab02…0ab20 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6d 6f 64 75 6c 65 29 2c 77 32 3a 3d 61 64 64 72 65 ┆1:=address(t_module),w2:=addre┆
0x0ab20…0ab40 73 73 28 62 2e 74 5f 6d 64 75 6c 29 29 3b 20 20 20 20 20 21 20 22 74 65 6d 22 20 20 20 20 20 20 ┆ss(b.t_mdul)); ! "tem" ┆
0x0ab40…0ab60 21 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 ┆! copy(.w3.,w0:=8,w1:=a┆
0x0ab60…0ab7a 64 64 72 65 73 73 28 70 5f 6d 6f 64 75 6c 65 29 2c 77 32 3a 3d 61 64 64 72 65 ┆ddress(p_module),w2:=addre┆
0x0ab7a…0ab80 (0x450,0x158)
0x0ab80…0aba0 73 73 28 62 2e 70 5f 6d 64 75 6c 29 29 3b 20 20 20 20 20 21 20 22 70 72 69 6d 6f 22 20 20 20 20 ┆ss(b.p_mdul)); ! "primo" ┆
0x0aba0…0abc0 21 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 ┆! copy(.w3.,w0:=8,w1:=a┆
0x0abc0…0abe0 64 64 72 65 73 73 28 70 5f 6d 73 79 73 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 5f 70 ┆ddress(p_msys),w2:=address(b.p_p┆
0x0abe0…0ac00 73 65 75 64 6f 29 29 3b 20 20 20 20 20 21 20 22 70 72 69 6d 6f 73 79 73 00 00 00 00 00 00 00 00 ┆seudo)); ! "primosys ┆
0x0ac00…0ac06 (86,) (0x450,0x159)
0x0ac06…0ac20 22 20 21 0a 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 74 6f 70 3c ┆" ! if w0:=stop<┆
0x0ac20…0ac40 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 73 6f 75 72 63 ┆>0 then begin ! resourc┆
0x0ac40…0ac60 65 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 73 74 61 72 74 20 75 70 20 21 0a ┆es not available for start up ! ┆
0x0ac60…0ac7e 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 20 61 ┆ opmess(.w3.,w1:= a┆
0x0ac7e…0ac84 (0x450,0x15a)
0x0ac84…0aca0 64 64 72 65 73 73 28 6f 70 73 74 6f 70 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 ┆ddress(opstop),w2:=b.ownproc┆
0x0aca0…0acc0 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 ┆); end; opmes┆
0x0acc0…0ace0 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 32 29 2c 77 32 3a 3d 62 2e 6f 77 ┆s(.w3.,w1:=address(op2),w2:=b.ow┆
0x0ace0…0acfc 6e 70 72 6f 63 29 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 20 77 ┆nproc); alarm:= w┆
0x0acfc…0ad02 (0x450,0x15b)
0x0ad02…0ad20 30 3a 3d 20 32 31 30 35 33 37 36 3b 20 21 20 22 20 20 20 22 20 21 0a 20 20 20 20 20 20 20 ┆0:= 2105376; ! " " ! ┆
0x0ad20…0ad40 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 75 73 65 72 73 2d 63 6f 6d 6e 64 75 73 65 ┆ stdvalue:= w0:= users-comnduse┆
0x0ad40…0ad60 72 73 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆rs; copy(.w3.,w0:=8,w1:┆
0x0ad60…0ad7a 3d 61 64 64 72 65 73 73 28 69 6e 74 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 ┆=address(inttext),w2:=addr┆
0x0ad7a…0ad80 (0x450,0x15c)
0x0ad80…0ada0 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 ┆ess(resource)); opmess(┆
0x0ada0…0adc0 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 ┆.w3.,w1:=address(op1),w2:=b.ownp┆
0x0adc0…0ade0 72 6f 63 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 ┆roc); stdvalue:= w0:= ┆
0x0ade0…0ae00 62 2e 66 72 65 65 62 75 66 73 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 00 00 00 00 00 00 00 00 ┆b.freebufs; cop ┆
0x0ae00…0ae06 (87,) (0x450,0x15d)
0x0ae06…0ae20 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 ┆y(.w3.,w0:=8,w1:=address(b┆
0x0ae20…0ae40 75 66 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a ┆uftext),w2:=address(resource)); ┆
0x0ae40…0ae60 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 ┆ opmess(.w3.,w1:=address┆
0x0ae60…0ae7e 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 0a 20 20 20 20 20 20 20 ┆(op1),w2:=b.ownproc); ┆
0x0ae7e…0ae84 (0x450,0x15e)
0x0ae84…0aea0 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 63 68 69 6c 64 61 72 65 61 73 ┆ stdvalue:= w0:= childareas┆
0x0aea0…0aec0 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 ┆; copy(.w3.,w0:=8,w1:=a┆
0x0aec0…0aee0 64 64 72 65 73 73 28 61 72 65 61 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 ┆ddress(areatext),w2:=address(res┆
0x0aee0…0aefc 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 ┆ource)); opmess(.w3┆
0x0aefc…0af02 (0x450,0x15f)
0x0af02…0af20 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 ┆.,w1:=address(op1),w2:=b.ownpr┆
0x0af20…0af40 6f 63 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 62 2e 74 6f 70 63 6f 72 65 2d 62 2e ┆oc); w0:= b.topcore-b.┆
0x0af40…0af60 66 73 74 63 6f 72 65 3b 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆fstcore; stdvalue:= w0; ┆
0x0af60…0af7a 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 ┆ copy(.w3.,w0:=8,w1:=addre┆
0x0af7a…0af80 (0x450,0x160)
0x0af80…0afa0 73 73 28 73 69 7a 65 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 ┆ss(sizetext),w2:=address(resourc┆
0x0afa0…0afc0 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 ┆e)); opmess(.w3.,w1:=ad┆
0x0afc0…0afe0 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 ┆dress(op1),w2:=b.ownproc); ┆
0x0afe0…0b000 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 00 00 00 00 00 00 00 00 ┆ opmess(.w3.,w1:=addr ┆
0x0b000…0b006 (88,) (0x450,0x161)
0x0b006…0b020 65 73 73 28 6f 70 33 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 0a ┆ess(op3),w2:=b.ownproc); ┆
0x0b020…0b040 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 20 72 65 73 65 72 76 65 20 73 70 61 63 65 ┆ comment reserve space┆
0x0b040…0b060 20 66 6f 72 20 69 2f 6f 2d 62 75 66 66 65 72 73 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c 73 3b 0a ┆ for i/o-buffers for terminals; ┆
0x0b060…0b07e 0a 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 65 73 74 62 6c 73 74 2b 32 3b 0a 20 ┆ w1:= b.testblst+2; ┆
0x0b07e…0b084 (0x450,0x162)
0x0b084…0b0a0 20 20 20 20 20 20 20 77 30 3a 3d 62 75 66 6c 2a 75 73 65 72 73 3b 0a 20 20 20 20 20 ┆ w0:=bufl*users; ┆
0x0b0a0…0b0c0 20 20 20 77 32 3a 3d 77 30 2b 77 31 3b 0a 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 72 79 3a ┆ w2:=w0+w1; currentry:┆
0x0b0c0…0b0e0 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 62 2e 66 69 72 73 74 75 73 65 72 3a 3d 77 32 3b 0a 20 20 ┆=w2; b.firstuser:=w2; ┆
0x0b0e0…0b0fc 20 20 20 20 20 20 73 77 6f 70 6e 6f 3a 3d 77 33 3a 3d 73 77 6f 70 6e 6f 2d 73 77 6f ┆ swopno:=w3:=swopno-swo┆
0x0b0fc…0b102 (0x450,0x163)
0x0b102…0b120 70 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆psize; w3:=0; ┆
0x0b120…0b140 77 68 69 6c 65 20 77 33 2b 31 3c 3d 75 73 65 72 73 20 64 6f 20 20 20 20 20 21 20 69 6e 69 74 69 ┆while w3+1<=users do ! initi┆
0x0b140…0b160 61 6c 69 7a 65 20 61 6c 6c 20 75 73 65 72 20 65 6e 74 72 69 65 73 20 61 73 20 65 6d 70 74 79 20 ┆alize all user entries as empty ┆
0x0b160…0b17a 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆! begin ┆
0x0b17a…0b180 (0x450,0x164)
0x0b180…0b1a0 28 77 32 29 2e 70 72 65 76 75 73 65 72 3a 3d 77 30 3a 3d 70 72 65 76 63 68 61 69 6e 3b 0a 20 20 ┆(w2).prevuser:=w0:=prevchain; ┆
0x0b1a0…0b1c0 20 20 20 20 20 20 20 20 70 72 65 76 63 68 61 69 6e 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ prevchain:=w2; ┆
0x0b1c0…0b1e0 20 73 77 6f 70 6e 6f 3a 3d 77 30 3a 3d 73 77 6f 70 6e 6f 2b 73 77 6f 70 73 69 7a 65 3b 0a 20 20 ┆ swopno:=w0:=swopno+swopsize; ┆
0x0b1e0…0b200 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 77 6f 70 73 65 67 6d 3a 3d 77 00 00 00 00 00 00 00 00 ┆ (w2).swopsegm:=w ┆
0x0b200…0b206 (89,) (0x450,0x165)
0x0b206…0b220 30 3a 3d 73 77 6f 70 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 ┆0:=swopno; w0:=0┆
0x0b220…0b240 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 30 3b 0a 20 ┆; (w2).internal:=w0; ┆
0x0b240…0b260 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 30 3b 0a 20 20 ┆ (w2).peripheral:=w0; ┆
0x0b260…0b27e 20 20 20 20 20 20 20 20 28 77 32 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 30 3b 0a 20 20 20 ┆ (w2).messsend:=w0; ┆
0x0b27e…0b284 (0x450,0x166)
0x0b284…0b2a0 20 20 20 20 20 20 20 28 77 32 29 2e 6d 65 73 73 67 6f 74 3a 3d 77 30 3b 0a 20 20 20 ┆ (w2).messgot:=w0; ┆
0x0b2a0…0b2c0 20 20 20 20 20 20 20 28 77 32 29 2e 62 75 66 72 65 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ (w2).bufrel:=w0; ┆
0x0b2c0…0b2e0 20 20 28 77 32 29 2e 62 75 66 66 65 72 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b ┆ (w2).buffer:=w1; w1+┆
0x0b2e0…0b2fc 62 75 66 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 77 32 2b 21 6c 65 6e 67 ┆bufl; w0:=w2+!leng┆
0x0b2fc…0b302 (0x450,0x167)
0x0b302…0b320 74 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e ┆th(userentry); (w2).┆
0x0b320…0b340 6e 65 78 74 75 73 65 72 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 30 3b 0a ┆nextuser:=w0; w2:=w0; ┆
0x0b340…0b360 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 2e 6c 61 73 74 75 73 65 72 3a ┆ end; b.lastuser:┆
0x0b360…0b37a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 30 2d 21 6c 65 6e 67 ┆=w2; w2:=(w0-!leng┆
0x0b37a…0b380 (0x450,0x168)
0x0b380…0b3a0 74 68 28 75 73 65 72 65 6e 74 72 79 29 29 3b 0a 20 20 20 20 20 20 20 20 77 30 2d 21 6c 65 6e 67 ┆th(userentry)); w0-!leng┆
0x0b3a0…0b3c0 74 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 72 65 76 ┆th(userentry); (w2).prev┆
0x0b3c0…0b3e0 75 73 65 72 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 6e 65 78 74 75 73 65 72 3a ┆user:=w0; (w2).nextuser:┆
0x0b3e0…0b400 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 00 00 00 00 00 00 00 00 ┆=w0:=address(b.waitqfst) ┆
0x0b400…0b406 (90,) (0x450,0x169)
0x0b406…0b420 3b 0a 20 20 20 20 20 20 20 20 62 2e 77 61 69 74 71 6c 73 74 3a 3d 77 32 3b 0a ┆; b.waitqlst:=w2; ┆
0x0b420…0b440 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 66 69 72 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 ┆ w2:=b.firstuser; ┆
0x0b440…0b460 20 28 77 32 29 2e 70 72 65 76 75 73 65 72 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 ┆ (w2).prevuser:=w0:=address(b.wa┆
0x0b460…0b47e 69 74 71 66 73 74 29 3b 0a 20 20 20 20 20 20 20 20 62 2e 61 63 74 69 76 71 66 73 74 3a 3d ┆itqfst); b.activqfst:=┆
0x0b47e…0b484 (0x450,0x16a)
0x0b484…0b4a0 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 ┆w0:=address(b.activqfst); ┆
0x0b4a0…0b4c0 20 20 20 20 20 20 62 2e 61 63 74 69 76 71 6c 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 62 ┆ b.activqlst:=w0; b┆
0x0b4c0…0b4e0 2e 62 61 74 63 68 71 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 62 61 74 63 68 71 ┆.batchqfst:=w0:=address(b.batchq┆
0x0b4e0…0b4fc 66 73 74 29 3b 0a 20 20 20 20 20 20 20 20 62 2e 62 61 74 63 68 71 6c 73 74 3a 3d 77 ┆fst); b.batchqlst:=w┆
0x0b4fc…0b502 (0x450,0x16b)
0x0b502…0b520 30 3b 0a 20 20 20 20 20 20 20 20 62 2e 77 61 69 74 71 66 73 74 3a 3d 77 32 3b 0a 20 20 20 ┆0; b.waitqfst:=w2; ┆
0x0b520…0b540 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 30 2c 77 31 3a 3d 61 64 64 ┆ testout(.w3.,w0:=60,w1:=add┆
0x0b540…0b560 72 65 73 73 28 73 6f 73 76 65 72 73 69 6f 6e 29 2c 77 32 3a 3d 36 39 29 3b 0a 20 20 20 20 20 20 ┆ress(sosversion),w2:=69); ┆
0x0b560…0b57a 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 ┆ w3:=address(zero); ┆
0x0b57a…0b580 (0x450,0x16c)
0x0b580…0b5a0 20 20 20 66 31 3a 3d 62 2e 73 74 61 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆ f1:=b.startbase; moni┆
0x0b5a0…0b5c0 74 6f 72 28 37 32 29 3b 20 20 21 20 73 65 74 20 6f 77 6e 20 63 61 74 20 62 61 73 65 20 21 0a 20 ┆tor(72); ! set own cat base ! ┆
0x0b5c0…0b5e0 20 20 20 20 20 20 20 77 30 3a 3d 62 2e 66 73 74 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 62 2e ┆ w0:=b.fstcore; b.┆
0x0b5e0…0b600 72 65 67 69 73 74 65 72 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆register1:=w0; w ┆
0x0b600…0b606 (91,) (0x450,0x16d)
0x0b606…0b620 30 3a 3d 62 2e 66 73 74 63 6f 72 65 2b 32 3b 0a 20 20 20 20 20 20 20 20 74 65 ┆0:=b.fstcore+2; te┆
0x0b620…0b640 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 35 30 2c 77 31 3a 3d 62 2e 6f 77 6e 70 72 6f 63 ┆stout(.w3.,w0:=150,w1:=b.ownproc┆
0x0b640…0b660 2d 34 2c 77 32 3a 3d 38 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 3b 20 20 74 ┆-4,w2:=8); comment *; t┆
0x0b660…0b67e 65 73 74 6f 75 74 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 32 30 2c 20 77 31 3a 3d 61 64 64 72 ┆estout (.w3., w0:=20, w1:=addr┆
0x0b67e…0b684 (0x450,0x16e)
0x0b684…0b6a0 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 2c 20 77 32 3a 3d 39 29 3b 0a 20 20 ┆ess(b.activqfst), w2:=9); ┆
0x0b6a0…0b6c0 20 20 20 20 20 20 77 33 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b 39 38 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:=b.ownproc+98; ┆
0x0b6c0…0b6e0 62 2e 62 61 73 65 72 65 67 3a 3d 77 33 3a 3d 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 ┆b.basereg:=w3:=(w3).word; ┆
0x0b6e0…0b6fc 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ w3:=return; end; ┆
0x0b6fc…0b702 (0x450,0x16f)
0x0b702…0b720 20 65 6e 64 3b 20 20 20 20 20 21 20 20 69 6e 69 74 20 20 21 0a 0c 0a 0a 20 20 20 20 62 6f ┆ end; ! init ! bo┆
0x0b720…0b740 64 79 20 6f 66 20 6f 70 6d 65 73 73 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 70 72 6f ┆dy of opmess begin pro┆
0x0b740…0b760 63 65 64 75 72 65 20 6f 75 74 69 6e 74 65 67 65 72 28 2e 77 33 2e 3b 77 31 3b 77 32 29 3b 0a 20 ┆cedure outinteger(.w3.;w1;w2); ┆
0x0b760…0b77a 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 ┆ incode text(1┆
0x0b77a…0b780 (0x450,0x170)
0x0b780…0b7a0 31 29 20 70 61 75 73 65 3a 3d 22 20 70 61 75 73 65 20 22 2c 6d 65 73 73 3a 3d 22 20 6d 65 73 73 ┆1) pause:=" pause ",mess:=" mess┆
0x0b7a0…0b7c0 61 67 65 20 22 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 6d 61 69 6e 63 6f 6e 73 ┆age "; text(14) maincons┆
0x0b7c0…0b7e0 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 6c 6f 63 6b 31 2c 63 6c 6f 63 6b 32 3b 0a 20 20 ┆; word clock1,clock2; ┆
0x0b7e0…0b800 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 73 79 73 6e 61 6d 65 3b 0a 00 00 00 00 00 00 00 00 ┆ text(11) sysname; ┆
0x0b800…0b806 (92,) (0x450,0x171)
0x0b806…0b820 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6d 65 73 73 74 79 70 65 3b ┆ text(11) messtype;┆
0x0b820…0b840 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 70 72 6f 63 6e 61 6d 65 3a 3d 22 20 20 20 ┆ text(14) procname:=" ┆
0x0b840…0b860 20 20 20 20 20 20 20 20 20 20 22 3b 0a 20 20 20 20 20 20 20 20 61 72 72 61 79 28 31 3a 37 30 29 ┆ "; array(1:70)┆
0x0b860…0b87e 20 6c 69 6e 65 62 75 66 66 65 72 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 ┆ linebuffer of word; w┆
0x0b87e…0b884 (0x450,0x172)
0x0b884…0b8a0 6f 72 64 20 6e 6c 3a 3d 31 30 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 3a ┆ord nl:=10; byte op:┆
0x0b8a0…0b8c0 3d 35 2c 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 6c 61 ┆=5,mode:=0; ref first,la┆
0x0b8c0…0b8e0 73 74 3b 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 ┆st; double savef1,savef3┆
0x0b8e0…0b8fc 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 66 31 ┆; begin savef1┆
0x0b8fc…0b902 (0x450,0x173)
0x0b902…0b920 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 ┆:=f1; savef3:=f3; ┆
0x0b920…0b940 20 20 20 20 6f 75 74 74 69 6d 65 28 2e 77 33 2e 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 63 6c 6f ┆ outtime(.w3.,w2:=address(clo┆
0x0b940…0b960 63 6b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 73 79 73 6e 61 ┆ck1)); w3:=address(sysna┆
0x0b960…0b97a 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 ┆me); w2:=b.ownproc┆
0x0b97a…0b980 (0x450,0x174)
0x0b980…0b9a0 2b 32 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 31 3a 3d 66 31 3a 3d 28 77 32 29 ┆+2; (w3).name1:=f1:=(w2)┆
0x0b9a0…0b9c0 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 32 29 2e 6e 61 6d 65 32 3b 0a ┆.name1; f1:=(w2).name2; ┆
0x0b9c0…0b9e0 20 20 20 20 20 20 20 20 77 31 2b 35 38 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 ┆ w1+58; (w3).name┆
0x0b9e0…0ba00 32 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 00 00 00 00 00 00 00 00 ┆2:=f1; f3:=savef ┆
0x0ba00…0ba06 (93,) (0x450,0x175)
0x0ba06…0ba20 33 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 ┆3; copy(.w3.,w0:=8┆
0x0ba20…0ba40 2c 77 31 3a 3d 77 32 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 63 6e 61 6d 65 29 29 ┆,w1:=w2+2,w2:=address(procname))┆
0x0ba40…0ba60 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 69 66 ┆; f1:=savef1; if┆
0x0ba60…0ba7e 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 ┆ w0:=(w1).word extract 1 = 1 t┆
0x0ba7e…0ba84 (0x450,0x176)
0x0ba84…0baa0 68 65 6e 20 77 31 3a 3d 61 64 64 72 65 73 73 28 70 61 75 73 65 29 0a 20 20 20 20 20 ┆hen w1:=address(pause) ┆
0x0baa0…0bac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bac0…0bae0 20 20 65 6c 73 65 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6d 65 73 73 29 3b 0a 20 20 20 20 20 20 ┆ else w1:=address(mess); ┆
0x0bae0…0bafc 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 ┆ copy(.w3.,w0:=8,w1,w2:=add┆
0x0bafc…0bb02 (0x450,0x177)
0x0bb02…0bb20 72 65 73 73 28 6d 65 73 73 74 79 70 65 29 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 ┆ress(messtype)); f1:=s┆
0x0bb20…0bb40 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 31 20 6c 73 68 69 66 74 20 31 32 20 ┆avef1; w0:=-1 lshift 12 ┆
0x0bb40…0bb60 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 35 3b 0a 20 20 20 20 20 20 20 20 ┆or (w1).word lshift -5; ┆
0x0bb60…0bb7a 77 31 2b 31 34 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 62 75 66 66 65 72 28 ┆w1+14; linebuffer(┆
0x0bb7a…0bb80 (0x450,0x178)
0x0bb80…0bba0 77 32 3a 3d 37 30 29 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 20 6f 6e 65 6d 61 73 ┆w2:=70); while w0 onemas┆
0x0bba0…0bbc0 6b 20 38 27 31 30 30 30 30 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆k 8'10000 do begin ┆
0x0bbc0…0bbe0 20 20 20 20 20 69 66 20 77 30 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w0 onemask 1 then ┆
0x0bbe0…0bc00 20 20 20 20 6f 75 74 69 6e 74 65 67 65 72 28 2e 77 33 2e 2c 77 31 2c 77 00 00 00 00 00 00 00 00 ┆ outinteger(.w3.,w1,w ┆
0x0bc00…0bc06 (94,) (0x450,0x179)
0x0bc06…0bc20 32 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 ┆2) else (w2).wor┆
0x0bc20…0bc40 64 3a 3d 77 33 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 ┆d:=w3:=(w1).word; w2-2┆
0x0bc40…0bc60 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 20 6c ┆; w1-2; w0 l┆
0x0bc60…0bc7e 73 68 69 66 74 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆shift -1; end; ┆
0x0bc7e…0bc84 (0x450,0x17a)
0x0bc84…0bca0 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 62 75 66 66 65 72 28 77 ┆ w0:=0; linebuffer(w┆
0x0bca0…0bcc0 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 20 3c 3d 20 77 32 20 64 6f ┆1:=1); while w1 <= w2 do┆
0x0bcc0…0bce0 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 77 6f ┆ begin (w1).wo┆
0x0bce0…0bcfc 72 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 ┆rd:=w0; w1+2; ┆
0x0bcfc…0bd02 (0x450,0x17b)
0x0bd02…0bd20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 69 72 73 74 3a 3d 77 31 3a 3d 61 64 ┆ end; first:=w1:=ad┆
0x0bd20…0bd40 64 72 65 73 73 28 63 6c 6f 63 6b 31 29 3b 0a 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 77 31 3a ┆dress(clock1); last:=w1:┆
0x0bd40…0bd60 3d 61 64 64 72 65 73 73 28 6e 6c 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c ┆=address(nl); copy(.w3.,┆
0x0bd60…0bd7a 77 30 3a 3d 38 2c 77 31 3a 3d 62 2e 6d 61 69 6e 63 6f 6e 73 72 65 66 2b 32 2c ┆w0:=8,w1:=b.mainconsref+2,┆
0x0bd7a…0bd80 (0x450,0x17c)
0x0bd80…0bda0 77 32 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆w2:=address(maincons)); ┆
0x0bda0…0bdc0 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 ┆w1:=address(op); w3:=add┆
0x0bdc0…0bde0 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆ress(maincons); monitor(┆
0x0bde0…0be00 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 00 00 00 00 00 00 00 00 ┆16); ! send message ! ┆
0x0be00…0be06 (95,) (0x450,0x17d)
0x0be06…0be20 20 20 20 20 20 20 20 6c 69 6e 65 62 75 66 66 65 72 28 77 31 3a 3d 31 29 3b 0a ┆ linebuffer(w1:=1); ┆
0x0be20…0be40 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 ┆ monitor(18); ! wait ans┆
0x0be40…0be60 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 ┆wer ! f1:=savef1; ┆
0x0be60…0be7e 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 ┆ f3:=savef3; if w2 = ┆
0x0be7e…0be84 (0x450,0x17e)
0x0be84…0bea0 62 2e 6f 77 6e 70 72 6f 63 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆b.ownproc then if w0┆
0x0bea0…0bec0 3a 3d 28 77 31 29 2e 77 6f 72 64 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 0a 20 20 20 20 20 ┆:=(w1).word onemask 1 then ┆
0x0bec0…0bee0 20 20 20 62 65 67 69 6e 20 21 20 70 61 75 73 65 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 73 6f ┆ begin ! pause message from so┆
0x0bee0…0befc 73 20 69 74 73 65 6c 66 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a ┆s itself ! w0:=0; ┆
0x0befc…0bf02 (0x450,0x17f)
0x0bf02…0bf20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆ w3:=0; mon┆
0x0bf20…0bf40 69 74 6f 72 28 30 29 3b 20 20 21 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 20 21 0a 20 20 20 20 ┆itor(0); ! set interrupt ! ┆
0x0bf40…0bf60 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 30 32 34 2c 77 31 3a 3d ┆ testout(.w3.,w0:=1024,w1:=┆
0x0bf60…0bf7a 2d 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 66 ┆-2,w2); end else f┆
0x0bf7a…0bf80 (0x450,0x180)
0x0bf80…0bfa0 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 62 6f 64 ┆1:=savef1; end; bod┆
0x0bfa0…0bfc0 79 20 6f 66 20 6f 75 74 69 6e 74 65 67 65 72 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆y of outinteger begin ┆
0x0bfc0…0bfe0 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 ┆ incode double save┆
0x0bfe0…0c000 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 00 00 00 00 00 00 00 00 ┆f1; word savew ┆
0x0c000…0c006 (96,) (0x450,0x181)
0x0c006…0c020 33 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆3; begin ┆
0x0c020…0c040 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 33 3a 3d 77 ┆ savef1:=f1; savew3:=w┆
0x0c040…0c060 33 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 33 32 3b 0a ┆3; (w2).word:=w0:=32; ┆
0x0c060…0c07e 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ w2-2; w0:=┆
0x0c07e…0c084 (0x450,0x182)
0x0c084…0c0a0 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d ┆(w1).word; if w0 =┆
0x0c0a0…0c0c0 20 30 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 20 20 ┆ 0 then begin ┆
0x0c0c0…0c0e0 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 33 3a 3d 34 38 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w2).word:=w3:=48; ┆
0x0c0e0…0c0fc 20 20 20 77 32 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ w2-2; end; ┆
0x0c0fc…0c102 (0x450,0x183)
0x0c102…0c120 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 20 3c 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 20 ┆ while w0 <> 0 do ┆
0x0c120…0c140 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 ┆ begin w3:=0; ┆
0x0c140…0c160 20 20 20 20 20 20 20 20 66 30 20 2f 2f 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆ f0 // 10; (w┆
0x0c160…0c17a 32 29 2e 77 6f 72 64 3a 3d 77 33 2b 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆2).word:=w3+48; ┆
0x0c17a…0c180 (0x450,0x184)
0x0c180…0c1a0 20 20 77 32 2d 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 ┆ w2-2; end; ┆
0x0c1a0…0c1c0 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 33 32 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 ┆ (w2).word:=w0:=32; f1┆
0x0c1c0…0c1e0 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 73 61 76 65 77 33 3b 0a ┆:=savef1; w3:=savew3; ┆
0x0c1e0…0c200 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 20 00 00 00 00 00 00 00 00 ┆ end; end; ┆
0x0c200…0c206 (97,) (0x450,0x185)
0x0c206…0c220 20 21 20 6f 75 74 69 6e 74 65 67 65 72 20 21 0a 0a 20 20 20 20 65 6e 64 3b 20 ┆ ! outinteger ! end; ┆
0x0c220…0c240 20 20 21 20 6f 70 6d 65 73 73 20 21 0a 0c 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 6c 6f 67 ┆ ! opmess ! body of log┆
0x0c240…0c260 6f 75 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 ┆out begin incode ┆
0x0c260…0c27e 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 20 ┆ double savef1,savef3; ┆
0x0c27e…0c284 (0x450,0x186)
0x0c284…0c2a0 20 20 20 62 79 74 65 20 6f 70 31 2c 6d 6f 64 65 31 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆ byte op1,mode1:=0; ┆
0x0c2a0…0c2c0 20 20 72 65 66 20 66 73 74 2c 6c 73 74 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 32 3a ┆ ref fst,lst; byte op2:┆
0x0c2c0…0c2e0 3d 31 30 32 2c 6d 6f 64 65 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 63 69 ┆=102,mode2:=0; word loci┆
0x0c2e0…0c2fc 64 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 73 69 6d 74 65 78 74 3a ┆d; text(14) simtext:┆
0x0c2fc…0c302 (0x450,0x187)
0x0c302…0c320 3d 22 27 32 27 27 32 27 20 68 61 72 64 20 65 72 72 6f 72 27 31 30 27 22 3b 0a 20 20 20 20 ┆="'2''2' hard error'10'"; ┆
0x0c320…0c340 20 20 20 20 74 65 78 74 28 31 34 29 20 70 6f 6f 6c 6e 61 6d 65 3b 0a 20 20 20 20 20 20 62 65 67 ┆ text(14) poolname; beg┆
0x0c340…0c360 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 73 ┆in savef1:=f1; s┆
0x0c360…0c37a 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 ┆avef3:=f3; startst┆
0x0c37a…0c380 (0x450,0x188)
0x0c380…0c3a0 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆op(.w3.,w0:=0,w1); (w1).┆
0x0c3a0…0c3c0 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆buflength:=w0:=0; if w0:┆
0x0c3c0…0c3e0 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 20 73 65 6e 64 28 2e 77 33 ┆=(w1).messgot > 10 then send(.w3┆
0x0c3e0…0c400 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆.,w0:=1,w1,w2:=0); ┆
0x0c400…0c406 (98,) (0x450,0x189)
0x0c406…0c420 20 20 20 6c 6f 63 69 64 3a 3d 77 30 3a 3d 28 77 33 3a 3d 28 77 31 29 2e 62 75 ┆ locid:=w0:=(w3:=(w1).bu┆
0x0c420…0c440 66 66 65 72 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 ┆ffer).word; copy(.w3.,w0┆
0x0c440…0c460 3a 3d 36 2c 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 2c 77 32 3a 3d 61 64 64 72 ┆:=6,w1:=(w1).internal+2,w2:=addr┆
0x0c460…0c47e 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 ┆ess(poolname)+2); copy┆
0x0c47e…0c484 (0x450,0x18a)
0x0c484…0c4a0 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 5f ┆(.w3.,w0:=2,w1:=address(b.t_┆
0x0c4a0…0c4c0 6d 64 75 6c 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 29 3b 0a 20 20 ┆mdul),w2:=address(poolname)); ┆
0x0c4c0…0c4e0 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 ┆ w3:=address(poolname); ┆
0x0c4e0…0c4fc 20 20 20 20 20 6f 70 31 3a 3d 77 30 3a 3d 39 3b 20 20 21 20 73 69 6d 75 6c 61 74 65 ┆ op1:=w0:=9; ! simulate┆
0x0c4fc…0c502 (0x450,0x18b)
0x0c502…0c520 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 ┆ input ! fst:=w0:=addr┆
0x0c520…0c540 65 73 73 28 6c 6f 63 69 64 29 3b 0a 20 20 20 20 20 20 20 20 6c 73 74 3a 3d 77 30 3a 3d 61 64 64 ┆ess(locid); lst:=w0:=add┆
0x0c540…0c560 72 65 73 73 28 73 69 6d 74 65 78 74 29 2b 38 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 ┆ress(simtext)+8; w1:=add┆
0x0c560…0c57a 72 65 73 73 28 6f 70 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆ress(op1); monitor┆
0x0c57a…0c580 (0x450,0x18c)
0x0c580…0c5a0 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 ┆(16); ! send message ! ┆
0x0c5a0…0c5c0 77 31 3a 3d 62 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆w1:=b.lastuser; monitor(┆
0x0c5c0…0c5e0 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 69 66 ┆18); ! wait answer ! if┆
0x0c5e0…0c600 20 77 30 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 3d 20 31 20 74 68 65 00 00 00 00 00 00 00 00 ┆ w0 or (w1).word = 1 the ┆
0x0c600…0c606 (99,) (0x450,0x18d)
0x0c606…0c620 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 74 65 72 6d 69 6e 61 ┆n begin ! termina┆
0x0c620…0c640 6c 20 6f 6e 20 74 72 61 6e 73 70 61 72 65 6e 74 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 20 20 ┆l on transparent pool ! ┆
0x0c640…0c660 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ w1:=address(op2); mo┆
0x0c660…0c67e 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 28 72 65 ┆nitor(16); ! send message (re┆
0x0c67e…0c684 (0x450,0x18e)
0x0c684…0c6a0 6d 6f 76 65 20 6c 69 6e 6b 20 73 6f 66 74 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆move link soft) ! ┆
0x0c6a0…0c6c0 77 31 3a 3d 62 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆w1:=b.lastuser; monito┆
0x0c6c0…0c6e0 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 ┆r(18); ! wait answer ! ┆
0x0c6e0…0c6fc 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 6f 74 ┆end else begin ! ot┆
0x0c6fc…0c702 (0x450,0x18f)
0x0c702…0c720 68 65 72 20 6b 69 6e 64 20 6f 66 20 68 61 72 64 20 65 72 72 6f 72 20 20 2d 20 6b 69 6c 6c ┆her kind of hard error - kill┆
0x0c720…0c740 20 6a 6f 62 20 21 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 ┆ job ! f1:=savef1; ┆
0x0c740…0c760 20 20 20 20 20 20 20 63 6c 65 61 6e 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ clean(.w3.,w1); ┆
0x0c760…0c77a 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 36 3b 0a 20 20 ┆ (w1).intervent:=w0:=6; ┆
0x0c77a…0c780 (0x450,0x190)
0x0c780…0c7a0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 ┆ end; f1:=savef1; ┆
0x0c7a0…0c7c0 20 20 20 20 20 20 20 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 ┆ w0:=1; (w1).messs┆
0x0c7c0…0c7e0 65 6e 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 ┆end:=w0; goto b.activate┆
0x0c7e0…0c800 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 00 00 00 00 00 00 00 00 ┆; end; end; ┆
0x0c800…0c806 (100,) (0x450,0x191)
0x0c806…0c820 20 21 20 6c 6f 67 6f 75 74 20 21 0a 0c 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f ┆ ! logout ! body o┆
0x0c820…0c840 66 20 6f 75 74 74 65 78 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 ┆f outtext begin incode┆
0x0c840…0c860 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 32 39 29 0a 20 20 20 20 20 20 20 20 20 20 74 30 20 3a ┆ text(29) t0 :┆
0x0c860…0c87e 3d 22 63 6f 6d 6d 61 6e 64 20 75 6e 6b 6e 6f 77 6e 27 31 30 27 22 2c 0a 20 20 20 20 20 20 ┆="command unknown'10'", ┆
0x0c87e…0c884 (0x450,0x192)
0x0c884…0c8a0 20 20 20 20 74 31 20 3a 3d 22 72 65 61 64 79 27 31 30 27 22 2c 0a 20 20 20 20 20 20 ┆ t1 :="ready'10'", ┆
0x0c8a0…0c8c0 20 20 20 20 74 32 20 3a 3d 22 73 79 6e 74 61 78 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 ┆ t2 :="syntax'10'", ┆
0x0c8c0…0c8e0 20 74 33 20 3a 3d 22 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 69 6c 6c 65 67 61 6c 27 31 30 ┆ t3 :="identification illegal'10┆
0x0c8e0…0c8fc 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 34 20 3a 3d 22 6e 6f 20 72 6f 6f 6d 20 ┆'", t4 :="no room ┆
0x0c8fc…0c902 (0x450,0x193)
0x0c902…0c920 69 6e 20 70 72 69 6d 61 72 79 20 73 74 6f 72 65 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 ┆in primary store'10'", ┆
0x0c920…0c940 20 20 20 74 35 20 3a 3d 22 62 73 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 27 31 30 27 22 ┆ t5 :="bs claims exceeded'10'"┆
0x0c940…0c960 2c 0a 20 20 20 20 20 20 20 20 20 20 74 36 20 3a 3d 22 70 72 6f 63 65 73 73 20 63 72 65 61 74 69 ┆, t6 :="process creati┆
0x0c960…0c97a 6f 6e 20 6e 6f 74 20 6f 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆on not ok'10'", ┆
0x0c97a…0c980 (0x450,0x194)
0x0c980…0c9a0 74 37 20 3a 3d 22 66 6f 72 62 69 64 64 65 6e 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆t7 :="forbidden'10'", ┆
0x0c9a0…0c9c0 74 38 20 3a 3d 22 74 65 72 6d 69 6e 61 6c 20 62 75 73 79 27 31 30 27 22 2c 0a 20 20 20 20 20 20 ┆t8 :="terminal busy'10'", ┆
0x0c9c0…0c9e0 20 20 20 20 74 39 20 3a 3d 22 74 65 72 6d 69 6e 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f ┆ t9 :="terminal connection no┆
0x0c9e0…0ca00 74 20 6f 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 30 00 00 00 00 00 00 00 00 ┆t ok'10'", t10 ┆
0x0ca00…0ca06 (101,) (0x450,0x195)
0x0ca06…0ca20 3a 3d 22 6a 6f 62 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 27 ┆:="jobfile does not exist'┆
0x0ca20…0ca40 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 31 3a 3d 22 74 65 72 6d 69 6e 61 6c 20 63 ┆10'", t11:="terminal c┆
0x0ca40…0ca60 6f 6e 6e 65 63 74 65 64 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 32 3a 3d 22 74 ┆onnected'10'", t12:="t┆
0x0ca60…0ca7e 65 72 6d 69 6e 61 6c 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 27 31 30 27 22 2c 0a 20 20 20 ┆erminal disconnected'10'", ┆
0x0ca7e…0ca84 (0x450,0x196)
0x0ca84…0caa0 20 20 20 20 20 20 20 74 31 33 3a 3d 22 62 61 64 20 70 61 73 73 77 6f 72 64 27 31 30 ┆ t13:="bad password'10┆
0x0caa0…0cac0 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 34 3a 3d 22 74 65 72 6d 69 6e 61 6c 20 6e 6f 74 ┆'", t14:="terminal not┆
0x0cac0…0cae0 20 63 6f 6e 6e 65 63 74 65 64 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 35 3a 3d ┆ connected'10'", t15:=┆
0x0cae0…0cafc 22 70 72 6f 63 65 73 73 20 75 6e 6b 6e 6f 77 6e 27 31 30 27 22 2c 0a 20 20 20 20 20 ┆"process unknown'10'", ┆
0x0cafc…0cb02 (0x450,0x197)
0x0cb02…0cb20 20 20 20 20 20 74 31 36 3a 3d 22 64 69 73 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 74 20 6f ┆ t16:="disconnection not o┆
0x0cb20…0cb40 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 37 3a 3d 22 63 61 6c 6c 20 6e 6f 74 ┆k'10'", t17:="call not┆
0x0cb40…0cb60 20 6f 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 38 3a 3d 22 69 6e 63 6c 75 64 ┆ ok'10'", t18:="includ┆
0x0cb60…0cb7a 65 20 6e 6f 74 20 6f 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 ┆e not ok'10'", t┆
0x0cb7a…0cb80 (0x450,0x198)
0x0cb80…0cba0 31 39 3a 3d 22 65 6e 72 6f 6c 6c 65 64 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 ┆19:="enrolled'10'", t2┆
0x0cba0…0cbc0 30 3a 3d 22 72 65 6d 6f 76 65 64 20 61 66 74 65 72 20 62 72 65 61 6b 27 31 30 27 22 2c 0a 20 20 ┆0:="removed after break'10'", ┆
0x0cbc0…0cbe0 20 20 20 20 20 20 20 20 74 32 31 3a 3d 22 72 65 6d 6f 76 65 64 20 61 66 74 65 72 20 66 69 6e 69 ┆ t21:="removed after fini┆
0x0cbe0…0cc00 73 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 32 3a 3d 22 00 00 00 00 00 00 00 00 ┆s'10'", t22:=" ┆
0x0cc00…0cc06 (102,) (0x450,0x199)
0x0cc06…0cc20 72 65 6d 6f 76 65 64 20 61 66 74 65 72 20 75 73 65 72 20 6b 69 6c 6c 27 31 30 ┆removed after user kill'10┆
0x0cc20…0cc40 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 33 3a 3d 22 72 65 6d 6f 76 65 64 20 61 66 74 65 ┆'", t23:="removed afte┆
0x0cc40…0cc60 72 20 6f 70 65 72 61 74 6f 72 20 6b 69 6c 6c 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆r operator kill'10'", ┆
0x0cc60…0cc7e 74 32 34 3a 3d 22 72 65 6d 6f 76 65 64 20 61 66 74 65 72 20 74 69 6d 65 20 65 78 63 65 65 ┆t24:="removed after time excee┆
0x0cc7e…0cc84 (0x450,0x19a)
0x0cc84…0cca0 64 65 64 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 35 3a 3d 22 72 65 ┆ded'10'", t25:="re┆
0x0cca0…0ccc0 6d 6f 76 65 64 20 61 66 74 65 72 20 74 65 72 6d 69 6e 61 6c 20 65 72 72 6f 72 27 31 30 27 22 2c ┆moved after terminal error'10'",┆
0x0ccc0…0cce0 0a 20 20 20 20 20 20 20 20 20 20 74 32 36 3a 3d 22 72 65 6d 6f 76 65 64 20 61 66 74 65 72 20 75 ┆ t26:="removed after u┆
0x0cce0…0ccfc 73 65 72 20 62 72 65 61 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 ┆ser break'10'", t2┆
0x0ccfc…0cd02 (0x450,0x19b)
0x0cd02…0cd20 37 3a 3d 22 72 65 6d 6f 76 65 64 20 61 66 74 65 72 20 6f 70 65 72 61 74 6f 72 20 62 72 65 ┆7:="removed after operator bre┆
0x0cd20…0cd40 61 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 38 3a 3d 22 75 73 65 72 20 63 6f ┆ak'10'", t28:="user co┆
0x0cd40…0cd60 6e 66 6c 69 63 74 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 39 3a 3d 22 66 6f 72 ┆nflict'10'", t29:="for┆
0x0cd60…0cd7a 62 69 64 64 65 6e 20 20 2d 20 20 73 79 73 74 65 6d 20 6c 6f 63 6b 65 64 27 31 ┆bidden - system locked'1┆
0x0cd7a…0cd80 (0x450,0x19c)
0x0cd80…0cda0 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 33 30 3a 3d 22 75 73 65 72 20 63 61 74 61 6c 6f ┆0'", t30:="user catalo┆
0x0cda0…0cdc0 67 20 72 65 73 65 72 76 65 64 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 39 39 3a 3d ┆g reserved'10'", t99:=┆
0x0cdc0…0cde0 22 2a 2a 2a 22 3b 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 33 3b 0a 20 20 ┆"***"; double savef3; ┆
0x0cde0…0ce00 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 73 61 76 65 77 31 00 00 00 00 00 00 00 00 ┆ word savew0,savew1 ┆
0x0ce00…0ce06 (103,) (0x450,0x19d)
0x0ce06…0ce20 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 62 75 66 70 6f 69 6e 74 65 72 3b 0a ┆; ref bufpointer; ┆
0x0ce20…0ce40 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a ┆ begin savef3:=f3; ┆
0x0ce40…0ce60 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 ┆ savew0:=w0; save┆
0x0ce60…0ce7e 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a 3d 77 33 ┆w1:=w1; bufpointer:=w3┆
0x0ce7e…0ce84 (0x450,0x19e)
0x0ce84…0cea0 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆:=(w1).buffer; (w3).┆
0x0cea0…0cec0 77 6f 72 64 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 33 2b 32 3b 0a 20 20 20 20 20 ┆word:=w2:=0; w3+2; ┆
0x0cec0…0cee0 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆ bufpointer:=w3; if w0┆
0x0cee0…0cefc 20 6f 6e 65 6d 61 73 6b 20 38 27 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 ┆ onemask 8'10 then b┆
0x0cefc…0cf02 (0x450,0x19f)
0x0cf02…0cf20 65 67 69 6e 20 20 21 20 77 72 69 74 65 20 74 69 6d 65 20 21 0a 20 20 20 20 20 20 20 20 20 ┆egin ! write time ! ┆
0x0cf20…0cf40 20 6f 75 74 74 69 6d 65 28 2e 77 33 2e 2c 77 32 3a 3d 62 75 66 70 6f 69 6e 74 65 72 29 3b 0a 20 ┆ outtime(.w3.,w2:=bufpointer); ┆
0x0cf40…0cf60 20 20 20 20 20 20 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a 3d 77 32 3a 3d 62 75 66 70 6f 69 6e ┆ bufpointer:=w2:=bufpoin┆
0x0cf60…0cf7a 74 65 72 2b 34 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ter+4; end; ┆
0x0cf7a…0cf80 (0x450,0x1a0)
0x0cf80…0cfa0 20 20 77 33 3a 3d 62 75 66 70 6f 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 ┆ w3:=bufpointer; case w┆
0x0cfa0…0cfc0 32 3a 3d 73 61 76 65 77 30 20 65 78 74 72 61 63 74 20 33 20 2b 20 31 20 6f 66 0a 20 20 20 20 20 ┆2:=savew0 extract 3 + 1 of ┆
0x0cfc0…0cfe0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 ┆ begin (w3).word:=w0┆
0x0cfe0…0d000 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 00 00 00 00 00 00 00 00 ┆:=0; (w3).word ┆
0x0d000…0d006 (104,) (0x450,0x1a1)
0x0d006…0d020 3a 3d 77 30 3a 3d 32 37 36 33 33 30 36 3b 20 20 20 63 6f 6d 6d 65 6e 74 20 22 ┆:=w0:=2763306; comment "┆
0x0d020…0d040 2a 2a 2a 22 20 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d ┆***" ; (w3).word:=w0:=┆
0x0d040…0d060 32 31 37 31 31 36 39 3b 20 20 20 63 6f 6d 6d 65 6e 74 20 22 21 21 21 22 20 3b 0a 20 20 20 20 20 ┆2171169; comment "!!!" ; ┆
0x0d060…0d07e 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 32 39 36 30 36 38 35 3b 20 20 ┆ (w3).word:=w0:=2960685; ┆
0x0d07e…0d084 (0x450,0x1a2)
0x0d084…0d0a0 20 63 6f 6d 6d 65 6e 74 20 22 2d 2d 2d 22 20 3b 0a 20 20 20 20 20 20 20 20 20 20 28 ┆ comment "---" ; (┆
0x0d0a0…0d0c0 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 32 31 30 35 33 37 36 3b 20 20 20 63 6f 6d 6d 65 6e 74 ┆w3).word:=w0:=2105376; comment┆
0x0d0c0…0d0e0 20 22 20 20 20 22 20 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 ┆ " " ; (w3).word:=w0┆
0x0d0e0…0d0fc 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 ┆:=0; (w3).word:=w0┆
0x0d0fc…0d102 (0x450,0x1a3)
0x0d102…0d120 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d ┆:=0; (w3).word:=w0:=┆
0x0d120…0d140 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 75 66 70 6f 69 6e 74 ┆0; end; bufpoint┆
0x0d140…0d160 65 72 3a 3d 77 30 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 32 3b 0a 20 20 20 20 20 20 20 20 69 66 ┆er:=w0:=bufpointer+2; if┆
0x0d160…0d17a 20 77 30 3a 3d 73 61 76 65 77 30 20 6f 6e 65 6d 61 73 6b 20 38 27 32 30 20 74 ┆ w0:=savew0 onemask 8'20 t┆
0x0d17a…0d180 (0x450,0x1a4)
0x0d180…0d1a0 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 77 72 69 74 65 20 73 79 73 74 65 ┆hen begin ! write syste┆
0x0d1a0…0d1c0 6d 20 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 75 66 70 6f 69 6e 74 65 ┆m name ! w3:=bufpointe┆
0x0d1c0…0d1e0 72 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b 32 3b 0a 20 20 ┆r; w2:=b.ownproc+2; ┆
0x0d1e0…0d200 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 31 3a 3d 66 31 3a 3d 00 00 00 00 00 00 00 00 ┆ (w3).name1:=f1:= ┆
0x0d200…0d206 (105,) (0x450,0x1a5)
0x0d206…0d220 28 77 32 29 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d ┆(w2).name1; f1:=┆
0x0d220…0d240 28 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 31 34 38 38 30 3b 20 ┆(w2).name2; w1+14880; ┆
0x0d240…0d260 20 20 21 20 22 3a 20 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 32 3a ┆ ! ": " ! (w3).name2:┆
0x0d260…0d27e 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a 3d 77 30 3a ┆=f1; bufpointer:=w0:┆
0x0d27e…0d284 (0x450,0x1a6)
0x0d284…0d2a0 3d 62 75 66 70 6f 69 6e 74 65 72 2b 38 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆=bufpointer+8; end; ┆
0x0d2a0…0d2c0 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 20 6f 6e 65 6d 61 73 6b 20 38 27 ┆ if w0:=savew0 onemask 8'┆
0x0d2c0…0d2e0 34 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 77 72 69 74 65 20 70 ┆40 then begin ! write p┆
0x0d2e0…0d2fc 72 6f 63 65 73 73 20 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆rocess name ! w3:=┆
0x0d2fc…0d302 (0x450,0x1a7)
0x0d302…0d320 62 75 66 70 6f 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 ┆bufpointer; w1:=save┆
0x0d320…0d340 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 ┆w1; w1:=savew1; ┆
0x0d340…0d360 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 3b 0a 20 20 20 20 20 20 20 ┆ w2:=(w1).internal+2; ┆
0x0d360…0d37a 20 20 20 28 77 33 29 2e 6e 61 6d 65 31 3a 3d 66 31 3a 3d 28 77 32 29 2e 6e 61 ┆ (w3).name1:=f1:=(w2).na┆
0x0d37a…0d380 (0x450,0x1a8)
0x0d380…0d3a0 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 ┆me1; f1:=(w2).name2; ┆
0x0d3a0…0d3c0 20 20 20 20 20 20 20 20 20 77 31 2b 33 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e ┆ w1+32; (w3).n┆
0x0d3c0…0d3e0 61 6d 65 32 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a 3d ┆ame2:=f1; bufpointer:=┆
0x0d3e0…0d400 77 30 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 38 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w0:=bufpointer+8; ┆
0x0d400…0d406 (106,) (0x450,0x1a9)
0x0d406…0d420 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b ┆ end; f3:=savef3;┆
0x0d420…0d440 0a 20 20 20 20 20 20 20 20 77 32 2a 32 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 ┆ w2*20; copy(.w3┆
0x0d440…0d460 2e 2c 77 30 3a 3d 32 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 30 29 2b 77 32 2c 77 32 3a 3d ┆.,w0:=20,w1:=address(t0)+w2,w2:=┆
0x0d460…0d47e 62 75 66 70 6f 69 6e 74 65 72 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 ┆bufpointer); w1:=savew┆
0x0d47e…0d484 (0x450,0x1aa)
0x0d484…0d4a0 31 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a ┆1; w0:=(w1).buffer; ┆
0x0d4a0…0d4c0 20 20 20 20 20 20 20 20 77 32 2b 32 30 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 ┆ w2+20-w0; (w1).b┆
0x0d4c0…0d4e0 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3b 0a 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e ┆uflength:=w2; testout(.┆
0x0d4e0…0d4fc 77 33 2e 2c 77 30 3a 3d 77 32 2c 77 31 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 2c 77 ┆w3.,w0:=w2,w1:=(w1).buffer,w┆
0x0d4fc…0d502 (0x450,0x1ab)
0x0d502…0d520 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 ┆2:=0); w1:=savew1; ┆
0x0d520…0d540 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 2c 77 32 3a 3d 32 30 34 38 ┆ send(.w3.,w0:=0,w1,w2:=2048┆
0x0d540…0d560 30 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆0); w0:=savew0; ┆
0x0d560…0d57a 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 ┆w1:=savew1; f3:=sa┆
0x0d57a…0d580 (0x450,0x1ac)
0x0d580…0d5a0 76 65 66 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 21 20 6f ┆vef3; end; end; ! o┆
0x0d5a0…0d5c0 75 74 74 65 78 74 20 21 0a 0c 0a 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 6f 75 74 74 69 6d ┆uttext ! body of outtim┆
0x0d5c0…0d5e0 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 63 6f 72 64 20 74 69 6d 65 74 65 78 ┆e begin record timetex┆
0x0d5e0…0d600 74 28 77 6f 72 64 20 68 6f 75 72 74 78 74 2c 6d 69 6e 75 74 65 74 78 74 00 00 00 00 00 00 00 00 ┆t(word hourtxt,minutetxt ┆
0x0d600…0d606 (107,) (0x450,0x1ad)
0x0d606…0d620 29 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 72 65 ┆); incode re┆
0x0d620…0d640 66 20 73 79 73 74 69 6d 65 3a 3d 31 30 38 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 64 61 79 ┆f systime:=108; word day┆
0x0d640…0d660 73 69 7a 65 3a 3d 31 36 38 37 35 30 30 2c 68 6f 75 72 73 69 7a 65 3a 3d 37 30 33 31 33 2c 6d 69 ┆size:=1687500,hoursize:=70313,mi┆
0x0d660…0d67e 6e 75 74 65 73 69 7a 65 3a 3d 31 31 37 32 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 72 65 ┆nutesize:=1172; ref re┆
0x0d67e…0d684 (0x450,0x1ae)
0x0d684…0d6a0 74 75 72 6e 2c 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 ┆turn,bufref; double ┆
0x0d6a0…0d6c0 73 61 76 65 66 31 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 ┆savef1; begin save┆
0x0d6c0…0d6e0 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 62 75 66 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 ┆f1:=f1; bufref:=w2; ┆
0x0d6e0…0d6fc 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d ┆ return:=w3; f3:=┆
0x0d6fc…0d702 (0x450,0x1af)
0x0d702…0d720 73 79 73 74 69 6d 65 2e 6e 61 6d 65 31 20 6c 73 68 69 66 74 20 2d 39 20 2f 2f 20 64 61 79 ┆systime.name1 lshift -9 // day┆
0x0d720…0d740 73 69 7a 65 3b 20 20 21 20 77 33 3a 3d 64 61 79 6e 6f 20 21 0a 20 20 20 20 20 20 20 20 66 31 20 ┆size; ! w3:=dayno ! f1 ┆
0x0d740…0d760 6c 73 68 69 66 74 20 2d 31 30 30 3b 0a 20 20 20 20 20 20 20 20 66 32 20 2f 2f 20 68 6f 75 72 73 ┆lshift -100; f2 // hours┆
0x0d760…0d77a 69 7a 65 3b 20 20 20 21 20 77 32 3a 3d 68 6f 75 72 20 21 0a 20 20 20 20 20 20 ┆ize; ! w2:=hour ! ┆
0x0d77a…0d780 (0x450,0x1b0)
0x0d780…0d7a0 20 20 66 31 20 2f 2f 20 6d 69 6e 75 74 65 73 69 7a 65 3b 20 21 20 77 31 3a 3d 6d 69 6e 75 74 65 ┆ f1 // minutesize; ! w1:=minute┆
0x0d7a0…0d7c0 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 66 31 20 2f 2f 20 ┆ ! w0:=0; f1 // ┆
0x0d7c0…0d7e0 31 30 3b 0a 20 20 20 20 20 20 20 20 62 75 66 72 65 66 2e 6d 69 6e 75 74 65 74 78 74 3a 3d 77 31 ┆10; bufref.minutetxt:=w1┆
0x0d7e0…0d800 20 2b 20 34 38 20 6c 73 68 69 66 74 20 38 20 2b 20 77 30 20 2b 20 34 38 00 00 00 00 00 00 00 00 ┆ + 48 lshift 8 + w0 + 48 ┆
0x0d800…0d806 (108,) (0x450,0x1b1)
0x0d806…0d820 20 6c 73 68 69 66 74 20 38 20 2b 20 33 32 3b 0a 20 20 20 20 20 20 20 20 77 31 ┆ lshift 8 + 32; w1┆
0x0d820…0d840 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 66 32 20 2f 2f 20 31 30 3b 0a 20 20 20 20 20 20 20 20 62 ┆:=0; f2 // 10; b┆
0x0d840…0d860 75 66 72 65 66 2e 68 6f 75 72 74 78 74 3a 3d 77 32 20 2b 20 34 38 20 6c 73 68 69 66 74 20 38 20 ┆ufref.hourtxt:=w2 + 48 lshift 8 ┆
0x0d860…0d87e 2b 20 77 31 20 2b 20 34 38 20 6c 73 68 69 66 74 20 38 20 2b 20 34 36 3b 0a 20 20 20 20 20 ┆+ w1 + 48 lshift 8 + 46; ┆
0x0d87e…0d884 (0x450,0x1b2)
0x0d884…0d8a0 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 ┆ f1:=savef1; w2:=b┆
0x0d8a0…0d8c0 75 66 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 ┆ufref; w3:=return; ┆
0x0d8c0…0d8e0 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 21 20 6f 75 74 74 69 6d 65 20 21 0a 0c 0a ┆ end; end; ! outtime ! ┆
0x0d8e0…0d8fc 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ comment ┆
0x0d8fc…0d902 (0x450,0x1b3)
0x0d902…0d920 20 20 20 20 73 79 73 63 6f 6d 6d 61 6e 64 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 ┆ syscommand this procedure┆
0x0d920…0d940 20 63 68 65 63 6b 73 20 74 68 65 20 75 73 65 72 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 ┆ checks the user identification ┆
0x0d940…0d960 74 79 70 65 64 20 61 74 20 6c 6f 67 69 6e 2e 20 69 66 20 69 74 20 69 73 0a 6f 6b 2c 20 61 20 70 ┆typed at login. if it is ok, a p┆
0x0d960…0d97a 72 6f 63 65 73 73 20 69 73 20 63 72 65 61 74 65 64 20 77 69 74 68 20 73 74 61 ┆rocess is created with sta┆
0x0d97a…0d980 (0x450,0x1b4)
0x0d980…0d9a0 6e 64 61 72 64 20 62 73 20 63 6c 61 69 6d 73 20 61 6e 64 20 77 69 74 68 20 63 61 74 61 6c 6f 67 ┆ndard bs claims and with catalog┆
0x0d9a0…0d9c0 20 62 61 73 65 73 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 75 73 65 72 ┆ bases corresponding to the user┆
0x0d9c0…0d9e0 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 2e 0a 74 68 65 20 75 73 65 72 20 69 73 20 61 6e 73 ┆ identification. the user is ans┆
0x0d9e0…0da00 77 65 72 65 64 20 77 69 74 68 20 61 20 6d 65 73 73 61 67 65 20 74 65 6c 00 00 00 00 00 00 00 00 ┆wered with a message tel ┆
0x0da00…0da06 (109,) (0x450,0x1b5)
0x0da06…0da20 6c 69 6e 67 2c 20 77 68 65 61 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 65 20 ┆ling, wheather or not the ┆
0x0da20…0da40 61 74 74 65 6d 70 0a 74 6f 20 6c 6f 67 69 6e 20 77 61 73 20 73 75 63 63 65 73 66 75 6c 6c 2e 0a ┆attemp to login was succesfull. ┆
0x0da40…0da60 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 73 79 73 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 ┆ ; body of syscommand ┆
0x0da60…0da7e 62 65 67 69 6e 0a 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6c 6f 67 69 6e 28 2e 77 ┆begin procedure login(.w┆
0x0da7e…0da84 (0x450,0x1b6)
0x0da84…0daa0 33 2e 3b 77 30 3b 77 31 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 61 6c ┆3.;w0;w1); comment cal┆
0x0daa0…0dac0 6c 3a 20 20 20 20 77 30 20 20 6b 69 6e 64 20 6f 66 20 73 74 61 72 74 20 63 6f 6d 6d 61 6e 64 20 ┆l: w0 kind of start command ┆
0x0dac0…0dae0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 20 61 62 73 20 ┆ w1 abs ┆
0x0dae0…0dafc 72 65 66 20 73 74 72 69 6e 67 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ┆ref string1 re┆
0x0dafc…0db02 (0x450,0x1b7)
0x0db02…0db20 74 75 72 6e 3a 20 20 77 31 20 20 61 62 73 20 72 65 66 20 65 72 72 6f 72 20 6d 65 73 73 61 ┆turn: w1 abs ref error messa┆
0x0db20…0db40 67 65 20 6f 72 20 7a 65 72 6f 0a 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 70 72 6f 63 65 64 75 ┆ge or zero ; procedu┆
0x0db40…0db60 72 65 20 6f 75 74 28 2e 77 33 2e 3b 77 31 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 ┆re out(.w3.;w1); comment c┆
0x0db60…0db7a 61 6c 6c 3a 20 20 20 20 77 31 20 20 61 62 73 20 72 65 66 20 73 74 72 69 6e 67 ┆all: w1 abs ref string┆
0x0db7a…0db80 (0x450,0x1b8)
0x0db80…0dba0 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 20 77 31 20 20 61 62 73 ┆1 return: w1 abs┆
0x0dba0…0dbc0 20 72 65 66 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 6f 72 20 7a 65 72 6f 0a 20 20 20 20 20 ┆ ref error message or zero ┆
0x0dbc0…0dbe0 20 3b 0a 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 3b ┆ ; procedure control(.w3.;┆
0x0dbe0…0dc00 77 30 3b 77 31 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 61 00 00 00 00 00 00 00 00 ┆w0;w1); comment ca ┆
0x0dc00…0dc06 (110,) (0x450,0x1b9)
0x0dc06…0dc20 6c 6c 3a 20 20 20 20 77 30 20 20 63 6f 6e 74 72 6f 6c 20 6f 70 65 72 61 74 69 ┆ll: w0 control operati┆
0x0dc20…0dc40 6f 6e 20 28 31 2c 32 2c 33 2c 34 20 3d 20 6b 69 6c 6c 2c 62 72 65 61 6b 2c 73 74 6f 70 2c 73 74 ┆on (1,2,3,4 = kill,break,stop,st┆
0x0dc40…0dc60 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 20 ┆art) w1 ┆
0x0dc60…0dc7e 61 62 73 20 72 65 66 20 73 74 72 69 6e 67 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆abs ref string1 ┆
0x0dc7e…0dc84 (0x450,0x1ba)
0x0dc84…0dca0 72 65 74 75 72 6e 3a 20 20 77 31 20 20 61 62 73 20 72 65 66 20 65 72 72 6f 72 20 6d ┆return: w1 abs ref error m┆
0x0dca0…0dcc0 65 73 73 61 67 65 20 6f 72 20 7a 65 72 6f 0a 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 70 72 6f ┆essage or zero ; pro┆
0x0dcc0…0dce0 63 65 64 75 72 65 20 65 6d 70 74 79 28 2e 77 33 2e 3b 77 31 29 3b 0a 20 20 20 20 20 20 63 6f 6d ┆cedure empty(.w3.;w1); com┆
0x0dce0…0dcfc 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 20 77 31 20 20 61 62 73 20 72 65 66 20 75 73 ┆ment call: w1 abs ref us┆
0x0dcfc…0dd02 (0x450,0x1bb)
0x0dd02…0dd20 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 ┆erentry return: ┆
0x0dd20…0dd40 20 77 31 20 20 61 62 73 20 72 65 66 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 6f 72 20 7a 65 ┆ w1 abs ref error message or ze┆
0x0dd40…0dd60 72 6f 0a 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 69 6e 63 6c 75 ┆ro ; procedure inclu┆
0x0dd60…0dd7a 64 65 28 2e 77 33 2e 3b 77 31 29 3b 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆de(.w3.;w1); commen┆
0x0dd7a…0dd80 (0x450,0x1bc)
0x0dd80…0dda0 74 20 63 61 6c 6c 3a 20 20 20 20 77 31 20 20 61 62 73 20 72 65 66 20 73 74 72 69 6e 67 31 0a 20 ┆t call: w1 abs ref string1 ┆
0x0dda0…0ddc0 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 20 77 31 20 20 61 62 73 20 72 65 ┆ return: w1 abs re┆
0x0ddc0…0dde0 66 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 6f 72 20 7a 65 72 6f 0a 20 20 20 20 20 20 3b 0a ┆f error message or zero ; ┆
0x0dde0…0de00 20 20 20 20 20 0a 20 20 20 20 20 20 6c 61 62 65 6c 20 6e 65 77 73 74 72 00 00 00 00 00 00 00 00 ┆ label newstr ┆
0x0de00…0de06 (111,) (0x450,0x1bd)
0x0de06…0de20 69 6e 67 2c 61 66 74 65 72 6e 61 6d 65 2c 63 6f 6d 6d 66 6f 75 6e 64 2c 65 72 ┆ing,aftername,commfound,er┆
0x0de20…0de40 72 6f 72 2c 61 63 63 65 70 74 3b 0a 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 ┆ror,accept; incode ┆
0x0de40…0de60 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 ┆ double savef1,savef3; ┆
0x0de60…0de7e 77 6f 72 64 20 6c 6f 67 73 74 6f 70 2c 72 61 64 69 78 2c 6f 66 66 73 65 74 2c 63 68 61 72 ┆word logstop,radix,offset,char┆
0x0de7e…0de84 (0x450,0x1be)
0x0de84…0dea0 2c 73 61 76 65 77 31 2c 73 61 76 65 77 32 2c 73 61 76 65 77 33 2c 63 6f 75 6e 74 2c ┆,savew1,savew2,savew3,count,┆
0x0dea0…0dec0 63 6f 6d 6d 2c 70 72 6f 63 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 72 65 66 20 6e 61 6d 65 70 6f ┆comm,proc_no; ref namepo┆
0x0dec0…0dee0 69 6e 74 65 72 2c 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 65 6d 70 ┆inter,next; text(11) emp┆
0x0dee0…0defc 74 79 74 65 78 74 3a 3d 22 22 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 ┆tytext:=""; text(11)┆
0x0defc…0df02 (0x450,0x1bf)
0x0df02…0df20 20 73 74 72 69 6e 67 31 2c 20 73 74 72 69 6e 67 32 2c 20 73 74 72 69 6e 67 33 2c 0a 20 20 ┆ string1, string2, string3, ┆
0x0df20…0df40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 34 2c 20 73 74 72 69 6e 67 35 2c ┆ string4, string5,┆
0x0df40…0df60 20 73 74 72 69 6e 67 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e ┆ string6, strin┆
0x0df60…0df7a 67 37 2c 73 74 72 69 6e 67 38 2c 73 74 72 69 6e 67 39 3b 0a 20 20 20 20 20 20 ┆g7,string8,string9; ┆
0x0df7a…0df80 (0x450,0x1c0)
0x0df80…0dfa0 20 20 74 65 78 74 28 31 31 29 6f 73 63 6f 6d 6d 31 20 3a 3d 22 69 6e 22 2c 0a 20 20 20 20 20 20 ┆ text(11)oscomm1 :="in", ┆
0x0dfa0…0dfc0 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 32 20 3a 3d 22 6f 75 74 22 2c 0a 20 20 20 20 20 ┆ oscomm2 :="out", ┆
0x0dfc0…0dfe0 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 33 20 3a 3d 22 6b 69 6c 6c 22 2c 0a 20 20 20 ┆ oscomm3 :="kill", ┆
0x0dfe0…0e000 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 34 20 3a 3d 22 00 00 00 00 00 00 00 00 ┆ oscomm4 :=" ┆
0x0e000…0e006 (112,) (0x450,0x1c1)
0x0e006…0e020 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 35 ┆", oscomm5┆
0x0e020…0e040 20 3a 3d 22 72 75 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d ┆ :="run", oscomm┆
0x0e040…0e060 36 20 3a 3d 22 67 6f 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d ┆6 :="go", oscomm┆
0x0e060…0e07e 37 20 3a 3d 22 62 61 74 63 68 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆7 :="batch", o┆
0x0e07e…0e084 (0x450,0x1c2)
0x0e084…0e0a0 73 63 6f 6d 6d 38 20 3a 3d 22 62 72 65 61 6b 22 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆scomm8 :="break", ┆
0x0e0a0…0e0c0 20 20 20 20 20 20 6f 73 63 6f 6d 6d 39 20 3a 3d 22 73 74 6f 70 22 2c 0a 20 20 20 20 20 20 20 20 ┆ oscomm9 :="stop", ┆
0x0e0c0…0e0e0 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 31 30 3a 3d 22 73 74 61 72 74 22 2c 0a 20 20 20 20 20 ┆ oscomm10:="start", ┆
0x0e0e0…0e0fc 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 31 31 3a 3d 22 63 61 6c 6c 22 2c ┆ oscomm11:="call",┆
0x0e0fc…0e102 (0x450,0x1c3)
0x0e102…0e120 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 31 32 3a 3d 22 69 6e ┆ oscomm12:="in┆
0x0e120…0e140 63 6c 75 64 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 31 33 ┆clude", oscomm13┆
0x0e140…0e160 3a 3d 22 6c 6f 63 6b 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d ┆:="lock", oscomm┆
0x0e160…0e17a 31 34 3a 3d 22 6f 70 65 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆14:="open", ┆
0x0e17a…0e180 (0x450,0x1c4)
0x0e180…0e1a0 20 20 6f 73 63 6f 6d 6d 31 35 3a 3d 22 68 61 6c 74 22 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ oscomm15:="halt"; begin ┆
0x0e1a0…0e1c0 20 20 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 20 20 73 61 76 65 66 33 3a 3d 66 33 3b ┆ savef1:=f1; savef3:=f3;┆
0x0e1c0…0e1e0 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 ┆ testout(.w3.,w0:=!lengt┆
0x0e1e0…0e200 68 28 75 73 65 72 65 6e 74 72 79 29 2c 77 31 2c 77 32 3a 3d 36 38 29 3b 00 00 00 00 00 00 00 00 ┆h(userentry),w1,w2:=68); ┆
0x0e200…0e206 (113,) (0x450,0x1c5)
0x0e206…0e220 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d ┆ testout(.w3.,w0:=┆
0x0e220…0e240 20 28 77 31 29 2e 62 75 66 72 65 6c 20 2b 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 2c 77 31 ┆ (w1).bufrel + (w1).buflength,w1┆
0x0e240…0e260 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 21 20 ┆:=(w1).buffer,w2:=0); ! ┆
0x0e260…0e27e 72 65 61 64 20 73 74 72 69 6e 67 73 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a ┆read strings ! w0:=0; ┆
0x0e27e…0e284 (0x450,0x1c6)
0x0e284…0e2a0 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 ┆ w1:=address(emptytex┆
0x0e2a0…0e2c0 74 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 73 74 72 69 6e 67 31 29 ┆t); w2:=address(string1)┆
0x0e2c0…0e2e0 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 ┆; w3:=0; while w┆
0x0e2e0…0e2fc 33 2b 31 3c 3d 39 20 64 6f 20 20 20 20 20 21 20 7a 65 72 6f 73 65 74 20 73 74 72 69 ┆3+1<=9 do ! zeroset stri┆
0x0e2fc…0e302 (0x450,0x1c7)
0x0e302…0e320 6e 67 31 20 2d 20 73 74 72 69 6e 67 39 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ng1 - string9 ! begin ┆
0x0e320…0e340 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 33 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ savew3:=w3; ┆
0x0e340…0e360 63 6f 70 79 28 2e 77 33 2e 2c 20 77 30 3a 3d 38 2c 20 77 31 2c 20 77 32 29 3b 0a 20 20 20 20 20 ┆copy(.w3., w0:=8, w1, w2); ┆
0x0e360…0e37a 20 20 20 20 20 77 33 3a 3d 73 61 76 65 77 33 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:=savew3; ┆
0x0e37a…0e380 (0x450,0x1c8)
0x0e380…0e3a0 20 77 32 2b 38 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 63 6f 6d ┆ w2+8; end; com┆
0x0e3a0…0e3c0 6d 65 6e 74 20 20 20 20 74 72 61 6e 73 66 65 72 20 63 6f 6d 6d 61 6e 64 73 20 66 72 6f 6d 20 74 ┆ment transfer commands from t┆
0x0e3c0…0e3e0 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 20 74 6f 20 74 68 65 20 74 65 78 74 0a 20 20 20 20 20 ┆erminal buffer to the text ┆
0x0e3e0…0e400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 73 20 00 00 00 00 00 00 00 00 ┆ variables ┆
0x0e400…0e406 (114,) (0x450,0x1c9)
0x0e406…0e420 73 74 72 69 6e 67 31 20 2d 20 73 74 72 69 6e 67 20 38 0a 20 20 20 20 20 20 20 ┆string1 - string 8 ┆
0x0e420…0e440 20 3b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 74 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 ┆ ; count:=w0:=1; ┆
0x0e440…0e460 20 6e 61 6d 65 70 6f 69 6e 74 65 72 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 73 74 72 69 6e 67 ┆ namepointer:=w0:=address(string┆
0x0e460…0e47e 31 29 3b 0a 20 20 20 20 20 20 20 20 6e 65 78 74 3a 3d 77 30 3a 3d 6e 61 6d 65 70 6f 69 6e ┆1); next:=w0:=namepoin┆
0x0e47e…0e484 (0x450,0x1ca)
0x0e484…0e4a0 74 65 72 2b 38 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 75 73 65 72 65 6e 74 ┆ter+8; w3:=b.userent┆
0x0e4a0…0e4c0 72 79 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 ┆ry; w2:=(w3).buffer; ┆
0x0e4c0…0e4e0 20 20 20 20 20 63 6f 6d 6d 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 73 74 61 74 65 3b 0a 20 20 20 ┆ comm:= w0:= (w3).state; ┆
0x0e4e0…0e4fc 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 6c 6f 67 73 74 6f 70 3a ┆ w1:=0; logstop:┆
0x0e4fc…0e502 (0x450,0x1cb)
0x0e502…0e520 3d 77 30 3a 3d 20 28 77 33 29 2e 62 75 66 72 65 6c 20 2b 20 28 77 33 29 2e 62 75 66 6c 65 ┆=w0:= (w3).bufrel + (w3).bufle┆
0x0e520…0e540 6e 67 74 68 2b 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 62 75 66 72 65 6c 3a 3d 20 77 ┆ngth+w2; (w3).bufrel:= w┆
0x0e540…0e560 31 3b 0a 6e 65 77 73 74 72 69 6e 67 3a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 33 32 3b 0a 20 20 ┆1; newstring: w0:=32; ┆
0x0e560…0e57a 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3d 33 32 20 64 6f 20 6e 65 78 74 63 ┆ while w0=32 do nextc┆
0x0e57a…0e580 (0x450,0x1cc)
0x0e580…0e5a0 68 61 72 28 2e 77 33 2e 2c 77 33 3a 3d 6c 6f 67 73 74 6f 70 2c 77 30 2c 77 31 2c 77 32 29 3b 0a ┆har(.w3.,w3:=logstop,w0,w1,w2); ┆
0x0e5a0…0e5c0 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 61 66 74 ┆ if w0 = 10 then goto aft┆
0x0e5c0…0e5e0 65 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 36 32 20 74 68 65 6e 20 ┆ername; if w0 = 62 then ┆
0x0e5e0…0e600 20 20 20 20 20 20 21 20 27 3e 27 20 69 73 20 73 74 61 72 74 20 6f 66 20 00 00 00 00 00 00 00 00 ┆ ! '>' is start of ┆
0x0e600…0e606 (115,) (0x450,0x1cd)
0x0e606…0e620 70 61 73 73 77 6f 72 64 20 6c 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 62 65 ┆password line ! be┆
0x0e620…0e640 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 ┆gin comm:= w0:= 0; ┆
0x0e640…0e660 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 77 73 74 72 69 6e 67 3b 0a 20 20 20 20 20 20 20 20 65 ┆ goto newstring; e┆
0x0e660…0e67e 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 39 37 20 74 68 65 6e 0a 20 20 ┆nd; if w0 < 97 then ┆
0x0e67e…0e684 (0x450,0x1ce)
0x0e684…0e6a0 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 69 6e 74 65 67 65 72 20 70 61 72 61 6d ┆ begin ! integer param┆
0x0e6a0…0e6c0 20 21 0a 20 20 20 20 20 20 20 20 20 20 6f 66 66 73 65 74 3a 3d 77 33 3a 3d 34 38 3b 0a 20 20 20 ┆ ! offset:=w3:=48; ┆
0x0e6c0…0e6e0 20 20 20 20 20 20 20 72 61 64 69 78 3a 3d 77 33 3a 3d 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ radix:=w3:=10; ┆
0x0e6e0…0e6fc 77 6f 72 64 28 6e 61 6d 65 70 6f 69 6e 74 65 72 29 3a 3d 77 33 3a 3d 2d 31 3b 0a 20 ┆word(namepointer):=w3:=-1; ┆
0x0e6fc…0e702 (0x450,0x1cf)
0x0e702…0e720 20 20 20 20 20 20 20 20 20 6e 61 6d 65 70 6f 69 6e 74 65 72 3a 3d 77 33 3a 3d 6e 61 6d 65 ┆ namepointer:=w3:=name┆
0x0e720…0e740 70 6f 69 6e 74 65 72 2b 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 ┆pointer+2; end else ┆
0x0e740…0e760 20 20 20 20 62 65 67 69 6e 20 20 21 20 6e 61 6d 65 20 70 61 72 61 6d 20 21 0a 20 20 20 20 20 20 ┆ begin ! name param ! ┆
0x0e760…0e77a 20 20 20 20 6f 66 66 73 65 74 3a 3d 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ offset:=w3:=0; ┆
0x0e77a…0e780 (0x450,0x1d0)
0x0e780…0e7a0 20 20 20 72 61 64 69 78 3a 3d 77 33 3a 3d 32 35 36 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ radix:=w3:=256; end; ┆
0x0e7a0…0e7c0 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 33 32 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆ while w0<>32 do ┆
0x0e7c0…0e7e0 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6e 65 78 74 3d 6e 61 6d 65 ┆begin if w3:=next=name┆
0x0e7e0…0e800 70 6f 69 6e 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 67 00 00 00 00 00 00 00 00 ┆pointer then g ┆
0x0e800…0e806 (116,) (0x450,0x1d1)
0x0e806…0e820 6f 74 6f 20 61 66 74 65 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆oto aftername; i┆
0x0e820…0e840 66 20 77 30 3d 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 61 66 74 65 72 6e 61 6d 65 3b 0a 20 20 20 ┆f w0=10 then goto aftername; ┆
0x0e840…0e860 20 20 20 20 20 20 20 63 68 61 72 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆ char:=w0; if w0┆
0x0e860…0e87e 3a 3d 6f 66 66 73 65 74 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆:=offset = 0 then be┆
0x0e87e…0e884 (0x450,0x1d2)
0x0e884…0e8a0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 63 68 61 72 20 ┆gin if w0:=char ┆
0x0e8a0…0e8c0 3e 3d 20 39 37 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 31 ┆>= 97 then if w0 < 1┆
0x0e8c0…0e8e0 32 36 20 74 68 65 6e 20 67 6f 74 6f 20 61 63 63 65 70 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆26 then goto accept; e┆
0x0e8e0…0e8fc 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 63 68 61 72 20 3e 3d ┆nd; if w0:=char >=┆
0x0e8fc…0e902 (0x450,0x1d3)
0x0e902…0e920 20 34 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 35 38 20 ┆ 48 then if w0 < 58 ┆
0x0e920…0e940 74 68 65 6e 20 67 6f 74 6f 20 61 63 63 65 70 74 3b 0a 21 74 65 73 74 20 31 3b 0a 20 20 20 20 20 ┆then goto accept; !test 1; ┆
0x0e940…0e960 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 ┆ outtext(.w3.,w0:=8'31,w1:=b┆
0x0e960…0e97a 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 ┆.userentry,w2:=2); ! synt┆
0x0e97a…0e980 (0x450,0x1d4)
0x0e980…0e9a0 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 61 63 63 65 70 ┆ax ! goto error; accep┆
0x0e9a0…0e9c0 74 3a 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 77 6f 72 64 28 6e 61 6d 65 70 6f 69 6e 74 65 ┆t: w0:=word(namepointe┆
0x0e9c0…0e9e0 72 29 2a 72 61 64 69 78 3b 20 20 20 20 20 21 20 70 61 63 6b 20 74 65 78 74 20 6f 72 20 6e 75 6d ┆r)*radix; ! pack text or num┆
0x0e9e0…0ea00 62 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 28 6e 61 6d 00 00 00 00 00 00 00 00 ┆ber ! word(nam ┆
0x0ea00…0ea06 (117,) (0x450,0x1d5)
0x0ea06…0ea20 65 70 6f 69 6e 74 65 72 29 3a 3d 77 30 2b 63 68 61 72 2d 6f 66 66 73 65 74 3b ┆epointer):=w0+char-offset;┆
0x0ea20…0ea40 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 36 35 35 33 35 20 74 68 65 6e 20 6e 61 6d 65 ┆ if w0>65535 then name┆
0x0ea40…0ea60 70 6f 69 6e 74 65 72 3a 3d 77 33 3a 3d 6e 61 6d 65 70 6f 69 6e 74 65 72 2b 32 3b 0a 20 20 20 20 ┆pointer:=w3:=namepointer+2; ┆
0x0ea60…0ea7e 20 20 20 20 20 20 6e 65 78 74 63 68 61 72 28 2e 77 33 2e 2c 77 33 3a 3d 6c 6f 67 73 74 6f ┆ nextchar(.w3.,w3:=logsto┆
0x0ea7e…0ea84 (0x450,0x1d6)
0x0ea84…0eaa0 70 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 61 66 ┆p,w0,w1,w2); end; af┆
0x0eaa0…0eac0 74 65 72 6e 61 6d 65 3a 0a 20 20 20 20 20 20 20 20 21 20 6d 6f 72 65 20 74 68 61 6e 20 31 31 20 ┆tername: ! more than 11 ┆
0x0eac0…0eae0 63 68 61 72 73 20 6f 72 20 77 30 3d 33 32 20 6f 72 20 77 30 3d 31 30 20 21 0a 20 20 20 20 20 20 ┆chars or w0=32 or w0=10 ! ┆
0x0eae0…0eafc 20 20 69 66 20 77 33 3a 3d 6e 65 78 74 3d 6e 61 6d 65 70 6f 69 6e 74 65 72 20 74 68 ┆ if w3:=next=namepointer th┆
0x0eafc…0eb02 (0x450,0x1d7)
0x0eb02…0eb20 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 32 3b 0a 20 20 20 20 ┆en begin !test 2; ┆
0x0eb20…0eb40 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d ┆ outtext(.w3.,w0:=8'31,w1:=┆
0x0eb40…0eb60 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a ┆b.userentry,w2:=2); ! syntax ! ┆
0x0eb60…0eb7a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 ┆ goto error; ┆
0x0eb7a…0eb80 (0x450,0x1d8)
0x0eb80…0eba0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 33 32 20 74 68 65 6e 0a 20 ┆ end; if w0=32 then ┆
0x0eba0…0ebc0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 3a 3d 77 33 ┆ begin count:=w3┆
0x0ebc0…0ebe0 3a 3d 63 6f 75 6e 74 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3e 38 20 74 68 65 ┆:=count+1; if w3>8 the┆
0x0ebe0…0ec00 6e 20 20 20 20 20 21 20 6d 61 78 20 38 20 70 61 72 61 6d 73 20 69 6e 20 00 00 00 00 00 00 00 00 ┆n ! max 8 params in ┆
0x0ec00…0ec06 (118,) (0x450,0x1d9)
0x0ec06…0ec20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 ┆command line ! b┆
0x0ec20…0ec40 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3d 33 32 20 64 6f 20 ┆egin while w0=32 do ┆
0x0ec40…0ec60 6e 65 78 74 63 68 61 72 28 2e 77 33 2e 2c 77 33 3a 3d 6c 6f 67 73 74 6f 70 2c 77 30 2c 77 31 2c ┆nextchar(.w3.,w3:=logstop,w0,w1,┆
0x0ec60…0ec7e 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 30 20 74 68 65 ┆w2); if w0<>10 the┆
0x0ec7e…0ec84 (0x450,0x1da)
0x0ec84…0eca0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 3b ┆n begin !test 3;┆
0x0eca0…0ecc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d ┆ outtext(.w3.,w0:=┆
0x0ecc0…0ece0 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 ┆8'31,w1:=b.userentry,w2:=2); ! ┆
0x0ece0…0ecfc 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆syntax ! goto ┆
0x0ecfc…0ed02 (0x450,0x1db)
0x0ed02…0ed20 65 72 72 6f 72 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 ┆error; end; ┆
0x0ed20…0ed40 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 20 20 69 66 ┆ end; end; if┆
0x0ed40…0ed60 20 77 33 3a 3d 6f 66 66 73 65 74 20 3d 20 30 20 74 68 65 6e 20 20 20 21 20 66 69 6c 6c 20 74 65 ┆ w3:=offset = 0 then ! fill te┆
0x0ed60…0ed7a 78 74 70 61 72 61 6d 20 77 69 74 68 20 6e 75 6c 6c 2d 63 68 61 72 73 20 21 0a ┆xtparam with null-chars ! ┆
0x0ed7a…0ed80 (0x450,0x1dc)
0x0ed80…0eda0 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6e 65 78 74 3e 6e 61 6d 65 70 6f 69 6e 74 65 72 20 ┆ if w3:=next>namepointer ┆
0x0eda0…0edc0 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 20 20 20 77 33 3a ┆then begin w3:┆
0x0edc0…0ede0 3d 77 6f 72 64 28 6e 61 6d 65 70 6f 69 6e 74 65 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆=word(namepointer); if┆
0x0ede0…0ee00 20 77 33 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 77 68 00 00 00 00 00 00 00 00 ┆ w3<>0 then wh ┆
0x0ee00…0ee06 (119,) (0x450,0x1dd)
0x0ee06…0ee20 69 6c 65 20 77 33 3c 36 35 35 33 35 20 64 6f 20 77 33 20 6c 73 68 69 66 74 20 ┆ile w3<65535 do w3 lshift ┆
0x0ee20…0ee40 38 3b 0a 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 28 6e 61 6d 65 70 6f 69 6e 74 65 72 29 3a 3d ┆8; word(namepointer):=┆
0x0ee40…0ee60 77 33 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 6e 61 6d 65 70 6f 69 ┆w3; end; namepoi┆
0x0ee60…0ee7e 6e 74 65 72 3a 3d 77 33 3a 3d 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 6e 65 78 74 3a 3d ┆nter:=w3:=next; next:=┆
0x0ee7e…0ee84 (0x450,0x1de)
0x0ee84…0eea0 77 33 3a 3d 6e 65 78 74 2b 38 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 33 32 ┆w3:=next+8; if w0=32┆
0x0eea0…0eec0 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 77 73 74 72 69 6e 67 3b 0a 20 20 20 20 20 20 20 20 69 66 ┆ then goto newstring; if┆
0x0eec0…0eee0 20 77 30 3a 3d 20 63 6f 6d 6d 20 3d 20 2d 33 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 77 73 74 72 ┆ w0:= comm = -3 then goto newstr┆
0x0eee0…0eefc 69 6e 67 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 66 69 72 73 74 ┆ing; ! first┆
0x0eefc…0ef02 (0x450,0x1df)
0x0ef02…0ef20 20 6e 65 77 6c 69 6e 65 20 62 6c 69 6e 64 2c 20 77 68 65 6e 20 72 65 61 64 69 6e 67 20 69 ┆ newline blind, when reading i┆
0x0ef20…0ef40 6e 76 69 73 69 62 6c 65 20 70 61 73 73 77 6f 72 64 20 21 0a 0a 20 20 20 20 20 20 20 63 6f 6d 6d ┆nvisible password ! comm┆
0x0ef40…0ef60 65 6e 74 20 20 20 20 6e 6f 77 20 61 6c 6c 20 70 61 72 61 6d 65 74 65 72 73 20 68 61 76 65 20 62 ┆ent now all parameters have b┆
0x0ef60…0ef7a 65 65 6e 20 72 65 61 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 ┆een read; w1:=add┆
0x0ef7a…0ef80 (0x450,0x1e0)
0x0ef80…0efa0 72 65 73 73 28 6f 73 63 6f 6d 6d 31 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 ┆ress(oscomm1); w2:=addre┆
0x0efa0…0efc0 73 73 28 73 74 72 69 6e 67 31 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 3a 3d 77 33 3a 3d 31 ┆ss(string1); comm:=w3:=1┆
0x0efc0…0efe0 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 33 3a 3d 63 6f 6d 6d 3c 31 36 20 64 6f 0a 20 ┆; while w3:=comm<16 do ┆
0x0efe0…0f000 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 63 00 00 00 00 00 00 00 00 ┆ begin c ┆
0x0f000…0f006 (120,) (0x450,0x1e1)
0x0f006…0f020 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 2c 77 32 29 3b 0a ┆ompare(.w3.,w0:=4,w1,w2); ┆
0x0f020…0f040 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 63 6f 6d 6d ┆ if w0=0 then goto comm┆
0x0f040…0f060 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 ┆found; w1+8; ┆
0x0f060…0f07e 20 63 6f 6d 6d 3a 3d 77 33 3a 3d 63 6f 6d 6d 2b 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ comm:=w3:=comm+1; end┆
0x0f07e…0f084 (0x450,0x1e2)
0x0f084…0f0a0 3b 0a 21 74 65 73 74 20 34 3b 0a 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e ┆; !test 4; outtext(.┆
0x0f0a0…0f0c0 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a ┆w3.,w0:=8'31,w1:=b.userentry,w2:┆
0x0f0c0…0f0e0 3d 30 29 3b 20 20 21 20 77 68 61 74 20 21 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f ┆=0); ! what ! goto erro┆
0x0f0e0…0f0fc 72 3b 0a 63 6f 6d 6d 66 6f 75 6e 64 3a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 ┆r; commfound: w1:=ad┆
0x0f0fc…0f102 (0x450,0x1e3)
0x0f102…0f120 64 72 65 73 73 28 73 74 72 69 6e 67 31 29 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 ┆dress(string1); case w┆
0x0f120…0f140 33 3a 3d 63 6f 6d 6d 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆3:=comm of begin ┆
0x0f140…0f160 20 20 20 6c 6f 67 69 6e 28 2e 77 33 2e 2c 77 30 3a 3d 33 2c 77 31 29 3b 20 20 20 20 20 21 20 69 ┆ login(.w3.,w0:=3,w1); ! i┆
0x0f160…0f17a 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 70 6f 6f 6c 29 20 21 0a 20 ┆n (connection to pool) ! ┆
0x0f17a…0f180 (0x450,0x1e4)
0x0f180…0f1a0 20 20 20 20 20 20 20 20 20 6f 75 74 28 2e 77 33 2e 2c 77 31 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ out(.w3.,w1); ┆
0x0f1a0…0f1c0 20 20 20 21 20 6f 75 74 20 28 64 69 73 63 6f 6e 6e 65 63 74 29 20 20 20 20 20 20 20 20 21 0a 20 ┆ ! out (disconnect) ! ┆
0x0f1c0…0f1e0 20 20 20 20 20 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 3b ┆ control(.w3.,w0:=1,w1);┆
0x0f1e0…0f200 20 20 20 21 20 6b 69 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! kill ┆
0x0f200…0f206 (121,) (0x450,0x1e5)
0x0f206…0f220 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6d 70 74 79 28 2e 77 33 ┆ ! empty(.w3┆
0x0f220…0f240 2e 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 6f ┆.,w1:=b.userentry); lo┆
0x0f240…0f260 67 69 6e 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 29 3b 20 20 20 20 20 21 20 72 75 6e 20 28 63 ┆gin(.w3.,w0:=2,w1); ! run (c┆
0x0f260…0f27e 6f 6e 6e 65 63 74 69 6f 6e 20 76 69 61 20 74 65 6d 29 21 0a 20 20 20 20 20 20 20 20 20 20 ┆onnection via tem)! ┆
0x0f27e…0f284 (0x450,0x1e6)
0x0f284…0f2a0 6c 6f 67 69 6e 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 20 20 20 20 20 21 20 ┆login(.w3.,w0:=0,w1); ! ┆
0x0f2a0…0f2c0 67 6f 20 20 20 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 ┆go ! ┆
0x0f2c0…0f2e0 20 20 20 20 6c 6f 67 69 6e 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 3b 20 20 20 20 20 21 20 ┆ login(.w3.,w0:=1,w1); ! ┆
0x0f2e0…0f2fc 62 61 74 63 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆batch ! ┆
0x0f2fc…0f302 (0x450,0x1e7)
0x0f302…0f320 20 20 20 20 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 29 ┆ control(.w3.,w0:=2,w1)┆
0x0f320…0f340 3b 20 20 20 21 20 62 72 65 61 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a ┆; ! break ! ┆
0x0f340…0f360 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 33 2c 77 31 29 ┆ control(.w3.,w0:=3,w1)┆
0x0f360…0f37a 3b 20 20 20 21 20 73 74 6f 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ! stop ┆
0x0f37a…0f380 (0x450,0x1e8)
0x0f380…0f3a0 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a ┆ ! control(.w3.,w0:┆
0x0f3a0…0f3c0 3d 34 2c 77 31 29 3b 20 20 20 21 20 73 74 61 72 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=4,w1); ! start ┆
0x0f3c0…0f3e0 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 64 65 76 28 2e 77 33 2e 2c 77 31 29 ┆ ! calldev(.w3.,w1)┆
0x0f3e0…0f400 3b 20 20 20 20 20 20 20 20 20 21 20 63 61 6c 6c 20 28 6e 61 6d 65 20 64 00 00 00 00 00 00 00 00 ┆; ! call (name d ┆
0x0f400…0f406 (122,) (0x450,0x1e9)
0x0f406…0f420 65 76 69 63 65 29 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 6e ┆evice) ! in┆
0x0f420…0f440 63 6c 75 64 65 28 2e 77 33 2e 2c 77 31 29 3b 20 20 20 20 20 20 20 20 20 21 20 69 6e 63 6c 75 64 ┆clude(.w3.,w1); ! includ┆
0x0f440…0f460 65 20 75 73 65 72 73 28 64 65 76 69 63 65 29 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 63 6f ┆e users(device) ! co┆
0x0f460…0f47e 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 31 2c 77 31 29 3b 20 20 21 20 6c 6f 63 6b ┆ntrol(.w3.,w0:=-1,w1); ! lock┆
0x0f47e…0f484 (0x450,0x1ea)
0x0f484…0f4a0 20 20 20 20 28 62 6c 6f 63 6b 20 6c 6f 67 69 6e 73 29 20 20 21 0a 20 20 20 20 20 20 ┆ (block logins) ! ┆
0x0f4a0…0f4c0 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 32 2c 77 31 29 3b 20 20 21 20 ┆ control(.w3.,w0:=-2,w1); ! ┆
0x0f4c0…0f4e0 6f 70 65 6e 20 28 61 63 63 65 70 74 20 6c 6f 67 69 6e 29 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆open (accept login) ! ┆
0x0f4e0…0f4fc 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 2c 77 31 29 3b ┆ control(.w3.,w0:=-3,w1);┆
0x0f4fc…0f502 (0x450,0x1eb)
0x0f502…0f520 20 20 21 20 68 61 6c 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a ┆ ! halt ! ┆
0x0f520…0f540 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 ┆ end; if w1 <> 0 ┆
0x0f540…0f560 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 65 72 72 6f 72 3a 0a 20 20 20 20 20 20 ┆then begin error: ┆
0x0f560…0f57a 20 20 20 20 69 66 20 77 31 20 3d 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w1 = -1 then ┆
0x0f57a…0f580 (0x450,0x1ec)
0x0f580…0f5a0 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin !test 5; i┆
0x0f5a0…0f5c0 66 20 77 30 3a 3d 20 28 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 2e 6d 65 73 73 73 65 6e ┆f w0:= (w1:=b.userentry).messsen┆
0x0f5c0…0f5e0 64 20 3c 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 ┆d < 10 then outtext(┆
0x0f5e0…0f600 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 30 2c 77 31 2c 77 32 3a 3d 31 29 3b 00 00 00 00 00 00 00 00 ┆.w3.,w0:=8'30,w1,w2:=1); ┆
0x0f600…0f606 (123,) (0x450,0x1ed)
0x0f606…0f620 20 20 21 20 72 65 61 64 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ ! ready ! if┆
0x0f620…0f640 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 20 3d 20 2d 31 20 74 68 65 6e 20 28 77 31 29 2e 73 ┆ w0:=(w1).state = -1 then (w1).s┆
0x0f640…0f660 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆tate:=w0:=0; end; ┆
0x0f660…0f67e 20 20 20 20 20 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 ┆ w1:=b.userentry; ┆
0x0f67e…0f684 (0x450,0x1ee)
0x0f684…0f6a0 20 20 20 28 77 31 29 2e 62 75 66 72 65 6c 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 ┆ (w1).bufrel:= w0:= 0; ┆
0x0f6a0…0f6c0 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 20 3d 20 2d 31 20 74 68 ┆ if w0:=(w1).state = -1 th┆
0x0f6c0…0f6e0 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 6c ┆en begin l┆
0x0f6e0…0f6fc 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 ┆ink(.w3.,w1,w2:=address(b.wa┆
0x0f6fc…0f702 (0x450,0x1ef)
0x0f702…0f720 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 ┆itqfst)); (w1).sta┆
0x0f720…0f740 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 ┆te:=w0:=0; end else ┆
0x0f740…0f760 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w0 < -1 then ┆
0x0f760…0f77a 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b ┆ begin w0:=0;┆
0x0f77a…0f780 (0x450,0x1f0)
0x0f780…0f7a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 30 3b 0a ┆ (w1).messsend:=w0; ┆
0x0f7a0…0f7c0 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 30 3b ┆ (w1).peripheral:=w0;┆
0x0f7c0…0f7e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 30 3b 0a ┆ (w1).internal:=w0; ┆
0x0f7e0…0f800 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 00 00 00 00 00 00 00 00 ┆ link(.w3.,w1 ┆
0x0f800…0f806 (124,) (0x450,0x1f1)
0x0f806…0f820 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b ┆,w2:=address(b.waitqfst));┆
0x0f820…0f840 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆ end else ; en┆
0x0f840…0f860 64 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e ┆d; w0:=1; w1:=b.┆
0x0f860…0f87e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 ┆userentry; (w1).messse┆
0x0f87e…0f884 (0x450,0x1f2)
0x0f884…0f8a0 6e 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆nd:=w0; w3:=address(┆
0x0f8a0…0f8c0 65 6d 70 74 79 74 65 78 74 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 62 2e 73 74 61 72 74 62 ┆emptytext); f1:=b.startb┆
0x0f8c0…0f8e0 61 73 65 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 20 21 20 73 65 74 ┆ase; monitor(72); ! set┆
0x0f8e0…0f8fc 20 73 6f 73 20 6f 77 6e 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 ┆ sos own catalog base ! ┆
0x0f8fc…0f902 (0x450,0x1f3)
0x0f902…0f920 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 ┆ f1:=savef1; f3:=sa┆
0x0f920…0f940 76 65 66 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 73 79 73 63 6f 6d 6d 61 ┆vef3; end; ! syscomma┆
0x0f940…0f960 6e 64 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 6c 6f 67 69 6e ┆nd ! body of login┆
0x0f960…0f97a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 70 ┆ begin p┆
0x0f97a…0f980 (0x450,0x1f4)
0x0f980…0f9a0 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 70 72 6f 74 28 2e 77 33 2e 3b 77 31 3b 77 32 29 3b 0a ┆rocedure checkprot(.w3.;w1;w2); ┆
0x0f9a0…0f9c0 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 20 20 20 77 31 20 ┆ comment call: w1 ┆
0x0f9c0…0f9e0 20 61 62 73 20 72 65 66 20 22 70 61 73 73 22 2d 70 61 72 61 6d 65 74 65 72 0a 20 20 20 20 20 20 ┆ abs ref "pass"-parameter ┆
0x0f9e0…0fa00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆ w ┆
0x0fa00…0fa06 (125,) (0x450,0x1f5)
0x0fa06…0fa20 32 20 20 61 62 73 20 72 65 66 20 70 61 73 73 77 6f 72 64 20 66 72 6f 6d 20 63 ┆2 abs ref password from c┆
0x0fa20…0fa40 61 74 61 6c 6f 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a ┆atalog return:┆
0x0fa40…0fa60 20 20 20 20 77 31 20 20 61 62 73 20 72 65 66 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 6f 72 ┆ w1 abs ref error message or┆
0x0fa60…0fa7e 20 7a 65 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ zero ┆
0x0fa7e…0fa84 (0x450,0x1f6)
0x0fa84…0faa0 20 20 20 20 20 77 32 20 20 62 6f 6f 6c 65 61 6e 20 72 65 77 72 69 74 65 20 63 61 74 ┆ w2 boolean rewrite cat┆
0x0faa0…0fac0 61 6c 6f 67 20 73 65 67 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 ┆alog segment ; ┆
0x0fac0…0fae0 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 64 65 76 69 63 65 28 2e 77 33 2e 3b 77 30 ┆ procedure checkdevice(.w3.;w0┆
0x0fae0…0fafc 3b 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c ┆;w1); comment call┆
0x0fafc…0fb02 (0x450,0x1f7)
0x0fb02…0fb20 3a 20 20 20 20 20 20 77 31 20 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 ┆: w1 abs ref userentry ┆
0x0fb20…0fb40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 20 20 20 77 30 20 20 ┆ return: w0 ┆
0x0fb40…0fb60 6d 6f 64 65 20 66 6f 72 20 72 65 61 64 69 6e 67 20 6f 66 20 70 61 73 73 77 6f 72 64 3a 0a 20 20 ┆mode for reading of password: ┆
0x0fb60…0fb7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fb7a…0fb80 (0x450,0x1f8)
0x0fb80…0fba0 20 20 20 20 20 20 20 30 3a 20 63 6f 6e 73 6f 6c 65 20 28 64 65 76 69 63 65 6e 6f 3d 32 29 0a 20 ┆ 0: console (deviceno=2) ┆
0x0fba0…0fbc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fbc0…0fbe0 20 20 32 3a 20 6f 74 68 65 72 20 74 65 72 6d 69 6e 61 6c 20 28 64 65 76 3c 3e 32 29 0a 20 20 20 ┆ 2: other terminal (dev<>2) ┆
0x0fbe0…0fc00 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 ┆ ┆
0x0fc00…0fc06 (126,) (0x450,0x1f9)
0x0fc06…0fc20 20 20 6f 74 68 65 72 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 ┆ other registers unchange┆
0x0fc20…0fc40 64 0a 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 61 62 65 6c 20 65 72 ┆d ; label er┆
0x0fc40…0fc60 72 6f 72 2c 65 72 72 6f 72 31 2c 65 72 72 6f 72 32 2c 65 72 72 6f 72 32 5f 31 2c 65 72 72 6f 72 ┆ror,error1,error2,error2_1,error┆
0x0fc60…0fc7e 33 2c 65 72 72 6f 72 34 2c 66 72 65 65 66 6f 75 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆3,error4,freefound, ┆
0x0fc7e…0fc84 (0x450,0x1fa)
0x0fc84…0fca0 20 20 20 20 20 20 72 65 6c 65 61 73 65 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 69 6e ┆ release; in┆
0x0fca0…0fcc0 63 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 ┆code ! process descr┆
0x0fcc0…0fce0 69 70 74 69 6f 6e 20 66 6f 72 20 63 72 65 61 74 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 ┆iption for create internal proce┆
0x0fce0…0fcfc 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 63 6f 72 65 ┆ss ! double core┆
0x0fcfc…0fd02 (0x450,0x1fb)
0x0fd02…0fd20 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 62 75 66 66 65 ┆limits; byte buffe┆
0x0fd20…0fd40 72 73 2c 61 72 65 61 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 ┆rs,areas, inter┆
0x0fd40…0fd60 6e 61 6c 73 3a 3d 30 2c 66 6e 63 6d 61 73 6b 3a 3d 31 37 39 32 2c 20 20 20 21 20 2e 31 31 31 2e ┆nals:=0,fncmask:=1792, ! .111.┆
0x0fd60…0fd7a 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆....... ! ┆
0x0fd7a…0fd80 (0x450,0x1fc)
0x0fd80…0fda0 20 70 72 6f 74 72 65 67 2c 70 72 6f 74 6b 65 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f ┆ protreg,protkey; do┆
0x0fda0…0fdc0 75 62 6c 65 20 6d 61 78 62 61 73 65 2c 73 74 64 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆uble maxbase,stdbase; ┆
0x0fdc0…0fde0 20 20 64 6f 75 62 6c 65 20 63 6c 61 69 6d 30 2c 63 6c 61 69 6d 31 2c 63 6c 61 69 6d 32 2c 63 6c ┆ double claim0,claim1,claim2,cl┆
0x0fde0…0fe00 61 69 6d 33 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 00 00 00 00 00 00 00 00 ┆aim3; byte ┆
0x0fe00…0fe06 (127,) (0x450,0x1fd)
0x0fe06…0fe20 20 6c 6f 67 6f 70 3a 3d 35 2c 6c 6f 67 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 ┆ logop:=5,logmode:=0; ┆
0x0fe20…0fe40 20 20 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 ┆ ref first,last; ┆
0x0fe40…0fe60 20 20 20 20 77 6f 72 64 20 73 65 67 6d 2c 7a 65 72 6f 3a 3d 30 2c 72 65 77 72 69 74 65 3b 0a 20 ┆ word segm,zero:=0,rewrite; ┆
0x0fe60…0fe7e 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 73 61 76 65 77 31 2c ┆ word savew0,savew1,┆
0x0fe7e…0fe84 (0x450,0x1fe)
0x0fe84…0fea0 73 61 76 65 77 32 2c 73 61 76 65 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 ┆savew2,savew3; r┆
0x0fea0…0fec0 65 66 20 6a 6f 62 66 69 6c 65 3a 3d 30 2c 70 72 6f 63 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 ┆ef jobfile:=0,procentry; ┆
0x0fec0…0fee0 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ double savef3; ┆
0x0fee0…0fefc 74 65 78 74 28 31 31 29 20 65 6d 70 74 79 74 65 78 74 3a 3d 22 22 2c 6a 6f 62 66 3a ┆text(11) emptytext:="",jobf:┆
0x0fefc…0ff02 (0x450,0x1ff)
0x0ff02…0ff20 3d 22 6a 6f 62 66 69 6c 65 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 73 74 ┆="jobfile"; ref st┆
0x0ff20…0ff40 72 69 6e 67 31 2c 73 74 72 69 6e 67 32 2c 73 74 72 69 6e 67 33 2c 73 74 72 69 6e 67 34 2c 73 74 ┆ring1,string2,string3,string4,st┆
0x0ff40…0ff60 72 69 6e 67 35 2c 73 74 72 69 6e 67 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆ring5,string6, s┆
0x0ff60…0ff7a 74 72 69 6e 67 37 2c 73 74 72 69 6e 67 38 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆tring7,string8; ┆
0x0ff7a…0ff80 (0x450,0x200)
0x0ff80…0ffa0 20 20 61 72 72 61 79 28 31 3a 31 30 29 20 74 61 69 6c 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 ┆ array(1:10) tail of word; ┆
0x0ffa0…0ffc0 20 20 20 20 20 20 20 20 61 72 72 61 79 28 31 3a 38 29 61 6e 73 77 20 6f 66 20 77 6f 72 64 3b 0a ┆ array(1:8)answ of word; ┆
0x0ffc0…0ffe0 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 73 69 6d 6f 70 2c 73 69 6d 6d 6f 64 65 3a 3d ┆ byte simop,simmode:=┆
0x0ffe0…10000 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 73 69 6d 66 69 00 00 00 00 00 00 00 00 ┆0; ref simfi ┆
0x10000…10006 (128,) (0x450,0x201)
0x10006…10020 72 73 74 2c 73 69 6d 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆rst,simlast; w┆
0x10020…10040 6f 72 64 20 73 69 6d 6c 6f 63 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 39 ┆ord simlocid; text(9┆
0x10040…10060 29 20 73 69 6d 74 65 78 74 3a 3d 22 27 31 27 27 31 27 20 61 74 74 20 20 20 22 3b 0a 20 20 20 20 ┆) simtext:="'1''1' att "; ┆
0x10060…1007e 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 74 72 6d 6e 61 6d 65 3b 0a 20 20 20 20 20 ┆ text(11)trmname; ┆
0x1007e…10084 (0x450,0x202)
0x10084…100a0 20 20 20 20 20 20 20 77 6f 72 64 20 6e 6c 3a 3d 31 30 3b 0a 20 20 20 20 20 20 20 20 ┆ word nl:=10; ┆
0x100a0…100c0 20 20 20 20 62 79 74 65 20 74 65 6d 6f 70 2c 74 65 6d 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 20 ┆ byte temop,temmode:=0; ┆
0x100c0…100e0 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ word localid; ┆
0x100e0…100fc 20 72 65 66 20 74 65 72 6d 70 64 61 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 ┆ ref termpda; by┆
0x100fc…10102 (0x450,0x203)
0x10102…10120 74 65 20 62 75 66 73 2c 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 ┆te bufs,timers; te┆
0x10120…10140 78 74 28 31 34 29 20 70 6f 6f 6c 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 ┆xt(14) poolname; wor┆
0x10140…10160 64 20 68 65 6c 70 3b 0a 0a 20 63 6f 6d 6d 65 6e 74 20 20 20 20 66 6f 72 6d 61 74 20 6f 66 20 6c ┆d help; comment format of l┆
0x10160…1017a 6f 67 69 6e 20 63 6f 6d 6d 61 6e 64 20 69 73 3a 0a 0a 20 20 20 20 20 73 31 20 ┆ogin command is: s1 ┆
0x1017a…10180 (0x450,0x204)
0x10180…101a0 20 20 20 20 20 20 20 73 32 20 20 20 20 20 20 20 20 20 20 20 20 73 33 20 20 20 20 20 20 20 73 34 ┆ s2 s3 s4┆
0x101a0…101c0 0a 20 20 28 20 67 6f 20 20 20 20 29 0a 20 20 28 20 72 75 6e 20 20 20 29 20 3c 70 72 6f 63 6e 61 ┆ ( go ) ( run ) <procna┆
0x101c0…101e0 6d 65 3e 20 20 28 20 6a 6f 62 66 69 6c 65 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 29 28 2e 29 0a 20 ┆me> ( jobfile <filename> )(.) ┆
0x101e0…10200 20 28 20 62 61 74 63 68 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ( batch ) ┆
0x10200…10206 (129,) (0x450,0x205)
0x10206…10220 20 73 33 2f 35 20 20 20 20 73 34 2f 36 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆ s3/5 s4/6 s┆
0x10220…10240 35 2f 37 20 20 20 20 20 73 36 2f 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 20 70 61 73 73 20 ┆5/7 s6/8 ( pass ┆
0x10240…10260 3c 70 61 73 73 6e 61 6d 65 3e 20 20 20 20 20 20 28 6e 65 77 70 61 73 73 20 3c 70 61 73 73 6e 61 ┆<passname> (newpass <passna┆
0x10260…1027e 6d 65 3e 29 28 2e 29 20 29 28 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 20 3e 70 61 ┆me>)(.) )(.) ( >pa┆
0x1027e…10284 (0x450,0x206)
0x10284…102a0 73 73 77 6f 72 64 20 3c 70 61 73 73 6e 61 6d 65 3e 20 20 20 20 20 20 20 20 20 20 20 ┆ssword <passname> ┆
0x102a0…102c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 0a 20 6f 72 3a 0a 20 20 20 20 73 31 20 20 20 20 ┆ ) or: s1 ┆
0x102c0…102e0 73 32 20 20 20 20 20 20 20 20 20 73 33 20 20 20 20 20 20 20 20 20 20 73 34 20 20 20 20 20 20 73 ┆s2 s3 s4 s┆
0x102e0…102fc 35 20 20 20 20 20 20 20 20 20 20 73 36 20 20 20 20 20 20 20 73 37 0a 20 20 20 20 69 ┆5 s6 s7 i┆
0x102fc…10302 (0x450,0x207)
0x10302…10320 6e 20 3c 70 72 6f 63 6e 61 6d 65 3e 20 3c 74 65 72 6d 6e 61 6d 65 3e 20 20 28 20 70 61 73 ┆n <procname> <termname> ( pas┆
0x10320…10340 73 20 3c 70 61 73 73 6e 61 6d 65 3e 20 20 28 6e 65 77 70 61 73 73 20 3c 70 61 73 73 6e 61 6d 65 ┆s <passname> (newpass <passname┆
0x10340…10360 3e 29 28 2e 29 20 29 28 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>)(.) )(.) ┆
0x10360…1037a 20 20 20 20 20 20 20 20 20 28 20 3e 70 61 73 73 77 6f 72 64 20 3c 70 61 73 73 ┆ ( >password <pass┆
0x1037a…10380 (0x450,0x208)
0x10380…103a0 6e 61 6d 65 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 3b 0a 0a ┆name> ) ; ┆
0x103a0…103c0 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 73 61 76 65 ┆ begin save┆
0x103c0…103e0 77 30 3a 3d 77 30 3b 20 20 21 20 6c 6f 67 69 6e 2d 6b 69 6e 64 3a 20 30 3d 67 6f 2c 20 31 3d 62 ┆w0:=w0; ! login-kind: 0=go, 1=b┆
0x103e0…10400 61 74 63 68 2c 20 32 3d 72 75 6e 2c 20 33 3d 69 6e 20 21 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆atch, 2=run, 3=in ! ┆
0x10400…10406 (130,) (0x450,0x209)
0x10406…10420 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 ┆ savef3:=f3; ┆
0x10420…10440 20 20 20 20 20 20 77 33 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:=b.userentry; ┆
0x10440…10460 20 20 20 69 66 20 77 30 3a 3d 62 2e 73 79 73 73 74 61 74 65 20 3c 3e 20 30 20 74 68 65 6e 20 69 ┆ if w0:=b.sysstate <> 0 then i┆
0x10460…1047e 66 20 77 30 3a 3d 62 2e 6d 61 69 6e 63 6f 6e 73 72 65 66 3c 3e 28 77 33 29 2e 70 65 72 69 ┆f w0:=b.mainconsref<>(w3).peri┆
0x1047e…10484 (0x450,0x20a)
0x10484…104a0 70 68 65 72 61 6c 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆pheral then begi┆
0x104a0…104c0 6e 0a 21 74 65 73 74 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 ┆n !test 6; outtext┆
0x104c0…104e0 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 ┆(.w3.,w0:=8'31,w1:=b.userentry,w┆
0x104e0…104fc 32 3a 3d 32 39 29 3b 20 20 21 20 66 6f 72 62 69 64 64 65 6e 20 2d 20 73 79 73 74 65 ┆2:=29); ! forbidden - syste┆
0x104fc…10502 (0x450,0x20b)
0x10502…10520 6d 20 6c 6f 63 6b 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆m locked ! goto ┆
0x10520…10540 65 72 72 6f 72 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 ┆error; end; ┆
0x10540…10560 20 20 20 20 73 74 72 69 6e 67 31 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 ┆ string1:=w1; w1+8; ┆
0x10560…1057a 20 20 20 73 74 72 69 6e 67 32 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 ┆ string2:=w1; w1+8; ┆
0x1057a…10580 (0x450,0x20c)
0x10580…105a0 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 33 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 ┆ string3:=w1; w1+8; ┆
0x105a0…105c0 20 20 20 20 20 20 20 73 74 72 69 6e 67 34 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 ┆ string4:=w1; w1+8; ┆
0x105c0…105e0 20 20 20 20 20 20 73 74 72 69 6e 67 35 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 ┆ string5:=w1; w1+8; ┆
0x105e0…10600 20 20 20 20 20 73 74 72 69 6e 67 36 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 00 00 00 00 00 00 00 00 ┆ string6:=w1; w1+8; ┆
0x10600…10606 (131,) (0x450,0x20d)
0x10606…10620 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 37 3a 3d 77 31 3b 20 77 ┆ string7:=w1; w┆
0x10620…10640 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 38 3a 3d 77 31 3b 0a 20 20 ┆1+8; string8:=w1; ┆
0x10640…10660 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆ compare(.w3.,w0:=8,w1:┆
0x10660…1067e 3d 73 74 72 69 6e 67 33 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6a 6f 62 66 29 29 3b 0a 20 ┆=string3,w2:=address(jobf)); ┆
0x1067e…10684 (0x450,0x20e)
0x10684…106a0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 20 6a 6f ┆ if w0 = 0 then jo┆
0x106a0…106c0 62 66 69 6c 65 3a 3d 77 33 3a 3d 73 74 72 69 6e 67 34 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆bfile:=w3:=string4; ┆
0x106c0…106e0 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ w1:=b.userentry; if┆
0x106e0…106fc 20 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 20 3d 20 2d 31 20 74 68 65 6e 20 20 20 ┆ w3:=(w1).state = -1 then ┆
0x106fc…10702 (0x450,0x20f)
0x10702…10720 20 20 20 20 21 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 20 63 72 65 61 74 69 6e 67 20 ┆ ! known terminal creating ┆
0x10720…10740 6e 65 77 20 6a 6f 62 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆new job ! begin ┆
0x10740…10760 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 6a 6f 62 66 69 6c 65 20 3d 20 30 20 74 68 65 ┆ if w0:=jobfile = 0 the┆
0x10760…1077a 6e 20 20 20 20 20 20 20 20 20 21 20 61 74 20 6d 6f 73 74 20 6f 6e 65 20 6a 6f ┆n ! at most one jo┆
0x1077a…10780 (0x450,0x210)
0x10780…107a0 62 20 77 69 74 68 6f 75 74 20 6a 6f 62 66 69 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆b without jobfile ! ┆
0x107a0…107c0 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin !test 7; ┆
0x107c0…107e0 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 ┆ outtext(.w3.,w0:=8'31,w1:=b.use┆
0x107e0…10800 72 65 6e 74 72 79 2c 77 32 3a 3d 37 29 3b 20 20 21 20 66 6f 72 62 69 64 00 00 00 00 00 00 00 00 ┆rentry,w2:=7); ! forbid ┆
0x10800…10806 (132,) (0x450,0x211)
0x10806…10820 64 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b ┆den ! link┆
0x10820…10840 20 28 2e 77 33 2e 2c 20 77 31 3a 3d 20 62 2e 75 73 65 72 65 6e 74 72 79 2c 20 77 32 3a 3d 20 61 ┆ (.w3., w1:= b.userentry, w2:= a┆
0x10840…10860 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ddress(b.activqfst)); ┆
0x10860…1087e 20 20 20 20 20 20 77 31 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:= -1; ┆
0x1087e…10884 (0x450,0x212)
0x10884…108a0 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ goto error; e┆
0x108a0…108c0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 6c 61 73 74 75 73 65 72 ┆nd; w1:=b.lastuser┆
0x108c0…108e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 ┆; while w1-!length┆
0x108e0…108fc 28 75 73 65 72 65 6e 74 72 79 29 20 3e 3d 20 62 2e 66 69 72 73 74 75 73 65 72 20 64 ┆(userentry) >= b.firstuser d┆
0x108fc…10902 (0x450,0x213)
0x10902…10920 6f 0a 20 20 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 ┆o begin ┆
0x10920…10940 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 20 3d 20 30 ┆ if w0:=(w1).internal = 0┆
0x10940…10960 20 74 68 65 6e 20 67 6f 74 6f 20 66 72 65 65 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ then goto freefound; ┆
0x10960…1097a 20 20 20 20 65 6e 64 3b 0a 21 74 65 73 74 20 38 3b 0a 20 20 20 20 20 20 20 20 ┆ end; !test 8; ┆
0x1097a…10980 (0x450,0x214)
0x10980…109a0 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d ┆ outtext(.w3.,w0:=8'31,w1:=┆
0x109a0…109c0 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 36 29 3b 20 20 21 20 70 72 6f 63 65 73 73 20 63 ┆b.userentry,w2:=6); ! process c┆
0x109c0…109e0 72 65 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 20 28 2e 77 ┆reation ! link (.w┆
0x109e0…10a00 33 2e 2c 20 77 31 3a 3d 20 62 2e 75 73 65 72 65 6e 74 72 79 2c 20 77 32 00 00 00 00 00 00 00 00 ┆3., w1:= b.userentry, w2 ┆
0x10a00…10a06 (133,) (0x450,0x215)
0x10a06…10a20 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a ┆:= address(b.activqfst)); ┆
0x10a20…10a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w1:= -1; ┆
0x10a40…10a60 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 66 72 65 65 66 6f 75 6e 64 3a 0a 20 20 20 20 ┆ goto error; freefound: ┆
0x10a60…10a7e 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 6e 74 72 79 3a 3d 77 32 3a 3d 62 2e 75 73 65 ┆ procentry:=w2:=b.use┆
0x10a7e…10a84 (0x450,0x216)
0x10a84…10aa0 72 65 6e 74 72 79 3b 20 20 21 20 6f 6c 64 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 ┆rentry; ! old entry ! ┆
0x10aa0…10ac0 20 20 20 20 20 20 20 20 20 62 2e 75 73 65 72 65 6e 74 72 79 3a 3d 77 31 3b 20 20 20 20 20 20 20 ┆ b.userentry:=w1; ┆
0x10ac0…10ae0 20 20 20 20 20 20 21 20 6e 65 77 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! new entry ! ┆
0x10ae0…10afc 20 20 28 77 32 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ (w2).state:=w0:=0; ┆
0x10afc…10b02 (0x450,0x217)
0x10b02…10b20 20 20 20 20 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 30 3a 3d 28 77 ┆ (w1).peripheral:=w0:=(w┆
0x10b20…10b40 32 29 2e 70 65 72 69 70 68 65 72 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆2).peripheral; (w1┆
0x10b40…10b60 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆).internal:=w0; (w┆
0x10b60…10b7a 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 2d 32 3b 0a 20 20 20 20 20 20 20 20 ┆1).state:=w0:=-2; ┆
0x10b7a…10b80 (0x450,0x218)
0x10b80…10ba0 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 28 77 32 29 2e 62 ┆ (w1).buflength:=w0:=(w2).b┆
0x10ba0…10bc0 75 66 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 20 28 2e 77 ┆uflength; copy (.w┆
0x10bc0…10be0 33 2e 2c 20 77 30 2c 20 77 31 3a 3d 28 77 32 29 2e 62 75 66 66 65 72 2c 20 77 32 3a 3d 28 77 32 ┆3., w0, w1:=(w2).buffer, w2:=(w2┆
0x10be0…10c00 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 2e 62 75 66 66 65 72 29 3b 0a 00 00 00 00 00 00 00 00 ┆:=b.userentry).buffer); ┆
0x10c00…10c06 (134,) (0x450,0x219)
0x10c06…10c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 ┆ link(.w3.,w1┆
0x10c20…10c40 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 ┆:=procentry,w2:=address(b.activq┆
0x10c40…10c60 66 73 74 29 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 ┆fst)); end; ┆
0x10c60…10c7e 20 20 20 20 70 72 6f 63 65 6e 74 72 79 3a 3d 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 ┆ procentry:=w1:=b.userentry┆
0x10c7e…10c84 (0x450,0x21a)
0x10c84…10ca0 3b 20 20 20 20 21 20 6e 65 77 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 ┆; ! new entry ! ┆
0x10ca0…10cc0 20 20 20 28 77 31 29 2e 70 72 69 6d 64 65 76 69 3a 3d 77 30 3a 3d 28 77 31 29 2e 70 65 72 69 70 ┆ (w1).primdevi:=w0:=(w1).perip┆
0x10cc0…10ce0 68 65 72 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 ┆heral; w0:=savew0; ┆
0x10ce0…10cfc 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 20 74 68 65 6e 20 77 32 ┆ if w0 = 3 then w2┆
0x10cfc…10d02 (0x450,0x21b)
0x10d02…10d20 3a 3d 73 74 72 69 6e 67 33 20 65 6c 73 65 20 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆:=string3 else w2:=0; ┆
0x10d20…10d40 20 20 20 20 73 63 61 6e 63 61 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 73 74 72 69 6e 67 32 2c ┆ scancat(.w3.,w0,w1:=string2,┆
0x10d40…10d60 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 30 20 74 68 65 6e 0a ┆w2); if w0 < 0 then ┆
0x10d60…10d7a 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 ┆ begin ┆
0x10d7a…10d80 (0x450,0x21c)
0x10d80…10da0 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 2d 33 20 74 68 65 6e 20 77 32 3a 3d 33 30 20 20 21 20 ┆ if w0 = -3 then w2:=30 ! ┆
0x10da0…10dc0 75 73 65 72 20 63 61 74 61 6c 6f 67 20 72 65 73 65 72 76 65 64 20 21 0a 20 20 20 20 20 20 20 20 ┆user catalog reserved ! ┆
0x10dc0…10de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 32 3a 3d 33 3b 20 20 21 20 ┆ else w2:=3; ! ┆
0x10de0…10e00 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 69 6c 6c 65 67 61 6c 20 21 00 00 00 00 00 00 00 00 ┆identification illegal ! ┆
0x10e00…10e06 (135,) (0x450,0x21d)
0x10e06…10e20 0a 21 74 65 73 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 ┆ !test 9; ou┆
0x10e20…10e40 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 ┆ttext(.w3.,w0:=8'31,w1:=procentr┆
0x10e40…10e60 79 2c 77 32 29 3b 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f ┆y,w2); goto erro┆
0x10e60…10e7e 72 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 73 65 67 6d 3a ┆r1; end else segm:┆
0x10e7e…10e84 (0x450,0x21e)
0x10e84…10ea0 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 70 72 6f 63 64 65 73 63 72 ┆=w0; b.procdescr┆
0x10ea0…10ec0 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 72 6d 64 65 73 63 72 3a 3d 77 ┆:=w1; b.termdescr:=w┆
0x10ec0…10ee0 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 20 3c 20 33 ┆2; if w0:=savew0 < 3┆
0x10ee0…10efc 20 74 68 65 6e 20 20 20 21 20 67 6f 2c 20 72 75 6e 20 6f 72 20 62 61 74 63 68 20 21 ┆ then ! go, run or batch !┆
0x10efc…10f02 (0x450,0x21f)
0x10f02…10f20 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 20 20 20 ┆ begin ┆
0x10f20…10f40 20 20 20 69 66 20 77 31 3a 3d 6a 6f 62 66 69 6c 65 20 3d 20 30 20 74 68 65 6e 20 77 31 3a 3d 73 ┆ if w1:=jobfile = 0 then w1:=s┆
0x10f40…10f60 74 72 69 6e 67 33 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 ┆tring3 ┆
0x10f60…10f7a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 3a 3d 73 74 72 69 6e ┆ else w1:=strin┆
0x10f7a…10f80 (0x450,0x220)
0x10f80…10fa0 67 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 65 63 6b 70 72 6f 74 28 2e 77 33 2e ┆g5; checkprot(.w3.┆
0x10fa0…10fc0 2c 77 31 2c 77 32 3a 3d 62 2e 70 72 6f 63 64 65 73 63 72 2b 21 70 6f 73 69 74 69 6f 6e 28 70 70 ┆,w1,w2:=b.procdescr+!position(pp┆
0x10fc0…10fe0 61 73 73 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 ┆ass)); if w1 <> 0 ┆
0x10fe0…11000 74 68 65 6e 20 67 6f 74 6f 20 65 72 72 6f 72 31 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆then goto error1; ┆
0x11000…11006 (136,) (0x450,0x221)
0x11006…11020 20 20 20 20 20 20 20 20 72 65 77 72 69 74 65 3a 3d 77 32 3b 0a 20 20 20 20 20 ┆ rewrite:=w2; ┆
0x11020…11040 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 6a 6f 62 66 69 6c 65 20 3e 20 30 20 74 68 65 6e ┆ if w1:=jobfile > 0 then┆
0x11040…11060 0a 20 20 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 20 20 20 ┆ begin ┆
0x11060…1107e 20 20 20 20 20 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:=procentry; ┆
0x1107e…11084 (0x450,0x222)
0x11084…110a0 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3b 0a 20 ┆ w2:=(w1).peripheral; ┆
0x110a0…110c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ -(w2); ┆
0x110c0…110e0 20 20 20 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 32 3b 20 20 21 20 6a 6f ┆ (w1).peripheral:=w2; ! jo┆
0x110e0…110fc 62 66 69 6c 65 20 69 73 20 6d 61 72 6b 65 64 20 62 79 20 6e 65 67 61 74 69 76 65 20 ┆bfile is marked by negative ┆
0x110fc…11102 (0x450,0x223)
0x11102…11120 70 65 72 69 70 68 65 72 61 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a ┆peripheral ! w2:┆
0x11120…11140 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 70 72 5f 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆=address((w1).pr_in); ┆
0x11140…11160 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 34 3b 0a 20 20 20 20 20 20 20 20 ┆ (w2).word:=w0:=4; ┆
0x11160…1117a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 ┆ copy(.w3.,w0:=8,w1┆
0x1117a…11180 (0x450,0x224)
0x11180…111a0 3a 3d 6a 6f 62 66 69 6c 65 2c 77 32 2b 32 29 3b 20 20 21 20 69 6e 73 65 72 74 20 6a 6f 62 66 69 ┆:=jobfile,w2+2); ! insert jobfi┆
0x111a0…111c0 6c 65 20 6e 61 6d 65 20 69 6e 20 69 2f 6f 2d 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 ┆le name in i/o-buffer ! ┆
0x111c0…111e0 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ end else beg┆
0x111e0…11200 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 70 00 00 00 00 00 00 00 00 ┆in w1:=p ┆
0x11200…11206 (137,) (0x450,0x225)
0x11206…11220 72 6f 63 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆rocentry; w2┆
0x11220…11240 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 70 72 5f 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆:=address((w1).pr_in); ┆
0x11240…11260 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 38 3b 0a 20 20 20 20 20 20 20 ┆ (w2).word:=w0:=8; ┆
0x11260…1127e 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 62 ┆ copy(.w3.,w0:=8,w1:=b┆
0x1127e…11284 (0x450,0x226)
0x11284…112a0 2e 6f 77 6e 70 72 6f 63 2b 32 2c 77 32 2b 32 29 3b 20 20 21 20 73 6f 73 2d 6e 61 6d ┆.ownproc+2,w2+2); ! sos-nam┆
0x112a0…112c0 65 20 69 6e 20 69 2f 6f 2d 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e in i/o-buffer ! ┆
0x112c0…112e0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 31 ┆end; w2:=address((w1┆
0x112e0…112fc 3a 3d 70 72 6f 63 65 6e 74 72 79 29 2e 70 72 5f 6f 75 74 29 3b 0a 20 20 20 20 20 20 ┆:=procentry).pr_out); ┆
0x112fc…11302 (0x450,0x227)
0x11302…11320 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 38 3b 0a 20 20 20 20 20 20 ┆ (w2).word:=w0:=8; ┆
0x11320…11340 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 62 2e 6f 77 6e 70 ┆ copy(.w3.,w0:=8,w1:=b.ownp┆
0x11340…11360 72 6f 63 2b 32 2c 77 32 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 ┆roc+2,w2+2); w3:=b┆
0x11360…1137a 2e 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.procdescr; ┆
0x1137a…11380 (0x450,0x228)
0x11380…113a0 62 75 66 66 65 72 73 3a 3d 77 30 3a 3d 28 77 33 29 2e 70 72 6f 63 62 75 66 66 65 72 73 3b 0a 20 ┆buffers:=w0:=(w3).procbuffers; ┆
0x113a0…113c0 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 65 61 73 3a 3d 77 30 3a 3d 28 77 33 29 2e 70 72 6f ┆ areas:=w0:=(w3).pro┆
0x113c0…113e0 63 61 72 65 61 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 70 ┆careas; w0:=(w3).p┆
0x113e0…11400 72 6f 63 73 62 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 00 00 00 00 00 00 00 00 ┆rocsb1; w1 ┆
0x11400…11406 (138,) (0x450,0x229)
0x11406…11420 3a 3d 28 77 33 29 2e 70 72 6f 63 73 62 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=(w3).procsb2; ┆
0x11420…11440 20 20 20 20 73 74 64 62 61 73 65 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ stdbase:=f1; w┆
0x11440…11460 30 3a 3d 28 77 33 29 2e 70 72 6f 63 6d 62 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆0:=(w3).procmb1; w┆
0x11460…1147e 31 3a 3d 28 77 33 29 2e 70 72 6f 63 6d 62 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1:=(w3).procmb2; ┆
0x1147e…11484 (0x450,0x22a)
0x11484…114a0 20 6d 61 78 62 61 73 65 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ maxbase:=f1; ┆
0x114a0…114c0 77 30 3a 3d 62 2e 66 73 74 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆w0:=b.fstcore; if ┆
0x114c0…114e0 77 31 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 62 2e 66 73 74 63 6f 72 65 20 3e 20 28 77 33 29 2e 70 ┆w1:=b.topcore-b.fstcore > (w3).p┆
0x114e0…114fc 6d 61 78 73 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e ┆maxsize then┆
0x114fc…11502 (0x450,0x22b)
0x11502…11520 20 77 31 3a 3d 28 77 33 29 2e 70 6d 61 78 73 69 7a 65 2b 35 31 31 20 6c 73 68 69 66 74 20 ┆ w1:=(w3).pmaxsize+511 lshift ┆
0x11520…11540 2d 39 20 6c 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 ┆-9 lshift 9; if w1┆
0x11540…11560 20 3c 20 28 77 33 29 2e 70 6d 69 6e 73 69 7a 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ < (w3).pminsize then ┆
0x11560…1157a 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 31 30 3b 0a 20 20 20 20 20 20 ┆ begin !test 10; ┆
0x1157a…11580 (0x450,0x22c)
0x11580…115a0 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c ┆ outtext(.w3.,w0:=8'31,┆
0x115a0…115c0 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 34 29 3b 20 20 21 20 6e 6f 20 72 6f 6f 6d ┆w1:=procentry,w2:=4); ! no room┆
0x115c0…115e0 20 69 6e 20 70 72 69 6d 61 72 79 20 73 74 6f 72 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ in primary store ! ┆
0x115e0…11600 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 31 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ goto error1; ┆
0x11600…11606 (139,) (0x450,0x22d)
0x11606…11620 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x11620…11640 70 72 6f 63 65 6e 74 72 79 2e 70 72 6f 63 73 69 7a 65 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆procentry.procsize:=w1; ┆
0x11640…11660 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 72 65 6c ┆ w1+w0; corel┆
0x11660…1167e 69 6d 69 74 73 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 74 72 ┆imits:=f1; protr┆
0x1167e…11684 (0x450,0x22e)
0x11684…116a0 65 67 3a 3d 77 31 3a 3d 62 2e 63 68 69 6c 64 70 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆eg:=w1:=b.childpr; ┆
0x116a0…116c0 20 20 20 20 20 70 72 6f 74 6b 65 79 3a 3d 77 31 3a 3d 62 2e 63 68 69 6c 64 70 6b 3b 0a 20 20 20 ┆ protkey:=w1:=b.childpk; ┆
0x116c0…116e0 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 ┆ w3:=address(zero); ┆
0x116e0…116fc 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 73 74 64 62 61 73 65 3b 0a 20 20 20 ┆ f1:=stdbase; ┆
0x116fc…11702 (0x450,0x22f)
0x11702…11720 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 21 20 73 65 74 20 73 ┆ monitor(72);! set s┆
0x11720…11740 6f 73 20 6f 77 6e 20 63 61 74 20 62 61 73 65 20 21 0a 21 74 65 73 74 20 34 34 35 3b 0a 20 20 20 ┆os own cat base ! !test 445; ┆
0x11740…11760 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6a 6f 62 66 69 6c 65 20 3e 20 30 20 74 68 ┆ if w3:=jobfile > 0 th┆
0x11760…1177a 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆en begin ┆
0x1177a…11780 (0x450,0x230)
0x11780…117a0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 ┆ tail(w1:=1); ┆
0x117a0…117c0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 6a 6f 62 66 69 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:=jobfile; ┆
0x117c0…117e0 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 3b 20 20 21 20 6c 6f 6f 6b 75 70 20 6a 6f ┆ monitor(42); ! lookup jo┆
0x117e0…11800 62 66 69 6c 65 20 21 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 ┆bfile ! ┆
0x11800…11806 (140,) (0x450,0x231)
0x11806…11820 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆if w0 <> 0 then ┆
0x11820…11840 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin !test 11; ┆
0x11840…11860 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 ┆ outtext(.w3.,w0:=8'31,w1┆
0x11860…1187e 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 31 30 29 3b 20 20 21 20 6e 6f 20 6a 6f 62 ┆:=procentry,w2:=10); ! no job┆
0x1187e…11884 (0x450,0x232)
0x11884…118a0 66 69 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆file ! got┆
0x118a0…118c0 6f 20 65 72 72 6f 72 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆o error1; end; ┆
0x118c0…118e0 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 20 20 20 ┆ end; ┆
0x118e0…118fc 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 ┆w3:=address(b.t_mdul); ┆
0x118fc…11902 (0x450,0x233)
0x11902…11920 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 30 29 3b 20 20 21 20 63 72 65 61 74 ┆ monitor(80); ! creat┆
0x11920…11940 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 22 74 65 6d 22 20 21 0a 20 20 20 20 20 20 20 ┆e pseudo process "tem" ! ┆
0x11940…11960 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w0 <> 0 then ┆
0x11960…1197a 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 31 32 3b 0a 20 20 20 20 20 ┆ begin !test 12; ┆
0x1197a…11980 (0x450,0x234)
0x11980…119a0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 20 74 68 65 6e 20 6f 75 74 74 65 78 ┆ if w0 = 3 then outtex┆
0x119a0…119c0 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 ┆t(.w3.,w0:=8'31,w1:=procentry,w2┆
0x119c0…119e0 3a 3d 32 38 29 20 20 21 20 75 73 65 72 20 63 6f 6e 66 6c 69 63 74 20 21 0a 20 20 20 20 20 20 20 ┆:=28) ! user conflict ! ┆
0x119e0…11a00 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6f 75 74 74 65 78 74 28 2e 77 00 00 00 00 00 00 00 00 ┆ else outtext(.w ┆
0x11a00…11a06 (141,) (0x450,0x235)
0x11a06…11a20 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c ┆3.,w0:=8'31,w1:=procentry,┆
0x11a20…11a40 77 32 3a 3d 36 29 3b 20 20 21 20 70 72 6f 63 65 73 73 20 63 72 65 61 74 69 6f 6e 20 21 0a 20 20 ┆w2:=6); ! process creation ! ┆
0x11a40…11a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 31 3b 0a 20 20 20 20 20 ┆ goto error1; ┆
0x11a60…11a7e 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 20 20 77 33 ┆ end; w3┆
0x11a7e…11a84 (0x450,0x236)
0x11a84…11aa0 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 ┆:=address(b.p_mdul); ┆
0x11aa0…11ac0 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 30 29 3b 20 20 21 20 63 72 65 61 74 65 20 70 73 ┆ monitor(80); ! create ps┆
0x11ac0…11ae0 65 75 64 6f 20 70 72 6f 63 65 73 73 20 22 70 72 69 6d 6f 22 20 21 0a 20 20 20 20 20 20 20 20 20 ┆eudo process "primo" ! ┆
0x11ae0…11afc 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w0<>0 then ┆
0x11afc…11b02 (0x450,0x237)
0x11b02…11b20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 31 34 3b 0a 20 20 20 20 20 20 20 20 20 ┆ begin !test 14; ┆
0x11b20…11b40 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 20 74 68 65 6e 20 6f 75 74 74 65 78 74 28 2e 77 ┆ if w0 = 3 then outtext(.w┆
0x11b40…11b60 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 32 38 ┆3.,w0:=8'31,w1:=procentry,w2:=28┆
0x11b60…11b7a 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6f 75 74 ┆) else out┆
0x11b7a…11b80 (0x450,0x238)
0x11b80…11ba0 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 ┆text(.w3.,w0:=8'31,w1:=procentry┆
0x11ba0…11bc0 2c 77 32 3a 3d 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 ┆,w2:=6); goto er┆
0x11bc0…11be0 72 6f 72 32 5f 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ror2_1; end; ┆
0x11be0…11c00 20 20 20 20 20 20 20 20 20 66 31 3a 3d 62 2e 73 74 61 72 74 62 61 73 65 00 00 00 00 00 00 00 00 ┆ f1:=b.startbase ┆
0x11c00…11c06 (142,) (0x450,0x239)
0x11c06…11c20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 ┆; w3:=addres┆
0x11c20…11c40 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 ┆s(zero); monitor(7┆
0x11c40…11c60 32 29 3b 20 20 21 20 72 65 73 65 74 20 73 6f 73 20 6f 77 6e 20 63 61 74 20 62 61 73 65 20 21 0a ┆2); ! reset sos own cat base ! ┆
0x11c60…11c7e 21 74 65 73 74 20 34 34 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆!test 447; if w0┆
0x11c7e…11c84 (0x450,0x23a)
0x11c84…11ca0 3a 3d 62 2e 66 72 65 65 62 75 66 73 2d 62 75 66 66 65 72 73 3c 30 20 74 68 65 6e 0a ┆:=b.freebufs-buffers<0 then ┆
0x11ca0…11cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 31 36 3b 0a 20 20 ┆ begin !test 16; ┆
0x11cc0…11ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 ┆ outtext(.w3.,w0:=8┆
0x11ce0…11cfc 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 36 29 3b 20 20 21 ┆'31,w1:=procentry,w2:=6); !┆
0x11cfc…11d02 (0x450,0x23b)
0x11d02…11d20 20 70 72 6f 63 65 73 73 20 63 72 65 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ process creation ! ┆
0x11d20…11d40 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto error2; ┆
0x11d40…11d60 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 2e 66 72 65 65 62 75 ┆ end else b.freebu┆
0x11d60…11d7a 66 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆fs:=w0; w1:=┆
0x11d7a…11d80 (0x450,0x23c)
0x11d80…11da0 61 64 64 72 65 73 73 28 63 6f 72 65 6c 69 6d 69 74 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆address(corelimits); ┆
0x11da0…11dc0 20 20 20 77 33 3a 3d 73 74 72 69 6e 67 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ w3:=string2; mo┆
0x11dc0…11de0 6e 69 74 6f 72 28 35 36 29 3b 20 20 21 20 63 72 65 61 74 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 ┆nitor(56); ! create internal pr┆
0x11de0…11e00 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆ocess ! if ┆
0x11e00…11e06 (143,) (0x450,0x23d)
0x11e06…11e20 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0<>0 then ┆
0x11e20…11e40 62 65 67 69 6e 0a 21 74 65 73 74 20 31 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆begin !test 17; ┆
0x11e40…11e60 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c ┆ outtext(.w3.,w0:=8'31,┆
0x11e60…11e7e 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 36 29 3b 20 20 21 20 70 72 6f 63 65 ┆w1:=procentry,w2:=6); ! proce┆
0x11e7e…11e84 (0x450,0x23e)
0x11e84…11ea0 73 73 20 63 72 65 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ss creation ! ┆
0x11ea0…11ec0 20 20 67 6f 74 6f 20 65 72 72 6f 72 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ goto error3; end┆
0x11ec0…11ee0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 70 72 6f 63 64 65 73 63 72 3b ┆; w3:=b.procdescr;┆
0x11ee0…11efc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 70 72 6f 63 ┆ w0:=(w3).proc┆
0x11efc…11f02 (0x450,0x23f)
0x11f02…11f20 75 62 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 70 72 ┆ub1; w1:=(w3).pr┆
0x11f20…11f40 6f 63 75 62 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 73 74 72 69 6e 67 ┆ocub2; w3:= string┆
0x11f40…11f60 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 20 21 ┆2; monitor(72); !┆
0x11f60…11f7a 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 20 3d 20 75 73 65 72 20 ┆ set catalog base = user ┆
0x11f7a…11f80 (0x450,0x240)
0x11f80…11fa0 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 ┆base ! if w0<>0 th┆
0x11fa0…11fc0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 31 38 3b ┆en begin !test 18;┆
0x11fc0…11fe0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 ┆ outtext(.w3.,w0┆
0x11fe0…12000 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 00 00 00 00 00 00 00 00 ┆:=8'31,w1:=procentry,w2: ┆
0x12000…12006 (144,) (0x450,0x241)
0x12006…12020 3d 36 29 3b 20 20 21 20 70 72 6f 63 65 73 73 20 63 72 65 61 74 69 6f 6e 20 21 ┆=6); ! process creation !┆
0x12020…12040 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 34 3b 0a 20 20 ┆ goto error4; ┆
0x12040…12060 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 20 20 6d ┆ end; m┆
0x12060…1207e 6f 6e 69 74 6f 72 28 34 29 3b 20 20 21 20 67 65 74 20 70 72 6f 63 65 73 73 20 64 65 73 63 ┆onitor(4); ! get process desc┆
0x1207e…12084 (0x450,0x242)
0x12084…120a0 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 69 6e 20 77 30 20 21 0a 20 20 20 20 ┆ription address in w0 ! ┆
0x120a0…120c0 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 ┆ w1:=procentry; ┆
0x120c0…120e0 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆ (w1).internal:=w0; ┆
0x120e0…120fc 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 ┆ w3:=b.procdescr; ┆
0x120fc…12102 (0x450,0x243)
0x12102…12120 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 33 2b 21 70 6f 73 69 74 69 6f 6e 28 70 72 ┆ w2:=w3+!position(pr┆
0x12120…12140 6f 63 64 69 73 63 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 ┆ocdiscs); w1:=0; ┆
0x12140…12160 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2b 31 3c 31 33 20 64 6f 0a 20 20 ┆ while w1+1<13 do ┆
0x12160…1217a 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 ┆ begin ┆
0x1217a…12180 (0x450,0x244)
0x12180…121a0 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 70 72 6f 63 64 69 73 63 29 3b 0a 20 20 ┆ w2+!length(procdisc); ┆
0x121a0…121c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 ┆ savew1:=w1; ┆
0x121c0…121e0 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 ┆ testout(.w3.,w0:=!leng┆
0x121e0…12200 74 68 28 70 72 6f 63 64 69 73 63 29 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 00 00 00 00 00 00 00 00 ┆th(procdisc),w1:=w2,w2:= ┆
0x12200…12206 (145,) (0x450,0x245)
0x12206…12220 36 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 ┆68); w2:=w┆
0x12220…12240 31 3b 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1; w1:=savew1; ┆
0x12240…12260 69 66 20 77 33 3a 3d 28 77 32 29 2e 77 6f 72 64 3d 30 20 74 68 65 6e 20 77 31 3a 3d 31 33 0a 20 ┆if w3:=(w2).word=0 then w1:=13 ┆
0x12260…1227e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ else ┆
0x1227e…12284 (0x450,0x246)
0x12284…122a0 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 20 ┆ begin ┆
0x122a0…122c0 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ savew1:=w1; ┆
0x122c0…122e0 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆savew2:=w2; w1┆
0x122e0…122fc 3a 3d 77 32 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆:=w2+8; w2┆
0x122fc…12302 (0x450,0x247)
0x12302…12320 3a 3d 61 64 64 72 65 73 73 28 63 6c 61 69 6d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆:=address(claim0); ┆
0x12320…12340 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 2c 77 32 29 3b 0a ┆ copy(.w3.,w0:=16,w1,w2); ┆
0x12340…12360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 32 3b 0a 20 20 20 20 20 20 ┆ w1:=w2; ┆
0x12360…1237a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 ┆ w2:=savew2; ┆
0x1237a…12380 (0x450,0x248)
0x12380…123a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 73 74 72 69 6e 67 32 3b 0a 20 20 20 ┆ w3:=string2; ┆
0x123a0…123c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 38 29 3b 20 20 21 20 73 ┆ monitor(78); ! s┆
0x123c0…123e0 65 74 20 62 73 20 63 6c 61 69 6d 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆et bs claims ! ┆
0x123e0…12400 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ if w0<>0 then ┆
0x12400…12406 (146,) (0x450,0x249)
0x12406…12420 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 31 39 3b 0a 20 ┆ begin !test 19; ┆
0x12420…12440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c ┆ outtext(.w3.,┆
0x12440…12460 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 35 29 3b 20 20 ┆w0:=8'31,w1:=procentry,w2:=5); ┆
0x12460…1247e 21 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆! claims exceeded ! ┆
0x1247e…12484 (0x450,0x24a)
0x12484…124a0 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 34 3b 0a 20 20 20 20 20 ┆ goto error4; ┆
0x124a0…124c0 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 20 20 20 ┆ end; ┆
0x124c0…124e0 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=savew1; ┆
0x124e0…124fc 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2:=savew2; ┆
0x124fc…12502 (0x450,0x24b)
0x12502…12520 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ end; end; ┆
0x12520…12540 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 20 3d 20 32 20 74 68 65 6e ┆ if w0:=savew0 = 2 then┆
0x12540…12560 20 20 21 20 72 75 6e 20 20 2d 20 20 63 6f 6e 6e 65 63 74 20 74 65 72 6d 69 6e 61 6c 20 76 69 61 ┆ ! run - connect terminal via┆
0x12560…1257a 20 74 65 6d 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ tem ! begin┆
0x1257a…12580 (0x450,0x24c)
0x12580…125a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 67 65 6e 65 72 61 74 65 20 70 6f 6f 6c ┆ ! generate pool┆
0x125a0…125c0 6e 61 6d 65 3a 20 63 68 61 72 20 31 2d 33 20 6f 66 20 73 6f 73 2d 6e 61 6d 65 2c 20 63 68 61 72 ┆name: char 1-3 of sos-name, char┆
0x125c0…125e0 20 34 2d 31 31 20 6f 66 20 70 72 6f 63 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 4-11 of procname ! ┆
0x125e0…12600 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆ copy(.w3.,w0:=2,w1:= ┆
0x12600…12606 (147,) (0x450,0x24d)
0x12606…12620 62 2e 6f 77 6e 70 72 6f 63 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 6f ┆b.ownproc+2,w2:=address(po┆
0x12620…12640 6f 6c 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e ┆olname)); copy(.┆
0x12640…12660 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2e 69 6e 74 65 72 6e 61 6c ┆w3.,w0:=6,w1:=procentry.internal┆
0x12660…1267e 2b 32 2c 77 32 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6f ┆+2,w2+2); temo┆
0x1267e…12684 (0x450,0x24e)
0x12684…126a0 70 3a 3d 77 30 3a 3d 39 30 3b 20 20 21 20 63 72 65 61 74 65 20 70 6f 6f 6c 20 21 0a ┆p:=w0:=90; ! create pool ! ┆
0x126a0…126c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 6d 6f ┆ w1:=address(temo┆
0x126c0…126e0 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆p); w3:=address(┆
0x126e0…126fc 62 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d ┆b.t_mdul); m┆
0x126fc…12702 (0x450,0x24f)
0x12702…12720 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a ┆onitor(16); ! send message ! ┆
0x12720…12740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 ┆ answ(w1:=1); ┆
0x12740…12760 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 ┆ monitor(18); ! wai┆
0x12760…1277a 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t answer ! ┆
0x1277a…12780 (0x450,0x250)
0x12780…127a0 20 69 66 20 77 30 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 3c 3e 20 31 20 74 68 65 6e 0a 20 20 ┆ if w0 or (w1).word <> 1 then ┆
0x127a0…127c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 32 30 3b 0a 20 20 ┆ begin !test 20; ┆
0x127c0…127e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a ┆ outtext(.w3.,w0:┆
0x127e0…12800 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 00 00 00 00 00 00 00 00 ┆=8'31,w1:=procentry,w2:= ┆
0x12800…12806 (148,) (0x450,0x251)
0x12806…12820 39 29 3b 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e ┆9); ! terminal connection┆
0x12820…12840 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆ error ! goto ┆
0x12840…12860 65 72 72 6f 72 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆error4; end; ┆
0x12860…1287e 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 70 6f 6f 6c 6e ┆ w3:=address(pooln┆
0x1287e…12884 (0x450,0x252)
0x12884…128a0 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆ame); monito┆
0x128a0…128c0 72 28 34 29 3b 20 20 20 21 20 67 65 74 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f ┆r(4); ! get process descriptio┆
0x128c0…128e0 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 6a 6f 62 66 69 ┆n ! if w2:=jobfi┆
0x128e0…128fc 6c 65 20 3e 20 30 20 74 68 65 6e 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆le > 0 then -(w0); ┆
0x128fc…12902 (0x450,0x253)
0x12902…12920 20 20 20 20 20 20 20 70 72 6f 63 65 6e 74 72 79 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 ┆ procentry.peripheral:=w┆
0x12920…12940 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 70 64 61 3a 3d 77 30 3a 3d ┆0; termpda:=w0:=┆
0x12940…12960 70 72 6f 63 65 6e 74 72 79 2e 70 72 69 6d 64 65 76 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆procentry.primdevi; ┆
0x12960…1297a 20 20 20 20 6c 6f 63 61 6c 69 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆ localid:=w0:=0; ┆
0x1297a…12980 (0x450,0x254)
0x12980…129a0 20 20 20 20 20 20 20 20 20 20 62 75 66 73 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ bufs:=w0:=1; ┆
0x129a0…129c0 20 20 20 20 20 20 20 74 69 6d 65 72 73 3a 3d 77 30 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ timers:=w0:=5; ┆
0x129c0…129e0 20 20 20 20 20 20 74 65 6d 6f 70 3a 3d 77 30 3a 3d 31 30 30 3b 20 20 21 20 63 72 65 61 74 65 20 ┆ temop:=w0:=100; ! create ┆
0x129e0…12a00 6c 69 6e 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 00 00 00 00 00 00 00 00 ┆link ! t ┆
0x12a00…12a06 (149,) (0x450,0x255)
0x12a06…12a20 65 6d 6d 6f 64 65 3a 3d 77 30 3a 3d 32 3b 20 20 21 20 74 72 61 6e 73 70 61 72 ┆emmode:=w0:=2; ! transpar┆
0x12a20…12a40 65 6e 74 20 6c 69 6e 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 ┆ent link ! w3:=a┆
0x12a40…12a60 64 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ddress(poolname); ┆
0x12a60…12a7e 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:=address(temop); ┆
0x12a7e…12a84 (0x450,0x256)
0x12a84…12aa0 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 ┆ monitor(16); ! send┆
0x12aa0…12ac0 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 28 ┆ message ! answ(┆
0x12ac0…12ae0 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆w1:=1); monitor(┆
0x12ae0…12afc 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 ┆18); ! wait answer ! ┆
0x12afc…12b02 (0x450,0x257)
0x12b02…12b20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 3c ┆ if w0 or (w1).word <┆
0x12b20…12b40 3e 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆> 1 then begin ┆
0x12b40…12b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6d 6f 64 65 3a 3d 77 30 3a 3d 30 3b ┆ temmode:=w0:=0;┆
0x12b60…12b7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6f 70 3a 3d ┆ temop:=┆
0x12b7a…12b80 (0x450,0x258)
0x12b80…12ba0 77 30 3a 3d 39 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 ┆w0:=92; w1:=ad┆
0x12ba0…12bc0 64 72 65 73 73 28 74 65 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dress(temop); ┆
0x12bc0…12be0 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆w3:=address(b.t_mdul); ┆
0x12be0…12c00 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 00 00 00 00 00 00 00 00 ┆ monitor(16); ! ┆
0x12c00…12c06 (150,) (0x450,0x259)
0x12c06…12c20 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ send message ! ┆
0x12c20…12c40 20 20 20 20 20 20 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ answ(w1:=1); ┆
0x12c40…12c60 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 ┆ monitor(18); ! wait answ┆
0x12c60…12c7e 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 6e 74 ┆er ! procent┆
0x12c7e…12c84 (0x450,0x25a)
0x12c84…12ca0 72 79 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 30 3a 3d 70 72 6f 63 65 6e 74 72 79 ┆ry.peripheral:=w0:=procentry┆
0x12ca0…12cc0 2e 70 72 69 6d 64 65 76 69 3b 0a 21 74 65 73 74 20 32 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆.primdevi; !test 21; ┆
0x12cc0…12ce0 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a ┆ outtext(.w3.,w0:=8'31,w1:┆
0x12ce0…12cfc 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 39 29 3b 20 20 21 20 74 65 72 6d 69 6e ┆=procentry,w2:=9); ! termin┆
0x12cfc…12d02 (0x450,0x25b)
0x12d02…12d20 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 20 20 20 ┆al connection error ! ┆
0x12d20…12d40 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 34 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto error4; ┆
0x12d40…12d60 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 ┆ end; proc┆
0x12d60…12d7a 65 6e 74 72 79 2e 70 72 69 6d 69 6f 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 ┆entry.primio:=w0:=0; ┆
0x12d7a…12d80 (0x450,0x25c)
0x12d80…12da0 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 6e 74 72 79 2e 63 75 72 72 6c 6f 63 69 64 3a 3d ┆ procentry.currlocid:=┆
0x12da0…12dc0 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 ┆w0:=0; end ┆
0x12dc0…12de0 20 20 20 20 20 20 20 65 6c 73 65 20 70 72 6f 63 65 6e 74 72 79 2e 70 72 69 6d 69 6f 3a 3d 77 30 ┆ else procentry.primio:=w0┆
0x12de0…12e00 3a 3d 30 3b 20 20 20 20 20 21 20 67 6f 2f 62 61 74 63 68 20 6c 6f 67 69 00 00 00 00 00 00 00 00 ┆:=0; ! go/batch logi ┆
0x12e00…12e06 (151,) (0x450,0x25d)
0x12e06…12e20 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 70 72 6f 63 ┆n ! w1:=proc┆
0x12e20…12e40 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 ┆entry; link(.w3.,w┆
0x12e40…12e60 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 ┆1,w2:=address(b.activqfst)); ┆
0x12e60…12e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 74 68 65 20 6e 65 77 20 ┆ comment the new ┆
0x12e7e…12e84 (0x450,0x25e)
0x12e84…12ea0 6a 6f 62 20 69 73 20 6c 69 6e 6b 65 64 20 69 6e 74 6f 20 74 68 65 20 61 63 74 69 76 ┆job is linked into the activ┆
0x12ea0…12ec0 65 71 75 65 75 65 20 69 6e 64 65 70 65 6e 64 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆equeue independent ┆
0x12ec0…12ee0 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 6a 6f 62 20 74 79 70 65 2e 20 61 20 62 ┆ of the job type. a b┆
0x12ee0…12efc 61 74 63 68 6a 6f 62 20 69 73 20 6c 61 74 65 72 20 6f 6e 20 6d 6f 76 65 64 20 74 6f ┆atchjob is later on moved to┆
0x12efc…12f02 (0x450,0x25f)
0x12f02…12f20 20 74 68 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 ┆ the ┆
0x12f20…12f40 62 61 74 63 68 71 75 65 75 65 20 28 61 74 20 22 61 63 74 69 76 61 74 65 3a 22 20 69 6e 20 74 68 ┆batchqueue (at "activate:" in th┆
0x12f40…12f60 65 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 29 20 62 65 63 61 75 73 65 0a 20 20 20 20 20 20 20 20 ┆e main program) because ┆
0x12f60…12f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 70 72 ┆ of the pr┆
0x12f7a…12f80 (0x450,0x260)
0x12f80…12fa0 69 6f 72 69 74 79 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 ┆iority class ; ┆
0x12fa0…12fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=1; ┆
0x12fc0…12fe0 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (w1).messsend:=w0; ┆
0x12fe0…13000 20 20 20 28 77 31 29 2e 73 74 61 74 75 73 69 6e 66 3a 3d 77 30 3a 3d 30 00 00 00 00 00 00 00 00 ┆ (w1).statusinf:=w0:=0 ┆
0x13000…13006 (152,) (0x450,0x261)
0x13006…13020 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 62 ┆; w2:=(w1).b┆
0x13020…13040 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 70 72 6f 63 64 ┆uffer; w1:=b.procd┆
0x13040…13060 65 73 63 72 2b 21 70 6f 73 69 74 69 6f 6e 28 70 72 6f 63 66 70 29 3b 0a 20 20 20 20 20 20 20 20 ┆escr+!position(procfp); ┆
0x13060…1307e 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 34 30 2c 77 31 2c 77 32 29 3b ┆ copy(.w3.,w0:=40,w1,w2);┆
0x1307e…13084 (0x450,0x262)
0x13084…130a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 ┆ w1:=procentry┆
0x130a0…130c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 20 3d 20 ┆; if w0:=savew0 = ┆
0x130c0…130e0 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 20 21 20 62 61 74 63 68 20 21 20 ┆1 then ! batch ! ┆
0x130e0…130fc 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3a 3d 62 2e 62 61 74 63 68 63 6c 61 73 ┆ (w1).class:=w0:=b.batchclas┆
0x130fc…13102 (0x450,0x263)
0x13102…13120 73 2d 62 2e 74 69 6d 65 72 6c 6f 73 73 2d 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s-b.timerloss-1 ┆
0x13120…13140 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3a ┆else (w1).class:=w0:┆
0x13140…13160 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 ┆=0; (w1).state:=w0┆
0x13160…1317a 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 ┆:=3; (w1).st┆
0x1317a…13180 (0x450,0x264)
0x13180…131a0 61 74 65 32 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆ate2:=w0:=-1; (w1)┆
0x131a0…131c0 2e 70 72 69 6f 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆.prio:=w0:=0; (w1)┆
0x131c0…131e0 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆.intervent:=w0; w1┆
0x131e0…13200 3a 3d 70 72 6f 63 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆:=procentry; ┆
0x13200…13206 (153,) (0x450,0x265)
0x13206…13220 20 20 20 28 77 31 29 2e 62 75 66 66 65 72 3a 3d 77 30 3a 3d 28 77 31 29 2e 62 ┆ (w1).buffer:=w0:=(w1).b┆
0x13220…13240 75 66 66 65 72 2b 35 30 3b 0a 21 74 65 73 74 20 32 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆uffer+50; !test 22; ┆
0x13240…13260 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 37 30 2c 77 31 2c 77 32 3a 3d 31 ┆ outtext(.w3.,w0:=8'70,w1,w2:=1┆
0x13260…1327e 39 29 3b 20 20 21 20 65 6e 72 6f 6c 6c 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆9); ! enrolled ! ┆
0x1327e…13284 (0x450,0x266)
0x13284…132a0 20 20 28 77 31 29 2e 62 75 66 66 65 72 3a 3d 77 30 3a 3d 28 77 31 29 2e 62 75 66 66 ┆ (w1).buffer:=w0:=(w1).buff┆
0x132a0…132c0 65 72 2d 35 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e ┆er-50; (w1).buflen┆
0x132c0…132e0 67 74 68 3a 3d 77 30 3a 3d 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 ┆gth:=w0:=40; w0:=1┆
0x132e0…132fc 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e ┆; (w1).messsen┆
0x132fc…13302 (0x450,0x267)
0x13302…13320 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 ┆d:=w0; w1:=0; ┆
0x13320…13340 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 20 20 20 20 20 21 20 67 6f 2f 72 75 6e 2f 62 61 74 63 ┆ end ! go/run/batc┆
0x13340…13360 68 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆h ! else i┆
0x13360…1337a 66 20 77 30 20 3d 20 33 20 74 68 65 6e 20 20 20 21 20 20 69 6e 20 2d 20 63 6f ┆f w0 = 3 then ! in - co┆
0x1337a…13380 (0x450,0x268)
0x13380…133a0 6e 6e 65 63 74 20 74 65 72 6d 69 6e 61 6c 20 74 6f 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 20 ┆nnect terminal to pool ! ┆
0x133a0…133c0 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 63 68 65 63 6b 70 72 ┆ begin checkpr┆
0x133c0…133e0 6f 74 28 2e 77 33 2e 2c 77 31 3a 3d 73 74 72 69 6e 67 34 2c 77 32 3a 3d 62 2e 74 65 72 6d 64 65 ┆ot(.w3.,w1:=string4,w2:=b.termde┆
0x133e0…13400 73 63 72 2b 21 70 6f 73 69 74 69 6f 6e 28 75 73 65 72 6b 65 79 29 29 3b 00 00 00 00 00 00 00 00 ┆scr+!position(userkey)); ┆
0x13400…13406 (154,) (0x450,0x269)
0x13406…13420 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 ┆ if w1 <> 0 ┆
0x13420…13440 74 68 65 6e 20 67 6f 74 6f 20 65 72 72 6f 72 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆then goto error1; ┆
0x13440…13460 72 65 77 72 69 74 65 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 67 65 6e ┆rewrite:=w2; ! gen┆
0x13460…1347e 65 72 61 74 65 20 70 6f 6f 6c 6e 61 6d 65 3a 20 22 74 65 6d 3c 74 65 72 6d 6e 61 6d 65 3e ┆erate poolname: "tem<termname>┆
0x1347e…13484 (0x450,0x26a)
0x13484…134a0 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c ┆" ! copy(.w3.,┆
0x134a0…134c0 77 30 3a 3d 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 2c 77 32 3a 3d ┆w0:=2,w1:=address(b.t_mdul),w2:=┆
0x134c0…134e0 61 64 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆address(poolname)); ┆
0x134e0…134fc 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 73 74 72 69 6e 67 ┆ copy(.w3.,w0:=6,w1:=string┆
0x134fc…13502 (0x450,0x26b)
0x13502…13520 32 2c 77 32 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 70 64 61 ┆2,w2+2); termpda┆
0x13520…13540 3a 3d 77 30 3a 3d 28 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 2e 70 65 72 69 70 68 65 72 ┆:=w0:=(w1:=b.userentry).peripher┆
0x13540…13560 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 69 64 3a 3d 77 30 3a 3d 28 ┆al; localid:=w0:=(┆
0x13560…1357a 77 33 3a 3d 62 2e 74 65 72 6d 64 65 73 63 72 29 2e 69 6e 74 69 64 3b 0a 20 20 ┆w3:=b.termdescr).intid; ┆
0x1357a…13580 (0x450,0x26c)
0x13580…135a0 20 20 20 20 20 20 20 20 20 20 20 20 73 69 6d 6c 6f 63 69 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆ simlocid:=w0; ┆
0x135a0…135c0 20 20 20 20 20 20 20 20 62 75 66 73 3a 3d 77 30 3a 3d 28 77 33 29 2e 74 62 75 66 73 3b 0a 20 20 ┆ bufs:=w0:=(w3).tbufs; ┆
0x135c0…135e0 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 72 73 3a 3d 77 30 3a 3d 28 77 33 29 2e 74 74 69 ┆ timers:=w0:=(w3).tti┆
0x135e0…13600 6d 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6f 00 00 00 00 00 00 00 00 ┆mers; temo ┆
0x13600…13606 (155,) (0x450,0x26d)
0x13606…13620 70 3a 3d 77 30 3a 3d 31 30 30 3b 20 20 21 20 63 72 65 61 74 65 20 6c 69 6e 6b ┆p:=w0:=100; ! create link┆
0x13620…13640 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 6d ┆ ! w1:=address(tem┆
0x13640…13660 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 70 ┆op); w3:=address(p┆
0x13660…1367e 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆oolname); monito┆
0x1367e…13684 (0x450,0x26e)
0x13684…136a0 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 ┆r(16); ! send message ! ┆
0x136a0…136c0 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆ answ(w1:=1); ┆
0x136c0…136e0 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 ┆ monitor(18); ! wait answe┆
0x136e0…136fc 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 28 ┆r ! if w0 or (┆
0x136fc…13702 (0x450,0x26f)
0x13702…13720 77 31 29 2e 77 6f 72 64 20 3c 3e 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w1).word <> 1 then ┆
0x13720…13740 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d ┆ begin if w1:=┆
0x13740…13760 77 30 20 61 6e 64 20 38 27 31 30 32 30 20 3c 3e 20 30 20 74 68 65 6e 20 77 32 3a 3d 38 20 20 21 ┆w0 and 8'1020 <> 0 then w2:=8 !┆
0x13760…1377a 20 62 75 73 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ busy ! ┆
0x1377a…13780 (0x450,0x270)
0x13780…137a0 20 20 20 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 77 32 3a ┆ else w2:┆
0x137a0…137c0 3d 39 3b 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 72 72 6f 72 ┆=9; ! terminal connection error┆
0x137c0…137e0 20 21 0a 21 74 65 73 74 20 32 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 ┆ ! !test 23; out┆
0x137e0…13800 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 00 00 00 00 00 00 00 00 ┆text(.w3.,w0:=8'31,w1:=p ┆
0x13800…13806 (156,) (0x450,0x271)
0x13806…13820 72 6f 63 65 6e 74 72 79 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆rocentry,w2); ┆
0x13820…13840 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ goto error1; e┆
0x13840…13860 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d ┆nd; copy(.w3.,w0:=┆
0x13860…1387e 38 2c 77 31 3a 3d 74 65 72 6d 70 64 61 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 72 ┆8,w1:=termpda+2,w2:=address(tr┆
0x1387e…13884 (0x450,0x272)
0x13884…138a0 6d 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 69 6d 66 69 ┆mname)); simfi┆
0x138a0…138c0 72 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 73 69 6d 6c 6f 63 69 64 29 3b 0a 20 20 20 20 ┆rst:=w1:=address(simlocid); ┆
0x138c0…138e0 20 20 20 20 20 20 20 20 20 20 73 69 6d 6c 61 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 6e ┆ simlast:=w1:=address(n┆
0x138e0…138fc 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 69 6d 6f 70 3a 3d 20 77 30 ┆l); simop:= w0┆
0x138fc…13902 (0x450,0x273)
0x13902…13920 3a 3d 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 ┆:= 9; w1:=addres┆
0x13920…13940 73 28 73 69 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 ┆s(simop); w3:=addr┆
0x13940…13960 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆ess(poolname); mon┆
0x13960…1397a 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 ┆itor(16); ! send message ┆
0x1397a…13980 (0x450,0x274)
0x13980…139a0 28 73 69 6d 75 6c 61 74 65 20 20 69 6e 70 75 74 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆(simulate input) ! ┆
0x139a0…139c0 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆ answ(w1:=1); mon┆
0x139c0…139e0 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 21 74 65 73 74 ┆itor(18); ! wait answer ! !test┆
0x139e0…13a00 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 00 00 00 00 00 00 00 00 ┆ 24; outte ┆
0x13a00…13a06 (157,) (0x450,0x275)
0x13a06…13a20 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 30 2c 77 31 3a 3d 70 72 6f 63 65 ┆xt(.w3.,w0:=8'30,w1:=proce┆
0x13a20…13a40 6e 74 72 79 2c 77 32 3a 3d 31 31 29 3b 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 63 6f 6e 6e 65 63 ┆ntry,w2:=11); ! terminal connec┆
0x13a40…13a60 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 3b 0a 20 20 20 20 ┆ted ! end else; ┆
0x13a60…13a7e 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 72 65 77 72 69 74 65 20 3c 3e 20 30 20 74 68 ┆ if w2:=rewrite <> 0 th┆
0x13a7e…13a84 (0x450,0x276)
0x13a84…13aa0 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 ┆en begin ┆
0x13aa0…13ac0 20 20 20 20 20 20 20 68 65 6c 70 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆ help:=w1; f┆
0x13ac0…13ae0 69 72 73 74 3a 3d 77 30 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 35 31 32 3b 0a 20 20 20 20 20 20 20 ┆irst:=w0:=b.topcore-512; ┆
0x13ae0…13afc 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 77 30 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 32 ┆ last:=w0:=b.topcore-2┆
0x13afc…13b02 (0x450,0x277)
0x13b02…13b20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 32 2e ┆; transport(.w2.┆
0x13b20…13b40 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6c 6f 67 6f 70 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆,w1:=address(logop),w3:=address(┆
0x13b40…13b60 62 2e 75 73 65 72 63 61 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 68 ┆b.usercat)); w1:=h┆
0x13b60…13b7a 65 6c 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆elp; end; ┆
0x13b7a…13b80 (0x450,0x278)
0x13b80…13ba0 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 6c 65 61 73 65 3b 0a 65 72 72 6f 72 34 3a 0a 20 20 ┆ goto release; error4: ┆
0x13ba0…13bc0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 73 74 72 69 6e 67 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:=string2; ┆
0x13bc0…13be0 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 20 21 20 72 65 6d 6f 76 65 20 63 68 69 6c 64 20 ┆ monitor(64); ! remove child ┆
0x13be0…13c00 70 72 6f 63 65 73 73 20 21 0a 65 72 72 6f 72 33 3a 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆process ! error3: ┆
0x13c00…13c06 (158,) (0x450,0x279)
0x13c06…13c20 20 20 20 20 20 20 62 2e 66 72 65 65 62 75 66 73 3a 3d 77 30 3a 3d 62 2e 66 72 ┆ b.freebufs:=w0:=b.fr┆
0x13c20…13c40 65 65 62 75 66 73 2b 62 75 66 66 65 72 73 3b 0a 65 72 72 6f 72 32 3a 0a 20 20 20 20 20 20 20 20 ┆eebufs+buffers; error2: ┆
0x13c40…13c60 20 20 20 20 68 65 6c 70 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 73 74 ┆ help:=w1; f1:=st┆
0x13c60…13c7e 64 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 ┆dbase; w3:=address┆
0x13c7e…13c84 (0x450,0x27a)
0x13c84…13ca0 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆(zero); monitor(┆
0x13ca0…13cc0 37 32 29 3b 20 21 20 73 65 74 20 6f 77 6e 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 ┆72); ! set own catalog base ! ┆
0x13cc0…13ce0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 5f 6d 64 75 6c 29 3b ┆ w3:=address(b.p_mdul);┆
0x13ce0…13cfc 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 21 20 ┆ monitor(64); ! ┆
0x13cfc…13d02 (0x450,0x27b)
0x13d02…13d20 72 65 6d 6f 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆remove process ! w┆
0x13d20…13d40 31 3a 3d 68 65 6c 70 3b 0a 65 72 72 6f 72 32 5f 31 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 ┆1:=help; error2_1: h┆
0x13d40…13d60 65 6c 70 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 73 74 64 62 61 73 65 ┆elp:=w1; f1:=stdbase┆
0x13d60…13d7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆; w3:=address(┆
0x13d7a…13d80 (0x450,0x27c)
0x13d80…13da0 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 ┆zero); monitor(72); ┆
0x13da0…13dc0 20 21 20 73 65 74 20 73 6f 73 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 ┆ ! set sos catalog base ! ┆
0x13dc0…13de0 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 ┆ w3:=address(b.t_mdul); ┆
0x13de0…13e00 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 20 21 00 00 00 00 00 00 00 00 ┆ monitor(64); ! ┆
0x13e00…13e06 (159,) (0x450,0x27d)
0x13e06…13e20 20 72 65 6d 6f 76 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a 20 ┆ remove pseudo process ! ┆
0x13e20…13e40 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 68 65 6c 70 3b 0a 72 65 6c 65 61 73 65 3a 0a 65 72 ┆ w1:=help; release: er┆
0x13e40…13e60 72 6f 72 31 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e ┆ror1: w3:=address(b.┆
0x13e60…13e7e 75 73 65 72 63 61 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆usercat); monitor(┆
0x13e7e…13e84 (0x450,0x27e)
0x13e84…13ea0 31 30 29 3b 20 20 21 20 72 65 6c 65 61 73 65 20 75 73 65 72 63 61 74 20 21 0a 65 72 ┆10); ! release usercat ! er┆
0x13ea0…13ec0 72 6f 72 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 ┆ror: w0:=savew0; ┆
0x13ec0…13ee0 20 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆ f3:=savef3; e┆
0x13ee0…13efc 6e 64 3b 20 20 20 20 20 21 20 20 6c 6f 67 69 6e 20 20 21 0a 0c 0a 0a 0a 0a 0a 20 20 ┆nd; ! login ! ┆
0x13efc…13f02 (0x450,0x27f)
0x13f02…13f20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 73 63 61 6e 63 61 74 0a 20 20 20 20 20 20 20 20 ┆ body of scancat ┆
0x13f20…13f40 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 61 62 65 6c 20 70 72 6f 63 66 6f 75 6e 64 2c ┆begin label procfound,┆
0x13f40…13f60 6e 65 77 73 65 67 6d 2c 74 65 72 6d 66 6f 75 6e 64 2c 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 ┆newsegm,termfound,exit; ┆
0x13f60…13f7a 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 70 ┆ incode ref p┆
0x13f7a…13f80 (0x450,0x280)
0x13f80…13fa0 72 6f 63 6e 61 6d 65 2c 74 65 72 6d 6e 61 6d 65 2c 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 ┆rocname,termname,return; ┆
0x13fa0…13fc0 20 20 20 20 20 61 72 72 61 79 28 31 3a 21 6c 65 6e 67 74 68 28 70 72 6f 63 64 65 73 63 72 29 29 ┆ array(1:!length(procdescr))┆
0x13fc0…13fe0 20 70 72 6f 63 65 73 73 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 ┆ process of byte; by┆
0x13fe0…14000 74 65 20 6c 6f 67 6f 70 2c 6c 6f 67 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆te logop,logmode:=0; ┆
0x14000…14006 (160,) (0x450,0x281)
0x14006…14020 20 20 20 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 6c 61 73 74 3b 0a 20 ┆ ref first,last; ┆
0x14020…14040 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 65 67 6d 2c 70 72 6f 63 5f 6e 6f 2c 73 61 76 ┆ word segm,proc_no,sav┆
0x14040…14060 65 77 31 2c 6c 6f 67 73 74 6f 70 2c 7a 65 72 6f 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 62 ┆ew1,logstop,zero:=0; b┆
0x14060…1407e 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 6e 61 6d 65 3a 3d 77 31 3b ┆egin procname:=w1;┆
0x1407e…14084 (0x450,0x282)
0x14084…140a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 6e 61 6d 65 3a 3d 77 32 3b 0a 20 ┆ termname:=w2; ┆
0x140a0…140c0 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 ┆ return:=w3; ┆
0x140c0…140e0 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w3:=address(zero); ┆
0x140e0…140fc 20 20 66 31 3a 3d 62 2e 73 74 61 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ f1:=b.startbase; ┆
0x140fc…14102 (0x450,0x283)
0x14102…14120 20 20 20 77 30 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆ w0:=w1; monitor┆
0x14120…14140 28 37 32 29 3b 20 20 21 20 73 65 74 20 6f 77 6e 20 63 61 74 20 62 61 73 65 20 21 0a 20 20 20 20 ┆(72); ! set own cat base ! ┆
0x14140…14160 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 75 73 65 72 63 61 74 29 3b 0a ┆ w3:=address(b.usercat); ┆
0x14160…1417a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 20 20 ┆ monitor(8); ┆
0x1417a…14180 (0x450,0x284)
0x14180…141a0 21 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 2c 20 69 2e 65 2e 20 6f 70 65 6e 28 7a 2c 34 ┆! reserve process, i.e. open(z,4┆
0x141a0…141c0 2c 3c 3a 73 6f 73 63 61 74 3a 3e 2c 30 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆,<:soscat:>,0) ! if ┆
0x141c0…141e0 77 30 20 3c 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 6e 0a 20 ┆w0 <> 0 then begin ┆
0x141e0…14200 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 33 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ w0:=-3; ┆
0x14200…14206 (161,) (0x450,0x285)
0x14206…14220 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 ┆ goto exit; ┆
0x14220…14240 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 66 69 72 73 74 3a 3d ┆ end; first:=┆
0x14240…14260 77 30 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c ┆w0:=b.topcore-512; l┆
0x14260…1427e 61 73 74 3a 3d 77 30 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 ┆ast:=w0:=b.topcore-2; ┆
0x1427e…14284 (0x450,0x286)
0x14284…142a0 20 20 20 20 6c 6f 67 6f 70 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ logop:=w0:=3; ┆
0x142a0…142c0 20 20 73 65 67 6d 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 ┆ segm:=w0:=0; w1:=a┆
0x142c0…142e0 64 64 72 65 73 73 28 6c 6f 67 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 ┆ddress(logop); trans┆
0x142e0…142fc 70 6f 72 74 28 2e 77 32 2e 2c 77 31 2c 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆port(.w2.,w1,w3); ┆
0x142fc…14302 (0x450,0x287)
0x14302…14320 20 20 77 33 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w3:=b.topcore-2; ┆
0x14320…14340 20 70 72 6f 63 5f 6e 6f 3a 3d 77 33 3a 3d 28 77 33 2d 34 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 ┆ proc_no:=w3:=(w3-4).word; ┆
0x14340…14360 20 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e ┆ w1:=0; w2:=b.┆
0x14360…1437a 74 6f 70 63 6f 72 65 2d 35 31 32 2d 21 6c 65 6e 67 74 68 28 70 72 69 6e 64 65 ┆topcore-512-!length(prinde┆
0x1437a…14380 (0x450,0x288)
0x14380…143a0 78 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2b 31 3c 3d 70 72 6f 63 ┆x); while w1+1<=proc┆
0x143a0…143c0 5f 6e 6f 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 ┆_no do begin ┆
0x143c0…143e0 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ w3:=0; w0:=┆
0x143e0…14400 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 30 20 00 00 00 00 00 00 00 00 ┆w1; if f0 ┆
0x14400…14406 (162,) (0x450,0x289)
0x14406…14420 6d 6f 64 20 35 30 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆mod 50=1 then ┆
0x14420…14440 20 20 20 20 69 66 20 77 31 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w1<>1 then ┆
0x14440…14460 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 3a 3d ┆ begin segm:=┆
0x14460…1447e 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d ┆w0; savew1:=┆
0x1447e…14484 (0x450,0x28a)
0x14484…144a0 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 ┆w1; w1:=ad┆
0x144a0…144c0 64 72 65 73 73 28 6c 6f 67 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dress(logop); ┆
0x144c0…144e0 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 75 73 65 72 63 61 74 29 3b 0a 20 20 20 20 20 20 20 20 ┆w3:=address(b.usercat); ┆
0x144e0…144fc 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 32 2e 2c 77 31 2c ┆ transport(.w2.,w1,┆
0x144fc…14502 (0x450,0x28b)
0x14502…14520 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 ┆w3); w1:=sav┆
0x14520…14540 65 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 74 6f 70 ┆ew1; w2:=b.top┆
0x14540…14560 63 6f 72 65 2d 35 31 32 2d 21 6c 65 6e 67 74 68 28 70 72 69 6e 64 65 78 29 3b 0a 20 20 20 20 20 ┆core-512-!length(prindex); ┆
0x14560…1457a 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 ┆ end; ┆
0x1457a…14580 (0x450,0x28c)
0x14580…145a0 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 70 72 69 6e 64 65 78 29 3b 0a 20 20 20 20 20 20 20 ┆ w2+!length(prindex); ┆
0x145a0…145c0 20 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ savew1:=w1; ┆
0x145c0…145e0 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 70 72 6f 63 6e 61 6d 65 ┆ compare(.w3.,w0:=8,w1:=procname┆
0x145e0…14600 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 00 00 00 00 00 00 00 00 ┆,w2); if w ┆
0x14600…14606 (163,) (0x450,0x28d)
0x14606…14620 30 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 70 72 6f 63 66 6f 75 6e 64 3b ┆0 = 0 then goto procfound;┆
0x14620…14640 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 ┆ w1:=savew1; ┆
0x14640…14660 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 30 3a 3d 2d 31 3b 0a ┆ end; w0:=-1; ┆
0x14660…1467e 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 70 72 6f 63 66 6f 75 ┆ goto exit; procfou┆
0x1467e…14684 (0x450,0x28e)
0x14684…146a0 6e 64 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 3a 3d 77 31 3a 3d 28 77 ┆nd: segm:=w1:=(w┆
0x146a0…146c0 32 29 2e 70 72 73 65 67 6d 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 ┆2).prsegmno; w1:=add┆
0x146c0…146e0 72 65 73 73 28 6c 6f 67 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 ┆ress(logop); w3:=add┆
0x146e0…146fc 72 65 73 73 28 62 2e 75 73 65 72 63 61 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ress(b.usercat); ┆
0x146fc…14702 (0x450,0x28f)
0x14702…14720 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 32 2e 2c 77 31 2c 77 33 29 3b 0a 20 20 20 20 20 20 ┆ transport(.w2.,w1,w3); ┆
0x14720…14740 20 20 20 20 20 20 77 31 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 35 31 32 3b 0a 20 20 20 20 20 20 20 ┆ w1:=b.topcore-512; ┆
0x14740…14760 20 20 20 20 20 70 72 6f 63 65 73 73 28 77 32 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ process(w2:=1); ┆
0x14760…1477a 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 72 6f ┆ copy(.w3.,w0:=!length(pro┆
0x1477a…14780 (0x450,0x290)
0x14780…147a0 63 64 65 73 63 72 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 ┆cdescr),w1,w2); test┆
0x147a0…147c0 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 36 38 29 3b 0a 20 20 20 20 20 20 20 20 ┆out(.w3.,w0,w1,w2:=68); ┆
0x147c0…147e0 20 20 20 20 21 20 66 69 6e 64 20 74 65 72 6d 69 6e 61 6c 20 69 6e 20 73 6f 73 63 61 74 20 21 0a ┆ ! find terminal in soscat ! ┆
0x147e0…14800 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 74 65 72 6d 6e 00 00 00 00 00 00 00 00 ┆ if w2:=termn ┆
0x14800…14806 (164,) (0x450,0x291)
0x14806…14820 61 6d 65 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ame = 0 then b┆
0x14820…14840 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 73 65 67 6d 3b 0a 20 20 20 ┆egin w0:=segm; ┆
0x14840…14860 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto exit; ┆
0x14860…1487e 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 74 6f 70 63 6f ┆ end; w2:=b.topco┆
0x1487e…14884 (0x450,0x292)
0x14884…148a0 72 65 2d 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 ┆re-512; w2+!leng┆
0x148a0…148c0 74 68 28 70 72 6f 63 64 65 73 63 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 21 6c ┆th(procdescr); w2-!l┆
0x148c0…148e0 65 6e 67 74 68 28 74 65 72 6d 64 65 73 63 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 ┆ength(termdescr); w3┆
0x148e0…148fc 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 21 6c 65 6e 67 74 68 28 74 65 72 6d 64 65 73 63 ┆:=b.topcore-!length(termdesc┆
0x148fc…14902 (0x450,0x293)
0x14902…14920 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 73 74 6f 70 3a 3d 77 33 3b 0a 6e ┆r); logstop:=w3; n┆
0x14920…14940 65 77 73 65 67 6d 3a 0a 21 74 65 73 74 20 35 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ewsegm: !test 540; w┆
0x14940…14960 68 69 6c 65 20 77 32 2b 21 6c 65 6e 67 74 68 28 74 65 72 6d 64 65 73 63 72 29 3c 6c 6f 67 73 74 ┆hile w2+!length(termdescr)<logst┆
0x14960…1497a 6f 70 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆op do begin ┆
0x1497a…14980 (0x450,0x294)
0x14980…149a0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 32 29 2e 77 6f 72 64 3d 2d 31 20 ┆ if w1:=(w2).word=-1 ┆
0x149a0…149c0 74 68 65 6e 20 77 32 3a 3d 6c 6f 67 73 74 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆then w2:=logstop e┆
0x149c0…149e0 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 ┆lse begin compar┆
0x149e0…14a00 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 74 65 72 6d 6e 61 6d 00 00 00 00 00 00 00 00 ┆e(.w3.,w0:=8,w1:=termnam ┆
0x14a00…14a06 (165,) (0x450,0x295)
0x14a06…14a20 65 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆e,w2); if ┆
0x14a20…14a40 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 74 65 72 6d 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 ┆w0=0 then goto termfound; ┆
0x14a40…14a60 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 65 6e 64 3b 0a 20 20 ┆ end; end; ┆
0x14a60…14a7e 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 32 3b 0a 20 20 20 ┆ w2:=b.topcore-2; ┆
0x14a7e…14a84 (0x450,0x296)
0x14a84…14aa0 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 3c 3e 2d ┆ if w0:=(w2).word<>-┆
0x14aa0…14ac0 31 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 ┆1 then begin ┆
0x14ac0…14ae0 20 20 20 20 20 20 20 73 65 67 6d 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ segm:=w0; w┆
0x14ae0…14afc 31 3a 3d 61 64 64 72 65 73 73 28 6c 6f 67 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆1:=address(logop); ┆
0x14afc…14b02 (0x450,0x297)
0x14b02…14b20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 75 73 65 72 63 61 74 29 3b 0a 20 ┆ w3:=address(b.usercat); ┆
0x14b20…14b40 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 32 2e 2c 77 31 2c 77 ┆ transport(.w2.,w1,w┆
0x14b40…14b60 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d ┆3); w2:=b.topcore-┆
0x14b60…14b7a 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 21 6c 65 6e ┆512; w2-!len┆
0x14b7a…14b80 (0x450,0x298)
0x14b80…14ba0 67 74 68 28 74 65 72 6d 64 65 73 63 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f ┆gth(termdescr); go┆
0x14ba0…14bc0 74 6f 20 6e 65 77 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆to newsegm; end; ┆
0x14bc0…14be0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆ w0:=-2; got┆
0x14be0…14c00 6f 20 65 78 69 74 3b 0a 74 65 72 6d 66 6f 75 6e 64 3a 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆o exit; termfound: ┆
0x14c00…14c06 (166,) (0x450,0x299)
0x14c06…14c20 20 20 20 20 20 20 20 62 2e 74 65 72 6d 64 65 73 63 72 3a 3d 77 32 3b 0a 20 20 ┆ b.termdescr:=w2; ┆
0x14c20…14c40 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 ┆ testout(.w3.,w0:=!leng┆
0x14c40…14c60 74 68 28 74 65 72 6d 64 65 73 63 72 29 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 36 38 29 3b 0a 20 20 ┆th(termdescr),w1:=w2,w2:=68); ┆
0x14c60…14c7e 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 ┆ process(w1:=1); ┆
0x14c7e…14c84 (0x450,0x29a)
0x14c84…14ca0 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 74 65 72 6d 64 65 73 63 72 3b 0a 20 20 20 ┆ w2:=b.termdescr; ┆
0x14ca0…14cc0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 73 65 67 6d 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 20 ┆ w0:=segm; exit: ┆
0x14cc0…14ce0 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ w3:=return; end; ┆
0x14ce0…14cfc 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 21 20 20 73 63 61 6e 63 61 74 20 21 ┆ end; ! scancat !┆
0x14cfc…14d02 (0x450,0x29b)
0x14d02…14d20 0a 0c 0a 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 63 68 65 63 6b 70 72 6f ┆ body of checkpro┆
0x14d20…14d40 74 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 61 62 65 6c 20 ┆t begin label ┆
0x14d40…14d60 62 61 64 5f 70 61 73 73 77 2c 20 65 78 69 74 2c 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆bad_passw, exit, found; ┆
0x14d60…14d7a 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 ┆ incode text(┆
0x14d7a…14d80 (0x450,0x29c)
0x14d80…14da0 31 31 29 20 70 61 73 73 3a 3d 22 70 61 73 73 22 2c 6e 65 77 70 61 73 73 3a 3d 22 6e 65 77 70 61 ┆11) pass:="pass",newpass:="newpa┆
0x14da0…14dc0 73 73 22 2c 65 6d 70 74 79 74 65 78 74 3a 3d 22 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ss",emptytext:="", ┆
0x14dc0…14de0 20 20 20 20 20 20 20 20 70 61 73 73 32 3a 3d 22 70 61 73 73 77 6f 72 64 22 2c 20 70 61 73 73 74 ┆ pass2:="password", passt┆
0x14de0…14e00 78 74 3a 3d 22 3e 70 61 73 73 77 6f 72 64 20 22 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆xt:=">password "; ┆
0x14e00…14e06 (167,) (0x450,0x29d)
0x14e06…14e20 20 20 20 20 20 20 72 65 66 20 70 61 73 73 77 6f 72 64 2c 72 65 74 75 72 6e 3b ┆ ref password,return;┆
0x14e20…14e40 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 72 65 74 ┆ begin ret┆
0x14e40…14e60 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 61 73 73 77 6f 72 64 3a 3d 77 ┆urn:=w3; password:=w┆
0x14e60…14e7e 32 3b 20 20 20 20 20 21 20 61 64 64 72 20 6f 66 20 63 6f 72 72 65 63 74 20 70 61 73 73 77 ┆2; ! addr of correct passw┆
0x14e7e…14e84 (0x450,0x29e)
0x14e84…14ea0 6f 72 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 ┆ord ! compare(.w┆
0x14ea0…14ec0 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 61 73 73 29 29 3b 0a ┆3.,w0:=8,w1,w2:=address(pass)); ┆
0x14ec0…14ee0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if w0 <> 0 then ┆
0x14ee0…14efc 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 ┆ begin ┆
0x14efc…14f02 (0x450,0x29f)
0x14f02…14f20 63 6f 6d 70 61 72 65 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 38 2c 20 77 31 2c 20 77 32 3a 3d ┆compare (.w3., w0:=8, w1, w2:=┆
0x14f20…14f40 61 64 64 72 65 73 73 28 70 61 73 73 32 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆address(pass2)); i┆
0x14f40…14f60 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆f w0=0 then goto found; ┆
0x14f60…14f7a 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 ┆ compare(.w3.,w0:=8,w┆
0x14f7a…14f80 (0x450,0x2a0)
0x14f80…14fa0 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 29 3b 0a 20 20 20 20 20 ┆1,w2:=address(emptytext)); ┆
0x14fa0…14fc0 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if w0 <> 0 then ┆
0x14fc0…14fe0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 32 35 3b 0a 20 20 20 20 20 20 20 20 20 ┆ begin !test 25; ┆
0x14fe0…15000 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆ outtext(.w3.,w0:= ┆
0x15000…15006 (168,) (0x450,0x2a1)
0x15006…15020 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 ┆8'31,w1:=b.userentry,w2:=2┆
0x15020…15040 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 ┆); ! syntax ! g┆
0x15040…15060 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆oto exit; end; ┆
0x15060…1507e 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 20 20 20 20 20 21 20 61 64 64 72 20 ┆ w2:=w1; ! addr ┆
0x1507e…15084 (0x450,0x2a2)
0x15084…150a0 6f 66 20 72 65 61 64 20 70 61 73 73 77 3a 3d 20 61 64 64 72 20 6f 66 20 65 6d 70 74 ┆of read passw:= addr of empt┆
0x150a0…150c0 79 20 70 61 72 61 6d 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 ┆y param ! end else ┆
0x150c0…150e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 66 6f 75 6e 64 3a 0a 20 20 20 20 20 20 20 20 ┆ begin found: ┆
0x150e0…150fc 20 20 20 20 20 20 77 32 3a 3d 20 77 31 2b 38 3b 20 20 20 20 20 21 20 61 64 64 72 20 ┆ w2:= w1+8; ! addr ┆
0x150fc…15102 (0x450,0x2a3)
0x15102…15120 6f 66 20 70 61 73 73 77 6f 72 64 20 70 61 72 61 6d 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆of password param ! ┆
0x15120…15140 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 70 61 73 73 77 6f 72 64 3b ┆ end; w1:=password;┆
0x15140…15160 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆ compare(.w3.,w0:=8,┆
0x15160…1517a 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 ┆w1,w2); if w0 ┆
0x1517a…15180 (0x450,0x2a4)
0x15180…151a0 3c 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 6e 0a 20 20 20 20 ┆<> 0 then begin ┆
0x151a0…151c0 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 38 2c 20 ┆ compare (.w3., w0:=8, ┆
0x151c0…151e0 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 2c 20 77 32 29 3b 0a 20 20 20 ┆w1:=address(emptytext), w2); ┆
0x151e0…15200 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 75 73 65 72 65 6e 00 00 00 00 00 00 00 00 ┆ w1:= b.useren ┆
0x15200…15206 (169,) (0x450,0x2a5)
0x15206…15220 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e ┆try; if w0<>┆
0x15220…15240 30 20 74 68 65 6e 20 20 20 20 20 20 21 20 70 61 73 73 77 6f 72 64 20 70 61 72 61 6d 20 3c 3e 20 ┆0 then ! password param <> ┆
0x15240…15260 65 6d 70 74 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 62 61 64 5f ┆empty ! begin bad_┆
0x15260…1527e 70 61 73 73 77 3a 0a 21 74 65 73 74 20 32 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆passw: !test 26; ┆
0x1527e…15284 (0x450,0x2a6)
0x15284…152a0 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 2c ┆ outtext(.w3.,w0:=8'31,w1,┆
0x152a0…152c0 77 32 3a 3d 31 33 29 3b 20 20 21 20 62 61 64 20 70 61 73 73 77 6f 72 64 20 21 0a 20 20 20 20 20 ┆w2:=13); ! bad password ! ┆
0x152c0…152e0 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto exit; ┆
0x152e0…152fc 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ end else i┆
0x152fc…15302 (0x450,0x2a7)
0x15302…15320 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 20 3d 20 2d 33 20 74 68 65 6e 20 67 6f 74 ┆f w0:=(w1).state = -3 then got┆
0x15320…15340 6f 20 62 61 64 5f 70 61 73 73 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆o bad_passw else ┆
0x15340…15360 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x15360…1537a 21 20 70 61 73 73 77 6f 72 64 20 6d 75 73 74 20 62 65 20 74 79 70 65 64 20 69 ┆! password must be typed i┆
0x1537a…15380 (0x450,0x2a8)
0x15380…153a0 6e 76 69 73 69 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆nvisible ! (w1).┆
0x153a0…153c0 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 2d 33 3b 20 20 20 21 20 61 77 61 69 74 69 6e 67 20 70 61 ┆state:= w0:= -3; ! awaiting pa┆
0x153c0…153e0 73 73 77 6f 72 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 ┆ssword ! (w1).bu┆
0x153e0…15400 66 72 65 6c 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 00 00 00 00 00 00 00 00 ┆frel:= w0:= (w1).bufleng ┆
0x15400…15406 (170,) (0x450,0x2a9)
0x15406…15420 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 ┆th; w2:= (┆
0x15420…15440 77 31 29 2e 62 75 66 66 65 72 20 2b 20 77 30 3b 20 20 21 20 73 74 61 72 74 20 61 64 64 72 20 21 ┆w1).buffer + w0; ! start addr !┆
0x15440…15460 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a ┆ (w1).buflength:┆
0x15460…1547e 3d 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 ┆= w0:= 8; copy┆
0x1547e…15484 (0x450,0x2aa)
0x15484…154a0 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 3a 3d 61 64 64 72 65 73 73 28 70 61 73 73 ┆ (.w3., w0, w1:=address(pass┆
0x154a0…154c0 74 78 74 29 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f ┆txt), w2); testo┆
0x154c0…154e0 75 74 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 2c 20 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 ┆ut (.w3., w0, w1, w2:=0); ┆
0x154e0…154fc 20 20 20 20 20 20 20 20 20 20 63 68 65 63 6b 64 65 76 69 63 65 20 28 2e 77 33 2e 2c ┆ checkdevice (.w3.,┆
0x154fc…15502 (0x450,0x2ab)
0x15502…15520 20 77 30 2c 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 ┆ w0, w1:=b.userentry); ┆
0x15520…15540 20 20 20 20 20 20 20 20 20 62 2e 70 61 73 73 6d 6f 64 65 3a 3d 20 77 30 3b 20 20 20 21 20 30 20 ┆ b.passmode:= w0; ! 0 ┆
0x15540…15560 3d 20 63 6f 6e 73 6f 6c 65 20 28 64 65 76 69 63 65 6e 6f 3d 32 29 0a 20 20 20 20 20 20 20 20 20 ┆= console (deviceno=2) ┆
0x15560…1557a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1557a…15580 (0x450,0x2ac)
0x15580…155a0 20 20 32 20 3d 20 6f 74 68 65 72 20 74 65 72 6d 69 6e 61 6c 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ 2 = other terminal ! ┆
0x155a0…155c0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 72 65 6c 3b 0a 20 ┆ w0:= (w1).bufrel; ┆
0x155c0…155e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ -(w0); ┆
0x155e0…15600 20 20 20 20 20 20 73 65 6e 64 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 00 00 00 00 00 00 00 00 ┆ send (.w3., w0, w1 ┆
0x15600…15606 (171,) (0x450,0x2ad)
0x15606…15620 2c 20 77 32 3a 3d 32 30 34 38 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆, w2:=20480); ┆
0x15620…15640 20 20 20 20 28 77 31 29 2e 62 75 66 72 65 6c 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 72 ┆ (w1).bufrel:= w0:= (w1).bufr┆
0x15640…15660 65 6c 20 2b 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 30 29 3b 0a 20 ┆el + 8; -(w0); ┆
0x15660…1567e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a ┆ (w1).buflength:┆
0x1567e…15684 (0x450,0x2ae)
0x15684…156a0 3d 20 77 33 3a 3d 20 62 2e 6d 61 78 62 75 66 20 2d 20 28 77 31 29 2e 62 75 66 72 65 ┆= w3:= b.maxbuf - (w1).bufre┆
0x156a0…156c0 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 20 28 2e 77 33 2e 2c 20 77 ┆l; send (.w3., w┆
0x156c0…156e0 30 2c 20 77 31 2c 20 77 32 3a 3d 31 32 32 38 38 2b 62 2e 70 61 73 73 6d 6f 64 65 29 3b 0a 20 20 ┆0, w1, w2:=12288+b.passmode); ┆
0x156e0…156fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 61 ┆ ! rea┆
0x156fc…15702 (0x450,0x2af)
0x15702…15720 64 20 70 61 73 73 77 6f 72 64 20 77 69 74 68 6f 75 74 20 65 63 68 6f 2c 20 6d 6f 64 65 3d ┆d password without echo, mode=┆
0x15720…15740 32 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 ┆2 ! link(.w3.,w1┆
0x15740…15760 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 ┆,w2:=address(b.waitqfst)); ┆
0x15760…1577a 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 62 2e ┆ w3:= address(b.┆
0x1577a…15780 (0x450,0x2b0)
0x15780…157a0 75 73 65 72 63 61 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆usercat); monito┆
0x157a0…157c0 72 28 31 30 29 3b 20 21 20 72 65 6c 65 61 73 65 20 75 73 65 72 63 61 74 20 21 0a 20 20 20 20 20 ┆r(10); ! release usercat ! ┆
0x157c0…157e0 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 ┆ goto b.continue; ┆
0x157e0…15800 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x15800…15806 (172,) (0x450,0x2b1)
0x15806…15820 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 ┆ end; compar┆
0x15820…15840 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6e 65 77 70 61 73 73 ┆e(.w3.,w0:=8,w1:=address(newpass┆
0x15840…15860 29 2c 77 32 2b 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 ┆),w2+8); if w0 <> 0 ┆
0x15860…1587e 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 ┆then begin ┆
0x1587e…15884 (0x450,0x2b2)
0x15884…158a0 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 ┆ compare(.w3.,w0:=8,w1┆
0x158a0…158c0 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆:=address(emptytext),w2); ┆
0x158c0…158e0 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w0 <> 0 then ┆
0x158e0…158fc 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 32 37 3b 0a 20 20 20 20 20 20 ┆ begin !test 27; ┆
0x158fc…15902 (0x450,0x2b3)
0x15902…15920 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 ┆ outtext(.w3.,w0:=8'3┆
0x15920…15940 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e ┆1,w1:=b.userentry,w2:=2); ! syn┆
0x15940…15960 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b ┆tax ! goto exit;┆
0x15960…1597a 0a 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 ┆ end; ┆
0x1597a…15980 (0x450,0x2b4)
0x15980…159a0 20 20 20 20 20 20 20 20 77 32 3a 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 ┆ w2:=0; ! r┆
0x159a0…159c0 65 77 72 69 74 65 3a 3d 20 66 61 6c 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ewrite:= false ! end┆
0x159c0…159e0 20 65 6c 73 65 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 ┆ else begin ┆
0x159e0…15a00 20 20 20 20 20 20 77 31 3a 3d 77 32 2b 38 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w1:=w2+8; ┆
0x15a00…15a06 (173,) (0x450,0x2b5)
0x15a06…15a20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 20 3c 20 30 ┆ if w0:=(w1).word < 0┆
0x15a20…15a40 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 0a 21 74 65 73 74 20 ┆ then begin !test ┆
0x15a40…15a60 32 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e ┆28; outtext(.w3.┆
0x15a60…15a7e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d ┆,w0:=8'31,w1:=b.userentry,w2:=┆
0x15a7e…15a84 (0x450,0x2b6)
0x15a84…15aa0 32 29 3b 20 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆2); ! syntax ! ┆
0x15aa0…15ac0 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ goto exit; en┆
0x15ac0…15ae0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 ┆d; copy(.w3.,w0:=8┆
0x15ae0…15afc 2c 77 31 3a 3d 77 32 2b 38 2c 77 32 3a 3d 70 61 73 73 77 6f 72 64 29 3b 0a 20 20 20 ┆,w1:=w2+8,w2:=password); ┆
0x15afc…15b02 (0x450,0x2b7)
0x15b02…15b20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2:=1; ┆
0x15b20…15b40 20 20 21 20 72 65 77 72 69 74 65 3a 3d 20 74 72 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ! rewrite:= true ! ┆
0x15b40…15b60 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 65 78 69 74 3a 0a 20 ┆ end; w1:=0; exit: ┆
0x15b60…15b7a 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 ┆ w3:=return; ┆
0x15b7a…15b80 (0x450,0x2b8)
0x15b80…15ba0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 21 20 20 63 ┆ end; end; ! c┆
0x15ba0…15bc0 68 65 63 6b 70 72 6f 74 20 20 21 0a 0c 0a 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 ┆heckprot ! body of┆
0x15bc0…15be0 20 63 68 65 63 6b 64 65 76 69 63 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ checkdevice begin ┆
0x15be0…15c00 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ incode ┆
0x15c00…15c06 (174,) (0x450,0x2b9)
0x15c06…15c20 64 6f 75 62 6c 65 20 77 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆double w12; wo┆
0x15c20…15c40 72 64 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆rd return; begin ┆
0x15c40…15c60 20 20 20 20 20 20 20 77 31 32 3a 3d 20 66 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 ┆ w12:= f2; ret┆
0x15c60…15c7e 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 37 34 3b 20 ┆urn:= w3; w3:=74; ┆
0x15c7e…15c84 (0x450,0x2ba)
0x15c84…15ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 66 20 74 6f 20 6e 61 6d 65 ┆ ! ref to name┆
0x15ca0…15cc0 20 74 61 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 33 29 2e 77 6f ┆ table ! w3:=(w3).wo┆
0x15cc0…15ce0 72 64 2b 34 3b 20 20 20 20 20 20 20 21 20 72 65 66 20 74 6f 20 70 72 6f 63 2e 64 65 73 63 72 2e ┆rd+4; ! ref to proc.descr.┆
0x15ce0…15cfc 20 6f 66 20 64 65 76 69 63 65 20 32 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ of device 2 ! w┆
0x15cfc…15d02 (0x450,0x2bb)
0x15d02…15d20 32 3a 3d 28 77 33 29 2e 77 6f 72 64 2b 32 3b 20 20 20 20 20 20 20 21 20 20 2d 20 20 2d 20 ┆2:=(w3).word+2; ! - - ┆
0x15d20…15d40 20 20 20 2d 20 20 6e 61 6d 65 20 20 20 2d 20 20 20 20 20 2d 20 20 20 20 20 21 0a 20 20 20 20 20 ┆ - name - - ! ┆
0x15d40…15d60 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3b 0a 20 20 20 20 ┆ w1:=(w1).peripheral; ┆
0x15d60…15d7a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 20 2d 28 77 31 29 ┆ if w1<0 then -(w1)┆
0x15d7a…15d80 (0x450,0x2bc)
0x15d80…15da0 3b 20 20 20 20 21 20 72 65 66 20 74 6f 20 70 72 6f 63 2e 64 65 73 63 72 2e 20 6f 66 20 74 65 72 ┆; ! ref to proc.descr. of ter┆
0x15da0…15dc0 6d 69 6e 61 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 3b 20 20 20 20 20 20 20 ┆minal ! w1+2; ┆
0x15dc0…15de0 20 20 20 20 20 20 20 20 20 20 20 21 20 20 2d 20 20 2d 20 20 20 20 2d 20 20 6e 61 6d 65 20 20 20 ┆ ! - - - name ┆
0x15de0…15e00 2d 20 20 20 20 20 2d 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆- - ! ┆
0x15e00…15e06 (175,) (0x450,0x2bd)
0x15e06…15e20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 20 77 30 3a 3d 38 2c 20 77 31 2c ┆ compare(.w3., w0:=8, w1,┆
0x15e20…15e40 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 ┆ w2); if w0<>0 then ┆
0x15e40…15e60 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 32 3a 3d 77 31 32 3b 0a 20 20 20 20 ┆w0:=2; f2:=w12; ┆
0x15e60…15e7e 20 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w3:=return; ┆
0x15e7e…15e84 (0x450,0x2be)
0x15e84…15ea0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 63 68 65 63 ┆end; end; ! chec┆
0x15ea0…15ec0 6b 64 65 76 69 63 65 20 21 0a 0a 0a 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 21 20 20 6c 6f 67 ┆kdevice ! end; ! log┆
0x15ec0…15ee0 69 6e 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 6f 75 74 ┆in ! body of out┆
0x15ee0…15efc 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 61 62 ┆ begin lab┆
0x15efc…15f02 (0x450,0x2bf)
0x15f02…15f20 65 6c 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 20 63 6f ┆el return; record co┆
0x15f20…15f40 6e 74 5f 61 6e 73 20 28 20 77 6f 72 64 20 73 74 61 74 2c 6c 5f 69 64 2c 70 65 72 69 66 2c 62 75 ┆nt_ans ( word stat,l_id,perif,bu┆
0x15f40…15f60 66 74 69 6d 65 72 2c 70 6f 6f 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 ┆ftimer,pool); incode ┆
0x15f60…15f7a 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 ┆ word savew0; ┆
0x15f7a…15f80 (0x450,0x2c0)
0x15f80…15fa0 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 ┆ double savef3; ┆
0x15fa0…15fc0 20 20 20 20 20 62 79 74 65 20 74 65 6d 6f 70 2c 74 65 6d 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 ┆ byte temop,temmode:=0; ┆
0x15fc0…15fe0 20 20 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 ┆ ref first,last; ┆
0x15fe0…16000 20 20 20 20 77 6f 72 64 20 73 69 6d 6c 6f 63 69 64 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ word simlocid; ┆
0x16000…16006 (176,) (0x450,0x2c1)
0x16006…16020 20 20 20 20 20 20 20 74 65 78 74 28 32 38 29 20 73 69 6d 74 78 74 3a 3d 22 27 ┆ text(28) simtxt:="'┆
0x16020…16040 32 27 27 32 27 20 6f 75 74 20 20 20 27 31 30 27 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆2''2' out '10'"; a┆
0x16040…16060 72 72 61 79 28 31 3a 38 29 20 61 6e 73 77 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆rray(1:8) answ of word; ┆
0x16060…1607e 20 20 20 20 74 65 78 74 28 31 34 29 20 65 6d 70 74 79 74 65 78 74 3a 3d 22 22 2c 6e 61 6d ┆ text(14) emptytext:="",nam┆
0x1607e…16084 (0x450,0x2c2)
0x16084…160a0 65 62 75 66 3a 3d 22 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 6f ┆ebuf:=""; byte o┆
0x160a0…160c0 70 31 3a 3d 31 30 36 2c 6d 6f 64 65 31 3a 3d 30 3b 20 20 21 20 6c 6f 6f 6b 75 70 20 74 65 72 6d ┆p1:=106,mode1:=0; ! lookup term┆
0x160c0…160e0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 63 69 64 2c 70 65 72 69 3b 0a ┆ ! word locid,peri; ┆
0x160e0…160fc 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 ┆ begin ┆
0x160fc…16102 (0x450,0x2c3)
0x16102…16120 73 61 76 65 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 66 ┆savew0:= w0; savef┆
0x16120…16140 33 3a 3d 20 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e ┆3:= f3; compare(.w3.┆
0x16140…16160 2c 77 30 3a 3d 38 2c 77 31 2b 38 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 ┆,w0:=8,w1+8,w2:=address(emptytex┆
0x16160…1617a 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 ┆t)); if w0<>0 ┆
0x1617a…16180 (0x450,0x2c4)
0x16180…161a0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 32 39 3b ┆then begin !test 29;┆
0x161a0…161c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d ┆ outtext(.w3.,w0:=┆
0x161c0…161e0 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 ┆8'31,w1:=b.userentry,w2:=2); ! ┆
0x161e0…16200 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 00 00 00 00 00 00 00 00 ┆syntax ! g ┆
0x16200…16206 (177,) (0x450,0x2c5)
0x16206…16220 6f 74 6f 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆oto return; en┆
0x16220…16240 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 3a 3d 62 2e 75 73 65 72 ┆d; w0:= (w1:=b.user┆
0x16240…16260 65 6e 74 72 79 29 2e 70 65 72 69 70 68 65 72 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 ┆entry).peripheral; p┆
0x16260…1627e 65 72 69 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 ┆eri:=w0; w1:= addr┆
0x1627e…16284 (0x450,0x2c6)
0x16284…162a0 65 73 73 28 6f 70 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 ┆ess(op1); w3:= a┆
0x162a0…162c0 64 64 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ddress(b.t_mdul); mo┆
0x162c0…162e0 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 ┆nitor(16); ! send message ! ┆
0x162e0…162fc 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 ┆ w1:= b.lastuser; ┆
0x162fc…16302 (0x450,0x2c7)
0x16302…16320 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 ┆ monitor(18); ! wait┆
0x16320…16340 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 28 ┆ answer ! if w0 or (┆
0x16340…16360 77 31 29 2e 73 74 61 74 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆w1).stat<>1 then beg┆
0x16360…1637a 69 6e 20 21 20 74 65 72 6d 69 6e 61 6c 20 6e 6f 74 20 6b 6e 6f 77 6e 20 21 0a ┆in ! terminal not known ! ┆
0x1637a…16380 (0x450,0x2c8)
0x16380…163a0 21 74 65 73 74 20 33 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 ┆!test 30; outtext(┆
0x163a0…163c0 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 ┆.w3.,w0:=8'31,w1:=b.userentry,w2┆
0x163c0…163e0 3a 3d 31 34 29 3b 20 20 21 20 6e 6f 74 20 63 6f 6e 6e 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 ┆:=14); ! not connected ! ┆
0x163e0…16400 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ goto return; ┆
0x16400…16406 (178,) (0x450,0x2c9)
0x16406…16420 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 ┆ end; ┆
0x16420…16440 6c 6f 63 69 64 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 6c 5f 69 64 3b 0a 20 20 20 20 20 20 20 20 ┆locid:= w0:= (w1).l_id; ┆
0x16440…16460 20 20 20 20 73 69 6d 6c 6f 63 69 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f ┆ simlocid:=w0; co┆
0x16460…1647e 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 31 29 2e 70 6f 6f 6c 2b 32 2c ┆py(.w3.,w0:=8,w1:=(w1).pool+2,┆
0x1647e…16484 (0x450,0x2ca)
0x16484…164a0 77 32 3a 3d 61 64 64 72 65 73 73 28 6e 61 6d 65 62 75 66 29 29 3b 0a 20 20 20 20 20 ┆w2:=address(namebuf)); ┆
0x164a0…164c0 20 20 20 20 20 20 20 74 65 6d 6f 70 3a 3d 77 30 3a 3d 39 3b 20 20 20 20 21 20 73 69 6d 75 6c 61 ┆ temop:=w0:=9; ! simula┆
0x164c0…164e0 74 65 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 3a 3d 77 30 ┆te input ! first:=w0┆
0x164e0…164fc 3a 3d 61 64 64 72 65 73 73 28 73 69 6d 6c 6f 63 69 64 29 3b 0a 20 20 20 20 20 20 20 ┆:=address(simlocid); ┆
0x164fc…16502 (0x450,0x2cb)
0x16502…16520 20 20 20 20 20 77 30 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 77 ┆ w0+8; last:=w┆
0x16520…16540 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 6d 6f 70 ┆0; w1:=address(temop┆
0x16540…16560 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 6e 61 6d 65 62 ┆); w3:=address(nameb┆
0x16560…1657a 75 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 ┆uf); monitor(1┆
0x1657a…16580 (0x450,0x2cc)
0x16580…165a0 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆6); ! send message ! ┆
0x165a0…165c0 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆ answ(w1:=1); monit┆
0x165c0…165e0 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 21 74 65 73 74 20 39 ┆or(18); ! wait answer ! !test 9┆
0x165e0…16600 30 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 31 3a 3d 77 30 3a 00 00 00 00 00 00 00 00 ┆01; op1:=w0: ┆
0x16600…16606 (179,) (0x450,0x2cd)
0x16606…16620 3d 31 30 32 3b 20 20 21 20 72 65 6d 6f 76 65 20 6c 69 6e 6b 20 28 73 6f 66 74 ┆=102; ! remove link (soft┆
0x16620…16640 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 ┆) ! w1:=address(op1)┆
0x16640…16660 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 ┆; monitor(16); ! se┆
0x16660…1667e 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 28 ┆nd message ! answ(┆
0x1667e…16684 (0x450,0x2ce)
0x16684…166a0 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆w1:=1); monitor(┆
0x166a0…166c0 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 21 74 65 73 74 20 33 31 3b 0a ┆18); ! wait answer ! !test 31; ┆
0x166c0…166e0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 3d ┆ if w0 or (w1).word =┆
0x166e0…166fc 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 6f 75 74 74 65 78 74 28 ┆ 1 then outtext(┆
0x166fc…16702 (0x450,0x2cf)
0x16702…16720 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 30 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c ┆.w3.,w0:=8'30,w1:=b.userentry,┆
0x16720…16740 77 32 3a 3d 31 32 29 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 ┆w2:=12) ! terminal disconnected┆
0x16740…16760 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6f 75 74 74 65 78 74 28 2e 77 33 2e ┆ ! else outtext(.w3.┆
0x16760…1677a 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c ┆,w0:=8'31,w1:=b.userentry,┆
0x1677a…16780 (0x450,0x2d0)
0x16780…167a0 77 32 3a 3d 31 36 29 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 74 20 6f 6b 20 ┆w2:=16); ! disconnection not ok ┆
0x167a0…167c0 21 0a 72 65 74 75 72 6e 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 73 61 76 65 77 ┆! return: w0:= savew┆
0x167c0…167e0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 20 73 61 76 65 66 33 3b 0a 20 20 20 20 ┆0; f3:= savef3; ┆
0x167e0…16800 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 00 00 00 00 00 00 00 00 ┆ end; end; ┆
0x16800…16806 (180,) (0x450,0x2d1)
0x16806…16820 21 20 6f 75 74 20 21 0a 0c 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 6f ┆! out ! body o┆
0x16820…16840 66 20 63 6f 6e 74 72 6f 6c 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆f control begin ┆
0x16840…16860 20 20 6c 61 62 65 6c 20 65 72 72 6f 72 2c 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ label error,found; i┆
0x16860…1687e 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 73 74 72 69 6e 67 31 2c ┆ncode ref string1,┆
0x1687e…16884 (0x450,0x2d2)
0x16884…168a0 73 74 72 69 6e 67 32 2c 73 74 72 69 6e 67 33 2c 73 74 72 69 6e 67 34 3b 0a 20 20 20 ┆string2,string3,string4; ┆
0x168a0…168c0 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 73 61 76 65 77 31 3b 0a 20 20 20 ┆ word savew0,savew1; ┆
0x168c0…168e0 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 ┆ double savef3; ┆
0x168e0…168fc 20 20 20 20 74 65 78 74 28 31 31 29 20 65 6d 70 74 79 74 65 78 74 3a 3d 22 22 2c 61 ┆ text(11) emptytext:="",a┆
0x168fc…16902 (0x450,0x2d3)
0x16902…16920 6c 6c 3a 3d 22 61 6c 6c 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 74 65 ┆ll:="all"; byte te┆
0x16920…16940 6d 6f 70 2c 74 65 6d 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f ┆mop,temmode; word lo┆
0x16940…16960 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 65 72 6d 70 64 61 3b 0a ┆calid; ref termpda; ┆
0x16960…1697a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 62 75 66 73 2c 74 69 6d 65 ┆ byte bufs,time┆
0x1697a…16980 (0x450,0x2d4)
0x16980…169a0 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 70 6f 6f 6c 70 64 61 3b 0a 20 20 20 ┆rs; ref poolpda; ┆
0x169a0…169c0 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 72 65 63 66 75 6c 6c 2c 62 79 74 65 73 66 72 65 65 2c ┆ word recfull,bytesfree,┆
0x169c0…169e0 64 75 6d 6d 79 2c 61 6c 6c 63 6f 6d 6d 61 6e 64 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆dummy,allcommand:=0; ┆
0x169e0…16a00 20 62 79 74 65 20 73 74 6f 70 6f 70 3a 3d 31 36 2c 73 74 6f 70 6d 6f 64 00 00 00 00 00 00 00 00 ┆ byte stopop:=16,stopmod ┆
0x16a00…16a06 (181,) (0x450,0x2d5)
0x16a06…16a20 65 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 32 30 29 ┆e:=1; text(20)┆
0x16a20…16a40 20 73 74 6f 70 74 78 74 3a 3d 22 73 79 73 74 65 6d 20 63 6c 6f 73 65 64 22 3b 0a 20 20 20 20 20 ┆ stoptxt:="system closed"; ┆
0x16a40…16a60 20 20 20 20 20 20 20 62 79 74 65 20 65 6d 70 6f 70 3a 3d 31 36 2c 65 6d 70 6d 6f 64 65 3a 3d 30 ┆ byte empop:=16,empmode:=0┆
0x16a60…16a7e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 32 30 29 20 65 6d 70 74 78 74 3a ┆; text(20) emptxt:┆
0x16a7e…16a84 (0x450,0x2d6)
0x16a84…16aa0 3d 22 73 79 73 74 65 6d 20 65 6d 70 74 79 22 3b 0a 20 20 20 20 20 20 20 20 20 20 62 ┆="system empty"; b┆
0x16aa0…16ac0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3b 20 20 21 20 ┆egin savew0:=w0; ! ┆
0x16ac0…16ae0 63 6f 6e 74 72 6f 6c 20 6f 70 65 72 61 74 69 6f 6e 3a 20 20 31 3d 6b 69 6c 6c 20 20 20 20 20 2d ┆control operation: 1=kill -┆
0x16ae0…16afc 31 3d 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1=lock ┆
0x16afc…16b02 (0x450,0x2d7)
0x16b02…16b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 3d 62 72 ┆ 2=br┆
0x16b20…16b40 65 61 6b 20 20 20 20 2d 32 3d 6f 70 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eak -2=open ┆
0x16b40…16b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 3d ┆ 3=┆
0x16b60…16b7a 73 74 6f 70 20 20 20 20 20 2d 33 3d 68 61 6c 74 0a 20 20 20 20 20 20 20 20 20 ┆stop -3=halt ┆
0x16b7a…16b80 (0x450,0x2d8)
0x16b80…16ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16ba0…16bc0 20 20 20 20 20 20 34 3d 73 74 61 72 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ 4=start ! ┆
0x16bc0…16be0 20 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ savef3:=f3; ┆
0x16be0…16c00 20 73 74 72 69 6e 67 31 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ string1:=w1; w1+8; ┆
0x16c00…16c06 (182,) (0x450,0x2d9)
0x16c06…16c20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 32 3a 3d 77 31 3b 20 77 31 2b 38 3b ┆ string2:=w1; w1+8;┆
0x16c20…16c40 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 33 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a ┆ string3:=w1; w1+8; ┆
0x16c40…16c60 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 34 3a 3d 77 31 3b 0a 21 74 65 73 74 20 37 ┆ string4:=w1; !test 7┆
0x16c60…16c7e 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e ┆00; w1:=address(b.┆
0x16c7e…16c84 (0x450,0x2da)
0x16c84…16ca0 6f 70 65 72 61 74 6f 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 73 ┆operator); w2:=s┆
0x16ca0…16cc0 74 72 69 6e 67 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e ┆tring2; compare(.w3.┆
0x16cc0…16ce0 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆,w0:=8,w1,w2); if w0┆
0x16ce0…16cfc 3c 3e 30 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 ┆<>0 then begin ┆
0x16cfc…16d02 (0x450,0x2db)
0x16d02…16d20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 ┆ w1:=address(empty┆
0x16d20…16d40 74 65 78 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 ┆text); compare(.w3┆
0x16d40…16d60 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆.,w0:=8,w1,w2); if┆
0x16d60…16d7a 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0<>0 then ┆
0x16d7a…16d80 (0x450,0x2dc)
0x16d80…16da0 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 ┆begin compare(.w┆
0x16da0…16dc0 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 73 74 72 69 6e 67 33 29 3b 0a 20 20 20 20 20 20 ┆3.,w0:=8,w1,w2:=string3); ┆
0x16dc0…16de0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w0 <> 0 then ┆
0x16de0…16e00 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 33 00 00 00 00 00 00 00 00 ┆ begin !test 33 ┆
0x16e00…16e06 (183,) (0x450,0x2dd)
0x16e06…16e20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 ┆; outtex┆
0x16e20…16e40 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c ┆t(.w3.,w0:=8'31,w1:=b.userentry,┆
0x16e40…16e60 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w2:=2); ! syntax ! ┆
0x16e60…16e7e 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto error; ┆
0x16e7e…16e84 (0x450,0x2de)
0x16e84…16ea0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a ┆ end; w3:┆
0x16ea0…16ec0 3d 73 74 72 69 6e 67 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆=string2; monito┆
0x16ec0…16ee0 72 28 34 29 3b 20 20 21 20 67 65 74 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e ┆r(4); ! get process description┆
0x16ee0…16efc 20 21 0a 21 74 65 73 74 20 39 39 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! !test 995; ┆
0x16efc…16f02 (0x450,0x2df)
0x16f02…16f20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w0 = 0 then ┆
0x16f20…16f40 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin !test 34; ┆
0x16f40…16f60 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 ┆ outtext(.w3.,w0:=8'31,w1:=b┆
0x16f60…16f7a 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 35 29 3b 20 20 21 20 70 72 6f ┆.userentry,w2:=15); ! pro┆
0x16f7a…16f80 (0x450,0x2e0)
0x16f80…16fa0 63 65 73 73 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cess unknown ! ┆
0x16fa0…16fc0 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ goto error; end┆
0x16fc0…16fe0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 6c 61 73 74 75 73 65 72 ┆; w1:=b.lastuser┆
0x16fe0…17000 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 00 00 00 00 00 00 00 00 ┆; w3:=b. ┆
0x17000…17006 (184,) (0x450,0x2e1)
0x17006…17020 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆userentry; ┆
0x17020…17040 20 77 68 69 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 20 3e 3d 20 ┆ while w1-!length(userentry) >= ┆
0x17040…17060 62 2e 66 69 72 73 74 75 73 65 72 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆b.firstuser do b┆
0x17060…1707e 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d ┆egin if w0 =┆
0x1707e…17084 (0x450,0x2e2)
0x17084…170a0 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ (w1).internal then ┆
0x170a0…170c0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 70 72 69 6d 64 65 76 69 20 3d ┆ if w2:=(w1).primdevi =┆
0x170c0…170e0 20 28 77 33 29 2e 70 65 72 69 70 68 65 72 61 6c 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 ┆ (w3).peripheral then goto found┆
0x170e0…170fc 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 74 65 73 74 ┆; end; !test┆
0x170fc…17102 (0x450,0x2e3)
0x17102…17120 20 33 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e ┆ 35; outtext(.┆
0x17120…17140 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a ┆w3.,w0:=8'31,w1:=b.userentry,w2:┆
0x17140…17160 3d 31 35 29 3b 20 20 21 20 70 72 6f 63 65 73 73 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 20 20 ┆=15); ! process unknown ! ┆
0x17160…1717a 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 ┆ goto error; ┆
0x1717a…17180 (0x450,0x2e4)
0x17180…171a0 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 20 20 21 20 ┆ end; ! ┆
0x171a0…171c0 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 20 21 0a 20 20 20 ┆controlled by own terminal ! ┆
0x171c0…171e0 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 ┆ w1:=b.userentry; ┆
0x171e0…17200 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 00 00 00 00 00 00 00 00 ┆ if w0:=(w1).st ┆
0x17200…17206 (185,) (0x450,0x2e5)
0x17206…17220 61 74 65 20 3d 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ate = -1 then ┆
0x17220…17240 20 20 62 65 67 69 6e 0a 66 6f 75 6e 64 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin found: i┆
0x17240…17260 66 20 77 33 3a 3d 73 61 76 65 77 30 20 3c 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆f w3:=savew0 <= 0 then ┆
0x17260…1727e 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 36 3b 0a 20 20 20 20 20 20 20 ┆ begin !test 36; ┆
0x1727e…17284 (0x450,0x2e6)
0x17284…172a0 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d ┆ outtext(.w3.,w0:=┆
0x172a0…172c0 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 37 29 3b 20 20 21 20 ┆8'31,w1:=b.userentry,w2:=7); ! ┆
0x172c0…172e0 66 6f 72 62 69 64 64 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 ┆forbidden ! li┆
0x172e0…172fc 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 ┆nk(.w3.,w1,w2:=address(b.act┆
0x172fc…17302 (0x450,0x2e7)
0x17302…17320 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆ivqfst)); w1┆
0x17320…17340 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 ┆:= -1; goto er┆
0x17340…17360 72 6f 72 3b 0a 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 ┆ror; end; ┆
0x17360…1737a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 33 3a 3d 73 61 76 65 77 30 20 ┆ case w3:=savew0 ┆
0x1737a…17380 (0x450,0x2e8)
0x17380…173a0 6f 66 0a 20 20 20 20 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 ┆of begin ┆
0x173a0…173c0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 75 73 65 72 20 6b 69 6c 6c 20 21 0a ┆ begin ! user kill ! ┆
0x173c0…173e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 65 ┆ (w1).interve┆
0x173e0…17400 6e 74 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆nt:=w0:=3; ┆
0x17400…17406 (186,) (0x450,0x2e9)
0x17406…17420 20 20 20 20 20 20 20 63 6c 65 61 6e 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 ┆ clean(.w3.,w1); ┆
0x17420…17440 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 20 ┆ end; ┆
0x17440…17460 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 75 73 65 72 20 62 72 65 61 6b 20 21 0a 20 20 20 20 ┆ begin ! user break ! ┆
0x17460…1747e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 28 2e 77 33 2e 2c 77 31 29 ┆ break(.w3.,w1)┆
0x1747e…17484 (0x450,0x2ea)
0x17484…174a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a ┆; if w3:┆
0x174a0…174c0 3d 20 62 2e 73 79 73 63 6f 6e 64 20 7a 65 72 6f 6d 61 73 6b 20 32 27 30 31 30 20 74 68 65 6e 0a ┆= b.syscond zeromask 2'010 then ┆
0x174c0…174e0 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 0a 20 20 20 20 20 20 ┆ begin ┆
0x174e0…174fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 20 28 77 31 29 ┆ if w3:= (w1)┆
0x174fc…17502 (0x450,0x2eb)
0x17502…17520 2e 70 65 72 69 70 68 65 72 61 6c 3e 30 20 74 68 65 6e 20 77 30 3a 3d 20 2d 31 0a 20 20 20 ┆.peripheral>0 then w0:= -1 ┆
0x17520…17540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 20 37 3b 0a ┆ else w0:= 7; ┆
0x17540…17560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 30 3a ┆ end else w0:┆
0x17560…1757a 3d 20 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆= 7; (┆
0x1757a…17580 (0x450,0x2ec)
0x17580…175a0 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w1).intervent:=w0; ┆
0x175a0…175c0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end; begi┆
0x175c0…175e0 6e 20 20 21 20 73 74 6f 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n ! stop ! ┆
0x175e0…17600 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 00 00 00 00 00 00 00 00 ┆link(.w3.,w1,w2:=address ┆
0x17600…17606 (187,) (0x450,0x2ed)
0x17606…17620 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(b.waitqfst)); ┆
0x17620…17640 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 20 3e 20 31 ┆ if w0:=(w1).messgot > 1┆
0x17640…17660 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆0 then begin┆
0x17660…1767e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 ┆ (w1).bu┆
0x1767e…17684 (0x450,0x2ee)
0x17684…176a0 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆flength:=w2:=0; ┆
0x176a0…176c0 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 29 ┆ send(.w3.,w0:=1,w1,w2)┆
0x176c0…176e0 3b 0a 20 20 20 20 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 ┆; end; ┆
0x176e0…176fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 ┆ (w1).messsend┆
0x176fc…17702 (0x450,0x2ef)
0x17702…17720 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆:=w0; (w1)┆
0x17720…17740 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.state:=w0:=0; ┆
0x17740…17760 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 ┆ end; begin !┆
0x17760…1777a 20 73 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ start ! ┆
0x1777a…17780 (0x450,0x2f0)
0x17780…177a0 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 ┆ link(.w3.,w1,w2:=address(b.ac┆
0x177a0…177c0 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆tivqfst)); i┆
0x177c0…177e0 66 20 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 ┆f w0:=(w1).messgot > 10 then ┆
0x177e0…17800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x17800…17806 (188,) (0x450,0x2f1)
0x17806…17820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆ (w1).┆
0x17820…17840 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆buflength:=w2:=0; ┆
0x17840…17860 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a ┆ send(.w3.,w0:=1,w1,w2); ┆
0x17860…1787e 20 20 20 20 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 ┆ end; ┆
0x1787e…17884 (0x450,0x2f2)
0x17884…178a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 ┆ (w1).messsend┆
0x178a0…178c0 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 ┆:=w0; (w1).s┆
0x178c0…178e0 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆tate:=w0:=0; e┆
0x178e0…178fc 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆nd; end; ┆
0x178fc…17902 (0x450,0x2f3)
0x17902…17920 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w1:=-1; ┆
0x17920…17940 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto error; ┆
0x17940…17960 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6f 70 3a 3d 77 30 3a 3d 31 ┆ end; temop:=w0:=1┆
0x17960…1797a 30 36 3b 20 20 20 21 20 6c 6f 6f 6b 75 70 20 74 65 72 6d 69 6e 61 6c 20 21 0a ┆06; ! lookup terminal ! ┆
0x1797a…17980 (0x450,0x2f4)
0x17980…179a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6d 6f 64 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 ┆ temmode:=w0:=0; ┆
0x179a0…179c0 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 70 64 61 3a 3d 77 30 3a 3d 28 77 31 3a 3d 62 2e ┆ termpda:=w0:=(w1:=b.┆
0x179c0…179e0 75 73 65 72 65 6e 74 72 79 29 2e 70 65 72 69 70 68 65 72 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 ┆userentry).peripheral; ┆
0x179e0…17a00 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 6d 6f 70 29 3b 00 00 00 00 00 00 00 00 ┆ w1:=address(temop); ┆
0x17a00…17a06 (189,) (0x450,0x2f5)
0x17a06…17a20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 ┆ w3:=address┆
0x17a20…17a40 28 62 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆(b.t_mdul); monito┆
0x17a40…17a60 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 ┆r(16); ! send message ! ┆
0x17a60…17a7e 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e ┆ monitor(18); ! wait an┆
0x17a7e…17a84 (0x450,0x2f6)
0x17a84…17aa0 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f ┆swer ! if w0 o┆
0x17aa0…17ac0 72 20 28 77 31 29 2e 77 6f 72 64 20 3c 3e 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆r (w1).word <> 1 then ┆
0x17ac0…17ae0 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin !test 37; ┆
0x17ae0…17afc 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 ┆ outtext(.w3.,w0:=8'31,w1┆
0x17afc…17b02 (0x450,0x2f7)
0x17b02…17b20 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 34 29 3b 20 20 21 20 6e 6f 74 20 ┆:=b.userentry,w2:=14); ! not ┆
0x17b20…17b40 63 6f 6e 6e 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆connected ! goto┆
0x17b40…17b60 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ error; end; ┆
0x17b60…17b7a 20 20 20 20 20 20 20 20 20 77 30 3a 3d 70 6f 6f 6c 70 64 61 3b 0a 20 20 20 20 ┆ w0:=poolpda; ┆
0x17b7a…17b80 (0x450,0x2f8)
0x17b80…17ba0 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 66 69 72 73 74 75 73 65 72 2d 21 6c 65 6e 67 74 ┆ w1:=b.firstuser-!lengt┆
0x17ba0…17bc0 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c ┆h(userentry); whil┆
0x17bc0…17be0 65 20 77 31 2b 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 20 3c 20 62 2e 6c 61 73 74 ┆e w1+!length(userentry) < b.last┆
0x17be0…17c00 75 73 65 72 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆user do be ┆
0x17c00…17c06 (190,) (0x450,0x2f9)
0x17c06…17c20 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 ┆gin if w0 ┆
0x17c20…17c40 3d 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e ┆= (w1).peripheral then goto foun┆
0x17c40…17c60 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 74 65 73 74 20 33 38 3b 0a ┆d; end; !test 38; ┆
0x17c60…17c7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a ┆ outtext(.w3.,w0:┆
0x17c7e…17c84 (0x450,0x2fa)
0x17c84…17ca0 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 35 ┆=8'31,w1:=b.userentry,w2:=15┆
0x17ca0…17cc0 29 3b 20 20 21 20 70 72 6f 63 65 73 73 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 20 20 20 20 20 ┆); ! process unknown ! ┆
0x17cc0…17ce0 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ goto error; en┆
0x17ce0…17cfc 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 ┆d else begin ┆
0x17cfc…17d02 (0x450,0x2fb)
0x17d02…17d20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 6f 70 65 ┆ ! controlled by ope┆
0x17d20…17d40 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 ┆rator ! if w0:=(w1┆
0x17d40…17d60 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 2e 70 65 72 69 70 68 65 72 61 6c 20 3c 3e 20 62 2e 6d ┆:=b.userentry).peripheral <> b.m┆
0x17d60…17d7a 61 69 6e 63 6f 6e 73 72 65 66 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ainconsref then ┆
0x17d7a…17d80 (0x450,0x2fc)
0x17d80…17da0 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin !test 39; ┆
0x17da0…17dc0 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 2c 77 32 3a ┆ outtext(.w3.,w0:=8'31,w1,w2:┆
0x17dc0…17de0 3d 37 29 3b 20 20 21 20 66 6f 72 62 69 64 64 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆=7); ! forbidden ! ┆
0x17de0…17e00 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ goto error; ┆
0x17e00…17e06 (191,) (0x450,0x2fd)
0x17e06…17e20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ end; w┆
0x17e20…17e40 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆1:=address(emptytext); ┆
0x17e40…17e60 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 73 ┆ compare(.w3.,w0:=8,w1,w2:=s┆
0x17e60…17e7e 74 72 69 6e 67 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c ┆tring4); if w0 <┆
0x17e7e…17e84 (0x450,0x2fe)
0x17e84…17ea0 3e 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 ┆> 0 then begin┆
0x17ea0…17ec0 0a 21 74 65 73 74 20 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 ┆ !test 40; outte┆
0x17ec0…17ee0 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 ┆xt(.w3.,w0:=8'31,w1:=b.userentry┆
0x17ee0…17efc 2c 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 ┆,w2:=2); ! syntax ! ┆
0x17efc…17f02 (0x450,0x2ff)
0x17f02…17f20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto error; ┆
0x17f20…17f40 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 ┆ end; if w0:=s┆
0x17f40…17f60 61 76 65 77 30 20 3c 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 ┆avew0 <= 0 then be┆
0x17f60…17f7a 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 ┆gin compar┆
0x17f7a…17f80 (0x450,0x300)
0x17f80…17fa0 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 ┆e(.w3.,w0:=8,w1:=address(emptyte┆
0x17fa0…17fc0 78 74 29 2c 77 32 3a 3d 73 74 72 69 6e 67 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xt),w2:=string3); ┆
0x17fc0…17fe0 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w0 <> 0 then ┆
0x17fe0…18000 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 34 31 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin !test 41; ┆
0x18000…18006 (192,) (0x450,0x301)
0x18006…18020 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 ┆ outtext(.w3.,w┆
0x18020…18040 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 ┆0:=8'31,w1:=b.userentry,w2:=2); ┆
0x18040…18060 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f ┆ ! syntax ! go┆
0x18060…1807e 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆to error; end;┆
0x1807e…18084 (0x450,0x302)
0x18084…180a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 ┆ if w0:=save┆
0x180a0…180c0 77 30 20 3d 20 2d 31 20 74 68 65 6e 20 20 21 20 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 20 20 20 ┆w0 = -1 then ! lock ! ┆
0x180c0…180e0 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 20 20 20 62 ┆ begin b┆
0x180e0…180fc 2e 73 79 73 73 74 61 74 65 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆.sysstate:=w0:=1; ┆
0x180fc…18102 (0x450,0x303)
0x18102…18120 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 ┆ w1:=b.lastuser; ┆
0x18120…18140 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=0; ┆
0x18140…18160 20 20 20 20 20 77 68 69 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 ┆ while w1-!length(userentry)┆
0x18160…1817a 20 3e 3d 20 62 2e 66 69 72 73 74 75 73 65 72 20 64 6f 0a 20 20 20 20 20 20 20 ┆ >= b.firstuser do ┆
0x1817a…18180 (0x450,0x304)
0x18180…181a0 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 ┆
0x181a0…181c0 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 20 3e 20 30 20 74 68 ┆ if w3:=(w1).internal > 0 th┆
0x181c0…181e0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 ┆en if w3:=(w┆
0x181e0…18200 33 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 65 6e 20 77 30 2b 31 3b 0a 20 00 00 00 00 00 00 00 00 ┆3).word = 0 then w0+1; ┆
0x18200…18206 (193,) (0x450,0x305)
0x18206…18220 20 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 ┆ end; ┆
0x18220…18240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 20 6f 70 6d ┆ if w0 = 0 then opm┆
0x18240…18260 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 6f 70 29 2c 77 32 3a 3d ┆ess(.w3.,w1:=address(empop),w2:=┆
0x18260…1827e 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆b.ownproc); en┆
0x1827e…18284 (0x450,0x306)
0x18284…182a0 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆d else if w0┆
0x182a0…182c0 20 3d 20 2d 32 20 74 68 65 6e 20 20 21 20 6f 70 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ = -2 then ! open ! ┆
0x182c0…182e0 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 20 20 20 62 2e 73 ┆ begin b.s┆
0x182e0…182fc 79 73 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ysstate:=w0:=0; ┆
0x182fc…18302 (0x450,0x307)
0x18302…18320 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ end else i┆
0x18320…18340 66 20 77 30 20 3d 20 2d 33 20 74 68 65 6e 20 20 21 20 68 61 6c 74 20 21 0a 20 20 20 20 20 20 20 ┆f w0 = -3 then ! halt ! ┆
0x18340…18360 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 20 20 ┆ begin ┆
0x18360…1837a 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 ┆ opmess(.w3.,w1:=address(s┆
0x1837a…18380 (0x450,0x308)
0x18380…183a0 74 6f 70 6f 70 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆topop),w2:=b.ownproc); ┆
0x183a0…183c0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x183c0…183e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 ┆; w1:=-1; ┆
0x183e0…18400 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ goto error; ┆
0x18400…18406 (194,) (0x450,0x309)
0x18406…18420 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 ┆ end; ┆
0x18420…18440 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 73 ┆ compare(.w3.,w0:=8,w1,w2:=s┆
0x18440…18460 74 72 69 6e 67 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 ┆tring3); if w0 = 0┆
0x18460…1847e 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 0a 21 74 65 73 ┆ then begin !tes┆
0x1847e…18484 (0x450,0x30a)
0x18484…184a0 74 20 34 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 ┆t 42; outtex┆
0x184a0…184c0 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c ┆t(.w3.,w0:=8'31,w1:=b.userentry,┆
0x184c0…184e0 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w2:=2); ! syntax ! ┆
0x184e0…184fc 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto error; ┆
0x184fc…18502 (0x450,0x30b)
0x18502…18520 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 66 69 72 ┆ end; w1:=b.fir┆
0x18520…18540 73 74 75 73 65 72 2d 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 ┆stuser-!length(userentry); ┆
0x18540…18560 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2b 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e ┆ while w1+!length(useren┆
0x18560…1857a 74 72 79 29 3c 62 2e 6c 61 73 74 75 73 65 72 20 64 6f 0a 20 20 20 20 20 20 20 ┆try)<b.lastuser do ┆
0x1857a…18580 (0x450,0x30c)
0x18580…185a0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 37 31 30 3b 0a 20 20 20 20 20 20 20 20 ┆ begin !test 710; ┆
0x185a0…185c0 20 20 20 20 20 20 20 20 73 61 76 65 77 31 20 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ savew1 :=w1; ┆
0x185c0…185e0 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 3b 0a 20 20 20 20 20 20 ┆ w1:=(w1).internal+2; ┆
0x185e0…18600 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 00 00 00 00 00 00 00 00 ┆ compare(.w3.,w ┆
0x18600…18606 (195,) (0x450,0x30d)
0x18606…18620 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 73 74 72 69 6e 67 33 29 3b 0a 20 20 20 20 ┆0:=8,w1,w2:=string3); ┆
0x18620…18640 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if w0 <> 0 then ┆
0x18640…18660 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 20 20 20 20 20 20 ┆ begin ┆
0x18660…1867e 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 ┆ compare(.w3.,w0:=8,w1:=add┆
0x1867e…18684 (0x450,0x30e)
0x18684…186a0 72 65 73 73 28 61 6c 6c 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ress(all),w2); ┆
0x186a0…186c0 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 20 61 6c 6c 63 6f 6d 6d 61 6e 64 3a 3d ┆ if w0 = 0 then allcommand:=┆
0x186c0…186e0 77 33 3a 3d 31 3b 0a 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 ┆w3:=1; end; ┆
0x186e0…186fc 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 ┆ w1:=savew1; ┆
0x186fc…18702 (0x450,0x30f)
0x18702…18720 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if w0=0 then ┆
0x18720…18740 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 ┆
0x18740…18760 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 20 3e 20 30 20 74 68 65 6e ┆ if w3:=(w1).internal > 0 then┆
0x18760…1877a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆ if w0:=┆
0x1877a…18780 (0x450,0x310)
0x18780…187a0 28 77 33 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w3).word = 0 then ┆
0x187a0…187c0 20 20 20 20 20 63 61 73 65 20 77 33 3a 3d 73 61 76 65 77 30 20 6f 66 0a 20 20 20 20 20 20 20 20 ┆ case w3:=savew0 of ┆
0x187c0…187e0 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 20 ┆ begin ┆
0x187e0…18800 20 20 20 20 62 65 67 69 6e 20 20 21 20 6f 70 65 72 61 74 6f 72 20 6b 69 00 00 00 00 00 00 00 00 ┆ begin ! operator ki ┆
0x18800…18806 (196,) (0x450,0x311)
0x18806…18820 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ll ! ┆
0x18820…18840 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 34 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).intervent:=w0:=4; ┆
0x18840…18860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 65 61 6e 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 ┆ clean(.w3.,w1); ┆
0x18860…1887e 20 20 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 ┆ end; ┆
0x1887e…18884 (0x450,0x312)
0x18884…188a0 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 6f 70 65 72 61 74 ┆ begin ! operat┆
0x188a0…188c0 6f 72 20 62 72 65 61 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆or break ! ┆
0x188c0…188e0 20 62 72 65 61 6b 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ break(.w3.,w1); ┆
0x188e0…188fc 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 20 62 2e 73 79 73 63 6f 6e 64 20 7a 65 72 ┆ if w3:= b.syscond zer┆
0x188fc…18902 (0x450,0x313)
0x18902…18920 6f 6d 61 73 6b 20 32 27 30 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆omask 2'010 then ┆
0x18920…18940 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 20 20 ┆ begin ┆
0x18940…18960 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3e 30 ┆ if w3:= (w1).peripheral>0┆
0x18960…1897a 20 74 68 65 6e 20 77 30 3a 3d 20 2d 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ then w0:= -1 ┆
0x1897a…18980 (0x450,0x314)
0x18980…189a0 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 ┆ else w0:= 8; ┆
0x189a0…189c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 30 3a 3d 20 38 3b 0a ┆ end else w0:= 8; ┆
0x189c0…189e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 ┆ (w1).inter┆
0x189e0…18a00 76 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆vent:=w0; ┆
0x18a00…18a06 (197,) (0x450,0x315)
0x18a06…18a20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x18a20…18a40 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 73 74 6f 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ! stop ! ┆
0x18a40…18a60 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 ┆ link(.w3.,w1,w2:=addr┆
0x18a60…18a7e 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess(b.waitqfst)); ┆
0x18a7e…18a84 (0x450,0x316)
0x18a84…18aa0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f ┆ if w0:=(w1).messgo┆
0x18aa0…18ac0 74 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t > 10 then ┆
0x18ac0…18ae0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x18ae0…18afc 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 20 ┆(w1).buflength:=w2:=0; ┆
0x18afc…18b02 (0x450,0x317)
0x18b02…18b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 ┆ send(.w3.,w┆
0x18b20…18b40 30 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0:=1,w1,w2); ┆
0x18b40…18b60 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆ end; (w┆
0x18b60…18b7a 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆1).messsend:=w0; ┆
0x18b7a…18b80 (0x450,0x318)
0x18b80…18ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a ┆ (w1).state:=w0:=0; ┆
0x18ba0…18bc0 20 20 20 20 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 ┆ end; ┆
0x18bc0…18be0 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 73 74 61 72 74 20 21 0a 20 20 ┆ begin ! start ! ┆
0x18be0…18c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 00 00 00 00 00 00 00 00 ┆ if w ┆
0x18c00…18c06 (198,) (0x450,0x319)
0x18c06…18c20 30 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2b 62 2e 74 69 6d 65 72 6c 6f 73 73 20 ┆0:=(w1).class+b.timerloss ┆
0x18c20…18c40 3c 20 62 2e 62 61 74 63 68 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆< b.batchclass then ┆
0x18c40…18c60 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 6c 69 6e 6b 20 74 6f 20 66 72 6f 6e 74 ┆ begin ! link to front┆
0x18c60…18c7e 20 6f 66 20 62 61 74 63 68 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ of batch queue ! ┆
0x18c7e…18c84 (0x450,0x31a)
0x18c84…18ca0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 62 2e 62 61 74 63 68 ┆ if w1 <> b.batch┆
0x18ca0…18cc0 71 66 73 74 20 74 68 65 6e 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 ┆qfst then link(.w3.,w1,w2:=addre┆
0x18cc0…18ce0 73 73 28 62 2e 62 61 74 63 68 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ss(b.batchqfst)); ┆
0x18ce0…18cfc 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 ┆ end else link(.w3.,w┆
0x18cfc…18d02 (0x450,0x31b)
0x18d02…18d20 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 ┆1,w2:=address(b.activqfst)); ┆
0x18d20…18d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 ┆ if w0:=(w1)┆
0x18d40…18d60 2e 6d 65 73 73 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.messgot > 10 then ┆
0x18d60…18d7a 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 ┆ begin ┆
0x18d7a…18d80 (0x450,0x31c)
0x18d80…18da0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a ┆ (w1).buflength:=w2:┆
0x18da0…18dc0 3d 30 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 73 65 6e 64 ┆=0; send┆
0x18dc0…18de0 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆(.w3.,w0:=1,w1,w2); ┆
0x18de0…18e00 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x18e00…18e06 (199,) (0x450,0x31d)
0x18e06…18e20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 ┆ (w1).messsend┆
0x18e20…18e40 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆:=w0; (w1)┆
0x18e40…18e60 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.state:=w0:=0; ┆
0x18e60…18e7e 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ end; end;┆
0x18e7e…18e84 (0x450,0x31e)
0x18e84…18ea0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 2d 31 3b 0a 20 ┆ w1:=-1; ┆
0x18ea0…18ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 61 6c 6c 63 6f 6d 6d 61 ┆ if w0:=allcomma┆
0x18ec0…18ee0 6e 64 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 ┆nd <> 1 then goto error; ┆
0x18ee0…18efc 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 ┆ w1:=savew1; ┆
0x18efc…18f02 (0x450,0x31f)
0x18f02…18f20 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 20 20 ┆ end; ┆
0x18f20…18f40 65 6e 64 3b 0a 21 74 65 73 74 20 34 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆end; !test 43; if ┆
0x18f40…18f60 77 30 3a 3d 61 6c 6c 63 6f 6d 6d 61 6e 64 20 3c 3e 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0:=allcommand <> 1 ┆
0x18f60…18f7a 20 20 74 68 65 6e 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 ┆ then outtext(.w3.,w0:=8'┆
0x18f7a…18f80 (0x450,0x320)
0x18f80…18fa0 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 35 29 20 20 21 20 70 72 ┆31,w1:=b.userentry,w2:=15) ! pr┆
0x18fa0…18fc0 6f 63 65 73 73 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c ┆ocess unknown ! el┆
0x18fc0…18fe0 73 65 20 77 31 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 72 ┆se w1:=-1; goto er┆
0x18fe0…19000 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ror; end; ┆
0x19000…19006 (200,) (0x450,0x321)
0x19006…19020 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 2d 31 3b 0a 65 72 72 6f 72 3a 0a 20 ┆ w1:=-1; error: ┆
0x19020…19040 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w0:=savew0; ┆
0x19040…19060 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ f3:=savef3; end; ┆
0x19060…1907e 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 63 6f 6e 74 72 6f 6c 20 21 0a 0c 0a 0a 0a 0a 20 ┆ end; ! control ! ┆
0x1907e…19084 (0x450,0x322)
0x19084…190a0 20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 65 6d 70 74 79 0a 20 20 20 20 20 20 20 ┆ body of empty ┆
0x190a0…190c0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 ┆ begin incode ┆
0x190c0…190e0 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 ┆ word savew0; dou┆
0x190e0…190fc 62 6c 65 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ble savef3; begin ┆
0x190fc…19102 (0x450,0x323)
0x19102…19120 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆ savew0:=w0; ┆
0x19120…19140 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆ savef3:=f3; w1┆
0x19140…19160 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 ┆:=-1; w0:=savew0; ┆
0x19160…1917a 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 ┆ f3:=savef3; ┆
0x1917a…19180 (0x450,0x324)
0x19180…191a0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6d 70 74 79 ┆ end; end; ! empty┆
0x191a0…191c0 20 21 0a 0c 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 63 61 6c 6c 64 65 76 0a 20 ┆ ! body of calldev ┆
0x191c0…191e0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 61 62 65 6c 20 73 79 6e ┆ begin label syn┆
0x191e0…19200 74 61 78 65 72 72 6f 72 2c 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆taxerror,exit; ┆
0x19200…19206 (201,) (0x450,0x325)
0x19206…19220 20 72 65 63 6f 72 64 20 63 61 6c 6c 70 61 72 61 6d 20 28 77 6f 72 64 20 70 6b ┆ record callparam (word pk┆
0x19220…19240 69 6e 64 2c 70 76 61 6c 75 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 ┆ind,pvalue); incode ┆
0x19240…19260 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 77 6f 72 6b 3b 0a 20 20 20 20 ┆ word savew0,work; ┆
0x19260…1927e 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 ┆ double savef3; ┆
0x1927e…19284 (0x450,0x326)
0x19284…192a0 20 20 20 20 20 72 65 66 20 73 74 72 69 6e 67 31 2c 73 74 72 69 6e 67 32 2c 73 74 72 ┆ ref string1,string2,str┆
0x192a0…192c0 69 6e 67 33 2c 73 74 72 69 6e 67 34 2c 73 74 72 69 6e 67 35 2c 73 74 72 69 6e 67 36 3b 0a 20 20 ┆ing3,string4,string5,string6; ┆
0x192c0…192e0 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 65 6d 70 74 79 74 65 78 74 3a 3d 22 22 ┆ text(11) emptytext:=""┆
0x192e0…192fc 2c 73 74 61 72 74 3a 3d 22 73 74 61 72 74 22 2c 70 72 6f 63 3b 0a 20 20 20 20 20 20 ┆,start:="start",proc; ┆
0x192fc…19302 (0x450,0x327)
0x19302…19320 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d ┆ begin savew0:=┆
0x19320…19340 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 ┆w0; savef3:=f3; ┆
0x19340…19360 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 31 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 ┆ string1:=w1; w1+8; ┆
0x19360…1937a 20 20 20 20 20 20 20 73 74 72 69 6e 67 32 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a ┆ string2:=w1; w1+8; ┆
0x1937a…19380 (0x450,0x328)
0x19380…193a0 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 33 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 ┆ string3:=w1; w1+8; ┆
0x193a0…193c0 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 34 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 ┆ string4:=w1; w1+8; ┆
0x193c0…193e0 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 35 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 ┆ string5:=w1; w1+8; ┆
0x193e0…19400 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 36 3a 3d 77 31 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ string6:=w1; ┆
0x19400…19406 (202,) (0x450,0x329)
0x19406…19420 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 74 72 69 6e 67 32 2e 70 ┆ if w0:=string2.p┆
0x19420…19440 6b 69 6e 64 20 3c 3e 20 2d 31 20 74 68 65 6e 20 67 6f 74 6f 20 73 79 6e 74 61 78 65 72 72 6f 72 ┆kind <> -1 then goto syntaxerror┆
0x19440…19460 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 ┆; compare(.w3.,w0:=8┆
0x19460…1947e 2c 77 31 3a 3d 73 74 72 69 6e 67 33 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 ┆,w1:=string3,w2:=address(empty┆
0x1947e…19484 (0x450,0x32a)
0x19484…194a0 74 65 78 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 ┆text)); if w0 = ┆
0x194a0…194c0 30 20 74 68 65 6e 20 67 6f 74 6f 20 73 79 6e 74 61 78 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 ┆0 then goto syntaxerror; ┆
0x194c0…194e0 20 20 20 20 20 77 31 3a 3d 73 74 72 69 6e 67 32 2e 70 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 ┆ w1:=string2.pvalue; ┆
0x194e0…194fc 20 20 20 20 20 77 33 3a 3d 73 74 72 69 6e 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w3:=string3; ┆
0x194fc…19502 (0x450,0x32b)
0x19502…19520 20 20 6d 6f 6e 69 74 6f 72 28 35 34 29 3b 20 20 21 20 63 72 65 61 74 65 20 70 65 72 69 70 ┆ monitor(54); ! create perip┆
0x19520…19540 68 65 72 61 6c 20 70 72 6f 63 65 73 73 20 21 0a 21 74 65 73 74 20 31 31 31 3b 0a 20 20 20 20 20 ┆heral process ! !test 111; ┆
0x19540…19560 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w0 <> 0 then ┆
0x19560…1957a 20 20 20 69 66 20 77 30 20 3c 3e 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if w0 <> 3 then ┆
0x1957a…19580 (0x450,0x32c)
0x19580…195a0 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 34 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin !test 44; ┆
0x195a0…195c0 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 ┆ outtext(.w3.,w0:=8'31,w1:=b.u┆
0x195c0…195e0 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 37 29 3b 20 20 21 20 63 61 6c 6c 20 6e 6f 74 20 61 63 ┆serentry,w2:=17); ! call not ac┆
0x195e0…19600 63 65 70 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 00 00 00 00 00 00 00 00 ┆cepted ! g ┆
0x19600…19606 (203,) (0x450,0x32d)
0x19606…19620 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆oto exit; end;┆
0x19620…19640 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆ copy(.w3.,w0:=8,w1:┆
0x19640…19660 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 2c 77 32 3a 3d 73 74 72 69 6e 67 33 29 ┆=address(emptytext),w2:=string3)┆
0x19660…1967e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 28 2e 77 33 2e 2c 77 31 3a ┆; include(.w3.,w1:┆
0x1967e…19684 (0x450,0x32e)
0x19684…196a0 3d 73 74 72 69 6e 67 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 ┆=string1); if w1┆
0x196a0…196c0 20 3c 3e 20 2d 31 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆ <> -1 then goto exit; ┆
0x196c0…196e0 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 73 74 72 69 6e 67 ┆ compare(.w3.,w0:=8,w1:=string┆
0x196e0…196fc 34 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 29 3b 0a 20 ┆4,w2:=address(emptytext)); ┆
0x196fc…19702 (0x450,0x32f)
0x19702…19720 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if w0 = 0 then ┆
0x19720…19740 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 77 31 3a 3d ┆ begin w1:=┆
0x19740…19760 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 ┆-1; goto exit; ┆
0x19760…1977a 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 ┆ end; ┆
0x1977a…19780 (0x450,0x330)
0x19780…197a0 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 ┆compare(.w3.,w0:=8,w1,w2:=addres┆
0x197a0…197c0 73 28 73 74 61 72 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 ┆s(start)); if w0 = 0┆
0x197c0…197e0 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 ┆
0x197e0…19800 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 00 00 00 00 00 00 00 00 ┆ copy(.w3.,w0:=8,w1 ┆
0x19800…19806 (204,) (0x450,0x331)
0x19806…19820 3a 3d 73 74 72 69 6e 67 34 2c 77 32 3a 3d 73 74 72 69 6e 67 31 29 3b 0a 20 20 ┆:=string4,w2:=string1); ┆
0x19820…19840 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 73 74 72 ┆ copy(.w3.,w0,w1:=str┆
0x19840…19860 69 6e 67 35 2c 77 32 3a 3d 73 74 72 69 6e 67 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ing5,w2:=string2); ┆
0x19860…1987e 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 73 74 72 69 6e 67 36 2c 77 32 3a 3d ┆ copy(.w3.,w0,w1:=string6,w2:=┆
0x1987e…19884 (0x450,0x332)
0x19884…198a0 73 74 72 69 6e 67 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 ┆string3); copy┆
0x198a0…198c0 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 2c ┆(.w3.,w0,w1:=address(emptytext),┆
0x198c0…198e0 77 32 3a 3d 73 74 72 69 6e 67 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 ┆w2:=string4); cont┆
0x198e0…198fc 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 73 74 72 69 6e 67 31 29 3b ┆rol(.w3.,w0:=4,w1:=string1);┆
0x198fc…19902 (0x450,0x333)
0x19902…19920 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 ┆ goto exit; ┆
0x19920…19940 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 73 79 6e 74 61 78 65 72 72 6f 72 3a 0a 21 74 65 73 74 20 ┆ end; syntaxerror: !test ┆
0x19940…19960 34 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a ┆45; outtext(.w3.,w0:┆
0x19960…1997a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d ┆=8'31,w1:=b.userentry,w2:=┆
0x1997a…19980 (0x450,0x334)
0x19980…199a0 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 20 20 20 20 ┆2); ! syntax ! exit: ┆
0x199a0…199c0 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 ┆ w0:=savew0; f3:=sa┆
0x199c0…199e0 76 65 66 33 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 65 6e 64 ┆vef3; end; end┆
0x199e0…19a00 3b 20 20 20 20 21 20 63 61 6c 6c 64 65 76 20 21 0a 0c 0a 0a 0a 20 20 20 00 00 00 00 00 00 00 00 ┆; ! calldev ! ┆
0x19a00…19a06 (205,) (0x450,0x335)
0x19a06…19a20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 69 6e 63 6c 75 64 65 0a 20 20 20 20 20 ┆ body of include ┆
0x19a20…19a40 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a 20 ┆ begin label exit; ┆
0x19a40…19a60 20 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 20 70 61 72 61 6d 28 77 6f 72 64 20 70 6b 69 6e 64 ┆ record param(word pkind┆
0x19a60…19a7e 2c 70 76 61 6c 75 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆,pvalue); incode ┆
0x19a7e…19a84 (0x450,0x336)
0x19a84…19aa0 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 70 72 6f 63 2c 65 6d 70 74 79 ┆ text(11) proc,empty┆
0x19aa0…19ac0 74 65 78 74 3a 3d 22 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 ┆text:=""; double sav┆
0x19ac0…19ae0 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 73 74 72 69 6e 67 31 2c 73 74 72 ┆ef3; ref string1,str┆
0x19ae0…19afc 69 6e 67 32 2c 73 74 72 69 6e 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆ing2,string3; wo┆
0x19afc…19b02 (0x450,0x337)
0x19b02…19b20 72 64 20 77 6f 72 6b 2c 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆rd work,savew0; begi┆
0x19b20…19b40 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆n savew0:=w0; ┆
0x19b40…19b60 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 ┆ savef3:=f3; st┆
0x19b60…19b7a 72 69 6e 67 31 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 ┆ring1:=w1; w1+8; ┆
0x19b7a…19b80 (0x450,0x338)
0x19b80…19ba0 20 20 20 73 74 72 69 6e 67 32 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ string2:=w1; w1+8; ┆
0x19ba0…19bc0 20 20 73 74 72 69 6e 67 33 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 ┆ string3:=w1; compa┆
0x19bc0…19be0 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 ┆re(.w3.,w0:=8,w1,w2:=address(emp┆
0x19be0…19c00 74 79 74 65 78 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆tytext)); if ┆
0x19c00…19c06 (206,) (0x450,0x339)
0x19c06…19c20 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0 <> 0 then ┆
0x19c20…19c40 62 65 67 69 6e 0a 21 74 65 73 74 20 34 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 ┆begin !test 46; ou┆
0x19c40…19c60 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e ┆ttext(.w3.,w0:=8'31,w1:=b.useren┆
0x19c60…19c7e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 ┆try,w2:=2); ! syntax ! ┆
0x19c7e…19c84 (0x450,0x33a)
0x19c84…19ca0 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto exit; ┆
0x19ca0…19cc0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 74 72 69 6e 67 32 3b ┆ end; w1:=string2;┆
0x19cc0…19ce0 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 70 6b 69 6e 64 20 3c ┆ if w0:=(w1).pkind <┆
0x19ce0…19cfc 3e 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆> -1 then begin ┆
0x19cfc…19d02 (0x450,0x33b)
0x19d02…19d20 21 74 65 73 74 20 34 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 ┆!test 47; outtex┆
0x19d20…19d40 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c ┆t(.w3.,w0:=8'31,w1:=b.userentry,┆
0x19d40…19d60 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w2:=2); ! syntax ! ┆
0x19d60…19d7a 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ goto exit; e┆
0x19d7a…19d80 (0x450,0x33c)
0x19d80…19da0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 6c 61 73 74 75 73 65 72 3b 0a ┆nd; w3:=b.lastuser; ┆
0x19da0…19dc0 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 63 29 3b 0a 20 ┆ w2:=address(proc); ┆
0x19dc0…19de0 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 33 2d 21 6c 65 6e 67 74 68 28 75 73 65 72 ┆ while w3-!length(user┆
0x19de0…19e00 65 6e 74 72 79 29 20 3e 3d 20 62 2e 66 69 72 73 74 75 73 65 72 20 64 6f 00 00 00 00 00 00 00 00 ┆entry) >= b.firstuser do ┆
0x19e00…19e06 (207,) (0x450,0x33d)
0x19e06…19e20 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 ┆ begin ┆
0x19e20…19e40 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 33 29 2e 69 6e 74 65 72 6e 61 6c 20 3e 20 30 20 ┆ if w1:=(w3).internal > 0 ┆
0x19e40…19e60 74 68 65 6e 0a 20 20 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 ┆then begin ┆
0x19e60…19e7e 20 20 20 20 20 20 20 20 20 77 6f 72 6b 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ work:=w3; ┆
0x19e7e…19e84 (0x450,0x33e)
0x19e84…19ea0 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 ┆ if w0:=(w1).word = 0 th┆
0x19ea0…19ec0 65 6e 0a 20 20 20 20 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 ┆en begin ┆
0x19ec0…19ee0 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2b 32 2c ┆ copy(.w3.,w0:=8,w1+2,┆
0x19ee0…19efc 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 ┆w2); w3:=w┆
0x19efc…19f02 (0x450,0x33f)
0x19f02…19f20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 73 74 72 69 6e ┆2; w1:=strin┆
0x19f20…19f40 67 32 2e 70 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆g2.pvalue; mon┆
0x19f40…19f60 69 74 6f 72 28 31 32 29 3b 20 20 21 20 69 6e 63 6c 75 64 65 20 75 73 65 72 20 21 0a 20 20 20 20 ┆itor(12); ! include user ! ┆
0x19f60…19f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 ┆ if w0 <> 0 t┆
0x19f7a…19f80 (0x450,0x340)
0x19f80…19fa0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 ┆hen begin !tes┆
0x19fa0…19fc0 74 20 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 ┆t 48; outtex┆
0x19fc0…19fe0 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c ┆t(.w3.,w0:=8'31,w1:=b.userentry,┆
0x19fe0…1a000 77 32 3a 3d 31 38 29 3b 20 20 21 20 69 6e 63 6c 75 64 65 20 6e 6f 74 20 00 00 00 00 00 00 00 00 ┆w2:=18); ! include not ┆
0x1a000…1a006 (208,) (0x450,0x341)
0x1a006…1a020 61 63 63 65 70 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆accepted ! ┆
0x1a020…1a040 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto exit; ┆
0x1a040…1a060 20 20 65 6e 64 3b 0a 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 ┆ end; end; ┆
0x1a060…1a07e 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 6f 72 6b 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:=work; ┆
0x1a07e…1a084 (0x450,0x342)
0x1a084…1a0a0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ end; end; ┆
0x1a0a0…1a0c0 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 2d 31 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 ┆ w1:=-1; exit: ┆
0x1a0c0…1a0e0 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 33 ┆ w0:=savew0; f3┆
0x1a0e0…1a0fc 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆:=savef3; end; ┆
0x1a0fc…1a102 (0x450,0x343)
0x1a102…1a120 20 20 20 20 20 65 6e 64 3b 20 20 21 20 69 6e 63 6c 75 64 65 20 21 0a 0a 20 20 20 20 65 6e ┆ end; ! include ! en┆
0x1a120…1a140 64 3b 20 20 21 20 73 79 73 63 6f 6d 6d 61 6e 64 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 ┆d; ! syscommand ! comment ┆
0x1a140…1a160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 0a 77 68 65 6e 20 61 ┆ break when a┆
0x1a160…1a17a 20 70 72 6f 63 65 73 73 20 69 73 20 74 6f 6f 20 63 70 75 20 62 6f 75 6e 64 20 ┆ process is too cpu bound ┆
0x1a17a…1a180 (0x450,0x344)
0x1a180…1a1a0 6f 72 20 77 68 65 6e 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 6f 70 65 72 61 74 6f 72 20 61 73 ┆or when the terminal operator as┆
0x1a1a0…1a1c0 6b 73 20 66 6f 72 0a 69 74 2c 20 74 68 65 20 73 79 73 74 65 6d 20 77 69 6c 6c 20 70 72 6f 76 6f ┆ks for it, the system will provo┆
0x1a1c0…1a1e0 6b 65 20 61 20 62 72 65 61 6b 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 28 62 72 65 61 6b ┆ke a break of the process (break┆
0x1a1e0…1a200 20 38 20 3d 20 70 61 72 65 6e 74 20 62 72 65 61 6b 29 0a 74 68 69 73 20 00 00 00 00 00 00 00 00 ┆ 8 = parent break) this ┆
0x1a200…1a206 (209,) (0x450,0x345)
0x1a206…1a220 69 73 20 64 6f 6e 65 20 62 79 20 6d 6f 64 69 66 79 69 6e 67 20 74 68 65 20 70 ┆is done by modifying the p┆
0x1a220…1a240 72 6f 63 65 73 73 20 75 73 69 6e 67 20 74 68 65 20 64 75 6d 70 65 64 20 72 65 67 69 73 74 65 72 ┆rocess using the dumped register┆
0x1a240…1a260 73 20 69 6e 20 74 68 65 0a 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 6e 64 ┆s in the process description and┆
0x1a260…1a27e 20 74 68 65 6e 20 72 65 73 74 61 72 74 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 6e 20 69 ┆ then restart the process in i┆
0x1a27e…1a284 (0x450,0x346)
0x1a284…1a2a0 74 73 20 62 72 65 61 6b 20 72 6f 75 74 69 6e 65 0a 3b 0a 0a 20 20 20 20 62 6f 64 79 ┆ts break routine ; body┆
0x1a2a0…1a2c0 20 6f 66 20 62 72 65 61 6b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6c 61 62 65 6c 20 ┆ of break begin label ┆
0x1a2c0…1a2e0 65 78 69 74 3b 0a 20 20 20 20 20 20 72 65 63 6f 72 64 20 64 75 6d 70 61 72 65 61 28 77 6f 72 64 ┆exit; record dumparea(word┆
0x1a2e0…1a2fc 20 72 30 2c 72 31 2c 72 32 2c 72 33 2c 65 78 65 70 2c 69 6e 73 74 72 2c 63 61 75 73 ┆ r0,r1,r2,r3,exep,instr,caus┆
0x1a2fc…1a302 (0x450,0x347)
0x1a302…1a320 65 29 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c ┆e); incode doubl┆
0x1a320…1a340 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 62 75 ┆e savef1,savef3; word bu┆
0x1a340…1a360 66 66 65 72 72 65 6c 2c 73 61 76 65 64 69 63 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 ┆fferrel,savedic; text(14┆
0x1a360…1a37a 29 20 63 68 69 6c 64 6e 61 6d 65 2c 74 65 72 6d 69 6e 61 6c 3b 0a 20 20 20 20 ┆) childname,terminal; ┆
0x1a37a…1a380 (0x450,0x348)
0x1a380…1a3a0 20 20 20 20 62 79 74 65 20 69 6f 6f 70 2c 69 6f 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ byte ioop,iomode:=0; ┆
0x1a3a0…1a3c0 20 77 6f 72 64 20 66 69 72 73 74 2c 6c 61 73 74 2c 73 65 67 6d 6e 74 3b 0a 20 20 20 20 20 20 62 ┆ word first,last,segmnt; b┆
0x1a3c0…1a3e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 ┆egin savef1:=f1; ┆
0x1a3e0…1a400 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆ savef3:=f3; if ┆
0x1a400…1a406 (210,) (0x450,0x349)
0x1a406…1a420 77 30 3a 3d 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 20 3d 20 30 20 74 68 65 ┆w0:=(w1).intervent = 0 the┆
0x1a420…1a440 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆n begin if w0┆
0x1a440…1a460 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆:=(w1).messgot > 10 then ┆
0x1a460…1a47e 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c ┆ begin (w1).bufl┆
0x1a47e…1a484 (0x450,0x34a)
0x1a484…1a4a0 65 6e 67 74 68 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 ┆ength:=w2:=0; se┆
0x1a4a0…1a4c0 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆nd(.w3.,w0:=1,w1,w2); ┆
0x1a4c0…1a4e0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 73 79 73 63 6f 6e 64 20 ┆end; if w0:=b.syscond ┆
0x1a4e0…1a4fc 7a 65 72 6f 6d 61 73 6b 20 32 27 30 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆zeromask 2'010 then ┆
0x1a4fc…1a502 (0x450,0x34b)
0x1a502…1a520 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 20 3e 20 30 20 74 ┆ if w0:=(w1).peripheral > 0 t┆
0x1a520…1a540 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 20 20 20 20 20 20 ┆hen begin ┆
0x1a540…1a560 28 77 31 29 2e 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(w1).state:= w0:= 3; ┆
0x1a560…1a57a 20 28 77 31 29 2e 73 74 61 74 65 32 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 ┆ (w1).state2:= w0:= -1; ┆
0x1a57a…1a580 (0x450,0x34c)
0x1a580…1a5a0 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 30 ┆ startstop (.w3., w0:=0┆
0x1a5a0…1a5c0 2c 20 77 31 29 3b 20 20 20 20 21 20 73 74 6f 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆, w1); ! stop ! w┆
0x1a5c0…1a5e0 31 3a 3d 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 3b 20 20 20 20 20 20 20 20 20 20 20 21 ┆1:= (w1).internal+2; !┆
0x1a5e0…1a600 20 72 65 66 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 21 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ref process name ! ┆
0x1a600…1a606 (211,) (0x450,0x34d)
0x1a606…1a620 20 20 20 20 20 20 20 20 73 63 61 6e 63 61 74 20 28 2e 77 33 2e 2c 20 77 30 2c ┆ scancat (.w3., w0,┆
0x1a620…1a640 20 77 31 2c 20 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c ┆ w1, w2:=0); if w0 <┆
0x1a640…1a660 20 30 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 ┆ 0 then begin ┆
0x1a660…1a67e 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 2d 33 20 74 68 65 6e 20 77 32 3a 3d 33 30 ┆ if w0 = -3 then w2:=30┆
0x1a67e…1a684 (0x450,0x34e)
0x1a684…1a6a0 20 20 20 20 20 20 20 20 21 20 75 73 65 72 63 61 74 20 72 65 73 65 72 76 20 21 0a 20 ┆ ! usercat reserv ! ┆
0x1a6a0…1a6c0 20 20 20 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 77 32 3a ┆ else w2:┆
0x1a6c0…1a6e0 3d 33 3b 20 20 20 20 20 20 20 20 21 20 69 64 65 6e 74 20 69 6c 6c 65 67 61 6c 20 20 21 0a 21 74 ┆=3; ! ident illegal ! !t┆
0x1a6e0…1a6fc 65 73 74 20 35 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 ┆est 50; outtex┆
0x1a6fc…1a702 (0x450,0x34f)
0x1a702…1a720 74 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 38 27 33 31 2c 20 77 31 3a 3d 62 2e 75 73 65 72 65 ┆t (.w3., w0:=8'31, w1:=b.usere┆
0x1a720…1a740 6e 74 72 79 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 ┆ntry, w2); (w1).st┆
0x1a740…1a760 61 74 65 32 3a 3d 20 77 30 3a 3d 20 31 3b 20 20 20 20 20 20 20 20 20 21 20 77 61 69 74 69 6e 67 ┆ate2:= w0:= 1; ! waiting┆
0x1a760…1a77a 20 66 6f 72 20 72 65 6d 6f 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 ┆ for remove process ! ┆
0x1a77a…1a780 (0x450,0x350)
0x1a780…1a7a0 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ goto exit; ┆
0x1a7a0…1a7c0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 70 72 6f 63 64 65 73 63 72 3a 3d 20 ┆ end; b.procdescr:= ┆
0x1a7c0…1a7e0 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 63 68 69 ┆w1; w3:= address(chi┆
0x1a7e0…1a800 6c 64 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 00 00 00 00 00 00 00 00 ┆ldname); f1: ┆
0x1a800…1a806 (212,) (0x450,0x351)
0x1a806…1a820 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d ┆= savef1; w2:=┆
0x1a820…1a840 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 20 2b 20 32 3b 20 20 20 20 20 20 20 20 20 20 21 20 72 ┆ (w1).internal + 2; ! r┆
0x1a840…1a860 65 66 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆ef process name ! (w┆
0x1a860…1a87e 33 29 2e 6e 61 6d 65 31 3a 3d 20 66 31 3a 3d 20 28 77 32 29 2e 6e 61 6d 65 31 3b 0a 20 20 ┆3).name1:= f1:= (w2).name1; ┆
0x1a87e…1a884 (0x450,0x352)
0x1a884…1a8a0 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 32 3a 3d 20 66 31 3a 3d 20 ┆ (w3).name2:= f1:= ┆
0x1a8a0…1a8c0 28 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 70 ┆(w2).name2; w2:= b.p┆
0x1a8c0…1a8e0 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e ┆rocdescr; w0:= (w2).┆
0x1a8e0…1a8fc 70 72 6f 63 75 62 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 75 73 65 ┆procub1; ! use┆
0x1a8fc…1a902 (0x450,0x353)
0x1a902…1a920 72 20 62 61 73 65 20 66 72 6f 6d 20 73 6f 73 63 61 74 20 21 0a 20 20 20 20 20 20 20 20 20 ┆r base from soscat ! ┆
0x1a920…1a940 20 20 20 77 31 3a 3d 20 28 77 32 29 2e 70 72 6f 63 75 62 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:= (w2).procub2; ┆
0x1a940…1a960 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 20 20 21 20 72 65 73 65 74 20 63 61 74 61 6c 6f 67 ┆ monitor(72); ! reset catalog┆
0x1a960…1a97a 20 62 61 73 65 20 3d 20 75 73 65 72 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 ┆ base = user base ! ┆
0x1a97a…1a980 (0x450,0x354)
0x1a980…1a9a0 20 20 20 20 20 20 6c 69 6e 6b 20 28 2e 77 33 2e 2c 20 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 ┆ link (.w3., w1:=b.userentr┆
0x1a9a0…1a9c0 79 2c 20 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 ┆y, w2:=address(b.activqfst)); ┆
0x1a9c0…1a9e0 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆ goto exit; e┆
0x1a9e0…1aa00 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 00 00 00 00 00 00 00 00 ┆nd; (w1).inte ┆
0x1aa00…1aa06 (213,) (0x450,0x355)
0x1aa06…1aa20 72 76 65 6e 74 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆rvent:=w0:=-1; w┆
0x1aa20…1aa40 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 62 2e 72 65 6c 69 6e 74 72 70 74 3b 0a 20 20 ┆2:=(w1).internal+b.relintrpt; ┆
0x1aa40…1aa60 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 20 3e 3d 20 62 2e 66 73 ┆ if w0:=(w2).word >= b.fs┆
0x1aa60…1aa7e 74 63 6f 72 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆tcore then begin com┆
0x1aa7e…1aa84 (0x450,0x356)
0x1aa84…1aaa0 6d 65 6e 74 20 69 6e 74 65 72 72 75 70 74 20 61 64 64 72 65 73 73 20 69 73 20 73 65 ┆ment interrupt address is se┆
0x1aaa0…1aac0 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 64 69 63 3a 3d 77 30 2b 31 36 3b 0a 20 ┆t; savedic:=w0+16; ┆
0x1aac0…1aae0 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 ┆ w0:=(w2).word; ┆
0x1aae0…1aafc 20 20 20 20 20 20 77 30 2d 62 2e 66 73 74 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 ┆ w0-b.fstcore; ┆
0x1aafc…1ab02 (0x450,0x357)
0x1ab02…1ab20 20 20 20 20 62 75 66 66 65 72 72 65 6c 3a 3d 77 33 3a 3d 77 30 20 65 78 74 72 61 63 74 20 ┆ bufferrel:=w3:=w0 extract ┆
0x1ab20…1ab40 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 6e 74 3a 3d 77 30 20 6c 73 68 69 66 74 ┆9; segmnt:=w0 lshift┆
0x1ab40…1ab60 20 2d 39 20 2b 20 28 77 31 29 2e 73 77 6f 70 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ -9 + (w1).swopsegm; ┆
0x1ab60…1ab7a 20 69 6f 6f 70 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ioop:=w0:=3; ┆
0x1ab7a…1ab80 (0x450,0x358)
0x1ab80…1aba0 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6f 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆w1:=address(ioop); w┆
0x1aba0…1abc0 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 77 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆3:=address(b.swname); ┆
0x1abc0…1abe0 20 20 77 30 3a 3d 62 2e 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 ┆ w0:=b.topcore; las┆
0x1abe0…1ac00 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2d 31 30 00 00 00 00 00 00 00 00 ┆t:=w0; w0-10 ┆
0x1ac00…1ac06 (214,) (0x450,0x359)
0x1ac06…1ac20 32 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 3a 3d 77 30 3b ┆22; first:=w0;┆
0x1ac20…1ac40 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 63 6f 6d 6d 65 ┆ monitor(16); comme┆
0x1ac40…1ac60 6e 74 20 73 65 6e 64 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆nt send message; w1:┆
0x1ac60…1ac7e 3d 62 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆=b.lastuser; monit┆
0x1ac7e…1ac84 (0x450,0x35a)
0x1ac84…1aca0 6f 72 28 31 38 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 20 61 6e 73 77 65 72 ┆or(18); comment wait answer┆
0x1aca0…1acc0 3b 0a 6b 65 79 20 28 30 29 3a 3d 20 77 30 3b 20 21 20 74 65 73 74 20 30 20 21 0a 20 20 20 20 20 ┆; key (0):= w0; ! test 0 ! ┆
0x1acc0…1ace0 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ f1:=savef1; w┆
0x1ace0…1acfc 33 3a 3d 61 64 64 72 65 73 73 28 63 68 69 6c 64 6e 61 6d 65 29 3b 0a 20 20 20 20 20 ┆3:=address(childname); ┆
0x1acfc…1ad02 (0x450,0x35b)
0x1ad02…1ad20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 3b 0a 20 20 ┆ w2:=(w1).internal+2; ┆
0x1ad20…1ad40 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 31 3a 3d 66 31 3a 3d 28 77 32 29 2e 6e ┆ (w3).name1:=f1:=(w2).n┆
0x1ad40…1ad60 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 32 3a 3d 66 31 ┆ame1; (w3).name2:=f1┆
0x1ad60…1ad7a 3a 3d 28 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=(w2).name2; ┆
0x1ad7a…1ad80 (0x450,0x35c)
0x1ad80…1ada0 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 ┆f1:=savef1; w1:=(w1)┆
0x1ada0…1adc0 2e 69 6e 74 65 72 6e 61 6c 2b 62 2e 72 65 6c 64 75 6d 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆.internal+b.reldump; ┆
0x1adc0…1ade0 20 77 32 3a 3d 66 69 72 73 74 2b 62 75 66 66 65 72 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w2:=first+bufferrel; ┆
0x1ade0…1ae00 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 2c 77 32 00 00 00 00 00 00 00 00 ┆ copy(.w3.,w0:=16,w1,w2 ┆
0x1ae00…1ae06 (215,) (0x450,0x35d)
0x1ae06…1ae20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 63 61 75 73 65 3a ┆); (w2).cause:┆
0x1ae20…1ae40 3d 77 30 3a 3d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 65 78 65 70 3a 3d 77 ┆=w0:=8; (w2).exep:=w┆
0x1ae40…1ae60 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 64 69 63 3b 0a 20 ┆0:=0; w0:=savedic; ┆
0x1ae60…1ae7e 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 64 69 63 3a 3d 77 31 3a 3d 28 77 32 29 2e 69 ┆ savedic:=w1:=(w2).i┆
0x1ae7e…1ae84 (0x450,0x35e)
0x1ae84…1aea0 6e 73 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 69 6e 73 74 72 ┆nstr; (w2).instr┆
0x1aea0…1aec0 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 ┆:=w0; testout(.w3.,w┆
0x1aec0…1aee0 30 3a 3d 31 36 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆0:=16,w1:=w2,w2:=1); ┆
0x1aee0…1aefc 20 77 33 3a 3d 61 64 64 72 65 73 73 28 63 68 69 6c 64 6e 61 6d 65 29 3b 0a 20 20 20 ┆ w3:=address(childname); ┆
0x1aefc…1af02 (0x450,0x35f)
0x1af02…1af20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 ┆ monitor(62); comment┆
0x1af20…1af40 20 6d 6f 64 69 66 79 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆ modify process; (w1┆
0x1af40…1af60 29 2e 69 6e 73 74 72 3a 3d 77 30 3a 3d 73 61 76 65 64 69 63 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆).instr:=w0:=savedic; ┆
0x1af60…1af7a 20 20 69 6f 6f 70 3a 3d 77 30 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ioop:=w0:=5; ┆
0x1af7a…1af80 (0x450,0x360)
0x1af80…1afa0 20 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6f 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=address(ioop); ┆
0x1afa0…1afc0 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 77 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆w3:=address(b.swname); ┆
0x1afc0…1afe0 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 6d 65 ┆ monitor(16); comment send me┆
0x1afe0…1b000 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 00 00 00 00 00 00 00 00 ┆ssage; w1:=b ┆
0x1b000…1b006 (216,) (0x450,0x361)
0x1b006…1b020 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆.lastuser; mon┆
0x1b020…1b040 69 74 6f 72 28 31 38 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 20 61 6e 73 77 65 72 3b 0a ┆itor(18); comment wait answer; ┆
0x1b040…1b060 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 ┆ f1:=savef1; ┆
0x1b060…1b07e 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ (w1).state:=w0:=0; ┆
0x1b07e…1b084 (0x450,0x362)
0x1b084…1b0a0 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 ┆ link(.w3.,w1,w2:=addres┆
0x1b0a0…1b0c0 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆s(b.activqfst)); got┆
0x1b0c0…1b0e0 6f 20 65 78 69 74 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 65 ┆o exit; end; e┆
0x1b0e0…1b0fc 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 20 62 65 63 ┆nd; comment kill bec┆
0x1b0fc…1b102 (0x450,0x363)
0x1b102…1b120 61 75 73 65 20 6f 66 20 6e 6f 20 72 65 61 63 74 69 6f 6e 20 61 66 74 65 72 20 62 72 65 61 ┆ause of no reaction after brea┆
0x1b120…1b140 6b 3b 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c ┆k; startstop(.w3.,w0:=0,┆
0x1b140…1b160 77 31 29 3b 0a 20 20 20 20 20 20 20 20 63 6c 65 61 6e 28 2e 77 33 2e 2c 77 31 29 3b 0a 65 78 69 ┆w1); clean(.w3.,w1); exi┆
0x1b160…1b17a 74 3a 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 62 2e ┆t: w3:= address(b.┆
0x1b17a…1b180 (0x450,0x364)
0x1b180…1b1a0 75 73 65 72 63 61 74 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 20 21 ┆usercat); monitor(10); !┆
0x1b1a0…1b1c0 20 72 65 6c 65 61 73 65 20 75 73 65 72 63 61 74 20 21 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 ┆ release usercat ! f1:=s┆
0x1b1c0…1b1e0 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 20 ┆avef1; f3:=savef3; ┆
0x1b1e0…1b200 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 62 72 00 00 00 00 00 00 00 00 ┆ end; end; ! br ┆
0x1b200…1b206 (217,) (0x450,0x365)
0x1b206…1b220 65 61 6b 20 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 ┆eak ! comment ┆
0x1b220…1b240 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 65 6e 74 6d 65 73 73 0a 0a 74 68 65 20 75 73 65 ┆ parentmess the use┆
0x1b240…1b260 20 6f 66 20 64 65 76 69 63 65 73 20 28 6e 6f 74 20 61 63 63 65 73 73 69 62 6c 65 20 64 69 72 65 ┆ of devices (not accessible dire┆
0x1b260…1b27e 63 74 6c 79 20 66 72 6f 6d 20 74 68 65 20 75 73 65 72 2d 70 72 6f 63 65 73 73 65 73 29 0a ┆ctly from the user-processes) ┆
0x1b27e…1b284 (0x450,0x366)
0x1b284…1b2a0 61 6e 64 20 74 68 65 20 63 6f 6e 74 72 6f 6c 20 6f 66 20 74 68 65 20 70 72 6f 63 65 ┆and the control of the proce┆
0x1b2a0…1b2c0 73 73 65 73 20 74 68 65 6d 73 65 6c 76 65 73 20 69 73 20 70 61 72 74 69 61 6c 6c 79 20 62 61 73 ┆sses themselves is partially bas┆
0x1b2c0…1b2e0 65 64 20 6f 6e 20 70 61 72 65 6e 74 0a 6d 65 73 73 61 67 65 73 2e 20 74 68 69 73 20 70 72 6f 63 ┆ed on parent messages. this proc┆
0x1b2e0…1b2fc 65 64 75 72 65 20 74 61 6b 65 73 20 74 68 65 20 61 63 74 69 6f 6e 73 20 63 6f 72 72 ┆edure takes the actions corr┆
0x1b2fc…1b302 (0x450,0x367)
0x1b302…1b320 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 70 6f 73 73 69 62 6c 65 20 6b 69 6e 64 ┆esponding to the possible kind┆
0x1b320…1b340 73 0a 6f 66 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 73 20 20 2d 20 20 74 68 65 73 65 20 70 ┆s of parent messages - these p┆
0x1b340…1b360 6f 73 73 69 62 6c 65 20 6b 69 6e 64 73 20 61 72 65 3a 0a 0a 20 20 20 20 20 20 20 20 20 20 62 72 ┆ossible kinds are: br┆
0x1b360…1b37a 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 66 69 6e 69 73 20 20 20 20 74 65 72 ┆eak finis ter┆
0x1b37a…1b380 (0x450,0x368)
0x1b380…1b3a0 6d 69 6e 61 74 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73 69 6e 67 20 61 ┆minates the current processing a┆
0x1b3a0…1b3c0 6e 64 20 72 65 6d 6f 76 65 73 20 74 68 65 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 ┆nd removes the process ┆
0x1b3c0…1b3e0 20 6d 6f 75 6e 74 0a 0a 3b 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 70 61 72 65 6e 74 6d 65 73 ┆ mount ; body of parentmes┆
0x1b3e0…1b400 73 61 67 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6c 61 62 00 00 00 00 00 00 00 00 ┆sage begin lab ┆
0x1b400…1b406 (218,) (0x450,0x369)
0x1b406…1b420 65 6c 20 75 6e 6b 6e 6f 77 6e 2c 6d 6f 75 6e 74 65 64 2c 6d 6f 75 6e 74 6d 65 ┆el unknown,mounted,mountme┆
0x1b420…1b440 73 73 3b 0a 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 20 63 6f 6e 74 5f 61 6e 73 20 28 20 77 6f ┆ss; record cont_ans ( wo┆
0x1b440…1b460 72 64 20 73 74 61 74 2c 6c 5f 69 64 2c 70 65 72 69 66 29 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 ┆rd stat,l_id,perif); incod┆
0x1b460…1b47e 65 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 77 32 33 3b 0a 20 20 20 20 ┆e double w01,w23; ┆
0x1b47e…1b484 (0x450,0x36a)
0x1b484…1b4a0 20 20 20 20 74 65 78 74 28 31 31 29 20 73 74 72 69 6e 67 31 3b 0a 20 20 20 20 20 20 ┆ text(11) string1; ┆
0x1b4a0…1b4c0 20 20 72 65 66 20 66 69 72 73 74 64 65 76 3a 3d 37 34 2c 6c 61 73 74 64 65 76 3a 3d 37 36 3b 0a ┆ ref firstdev:=74,lastdev:=76; ┆
0x1b4c0…1b4e0 20 20 20 20 20 20 20 20 62 79 74 65 20 74 65 6d 6f 70 2c 74 65 6d 6d 6f 64 65 3b 0a 20 20 20 20 ┆ byte temop,temmode; ┆
0x1b4e0…1b4fc 20 20 20 20 77 6f 72 64 20 6c 6f 63 69 64 2c 64 75 6d 31 2c 64 75 6d 32 3b 0a 20 20 ┆ word locid,dum1,dum2; ┆
0x1b4fc…1b502 (0x450,0x36b)
0x1b502…1b520 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 70 6f 6f 6c 6e 61 6d 65 3b 0a 20 20 20 20 20 ┆ text(14) poolname; ┆
0x1b520…1b540 20 20 20 61 72 72 61 79 20 28 31 3a 38 29 20 61 6e 73 77 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 ┆ array (1:8) answ of word; ┆
0x1b540…1b560 20 20 20 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 ┆ word zero:=0; byte ┆
0x1b560…1b57a 65 6d 70 74 79 6f 70 3a 3d 31 36 2c 65 6d 70 74 79 6d 6f 64 65 3a 3d 30 3b 0a ┆emptyop:=16,emptymode:=0; ┆
0x1b57a…1b580 (0x450,0x36c)
0x1b580…1b5a0 20 20 20 20 20 20 20 20 74 65 78 74 28 32 30 29 20 65 6d 70 74 79 74 78 74 3a 3d 22 73 79 73 74 ┆ text(20) emptytxt:="syst┆
0x1b5a0…1b5c0 65 6d 20 65 6d 70 74 79 22 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 ┆em empty"; begin w┆
0x1b5c0…1b5e0 30 31 3a 3d 66 31 3b 20 77 32 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a ┆01:=f1; w23:=f3; w0:=0; ┆
0x1b5e0…1b600 20 20 20 20 20 20 20 20 62 2e 74 69 6d 65 72 6d 65 73 73 3a 3d 77 30 3b 00 00 00 00 00 00 00 00 ┆ b.timermess:=w0; ┆
0x1b600…1b606 (219,) (0x450,0x36d)
0x1b606…1b620 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 ┆ startstop(.w3.,w0┆
0x1b620…1b640 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 6f 70 65 ┆:=0,w1); if w0:=(w2).ope┆
0x1b640…1b660 72 61 74 69 6f 6e 3d 32 20 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 66 69 6e 69 73 6d 65 73 73 61 ┆ration=2 then comment finismessa┆
0x1b660…1b67e 67 65 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 73 65 ┆ge; begin se┆
0x1b67e…1b684 (0x450,0x36e)
0x1b684…1b6a0 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 ┆nd(.w3.,w0:=1,w1,w2:=0); ┆
0x1b6a0…1b6c0 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 32 3c 3d 30 20 74 68 65 ┆ if w0:=(w1).state2<=0 the┆
0x1b6c0…1b6e0 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 28 77 ┆n begin (w┆
0x1b6e0…1b6fc 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 ┆1).intervent:=w0:=2; ┆
0x1b6fc…1b702 (0x450,0x36f)
0x1b702…1b720 20 20 20 20 20 63 6c 65 61 6e 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ clean(.w3.,w1); ┆
0x1b720…1b740 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 21 74 65 73 74 20 ┆ end else begin !test ┆
0x1b740…1b760 34 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a ┆49; outtext(.w3.,w0:┆
0x1b760…1b77a 3d 38 27 37 30 2c 77 31 2c 77 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 76 65 6e ┆=8'70,w1,w2:=(w1).interven┆
0x1b77a…1b780 (0x450,0x370)
0x1b780…1b7a0 74 2b 31 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 6d 6f 76 65 64 ┆t+19); ! removed┆
0x1b7a0…1b7c0 20 61 66 74 65 72 20 20 62 72 65 61 6b 20 2f 20 66 69 6e 69 73 20 2f 20 75 73 65 72 20 6b 69 6c ┆ after break / finis / user kil┆
0x1b7c0…1b7e0 6c 20 2f 20 6f 70 74 2e 6b 69 6c 6c 20 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆l / opt.kill / ┆
0x1b7e0…1b800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 20 65 78 63 00 00 00 00 00 00 00 00 ┆ time exc ┆
0x1b800…1b806 (220,) (0x450,0x371)
0x1b806…1b820 2e 20 2f 20 74 65 72 6d 2e 65 72 72 6f 72 20 2f 20 75 73 65 72 20 62 72 65 61 ┆. / term.error / user brea┆
0x1b820…1b840 6b 20 2f 20 6f 70 74 2e 62 72 65 61 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 ┆k / opt.break ! copy┆
0x1b840…1b860 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 2c ┆(.w3.,w0:=8,w1:=(w1).internal+2,┆
0x1b860…1b87e 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 29 3b 0a 20 20 20 20 ┆w2:=address(b.procname)); ┆
0x1b87e…1b884 (0x450,0x372)
0x1b884…1b8a0 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 ┆ w1:=(w1:=b.userentry┆
0x1b8a0…1b8c0 29 2e 69 6e 74 65 72 6e 61 6c 2b 37 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 28 ┆).internal+76; f1:=(┆
0x1b8c0…1b8e0 77 31 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 ┆w1).double; w3:=addr┆
0x1b8e0…1b8fc 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆ess(zero); monit┆
0x1b8fc…1b902 (0x450,0x373)
0x1b902…1b920 6f 72 28 37 32 29 3b 20 20 21 20 73 65 74 20 73 6f 73 20 63 61 74 61 6c 6f 67 20 62 61 73 ┆or(72); ! set sos catalog bas┆
0x1b920…1b940 65 20 74 6f 20 73 74 64 62 61 73 65 20 6f 66 20 63 68 69 6c 64 20 21 0a 21 74 65 73 74 20 34 34 ┆e to stdbase of child ! !test 44┆
0x1b940…1b960 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 5f 6d ┆0; w3:=address(b.t_m┆
0x1b960…1b97a 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆dul); monitor(┆
0x1b97a…1b980 (0x450,0x374)
0x1b980…1b9a0 36 34 29 3b 20 20 21 20 72 65 6d 6f 76 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a ┆64); ! remove pseudo process ! ┆
0x1b9a0…1b9c0 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 5f 6d 64 75 6c ┆ w3:=address(b.p_mdul┆
0x1b9c0…1b9e0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 20 21 20 72 ┆); monitor(64); ! r┆
0x1b9e0…1ba00 65 6d 6f 76 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a 21 00 00 00 00 00 00 00 00 ┆emove pseudo process ! ! ┆
0x1ba00…1ba06 (221,) (0x450,0x375)
0x1ba06…1ba20 74 65 73 74 20 34 34 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆test 441; w3:=┆
0x1ba20…1ba40 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 62 ┆address(zero); f1:=b┆
0x1ba40…1ba60 2e 73 74 61 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆.startbase; monitor(┆
0x1ba60…1ba7e 37 32 29 3b 20 20 21 20 72 65 73 65 74 20 73 6f 73 20 6f 77 6e 20 63 61 74 20 62 61 73 65 ┆72); ! reset sos own cat base┆
0x1ba7e…1ba84 (0x450,0x376)
0x1ba84…1baa0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 6f 77 6e 70 72 6f 63 ┆ ! w1:=b.ownproc┆
0x1baa0…1bac0 2b 32 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 66 72 65 65 62 75 66 73 3a 3d 77 30 3a ┆+26; b.freebufs:=w0:┆
0x1bac0…1bae0 3d 62 2e 66 72 65 65 62 75 66 73 2d 28 77 31 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆=b.freebufs-(w1).byte; ┆
0x1bae0…1bafc 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 3b 0a ┆ w3:=address(b.procname); ┆
0x1bafc…1bb02 (0x450,0x377)
0x1bb02…1bb20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 20 63 6f 6d 6d ┆ monitor(64); comm┆
0x1bb20…1bb40 65 6e 74 20 72 65 6d 6f 76 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3b 0a 21 74 65 ┆ent remove internal process; !te┆
0x1bb40…1bb60 73 74 20 31 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 66 72 65 65 62 75 66 73 3a 3d ┆st 110; b.freebufs:=┆
0x1bb60…1bb7a 77 30 3a 3d 62 2e 66 72 65 65 62 75 66 73 2b 28 77 31 29 2e 62 79 74 65 3b 0a ┆w0:=b.freebufs+(w1).byte; ┆
0x1bb7a…1bb80 (0x450,0x378)
0x1bb80…1bba0 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d ┆ copy(.w3.,w0:=6,w1:=┆
0x1bba0…1bbc0 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆address(b.procname),w2:=address(┆
0x1bbc0…1bbe0 70 6f 6f 6c 6e 61 6d 65 29 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 ┆poolname)+2); w0:= 0┆
0x1bbe0…1bc00 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 62 61 73 65 65 76 65 6e 00 00 00 00 00 00 00 00 ┆; b.baseeven ┆
0x1bc00…1bc06 (222,) (0x450,0x379)
0x1bc06…1bc20 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e ┆t:= w0; copy(.┆
0x1bc20…1bc40 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b 32 2c 77 32 3a 3d 61 64 ┆w3.,w0:=2,w1:=b.ownproc+2,w2:=ad┆
0x1bc40…1bc60 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆dress(poolname)); t┆
0x1bc60…1bc7e 65 6d 6f 70 3a 3d 77 30 3a 3d 31 30 32 3b 20 20 21 20 72 65 6d 6f 76 65 20 6c 69 6e 6b 20 ┆emop:=w0:=102; ! remove link ┆
0x1bc7e…1bc84 (0x450,0x37a)
0x1bc84…1bca0 28 73 6f 66 74 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 69 64 3a 3d ┆(soft) ! locid:=┆
0x1bca0…1bcc0 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 70 ┆w1:=0; w3:=address(p┆
0x1bcc0…1bce0 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 ┆oolname); w1:=addres┆
0x1bce0…1bcfc 73 28 74 65 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆s(temop); monito┆
0x1bcfc…1bd02 (0x450,0x37b)
0x1bd02…1bd20 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 ┆r(16); ! send message ! ┆
0x1bd20…1bd40 20 20 20 20 20 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ answ(w1:=1); ┆
0x1bd40…1bd60 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 ┆monitor(18); ! wait answer ! ┆
0x1bd60…1bd7a 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d ┆ tem┆
0x1bd7a…1bd80 (0x450,0x37c)
0x1bd80…1bda0 6f 70 3a 3d 77 30 3a 3d 39 32 3b 20 20 21 20 72 65 6d 6f 76 65 20 70 6f 6f 6c 20 21 0a 20 20 20 ┆op:=w0:=92; ! remove pool ! ┆
0x1bda0…1bdc0 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 3b 0a ┆ w3:=address(b.t_mdul); ┆
0x1bdc0…1bde0 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 6d 6f 70 29 3b 0a ┆ w1:=address(temop); ┆
0x1bde0…1be00 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 00 00 00 00 00 00 00 00 ┆ monitor(16); ┆
0x1be00…1be06 (223,) (0x450,0x37d)
0x1be06…1be20 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 ┆ ! send message ! ┆
0x1be20…1be40 20 20 20 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ answ(w1:=1); mo┆
0x1be40…1be60 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 0a 20 20 20 ┆nitor(18); ! wait answer ! ┆
0x1be60…1be7e 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 61 ┆ copy(.w3.,w0:=2,w1:=a┆
0x1be7e…1be84 (0x450,0x37e)
0x1be84…1bea0 64 64 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆ddress(b.t_mdul),w2:=address┆
0x1bea0…1bec0 28 70 6f 6f 6c 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 ┆(poolname)); w1:=add┆
0x1bec0…1bee0 72 65 73 73 28 74 65 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 ┆ress(temop); w3:=add┆
0x1bee0…1befc 72 65 73 73 28 62 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ress(b.t_mdul); ┆
0x1befc…1bf02 (0x450,0x37f)
0x1bf02…1bf20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 ┆monitor(16); ! send message !┆
0x1bf20…1bf40 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 ┆ answ(w1:=1); ┆
0x1bf40…1bf60 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 ┆ monitor(18); ! wait answe┆
0x1bf60…1bf7a 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 75 73 65 72 ┆r ! w1:=b.user┆
0x1bf7a…1bf80 (0x450,0x380)
0x1bf80…1bfa0 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c ┆entry; link(.w3.,w1,┆
0x1bfa0…1bfc0 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 ┆w2:=address(b.waitqfst)); ┆
0x1bfc0…1bfe0 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 65 ┆ w0:=0; (w1).pe┆
0x1bfe0…1c000 72 69 70 68 65 72 61 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ripheral:=w0; ┆
0x1c000…1c006 (224,) (0x450,0x381)
0x1c006…1c020 20 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 ┆ (w1).internal:=w0; ┆
0x1c020…1c040 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆ (w1).messsend:=w0; ┆
0x1c040…1c060 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).messgot:=w0; ┆
0x1c060…1c07e 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆ (w1).intervent:=w0; ┆
0x1c07e…1c084 (0x450,0x382)
0x1c084…1c0a0 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 73 79 73 73 74 61 74 65 20 3d 20 31 20 ┆ if w0:=b.sysstate = 1 ┆
0x1c0a0…1c0c0 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 20 ┆then begin ┆
0x1c0c0…1c0e0 20 20 20 20 20 77 31 3a 3d 62 2e 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=b.lastuser; ┆
0x1c0e0…1c0fc 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c ┆ w0:=0; whil┆
0x1c0fc…1c102 (0x450,0x383)
0x1c102…1c120 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 20 3e 3d 20 62 2e 66 ┆e w1-!length(userentry) >= b.f┆
0x1c120…1c140 69 72 73 74 75 73 65 72 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆irstuser do begin ┆
0x1c140…1c160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 69 6e 74 65 ┆ if w3:=(w1).inte┆
0x1c160…1c17a 72 6e 61 6c 20 3e 20 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆rnal > 0 then ┆
0x1c17a…1c180 (0x450,0x384)
0x1c180…1c1a0 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 33 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 65 6e 20 77 ┆ if w3:=(w3).word = 0 then w┆
0x1c1a0…1c1c0 30 2b 31 3b 0a 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 ┆0+1; end; ┆
0x1c1c0…1c1e0 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 20 6f 70 6d 65 73 73 28 2e 77 33 2e ┆ if w0 = 0 then opmess(.w3.┆
0x1c1e0…1c200 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 6f 70 29 2c 77 32 00 00 00 00 00 00 00 00 ┆,w1:=address(emptyop),w2 ┆
0x1c200…1c206 (225,) (0x450,0x385)
0x1c206…1c220 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=b.ownproc); ┆
0x1c220…1c240 65 6e 64 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 65 6e 64 20 ┆end; end; end ┆
0x1c240…1c260 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 34 20 74 68 65 6e 20 63 6f 6d 6d 65 6e ┆else if w0=4 then commen┆
0x1c260…1c27e 74 20 62 72 65 61 6b 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆t break message; begin┆
0x1c27e…1c284 (0x450,0x386)
0x1c284…1c2a0 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 ┆ send(.w3.,w0:=1,w┆
0x1c2a0…1c2c0 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e ┆1,w2:=0); if w0:=(w1).┆
0x1c2c0…1c2e0 69 6e 74 65 72 76 65 6e 74 20 3d 20 2d 31 20 74 68 65 6e 20 28 77 31 29 2e 69 6e 74 65 72 76 65 ┆intervent = -1 then (w1).interve┆
0x1c2e0…1c2fc 6e 74 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d ┆nt:=w0:=1; if w0 =┆
0x1c2fc…1c302 (0x450,0x387)
0x1c302…1c320 20 30 20 74 68 65 6e 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 31 3b ┆ 0 then (w1).intervent:=w0:=1;┆
0x1c320…1c340 0a 20 20 20 20 20 20 20 20 20 20 63 6c 65 61 6e 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 ┆ clean(.w3.,w1); ┆
0x1c340…1c360 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 31 34 20 74 ┆ end else if w0 = 14 t┆
0x1c360…1c37a 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 6d 6f 75 6e 74 20 6d 65 73 73 61 67 65 3b ┆hen comment mount message;┆
0x1c37a…1c380 (0x450,0x388)
0x1c380…1c3a0 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 6d 6f 75 6e 74 6d 65 73 73 3a 0a 20 20 20 20 20 20 ┆ begin mountmess: ┆
0x1c3a0…1c3c0 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 32 2b 31 36 2c 77 32 ┆ copy(.w3.,w0:=8,w1:=w2+16,w2┆
0x1c3c0…1c3e0 3a 3d 61 64 64 72 65 73 73 28 73 74 72 69 6e 67 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆:=address(string1)); w┆
0x1c3e0…1c400 33 3a 3d 61 64 64 72 65 73 73 28 73 74 72 69 6e 67 31 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆3:=address(string1); ┆
0x1c400…1c406 (226,) (0x450,0x389)
0x1c406…1c420 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 20 21 20 67 65 74 20 ┆ monitor(4); ! get ┆
0x1c420…1c440 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆process description ! ┆
0x1c440…1c460 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆if w0 <> 0 then begin ┆
0x1c460…1c47e 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 6f 72 64 28 66 69 72 73 74 64 65 76 29 ┆ w1:=word(firstdev)┆
0x1c47e…1c484 (0x450,0x38a)
0x1c484…1c4a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2b 32 20 3c 3d 20 ┆; while w1+2 <= ┆
0x1c4a0…1c4c0 77 6f 72 64 28 6c 61 73 74 64 65 76 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆word(lastdev) do beg┆
0x1c4c0…1c4e0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 28 77 31 29 2e 77 6f ┆in if w0 = (w1).wo┆
0x1c4e0…1c4fc 72 64 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 0a ┆rd then begin ┆
0x1c4fc…1c502 (0x450,0x38b)
0x1c502…1c520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e ┆ w3:=address(b.┆
0x1c520…1c540 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2d 77 6f ┆procname); w1-wo┆
0x1c540…1c560 72 64 28 66 69 72 73 74 64 65 76 29 20 6c 73 68 69 66 74 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 ┆rd(firstdev) lshift -1; ┆
0x1c560…1c57a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 32 29 3b 20 20 21 20 69 6e ┆ monitor(12); ! in┆
0x1c57a…1c580 (0x450,0x38c)
0x1c580…1c5a0 63 6c 75 64 65 20 75 73 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆clude user ! if ┆
0x1c5a0…1c5c0 77 30 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆w0 = 0 then begi┆
0x1c5c0…1c5e0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 ┆n f1:=w01; ┆
0x1c5e0…1c600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 00 00 00 00 00 00 00 00 ┆ (w1).stat ┆
0x1c600…1c606 (227,) (0x450,0x38d)
0x1c606…1c620 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e:=w0:=0; ┆
0x1c620…1c640 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 ┆ link(.w3.,w1,w2:=address(b.act┆
0x1c640…1c660 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 ┆ivqfst)); send┆
0x1c660…1c67e 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 ┆(.w3.,w0:=1,w1,w2:=0); ┆
0x1c67e…1c684 (0x450,0x38e)
0x1c684…1c6a0 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6d 6f 75 6e 74 65 64 3b 0a 20 20 20 ┆ goto mounted; ┆
0x1c6a0…1c6c0 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 20 20 20 ┆ end; ┆
0x1c6c0…1c6e0 65 6e 64 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 20 ┆end; end; ┆
0x1c6e0…1c6fc 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 ┆end; f1:=w01; ┆
0x1c6fc…1c702 (0x450,0x38f)
0x1c702…1c720 20 20 20 20 20 20 66 33 3a 3d 77 32 33 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆ f3:=w23; goto ┆
0x1c720…1c740 75 6e 6b 6e 6f 77 6e 3b 0a 6d 6f 75 6e 74 65 64 3a 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c ┆unknown; mounted: end el┆
0x1c740…1c760 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 32 20 74 68 65 6e 20 67 6f 74 6f 20 ┆se if w0 = 32 then goto ┆
0x1c760…1c77a 6d 6f 75 6e 74 6d 65 73 73 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆mountmess else ┆
0x1c77a…1c780 (0x450,0x390)
0x1c780…1c7a0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 ┆ begin comment parent messag┆
0x1c7a0…1c7c0 65 20 75 6e 6b 6e 6f 77 6e 3b 0a 75 6e 6b 6e 6f 77 6e 3a 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆e unknown; unknown: (w┆
0x1c7c0…1c7e0 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 ┆1).state:=w0:=0; w2:=(┆
0x1c7e0…1c800 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w1).internal; ┆
0x1c800…1c806 (228,) (0x450,0x391)
0x1c806…1c820 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 6d 65 73 73 61 67 65 2b ┆opmess(.w3.,w1:=b.message+┆
0x1c820…1c840 38 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 ┆8,w2); if w0:=(w1).wor┆
0x1c840…1c860 64 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 20 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 ┆d onemask 1 then w2:=address(b.w┆
0x1c860…1c87e 61 69 74 71 66 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆aitqfst) ┆
0x1c87e…1c884 (0x450,0x392)
0x1c884…1c8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 32 3a 3d 61 64 64 ┆ else w2:=add┆
0x1c8a0…1c8c0 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a ┆ress(b.activqfst); f1:┆
0x1c8c0…1c8e0 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 29 ┆=w01; link(.w3.,w1,w2)┆
0x1c8e0…1c8fc 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c ┆; send(.w3.,w0:=1,┆
0x1c8fc…1c902 (0x450,0x393)
0x1c902…1c920 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆w1,w2:=0); end; ┆
0x1c920…1c940 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 66 31 3a ┆ w3:=address(zero); f1:┆
0x1c940…1c960 3d 62 2e 73 74 61 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 ┆=b.startbase; monitor(72┆
0x1c960…1c97a 29 3b 20 20 21 20 72 73 65 74 20 73 6f 73 20 6f 77 6e 20 63 61 74 61 6c 6f 67 ┆); ! rset sos own catalog┆
0x1c97a…1c980 (0x450,0x394)
0x1c980…1c9a0 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 20 66 33 3a 3d 77 32 33 ┆ base ! f1:=w01; f3:=w23┆
0x1c9a0…1c9c0 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 70 61 72 ┆; end; end; ! par┆
0x1c9c0…1c9e0 65 6e 74 6d 65 73 73 61 67 65 20 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 ┆entmessage ! comment ┆
0x1c9e0…1ca00 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 65 61 6e 0a 0a 3b 0a 0a 0a 00 00 00 00 00 00 00 00 ┆ clean ; ┆
0x1ca00…1ca06 (229,) (0x450,0x395)
0x1ca06…1ca20 20 20 20 20 62 6f 64 79 20 6f 66 20 63 6c 65 61 6e 0a 20 20 20 20 62 65 67 69 ┆ body of clean begi┆
0x1ca20…1ca40 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 ┆n incode double sa┆
0x1ca40…1ca60 76 65 66 31 2c 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 63 6f 72 ┆vef1, savef3; double cor┆
0x1ca60…1ca7e 65 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 62 75 66 66 65 72 73 2c ┆elimits; byte buffers,┆
0x1ca7e…1ca84 (0x450,0x396)
0x1ca84…1caa0 20 61 72 65 61 73 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 69 6e 74 65 72 6e 61 ┆ areas; byte interna┆
0x1caa0…1cac0 6c 73 3a 3d 30 2c 20 66 6e 63 6d 61 73 6b 3a 3d 31 37 39 32 3b 0a 20 20 20 20 20 20 20 20 62 79 ┆ls:=0, fncmask:=1792; by┆
0x1cac0…1cae0 74 65 20 70 72 6f 74 72 65 67 2c 20 70 72 6f 74 6b 65 79 3b 0a 20 20 20 20 20 20 20 20 64 6f 75 ┆te protreg, protkey; dou┆
0x1cae0…1cafc 62 6c 65 20 6d 61 78 62 61 73 65 2c 20 73 74 64 62 61 73 65 3b 0a 20 20 20 20 20 20 ┆ble maxbase, stdbase; ┆
0x1cafc…1cb02 (0x450,0x397)
0x1cb02…1cb20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 20 73 61 76 65 ┆begin savef1:=f1; save┆
0x1cb20…1cb40 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 ┆f3:=f3; if w0:=(w1).mess┆
0x1cb40…1cb60 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆got > 10 then begin ┆
0x1cb60…1cb7a 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d ┆ (w1).buflength:=w2:=┆
0x1cb7a…1cb80 (0x450,0x398)
0x1cb80…1cba0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c ┆0; send(.w3.,w0:=1,w1,┆
0x1cba0…1cbc0 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e ┆w2); end; copy(.┆
0x1cbc0…1cbe0 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 2c 77 32 ┆w3.,w0:=8,w1:=(w1).internal+2,w2┆
0x1cbe0…1cc00 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 29 3b 0a 00 00 00 00 00 00 00 00 ┆:=address(b.procname)); ┆
0x1cc00…1cc06 (230,) (0x450,0x399)
0x1cc06…1cc20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 66 73 74 63 6f 72 65 3b 20 77 33 3a ┆ w2:=b.fstcore; w3:┆
0x1cc20…1cc40 3d 62 2e 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 63 6f 72 65 6c 69 6d 69 74 73 3a 3d ┆=b.topcore; corelimits:=┆
0x1cc40…1cc60 66 33 3b 0a 20 20 20 20 20 20 20 20 70 72 6f 74 72 65 67 3a 3d 77 33 3a 3d 62 2e 63 68 69 6c 64 ┆f3; protreg:=w3:=b.child┆
0x1cc60…1cc7e 70 72 3b 0a 20 20 20 20 20 20 20 20 70 72 6f 74 6b 65 79 3a 3d 77 33 3a 3d 62 2e 63 68 69 ┆pr; protkey:=w3:=b.chi┆
0x1cc7e…1cc84 (0x450,0x39a)
0x1cc84…1cca0 6c 64 70 6b 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 6f 77 6e 70 72 6f 63 ┆ldpk; w2:= b.ownproc┆
0x1cca0…1ccc0 3b 0a 20 20 20 20 20 20 20 20 62 75 66 66 65 72 73 3a 3d 20 2d 28 77 33 3a 3d 28 77 31 3a 3d 77 ┆; buffers:= -(w3:=(w1:=w┆
0x1ccc0…1cce0 32 2b 32 36 29 2e 62 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20 61 72 65 61 73 3a 3d 20 2d 28 77 ┆2+26).byte); areas:= -(w┆
0x1cce0…1ccfc 33 3a 3d 28 77 31 3a 3d 77 32 2b 32 37 29 2e 62 79 74 65 29 3b 0a 20 20 20 20 20 20 ┆3:=(w1:=w2+27).byte); ┆
0x1ccfc…1cd02 (0x450,0x39b)
0x1cd02…1cd20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 ┆ f1:= savef1; w0:= (w┆
0x1cd20…1cd40 31 29 2e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 6d 61 78 62 61 73 65 3a 3d 66 33 ┆1).internal; maxbase:=f3┆
0x1cd40…1cd60 3a 3d 28 77 31 3a 3d 77 30 2b 37 32 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 73 74 ┆:=(w1:=w0+72).double; st┆
0x1cd60…1cd7a 64 62 61 73 65 3a 3d 66 33 3a 3d 28 77 31 3a 3d 77 30 2b 37 36 29 2e 64 6f 75 ┆dbase:=f3:=(w1:=w0+76).dou┆
0x1cd7a…1cd80 (0x450,0x39c)
0x1cd80…1cda0 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e ┆ble; w3:=address(b.procn┆
0x1cda0…1cdc0 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 63 6f 6d 6d 65 ┆ame); monitor(64); comme┆
0x1cdc0…1cde0 6e 74 20 72 65 6d 6f 76 65 20 69 6e 74 65 72 6e 61 6c 3b 0a 21 74 65 73 74 20 31 30 30 3b 0a 20 ┆nt remove internal; !test 100; ┆
0x1cde0…1ce00 20 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 6f 77 6e 70 72 6f 63 3b 0a 20 00 00 00 00 00 00 00 00 ┆ w2:= b.ownproc; ┆
0x1ce00…1ce06 (231,) (0x450,0x39d)
0x1ce06…1ce20 20 20 20 20 20 20 20 62 75 66 66 65 72 73 3a 3d 20 77 30 3a 3d 20 62 75 66 66 ┆ buffers:= w0:= buff┆
0x1ce20…1ce40 65 72 73 2b 28 77 31 3a 3d 77 32 2b 32 36 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 61 72 ┆ers+(w1:=w2+26).byte; ar┆
0x1ce40…1ce60 65 61 73 3a 3d 20 77 30 3a 3d 20 61 72 65 61 73 2b 28 77 31 3a 3d 77 32 2b 32 37 29 2e 62 79 74 ┆eas:= w0:= areas+(w1:=w2+27).byt┆
0x1ce60…1ce7e 65 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 63 6f 72 65 6c 69 6d ┆e; w1:=address(corelim┆
0x1ce7e…1ce84 (0x450,0x39e)
0x1ce84…1cea0 69 74 73 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 36 29 3b 20 63 ┆its); monitor(56); c┆
0x1cea0…1cec0 6f 6d 6d 65 6e 74 20 63 72 65 61 74 65 20 69 6e 74 65 72 6e 61 6c 3b 0a 21 74 65 73 74 20 31 30 ┆omment create internal; !test 10┆
0x1cec0…1cee0 32 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 6d ┆2; f1:=savef1; m┆
0x1cee0…1cefc 6f 6e 69 74 6f 72 28 34 29 3b 20 63 6f 6d 6d 65 6e 74 20 6c 6f 6f 6b 75 70 20 70 72 ┆onitor(4); comment lookup pr┆
0x1cefc…1cf02 (0x450,0x39f)
0x1cf02…1cf20 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d ┆ocess; (w1).internal:=┆
0x1cf20…1cf40 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 33 3b 0a 20 ┆w0; (w1).state:=w0:=3; ┆
0x1cf40…1cf60 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 32 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 ┆ (w1).state2:=w0:=1; ┆
0x1cf60…1cf7a 20 20 20 28 77 31 29 2e 70 72 69 6f 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 ┆ (w1).prio:=w0:=0; ┆
0x1cf7a…1cf80 (0x450,0x3a0)
0x1cf80…1cfa0 20 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆ (w1).class:=w0; (w1).┆
0x1cfa0…1cfc0 6d 65 73 73 73 65 6e 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 67 ┆messsend:=w0; (w1).messg┆
0x1cfc0…1cfe0 6f 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a ┆ot:=w0; link(.w3.,w1,w2:┆
0x1cfe0…1d000 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 00 00 00 00 00 00 00 00 ┆=address(b.activqfst)); ┆
0x1d000…1d006 (232,) (0x450,0x3a1)
0x1d006…1d020 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 ┆ f1:=savef1; ┆
0x1d020…1d040 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 ┆ f3:=savef3; end; end┆
0x1d040…1d060 3b 20 20 20 20 20 21 20 20 63 6c 65 61 6e 20 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 ┆; ! clean ! comment ┆
0x1d060…1d07e 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 0a 0a 3b 0a 0a 0a 20 20 20 20 ┆ compare ; ┆
0x1d07e…1d084 (0x450,0x3a2)
0x1d084…1d0a0 62 6f 64 79 20 6f 66 20 63 6f 6d 70 61 72 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆body of compare begin ┆
0x1d0a0…1d0c0 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 31 3b 0a ┆ incode word savew1; ┆
0x1d0c0…1d0e0 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 62 65 67 ┆ double savef3; beg┆
0x1d0e0…1d0fc 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 20 73 61 76 65 66 ┆in savew1:=w1; savef┆
0x1d0fc…1d102 (0x450,0x3a3)
0x1d102…1d120 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 77 31 2b 77 30 3b 0a 20 20 20 20 ┆3:=f3; w3:=w1+w0; ┆
0x1d120…1d140 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 77 33 20 64 ┆ w0:=0; while w1<w3 d┆
0x1d140…1d160 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 ┆o begin w0:=(w┆
0x1d160…1d17a 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 2d 28 77 32 29 ┆1).word; w0-(w2)┆
0x1d17a…1d180 (0x450,0x3a4)
0x1d180…1d1a0 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆.word; w1+2; ┆
0x1d1a0…1d1c0 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 77 ┆ w2+2; if w0<>0 then w┆
0x1d1c0…1d1e0 31 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆1:=w3; end; w1:=┆
0x1d1e0…1d200 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 00 00 00 00 00 00 00 00 ┆savew1; f3:=save ┆
0x1d200…1d206 (233,) (0x450,0x3a5)
0x1d206…1d220 66 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 ┆f3; end; end; ┆
0x1d220…1d240 20 20 21 20 20 63 6f 6d 70 61 72 65 20 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 ┆ ! compare ! comment ┆
0x1d240…1d260 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 63 68 61 72 0a 0a 3b 0a 0a 0a 20 20 20 20 62 ┆ nextchar ; b┆
0x1d260…1d27e 6f 64 79 20 6f 66 20 6e 65 78 74 63 68 61 72 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ody of nextchar begin ┆
0x1d27e…1d284 (0x450,0x3a6)
0x1d284…1d2a0 20 20 6c 61 62 65 6c 20 64 75 6d 6d 79 31 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ label dummy1; begin ┆
0x1d2a0…1d2c0 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ if w1=0 then i┆
0x1d2c0…1d2e0 66 20 77 32 3d 28 77 33 29 2e 73 74 70 20 74 68 65 6e 20 77 31 3a 3d 31 30 20 61 73 68 69 66 74 ┆f w2=(w3).stp then w1:=10 ashift┆
0x1d2e0…1d2fc 20 31 36 20 20 20 20 20 21 20 73 69 6d 75 6c 61 74 65 20 27 6e 6c 27 20 61 74 20 65 ┆ 16 ! simulate 'nl' at e┆
0x1d2fc…1d302 (0x450,0x3a7)
0x1d302…1d320 6e 64 20 6f 66 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 ┆nd of buffer ! else ┆
0x1d320…1d340 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 32 29 2e 77 6f 72 64 3b ┆begin w1:=(w2).word;┆
0x1d340…1d360 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ w2+2; end┆
0x1d360…1d37a 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 66 ┆; w0:=0; f┆
0x1d37a…1d380 (0x450,0x3a8)
0x1d380…1d3a0 31 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 33 20 74 68 65 ┆1 lshift 8; if w0=13 the┆
0x1d3a0…1d3c0 6e 20 77 30 3a 3d 20 31 30 3b 20 21 20 63 6f 6e 76 65 72 74 20 3c 63 72 3e 20 74 6f 20 3c 6e 6c ┆n w0:= 10; ! convert <cr> to <nl┆
0x1d3c0…1d3e0 3e 20 74 6f 20 61 76 6f 69 64 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> to avoid ! ┆
0x1d3e0…1d400 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 79 6e 74 61 78 20 65 72 00 00 00 00 00 00 00 00 ┆ ! syntax er ┆
0x1d400…1d406 (234,) (0x450,0x3a9)
0x1d406…1d420 72 6f 72 20 72 65 61 64 69 6e 67 20 69 6e 20 6d 6f 64 65 20 32 20 21 0a 20 20 ┆ror reading in mode 2 ! ┆
0x1d420…1d440 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 65 6e 64 2e 0a 19 66 33 3b 0a 20 20 20 ┆ end; end; end. f3; ┆
0x1d440…1d460 20 20 20 20 20 77 33 3a 3d 77 31 2b 77 30 20 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 ┆ w3:=w1+w0 ! comment ┆
0x1d460…1d47e 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 0a 0a 3b 0a 0a 0a 20 20 20 20 ┆ compare ; ┆
0x1d47e…1d484 (0x4b4,0x3aa)
0x1d484…1d4a0 21 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 63 6c 65 61 72 74 65 6d ┆! *** tcleartem┆
0x1d4a0…1d4c0 70 20 20 2a 2a 2a 0a 3b 0a 3b 0a 3b 20 63 61 74 61 6c 6f 67 20 63 6c 65 61 6e 69 6e 67 20 70 72 ┆p *** ; ; ; catalog cleaning pr┆
0x1d4c0…1d4e0 6f 67 72 61 6d 20 20 2d 20 75 73 65 64 20 77 68 65 6e 20 61 20 75 73 65 72 20 70 72 6f 63 65 73 ┆ogram - used when a user proces┆
0x1d4e0…1d4fc 73 20 69 73 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 73 6f 73 0a 21 0a 0a 63 6c 65 ┆s is removed from sos ! cle┆
0x1d4fc…1d502 (0x4b4,0x3ab)
0x1d502…1d520 61 72 74 65 6d 70 0a 62 65 67 69 6e 0a 20 20 21 73 65 63 74 69 6f 6e 73 20 34 3b 0a 20 20 ┆artemp begin !sections 4; ┆
0x1d520…1d540 21 66 70 2e 6e 6f 3b 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6e 65 78 74 5f 65 6e 74 72 79 20 28 ┆!fp.no; procedure next_entry (┆
0x1d540…1d560 2e 77 33 2e 3b 77 31 29 3b 0a 20 20 63 6f 6d 6d 65 6e 74 20 20 20 72 65 74 75 72 6e 20 77 31 20 ┆.w3.;w1); comment return w1 ┆
0x1d560…1d57a 20 20 62 75 66 20 61 64 72 20 6f 66 20 6e 65 78 74 20 65 6e 74 72 79 20 6f 72 ┆ buf adr of next entry or┆
0x1d57a…1d580 (0x4b4,0x3ac)
0x1d580…1d5a0 20 30 20 28 61 66 74 65 72 20 65 6e 64 20 64 6f 63 2e 29 0a 20 20 3b 0a 0a 20 20 70 72 6f 63 65 ┆ 0 (after end doc.) ; proce┆
0x1d5a0…1d5c0 64 75 72 65 20 72 65 6d 6f 76 65 5f 65 6e 74 72 79 20 28 2e 77 33 2e 3b 77 31 29 3b 0a 20 20 63 ┆dure remove_entry (.w3.;w1); c┆
0x1d5c0…1d5e0 6f 6d 6d 65 6e 74 20 20 20 63 61 6c 6c 20 20 20 77 31 20 20 20 62 75 66 20 61 64 72 20 6f 66 20 ┆omment call w1 buf adr of ┆
0x1d5e0…1d600 65 6e 74 72 79 0a 20 20 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 74 00 00 00 00 00 00 00 00 ┆entry ; procedure t ┆
0x1d600…1d606 (235,) (0x4b4,0x3ad)
0x1d606…1d620 72 61 6e 73 70 6f 72 74 20 28 2e 77 33 2e 3b 77 31 29 3b 0a 20 20 63 6f 6d 6d ┆ransport (.w3.;w1); comm┆
0x1d620…1d640 65 6e 74 20 20 20 72 65 74 75 72 6e 20 77 31 20 20 20 62 79 74 65 73 20 74 72 61 6e 73 66 65 72 ┆ent return w1 bytes transfer┆
0x1d640…1d660 72 65 64 0a 20 20 3b 0a 0a 0a 20 20 6c 61 62 65 6c 20 69 6e 74 65 72 72 75 70 74 2c 20 69 6e 69 ┆red ; label interrupt, ini┆
0x1d660…1d67e 74 69 61 6c 69 7a 65 2c 20 66 69 6e 69 73 3b 0a 20 20 72 65 63 6f 72 64 20 65 6e 74 72 79 ┆tialize, finis; record entry┆
0x1d67e…1d684 (0x4b4,0x3ae)
0x1d684…1d6a0 20 28 20 62 79 74 65 20 66 73 6c 69 63 65 2c 63 61 74 6b 65 79 73 3b 0a 20 20 20 20 ┆ ( byte fslice,catkeys; ┆
0x1d6a0…1d6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 63 61 74 62 61 73 65 3b 0a 20 20 20 ┆ double catbase; ┆
0x1d6c0…1d6e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6e 61 6d 65 0a 20 20 20 20 ┆ text(11) name ┆
0x1d6e0…1d6fc 20 20 20 20 20 20 20 20 20 20 20 29 3b 0a 20 20 69 6e 63 6f 64 65 0a 20 20 77 6f 72 ┆ ); incode wor┆
0x1d6fc…1d702 (0x4b4,0x3af)
0x1d702…1d720 64 20 6d 65 65 3b 0a 20 20 77 6f 72 64 20 6e 75 6c 3a 3d 20 30 3b 0a 20 20 77 6f 72 64 20 ┆d mee; word nul:= 0; word ┆
0x1d720…1d740 6d 61 78 74 65 6d 70 6b 65 79 3a 3d 20 32 3b 0a 20 20 62 79 74 65 20 6d 5f 6f 70 3a 3d 20 33 2c ┆maxtempkey:= 2; byte m_op:= 3,┆
0x1d740…1d760 20 6d 5f 6d 6f 64 65 3a 3d 20 30 3b 0a 20 20 72 65 66 20 62 75 66 66 69 72 73 74 2c 20 62 75 66 ┆ m_mode:= 0; ref buffirst, buf┆
0x1d760…1d77a 6c 61 73 74 3b 0a 20 20 77 6f 72 64 20 6d 5f 73 65 67 6d 3a 3d 20 30 3b 0a 20 ┆last; word m_segm:= 0; ┆
0x1d77a…1d780 (0x4b4,0x3b0)
0x1d780…1d7a0 20 74 65 78 74 28 31 34 29 20 63 61 74 61 6c 6f 67 3a 3d 20 22 63 61 74 61 6c 6f 67 22 3b 0a 20 ┆ text(14) catalog:= "catalog"; ┆
0x1d7a0…1d7c0 20 77 6f 72 64 20 6c 6d 61 78 62 61 73 65 2c 20 75 6d 61 78 62 61 73 65 2c 20 6c 73 74 64 62 61 ┆ word lmaxbase, umaxbase, lstdba┆
0x1d7c0…1d7e0 73 65 2c 20 75 73 74 64 62 61 73 65 2c 20 6c 63 61 74 62 61 73 65 2c 20 75 63 61 74 62 61 73 65 ┆se, ustdbase, lcatbase, ucatbase┆
0x1d7e0…1d800 3b 0a 20 20 62 79 74 65 20 66 69 6e 69 73 5f 6f 70 3a 3d 20 32 2c 20 66 00 00 00 00 00 00 00 00 ┆; byte finis_op:= 2, f ┆
0x1d800…1d806 (236,) (0x4b4,0x3b1)
0x1d806…1d820 69 6e 69 73 5f 6d 6f 64 65 3a 3d 20 31 3b 20 74 65 78 74 28 32 30 29 20 66 69 ┆inis_mode:= 1; text(20) fi┆
0x1d820…1d840 6e 69 73 5f 74 3a 3d 20 22 66 69 6e 69 73 22 3b 0a 20 20 64 6f 75 62 6c 65 20 70 6e 61 6d 65 31 ┆nis_t:= "finis"; double pname1┆
0x1d840…1d860 2c 20 70 6e 61 6d 65 32 3b 0a 0a 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6d 65 65 3a 3d 20 77 33 ┆, pname2; begin mee:= w3┆
0x1d860…1d87e 3b 0a 20 20 69 6e 74 65 72 72 75 70 74 3a 0a 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 ┆; interrupt: w3:= addres┆
0x1d87e…1d884 (0x4b4,0x3b2)
0x1d884…1d8a0 73 28 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 ┆s(interrupt); w0:= 0; ┆
0x1d8a0…1d8c0 20 20 6d 6f 6e 69 74 6f 72 28 30 29 3b 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 69 6e 74 65 72 72 ┆ monitor(0); comment set interr┆
0x1d8c0…1d8e0 75 70 74 3b 0a 20 20 20 20 67 6f 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 3b 0a 20 20 20 20 77 31 ┆upt; goto initialize; w1┆
0x1d8e0…1d8fc 2b 30 3b 20 77 31 2b 30 3b 20 77 31 2b 30 3b 20 77 31 2b 30 3b 0a 20 20 20 20 67 6f ┆+0; w1+0; w1+0; w1+0; go┆
0x1d8fc…1d902 (0x4b4,0x3b3)
0x1d902…1d920 74 6f 20 66 69 6e 69 73 3b 0a 0a 20 20 69 6e 69 74 69 61 6c 69 7a 65 3a 0a 20 20 20 20 77 ┆to finis; initialize: w┆
0x1d920…1d940 33 3a 3d 20 6d 65 65 2b 32 34 3b 0a 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 20 ┆3:= mee+24; w2:= (w3).word; ┆
0x1d940…1d960 20 63 6f 6d 6d 65 6e 74 20 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 62 75 66 66 69 72 73 74 3a 3d ┆ comment topcore; buffirst:=┆
0x1d960…1d97a 20 77 31 3b 0a 20 20 20 20 77 30 3a 3d 20 77 32 2d 77 31 20 6c 73 68 69 66 74 ┆ w1; w0:= w2-w1 lshift┆
0x1d97a…1d980 (0x4b4,0x3b4)
0x1d980…1d9a0 20 2d 39 20 6c 73 68 69 66 74 20 39 20 2b 20 77 31 20 2d 20 32 3b 0a 20 20 20 20 62 75 66 6c 61 ┆ -9 lshift 9 + w1 - 2; bufla┆
0x1d9a0…1d9c0 73 74 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 77 33 3a 3d 20 77 33 2b 34 34 3b 0a 20 20 20 20 66 31 ┆st:= w0; w3:= w3+44; f1┆
0x1d9c0…1d9e0 3a 3d 20 28 77 33 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 6c 63 61 74 62 61 73 65 3a 3d 20 77 ┆:= (w3).double; lcatbase:= w┆
0x1d9e0…1da00 30 3b 20 20 75 63 61 74 62 61 73 65 3a 3d 20 77 31 3b 0a 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆0; ucatbase:= w1; w ┆
0x1da00…1da06 (237,) (0x4b4,0x3b5)
0x1da06…1da20 33 2b 34 3b 0a 20 20 20 20 66 31 3a 3d 20 28 77 33 29 2e 64 6f 75 62 6c 65 3b ┆3+4; f1:= (w3).double;┆
0x1da20…1da40 0a 20 20 20 20 6c 6d 61 78 62 61 73 65 3a 3d 20 77 30 3b 20 20 75 6d 61 78 62 61 73 65 3a 3d 20 ┆ lmaxbase:= w0; umaxbase:= ┆
0x1da40…1da60 77 31 3b 0a 20 20 20 20 77 33 2b 34 3b 0a 20 20 20 20 66 31 3a 3d 20 28 77 33 29 2e 64 6f 75 62 ┆w1; w3+4; f1:= (w3).doub┆
0x1da60…1da7e 6c 65 3b 0a 20 20 20 20 6c 73 74 64 62 61 73 65 3a 3d 20 77 30 3b 20 20 75 73 74 64 62 61 ┆le; lstdbase:= w0; ustdba┆
0x1da7e…1da84 (0x4b4,0x3b6)
0x1da84…1daa0 73 65 3a 3d 20 77 31 3b 0a 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6d 61 69 6e 20 ┆se:= w1; comment main ┆
0x1daa0…1dac0 70 72 6f 67 72 61 6d 3b 0a 20 20 20 20 6e 65 78 74 5f 65 6e 74 72 79 28 2e 77 33 2e 2c 77 31 3a ┆program; next_entry(.w3.,w1:┆
0x1dac0…1dae0 3d 30 29 3b 0a 20 20 20 20 77 68 69 6c 65 20 77 31 3c 3e 30 20 64 6f 0a 20 20 20 20 62 65 67 69 ┆=0); while w1<>0 do begi┆
0x1dae0…1dafc 6e 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 63 61 74 6b 65 79 73 20 65 78 ┆n w0:= (w1).catkeys ex┆
0x1dafc…1db02 (0x4b4,0x3b7)
0x1db02…1db20 74 72 61 63 74 20 33 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3d 6d 61 78 74 65 6d 70 6b ┆tract 3; if w0<=maxtempk┆
0x1db20…1db40 65 79 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 66 33 3a 3d ┆ey then begin f3:=┆
0x1db40…1db60 20 28 77 31 29 2e 63 61 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 3d 6c 73 ┆ (w1).catbase; if w2>=ls┆
0x1db60…1db7a 74 64 62 61 73 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3c ┆tdbase then if w3<┆
0x1db7a…1db80 (0x4b4,0x3b8)
0x1db80…1dba0 3d 75 73 74 64 62 61 73 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 65 6e ┆=ustdbase then remove_en┆
0x1dba0…1dbc0 74 72 79 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6e ┆try(.w3.,w1); end; n┆
0x1dbc0…1dbe0 65 78 74 5f 65 6e 74 72 79 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆ext_entry(.w3.,w1); end; ┆
0x1dbe0…1dc00 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 63 61 74 61 6c 6f 67 29 3b 00 00 00 00 00 00 00 00 ┆ w3:= address(catalog); ┆
0x1dc00…1dc06 (238,) (0x4b4,0x3b9)
0x1dc06…1dc20 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 63 6f 6d 6d 65 6e 74 20 ┆ monitor(64); comment ┆
0x1dc20…1dc40 72 65 6d 6f 76 65 3b 0a 20 20 20 20 77 30 3a 3d 20 6c 63 61 74 62 61 73 65 3b 20 77 31 3a 3d 20 ┆remove; w0:= lcatbase; w1:= ┆
0x1dc40…1dc60 75 63 61 74 62 61 73 65 3b 0a 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 6e 75 6c 29 3b ┆ucatbase; w3:= address(nul);┆
0x1dc60…1dc7e 20 63 6f 6d 6d 65 6e 74 20 6d 79 73 65 6c 66 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 ┆ comment myself; monitor(7┆
0x1dc7e…1dc84 (0x4b4,0x3ba)
0x1dc84…1dca0 32 29 3b 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 63 61 74 62 61 73 65 3b 0a 0a 20 20 ┆2); comment set catbase; ┆
0x1dca0…1dcc0 66 69 6e 69 73 3a 0a 20 20 20 20 77 33 3a 3d 20 6d 65 65 2b 35 30 3b 0a 20 20 20 20 77 33 3a 3d ┆finis: w3:= mee+50; w3:=┆
0x1dcc0…1dce0 20 28 77 33 29 2e 77 6f 72 64 2b 32 3b 0a 20 20 20 20 70 6e 61 6d 65 31 3a 3d 20 66 31 3a 3d 20 ┆ (w3).word+2; pname1:= f1:= ┆
0x1dce0…1dcfc 28 77 33 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 77 33 2b 34 3b 0a 20 20 20 20 70 ┆(w3).double; w3+4; p┆
0x1dcfc…1dd02 (0x4b4,0x3bb)
0x1dd02…1dd20 6e 61 6d 65 32 3a 3d 20 66 31 3a 3d 20 28 77 33 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 ┆name2:= f1:= (w3).double; ┆
0x1dd20…1dd40 77 31 3a 3d 20 61 64 64 72 65 73 73 28 66 69 6e 69 73 5f 6f 70 29 3b 20 77 33 3a 3d 20 61 64 64 ┆w1:= address(finis_op); w3:= add┆
0x1dd40…1dd60 72 65 73 73 28 70 6e 61 6d 65 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 0a 20 ┆ress(pname1); monitor(16); ┆
0x1dd60…1dd7a 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 ┆ monitor(18); end; ┆
0x1dd7a…1dd80 (0x4b4,0x3bc)
0x1dd80…1dda0 20 20 20 62 6f 64 79 20 6f 66 20 6e 65 78 74 5f 65 6e 74 72 79 0a 20 20 20 20 62 65 67 69 6e 0a ┆ body of next_entry begin ┆
0x1dda0…1ddc0 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 20 ┆ incode word savew0; ┆
0x1ddc0…1dde0 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 72 65 66 20 6c 61 73 74 65 6e 74 72 79 3a ┆ref return; ref lastentry:┆
0x1dde0…1de00 3d 20 30 2c 20 6e 65 78 74 73 65 67 6d 3a 3d 20 30 2c 20 6c 61 73 74 73 00 00 00 00 00 00 00 00 ┆= 0, nextsegm:= 0, lasts ┆
0x1de00…1de06 (239,) (0x4b4,0x3bd)
0x1de06…1de20 65 67 6d 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 70 ┆egm:= 0; comment p┆
0x1de20…1de40 6f 69 6e 74 65 72 73 20 69 6e 20 63 61 74 61 6c 6f 67 20 62 75 66 66 65 72 2c 0a 20 20 20 20 20 ┆ointers in catalog buffer, ┆
0x1de40…1de60 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 73 65 67 6d 20 69 73 20 73 74 61 72 74 20 6f 66 20 ┆ nextsegm is start of ┆
0x1de60…1de7e 6e 65 78 74 20 63 61 74 61 6c 6f 67 20 73 65 67 6d 65 6e 74 2c 0a 20 20 20 20 20 20 20 20 ┆next catalog segment, ┆
0x1de7e…1de84 (0x4b4,0x3be)
0x1de84…1dea0 20 20 20 20 20 20 20 20 6c 61 73 74 73 65 67 6d 20 69 73 20 65 6e 64 20 6f 66 20 6c ┆ lastsegm is end of l┆
0x1dea0…1dec0 61 73 74 20 73 65 67 6d 65 6e 74 20 74 72 61 6e 73 66 65 72 72 65 64 3b 0a 20 20 20 20 20 20 62 ┆ast segment transferred; b┆
0x1dec0…1dee0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 73 61 76 65 77 30 ┆egin return:= w3; savew0┆
0x1dee0…1defc 3a 3d 20 77 30 3b 20 77 31 3a 3d 20 6c 61 73 74 65 6e 74 72 79 3b 0a 0a 20 20 20 20 ┆:= w0; w1:= lastentry; ┆
0x1defc…1df02 (0x4b4,0x3bf)
0x1df02…1df20 20 20 20 20 69 66 20 77 31 2b 28 33 34 2b 33 33 29 3c 6e 65 78 74 73 65 67 6d 20 74 68 65 ┆ if w1+(34+33)<nextsegm the┆
0x1df20…1df40 6e 20 77 31 2d 33 33 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 ┆n w1-33 else beg┆
0x1df40…1df60 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 6c 61 73 74 73 65 67 6d 20 74 68 65 6e ┆in if w1>lastsegm then┆
0x1df60…1df7a 0a 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 ┆ begin comment s┆
0x1df7a…1df80 (0x4b4,0x3c0)
0x1df80…1dfa0 74 61 72 74 20 63 61 74 61 6c 6f 67 20 73 63 61 6e 20 6f 72 20 63 68 61 6e 67 65 20 64 61 74 61 ┆tart catalog scan or change data┆
0x1dfa0…1dfc0 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c ┆buf; transport(.w3.,┆
0x1dfc0…1dfe0 77 31 29 3b 20 63 6f 6d 6d 65 6e 74 20 72 65 74 75 72 6e 3a 20 62 79 74 65 73 20 74 72 61 6e 73 ┆w1); comment return: bytes trans┆
0x1dfe0…1e000 66 65 72 72 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 00 00 00 00 00 00 00 00 ┆ferred; if w ┆
0x1e000…1e006 (240,) (0x4b4,0x3c1)
0x1e006…1e020 31 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆1<>0 then begi┆
0x1e020…1e040 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 62 2e 62 75 66 66 69 72 73 74 3b ┆n w0:= b.buffirst;┆
0x1e040…1e060 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 77 31 2d 31 3b 0a 20 20 20 20 20 20 20 20 ┆ w0+w1-1; ┆
0x1e060…1e07e 20 20 20 20 20 20 6c 61 73 74 73 65 67 6d 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ lastsegm:= w0; ┆
0x1e07e…1e084 (0x4b4,0x3c2)
0x1e084…1e0a0 20 20 20 20 20 77 31 3a 3d 20 62 2e 62 75 66 66 69 72 73 74 3b 0a 20 20 20 20 20 20 ┆ w1:= b.buffirst; ┆
0x1e0a0…1e0c0 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 31 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:= w1+512; ┆
0x1e0c0…1e0e0 20 20 20 6e 65 78 74 73 65 67 6d 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ nextsegm:= w0; en┆
0x1e0e0…1e0fc 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 ┆d; end e┆
0x1e0fc…1e102 (0x4b4,0x3c3)
0x1e102…1e120 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 20 20 20 20 ┆lse begin ┆
0x1e120…1e140 20 20 77 31 3a 3d 20 6e 65 78 74 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a ┆ w1:= nextsegm; w0:┆
0x1e140…1e160 3d 20 77 31 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 73 65 67 6d 3a 3d ┆= w1+512; nextsegm:=┆
0x1e160…1e17a 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ w0; end; ┆
0x1e17a…1e180 (0x4b4,0x3c4)
0x1e180…1e1a0 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 73 61 76 65 77 30 3b 20 77 33 3a ┆ end; w0:= savew0; w3:┆
0x1e1a0…1e1c0 3d 20 72 65 74 75 72 6e 3b 20 20 6c 61 73 74 65 6e 74 72 79 3a 3d 20 77 31 3b 0a 20 20 20 20 20 ┆= return; lastentry:= w1; ┆
0x1e1c0…1e1e0 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 72 65 6d 6f ┆ end; end; body of remo┆
0x1e1e0…1e200 76 65 5f 65 6e 74 72 79 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ve_entry begin ┆
0x1e200…1e206 (241,) (0x4b4,0x3c5)
0x1e206…1e220 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c ┆ incode word savew0,┆
0x1e220…1e240 73 61 76 65 77 31 3b 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 68 ┆savew1; ref return; word h┆
0x1e240…1e260 65 6c 70 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a ┆elp; begin return:┆
0x1e260…1e27e 3d 20 77 33 3b 73 61 76 65 77 31 3a 3d 20 77 31 3b 20 73 61 76 65 77 30 3a 3d 20 77 30 3b ┆= w3;savew1:= w1; savew0:= w0;┆
0x1e27e…1e284 (0x4b4,0x3c6)
0x1e284…1e2a0 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 6e 75 6c 29 ┆ w3:= address(b.nul)┆
0x1e2a0…1e2c0 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 20 28 77 31 29 2e 63 61 74 62 61 73 65 3b 20 21 20 73 ┆; f1:= (w1).catbase; ! s┆
0x1e2c0…1e2e0 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆et catalog base ! monito┆
0x1e2e0…1e2fc 72 20 28 37 32 29 3b 20 21 20 74 6f 20 74 68 61 74 20 6f 66 20 65 6e 74 72 79 20 21 ┆r (72); ! to that of entry !┆
0x1e2fc…1e302 (0x4b4,0x3c7)
0x1e302…1e320 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:= savew1; ┆
0x1e320…1e340 77 33 3a 3d 20 77 31 20 2b 20 36 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 29 ┆w3:= w1 + 6; monitor(48)┆
0x1e340…1e360 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 73 61 76 65 77 30 3b 20 77 33 3a 3d 20 72 65 74 75 ┆; w0:= savew0; w3:= retu┆
0x1e360…1e37a 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 0a ┆rn; end; end; ┆
0x1e37a…1e380 (0x4b4,0x3c8)
0x1e380…1e3a0 20 20 20 20 62 6f 64 79 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 62 65 67 69 6e 0a ┆ body of transport begin ┆
0x1e3a0…1e3c0 20 20 20 20 20 20 6c 61 62 65 6c 20 72 65 70 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 ┆ label rep; incode ┆
0x1e3c0…1e3e0 20 20 20 20 77 6f 72 64 20 73 74 61 74 75 73 2c 20 62 79 74 65 73 2c 20 63 68 61 72 73 2c 20 77 ┆ word status, bytes, chars, w┆
0x1e3e0…1e400 34 2c 20 77 35 2c 77 36 2c 20 77 37 2c 77 38 3b 0a 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆4, w5,w6, w7,w8; w ┆
0x1e400…1e406 (242,) (0x4b4,0x3c9)
0x1e406…1e420 6f 72 64 20 73 61 76 65 77 30 3b 20 64 6f 75 62 6c 65 20 73 61 76 65 66 33 3b ┆ord savew0; double savef3;┆
0x1e420…1e440 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 77 30 3a 3d 20 77 30 ┆ begin savew0:= w0┆
0x1e440…1e460 3b 20 73 61 76 65 66 33 3a 3d 20 66 33 3b 0a 20 20 20 20 20 20 72 65 70 3a 0a 20 20 20 20 20 20 ┆; savef3:= f3; rep: ┆
0x1e460…1e47e 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 6d 5f 6f 70 29 3b 0a 20 20 20 20 20 20 ┆ w1:= address(b.m_op); ┆
0x1e47e…1e484 (0x4b4,0x3ca)
0x1e484…1e4a0 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 63 61 74 61 6c 6f 67 29 3b 0a 20 ┆ w3:= address(b.catalog); ┆
0x1e4a0…1e4c0 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆ monitor(16); w1:=┆
0x1e4c0…1e4e0 20 61 64 64 72 65 73 73 28 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆ address(status); monito┆
0x1e4e0…1e4fc 72 28 31 38 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 20 6c 73 68 69 66 74 ┆r(18); w2:= 1 lshift┆
0x1e4fc…1e502 (0x4b4,0x3cb)
0x1e502…1e520 20 77 30 20 6f 72 20 73 74 61 74 75 73 3b 20 63 6f 6d 6d 65 6e 74 20 63 6f 6d 70 75 74 65 ┆ w0 or status; comment compute┆
0x1e520…1e540 20 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 32 20 74 68 65 6e 20 77 30 ┆ status; if w0=2 then w0┆
0x1e540…1e560 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 35 20 74 68 65 6e 0a 20 20 20 20 20 ┆:= 5; if w0=5 then ┆
0x1e560…1e57a 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 72 65 61 74 65 20 61 72 ┆ begin comment create ar┆
0x1e57a…1e580 (0x4b4,0x3cc)
0x1e580…1e5a0 65 61 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 ┆ea process; monitor(52┆
0x1e5a0…1e5c0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 ┆); if w0=0 then goto r┆
0x1e5c0…1e5e0 65 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d ┆ep; end; if w1:=┆
0x1e5e0…1e600 62 79 74 65 73 3c 3e 30 20 74 68 65 6e 20 62 2e 6d 5f 73 65 67 6d 3a 3d 00 00 00 00 00 00 00 00 ┆bytes<>0 then b.m_segm:= ┆
0x1e600…1e606 (243,) (0x4b4,0x3cd)
0x1e606…1e620 20 77 30 3a 3d 20 77 31 20 6c 73 68 69 66 74 20 2d 39 20 2b 20 62 2e 6d 5f 73 ┆ w0:= w1 lshift -9 + b.m_s┆
0x1e620…1e640 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆egm; if w2=2 then ┆
0x1e640…1e660 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 67 ┆ begin if w1=0 then g┆
0x1e660…1e67e 6f 74 6f 20 72 65 70 3b 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 70 65 64 3b 0a 20 20 20 20 ┆oto rep; comment stopped; ┆
0x1e67e…1e684 (0x4b4,0x3ce)
0x1e684…1e6a0 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x1e6a0…1e6c0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 36 32 31 34 36 20 63 ┆ begin if w2<>262146 c┆
0x1e6c0…1e6e0 6f 6d 6d 65 6e 74 20 65 6e 64 2d 64 6f 63 3b 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 ┆omment end-doc; then b┆
0x1e6e0…1e6fc 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 68 61 72 ┆egin comment har┆
0x1e6fc…1e702 (0x4b4,0x3cf)
0x1e702…1e720 64 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 28 62 2e 70 6e 61 ┆d error; key(b.pna┆
0x1e720…1e740 6d 65 31 29 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆me1):= w1; end; ┆
0x1e740…1e760 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 73 61 76 65 77 30 3b 20 66 33 3a 3d ┆ end; w0:= savew0; f3:=┆
0x1e760…1e77a 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e ┆ savef3; end; en┆
0x1e77a…1e780 (0x4b4,0x3d0)
0x1e780…1e7a0 64 3b 0a 65 6e 64 2e 0a 19 70 3a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 ┆d; end. p: w1:= address┆
0x1e7a0…1e7c0 28 62 2e 6d 5f 6f 70 29 3b 0a 20 20 20 20 20 20 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 ┆(b.m_op); incode ┆
0x1e7c0…1e7e0 20 20 20 20 77 6f 72 64 20 73 74 61 74 75 73 2c 20 62 79 74 65 73 2c 20 63 68 61 72 73 2c 20 77 ┆ word status, bytes, chars, w┆
0x1e7e0…1e800 34 2c 20 77 35 2c 77 36 2c 20 77 37 2c 77 38 3b 0a 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆4, w5,w6, w7,w8; w ┆
0x1e800…1e806 (244,) (0x518,0x3d1)
0x1e806…1e820 62 65 67 69 6e 0a 20 20 3c 2a 20 74 68 65 20 70 72 6f 67 72 61 6d 20 69 6e 69 ┆begin <* the program ini┆
0x1e820…1e840 74 69 61 6c 69 7a 65 73 2c 20 75 70 64 61 74 65 73 20 61 6e 64 2f 6f 72 20 6c 69 73 74 73 20 61 ┆tializes, updates and/or lists a┆
0x1e840…1e860 0a 20 20 20 20 20 73 6f 73 2d 75 73 65 72 63 61 74 61 6c 6f 67 2e 0a 20 20 20 20 20 66 6f 72 20 ┆ sos-usercatalog. for ┆
0x1e860…1e87e 65 76 65 72 79 20 70 72 6f 63 65 73 73 20 28 75 73 65 72 29 20 74 68 65 20 63 61 74 61 6c ┆every process (user) the catal┆
0x1e87e…1e884 (0x518,0x3d2)
0x1e884…1e8a0 6f 67 20 6b 65 65 70 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 0a 20 ┆og keeps information about ┆
0x1e8a0…1e8c0 20 20 20 20 74 68 65 20 70 72 6f 63 65 73 73 27 20 62 61 73 65 73 2c 20 6e 65 65 64 20 66 6f 72 ┆ the process' bases, need for┆
0x1e8c0…1e8e0 20 72 65 73 6f 75 72 63 65 73 20 61 6e 64 20 61 20 66 70 2d 73 74 72 69 6e 67 20 66 6f 72 20 75 ┆ resources and a fp-string for u┆
0x1e8e0…1e8fc 73 65 0a 20 20 20 20 20 77 68 65 6e 20 73 74 61 72 74 69 6e 67 20 74 68 65 20 70 72 ┆se when starting the pr┆
0x1e8fc…1e902 (0x518,0x3d3)
0x1e902…1e920 6f 63 65 73 73 2e 20 61 70 61 72 74 20 66 72 6f 6d 20 74 68 61 74 20 69 6e 66 6f 72 6d 61 ┆ocess. apart from that informa┆
0x1e920…1e940 74 69 6f 6e 73 20 61 62 6f 75 74 0a 20 20 20 20 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 73 20 61 ┆tions about the terminals a┆
0x1e940…1e960 6c 6c 6f 77 65 64 20 74 6f 20 63 6f 6d 6d 75 6e 69 63 61 74 65 20 74 68 69 73 20 70 72 6f 63 65 ┆llowed to communicate this proce┆
0x1e960…1e97a 73 73 2c 20 69 73 20 72 65 67 69 73 74 65 72 65 64 2e 0a 0a 0a 20 20 20 20 20 ┆ss, is registered. ┆
0x1e97a…1e980 (0x518,0x3d4)
0x1e980…1e9a0 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 20 20 20 20 20 20 38 20 68 61 6c 66 2d 77 6f 72 64 73 0a ┆process-name 8 half-words ┆
0x1e9a0…1e9c0 0a 0a 20 20 20 20 20 21 20 62 75 66 66 65 72 73 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 ┆ ! buffers 1 ┆
0x1e9c0…1e9e0 20 2d 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 21 20 61 72 65 ┆ - ! ! are┆
0x1e9e0…1ea00 61 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 2d 20 20 00 00 00 00 00 00 00 00 ┆as 1 - ┆
0x1ea00…1ea06 (245,) (0x518,0x3d5)
0x1ea06…1ea20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 21 20 73 ┆ ! ! s┆
0x1ea20…1ea40 74 64 2d 2c 75 73 65 72 2d 2c 6d 61 78 62 61 73 65 20 31 32 20 20 20 2d 20 20 20 20 20 20 20 20 ┆td-,user-,maxbase 12 - ┆
0x1ea40…1ea60 20 20 20 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 69 62 74 69 6f 6e 0a ┆ ! process-describtion ┆
0x1ea60…1ea7e 20 20 20 20 20 21 20 70 61 73 73 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 38 20 20 20 ┆ ! password 8 ┆
0x1ea7e…1ea84 (0x518,0x3d6)
0x1ea84…1eaa0 20 2d 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 21 ┆ - ! !┆
0x1eaa0…1eac0 20 6d 69 6e 2d 2c 20 6d 61 78 73 69 7a 65 20 20 20 20 20 20 34 20 20 20 20 2d 20 20 20 20 20 20 ┆ min-, maxsize 4 - ┆
0x1eac0…1eae0 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 21 20 66 69 6c 6c 65 72 20 20 20 20 20 ┆ ! ! filler ┆
0x1eae0…1eafc 20 20 20 20 20 20 20 20 31 30 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 10 - ┆
0x1eafc…1eb02 (0x518,0x3d7)
0x1eb02…1eb20 20 20 20 20 21 0a 20 20 20 20 20 21 20 66 70 2d 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 ┆ ! ! fp-string ┆
0x1eb20…1eb40 20 20 34 30 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 ┆ 40 - ! ┆
0x1eb40…1eb60 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 20 20 20 20 ┆ ! ┆
0x1eb60…1eb7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 21 20 20 21 20 ┆ ! ! ! ┆
0x1eb7a…1eb80 (0x518,0x3d8)
0x1eb80…1eba0 20 20 20 20 20 20 20 20 20 20 20 20 20 21 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ !12 ┆
0x1eba0…1ebc0 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 21 20 20 21 20 64 65 76 69 63 65 2d 6e 61 6d 65 20 ┆ ! ! ! device-name ┆
0x1ebc0…1ebe0 20 21 32 38 38 20 20 20 2d 20 20 20 20 20 20 20 20 64 65 76 69 63 65 2d 20 20 20 21 0a 20 20 20 ┆ !288 - device- ! ┆
0x1ebe0…1ec00 20 20 21 20 20 21 20 65 6e 74 72 79 2d 2c 73 65 67 6d 73 20 21 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ! entry-,segms ! ┆
0x1ec00…1ec06 (246,) (0x518,0x3d9)
0x1ec06…1ec20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 63 72 69 62 74 69 6f 6e 20 21 ┆ describtion !┆
0x1ec20…1ec40 0a 20 20 20 20 20 21 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 31 32 20 20 20 20 20 ┆ ! ! !12 ┆
0x1ec40…1ec60 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 21 20 20 20 20 20 ┆ ! ! ┆
0x1ec60…1ec7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ec7e…1ec84 (0x518,0x3da)
0x1ec84…1eca0 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 ┆ ! ! ┆
0x1eca0…1ecc0 20 20 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 21 20 74 65 ┆ ! ! te┆
0x1ecc0…1ece0 72 6d 69 6e 61 6c 20 65 78 74 65 72 6e 61 6c 20 69 64 20 38 20 20 20 20 2d 20 20 20 21 0a 20 20 ┆rminal external id 8 - ! ┆
0x1ece0…1ecfc 20 20 20 21 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 20 69 64 20 20 20 20 32 20 ┆ ! local id 2 ┆
0x1ecfc…1ed02 (0x518,0x3db)
0x1ed02…1ed20 20 20 20 2d 20 20 20 21 20 74 65 72 6d 69 6e 61 6c 2d 0a 20 20 20 20 20 21 20 20 20 20 20 ┆ - ! terminal- ! ┆
0x1ed20…1ed40 20 20 20 20 20 75 73 65 72 6b 65 79 20 20 20 20 20 38 20 20 20 20 2d 20 20 20 21 20 64 65 73 63 ┆ userkey 8 - ! desc┆
0x1ed40…1ed60 72 69 62 74 69 6f 6e 0a 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 62 75 66 72 69 6e 67 20 ┆ribtion ! bufring ┆
0x1ed60…1ed7a 20 20 20 20 31 20 20 20 20 2d 20 20 20 21 0a 20 20 20 20 20 21 20 20 20 20 20 ┆ 1 - ! ! ┆
0x1ed7a…1ed80 (0x518,0x3dc)
0x1ed80…1eda0 20 20 20 20 20 74 69 6d 65 63 6f 75 6e 74 20 20 20 31 20 20 20 20 2d 20 20 20 21 0a 20 20 20 20 ┆ timecount 1 - ! ┆
0x1eda0…1edc0 20 21 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 65 72 20 20 20 20 20 20 36 20 20 20 20 2d 20 20 ┆ ! filler 6 - ┆
0x1edc0…1ede0 20 21 0a 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 ┆ ! ! ┆
0x1ede0…1ee00 20 20 20 20 20 20 20 20 21 0a 0a 0a 20 20 20 20 20 74 68 65 20 66 69 72 00 00 00 00 00 00 00 00 ┆ ! the fir ┆
0x1ee00…1ee06 (247,) (0x518,0x3dd)
0x1ee06…1ee20 73 74 20 6e 20 73 65 67 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 63 61 74 61 6c ┆st n segments of the catal┆
0x1ee20…1ee40 6f 67 20 69 73 20 61 6e 20 69 6e 64 65 78 72 65 67 69 73 74 65 72 0a 20 20 20 20 20 66 6f 72 20 ┆og is an indexregister for ┆
0x1ee40…1ee60 74 68 65 20 72 65 73 74 2e 20 6e 20 69 73 20 63 6f 6d 70 75 74 65 64 20 66 72 6f 6d 20 74 68 65 ┆the rest. n is computed from the┆
0x1ee60…1ee7e 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 20 20 20 70 72 6f 63 65 73 ┆ maximum number of proces┆
0x1ee7e…1ee84 (0x518,0x3de)
0x1ee84…1eea0 73 65 73 20 77 61 6e 74 65 64 20 69 6e 20 74 68 65 20 63 61 74 61 6c 6f 67 20 28 6e ┆ses wanted in the catalog (n┆
0x1eea0…1eec0 3d 28 6d 61 78 2b 34 39 29 2f 2f 20 35 30 20 2c 20 35 30 20 0a 20 20 20 20 20 70 72 6f 63 65 73 ┆=(max+49)// 50 , 50 proces┆
0x1eec0…1eee0 73 65 73 20 70 65 72 20 69 6e 64 65 78 73 65 67 6d 65 6e 74 29 2e 20 74 68 65 20 6d 61 78 69 6d ┆ses per indexsegment). the maxim┆
0x1eee0…1eefc 75 6d 20 77 61 6e 74 65 64 20 69 73 20 73 70 65 63 69 66 69 65 64 0a 20 20 20 20 20 ┆um wanted is specified ┆
0x1eefc…1ef02 (0x518,0x3df)
0x1ef02…1ef20 77 68 65 6e 20 74 68 65 20 63 61 74 61 6c 6f 67 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 ┆when the catalog is initialize┆
0x1ef20…1ef40 64 2e 0a 20 20 20 20 20 65 76 65 72 79 20 70 72 6f 63 65 73 73 20 6f 63 63 75 70 69 65 73 20 61 ┆d. every process occupies a┆
0x1ef40…1ef60 6e 20 69 6e 74 65 67 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 2e 20 74 68 65 20 73 65 67 6d 65 ┆n integer of segments. the segme┆
0x1ef60…1ef7a 6e 74 73 0a 20 20 20 20 20 6f 66 20 61 20 70 72 6f 63 65 73 73 20 61 72 65 20 ┆nts of a process are ┆
0x1ef7a…1ef80 (0x518,0x3e0)
0x1ef80…1efa0 63 68 61 69 6e 65 64 20 69 6e 20 74 68 65 20 6c 61 73 74 20 77 6f 72 64 20 6f 66 20 74 68 65 20 ┆chained in the last word of the ┆
0x1efa0…1efc0 73 65 67 6d 65 6e 74 2e 0a 20 20 20 20 20 66 72 65 65 20 73 65 67 6d 65 6e 74 73 20 61 72 65 20 ┆segment. free segments are ┆
0x1efc0…1efe0 63 68 61 69 6e 65 64 20 69 6e 20 74 68 65 20 6c 61 73 74 20 77 6f 72 64 20 6f 66 20 74 68 65 0a ┆chained in the last word of the ┆
0x1efe0…1f000 20 20 20 20 20 73 65 67 6d 65 6e 74 73 20 73 74 61 72 74 69 6e 67 20 61 00 00 00 00 00 00 00 00 ┆ segments starting a ┆
0x1f000…1f006 (248,) (0x518,0x3e1)
0x1f006…1f020 74 20 74 68 65 20 66 69 72 73 74 20 69 6e 64 65 78 73 65 67 6d 65 6e 74 2e 0a ┆t the first indexsegment. ┆
0x1f020…1f040 0a 20 20 20 20 20 69 6e 64 65 78 73 65 67 6d 65 6e 74 73 3a 0a 20 0a 20 20 20 20 20 73 65 67 6d ┆ indexsegments: segm┆
0x1f040…1f060 65 6e 74 20 30 3a 0a 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 ┆ent 0: !----------┆
0x1f060…1f07e 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 20 21 20 70 72 ┆----------! ! pr┆
0x1f07e…1f084 (0x518,0x3e2)
0x1f084…1f0a0 6f 63 65 73 73 2d 6e 61 6d 65 20 20 20 20 20 20 20 21 20 20 38 20 68 61 6c 66 2d 77 ┆ocess-name ! 8 half-w┆
0x1f0a0…1f0c0 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 67 6d 2e 6e 6f 20 6f 66 20 ┆ords ! segm.no of ┆
0x1f0c0…1f0e0 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 20 21 20 32 20 68 61 6c 66 2d 77 6f 72 64 0a 20 20 20 ┆process-descr. ! 2 half-word ┆
0x1f0e0…1f0fc 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 2d 2d 2d ┆ !----------------┆
0x1f0fc…1f102 (0x518,0x3e3)
0x1f102…1f120 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 ┆----! ! . ┆
0x1f120…1f140 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 20 21 20 20 20 2e ┆ ! ! .┆
0x1f140…1f160 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 20 ┆ ! ┆
0x1f160…1f17a 21 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆! . ! ┆
0x1f17a…1f180 (0x518,0x3e4)
0x1f180…1f1a0 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! . ┆
0x1f1a0…1f1c0 21 0a 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 20 20 ┆! ! ┆
0x1f1c0…1f1e0 20 20 20 20 20 21 0a 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 ┆ ! ! ┆
0x1f1e0…1f200 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x1f200…1f206 (249,) (0x518,0x3e5)
0x1f206…1f220 20 20 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 ┆ !--------------------! ┆
0x1f220…1f240 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 20 20 20 20 ┆ ! process-name ┆
0x1f240…1f260 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 67 6d 2e 6e 6f 20 20 20 20 20 ┆ ! ! segm.no ┆
0x1f260…1f27e 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 2d 2d 2d ┆ ! !------┆
0x1f27e…1f284 (0x518,0x3e6)
0x1f284…1f2a0 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 ┆--------------! ┆
0x1f2a0…1f2c0 20 20 21 20 2d 31 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 ┆ ! -1 ! ┆
0x1f2c0…1f2e0 20 20 20 20 20 20 20 21 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆ ! -1 ! ┆
0x1f2e0…1f2fc 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! -1 ┆
0x1f2fc…1f302 (0x518,0x3e7)
0x1f302…1f320 20 20 20 20 20 21 0a 20 20 20 20 20 77 6f 72 64 20 32 35 34 20 21 20 6e 6f 20 6f 66 20 70 ┆ ! word 254 ! no of p┆
0x1f320…1f340 72 6f 63 65 73 73 65 73 20 20 20 20 21 20 20 32 20 68 61 6c 66 2d 77 6f 72 64 73 0a 20 20 20 20 ┆rocesses ! 2 half-words ┆
0x1f340…1f360 20 77 6f 72 64 20 32 35 35 20 21 20 6d 61 78 20 6e 6f 20 70 72 6f 63 65 73 73 65 73 20 20 20 21 ┆ word 255 ! max no processes !┆
0x1f360…1f37a 20 20 32 20 68 61 6c 66 5f 77 6f 72 64 73 0a 20 20 20 20 20 77 6f 72 64 20 32 ┆ 2 half_words word 2┆
0x1f37a…1f380 (0x518,0x3e8)
0x1f380…1f3a0 35 36 20 21 20 73 65 67 6d 2e 6e 6f 20 66 69 72 73 74 20 66 72 65 65 20 73 65 67 2f 2d 31 20 21 ┆56 ! segm.no first free seg/-1 !┆
0x1f3a0…1f3c0 20 20 32 20 68 61 6c 66 5f 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d ┆ 2 half_word !---┆
0x1f3c0…1f3e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 0a 20 20 20 20 20 73 65 67 6d 65 6e 74 ┆-----------------! segment┆
0x1f3e0…1f400 20 6e 2d 31 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 00 00 00 00 00 00 00 00 ┆ n-1: !--- ┆
0x1f400…1f406 (250,) (0x518,0x3e9)
0x1f406…1f420 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 ┆-----------------! ┆
0x1f420…1f440 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 20 20 20 20 20 20 21 0a 20 20 ┆ ! process-name ! ┆
0x1f440…1f460 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 67 6d 2e 6e 6f 20 20 20 20 20 20 20 20 20 20 20 ┆ ! segm.no ┆
0x1f460…1f47e 20 21 0a 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 ┆ ! !------------┆
0x1f47e…1f484 (0x518,0x3ea)
0x1f484…1f4a0 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 ┆--------! ! ┆
0x1f4a0…1f4c0 2e 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 ┆. ! ┆
0x1f4c0…1f4e0 20 21 20 20 20 2e 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 ┆ ! . ! ┆
0x1f4e0…1f4fc 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆ ! . !┆
0x1f4fc…1f502 (0x518,0x3eb)
0x1f502…1f520 0a 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 20 ┆ ! ┆
0x1f520…1f540 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 ┆ ! ! ┆
0x1f540…1f560 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 20 21 2d 2d 2d 2d ┆ ! !----┆
0x1f560…1f57a 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 ┆----------------! ┆
0x1f57a…1f580 (0x518,0x3ec)
0x1f580…1f5a0 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ ! process-name ! ┆
0x1f5a0…1f5c0 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 67 6d 2e 6e 6f 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! segm.no ┆
0x1f5c0…1f5e0 21 0a 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 2d 2d ┆! !---------------┆
0x1f5e0…1f600 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 00 00 00 00 00 00 00 00 ┆-----! ! - ┆
0x1f600…1f606 (251,) (0x518,0x3ed)
0x1f606…1f620 31 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 ┆1 ! ┆
0x1f620…1f640 20 20 20 20 20 20 20 20 21 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆ ! . ! ┆
0x1f640…1f660 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! . ┆
0x1f660…1f67e 20 20 21 0a 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 ┆ ! ! ┆
0x1f67e…1f684 (0x518,0x3ee)
0x1f684…1f6a0 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 21 20 20 ┆ ! ! ┆
0x1f6a0…1f6c0 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 20 ┆ ! ┆
0x1f6c0…1f6e0 20 20 21 20 2d 31 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 ┆ ! -1 ! ┆
0x1f6e0…1f6fc 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 ┆ !--------------------┆
0x1f6fc…1f702 (0x518,0x3ef)
0x1f702…1f720 21 0a 0a 0a 20 20 20 20 20 73 65 67 6d 65 6e 74 73 20 66 6f 72 20 70 72 6f 63 65 73 73 64 ┆! segments for processd┆
0x1f720…1f740 65 73 63 72 69 62 74 69 6f 6e 3a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d 2d ┆escribtion: !----┆
0x1f740…1f760 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 20 20 ┆----------------! ┆
0x1f760…1f77a 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆! ! ┆
0x1f77a…1f780 (0x518,0x3f0)
0x1f780…1f7a0 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 69 62 74 69 6f 6e ┆ ! process-describtion┆
0x1f7a0…1f7c0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 70 72 6f 63 65 73 73 2d 6e 61 6d 65 ┆ ! ! -process-name┆
0x1f7c0…1f7e0 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 74 65 72 6d 69 6e 61 ┆ ! ! -termina┆
0x1f7e0…1f800 6c 2d 64 65 73 63 72 2e 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆l-descr. ! ┆
0x1f800…1f806 (252,) (0x518,0x3f1)
0x1f806…1f820 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ ! ! ┆
0x1f820…1f840 20 33 36 34 20 68 61 6c 66 2d 77 6f 72 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ 364 half-words ! ┆
0x1f840…1f860 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 ┆ ! ┆
0x1f860…1f87e 20 20 20 21 20 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 ┆ ! ! ┆
0x1f87e…1f884 (0x518,0x3f2)
0x1f884…1f8a0 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 ┆ !-----------------┆
0x1f8a0…1f8c0 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 72 6d 69 6e 61 6c 2d 64 65 ┆---! ! terminal-de┆
0x1f8c0…1f8e0 73 63 72 31 20 20 20 20 21 20 20 20 32 36 20 68 61 6c 66 2d 77 6f 72 64 73 0a 20 20 20 20 20 20 ┆scr1 ! 26 half-words ┆
0x1f8e0…1f8fc 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 ┆ !-------------------┆
0x1f8fc…1f902 (0x518,0x3f3)
0x1f902…1f920 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 20 ┆-! ! . ┆
0x1f920…1f940 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 ┆ ! ! . ┆
0x1f940…1f960 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 20 21 20 20 ┆ ! ! ┆
0x1f960…1f97a 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆ . ! ┆
0x1f97a…1f980 (0x518,0x3f4)
0x1f980…1f9a0 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 21 0a 20 ┆ ! ! ┆
0x1f9a0…1f9c0 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 20 20 20 20 ┆ ! ┆
0x1f9c0…1f9e0 20 20 21 0a 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 ┆ ! !-------------┆
0x1f9e0…1fa00 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 00 00 00 00 00 00 00 00 ┆-------! ! ┆
0x1fa00…1fa06 (253,) (0x518,0x3f5)
0x1fa06…1fa20 20 74 65 72 6d 69 6e 61 6c 20 64 65 73 63 72 20 35 20 20 20 21 0a 20 20 20 20 ┆ terminal descr 5 ! ┆
0x1fa20…1fa40 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 21 ┆ !--------------------!┆
0x1fa40…1fa60 0a 20 20 20 20 20 77 6f 72 64 20 32 35 36 20 21 20 73 65 67 6d 2e 6e 6f 20 6e 65 78 74 20 73 65 ┆ word 256 ! segm.no next se┆
0x1fa60…1fa7e 67 6d 2f 2d 31 20 21 20 20 20 20 32 20 68 61 6c 66 2d 77 6f 72 64 73 0a 20 20 20 20 20 20 ┆gm/-1 ! 2 half-words ┆
0x1fa7e…1fa84 (0x518,0x3f6)
0x1fa84…1faa0 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 ┆ !-------------------┆
0x1faa0…1fac0 2d 21 0a 0a 0a 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 ┆-! !------------┆
0x1fac0…1fae0 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 72 6d 69 6e ┆--------! ! termin┆
0x1fae0…1fafc 61 6c 20 64 65 73 63 72 20 36 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆al descr 6 ! ┆
0x1fafc…1fb02 (0x518,0x3f7)
0x1fb02…1fb20 20 21 2d 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 ┆ !--------------------! ┆
0x1fb20…1fb40 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆ ! . ! ┆
0x1fb40…1fb60 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! . ┆
0x1fb60…1fb7a 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 ┆ ! ! . ┆
0x1fb7a…1fb80 (0x518,0x3f8)
0x1fb80…1fba0 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 20 21 20 20 ┆ ! ! ┆
0x1fba0…1fbc0 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 20 ┆ ! ┆
0x1fbc0…1fbe0 20 20 21 20 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 ┆ ! ! ┆
0x1fbe0…1fc00 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x1fc00…1fc06 (254,) (0x518,0x3f9)
0x1fc06…1fc20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 ┆ ! ! ┆
0x1fc20…1fc40 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 20 21 ┆ ! !┆
0x1fc40…1fc60 2d 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 20 20 20 ┆--------------------! ┆
0x1fc60…1fc7e 20 20 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 64 65 73 63 72 20 32 34 20 20 21 0a 20 20 20 ┆ ! terminal descr 24 ! ┆
0x1fc7e…1fc84 (0x518,0x3fa)
0x1fc84…1fca0 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 2d 2d 2d ┆ !----------------┆
0x1fca0…1fcc0 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 31 20 20 20 20 20 20 20 20 ┆----! ! -1 ┆
0x1fcc0…1fce0 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 21 20 2e 20 20 20 20 ┆ ! ! . ┆
0x1fce0…1fcfc 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 ┆ ! ┆
0x1fcfc…1fd02 (0x518,0x3fb)
0x1fd02…1fd20 20 20 21 20 2e 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 ┆ ! . ! ┆
0x1fd20…1fd40 20 20 20 20 20 20 20 20 20 21 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a ┆ ! -1 ! ┆
0x1fd40…1fd60 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 2d 2d 2d 2d ┆ !-----------------┆
0x1fd60…1fd7a 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 67 6d 2e ┆---! ! segm.┆
0x1fd7a…1fd80 (0x518,0x3fc)
0x1fd80…1fda0 6e 6f 20 6e 65 78 74 20 73 65 67 6d 2f 2d 31 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆no next segm/-1 ! ┆
0x1fda0…1fdc0 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 0a 0a 20 20 20 20 20 20 20 ┆!--------------------! ┆
0x1fdc0…1fde0 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 21 0a 20 20 ┆ !--------------------! ┆
0x1fde0…1fe00 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 64 00 00 00 00 00 00 00 00 ┆ ! terminal d ┆
0x1fe00…1fe06 (255,) (0x518,0x3fd)
0x1fe06…1fe20 65 73 63 72 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆escr ! !┆
0x1fe20…1fe40 2d 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 20 20 20 ┆--------------------! ┆
0x1fe40…1fe60 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆ ! . ! ┆
0x1fe60…1fe7e 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! . ┆
0x1fe7e…1fe84 (0x518,0x3fe)
0x1fe84…1fea0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 20 20 20 20 ┆! ! . ┆
0x1fea0…1fec0 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 21 2d 2d 2d 2d 2d 2d ┆ ! !------┆
0x1fec0…1fee0 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 20 20 21 20 ┆--------------! ! ┆
0x1fee0…1fefc 74 65 72 6d 69 6e 61 6c 20 64 65 73 63 72 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆terminal descr ! ┆
0x1fefc…1ff02 (0x518,0x3ff)
0x1ff02…1ff20 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 21 0a ┆ !--------------------! ┆
0x1ff20…1ff40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! -1 ┆
0x1ff40…1ff60 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 2e 20 20 20 20 20 20 20 20 20 ┆ ! ! . ┆
0x1ff60…1ff7a 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ ! ! ┆
0x1ff7a…1ff80 (0x518,0x400)
0x1ff80…1ffa0 20 2e 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 ┆ . ! ┆
0x1ffa0…1ffc0 20 20 20 21 20 20 2e 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 ┆ ! . ! ┆
0x1ffc0…1ffe0 20 20 20 20 20 20 20 20 21 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆ ! . ! ┆
0x1ffe0…20000 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 2e 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! . ┆
0x20000…20006 (256,) (0x518,0x401)
0x20006…20020 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 ┆ ! ┆
0x20020…20040 21 20 2d 31 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 ┆! -1 ! ┆
0x20040…20060 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 21 0a 2a 3e 0c 0a ┆ !--------------------! *> ┆
0x20060…2007e 20 20 62 6f 6f 6c 65 61 6e 20 65 6d 2c 20 69 6e 69 74 2c 20 6c 69 73 74 2c 20 64 61 74 61 ┆ boolean em, init, list, data┆
0x2007e…20084 (0x518,0x402)
0x20084…200a0 5f 65 72 72 6f 72 2c 20 63 6f 6e 74 2c 20 6e 6c 2c 20 73 70 2c 0a 20 20 20 20 20 20 ┆_error, cont, nl, sp, ┆
0x200a0…200c0 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 2c 20 74 65 6d 70 6e 65 77 63 61 74 3b 0a 20 20 69 6e ┆ newpa_read, tempnewcat; in┆
0x200c0…200e0 74 65 67 65 72 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 2c 20 76 61 6c 69 6e 64 65 78 2c 0a 20 20 20 ┆teger elem_in_val, valindex, ┆
0x200e0…200fc 20 20 20 20 20 20 20 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 2c 0a 20 20 20 20 20 20 ┆ elem_in_glval, ┆
0x200fc…20102 (0x518,0x403)
0x20102…20120 20 20 20 20 6e 6f 2c 20 70 61 2c 20 74 72 2c 0a 20 20 20 20 20 20 20 20 20 20 6d 61 78 70 ┆ no, pa, tr, maxp┆
0x20120…20140 72 6f 63 73 2c 20 69 6e 64 65 78 5f 73 65 67 6d 2c 20 75 73 65 64 5f 73 65 67 6d 2c 20 70 72 6f ┆rocs, index_segm, used_segm, pro┆
0x20140…20160 63 5f 73 65 67 6d 73 2c 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 63 6f 75 6e 74 2c 20 70 ┆c_segms, proc_count, p┆
0x20160…2017a 72 6f 63 5f 62 79 74 65 2c 0a 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 63 ┆roc_byte, term_c┆
0x2017a…20180 (0x518,0x404)
0x20180…201a0 6f 75 6e 74 2c 20 74 65 72 6d 5f 73 74 61 72 74 2c 20 74 65 72 6d 5f 62 79 74 65 2c 0a 20 20 20 ┆ount, term_start, term_byte, ┆
0x201a0…201c0 20 20 20 20 20 20 20 74 72 61 6e 73 2c 20 70 61 72 61 6d 6e 6f 2c 20 6e 6f 31 2c 20 6e 6f 32 2c ┆ trans, paramno, no1, no2,┆
0x201c0…201e0 0a 20 20 20 20 20 20 20 20 20 20 69 2c 20 6a 2c 20 6b 2c 20 6c 61 73 74 2c 0a 20 20 20 20 20 20 ┆ i, j, k, last, ┆
0x201e0…20200 20 20 20 20 6e 65 77 2c 20 6f 6c 64 2c 20 66 72 65 65 2c 20 70 72 6f 63 00 00 00 00 00 00 00 00 ┆ new, old, free, proc ┆
0x20200…20206 (257,) (0x518,0x405)
0x20206…20220 5f 6e 6f 2c 20 73 74 6f 70 2c 20 70 72 6f 63 5f 73 65 67 6d 2c 20 74 65 72 6d ┆_no, stop, proc_segm, term┆
0x20220…20240 2c 20 6d 61 78 73 65 67 6d 2c 0a 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 5f 6c 67 74 2c 20 ┆, maxsegm, index_lgt, ┆
0x20240…20260 70 72 6f 63 5f 64 65 73 5f 6c 67 74 2c 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 2c 20 70 72 6f 63 ┆proc_des_lgt, term_des_lgt, proc┆
0x20260…2027e 5f 70 61 5f 6c 67 74 2c 0a 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 5f 6c 67 74 ┆_pa_lgt, term_pa_lgt┆
0x2027e…20284 (0x518,0x406)
0x20284…202a0 2c 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 2c 20 74 65 72 6d 5f 70 72 5f 70 72 73 ┆, proc_pr_index, term_pr_prs┆
0x202a0…202c0 65 67 6d 2c 20 74 65 72 6d 5f 70 72 5f 73 65 67 6d 2c 0a 20 20 20 20 20 20 20 20 20 20 66 72 65 ┆egm, term_pr_segm, fre┆
0x202c0…202e0 65 5f 77 5f 70 72 73 65 67 6d 2c 20 66 72 65 65 5f 77 5f 73 65 67 6d 2c 20 67 72 65 61 74 5f 74 ┆e_w_prsegm, free_w_segm, great_t┆
0x202e0…202fc 72 6e 6f 2c 20 74 72 5f 65 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 74 72 5f 6d 61 ┆rno, tr_end, tr_ma┆
0x202fc…20302 (0x518,0x407)
0x20302…20320 78 70 2c 20 74 72 5f 70 72 6f 63 2c 20 70 61 5f 74 65 72 6d 2c 20 70 61 5f 64 74 65 72 6d ┆xp, tr_proc, pa_term, pa_dterm┆
0x20320…20340 2c 20 6c 61 73 74 74 65 72 6d 2c 6e 6f 5f 6f 66 5f 62 73 3b 0a 20 20 72 65 61 6c 20 20 20 20 73 ┆, lastterm,no_of_bs; real s┆
0x20340…20360 68 6f 72 74 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 63 61 74 5f 74 61 62 6c 65 2c ┆hort; integer array cat_table,┆
0x20360…2037a 20 71 75 6f 74 65 5f 74 61 62 6c 65 28 30 3a 31 32 37 29 2c 20 76 61 6c 2c 20 ┆ quote_table(0:127), val, ┆
0x2037a…20380 (0x518,0x408)
0x20380…203a0 6b 69 6e 64 28 31 3a 31 32 30 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6c 76 ┆kind(1:120), glv┆
0x203a0…203c0 61 6c 2c 20 67 6c 6b 69 6e 64 28 31 3a 31 32 30 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆al, glkind(1:120), ┆
0x203c0…203e0 20 20 20 70 72 6f 63 5f 70 61 72 61 6d 73 28 31 3a 31 38 32 29 2c 20 74 65 72 6d 5f 70 61 72 61 ┆ proc_params(1:182), term_para┆
0x203e0…20400 6d 73 28 31 3a 31 33 29 2c 20 74 61 69 6c 28 31 3a 31 30 29 2c 0a 20 20 00 00 00 00 00 00 00 00 ┆ms(1:13), tail(1:10), ┆
0x20400…20406 (258,) (0x518,0x409)
0x20406…20420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 28 31 3a 35 29 3b 0a ┆ index(1:5); ┆
0x20420…20440 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 70 61 72 61 6d 28 30 3a 32 32 29 2c 20 66 69 72 73 74 5f ┆ long array param(0:22), first_┆
0x20440…20460 62 73 5f 64 65 76 69 63 65 2c 20 6f 75 74 66 69 6c 65 2c 20 6f 6c 64 63 61 74 2c 20 6e 65 77 63 ┆bs_device, outfile, oldcat, newc┆
0x20460…2047e 61 74 2c 20 70 72 6f 63 5f 6e 61 6d 65 2c 20 6e 61 6d 65 28 31 3a 32 29 3b 0a 20 20 62 6f ┆at, proc_name, name(1:2); bo┆
0x2047e…20484 (0x518,0x40a)
0x20484…204a0 6f 6c 65 61 6e 20 66 69 65 6c 64 20 62 75 66 2c 20 61 72 65 61 2c 20 62 75 66 73 2c ┆olean field buf, area, bufs,┆
0x204a0…204c0 20 74 69 6d 65 3b 0a 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 63 73 65 67 6d 2c 20 73 65 ┆ time; integer field csegm, se┆
0x204c0…204e0 67 6d 2c 20 69 6e 74 69 64 2c 20 6e 65 78 74 2c 20 65 6e 74 72 2c 0a 20 20 20 20 20 20 20 20 20 ┆gm, intid, next, entr, ┆
0x204e0…204fc 20 20 20 20 20 20 20 6d 69 6e 73 2c 20 6d 61 78 73 2c 0a 20 20 20 20 20 20 20 20 20 ┆ mins, maxs, ┆
0x204fc…20502 (0x518,0x40b)
0x20502…20520 20 20 20 20 20 20 20 73 74 64 31 2c 20 73 74 64 32 2c 20 75 73 65 31 2c 20 75 73 65 32 2c ┆ std1, std2, use1, use2,┆
0x20520…20540 20 6d 61 78 31 2c 20 6d 61 78 32 2c 20 6b 30 73 2c 20 6b 30 65 3b 0a 20 20 69 6e 74 65 67 65 72 ┆ max1, max2, k0s, k0e; integer┆
0x20540…20560 20 61 72 72 61 79 20 66 69 65 6c 64 20 77 6f 72 64 2c 20 70 65 72 6d 31 2c 20 70 65 72 6d 3b 0a ┆ array field word, perm1, perm; ┆
0x20560…2057a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 61 73 73 2c 20 65 ┆ long array field pass, e┆
0x2057a…20580 (0x518,0x40c)
0x20580…205a0 78 69 64 2c 20 6b 65 79 2c 20 66 70 2c 20 64 65 76 2c 20 6c 62 61 73 65 3b 0a 20 20 72 65 61 6c ┆xid, key, fp, dev, lbase; real┆
0x205a0…205c0 20 61 72 72 61 79 20 66 69 65 6c 64 20 62 61 73 65 2c 20 62 61 73 65 31 2c 20 62 61 73 65 32 3b ┆ array field base, base1, base2;┆
0x205c0…205e0 0a 20 20 7a 6f 6e 65 20 7a 6f 6e 65 77 2c 20 7a 6f 6f 6c 64 28 31 32 38 2a 33 2c 20 33 2c 20 73 ┆ zone zonew, zoold(128*3, 3, s┆
0x205e0…20600 74 64 65 72 72 6f 72 29 2c 0a 20 20 20 20 20 20 20 20 7a 6f 6f 75 74 28 00 00 00 00 00 00 00 00 ┆tderror), zoout( ┆
0x20600…20606 (259,) (0x518,0x40d)
0x20606…20620 31 32 38 2a 32 2c 20 32 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 0a 0a 0a 0a 20 ┆128*2, 2, stderror); ┆
0x20620…20640 20 3c 2a 20 76 61 72 69 61 62 6c 65 73 3a 0a 0a 20 20 20 20 20 61 72 65 61 20 20 20 20 20 20 20 ┆ <* variables: area ┆
0x20640…20660 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 61 72 65 61 73 20 69 6e 20 70 72 6f 63 65 73 73 ┆ : points to areas in process┆
0x20660…2067e 64 65 73 63 72 69 62 74 69 6f 6e 2e 0a 20 20 20 20 20 62 61 73 65 2c 20 62 61 73 65 31 2c ┆describtion. base, base1,┆
0x2067e…20684 (0x518,0x40e)
0x20684…206a0 20 62 61 73 65 32 20 3a 20 68 65 6c 70 2d 76 61 72 69 61 62 6c 65 73 2e 0a 20 20 20 ┆ base2 : help-variables. ┆
0x206a0…206c0 20 20 62 75 66 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 62 75 66 ┆ buf : points to buf┆
0x206c0…206e0 66 65 72 73 20 69 6e 20 70 72 6f 63 65 73 73 64 65 73 63 72 2e 0a 20 20 20 20 20 62 75 66 73 20 ┆fers in processdescr. bufs ┆
0x206e0…206fc 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 62 75 66 72 69 6e ┆ : points to bufrin┆
0x206fc…20702 (0x518,0x40f)
0x20702…20720 67 20 69 6e 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 63 61 74 5f ┆g in terminal-descr. cat_┆
0x20720…20740 74 61 62 6c 65 20 20 20 20 20 20 3a 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 6b 69 6e 64 73 ┆table : definition of kinds┆
0x20740…20760 20 66 6f 72 20 63 68 61 72 61 63 74 65 72 73 20 6e 6f 72 6d 61 6c 6c 79 20 72 65 61 64 2e 0a 20 ┆ for characters normally read. ┆
0x20760…2077a 20 20 20 20 63 6f 6e 74 20 20 20 20 20 20 20 20 20 20 20 3a 20 75 73 65 64 20 ┆ cont : used ┆
0x2077a…20780 (0x518,0x410)
0x20780…207a0 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 20 66 6f 72 2d 77 68 69 6c 65 20 73 74 61 ┆in connection with for-while sta┆
0x207a0…207c0 74 65 6d 65 6e 74 73 2e 0a 20 20 20 20 20 63 73 65 67 6d 20 20 20 20 20 20 20 20 20 20 3a 20 70 ┆tements. csegm : p┆
0x207c0…207e0 6f 69 6e 74 73 20 74 6f 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 70 72 6f 63 65 73 73 64 65 73 63 ┆oints to segments in processdesc┆
0x207e0…20800 72 2e 0a 20 20 20 20 20 64 61 74 61 65 72 72 6f 72 20 20 20 20 20 20 3a 00 00 00 00 00 00 00 00 ┆r. dataerror : ┆
0x20800…20806 (260,) (0x518,0x411)
0x20806…20820 20 74 72 75 65 20 65 72 72 6f 72 73 20 68 61 73 20 6f 63 63 75 72 65 64 20 64 ┆ true errors has occured d┆
0x20820…20840 75 72 69 6e 67 20 75 70 64 61 74 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆uring updating ┆
0x20840…20860 20 20 20 20 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 20 20 20 64 65 76 20 20 ┆ false otherwise. dev ┆
0x20860…2087e 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 64 65 76 69 63 65 2d 6e ┆ : points to device-n┆
0x2087e…20884 (0x518,0x412)
0x20884…208a0 61 6d 65 20 69 6e 20 64 65 76 69 63 65 64 65 73 63 72 2e 0a 20 20 20 20 20 65 6c 65 ┆ame in devicedescr. ele┆
0x208a0…208c0 6d 5f 69 6e 5f 76 61 6c 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 ┆m_in_val : number of elements┆
0x208c0…208e0 20 69 6e 20 76 61 6c 20 61 6e 64 20 6b 69 6e 64 2e 0a 20 20 20 20 20 65 6d 20 20 20 20 20 20 20 ┆ in val and kind. em ┆
0x208e0…208fc 20 20 20 20 20 20 3a 20 74 72 75 65 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 65 ┆ : true the parameter e┆
0x208fc…20902 (0x518,0x413)
0x20902…20920 6e 64 20 6f 72 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 65 6d 0a 20 20 20 20 20 20 20 ┆nd or the character em ┆
0x20920…20940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 61 73 20 62 65 65 6e 20 72 65 61 ┆ has been rea┆
0x20940…20960 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 ┆d false ot┆
0x20960…2097a 68 65 72 77 69 73 65 2e 0a 20 20 20 20 20 65 6e 74 72 20 20 20 20 20 20 20 20 ┆herwise. entr ┆
0x2097a…20980 (0x518,0x414)
0x20980…209a0 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 65 6e 74 72 69 65 73 20 69 6e 20 70 72 6f 63 65 73 ┆ : points to entries in proces┆
0x209a0…209c0 73 64 65 73 63 72 2e 0a 20 20 20 20 20 65 78 69 64 20 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f ┆sdescr. exid : po┆
0x209c0…209e0 69 6e 74 73 20 74 6f 20 65 78 74 65 72 6e 61 6c 2d 69 64 2e 20 69 6e 20 74 65 72 6d 69 6e 61 6c ┆ints to external-id. in terminal┆
0x209e0…20a00 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 66 69 72 73 74 5f 62 73 5f 64 65 00 00 00 00 00 00 00 00 ┆-descr. first_bs_de ┆
0x20a00…20a06 (261,) (0x518,0x415)
0x20a06…20a20 76 69 63 65 3a 20 6e 61 6d 65 20 6f 66 20 66 69 72 73 74 20 62 73 20 64 65 76 ┆vice: name of first bs dev┆
0x20a20…20a40 69 63 65 20 66 72 6f 6d 20 6d 6f 6e 69 74 6f 72 20 74 61 62 6c 65 2e 0a 20 20 20 20 20 66 70 20 ┆ice from monitor table. fp ┆
0x20a40…20a60 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 66 70 2d 63 6f 6d 6d 61 ┆ : points to fp-comma┆
0x20a60…20a7e 6e 64 20 69 6e 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 66 72 65 65 ┆nd in process-descr. free┆
0x20a7e…20a84 (0x518,0x416)
0x20a84…20aa0 20 20 20 20 20 20 20 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 ┆ : number of segme┆
0x20aa0…20ac0 6e 74 20 75 73 65 64 20 64 75 72 69 6e 67 20 75 70 64 61 74 69 6e 67 2e 0a 20 20 20 20 20 66 72 ┆nt used during updating. fr┆
0x20ac0…20ae0 65 65 5f 77 5f 70 72 73 65 67 6d 20 20 3a 20 61 64 64 72 65 73 73 20 6f 66 20 66 69 72 73 74 20 ┆ee_w_prsegm : address of first ┆
0x20ae0…20afc 66 72 65 65 20 77 6f 72 64 20 61 66 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆free word after ┆
0x20afc…20b02 (0x518,0x417)
0x20b02…20b20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 20 ┆ last terminal-descr ┆
0x20b20…20b40 69 6e 20 61 20 73 65 67 6d 65 6e 74 20 77 69 74 68 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e ┆in a segment with process-descr.┆
0x20b40…20b60 0a 20 20 20 20 20 66 72 65 65 5f 77 5f 73 65 67 6d 20 20 20 20 3a 20 61 64 64 72 65 73 73 20 6f ┆ free_w_segm : address o┆
0x20b60…20b7a 66 20 66 69 72 73 74 20 66 72 65 65 20 77 6f 72 64 20 61 66 74 65 72 20 6c 61 ┆f first free word after la┆
0x20b7a…20b80 (0x518,0x418)
0x20b80…20ba0 73 74 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆st terminal-descr ┆
0x20ba0…20bc0 20 20 20 20 20 20 20 20 69 6e 20 61 20 73 65 67 6d 65 6e 74 20 77 69 74 68 6f 75 74 20 70 72 6f ┆ in a segment without pro┆
0x20bc0…20be0 63 65 73 73 64 65 73 63 72 2e 0a 20 20 20 20 20 67 72 65 61 74 5f 74 72 6e 6f 20 20 20 20 20 3a ┆cessdescr. great_trno :┆
0x20be0…20c00 20 67 72 65 61 74 65 73 74 20 76 61 6c 75 65 20 6f 66 20 61 20 74 72 61 00 00 00 00 00 00 00 00 ┆ greatest value of a tra ┆
0x20c00…20c06 (262,) (0x518,0x419)
0x20c06…20c20 6e 73 61 63 74 69 6f 6e 2e 0a 20 20 20 20 20 69 20 20 20 20 20 20 20 20 20 20 ┆nsaction. i ┆
0x20c20…20c40 20 20 20 20 3a 20 68 65 6c 70 2d 76 61 72 69 61 62 6c 65 2e 0a 20 20 20 20 20 69 6e 64 65 78 20 ┆ : help-variable. index ┆
0x20c40…20c60 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 20 66 6f 72 20 69 6e 64 65 78 65 6c 65 6d 65 6e ┆ : array for indexelemen┆
0x20c60…20c7e 74 73 2e 0a 20 20 20 20 20 69 6e 64 65 78 5f 6c 67 74 20 20 20 20 20 20 3a 20 6c 65 6e 67 ┆ts. index_lgt : leng┆
0x20c7e…20c84 (0x518,0x41a)
0x20c84…20ca0 74 68 20 6f 66 20 61 6e 20 69 6e 64 65 78 73 65 67 6d 65 6e 74 20 69 6e 20 68 61 6c ┆th of an indexsegment in hal┆
0x20ca0…20cc0 66 2d 77 6f 72 64 73 2e 0a 20 20 20 20 20 69 6e 64 65 78 5f 73 65 67 6d 20 20 20 20 20 3a 20 70 ┆f-words. index_segm : p┆
0x20cc0…20ce0 6f 69 6e 74 73 20 6f 75 74 20 61 6e 20 69 6e 64 65 78 5f 73 65 67 6d 65 6e 74 2e 0a 20 20 20 20 ┆oints out an index_segment. ┆
0x20ce0…20cfc 20 69 6e 69 74 20 20 20 20 20 20 20 20 20 20 20 3a 20 74 72 75 65 20 6e 65 77 20 63 ┆ init : true new c┆
0x20cfc…20d02 (0x518,0x41b)
0x20d02…20d20 61 74 61 6c 6f 67 20 69 73 20 74 6f 20 62 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 0a 20 20 ┆atalog is to be initialized ┆
0x20d20…20d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 63 61 74 61 6c 6f ┆ false catalo┆
0x20d40…20d60 67 20 69 73 20 74 6f 20 62 65 20 75 70 64 61 74 65 64 2e 0a 20 20 20 20 20 69 6e 74 69 64 20 20 ┆g is to be updated. intid ┆
0x20d60…20d7a 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 6c 6f 63 61 6c 2d ┆ : points to local-┆
0x20d7a…20d80 (0x518,0x41c)
0x20d80…20da0 69 64 2e 20 69 6e 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 6a 2c 20 6b ┆id. in terminal-descr. j, k┆
0x20da0…20dc0 20 20 20 20 20 20 20 20 20 20 20 3a 20 68 65 6c 70 2d 76 61 72 69 61 62 6c 65 73 2e 0a 20 20 20 ┆ : help-variables. ┆
0x20dc0…20de0 20 20 6b 65 79 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 75 73 65 ┆ key : points to use┆
0x20de0…20e00 72 6b 65 79 20 69 6e 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 0a 00 00 00 00 00 00 00 00 ┆rkey in terminal-descr. ┆
0x20e00…20e06 (263,) (0x518,0x41d)
0x20e06…20e20 20 20 20 20 20 6b 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 3a 20 69 6e 64 64 ┆ kind : indd┆
0x20e20…20e40 61 74 61 20 73 74 6f 72 65 64 20 62 79 20 75 73 65 20 6f 66 20 72 65 61 64 61 6c 6c 2e 0a 20 20 ┆ata stored by use of readall. ┆
0x20e40…20e60 20 20 20 6b 30 65 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 65 6e ┆ k0e : points to en┆
0x20e60…20e7e 74 72 69 65 73 20 6f 66 20 6b 65 79 30 20 69 6e 20 64 65 76 69 63 65 64 65 73 63 72 2e 0a ┆tries of key0 in devicedescr. ┆
0x20e7e…20e84 (0x518,0x41e)
0x20e84…20ea0 20 20 20 20 20 6b 30 73 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 ┆ k0s : points┆
0x20ea0…20ec0 20 74 6f 20 73 65 67 6d 65 6e 74 73 20 6f 66 20 6b 65 79 30 20 69 6e 20 64 65 76 69 63 65 2d 64 ┆ to segments of key0 in device-d┆
0x20ec0…20ee0 65 73 63 72 2e 0a 20 20 20 20 20 6c 61 73 74 20 20 20 20 20 20 20 20 20 20 20 3a 20 6e 75 6d 62 ┆escr. last : numb┆
0x20ee0…20efc 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 20 75 73 65 64 20 64 75 72 69 6e 67 20 75 70 ┆er of segment used during up┆
0x20efc…20f02 (0x518,0x41f)
0x20f02…20f20 64 61 74 69 6e 67 2e 0a 20 20 20 20 20 6c 61 73 74 5f 74 65 72 6d 20 20 20 20 20 20 3a 20 ┆dating. last_term : ┆
0x20f20…20f40 68 65 6c 70 2d 76 61 72 69 61 62 6c 65 2e 0a 20 20 20 20 20 6c 62 61 73 65 20 20 20 20 20 20 20 ┆help-variable. lbase ┆
0x20f40…20f60 20 20 20 3a 20 68 65 6c 70 2d 76 61 72 69 61 62 6c 65 2e 0a 20 20 20 20 20 6c 69 73 74 20 20 20 ┆ : help-variable. list ┆
0x20f60…20f7a 20 20 20 20 20 20 20 20 3a 20 74 72 75 65 20 6e 65 77 20 63 61 74 61 6c 6f 67 ┆ : true new catalog┆
0x20f7a…20f80 (0x518,0x420)
0x20f80…20fa0 20 69 73 20 74 6f 20 62 65 20 6c 69 73 74 65 64 20 61 66 74 65 72 20 75 70 64 61 74 69 6e 67 0a ┆ is to be listed after updating ┆
0x20fa0…20fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 68 65 ┆ false othe┆
0x20fc0…20fe0 72 77 69 73 65 2e 0a 20 20 20 20 20 6d 61 78 70 72 6f 63 73 20 20 20 20 20 20 20 3a 20 6d 61 78 ┆rwise. maxprocs : max┆
0x20fe0…21000 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 63 65 73 73 65 73 00 00 00 00 00 00 00 00 ┆imum number of processes ┆
0x21000…21006 (264,) (0x518,0x421)
0x21006…21020 20 66 6f 72 20 77 68 69 63 68 20 74 68 65 72 65 20 61 72 65 0a 20 20 20 20 20 ┆ for which there are ┆
0x21020…21040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6f 6f 6d 20 69 6e 20 74 68 65 20 69 6e 64 ┆ room in the ind┆
0x21040…21060 65 78 73 65 67 6d 65 6e 74 73 2e 0a 20 20 20 20 20 6d 61 78 73 65 67 6d 20 20 20 20 20 20 20 20 ┆exsegments. maxsegm ┆
0x21060…2107e 3a 20 6e 6f 20 6f 66 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 63 61 74 61 6c 6f ┆: no of segments in the catalo┆
0x2107e…21084 (0x518,0x422)
0x21084…210a0 67 20 62 65 65 69 6e 67 20 75 70 64 61 74 65 64 2e 0a 20 20 20 20 20 6d 61 78 73 20 ┆g beeing updated. maxs ┆
0x210a0…210c0 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 6d 61 78 73 69 7a 65 20 69 6e ┆ : points to maxsize in┆
0x210c0…210e0 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 6d 61 78 31 2c 20 6d 61 78 32 20 ┆ process-descr. max1, max2 ┆
0x210e0…210fc 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 6d 61 78 62 61 73 65 73 20 69 6e 20 ┆ : points to maxbases in ┆
0x210fc…21102 (0x518,0x423)
0x21102…21120 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 6d 69 6e 73 20 20 20 20 20 20 ┆process-descr. mins ┆
0x21120…21140 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 6d 69 6e 73 69 7a 65 20 69 6e 20 70 72 6f 63 ┆ : points to minsize in proc┆
0x21140…21160 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 3a ┆ess-descr. name :┆
0x21160…2117a 20 6e 61 6d 65 20 72 65 61 64 20 66 72 6f 6d 20 69 6e 64 64 61 74 61 2e 0a 20 ┆ name read from inddata. ┆
0x2117a…21180 (0x518,0x424)
0x21180…211a0 20 20 20 20 6e 65 77 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 73 ┆ new : number of s┆
0x211a0…211c0 65 67 6d 65 6e 74 73 20 75 73 65 64 20 64 75 72 69 6e 67 20 75 70 64 61 74 69 6e 67 2e 0a 20 20 ┆egments used during updating. ┆
0x211c0…211e0 20 20 20 6e 65 77 63 61 74 20 20 20 20 20 20 20 20 20 3a 20 6e 61 6d 65 20 6f 66 20 6e 65 77 20 ┆ newcat : name of new ┆
0x211e0…21200 63 61 74 61 6c 6f 67 2e 0a 20 20 20 20 20 6e 65 77 5f 70 61 5f 72 65 61 00 00 00 00 00 00 00 00 ┆catalog. new_pa_rea ┆
0x21200…21206 (265,) (0x518,0x425)
0x21206…21220 64 20 20 20 20 3a 20 74 72 75 65 20 69 66 20 61 20 6e 65 77 20 70 61 72 61 6d ┆d : true if a new param┆
0x21220…21240 65 74 65 72 20 68 61 73 20 62 65 65 6e 20 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eter has been read ┆
0x21240…21260 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 20 20 20 6e ┆ false otherwise. n┆
0x21260…2127e 65 78 74 20 20 20 20 20 20 20 20 20 20 20 3a 20 68 65 6c 70 2d 76 61 72 69 61 62 6c 65 2e ┆ext : help-variable.┆
0x2127e…21284 (0x518,0x426)
0x21284…212a0 0a 20 20 20 20 20 6e 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 3d 66 61 6c 73 ┆ nl : =fals┆
0x212a0…212c0 65 20 61 64 64 20 31 30 2c 20 75 73 65 64 20 69 6e 20 77 72 69 74 65 73 74 61 74 65 6d 65 6e 74 ┆e add 10, used in writestatement┆
0x212c0…212e0 73 2e 0a 20 20 20 20 20 6e 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 3d 30 2c 20 75 73 65 ┆s. no : =0, use┆
0x212e0…212fc 64 20 69 6e 20 63 61 6c 6c 73 20 6f 66 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 ┆d in calls of the procedure ┆
0x212fc…21302 (0x518,0x427)
0x21302…21320 65 72 72 6f 72 2e 0a 20 20 20 6e 6f 5f 6f 66 5f 62 73 20 20 20 20 20 20 20 3a 20 6e 75 6d ┆error. no_of_bs : num┆
0x21320…21340 62 65 72 20 6f 66 20 62 73 20 64 65 76 69 63 65 73 0a 20 20 20 20 20 6e 6f 31 2c 20 6e 6f 32 20 ┆ber of bs devices no1, no2 ┆
0x21340…21360 20 20 20 20 20 20 3a 20 68 65 6c 70 2d 76 61 72 69 61 62 6c 65 73 2e 0a 20 20 20 20 20 6f 6c 64 ┆ : help-variables. old┆
0x21360…2137a 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 ┆ : number of se┆
0x2137a…21380 (0x518,0x428)
0x21380…213a0 67 6d 65 6e 74 73 20 75 73 65 64 20 64 75 72 69 6e 67 20 75 70 64 61 74 69 6e 67 2e 0a 20 20 20 ┆gments used during updating. ┆
0x213a0…213c0 20 20 6f 6c 64 63 61 74 20 20 20 20 20 20 20 20 20 3a 20 6e 61 6d 65 20 6f 66 20 63 61 74 61 6c ┆ oldcat : name of catal┆
0x213c0…213e0 6f 67 20 69 66 20 75 70 64 61 74 69 6e 67 20 69 73 20 77 61 6e 74 65 64 2e 0a 20 20 20 20 20 6f ┆og if updating is wanted. o┆
0x213e0…21400 75 74 66 69 6c 65 20 20 20 20 20 20 20 20 3a 20 6e 61 6d 65 20 6f 66 20 00 00 00 00 00 00 00 00 ┆utfile : name of ┆
0x21400…21406 (266,) (0x518,0x429)
0x21406…21420 6f 75 74 66 69 6c 65 20 69 66 20 6c 69 73 74 69 6e 67 20 69 73 20 77 61 6e 74 ┆outfile if listing is want┆
0x21420…21440 65 64 2e 0a 20 20 20 20 20 70 61 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 3d 31 2c 20 75 73 ┆ed. pa : =1, us┆
0x21440…21460 65 64 20 69 6e 20 63 61 6c 6c 73 20 6f 66 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 65 72 72 ┆ed in calls of the procedure err┆
0x21460…2147e 6f 72 2e 0a 20 20 20 20 20 70 61 5f 64 74 65 72 6d 20 20 20 20 20 20 20 3a 20 76 61 6c 75 ┆or. pa_dterm : valu┆
0x2147e…21484 (0x518,0x42a)
0x21484…214a0 65 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 64 74 65 72 6d 2e 0a 20 20 ┆e of the parameter dterm. ┆
0x214a0…214c0 20 20 20 70 61 72 61 6d 20 20 20 20 20 20 20 20 20 20 3a 20 66 69 72 73 74 20 66 6f 75 72 20 63 ┆ param : first four c┆
0x214c0…214e0 68 61 72 61 63 74 65 72 73 20 6f 66 20 61 6c 6c 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 20 20 20 ┆haracters of all parameters. ┆
0x214e0…214fc 20 20 70 61 72 61 6d 6e 6f 20 20 20 20 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 ┆ paramno : number of┆
0x214fc…21502 (0x518,0x42b)
0x21502…21520 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 62 65 65 69 6e 67 20 65 78 65 63 75 74 65 64 ┆ the parameter beeing executed┆
0x21520…21540 2e 0a 20 20 20 20 20 70 61 73 73 20 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 ┆. pass : points t┆
0x21540…21560 6f 20 70 61 73 73 77 6f 72 64 20 69 6e 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 ┆o password in process-descr. ┆
0x21560…2157a 20 20 70 61 5f 74 65 72 6d 20 20 20 20 20 20 20 20 3a 20 76 61 6c 75 65 20 6f ┆ pa_term : value o┆
0x2157a…21580 (0x518,0x42c)
0x21580…215a0 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 74 65 72 6d 2e 0a 20 20 20 20 20 70 65 72 6d 20 ┆f the parameter term. perm ┆
0x215a0…215c0 20 20 20 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 64 65 76 69 63 65 6e 61 6d 65 ┆ : points to devicename┆
0x215c0…215e0 20 69 6e 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 70 65 72 6d 31 20 20 20 ┆ in process-descr. perm1 ┆
0x215e0…21600 20 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 64 65 76 69 63 00 00 00 00 00 00 00 00 ┆ : points to devic ┆
0x21600…21606 (267,) (0x518,0x42d)
0x21606…21620 65 6e 61 6d 65 20 6f 66 20 66 69 72 73 74 20 64 65 76 69 63 65 20 28 64 69 73 ┆ename of first device (dis┆
0x21620…21640 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 70 72 6f 63 ┆c) in proc┆
0x21640…21660 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 70 72 6f 63 5f 62 79 74 65 20 20 20 20 20 20 3a ┆ess-descr. proc_byte :┆
0x21660…2167e 20 75 73 65 64 20 61 73 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 63 61 6c 6c 73 20 6f 66 ┆ used as parameter in calls of┆
0x2167e…21684 (0x518,0x42e)
0x21684…216a0 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ the procedure ┆
0x216a0…216c0 20 20 20 20 20 20 20 20 20 73 65 67 6d 5f 6e 6f 2e 0a 20 20 20 20 20 70 72 6f 63 5f 63 6f 75 6e ┆ segm_no. proc_coun┆
0x216c0…216e0 74 20 20 20 20 20 3a 20 6e 6f 20 6f 66 20 70 72 6f 63 65 73 73 20 69 6e 20 74 68 65 20 63 61 74 ┆t : no of process in the cat┆
0x216e0…216fc 61 6c 6f 67 2e 0a 20 20 20 20 20 70 72 6f 63 5f 64 65 73 5f 6c 67 74 20 20 20 3a 20 ┆alog. proc_des_lgt : ┆
0x216fc…21702 (0x518,0x42f)
0x21702…21720 6c 65 6e 67 74 68 20 6f 66 20 61 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 20 69 6e 20 68 ┆length of a process-descr in h┆
0x21720…21740 61 6c 66 2d 77 6f 72 64 73 2e 0a 20 20 20 20 20 70 72 6f 63 5f 6e 61 6d 65 20 20 20 20 20 20 3a ┆alf-words. proc_name :┆
0x21740…21760 20 70 72 6f 63 65 73 73 2d 6e 61 6d 65 2e 0a 20 20 20 20 20 70 72 6f 63 5f 6e 6f 20 20 20 20 20 ┆ process-name. proc_no ┆
0x21760…2177a 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 63 65 73 73 2e 0a 20 20 ┆ : number of process. ┆
0x2177a…21780 (0x518,0x430)
0x21780…217a0 20 20 20 70 72 6f 63 5f 70 61 5f 6c 67 74 20 20 20 20 3a 20 67 72 65 61 74 20 69 6e 64 65 78 20 ┆ proc_pa_lgt : great index ┆
0x217a0…217c0 6f 66 20 74 68 65 20 61 72 72 61 79 20 70 72 6f 63 5f 70 61 72 61 6d 73 2e 0a 20 20 20 20 20 70 ┆of the array proc_params. p┆
0x217c0…217e0 72 6f 63 5f 70 61 72 61 6d 73 20 20 20 20 3a 20 61 72 72 61 79 20 66 6f 72 20 70 72 6f 63 65 73 ┆roc_params : array for proces┆
0x217e0…21800 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 70 72 6f 63 5f 70 72 5f 69 6e 00 00 00 00 00 00 00 00 ┆s-descr. proc_pr_in ┆
0x21800…21806 (268,) (0x518,0x431)
0x21806…21820 64 65 78 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 63 65 73 73 2d 6e ┆dex : number of process-n┆
0x21820…21840 61 6d 65 73 20 70 65 72 20 69 6e 64 65 78 73 65 67 6d 65 6e 74 2e 0a 20 20 20 20 20 70 72 6f 63 ┆ames per indexsegment. proc┆
0x21840…21860 5f 73 65 67 6d 20 20 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 20 63 ┆_segm : number of segment c┆
0x21860…2187e 6f 6e 74 61 69 6e 69 6e 67 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 ┆ontaining process-descr. ┆
0x2187e…21884 (0x518,0x432)
0x21884…218a0 70 72 6f 63 5f 73 65 67 6d 73 20 20 20 20 20 3a 20 73 65 67 6d 65 6e 74 73 20 6f 63 ┆proc_segms : segments oc┆
0x218a0…218c0 63 75 70 69 65 64 20 62 79 20 6f 6e 65 20 70 72 6f 63 65 73 73 2e 0a 20 20 20 20 20 71 75 6f 74 ┆cupied by one process. quot┆
0x218c0…218e0 65 5f 74 61 62 6c 65 20 20 20 20 3a 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 6b 69 6e 64 73 ┆e_table : definition of kinds┆
0x218e0…218fc 20 66 6f 72 20 63 68 61 72 61 63 74 65 72 73 20 72 65 61 64 20 69 6e 0a 20 20 20 20 ┆ for characters read in ┆
0x218fc…21902 (0x518,0x433)
0x21902…21920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 ┆ connection w┆
0x21920…21940 69 74 68 20 71 75 6f 74 65 73 2e 0a 20 20 20 20 20 73 65 67 6d 20 20 20 20 20 20 20 20 20 20 20 ┆ith quotes. segm ┆
0x21940…21960 3a 20 70 6f 69 6e 74 73 20 74 6f 20 73 65 67 6d 65 6e 74 2d 6e 75 6d 62 65 72 20 69 6e 20 65 6e ┆: points to segment-number in en┆
0x21960…2197a 64 65 78 65 6c 65 6d 65 6e 74 2e 0a 20 20 20 20 20 73 68 6f 72 74 20 20 20 20 ┆dexelement. short ┆
0x2197a…21980 (0x518,0x434)
0x21980…219a0 20 20 20 20 20 20 3a 20 75 73 65 64 20 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 20 ┆ : used in connection with ┆
0x219a0…219c0 73 79 73 74 69 6d 65 28 37 2c 2e 2e 29 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆systime(7,..)- ┆
0x219c0…219e0 20 20 20 20 20 67 65 74 20 73 68 6f 72 74 63 6c 6f 63 6b 2e 0a 20 20 20 20 20 73 70 20 20 20 20 ┆ get shortclock. sp ┆
0x219e0…21a00 20 20 20 20 20 20 20 20 20 3a 20 3d 20 66 61 6c 73 65 20 61 64 64 20 33 00 00 00 00 00 00 00 00 ┆ : = false add 3 ┆
0x21a00…21a06 (269,) (0x518,0x435)
0x21a06…21a20 32 2c 20 75 73 65 64 20 69 6e 20 77 72 69 74 65 73 74 61 74 65 6d 65 6e 74 73 ┆2, used in writestatements┆
0x21a20…21a40 2e 0a 20 20 20 20 20 73 74 64 31 2c 20 73 74 64 32 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 ┆. std1, std2 : points t┆
0x21a40…21a60 6f 20 73 74 61 6e 64 61 72 64 62 61 73 65 73 20 69 6e 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 ┆o standardbases in process-descr┆
0x21a60…21a7e 2e 0a 20 20 20 20 20 73 74 6f 70 20 20 20 20 20 20 20 20 20 20 20 3a 20 75 73 65 64 20 69 ┆. stop : used i┆
0x21a7e…21a84 (0x518,0x436)
0x21a84…21aa0 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 20 66 6f 72 2d 73 74 65 70 2d 73 ┆n connection with for-step-s┆
0x21aa0…21ac0 74 61 74 65 6d 65 6e 74 73 2e 0a 20 20 20 20 20 74 61 69 6c 20 20 20 20 20 20 20 20 20 20 20 3a ┆tatements. tail :┆
0x21ac0…21ae0 20 75 73 65 64 20 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 20 6d 6f 6e 69 74 6f 72 ┆ used in connection with monitor┆
0x21ae0…21afc 70 72 6f 63 65 64 75 72 65 73 2e 0a 20 20 20 20 20 74 65 6d 70 6e 65 77 63 61 74 20 ┆procedures. tempnewcat ┆
0x21afc…21b02 (0x518,0x437)
0x21b02…21b20 20 20 20 20 3a 20 74 72 75 65 20 69 66 20 61 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 ┆ : true if a temporary file┆
0x21b20…21b40 20 68 61 73 20 62 65 65 6e 20 63 72 65 61 74 65 64 20 66 6f 72 0a 20 20 20 20 20 20 20 20 20 20 ┆ has been created for ┆
0x21b40…21b60 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 6e 65 77 20 63 61 74 61 6c 6f 67 0a 20 20 20 20 ┆ the new catalog ┆
0x21b60…21b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 ┆ false ot┆
0x21b7a…21b80 (0x518,0x438)
0x21b80…21ba0 68 65 72 77 69 73 65 2e 0a 20 20 20 20 20 74 65 72 6d 20 20 20 20 20 20 20 20 20 20 20 3a 20 6e ┆herwise. term : n┆
0x21ba0…21bc0 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 65 72 6d ┆umber of segment containing term┆
0x21bc0…21be0 69 6e 61 6c 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 74 65 72 6d 5f 62 79 74 65 20 20 20 20 20 20 ┆inal-descr. term_byte ┆
0x21be0…21c00 3a 20 75 73 65 64 20 61 73 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 63 00 00 00 00 00 00 00 00 ┆: used as parameter in c ┆
0x21c00…21c06 (270,) (0x518,0x439)
0x21c06…21c20 61 6c 6c 73 20 6f 66 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 0a 20 20 20 20 ┆alls of the procedure ┆
0x21c20…21c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 73 65 67 6d 2e 0a 20 20 20 ┆ term_segm. ┆
0x21c40…21c60 20 20 74 65 72 6d 5f 63 6f 75 6e 74 20 20 20 20 20 3a 20 63 6f 75 6e 74 73 20 6e 75 6d 62 65 72 ┆ term_count : counts number┆
0x21c60…21c7e 20 6f 66 20 74 65 72 6d 69 6e 61 6c 73 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 6f 6e 65 ┆ of terminals belonging to one┆
0x21c7e…21c84 (0x518,0x43a)
0x21c84…21ca0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 ┆ proce┆
0x21ca0…21cc0 73 73 2e 0a 20 20 20 20 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 20 20 20 3a 20 6c 65 6e 67 74 68 ┆ss. term_des_lgt : length┆
0x21cc0…21ce0 20 6f 66 20 61 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 20 69 6e 20 68 61 6c 66 2d 77 6f ┆ of a terminal-descr. in half-wo┆
0x21ce0…21cfc 72 64 73 2e 0a 20 20 20 20 20 74 65 72 6d 5f 70 61 5f 6c 67 74 20 20 20 20 3a 20 67 ┆rds. term_pa_lgt : g┆
0x21cfc…21d02 (0x518,0x43b)
0x21d02…21d20 72 65 61 74 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 61 72 72 61 79 20 74 65 72 6d 5f 70 ┆reat index of the array term_p┆
0x21d20…21d40 61 72 61 6d 73 2e 0a 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 20 20 20 20 3a 20 61 72 72 ┆arams. term_params : arr┆
0x21d40…21d60 61 79 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 74 65 72 6d ┆ay for terminal-descr. term┆
0x21d60…21d7a 5f 70 72 5f 70 72 73 65 67 6d 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 72 ┆_pr_prsegm : number of ter┆
0x21d7a…21d80 (0x518,0x43c)
0x21d80…21da0 6d 69 6e 61 6c 2d 64 65 73 63 72 69 62 74 69 6f 6e 73 20 70 72 20 73 65 67 6d 65 6e 74 0a 20 20 ┆minal-describtions pr segment ┆
0x21da0…21dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 70 72 6f 63 65 73 73 ┆ with process┆
0x21dc0…21de0 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 74 65 72 6d 5f 70 72 5f 73 65 67 6d 20 20 20 3a 20 6e 75 ┆-descr. term_pr_segm : nu┆
0x21de0…21e00 6d 62 65 72 20 6f 66 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 20 00 00 00 00 00 00 00 00 ┆mber of terminal-descr. ┆
0x21e00…21e06 (271,) (0x518,0x43d)
0x21e06…21e20 70 72 20 73 65 67 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pr segment ┆
0x21e20…21e40 20 20 20 20 20 20 20 77 69 74 68 6f 75 74 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 0a 20 ┆ without terminal-descr. ┆
0x21e40…21e60 20 20 20 20 74 65 72 6d 5f 73 74 61 72 74 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 6f 75 74 20 ┆ term_start : points out ┆
0x21e60…21e7e 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 69 62 74 ┆the start of terminal-describt┆
0x21e7e…21e84 (0x518,0x43e)
0x21e84…21ea0 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ions i┆
0x21ea0…21ec0 6e 20 61 20 73 65 67 6d 65 6e 74 2e 0a 20 20 20 20 20 74 69 6d 65 20 20 20 20 20 20 20 20 20 20 ┆n a segment. time ┆
0x21ec0…21ee0 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 74 69 6d 65 63 6f 75 6e 74 20 69 6e 20 74 65 72 6d 69 6e ┆ : points to timecount in termin┆
0x21ee0…21efc 61 6c 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 74 72 20 20 20 20 20 20 20 20 20 20 20 ┆al-descr. tr ┆
0x21efc…21f02 (0x518,0x43f)
0x21f02…21f20 20 20 3a 20 3d 20 32 2c 20 75 73 65 64 20 69 6e 20 63 61 6c 6c 73 20 6f 66 20 74 68 65 20 ┆ : = 2, used in calls of the ┆
0x21f20…21f40 70 72 6f 63 65 64 75 72 65 20 65 72 72 6f 72 2e 0a 20 20 20 20 20 74 72 61 6e 73 20 20 20 20 20 ┆procedure error. trans ┆
0x21f40…21f60 20 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e ┆ : number of the transaction┆
0x21f60…21f7a 20 62 65 65 69 6e 67 20 65 78 65 63 75 74 65 64 2e 0a 20 20 20 20 20 74 72 5f ┆ beeing executed. tr_┆
0x21f7a…21f80 (0x518,0x440)
0x21f80…21fa0 65 6e 64 20 20 20 20 20 20 20 20 20 3a 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 74 72 61 6e 73 ┆end : value of the trans┆
0x21fa0…21fc0 61 63 74 69 6f 6e 20 65 6e 64 2e 0a 20 20 20 20 20 74 72 5f 6d 61 78 70 20 20 20 20 20 20 20 20 ┆action end. tr_maxp ┆
0x21fc0…21fe0 3a 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6d 61 78 70 2e ┆: value of the transaction maxp.┆
0x21fe0…22000 0a 20 20 20 20 20 74 72 5f 70 72 6f 63 20 20 20 20 20 20 20 20 3a 20 76 00 00 00 00 00 00 00 00 ┆ tr_proc : v ┆
0x22000…22006 (272,) (0x518,0x441)
0x22006…22020 61 6c 75 65 20 6f 66 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 70 72 ┆alue of the transaction pr┆
0x22020…22040 6f 63 2e 0a 20 20 20 20 20 75 73 65 64 5f 73 65 67 6d 20 20 20 20 20 20 3a 20 63 6f 75 6e 74 73 ┆oc. used_segm : counts┆
0x22040…22060 20 74 68 65 20 73 65 67 6d 65 6e 74 73 20 75 73 65 64 20 62 79 20 69 6e 69 74 69 61 6c 69 7a 69 ┆ the segments used by initializi┆
0x22060…2207e 6e 67 20 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 ┆ng a new┆
0x2207e…22084 (0x518,0x442)
0x22084…220a0 20 63 61 74 61 6c 6f 67 2e 0a 20 20 20 20 20 75 73 65 31 2c 20 75 73 65 32 20 20 20 ┆ catalog. use1, use2 ┆
0x220a0…220c0 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 75 73 65 72 62 61 73 65 73 20 69 6e 20 70 72 6f 63 65 ┆ : points to userbases in proce┆
0x220c0…220e0 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 76 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 ┆ss-descr. val : ┆
0x220e0…220fc 69 6e 64 64 61 74 61 20 73 74 6f 72 65 64 20 62 79 20 75 73 65 20 6f 66 20 72 65 61 ┆inddata stored by use of rea┆
0x220fc…22102 (0x518,0x443)
0x22102…22120 64 61 6c 6c 2e 0a 20 20 20 20 20 76 61 6c 69 6e 64 65 78 20 20 20 20 20 20 20 3a 20 6e 75 ┆dall. valindex : nu┆
0x22120…22140 6d 62 65 72 20 6f 66 20 6e 65 78 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 76 61 6c 20 61 6e 64 20 ┆mber of next element in val and ┆
0x22140…22160 6b 69 6e 64 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆kind to be┆
0x22160…2217a 20 65 78 61 6d 69 6e 65 64 2e 0a 20 20 20 20 20 77 6f 72 64 20 20 20 20 20 20 ┆ examined. word ┆
0x2217a…22180 (0x518,0x444)
0x22180…221a0 20 20 20 20 20 3a 20 75 73 65 64 20 61 74 20 77 6f 72 64 2d 6f 70 65 72 61 74 69 6e 67 20 6f 6e ┆ : used at word-operating on┆
0x221a0…221c0 20 7a 6f 6e 65 73 2e 0a 20 20 20 20 20 7a 6f 6e 65 77 20 20 20 20 20 20 20 20 20 20 3a 20 7a 6f ┆ zones. zonew : zo┆
0x221c0…221e0 6e 65 20 66 6f 72 20 6e 65 77 20 63 61 74 61 6c 6f 67 2e 0a 20 20 20 20 20 7a 6f 6f 6c 64 20 20 ┆ne for new catalog. zoold ┆
0x221e0…22200 20 20 20 20 20 20 20 20 3a 20 7a 6f 6e 65 20 66 6f 72 20 6f 6c 64 20 63 00 00 00 00 00 00 00 00 ┆ : zone for old c ┆
0x22200…22206 (273,) (0x518,0x445)
0x22206…22220 61 74 61 6c 6f 67 2e 0a 20 20 20 20 20 7a 6f 6f 75 74 20 20 20 20 20 20 20 20 ┆atalog. zoout ┆
0x22220…22240 20 20 3a 20 7a 6f 6e 65 20 66 6f 72 20 6c 69 73 74 69 6e 67 20 6f 66 20 63 61 74 61 6c 6f 67 2e ┆ : zone for listing of catalog.┆
0x22240…22260 0a 0a 20 20 2a 3e 0a 0c 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 5f 6c 69 6e 65 3b 0a 20 ┆ *> procedure read_line; ┆
0x22260…2227e 20 62 65 67 69 6e 0a 20 20 3c 2a 20 72 65 61 64 73 20 61 20 6e 65 77 20 6c 69 6e 65 20 69 ┆ begin <* reads a new line i┆
0x2227e…22284 (0x518,0x446)
0x22284…222a0 6e 74 6f 20 76 61 6c 20 61 6e 64 20 6b 69 6e 64 2e 0a 20 20 20 20 20 61 73 73 69 67 ┆nto val and kind. assig┆
0x222a0…222c0 6e 73 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 20 28 6e 6f 2e 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 ┆ns elem_in_val (no. of elements ┆
0x222c0…222e0 69 6e 20 76 61 6c 20 61 6e 64 20 6b 69 6e 64 29 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 ┆in val and kind) and ┆
0x222e0…222fc 20 20 76 61 6c 69 6e 64 65 78 20 28 70 6f 69 6e 74 73 20 74 6f 20 6e 65 78 74 20 65 ┆ valindex (points to next e┆
0x222fc…22302 (0x518,0x447)
0x22302…22320 6c 65 6d 65 6e 74 20 69 6e 20 76 61 6c 20 74 6f 20 62 65 20 72 65 61 64 29 0a 20 20 2a 3e ┆lement in val to be read) *>┆
0x22320…22340 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 74 72 61 70 28 61 67 61 69 6e 29 3b ┆ integer i; trap(again);┆
0x22340…22360 0a 20 20 20 20 74 72 61 70 6d 6f 64 65 20 3a 3d 20 31 20 73 68 69 66 74 20 32 20 2b 20 31 20 73 ┆ trapmode := 1 shift 2 + 1 s┆
0x22360…2237a 68 69 66 74 20 33 3b 0a 61 67 61 69 6e 31 3a 0a 20 20 20 20 66 6f 72 20 69 3a ┆hift 3; again1: for i:┆
0x2237a…22380 (0x518,0x448)
0x22380…223a0 3d 31 2c 20 31 20 77 68 69 6c 65 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3c 3d 30 20 64 6f 0a 20 20 ┆=1, 1 while elem_in_val<=0 do ┆
0x223a0…223c0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 20 3a 3d 20 72 65 61 ┆ begin elem_in_val := rea┆
0x223c0…223e0 64 5f 61 6c 6c 28 69 6e 2c 20 76 61 6c 2c 20 6b 69 6e 64 2c 20 31 29 3b 0a 20 20 20 20 20 20 69 ┆d_all(in, val, kind, 1); i┆
0x223e0…22400 66 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3c 30 20 74 68 65 6e 20 0a 20 20 00 00 00 00 00 00 00 00 ┆f elem_in_val<0 then ┆
0x22400…22406 (274,) (0x518,0x449)
0x22406…22420 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 65 6c 65 6d 5f 69 6e 5f ┆ begin elem_in_┆
0x22420…22440 67 6c 76 61 6c 20 3a 3d 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3b 0a 20 20 20 20 20 20 20 20 65 72 ┆glval := elem_in_val; er┆
0x22440…22460 72 6f 72 28 3c 3a 6c 69 6e 65 20 74 6f 6f 20 6c 6f 6e 67 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 20 20 ┆ror(<:line too long:>, no); ┆
0x22460…2247e 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a ┆ end; end; valindex :┆
0x2247e…22484 (0x518,0x44a)
0x22484…224a0 3d 20 31 3b 0a 20 20 20 20 69 66 20 67 6c 76 61 6c 28 65 6c 65 6d 5f 69 6e 5f 67 6c ┆= 1; if glval(elem_in_gl┆
0x224a0…224c0 76 61 6c 29 3c 3e 33 34 20 74 68 65 6e 20 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 20 3a 3d 20 30 ┆val)<>34 then elem_in_glval := 0┆
0x224c0…224e0 3b 0a 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 65 6c 65 6d ┆; for i:=1 step 1 until elem┆
0x224e0…224fc 5f 69 6e 5f 76 61 6c 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 67 ┆_in_val do begin g┆
0x224fc…22502 (0x518,0x44b)
0x22502…22520 6c 76 61 6c 28 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 2b 69 29 20 3a 3d 20 76 61 6c 28 69 ┆lval(elem_in_glval+i) := val(i┆
0x22520…22540 29 3b 0a 20 20 20 20 20 20 67 6c 6b 69 6e 64 28 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 2b 69 29 ┆); glkind(elem_in_glval+i)┆
0x22540…22560 20 3a 3d 20 6b 69 6e 64 28 69 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6c 65 6d 5f 69 ┆ := kind(i); end; elem_i┆
0x22560…2257a 6e 5f 67 6c 76 61 6c 20 3a 3d 20 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 20 2b ┆n_glval := elem_in_glval +┆
0x2257a…22580 (0x518,0x44c)
0x22580…225a0 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3b 0a 20 20 20 20 67 6f 74 6f 20 6f 75 74 72 6c 3b 0a 61 67 ┆ elem_in_val; goto outrl; ag┆
0x225a0…225c0 61 69 6e 3a 0a 20 20 20 20 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 20 3a 3d 20 65 6c 65 6d 5f 69 ┆ain: elem_in_glval := elem_i┆
0x225c0…225e0 6e 5f 76 61 6c 3b 0a 20 20 20 20 65 72 72 6f 72 28 3c 3a 6c 69 6e 65 20 74 6f 6f 20 6c 6f 6e 67 ┆n_val; error(<:line too long┆
0x225e0…22600 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 20 20 74 72 61 70 6d 6f 64 65 20 3a 3d 00 00 00 00 00 00 00 00 ┆:>, no); trapmode := ┆
0x22600…22606 (275,) (0x518,0x44d)
0x22606…22620 20 30 3b 0a 20 20 20 20 67 6f 74 6f 20 61 67 61 69 6e 31 3b 0a 6f 75 74 72 6c ┆ 0; goto again1; outrl┆
0x22620…22640 3a 0a 20 20 65 6e 64 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 73 6b 69 70 5f 64 65 6c 69 6d ┆: end; procedure skip_delim┆
0x22640…22660 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 20 3c 2a 20 73 6b 69 70 73 20 64 65 6c 69 6d 69 74 65 ┆; begin <* skips delimite┆
0x22660…2267e 72 73 2e 0a 20 20 20 20 20 20 20 20 61 74 20 72 65 74 75 72 6e 20 76 61 6c 69 6e 64 65 78 ┆rs. at return valindex┆
0x2267e…22684 (0x518,0x44e)
0x22684…226a0 20 70 6f 69 6e 74 73 20 74 6f 20 6e 65 78 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 76 ┆ points to next element in v┆
0x226a0…226c0 61 6c 20 6e 6f 74 20 62 65 65 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆al not beeing ┆
0x226c0…226e0 20 20 20 20 20 20 20 20 20 61 20 64 65 6c 69 6d 69 74 65 72 2e 0a 20 20 20 20 20 2a 3e 0a 20 20 ┆ a delimiter. *> ┆
0x226e0…226fc 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 69 66 20 76 61 6c 69 6e 64 65 78 ┆ integer i; if valindex┆
0x226fc…22702 (0x518,0x44f)
0x22702…22720 3e 65 6c 65 6d 5f 69 6e 5f 76 61 6c 20 74 68 65 6e 20 72 65 61 64 5f 6c 69 6e 65 3b 0a 20 ┆>elem_in_val then read_line; ┆
0x22720…22740 20 20 20 69 20 3a 3d 20 76 61 6c 69 6e 64 65 78 2d 31 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 69 ┆ i := valindex-1; for i:=i┆
0x22740…22760 2b 31 20 77 68 69 6c 65 20 6b 69 6e 64 28 69 29 3e 3d 37 20 64 6f 0a 20 20 20 20 62 65 67 69 6e ┆+1 while kind(i)>=7 do begin┆
0x22760…2277a 0a 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 69 29 3d 39 20 6f 72 20 76 61 6c ┆ if kind(i)=9 or val┆
0x2277a…22780 (0x518,0x450)
0x22780…227a0 28 69 29 3d 33 34 20 0a 20 20 20 20 20 20 74 68 65 6e 20 65 72 72 6f 72 28 3c 3a 69 6c 6c 65 67 ┆(i)=34 then error(<:illeg┆
0x227a0…227c0 61 6c 20 63 68 61 72 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3d 65 6c 65 6d 5f ┆al char:>, no); if i=elem_┆
0x227c0…227e0 69 6e 5f 76 61 6c 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 ┆in_val then begin ┆
0x227e0…22800 69 66 20 76 61 6c 28 69 29 3d 32 35 20 74 68 65 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆if val(i)=25 then ┆
0x22800…22806 (276,) (0x518,0x451)
0x22806…22820 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 65 6d 20 3a 3d 20 74 72 ┆ begin em := tr┆
0x22820…22840 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 5f 73 6b 69 70 3b 0a 20 20 20 ┆ue; goto out_skip; ┆
0x22840…22860 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 ┆ end else be┆
0x22860…2287e 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 72 65 61 64 5f 6c 69 6e 65 3b 0a 20 20 20 20 20 ┆gin read_line; ┆
0x2287e…22884 (0x518,0x452)
0x22884…228a0 20 20 20 20 20 69 20 3a 3d 20 76 61 6c 69 6e 64 65 78 2d 31 3b 0a 20 20 20 20 20 20 ┆ i := valindex-1; ┆
0x228a0…228c0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 66 6f 72 3b 0a 6f ┆ end; end; end for; o┆
0x228c0…228e0 75 74 5f 73 6b 69 70 3a 0a 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 69 3b 0a 20 20 65 6e ┆ut_skip: valindex := i; en┆
0x228e0…228fc 64 20 73 6b 69 70 5f 64 65 6c 69 6d 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 73 ┆d skip_delim; procedure s┆
0x228fc…22902 (0x518,0x453)
0x22902…22920 6b 69 70 5f 74 6f 5f 74 65 78 74 3b 0a 20 20 62 65 67 69 6e 0a 20 20 3c 2a 20 73 6b 69 70 ┆kip_to_text; begin <* skip┆
0x22920…22940 73 20 74 6f 20 6b 69 6e 64 3d 74 65 78 74 20 28 36 29 2e 0a 20 20 20 20 20 61 74 20 72 65 74 75 ┆s to kind=text (6). at retu┆
0x22940…22960 72 6e 20 76 61 6c 69 6e 64 65 78 20 70 6f 69 6e 74 73 20 74 6f 20 6e 65 78 74 20 65 6c 65 6d 65 ┆rn valindex points to next eleme┆
0x22960…2297a 6e 74 20 69 6e 20 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nt in val ┆
0x2297a…22980 (0x518,0x454)
0x22980…229a0 20 20 20 20 20 20 20 20 6f 66 20 6b 69 6e 64 20 74 65 78 74 2e 0a 20 20 2a 3e 0a 20 20 20 20 62 ┆ of kind text. *> b┆
0x229a0…229c0 6f 6f 6c 65 61 6e 20 72 65 70 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 72 ┆oolean rep; integer i; r┆
0x229c0…229e0 65 70 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 72 ┆ep := true; for i:=1 while r┆
0x229e0…22a00 65 70 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 6b 00 00 00 00 00 00 00 00 ┆ep do begin sk ┆
0x22a00…22a06 (277,) (0x518,0x455)
0x22a06…22a20 69 70 5f 64 65 6c 69 6d 3b 0a 20 20 20 20 20 20 69 66 20 65 6d 20 6f 72 20 6b ┆ip_delim; if em or k┆
0x22a20…22a40 69 6e 64 28 76 61 6c 69 6e 64 65 78 29 3d 36 20 74 68 65 6e 20 72 65 70 20 3a 3d 20 66 61 6c 73 ┆ind(valindex)=6 then rep := fals┆
0x22a40…22a60 65 0a 20 20 20 20 20 20 65 6c 73 65 20 3c 2a 20 73 6b 69 70 20 6b 69 6e 64 20 31 20 61 6e 64 20 ┆e else <* skip kind 1 and ┆
0x22a60…22a7e 32 20 2a 3e 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 76 61 6c 69 6e 64 65 78 20 2b 20 31 3b ┆2 *> valindex := valindex + 1;┆
0x22a7e…22a84 (0x518,0x456)
0x22a84…22aa0 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 20 73 6b 69 70 5f 74 6f 5f 74 65 78 74 ┆ end; end skip_to_text┆
0x22aa0…22ac0 3b 0a 0a 0c 20 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 5f 6e 6f 28 ┆; boolean procedure read_no(┆
0x22ac0…22ae0 6e 6f 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 6e 6f 3b 0a 20 20 62 65 67 69 6e 0a 20 20 3c 2a 20 ┆no); integer no; begin <* ┆
0x22ae0…22afc 72 65 61 64 5f 6e 6f 20 20 28 72 65 74 75 72 6e 29 20 74 72 75 65 20 6e 75 6d 62 65 ┆read_no (return) true numbe┆
0x22afc…22b02 (0x518,0x457)
0x22b02…22b20 72 20 69 73 20 72 65 61 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r is read. ┆
0x22b20…22b40 20 20 20 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 20 6e 6f 20 20 20 20 20 ┆ false otherwise no ┆
0x22b40…22b60 20 20 28 72 65 74 75 72 6e 29 20 72 65 61 64 5f 6e 6f 3d 66 61 6c 73 65 20 20 30 0a 20 20 20 20 ┆ (return) read_no=false 0 ┆
0x22b60…22b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22b7a…22b80 (0x518,0x458)
0x22b80…22ba0 74 72 75 65 20 20 74 68 65 20 6e 75 6d 62 65 72 20 72 65 61 64 2e 0a 20 20 20 20 20 69 66 20 72 ┆true the number read. if r┆
0x22ba0…22bc0 65 61 64 5f 6e 6f 20 69 73 20 66 61 6c 73 65 20 6f 6e 6c 79 20 64 65 6c 69 6d 69 74 65 72 73 20 ┆ead_no is false only delimiters ┆
0x22bc0…22be0 68 61 73 20 62 65 65 6e 20 72 65 61 64 0a 20 20 20 20 20 28 76 61 6c 69 6e 64 65 78 20 70 6f 69 ┆has been read (valindex poi┆
0x22be0…22c00 6e 74 73 20 74 6f 20 6e 65 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 76 00 00 00 00 00 00 00 00 ┆nts to nest element in v ┆
0x22c00…22c06 (278,) (0x518,0x459)
0x22c06…22c20 61 6c 20 6e 6f 74 20 62 65 65 69 6e 67 20 61 20 64 65 6c 69 6d 69 74 65 72 29 ┆al not beeing a delimiter)┆
0x22c20…22c40 2e 0a 20 20 2a 3e 0a 20 20 20 20 62 6f 6f 6c 65 61 6e 20 6f 6b 3b 0a 20 20 20 20 6e 6f 20 3a 3d ┆. *> boolean ok; no :=┆
0x22c40…22c60 20 30 3b 0a 20 20 20 20 6f 6b 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 73 6b 69 70 5f 64 65 6c ┆ 0; ok := true; skip_del┆
0x22c60…22c7e 69 6d 3b 0a 20 20 20 20 69 66 20 2d 2c 65 6d 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆im; if -,em then begin┆
0x22c7e…22c84 (0x518,0x45a)
0x22c84…22ca0 0a 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 76 61 6c 69 6e 64 65 78 29 3d 32 20 74 ┆ if kind(valindex)=2 t┆
0x22ca0…22cc0 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6e 6f 20 3a 3d 20 76 61 ┆hen begin no := va┆
0x22cc0…22ce0 6c 28 76 61 6c 69 6e 64 65 78 29 3b 0a 20 20 20 20 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d ┆l(valindex); valindex :=┆
0x22ce0…22cfc 20 76 61 6c 69 6e 64 65 78 20 2b 20 31 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 ┆ valindex + 1; end ┆
0x22cfc…22d02 (0x518,0x45b)
0x22d02…22d20 20 20 20 65 6c 73 65 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 65 6e 64 0a 20 ┆ else ok := false; end ┆
0x22d20…22d40 20 20 20 65 6c 73 65 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 72 65 61 64 5f 6e 6f ┆ else ok := false; read_no┆
0x22d40…22d60 20 3a 3d 20 6f 6b 3b 0a 20 20 65 6e 64 20 72 65 61 64 5f 6e 6f 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 ┆ := ok; end read_no; boolean ┆
0x22d60…22d7a 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 5f 6e 61 6d 65 28 74 65 78 74 2c 20 ┆procedure read_name(text, ┆
0x22d7a…22d80 (0x518,0x45c)
0x22d80…22da0 63 68 61 72 73 29 3b 0a 20 20 76 61 6c 75 65 20 63 68 61 72 73 3b 0a 20 20 69 6e 74 65 67 65 72 ┆chars); value chars; integer┆
0x22da0…22dc0 20 63 68 61 72 73 3b 0a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 74 65 78 74 3b 0a 20 20 62 65 67 ┆ chars; long array text; beg┆
0x22dc0…22de0 69 6e 0a 20 20 3c 2a 20 72 65 61 64 5f 6e 61 6d 65 20 20 20 28 72 65 74 75 72 6e 29 20 74 72 75 ┆in <* read_name (return) tru┆
0x22de0…22e00 65 20 20 6e 61 6d 65 20 69 73 20 72 65 61 64 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆e name is read ┆
0x22e00…22e06 (279,) (0x518,0x45d)
0x22e06…22e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 ┆ false ot┆
0x22e20…22e40 68 65 72 77 69 73 65 2e 0a 20 20 20 20 20 74 65 78 74 20 20 20 20 20 20 20 20 28 72 65 74 75 72 ┆herwise. text (retur┆
0x22e40…22e60 6e 29 20 20 72 65 61 64 5f 6e 61 6d 65 3d 66 61 6c 73 65 20 20 6e 75 6c 6c 73 0a 20 20 20 20 20 ┆n) read_name=false nulls ┆
0x22e60…22e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e7e…22e84 (0x518,0x45e)
0x22e84…22ea0 20 74 72 75 65 20 20 74 68 65 20 6e 61 6d 65 20 72 65 61 64 2e 0a 20 20 20 20 20 63 ┆ true the name read. c┆
0x22ea0…22ec0 68 61 72 73 20 20 20 20 20 20 20 28 63 61 6c 6c 29 20 20 20 20 6d 61 78 20 6e 75 6d 62 65 72 20 ┆hars (call) max number ┆
0x22ec0…22ee0 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 65 78 74 2e 0a 20 20 20 20 20 69 66 20 72 ┆of characters in text. if r┆
0x22ee0…22efc 65 61 64 5f 6e 61 6d 65 20 69 73 20 66 61 6c 73 65 20 6f 6e 6c 79 20 64 65 6c 69 6d ┆ead_name is false only delim┆
0x22efc…22f02 (0x518,0x45f)
0x22f02…22f20 69 74 65 72 73 20 68 61 73 20 62 65 65 6e 20 72 65 61 64 2e 0a 20 20 2a 3e 0a 20 20 20 20 ┆iters has been read. *> ┆
0x22f20…22f40 62 6f 6f 6c 65 61 6e 20 6f 6b 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6a 2c 20 ┆boolean ok; integer i, j, ┆
0x22f40…22f60 6b 2c 20 6c 6f 6e 67 73 2c 20 63 68 61 72 2c 20 72 65 61 64 5f 63 68 61 72 73 2c 20 73 74 61 72 ┆k, longs, char, read_chars, star┆
0x22f60…22f7a 74 69 6e 64 65 78 3b 0a 20 20 20 20 73 6b 69 70 5f 64 65 6c 69 6d 3b 0a 20 20 ┆tindex; skip_delim; ┆
0x22f7a…22f80 (0x518,0x460)
0x22f80…22fa0 20 20 20 20 72 65 61 64 5f 63 68 61 72 73 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 6c 6f 6e 67 73 ┆ read_chars := 0; longs┆
0x22fa0…22fc0 20 3a 3d 20 63 68 61 72 73 2f 2f 36 20 2b 20 31 3b 0a 20 20 20 20 20 20 73 74 61 72 74 69 6e 64 ┆ := chars//6 + 1; startind┆
0x22fc0…22fe0 65 78 20 3a 3d 20 76 61 6c 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 20 3a 3d 28 69 ┆ex := valindex; for i :=(i┆
0x22fe0…23000 66 20 65 6d 20 74 68 65 6e 20 28 6c 6f 6e 67 73 2b 31 29 20 65 6c 73 65 00 00 00 00 00 00 00 00 ┆f em then (longs+1) else ┆
0x23000…23006 (280,) (0x518,0x461)
0x23006…23020 20 31 29 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 6f 6e 67 73 20 64 6f 0a ┆ 1) step 1 until longs do ┆
0x23020…23040 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 69 29 20 3a 3d 20 30 ┆ begin text(i) := 0┆
0x23040…23060 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 76 61 6c 69 6e 64 65 78 29 20 3d 20 36 20 ┆; if kind(valindex) = 6 ┆
0x23060…2307e 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 20 20 20 66 ┆then begin f┆
0x2307e…23084 (0x518,0x462)
0x23084…230a0 6f 72 20 6a 3a 3d 30 2c 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6b ┆or j:=0,1 do for k┆
0x230a0…230c0 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 ┆
0x230c0…230e0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 20 3a 3d 20 76 61 6c 28 ┆ begin char := val(┆
0x230e0…230fc 76 61 6c 69 6e 64 65 78 2b 6a 29 20 73 68 69 66 74 20 6b 20 65 78 74 72 61 63 74 20 ┆valindex+j) shift k extract ┆
0x230fc…23102 (0x518,0x463)
0x23102…23120 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 72 65 61 64 5f 63 68 61 72 73 3d 30 ┆8; if read_chars=0┆
0x23120…23140 20 61 6e 64 20 63 68 61 72 3d 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 72 65 61 ┆ and char=0 then rea┆
0x23140…23160 64 5f 63 68 61 72 73 20 3a 3d 20 28 69 2d 31 29 2a 36 20 2b 20 6a 2a 33 20 2b 20 28 6b 2b 31 36 ┆d_chars := (i-1)*6 + j*3 + (k+16┆
0x23160…2317a 29 2f 2f 38 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆)//8; end; ┆
0x2317a…23180 (0x518,0x464)
0x23180…231a0 20 20 20 20 20 74 65 78 74 28 69 29 20 3a 3d 20 65 78 74 65 6e 64 20 76 61 6c 28 76 61 6c 69 6e ┆ text(i) := extend val(valin┆
0x231a0…231c0 64 65 78 29 20 73 68 69 66 74 20 32 34 20 2b 20 76 61 6c 28 76 61 6c 69 6e 64 65 78 2b 31 29 3b ┆dex) shift 24 + val(valindex+1);┆
0x231c0…231e0 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 76 61 6c 69 6e 64 65 78 20 ┆ valindex := valindex ┆
0x231e0…23200 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆+ 2; end; ┆
0x23200…23206 (281,) (0x518,0x465)
0x23206…23220 65 6e 64 3b 0a 0a 20 20 20 20 20 20 6f 6b 20 3a 3d 20 72 65 61 64 5f 63 68 61 ┆end; ok := read_cha┆
0x23220…23240 72 73 3e 3d 31 20 61 6e 64 20 72 65 61 64 5f 63 68 61 72 73 3c 3d 63 68 61 72 73 3b 0a 20 20 20 ┆rs>=1 and read_chars<=chars; ┆
0x23240…23260 20 20 20 69 66 20 2d 2c 6f 6b 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ if -,ok then begin ┆
0x23260…2327e 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 73 74 61 72 74 69 6e 64 65 78 3b 0a 20 20 ┆ valindex := startindex; ┆
0x2327e…23284 (0x518,0x466)
0x23284…232a0 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 ┆ for i:=1 step 1 until ┆
0x232a0…232c0 6c 6f 6e 67 73 20 64 6f 20 74 65 78 74 28 69 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 ┆longs do text(i) := 0; end┆
0x232c0…232e0 3b 0a 20 20 20 20 20 20 72 65 61 64 5f 6e 61 6d 65 20 3a 3d 20 6f 6b 3b 0a 20 20 65 6e 64 20 72 ┆; read_name := ok; end r┆
0x232e0…232fc 65 61 64 5f 6e 61 6d 65 3b 0a 0a 0c 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 ┆ead_name; procedure read┆
0x232fc…23302 (0x518,0x467)
0x23302…23320 5f 70 61 72 61 6d 28 70 61 72 61 6d 6e 6f 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 70 61 72 ┆_param(paramno); integer par┆
0x23320…23340 61 6d 6e 6f 3b 0a 20 20 62 65 67 69 6e 0a 20 20 3c 2a 20 70 61 72 61 6d 6e 6f 20 20 28 72 65 74 ┆amno; begin <* paramno (ret┆
0x23340…23360 75 72 6e 29 20 20 2d 31 20 70 61 72 61 6d 65 74 65 72 20 6e 6f 74 20 72 65 61 64 0a 20 20 20 20 ┆urn) -1 parameter not read ┆
0x23360…2337a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 6e 6f 20 6f ┆ i no o┆
0x2337a…23380 (0x518,0x468)
0x23380…233a0 66 20 70 61 72 61 6d 65 74 65 72 20 72 65 61 64 2e 0a 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e ┆f parameter read. if paramn┆
0x233a0…233c0 6f 3d 2d 31 20 6f 6e 6c 79 20 64 65 6c 69 6d 69 74 65 72 73 20 68 61 73 20 62 65 65 6e 20 72 65 ┆o=-1 only delimiters has been re┆
0x233c0…233e0 61 64 2e 0a 20 20 2a 3e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 66 69 72 73 74 2c 20 6c ┆ad. *> integer i, first, l┆
0x233e0…23400 61 73 74 3b 0a 20 20 20 20 6c 6f 6e 67 20 74 65 78 74 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ast; long text; ┆
0x23400…23406 (282,) (0x518,0x469)
0x23406…23420 70 61 72 61 6d 6e 6f 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 73 6b 69 70 5f 64 65 ┆paramno := -1; skip_de┆
0x23420…23440 6c 69 6d 3b 0a 20 20 20 20 69 66 20 2d 2c 65 6d 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a ┆lim; if -,em then begin ┆
0x23440…23460 20 20 20 20 20 20 66 69 72 73 74 20 3a 3d 20 69 20 3a 3d 20 76 61 6c 69 6e 64 65 78 20 2d 31 3b ┆ first := i := valindex -1;┆
0x23460…2347e 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 69 2b 31 20 77 68 69 6c 65 20 6b 69 6e 64 28 69 ┆ for i:=i+1 while kind(i┆
0x2347e…23484 (0x518,0x46a)
0x23484…234a0 29 3d 36 20 64 6f 3b 0a 20 20 20 20 20 20 6c 61 73 74 20 3a 3d 20 69 2d 31 3b 0a 20 ┆)=6 do; last := i-1; ┆
0x234a0…234c0 20 20 20 20 20 69 66 20 6c 61 73 74 3e 66 69 72 73 74 20 61 6e 64 20 6c 61 73 74 2d 66 69 72 73 ┆ if last>first and last-firs┆
0x234c0…234e0 74 3c 3d 34 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 74 65 ┆t<=4 then begin te┆
0x234e0…234fc 78 74 20 3a 3d 20 65 78 74 65 6e 64 20 76 61 6c 28 66 69 72 73 74 2b 31 29 20 73 68 ┆xt := extend val(first+1) sh┆
0x234fc…23502 (0x518,0x46b)
0x23502…23520 69 66 74 20 32 34 20 2b 20 76 61 6c 28 66 69 72 73 74 2b 32 29 20 73 68 69 66 74 20 28 2d ┆ift 24 + val(first+2) shift (-┆
0x23520…23540 31 36 29 20 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 20 20 69 20 3a 3d 20 2d 31 3b 0a 20 ┆16) shift 16; i := -1; ┆
0x23540…23560 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 69 2b 31 20 77 68 69 6c 65 20 69 3c 32 32 20 61 6e 64 ┆ for i:=i+1 while i<22 and┆
0x23560…2357a 20 74 65 78 74 3c 3e 70 61 72 61 6d 28 69 29 20 64 6f 3b 0a 20 20 20 20 20 20 ┆ text<>param(i) do; ┆
0x2357a…23580 (0x518,0x46c)
0x23580…235a0 20 20 69 66 20 69 3c 32 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ if i<22 then begin ┆
0x235a0…235c0 20 20 20 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 6c 61 73 74 20 2b 20 31 3b 0a 20 20 20 ┆ valindex := last + 1; ┆
0x235c0…235e0 20 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 20 3a 3d 20 69 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ paramno := i; end┆
0x235e0…23600 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆; end; end; ┆
0x23600…23606 (283,) (0x518,0x46d)
0x23606…23620 65 6e 64 20 72 65 61 64 5f 70 61 72 61 6d 3b 0a 0a 0c 20 20 62 6f 6f 6c 65 61 ┆end read_param; boolea┆
0x23620…23640 6e 20 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 28 74 65 78 74 ┆n procedure read_quote_text(text┆
0x23640…23660 2c 20 63 68 61 72 73 29 3b 0a 20 20 76 61 6c 75 65 20 63 68 61 72 73 3b 0a 20 20 6c 6f 6e 67 20 ┆, chars); value chars; long ┆
0x23660…2367e 61 72 72 61 79 20 74 65 78 74 3b 0a 20 20 69 6e 74 65 67 65 72 20 63 68 61 72 73 3b 0a 20 ┆array text; integer chars; ┆
0x2367e…23684 (0x518,0x46e)
0x23684…236a0 20 62 65 67 69 6e 0a 20 20 20 20 3c 2a 20 72 65 61 64 73 20 73 74 72 69 6e 67 20 6f ┆ begin <* reads string o┆
0x236a0…236c0 66 20 63 68 61 72 61 63 74 65 72 73 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79 20 71 75 6f 74 65 ┆f characters surrounded by quote┆
0x236c0…236e0 73 20 69 6e 74 6f 20 74 65 78 74 2e 0a 20 20 20 20 20 20 20 72 65 61 64 5f 71 75 6f 74 65 5f 74 ┆s into text. read_quote_t┆
0x236e0…236fc 65 78 74 20 20 28 72 65 74 75 72 6e 29 20 20 74 72 75 65 20 74 65 78 74 20 69 73 20 ┆ext (return) true text is ┆
0x236fc…23702 (0x518,0x46f)
0x23702…23720 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆read ┆
0x23720…23740 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 20 20 20 20 ┆ false otherwise. ┆
0x23740…23760 20 74 65 78 74 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 74 75 72 6e 29 20 20 72 65 61 64 ┆ text (return) read┆
0x23760…2377a 5f 71 75 6f 74 65 5f 74 65 78 74 3d 66 61 6c 73 65 3a 20 6e 75 6c 6c 73 0a 20 ┆_quote_text=false: nulls ┆
0x2377a…23780 (0x518,0x470)
0x23780…237a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x237a0…237c0 20 65 6c 73 65 20 74 68 65 20 74 65 78 74 20 72 65 61 64 2e 0a 20 20 20 20 20 20 20 63 68 61 72 ┆ else the text read. char┆
0x237c0…237e0 73 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 29 20 20 20 20 6d 61 78 20 6e 6f 20 6f 66 ┆s (call) max no of┆
0x237e0…23800 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 65 78 74 2e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ characters in text. ┆
0x23800…23806 (284,) (0x518,0x471)
0x23806…23820 20 20 20 20 69 66 20 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 20 69 73 20 ┆ if read_quote_text is ┆
0x23820…23840 66 61 6c 73 65 20 61 20 6c 69 6e 65 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e 20 73 6b 69 70 70 ┆false a line may have been skipp┆
0x23840…23860 65 64 2e 0a 20 20 20 20 2a 3e 0a 20 20 20 20 62 6f 6f 6c 65 61 6e 20 6f 6b 2c 20 72 65 70 3b 0a ┆ed. *> boolean ok, rep; ┆
0x23860…2387e 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6a 2c 20 7a 65 72 6f 6e 6f 3b 0a 20 20 20 20 ┆ integer i, j, zerono; ┆
0x2387e…23884 (0x518,0x472)
0x23884…238a0 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 36 20 75 6e 74 69 6c 20 63 68 61 72 73 20 ┆for i:=1 step 6 until chars ┆
0x238a0…238c0 64 6f 20 74 65 78 74 28 69 2f 2f 36 2b 31 29 20 3a 3d 20 30 3b 0a 20 20 20 20 72 65 70 20 3a 3d ┆do text(i//6+1) := 0; rep :=┆
0x238c0…238e0 20 6f 6b 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 ┆ ok := true; for i:=1 while ┆
0x238e0…238fc 72 65 70 20 61 6e 64 20 6f 6b 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆rep and ok do begin ┆
0x238fc…23902 (0x518,0x473)
0x23902…23920 20 20 66 6f 72 20 6a 3a 3d 76 61 6c 69 6e 64 65 78 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆ for j:=valindex step 1 until┆
0x23920…23940 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ elem_in_val do begin ┆
0x23940…23960 20 20 20 20 69 66 20 6b 69 6e 64 28 6a 29 3c 37 20 74 68 65 6e 20 6f 6b 20 3a 3d 20 66 61 6c 73 ┆ if kind(j)<7 then ok := fals┆
0x23960…2397a 65 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 6a 29 3d ┆e else if kind(j)=┆
0x2397a…23980 (0x518,0x474)
0x23980…239a0 39 20 74 68 65 6e 20 65 72 72 6f 72 28 3c 3a 69 6c 6c 65 67 61 6c 20 63 68 61 72 3a 3e 2c 20 6e ┆9 then error(<:illegal char:>, n┆
0x239a0…239c0 6f 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6a 3d 65 6c 65 6d 5f 69 6e 5f 76 61 6c ┆o) else if j=elem_in_val┆
0x239c0…239e0 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 20 20 20 69 66 ┆ then begin if┆
0x239e0…23a00 20 76 61 6c 28 6a 29 3d 32 35 20 3c 2a 20 65 6d 20 2a 3e 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆ val(j)=25 <* em *> then ┆
0x23a00…23a06 (285,) (0x518,0x475)
0x23a06…23a20 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 ┆
0x23a20…23a40 20 20 20 65 6d 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d ┆ em := true; ok :=┆
0x23a40…23a60 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 ┆ false; end ┆
0x23a60…23a7e 65 6c 73 65 20 69 66 20 76 61 6c 28 6a 29 3d 33 34 20 74 68 65 6e 20 72 65 70 3a 3d 20 66 ┆else if val(j)=34 then rep:= f┆
0x23a7e…23a84 (0x518,0x476)
0x23a84…23aa0 61 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆alse else ┆
0x23aa0…23ac0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 64 5f 6c 69 6e 65 3b 0a 20 ┆ begin read_line; ┆
0x23ac0…23ae0 20 20 20 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 76 61 6c 69 6e 64 65 78 20 2d 20 31 3b 0a 20 20 ┆ j := valindex - 1; ┆
0x23ae0…23afc 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 ┆ end; end; ┆
0x23afc…23b02 (0x518,0x477)
0x23b02…23b20 20 20 20 20 65 6e 64 20 66 6f 72 20 6a 3b 0a 20 20 20 20 65 6e 64 20 66 6f 72 20 69 3b 0a ┆ end for j; end for i; ┆
0x23b20…23b40 0a 20 20 20 20 69 66 20 6f 6b 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ if ok then begin ┆
0x23b40…23b60 69 6e 74 61 62 6c 65 28 71 75 6f 74 65 5f 74 61 62 6c 65 29 3b 0a 20 20 20 20 20 20 72 65 61 64 ┆intable(quote_table); read┆
0x23b60…23b7a 5f 6c 69 6e 65 3b 0a 20 20 20 20 20 20 7a 65 72 6f 6e 6f 20 3a 3d 20 33 20 2d ┆_line; zerono := 3 -┆
0x23b7a…23b80 (0x518,0x478)
0x23b80…23ba0 20 63 68 61 72 73 20 6d 6f 64 20 33 3b 0a 20 20 20 20 20 20 69 66 20 76 61 6c 28 65 6c 65 6d 5f ┆ chars mod 3; if val(elem_┆
0x23ba0…23bc0 69 6e 5f 76 61 6c 29 3d 32 35 20 3c 2a 20 65 6d 20 2a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆in_val)=25 <* em *> then b┆
0x23bc0…23be0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 65 6d 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 ┆egin em := true; ┆
0x23be0…23c00 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 65 6e 64 0a 00 00 00 00 00 00 00 00 ┆ ok := false; end ┆
0x23c00…23c06 (286,) (0x518,0x479)
0x23c06…23c20 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3d ┆ else if elem_in_val=┆
0x23c20…23c40 31 20 61 6e 64 20 76 61 6c 28 31 29 3d 33 34 0a 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 ┆1 and val(1)=34 then ┆
0x23c40…23c60 3c 2a 20 65 6d 74 79 20 74 65 78 74 20 2a 3e 0a 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 65 6c ┆<* emty text *> else if el┆
0x23c60…23c7e 65 6d 5f 69 6e 5f 76 61 6c 3e 63 68 61 72 73 2f 2f 33 2b 32 20 74 68 65 6e 20 6f 6b 20 3a ┆em_in_val>chars//3+2 then ok :┆
0x23c7e…23c84 (0x518,0x47a)
0x23c84…23ca0 3d 20 66 61 6c 73 65 0a 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 65 6c 65 6d 5f 69 ┆= false else if elem_i┆
0x23ca0…23cc0 6e 5f 76 61 6c 3e 63 68 61 72 73 2f 2f 33 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n_val>chars//3 and ┆
0x23cc0…23ce0 20 76 61 6c 28 65 6c 65 6d 5f 69 6e 5f 76 61 6c 2d 31 29 20 73 68 69 66 74 20 28 28 33 2d 7a 65 ┆ val(elem_in_val-1) shift ((3-ze┆
0x23ce0…23cfc 72 6f 6e 6f 29 2a 38 29 20 3c 3e 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 74 68 65 ┆rono)*8) <> 0 the┆
0x23cfc…23d02 (0x518,0x47b)
0x23d02…23d20 6e 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆n ok := false else ┆
0x23d20…23d40 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 3c 2a 20 74 65 78 74 20 6f 6b 20 2a 3e 0a 20 20 20 ┆ begin <* text ok *> ┆
0x23d40…23d60 20 20 20 20 20 6a 20 3a 3d 20 69 66 20 7a 65 72 6f 6e 6f 3d 33 20 74 68 65 6e 20 65 6c 65 6d 5f ┆ j := if zerono=3 then elem_┆
0x23d60…23d7a 69 6e 5f 76 61 6c 20 2d 20 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆in_val - 2 ┆
0x23d7a…23d80 (0x518,0x47c)
0x23d80…23da0 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 20 2d 20 31 ┆ else elem_in_val - 1┆
0x23da0…23dc0 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 ┆; for i:=1 step 2 until ┆
0x23dc0…23de0 6a 20 64 6f 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 28 69 2b 31 29 2f 2f 32 29 20 3a 3d 20 65 ┆j do text((i+1)//2) := e┆
0x23de0…23e00 78 74 65 6e 64 20 76 61 6c 28 69 29 20 73 68 69 66 74 20 32 34 20 2b 20 00 00 00 00 00 00 00 00 ┆xtend val(i) shift 24 + ┆
0x23e00…23e06 (287,) (0x518,0x47d)
0x23e06…23e20 76 61 6c 28 69 2b 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆val(i+1); end; ┆
0x23e20…23e40 20 69 6e 74 61 62 6c 65 28 63 61 74 5f 74 61 62 6c 65 29 3b 0a 20 20 20 20 20 20 72 65 61 64 5f ┆ intable(cat_table); read_┆
0x23e40…23e60 6c 69 6e 65 3b 0a 20 20 20 20 65 6e 64 20 6f 6b 3b 0a 20 20 20 20 72 65 61 64 5f 71 75 6f 74 65 ┆line; end ok; read_quote┆
0x23e60…23e7e 5f 74 65 78 74 20 3a 3d 20 6f 6b 3b 0a 20 20 65 6e 64 20 72 65 61 64 5f 71 75 6f 74 65 5f ┆_text := ok; end read_quote_┆
0x23e7e…23e84 (0x518,0x47e)
0x23e84…23ea0 74 65 78 74 3b 0a 0c 20 20 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 5f 70 72 6f 63 ┆text; procedure init_proc┆
0x23ea0…23ec0 28 70 72 6f 63 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 70 72 6f 63 3b 0a 20 20 ┆(proc); integer array proc; ┆
0x23ec0…23ee0 62 65 67 69 6e 0a 20 20 20 20 3c 2a 20 69 6e 69 74 69 61 6c 69 7a 65 20 70 72 6f 63 20 77 69 74 ┆begin <* initialize proc wit┆
0x23ee0…23efc 68 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73 20 66 6f 72 20 70 72 6f 63 65 73 73 ┆h default values for process┆
0x23efc…23f02 (0x518,0x47f)
0x23f02…23f20 2d 64 65 73 63 72 69 62 74 69 6f 6e 20 2a 3e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b ┆-describtion *> integer i;┆
0x23f20…23f40 0a 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 70 72 6f 63 5f ┆ for i:=1 step 1 until proc_┆
0x23f40…23f60 70 61 5f 6c 67 74 20 64 6f 20 70 72 6f 63 28 69 29 20 3a 3d 20 30 3b 0a 20 20 20 20 70 72 6f 63 ┆pa_lgt do proc(i) := 0; proc┆
0x23f60…23f7a 2e 62 75 66 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 34 3b 0a 20 20 20 20 70 ┆.buf := false add 4; p┆
0x23f7a…23f80 (0x518,0x480)
0x23f80…23fa0 72 6f 63 2e 61 72 65 61 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 37 3b 0a 20 20 20 20 70 72 6f ┆roc.area := false add 7; pro┆
0x23fa0…23fc0 63 2e 6d 61 78 73 20 3a 3d 20 38 20 33 38 38 20 36 30 37 3b 0a 20 20 20 20 70 72 6f 63 2e 70 65 ┆c.maxs := 8 388 607; proc.pe┆
0x23fc0…23fe0 72 6d 31 2e 64 65 76 28 31 29 20 3a 3d 20 66 69 72 73 74 5f 62 73 5f 64 65 76 69 63 65 28 31 29 ┆rm1.dev(1) := first_bs_device(1)┆
0x23fe0…24000 3b 0a 20 20 20 20 70 72 6f 63 2e 70 65 72 6d 31 2e 64 65 76 28 32 29 20 00 00 00 00 00 00 00 00 ┆; proc.perm1.dev(2) ┆
0x24000…24006 (288,) (0x518,0x481)
0x24006…24020 3a 3d 20 66 69 72 73 74 5f 62 73 5f 64 65 76 69 63 65 28 32 29 3b 0a 20 20 20 ┆:= first_bs_device(2); ┆
0x24020…24040 20 70 72 6f 63 2e 70 65 72 6d 31 28 35 29 20 3a 3d 20 36 3b 20 20 20 3c 2a 20 65 6e 74 72 69 65 ┆ proc.perm1(5) := 6; <* entrie┆
0x24040…24060 73 20 6b 65 79 30 20 2a 3e 0a 20 20 65 6e 64 3b 0a 0c 20 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 ┆s key0 *> end; boolean proc┆
0x24060…2407e 65 64 75 72 65 20 72 65 61 64 5f 70 72 6f 63 28 70 72 6f 63 29 3b 0a 20 20 69 6e 74 65 67 ┆edure read_proc(proc); integ┆
0x2407e…24084 (0x518,0x482)
0x24084…240a0 65 72 20 61 72 72 61 79 20 70 72 6f 63 3b 0a 20 20 62 65 67 69 6e 0a 20 20 3c 2a 20 ┆er array proc; begin <* ┆
0x240a0…240c0 72 65 61 64 73 20 70 72 6f 63 65 73 73 2d 64 65 73 63 72 69 62 74 69 6f 6e 2e 0a 20 20 20 20 20 ┆reads process-describtion. ┆
0x240c0…240e0 72 65 61 64 5f 70 72 6f 63 20 20 20 28 72 65 74 75 72 6e 29 20 20 74 72 75 65 3a 20 20 70 61 72 ┆read_proc (return) true: par┆
0x240e0…240fc 61 6d 65 74 65 72 73 20 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ameters read ┆
0x240fc…24102 (0x518,0x483)
0x24102…24120 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 3a 20 65 72 72 6f 72 20 69 6e 20 70 61 ┆ false: error in pa┆
0x24120…24140 72 61 6d 65 74 65 72 73 2e 0a 20 20 20 20 20 70 72 6f 63 20 20 20 20 20 20 20 20 28 72 65 74 75 ┆rameters. proc (retu┆
0x24140…24160 72 6e 29 20 20 72 65 61 64 5f 70 72 6f 63 2d 66 61 6c 73 65 3a 20 75 6e 64 65 66 69 6e 65 64 0a ┆rn) read_proc-false: undefined ┆
0x24160…2417a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2417a…24180 (0x518,0x484)
0x24180…241a0 20 20 20 20 20 20 20 20 20 20 20 74 72 75 65 3a 20 20 74 68 65 20 64 61 74 61 20 72 65 61 64 2e ┆ true: the data read.┆
0x241a0…241c0 0a 20 20 20 20 20 61 74 20 72 65 74 75 72 6e 20 76 61 6c 69 6e 64 65 78 20 70 6f 69 6e 74 73 20 ┆ at return valindex points ┆
0x241c0…241e0 74 6f 20 6e 65 78 74 20 65 6c 65 6d 65 6e 74 20 6e 6f 74 20 62 65 65 69 6e 67 20 61 0a 20 20 20 ┆to next element not beeing a ┆
0x241e0…24200 20 20 70 72 6f 63 65 73 73 2d 70 61 72 61 6d 65 74 65 72 2e 0a 20 20 2a 00 00 00 00 00 00 00 00 ┆ process-parameter. * ┆
0x24200…24206 (289,) (0x518,0x485)
0x24206…24220 3e 0a 20 20 20 20 62 6f 6f 6c 65 61 6e 20 63 6f 6e 74 2c 20 6f 6b 2c 20 66 6f ┆> boolean cont, ok, fo┆
0x24220…24240 75 6e 64 2c 20 61 6c 6c 7a 65 72 6f 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6a 2c 20 ┆und, allzero; integer i, j, ┆
0x24240…24260 6b 2c 20 6e 6f 31 2c 20 6e 6f 32 2c 20 70 61 72 61 6d 6e 6f 2c 20 70 61 72 61 6d 5f 73 74 61 72 ┆k, no1, no2, paramno, param_star┆
0x24260…2427e 74 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6e 61 6d 65 28 31 3a 32 29 3b 0a 20 ┆t; long array name(1:2); ┆
0x2427e…24284 (0x518,0x486)
0x24284…242a0 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 73 65 67 6d 2c 20 65 6e 74 72 3b ┆ integer field segm, entr;┆
0x242a0…242c0 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 65 72 6d 3b 0a 0a ┆ integer array field perm; ┆
0x242c0…242e0 20 20 20 20 6f 6b 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 76 61 6c 69 6e ┆ ok := true; for i:=valin┆
0x242e0…242fc 64 65 78 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c ┆dex step 1 until elem_in_val┆
0x242fc…24302 (0x518,0x487)
0x24302…24320 20 64 6f 0a 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 69 29 3c 3d 36 20 74 68 65 6e 0a 20 ┆ do if kind(i)<=6 then ┆
0x24320…24340 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 70 61 72 61 6d 5f 73 74 61 72 74 20 3a ┆ begin param_start :┆
0x24340…24360 3d 20 76 61 6c 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 69 20 3a 3d 20 65 6c 65 6d 5f 69 6e ┆= valindex; i := elem_in┆
0x24360…2437a 5f 76 61 6c 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 ┆_val; end else┆
0x2437a…24380 (0x518,0x488)
0x24380…243a0 20 70 61 72 61 6d 5f 73 74 61 72 74 20 3a 3d 20 31 3b 0a 20 20 20 20 72 65 61 64 5f 70 61 72 61 ┆ param_start := 1; read_para┆
0x243a0…243c0 6d 28 70 61 72 61 6d 6e 6f 29 3b 0a 20 20 20 20 63 6f 6e 74 20 3a 3d 20 2d 2c 65 6d 20 61 6e 64 ┆m(paramno); cont := -,em and┆
0x243c0…243e0 20 70 61 72 61 6d 6e 6f 3c 3e 30 3b 0a 20 20 20 20 69 66 20 2d 2c 63 6f 6e 74 20 74 68 65 6e 20 ┆ paramno<>0; if -,cont then ┆
0x243e0…24400 76 61 6c 69 6e 64 65 78 20 3a 3d 20 70 61 72 61 6d 5f 73 74 61 72 74 3b 00 00 00 00 00 00 00 00 ┆valindex := param_start; ┆
0x24400…24406 (290,) (0x518,0x489)
0x24406…24420 0a 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 63 6f 6e 74 20 ┆ for i:=1 while cont ┆
0x24420…24440 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e 6f 3c 3d 67 ┆do begin if paramno<=g┆
0x24440…24460 72 65 61 74 5f 74 72 6e 6f 20 6f 72 20 70 61 72 61 6d 6e 6f 3e 3d 70 61 5f 64 74 65 72 6d 20 74 ┆reat_trno or paramno>=pa_dterm t┆
0x24460…2447e 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 20 3a ┆hen begin cont :┆
0x2447e…24484 (0x518,0x48a)
0x24484…244a0 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d ┆= false; valindex :=┆
0x244a0…244c0 20 70 61 72 61 6d 5f 73 74 61 72 74 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c ┆ param_start; end el┆
0x244c0…244e0 73 65 0a 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 63 61 73 65 20 28 70 61 72 61 6d 6e ┆se begin case (paramn┆
0x244e0…244fc 6f 2d 67 72 65 61 74 5f 74 72 6e 6f 29 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e ┆o-great_trno) of begin┆
0x244fc…24502 (0x518,0x48b)
0x24502…24520 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 62 75 66 20 2a 3e 0a 20 20 20 20 20 ┆ begin <* buf *> ┆
0x24520…24540 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 31 29 20 6f 72 20 6e 6f 31 3c 3d 30 ┆ if -,read_no(no1) or no1<=0┆
0x24540…24560 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 20 20 20 20 ┆ then begin ┆
0x24560…2457a 20 20 65 72 72 6f 72 28 3c 3a 62 75 66 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 ┆ error(<:buf:>, pa); ┆
0x2457a…24580 (0x518,0x48c)
0x24580…245a0 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆ ok := false; e┆
0x245a0…245c0 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 70 72 6f 63 2e 62 75 66 20 3a 3d 20 66 61 ┆nd else proc.buf := fa┆
0x245c0…245e0 6c 73 65 20 61 64 64 20 6e 6f 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 ┆lse add no1; end; ┆
0x245e0…24600 20 20 20 62 65 67 69 6e 20 3c 2a 20 61 72 65 61 20 2a 3e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin <* area *> ┆
0x24600…24606 (291,) (0x518,0x48d)
0x24606…24620 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 31 29 20 6f 72 ┆ if -,read_no(no1) or┆
0x24620…24640 20 6e 6f 31 3c 3d 30 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 ┆ no1<=0 then begin ┆
0x24640…24660 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 61 72 65 61 3a 3e 2c 20 70 61 29 3b 0a 20 20 ┆ error(<:area:>, pa); ┆
0x24660…2467e 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 ┆ ok := false; ┆
0x2467e…24684 (0x518,0x48e)
0x24684…246a0 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 70 72 6f 63 2e 61 ┆ end else proc.a┆
0x246a0…246c0 72 65 61 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 6e 6f 31 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆rea := false add no1; en┆
0x246c0…246e0 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 73 74 64 62 61 73 65 20 2a 3e 0a ┆d; begin <* stdbase *> ┆
0x246e0…246fc 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 31 29 20 ┆ if -,read_no(no1) ┆
0x246fc…24702 (0x518,0x48f)
0x24702…24720 6f 72 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 32 29 20 6f 72 20 6e 6f 31 3e 6e 6f 32 20 74 ┆or -,read_no(no2) or no1>no2 t┆
0x24720…24740 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 20 20 20 20 20 20 ┆hen begin ┆
0x24740…24760 65 72 72 6f 72 28 3c 3a 73 74 64 62 61 73 65 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 ┆error(<:stdbase:>, pa); ┆
0x24760…2477a 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ ok := false; ┆
0x2477a…24780 (0x518,0x490)
0x24780…247a0 20 65 6e 64 0a 20 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 ┆ end else be┆
0x247a0…247c0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 73 74 64 31 20 3a 3d 20 6e 6f 31 ┆gin proc.std1 := no1┆
0x247c0…247e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 73 74 64 32 20 3a 3d 20 6e 6f 32 3b 0a ┆; proc.std2 := no2; ┆
0x247e0…24800 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆ end; e ┆
0x24800…24806 (292,) (0x518,0x491)
0x24806…24820 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 75 73 65 72 ┆nd; begin <* user┆
0x24820…24840 62 61 73 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e ┆base *> if -,read_no(n┆
0x24840…24860 6f 31 29 20 6f 72 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 32 29 20 6f 72 20 6e 6f 31 3e 6e 6f 32 ┆o1) or -,read_no(no2) or no1>no2┆
0x24860…2487e 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 20 20 ┆ then begin ┆
0x2487e…24884 (0x518,0x492)
0x24884…248a0 20 20 20 20 65 72 72 6f 72 28 3c 3a 75 73 65 72 62 61 73 65 3a 3e 2c 20 70 61 29 3b ┆ error(<:userbase:>, pa);┆
0x248a0…248c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 ┆ ok := false; ┆
0x248c0…248e0 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x248e0…248fc 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 75 73 65 31 ┆ begin proc.use1┆
0x248fc…24902 (0x518,0x493)
0x24902…24920 20 3a 3d 20 6e 6f 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 75 73 65 32 ┆ := no1; proc.use2┆
0x24920…24940 20 3a 3d 20 6e 6f 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 ┆ := no2; end; ┆
0x24940…24960 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 6d 61 78 62 61 73 65 20 2a ┆end; begin <* maxbase *┆
0x24960…2497a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e ┆> if -,read_no(n┆
0x2497a…24980 (0x518,0x494)
0x24980…249a0 6f 31 29 20 6f 72 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 32 29 20 6f 72 20 6e 6f 31 3e 6e 6f 32 ┆o1) or -,read_no(no2) or no1>no2┆
0x249a0…249c0 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 20 20 20 20 ┆ then begin ┆
0x249c0…249e0 20 20 65 72 72 6f 72 28 3c 3a 6d 61 78 62 61 73 65 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 ┆ error(<:maxbase:>, pa); ┆
0x249e0…24a00 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ok := false; ┆
0x24a00…24a06 (293,) (0x518,0x495)
0x24a06…24a20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆ end else ┆
0x24a20…24a40 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 70 72 6f 63 2e 6d ┆ begin proc.m┆
0x24a40…24a60 61 78 31 20 3a 3d 20 6e 6f 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 6d 61 78 ┆ax1 := no1; proc.max┆
0x24a60…24a7e 32 20 3a 3d 20 6e 6f 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆2 := no2; end; ┆
0x24a7e…24a84 (0x518,0x496)
0x24a84…24aa0 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 70 61 ┆ end; begin <* pa┆
0x24aa0…24ac0 73 73 77 6f 72 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 ┆ssword *> if -,read_qu┆
0x24ac0…24ae0 6f 74 65 5f 74 65 78 74 28 70 72 6f 63 2e 70 61 73 73 2c 20 31 31 29 20 74 68 65 6e 0a 20 20 20 ┆ote_text(proc.pass, 11) then ┆
0x24ae0…24afc 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 65 72 72 ┆ begin err┆
0x24afc…24b02 (0x518,0x497)
0x24b02…24b20 6f 72 28 3c 3a 70 61 73 73 77 6f 72 64 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 ┆or(<:password:>, pa); ┆
0x24b20…24b40 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ ok := false; end; ┆
0x24b40…24b60 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 6d ┆ end; begin <* m┆
0x24b60…24b7a 69 6e 73 69 7a 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 ┆insize *> if -,r┆
0x24b7a…24b80 (0x518,0x498)
0x24b80…24ba0 65 61 64 5f 6e 6f 28 70 72 6f 63 2e 6d 69 6e 73 29 20 6f 72 20 70 72 6f 63 2e 6d 69 6e 73 3c 30 ┆ead_no(proc.mins) or proc.mins<0┆
0x24ba0…24bc0 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 20 20 20 20 ┆ then begin ┆
0x24bc0…24be0 20 20 65 72 72 6f 72 28 3c 3a 6d 69 6e 73 69 7a 65 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 ┆ error(<:minsize:>, pa); ┆
0x24be0…24c00 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ok := false; ┆
0x24c00…24c06 (294,) (0x518,0x499)
0x24c06…24c20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆ end; end; ┆
0x24c20…24c40 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 6d 61 78 73 69 7a 65 20 2a 3e 0a 20 20 20 20 20 20 ┆ begin <* maxsize *> ┆
0x24c40…24c60 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 70 72 6f 63 2e 6d 61 78 73 29 20 6f 72 20 70 ┆ if -,read_no(proc.maxs) or p┆
0x24c60…24c7e 72 6f 63 2e 6d 61 78 73 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆roc.maxs<0 then begi┆
0x24c7e…24c84 (0x518,0x49a)
0x24c84…24ca0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 6d 61 78 73 69 7a ┆n error(<:maxsiz┆
0x24ca0…24cc0 65 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 ┆e:>, pa); ok := fals┆
0x24cc0…24ce0 65 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 65 6e 64 3b 0a 0a ┆e; end; end; ┆
0x24ce0…24cfc 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 66 70 20 2a 3e 0a 20 20 20 20 20 ┆ begin <* fp *> ┆
0x24cfc…24d02 (0x518,0x49b)
0x24d02…24d20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 28 70 72 6f 63 ┆ if -,read_quote_text(proc┆
0x24d20…24d40 2e 66 70 2c 20 35 39 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆.fp, 59) then begin ┆
0x24d40…24d60 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 66 70 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 ┆ error(<:fp:>, pa); ┆
0x24d60…24d7a 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 ┆ ok := false; ┆
0x24d7a…24d80 (0x518,0x49c)
0x24d80…24da0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 ┆ end; end; ┆
0x24da0…24dc0 20 62 65 67 69 6e 20 3c 2a 20 70 65 72 6d 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 2d ┆ begin <* perm *> if -┆
0x24dc0…24de0 2c 72 65 61 64 5f 6e 61 6d 65 28 6e 61 6d 65 2c 20 31 31 29 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆,read_name(name, 11) then ┆
0x24de0…24e00 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72 00 00 00 00 00 00 00 00 ┆ begin er ┆
0x24e00…24e06 (295,) (0x518,0x49d)
0x24e06…24e20 72 6f 72 28 3c 3a 64 65 76 69 63 65 20 6e 61 6d 65 3a 3e 2c 20 70 61 29 3b 0a ┆ror(<:device name:>, pa); ┆
0x24e20…24e40 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 ┆ ok := false; ┆
0x24e40…24e60 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x24e60…24e7e 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 75 6e 64 20 3a 3d 20 66 61 6c ┆begin found := fal┆
0x24e7e…24e84 (0x518,0x49e)
0x24e84…24ea0 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 30 3b 0a 20 20 20 20 ┆se; i := 0; ┆
0x24ea0…24ec0 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 69 2b 31 20 77 68 69 6c 65 20 2d 2c 66 6f 75 6e 64 ┆ for i:=i+1 while -,found┆
0x24ec0…24ee0 20 61 6e 64 20 69 3c 3d 6e 6f 5f 6f 66 5f 62 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ and i<=no_of_bs do ┆
0x24ee0…24efc 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 20 3a 3d 20 ┆begin perm := ┆
0x24efc…24f02 (0x518,0x49f)
0x24f02…24f20 70 65 72 6d 31 20 2b 20 28 69 2d 31 29 2a 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆perm1 + (i-1)*24; ┆
0x24f20…24f40 20 20 69 66 20 70 72 6f 63 2e 70 65 72 6d 2e 64 65 76 28 31 29 3d 30 20 61 6e 64 20 70 72 6f 63 ┆ if proc.perm.dev(1)=0 and proc┆
0x24f40…24f60 2e 70 65 72 6d 2e 64 65 76 28 32 29 3d 30 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.perm.dev(2)=0 or ┆
0x24f60…24f7a 20 20 20 70 72 6f 63 2e 70 65 72 6d 2e 64 65 76 28 31 29 3d 6e 61 6d 65 28 31 ┆ proc.perm.dev(1)=name(1┆
0x24f7a…24f80 (0x518,0x4a0)
0x24f80…24fa0 29 20 61 6e 64 20 70 72 6f 63 2e 70 65 72 6d 2e 64 65 76 28 32 29 3d 6e 61 6d 65 28 32 29 20 74 ┆) and proc.perm.dev(2)=name(2) t┆
0x24fa0…24fc0 68 65 6e 0a 20 20 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 ┆hen begin ┆
0x24fc0…24fe0 20 20 20 20 20 20 20 20 3c 2a 20 72 65 61 64 20 65 6e 74 72 69 65 73 20 61 6e 64 20 73 65 67 6d ┆ <* read entries and segm┆
0x24fe0…25000 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 00 00 00 00 00 00 00 00 ┆s *> pro ┆
0x25000…25006 (296,) (0x518,0x4a1)
0x25006…25020 63 2e 70 65 72 6d 2e 64 65 76 28 31 29 20 3a 3d 20 6e 61 6d 65 28 31 29 3b 0a ┆c.perm.dev(1) := name(1); ┆
0x25020…25040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 70 65 72 6d 2e 64 65 76 28 32 29 20 ┆ proc.perm.dev(2) ┆
0x25040…25060 3a 3d 20 6e 61 6d 65 28 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 75 6e ┆:= name(2); foun┆
0x25060…2507e 64 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 ┆d := true; for┆
0x2507e…25084 (0x518,0x4a2)
0x25084…250a0 20 6a 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 0a 20 20 20 20 ┆ j:=0 step 1 until 3 do ┆
0x250a0…250c0 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 20 20 20 20 20 20 ┆ begin ┆
0x250c0…250e0 20 20 20 20 66 6f 72 20 6b 3a 3d 20 76 61 6c 69 6e 64 65 78 20 73 74 65 70 20 31 20 75 6e 74 69 ┆ for k:= valindex step 1 unti┆
0x250e0…250fc 6c 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 ┆l elem_in_val do ┆
0x250fc…25102 (0x518,0x4a3)
0x25102…25120 20 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 6b 29 3c 3d 36 20 74 68 65 6e 0a 20 20 ┆ if kind(k)<=6 then ┆
0x25120…25140 20 20 20 20 20 20 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 ┆ begin ┆
0x25140…25160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 5f 73 74 61 72 74 20 3a 3d 20 76 61 6c ┆ param_start := val┆
0x25160…2517a 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆index; ┆
0x2517a…25180 (0x518,0x4a4)
0x25180…251a0 20 20 20 6b 20 3a 3d 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ k := elem_in_val; ┆
0x251a0…251c0 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end ┆
0x251c0…251e0 20 65 6c 73 65 20 70 61 72 61 6d 5f 73 74 61 72 74 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 ┆ else param_start := 1; ┆
0x251e0…25200 20 20 20 20 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 70 61 72 00 00 00 00 00 00 00 00 ┆ read_param(par ┆
0x25200…25206 (297,) (0x518,0x4a5)
0x25206…25220 61 6d 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆amno); i┆
0x25220…25240 66 20 70 61 72 61 6d 6e 6f 3c 31 36 20 6f 72 20 70 61 72 61 6d 6e 6f 3e 31 39 20 74 68 65 6e 0a ┆f paramno<16 or paramno>19 then ┆
0x25240…25260 20 20 20 20 20 20 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 ┆ begin ┆
0x25260…2527e 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 73 3a 3e 2c 20 6e 6f 29 3b ┆ error(<:bs:>, no);┆
0x2527e…25284 (0x518,0x4a6)
0x25284…252a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 69 6e 64 65 ┆ valinde┆
0x252a0…252c0 78 20 3a 3d 20 70 61 72 61 6d 5f 73 74 61 72 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆x := param_start; ┆
0x252c0…252e0 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ok := false; ┆
0x252e0…252fc 20 20 20 20 20 20 20 6a 20 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ j := 4; ┆
0x252fc…25302 (0x518,0x4a7)
0x25302…25320 20 20 20 20 20 20 20 69 20 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ i := 5; ┆
0x25320…25340 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆ end else ┆
0x25340…25360 20 20 20 20 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 20 20 ┆ begin ┆
0x25360…2537a 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 20 3a 3d 20 6b 30 65 20 2b 20 28 70 ┆ entr := k0e + (p┆
0x2537a…25380 (0x518,0x4a8)
0x25380…253a0 61 72 61 6d 6e 6f 2d 31 36 29 2a 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆aramno-16)*4; ┆
0x253a0…253c0 20 20 73 65 67 6d 20 3a 3d 20 65 6e 74 72 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ segm := entr + 2; ┆
0x253c0…253e0 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 31 29 20 6f 72 20 2d 2c 72 ┆ if -,read_no(no1) or -,r┆
0x253e0…25400 65 61 64 5f 6e 6f 28 6e 6f 32 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ead_no(no2) then ┆
0x25400…25406 (298,) (0x518,0x4a9)
0x25406…25420 20 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 ┆ begin ┆
0x25420…25440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 73 3a 3e 2c 20 70 61 29 ┆ error(<:bs:>, pa)┆
0x25440…25460 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 ┆; ok := fa┆
0x25460…2547e 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆lse; end ┆
0x2547e…25484 (0x518,0x4aa)
0x25484…254a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆ else ┆
0x254a0…254c0 20 20 20 20 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 20 20 ┆ begin ┆
0x254c0…254e0 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 70 65 72 6d 2e 65 6e 74 72 20 3a 3d 20 6e 6f ┆ proc.perm.entr := no┆
0x254e0…254fc 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f ┆1; pro┆
0x254fc…25502 (0x518,0x4ab)
0x25502…25520 63 2e 70 65 72 6d 2e 73 65 67 6d 20 3a 3d 20 6e 6f 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆c.perm.segm := no2; ┆
0x25520…25540 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 20 20 20 20 20 ┆ end; ┆
0x25540…25560 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 66 6f 72 20 6a 3b ┆ end; end for j;┆
0x25560…2557a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 69 66 20 61 6c 6c ┆ <* if all┆
0x2557a…25580 (0x518,0x4ac)
0x25580…255a0 20 65 6e 74 72 20 61 6e 64 20 73 65 67 6d 20 61 72 65 61 20 7a 65 72 6f 20 64 65 76 69 63 65 2d ┆ entr and segm area zero device-┆
0x255a0…255c0 6e 61 6d 65 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 65 74 ┆name is delet┆
0x255c0…255e0 65 64 2c 20 65 78 63 65 70 74 20 66 6f 72 20 66 69 72 73 74 20 62 73 20 64 65 76 69 63 65 20 2a ┆ed, except for first bs device *┆
0x255e0…25600 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 28 31 00 00 00 00 00 00 00 00 ┆> name(1 ┆
0x25600…25606 (299,) (0x518,0x4ad)
0x25606…25620 29 20 3a 3d 20 66 69 72 73 74 5f 62 73 5f 64 65 76 69 63 65 28 31 29 3b 0a 20 ┆) := first_bs_device(1); ┆
0x25620…25640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 28 32 29 20 3a 3d 20 66 69 72 73 74 5f ┆ name(2) := first_┆
0x25640…25660 62 73 5f 64 65 76 69 63 65 28 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f ┆bs_device(2); fo┆
0x25660…2567e 72 20 6a 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f 62 73 20 64 ┆r j:=2 step 1 until no_of_bs d┆
0x2567e…25684 (0x518,0x4ae)
0x25684…256a0 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆o begin ┆
0x256a0…256c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 20 3a 3d 20 70 65 72 6d 31 20 2b 20 28 6a ┆ perm := perm1 + (j┆
0x256c0…256e0 2d 31 29 2a 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 7a 65 72 ┆-1)*24; allzer┆
0x256e0…256fc 6f 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o := true; ┆
0x256fc…25702 (0x518,0x4af)
0x25702…25720 20 66 6f 72 20 6b 20 3a 3d 20 35 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 32 20 64 6f ┆ for k := 5 step 1 until 12 do┆
0x25720…25740 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 2e 70 65 72 ┆ if proc.per┆
0x25740…25760 6d 28 6b 29 3e 30 20 74 68 65 6e 20 61 6c 6c 7a 65 72 6f 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 ┆m(k)>0 then allzero := false; ┆
0x25760…2577a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 6c 6c 7a 65 72 6f ┆ if allzero┆
0x2577a…25780 (0x518,0x4b0)
0x25780…257a0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 70 ┆ then proc.p┆
0x257a0…257c0 65 72 6d 2e 64 65 76 28 31 29 20 3a 3d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆erm.dev(1) := ┆
0x257c0…257e0 20 20 70 72 6f 63 2e 70 65 72 6d 2e 64 65 76 28 32 29 20 3a 3d 20 6c 6f 6e 67 20 3c 3a 3a 3e 3b ┆ proc.perm.dev(2) := long <::>;┆
0x257e0…25800 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x25800…25806 (300,) (0x518,0x4b1)
0x25806…25820 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 66 6f 75 6e 64 3b 0a 20 20 20 ┆ end found; ┆
0x25820…25840 20 20 20 20 20 20 20 20 20 65 6e 64 20 66 6f 72 20 69 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end for i; ┆
0x25840…25860 20 69 66 20 2d 2c 66 6f 75 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ if -,found then beg┆
0x25860…2587e 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 73 20 66 75 ┆in error(<:bs fu┆
0x2587e…25884 (0x518,0x4b2)
0x25884…258a0 6c 6c 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 20 ┆ll:>, pa); ok ┆
0x258a0…258c0 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆:= false; end; ┆
0x258c0…258e0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 70 65 72 6d 3b 0a 0a 20 20 20 ┆ end; end perm; ┆
0x258e0…258fc 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 6b 65 79 30 20 2a 3e 0a 20 20 20 20 20 20 ┆ begin <* key0 *> ┆
0x258fc…25902 (0x518,0x4b3)
0x25902…25920 20 20 20 20 3c 2a 20 6b 65 79 30 20 69 73 20 72 65 61 64 20 69 6e 20 70 65 72 6d 20 2d 20 ┆ <* key0 is read in perm - ┆
0x25920…25940 65 72 72 6f 72 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 73 3a 3e 2c ┆error *> error(<:bs:>,┆
0x25940…25960 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 ┆ pa); ok := false; ┆
0x25960…2597a 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c ┆ end; begin <┆
0x2597a…25980 (0x518,0x4b4)
0x25980…259a0 2a 20 6b 65 79 31 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 2a 20 6b 65 79 31 20 69 73 20 72 ┆* key1 *> <* key1 is r┆
0x259a0…259c0 65 61 64 20 69 6e 20 70 65 72 6d 20 2d 20 65 72 72 6f 72 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 ┆ead in perm - error *> ┆
0x259c0…259e0 20 65 72 72 6f 72 28 3c 3a 62 73 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 6b ┆ error(<:bs:>, pa); ok┆
0x259e0…25a00 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 00 00 00 00 00 00 00 00 ┆ := false; end; ┆
0x25a00…25a06 (301,) (0x518,0x4b5)
0x25a06…25a20 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 6b 65 79 32 20 2a 3e 0a ┆ begin <* key2 *> ┆
0x25a20…25a40 20 20 20 20 20 20 20 20 20 20 3c 2a 20 6b 65 79 32 20 69 73 20 72 65 61 64 20 69 6e 20 70 65 72 ┆ <* key2 is read in per┆
0x25a40…25a60 6d 20 2d 20 65 72 72 6f 72 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 ┆m - error *> error(<:b┆
0x25a60…25a7e 73 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 ┆s:>, pa); ok := fals┆
0x25a7e…25a84 (0x518,0x4b6)
0x25a84…25aa0 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 ┆e; end; beg┆
0x25aa0…25ac0 69 6e 20 3c 2a 20 6b 65 79 33 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 2a 20 6b 65 79 33 20 ┆in <* key3 *> <* key3 ┆
0x25ac0…25ae0 69 73 20 72 65 61 64 20 69 6e 20 70 65 72 6d 20 2d 20 65 72 72 6f 72 20 2a 3e 0a 20 20 20 20 20 ┆is read in perm - error *> ┆
0x25ae0…25afc 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 73 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 ┆ error(<:bs:>, pa); ┆
0x25afc…25b02 (0x518,0x4b7)
0x25b02…25b20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ ok := false; end┆
0x25b20…25b40 3b 0a 20 20 20 20 20 20 65 6e 64 20 63 61 73 65 3b 0a 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d ┆; end case; for i:=┆
0x25b40…25b60 76 61 6c 69 6e 64 65 78 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 65 6c 65 6d 5f 69 6e 5f 76 61 ┆valindex step 1 until elem_in_va┆
0x25b60…25b7a 6c 20 64 6f 0a 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 69 29 3c 3d 36 ┆l do if kind(i)<=6┆
0x25b7a…25b80 (0x518,0x4b8)
0x25b80…25ba0 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 20 20 20 70 61 ┆ then begin pa┆
0x25ba0…25bc0 72 61 6d 5f 73 74 61 72 74 20 3a 3d 20 76 61 6c 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 20 ┆ram_start := valindex; ┆
0x25bc0…25be0 20 69 20 3a 3d 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆ i := elem_in_val; end ┆
0x25be0…25c00 20 20 20 20 20 20 20 65 6c 73 65 20 70 61 72 61 6d 5f 73 74 61 72 74 20 00 00 00 00 00 00 00 00 ┆ else param_start ┆
0x25c00…25c06 (302,) (0x518,0x4b9)
0x25c06…25c20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 70 61 72 ┆:= 1; read_param(par┆
0x25c20…25c40 61 6d 6e 6f 29 3b 0a 20 20 20 20 20 65 6e 64 20 70 72 6f 63 5f 70 61 72 61 6d 3b 0a 20 20 20 20 ┆amno); end proc_param; ┆
0x25c40…25c60 65 6e 64 20 66 6f 72 20 63 6f 6e 74 3b 0a 20 20 20 20 3c 2a 20 65 6e 74 72 69 65 73 20 69 73 20 ┆end for cont; <* entries is ┆
0x25c60…25c7e 73 75 6d 6d 65 64 20 74 6f 20 64 69 73 63 2d 65 6e 74 72 69 65 73 20 2a 3e 0a 20 20 20 20 ┆summed to disc-entries *> ┆
0x25c7e…25c84 (0x518,0x4ba)
0x25c84…25ca0 6e 6f 31 20 3a 3d 20 6e 6f 32 20 3a 3d 20 30 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d ┆no1 := no2 := 0; for i:=┆
0x25ca0…25cc0 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f 62 73 20 64 6f 0a 20 20 20 20 62 ┆2 step 1 until no_of_bs do b┆
0x25cc0…25ce0 65 67 69 6e 0a 20 20 20 20 20 20 70 65 72 6d 20 3a 3d 20 70 65 72 6d 31 20 2b 20 28 69 2d 31 29 ┆egin perm := perm1 + (i-1)┆
0x25ce0…25cfc 2a 32 34 3b 0a 20 20 20 20 20 20 6e 6f 31 20 3a 3d 20 6e 6f 31 20 2b 20 70 72 6f 63 ┆*24; no1 := no1 + proc┆
0x25cfc…25d02 (0x518,0x4bb)
0x25d02…25d20 2e 70 65 72 6d 28 35 29 3b 0a 20 20 20 20 20 20 6e 6f 32 20 3a 3d 20 6e 6f 32 20 2b 20 70 ┆.perm(5); no2 := no2 + p┆
0x25d20…25d40 72 6f 63 2e 70 65 72 6d 28 37 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 70 72 6f 63 2e 70 ┆roc.perm(7); end; proc.p┆
0x25d40…25d60 65 72 6d 31 28 35 29 20 3a 3d 20 70 72 6f 63 2e 70 65 72 6d 31 28 35 29 20 2b 20 6e 6f 31 3b 0a ┆erm1(5) := proc.perm1(5) + no1; ┆
0x25d60…25d7a 20 20 20 20 70 72 6f 63 2e 70 65 72 6d 31 28 37 29 20 3a 3d 20 70 72 6f 63 2e ┆ proc.perm1(7) := proc.┆
0x25d7a…25d80 (0x518,0x4bc)
0x25d80…25da0 70 65 72 6d 31 28 37 29 20 2b 20 6e 6f 32 3b 0a 20 20 20 20 72 65 61 64 5f 70 72 6f 63 20 3a 3d ┆perm1(7) + no2; read_proc :=┆
0x25da0…25dc0 20 6f 6b 3b 0a 20 20 65 6e 64 20 72 65 61 64 5f 70 72 6f 63 3b 0a 0a 0c 20 20 62 6f 6f 6c 65 61 ┆ ok; end read_proc; boolea┆
0x25dc0…25de0 6e 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 5f 70 72 6f 63 28 70 72 6f 63 29 3b 0a 20 20 ┆n procedure check_proc(proc); ┆
0x25de0…25e00 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 70 72 6f 63 3b 0a 20 20 62 65 00 00 00 00 00 00 00 00 ┆integer array proc; be ┆
0x25e00…25e06 (303,) (0x518,0x4bd)
0x25e06…25e20 67 69 6e 0a 20 20 20 20 3c 2a 20 63 68 65 63 6b 73 20 74 68 61 74 20 61 6c 6c ┆gin <* checks that all┆
0x25e20…25e40 20 70 72 6f 63 65 73 73 2d 64 61 74 61 20 68 61 73 20 61 20 70 72 6f 70 65 72 20 76 61 6c 75 65 ┆ process-data has a proper value┆
0x25e40…25e60 2e 0a 20 20 20 20 20 20 20 63 68 65 63 6b 5f 70 72 6f 63 20 20 28 72 65 74 75 72 6e 29 20 20 74 ┆. check_proc (return) t┆
0x25e60…25e7e 72 75 65 20 64 61 74 61 20 69 73 20 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rue data is ok ┆
0x25e7e…25e84 (0x518,0x4be)
0x25e84…25ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 ┆ false otherwis┆
0x25ea0…25ec0 65 2e 0a 20 20 20 20 20 20 20 70 72 6f 63 20 20 20 20 20 20 20 28 63 61 6c 6c 29 20 20 20 20 61 ┆e. proc (call) a┆
0x25ec0…25ee0 72 72 61 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 70 72 6f 63 65 73 73 2d 64 61 74 61 2e 0a 20 20 ┆rray containing process-data. ┆
0x25ee0…25efc 20 20 20 20 20 76 61 6c 69 6e 64 65 78 20 69 73 20 75 6e 63 68 61 6e 67 65 64 2e 0a ┆ valindex is unchanged. ┆
0x25efc…25f02 (0x518,0x4bf)
0x25f02…25f20 20 20 20 20 2a 3e 0a 20 20 20 20 62 6f 6f 6c 65 61 6e 20 6f 6b 3b 0a 20 20 20 20 69 6e 74 ┆ *> boolean ok; int┆
0x25f20…25f40 65 67 65 72 20 69 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 73 65 67 6d 30 2c ┆eger i; integer field segm0,┆
0x25f40…25f60 20 73 65 67 6d 31 2c 20 73 65 67 6d 32 2c 20 73 65 67 6d 33 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ segm1, segm2, segm3, ┆
0x25f60…25f7a 20 20 20 20 20 20 20 20 65 6e 74 72 30 2c 20 65 6e 74 72 31 2c 20 65 6e 74 72 ┆ entr0, entr1, entr┆
0x25f7a…25f80 (0x518,0x4c0)
0x25f80…25fa0 32 2c 20 65 6e 74 72 33 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 62 ┆2, entr3; long array field b┆
0x25fa0…25fc0 61 73 65 3b 0a 20 20 20 20 65 6e 74 72 30 20 3a 3d 20 6b 30 65 3b 20 20 65 6e 74 72 31 20 3a 3d ┆ase; entr0 := k0e; entr1 :=┆
0x25fc0…25fe0 20 65 6e 74 72 30 20 2b 20 34 3b 0a 20 20 20 20 65 6e 74 72 32 20 3a 3d 20 65 6e 74 72 31 20 2b ┆ entr0 + 4; entr2 := entr1 +┆
0x25fe0…26000 20 34 3b 20 20 65 6e 74 72 33 20 3a 3d 20 65 6e 74 72 32 20 2b 20 34 3b 00 00 00 00 00 00 00 00 ┆ 4; entr3 := entr2 + 4; ┆
0x26000…26006 (304,) (0x518,0x4c1)
0x26006…26020 0a 20 20 20 20 73 65 67 6d 30 20 3a 3d 20 6b 30 73 3b 20 73 65 67 6d 31 20 3a ┆ segm0 := k0s; segm1 :┆
0x26020…26040 3d 20 73 65 67 6d 30 20 2b 20 34 3b 0a 20 20 20 20 73 65 67 6d 32 20 3a 3d 20 73 65 67 6d 31 20 ┆= segm0 + 4; segm2 := segm1 ┆
0x26040…26060 2b 20 34 3b 20 20 73 65 67 6d 33 20 3a 3d 20 73 65 67 6d 32 20 2b 20 34 3b 0a 20 20 20 20 6f 6b ┆+ 4; segm3 := segm2 + 4; ok┆
0x26060…2607e 20 3a 3d 20 74 72 75 65 3b 0a 0a 20 20 20 20 3c 2a 20 63 68 65 63 6b 20 62 61 73 65 73 20 ┆ := true; <* check bases ┆
0x2607e…26084 (0x518,0x4c2)
0x26084…260a0 2a 3e 0a 20 20 20 20 69 66 20 70 72 6f 63 2e 73 74 64 31 3c 70 72 6f 63 2e 75 73 65 ┆*> if proc.std1<proc.use┆
0x260a0…260c0 31 20 6f 72 20 70 72 6f 63 2e 73 74 64 32 3e 70 72 6f 63 2e 75 73 65 32 20 6f 72 0a 20 20 20 20 ┆1 or proc.std2>proc.use2 or ┆
0x260c0…260e0 20 20 20 70 72 6f 63 2e 75 73 65 31 3c 70 72 6f 63 2e 6d 61 78 31 20 6f 72 20 70 72 6f 63 2e 75 ┆ proc.use1<proc.max1 or proc.u┆
0x260e0…260fc 73 65 32 3e 70 72 6f 63 2e 6d 61 78 32 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆se2>proc.max2 then begin┆
0x260fc…26102 (0x518,0x4c3)
0x26102…26120 0a 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 61 73 65 20 65 72 72 6f 72 3a 3e 2c 20 6e ┆ error(<:base error:>, n┆
0x26120…26140 6f 29 3b 0a 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 65 6e 64 3b 0a ┆o); ok := false; end; ┆
0x26140…26160 0a 20 20 20 20 3c 2a 20 63 68 65 63 6b 20 73 69 7a 65 20 2a 3e 0a 20 20 20 20 69 66 20 70 72 6f ┆ <* check size *> if pro┆
0x26160…2617a 63 2e 6d 69 6e 73 20 3e 20 70 72 6f 63 2e 6d 61 78 73 20 74 68 65 6e 0a 20 20 ┆c.mins > proc.maxs then ┆
0x2617a…26180 (0x518,0x4c4)
0x26180…261a0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 73 69 7a 65 20 65 72 72 6f 72 ┆ begin error(<:size error┆
0x261a0…261c0 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 ┆:>, no); ok := false; ┆
0x261c0…261e0 65 6e 64 3b 0a 0a 20 20 20 20 3c 2a 20 63 68 65 63 6b 20 73 65 67 6d 73 20 61 6e 64 20 65 6e 74 ┆end; <* check segms and ent┆
0x261e0…26200 72 69 65 73 20 2a 3e 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 00 00 00 00 00 00 00 00 ┆ries *> for i:=0 ste ┆
0x26200…26206 (305,) (0x518,0x4c5)
0x26206…26220 70 20 31 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f 62 73 2d 31 20 64 6f 0a 20 20 ┆p 1 until no_of_bs-1 do ┆
0x26220…26240 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 62 61 73 65 20 3a 3d 20 70 65 72 6d 31 20 2b 20 69 2a ┆ begin base := perm1 + i*┆
0x26240…26260 32 34 3b 0a 20 20 20 20 20 20 69 66 20 70 72 6f 63 2e 62 61 73 65 2e 73 65 67 6d 30 3c 70 72 6f ┆24; if proc.base.segm0<pro┆
0x26260…2627e 63 2e 62 61 73 65 2e 73 65 67 6d 31 20 6f 72 20 70 72 6f 63 2e 62 61 73 65 2e 73 65 67 6d ┆c.base.segm1 or proc.base.segm┆
0x2627e…26284 (0x518,0x4c6)
0x26284…262a0 31 3c 70 72 6f 63 2e 62 61 73 65 2e 73 65 67 6d 32 20 6f 72 0a 20 20 20 20 20 20 20 ┆1<proc.base.segm2 or ┆
0x262a0…262c0 20 20 70 72 6f 63 2e 62 61 73 65 2e 73 65 67 6d 32 3c 70 72 6f 63 2e 62 61 73 65 2e 73 65 67 6d ┆ proc.base.segm2<proc.base.segm┆
0x262c0…262e0 33 20 6f 72 0a 20 20 20 20 20 20 20 20 20 70 72 6f 63 2e 62 61 73 65 2e 65 6e 74 72 30 3c 70 72 ┆3 or proc.base.entr0<pr┆
0x262e0…262fc 6f 63 2e 62 61 73 65 2e 65 6e 74 72 31 20 6f 72 20 70 72 6f 63 2e 62 61 73 65 2e 65 ┆oc.base.entr1 or proc.base.e┆
0x262fc…26302 (0x518,0x4c7)
0x26302…26320 6e 74 72 31 3c 70 72 6f 63 2e 62 61 73 65 2e 65 6e 74 72 32 20 6f 72 0a 20 20 20 20 20 20 ┆ntr1<proc.base.entr2 or ┆
0x26320…26340 20 20 20 70 72 6f 63 2e 62 61 73 65 2e 65 6e 74 72 32 3c 70 72 6f 63 2e 62 61 73 65 2e 65 6e 74 ┆ proc.base.entr2<proc.base.ent┆
0x26340…26360 72 33 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 65 72 72 6f ┆r3 then begin erro┆
0x26360…2637a 72 28 3c 3a 63 6c 61 69 6d 20 65 72 72 6f 72 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 ┆r(<:claim error:>, no); ┆
0x2637a…26380 (0x518,0x4c8)
0x26380…263a0 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 69 20 3a 3d 20 ┆ ok := false; i := ┆
0x263a0…263c0 34 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 63 68 65 63 6b ┆4; end; end; check┆
0x263c0…263e0 5f 70 72 6f 63 20 3a 3d 20 6f 6b 3b 0a 20 20 65 6e 64 20 63 68 65 63 6b 5f 70 72 6f 63 3b 0a 0a ┆_proc := ok; end check_proc; ┆
0x263e0…26400 0c 20 20 70 72 6f 63 65 64 75 72 65 20 65 72 72 6f 72 28 74 65 78 74 2c 00 00 00 00 00 00 00 00 ┆ procedure error(text, ┆
0x26400…26406 (306,) (0x518,0x4c9)
0x26406…26420 20 73 6b 69 70 5f 74 6f 29 3b 0a 20 20 73 74 72 69 6e 67 20 74 65 78 74 3b 0a ┆ skip_to); string text; ┆
0x26420…26440 20 20 69 6e 74 65 67 65 72 20 73 6b 69 70 5f 74 6f 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 3c ┆ integer skip_to; begin <┆
0x26440…26460 2a 20 77 72 69 74 65 73 20 61 20 74 65 78 74 20 61 6e 64 20 63 75 72 72 65 6e 74 20 69 6e 70 75 ┆* writes a text and current inpu┆
0x26460…2647e 74 20 6c 69 6e 65 20 6f 6e 20 70 72 69 6d 61 72 79 20 6f 75 74 70 75 74 0a 20 20 20 20 20 ┆t line on primary output ┆
0x2647e…26484 (0x518,0x4ca)
0x26484…264a0 20 20 61 6e 64 20 73 6b 69 70 73 20 73 6f 6d 65 20 69 6e 70 75 74 2e 0a 20 20 20 20 ┆ and skips some input. ┆
0x264a0…264c0 20 20 20 74 65 78 74 20 20 20 20 28 63 61 6c 6c 29 20 74 68 65 20 74 65 78 74 20 74 6f 20 62 65 ┆ text (call) the text to be┆
0x264c0…264e0 20 77 72 69 74 74 65 6e 2e 0a 20 20 20 20 20 20 20 73 6b 69 70 5f 74 6f 20 28 63 61 6c 6c 29 20 ┆ written. skip_to (call) ┆
0x264e0…264fc 74 65 6c 6c 73 20 68 6f 77 20 6d 75 63 68 20 74 6f 20 73 6b 69 70 0a 20 20 20 20 20 ┆tells how much to skip ┆
0x264fc…26502 (0x518,0x4cb)
0x26502…26520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 3a 20 6e 6f 74 68 69 6e 67 0a 20 20 ┆ 0: nothing ┆
0x26520…26540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3a 20 75 6e 74 69 6c 20 6e 65 78 ┆ 1: until nex┆
0x26540…26560 74 20 70 61 72 61 6d 65 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t parameter ┆
0x26560…2657a 20 20 32 3a 20 75 6e 74 69 6c 20 6e 65 78 74 20 74 72 61 6e 73 61 63 74 69 6f ┆ 2: until next transactio┆
0x2657a…26580 (0x518,0x4cc)
0x26580…265a0 6e 20 28 70 61 72 61 6d 6e 6f 3c 3d 35 29 2e 0a 20 20 20 20 20 20 20 61 74 20 72 65 74 75 72 6e ┆n (paramno<=5). at return┆
0x265a0…265c0 20 76 61 6c 69 6e 64 65 78 20 70 6f 69 6e 74 73 20 74 6f 20 6e 65 78 74 20 65 6c 65 6d 65 6e 74 ┆ valindex points to next element┆
0x265c0…265e0 20 74 6f 20 62 65 20 72 65 61 64 2e 0a 20 20 20 20 2a 3e 0a 20 20 20 20 62 6f 6f 6c 65 61 6e 20 ┆ to be read. *> boolean ┆
0x265e0…26600 6e 6c 2c 20 72 65 70 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 00 00 00 00 00 00 00 00 ┆nl, rep; integer i, ┆
0x26600…26606 (307,) (0x518,0x4cd)
0x26606…26620 70 61 72 61 6d 6e 6f 3b 0a 20 20 20 20 6e 6c 20 3a 3d 20 66 61 6c 73 65 20 61 ┆paramno; nl := false a┆
0x26620…26640 64 64 20 31 30 3b 0a 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 ┆dd 10; write(out, false add ┆
0x26640…26660 33 32 2c 20 33 30 2d 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 31 2c 20 74 65 78 74 29 2c 20 3c ┆32, 30-write(out, nl,1, text), <┆
0x26660…2667e 3a 70 72 6f 63 65 73 73 20 3a 3e 2c 20 20 70 72 6f 63 5f 6e 61 6d 65 2c 20 6e 6c 2c 31 29 ┆:process :>, proc_name, nl,1)┆
0x2667e…26684 (0x518,0x4ce)
0x26684…266a0 3b 0a 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 ┆; for i:=1 step 1 until ┆
0x266a0…266c0 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆elem_in_glval do begin ┆
0x266c0…266e0 20 63 61 73 65 20 67 6c 6b 69 6e 64 28 69 29 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ case glkind(i) of begin ┆
0x266e0…266fc 20 20 20 20 20 20 20 3c 2a 20 31 20 2a 3e 20 77 72 69 74 65 28 6f 75 74 2c 20 67 6c ┆ <* 1 *> write(out, gl┆
0x266fc…26702 (0x518,0x4cf)
0x26702…26720 76 61 6c 28 69 29 29 3b 0a 20 20 20 20 20 20 20 20 3c 2a 20 32 20 2a 3e 20 77 72 69 74 65 ┆val(i)); <* 2 *> write┆
0x26720…26740 28 6f 75 74 2c 20 67 6c 76 61 6c 28 69 29 29 3b 0a 20 20 20 20 20 20 20 20 3c 2a 20 33 2d 35 20 ┆(out, glval(i)); <* 3-5 ┆
0x26740…26760 2a 3e 3b 3b 3b 0a 20 20 20 20 20 20 20 20 3c 2a 20 36 20 2a 3e 20 77 72 69 74 65 28 6f 75 74 2c ┆*>;;; <* 6 *> write(out,┆
0x26760…2677a 20 73 74 72 69 6e 67 28 65 78 74 65 6e 64 20 67 6c 76 61 6c 28 69 29 20 73 68 ┆ string(extend glval(i) sh┆
0x2677a…26780 (0x518,0x4d0)
0x26780…267a0 69 66 74 20 32 34 29 29 3b 0a 20 20 20 20 20 20 20 20 3c 2a 20 37 20 2a 3e 20 77 72 69 74 65 28 ┆ift 24)); <* 7 *> write(┆
0x267a0…267c0 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 67 6c 76 61 6c 28 69 29 2c 31 29 3b 0a 20 20 20 20 ┆out, false add glval(i),1); ┆
0x267c0…267e0 20 20 20 20 3c 2a 20 38 20 2a 3e 20 69 66 20 67 6c 76 61 6c 28 69 29 3c 3e 32 35 20 74 68 65 6e ┆ <* 8 *> if glval(i)<>25 then┆
0x267e0…26800 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 00 00 00 00 00 00 00 00 ┆ write(o ┆
0x26800…26806 (308,) (0x518,0x4d1)
0x26806…26820 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 67 6c 76 61 6c 28 69 29 2c 31 29 3b ┆ut, false add glval(i),1);┆
0x26820…26840 0a 20 20 20 20 20 20 20 20 3c 2a 20 39 20 2a 3e 20 77 72 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 ┆ <* 9 *> write(out, fals┆
0x26840…26860 65 20 61 64 64 20 67 6c 76 61 6c 28 69 29 2c 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆e add glval(i),1); end; ┆
0x26860…2687e 20 20 65 6e 64 20 66 6f 72 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 6e 6c 2c 31 ┆ end for; write(out, nl,1┆
0x2687e…26884 (0x518,0x4d2)
0x26884…268a0 29 3b 0a 0a 20 20 20 20 69 66 20 73 6b 69 70 5f 74 6f 3e 6e 6f 20 74 68 65 6e 0a 20 ┆); if skip_to>no then ┆
0x268a0…268c0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 3c 2a 20 66 69 6e 64 20 6e 65 78 74 20 70 61 72 61 ┆ begin <* find next para┆
0x268c0…268e0 6d 20 2a 3e 0a 20 20 20 20 20 20 72 65 70 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 66 6f ┆m *> rep := true; fo┆
0x268e0…268fc 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 72 65 70 20 64 6f 0a 20 20 20 20 20 20 62 65 ┆r i:=1 while rep do be┆
0x268fc…26902 (0x518,0x4d3)
0x26902…26920 67 69 6e 0a 20 20 20 20 20 20 20 20 69 20 3a 3d 20 76 61 6c 69 6e 64 65 78 20 2d 20 31 3b ┆gin i := valindex - 1;┆
0x26920…26940 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 69 2b 31 20 77 68 69 6c 65 20 6b 69 6e 64 28 69 ┆ for i:=i+1 while kind(i┆
0x26940…26960 29 3d 36 20 64 6f 3b 0a 20 20 20 20 20 20 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 69 3b 0a 20 ┆)=6 do; valindex := i; ┆
0x26960…2697a 20 20 20 20 20 20 20 73 6b 69 70 5f 74 6f 5f 74 65 78 74 3b 0a 20 20 20 20 20 ┆ skip_to_text; ┆
0x2697a…26980 (0x518,0x4d4)
0x26980…269a0 20 20 20 69 66 20 65 6d 20 74 68 65 6e 20 65 6d 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 69 ┆ if em then emerror; i┆
0x269a0…269c0 20 3a 3d 20 76 61 6c 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d ┆ := valindex; read_param┆
0x269c0…269e0 28 70 61 72 61 6d 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e 6f 3d 74 72 ┆(paramno); if paramno=tr┆
0x269e0…26a00 5f 65 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 00 00 00 00 00 00 00 00 ┆_end then begin ┆
0x26a00…26a06 (309,) (0x518,0x4d5)
0x26a06…26a20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 69 74 20 74 68 65 6e 20 67 6f 74 ┆ if init then got┆
0x26a20…26a40 6f 20 65 6e 64 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆o endinit else┆
0x26a40…26a60 20 67 6f 74 6f 20 65 6e 64 75 70 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆ goto endupd; end ┆
0x26a60…26a7e 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e 6f 3c 3e 2d 31 20 ┆ else if paramno<>-1 ┆
0x26a7e…26a84 (0x518,0x4d6)
0x26a84…26aa0 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 20 20 ┆then begin ┆
0x26aa0…26ac0 20 69 66 20 73 6b 69 70 5f 74 6f 3d 70 61 20 6f 72 20 73 6b 69 70 5f 74 6f 3d 74 72 20 61 6e 64 ┆ if skip_to=pa or skip_to=tr and┆
0x26ac0…26ae0 20 70 61 72 61 6d 6e 6f 3c 3d 67 72 65 61 74 5f 74 72 6e 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ paramno<=great_trno then ┆
0x26ae0…26afc 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 70 61 72 ┆ begin <* par┆
0x26afc…26b02 (0x518,0x4d7)
0x26b02…26b20 61 6d 2f 74 72 61 6e 73 20 66 6f 75 6e 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆am/trans found *> ┆
0x26b20…26b40 76 61 6c 69 6e 64 65 78 20 3a 3d 20 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 70 20 3a ┆valindex := i; rep :┆
0x26b40…26b60 3d 20 66 61 6c 73 65 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 ┆= false; end; ┆
0x26b60…26b7a 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 73 6b 69 70 5f 74 6f 3b 0a 20 20 ┆end; end skip_to; ┆
0x26b7a…26b80 (0x518,0x4d8)
0x26b80…26ba0 20 20 65 6e 64 3b 0a 20 20 20 20 64 61 74 61 5f 65 72 72 6f 72 20 3a 3d 20 74 72 75 65 3b 0a 20 ┆ end; data_error := true; ┆
0x26ba0…26bc0 20 65 6e 64 20 65 72 72 6f 72 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 65 6d 65 72 72 6f 72 ┆ end error; procedure emerror┆
0x26bc0…26be0 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 3c 2a 20 77 72 69 74 65 73 20 61 20 74 65 78 74 20 6f ┆; begin <* writes a text o┆
0x26be0…26c00 6e 20 70 72 69 6d 61 72 79 20 6f 75 74 70 75 74 20 61 6e 64 20 73 74 6f 00 00 00 00 00 00 00 00 ┆n primary output and sto ┆
0x26c00…26c06 (310,) (0x518,0x4d9)
0x26c06…26c20 70 20 70 72 6f 67 72 61 6d 2d 65 78 65 63 75 74 69 6f 6e 20 2a 3e 0a 20 20 20 ┆p program-execution *> ┆
0x26c20…26c40 20 65 72 72 6f 72 28 3c 3a 61 62 6e 6f 72 6d 61 6c 20 65 6e 64 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 ┆ error(<:abnormal end:>, no); ┆
0x26c40…26c60 20 20 64 61 74 61 5f 65 72 72 6f 72 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 69 66 20 69 6e 69 ┆ data_error := true; if ini┆
0x26c60…26c7e 74 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 ┆t then goto endinit ┆
0x26c7e…26c84 (0x518,0x4da)
0x26c84…26ca0 20 20 65 6c 73 65 20 67 6f 74 6f 20 65 6e 64 75 70 64 3b 0a 20 20 65 6e 64 3b 0a 0a ┆ else goto endupd; end; ┆
0x26ca0…26cc0 0c 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 65 67 6d 5f 6e 6f 28 7a 6f 2c ┆ integer procedure segm_no(zo,┆
0x26cc0…26ce0 20 69 64 2c 20 62 79 74 65 6e 6f 29 3b 0a 20 20 7a 6f 6e 65 20 7a 6f 3b 0a 20 20 6c 6f 6e 67 20 ┆ id, byteno); zone zo; long ┆
0x26ce0…26cfc 61 72 72 61 79 20 69 64 3b 0a 20 20 69 6e 74 65 67 65 72 20 62 79 74 65 6e 6f 3b 0a ┆array id; integer byteno; ┆
0x26cfc…26d02 (0x518,0x4db)
0x26d02…26d20 20 20 62 65 67 69 6e 0a 20 20 20 20 3c 2a 20 73 65 61 72 63 68 65 73 20 66 6f 72 20 61 20 ┆ begin <* searches for a ┆
0x26d20…26d40 70 72 6f 63 65 73 73 20 69 6e 20 74 68 65 20 69 6e 64 65 78 73 65 67 6d 65 6e 74 73 2e 0a 20 20 ┆process in the indexsegments. ┆
0x26d40…26d60 20 20 20 20 20 73 65 67 6d 5f 6e 6f 20 20 20 20 28 72 65 74 75 72 6e 29 20 20 2d 31 20 20 70 72 ┆ segm_no (return) -1 pr┆
0x26d60…26d7a 6f 63 65 73 73 20 69 73 20 6e 6f 74 20 69 6e 20 63 61 74 61 6c 6f 67 0a 20 20 ┆ocess is not in catalog ┆
0x26d7a…26d80 (0x518,0x4dc)
0x26d80…26da0 20 20 20 20 20 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 6e ┆ else n┆
0x26da0…26dc0 6f 6f 66 20 69 6e 64 65 78 2d 73 65 67 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 70 72 6f ┆oof index-segment containing pro┆
0x26dc0…26de0 63 65 73 73 6e 61 6d 65 2e 0a 20 20 20 20 20 20 20 7a 6f 20 20 20 20 20 20 20 20 20 28 63 61 6c ┆cessname. zo (cal┆
0x26de0…26e00 6c 29 20 20 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 00 00 00 00 00 00 00 00 ┆l) zone describing th ┆
0x26e00…26e06 (311,) (0x518,0x4dd)
0x26e06…26e20 65 20 63 61 74 61 6c 6f 67 20 74 6f 20 73 65 61 72 63 68 20 69 6e 2e 0a 20 20 ┆e catalog to search in. ┆
0x26e20…26e40 20 20 20 20 20 69 64 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 29 20 20 20 20 6e 61 6d 65 20 6f ┆ id (call) name o┆
0x26e40…26e60 66 20 70 72 6f 63 65 73 73 20 74 6f 20 62 65 20 73 65 61 72 63 68 65 64 20 66 6f 72 2e 0a 20 20 ┆f process to be searched for. ┆
0x26e60…26e7e 20 20 20 20 20 62 79 74 65 6e 6f 20 20 20 20 20 28 72 65 74 75 72 6e 29 20 20 6e 6f 20 6f ┆ byteno (return) no o┆
0x26e7e…26e84 (0x518,0x4de)
0x26e84…26ea0 66 20 62 79 74 65 20 70 72 65 63 65 64 69 6e 67 20 70 72 6f 63 65 73 73 6e 61 6d 65 ┆f byte preceding processname┆
0x26ea0…26ec0 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 69 66 20 ┆ if ┆
0x26ec0…26ee0 66 6f 75 6e 64 2c 20 65 6c 73 65 20 62 79 74 65 20 70 72 65 63 65 64 69 6e 67 20 66 69 72 73 74 ┆found, else byte preceding first┆
0x26ee0…26efc 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 ┆ ┆
0x26efc…26f02 (0x518,0x4df)
0x26f02…26f20 20 66 72 65 65 20 62 79 74 65 2e 0a 20 20 20 20 2a 3e 0a 20 20 20 20 62 6f 6f 6c 65 61 6e ┆ free byte. *> boolean┆
0x26f20…26f40 20 66 6f 75 6e 64 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 70 73 65 67 6d 5f 6e 6f 2c ┆ found; integer i, psegm_no,┆
0x26f40…26f60 20 69 6e 64 65 78 5f 73 65 67 6d 2c 20 70 72 6f 63 5f 6e 6f 3b 0a 20 20 20 20 69 6e 74 65 67 65 ┆ index_segm, proc_no; intege┆
0x26f60…26f7a 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 69 6e 64 65 78 2c 20 77 6f 72 64 3b ┆r array field index, word;┆
0x26f7a…26f80 (0x518,0x4e0)
0x26f80…26fa0 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6e 61 6d 65 3b 0a 0a 20 20 20 ┆ long array field name; ┆
0x26fa0…26fc0 20 70 73 65 67 6d 5f 6e 6f 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 69 6e 64 65 78 5f 73 65 67 6d 20 ┆ psegm_no := -1; index_segm ┆
0x26fc0…26fe0 3a 3d 20 30 3b 0a 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 2c 20 30 2c 20 30 29 3b ┆:= 0; setposition(zo, 0, 0);┆
0x26fe0…27000 0a 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 2c 20 35 31 32 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ inrec6(zo, 512); ┆
0x27000…27006 (312,) (0x518,0x4e1)
0x27006…27020 20 20 77 6f 72 64 20 3a 3d 20 30 3b 0a 20 20 20 20 70 72 6f 63 5f 6e 6f 20 3a ┆ word := 0; proc_no :┆
0x27020…27040 3d 20 69 66 20 69 6e 69 74 20 74 68 65 6e 20 70 72 6f 63 5f 63 6f 75 6e 74 20 65 6c 73 65 20 7a ┆= if init then proc_count else z┆
0x27040…27060 6f 2e 77 6f 72 64 28 32 35 34 29 3b 0a 20 20 20 20 6e 61 6d 65 20 3a 3d 20 30 3b 0a 20 20 20 20 ┆o.word(254); name := 0; ┆
0x27060…2707e 69 6e 64 65 78 20 3a 3d 20 31 30 3b 0a 20 20 20 20 66 6f 75 6e 64 20 3a 3d 20 66 61 6c 73 ┆index := 10; found := fals┆
0x2707e…27084 (0x518,0x4e2)
0x27084…270a0 65 3b 0a 20 20 20 20 69 20 3a 3d 20 30 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 69 2b ┆e; i := 0; for i:=i+┆
0x270a0…270c0 31 20 77 68 69 6c 65 20 69 3c 3d 70 72 6f 63 5f 6e 6f 20 61 6e 64 20 2d 2c 66 6f 75 6e 64 20 64 ┆1 while i<=proc_no and -,found d┆
0x270c0…270e0 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 69 3e 31 20 61 6e 64 20 69 20 6d ┆o begin if i>1 and i m┆
0x270e0…270fc 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 3d 31 20 74 68 65 6e 0a 20 20 20 20 ┆od proc_pr_index=1 then ┆
0x270fc…27102 (0x518,0x4e3)
0x27102…27120 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 3c 2a 20 6e 65 77 20 69 6e 64 65 78 5f 73 ┆ begin <* new index_s┆
0x27120…27140 65 67 6d 20 69 73 20 74 6f 20 62 65 20 72 65 61 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 69 6e 64 ┆egm is to be read *> ind┆
0x27140…27160 65 78 5f 73 65 67 6d 20 3a 3d 20 69 6e 64 65 78 5f 73 65 67 6d 2b 31 3b 0a 20 20 20 20 20 20 20 ┆ex_segm := index_segm+1; ┆
0x27160…2717a 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 2c 20 30 2c 20 69 6e 64 65 78 5f ┆ setposition(zo, 0, index_┆
0x2717a…27180 (0x518,0x4e4)
0x27180…271a0 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 2c 20 35 31 32 29 3b 0a ┆segm); inrec6(zo, 512); ┆
0x271a0…271c0 20 20 20 20 20 20 20 20 6e 61 6d 65 20 3a 3d 20 30 3b 20 20 69 6e 64 65 78 20 3a 3d 20 31 30 3b ┆ name := 0; index := 10;┆
0x271c0…271e0 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 69 64 28 31 29 3d 7a 6f 2e 6e 61 ┆ end; if id(1)=zo.na┆
0x271e0…27200 6d 65 28 31 29 20 61 6e 64 20 69 64 28 32 29 3d 7a 6f 2e 6e 61 6d 65 28 00 00 00 00 00 00 00 00 ┆me(1) and id(2)=zo.name( ┆
0x27200…27206 (313,) (0x518,0x4e5)
0x27206…27220 32 29 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆2) then begin ┆
0x27220…27240 20 20 70 73 65 67 6d 5f 6e 6f 20 3a 3d 20 69 6e 64 65 78 5f 73 65 67 6d 3b 0a 20 20 20 20 20 20 ┆ psegm_no := index_segm; ┆
0x27240…27260 20 20 66 6f 75 6e 64 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 ┆ found := true; end ┆
0x27260…2727e 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6e 61 6d 65 ┆ else begin name┆
0x2727e…27284 (0x518,0x4e6)
0x27284…272a0 20 3a 3d 20 6e 61 6d 65 20 2b 20 69 6e 64 65 78 5f 6c 67 74 3b 0a 20 20 20 20 20 20 ┆ := name + index_lgt; ┆
0x272a0…272c0 20 20 69 6e 64 65 78 20 3a 3d 20 69 6e 64 65 78 20 2b 20 69 6e 64 65 78 5f 6c 67 74 3b 0a 20 20 ┆ index := index + index_lgt; ┆
0x272c0…272e0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 73 65 67 6d 5f 6e 6f 20 3a 3d ┆ end; end; segm_no :=┆
0x272e0…272fc 20 70 73 65 67 6d 5f 6e 6f 3b 0a 20 20 20 20 69 66 20 2d 2c 66 6f 75 6e 64 20 61 6e ┆ psegm_no; if -,found an┆
0x272fc…27302 (0x518,0x4e7)
0x27302…27320 64 20 69 20 6d 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 3d 31 20 74 68 65 6e 20 6e ┆d i mod proc_pr_index=1 then n┆
0x27320…27340 61 6d 65 20 3a 3d 20 30 3b 0a 20 20 20 20 62 79 74 65 6e 6f 20 3a 3d 20 6e 61 6d 65 3b 0a 20 20 ┆ame := 0; byteno := name; ┆
0x27340…27360 65 6e 64 20 73 65 67 6d 5f 6e 6f 3b 0a 0a 0c 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 ┆end segm_no; integer procedu┆
0x27360…2737a 72 65 20 74 65 72 6d 5f 73 65 67 6d 28 7a 6f 2c 20 70 72 6f 63 5f 73 65 67 6d ┆re term_segm(zo, proc_segm┆
0x2737a…27380 (0x518,0x4e8)
0x27380…273a0 2c 20 69 64 31 2c 20 69 64 32 2c 20 62 79 74 65 6e 6f 29 3b 0a 20 20 76 61 6c 75 65 20 70 72 6f ┆, id1, id2, byteno); value pro┆
0x273a0…273c0 63 5f 73 65 67 6d 2c 20 69 64 32 3b 0a 20 20 7a 6f 6e 65 20 7a 6f 3b 0a 20 20 69 6e 74 65 67 65 ┆c_segm, id2; zone zo; intege┆
0x273c0…273e0 72 20 70 72 6f 63 5f 73 65 67 6d 2c 20 62 79 74 65 6e 6f 2c 20 69 64 32 3b 0a 20 20 6c 6f 6e 67 ┆r proc_segm, byteno, id2; long┆
0x273e0…27400 20 61 72 72 61 79 20 69 64 31 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ array id1; begin ┆
0x27400…27406 (314,) (0x518,0x4e9)
0x27406…27420 3c 2a 20 73 65 61 72 63 68 65 73 20 66 6f 72 20 61 20 74 65 72 6d 69 6e 61 6c ┆<* searches for a terminal┆
0x27420…27440 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 61 20 63 65 72 74 61 69 6e 20 70 72 6f 63 65 73 73 2e ┆ belonging to a certain process.┆
0x27440…27460 0a 20 20 20 20 20 20 20 74 65 72 6d 5f 73 65 67 6d 20 20 20 28 72 65 74 75 72 6e 29 20 20 61 62 ┆ term_segm (return) ab┆
0x27460…2747e 73 20 76 61 6c 75 65 20 69 73 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 20 6f ┆s value is number of segment o┆
0x2747e…27484 (0x518,0x4ea)
0x27484…274a0 6e 20 68 61 6e 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n hand. ┆
0x274a0…274c0 20 20 20 20 20 20 20 20 20 6e 65 67 61 74 69 76 65 3a 20 74 65 72 6d 20 6e 6f 74 20 66 6f 75 6e ┆ negative: term not foun┆
0x274c0…274e0 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 ┆d p┆
0x274e0…274fc 6f 73 69 74 69 76 65 20 6e 6f 20 6f 66 20 73 65 67 6d 65 6e 74 20 64 65 73 63 72 69 ┆ositive no of segment descri┆
0x274fc…27502 (0x518,0x4eb)
0x27502…27520 62 69 6e 67 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 2e 0a 20 20 20 20 20 20 20 7a 6f 20 20 ┆bing the terminal. zo ┆
0x27520…27540 20 20 20 20 20 20 20 20 28 63 61 6c 6c 29 20 20 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 62 69 6e ┆ (call) zone describin┆
0x27540…27560 67 20 74 68 65 20 63 61 74 61 6c 6f 67 20 74 6f 20 73 65 61 72 63 68 20 69 6e 2e 0a 20 20 20 20 ┆g the catalog to search in. ┆
0x27560…2757a 20 20 20 70 72 6f 63 5f 73 65 67 6d 20 20 20 28 63 61 6c 6c 29 20 20 20 20 6e ┆ proc_segm (call) n┆
0x2757a…27580 (0x518,0x4ec)
0x27580…275a0 6f 20 6f 66 20 73 65 67 6d 65 6e 74 20 61 74 20 77 68 69 63 68 20 74 6f 20 73 74 61 72 74 20 74 ┆o of segment at which to start t┆
0x275a0…275c0 68 65 20 73 65 61 72 63 68 2e 0a 20 20 20 20 20 20 20 69 64 31 2c 20 69 64 32 20 20 20 20 28 63 ┆he search. id1, id2 (c┆
0x275c0…275e0 61 6c 6c 29 20 20 20 20 6e 61 6d 65 73 20 6f 66 20 74 65 72 6d 69 6e 61 6c 2e 0a 20 20 20 20 20 ┆all) names of terminal. ┆
0x275e0…27600 20 20 62 79 74 65 6e 6f 20 20 20 20 20 20 28 72 65 74 75 72 6e 29 20 20 00 00 00 00 00 00 00 00 ┆ byteno (return) ┆
0x27600…27606 (315,) (0x518,0x4ed)
0x27606…27620 6e 6f 20 6f 66 20 62 79 74 65 20 70 72 65 63 65 64 69 6e 67 20 74 65 72 6d 69 ┆no of byte preceding termi┆
0x27620…27640 6e 61 6c 20 64 65 73 63 72 69 62 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nal describtion ┆
0x27640…27660 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 6f 75 6e 64 20 65 6c 73 65 20 62 79 74 65 20 ┆ if found else byte ┆
0x27660…2767e 70 72 65 63 65 64 69 6e 67 20 66 69 72 73 74 65 20 66 72 65 65 2e 0a 20 20 20 20 2a 3e 0a ┆preceding firste free. *> ┆
0x2767e…27684 (0x518,0x4ee)
0x27684…276a0 20 20 20 20 62 6f 6f 6c 65 61 6e 20 63 6f 6e 74 3b 0a 20 20 20 20 69 6e 74 65 67 65 ┆ boolean cont; intege┆
0x276a0…276c0 72 20 69 2c 20 73 65 67 6d 5f 6e 6f 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 ┆r i, segm_no; integer field ┆
0x276c0…276e0 6e 61 6d 65 32 2c 6e 65 78 74 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 ┆name2,next; integer array fi┆
0x276e0…276fc 65 6c 64 20 77 6f 72 64 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 ┆eld word; long array fie┆
0x276fc…27702 (0x518,0x4ef)
0x27702…27720 6c 64 20 6e 61 6d 65 31 3b 0a 0a 20 20 20 20 73 65 67 6d 5f 6e 6f 20 3a 3d 20 2d 70 72 6f ┆ld name1; segm_no := -pro┆
0x27720…27740 63 5f 73 65 67 6d 3b 0a 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 2c 20 30 2c 20 70 ┆c_segm; setposition(zo, 0, p┆
0x27740…27760 72 6f 63 5f 73 65 67 6d 29 3b 0a 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 2c 20 35 31 32 29 ┆roc_segm); swoprec6(zo, 512)┆
0x27760…2777a 3b 0a 20 20 20 20 77 6f 72 64 20 3a 3d 20 30 3b 0a 20 20 20 20 6e 61 6d 65 31 ┆; word := 0; name1┆
0x2777a…27780 (0x518,0x4f0)
0x27780…277a0 20 3a 3d 20 70 72 6f 63 5f 64 65 73 5f 6c 67 74 3b 20 20 6e 61 6d 65 32 20 3a 3d 20 6e 61 6d 65 ┆ := proc_des_lgt; name2 := name┆
0x277a0…277c0 31 20 2b 20 31 30 3b 0a 20 20 20 20 6e 65 78 74 20 3a 3d 20 6e 61 6d 65 31 20 2b 20 32 3b 0a 20 ┆1 + 10; next := name1 + 2; ┆
0x277c0…277e0 20 20 20 63 6f 6e 74 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 69 20 3a 3d 20 30 3b 0a 20 20 20 ┆ cont := true; i := 0; ┆
0x277e0…27800 20 66 6f 72 20 69 3a 3d 69 2b 31 20 77 68 69 6c 65 20 63 6f 6e 74 20 61 00 00 00 00 00 00 00 00 ┆ for i:=i+1 while cont a ┆
0x27800…27806 (316,) (0x518,0x4f1)
0x27806…27820 6e 64 20 7a 6f 2e 6e 65 78 74 3c 3e 2d 31 20 64 6f 0a 20 20 20 20 62 65 67 69 ┆nd zo.next<>-1 do begi┆
0x27820…27840 6e 0a 20 20 20 20 20 20 69 66 20 69 64 31 28 31 29 3d 7a 6f 2e 6e 61 6d 65 31 28 31 29 20 61 6e ┆n if id1(1)=zo.name1(1) an┆
0x27840…27860 64 20 69 64 31 28 32 29 3d 7a 6f 2e 6e 61 6d 65 31 28 32 29 20 6f 72 0a 20 20 20 20 20 20 20 20 ┆d id1(2)=zo.name1(2) or ┆
0x27860…2787e 20 69 64 32 3d 7a 6f 2e 6e 61 6d 65 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e ┆ id2=zo.name2 then begin┆
0x2787e…27884 (0x518,0x4f2)
0x27884…278a0 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 ┆ cont := false; ┆
0x278a0…278c0 20 20 20 20 73 65 67 6d 5f 6e 6f 20 3a 3d 20 2d 73 65 67 6d 5f 6e 6f 3b 0a 20 20 20 20 20 20 65 ┆ segm_no := -segm_no; e┆
0x278c0…278e0 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆nd else begin ┆
0x278e0…278fc 20 20 6e 61 6d 65 31 20 3a 3d 20 6e 61 6d 65 31 20 2b 20 74 65 72 6d 5f 64 65 73 5f ┆ name1 := name1 + term_des_┆
0x278fc…27902 (0x518,0x4f3)
0x27902…27920 6c 67 74 3b 20 20 6e 61 6d 65 32 20 3a 3d 20 6e 61 6d 65 32 20 2b 20 74 65 72 6d 5f 64 65 ┆lgt; name2 := name2 + term_de┆
0x27920…27940 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 6e 65 78 74 20 3a 3d 20 6e 65 78 74 20 2b 20 74 65 ┆s_lgt; next := next + te┆
0x27940…27960 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 2d 73 65 67 6d 5f 6e 6f 3d ┆rm_des_lgt; if -segm_no=┆
0x27960…2797a 70 72 6f 63 5f 73 65 67 6d 20 61 6e 64 20 69 3d 74 65 72 6d 5f 70 72 5f 70 72 ┆proc_segm and i=term_pr_pr┆
0x2797a…27980 (0x518,0x4f4)
0x27980…279a0 73 65 67 6d 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 2d 73 65 67 6d 5f 6e 6f 3c 3e 70 72 6f ┆segm or -segm_no<>pro┆
0x279a0…279c0 63 5f 73 65 67 6d 20 61 6e 64 20 69 3d 74 65 72 6d 5f 70 72 5f 73 65 67 6d 20 74 68 65 6e 0a 20 ┆c_segm and i=term_pr_segm then ┆
0x279c0…279e0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7a 6f 2e 77 6f 72 ┆ begin if zo.wor┆
0x279e0…27a00 64 28 32 35 36 29 3d 2d 31 20 74 68 65 6e 20 63 6f 6e 74 20 3a 3d 20 66 00 00 00 00 00 00 00 00 ┆d(256)=-1 then cont := f ┆
0x27a00…27a06 (317,) (0x518,0x4f5)
0x27a06…27a20 61 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆alse else ┆
0x27a20…27a40 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 5f 6e 6f 3a 3d 2d ┆ begin segm_no:=-┆
0x27a40…27a60 7a 6f 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 ┆zo.word(256); setpos┆
0x27a60…27a7e 69 74 69 6f 6e 28 7a 6f 2c 20 30 2c 20 2d 73 65 67 6d 5f 6e 6f 29 3b 0a 20 20 20 20 20 20 ┆ition(zo, 0, -segm_no); ┆
0x27a7e…27a84 (0x518,0x4f6)
0x27a84…27aa0 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 2c 20 35 31 32 29 3b 0a 20 20 20 ┆ swoprec6(zo, 512); ┆
0x27aa0…27ac0 20 20 20 20 20 20 20 20 20 6e 61 6d 65 31 20 3a 3d 20 30 3b 20 20 6e 61 6d 65 32 20 3a 3d 20 31 ┆ name1 := 0; name2 := 1┆
0x27ac0…27ae0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 3a 3d 20 32 3b 0a 20 20 20 20 20 20 ┆0; next := 2; ┆
0x27ae0…27afc 20 20 20 20 20 20 69 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ i := 0; end;┆
0x27afc…27b02 (0x518,0x4f7)
0x27b02…27b20 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e ┆ end end; en┆
0x27b20…27b40 64 20 66 6f 72 20 69 3b 0a 20 20 20 20 74 65 72 6d 5f 73 65 67 6d 20 3a 3d 20 73 65 67 6d 5f 6e ┆d for i; term_segm := segm_n┆
0x27b40…27b60 6f 3b 0a 20 20 20 20 62 79 74 65 6e 6f 20 3a 3d 20 6e 61 6d 65 31 3b 0a 20 20 65 6e 64 20 74 65 ┆o; byteno := name1; end te┆
0x27b60…27b7a 72 6d 5f 73 65 67 6d 3b 0a 0c 20 20 70 72 6f 63 65 64 75 72 65 20 65 78 74 65 ┆rm_segm; procedure exte┆
0x27b7a…27b80 (0x518,0x4f8)
0x27b80…27ba0 6e 64 63 61 74 28 7a 6f 29 3b 0a 20 20 7a 6f 6e 65 20 7a 6f 3b 0a 20 20 62 65 67 69 6e 0a 20 20 ┆ndcat(zo); zone zo; begin ┆
0x27ba0…27bc0 20 20 3c 2a 20 65 78 74 65 6e 64 73 20 74 68 65 20 61 72 65 61 20 64 65 73 63 72 69 62 65 64 20 ┆ <* extends the area described ┆
0x27bc0…27be0 62 79 20 7a 6f 20 77 69 74 68 20 6f 6e 65 20 73 65 67 6d 65 6e 74 2e 0a 20 20 20 20 20 20 20 74 ┆by zo with one segment. t┆
0x27be0…27c00 68 65 20 6e 65 77 20 73 65 67 6d 65 6e 74 28 73 29 20 69 73 20 63 68 61 00 00 00 00 00 00 00 00 ┆he new segment(s) is cha ┆
0x27c00…27c06 (318,) (0x518,0x4f9)
0x27c06…27c20 69 6e 65 64 20 61 73 20 66 72 65 65 2e 0a 20 20 20 20 20 20 20 6d 61 78 73 65 ┆ined as free. maxse┆
0x27c20…27c40 67 6d 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 77 69 74 68 20 74 68 65 20 6e 65 77 20 61 ┆gm is initialized with the new a┆
0x27c40…27c60 72 65 61 73 69 7a 65 2e 0a 20 20 20 20 2a 3e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 6f 6c 64 73 ┆reasize. *> integer olds┆
0x27c60…27c7e 65 67 6d 73 2c 20 6e 65 77 73 65 67 6d 2c 20 69 2c 20 6a 2c 20 6f 6c 64 3b 0a 20 20 20 20 ┆egms, newsegm, i, j, old; ┆
0x27c7e…27c84 (0x518,0x4fa)
0x27c84…27ca0 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 61 69 6c 28 31 3a 31 30 29 3b 0a 20 20 ┆integer array tail(1:10); ┆
0x27ca0…27cc0 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 20 3a 28 7a 6f 2c 20 ┆ i := monitor(42) lookup :(zo, ┆
0x27cc0…27ce0 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d ┆0, tail); if i>0 then system┆
0x27ce0…27cfc 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 6c 6f 6f 6b 75 70 3a 3e 29 3b 0a 20 20 20 20 ┆(9, i, <:<10>lookup:>); ┆
0x27cfc…27d02 (0x518,0x4fb)
0x27d02…27d20 6f 6c 64 73 65 67 6d 73 20 3a 3d 20 74 61 69 6c 28 31 29 3b 0a 20 20 20 20 74 61 69 6c 28 ┆oldsegms := tail(1); tail(┆
0x27d20…27d40 31 29 20 3a 3d 20 74 61 69 6c 28 31 29 20 2b 20 31 3b 0a 20 20 20 20 69 20 3a 3d 20 6d 6f 6e 69 ┆1) := tail(1) + 1; i := moni┆
0x27d40…27d60 74 6f 72 28 34 34 29 20 63 68 61 6e 67 65 20 65 6e 74 72 79 20 3a 28 7a 6f 2c 20 30 2c 20 74 61 ┆tor(44) change entry :(zo, 0, ta┆
0x27d60…27d7a 69 6c 29 3b 0a 20 20 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 ┆il); if i>0 then syste┆
0x27d7a…27d80 (0x518,0x4fc)
0x27d80…27da0 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 63 68 2e 65 6e 74 72 3a 3e 29 3b 0a 20 20 20 20 69 20 ┆m(9, i, <:<10>ch.entr:>); i ┆
0x27da0…27dc0 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 2c 20 7a 6f 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 ┆:= monitor(42, zo, 0, tail); ┆
0x27dc0…27de0 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e ┆ if i>0 then system(9, i, <:<10>┆
0x27de0…27e00 6c 6f 6f 6b 75 70 3a 3e 29 3b 0a 20 20 20 20 6e 65 77 73 65 67 6d 20 3a 00 00 00 00 00 00 00 00 ┆lookup:>); newsegm : ┆
0x27e00…27e06 (319,) (0x518,0x4fd)
0x27e06…27e20 3d 20 74 61 69 6c 28 31 29 20 2d 20 31 3b 0a 20 20 20 20 73 65 74 70 6f 73 69 ┆= tail(1) - 1; setposi┆
0x27e20…27e40 74 69 6f 6e 28 7a 6f 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 2c 20 35 ┆tion(zo, 0, 0); inrec6(zo, 5┆
0x27e40…27e60 31 32 29 3b 0a 20 20 20 20 6f 6c 64 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 6e ┆12); old := -1; for i:=n┆
0x27e60…27e7e 65 77 73 65 67 6d 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 6f 6c 64 73 65 67 6d 73 20 ┆ewsegm step -1 until oldsegms ┆
0x27e7e…27e84 (0x518,0x4fe)
0x27e84…27ea0 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 ┆do begin setpositi┆
0x27ea0…27ec0 6f 6e 28 7a 6f 2c 20 30 2c 20 69 29 3b 0a 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 7a 6f 2c 20 ┆on(zo, 0, i); outrec6(zo, ┆
0x27ec0…27ee0 35 31 32 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆512); for j:=1 step 1 unti┆
0x27ee0…27efc 6c 20 32 35 35 20 64 6f 20 7a 6f 2e 77 6f 72 64 28 6a 29 20 3a 3d 20 2d 31 3b 0a 20 ┆l 255 do zo.word(j) := -1; ┆
0x27efc…27f02 (0x518,0x4ff)
0x27f02…27f20 20 20 20 20 20 7a 6f 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 6f 6c 64 3b 0a 20 20 20 20 ┆ zo.word(256) := old; ┆
0x27f20…27f40 20 20 6f 6c 64 20 3a 3d 20 69 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 73 65 74 70 6f 73 69 ┆ old := i; end; setposi┆
0x27f40…27f60 74 69 6f 6e 28 7a 6f 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 2c ┆tion(zo, 0, 0); swoprec6(zo,┆
0x27f60…27f7a 20 35 31 32 29 3b 0a 20 20 20 20 7a 6f 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d ┆ 512); zo.word(256) :=┆
0x27f7a…27f80 (0x518,0x500)
0x27f80…27fa0 20 6f 6c 64 73 65 67 6d 73 3b 0a 20 20 20 20 6d 61 78 73 65 67 6d 20 3a 3d 20 6e 65 77 73 65 67 ┆ oldsegms; maxsegm := newseg┆
0x27fa0…27fc0 6d 3b 0a 20 20 65 6e 64 20 75 64 76 69 64 63 61 74 3b 0a 0c 20 20 62 65 67 69 6e 20 3c 2a 20 72 ┆m; end udvidcat; begin <* r┆
0x27fc0…27fe0 65 61 64 20 61 6e 64 20 63 68 65 63 6b 20 66 70 2d 70 61 72 61 6d 73 20 2a 3e 0a 20 20 20 20 3c ┆ead and check fp-params *> <┆
0x27fe0…28000 2a 20 73 79 6e 74 61 78 20 6f 66 20 70 72 6f 67 72 61 6d 63 61 6c 6c 3a 00 00 00 00 00 00 00 00 ┆* syntax of programcall: ┆
0x28000…28006 (320,) (0x518,0x501)
0x28006…28020 0a 20 20 20 20 20 20 20 28 3c 6e 65 77 63 61 74 3e 20 3d 29 20 75 70 73 6f 73 ┆ (<newcat> =) upsos┆
0x28020…28040 63 61 74 20 28 3c 69 6e 70 75 74 3e 29 20 28 6f 6c 64 63 61 74 2e 28 3c 63 61 74 3e 2f 6e 6f 29 ┆cat (<input>) (oldcat.(<cat>/no)┆
0x28040…28060 29 20 28 6c 69 73 74 2e 28 3c 6f 75 74 66 69 6c 65 3e 2f 6e 6f 29 29 0a 20 20 20 20 2a 3e 0a 20 ┆) (list.(<outfile>/no)) *> ┆
0x28060…2807e 20 20 20 62 6f 6f 6c 65 61 6e 20 6f 6b 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 ┆ boolean ok; integer i, ┆
0x2807e…28084 (0x518,0x502)
0x28084…280a0 6a 2c 20 6b 2c 20 6c 2c 20 6d 2c 20 69 6e 5f 6e 6f 3b 0a 20 20 20 20 72 65 61 6c 20 ┆j, k, l, m, in_no; real ┆
0x280a0…280c0 20 20 20 73 68 6f 72 74 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 61 69 6c ┆ short; integer array tail┆
0x280c0…280e0 28 31 3a 31 30 29 2c 20 69 61 28 31 3a 32 30 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 ┆(1:10), ia(1:20); long array┆
0x280e0…280fc 20 66 69 65 6c 64 20 6e 61 6d 65 3b 0a 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 ┆ field name; real array ┆
0x280fc…28102 (0x518,0x503)
0x28102…28120 61 72 72 28 31 3a 32 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 28 31 32 38 2a 33 2c 20 33 2c ┆arr(1:2); zone z(128*3, 3,┆
0x28120…28140 20 65 6d 29 3b 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 65 6d 28 7a 2c 20 73 2c 20 62 29 3b ┆ em); procedure em(z, s, b);┆
0x28140…28160 0a 20 20 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 73 2c 20 62 3b 0a 20 ┆ zone z; integer s, b; ┆
0x28160…2817a 20 20 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 31 38 29 3d 31 20 74 ┆ if s shift (-18)=1 t┆
0x2817a…28180 (0x518,0x504)
0x28180…281a0 68 65 6e 20 67 6f 74 6f 20 63 6f 70 79 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆hen goto copyend ┆
0x281a0…281c0 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 73 74 64 65 72 72 6f 72 28 7a 2c 20 73 2c 20 62 ┆ else stderror(z, s, b┆
0x281c0…281e0 29 3b 0a 0a 0a 20 20 20 20 3c 2a 20 67 65 74 20 6e 61 6d 65 20 6f 66 20 66 69 72 73 74 20 62 73 ┆); <* get name of first bs┆
0x281e0…28200 20 64 65 76 69 63 65 20 66 72 6f 6d 20 6d 6f 6e 69 74 6f 72 20 74 61 62 00 00 00 00 00 00 00 00 ┆ device from monitor tab ┆
0x28200…28206 (321,) (0x518,0x505)
0x28206…28220 6c 65 20 2a 3e 0a 20 20 20 20 73 79 73 74 65 6d 28 35 29 20 6d 6f 76 65 20 63 ┆le *> system(5) move c┆
0x28220…28240 6f 72 65 20 3a 28 39 38 2c 69 61 29 3b 20 3c 2a 20 69 61 28 31 29 20 68 6f 6c 64 73 20 61 64 64 ┆ore :(98,ia); <* ia(1) holds add┆
0x28240…28260 72 65 73 73 20 6f 66 20 63 68 61 69 6e 20 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ress of chain table ┆
0x28260…2827e 20 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 66 20 64 65 ┆ of de┆
0x2827e…28284 (0x518,0x506)
0x28284…282a0 76 69 63 65 20 68 6f 6c 64 69 6e 67 20 6d 61 69 6e 63 61 74 20 2a 3e 0a 20 20 20 20 ┆vice holding maincat *> ┆
0x282a0…282c0 3c 2a 20 67 65 74 20 64 65 76 69 63 65 20 6e 61 6d 65 20 66 72 6f 6d 20 63 68 61 69 6e 74 61 62 ┆<* get device name from chaintab┆
0x282c0…282e0 6c 65 20 2a 3e 0a 20 20 20 20 73 79 73 74 65 6d 28 35 29 20 6d 6f 76 65 20 63 6f 72 65 20 3a 28 ┆le *> system(5) move core :(┆
0x282e0…282fc 69 61 28 31 29 2d 31 38 2c 66 69 72 73 74 5f 62 73 5f 64 65 76 69 63 65 29 3b 0a 20 ┆ia(1)-18,first_bs_device); ┆
0x282fc…28302 (0x518,0x507)
0x28302…28320 20 20 20 6e 61 6d 65 20 3a 3d 20 32 3b 0a 20 20 20 20 6a 20 3a 3d 20 30 3b 0a 20 20 20 20 ┆ name := 2; j := 0; ┆
0x28320…28340 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 0a 20 20 20 20 6f 6c 64 63 61 74 28 69 29 20 3a 3d 20 6e ┆for i:=1,2 do oldcat(i) := n┆
0x28340…28360 65 77 63 61 74 28 69 29 20 3a 3d 20 6f 75 74 66 69 6c 65 28 69 29 20 3a 3d 20 6c 6f 6e 67 20 3c ┆ewcat(i) := outfile(i) := long <┆
0x28360…2837a 3a 3a 3e 3b 0a 20 20 20 20 69 6e 69 74 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 ┆::>; init := true; ┆
0x2837a…28380 (0x518,0x508)
0x28380…283a0 20 6c 69 73 74 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 69 20 3a 3d 20 73 79 73 74 65 6d 28 ┆ list := false; i := system(┆
0x283a0…283c0 34 2c 20 31 2c 20 61 72 72 29 3b 0a 20 20 20 20 69 66 20 69 3d 36 20 73 68 69 66 74 20 31 32 20 ┆4, 1, arr); if i=6 shift 12 ┆
0x283c0…283e0 2b 20 31 30 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 3c 2a 20 3c 6e 65 ┆+ 10 then begin <* <ne┆
0x283e0…28400 77 63 61 74 3e 20 69 73 20 74 6f 20 62 65 20 72 65 61 64 20 2a 3e 0a 20 00 00 00 00 00 00 00 00 ┆wcat> is to be read *> ┆
0x28400…28406 (322,) (0x518,0x509)
0x28406…28420 20 20 20 20 20 69 20 3a 3d 20 73 79 73 74 65 6d 28 34 2c 20 30 2c 20 61 72 72 ┆ i := system(4, 0, arr┆
0x28420…28440 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3c 3d 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 ┆); if i<=0 then system(9, ┆
0x28440…28460 30 2c 20 3c 3a 3c 31 30 3e 63 61 6c 6c 3a 3e 29 3b 0a 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 ┆0, <:<10>call:>); to_from(┆
0x28460…2847e 6e 65 77 63 61 74 2c 20 61 72 72 2c 20 38 29 3b 0a 20 20 20 20 20 20 6a 20 3a 3d 20 32 3b ┆newcat, arr, 8); j := 2;┆
0x2847e…28484 (0x518,0x50a)
0x28484…284a0 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 20 6a 20 3a 3d 20 31 3b 0a 20 20 ┆ end else j := 1; ┆
0x284a0…284c0 20 20 69 6e 5f 6e 6f 20 3a 3d 20 6a 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 73 79 73 74 65 6d 28 ┆ in_no := j; for i:=system(┆
0x284c0…284e0 34 2c 20 6a 2c 20 61 72 72 29 20 77 68 69 6c 65 20 69 3e 30 20 64 6f 0a 20 20 20 20 62 65 67 69 ┆4, j, arr) while i>0 do begi┆
0x284e0…284fc 6e 0a 20 20 20 20 20 20 69 66 20 69 3d 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 ┆n if i=4 shift 12 + 10┆
0x284fc…28502 (0x518,0x50b)
0x28502…28520 20 61 6e 64 20 61 72 72 28 31 29 3d 72 65 61 6c 20 3c 3a 6f 6c 64 63 61 3a 3e 20 61 64 64 ┆ and arr(1)=real <:oldca:> add┆
0x28520…28540 20 31 31 36 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 28 32 29 3d 20 72 ┆ 116 and arr(2)= r┆
0x28540…28560 65 61 6c 20 3c 3a 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 63 6f 70 ┆eal <::> then begin <* cop┆
0x28560…2857a 79 20 3c 63 61 74 3e 20 2a 3e 0a 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 6a 20 ┆y <cat> *> j := j ┆
0x2857a…28580 (0x518,0x50c)
0x28580…285a0 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 20 6a 2c 20 61 72 72 ┆+ 1; if system(4, j, arr┆
0x285a0…285c0 29 3d 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 ┆)=8 shift 12 + 10 then b┆
0x285c0…285e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 61 72 72 28 31 29 3d 20 72 65 61 6c 20 3c ┆egin if arr(1)= real <┆
0x285e0…28600 3a 6e 6f 3a 3e 20 74 68 65 6e 20 69 6e 69 74 20 3a 3d 20 74 72 75 65 0a 00 00 00 00 00 00 00 00 ┆:no:> then init := true ┆
0x28600…28606 (323,) (0x518,0x50d)
0x28606…28620 20 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 ┆ else b┆
0x28620…28640 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 6f 6c 64 63 61 74 2c ┆egin to_from(oldcat,┆
0x28640…28660 20 61 72 72 2c 20 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 20 3a 3d 20 66 61 ┆ arr, 8); init := fa┆
0x28660…2867e 6c 73 65 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 65 6e ┆lse; end; en┆
0x2867e…28684 (0x518,0x50e)
0x28684…286a0 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 73 79 73 74 65 6d 28 39 2c 20 6a 2c 20 ┆d else system(9, j, ┆
0x286a0…286c0 3c 3a 3c 31 30 3e 63 61 6c 6c 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 ┆<:<10>call:>); end e┆
0x286c0…286e0 6c 73 65 20 69 66 20 69 3d 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 61 6e 64 20 61 72 72 ┆lse if i=4 shift 12 + 10 and arr┆
0x286e0…286fc 28 31 29 3d 72 65 61 6c 20 3c 3a 6c 69 73 74 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 ┆(1)=real <:list:> then ┆
0x286fc…28702 (0x518,0x50f)
0x28702…28720 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 3c 2a 20 3c 6f 75 74 66 69 6c 65 3e 20 69 73 ┆ begin <* <outfile> is┆
0x28720…28740 20 74 6f 20 62 65 20 72 65 61 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 6a 20 2b 20 ┆ to be read *> j := j + ┆
0x28740…28760 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 20 6a 2c 20 61 72 72 29 3d ┆1; if system(4, j, arr)=┆
0x28760…2877a 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆8 shift 12 + 10 then ┆
0x2877a…28780 (0x518,0x510)
0x28780…287a0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 61 72 72 28 31 29 3d 72 65 61 ┆ begin if arr(1)=rea┆
0x287a0…287c0 6c 20 3c 3a 6e 6f 3a 3e 20 74 68 65 6e 20 6c 69 73 74 20 3a 3d 20 66 61 6c 73 65 0a 20 20 20 20 ┆l <:no:> then list := false ┆
0x287c0…287e0 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 20 20 20 ┆ else begin ┆
0x287e0…28800 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 6f 75 74 66 69 6c 65 2c 20 00 00 00 00 00 00 00 00 ┆ to_from(outfile, ┆
0x28800…28806 (324,) (0x518,0x511)
0x28806…28820 61 72 72 2c 20 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 20 ┆arr, 8); list ┆
0x28820…28840 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆:= true; end; ┆
0x28840…28860 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 73 79 73 74 65 6d 28 39 2c 20 6a 2c 20 ┆ end else system(9, j, ┆
0x28860…2887e 3c 3a 3c 31 30 3e 63 61 6c 6c 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 ┆<:<10>call:>); end ┆
0x2887e…28884 (0x518,0x512)
0x28884…288a0 20 65 6c 73 65 20 69 66 20 6a 3c 3e 69 6e 5f 6e 6f 20 6f 72 20 69 3c 3e 34 20 73 68 ┆ else if j<>in_no or i<>4 sh┆
0x288a0…288c0 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 6a 2c 20 3c 3a ┆ift 12 + 10 then system(9, j, <:┆
0x288c0…288e0 3c 31 30 3e 63 61 6c 6c 3a 3e 29 3b 0a 20 20 20 20 20 20 6a 20 3a 3d 20 6a 20 2b 20 31 3b 0a 20 ┆<10>call:>); j := j + 1; ┆
0x288e0…288fc 20 20 20 65 6e 64 20 66 6f 72 3b 0a 20 20 20 20 69 66 20 6e 65 77 63 61 74 28 31 29 ┆ end for; if newcat(1)┆
0x288fc…28902 (0x518,0x513)
0x28902…28920 3d 6c 6f 6e 67 20 3c 3a 3a 3e 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆=long <::> then begin ┆
0x28920…28940 20 20 6f 70 65 6e 28 7a 6f 6e 65 77 2c 20 34 2c 20 3c 3a 3a 3e 2c 20 30 29 3b 0a 20 20 20 20 20 ┆ open(zonew, 4, <::>, 0); ┆
0x28940…28960 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 74 61 69 ┆ for i:=2 step 1 until 10 do tai┆
0x28960…2897a 6c 28 69 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 74 61 69 6c 28 31 29 20 3a ┆l(i) := 0; tail(1) :┆
0x2897a…28980 (0x518,0x514)
0x28980…289a0 3d 20 31 3b 0a 20 20 20 20 20 20 74 61 69 6c 28 36 29 20 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c ┆= 1; tail(6) := systime(7,┆
0x289a0…289c0 20 30 2c 20 73 68 6f 72 74 29 3b 0a 20 20 20 20 20 20 6d 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 ┆ 0, short); m := monitor(4┆
0x289c0…289e0 30 29 20 63 72 20 65 6e 74 72 20 3a 28 20 7a 6f 6e 65 77 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 ┆0) cr entr :( zonew, 0, tail); ┆
0x289e0…28a00 20 20 20 20 20 69 66 20 6d 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 00 00 00 00 00 00 00 00 ┆ if m>0 then system( ┆
0x28a00…28a06 (325,) (0x518,0x515)
0x28a06…28a20 39 2c 20 6d 2c 20 3c 3a 3c 31 30 3e 74 65 6d 70 20 63 72 3a 3e 29 3b 0a 20 20 ┆9, m, <:<10>temp cr:>); ┆
0x28a20…28a40 20 20 20 20 67 65 74 7a 6f 6e 65 36 28 7a 6f 6e 65 77 2c 20 69 61 29 3b 0a 20 20 20 20 20 20 63 ┆ getzone6(zonew, ia); c┆
0x28a40…28a60 6c 6f 73 65 28 7a 6f 6e 65 77 2c 20 74 72 75 65 29 3b 0a 20 20 20 20 20 20 6e 65 77 63 61 74 28 ┆lose(zonew, true); newcat(┆
0x28a60…28a7e 31 29 20 3a 3d 20 65 78 74 65 6e 64 20 69 61 28 32 29 20 73 68 69 66 74 20 32 34 20 61 64 ┆1) := extend ia(2) shift 24 ad┆
0x28a7e…28a84 (0x518,0x516)
0x28a84…28aa0 64 20 69 61 28 33 29 3b 0a 20 20 20 20 20 20 6e 65 77 63 61 74 28 32 29 20 3a 3d 20 ┆d ia(3); newcat(2) := ┆
0x28aa0…28ac0 65 78 74 65 6e 64 20 69 61 28 34 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 69 61 28 35 29 3b ┆extend ia(4) shift 24 add ia(5);┆
0x28ac0…28ae0 0a 20 20 20 20 20 20 74 65 6d 70 6e 65 77 63 61 74 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 65 ┆ tempnewcat := true; e┆
0x28ae0…28afc 6e 64 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆nd else begin ┆
0x28afc…28b02 (0x518,0x517)
0x28b02…28b20 74 65 6d 70 6e 65 77 63 61 74 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 6b 20 3a ┆tempnewcat := false; k :┆
0x28b20…28b40 3d 20 31 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 6f 6e 65 77 2c 20 34 2c 20 6e 65 77 63 61 74 ┆= 1; open(zonew, 4, newcat┆
0x28b40…28b60 28 69 6e 63 72 65 61 73 65 28 6b 29 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 6d 20 3a 3d 20 6d 6f ┆(increase(k)), 0); m := mo┆
0x28b60…28b7a 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 20 3a 28 20 7a 6f 6e 65 77 2c ┆nitor(42) lookup :( zonew,┆
0x28b7a…28b80 (0x518,0x518)
0x28b80…28ba0 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 69 66 20 6d 3d 33 20 74 68 65 6e 0a 20 20 20 ┆ 0, tail); if m=3 then ┆
0x28ba0…28bc0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 20 31 ┆ begin for i:=2 step 1┆
0x28bc0…28be0 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 74 61 69 6c 28 69 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆ until 10 do tail(i) := 0; ┆
0x28be0…28c00 20 20 20 74 61 69 6c 28 31 29 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ tail(1) := 1; ┆
0x28c00…28c06 (326,) (0x518,0x519)
0x28c06…28c20 20 74 61 69 6c 28 36 29 20 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c 20 30 2c 20 ┆ tail(6) := systime(7, 0, ┆
0x28c20…28c40 73 68 6f 72 74 29 3b 0a 20 20 20 20 20 20 20 20 6d 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 30 29 ┆short); m := monitor(40)┆
0x28c40…28c60 20 63 72 20 65 6e 74 72 20 3a 28 20 7a 6f 6e 65 77 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 ┆ cr entr :( zonew, 0, tail); ┆
0x28c60…28c7e 20 20 20 20 20 69 66 20 6d 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 6d 2c 20 ┆ if m>0 then system(9, m, ┆
0x28c7e…28c84 (0x518,0x51a)
0x28c84…28ca0 3c 3a 3c 31 30 3e 74 65 6d 70 20 63 72 65 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 ┆<:<10>temp cre:>); end┆
0x28ca0…28cc0 0a 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 6d 3c 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 ┆ else if m<>0 then system(┆
0x28cc0…28ce0 39 2c 20 6d 2c 3c 3a 3c 31 30 3e 6e 65 77 63 61 74 3a 3e 29 3b 0a 20 20 20 20 20 20 63 6c 6f 73 ┆9, m,<:<10>newcat:>); clos┆
0x28ce0…28cfc 65 28 7a 6f 6e 65 77 2c 20 74 72 75 65 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆e(zonew, true); end; ┆
0x28cfc…28d02 (0x518,0x51b)
0x28d02…28d20 20 69 66 20 2d 2c 69 6e 69 74 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ if -,init then begin ┆
0x28d20…28d40 20 20 6b 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 2c 20 34 2c 20 73 74 72 69 6e ┆ k := 1; open(z, 4, strin┆
0x28d40…28d60 67 20 6f 6c 64 63 61 74 28 69 6e 63 72 65 61 73 65 28 6b 29 29 2c 20 31 20 73 68 69 66 74 20 31 ┆g oldcat(increase(k)), 1 shift 1┆
0x28d60…28d7a 38 29 3b 0a 20 20 20 20 20 20 6d 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 ┆8); m := monitor(42)┆
0x28d7a…28d80 (0x518,0x51c)
0x28d80…28da0 6c 6f 6f 6b 75 70 3a 28 20 7a 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 69 66 20 6d ┆lookup:( z, 0, tail); if m┆
0x28da0…28dc0 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 6d 2c 20 3c 3a 3c 31 30 3e 6f 6c 64 63 61 ┆>0 then system(9, m, <:<10>oldca┆
0x28dc0…28de0 74 3a 3e 29 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 6f 6f 6c 64 2c 20 34 2c 20 3c 3a 3a 3e 2c ┆t:>); open(zoold, 4, <::>,┆
0x28de0…28e00 20 30 29 3b 0a 20 20 20 20 20 20 74 61 69 6c 2e 6e 61 6d 65 28 31 29 20 00 00 00 00 00 00 00 00 ┆ 0); tail.name(1) ┆
0x28e00…28e06 (327,) (0x518,0x51d)
0x28e06…28e20 3a 3d 20 6c 6f 6e 67 20 3c 3a 3a 3e 3b 0a 20 20 20 20 20 20 74 61 69 6c 2e 6e ┆:= long <::>; tail.n┆
0x28e20…28e40 61 6d 65 28 32 29 20 3a 3d 20 6c 6f 6e 67 20 3c 3a 3a 3e 3b 0a 20 20 20 20 20 20 6d 20 3a 3d 20 ┆ame(2) := long <::>; m := ┆
0x28e40…28e60 6d 6f 6e 69 74 6f 72 28 34 30 29 63 72 65 61 74 65 20 65 6e 74 72 79 3a 28 20 7a 6f 6f 6c 64 2c ┆monitor(40)create entry:( zoold,┆
0x28e60…28e7e 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 69 66 20 6d 3e 30 20 74 68 65 6e 20 73 ┆ 0, tail); if m>0 then s┆
0x28e7e…28e84 (0x518,0x51e)
0x28e84…28ea0 79 73 74 65 6d 28 39 2c 20 6d 2c 20 3c 3a 3c 31 30 3e 74 65 6d 70 20 63 72 65 3a 3e ┆ystem(9, m, <:<10>temp cre:>┆
0x28ea0…28ec0 29 3b 0a 20 20 20 20 20 20 67 65 74 7a 6f 6e 65 36 28 7a 6f 6f 6c 64 2c 20 69 61 29 3b 20 20 3c ┆); getzone6(zoold, ia); <┆
0x28ec0…28ee0 2a 20 67 65 74 20 61 72 65 61 2d 6e 61 6d 65 20 2a 3e 0a 20 20 20 20 20 20 63 6c 6f 73 65 28 7a ┆* get area-name *> close(z┆
0x28ee0…28efc 6f 6f 6c 64 2c 20 74 72 75 65 29 3b 0a 20 20 20 20 20 20 61 72 72 28 31 29 20 3a 3d ┆oold, true); arr(1) :=┆
0x28efc…28f02 (0x518,0x51f)
0x28f02…28f20 20 30 2e 30 20 73 68 69 66 74 20 32 34 20 61 64 64 20 69 61 28 32 29 20 73 68 69 66 74 20 ┆ 0.0 shift 24 add ia(2) shift ┆
0x28f20…28f40 32 34 20 61 64 64 20 69 61 28 33 29 3b 0a 20 20 20 20 20 20 61 72 72 28 32 29 20 3a 3d 20 30 2e ┆24 add ia(3); arr(2) := 0.┆
0x28f40…28f60 30 20 73 68 69 66 74 20 32 34 20 61 64 64 20 69 61 28 34 29 20 73 68 69 66 74 20 32 34 20 61 64 ┆0 shift 24 add ia(4) shift 24 ad┆
0x28f60…28f7a 64 20 69 61 28 35 29 3b 0a 20 20 20 20 20 20 6b 20 3a 3d 20 31 3b 0a 20 20 20 ┆d ia(5); k := 1; ┆
0x28f7a…28f80 (0x518,0x520)
0x28f80…28fa0 20 20 20 6f 70 65 6e 28 7a 6f 6f 6c 64 2c 20 34 2c 20 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 ┆ open(zoold, 4, string arr(inc┆
0x28fa0…28fc0 72 65 61 73 65 28 6b 29 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 6f 6b 20 3a 3d 20 74 72 75 65 3b ┆rease(k)), 0); ok := true;┆
0x28fc0…28fe0 0a 20 20 20 20 20 20 66 6f 72 20 6b 3a 3d 31 20 77 68 69 6c 65 20 6f 6b 20 64 6f 0a 20 20 20 20 ┆ for k:=1 while ok do ┆
0x28fe0…29000 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 00 00 00 00 00 00 00 00 ┆ begin inrec6(z ┆
0x29000…29006 (328,) (0x518,0x521)
0x29006…29020 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 7a 6f ┆, 512); outrec6(zo┆
0x29020…29040 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 6c 3a 3d 31 20 73 74 65 70 ┆old, 512); for l:=1 step┆
0x29040…29060 20 31 20 75 6e 74 69 6c 20 31 32 38 20 64 6f 0a 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 28 6c 29 ┆ 1 until 128 do zoold(l)┆
0x29060…2907e 20 3a 3d 20 7a 28 6c 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 63 6f 70 79 65 6e 64 3a 0a ┆ := z(l); end; copyend: ┆
0x2907e…29084 (0x518,0x522)
0x29084…290a0 20 20 20 20 20 20 63 6c 6f 73 65 28 7a 2c 20 74 72 75 65 29 3b 0a 20 20 20 20 65 6e ┆ close(z, true); en┆
0x290a0…290c0 64 3b 0a 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆d; if list then begin ┆
0x290c0…290e0 20 20 20 20 6b 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 6f 6f 75 74 2c 20 34 2c ┆ k := 1; open(zoout, 4,┆
0x290e0…290fc 20 6f 75 74 66 69 6c 65 28 69 6e 63 72 65 61 73 65 28 6b 29 29 2c 20 30 29 3b 0a 20 ┆ outfile(increase(k)), 0); ┆
0x290fc…29102 (0x518,0x523)
0x29102…29120 20 20 20 20 20 6d 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 20 3a ┆ m := monitor(42) lookup :┆
0x29120…29140 28 20 7a 6f 6f 75 74 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 69 66 20 6d 3d 33 20 ┆( zoout, 0, tail); if m=3 ┆
0x29140…29160 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 66 6f 72 20 69 3a 3d ┆then begin for i:=┆
0x29160…2917a 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 74 61 69 6c 28 ┆2 step 1 until 10 do tail(┆
0x2917a…29180 (0x518,0x524)
0x29180…291a0 69 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 74 61 69 6c 28 31 29 20 3a 3d 20 31 3b 0a 20 ┆i) := 0; tail(1) := 1; ┆
0x291a0…291c0 20 20 20 20 20 20 20 74 61 69 6c 28 36 29 20 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c 20 30 2c 20 ┆ tail(6) := systime(7, 0, ┆
0x291c0…291e0 73 68 6f 72 74 29 3b 0a 20 20 20 20 20 20 20 20 6d 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 30 29 ┆short); m := monitor(40)┆
0x291e0…29200 63 72 20 65 6e 74 72 20 3a 28 20 7a 6f 6f 75 74 2c 20 30 2c 20 74 61 69 00 00 00 00 00 00 00 00 ┆cr entr :( zoout, 0, tai ┆
0x29200…29206 (329,) (0x518,0x525)
0x29206…29220 6c 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6d 3e 30 20 74 68 65 6e 20 73 79 ┆l); if m>0 then sy┆
0x29220…29240 73 74 65 6d 28 39 2c 20 6d 2c 3c 3a 3c 31 30 3e 74 65 6d 70 20 63 72 65 3a 3e 29 3b 0a 20 20 20 ┆stem(9, m,<:<10>temp cre:>); ┆
0x29240…29260 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 6d 3c 3e 30 20 74 68 65 6e 20 73 ┆ end else if m<>0 then s┆
0x29260…2927e 79 73 74 65 6d 28 39 2c 20 6d 2c 20 3c 3a 3c 31 30 3e 6f 75 74 66 69 6c 65 3a 3e 29 3b 0a ┆ystem(9, m, <:<10>outfile:>); ┆
0x2927e…29284 (0x518,0x526)
0x29284…292a0 20 20 20 20 20 20 63 6c 6f 73 65 28 7a 6f 6f 75 74 2c 20 74 72 75 65 29 3b 0a 20 20 ┆ close(zoout, true); ┆
0x292a0…292c0 20 20 65 6e 64 3b 0a 20 20 65 6e 64 20 66 70 2d 70 61 72 61 6d 3b 0a 0c 20 20 3c 2a 20 69 6e 69 ┆ end; end fp-param; <* ini┆
0x292c0…292e0 74 69 61 6c 69 7a 65 20 63 61 74 5f 74 61 62 6c 65 20 61 6e 64 20 71 75 6f 74 65 5f 74 61 62 6c ┆tialize cat_table and quote_tabl┆
0x292e0…292fc 65 20 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a ┆e *> begin integer i; ┆
0x292fc…29302 (0x518,0x527)
0x29302…29320 20 20 20 20 3c 2a 20 63 61 74 5f 74 61 62 6c 65 2d 6b 69 6e 64 73 3a 0a 20 20 20 20 20 20 ┆ <* cat_table-kinds: ┆
0x29320…29340 20 30 3a 20 20 73 61 6d 65 20 61 73 20 69 73 6f 2e 0a 20 20 20 20 20 20 20 31 3a 20 20 67 72 65 ┆ 0: same as iso. 1: gre┆
0x29340…29360 61 74 20 6e 75 6d 62 65 72 2e 0a 20 20 20 20 20 20 20 32 3a 20 20 6e 75 6d 62 65 72 2e 0a 20 20 ┆at number. 2: number. ┆
0x29360…2937a 20 20 20 20 20 33 3a 20 20 73 69 67 6e 73 2e 0a 20 20 20 20 20 20 20 36 3a 20 ┆ 3: signs. 6: ┆
0x2937a…29380 (0x518,0x528)
0x29380…293a0 20 6c 65 74 74 65 72 73 2e 0a 20 20 20 20 20 20 20 37 3a 20 20 73 70 61 63 65 2e 0a 20 20 20 20 ┆ letters. 7: space. ┆
0x293a0…293c0 20 20 20 38 3a 20 20 71 75 6f 74 65 2c 20 66 66 2c 20 6e 6c 20 61 6e 64 20 65 6d 2e 0a 20 20 20 ┆ 8: quote, ff, nl and em. ┆
0x293c0…293e0 20 20 20 20 39 3a 20 20 74 68 65 20 72 65 73 74 2c 20 69 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 ┆ 9: the rest, illegal charac┆
0x293e0…29400 74 65 72 73 2e 0a 20 20 20 20 2a 3e 0a 20 20 20 20 66 6f 72 20 69 3a 3d 00 00 00 00 00 00 00 00 ┆ters. *> for i:= ┆
0x29400…29406 (330,) (0x518,0x529)
0x29406…29420 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 34 37 2c 20 35 38 20 73 74 65 70 ┆1 step 1 until 47, 58 step┆
0x29420…29440 20 31 20 75 6e 74 69 6c 20 36 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 39 34 2c 20 39 35 2c 20 ┆ 1 until 64, 94, 95, ┆
0x29440…29460 39 36 2c 20 31 32 36 0a 20 20 20 20 64 6f 20 63 61 74 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 39 ┆96, 126 do cat_table(i) := 9┆
0x29460…2947e 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 2c 20 31 ┆ shift 12 + i; for i:=0, 1┆
0x2947e…29484 (0x518,0x52a)
0x29484…294a0 33 2c 20 31 32 37 20 64 6f 20 63 61 74 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 30 20 ┆3, 127 do cat_table(i) := 0 ┆
0x294a0…294c0 73 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 34 38 20 73 74 65 70 ┆shift 12 + i; for i:=48 step┆
0x294c0…294e0 20 31 20 75 6e 74 69 6c 20 35 37 20 64 6f 20 63 61 74 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 32 ┆ 1 until 57 do cat_table(i) := 2┆
0x294e0…294fc 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 20 63 61 74 5f 74 61 62 6c 65 ┆ shift 12 + i; cat_table┆
0x294fc…29502 (0x518,0x52b)
0x29502…29520 28 34 33 29 20 3a 3d 20 33 20 73 68 69 66 74 20 31 32 20 2b 20 34 33 3b 0a 20 20 20 20 63 ┆(43) := 3 shift 12 + 43; c┆
0x29520…29540 61 74 5f 74 61 62 6c 65 28 34 35 29 20 3a 3d 20 33 20 73 68 69 66 74 20 31 32 20 2b 20 34 35 3b ┆at_table(45) := 3 shift 12 + 45;┆
0x29540…29560 0a 20 20 20 20 66 6f 72 20 69 3a 3d 36 35 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 39 33 20 64 ┆ for i:=65 step 1 until 93 d┆
0x29560…2957a 6f 20 63 61 74 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 36 20 73 68 69 66 74 20 ┆o cat_table(i) := 6 shift ┆
0x2957a…29580 (0x518,0x52c)
0x29580…295a0 31 32 20 2b 20 69 2b 33 32 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 39 37 20 73 74 65 70 20 31 20 ┆12 + i+32; for i:=97 step 1 ┆
0x295a0…295c0 75 6e 74 69 6c 20 31 32 35 20 64 6f 20 63 61 74 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 36 20 73 ┆until 125 do cat_table(i) := 6 s┆
0x295c0…295e0 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 20 63 61 74 5f 74 61 62 6c 65 28 33 32 29 20 3a ┆hift 12 + i; cat_table(32) :┆
0x295e0…29600 3d 20 37 20 73 68 69 66 74 20 31 32 20 2b 20 33 32 3b 0a 20 20 20 20 66 00 00 00 00 00 00 00 00 ┆= 7 shift 12 + 32; f ┆
0x29600…29606 (331,) (0x518,0x52d)
0x29606…29620 6f 72 20 69 3a 3d 31 30 2c 20 31 32 2c 20 32 35 2c 20 33 34 20 64 6f 20 63 61 ┆or i:=10, 12, 25, 34 do ca┆
0x29620…29640 74 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 38 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 0a 20 ┆t_table(i) := 8 shift 12 + i; ┆
0x29640…29660 20 20 20 3c 2a 20 71 75 6f 74 65 5f 74 61 62 6c 65 2d 6b 69 6e 64 73 3a 0a 20 20 20 20 20 20 20 ┆ <* quote_table-kinds: ┆
0x29660…2967e 30 3a 20 20 73 61 6d 65 20 61 73 20 69 73 6f 2e 0a 20 20 20 20 20 20 20 38 3a 20 20 71 75 ┆0: same as iso. 8: qu┆
0x2967e…29684 (0x518,0x52e)
0x29684…296a0 6f 74 65 20 61 6e 64 20 65 6d 2e 0a 20 20 20 20 20 20 20 36 3a 20 20 74 68 65 20 72 ┆ote and em. 6: the r┆
0x296a0…296c0 65 73 74 2e 0a 20 20 20 20 2a 3e 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 ┆est. *> for i:=1 step 1 ┆
0x296c0…296e0 75 6e 74 69 6c 20 31 32 37 20 64 6f 20 71 75 6f 74 65 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 36 ┆until 127 do quote_table(i) := 6┆
0x296e0…296fc 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 2c ┆ shift 12 + i; for i:=0,┆
0x296fc…29702 (0x518,0x52f)
0x29702…29720 20 31 33 2c 20 31 32 37 20 64 6f 20 71 75 6f 74 65 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 ┆ 13, 127 do quote_table(i) := ┆
0x29720…29740 30 20 73 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 32 35 2c 20 33 ┆0 shift 12 + i; for i:=25, 3┆
0x29740…29760 34 20 64 6f 20 71 75 6f 74 65 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 38 20 73 68 69 66 74 20 31 ┆4 do quote_table(i) := 8 shift 1┆
0x29760…2977a 32 20 2b 20 69 3b 0a 0a 20 20 20 20 69 6e 74 61 62 6c 65 28 63 61 74 5f 74 61 ┆2 + i; intable(cat_ta┆
0x2977a…29780 (0x518,0x530)
0x29780…297a0 62 6c 65 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 3c 2a 20 69 6e 69 74 69 61 6c 69 7a 65 20 70 61 ┆ble); end; <* initialize pa┆
0x297a0…297c0 72 61 6d 20 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 ┆ram *> begin integer i; ┆
0x297c0…297e0 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 32 20 64 6f 0a 20 20 ┆ for i:=0 step 1 until 22 do ┆
0x297e0…29800 20 20 70 61 72 61 6d 28 69 29 20 3a 3d 20 6c 6f 6e 67 20 28 63 61 73 65 00 00 00 00 00 00 00 00 ┆ param(i) := long (case ┆
0x29800…29806 (332,) (0x518,0x531)
0x29806…29820 20 28 69 2b 31 29 20 6f 66 20 28 0a 20 20 20 20 20 20 3c 3a 65 6e 64 3a 3e 2c ┆ (i+1) of ( <:end:>,┆
0x29820…29840 0a 20 20 20 20 20 20 3c 3a 6d 61 78 70 3a 3e 2c 20 3c 3a 70 72 6f 63 3a 3e 2c 20 3c 3a 64 70 72 ┆ <:maxp:>, <:proc:>, <:dpr┆
0x29840…29860 6f 3a 3e 2c 20 3c 3a 63 70 72 6f 3a 3e 2c 20 3c 3a 69 70 72 6f 3a 3e 2c 0a 20 20 20 20 20 20 3c ┆o:>, <:cpro:>, <:ipro:>, <┆
0x29860…2987e 3a 62 75 66 3a 3e 2c 20 20 3c 3a 61 72 65 61 3a 3e 2c 20 3c 3a 73 74 64 62 3a 3e 2c 20 3c ┆:buf:>, <:area:>, <:stdb:>, <┆
0x2987e…29884 (0x518,0x532)
0x29884…298a0 3a 75 73 65 72 3a 3e 2c 20 3c 3a 6d 61 78 62 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 70 ┆:user:>, <:maxb:>, <:p┆
0x298a0…298c0 61 73 73 3a 3e 2c 20 3c 3a 6d 69 6e 73 3a 3e 2c 20 3c 3a 6d 61 78 73 3a 3e 2c 0a 20 20 20 20 20 ┆ass:>, <:mins:>, <:maxs:>, ┆
0x298c0…298e0 20 3c 3a 66 70 3a 3e 2c 20 20 20 3c 3a 62 73 3a 3e 2c 20 3c 3a 6b 65 79 30 3a 3e 2c 20 3c 3a 6b ┆ <:fp:>, <:bs:>, <:key0:>, <:k┆
0x298e0…298fc 65 79 31 3a 3e 2c 20 3c 3a 6b 65 79 32 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 6b 65 79 ┆ey1:>, <:key2:>, <:key┆
0x298fc…29902 (0x518,0x533)
0x29902…29920 33 3a 3e 2c 20 3c 3a 64 74 65 72 3a 3e 2c 20 3c 3a 74 65 72 6d 3a 3e 2c 20 3c 3a 3a 3e 29 ┆3:>, <:dter:>, <:term:>, <::>)┆
0x29920…29940 20 20 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 64 61 74 61 5f 65 72 72 6f 72 20 3a 3d 20 66 61 6c ┆ ); end; data_error := fal┆
0x29940…29960 73 65 3b 0a 20 20 65 6d 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c ┆se; em := false; elem_in_val┆
0x29960…2997a 20 3a 3d 20 30 3b 0a 20 20 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 20 3a 3d 20 ┆ := 0; elem_in_glval := ┆
0x2997a…29980 (0x518,0x534)
0x29980…299a0 31 3b 0a 20 20 67 6c 76 61 6c 28 31 29 20 3a 3d 20 67 6c 6b 69 6e 64 28 31 29 20 3a 3d 20 30 3b ┆1; glval(1) := glkind(1) := 0;┆
0x299a0…299c0 0a 20 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 31 3b 0a 20 20 70 72 6f 63 5f 6e 61 6d 65 28 31 29 ┆ valindex := 1; proc_name(1)┆
0x299c0…299e0 20 3a 3d 20 70 72 6f 63 5f 6e 61 6d 65 28 32 29 20 3a 3d 20 6c 6f 6e 67 20 3c 3a 3a 3e 3b 0a 20 ┆ := proc_name(2) := long <::>; ┆
0x299e0…29a00 20 6e 6f 20 3a 3d 20 30 3b 0a 20 20 70 61 20 3a 3d 20 31 3b 0a 20 20 74 00 00 00 00 00 00 00 00 ┆ no := 0; pa := 1; t ┆
0x29a00…29a06 (333,) (0x518,0x535)
0x29a06…29a20 72 20 3a 3d 20 32 3b 0a 20 20 6e 6c 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 ┆r := 2; nl := false add ┆
0x29a20…29a40 31 30 3b 0a 20 20 73 70 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 33 32 3b 0a 20 20 77 6f 72 64 ┆10; sp := false add 32; word┆
0x29a40…29a60 20 3a 3d 20 30 3b 0a 20 20 62 61 73 65 20 3a 3d 20 30 3b 0a 20 20 73 65 67 6d 20 3a 3d 20 31 30 ┆ := 0; base := 0; segm := 10┆
0x29a60…29a7e 3b 0a 20 20 65 78 69 64 20 3a 3d 20 30 3b 0a 20 20 69 6e 74 69 64 20 3a 3d 20 31 30 3b 0a ┆; exid := 0; intid := 10; ┆
0x29a7e…29a84 (0x518,0x536)
0x29a84…29aa0 20 20 6b 65 79 20 3a 3d 20 31 30 3b 0a 20 20 62 75 66 73 20 3a 3d 20 31 39 3b 0a 20 ┆ key := 10; bufs := 19; ┆
0x29aa0…29ac0 20 74 69 6d 65 20 3a 3d 20 32 30 3b 0a 20 20 62 75 66 20 3a 3d 20 31 3b 20 20 61 72 65 61 20 3a ┆ time := 20; buf := 1; area :┆
0x29ac0…29ae0 3d 20 62 75 66 20 2b 20 31 3b 0a 20 20 73 74 64 31 20 3a 3d 20 61 72 65 61 20 2b 20 32 3b 20 20 ┆= buf + 1; std1 := area + 2; ┆
0x29ae0…29afc 73 74 64 32 20 3a 3d 20 73 74 64 31 20 2b 20 32 3b 0a 20 20 75 73 65 31 20 3a 3d 20 ┆std2 := std1 + 2; use1 := ┆
0x29afc…29b02 (0x518,0x537)
0x29b02…29b20 73 74 64 32 20 2b 20 32 3b 20 20 75 73 65 32 20 3a 3d 20 75 73 65 31 20 2b 20 32 3b 0a 20 ┆std2 + 2; use2 := use1 + 2; ┆
0x29b20…29b40 20 6d 61 78 31 20 3a 3d 20 75 73 65 32 20 2b 20 32 3b 20 20 6d 61 78 32 20 3a 3d 20 6d 61 78 31 ┆ max1 := use2 + 2; max2 := max1┆
0x29b40…29b60 20 2b 20 32 3b 0a 20 20 70 61 73 73 20 3a 3d 20 6d 61 78 32 3b 0a 20 20 6d 69 6e 73 20 3a 3d 20 ┆ + 2; pass := max2; mins := ┆
0x29b60…29b7a 70 61 73 73 20 2b 20 31 30 3b 0a 20 20 6d 61 78 73 20 3a 3d 20 6d 69 6e 73 20 ┆pass + 10; maxs := mins ┆
0x29b7a…29b80 (0x518,0x538)
0x29b80…29ba0 2b 20 32 3b 0a 20 20 66 70 20 3a 3d 20 6d 61 78 73 20 2b 20 31 30 3b 0a 20 20 70 65 72 6d 31 20 ┆+ 2; fp := maxs + 10; perm1 ┆
0x29ba0…29bc0 3a 3d 20 66 70 20 2b 20 34 30 3b 0a 20 20 64 65 76 20 3a 3d 20 30 3b 20 20 6b 30 65 20 3a 3d 20 ┆:= fp + 40; dev := 0; k0e := ┆
0x29bc0…29be0 64 65 76 20 2b 20 31 30 3b 20 6b 30 73 20 3a 3d 20 6b 30 65 20 2b 20 32 3b 0a 20 20 69 6e 64 65 ┆dev + 10; k0s := k0e + 2; inde┆
0x29be0…29c00 78 5f 6c 67 74 20 3a 3d 20 31 30 3b 0a 20 20 70 72 6f 63 5f 64 65 73 5f 00 00 00 00 00 00 00 00 ┆x_lgt := 10; proc_des_ ┆
0x29c00…29c06 (334,) (0x518,0x539)
0x29c06…29c20 6c 67 74 20 3a 3d 20 33 36 34 3b 0a 20 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 ┆lgt := 364; term_des_lgt┆
0x29c20…29c40 20 3a 3d 20 32 36 3b 0a 20 20 70 72 6f 63 5f 70 61 5f 6c 67 74 20 3a 3d 20 70 72 6f 63 5f 64 65 ┆ := 26; proc_pa_lgt := proc_de┆
0x29c40…29c60 73 5f 6c 67 74 2f 2f 32 3b 0a 20 20 74 65 72 6d 5f 70 61 5f 6c 67 74 20 3a 3d 20 74 65 72 6d 5f ┆s_lgt//2; term_pa_lgt := term_┆
0x29c60…29c7e 64 65 73 5f 6c 67 74 2f 2f 32 3b 0a 20 20 6e 6f 5f 6f 66 5f 62 73 20 3a 3d 20 31 32 3b 20 ┆des_lgt//2; no_of_bs := 12; ┆
0x29c7e…29c84 (0x518,0x53a)
0x29c84…29ca0 3c 2a 20 31 32 20 62 73 20 64 65 76 69 63 65 73 20 61 6c 6c 6f 77 65 64 20 2a 3e 0a ┆<* 12 bs devices allowed *> ┆
0x29ca0…29cc0 20 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 20 3a 3d 20 28 35 31 32 2d 36 29 2f 2f 69 6e 64 65 ┆ proc_pr_index := (512-6)//inde┆
0x29cc0…29ce0 78 5f 6c 67 74 3b 0a 20 20 74 65 72 6d 5f 70 72 5f 70 72 73 65 67 6d 20 3a 3d 20 28 35 31 32 2d ┆x_lgt; term_pr_prsegm := (512-┆
0x29ce0…29cfc 32 2d 70 72 6f 63 5f 64 65 73 5f 6c 67 74 29 2f 2f 74 65 72 6d 5f 64 65 73 5f 6c 67 ┆2-proc_des_lgt)//term_des_lg┆
0x29cfc…29d02 (0x518,0x53b)
0x29d02…29d20 74 3b 0a 20 20 74 65 72 6d 5f 70 72 5f 73 65 67 6d 20 3a 3d 20 28 35 31 32 2d 32 29 2f 2f ┆t; term_pr_segm := (512-2)//┆
0x29d20…29d40 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 66 72 65 65 5f 77 5f 70 72 73 65 67 6d 20 3a 3d ┆term_des_lgt; free_w_prsegm :=┆
0x29d40…29d60 20 70 72 6f 63 5f 64 65 73 5f 6c 67 74 20 2b 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 2a 74 65 72 ┆ proc_des_lgt + term_des_lgt*ter┆
0x29d60…29d7a 6d 5f 70 72 5f 70 72 73 65 67 6d 20 2b 20 32 3b 0a 20 20 66 72 65 65 5f 77 5f ┆m_pr_prsegm + 2; free_w_┆
0x29d7a…29d80 (0x518,0x53c)
0x29d80…29da0 73 65 67 6d 20 3a 3d 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 2a 74 65 72 6d 5f 70 72 5f 73 65 67 ┆segm := term_des_lgt*term_pr_seg┆
0x29da0…29dc0 6d 20 2b 20 32 3b 0a 20 20 67 72 65 61 74 5f 74 72 6e 6f 20 3a 3d 20 35 3b 0a 20 20 74 72 5f 65 ┆m + 2; great_trno := 5; tr_e┆
0x29dc0…29de0 6e 64 20 3a 3d 20 30 3b 0a 20 20 74 72 5f 6d 61 78 70 20 3a 3d 20 31 3b 0a 20 20 74 72 5f 70 72 ┆nd := 0; tr_maxp := 1; tr_pr┆
0x29de0…29e00 6f 63 20 3a 3d 20 32 3b 0a 20 20 70 61 5f 74 65 72 6d 20 3a 3d 20 32 31 00 00 00 00 00 00 00 00 ┆oc := 2; pa_term := 21 ┆
0x29e00…29e06 (335,) (0x518,0x53d)
0x29e06…29e20 3b 0a 20 20 70 61 5f 64 74 65 72 6d 20 3a 3d 20 32 30 3b 0a 20 20 69 20 3a 3d ┆; pa_dterm := 20; i :=┆
0x29e20…29e40 20 31 3b 0a 20 20 6f 70 65 6e 28 7a 6f 6e 65 77 2c 20 34 2c 20 73 74 72 69 6e 67 20 6e 65 77 63 ┆ 1; open(zonew, 4, string newc┆
0x29e40…29e60 61 74 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 30 29 3b 0a 0a 0a 0c 20 20 69 66 20 69 6e 69 ┆at(increase(i)), 0); if ini┆
0x29e60…29e7e 74 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6d 61 78 70 72 6f 63 73 20 3a 3d ┆t then begin maxprocs :=┆
0x29e7e…29e84 (0x518,0x53e)
0x29e84…29ea0 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 69 6e 64 65 78 5f 73 65 ┆ proc_pr_index; index_se┆
0x29ea0…29ec0 67 6d 20 3a 3d 20 30 3b 0a 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 74 72 61 6e 73 29 3b 0a ┆gm := 0; read_param(trans); ┆
0x29ec0…29ee0 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 69 66 20 ┆ newpa_read := false; if ┆
0x29ee0…29efc 74 72 61 6e 73 3d 74 72 5f 6d 61 78 70 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆trans=tr_maxp then begin┆
0x29efc…29f02 (0x518,0x53f)
0x29f02…29f20 0a 20 20 20 20 20 20 69 66 20 72 65 61 64 5f 6e 6f 28 6e 6f 31 29 20 74 68 65 6e 0a 20 20 ┆ if read_no(no1) then ┆
0x29f20…29f40 20 20 20 20 6d 61 78 70 72 6f 63 73 20 3a 3d 20 28 6e 6f 31 2b 70 72 6f 63 5f 70 72 5f 69 6e 64 ┆ maxprocs := (no1+proc_pr_ind┆
0x29f40…29f60 65 78 2d 31 29 2f 2f 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 2a 70 72 6f 63 5f 70 72 5f 69 6e 64 ┆ex-1)//proc_pr_index*proc_pr_ind┆
0x29f60…29f7a 65 78 3b 0a 20 20 20 20 20 20 69 6e 64 65 78 5f 73 65 67 6d 20 3a 3d 20 28 6d ┆ex; index_segm := (m┆
0x29f7a…29f80 (0x518,0x540)
0x29f80…29fa0 61 78 70 72 6f 63 73 2d 31 29 2f 2f 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 3b 0a 20 20 20 20 20 ┆axprocs-1)//proc_pr_index; ┆
0x29fa0…29fc0 20 72 65 61 64 5f 70 61 72 61 6d 28 74 72 61 6e 73 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ read_param(trans); end; ┆
0x29fc0…29fe0 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 20 3a 28 7a 6f 6e 65 77 ┆ i := monitor(42) lookup :(zonew┆
0x29fe0…2a000 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 69 66 20 69 3e 30 20 74 00 00 00 00 00 00 00 00 ┆, 0, tail); if i>0 t ┆
0x2a000…2a006 (336,) (0x518,0x541)
0x2a006…2a020 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 6c 6f 6f ┆hen system(9, i, <:<10>loo┆
0x2a020…2a040 6b 75 70 3a 3e 29 3b 0a 20 20 20 20 6d 61 78 73 65 67 6d 20 3a 3d 20 74 61 69 6c 28 31 29 20 2d ┆kup:>); maxsegm := tail(1) -┆
0x2a040…2a060 20 31 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 6d 61 78 73 65 67 6d 3c 69 ┆ 1; for i:=1 while maxsegm<i┆
0x2a060…2a07e 6e 64 65 78 5f 73 65 67 6d 20 64 6f 20 65 78 74 65 6e 64 63 61 74 28 7a 6f 6e 65 77 29 3b ┆ndex_segm do extendcat(zonew);┆
0x2a07e…2a084 (0x518,0x542)
0x2a084…2a0a0 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d ┆ for i:=0 step 1 until m┆
0x2a0a0…2a0c0 61 78 73 65 67 6d 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 65 74 70 6f 73 ┆axsegm do begin setpos┆
0x2a0c0…2a0e0 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 30 2c 69 29 3b 0a 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 ┆ition(zonew,0,i); outrec6(┆
0x2a0e0…2a0fc 7a 6f 6e 65 77 2c 35 31 32 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 ┆zonew,512); for j:=1 s┆
0x2a0fc…2a102 (0x518,0x543)
0x2a102…2a120 74 65 70 20 31 20 75 6e 74 69 6c 20 32 35 36 20 64 6f 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 ┆tep 1 until 256 do zonew.word(┆
0x2a120…2a140 6a 29 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 69 66 20 69 3e 69 6e 64 65 78 5f 73 65 67 6d 20 74 68 ┆j):=-1; if i>index_segm th┆
0x2a140…2a160 65 6e 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 69 20 2b 20 31 3b 0a 20 20 20 ┆en zonew.word(256) := i + 1; ┆
0x2a160…2a17a 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 69 3e 69 6e 64 65 78 5f 73 65 67 6d 20 ┆ end; if i>index_segm ┆
0x2a17a…2a180 (0x518,0x544)
0x2a180…2a1a0 74 68 65 6e 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 2d 31 3b 0a 0a 20 20 20 ┆then zonew.word(256) := -1; ┆
0x2a1a0…2a1c0 20 75 73 65 64 5f 73 65 67 6d 20 3a 3d 20 69 6e 64 65 78 5f 73 65 67 6d 3b 0a 20 20 20 20 69 6e ┆ used_segm := index_segm; in┆
0x2a1c0…2a1e0 64 65 78 5f 73 65 67 6d 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 70 72 6f 63 5f 63 6f 75 6e 74 20 3a ┆dex_segm := -1; proc_count :┆
0x2a1e0…2a200 3d 20 30 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 00 00 00 00 00 00 00 00 ┆= 0; for i:=1 while ┆
0x2a200…2a206 (337,) (0x518,0x545)
0x2a206…2a220 2d 2c 65 6d 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 ┆-,em do begin if┆
0x2a220…2a240 20 74 72 61 6e 73 3d 74 72 5f 65 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ trans=tr_end then begin ┆
0x2a240…2a260 20 20 20 20 20 20 20 65 6d 20 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 ┆ em :=true; goto e┆
0x2a260…2a27e 6e 64 69 6e 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆ndinit; end else ┆
0x2a27e…2a284 (0x518,0x546)
0x2a284…2a2a0 20 20 20 20 20 69 66 20 74 72 61 6e 73 3c 3e 74 72 5f 70 72 6f 63 20 74 68 65 6e 0a ┆ if trans<>tr_proc then ┆
0x2a2a0…2a2c0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 72 61 6e ┆ begin error(<:tran┆
0x2a2c0…2a2e0 73 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 74 72 61 6e ┆s:>, tr); goto read_tran┆
0x2a2e0…2a2fc 73 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f ┆s; end; if proc_┆
0x2a2fc…2a302 (0x518,0x547)
0x2a302…2a320 63 6f 75 6e 74 3e 3d 6d 61 78 70 72 6f 63 73 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 ┆count>=maxprocs then beg┆
0x2a320…2a340 69 6e 0a 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 63 61 74 20 66 75 6c 6c 3a 3e 2c 20 6e ┆in error(<:cat full:>, n┆
0x2a340…2a360 6f 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 6e 64 69 6e 69 74 3b 0a 20 20 20 20 20 20 ┆o); goto endinit; ┆
0x2a360…2a37a 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 61 6d 65 28 ┆end; if -,read_name(┆
0x2a37a…2a380 (0x518,0x548)
0x2a380…2a3a0 70 72 6f 63 5f 6e 61 6d 65 2c 20 38 29 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆proc_name, 8) then begin ┆
0x2a3a0…2a3c0 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 6e 61 6d 65 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 ┆ error(<:name:>, tr); ┆
0x2a3c0…2a3e0 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 74 72 61 6e 73 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆ goto read_trans; end; ┆
0x2a3e0…2a400 20 20 20 20 20 20 69 66 20 73 65 67 6d 5f 6e 6f 28 7a 6f 6e 65 77 2c 20 00 00 00 00 00 00 00 00 ┆ if segm_no(zonew, ┆
0x2a400…2a406 (338,) (0x518,0x549)
0x2a406…2a420 70 72 6f 63 5f 6e 61 6d 65 2c 20 70 72 6f 63 5f 62 79 74 65 29 3c 3e 2d 31 20 ┆proc_name, proc_byte)<>-1 ┆
0x2a420…2a440 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 65 72 72 6f 72 28 3c ┆then begin error(<┆
0x2a440…2a460 3a 70 72 6f 63 20 69 6e 20 63 61 74 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 ┆:proc in cat:>, tr); got┆
0x2a460…2a47e 6f 20 72 65 61 64 5f 74 72 61 6e 73 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆o read_trans; end; ┆
0x2a47e…2a484 (0x518,0x54a)
0x2a484…2a4a0 20 69 6e 69 74 5f 70 72 6f 63 28 70 72 6f 63 5f 70 61 72 61 6d 73 29 3b 0a 20 20 20 ┆ init_proc(proc_params); ┆
0x2a4a0…2a4c0 20 20 20 69 66 20 72 65 61 64 5f 70 72 6f 63 28 70 72 6f 63 5f 70 61 72 61 6d 73 29 20 74 68 65 ┆ if read_proc(proc_params) the┆
0x2a4c0…2a4e0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 63 68 65 63 6b 5f 70 ┆n begin if check_p┆
0x2a4e0…2a4fc 72 6f 63 28 70 72 6f 63 5f 70 61 72 61 6d 73 29 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆roc(proc_params) then ┆
0x2a4fc…2a502 (0x518,0x54b)
0x2a502…2a520 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 62 79 74 65 ┆ begin if proc_byte┆
0x2a520…2a540 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 5f 73 65 67 6d 20 3a ┆=0 then index_segm :┆
0x2a540…2a560 3d 20 69 6e 64 65 78 5f 73 65 67 6d 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 70 ┆= index_segm + 1; setp┆
0x2a560…2a57a 6f 73 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 69 6e 64 65 78 5f 73 65 ┆osition(zonew, 0, index_se┆
0x2a57a…2a580 (0x518,0x54c)
0x2a580…2a5a0 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 ┆gm); swoprec6(zonew, 5┆
0x2a5a0…2a5c0 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 75 73 65 64 5f 73 65 67 6d 20 3a 3d 20 75 73 65 64 ┆12); used_segm := used┆
0x2a5c0…2a5e0 5f 73 65 67 6d 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 75 73 65 64 5f 73 65 67 ┆_segm + 1; if used_seg┆
0x2a5e0…2a600 6d 3e 6d 61 78 73 65 67 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆m>maxsegm then ┆
0x2a600…2a606 (339,) (0x518,0x54d)
0x2a606…2a620 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 63 ┆ begin extendc┆
0x2a620…2a640 61 74 28 7a 6f 6e 65 77 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 ┆at(zonew); setpositi┆
0x2a640…2a660 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 69 6e 64 65 78 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 ┆on(zonew, 0, index_segm); ┆
0x2a660…2a67e 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 29 3b 0a 20 20 ┆ swoprec6(zonew, 512); ┆
0x2a67e…2a684 (0x518,0x54e)
0x2a684…2a6a0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 ┆ end; base ┆
0x2a6a0…2a6c0 3a 3d 20 70 72 6f 63 5f 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 63 6f 75 ┆:= proc_byte; proc_cou┆
0x2a6c0…2a6e0 6e 74 20 3a 3d 20 70 72 6f 63 5f 63 6f 75 6e 74 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆nt := proc_count + 1; ┆
0x2a6e0…2a6fc 74 6f 5f 66 72 6f 6d 28 7a 6f 6e 65 77 2e 62 61 73 65 2c 20 70 72 6f 63 5f 6e 61 6d ┆to_from(zonew.base, proc_nam┆
0x2a6fc…2a702 (0x518,0x54f)
0x2a702…2a720 65 2c 20 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 77 2e 62 61 73 65 2e 73 65 ┆e, 8); zonew.base.se┆
0x2a720…2a740 67 6d 20 3a 3d 20 75 73 65 64 5f 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f ┆gm := used_segm; setpo┆
0x2a740…2a760 73 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 75 73 65 64 5f 73 65 67 6d 29 3b 0a 20 20 20 ┆sition(zonew, 0, used_segm); ┆
0x2a760…2a77a 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 ┆ swoprec6(zonew, 512┆
0x2a77a…2a780 (0x518,0x550)
0x2a780…2a7a0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 ┆); zonew.word(256) := ┆
0x2a7a0…2a7c0 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 7a 6f 6e 65 77 2c 20 70 72 6f ┆-1; to_from(zonew, pro┆
0x2a7c0…2a7e0 63 5f 70 61 72 61 6d 73 2c 20 70 72 6f 63 5f 64 65 73 5f 6c 67 74 29 3b 0a 20 20 20 20 20 20 20 ┆c_params, proc_des_lgt); ┆
0x2a7e0…2a800 20 20 20 70 72 6f 63 5f 73 65 67 6d 73 20 3a 3d 20 31 3b 0a 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ proc_segms := 1; ┆
0x2a800…2a806 (340,) (0x518,0x551)
0x2a806…2a820 20 20 20 20 20 20 20 74 65 72 6d 5f 63 6f 75 6e 74 20 3a 3d 20 30 3b 0a 20 20 ┆ term_count := 0; ┆
0x2a820…2a840 20 20 20 20 20 20 20 20 74 65 72 6d 5f 73 74 61 72 74 20 3a 3d 20 70 72 6f 63 5f 64 65 73 5f 6c ┆ term_start := proc_des_l┆
0x2a840…2a860 67 74 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 70 61 72 61 6d 6e 6f ┆gt; read_param(paramno┆
0x2a860…2a87e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 3a 3d 20 74 72 75 ┆); newpa_read := tru┆
0x2a87e…2a884 (0x518,0x552)
0x2a884…2a8a0 65 3b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 ┆e; for i:=1 while ┆
0x2a8a0…2a8c0 70 61 72 61 6d 6e 6f 3d 70 61 5f 74 65 72 6d 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆paramno=pa_term do beg┆
0x2a8c0…2a8e0 69 6e 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 70 20 31 20 75 ┆in for j:=1 step 1 u┆
0x2a8e0…2a8fc 6e 74 69 6c 20 74 65 72 6d 5f 70 61 5f 6c 67 74 20 64 6f 20 74 65 72 6d 5f 70 61 72 ┆ntil term_pa_lgt do term_par┆
0x2a8fc…2a902 (0x518,0x553)
0x2a902…2a920 61 6d 73 28 6a 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f ┆ams(j) := 0; term_┆
0x2a920…2a940 70 61 72 61 6d 73 2e 62 75 66 73 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 31 3b 0a 20 20 20 20 ┆params.bufs := false add 1; ┆
0x2a940…2a960 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 74 69 6d 65 20 3a 3d 20 66 61 6c 73 ┆ term_params.time := fals┆
0x2a960…2a97a 65 20 61 64 64 20 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d ┆e add 40; if -┆
0x2a97a…2a980 (0x518,0x554)
0x2a980…2a9a0 2c 72 65 61 64 5f 6e 61 6d 65 28 74 65 72 6d 5f 70 61 72 61 6d 73 2e 65 78 69 64 2c 20 31 31 29 ┆,read_name(term_params.exid, 11)┆
0x2a9a0…2a9c0 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 ┆
0x2a9c0…2a9e0 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 6e 61 6d 65 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 ┆ error(<:name:>, pa); ┆
0x2a9e0…2aa00 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 74 65 72 6d 3b 00 00 00 00 00 00 00 00 ┆ goto read_term; ┆
0x2aa00…2aa06 (341,) (0x518,0x555)
0x2aa06…2aa20 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 ┆ end; ┆
0x2aa20…2aa40 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 28 6e 61 6d 65 2c 20 33 ┆ if -,read_quote_text(name, 3┆
0x2aa40…2aa60 29 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 ┆) then begin ┆
0x2aa60…2aa7e 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 6c 6f 63 69 64 3a 3e 2c 20 70 61 29 3b 0a 20 ┆ error(<:locid:>, pa); ┆
0x2aa7e…2aa84 (0x518,0x556)
0x2aa84…2aaa0 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 74 65 72 6d 3b ┆ goto read_term;┆
0x2aaa0…2aac0 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 20 20 20 74 65 ┆ end; te┆
0x2aac0…2aae0 72 6d 5f 70 61 72 61 6d 73 2e 69 6e 74 69 64 20 3a 3d 20 6e 61 6d 65 28 31 29 20 73 68 69 66 74 ┆rm_params.intid := name(1) shift┆
0x2aae0…2aafc 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (-24) extract 24; ┆
0x2aafc…2ab02 (0x518,0x557)
0x2ab02…2ab20 20 20 20 69 66 20 74 65 72 6d 5f 73 65 67 6d 28 7a 6f 6e 65 77 2c 20 75 73 65 64 5f 73 65 ┆ if term_segm(zonew, used_se┆
0x2ab20…2ab40 67 6d 2d 70 72 6f 63 5f 73 65 67 6d 73 2b 31 2c 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 65 78 69 ┆gm-proc_segms+1, term_params.exi┆
0x2ab40…2ab60 64 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 74 65 72 6d ┆d, term┆
0x2ab60…2ab7a 5f 70 61 72 61 6d 73 2e 69 6e 74 69 64 2c 20 74 65 72 6d 5f 62 79 74 65 29 3e ┆_params.intid, term_byte)>┆
0x2ab7a…2ab80 (0x518,0x558)
0x2ab80…2aba0 30 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 ┆0 then begin ┆
0x2aba0…2abc0 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 65 72 6d 20 69 6e 20 63 61 74 3a 3e 2c 20 70 61 ┆ error(<:term in cat:>, pa┆
0x2abc0…2abe0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 74 65 72 6d 3b ┆); goto read_term;┆
0x2abe0…2ac00 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x2ac00…2ac06 (342,) (0x518,0x559)
0x2ac06…2ac20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 ┆ if -,read_quote_text┆
0x2ac20…2ac40 28 74 65 72 6d 5f 70 61 72 61 6d 73 2e 6b 65 79 2c 20 31 31 29 20 74 68 65 6e 0a 20 20 20 20 20 ┆(term_params.key, 11) then ┆
0x2ac40…2ac60 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 65 72 72 6f 72 ┆ begin error┆
0x2ac60…2ac7e 28 3c 3a 74 65 72 6d 2d 6b 65 79 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆(<:term-key:>, pa); ┆
0x2ac7e…2ac84 (0x518,0x55a)
0x2ac84…2aca0 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 ┆ goto read_term; ┆
0x2aca0…2acc0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 72 65 61 64 20 62 75 66 ┆ end; <* read buf┆
0x2acc0…2ace0 72 69 6e 67 20 61 6e 64 20 74 69 6d 65 63 6f 75 6e 74 20 69 66 20 70 72 65 73 65 6e 74 20 2a 3e ┆ring and timecount if present *>┆
0x2ace0…2acfc 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 72 65 61 64 5f 6e 6f 28 6a 29 20 74 ┆ if read_no(j) t┆
0x2acfc…2ad02 (0x518,0x55b)
0x2ad02…2ad20 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 ┆hen begin ┆
0x2ad20…2ad40 20 20 20 20 20 20 69 66 20 6a 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if j<0 then ┆
0x2ad40…2ad60 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 75 ┆begin error(<:bu┆
0x2ad60…2ad7a 66 72 69 6e 67 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆fring:>, pa); ┆
0x2ad7a…2ad80 (0x518,0x55c)
0x2ad80…2ada0 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto read_term; ┆
0x2ada0…2adc0 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 ┆ end else begin ┆
0x2adc0…2ade0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 62 75 66 73 20 ┆ term_params.bufs ┆
0x2ade0…2ae00 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 6a 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆:= false add j; ┆
0x2ae00…2ae06 (343,) (0x518,0x55d)
0x2ae06…2ae20 20 20 20 20 20 20 20 20 69 66 20 72 65 61 64 5f 6e 6f 28 6a 29 20 74 68 65 6e ┆ if read_no(j) then┆
0x2ae20…2ae40 0a 20 20 20 20 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 20 ┆ begin ┆
0x2ae40…2ae60 20 20 20 20 20 20 20 20 20 69 66 20 6a 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ if j<=0 then ┆
0x2ae60…2ae7e 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 20 ┆ begin ┆
0x2ae7e…2ae84 (0x518,0x55e)
0x2ae84…2aea0 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 69 6d 65 63 6f 75 6e 74 3a 3e 2c 20 70 61 29 ┆ error(<:timecount:>, pa)┆
0x2aea0…2aec0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f ┆; goto read_┆
0x2aec0…2aee0 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 ┆term; end ┆
0x2aee0…2aefc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 74 65 72 6d 5f 70 61 72 61 ┆ else term_para┆
0x2aefc…2af02 (0x518,0x55f)
0x2af02…2af20 6d 73 2e 74 69 6d 65 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 6a 3b 0a 20 20 20 20 20 20 ┆ms.time := false add j; ┆
0x2af20…2af40 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 20 20 65 6e 64 ┆ end; end┆
0x2af40…2af60 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 20 20 20 74 ┆; end; t┆
0x2af60…2af7a 65 72 6d 5f 63 6f 75 6e 74 20 3a 3d 20 74 65 72 6d 5f 63 6f 75 6e 74 20 2b 20 ┆erm_count := term_count + ┆
0x2af7a…2af80 (0x518,0x560)
0x2af80…2afa0 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 65 67 6d 73 3d 31 20 61 ┆1; if proc_segms=1 a┆
0x2afa0…2afc0 6e 64 20 74 65 72 6d 5f 63 6f 75 6e 74 3d 74 65 72 6d 5f 70 72 5f 70 72 73 65 67 6d 2b 31 20 6f ┆nd term_count=term_pr_prsegm+1 o┆
0x2afc0…2afe0 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 73 65 67 6d 73 3e 31 20 61 6e ┆r proc_segms>1 an┆
0x2afe0…2b000 64 20 74 65 72 6d 5f 63 6f 75 6e 74 3d 74 65 72 6d 5f 70 72 5f 73 65 67 00 00 00 00 00 00 00 00 ┆d term_count=term_pr_seg ┆
0x2b000…2b006 (344,) (0x518,0x561)
0x2b006…2b020 6d 2b 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆m+1 then begin┆
0x2b020…2b040 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 64 5f 73 65 67 6d 20 3a 3d 20 75 73 65 64 ┆ used_segm := used┆
0x2b040…2b060 5f 73 65 67 6d 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 75 73 65 64 ┆_segm + 1; if used┆
0x2b060…2b07e 5f 73 65 67 6d 3e 6d 61 78 73 65 67 6d 20 74 68 65 6e 20 65 78 74 65 6e 64 63 61 74 28 7a ┆_segm>maxsegm then extendcat(z┆
0x2b07e…2b084 (0x518,0x562)
0x2b084…2b0a0 6f 6e 65 77 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 ┆onew); setposi┆
0x2b0a0…2b0c0 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 75 73 65 64 5f 73 65 67 6d 2d 31 29 3b 0a 20 20 20 ┆tion(zonew, 0, used_segm-1); ┆
0x2b0c0…2b0e0 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 29 3b ┆ swoprec6(zonew, 512);┆
0x2b0e0…2b0fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 ┆ zonew.word(25┆
0x2b0fc…2b102 (0x518,0x563)
0x2b102…2b120 36 29 20 3a 3d 20 75 73 65 64 5f 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6) := used_segm; ┆
0x2b120…2b140 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 75 73 65 64 5f 73 65 67 6d ┆ setposition(zonew, 0, used_segm┆
0x2b140…2b160 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6e 65 77 2c ┆); swoprec6(zonew,┆
0x2b160…2b17a 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 77 ┆ 512); zonew┆
0x2b17a…2b180 (0x518,0x564)
0x2b180…2b1a0 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.word(256) := -1; ┆
0x2b1a0…2b1c0 70 72 6f 63 5f 73 65 67 6d 73 20 3a 3d 20 70 72 6f 63 5f 73 65 67 6d 73 20 2b 20 31 3b 0a 20 20 ┆proc_segms := proc_segms + 1; ┆
0x2b1c0…2b1e0 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 63 6f 75 6e 74 20 3a 3d 20 31 3b 0a 20 20 20 ┆ term_count := 1; ┆
0x2b1e0…2b200 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 73 74 61 72 74 20 3a 3d 00 00 00 00 00 00 00 00 ┆ term_start := ┆
0x2b200…2b206 (345,) (0x518,0x565)
0x2b206…2b220 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ 0; end; ┆
0x2b220…2b240 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 75 73 65 ┆ setposition(zonew, 0, use┆
0x2b240…2b260 64 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f ┆d_segm); swoprec6(zo┆
0x2b260…2b27e 6e 65 77 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 3a 3d ┆new, 512); base :=┆
0x2b27e…2b284 (0x518,0x566)
0x2b284…2b2a0 20 74 65 72 6d 5f 73 74 61 72 74 20 2b 20 28 74 65 72 6d 5f 63 6f 75 6e 74 2d 31 29 ┆ term_start + (term_count-1)┆
0x2b2a0…2b2c0 2a 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 ┆*term_des_lgt; to_fr┆
0x2b2c0…2b2e0 6f 6d 28 7a 6f 6e 65 77 2e 62 61 73 65 2c 20 74 65 72 6d 5f 70 61 72 61 6d 73 2c 20 74 65 72 6d ┆om(zonew.base, term_params, term┆
0x2b2e0…2b2fc 5f 64 65 73 5f 6c 67 74 29 3b 0a 72 65 61 64 5f 74 65 72 6d 3a 0a 20 20 20 20 20 20 ┆_des_lgt); read_term: ┆
0x2b2fc…2b302 (0x518,0x567)
0x2b302…2b320 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 70 61 72 61 6d 6e 6f 29 3b 0a 20 20 20 ┆ read_param(paramno); ┆
0x2b320…2b340 20 20 20 20 20 20 20 65 6e 64 20 66 6f 72 20 70 61 72 61 6d 6e 6f 3d 74 65 72 6d 3b 0a 20 20 20 ┆ end for paramno=term; ┆
0x2b340…2b360 20 20 20 20 20 65 6e 64 20 69 66 20 63 68 65 63 6b 5f 70 72 6f 63 3b 0a 20 20 20 20 20 20 65 6e ┆ end if check_proc; en┆
0x2b360…2b37a 64 20 69 66 20 72 65 61 64 5f 70 72 6f 63 3b 0a 72 65 61 64 5f 74 72 61 6e 73 ┆d if read_proc; read_trans┆
0x2b37a…2b380 (0x518,0x568)
0x2b380…2b3a0 3a 0a 20 20 20 20 20 20 69 66 20 6e 65 77 70 61 5f 72 65 61 64 20 61 6e 64 20 70 61 72 61 6d 6e ┆: if newpa_read and paramn┆
0x2b3a0…2b3c0 6f 3e 67 72 65 61 74 5f 74 72 6e 6f 20 6f 72 20 2d 2c 6e 65 77 70 61 5f 72 65 61 64 0a 20 20 20 ┆o>great_trno or -,newpa_read ┆
0x2b3c0…2b3e0 20 20 20 74 68 65 6e 20 72 65 61 64 5f 70 61 72 61 6d 28 74 72 61 6e 73 29 0a 20 20 20 20 20 20 ┆ then read_param(trans) ┆
0x2b3e0…2b400 65 6c 73 65 20 74 72 61 6e 73 20 3a 3d 20 70 61 72 61 6d 6e 6f 3b 0a 20 00 00 00 00 00 00 00 00 ┆else trans := paramno; ┆
0x2b400…2b406 (346,) (0x518,0x569)
0x2b406…2b420 20 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 3a 3d 20 66 61 6c 73 65 3b 0a ┆ newpa_read := false; ┆
0x2b420…2b440 20 20 20 20 65 6e 64 20 77 68 69 6c 65 20 2d 2c 65 6d 3b 0a 0a 65 6e 64 69 6e 69 74 3a 0a 20 20 ┆ end while -,em; endinit: ┆
0x2b440…2b460 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 ┆ setposition(zonew, 0, 0); ┆
0x2b460…2b47e 73 77 6f 70 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 29 3b 0a 20 20 20 20 7a 6f 6e 65 ┆swoprec6(zonew, 512); zone┆
0x2b47e…2b484 (0x518,0x56a)
0x2b484…2b4a0 77 2e 77 6f 72 64 28 32 35 34 29 20 3a 3d 20 70 72 6f 63 5f 63 6f 75 6e 74 3b 0a 20 ┆w.word(254) := proc_count; ┆
0x2b4a0…2b4c0 20 20 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 35 29 20 3a 3d 20 6d 61 78 70 72 6f 63 73 3b 0a ┆ zonew.word(255) := maxprocs; ┆
0x2b4c0…2b4e0 20 20 20 20 69 66 20 75 73 65 64 5f 73 65 67 6d 3c 6d 61 78 73 65 67 6d 20 74 68 65 6e 0a 20 20 ┆ if used_segm<maxsegm then ┆
0x2b4e0…2b4fc 20 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 75 73 65 64 5f 73 65 ┆ zonew.word(256) := used_se┆
0x2b4fc…2b502 (0x518,0x56b)
0x2b502…2b520 67 6d 20 2b 20 31 0a 20 20 20 20 65 6c 73 65 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 36 ┆gm + 1 else zonew.word(256┆
0x2b520…2b540 29 20 3a 3d 20 2d 31 3b 0a 20 20 65 6e 64 20 69 6e 69 74 0c 0a 20 20 65 6c 73 65 0a 20 20 62 65 ┆) := -1; end init else be┆
0x2b540…2b560 67 69 6e 20 20 3c 2a 20 75 70 64 61 74 65 20 2a 3e 0a 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d ┆gin <* update *> read_param┆
0x2b560…2b57a 28 74 72 61 6e 73 29 3b 0a 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 3a 3d ┆(trans); newpa_read :=┆
0x2b57a…2b580 (0x518,0x56c)
0x2b580…2b5a0 20 66 61 6c 73 65 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 2d 2c 65 6d 20 ┆ false; for i:=1 while -,em ┆
0x2b5a0…2b5c0 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 3d 74 72 5f 65 ┆do begin if trans=tr_e┆
0x2b5c0…2b5e0 6e 64 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 65 6d 20 3a ┆nd then begin em :┆
0x2b5e0…2b600 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 6e 64 00 00 00 00 00 00 00 00 ┆= true; goto end ┆
0x2b600…2b606 (347,) (0x518,0x56d)
0x2b606…2b620 5f 75 70 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 ┆_upd; end; if ┆
0x2b620…2b640 74 72 61 6e 73 3e 67 72 65 61 74 5f 74 72 6e 6f 20 6f 72 20 74 72 61 6e 73 3c 3d 74 72 5f 70 72 ┆trans>great_trno or trans<=tr_pr┆
0x2b640…2b660 6f 63 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 65 72 72 6f ┆oc then begin erro┆
0x2b660…2b67e 72 28 3c 3a 74 72 61 6e 73 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f ┆r(<:trans:>, tr); goto┆
0x2b67e…2b684 (0x518,0x56e)
0x2b684…2b6a0 20 72 65 61 64 5f 75 70 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ read_upd; end; ┆
0x2b6a0…2b6c0 69 66 20 2d 2c 72 65 61 64 5f 6e 61 6d 65 28 70 72 6f 63 5f 6e 61 6d 65 2c 20 38 29 20 74 68 65 ┆if -,read_name(proc_name, 8) the┆
0x2b6c0…2b6e0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 6e 61 ┆n begin error(<:na┆
0x2b6e0…2b6fc 6d 65 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 ┆me:>, tr); goto read┆
0x2b6fc…2b702 (0x518,0x56f)
0x2b702…2b720 5f 75 70 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 6e 64 65 78 5f 73 ┆_upd; end; index_s┆
0x2b720…2b740 65 67 6d 20 3a 3d 20 73 65 67 6d 5f 6e 6f 28 7a 6f 6f 6c 64 2c 20 70 72 6f 63 5f 6e 61 6d 65 2c ┆egm := segm_no(zoold, proc_name,┆
0x2b740…2b760 20 70 72 6f 63 5f 62 79 74 65 29 3b 0a 0a 20 20 20 20 20 20 63 61 73 65 20 28 74 72 61 6e 73 2d ┆ proc_byte); case (trans-┆
0x2b760…2b77a 74 72 5f 70 72 6f 63 29 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆tr_proc) of begin ┆
0x2b77a…2b780 (0x518,0x570)
0x2b780…2b7a0 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 64 65 6c 65 74 65 20 70 72 6f 63 65 73 73 20 2a 3e ┆ begin <* delete process *>┆
0x2b7a0…2b7c0 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 65 78 5f 73 65 67 6d 3d 2d 31 20 74 68 65 6e ┆ if index_segm=-1 then┆
0x2b7c0…2b7e0 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 65 72 72 ┆ begin err┆
0x2b7e0…2b800 6f 72 28 3c 3a 70 72 6f 63 20 6e 6f 74 20 69 6e 20 63 61 74 3a 3e 2c 20 00 00 00 00 00 00 00 00 ┆or(<:proc not in cat:>, ┆
0x2b800…2b806 (348,) (0x518,0x571)
0x2b806…2b820 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 ┆tr); goto read┆
0x2b820…2b840 5f 75 70 64 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 62 ┆_upd; end; b┆
0x2b840…2b860 61 73 65 20 3a 3d 20 70 72 6f 63 5f 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 65 77 20 ┆ase := proc_byte; new ┆
0x2b860…2b87e 3a 3d 20 7a 6f 6f 6c 64 2e 62 61 73 65 2e 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:= zoold.base.segm; ┆
0x2b87e…2b884 (0x518,0x572)
0x2b884…2b8a0 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 ┆setposition(zoold, 0, 0); ┆
0x2b8a0…2b8c0 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 ┆ inrec6(zoold, 512); ┆
0x2b8c0…2b8e0 20 20 20 20 20 20 6f 6c 64 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 ┆ old := zoold.word(256); ┆
0x2b8e0…2b8fc 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 6e 65 77 3c 3e ┆ for i:=1 while new<>┆
0x2b8fc…2b902 (0x518,0x573)
0x2b902…2b920 2d 31 20 64 6f 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 ┆-1 do begin ┆
0x2b920…2b940 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6e 65 77 29 3b 0a ┆ setposition(zoold, 0, new); ┆
0x2b940…2b960 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 ┆ swoprec6(zoold, 512)┆
0x2b960…2b97a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6e 65 77 3b 0a 20 20 20 20 ┆; j:=new; ┆
0x2b97a…2b980 (0x518,0x574)
0x2b980…2b9a0 20 20 20 20 20 20 20 20 6e 65 77 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a ┆ new := zoold.word(256); ┆
0x2b9a0…2b9c0 20 20 20 20 20 20 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 ┆ for k:=1 step 1 unti┆
0x2b9c0…2b9e0 6c 20 32 35 35 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 ┆l 255 do zoold.word(┆
0x2b9e0…2ba00 6b 29 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 00 00 00 00 00 00 00 00 ┆k) := -1; zo ┆
0x2ba00…2ba06 (349,) (0x518,0x575)
0x2ba06…2ba20 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 6f 6c 64 3b 0a 20 20 20 20 ┆old.word(256) := old; ┆
0x2ba20…2ba40 20 20 20 20 20 20 20 20 6f 6c 64 20 3a 3d 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ old := j; end;┆
0x2ba40…2ba60 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c ┆ setposition(zoold, 0,┆
0x2ba60…2ba7e 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c ┆ 0); swoprec6(zoold,┆
0x2ba7e…2ba84 (0x518,0x576)
0x2ba84…2baa0 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 ┆ 512); zoold.word(┆
0x2baa0…2bac0 32 35 36 29 20 3a 3d 20 6f 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 ┆256) := old; zoold.wor┆
0x2bac0…2bae0 64 28 32 35 34 29 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 34 29 20 2d 20 31 3b 0a 20 ┆d(254) := zoold.word(254) - 1; ┆
0x2bae0…2bafc 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 6e 6f 20 3a 3d 20 69 6e 64 65 78 5f 73 65 ┆ proc_no := index_se┆
0x2bafc…2bb02 (0x518,0x577)
0x2bb02…2bb20 67 6d 2a 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 20 2b 20 28 70 72 6f 63 5f 62 79 74 65 2b ┆gm*proc_pr_index + (proc_byte+┆
0x2bb20…2bb40 69 6e 64 65 78 5f 6c 67 74 29 2f 2f 69 6e 64 65 78 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆index_lgt)//index_lgt; ┆
0x2bb40…2bb60 20 62 61 73 65 31 20 3a 3d 20 70 72 6f 63 5f 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 62 ┆ base1 := proc_byte; b┆
0x2bb60…2bb7a 61 73 65 32 20 3a 3d 20 62 61 73 65 31 20 2b 20 69 6e 64 65 78 5f 6c 67 74 3b ┆ase2 := base1 + index_lgt;┆
0x2bb7a…2bb80 (0x518,0x578)
0x2bb80…2bba0 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 ┆ stop := zoold.word(25┆
0x2bba0…2bbc0 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c ┆4); setposition(zoold,┆
0x2bbc0…2bbe0 20 30 2c 20 69 6e 64 65 78 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 ┆ 0, index_segm); swopr┆
0x2bbe0…2bc00 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ec6(zoold, 512); ┆
0x2bc00…2bc06 (350,) (0x518,0x579)
0x2bc06…2bc20 20 20 20 66 6f 72 20 69 3a 3d 70 72 6f 63 5f 6e 6f 20 73 74 65 70 20 31 20 75 ┆ for i:=proc_no step 1 u┆
0x2bc20…2bc40 6e 74 69 6c 20 73 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ntil stop do begin ┆
0x2bc40…2bc60 20 20 20 20 20 20 20 20 20 3c 2a 20 69 6e 64 65 78 20 69 73 20 6d 6f 76 65 64 20 66 72 6f 6d 20 ┆ <* index is moved from ┆
0x2bc60…2bc7e 70 6c 61 63 65 20 69 2b 31 20 74 6f 20 69 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆place i+1 to i *> ┆
0x2bc7e…2bc84 (0x518,0x57a)
0x2bc84…2bca0 69 66 20 69 20 6d 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 3d 30 20 74 68 65 ┆if i mod proc_pr_index=0 the┆
0x2bca0…2bcc0 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 20 20 20 20 ┆n begin ┆
0x2bcc0…2bce0 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 69 6e 64 65 78 5f 73 65 ┆ setposition(zoold, 0, index_se┆
0x2bce0…2bcfc 67 6d 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 ┆gm+1); swoprec┆
0x2bcfc…2bd02 (0x518,0x57b)
0x2bd02…2bd20 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆6(zoold, 512); b┆
0x2bd20…2bd40 61 73 65 32 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ase2 := 0; end; ┆
0x2bd40…2bd60 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 69 6e 64 65 78 2c 20 7a 6f 6f 6c 64 2e 62 61 73 ┆ to_from(index, zoold.bas┆
0x2bd60…2bd7a 65 32 2c 20 69 6e 64 65 78 5f 6c 67 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆e2, index_lgt); ┆
0x2bd7a…2bd80 (0x518,0x57c)
0x2bd80…2bda0 20 20 69 66 20 69 20 6d 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 3d 30 20 74 68 65 6e 0a ┆ if i mod proc_pr_index=0 then ┆
0x2bda0…2bdc0 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 20 20 20 20 20 20 ┆ begin ┆
0x2bdc0…2bde0 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 69 6e 64 65 78 5f 73 65 67 6d ┆setposition(zoold, 0, index_segm┆
0x2bde0…2be00 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 00 00 00 00 00 00 00 00 ┆); swoprec ┆
0x2be00…2be06 (351,) (0x518,0x57d)
0x2be06…2be20 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆6(zoold, 512); ┆
0x2be20…2be40 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 7a 6f 6f 6c 64 2e ┆ end; to_from(zoold.┆
0x2be40…2be60 62 61 73 65 31 2c 20 69 6e 64 65 78 2c 20 69 6e 64 65 78 5f 6c 67 74 29 3b 0a 20 20 20 20 20 20 ┆base1, index, index_lgt); ┆
0x2be60…2be7e 20 20 20 20 20 20 69 66 20 69 20 6d 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 20 3d ┆ if i mod proc_pr_index =┆
0x2be7e…2be84 (0x518,0x57e)
0x2be84…2bea0 30 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 ┆0 then begin ┆
0x2bea0…2bec0 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 5f 73 65 67 6d 20 3a 3d 20 69 6e 64 65 78 5f 73 ┆ index_segm := index_s┆
0x2bec0…2bee0 65 67 6d 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 ┆egm + 1; setpositi┆
0x2bee0…2befc 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 69 6e 64 65 78 5f 73 65 67 6d 29 3b 0a 20 20 ┆on(zoold, 0, index_segm); ┆
0x2befc…2bf02 (0x518,0x57f)
0x2bf02…2bf20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 ┆ swoprec6(zoold, 51┆
0x2bf20…2bf40 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 31 20 3a 3d 20 30 3b 0a 20 20 ┆2); base1 := 0; ┆
0x2bf40…2bf60 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 20 65 6c 73 65 20 62 ┆ end else b┆
0x2bf60…2bf7a 61 73 65 31 20 3a 3d 20 62 61 73 65 31 20 2b 20 69 6e 64 65 78 5f 6c 67 74 3b ┆ase1 := base1 + index_lgt;┆
0x2bf7a…2bf80 (0x518,0x580)
0x2bf80…2bfa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 32 20 3a 3d 20 62 61 73 65 32 20 2b 20 69 6e ┆ base2 := base2 + in┆
0x2bfa0…2bfc0 64 65 78 5f 6c 67 74 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 ┆dex_lgt; end; ┆
0x2bfc0…2bfe0 20 20 73 74 6f 70 20 3a 3d 20 69 6e 64 65 78 5f 6c 67 74 2f 2f 32 3b 0a 20 20 20 20 20 20 20 20 ┆ stop := index_lgt//2; ┆
0x2bfe0…2c000 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 00 00 00 00 00 00 00 00 ┆ for i:=1 step 1 until ┆
0x2c000…2c006 (352,) (0x518,0x581)
0x2c006…2c020 73 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 62 ┆stop do zoold.b┆
0x2c020…2c040 61 73 65 31 2e 77 6f 72 64 28 69 29 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ase1.word(i) := -1; end;┆
0x2c040…2c060 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 63 6f 72 72 65 63 74 20 70 72 6f 63 65 ┆ begin <* correct proce┆
0x2c060…2c07e 73 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 65 78 5f 73 65 67 6d 3d ┆ss *> if index_segm=┆
0x2c07e…2c084 (0x518,0x582)
0x2c084…2c0a0 2d 31 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 ┆-1 then begin ┆
0x2c0a0…2c0c0 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 70 72 6f 63 65 73 73 20 6e 6f 74 20 69 6e 20 63 ┆ error(<:process not in c┆
0x2c0c0…2c0e0 61 74 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 ┆at:>, tr); goto read┆
0x2c0e0…2c0fc 5f 75 70 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆_upd; end; ┆
0x2c0fc…2c102 (0x518,0x583)
0x2c102…2c120 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 69 6e 64 65 78 ┆ setposition(zoold, 0, index┆
0x2c120…2c140 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 ┆_segm); inrec6(zoold, ┆
0x2c140…2c160 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 3a 3d 20 70 72 6f 63 5f 62 79 74 ┆512); base := proc_byt┆
0x2c160…2c17a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 73 65 67 6d 20 3a 3d 20 ┆e; proc_segm := ┆
0x2c17a…2c180 (0x518,0x584)
0x2c180…2c1a0 7a 6f 6f 6c 64 2e 62 61 73 65 2e 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f ┆zoold.base.segm; setpo┆
0x2c1a0…2c1c0 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 70 72 6f 63 5f 73 65 67 6d 29 3b 0a 20 20 20 ┆sition(zoold, 0, proc_segm); ┆
0x2c1c0…2c1e0 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 ┆ swoprec6(zoold, 512); ┆
0x2c1e0…2c200 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 00 00 00 00 00 00 00 00 ┆ for i:=1 step 1 u ┆
0x2c200…2c206 (353,) (0x518,0x585)
0x2c206…2c220 6e 74 69 6c 20 70 72 6f 63 5f 70 61 5f 6c 67 74 20 64 6f 0a 20 20 20 20 20 20 ┆ntil proc_pa_lgt do ┆
0x2c220…2c240 20 20 20 20 70 72 6f 63 5f 70 61 72 61 6d 73 2e 77 6f 72 64 28 69 29 20 3a 3d 20 7a 6f 6f 6c 64 ┆ proc_params.word(i) := zoold┆
0x2c240…2c260 2e 77 6f 72 64 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 6f 31 20 3a 3d 20 6e 6f 32 20 3a ┆.word(i); no1 := no2 :┆
0x2c260…2c27e 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 20 31 ┆= 0; for i:=2 step 1┆
0x2c27e…2c284 (0x518,0x586)
0x2c284…2c2a0 20 75 6e 74 69 6c 20 34 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ until 4 do begin ┆
0x2c2a0…2c2c0 20 20 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 20 3a 3d 20 70 65 72 6d 31 20 2b 20 28 69 2d 31 ┆ perm := perm1 + (i-1┆
0x2c2c0…2c2e0 29 2a 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 31 20 3a 3d 20 6e 6f 31 20 2b 20 70 ┆)*24; no1 := no1 + p┆
0x2c2e0…2c2fc 72 6f 63 5f 70 61 72 61 6d 73 2e 70 65 72 6d 28 35 29 3b 0a 20 20 20 20 20 20 20 20 ┆roc_params.perm(5); ┆
0x2c2fc…2c302 (0x518,0x587)
0x2c302…2c320 20 20 20 20 6e 6f 32 20 3a 3d 20 6e 6f 32 20 2b 20 70 72 6f 63 5f 70 61 72 61 6d 73 2e 70 ┆ no2 := no2 + proc_params.p┆
0x2c320…2c340 65 72 6d 28 37 29 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 ┆erm(7); end; ┆
0x2c340…2c360 20 70 72 6f 63 5f 70 61 72 61 6d 73 2e 70 65 72 6d 31 28 35 29 20 3a 3d 20 70 72 6f 63 5f 70 61 ┆ proc_params.perm1(5) := proc_pa┆
0x2c360…2c37a 72 61 6d 73 2e 70 65 72 6d 31 28 35 29 20 2d 20 6e 6f 31 3b 20 0a 20 20 20 20 ┆rams.perm1(5) - no1; ┆
0x2c37a…2c380 (0x518,0x588)
0x2c380…2c3a0 20 20 20 20 20 20 70 72 6f 63 5f 70 61 72 61 6d 73 2e 70 65 72 6d 31 28 37 29 20 3a 3d 20 70 72 ┆ proc_params.perm1(7) := pr┆
0x2c3a0…2c3c0 6f 63 5f 70 61 72 61 6d 73 2e 70 65 72 6d 31 28 37 29 20 2d 20 6e 6f 32 3b 0a 20 20 20 20 20 20 ┆oc_params.perm1(7) - no2; ┆
0x2c3c0…2c3e0 20 20 20 20 69 66 20 72 65 61 64 5f 70 72 6f 63 28 70 72 6f 63 5f 70 61 72 61 6d 73 29 20 74 68 ┆ if read_proc(proc_params) th┆
0x2c3e0…2c400 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆en begin ┆
0x2c400…2c406 (354,) (0x518,0x589)
0x2c406…2c420 20 20 20 20 20 20 20 69 66 20 63 68 65 63 6b 5f 70 72 6f 63 28 70 72 6f 63 5f ┆ if check_proc(proc_┆
0x2c420…2c440 70 61 72 61 6d 73 29 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 ┆params) then begin ┆
0x2c440…2c460 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 7a 6f 6f 6c 64 2c 20 70 72 6f 63 ┆ to_from(zoold, proc┆
0x2c460…2c47e 5f 70 61 72 61 6d 73 2c 20 70 72 6f 63 5f 64 65 73 5f 6c 67 74 29 3b 0a 20 20 20 20 20 20 ┆_params, proc_des_lgt); ┆
0x2c47e…2c484 (0x518,0x58a)
0x2c484…2c4a0 20 20 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 70 61 72 61 6d 6e 6f 29 3b ┆ read_param(paramno);┆
0x2c4a0…2c4c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 3a 3d 20 74 72 75 ┆ newpa_read := tru┆
0x2c4c0…2c4e0 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6b 3a 3d 31 20 77 68 69 6c 65 20 ┆e; for k:=1 while ┆
0x2c4e0…2c4fc 70 61 72 61 6d 6e 6f 3d 70 61 5f 64 74 65 72 6d 20 6f 72 20 70 61 72 61 6d 6e 6f 3d ┆paramno=pa_dterm or paramno=┆
0x2c4fc…2c502 (0x518,0x58b)
0x2c502…2c520 70 61 5f 74 65 72 6d 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆pa_term do begin┆
0x2c520…2c540 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 ┆ for i:=1 step 1┆
0x2c540…2c560 20 75 6e 74 69 6c 20 74 65 72 6d 5f 70 61 5f 6c 67 74 20 64 6f 20 74 65 72 6d 5f 70 61 72 61 6d ┆ until term_pa_lgt do term_param┆
0x2c560…2c57a 73 28 69 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s(i) := 0; ┆
0x2c57a…2c580 (0x518,0x58c)
0x2c580…2c5a0 20 69 66 20 2d 2c 72 65 61 64 5f 6e 61 6d 65 28 74 65 72 6d 5f 70 61 72 61 6d 73 2e 65 78 69 64 ┆ if -,read_name(term_params.exid┆
0x2c5a0…2c5c0 2c 20 31 31 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆, 11) then begin┆
0x2c5c0…2c5e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 6e 61 6d 65 3a ┆ error(<:name:┆
0x2c5e0…2c600 3e 2c 20 70 61 29 3b 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 ┆>, pa); ┆
0x2c600…2c606 (355,) (0x518,0x58d)
0x2c606…2c620 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 3b 0a 20 20 20 20 ┆ goto read_upd_term; ┆
0x2c620…2c640 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 20 20 20 ┆ end; ┆
0x2c640…2c660 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 28 6e 61 6d 65 2c 20 33 29 20 74 ┆ if -,read_quote_text(name, 3) t┆
0x2c660…2c67e 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆hen begin ┆
0x2c67e…2c684 (0x518,0x58e)
0x2c684…2c6a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 6c 6f 63 69 64 3a ┆ error(<:locid:┆
0x2c6a0…2c6c0 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 ┆>, pa); goto r┆
0x2c6c0…2c6e0 65 61 64 5f 75 70 64 5f 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ead_upd_term; en┆
0x2c6e0…2c6fc 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 ┆d; term_para┆
0x2c6fc…2c702 (0x518,0x58f)
0x2c702…2c720 6d 73 2e 69 6e 74 69 64 20 3a 3d 20 6e 61 6d 65 28 31 29 20 73 68 69 66 74 20 28 2d 32 34 ┆ms.intid := name(1) shift (-24┆
0x2c720…2c740 29 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 ┆) extract 24; te┆
0x2c740…2c760 72 6d 20 3a 3d 20 74 65 72 6d 5f 73 65 67 6d 28 7a 6f 6f 6c 64 2c 20 70 72 6f 63 5f 73 65 67 6d ┆rm := term_segm(zoold, proc_segm┆
0x2c760…2c77a 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 ┆, ┆
0x2c77a…2c780 (0x518,0x590)
0x2c780…2c7a0 74 65 72 6d 5f 70 61 72 61 6d 73 2e 65 78 69 64 2c 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 69 6e ┆term_params.exid, term_params.in┆
0x2c7a0…2c7c0 74 69 64 2c 20 74 65 72 6d 5f 62 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tid, term_byte); ┆
0x2c7c0…2c7e0 20 20 63 61 73 65 20 28 70 61 72 61 6d 6e 6f 2d 28 70 61 5f 64 74 65 72 6d 2d 31 29 29 20 6f 66 ┆ case (paramno-(pa_dterm-1)) of┆
0x2c7e0…2c800 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 00 00 00 00 00 00 00 00 ┆ begin ┆
0x2c800…2c806 (356,) (0x518,0x591)
0x2c806…2c820 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 3c ┆ begin <┆
0x2c820…2c840 2a 20 64 74 65 72 6d 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 ┆* dterm *> ┆
0x2c840…2c860 69 66 20 74 65 72 6d 3c 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆if term<=-1 then ┆
0x2c860…2c87e 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 20 20 20 ┆ begin ┆
0x2c87e…2c884 (0x518,0x592)
0x2c884…2c8a0 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 65 72 6d 20 6e 6f 74 20 69 6e 20 63 61 74 ┆ error(<:term not in cat┆
0x2c8a0…2c8c0 3a 3e 2c 20 70 61 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 ┆:>, pa); ┆
0x2c8c0…2c8e0 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆goto read_upd_term; ┆
0x2c8e0…2c8fc 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 20 20 ┆ end; ┆
0x2c8fc…2c902 (0x518,0x593)
0x2c902…2c920 20 20 20 20 20 20 20 62 61 73 65 31 20 3a 3d 20 74 65 72 6d 5f 62 79 74 65 3b 0a 20 20 20 ┆ base1 := term_byte; ┆
0x2c920…2c940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 74 65 72 6d 20 3a 3d 20 28 69 ┆ lastterm := (i┆
0x2c940…2c960 66 20 66 72 65 65 5f 77 5f 70 72 73 65 67 6d 3c 3d 66 72 65 65 5f 77 5f 73 65 67 6d 20 0a 20 20 ┆f free_w_prsegm<=free_w_segm ┆
0x2c960…2c97a 20 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 ┆ then┆
0x2c97a…2c980 (0x518,0x594)
0x2c980…2c9a0 20 66 72 65 65 5f 77 5f 70 72 73 65 67 6d 20 65 6c 73 65 20 66 72 65 65 5f 77 5f 73 65 67 6d 29 ┆ free_w_prsegm else free_w_segm)┆
0x2c9a0…2c9c0 20 2d 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 28 74 65 72 6d ┆ - (term┆
0x2c9c0…2c9e0 5f 64 65 73 5f 6c 67 74 20 2b 20 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_des_lgt + 2); ┆
0x2c9e0…2ca00 20 20 20 20 62 61 73 65 32 20 3a 3d 20 69 66 20 74 65 72 6d 5f 62 79 74 00 00 00 00 00 00 00 00 ┆ base2 := if term_byt ┆
0x2ca00…2ca06 (357,) (0x518,0x595)
0x2ca06…2ca20 65 3e 3d 6c 61 73 74 74 65 72 6d 20 3c 2a 20 6e 65 78 74 20 74 65 72 6d 20 69 ┆e>=lastterm <* next term i┆
0x2ca20…2ca40 6e 20 6e 65 77 20 73 65 67 6d 20 2a 3e 20 74 68 65 6e 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 ┆n new segm *> then 0 ┆
0x2ca40…2ca60 20 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 74 65 72 6d 5f ┆ else term_┆
0x2ca60…2ca7e 62 79 74 65 2b 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆byte+term_des_lgt; ┆
0x2ca7e…2ca84 (0x518,0x596)
0x2ca84…2caa0 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 20 3a 3d 20 6f 6c 64 20 3a 3d 20 74 65 72 ┆ last := old := ter┆
0x2caa0…2cac0 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 62 61 73 65 32 ┆m; if base2┆
0x2cac0…2cae0 3d 30 20 61 6e 64 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3c 3e 2d 31 20 74 68 65 6e 0a ┆=0 and zoold.word(256)<>-1 then ┆
0x2cae0…2cafc 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 0a 20 ┆ begin ┆
0x2cafc…2cb02 (0x518,0x597)
0x2cb02…2cb20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 ┆ setposit┆
0x2cb20…2cb40 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 29 3b 0a ┆ion(zoold, 0, zoold.word(256)); ┆
0x2cb40…2cb60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 ┆ swoprec6(┆
0x2cb60…2cb7a 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆zoold, 512); ┆
0x2cb7a…2cb80 (0x518,0x598)
0x2cb80…2cba0 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 31 29 3b ┆ next := zoold.word(1);┆
0x2cba0…2cbc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆ end ┆
0x2cbc0…2cbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6e 65 78 74 20 3a 3d 20 69 66 20 62 ┆ else next := if b┆
0x2cbe0…2cc00 61 73 65 32 3c 3e 30 20 74 68 65 6e 20 7a 6f 6f 6c 64 2e 62 61 73 65 32 00 00 00 00 00 00 00 00 ┆ase2<>0 then zoold.base2 ┆
0x2cc00…2cc06 (358,) (0x518,0x599)
0x2cc06…2cc20 2e 77 6f 72 64 28 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.word(1) ┆
0x2cc20…2cc40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 ┆ els┆
0x2cc40…2cc60 65 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 ┆e -1; for i┆
0x2cc60…2cc7e 3a 3d 31 20 77 68 69 6c 65 20 6e 65 78 74 3c 3e 2d 31 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆:=1 while next<>-1 do ┆
0x2cc7e…2cc84 (0x518,0x59a)
0x2cc84…2cca0 20 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 20 ┆ begin ┆
0x2cca0…2ccc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 63 6f 6d 70 72 65 73 73 20 74 65 72 6d 5f 64 ┆ <* compress term_d┆
0x2ccc0…2cce0 65 73 63 72 69 62 74 69 6f 6e 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆escribtions *> ┆
0x2cce0…2ccfc 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 74 65 72 6d 5f 70 61 72 61 6d 73 2c 20 7a ┆ to_from(term_params, z┆
0x2ccfc…2cd02 (0x518,0x59b)
0x2cd02…2cd20 6f 6f 6c 64 2e 62 61 73 65 32 2c 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 29 3b 0a 20 20 20 ┆oold.base2, term_des_lgt); ┆
0x2cd20…2cd40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 62 61 73 65 32 3d 30 20 74 ┆ if base2=0 t┆
0x2cd40…2cd60 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆hen begin┆
0x2cd60…2cd7a 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 ┆ ┆
0x2cd7a…2cd80 (0x518,0x59c)
0x2cd80…2cda0 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6f 6c 64 29 3b 0a 20 20 20 20 ┆setposition(zoold, 0, old); ┆
0x2cda0…2cdc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f ┆ swoprec6(zo┆
0x2cdc0…2cde0 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆old, 512); ┆
0x2cde0…2ce00 20 20 65 6e 64 3b 0a 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 ┆ end; ┆
0x2ce00…2ce06 (359,) (0x518,0x59d)
0x2ce06…2ce20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 7a 6f 6f 6c 64 2e 62 61 73 65 31 2c ┆ to_from(zoold.base1,┆
0x2ce20…2ce40 20 74 65 72 6d 5f 70 61 72 61 6d 73 2c 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 29 3b 0a 20 20 20 ┆ term_params, term_des_lgt); ┆
0x2ce40…2ce60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 62 61 73 65 32 3d 30 20 74 ┆ if base2=0 t┆
0x2ce60…2ce7e 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆hen beg┆
0x2ce7e…2ce84 (0x518,0x59e)
0x2ce84…2cea0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆in ┆
0x2cea0…2cec0 6c 61 73 74 20 3a 3d 20 6f 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆last := old; ┆
0x2cec0…2cee0 20 20 20 20 20 20 6f 6c 64 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 ┆ old := zoold.word(256); ┆
0x2cee0…2cefc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f ┆ setpo┆
0x2cefc…2cf02 (0x518,0x59f)
0x2cf02…2cf20 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6f 6c 64 29 3b 0a 20 20 20 20 20 20 20 ┆sition(zoold, 0, old); ┆
0x2cf20…2cf40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 ┆ swoprec6(zoold┆
0x2cf40…2cf60 2c 20 35 31 32 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 65 ┆, 512); e┆
0x2cf60…2cf7a 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nd; ┆
0x2cf7a…2cf80 (0x518,0x5a0)
0x2cf80…2cfa0 20 62 61 73 65 31 3a 3d 20 69 66 20 62 61 73 65 31 3e 3d 6c 61 73 74 74 65 72 6d 20 74 68 65 6e ┆ base1:= if base1>=lastterm then┆
0x2cfa0…2cfc0 20 30 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 ┆ 0 ┆
0x2cfc0…2cfe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 61 73 65 31 20 2b 20 74 65 72 ┆ else base1 + ter┆
0x2cfe0…2d000 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆m_des_lgt; ┆
0x2d000…2d006 (360,) (0x518,0x5a1)
0x2d006…2d020 20 20 20 20 20 20 20 20 20 20 62 61 73 65 32 20 3a 3d 20 69 66 20 62 61 73 65 ┆ base2 := if base┆
0x2d020…2d040 32 3e 3d 6c 61 73 74 74 65 72 6d 20 74 68 65 6e 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2>=lastterm then 0 ┆
0x2d040…2d060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d060…2d07e 20 65 6c 73 65 20 62 61 73 65 32 20 2b 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 ┆ else base2 + term_des_lgt; ┆
0x2d07e…2d084 (0x518,0x5a2)
0x2d084…2d0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 62 61 73 65 ┆ if base┆
0x2d0a0…2d0c0 32 3d 30 20 61 6e 64 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3c 3e 2d 31 20 74 68 65 6e ┆2=0 and zoold.word(256)<>-1 then┆
0x2d0c0…2d0e0 0a 20 20 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 0a 20 20 ┆ begin ┆
0x2d0e0…2d0fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f ┆ setpo┆
0x2d0fc…2d102 (0x518,0x5a3)
0x2d102…2d120 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 ┆sition(zoold, 0, zoold.word(25┆
0x2d120…2d140 36 29 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 73 77 ┆6)); sw┆
0x2d140…2d160 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆oprec6(zoold, 512); ┆
0x2d160…2d17a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 3a 3d 20 7a 6f 6f 6c 64 ┆ next := zoold┆
0x2d17a…2d180 (0x518,0x5a4)
0x2d180…2d1a0 2e 77 6f 72 64 28 31 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 ┆.word(1); ┆
0x2d1a0…2d1c0 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ end else┆
0x2d1c0…2d1e0 20 6e 65 78 74 20 3a 3d 20 69 66 20 62 61 73 65 32 3c 3e 30 20 74 68 65 6e 20 7a 6f 6f 6c 64 2e ┆ next := if base2<>0 then zoold.┆
0x2d1e0…2d200 62 61 73 65 32 2e 77 6f 72 64 28 31 29 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆base2.word(1) ┆
0x2d200…2d206 (361,) (0x518,0x5a5)
0x2d206…2d220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d220…2d240 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ else -1; ┆
0x2d240…2d260 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 20 20 20 20 20 ┆ end; ┆
0x2d260…2d27e 20 20 20 20 3c 2a 20 6e 65 78 74 20 3d 20 2d 31 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 ┆ <* next = -1 *> ┆
0x2d27e…2d284 (0x518,0x5a6)
0x2d284…2d2a0 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 62 61 73 65 31 2b 32 20 73 74 ┆ for i:=base1+2 st┆
0x2d2a0…2d2c0 65 70 20 32 20 75 6e 74 69 6c 20 35 31 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ep 2 until 512 do ┆
0x2d2c0…2d2e0 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 69 2f 2f 32 29 20 3a 3d 20 2d 31 3b ┆ zoold.word(i//2) := -1;┆
0x2d2e0…2d2fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 73 65 67 ┆ <* seg┆
0x2d2fc…2d302 (0x518,0x5a7)
0x2d302…2d320 6d 20 6f 6c 64 20 69 73 20 66 72 65 65 20 69 66 20 62 61 73 65 31 3d 30 20 2a 3e 0a 20 20 ┆m old is free if base1=0 *> ┆
0x2d320…2d340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 62 61 73 65 31 20 3d 20 30 20 ┆ if base1 = 0 ┆
0x2d340…2d360 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆then begin ┆
0x2d360…2d37a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 ┆ set┆
0x2d37a…2d380 (0x518,0x5a8)
0x2d380…2d3a0 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6c 61 73 74 29 3b 0a 20 20 20 20 20 20 ┆position(zoold, 0, last); ┆
0x2d3a0…2d3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c ┆ swoprec6(zoold,┆
0x2d3c0…2d3e0 35 31 32 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 7a 6f 6f ┆512); zoo┆
0x2d3e0…2d400 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ld.word(256) := -1; ┆
0x2d400…2d406 (362,) (0x518,0x5a9)
0x2d406…2d420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 ┆ setposi┆
0x2d420…2d440 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tion(zoold, 0, 0); ┆
0x2d440…2d460 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a ┆ swoprec6(zoold, 512); ┆
0x2d460…2d47e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 7a 6f ┆ i := zo┆
0x2d47e…2d484 (0x518,0x5aa)
0x2d484…2d4a0 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆old.word(256); ┆
0x2d4a0…2d4c0 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 6f 6c 64 ┆ zoold.word(256) := old┆
0x2d4c0…2d4e0 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 73 65 74 70 6f 73 69 ┆; setposi┆
0x2d4e0…2d4fc 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6f 6c 64 29 3b 0a 20 20 20 20 20 20 20 ┆tion(zoold, 0, old); ┆
0x2d4fc…2d502 (0x518,0x5ab)
0x2d502…2d520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 ┆ swoprec6(zoold┆
0x2d520…2d540 2c 20 35 31 32 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 7a ┆, 512); z┆
0x2d540…2d560 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆oold.word(256) := i; ┆
0x2d560…2d57a 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; ┆
0x2d57a…2d580 (0x518,0x5ac)
0x2d580…2d5a0 20 20 20 20 20 20 20 20 65 6e 64 20 3c 2a 20 64 74 65 72 6d 20 2a 3e 3b 0a 20 20 20 20 20 20 20 ┆ end <* dterm *>; ┆
0x2d5a0…2d5c0 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 74 65 72 6d 20 2a 3e 0a 20 20 20 ┆ begin <* term *> ┆
0x2d5c0…2d5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 72 6d 3e 30 20 74 68 65 6e ┆ if term>0 then┆
0x2d5e0…2d600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆ be ┆
0x2d600…2d606 (363,) (0x518,0x5ad)
0x2d606…2d620 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gin ┆
0x2d620…2d640 20 65 72 72 6f 72 28 3c 3a 74 65 72 6d 20 69 6e 20 63 61 74 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 ┆ error(<:term in cat:>, pa); ┆
0x2d640…2d660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 ┆ goto read_up┆
0x2d660…2d67e 64 5f 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆d_term; e┆
0x2d67e…2d684 (0x518,0x5ae)
0x2d684…2d6a0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 ┆nd; ter┆
0x2d6a0…2d6c0 6d 5f 70 61 72 61 6d 73 2e 62 75 66 73 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 31 3b 0a 20 20 ┆m_params.bufs := false add 1; ┆
0x2d6c0…2d6e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 74 ┆ term_params.t┆
0x2d6e0…2d6fc 69 6d 65 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 34 30 3b 0a 20 20 20 20 20 20 20 ┆ime := false add 40; ┆
0x2d6fc…2d702 (0x518,0x5af)
0x2d702…2d720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 6f 74 65 5f ┆ if -,read_quote_┆
0x2d720…2d740 74 65 78 74 28 74 65 72 6d 5f 70 61 72 61 6d 73 2e 6b 65 79 2c 20 31 31 29 20 74 68 65 6e 0a 20 ┆text(term_params.key, 11) then ┆
0x2d740…2d760 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 0a 20 20 20 20 20 20 ┆ begin ┆
0x2d760…2d77a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 ┆ error(<:t┆
0x2d77a…2d780 (0x518,0x5b0)
0x2d780…2d7a0 65 72 6d 2d 6b 65 79 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆erm-key:>, pa); ┆
0x2d7a0…2d7c0 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 3b 0a 20 20 20 20 20 ┆ goto read_upd_term; ┆
0x2d7c0…2d7e0 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; ┆
0x2d7e0…2d800 20 20 20 20 20 20 20 20 20 20 3c 2a 20 72 65 61 64 20 62 75 66 72 69 6e 00 00 00 00 00 00 00 00 ┆ <* read bufrin ┆
0x2d800…2d806 (364,) (0x518,0x5b1)
0x2d806…2d820 67 20 61 6e 64 20 74 69 6d 65 63 6f 75 6e 74 20 69 66 20 70 72 65 73 65 6e 74 ┆g and timecount if present┆
0x2d820…2d840 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 69 66 20 72 65 61 64 ┆ *> if read┆
0x2d840…2d860 5f 6e 6f 28 6a 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_no(j) then ┆
0x2d860…2d87e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x2d87e…2d884 (0x518,0x5b2)
0x2d884…2d8a0 69 66 20 6a 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆if j<=0 then ┆
0x2d8a0…2d8c0 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 20 20 20 ┆ begin ┆
0x2d8c0…2d8e0 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 62 75 66 72 69 6e 67 3a 3e 2c 20 70 61 29 3b 0a 20 ┆ error(<:bufring:>, pa); ┆
0x2d8e0…2d8fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆ goto┆
0x2d8fc…2d902 (0x518,0x5b3)
0x2d902…2d920 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ read_upd_term; ┆
0x2d920…2d940 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end ┆
0x2d940…2d960 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x2d960…2d97a 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 62 75 66 73 20 3a ┆ term_params.bufs :┆
0x2d97a…2d980 (0x518,0x5b4)
0x2d980…2d9a0 3d 20 66 61 6c 73 65 20 61 64 64 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= false add j; ┆
0x2d9a0…2d9c0 20 20 20 20 20 20 20 20 69 66 20 72 65 61 64 5f 6e 6f 28 6a 29 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if read_no(j) then ┆
0x2d9c0…2d9e0 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 0a 20 20 20 20 20 20 ┆ begin ┆
0x2d9e0…2da00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆ if ┆
0x2da00…2da06 (365,) (0x518,0x5b5)
0x2da06…2da20 6a 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆j<=0 then ┆
0x2da20…2da40 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 ┆
0x2da40…2da60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 69 6d 65 63 6f 75 6e 74 3a ┆ error(<:timecount:┆
0x2da60…2da7e 3e 2c 20 70 61 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 ┆>, pa); ┆
0x2da7e…2da84 (0x518,0x5b6)
0x2da84…2daa0 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 3b 0a 20 ┆ goto read_upd_term; ┆
0x2daa0…2dac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 ┆ end ┆
0x2dac0…2dae0 20 20 20 20 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 74 65 ┆ else te┆
0x2dae0…2dafc 72 6d 5f 70 61 72 61 6d 73 2e 74 69 6d 65 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 ┆rm_params.time := false add ┆
0x2dafc…2db02 (0x518,0x5b7)
0x2db02…2db20 6a 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 65 6e ┆j; en┆
0x2db20…2db40 64 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 65 6e 64 3b 0a 20 ┆d; end; ┆
0x2db40…2db60 20 20 20 20 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 ┆ end; ┆
0x2db60…2db7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 3a 3d 20 74 65 72 6d ┆ base := term┆
0x2db7a…2db80 (0x518,0x5b8)
0x2db80…2dba0 5f 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 ┆_byte; last┆
0x2dba0…2dbc0 74 65 72 6d 20 3a 3d 20 28 69 66 20 66 72 65 65 5f 77 5f 70 72 73 65 67 6d 3c 3d 66 72 65 65 5f ┆term := (if free_w_prsegm<=free_┆
0x2dbc0…2dbe0 77 5f 73 65 67 6d 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 74 ┆w_segm t┆
0x2dbe0…2dc00 68 65 6e 20 66 72 65 65 5f 77 5f 73 65 67 6d 20 65 6c 73 65 20 66 72 65 00 00 00 00 00 00 00 00 ┆hen free_w_segm else fre ┆
0x2dc00…2dc06 (366,) (0x518,0x5b9)
0x2dc06…2dc20 65 5f 77 5f 70 72 73 65 67 6d 29 20 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆e_w_prsegm) - ┆
0x2dc20…2dc40 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 72 6d 5f 64 65 73 5f 6c 67 74 20 2b 20 32 29 3b 0a ┆ (term_des_lgt + 2); ┆
0x2dc40…2dc60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 72 6d 5f 62 79 74 ┆ if term_byt┆
0x2dc60…2dc7e 65 3c 3d 6c 61 73 74 74 65 72 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e<=lastterm then ┆
0x2dc7e…2dc84 (0x518,0x5ba)
0x2dc84…2dca0 20 20 20 20 20 20 20 20 20 20 3c 2a 20 72 6f 6f 6d 20 69 6e 20 74 68 69 73 20 73 65 ┆ <* room in this se┆
0x2dca0…2dcc0 67 6d 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 74 6f 5f ┆gm *> to_┆
0x2dcc0…2dce0 66 72 6f 6d 28 7a 6f 6f 6c 64 2e 62 61 73 65 2c 20 74 65 72 6d 5f 70 61 72 61 6d 73 2c 20 74 65 ┆from(zoold.base, term_params, te┆
0x2dce0…2dcfc 72 6d 5f 64 65 73 5f 6c 67 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rm_des_lgt) ┆
0x2dcfc…2dd02 (0x518,0x5bb)
0x2dd02…2dd20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x2dd20…2dd40 20 20 20 20 20 20 20 20 20 3c 2a 20 6e 65 77 20 73 65 67 6d 20 69 6e 20 75 73 65 20 2a 3e 0a 20 ┆ <* new segm in use *> ┆
0x2dd40…2dd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f ┆ setpositio┆
0x2dd60…2dd7a 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆n(zoold, 0, 0); ┆
0x2dd7a…2dd80 (0x518,0x5bc)
0x2dd80…2dda0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b ┆ inrec6(zoold, 512);┆
0x2dda0…2ddc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 20 3a 3d 20 7a ┆ new := z┆
0x2ddc0…2dde0 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆oold.word(256); ┆
0x2dde0…2de00 20 20 20 20 20 20 20 69 66 20 6e 65 77 3d 2d 31 20 74 68 65 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆ if new=-1 then ┆
0x2de00…2de06 (367,) (0x518,0x5bd)
0x2de06…2de20 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 ┆ begin┆
0x2de20…2de40 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 65 78 74 65 6e 64 ┆ extend┆
0x2de40…2de60 63 61 74 28 7a 6f 6f 6c 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cat(zoold); ┆
0x2de60…2de7e 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b ┆ setposition(zoold, 0, 0);┆
0x2de7e…2de84 (0x518,0x5be)
0x2de84…2dea0 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 69 6e ┆ in┆
0x2dea0…2dec0 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rec6(zoold, 512); ┆
0x2dec0…2dee0 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 ┆ new := zoold.word(256┆
0x2dee0…2defc 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 65 6e ┆); en┆
0x2defc…2df02 (0x518,0x5bf)
0x2df02…2df20 64 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 73 65 74 70 ┆d; setp┆
0x2df20…2df40 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6e 65 77 29 3b 0a 20 20 20 20 20 20 20 20 ┆osition(zoold, 0, new); ┆
0x2df40…2df60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 ┆ swoprec6(zoold, 5┆
0x2df60…2df7a 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆12); ┆
0x2df7a…2df80 (0x518,0x5c0)
0x2df80…2dfa0 20 20 66 72 65 65 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 ┆ free := zoold.word(256); ┆
0x2dfa0…2dfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 7a 6f 6f 6c 64 2c ┆ to_from(zoold,┆
0x2dfc0…2dfe0 20 74 65 72 6d 5f 70 61 72 61 6d 73 2c 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 29 3b 0a 20 20 20 ┆ term_params, term_des_lgt); ┆
0x2dfe0…2e000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 00 00 00 00 00 00 00 00 ┆ setp ┆
0x2e000…2e006 (368,) (0x518,0x5c1)
0x2e006…2e020 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 2d 74 65 72 6d 29 3b 0a ┆osition(zoold, 0, -term); ┆
0x2e020…2e040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 ┆ swoprec6(┆
0x2e040…2e060 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆zoold, 512); ┆
0x2e060…2e07e 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 6e 65 77 3b 0a 20 20 ┆ zoold.word(256) := new; ┆
0x2e07e…2e084 (0x518,0x5c2)
0x2e084…2e0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 ┆ setposi┆
0x2e0a0…2e0c0 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tion(zoold, 0, 0); ┆
0x2e0c0…2e0e0 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a ┆ swoprec6(zoold, 512); ┆
0x2e0e0…2e0fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 ┆ zoold┆
0x2e0fc…2e102 (0x518,0x5c3)
0x2e102…2e120 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 66 72 65 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆.word(256) := free; ┆
0x2e120…2e140 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 20 20 20 20 ┆ end; ┆
0x2e140…2e160 20 20 20 65 6e 64 20 3c 2a 20 74 65 72 6d 20 2a 3e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end <* term *>; ┆
0x2e160…2e17a 20 20 20 20 65 6e 64 20 63 61 73 65 20 70 61 72 61 6d 6e 6f 3b 0a 72 65 61 64 ┆ end case paramno; read┆
0x2e17a…2e180 (0x518,0x5c4)
0x2e180…2e1a0 5f 75 70 64 5f 74 65 72 6d 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 64 ┆_upd_term: read┆
0x2e1a0…2e1c0 5f 70 61 72 61 6d 28 70 61 72 61 6d 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_param(paramno); ┆
0x2e1c0…2e1e0 65 6e 64 20 66 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 69 66 20 63 68 65 ┆end for; end if che┆
0x2e1e0…2e200 63 6b 5f 70 72 6f 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 00 00 00 00 00 00 00 00 ┆ck_proc; end ┆
0x2e200…2e206 (369,) (0x518,0x5c5)
0x2e206…2e220 69 66 20 72 65 61 64 5f 70 72 6f 63 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 ┆if read_proc; end┆
0x2e220…2e240 20 63 70 72 6f 63 3b 0a 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 69 6e 73 65 72 ┆ cproc; begin <* inser┆
0x2e240…2e260 74 20 70 72 6f 63 65 73 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 65 78 ┆t process *> if index┆
0x2e260…2e27e 5f 73 65 67 6d 3c 3e 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆_segm<>-1 then begi┆
0x2e27e…2e284 (0x518,0x5c6)
0x2e284…2e2a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 70 72 6f 63 20 ┆n error(<:proc ┆
0x2e2a0…2e2c0 69 6e 20 63 61 74 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆in cat:>, tr); goto┆
0x2e2c0…2e2e0 20 72 65 61 64 5f 75 70 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ read_upd; end; ┆
0x2e2e0…2e2fc 20 20 20 20 20 20 69 6e 69 74 5f 70 72 6f 63 28 70 72 6f 63 5f 70 61 72 61 6d 73 29 ┆ init_proc(proc_params)┆
0x2e2fc…2e302 (0x518,0x5c7)
0x2e302…2e320 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 72 65 61 64 5f 70 72 6f 63 28 70 72 6f 63 ┆; if read_proc(proc┆
0x2e320…2e340 5f 70 61 72 61 6d 73 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆_params) then begin ┆
0x2e340…2e360 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 68 65 63 6b 5f 70 72 6f 63 28 70 72 6f 63 5f 70 ┆ if check_proc(proc_p┆
0x2e360…2e37a 61 72 61 6d 73 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆arams) then b┆
0x2e37a…2e380 (0x518,0x5c8)
0x2e380…2e3a0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 ┆egin setposition(┆
0x2e3a0…2e3c0 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f ┆zoold, 0, 0); swo┆
0x2e3c0…2e3e0 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆prec6(zoold, 512); ┆
0x2e3e0…2e400 20 20 69 66 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 34 29 20 3d 20 7a 00 00 00 00 00 00 00 00 ┆ if zoold.word(254) = z ┆
0x2e400…2e406 (370,) (0x518,0x5c9)
0x2e406…2e420 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 35 29 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆oold.word(255) then ┆
0x2e420…2e440 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 20 20 ┆ begin ┆
0x2e440…2e460 65 72 72 6f 72 28 3c 3a 63 61 74 20 66 75 6c 6c 3a 3e 2c 20 74 72 29 3b 0a 20 20 20 20 20 20 20 ┆error(<:cat full:>, tr); ┆
0x2e460…2e47e 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 3b 0a 20 20 20 20 20 ┆ goto read_upd; ┆
0x2e47e…2e484 (0x518,0x5ca)
0x2e484…2e4a0 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 20 ┆ end; ┆
0x2e4a0…2e4c0 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 34 29 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 ┆ zoold.word(254) := zoold.word(┆
0x2e4c0…2e4e0 32 35 34 29 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 73 65 ┆254) + 1; proc_se┆
0x2e4e0…2e4fc 67 6d 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 ┆gm := zoold.word(256); ┆
0x2e4fc…2e502 (0x518,0x5cb)
0x2e502…2e520 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 65 67 6d 3d 2d 31 20 74 68 65 6e ┆ if proc_segm=-1 then┆
0x2e520…2e540 0a 20 20 20 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 20 20 ┆ begin ┆
0x2e540…2e560 20 20 20 20 20 20 20 65 78 74 65 6e 64 63 61 74 28 7a 6f 6f 6c 64 29 3b 0a 20 20 20 20 20 20 20 ┆ extendcat(zoold); ┆
0x2e560…2e57a 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c ┆ setposition(zool┆
0x2e57a…2e580 (0x518,0x5cc)
0x2e580…2e5a0 64 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 20 73 77 6f 70 72 ┆d, 0, 0); swopr┆
0x2e5a0…2e5c0 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ec6(zoold, 512); ┆
0x2e5c0…2e5e0 20 20 70 72 6f 63 5f 73 65 67 6d 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a ┆ proc_segm := zoold.word(256); ┆
0x2e5e0…2e600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x2e600…2e606 (371,) (0x518,0x5cd)
0x2e606…2e620 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 5f 73 65 67 6d 20 3a 3d 20 28 ┆ index_segm := (┆
0x2e620…2e640 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 34 29 2d 31 29 2f 2f 70 72 6f 63 5f 70 72 5f 69 6e 64 65 ┆zoold.word(254)-1)//proc_pr_inde┆
0x2e640…2e660 78 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 65 78 5f 73 65 67 6d 3c ┆x; if index_segm<┆
0x2e660…2e67e 3e 30 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 0a 20 ┆>0 then begin ┆
0x2e67e…2e684 (0x518,0x5ce)
0x2e684…2e6a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 ┆ setposition(┆
0x2e6a0…2e6c0 7a 6f 6f 6c 64 2c 20 30 2c 20 69 6e 64 65 78 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆zoold, 0, index_segm); ┆
0x2e6c0…2e6e0 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 ┆ swoprec6(zoold, 512); ┆
0x2e6e0…2e6fc 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 ┆ end; ┆
0x2e6fc…2e702 (0x518,0x5cf)
0x2e702…2e720 20 20 20 20 20 62 61 73 65 20 3a 3d 20 70 72 6f 63 5f 62 79 74 65 3b 0a 20 20 20 20 20 20 ┆ base := proc_byte; ┆
0x2e720…2e740 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 7a 6f 6f 6c 64 2e 62 61 73 65 2c 20 70 72 6f ┆ to_from(zoold.base, pro┆
0x2e740…2e760 63 5f 6e 61 6d 65 2c 20 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 ┆c_name, 8); zoold┆
0x2e760…2e77a 2e 62 61 73 65 2e 73 65 67 6d 20 3a 3d 20 70 72 6f 63 5f 73 65 67 6d 3b 0a 20 ┆.base.segm := proc_segm; ┆
0x2e77a…2e780 (0x518,0x5d0)
0x2e780…2e7a0 20 20 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 6f 6f 6c 64 2c ┆ setposition(zoold,┆
0x2e7a0…2e7c0 20 30 2c 20 70 72 6f 63 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆ 0, proc_segm); s┆
0x2e7c0…2e7e0 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆woprec6(zoold, 512); ┆
0x2e7e0…2e800 20 20 20 20 6f 6c 64 20 3a 3d 20 70 72 6f 63 5f 73 65 67 6d 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ old := proc_segm; ┆
0x2e800…2e806 (372,) (0x518,0x5d1)
0x2e806…2e820 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 20 3a 3d 20 7a 6f 6f 6c 64 2e ┆ new := zoold.┆
0x2e820…2e840 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e ┆word(256); zoold.┆
0x2e840…2e860 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆word(256) := -1; ┆
0x2e860…2e87e 74 6f 5f 66 72 6f 6d 28 7a 6f 6f 6c 64 2c 20 70 72 6f 63 5f 70 61 72 61 6d 73 2c 20 70 72 ┆to_from(zoold, proc_params, pr┆
0x2e87e…2e884 (0x518,0x5d2)
0x2e884…2e8a0 6f 63 5f 64 65 73 5f 6c 67 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆oc_des_lgt); ┆
0x2e8a0…2e8c0 70 72 6f 63 5f 73 65 67 6d 73 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆proc_segms := 1; ┆
0x2e8c0…2e8e0 74 65 72 6d 5f 63 6f 75 6e 74 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆term_count := 0; ┆
0x2e8e0…2e8fc 74 65 72 6d 5f 73 74 61 72 74 20 3a 3d 20 70 72 6f 63 5f 64 65 73 5f 6c 67 74 3b 0a ┆term_start := proc_des_lgt; ┆
0x2e8fc…2e902 (0x518,0x5d3)
0x2e902…2e920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 70 61 72 61 ┆ read_param(para┆
0x2e920…2e940 6d 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 ┆mno); newpa_read ┆
0x2e940…2e960 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 ┆:= true; for i:=1┆
0x2e960…2e97a 20 77 68 69 6c 65 20 70 61 72 61 6d 6e 6f 3d 70 61 5f 74 65 72 6d 20 64 6f 0a ┆ while paramno=pa_term do ┆
0x2e97a…2e980 (0x518,0x5d4)
0x2e980…2e9a0 20 20 20 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 20 20 20 ┆ begin ┆
0x2e9a0…2e9c0 20 20 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 74 65 72 6d ┆ for j:=1 step 1 until term┆
0x2e9c0…2e9e0 5f 70 61 5f 6c 67 74 20 64 6f 20 74 65 72 6d 5f 70 61 72 61 6d 73 28 6a 29 20 3a 3d 20 30 3b 0a ┆_pa_lgt do term_params(j) := 0; ┆
0x2e9e0…2ea00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 00 00 00 00 00 00 00 00 ┆ term_pa ┆
0x2ea00…2ea06 (373,) (0x518,0x5d5)
0x2ea06…2ea20 72 61 6d 73 2e 62 75 66 73 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 31 3b 0a ┆rams.bufs := false add 1; ┆
0x2ea20…2ea40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 74 69 6d ┆ term_params.tim┆
0x2ea40…2ea60 65 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e := false add 40; ┆
0x2ea60…2ea7e 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 61 6d 65 28 74 65 72 6d 5f 70 61 72 61 6d 73 ┆ if -,read_name(term_params┆
0x2ea7e…2ea84 (0x518,0x5d6)
0x2ea84…2eaa0 2e 65 78 69 64 2c 20 31 31 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆.exid, 11) then ┆
0x2eaa0…2eac0 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 20 20 20 20 65 72 ┆ begin er┆
0x2eac0…2eae0 72 6f 72 28 3c 3a 6e 61 6d 65 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ror(<:name:>, pa); ┆
0x2eae0…2eafc 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 31 3b 0a 20 ┆ goto read_upd_term1; ┆
0x2eafc…2eb02 (0x518,0x5d7)
0x2eb02…2eb20 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 ┆ end; ┆
0x2eb20…2eb40 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 28 6e 61 6d ┆ if -,read_quote_text(nam┆
0x2eb40…2eb60 65 2c 20 33 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆e, 3) then begi┆
0x2eb60…2eb7a 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 ┆n error┆
0x2eb7a…2eb80 (0x518,0x5d8)
0x2eb80…2eba0 28 3c 3a 6c 6f 63 69 64 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(<:locid:>, pa); ┆
0x2eba0…2ebc0 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 31 3b 0a 20 20 20 20 20 20 20 ┆ goto read_upd_term1; ┆
0x2ebc0…2ebe0 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 20 20 20 20 20 ┆ end; ┆
0x2ebe0…2ec00 74 65 72 6d 5f 70 61 72 61 6d 73 2e 69 6e 74 69 64 20 3a 3d 20 6e 61 6d 00 00 00 00 00 00 00 00 ┆term_params.intid := nam ┆
0x2ec00…2ec06 (374,) (0x518,0x5d9)
0x2ec06…2ec20 65 28 31 29 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 ┆e(1) shift (-24) extract 2┆
0x2ec20…2ec40 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 72 6d 5f 73 65 67 6d ┆4; if term_segm┆
0x2ec40…2ec60 28 7a 6f 6f 6c 64 2c 20 70 72 6f 63 5f 73 65 67 6d 2c 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 65 ┆(zoold, proc_segm, term_params.e┆
0x2ec60…2ec7e 78 69 64 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 ┆xid, ┆
0x2ec7e…2ec84 (0x518,0x5da)
0x2ec84…2eca0 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 69 6e 74 69 64 2c 20 74 65 72 6d ┆ term_params.intid, term┆
0x2eca0…2ecc0 5f 62 79 74 65 29 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆_byte)>0 then b┆
0x2ecc0…2ece0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a ┆egin error(<:┆
0x2ece0…2ecfc 74 65 72 6d 20 69 6e 20 63 61 74 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 ┆term in cat:>, pa); ┆
0x2ecfc…2ed02 (0x518,0x5db)
0x2ed02…2ed20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 31 ┆ goto read_upd_term1┆
0x2ed20…2ed40 3b 0a 20 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 ┆; end; ┆
0x2ed40…2ed60 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 71 75 6f 74 65 5f 74 65 78 74 28 74 65 ┆ if -,read_quote_text(te┆
0x2ed60…2ed7a 72 6d 5f 70 61 72 61 6d 73 2e 6b 65 79 2c 20 31 31 29 20 74 68 65 6e 0a 20 20 ┆rm_params.key, 11) then ┆
0x2ed7a…2ed80 (0x518,0x5dc)
0x2ed80…2eda0 20 20 20 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 20 20 20 ┆ begin ┆
0x2eda0…2edc0 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 65 72 6d 2d 6b 65 79 3a 3e 2c 20 70 61 29 3b ┆ error(<:term-key:>, pa);┆
0x2edc0…2ede0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 ┆ goto read_up┆
0x2ede0…2ee00 64 5f 74 65 72 6d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆d_term1; ┆
0x2ee00…2ee06 (375,) (0x518,0x5dd)
0x2ee06…2ee20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a ┆ end; <*┆
0x2ee20…2ee40 20 72 65 61 64 20 62 75 66 72 69 6e 67 20 61 6e 64 20 74 69 6d 65 63 6f 75 6e 74 20 69 66 20 70 ┆ read bufring and timecount if p┆
0x2ee40…2ee60 72 65 73 65 6e 74 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 72 65 ┆resent *> if re┆
0x2ee60…2ee7e 61 64 5f 6e 6f 28 6a 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ad_no(j) then ┆
0x2ee7e…2ee84 (0x518,0x5de)
0x2ee84…2eea0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ begin if┆
0x2eea0…2eec0 20 6a 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ j<0 then beg┆
0x2eec0…2eee0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a ┆in error(<:┆
0x2eee0…2eefc 62 75 66 72 69 6e 67 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆bufring:>, pa); ┆
0x2eefc…2ef02 (0x518,0x5df)
0x2ef02…2ef20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 31 3b 0a ┆ goto read_upd_term1; ┆
0x2ef20…2ef40 20 20 20 20 20 20 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 ┆
0x2ef40…2ef60 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x2ef60…2ef7a 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 62 75 66 73 ┆ term_params.bufs┆
0x2ef7a…2ef80 (0x518,0x5e0)
0x2ef80…2efa0 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := false add j; ┆
0x2efa0…2efc0 20 20 20 20 20 20 69 66 20 72 65 61 64 5f 6e 6f 28 6a 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if read_no(j) then ┆
0x2efc0…2efe0 20 20 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 20 20 20 20 ┆ begin ┆
0x2efe0…2f000 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 3c 30 20 74 68 65 6e 0a 20 00 00 00 00 00 00 00 00 ┆ if j<0 then ┆
0x2f000…2f006 (376,) (0x518,0x5e1)
0x2f006…2f020 20 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 ┆ begi┆
0x2f020…2f040 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 ┆n error┆
0x2f040…2f060 28 3c 3a 74 69 6d 65 63 6f 75 6e 74 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(<:timecount:>, pa); ┆
0x2f060…2f07e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 61 64 5f 75 70 64 5f 74 65 ┆ goto read_upd_te┆
0x2f07e…2f084 (0x518,0x5e2)
0x2f084…2f0a0 72 6d 31 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 ┆rm1; ┆
0x2f0a0…2f0c0 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 ┆end else ┆
0x2f0c0…2f0e0 74 65 72 6d 5f 70 61 72 61 6d 73 2e 74 69 6d 65 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 6a 3b ┆term_params.time := false add j;┆
0x2f0e0…2f0fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ end; ┆
0x2f0fc…2f102 (0x518,0x5e3)
0x2f102…2f120 20 20 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 ┆ end; ┆
0x2f120…2f140 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 20 20 20 20 20 ┆ end; ┆
0x2f140…2f160 74 65 72 6d 5f 63 6f 75 6e 74 20 3a 3d 20 74 65 72 6d 5f 63 6f 75 6e 74 20 2b 20 31 3b 0a 20 20 ┆term_count := term_count + 1; ┆
0x2f160…2f17a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 65 67 ┆ if proc_seg┆
0x2f17a…2f180 (0x518,0x5e4)
0x2f180…2f1a0 6d 73 3d 31 20 61 6e 64 20 74 65 72 6d 5f 63 6f 75 6e 74 3d 74 65 72 6d 5f 70 72 5f 70 72 73 65 ┆ms=1 and term_count=term_pr_prse┆
0x2f1a0…2f1c0 67 6d 2b 31 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 ┆gm+1 or proc┆
0x2f1c0…2f1e0 5f 73 65 67 6d 73 3e 31 20 61 6e 64 20 74 65 72 6d 5f 63 6f 75 6e 74 3d 74 65 72 6d 5f 70 72 5f ┆_segms>1 and term_count=term_pr_┆
0x2f1e0…2f200 73 65 67 6d 2b 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆segm+1 then ┆
0x2f200…2f206 (377,) (0x518,0x5e5)
0x2f206…2f220 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 ┆
0x2f220…2f240 20 20 20 20 69 66 20 6e 65 77 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if new=-1 then ┆
0x2f240…2f260 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 20 20 20 20 20 ┆ begin ┆
0x2f260…2f27e 20 65 78 74 65 6e 64 63 61 74 28 7a 6f 6f 6c 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ extendcat(zoold); ┆
0x2f27e…2f284 (0x518,0x5e6)
0x2f284…2f2a0 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c ┆ setposition(zoold,┆
0x2f2a0…2f2c0 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 72 ┆ 0, 0); inr┆
0x2f2c0…2f2e0 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ec6(zoold, 512); ┆
0x2f2e0…2f2fc 20 20 20 20 20 20 6e 65 77 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 ┆ new := zoold.word(256)┆
0x2f2fc…2f302 (0x518,0x5e7)
0x2f302…2f320 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 ┆; setposi┆
0x2f320…2f340 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6f 6c 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆tion(zoold, 0, old); ┆
0x2f340…2f360 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a ┆ swoprec6(zoold, 512); ┆
0x2f360…2f37a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ end; ┆
0x2f37a…2f380 (0x518,0x5e8)
0x2f380…2f3a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 ┆ zoold.word(256)┆
0x2f3a0…2f3c0 20 3a 3d 20 6e 65 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 ┆ := new; setp┆
0x2f3c0…2f3e0 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 6e 65 77 29 3b 0a 20 20 20 20 20 20 20 20 ┆osition(zoold, 0, new); ┆
0x2f3e0…2f400 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 00 00 00 00 00 00 00 00 ┆ swoprec6(zool ┆
0x2f400…2f406 (378,) (0x518,0x5e9)
0x2f406…2f420 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d, 512); ┆
0x2f420…2f440 20 20 6f 6c 64 20 3a 3d 20 6e 65 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ old := new; ┆
0x2f440…2f460 20 6e 65 77 20 3a 3d 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 20 20 ┆ new := zoold.word(256); ┆
0x2f460…2f47e 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d ┆ zoold.word(256) :=┆
0x2f47e…2f484 (0x518,0x5ea)
0x2f484…2f4a0 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 ┆ -1; proc┆
0x2f4a0…2f4c0 5f 73 65 67 6d 73 20 3a 3d 20 70 72 6f 63 5f 73 65 67 6d 73 20 2b 20 31 3b 0a 20 20 20 20 20 20 ┆_segms := proc_segms + 1; ┆
0x2f4c0…2f4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 63 6f 75 6e 74 20 3a 3d 20 31 3b 0a 20 20 ┆ term_count := 1; ┆
0x2f4e0…2f4fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 73 74 61 72 74 20 ┆ term_start ┆
0x2f4fc…2f502 (0x518,0x5eb)
0x2f502…2f520 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆:= 0; end; ┆
0x2f520…2f540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 3a 3d 20 74 65 72 6d 5f 73 74 61 72 ┆ base := term_star┆
0x2f540…2f560 74 20 2b 20 28 74 65 72 6d 5f 63 6f 75 6e 74 2d 31 29 2a 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b ┆t + (term_count-1)*term_des_lgt;┆
0x2f560…2f57a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 ┆ to_from(┆
0x2f57a…2f580 (0x518,0x5ec)
0x2f580…2f5a0 7a 6f 6f 6c 64 2e 62 61 73 65 2c 20 74 65 72 6d 5f 70 61 72 61 6d 73 2c 20 74 65 72 6d 5f 64 65 ┆zoold.base, term_params, term_de┆
0x2f5a0…2f5c0 73 5f 6c 67 74 29 3b 0a 72 65 61 64 5f 75 70 64 5f 74 65 72 6d 31 3a 0a 20 20 20 20 20 20 20 20 ┆s_lgt); read_upd_term1: ┆
0x2f5c0…2f5e0 20 20 20 20 20 20 20 20 20 72 65 61 64 5f 70 61 72 61 6d 28 70 61 72 61 6d 6e 6f 29 3b 0a 20 20 ┆ read_param(paramno); ┆
0x2f5e0…2f600 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 66 6f 72 20 70 61 72 00 00 00 00 00 00 00 00 ┆ end for par ┆
0x2f600…2f606 (379,) (0x518,0x5ed)
0x2f606…2f620 61 6d 6e 6f 3d 74 65 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆amno=term; ┆
0x2f620…2f640 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 ┆setposition(zoold, 0, 0); ┆
0x2f640…2f660 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 ┆ swoprec6(zoold, 512); ┆
0x2f660…2f67e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 ┆ zoold.word(256) ┆
0x2f67e…2f684 (0x518,0x5ee)
0x2f684…2f6a0 3a 3d 20 6e 65 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 69 66 20 ┆:= new; end if ┆
0x2f6a0…2f6c0 63 68 65 63 6b 5f 70 72 6f 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 69 66 20 72 65 ┆check_proc; end if re┆
0x2f6c0…2f6e0 61 64 5f 70 72 6f 63 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 20 69 70 72 6f 63 3b 0a 20 20 20 ┆ad_proc; end iproc; ┆
0x2f6e0…2f6fc 20 20 20 20 65 6e 64 20 63 61 73 65 20 74 72 61 6e 73 2d 32 3b 0a 72 65 61 64 5f 75 ┆ end case trans-2; read_u┆
0x2f6fc…2f702 (0x518,0x5ef)
0x2f702…2f720 70 64 3a 0a 20 20 20 20 20 20 20 69 66 20 6e 65 77 70 61 5f 72 65 61 64 20 61 6e 64 20 70 ┆pd: if newpa_read and p┆
0x2f720…2f740 61 72 61 6d 6e 6f 3e 67 72 65 61 74 5f 74 72 6e 6f 20 6f 72 20 2d 2c 6e 65 77 70 61 5f 72 65 61 ┆aramno>great_trno or -,newpa_rea┆
0x2f740…2f760 64 0a 20 20 20 20 20 20 20 74 68 65 6e 20 72 65 61 64 5f 70 61 72 61 6d 28 74 72 61 6e 73 29 0a ┆d then read_param(trans) ┆
0x2f760…2f77a 20 20 20 20 20 20 20 65 6c 73 65 20 74 72 61 6e 73 20 3a 3d 20 70 61 72 61 6d ┆ else trans := param┆
0x2f77a…2f780 (0x518,0x5f0)
0x2f780…2f7a0 6e 6f 3b 0a 20 20 20 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 3a 3d 20 66 61 6c 73 65 3b 0a ┆no; newpa_read := false; ┆
0x2f7a0…2f7c0 20 20 20 20 20 65 6e 64 20 77 68 69 6c 65 20 2d 2c 65 6d 3b 0a 0a 65 6e 64 75 70 64 3a 0a 20 20 ┆ end while -,em; endupd: ┆
0x2f7c0…2f7e0 20 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 20 3a 28 7a 6f 6f ┆ i := monitor(42) lookup :(zoo┆
0x2f7e0…2f800 6c 64 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 69 66 20 69 3e 00 00 00 00 00 00 00 00 ┆ld, 0, tail); if i> ┆
0x2f800…2f806 (380,) (0x518,0x5f1)
0x2f806…2f820 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e ┆0 then system(9, i, <:<10>┆
0x2f820…2f840 6c 6f 6f 6b 75 70 3a 3e 29 3b 0a 20 20 20 20 20 6d 61 78 73 65 67 6d 20 3a 3d 20 74 61 69 6c 28 ┆lookup:>); maxsegm := tail(┆
0x2f840…2f860 31 29 3b 0a 20 20 20 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 ┆1); i := monitor(42) lookup┆
0x2f860…2f87e 20 3a 28 7a 6f 6e 65 77 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 69 66 20 69 3e ┆ :(zonew, 0, tail); if i>┆
0x2f87e…2f884 (0x518,0x5f2)
0x2f884…2f8a0 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 6c 6f ┆0 then system(9, i, <:<10>lo┆
0x2f8a0…2f8c0 6f 6b 75 70 3a 3e 29 3b 0a 20 20 20 20 20 69 66 20 74 61 69 6c 28 31 29 3c 6d 61 78 73 65 67 6d ┆okup:>); if tail(1)<maxsegm┆
0x2f8c0…2f8e0 20 74 68 65 6e 0a 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 74 61 69 6c 28 31 29 20 ┆ then begin tail(1) ┆
0x2f8e0…2f8fc 3a 3d 20 6d 61 78 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 69 20 3a 3d 20 6d 6f 6e 69 ┆:= maxsegm; i := moni┆
0x2f8fc…2f902 (0x518,0x5f3)
0x2f902…2f920 74 6f 72 28 34 34 29 20 63 68 61 6e 67 65 20 65 6e 74 72 79 20 3a 28 7a 6f 6e 65 77 2c 20 ┆tor(44) change entry :(zonew, ┆
0x2f920…2f940 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 ┆0, tail); if i>0 then sys┆
0x2f940…2f960 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 63 68 2e 65 6e 74 72 3a 3e 29 3b 0a 20 20 20 20 ┆tem(9, i, <:<10>ch.entr:>); ┆
0x2f960…2f97a 20 65 6e 64 3b 0a 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f ┆ end; setposition(zoo┆
0x2f97a…2f980 (0x518,0x5f4)
0x2f980…2f9a0 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6e 65 ┆ld, 0, 0); setposition(zone┆
0x2f9a0…2f9c0 77 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 ┆w, 0, 0); for i:=1 step 1 u┆
0x2f9c0…2f9e0 6e 74 69 6c 20 6d 61 78 73 65 67 6d 20 64 6f 0a 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ntil maxsegm do begin ┆
0x2f9e0…2fa00 20 20 69 6e 72 65 63 36 28 7a 6f 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ inrec6(zoold, 512); ┆
0x2fa00…2fa06 (381,) (0x518,0x5f5)
0x2fa06…2fa20 20 20 20 20 20 6f 75 74 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 29 3b 0a ┆ outrec6(zonew, 512); ┆
0x2fa20…2fa40 20 20 20 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 31 32 38 ┆ for j:=1 step 1 until 128┆
0x2fa40…2fa60 20 64 6f 0a 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 77 28 6a 29 20 3a 3d 20 7a 6f 6f 6c 64 28 6a ┆ do zonew(j) := zoold(j┆
0x2fa60…2fa7e 29 3b 0a 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 ┆); end; i := monitor┆
0x2fa7e…2fa84 (0x518,0x5f6)
0x2fa84…2faa0 28 34 38 29 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 3a 28 20 7a 6f 6f 6c 64 2c 20 ┆(48) remove entry :( zoold, ┆
0x2faa0…2fac0 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 ┆0, tail); if i>0 then syste┆
0x2fac0…2fae0 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 72 65 6d 6f 76 65 3a 3e 29 3b 0a 20 20 20 20 20 63 6c ┆m(9, i, <:<10>remove:>); cl┆
0x2fae0…2fafc 6f 73 65 28 7a 6f 6f 6c 64 2c 20 74 72 75 65 29 3b 0a 20 20 20 65 6e 64 20 75 70 64 ┆ose(zoold, true); end upd┆
0x2fafc…2fb02 (0x518,0x5f7)
0x2fb02…2fb20 61 74 65 3b 0a 0a 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 ┆ate; i := monitor(42) looku┆
0x2fb20…2fb40 70 20 3a 28 20 20 7a 6f 6e 65 77 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 69 66 20 69 3e 30 20 ┆p :( zonew, 0, tail); if i>0 ┆
0x2fb40…2fb60 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 6c 6f 6f 6b 75 70 3a 3e ┆then system(9, i, <:<10>lookup:>┆
0x2fb60…2fb7a 29 3b 0a 20 20 74 61 69 6c 28 36 29 20 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c ┆); tail(6) := systime(7,┆
0x2fb7a…2fb80 (0x518,0x5f8)
0x2fb80…2fba0 20 30 2c 20 73 68 6f 72 74 29 3b 0a 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 34 29 20 63 ┆ 0, short); i := monitor(44) c┆
0x2fba0…2fbc0 68 61 6e 67 65 20 65 6e 74 72 79 20 3a 28 7a 6f 6e 65 77 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 ┆hange entry :(zonew, 0, tail); ┆
0x2fbc0…2fbe0 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e ┆ if i>0 then system(9, i, <:<10>┆
0x2fbe0…2fc00 63 68 2e 65 6e 74 72 3a 3e 29 3b 0a 20 0c 0a 20 20 69 66 20 6c 69 73 74 00 00 00 00 00 00 00 00 ┆ch.entr:>); if list ┆
0x2fc00…2fc06 (382,) (0x518,0x5f9)
0x2fc06…2fc20 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 20 3a 3d 20 31 3b 0a ┆ then begin i := 1; ┆
0x2fc20…2fc40 20 20 20 20 6f 70 65 6e 28 7a 6f 6f 75 74 2c 20 34 2c 20 73 74 72 69 6e 67 20 6f 75 74 66 69 6c ┆ open(zoout, 4, string outfil┆
0x2fc40…2fc60 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 30 29 3b 0a 20 20 20 20 73 65 74 70 6f 73 69 74 ┆e(increase(i)), 0); setposit┆
0x2fc60…2fc7e 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 6e 72 65 63 36 28 7a ┆ion(zonew, 0, 0); inrec6(z┆
0x2fc7e…2fc84 (0x518,0x5fa)
0x2fc84…2fca0 6f 6e 65 77 2c 20 35 31 32 29 3b 0a 20 20 20 20 70 72 6f 63 5f 63 6f 75 6e 74 20 3a ┆onew, 512); proc_count :┆
0x2fca0…2fcc0 3d 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 34 29 3b 0a 20 20 20 20 77 72 69 74 65 28 7a 6f 6f ┆= zonew.word(254); write(zoo┆
0x2fcc0…2fce0 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 31 32 2c 31 2c 20 6e 6c 2c 31 2c 20 73 74 72 69 6e 67 ┆ut, false add 12,1, nl,1, string┆
0x2fce0…2fcfc 20 70 61 72 61 6d 28 31 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 ┆ param(1), sp,1, zonew.word(┆
0x2fcfc…2fd02 (0x518,0x5fb)
0x2fd02…2fd20 32 35 35 29 29 3b 0a 20 20 20 20 66 6f 72 20 6b 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 ┆255)); for k:=1 step 1 unt┆
0x2fd20…2fd40 69 6c 20 70 72 6f 63 5f 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆il proc_count do begin ┆
0x2fd40…2fd60 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 28 6b 2d 31 29 2f 2f 70 72 ┆ setposition(zonew, 0, (k-1)//pr┆
0x2fd60…2fd7a 6f 63 5f 70 72 5f 69 6e 64 65 78 29 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 ┆oc_pr_index); inrec6┆
0x2fd7a…2fd80 (0x518,0x5fc)
0x2fd80…2fda0 28 7a 6f 6e 65 77 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 6c 62 61 73 65 20 3a 3d 20 28 69 66 ┆(zonew, 512); lbase := (if┆
0x2fda0…2fdc0 20 6b 20 6d 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 3d 30 20 74 68 65 6e 20 28 70 72 6f ┆ k mod proc_pr_index=0 then (pro┆
0x2fdc0…2fde0 63 5f 70 72 5f 69 6e 64 65 78 2d 31 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆c_pr_index-1) else ┆
0x2fde0…2fe00 20 20 28 6b 20 6d 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 20 2d 00 00 00 00 00 00 00 00 ┆ (k mod proc_pr_index - ┆
0x2fe00…2fe06 (383,) (0x518,0x5fd)
0x2fe06…2fe20 20 31 29 29 2a 69 6e 64 65 78 5f 6c 67 74 3b 0a 20 20 20 20 20 20 77 72 69 74 ┆ 1))*index_lgt; writ┆
0x2fe20…2fe40 65 28 7a 6f 6f 75 74 2c 20 6e 6c 2c 33 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 32 29 2c 20 ┆e(zoout, nl,3, string param(2), ┆
0x2fe40…2fe60 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 6c 62 61 73 65 29 3b 0a 20 20 20 20 20 20 73 65 74 70 6f 73 ┆sp,1, zonew.lbase); setpos┆
0x2fe60…2fe7e 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 7a 6f 6e 65 77 2e 6c 62 61 73 65 2e 73 65 ┆ition(zonew, 0, zonew.lbase.se┆
0x2fe7e…2fe84 (0x518,0x5fe)
0x2fe84…2fea0 67 6d 29 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 ┆gm); inrec6(zonew, 512┆
0x2fea0…2fec0 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 7a 6f 6f 75 74 2c 20 6e 6c 2c 31 2c 20 73 70 2c 32 ┆); write(zoout, nl,1, sp,2┆
0x2fec0…2fee0 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 36 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 62 ┆, string param(6), sp,1, zonew.b┆
0x2fee0…2fefc 75 66 20 65 78 74 72 61 63 74 20 32 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆uf extract 24, ┆
0x2fefc…2ff02 (0x518,0x5ff)
0x2ff02…2ff20 20 20 20 20 20 20 73 70 2c 31 2c 20 73 70 2c 32 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d ┆ sp,1, sp,2, string param┆
0x2ff20…2ff40 28 37 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 61 72 65 61 20 65 78 74 72 61 63 74 20 32 34 ┆(7), sp,1, zonew.area extract 24┆
0x2ff40…2ff60 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 20 73 70 2c 32 2c ┆, nl,1, sp,2,┆
0x2ff60…2ff7a 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 38 29 2c 20 73 70 2c 31 2c 20 7a 6f ┆ string param(8), sp,1, zo┆
0x2ff7a…2ff80 (0x518,0x600)
0x2ff80…2ffa0 6e 65 77 2e 73 74 64 31 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 73 74 64 32 2c 0a 20 20 20 20 ┆new.std1, sp,1, zonew.std2, ┆
0x2ffa0…2ffc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 20 73 70 2c 32 2c 20 73 74 72 69 6e ┆ nl,1, sp,2, strin┆
0x2ffc0…2ffe0 67 20 70 61 72 61 6d 28 39 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 75 73 65 31 2c 20 73 70 ┆g param(9), sp,1, zonew.use1, sp┆
0x2ffe0…30000 2c 31 2c 20 7a 6f 6e 65 77 2e 75 73 65 32 2c 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆,1, zonew.use2, ┆
0x30000…30006 (384,) (0x518,0x601)
0x30006…30020 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 20 73 70 2c 32 2c 20 73 74 72 ┆ nl,1, sp,2, str┆
0x30020…30040 69 6e 67 20 70 61 72 61 6d 28 31 30 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 6d 61 78 31 2c ┆ing param(10), sp,1, zonew.max1,┆
0x30040…30060 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 6d 61 78 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sp,1, zonew.max2, ┆
0x30060…3007e 20 20 20 20 20 20 6e 6c 2c 31 2c 20 73 70 2c 32 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d ┆ nl,1, sp,2, string param┆
0x3007e…30084 (0x518,0x602)
0x30084…300a0 28 31 31 29 2c 20 73 70 2c 31 2c 20 66 61 6c 73 65 20 61 64 64 20 33 34 2c 31 2c 20 ┆(11), sp,1, false add 34,1, ┆
0x300a0…300c0 7a 6f 6e 65 77 2e 70 61 73 73 2c 20 66 61 6c 73 65 20 61 64 64 20 33 34 2c 31 2c 0a 20 20 20 20 ┆zonew.pass, false add 34,1, ┆
0x300c0…300e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 20 73 70 2c 32 2c 20 73 74 72 69 6e ┆ nl,1, sp,2, strin┆
0x300e0…300fc 67 20 70 61 72 61 6d 28 31 32 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 6d 69 6e ┆g param(12), sp,1, zonew.min┆
0x300fc…30102 (0x518,0x603)
0x30102…30120 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c 20 73 70 ┆s, nl,1, sp┆
0x30120…30140 2c 32 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 31 33 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 ┆,2, string param(13), sp,1, zone┆
0x30140…30160 77 2e 6d 61 78 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 2c 31 2c ┆w.maxs, nl,1,┆
0x30160…3017a 20 73 70 2c 32 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 31 34 29 2c 20 73 ┆ sp,2, string param(14), s┆
0x3017a…30180 (0x518,0x604)
0x30180…301a0 70 2c 31 2c 20 66 61 6c 73 65 20 61 64 64 20 33 34 2c 31 2c 20 7a 6f 6e 65 77 2e 66 70 2c 20 66 ┆p,1, false add 34,1, zonew.fp, f┆
0x301a0…301c0 61 6c 73 65 20 61 64 64 20 33 34 2c 31 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 ┆alse add 34,1); for i:=0 s┆
0x301c0…301e0 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f 62 73 2d 31 20 64 6f 0a 20 20 20 20 20 20 ┆tep 1 until no_of_bs-1 do ┆
0x301e0…30200 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6e 6f 31 20 3a 3d 20 6e 6f 32 00 00 00 00 00 00 00 00 ┆begin no1 := no2 ┆
0x30200…30206 (385,) (0x518,0x605)
0x30206…30220 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 69 3d 30 20 3c 2a 20 64 ┆ := 0; if i=0 <* d┆
0x30220…30240 69 73 63 20 2a 3e 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 ┆isc *> then begin ┆
0x30240…30260 20 20 20 20 66 6f 72 20 6a 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 6f 5f 6f 66 5f ┆ for j:=2 step 1 until no_of_┆
0x30260…3027e 62 73 20 64 6f 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 ┆bs do begin ┆
0x3027e…30284 (0x518,0x606)
0x30284…302a0 20 20 20 20 70 65 72 6d 20 3a 3d 20 70 65 72 6d 31 20 2b 20 28 6a 2d 31 29 2a 32 34 ┆ perm := perm1 + (j-1)*24┆
0x302a0…302c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 31 20 3a 3d 20 6e 6f 31 20 2b 20 7a 6f 6e 65 77 ┆; no1 := no1 + zonew┆
0x302c0…302e0 2e 70 65 72 6d 28 35 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 32 20 3a 3d 20 6e 6f 32 ┆.perm(5); no2 := no2┆
0x302e0…302fc 20 2b 20 7a 6f 6e 65 77 2e 70 65 72 6d 28 37 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ + zonew.perm(7); ┆
0x302fc…30302 (0x518,0x607)
0x30302…30320 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 70 65 72 6d ┆end; end; perm┆
0x30320…30340 20 3a 3d 20 70 65 72 6d 31 20 2b 20 69 2a 32 34 3b 0a 20 20 20 20 20 20 20 20 69 66 20 7a 6f 6e ┆ := perm1 + i*24; if zon┆
0x30340…30360 65 77 2e 70 65 72 6d 28 31 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ew.perm(1)<>0 then begin┆
0x30360…3037a 0a 20 20 20 20 20 20 20 20 20 20 6c 62 61 73 65 20 3a 3d 20 70 65 72 6d 3b 0a ┆ lbase := perm; ┆
0x3037a…30380 (0x518,0x608)
0x30380…303a0 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 6f 6f 75 74 2c 20 6e 6c 2c 31 2c 20 73 70 2c ┆ write(zoout, nl,1, sp,┆
0x303a0…303c0 32 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 31 35 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 ┆2, string param(15), sp,1, zonew┆
0x303c0…303e0 2e 6c 62 61 73 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 30 20 73 74 65 70 ┆.lbase); for j:=0 step┆
0x303e0…30400 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ 1 until 3 do ┆
0x30400…30406 (386,) (0x518,0x609)
0x30406…30420 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 73 65 67 6d 20 3a 3d ┆begin csegm :=┆
0x30420…30440 20 6b 30 73 20 2b 20 6a 2a 34 3b 20 20 65 6e 74 72 20 3a 3d 20 63 73 65 67 6d 2d 32 3b 0a 20 20 ┆ k0s + j*4; entr := csegm-2; ┆
0x30440…30460 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 6f 6f 75 74 2c 20 73 70 2c 31 2c 20 73 74 72 ┆ write(zoout, sp,1, str┆
0x30460…3047e 69 6e 67 20 70 61 72 61 6d 28 31 36 2b 6a 29 2c 20 73 70 2c 31 2c 0a 20 20 20 20 20 20 20 ┆ing param(16+j), sp,1, ┆
0x3047e…30484 (0x518,0x60a)
0x30484…304a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 77 2e 70 65 72 6d ┆ zonew.perm┆
0x304a0…304c0 2e 65 6e 74 72 2d 28 69 66 20 6a 3d 30 20 74 68 65 6e 20 6e 6f 31 20 65 6c 73 65 0a 20 20 20 20 ┆.entr-(if j=0 then no1 else ┆
0x304c0…304e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x304e0…304fc 20 20 20 20 20 20 69 66 20 6a 3d 31 20 74 68 65 6e 20 6e 6f 32 20 65 6c 73 65 20 30 ┆ if j=1 then no2 else 0┆
0x304fc…30502 (0x518,0x60b)
0x30502…30520 29 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 73 70 ┆), sp┆
0x30520…30540 2c 31 2c 20 7a 6f 6e 65 77 2e 70 65 72 6d 2e 63 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆,1, zonew.perm.csegm); ┆
0x30540…30560 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 65 6e 64 3b 0a 20 20 ┆ end; end; end; ┆
0x30560…3057a 20 20 20 20 63 6f 6e 74 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 65 78 ┆ cont := true; ex┆
0x3057a…30580 (0x518,0x60c)
0x30580…305a0 69 64 20 3a 3d 20 70 72 6f 63 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 69 6e 74 69 64 20 ┆id := proc_des_lgt; intid ┆
0x305a0…305c0 3a 3d 20 65 78 69 64 20 2b 20 31 30 3b 0a 20 20 20 20 20 20 6b 65 79 20 3a 3d 20 69 6e 74 69 64 ┆:= exid + 10; key := intid┆
0x305c0…305e0 3b 0a 20 20 20 20 20 20 62 75 66 73 20 3a 3d 20 6b 65 79 20 2b 20 39 3b 0a 20 20 20 20 20 20 74 ┆; bufs := key + 9; t┆
0x305e0…30600 69 6d 65 20 3a 3d 20 62 75 66 73 20 2b 20 31 3b 0a 20 20 20 20 20 20 6e 00 00 00 00 00 00 00 00 ┆ime := bufs + 1; n ┆
0x30600…30606 (387,) (0x518,0x60d)
0x30606…30620 65 78 74 20 3a 3d 20 65 78 69 64 20 2b 20 32 3b 0a 20 20 20 20 20 20 66 6f 72 ┆ext := exid + 2; for┆
0x30620…30640 20 69 3a 3d 31 20 77 68 69 6c 65 20 63 6f 6e 74 20 61 6e 64 20 7a 6f 6e 65 77 2e 6e 65 78 74 3c ┆ i:=1 while cont and zonew.next<┆
0x30640…30660 3e 2d 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆>-1 do begin write┆
0x30660…3067e 28 7a 6f 6f 75 74 2c 20 6e 6c 2c 31 2c 20 73 70 2c 32 2c 20 73 74 72 69 6e 67 20 70 61 72 ┆(zoout, nl,1, sp,2, string par┆
0x3067e…30684 (0x518,0x60e)
0x30684…306a0 61 6d 28 32 31 29 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 65 78 69 64 2c 0a 20 20 ┆am(21), sp,1, zonew.exid, ┆
0x306a0…306c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 2c 31 2c 20 66 61 6c 73 65 20 61 ┆ sp,1, false a┆
0x306c0…306e0 64 64 20 33 34 2c 31 2c 20 73 74 72 69 6e 67 20 65 78 74 65 6e 64 20 7a 6f 6e 65 77 2e 69 6e 74 ┆dd 34,1, string extend zonew.int┆
0x306e0…306fc 69 64 20 73 68 69 66 74 20 32 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆id shift 24, ┆
0x306fc…30702 (0x518,0x60f)
0x30702…30720 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 33 34 2c 31 2c 20 73 70 2c 31 2c 20 66 61 ┆ false add 34,1, sp,1, fa┆
0x30720…30740 6c 73 65 20 61 64 64 20 33 34 2c 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lse add 34,1, ┆
0x30740…30760 20 20 20 7a 6f 6e 65 77 2e 6b 65 79 2c 20 66 61 6c 73 65 20 61 64 64 20 33 34 2c 31 2c 20 73 70 ┆ zonew.key, false add 34,1, sp┆
0x30760…3077a 2c 31 2c 20 7a 6f 6e 65 77 2e 62 75 66 73 20 65 78 74 72 61 63 74 20 31 32 2c ┆,1, zonew.bufs extract 12,┆
0x3077a…30780 (0x518,0x610)
0x30780…307a0 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 31 2c 20 7a 6f 6e 65 ┆ sp,1, zone┆
0x307a0…307c0 77 2e 74 69 6d 65 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 20 20 20 20 65 78 69 64 ┆w.time extract 12); exid┆
0x307c0…307e0 20 3a 3d 20 65 78 69 64 20 2b 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 ┆ := exid + term_des_lgt; ┆
0x307e0…30800 20 69 6e 74 69 64 20 3a 3d 20 69 6e 74 69 64 20 2b 20 74 65 72 6d 5f 64 00 00 00 00 00 00 00 00 ┆ intid := intid + term_d ┆
0x30800…30806 (388,) (0x518,0x611)
0x30806…30820 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 6b 65 79 20 3a 3d 20 6b 65 79 ┆es_lgt; key := key┆
0x30820…30840 20 2b 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 62 75 66 73 20 3a 3d ┆ + term_des_lgt; bufs :=┆
0x30840…30860 20 62 75 66 73 20 2b 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 20 20 20 20 20 74 69 ┆ bufs + term_des_lgt; ti┆
0x30860…3087e 6d 65 20 3a 3d 20 74 69 6d 65 20 2b 20 74 65 72 6d 5f 64 65 73 5f 6c 67 74 3b 0a 20 20 20 ┆me := time + term_des_lgt; ┆
0x3087e…30884 (0x518,0x612)
0x30884…308a0 20 20 20 20 20 6e 65 78 74 20 3a 3d 20 6e 65 78 74 20 2b 20 74 65 72 6d 5f 64 65 73 ┆ next := next + term_des┆
0x308a0…308c0 5f 6c 67 74 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 6e 65 78 74 3d 66 72 65 65 5f 77 5f 70 72 ┆_lgt; if next=free_w_pr┆
0x308c0…308e0 73 65 67 6d 20 6f 72 20 6e 65 78 74 3d 66 72 65 65 5f 77 5f 73 65 67 6d 20 74 68 65 6e 0a 20 20 ┆segm or next=free_w_segm then ┆
0x308e0…308fc 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 73 ┆ begin proc_s┆
0x308fc…30902 (0x518,0x613)
0x30902…30920 65 67 6d 73 20 3a 3d 20 7a 6f 6e 65 77 2e 77 6f 72 64 28 32 35 36 29 3b 0a 20 20 20 20 20 ┆egms := zonew.word(256); ┆
0x30920…30940 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 65 67 6d 73 3d 2d 31 20 74 68 65 6e 20 63 6f 6e 74 20 ┆ if proc_segms=-1 then cont ┆
0x30940…30960 3a 3d 20 66 61 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆:= false else ┆
0x30960…3097a 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 ┆ begin setpos┆
0x3097a…30980 (0x518,0x614)
0x30980…309a0 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 70 72 6f 63 5f 73 65 67 6d 73 29 3b 0a 20 20 20 ┆ition(zonew, 0, proc_segms); ┆
0x309a0…309c0 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 29 3b 0a 20 20 20 ┆ inrec6(zonew, 512); ┆
0x309c0…309e0 20 20 20 20 20 20 20 20 20 65 78 69 64 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ exid := 0; ┆
0x309e0…30a00 69 6e 74 69 64 20 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆intid := 10; ┆
0x30a00…30a06 (389,) (0x518,0x615)
0x30a06…30a20 20 6b 65 79 20 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 ┆ key := 10; bu┆
0x30a20…30a40 66 73 20 3a 3d 20 31 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 20 3a 3d 20 32 30 ┆fs := 19; time := 20┆
0x30a40…30a60 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 ┆; next := 2; ┆
0x30a60…30a7e 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 65 6e 64 ┆ end; end; end┆
0x30a7e…30a84 (0x518,0x616)
0x30a84…30aa0 3b 0a 20 20 20 20 65 6e 64 20 66 6f 72 20 6b 3b 0a 20 20 20 20 77 72 69 74 65 28 7a ┆; end for k; write(z┆
0x30aa0…30ac0 6f 6f 75 74 2c 20 6e 6c 2c 31 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 30 29 2c 20 6e 6c 2c ┆oout, nl,1, string param(0), nl,┆
0x30ac0…30ae0 31 2c 20 66 61 6c 73 65 20 61 64 64 20 32 35 2c 31 29 3b 0a 20 20 20 20 69 20 3a 3d 20 6d 6f 6e ┆1, false add 25,1); i := mon┆
0x30ae0…30afc 69 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 20 3a 28 20 7a 6f 6f 75 74 2c 20 30 2c ┆itor(42) lookup :( zoout, 0,┆
0x30afc…30b02 (0x518,0x617)
0x30b02…30b20 20 74 61 69 6c 29 3b 0a 20 20 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d ┆ tail); if i>0 then system┆
0x30b20…30b40 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 6c 6f 6f 6b 75 70 3a 3e 29 3b 0a 20 20 20 20 74 61 69 6c ┆(9, i, <:<10>lookup:>); tail┆
0x30b40…30b60 28 36 29 20 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c 20 30 2c 20 73 68 6f 72 74 29 3b 0a 20 20 20 ┆(6) := systime(7, 0, short); ┆
0x30b60…30b7a 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 34 29 20 63 68 61 6e 67 65 20 65 ┆ i := monitor(44) change e┆
0x30b7a…30b80 (0x518,0x618)
0x30b80…30ba0 6e 74 72 79 20 3a 28 20 7a 6f 6f 75 74 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 69 66 20 ┆ntry :( zoout, 0, tail); if ┆
0x30ba0…30bc0 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 3e 63 68 2e 65 ┆i>0 then system(9, i, <:<10>ch.e┆
0x30bc0…30be0 6e 74 72 79 3a 3e 29 3b 0a 20 20 20 20 63 6c 6f 73 65 28 7a 6f 6f 75 74 2c 20 74 72 75 65 29 3b ┆ntry:>); close(zoout, true);┆
0x30be0…30c00 0a 20 20 65 6e 64 20 6c 69 73 74 3b 0a 0a 20 20 63 6c 6f 73 65 20 28 7a 00 00 00 00 00 00 00 00 ┆ end list; close (z ┆
0x30c00…30c06 (390,) (0x518,0x619)
0x30c06…30c20 6f 6e 65 77 2c 20 74 72 75 65 29 3b 0a 20 20 69 66 20 74 65 6d 70 6e 65 77 63 ┆onew, true); if tempnewc┆
0x30c20…30c40 61 74 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 ┆at then begin i := monitor┆
0x30c40…30c60 28 34 38 29 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 3a 28 7a 6f 6e 65 77 2c 20 30 2c 20 74 61 ┆(48) remove entry :(zonew, 0, ta┆
0x30c60…30c7e 69 6c 29 3b 0a 20 20 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c ┆il); if i>0 then system(9,┆
0x30c7e…30c84 (0x518,0x61a)
0x30c84…30ca0 20 69 2c 20 3c 3a 3c 31 30 3e 72 65 6d 6f 76 65 3a 3e 29 3b 0a 20 20 65 6e 64 3b 0a ┆ i, <:<10>remove:>); end; ┆
0x30ca0…30cc0 20 20 69 66 20 64 61 74 61 5f 65 72 72 6f 72 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 30 ┆ if data_error then system(9, 0┆
0x30cc0…30ce0 2c 20 3c 3a 3c 31 30 3e 65 72 72 6f 72 73 3a 3e 29 3b 0a 65 6e 64 3b 0a 19 00 00 20 20 69 6e 72 ┆, <:<10>errors:>); end; inr┆
0x30ce0…30cfc 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ec6(zonew, 512); ┆
0x30cfc…30d02 (0x518,0x61b)
0x30d02…30d20 20 65 78 69 64 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 69 64 20 ┆ exid := 0; intid ┆
0x30d20…30d40 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 20 3a 3d 20 31 30 3b 0a 20 20 ┆:= 10; key := 10; ┆
0x30d40…30d60 20 20 20 20 20 20 20 20 20 20 62 75 66 73 20 3a 3d 20 31 39 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ bufs := 19; ┆
0x30d60…30d7a 20 20 74 69 6d 65 20 3a 3d 20 32 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ time := 20; ┆
0x30d7a…30d80 (0x518,0x61c)
0x30d80…30da0 6e 65 78 74 20 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆next := 2; end; ┆
0x30da0…30dc0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 66 6f 72 20 6b 3b ┆ end; end; end for k;┆
0x30dc0…30de0 0a 20 20 20 20 77 72 69 74 65 28 7a 6f 6f 75 74 2c 20 6e 6c 2c 31 2c 20 73 74 72 69 6e 67 20 70 ┆ write(zoout, nl,1, string p┆
0x30de0…30e00 61 72 61 6d 28 30 29 2c 20 6e 6c 2c 31 2c 20 66 61 6c 73 65 20 61 64 64 00 00 00 00 00 00 00 00 ┆aram(0), nl,1, false add ┆
0x30e00…30e06 (391,) (0x518,0x61d)
0x30e06…30e20 20 32 35 2c 31 29 3b 0a 20 20 20 20 69 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 ┆ 25,1); i := monitor(4┆
0x30e20…30e40 32 29 20 6c 6f 6f 6b 75 70 20 3a 28 20 7a 6f 6f 75 74 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 ┆2) lookup :( zoout, 0, tail); ┆
0x30e40…30e60 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 20 69 2c 20 3c 3a 3c 31 30 ┆ if i>0 then system(9, i, <:<10┆
0x30e60…30e7e 3e 6c 6f 6f 6b 75 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 ┆>looku; end; end┆
0x30e7e…30e84 (0x57c,0x61e)
0x30e84…30ea0 21 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 70 72 6f 6c 6f 67 75 65 ┆! *** tprologue┆
0x30ea0…30ec0 20 20 2a 2a 2a 0a 3b 0a 3b 0a 3b 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 6c 6f 61 64 69 6e 67 20 ┆ *** ; ; ; program for loading ┆
0x30ec0…30ee0 64 69 72 65 63 74 6c 79 20 65 78 65 63 75 74 61 62 6c 65 20 70 72 6f 67 72 61 6d 73 0a 3b 0a 3b ┆directly executable programs ; ;┆
0x30ee0…30efc 20 77 68 65 6e 20 75 73 65 64 20 61 74 20 73 2d 72 65 70 6c 61 63 65 6d 65 6e 74 20 ┆ when used at s-replacement ┆
0x30efc…30f02 (0x57c,0x61f)
0x30f02…30f20 74 68 65 20 70 72 6f 67 72 61 6d 20 70 72 6f 74 65 63 74 73 20 74 68 65 20 65 6e 76 69 72 ┆the program protects the envir┆
0x30f20…30f40 6f 6e 6d 65 6e 74 20 61 67 61 69 6e 73 74 0a 3b 20 65 76 65 6e 74 75 61 6c 20 65 72 72 6f 72 73 ┆onment against ; eventual errors┆
0x30f40…30f60 20 6f 63 63 75 72 72 69 6e 67 20 69 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 20 74 6f 20 62 65 20 ┆ occurring in the program to be ┆
0x30f60…30f7a 6c 6f 61 64 65 64 0a 3b 0a 3b 20 50 52 4f 4c 4f 47 55 45 20 20 3d 20 20 50 52 ┆loaded ; ; PROLOGUE = PR┆
0x30f7a…30f80 (0x57c,0x620)
0x30f80…30fa0 4f 74 65 63 74 2c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 4f 61 64 20 61 6e ┆Otect, ; LOad an┆
0x30fa0…30fc0 64 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 6f 2e 0a 3b 20 20 20 20 20 ┆d ; Go. ; ┆
0x30fc0…30fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 6e 64 65 66 69 6e 65 64 20 6f 6e 0a 3b 20 20 20 ┆ Undefined on ; ┆
0x30fe0…31000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 72 72 6f 72 2e 00 00 00 00 00 00 00 00 ┆ Error. ┆
0x31000…31006 (392,) (0x57c,0x621)
0x31006…31020 0a 3b 0a 3b 20 77 68 65 6e 20 73 74 61 72 74 65 64 20 74 68 65 20 70 72 6f 67 ┆ ; ; when started the prog┆
0x31020…31040 72 61 6d 20 74 65 73 74 73 20 77 68 65 74 68 65 72 20 69 74 20 69 73 20 72 75 6e 6e 69 6e 67 20 ┆ram tests whether it is running ┆
0x31040…31060 69 6e 20 75 6e 70 72 6f 74 65 63 74 65 64 20 6d 6f 64 65 0a 3b 20 28 61 73 20 73 2d 72 65 70 6c ┆in unprotected mode ; (as s-repl┆
0x31060…3107e 61 63 65 6d 65 6e 74 29 2e 0a 3b 20 69 66 20 75 6e 70 72 6f 74 65 63 74 65 64 20 74 68 65 ┆acement). ; if unprotected the┆
0x3107e…31084 (0x57c,0x622)
0x31084…310a0 20 70 72 6f 67 72 61 6d 20 61 73 6b 73 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 74 ┆ program asks the operator t┆
0x310a0…310c0 6f 20 74 79 70 65 20 74 68 65 20 6e 65 77 20 6e 61 6d 65 20 6f 66 20 74 68 65 0a 3b 20 70 72 6f ┆o type the new name of the ; pro┆
0x310c0…310e0 63 65 73 73 3a 0a 3b 0a 3b 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 3d 0a 3b 0a 3b 20 74 68 65 ┆cess: ; ; process name = ; ; the┆
0x310e0…310fc 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 77 69 6c 6c 20 62 65 20 63 68 65 63 6b 65 ┆ process name will be checke┆
0x310fc…31102 (0x57c,0x623)
0x31102…31120 64 20 61 6e 64 20 70 75 74 20 69 6e 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 ┆d and put into the process des┆
0x31120…31140 63 72 69 70 74 69 6f 6e 2e 0a 3b 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 20 28 6d 6f ┆cription. ; the environments (mo┆
0x31140…31160 6e 69 74 6f 72 20 61 6e 64 20 65 76 65 6e 74 75 61 6c 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 ┆nitor and eventual child process┆
0x31160…3117a 65 73 20 72 75 6e 6e 69 6e 67 20 69 6e 20 74 68 65 0a 3b 20 68 69 67 68 65 72 ┆es running in the ; higher┆
0x3117a…31180 (0x57c,0x624)
0x31180…311a0 20 61 64 64 72 65 73 73 65 73 20 69 6e 20 63 6f 72 65 29 20 77 69 6c 6c 20 62 65 20 70 72 6f 74 ┆ addresses in core) will be prot┆
0x311a0…311c0 65 63 74 65 64 20 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 6c 69 6d 69 74 20 72 65 67 69 73 ┆ected by setting the limit regis┆
0x311c0…311e0 2d 0a 3b 20 74 65 72 73 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 0a 3b 0a 3b 20 69 6e 20 61 ┆- ; ters of the process ; ; in a┆
0x311e0…31200 6e 79 20 63 61 73 65 20 74 68 65 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c 00 00 00 00 00 00 00 00 ┆ny case the program will ┆
0x31200…31206 (393,) (0x57c,0x625)
0x31206…31220 20 61 73 6b 20 74 68 65 20 6f 70 65 72 61 74 6f 72 20 74 6f 20 74 79 70 65 20 ┆ ask the operator to type ┆
0x31220…31240 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 0a 3b 20 74 6f 20 62 65 20 ┆the name of the program ; to be ┆
0x31240…31260 6c 6f 61 64 65 64 3a 0a 3b 0a 3b 20 70 72 6f 67 72 61 6d 20 6e 61 6d 65 20 3d 0a 3b 0a 3b 20 74 ┆loaded: ; ; program name = ; ; t┆
0x31260…3127e 68 69 73 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c 20 62 65 20 6c 6f 61 64 65 64 20 61 6e 64 ┆his program will be loaded and┆
0x3127e…31284 (0x57c,0x626)
0x31284…312a0 20 61 63 74 69 76 61 74 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 ┆ activated according to the ┆
0x312a0…312c0 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 66 6f 72 0a 3b 20 64 69 72 65 63 74 6c 79 20 65 78 65 63 75 ┆conventions for ; directly execu┆
0x312c0…312e0 74 61 62 6c 65 20 70 72 6f 67 72 61 6d 73 20 72 75 6e 6e 69 6e 67 20 75 6e 64 65 72 20 73 20 6f ┆table programs running under s o┆
0x312e0…312fc 72 20 62 6f 73 73 2e 0a 3b 0a 3b 20 69 6e 20 63 61 73 65 20 74 68 65 20 70 72 6f 67 ┆r boss. ; ; in case the prog┆
0x312fc…31302 (0x57c,0x627)
0x31302…31320 72 61 6d 20 6c 6f 61 64 65 64 20 69 73 20 6e 6f 74 20 63 6f 72 72 65 63 74 20 74 68 65 20 ┆ram loaded is not correct the ┆
0x31320…31340 70 72 6f 63 65 73 73 20 6d 75 73 74 20 62 65 20 73 74 6f 70 70 65 64 20 61 6e 64 0a 3b 20 72 65 ┆process must be stopped and ; re┆
0x31340…31360 73 74 61 72 74 65 64 20 20 2d 20 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 72 69 6e 67 20 61 ┆started - an error occurring a┆
0x31360…3137a 66 74 65 72 20 73 2d 72 65 70 6c 61 63 65 6d 65 6e 74 20 63 72 65 61 74 65 73 ┆fter s-replacement creates┆
0x3137a…31380 (0x57c,0x628)
0x31380…313a0 20 61 6e 20 75 6e 64 65 66 69 6e 65 64 20 73 69 2d 0a 3b 20 74 75 61 74 69 6f 6e 20 77 68 69 63 ┆ an undefined si- ; tuation whic┆
0x313a0…313c0 68 20 6d 75 73 74 20 62 65 20 73 6f 6c 76 65 64 20 62 79 20 61 20 6e 65 77 20 61 75 74 6f 6c 6f ┆h must be solved by a new autolo┆
0x313c0…313e0 61 64 2e 0a 3b 0a 21 0a 0a 70 72 6f 6c 6f 67 75 65 0a 62 65 67 69 6e 0a 20 20 21 66 70 2e 6e 6f ┆ad. ; ! prologue begin !fp.no┆
0x313e0…31400 3b 0a 20 20 6c 61 62 65 6c 20 72 65 61 64 70 61 72 61 6d 2c 65 72 72 6f 00 00 00 00 00 00 00 00 ┆; label readparam,erro ┆
0x31400…31406 (394,) (0x57c,0x629)
0x31406…31420 72 2c 73 74 61 72 74 6c 6f 61 64 2c 65 6e 64 6c 6f 61 64 3b 0a 20 20 0a 20 20 ┆r,startload,endload; ┆
0x31420…31440 72 65 63 6f 72 64 20 6e 61 6d 65 20 20 20 20 28 64 6f 75 62 6c 65 20 6e 61 6d 65 31 2c 6e 61 6d ┆record name (double name1,nam┆
0x31440…31460 65 32 29 3b 0a 20 20 72 65 63 6f 72 64 20 61 6e 73 77 65 72 20 20 28 77 6f 72 64 20 73 74 61 74 ┆e2); record answer (word stat┆
0x31460…3147e 75 73 2c 62 79 74 65 73 2c 63 68 61 72 73 29 3b 0a 20 20 72 65 63 6f 72 64 20 70 72 6f 63 ┆us,bytes,chars); record proc┆
0x3147e…31484 (0x57c,0x62a)
0x31484…314a0 64 65 73 63 28 77 6f 72 64 20 20 20 20 70 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆desc(word pkind; ┆
0x314a0…314c0 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 70 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 ┆ text(11)pname; ┆
0x314c0…314e0 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 20 20 20 73 74 6f 70 63 6f 75 6e 74 2c 70 73 74 ┆ byte stopcount,pst┆
0x314e0…314fc 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆ate; word ┆
0x314fc…31502 (0x57c,0x62b)
0x31502…31520 20 20 20 69 64 62 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ┆ idbit; re┆
0x31520…31540 66 20 20 20 20 20 6e 65 78 74 6d 65 73 73 2c 70 72 65 76 6d 65 73 73 2c 6e 65 78 74 70 72 6f 63 ┆f nextmess,prevmess,nextproc┆
0x31540…31560 2c 70 72 65 76 70 72 6f 63 2c 66 69 72 73 74 63 6f 72 65 2c 74 6f 70 63 6f 72 65 3b 0a 20 20 20 ┆,prevproc,firstcore,topcore; ┆
0x31560…3157a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 20 20 20 62 75 66 ┆ byte buf┆
0x3157a…31580 (0x57c,0x62c)
0x31580…315a0 63 6c 61 69 6d 2c 61 72 65 61 63 6c 61 69 6d 2c 69 6e 74 63 6c 61 69 6d 2c 66 75 6e 63 6d 61 73 ┆claim,areaclaim,intclaim,funcmas┆
0x315a0…315c0 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 20 70 72 69 ┆k; word pri┆
0x315c0…315e0 6f 72 69 74 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 20 20 ┆ority; byte ┆
0x315e0…31600 20 70 72 6f 74 72 65 67 2c 70 72 6f 74 6b 65 79 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ protreg,protkey; ┆
0x31600…31606 (395,) (0x57c,0x62d)
0x31606…31620 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 20 69 6e 74 72 6d 61 ┆ word intrma┆
0x31620…31640 73 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 20 20 20 69 6e ┆sk; ref in┆
0x31640…31660 74 72 61 64 64 72 2c 65 73 63 61 64 64 72 2c 77 72 6b 31 2c 77 72 6b 32 2c 77 72 6b 33 2c 77 72 ┆traddr,escaddr,wrk1,wrk2,wrk3,wr┆
0x31660…3167e 6b 34 2c 77 72 6b 35 2c 70 61 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆k4,wrk5,parent; ┆
0x3167e…31684 (0x57c,0x62e)
0x31684…316a0 20 20 20 20 77 6f 72 64 20 20 20 20 74 71 75 61 6e 74 75 6d 3b 0a 20 20 20 20 20 20 ┆ word tquantum; ┆
0x316a0…316c0 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 20 72 75 6e 74 69 6d 65 2c 73 74 61 72 ┆ double runtime,star┆
0x316c0…316e0 74 72 75 6e 2c 73 74 61 72 74 77 61 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆trun,startwait; ┆
0x316e0…316fc 20 20 72 65 66 20 20 20 20 20 77 61 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ref wait; ┆
0x316fc…31702 (0x57c,0x62f)
0x31702…31720 20 20 20 20 20 20 64 6f 75 62 6c 65 20 20 63 61 74 62 61 73 65 2c 6d 61 78 62 61 73 65 2c ┆ double catbase,maxbase,┆
0x31720…31740 73 74 64 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆stdbase; word ┆
0x31740…31760 20 20 20 76 30 2c 76 31 2c 76 32 2c 76 33 2c 72 65 78 2c 69 63 2c 63 61 75 73 65 2c 73 62 2c 63 ┆ v0,v1,v2,v3,rex,ic,cause,sb,c┆
0x31760…3177a 70 61 2c 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pa,base; ┆
0x3177a…31780 (0x57c,0x630)
0x31780…317a0 20 72 65 66 20 20 20 20 20 6c 6f 77 6c 69 6d 69 74 2c 68 69 67 68 6c 69 6d 69 74 29 3b 0a 20 20 ┆ ref lowlimit,highlimit); ┆
0x317a0…317c0 72 65 63 6f 72 64 20 6c 6f 61 64 69 6e 66 28 62 79 74 65 20 6f 70 65 72 61 74 69 6f 6e 2c 6d 6f ┆record loadinf(byte operation,mo┆
0x317c0…317e0 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 6c ┆de; ref first,l┆
0x317e0…31800 61 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 00 00 00 00 00 00 00 00 ┆ast; wo ┆
0x31800…31806 (396,) (0x57c,0x631)
0x31806…31820 72 64 20 73 65 67 6d 65 6e 74 2c 64 75 6d 31 2c 64 75 6d 32 2c 64 75 6d 33 2c ┆rd segment,dum1,dum2,dum3,┆
0x31820…31840 64 75 6d 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 70 6e ┆dum4; double pn┆
0x31840…31860 61 6d 65 31 2c 70 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆ame1,pname2; wo┆
0x31860…3187e 72 64 20 6e 74 61 2c 6f 6b 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rd nta,okresult; ┆
0x3187e…31884 (0x57c,0x632)
0x31884…318a0 20 20 20 20 72 65 66 20 61 62 73 65 6e 74 72 79 2c 70 72 69 6d 69 6e 2c 70 72 69 6d ┆ ref absentry,primin,prim┆
0x318a0…318c0 6f 75 74 2c 6f 77 6e 70 72 6f 63 2c 72 65 74 75 72 6e 29 3b 0a 20 20 72 65 63 6f 72 64 20 65 6e ┆out,ownproc,return); record en┆
0x318c0…318e0 74 72 79 74 61 69 6c 28 77 6f 72 64 20 66 69 6c 65 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆trytail(word filesize; ┆
0x318e0…318fc 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 64 6f 63 75 6d 65 6e 74 3b ┆ text(11) document;┆
0x318fc…31902 (0x57c,0x633)
0x31902…31920 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 6c 6f 63 6b ┆ word clock┆
0x31920…31940 2c 66 69 6c 65 2c 62 6c 6f 63 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,file,block; ┆
0x31940…31960 62 79 74 65 20 63 6f 6e 74 65 6e 74 73 2c 65 6e 74 72 79 70 6f 69 6e 74 3b 0a 20 20 20 20 20 20 ┆byte contents,entrypoint; ┆
0x31960…3197a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 61 64 6c 65 6e 67 ┆ word loadleng┆
0x3197a…31980 (0x57c,0x634)
0x31980…319a0 74 68 29 3b 0a 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 63 6f 72 65 66 73 74 2c 63 6f ┆th); incode ref corefst,co┆
0x319a0…319c0 72 65 74 6f 70 2c 6a 6f 62 70 72 6f 63 2c 70 72 69 6d 61 72 79 2c 6c 6f 61 64 63 6f 64 65 65 6e ┆retop,jobproc,primary,loadcodeen┆
0x319c0…319e0 74 72 79 3b 0a 20 20 20 20 72 65 66 20 6c 61 73 74 69 6e 74 65 72 6e 61 6c 3a 3d 38 30 2c 63 75 ┆try; ref lastinternal:=80,cu┆
0x319e0…31a00 72 72 70 72 6f 63 3a 3d 36 36 3b 0a 20 20 20 20 61 72 72 61 79 20 28 31 00 00 00 00 00 00 00 00 ┆rrproc:=66; array (1 ┆
0x31a00…31a06 (397,) (0x57c,0x635)
0x31a06…31a20 3a 31 30 29 20 74 61 69 6c 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 61 72 72 ┆:10) tail of word; arr┆
0x31a20…31a40 61 79 20 28 31 3a 34 29 20 62 75 66 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 62 79 74 65 20 69 ┆ay (1:4) buf of word; byte i┆
0x31a40…31a60 6e 6f 70 3a 3d 33 2c 69 6e 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 72 65 66 20 69 6e 66 69 72 73 ┆nop:=3,inmode:=0; ref infirs┆
0x31a60…31a7e 74 2c 69 6e 6c 61 73 74 3b 0a 20 20 20 20 62 79 74 65 20 6f 75 74 6f 70 3a 3d 35 2c 6f 75 ┆t,inlast; byte outop:=5,ou┆
0x31a7e…31a84 (0x57c,0x636)
0x31a84…31aa0 74 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 72 65 66 20 6f 75 74 66 69 72 73 74 2c 6f ┆tmode:=0; ref outfirst,o┆
0x31aa0…31ac0 75 74 6c 61 73 74 3b 0a 20 20 20 20 77 6f 72 64 20 6c 6f 61 64 63 6f 64 65 73 69 7a 65 3b 0a 20 ┆utlast; word loadcodesize; ┆
0x31ac0…31ae0 20 20 20 74 65 78 74 28 31 34 29 20 6d 61 69 6e 63 6f 6e 73 3a 3d 22 63 6f 6e 73 6f 6c 65 31 22 ┆ text(14) maincons:="console1"┆
0x31ae0…31afc 3b 0a 20 20 20 20 74 65 78 74 28 34 36 29 20 74 30 20 20 3a 3d 22 70 72 6f 63 65 73 ┆; text(46) t0 :="proces┆
0x31afc…31b02 (0x57c,0x637)
0x31b02…31b20 73 20 6e 61 6d 65 20 69 6c 6c 65 67 61 6c 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 ┆s name illegal'10'", ┆
0x31b20…31b40 20 20 20 20 74 31 20 20 3a 3d 22 65 6e 74 72 79 20 6e 6f 74 20 66 6f 75 6e 64 27 31 30 27 22 2c ┆ t1 :="entry not found'10'",┆
0x31b40…31b60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 20 20 3a 3d 22 65 6e 74 72 79 20 6e 6f 74 20 62 ┆ t2 :="entry not b┆
0x31b60…31b7a 73 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 33 20 20 3a ┆s'10'", t3 :┆
0x31b7a…31b80 (0x57c,0x638)
0x31b80…31ba0 3d 22 70 72 6f 67 72 61 6d 20 6e 6f 74 20 64 69 72 65 63 74 6c 79 20 65 78 65 63 75 74 61 62 6c ┆="program not directly executabl┆
0x31ba0…31bc0 65 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 34 20 20 3a 3d 22 65 6e 74 72 ┆e'10'", t4 :="entr┆
0x31bc0…31be0 79 70 6f 69 6e 74 20 6f 75 74 73 69 64 65 20 6c 6f 61 64 20 63 6f 64 65 27 31 30 27 22 2c 0a 20 ┆ypoint outside load code'10'", ┆
0x31be0…31c00 20 20 20 20 20 20 20 20 20 20 20 20 74 35 20 20 3a 3d 22 70 72 6f 63 65 00 00 00 00 00 00 00 00 ┆ t5 :="proce ┆
0x31c00…31c06 (398,) (0x57c,0x639)
0x31c06…31c20 73 73 20 74 6f 6f 20 73 6d 61 6c 6c 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 ┆ss too small'10'", ┆
0x31c20…31c40 20 20 20 20 20 20 74 36 20 20 3a 3d 22 72 65 73 75 6c 74 20 3d 20 78 78 78 2c 20 69 6e 70 75 74 ┆ t6 :="result = xxx, input┆
0x31c40…31c60 20 65 72 72 6f 72 27 31 30 27 22 3b 0a 20 20 20 20 74 65 78 74 28 31 37 29 20 70 72 6f 63 3a 3d ┆ error'10'"; text(17) proc:=┆
0x31c60…31c7e 22 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 3d 20 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆"process name = ", ┆
0x31c7e…31c84 (0x57c,0x63a)
0x31c84…31ca0 20 20 70 72 6f 67 3a 3d 22 70 72 6f 67 72 61 6d 20 6e 61 6d 65 20 3d 20 22 3b 0a 0a ┆ prog:="program name = "; ┆
0x31ca0…31cc0 20 20 62 65 67 69 6e 0a 20 20 20 20 67 6f 74 6f 20 65 6e 64 6c 6f 61 64 3b 0a 0a 73 74 61 72 74 ┆ begin goto endload; start┆
0x31cc0…31ce0 6c 6f 61 64 3a 0a 20 20 20 20 28 77 31 29 2e 72 65 74 75 72 6e 3a 3d 77 32 3b 0a 20 20 20 20 6d ┆load: (w1).return:=w2; m┆
0x31ce0…31cfc 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 6d 65 ┆onitor(16); comment send me┆
0x31cfc…31d02 (0x57c,0x63b)
0x31d02…31d20 73 73 61 67 65 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 63 6f 6d 6d 65 ┆ssage; monitor(18); comme┆
0x31d20…31d40 6e 74 20 77 61 69 74 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 69 66 20 77 30 20 3c 3e 20 28 77 31 ┆nt wait answer; if w0 <> (w1┆
0x31d40…31d60 29 2e 6f 6b 72 65 73 75 6c 74 20 74 68 65 6e 20 63 61 6c 6c 20 77 30 20 28 77 31 29 2e 72 65 74 ┆).okresult then call w0 (w1).ret┆
0x31d60…31d7a 75 72 6e 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 20 63 6f 6d ┆urn; monitor(64); com┆
0x31d7a…31d80 (0x57c,0x63c)
0x31d80…31da0 6d 65 6e 74 20 72 65 6d 6f 76 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 77 30 ┆ment remove area process; w0┆
0x31da0…31dc0 3a 3d 28 77 31 29 2e 70 72 69 6d 69 6e 3b 0a 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 70 72 69 6d ┆:=(w1).primin; w2:=(w1).prim┆
0x31dc0…31de0 6f 75 74 3b 0a 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 6f 77 6e 70 72 6f 63 3b 0a 20 20 20 20 63 ┆out; w3:=(w1).ownproc; c┆
0x31de0…31e00 61 6c 6c 20 77 30 20 28 77 31 29 2e 61 62 73 65 6e 74 72 79 3b 0a 65 6e 00 00 00 00 00 00 00 00 ┆all w0 (w1).absentry; en ┆
0x31e00…31e06 (399,) (0x57c,0x63d)
0x31e06…31e20 64 6c 6f 61 64 3a 0a 0a 20 20 20 20 77 33 3a 3d 77 6f 72 64 28 63 75 72 72 70 ┆dload: w3:=word(currp┆
0x31e20…31e40 72 6f 63 29 3b 0a 20 20 20 20 6a 6f 62 70 72 6f 63 3a 3d 77 33 3b 0a 20 20 20 20 77 33 3a 3d 61 ┆roc); jobproc:=w3; w3:=a┆
0x31e40…31e60 64 64 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 ┆ddress(maincons); monitor(4)┆
0x31e60…31e7e 3b 20 21 20 67 65 74 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 ┆; ! get process description of┆
0x31e7e…31e84 (0x57c,0x63e)
0x31e84…31ea0 20 6d 61 69 6e 20 63 6f 6e 73 6f 6c 65 20 21 0a 20 20 20 20 70 72 69 6d 61 72 79 3a ┆ main console ! primary:┆
0x31ea0…31ec0 3d 77 30 3b 0a 72 65 61 64 70 61 72 61 6d 3a 0a 20 20 20 20 77 33 3a 3d 6a 6f 62 70 72 6f 63 3b ┆=w0; readparam: w3:=jobproc;┆
0x31ec0…31ee0 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 6c 6f 77 6c 69 6d 69 74 20 3c 20 28 77 33 29 ┆ if w0:=(w3).lowlimit < (w3)┆
0x31ee0…31efc 2e 66 69 72 73 74 63 6f 72 65 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆.firstcore then begin ┆
0x31efc…31f02 (0x57c,0x63f)
0x31f02…31f20 20 20 20 20 6f 75 74 66 69 72 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 63 ┆ outfirst:=w1:=address(proc┆
0x31f20…31f40 29 3b 0a 20 20 20 20 20 20 77 31 2b 31 30 3b 0a 20 20 20 20 20 20 6f 75 74 6c 61 73 74 3a 3d 77 ┆); w1+10; outlast:=w┆
0x31f40…31f60 31 3b 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 75 74 6f 70 29 3b 0a 20 20 20 ┆1; w1:=address(outop); ┆
0x31f60…31f7a 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a ┆ w3:=address(maincons); ┆
0x31f7a…31f80 (0x57c,0x640)
0x31f80…31fa0 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 ┆ monitor(16); ! send messa┆
0x31fa0…31fc0 67 65 20 21 0a 20 20 20 20 20 20 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 6d 6f ┆ge ! tail(w1:=1); mo┆
0x31fc0…31fe0 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 ┆nitor(18); ! wait answer ! ┆
0x31fe0…32000 20 20 66 6f 72 20 77 30 3a 3d 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 00 00 00 00 00 00 00 00 ┆ for w0:=1 step 1 upto ┆
0x32000…32006 (400,) (0x57c,0x641)
0x32006…32020 34 20 64 6f 20 28 62 75 66 28 77 31 3a 3d 77 30 29 29 2e 77 6f 72 64 3a 3d 77 ┆4 do (buf(w1:=w0)).word:=w┆
0x32020…32040 32 3a 3d 30 3b 0a 20 20 20 20 20 20 69 6e 66 69 72 73 74 3a 3d 62 75 66 28 77 31 3a 3d 31 29 3b ┆2:=0; infirst:=buf(w1:=1);┆
0x32040…32060 0a 20 20 20 20 20 20 69 6e 6c 61 73 74 3a 3d 62 75 66 28 77 31 3a 3d 34 29 3b 0a 20 20 20 20 20 ┆ inlast:=buf(w1:=4); ┆
0x32060…3207e 20 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 ┆ w3:=address(maincons); ┆
0x3207e…32084 (0x57c,0x642)
0x32084…320a0 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 6f 70 29 3b 0a 20 20 20 20 20 20 6d 6f 6e ┆w1:=address(inop); mon┆
0x320a0…320c0 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 ┆itor(16); ! send message ! ┆
0x320c0…320e0 20 20 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 ┆ tail(w1:=1); monitor(18)┆
0x320e0…320fc 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 62 75 66 ┆; ! wait answer ! buf┆
0x320fc…32102 (0x57c,0x643)
0x32102…32120 28 77 32 3a 3d 30 29 2b 28 77 31 29 2e 62 79 74 65 73 3b 0a 20 20 20 20 20 20 69 66 20 77 ┆(w2:=0)+(w1).bytes; if w┆
0x32120…32140 30 3a 3d 28 77 32 29 2e 77 6f 72 64 20 65 78 74 72 61 63 74 20 38 20 3d 20 31 30 20 74 68 65 6e ┆0:=(w2).word extract 8 = 10 then┆
0x32140…32160 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d 31 20 ┆ (w2).word:=w0:=-1 ┆
0x32160…3217a 6c 73 68 69 66 74 20 38 20 61 6e 64 20 28 77 32 29 2e 77 6f 72 64 20 65 6c 73 ┆lshift 8 and (w2).word els┆
0x3217a…32180 (0x57c,0x644)
0x32180…321a0 65 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 ┆e if w0:=(w2).word lshift ┆
0x321a0…321c0 2d 38 20 65 78 74 72 61 63 74 20 38 20 3d 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆-8 extract 8 = 10 then ┆
0x321c0…321e0 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d 31 20 6c 73 68 69 66 74 20 31 36 20 ┆ (w2).word:=w0:=-1 lshift 16 ┆
0x321e0…32200 61 6e 64 20 28 77 32 29 2e 77 6f 72 64 20 65 6c 73 65 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆and (w2).word else ┆
0x32200…32206 (401,) (0x57c,0x645)
0x32206…32220 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d ┆ if w0:=(w2).word lshift -┆
0x32220…32240 31 36 20 3d 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 ┆16 = 10 then (w2).w┆
0x32240…32260 6f 72 64 3a 3d 77 30 3a 3d 30 20 65 6c 73 65 0a 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6e 61 ┆ord:=w0:=0 else ; na┆
0x32260…3227e 6d 65 3a 3d 62 75 66 28 77 33 3a 3d 31 29 3b 0a 20 20 20 20 20 20 74 61 69 6c 28 77 31 3a ┆me:=buf(w3:=1); tail(w1:┆
0x3227e…32284 (0x57c,0x646)
0x32284…322a0 3d 31 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 3b 20 20 21 20 6c ┆=1); monitor(42); ! l┆
0x322a0…322c0 6f 6f 6b 75 70 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 33 20 74 ┆ookup entry ! if w0 <> 3 t┆
0x322c0…322e0 68 65 6e 20 62 65 67 69 6e 20 77 32 3a 3d 30 3b 20 67 6f 74 6f 20 65 72 72 6f 72 3b 20 65 6e 64 ┆hen begin w2:=0; goto error; end┆
0x322e0…322fc 3b 0a 20 20 20 20 20 20 77 32 3a 3d 6a 6f 62 70 72 6f 63 2b 32 3b 0a 20 20 20 20 20 ┆; w2:=jobproc+2; ┆
0x322fc…32302 (0x57c,0x647)
0x32302…32320 20 28 77 32 29 2e 6e 61 6d 65 31 3a 3d 66 31 3a 3d 28 77 33 29 2e 6e 61 6d 65 31 3b 0a 20 ┆ (w2).name1:=f1:=(w3).name1; ┆
0x32320…32340 20 20 20 20 20 28 77 32 29 2e 6e 61 6d 65 32 3a 3d 66 31 3a 3d 28 77 33 29 2e 6e 61 6d 65 32 3b ┆ (w2).name2:=f1:=(w3).name2;┆
0x32340…32360 0a 20 20 20 20 20 20 77 33 3a 3d 6a 6f 62 70 72 6f 63 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 ┆ w3:=jobproc; w0:=(w┆
0x32360…3237a 33 29 2e 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 20 20 77 31 3a 3d 77 6f 72 64 ┆3).topcore; w1:=word┆
0x3237a…32380 (0x57c,0x648)
0x32380…323a0 28 6c 61 73 74 69 6e 74 65 72 6e 61 6c 29 2d 32 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 ┆(lastinternal)-2; while w2┆
0x323a0…323c0 3a 3d 28 77 31 29 2e 77 6f 72 64 20 3c 3e 20 77 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e ┆:=(w1).word <> w3 do begin┆
0x323c0…323e0 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 20 3d 20 28 77 32 29 2e 70 61 72 65 6e 74 20 74 68 65 ┆ if w3 = (w2).parent the┆
0x323e0…32400 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 28 77 32 29 2e 66 00 00 00 00 00 00 00 00 ┆n if w0 > (w2).f ┆
0x32400…32406 (402,) (0x57c,0x649)
0x32406…32420 69 72 73 74 63 6f 72 65 20 74 68 65 6e 20 77 30 3a 3d 28 77 32 29 2e 66 69 72 ┆irstcore then w0:=(w2).fir┆
0x32420…32440 73 74 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 77 31 2d 32 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆stcore; w1-2; end;┆
0x32440…32460 0a 20 20 20 20 20 20 28 77 33 29 2e 74 6f 70 63 6f 72 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 ┆ (w3).topcore:=w0; (┆
0x32460…3247e 77 33 29 2e 6c 6f 77 6c 69 6d 69 74 3a 3d 77 30 3a 3d 28 77 33 29 2e 66 69 72 73 74 63 6f ┆w3).lowlimit:=w0:=(w3).firstco┆
0x3247e…32484 (0x57c,0x64a)
0x32484…324a0 72 65 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 68 69 67 68 6c 69 6d 69 74 3a 3d 77 30 ┆re; (w3).highlimit:=w0┆
0x324a0…324c0 3a 3d 28 77 33 29 2e 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 6f 75 74 ┆:=(w3).topcore; end; out┆
0x324c0…324e0 66 69 72 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 67 29 3b 0a 20 20 20 20 77 31 ┆first:=w1:=address(prog); w1┆
0x324e0…324fc 2b 31 30 3b 0a 20 20 20 20 6f 75 74 6c 61 73 74 3a 3d 77 31 3b 0a 20 20 20 20 77 31 ┆+10; outlast:=w1; w1┆
0x324fc…32502 (0x57c,0x64b)
0x32502…32520 3a 3d 61 64 64 72 65 73 73 28 6f 75 74 6f 70 29 3b 0a 20 20 20 20 77 33 3a 3d 61 64 64 72 ┆:=address(outop); w3:=addr┆
0x32520…32540 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 ┆ess(maincons); monitor(16); ┆
0x32540…32560 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 74 61 69 6c 28 77 31 3a 3d 31 ┆ ! send message ! tail(w1:=1┆
0x32560…3257a 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 ┆); monitor(18); ! wai┆
0x3257a…32580 (0x57c,0x64c)
0x32580…325a0 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 66 6f 72 20 77 30 3a 3d 31 20 73 74 65 70 20 31 20 ┆t answer ! for w0:=1 step 1 ┆
0x325a0…325c0 75 70 74 6f 20 34 20 64 6f 20 28 62 75 66 28 77 31 3a 3d 77 30 29 29 2e 77 6f 72 64 3a 3d 77 32 ┆upto 4 do (buf(w1:=w0)).word:=w2┆
0x325c0…325e0 3a 3d 30 3b 0a 20 20 20 20 69 6e 66 69 72 73 74 3a 3d 62 75 66 28 77 31 3a 3d 31 29 3b 0a 20 20 ┆:=0; infirst:=buf(w1:=1); ┆
0x325e0…32600 20 20 69 6e 6c 61 73 74 3a 3d 62 75 66 28 77 31 3a 3d 34 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ inlast:=buf(w1:=4); ┆
0x32600…32606 (403,) (0x57c,0x64d)
0x32606…32620 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 6f 70 29 3b 0a 20 20 20 20 6d ┆ w1:=address(inop); m┆
0x32620…32640 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 ┆onitor(16); ! send message ! ┆
0x32640…32660 20 20 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 ┆ tail(w1:=1); monitor(18); ┆
0x32660…3267e 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 62 75 66 28 77 32 3a 3d 30 ┆ ! wait answer ! buf(w2:=0┆
0x3267e…32684 (0x57c,0x64e)
0x32684…326a0 29 2b 28 77 31 29 2e 62 79 74 65 73 3b 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 ┆)+(w1).bytes; if w0:=(w2┆
0x326a0…326c0 29 2e 77 6f 72 64 20 65 78 74 72 61 63 74 20 38 20 3d 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆).word extract 8 = 10 then ┆
0x326c0…326e0 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d 31 20 6c 73 68 69 66 74 20 38 ┆ (w2).word:=w0:=-1 lshift 8┆
0x326e0…326fc 20 61 6e 64 20 28 77 32 29 2e 77 6f 72 64 20 65 6c 73 65 0a 20 20 20 20 69 66 20 77 ┆ and (w2).word else if w┆
0x326fc…32702 (0x57c,0x64f)
0x32702…32720 30 3a 3d 28 77 32 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 38 20 65 78 74 72 61 63 74 ┆0:=(w2).word lshift -8 extract┆
0x32720…32740 20 38 20 3d 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 ┆ 8 = 10 then (w2).wor┆
0x32740…32760 64 3a 3d 77 30 3a 3d 2d 31 20 6c 73 68 69 66 74 20 31 36 20 61 6e 64 20 28 77 32 29 2e 77 6f 72 ┆d:=w0:=-1 lshift 16 and (w2).wor┆
0x32760…3277a 64 20 65 6c 73 65 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 ┆d else if w0:=(w2).wor┆
0x3277a…32780 (0x57c,0x650)
0x32780…327a0 64 20 6c 73 68 69 66 74 20 2d 31 36 20 3d 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆d lshift -16 = 10 then ┆
0x327a0…327c0 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 30 20 65 6c 73 65 0a 20 20 20 20 3b 0a 20 20 ┆ (w2).word:=w0:=0 else ; ┆
0x327c0…327e0 20 20 6e 61 6d 65 3a 3d 62 75 66 28 77 33 3a 3d 31 29 3b 0a 20 20 20 20 65 6e 74 72 79 74 61 69 ┆ name:=buf(w3:=1); entrytai┆
0x327e0…32800 6c 3a 3d 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 00 00 00 00 00 00 00 00 ┆l:=tail(w1:=1); moni ┆
0x32800…32806 (404,) (0x57c,0x651)
0x32806…32820 74 6f 72 28 34 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 6c 6f 6f 6b 75 70 20 65 ┆tor(42); comment lookup e┆
0x32820…32840 6e 74 72 79 3b 0a 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 20 0a 20 20 20 20 62 ┆ntry; if w0 <> 0 then b┆
0x32840…32860 65 67 69 6e 20 77 32 3a 3d 31 3b 20 67 6f 74 6f 20 65 72 72 6f 72 3b 20 65 6e 64 3b 0a 20 20 20 ┆egin w2:=1; goto error; end; ┆
0x32860…3287e 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 63 72 65 61 74 65 20 ┆ monitor(52); comment create ┆
0x3287e…32884 (0x57c,0x652)
0x32884…328a0 61 72 65 61 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 ┆area process; if w0:=(w1┆
0x328a0…328c0 29 2e 66 69 6c 65 73 69 7a 65 20 3c 20 30 20 74 68 65 6e 20 0a 20 20 20 20 62 65 67 69 6e 20 77 ┆).filesize < 0 then begin w┆
0x328c0…328e0 32 3a 3d 32 3b 20 67 6f 74 6f 20 65 72 72 6f 72 3b 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 77 30 ┆2:=2; goto error; end; if w0┆
0x328e0…328fc 3a 3d 28 77 31 29 2e 63 6f 6e 74 65 6e 74 73 20 3c 3e 20 33 20 74 68 65 6e 20 0a 20 ┆:=(w1).contents <> 3 then ┆
0x328fc…32902 (0x57c,0x653)
0x32902…32920 20 20 20 62 65 67 69 6e 20 77 32 3a 3d 33 3b 20 67 6f 74 6f 20 65 72 72 6f 72 3b 20 65 6e ┆ begin w2:=3; goto error; en┆
0x32920…32940 64 3b 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 65 6e 74 72 79 70 6f 69 6e 74 20 3e 3d ┆d; if w0:=(w1).entrypoint >=┆
0x32940…32960 20 28 77 31 29 2e 6c 6f 61 64 6c 65 6e 67 74 68 20 74 68 65 6e 20 0a 20 20 20 20 62 65 67 69 6e ┆ (w1).loadlength then begin┆
0x32960…3297a 20 77 32 3a 3d 34 3b 20 67 6f 74 6f 20 65 72 72 6f 72 3b 20 65 6e 64 3b 0a 20 ┆ w2:=4; goto error; end; ┆
0x3297a…32980 (0x57c,0x654)
0x32980…329a0 20 20 20 77 33 3a 3d 77 6f 72 64 28 63 75 72 72 70 72 6f 63 29 3b 0a 20 20 20 20 63 6f 72 65 66 ┆ w3:=word(currproc); coref┆
0x329a0…329c0 73 74 3a 3d 77 31 3a 3d 28 77 33 29 2e 66 69 72 73 74 63 6f 72 65 3b 0a 20 20 20 20 63 6f 72 65 ┆st:=w1:=(w3).firstcore; core┆
0x329c0…329e0 74 6f 70 3a 3d 77 31 3a 3d 28 77 33 29 2e 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 77 31 2d 21 6c ┆top:=w1:=(w3).topcore; w1-!l┆
0x329e0…32a00 65 6e 67 74 68 28 6c 6f 61 64 69 6e 66 29 3b 0a 20 20 20 20 6c 6f 61 64 00 00 00 00 00 00 00 00 ┆ength(loadinf); load ┆
0x32a00…32a06 (405,) (0x57c,0x655)
0x32a06…32a20 69 6e 66 3a 3d 77 31 3b 0a 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 65 ┆inf:=w1; w2:=address(e┆
0x32a20…32a40 6e 64 6c 6f 61 64 29 2d 28 77 33 3a 3d 61 64 64 72 65 73 73 28 73 74 61 72 74 6c 6f 61 64 29 29 ┆ndload)-(w3:=address(startload))┆
0x32a40…32a60 3b 0a 20 20 20 20 6c 6f 61 64 63 6f 64 65 73 69 7a 65 3a 3d 77 32 3b 0a 20 20 20 20 69 66 20 77 ┆; loadcodesize:=w2; if w┆
0x32a60…32a7e 30 3a 3d 63 6f 72 65 66 73 74 2b 65 6e 74 72 79 74 61 69 6c 2e 6c 6f 61 64 6c 65 6e 67 74 ┆0:=corefst+entrytail.loadlengt┆
0x32a7e…32a84 (0x57c,0x656)
0x32a84…32aa0 68 2b 6c 6f 61 64 63 6f 64 65 73 69 7a 65 20 3e 3d 20 6c 6f 61 64 69 6e 66 20 74 68 ┆h+loadcodesize >= loadinf th┆
0x32aa0…32ac0 65 6e 20 0a 20 20 20 20 62 65 67 69 6e 20 77 32 3a 3d 35 3b 20 67 6f 74 6f 20 65 72 72 6f 72 3b ┆en begin w2:=5; goto error;┆
0x32ac0…32ae0 20 65 6e 64 3b 0a 20 20 20 20 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 61 62 73 65 6e 74 72 79 3a ┆ end; loadinf.absentry:┆
0x32ae0…32afc 3d 77 30 3a 3d 63 6f 72 65 66 73 74 2b 65 6e 74 72 79 74 61 69 6c 2e 65 6e 74 72 79 ┆=w0:=corefst+entrytail.entry┆
0x32afc…32b02 (0x57c,0x657)
0x32b02…32b20 70 6f 69 6e 74 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 66 69 72 73 74 3a 3d 77 30 3a 3d ┆point; loadinf.first:=w0:=┆
0x32b20…32b40 63 6f 72 65 66 73 74 3b 0a 20 20 20 20 77 30 2b 65 6e 74 72 79 74 61 69 6c 2e 6c 6f 61 64 6c 65 ┆corefst; w0+entrytail.loadle┆
0x32b40…32b60 6e 67 74 68 2d 32 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 ┆ngth-2; loadinf.last:=w0; ┆
0x32b60…32b7a 20 20 6c 6f 61 64 69 6e 66 2e 73 65 67 6d 65 6e 74 3a 3d 77 30 3a 3d 30 3b 0a ┆ loadinf.segment:=w0:=0; ┆
0x32b7a…32b80 (0x57c,0x658)
0x32b80…32ba0 20 20 20 20 6c 6f 61 64 69 6e 66 2e 6d 6f 64 65 3a 3d 77 30 3b 0a 20 20 20 20 6c 6f 61 64 69 6e ┆ loadinf.mode:=w0; loadin┆
0x32ba0…32bc0 66 2e 6f 70 65 72 61 74 69 6f 6e 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e ┆f.operation:=w0:=3; loadinf.┆
0x32bc0…32be0 70 72 69 6d 69 6e 3a 3d 77 30 3a 3d 70 72 69 6d 61 72 79 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 ┆primin:=w0:=primary; loadinf┆
0x32be0…32c00 2e 70 72 69 6d 6f 75 74 3a 3d 77 30 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 00 00 00 00 00 00 00 00 ┆.primout:=w0; loadin ┆
0x32c00…32c06 (406,) (0x57c,0x659)
0x32c06…32c20 66 2e 6f 77 6e 70 72 6f 63 3a 3d 77 30 3a 3d 6a 6f 62 70 72 6f 63 3b 0a 20 20 ┆f.ownproc:=w0:=jobproc; ┆
0x32c20…32c40 20 20 6c 6f 61 64 69 6e 66 2e 70 6e 61 6d 65 31 3a 3d 66 31 3a 3d 6e 61 6d 65 2e 6e 61 6d 65 31 ┆ loadinf.pname1:=f1:=name.name1┆
0x32c40…32c60 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 70 6e 61 6d 65 32 3a 3d 66 31 3a 3d 6e 61 6d 65 2e 6e ┆; loadinf.pname2:=f1:=name.n┆
0x32c60…32c7e 61 6d 65 32 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 6f 6b 72 65 73 75 6c 74 3a 3d 77 30 ┆ame2; loadinf.okresult:=w0┆
0x32c7e…32c84 (0x57c,0x65a)
0x32c84…32ca0 3a 3d 31 3b 0a 0a 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 73 74 61 72 74 6c ┆:=1; w2:=address(startl┆
0x32ca0…32cc0 6f 61 64 29 3b 0a 20 20 20 20 77 33 3a 3d 6c 6f 61 64 69 6e 66 2d 6c 6f 61 64 63 6f 64 65 73 69 ┆oad); w3:=loadinf-loadcodesi┆
0x32cc0…32ce0 7a 65 3b 0a 20 20 20 20 6c 6f 61 64 63 6f 64 65 65 6e 74 72 79 3a 3d 77 33 3b 0a 20 20 20 20 77 ┆ze; loadcodeentry:=w3; w┆
0x32ce0…32cfc 68 69 6c 65 20 77 33 20 3c 20 6c 6f 61 64 69 6e 66 20 64 6f 0a 20 20 20 20 62 65 67 ┆hile w3 < loadinf do beg┆
0x32cfc…32d02 (0x57c,0x65b)
0x32d02…32d20 69 6e 0a 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 28 77 32 29 2e 77 ┆in (w3).word:=w0:=(w2).w┆
0x32d20…32d40 6f 72 64 3b 0a 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 77 33 2b 32 3b 0a 20 20 20 ┆ord; w2+2; w3+2; ┆
0x32d40…32d60 20 65 6e 64 3b 0a 0a 20 20 20 20 77 31 3a 3d 6c 6f 61 64 69 6e 66 3b 0a 20 20 20 20 77 33 3a 3d ┆ end; w1:=loadinf; w3:=┆
0x32d60…32d7a 61 64 64 72 65 73 73 28 28 77 31 29 2e 70 6e 61 6d 65 31 29 3b 0a 20 20 20 20 ┆address((w1).pname1); ┆
0x32d7a…32d80 (0x57c,0x65c)
0x32d80…32da0 63 61 6c 6c 20 77 32 20 6c 6f 61 64 63 6f 64 65 65 6e 74 72 79 3b 0a 20 20 20 20 77 32 3a 3d 61 ┆call w2 loadcodeentry; w2:=a┆
0x32da0…32dc0 64 64 72 65 73 73 28 74 36 29 2b 36 3b 0a 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 2b ┆ddress(t6)+6; (w2).word:=w0+┆
0x32dc0…32de0 34 38 3b 0a 20 20 20 20 77 32 3a 3d 36 3b 0a 65 72 72 6f 72 3a 0a 20 20 20 20 6f 75 74 66 69 72 ┆48; w2:=6; error: outfir┆
0x32de0…32e00 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 74 30 29 2b 28 77 32 20 00 00 00 00 00 00 00 00 ┆st:=w1:=address(t0)+(w2 ┆
0x32e00…32e06 (407,) (0x57c,0x65d)
0x32e06…32e20 6c 73 68 69 66 74 20 35 29 3b 0a 20 20 20 20 77 31 2b 33 30 3b 0a 20 20 20 20 ┆lshift 5); w1+30; ┆
0x32e20…32e40 6f 75 74 6c 61 73 74 3a 3d 77 31 3b 0a 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 75 74 ┆outlast:=w1; w1:=address(out┆
0x32e40…32e60 6f 70 29 3b 0a 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a ┆op); w3:=address(maincons); ┆
0x32e60…32e7e 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 ┆ monitor(16); ! send messa┆
0x32e7e…32e84 (0x57c,0x65e)
0x32e84…32ea0 67 65 20 21 0a 20 20 20 20 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 6d 6f ┆ge ! tail(w1:=1); mo┆
0x32ea0…32ec0 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 ┆nitor(18); ! wait answer ! ┆
0x32ec0…32ee0 67 6f 74 6f 20 72 65 61 64 70 61 72 61 6d 3b 0a 20 20 65 6e 64 3b 0a 65 6e 64 2e 0a 19 00 6e 3a ┆goto readparam; end; end. n:┆
0x32ee0…32efc 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 70 72 69 6d 69 6e 3a 3d ┆=w0:=3; loadinf.primin:=┆
0x32efc…32f02 (0x57c,0x65f)
0x32f02…32f20 77 30 3a 3d 70 72 69 6d 61 72 79 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 70 72 69 6d 6f ┆w0:=primary; loadinf.primo┆
0x32f20…32f40 75 74 3a 3d 77 30 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 6f 77 6e 70 72 6f 63 3a 3d 77 30 3a ┆ut:=w0; loadinf.ownproc:=w0:┆
0x32f40…32f60 3d 6a 6f 62 70 72 6f 63 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 70 6e 61 6d 65 31 3a 3d 66 31 ┆=jobproc; loadinf.pname1:=f1┆
0x32f60…32f7a 3a 3d 6e 61 6d 65 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e ┆:=name.name1; loadinf.┆
0x32f7a…32f80 (0x57c,0x660)
0x32f80…32fa0 70 6e 61 6d 65 32 3a 3d 66 31 3a 3d 6e 61 6d 65 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 6c 6f 61 64 ┆pname2:=f1:=name.name2; load┆
0x32fa0…32fc0 69 6e 66 2e 6f 6b 72 65 73 75 6c 74 3a 3d 77 30 3a 3d 31 3b 0a 0a 20 20 20 20 77 32 3a 3d 61 64 ┆inf.okresult:=w0:=1; w2:=ad┆
0x32fc0…32fe0 64 72 65 73 73 28 73 74 61 72 74 6c 6f 61 64 29 3b 0a 20 20 20 20 77 33 3a 3d 6c 6f 61 64 69 6e ┆dress(startload); w3:=loadin┆
0x32fe0…33000 66 2d 6c 6f 61 64 63 6f 64 65 73 69 7a 65 3b 0a 20 20 20 20 6c 6f 61 64 00 00 00 00 00 00 00 00 ┆f-loadcodesize; load ┆
0x33000…33006 (408,) (0x57c,0x661)
0x33006…33020 63 6f 64 65 65 6e 74 72 79 3a 3d 77 33 3b 0a 20 20 20 20 77 68 69 6c 65 20 77 ┆codeentry:=w3; while w┆
0x33020…33040 33 20 3c 20 6c 6f 61 64 69 6e 66 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 28 ┆3 < loadinf do begin (┆
0x33040…33060 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 ┆w3).word:=w0:=(w2).word; w┆
0x33060…3307e 32 2b 32 3b 0a 20 20 20 20 20 20 77 33 2b 32 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 ┆2+2; w3+2; end; ┆
0x3307e…33084 (0x57c,0x662)
0x33084…330a0 20 77 31 3a 3d 6c 6f 61 64 69 6e 66 3b 0a 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 ┆ w1:=loadinf; w3:=addres┆
0x330a0…330c0 73 28 28 77 31 29 2e 70 6e 61 6d 65 31 29 3b 0a 20 20 20 20 63 61 6c 6c 20 77 32 20 6c 6f 61 64 ┆s((w1).pname1); call w2 load┆
0x330c0…330e0 63 6f 64 65 65 6e 74 72 79 3b 0a 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 74 36 29 2b 36 ┆codeentry; w2:=address(t6)+6┆
0x330e0…330fc 3b 0a 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 2b 34 38 3b 0a 20 20 20 20 ┆; (w2).word:=w0+48; ┆
0x330fc…33102 (0x57c,0x663)
0x33102…33120 77 32 3a 3d 36 3b 0a 65 72 72 6f 72 3a 0a 20 20 20 20 6f 75 74 66 69 72 73 74 3a 3d 77 31 ┆w2:=6; error: outfirst:=w1┆
0x33120…33140 3a 3d 61 64 64 72 65 73 73 28 74 30 29 2b 28 77 32 20 6c 73 68 69 66 74 20 35 29 3b 0a 20 20 20 ┆:=address(t0)+(w2 lshift 5); ┆
0x33140…33160 20 77 31 2b 33 30 3b 0a 20 20 20 20 6f 75 74 6c 61 73 74 3a 3d 77 31 3b 0a 20 20 20 20 77 31 3a ┆ w1+30; outlast:=w1; w1:┆
0x33160…3317a 3d 61 64 64 72 65 73 73 28 6f 75 74 6f 70 29 3b 0a 20 20 20 20 77 33 3a 3d 61 ┆=address(outop); w3:=a┆
0x3317a…33180 (0x57c,0x664)
0x33180…331a0 64 64 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 ┆ddress(maincons); monitor(16┆
0x331a0…331c0 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 2b ┆); ! send messa (w2).word:=w0+┆
0x331c0…331e0 34 38 3b 0a 20 20 20 20 77 32 3a 3d 36 3b 0a 65 72 72 6f 72 3a 0a 20 20 20 20 6f 75 74 66 69 72 ┆48; w2:=6; error: outfir┆
0x331e0…33200 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 74 30 29 2b 28 77 32 20 00 00 00 00 00 00 00 00 ┆st:=w1:=address(t0)+(w2 ┆
0x33200…33206 (409,) (0x5e0,0x665)
0x33206…33220 70 72 6f 63 65 73 73 20 20 72 63 20 20 20 20 20 20 20 20 20 20 62 75 66 20 32 ┆process rc buf 2┆
0x33220…33240 35 20 20 20 61 72 65 61 20 32 35 0a 20 20 73 74 64 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 ┆5 area 25 stdbase ┆
0x33240…33260 20 38 31 30 20 20 20 20 20 20 38 31 30 0a 20 20 75 73 65 72 62 61 73 65 20 20 20 20 20 20 20 20 ┆ 810 810 userbase ┆
0x33260…3327e 20 20 20 38 31 30 20 20 20 20 20 20 38 31 39 0a 20 20 6d 61 78 62 61 73 65 20 20 20 20 20 ┆ 810 819 maxbase ┆
0x3327e…33284 (0x5e0,0x666)
0x33284…332a0 20 20 20 20 20 20 20 38 30 30 20 20 20 20 20 20 38 39 39 0a 20 20 6d 61 78 73 69 7a ┆ 800 899 maxsiz┆
0x332a0…332c0 65 20 20 20 20 20 20 20 20 20 20 20 20 36 30 30 30 30 0a 20 20 70 61 73 73 77 6f 72 64 20 20 20 ┆e 60000 password ┆
0x332c0…332e0 20 20 20 20 20 20 20 20 22 6e 6e 22 0a 20 20 62 73 20 64 69 73 63 20 20 20 20 20 20 20 20 20 20 ┆ "nn" bs disc ┆
0x332e0…332fc 20 20 6b 65 79 30 20 32 30 20 35 30 30 20 6b 65 79 31 20 32 30 20 35 30 30 20 6b 65 ┆ key0 20 500 key1 20 500 ke┆
0x332fc…33302 (0x5e0,0x667)
0x33302…33320 79 32 20 35 20 33 30 30 20 6b 65 79 33 20 35 20 33 30 30 0a 0a 70 72 6f 63 65 73 73 20 20 ┆y2 5 300 key3 5 300 process ┆
0x33320…33340 68 6f 74 6e 65 77 73 20 20 20 20 20 62 75 66 20 34 20 20 20 20 20 61 72 65 61 20 34 0a 20 20 73 ┆hotnews buf 4 area 4 s┆
0x33340…33360 74 64 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 39 39 20 20 20 20 20 20 20 38 39 39 0a ┆tdbase 899 899 ┆
0x33360…3337a 20 20 75 73 65 72 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 38 39 39 20 20 ┆ userbase 899 ┆
0x3337a…33380 (0x5e0,0x668)
0x33380…333a0 20 20 20 20 20 38 39 39 0a 20 20 6d 61 78 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 39 ┆ 899 maxbase 89┆
0x333a0…333c0 39 20 20 20 20 20 20 20 38 39 39 0a 20 20 6d 61 78 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 ┆9 899 maxsize ┆
0x333c0…333e0 20 31 32 38 30 30 0a 20 20 66 70 20 22 28 6f 20 70 70 0a 63 3d 63 6f 70 79 20 74 6e 65 77 73 0a ┆ 12800 fp "(o pp c=copy tnews ┆
0x333e0…33400 66 69 6e 69 73 0a 29 0a 22 0a 20 20 62 73 20 64 69 73 63 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆finis ) " bs disc ┆
0x33400…33406 (410,) (0x5e0,0x669)
0x33406…33420 6b 65 79 30 20 34 20 35 30 20 6b 65 79 31 20 30 20 30 20 6b 65 79 32 20 30 20 ┆key0 4 50 key1 0 0 key2 0 ┆
0x33420…33440 30 20 6b 65 79 33 20 30 20 30 0a 70 72 6f 63 65 73 73 20 64 69 73 70 6c 61 79 0a 20 20 73 74 64 ┆0 key3 0 0 process display std┆
0x33440…33460 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 39 38 20 20 20 20 20 20 20 38 39 38 0a 20 20 ┆base 898 898 ┆
0x33460…3347e 75 73 65 72 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 38 39 38 20 20 20 20 20 20 20 38 ┆userbase 898 8┆
0x3347e…33484 (0x5e0,0x66a)
0x33484…334a0 39 38 0a 20 20 6d 61 78 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 39 38 20 ┆98 maxbase 898 ┆
0x334a0…334c0 20 20 20 20 20 20 38 39 38 0a 20 20 6d 61 78 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 31 ┆ 898 maxsize 1┆
0x334c0…334e0 32 38 30 30 0a 20 20 66 70 20 22 62 64 69 73 70 6c 61 79 0a 20 20 66 69 6e 69 73 0a 20 20 22 0a ┆2800 fp "bdisplay finis " ┆
0x334e0…334fc 20 20 62 73 20 64 69 73 63 20 20 6b 65 79 30 20 34 20 35 30 20 6b 65 79 31 20 30 20 ┆ bs disc key0 4 50 key1 0 ┆
0x334fc…33502 (0x5e0,0x66b)
0x33502…33520 30 20 6b 65 79 32 20 30 20 30 20 6b 65 79 33 20 30 20 30 0a 0a 70 72 6f 63 65 73 73 20 72 ┆0 key2 0 0 key3 0 0 process r┆
0x33520…33540 63 73 61 76 65 20 20 20 20 20 20 20 62 75 66 20 34 20 20 20 20 20 61 72 65 61 20 37 0a 20 20 73 ┆csave buf 4 area 7 s┆
0x33540…33560 74 64 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 39 37 20 20 20 20 20 20 20 38 39 37 0a ┆tdbase 897 897 ┆
0x33560…3357a 20 20 75 73 65 72 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 38 39 30 20 20 ┆ userbase 890 ┆
0x3357a…33580 (0x5e0,0x66c)
0x33580…335a0 20 20 20 20 20 38 39 39 0a 20 20 6d 61 78 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 30 ┆ 899 maxbase 80┆
0x335a0…335c0 30 20 20 20 20 20 20 20 38 39 39 0a 20 20 62 73 20 64 69 73 63 20 20 20 20 20 20 20 20 20 20 20 ┆0 899 bs disc ┆
0x335c0…335e0 20 6b 65 79 30 20 31 30 20 31 35 30 20 6b 65 79 31 20 30 20 30 20 6b 65 79 32 20 30 20 30 20 6b ┆ key0 10 150 key1 0 0 key2 0 0 k┆
0x335e0…33600 65 79 33 20 30 20 30 0a 0a 70 72 6f 63 65 73 73 20 74 65 61 6d 20 20 20 00 00 00 00 00 00 00 00 ┆ey3 0 0 process team ┆
0x33600…33606 (411,) (0x5e0,0x66d)
0x33606…33620 20 20 20 62 75 66 20 34 20 20 20 20 20 61 72 65 61 20 37 0a 20 20 73 74 64 62 ┆ buf 4 area 7 stdb┆
0x33620…33640 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 32 30 20 20 20 20 20 20 20 38 32 30 0a 20 20 75 ┆ase 820 820 u┆
0x33640…33660 73 65 72 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 38 32 30 20 20 20 20 20 20 20 38 32 39 0a ┆serbase 820 829 ┆
0x33660…3367e 20 20 6d 61 78 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 38 30 30 20 20 20 20 20 20 ┆ maxbase 800 ┆
0x3367e…33684 (0x5e0,0x66e)
0x33684…336a0 20 38 39 39 0a 20 20 6d 69 6e 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 33 30 ┆ 899 minsize 30┆
0x336a0…336c0 30 30 30 0a 20 20 70 61 73 73 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 22 68 6f 62 6f 22 0a ┆000 password "hobo" ┆
0x336c0…336e0 20 20 62 73 20 64 69 73 63 20 20 20 20 20 6b 65 79 30 20 36 20 33 30 30 20 6b 65 79 31 20 31 20 ┆ bs disc key0 6 300 key1 1 ┆
0x336e0…336fc 32 30 20 6b 65 79 32 20 31 20 32 30 20 6b 65 79 33 20 31 20 32 30 0a 0a 20 20 74 65 ┆20 key2 1 20 key3 1 20 te┆
0x336fc…33702 (0x5e0,0x66f)
0x33702…33720 72 6d 20 75 73 65 72 61 20 20 20 20 20 20 20 20 20 22 20 31 2c 22 20 20 20 20 20 22 61 31 ┆rm usera " 1," "a1┆
0x33720…33740 22 0a 20 20 74 65 72 6d 20 75 73 65 72 62 20 20 20 20 20 20 20 20 20 22 20 32 2c 22 20 20 20 20 ┆" term userb " 2," ┆
0x33740…33760 20 22 62 32 22 0a 20 20 74 65 72 6d 20 75 73 65 72 63 20 20 20 20 20 20 20 20 20 22 20 33 2c 22 ┆ "b2" term userc " 3,"┆
0x33760…3377a 20 20 20 20 20 22 63 33 22 0a 20 20 74 65 72 6d 20 6e 6e 20 20 20 20 20 20 20 ┆ "c3" term nn ┆
0x3377a…33780 (0x5e0,0x670)
0x33780…337a0 20 20 20 20 20 22 20 39 2c 22 20 20 20 20 20 22 22 0a 0a 65 6e 64 0a 19 73 65 20 20 20 20 20 20 ┆ " 9," "" end se ┆
0x337a0…337c0 20 20 20 20 20 38 39 38 20 20 20 20 20 20 20 38 39 38 0a 20 20 6d 61 78 62 61 73 65 20 20 20 20 ┆ 898 898 maxbase ┆
0x337c0…337e0 20 20 20 20 20 20 20 20 38 39 38 20 20 20 20 20 20 20 38 39 38 0a 20 20 6d 61 78 73 69 7a 65 20 ┆ 898 898 maxsize ┆
0x337e0…33800 20 20 20 20 20 20 20 20 20 20 20 31 32 38 30 30 0a 20 20 66 70 20 22 62 00 00 00 00 00 00 00 00 ┆ 12800 fp "b ┆
0x33800…33806 (412,) (0x5e0,0x671)
0x33806…33820 64 69 73 70 6c 61 79 0a 20 20 66 69 6e 69 73 0a 20 20 22 0a 20 20 62 73 20 64 ┆display finis " bs d┆
0x33820…33840 69 73 63 20 20 6b 65 79 30 20 34 20 35 30 20 6b 65 79 31 20 30 20 30 20 6b 65 79 32 20 30 20 30 ┆isc key0 4 50 key1 0 0 key2 0 0┆
0x33840…33860 20 6b 65 79 33 20 30 20 30 0a 0a 70 72 6f 63 65 73 73 20 72 63 73 61 76 65 20 20 20 20 20 20 20 ┆ key3 0 0 process rcsave ┆
0x33860…3387e 62 75 66 20 34 20 73 65 20 20 20 20 20 20 20 20 20 20 20 38 39 38 20 20 20 20 20 20 20 38 ┆buf 4 se 898 8┆
0x3387e…33884 (0x644,0x672)
0x33884…338a0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 74 73 6f 73 74 65 73 74 20 2a ┆; *** tsostest *┆
0x338a0…338c0 2a 2a 0a 3b 0a 3b 0a 3b 20 61 20 73 69 6d 70 6c 65 20 74 65 73 74 70 72 6f 67 72 61 6d 20 66 6f ┆** ; ; ; a simple testprogram fo┆
0x338c0…338e0 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 73 6f 73 20 73 79 73 74 65 6d 0a 3b 0a 3b 20 74 68 65 ┆r testing the sos system ; ; the┆
0x338e0…338fc 20 70 72 6f 67 72 61 6d 20 61 63 74 73 20 6c 69 6b 65 20 74 68 69 73 0a 3b 0a 3b 20 ┆ program acts like this ; ; ┆
0x338fc…33902 (0x644,0x673)
0x33902…33920 20 20 20 20 20 20 20 63 72 65 61 74 65 20 74 65 72 6d 69 6e 61 6c 20 70 6f 6f 6c 0a 3b 20 ┆ create terminal pool ; ┆
0x33920…33940 6c 6f 6f 70 3a 0a 3b 20 20 20 20 20 20 20 20 72 65 61 64 20 61 6e 20 69 6e 70 75 74 20 6c 69 6e ┆loop: ; read an input lin┆
0x33940…33960 65 20 66 72 6f 6d 20 61 20 63 6f 6e 6e 65 63 74 65 64 20 74 65 72 6d 69 6e 61 6c 0a 3b 20 20 20 ┆e from a connected terminal ; ┆
0x33960…3397a 20 20 20 20 20 20 20 20 20 20 28 74 68 69 73 20 69 6e 70 75 74 20 6c 69 6e 65 ┆ (this input line┆
0x3397a…33980 (0x644,0x674)
0x33980…339a0 20 73 74 61 72 74 73 20 77 69 74 68 20 61 20 74 65 72 6d 69 6e 61 6c 20 6e 75 6d 62 65 72 29 0a ┆ starts with a terminal number) ┆
0x339a0…339c0 3b 20 20 20 20 20 20 20 20 69 6e 63 72 65 61 73 65 20 6c 69 6e 65 63 6f 75 6e 74 28 74 65 72 6d ┆; increase linecount(term┆
0x339c0…339e0 69 6e 61 6c 20 6e 75 6d 62 65 72 29 0a 3b 20 20 20 20 20 20 20 20 77 72 69 74 65 20 74 65 72 6d ┆inal number) ; write term┆
0x339e0…33a00 69 6e 61 6c 20 6e 75 6d 62 65 72 0a 3b 20 20 20 20 20 20 20 20 77 72 69 00 00 00 00 00 00 00 00 ┆inal number ; wri ┆
0x33a00…33a06 (413,) (0x644,0x675)
0x33a06…33a20 74 65 20 6c 69 6e 65 63 6f 75 6e 74 0a 3b 20 20 20 20 20 20 20 20 77 72 69 74 ┆te linecount ; writ┆
0x33a20…33a40 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 69 6e 70 75 74 20 6c 69 6e 65 0a 3b 20 20 20 20 20 20 20 ┆e content of input line ; ┆
0x33a40…33a60 20 67 6f 74 6f 20 6c 6f 6f 70 0a 0a 0a 62 65 67 69 6e 0a 20 20 7a 6f 6e 65 20 70 6f 6f 6c 69 6e ┆ goto loop begin zone poolin┆
0x33a60…33a7e 2c 70 6f 6f 6c 6f 75 74 28 32 36 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 72 65 61 ┆,poolout(26,1,stderror); rea┆
0x33a7e…33a84 (0x644,0x676)
0x33a84…33aa0 6c 20 74 69 6d 65 2c 72 3b 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 61 63 74 69 76 65 ┆l time,r; integer i,active┆
0x33aa0…33ac0 74 65 72 6d 69 6e 61 6c 73 2c 6d 61 78 74 65 72 6d 69 6e 61 6c 73 2c 63 75 72 72 74 65 72 6d 69 ┆terminals,maxterminals,currtermi┆
0x33ac0…33ae0 6e 61 6c 3b 0a 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 72 65 61 ┆nal; integer procedure crea┆
0x33ae0…33afc 74 65 70 6f 6f 6c 28 7a 29 3b 0a 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 62 65 67 69 6e ┆tepool(z); zone z; begin┆
0x33afc…33b02 (0x644,0x677)
0x33b02…33b20 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 ┆ integer i; integer ar┆
0x33b20…33b40 72 61 79 20 7a 69 61 28 31 3a 32 30 29 2c 73 69 61 28 31 3a 31 32 29 3b 0a 20 20 20 20 7a 6f 6e ┆ray zia(1:20),sia(1:12); zon┆
0x33b40…33b60 65 20 7a 74 65 6d 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 6f 70 65 6e 28 7a ┆e ztem(1,1,stderror); open(z┆
0x33b60…33b7a 74 65 6d 2c 30 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 20 20 67 65 74 7a ┆tem,0,<:tem:>,0); getz┆
0x33b7a…33b80 (0x644,0x678)
0x33b80…33ba0 6f 6e 65 36 28 7a 2c 7a 69 61 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 36 28 7a 74 65 6d 2c ┆one6(z,zia); getshare6(ztem,┆
0x33ba0…33bc0 73 69 61 2c 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 39 30 20 73 68 69 66 74 20 31 32 3b ┆sia,1); sia(4):=90 shift 12;┆
0x33bc0…33be0 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 20 ┆ for i:=0 step 1 until 3 do ┆
0x33be0…33c00 73 69 61 28 38 2b 69 29 3a 3d 7a 69 61 28 32 2b 69 29 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆sia(8+i):=zia(2+i); ┆
0x33c00…33c06 (414,) (0x644,0x679)
0x33c06…33c20 73 65 74 73 68 61 72 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 ┆setshare6(ztem,sia,1); ┆
0x33c20…33c40 20 6d 6f 6e 69 74 6f 72 28 31 36 2c 7a 74 65 6d 2c 31 2c 73 69 61 29 3b 0a 20 20 20 20 63 72 65 ┆ monitor(16,ztem,1,sia); cre┆
0x33c40…33c60 61 74 65 70 6f 6f 6c 3a 3d 69 66 20 6d 6f 6e 69 74 6f 72 28 31 38 2c 7a 74 65 6d 2c 31 2c 73 69 ┆atepool:=if monitor(18,ztem,1,si┆
0x33c60…33c7e 61 29 20 3c 3e 20 31 20 74 68 65 6e 20 2d 31 20 65 6c 73 65 20 73 69 61 28 31 29 3b 0a 20 ┆a) <> 1 then -1 else sia(1); ┆
0x33c7e…33c84 (0x644,0x67a)
0x33c84…33ca0 20 20 20 63 6c 6f 73 65 28 7a 74 65 6d 2c 74 72 75 65 29 3b 0a 20 20 65 6e 64 20 63 ┆ close(ztem,true); end c┆
0x33ca0…33cc0 72 65 61 74 65 70 6f 6f 6c 3b 0a 20 20 0a 20 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 3a 3d 31 30 ┆reatepool; maxterminals:=10┆
0x33cc0…33ce0 3b 0a 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 30 3b 0a 0a 20 20 62 65 67 69 6e ┆; activeterminals:=0; begin┆
0x33ce0…33cfc 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 3b 0a 20 20 20 20 69 6e 74 65 67 65 ┆ integer i,j; intege┆
0x33cfc…33d02 (0x644,0x67b)
0x33d02…33d20 72 20 61 72 72 61 79 20 6c 69 6e 65 62 75 66 28 31 3a 32 30 30 29 2c 6c 69 6e 65 63 6f 75 ┆r array linebuf(1:200),linecou┆
0x33d20…33d40 6e 74 28 31 3a 6d 61 78 74 65 72 6d 69 6e 61 6c 73 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 ┆nt(1:maxterminals); for i:=1┆
0x33d40…33d60 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 20 64 6f 20 6c 69 ┆ step 1 until maxterminals do li┆
0x33d60…33d7a 6e 65 63 6f 75 6e 74 28 69 29 3a 3d 30 3b 0a 20 20 20 20 6f 70 65 6e 28 70 6f ┆necount(i):=0; open(po┆
0x33d7a…33d80 (0x644,0x67c)
0x33d80…33da0 6f 6c 69 6e 2c 38 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 20 20 6f 70 65 6e 28 70 6f 6f 6c ┆olin,8,<:tem:>,0); open(pool┆
0x33da0…33dc0 6f 75 74 2c 31 20 73 68 69 66 74 20 31 38 20 2b 20 38 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 ┆out,1 shift 18 + 8,<:tem:>,0); ┆
0x33dc0…33de0 20 20 20 63 72 65 61 74 65 70 6f 6f 6c 28 70 6f 6f 6c 69 6e 29 3b 0a 0a 20 20 3c 2a 20 20 20 72 ┆ createpool(poolin); <* r┆
0x33de0…33e00 65 61 64 20 61 20 6c 69 6e 65 20 61 6e 64 20 64 69 73 70 6c 61 79 20 69 00 00 00 00 00 00 00 00 ┆ead a line and display i ┆
0x33e00…33e06 (415,) (0x644,0x67d)
0x33e06…33e20 74 20 6f 6e 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 65 72 6d 69 6e 61 ┆t on corresponding termina┆
0x33e20…33e40 6c 20 20 20 2a 3e 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 72 65 61 64 28 70 6f 6f 6c 69 6e 2c 63 75 ┆l *> loop: read(poolin,cu┆
0x33e40…33e60 72 72 74 65 72 6d 69 6e 61 6c 29 3b 0a 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 66 6f 72 20 69 ┆rrterminal); i:=1; for i┆
0x33e60…33e7e 3a 3d 69 20 77 68 69 6c 65 20 72 65 61 64 63 68 61 72 28 70 6f 6f 6c 69 6e 2c 6c 69 6e 65 ┆:=i while readchar(poolin,line┆
0x33e7e…33e84 (0x644,0x67e)
0x33e84…33ea0 62 75 66 28 69 29 29 20 3c 3e 20 38 20 64 6f 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 ┆buf(i)) <> 8 do i:=i+1; ┆
0x33ea0…33ec0 73 65 74 70 6f 73 69 74 69 6f 6e 28 70 6f 6f 6c 69 6e 2c 30 2c 30 29 3b 0a 20 20 20 20 6c 69 6e ┆setposition(poolin,0,0); lin┆
0x33ec0…33ee0 65 63 6f 75 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3a 3d 6c 69 6e 65 63 6f 75 6e 74 28 ┆ecount(currterminal):=linecount(┆
0x33ee0…33efc 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2b 31 3b 0a 20 20 20 20 69 66 20 6c 69 6e 65 ┆currterminal)+1; if line┆
0x33efc…33f02 (0x644,0x67f)
0x33f02…33f20 62 75 66 28 31 29 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d ┆buf(1) = 1 then begin com┆
0x33f20…33f40 6d 65 6e 74 20 6c 6f 67 69 6e 3b 0a 20 20 20 20 20 20 6c 69 6e 65 63 6f 75 6e 74 28 63 75 72 72 ┆ment login; linecount(curr┆
0x33f40…33f60 74 65 72 6d 69 6e 61 6c 29 3a 3d 30 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 70 6f 6f 6c 6f 75 ┆terminal):=0; write(poolou┆
0x33f60…33f7a 74 2c 3c 3a 73 6f 73 20 74 65 73 74 70 72 6f 67 72 61 6d 20 72 65 61 64 79 3c ┆t,<:sos testprogram ready<┆
0x33f7a…33f80 (0x644,0x680)
0x33f80…33fa0 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 61 ┆10>:>); activeterminals:=a┆
0x33fa0…33fc0 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 2b 31 3b 0a 20 20 20 20 20 20 73 79 73 74 69 6d 65 28 ┆ctiveterminals+1; systime(┆
0x33fc0…33fe0 31 2c 30 2c 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 73 79 73 74 69 6d 65 28 34 2c 74 69 6d 65 2c ┆1,0,time); systime(4,time,┆
0x33fe0…34000 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 00 00 00 00 00 00 00 00 ┆r); write(out,<<dd ┆
0x34000…34006 (416,) (0x644,0x681)
0x34006…34020 20 64 64 20 64 64 3e 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆ dd dd>,r); write(ou┆
0x34020…34040 74 2c 3c 3a 3a 20 20 20 6c 6f 67 69 6e 3a 20 20 3a 3e 2c 3c 3c 64 64 3e 2c 63 75 72 72 74 65 72 ┆t,<:: login: :>,<<dd>,currter┆
0x34040…34060 6d 69 6e 61 6c 2c 3c 3a 2c 3a 3e 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 ┆minal,<:,:>); for j:=1 ste┆
0x34060…3407e 70 20 31 20 75 6e 74 69 6c 20 69 20 64 6f 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 6c 69 6e ┆p 1 until i do outchar(out,lin┆
0x3407e…34084 (0x644,0x682)
0x34084…340a0 65 62 75 66 28 6a 29 29 3b 0a 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 ┆ebuf(j)); setposition(┆
0x340a0…340c0 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 69 66 20 6c 69 ┆out,0,0); end else if li┆
0x340c0…340e0 6e 65 62 75 66 28 31 29 20 3d 20 32 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d ┆nebuf(1) = 2 then begin com┆
0x340e0…340fc 6d 65 6e 74 20 6c 6f 67 6f 75 74 3b 0a 20 20 20 20 20 20 61 63 74 69 76 65 74 65 72 ┆ment logout; activeter┆
0x340fc…34102 (0x644,0x683)
0x34102…34120 6d 69 6e 61 6c 73 3a 3d 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 2d 31 3b 0a 20 20 20 ┆minals:=activeterminals-1; ┆
0x34120…34140 20 20 20 73 79 73 74 69 6d 65 28 31 2c 30 2c 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 73 79 73 74 ┆ systime(1,0,time); syst┆
0x34140…34160 69 6d 65 28 34 2c 74 69 6d 65 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆ime(4,time,r); write(out,<┆
0x34160…3417a 3c 64 64 20 64 64 20 64 64 3e 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 ┆<dd dd dd>,r); write┆
0x3417a…34180 (0x644,0x684)
0x34180…341a0 28 6f 75 74 2c 3c 3a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(out,<:: ┆
0x341a0…341c0 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 6f 75 74 3a 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆ logout: :>, ┆
0x341c0…341e0 20 20 20 20 20 20 20 20 3c 3c 64 64 3e 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 3c 3a 2c 3a 3e ┆ <<dd>,currterminal,<:,:>┆
0x341e0…34200 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 00 00 00 00 00 00 00 00 ┆); for j:=1 step 1 ┆
0x34200…34206 (417,) (0x644,0x685)
0x34206…34220 20 75 6e 74 69 6c 20 69 20 64 6f 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 6c 69 ┆ until i do outchar(out,li┆
0x34220…34240 6e 65 62 75 66 28 6a 29 29 3b 0a 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 ┆nebuf(j)); setposition(out┆
0x34240…34260 2c 30 2c 30 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 ┆,0,0); end else begin ┆
0x34260…3427e 20 20 20 20 77 72 69 74 65 28 70 6f 6f 6c 6f 75 74 2c 3c 3a 20 74 65 72 6d 20 3d 20 3a 3e ┆ write(poolout,<: term = :>┆
0x3427e…34284 (0x644,0x686)
0x34284…342a0 2c 3c 3c 64 64 3e 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 0a 20 20 20 20 20 20 20 ┆,<<dd>,currterminal, ┆
0x342a0…342c0 20 20 20 20 20 20 20 20 20 3c 3a 20 6c 69 6e 65 20 3d 20 3a 3e 2c 3c 3c 64 64 64 3e 2c 6c 69 6e ┆ <: line = :>,<<ddd>,lin┆
0x342c0…342e0 65 63 6f 75 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2c 3c 3a 3a 20 3a 3e 29 3b 0a 20 20 ┆ecount(currterminal),<:: :>); ┆
0x342e0…342fc 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 69 20 ┆ for j:=1 step 1 until i ┆
0x342fc…34302 (0x644,0x687)
0x34302…34320 64 6f 20 6f 75 74 63 68 61 72 28 70 6f 6f 6c 6f 75 74 2c 6c 69 6e 65 62 75 66 28 6a 29 29 ┆do outchar(poolout,linebuf(j))┆
0x34320…34340 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 70 6f 6f 6c 6f ┆; end; setposition(poolo┆
0x34340…34360 75 74 2c 30 2c 30 29 3b 0a 20 20 20 20 69 66 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 20 ┆ut,0,0); if activeterminals ┆
0x34360…3437a 3e 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 65 6e 64 3b ┆> 0 then goto loop; end;┆
0x3437a…34380 (0x644,0x688)
0x34380…343a0 0a 0a 65 6e 64 0a 0a 0a 19 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 69 20 64 6f ┆ end j:=1 step 1 until i do┆
0x343a0…343c0 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 6c 69 6e 65 62 75 66 28 6a 29 29 3b 0a 20 20 20 20 20 20 ┆ outchar(out,linebuf(j)); ┆
0x343c0…343e0 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 20 65 6e 64 20 65 6c ┆setposition(out,0,0); end el┆
0x343e0…34400 73 65 0a 20 20 20 20 69 66 20 6c 69 6e 65 62 75 66 28 31 29 20 3d 20 32 00 00 00 00 00 00 00 00 ┆se if linebuf(1) = 2 ┆
0x34400…34406 (418,) (0x644,0x689)
0x34406…34420 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 6c ┆ then begin comment l┆
0x34420…34440 6f 67 6f 75 74 3b 0a 20 20 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 61 63 ┆ogout; activeterminals:=ac┆
0x34440…34460 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 2d 31 3b 0a 20 20 20 20 20 20 73 79 73 74 69 6d 65 28 31 ┆tiveterminals-1; systime(1┆
0x34460…3447e 2c 30 2c 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 73 79 73 74 69 6d 65 28 34 2c 74 69 6d 65 ┆,0,time); systime(4,time┆
0x3447e…34484 (0x644,0x68a)
0x34484…344a0 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 20 64 64 ┆,r); write(out,<<dd dd┆
0x344a0…344c0 20 64 64 3e 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3a 20 20 20 20 ┆ dd>,r); write(out,<:: ┆
0x344c0…344e0 20 20 20 20 20 20 20 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 ┆ l┆
0x344e0…344fc 6f 67 6f 75 74 3a 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ogout: :>, ┆
0x344fc…34502 (0x644,0x68b)
0x34502…34520 3c 3c 64 64 3e 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 3c 3a 2c 3a 3e 29 3b 0a 20 20 20 ┆<<dd>,currterminal,<:,:>); ┆
0x34520…34540 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 69 20 64 6f 20 6f 75 ┆ for j:=1 step 1 until i do ou┆
0x34540…34560 74 63 68 61 72 28 6f 75 74 2c 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆tchar(out,,r); write(out,<┆
0x34560…3457a 3c 64 64 20 64 64 20 64 64 3e 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 ┆<dd dd dd>,r); write┆
0x3457a…34580 (0x6a8,0x68c)
0x34580…345a0 62 64 69 73 70 6c 61 79 3d 61 6c 67 6f 6c 20 63 6f 6e 6e 65 63 74 2e 6e 6f 20 6c 69 73 74 2e 79 ┆bdisplay=algol connect.no list.y┆
0x345a0…345c0 65 73 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 70 61 72 65 6e 74 2c 6c 67 64 3b ┆es begin integer i,parent,lgd;┆
0x345c0…345e0 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 20 28 31 3a 32 29 2c 70 72 6f 63 65 73 ┆ integer array ia (1:2),proces┆
0x345e0…34600 73 5f 69 61 28 31 3a 35 31 29 3b 0a 20 20 62 6f 6f 6c 65 61 6e 20 66 7c 00 00 00 00 00 00 00 00 ┆s_ia(1:51); boolean fø ┆
0x34600…34606 (419,) (0x6a8,0x68d)
0x34606…34620 72 73 74 65 3b 0a 20 20 61 72 72 61 79 20 66 70 6e 61 6d 65 2c 20 6e 61 6d 65 ┆rste; array fpname, name┆
0x34620…34640 28 31 3a 32 29 3b 0a 20 20 61 72 72 61 79 20 66 69 65 6c 64 20 61 66 3b 0a 20 20 6c 6f 6e 67 20 ┆(1:2); array field af; long ┆
0x34640…34660 61 72 72 61 79 20 66 69 65 6c 64 20 6c 61 66 3b 0a 20 20 72 65 61 6c 20 72 75 6e 74 69 6d 65 2c ┆array field laf; real runtime,┆
0x34660…3467e 20 73 74 61 72 74 5f 74 69 6d 65 2c 20 77 61 69 74 5f 74 69 6d 65 2c 20 74 69 6d 65 2c 6d ┆ start_time, wait_time, time,m┆
0x3467e…34684 (0x6a8,0x68e)
0x34684…346a0 6f 6e 69 74 6f 72 5f 76 65 72 73 69 6f 6e 3b 0a 20 20 20 0a 20 20 70 61 72 65 6e 74 ┆onitor_version; parent┆
0x346a0…346c0 3a 3d 61 66 3a 3d 6c 61 66 3a 3d 30 3b 0a 20 20 0a 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 ┆:=af:=laf:=0; system(5)move┆
0x346c0…346e0 5f 63 6f 72 65 20 66 72 61 20 6d 6f 6e 69 74 6f 72 20 76 65 72 73 69 6f 6e 3a 28 36 34 2c 69 61 ┆_core fra monitor version:(64,ia┆
0x346e0…346fc 29 3b 0a 20 20 6d 6f 6e 69 74 6f 72 5f 76 65 72 73 69 6f 6e 3a 3d 69 61 28 31 29 20 ┆); monitor_version:=ia(1) ┆
0x346fc…34702 (0x6a8,0x68f)
0x34702…34720 73 68 69 66 74 20 28 2d 31 32 29 20 2b 20 69 61 28 31 29 20 65 78 74 72 61 63 74 20 31 32 ┆shift (-12) + ia(1) extract 12┆
0x34720…34740 20 2a 30 2e 30 31 3b 0a 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 5f 63 6f 72 65 3a 28 37 38 ┆ *0.01; system(5)move_core:(78┆
0x34740…34760 2c 69 61 29 3b 0a 20 20 6c 67 64 3a 3d 28 69 61 28 32 29 2d 69 61 28 31 29 29 2f 2f 32 3b 0a 20 ┆,ia); lgd:=(ia(2)-ia(1))//2; ┆
0x34760…3477a 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 ┆ begin integer array i┆
0x3477a…34780 (0x6a8,0x690)
0x34780…347a0 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 20 28 31 3a 6c 67 64 29 3b 0a 20 20 20 20 70 72 6f 63 65 ┆nt_name_table (1:lgd); proce┆
0x347a0…347c0 64 75 72 65 20 68 65 61 64 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 64 ┆dure head; write(out,<:<10>d┆
0x347c0…347e0 69 73 70 6c 61 79 20 6f 66 20 3a 3e 2c 66 70 6e 61 6d 65 2e 6c 61 66 2c 0a 20 20 20 20 20 20 20 ┆isplay of :>,fpname.laf, ┆
0x347e0…34800 20 20 20 3c 3a 20 64 2e 3a 3e 2c 3c 3c 64 64 64 64 64 64 3e 2c 73 79 73 00 00 00 00 00 00 00 00 ┆ <: d.:>,<<dddddd>,sys ┆
0x34800…34806 (420,) (0x6a8,0x691)
0x34806…34820 74 69 6d 65 28 35 2c 30 2c 74 69 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆time(5,0,time), ┆
0x34820…34840 3c 3a 2e 3a 3e 2c 3c 3c 7a 64 64 64 3e 2c 74 69 6d 65 2f 31 30 30 2d 30 2e 33 2c 0a 20 20 20 20 ┆<:.:>,<<zddd>,time/100-0.3, ┆
0x34840…34860 20 20 20 20 20 20 3c 3a 3c 31 30 3e 6d 6f 6e 69 74 6f 72 20 76 65 72 73 69 6f 6e 3a 3a 3e 2c 3c ┆ <:<10>monitor version::>,<┆
0x34860…3487e 3c 20 64 2e 64 64 3e 2c 6d 6f 6e 69 74 6f 72 5f 76 65 72 73 69 6f 6e 2c 0a 20 20 20 20 20 ┆< d.dd>,monitor_version, ┆
0x3487e…34884 (0x6a8,0x692)
0x34884…348a0 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c 33 31 2c 3c 3a 63 6c 61 69 6d ┆ false add 32,31,<:claim┆
0x348a0…348c0 3a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 6e 61 6d 65 20 20 20 20 20 20 20 ┆::>, <:<10>name ┆
0x348c0…348e0 20 20 20 72 65 6c 20 73 74 61 74 65 20 73 74 61 72 74 20 20 20 77 61 69 74 20 20 20 20 20 63 70 ┆ rel state start wait cp┆
0x348e0…348fc 75 20 20 20 20 73 69 7a 65 20 20 62 75 66 20 61 72 65 61 20 69 6e 74 20 66 75 6e 63 ┆u size buf area int func┆
0x348fc…34902 (0x6a8,0x693)
0x34902…34920 2e 3a 3e 29 3b 0a 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 5f 70 72 ┆.:>); procedure skriv_pr┆
0x34920…34940 6f 63 65 73 73 28 70 61 72 65 6e 74 2c 6e 69 76 65 61 75 29 3b 0a 20 20 20 20 20 20 76 61 6c 75 ┆ocess(parent,niveau); valu┆
0x34940…34960 65 20 70 61 72 65 6e 74 2c 6e 69 76 65 61 75 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 70 ┆e parent,niveau; integer p┆
0x34960…3497a 61 72 65 6e 74 2c 6e 69 76 65 61 75 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆arent,niveau; begin ┆
0x3497a…34980 (0x6a8,0x694)
0x34980…349a0 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 20 20 20 20 20 20 72 75 6e ┆ integer i; run┆
0x349a0…349c0 74 69 6d 65 3a 3d 70 72 6f 63 65 73 73 5f 69 61 2e 6c 61 66 28 31 34 29 2f 31 30 30 30 30 3b 0a ┆time:=process_ia.laf(14)/10000; ┆
0x349c0…349e0 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 3a 3d 70 72 6f 63 65 73 73 5f 69 61 2e 6c 61 66 28 31 ┆ time:=process_ia.laf(1┆
0x349e0…34a00 35 29 2f 31 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 79 73 74 00 00 00 00 00 00 00 00 ┆5)/10000; syst ┆
0x34a00…34a06 (421,) (0x6a8,0x695)
0x34a06…34a20 69 6d 65 28 34 2c 74 69 6d 65 2c 73 74 61 72 74 5f 74 69 6d 65 29 3b 0a 20 20 ┆ime(4,time,start_time); ┆
0x34a20…34a40 20 20 20 20 20 20 20 20 74 69 6d 65 3a 3d 70 72 6f 63 65 73 73 5f 69 61 2e 6c 61 66 28 31 36 29 ┆ time:=process_ia.laf(16)┆
0x34a40…34a60 2f 31 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 79 73 74 69 6d 65 28 34 2c 74 69 6d 65 ┆/10000; systime(4,time┆
0x34a60…34a7e 2c 77 61 69 74 5f 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆,wait_time); write(o┆
0x34a7e…34a84 (0x6a8,0x696)
0x34a84…34aa0 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 32 2a 6e ┆ut,<:<10>:>,false add 32,2*n┆
0x34aa0…34ac0 69 76 65 61 75 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 28 6f 75 74 2c 31 36 ┆iveau); outtext(out,16┆
0x34ac0…34ae0 20 2d 20 32 2a 6e 69 76 65 61 75 2c 70 72 6f 63 65 73 73 5f 69 61 2e 61 66 2c 31 29 3b 0a 20 20 ┆ - 2*niveau,process_ia.af,1); ┆
0x34ae0…34afc 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 69 66 20 70 72 6f 63 65 73 73 ┆ write(out,if process┆
0x34afc…34b02 (0x6a8,0x697)
0x34b02…34b20 5f 69 61 28 34 39 29 3c 3e 30 20 74 68 65 6e 20 3c 3a 2a 5f 3a 3e 20 65 6c 73 65 20 3c 3a ┆_ia(49)<>0 then <:*_:> else <:┆
0x34b20…34b40 5f 5f 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 63 61 73 65 20 ┆__:>); write(out,case ┆
0x34b40…34b60 70 72 6f 63 65 73 73 5f 69 61 28 35 29 20 65 78 74 72 61 63 74 20 38 20 73 68 69 66 74 20 28 2d ┆process_ia(5) extract 8 shift (-┆
0x34b60…34b7a 35 29 20 2b 20 31 20 6f 66 28 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆5) + 1 of( ┆
0x34b7a…34b80 (0x6a8,0x698)
0x34b80…34ba0 20 3c 3a 65 72 72 6f 72 3a 3e 2c 3c 3a 3f 20 20 20 20 3a 3e 2c 3c 3a 72 75 6e 20 20 3a 3e 2c 3c ┆ <:error:>,<:? :>,<:run :>,<┆
0x34ba0…34bc0 3a 3f 20 20 20 20 3a 3e 2c 3c 3a 77 61 69 74 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆:? :>,<:wait :>, ┆
0x34bc0…34be0 20 20 20 20 3c 3a 73 74 6f 70 20 3a 3e 2c 3c 3a 66 75 6e 63 20 3a 3e 2c 3c 3a 3f 20 20 20 20 3a ┆ <:stop :>,<:func :>,<:? :┆
0x34be0…34c00 3e 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 62 00 00 00 00 00 00 00 00 ┆>), << b ┆
0x34c00…34c06 (422,) (0x6a8,0x699)
0x34c06…34c20 64 2e 64 64 3e 2c 73 74 61 72 74 5f 74 69 6d 65 2f 31 30 30 30 30 2d 30 2e 30 ┆d.dd>,start_time/10000-0.0┆
0x34c20…34c40 30 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 20 62 64 2e 64 64 3e 2c 77 ┆03, << bd.dd>,w┆
0x34c40…34c60 61 69 74 5f 74 69 6d 65 2f 31 30 30 30 30 2d 30 2e 30 30 33 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ait_time/10000-0.003, ┆
0x34c60…34c7e 20 20 20 20 20 20 3c 3c 64 64 64 64 64 64 2e 64 3e 2c 72 75 6e 74 69 6d 65 2c 0a 20 20 20 ┆ <<dddddd.d>,runtime, ┆
0x34c7e…34c84 (0x6a8,0x69a)
0x34c84…34ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 20 64 64 64 64 64 64 3e 2c 70 72 6f ┆ << dddddd>,pro┆
0x34ca0…34cc0 63 65 73 73 5f 69 61 28 31 32 29 2d 70 72 6f 63 65 73 73 5f 69 61 28 31 31 29 2c 0a 20 20 20 20 ┆cess_ia(12)-process_ia(11), ┆
0x34cc0…34ce0 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 20 64 64 64 3e 2c 70 72 6f 63 65 73 73 5f 69 61 28 ┆ << ddd>,process_ia(┆
0x34ce0…34cfc 31 33 29 20 73 68 69 66 74 20 28 2d 31 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆13) shift (-12), ┆
0x34cfc…34d02 (0x6a8,0x69b)
0x34d02…34d20 20 20 20 20 20 70 72 6f 63 65 73 73 5f 69 61 28 31 33 29 20 65 78 74 72 61 63 74 20 31 32 ┆ process_ia(13) extract 12┆
0x34d20…34d40 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 64 64 20 3e 2c 70 72 6f 63 65 73 ┆, << dd >,proces┆
0x34d40…34d60 73 5f 69 61 28 31 34 29 20 73 68 69 66 74 20 28 2d 31 32 29 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆s_ia(14) shift (-12)); ┆
0x34d60…34d7a 20 20 69 66 20 70 72 6f 63 65 73 73 69 61 28 31 34 29 20 65 78 74 72 61 63 74 ┆ if processia(14) extract┆
0x34d7a…34d80 (0x6a8,0x69c)
0x34d80…34da0 20 31 32 3d 34 30 39 35 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 61 6c 6c 3a 3e ┆ 12=4095 then write(out,<: all:>┆
0x34da0…34dc0 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 20 3a 3d 30 20 73 74 65 70 ┆) else for i :=0 step┆
0x34dc0…34de0 20 31 20 75 6e 74 69 6c 20 31 31 20 64 6f 20 69 66 20 70 72 6f 63 65 73 73 69 61 28 31 34 29 20 ┆ 1 until 11 do if processia(14) ┆
0x34de0…34e00 73 68 69 66 74 20 28 2d 69 29 20 65 78 74 72 61 63 74 20 31 3d 31 20 74 00 00 00 00 00 00 00 00 ┆shift (-i) extract 1=1 t ┆
0x34e00…34e06 (423,) (0x6a8,0x69d)
0x34e06…34e20 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 31 31 2d 69 29 3b 0a 20 20 20 20 20 ┆hen write(out,11-i); ┆
0x34e20…34e40 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 6c 67 64 20 64 ┆ for i:=1 step 1 until lgd d┆
0x34e40…34e60 6f 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 73 79 ┆o begin sy┆
0x34e60…34e7e 73 74 65 6d 28 35 29 6d 6f 76 65 5f 63 6f 72 65 3a 28 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 ┆stem(5)move_core:(int_name_tab┆
0x34e7e…34e84 (0x6a8,0x69e)
0x34e84…34ea0 6c 65 28 69 29 2b 32 2c 70 72 6f 63 65 73 73 5f 69 61 29 3b 0a 20 20 20 20 20 20 20 ┆le(i)+2,process_ia); ┆
0x34ea0…34ec0 20 20 20 20 20 69 66 20 70 72 6f 63 65 73 73 5f 69 61 28 32 35 29 3d 70 61 72 65 6e 74 20 74 68 ┆ if process_ia(25)=parent th┆
0x34ec0…34ee0 65 6e 20 73 6b 72 69 76 5f 70 72 6f 63 65 73 73 28 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 28 ┆en skriv_process(int_name_table(┆
0x34ee0…34efc 69 29 2c 6e 69 76 65 61 75 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆i),niveau+1); end;┆
0x34efc…34f02 (0x6a8,0x69f)
0x34f02…34f20 0a 20 20 20 20 65 6e 64 20 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 5f 63 ┆ end ; system(5)move_c┆
0x34f20…34f40 6f 72 65 3a 28 69 61 28 31 29 2c 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 29 3b 0a 20 20 20 20 ┆ore:(ia(1),int_name_table); ┆
0x34f40…34f60 69 66 20 73 79 73 74 65 6d 28 34 2c 31 2c 66 70 6e 61 6d 65 29 3c 3e 30 20 74 68 65 6e 0a 20 20 ┆if system(4,1,fpname)<>0 then ┆
0x34f60…34f7a 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 67 ┆ for i:=1 step 1 until lg┆
0x34f7a…34f80 (0x6a8,0x6a0)
0x34f80…34fa0 64 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 79 73 74 65 6d 28 35 29 6d 6f ┆d do begin system(5)mo┆
0x34fa0…34fc0 76 65 5f 63 6f 72 65 3a 28 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 28 69 29 2b 32 2c 6e 61 6d ┆ve_core:(int_name_table(i)+2,nam┆
0x34fc0…34fe0 65 29 3b 0a 20 20 20 20 20 20 69 66 20 6e 61 6d 65 28 31 29 3d 66 70 6e 61 6d 65 28 31 29 20 61 ┆e); if name(1)=fpname(1) a┆
0x34fe0…35000 6e 64 20 6e 61 6d 65 28 32 29 3d 66 70 6e 61 6d 65 28 32 29 20 74 68 65 00 00 00 00 00 00 00 00 ┆nd name(2)=fpname(2) the ┆
0x35000…35006 (424,) (0x6a8,0x6a1)
0x35006…35020 6e 0a 20 20 20 20 20 20 20 20 70 61 72 65 6e 74 3a 3d 69 6e 74 5f 6e 61 6d 65 ┆n parent:=int_name┆
0x35020…35040 5f 74 61 62 6c 65 28 69 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 70 61 72 65 6e ┆_table(i); end; if paren┆
0x35040…35060 74 3d 30 20 74 68 65 6e 20 70 61 72 65 6e 74 3a 3d 73 79 73 74 65 6d 28 38 2c 69 2c 66 70 6e 61 ┆t=0 then parent:=system(8,i,fpna┆
0x35060…3507e 6d 65 29 3b 0a 20 20 20 20 68 65 61 64 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 35 29 6d 6f ┆me); head; system(5)mo┆
0x3507e…35084 (0x6a8,0x6a2)
0x35084…350a0 76 65 5f 63 6f 72 65 3a 28 70 61 72 65 6e 74 2b 32 2c 70 72 6f 63 65 73 73 5f 69 61 ┆ve_core:(parent+2,process_ia┆
0x350a0…350c0 29 3b 0a 20 20 20 20 73 6b 72 69 76 5f 70 72 6f 63 65 73 73 28 70 61 72 65 6e 74 2c 30 29 3b 0a ┆); skriv_process(parent,0); ┆
0x350c0…350e0 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 66 61 6c 73 65 20 61 64 64 20 31 30 2c 32 29 3b 0a 20 ┆ write(out,false add 10,2); ┆
0x350e0…350fc 20 65 6e 64 20 70 61 72 65 6e 74 3c 3e 30 3b 0a 20 20 74 72 61 70 6d 6f 64 65 3a 3d ┆ end parent<>0; trapmode:=┆
0x350fc…35102 (0x6a8,0x6a3)
0x35102…35120 31 30 32 34 3b 0a 65 6e 64 20 3b 0a 62 64 69 73 70 6c 61 79 20 73 0a 62 64 69 73 70 6c 61 ┆1024; end ; bdisplay s bdispla┆
0x35120…35140 79 20 64 72 69 76 65 72 70 72 6f 63 0a 62 64 69 73 70 6c 61 79 0a 62 64 69 73 70 6c 61 79 20 61 ┆y driverproc bdisplay bdisplay a┆
0x35140…35160 6c 6c 0a 62 64 69 73 70 6c 61 79 20 74 65 6d 0a 73 63 6f 70 65 20 70 72 6f 6a 65 63 74 20 62 64 ┆ll bdisplay tem scope project bd┆
0x35160…3517a 69 73 70 6c 61 79 0a 66 69 6e 69 73 0a 19 20 20 20 20 20 20 20 20 20 20 62 65 ┆isplay finis be┆
0x3517a…35180 (0x6a8,0x6a4)
0x35180…351a0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 5f 63 6f ┆gin system(5)move_co┆
0x351a0…351c0 72 65 3a 28 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 28 69 29 2b 32 2c 70 72 6f 63 65 73 73 5f ┆re:(int_name_table(i)+2,process_┆
0x351c0…351e0 69 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 65 73 73 5f 69 61 28 32 ┆ia); if process_ia(2┆
0x351e0…35200 35 29 3d 70 61 72 65 6e 74 20 74 68 65 6e 20 73 6b 72 69 76 5f 70 72 6f 00 00 00 00 00 00 00 00 ┆5)=parent then skriv_pro ┆
0x35200…35206 (425,) (0x6a8,0x6a5)
0x35206…35220 63 65 73 73 28 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 28 69 29 2c 6e 69 76 ┆cess(int_name_table(i),niv┆
0x35220…35240 65 61 75 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 3b ┆eau+1); end; end ;┆
0x35240…35260 0a 20 20 20 20 73 79 73 74 65 6d 28 35 29 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 79 ┆ system(5)gin sy┆
0x35260…3527e 73 74 65 6d 28 35 29 6d 6f 76 65 5f 63 6f 72 65 3a 28 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 ┆stem(5)move_core:(int_name_tab┆
0x3527e…35284 (0x70c,0x6a6)
0x35284…352a0 20 20 20 20 20 20 20 20 79 6f 75 20 61 72 65 20 6e 6f 77 20 72 75 6e 6e 69 6e 67 20 ┆ you are now running ┆
0x352a0…352c0 61 20 72 63 38 30 30 30 20 73 65 72 76 69 63 65 64 20 62 79 20 74 68 65 20 6f 70 65 72 61 74 69 ┆a rc8000 serviced by the operati┆
0x352c0…352e0 6e 67 20 73 79 73 74 65 6d 20 6d 6f 64 75 6c 65 73 3a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ng system modules: ┆
0x352e0…352fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 53 2c 20 20 54 45 4d 20 20 61 6e ┆ SOS, TEM an┆
0x352fc…35302 (0x70c,0x6a7)
0x35302…35320 64 20 20 50 52 49 4d 4f 0a 0a 53 4f 53 20 20 20 20 20 69 73 20 61 20 73 77 6f 70 70 69 6e ┆d PRIMO SOS is a swoppin┆
0x35320…35340 67 20 6f 6e 6c 69 6e 65 20 73 79 73 74 65 6d 20 70 72 69 6d 61 72 69 6c 79 20 72 75 6e 6e 69 6e ┆g online system primarily runnin┆
0x35340…35360 67 20 69 6e 74 65 72 61 63 74 69 76 65 20 6a 6f 62 73 0a 20 20 20 20 20 20 20 20 2d 20 61 20 6e ┆g interactive jobs - a n┆
0x35360…3537a 75 6d 62 65 72 20 6f 66 20 6a 6f 62 73 20 73 68 61 72 65 20 74 68 65 20 73 61 ┆umber of jobs share the sa┆
0x3537a…35380 (0x70c,0x6a8)
0x35380…353a0 6d 65 20 70 69 65 63 65 20 6f 66 20 70 72 69 6d 61 72 79 20 73 74 6f 72 65 20 28 6f 6e 20 74 69 ┆me piece of primary store (on ti┆
0x353a0…353c0 6d 65 0a 20 20 20 20 20 20 20 20 20 20 73 68 61 72 69 6e 67 20 62 61 73 69 73 29 2e 0a 20 20 20 ┆me sharing basis). ┆
0x353c0…353e0 20 20 20 20 20 2d 20 74 68 65 20 6a 6f 62 73 20 6d 61 79 20 6f 6e 6c 79 20 6d 61 6b 65 20 64 69 ┆ - the jobs may only make di┆
0x353e0…35400 72 65 63 74 20 61 63 63 65 73 73 20 74 6f 20 66 61 73 74 20 65 71 75 69 00 00 00 00 00 00 00 00 ┆rect access to fast equi ┆
0x35400…35406 (426,) (0x70c,0x6a9)
0x35406…35420 70 6d 65 6e 74 20 6c 69 6b 65 20 62 61 63 6b 69 6e 67 0a 20 20 20 20 20 20 20 ┆pment like backing ┆
0x35420…35440 20 20 20 73 74 6f 72 61 67 65 2c 20 6d 61 67 6e 65 74 69 63 20 74 61 70 65 20 61 6e 64 20 66 6c ┆ storage, magnetic tape and fl┆
0x35440…35460 6f 70 70 79 20 64 69 73 63 73 2e 0a 20 20 20 20 20 20 20 20 2d 20 74 65 72 6d 69 6e 61 6c 73 20 ┆oppy discs. - terminals ┆
0x35460…3547e 61 72 65 20 61 63 63 65 73 73 65 64 20 69 6e 64 69 72 65 63 74 6c 79 20 76 69 61 20 73 6f ┆are accessed indirectly via so┆
0x3547e…35484 (0x70c,0x6aa)
0x35484…354a0 73 20 61 6e 64 20 65 76 65 6e 74 75 61 6c 6c 79 20 76 69 61 20 74 65 6d 0a 20 20 20 ┆s and eventually via tem ┆
0x354a0…354c0 20 20 20 20 20 2d 20 70 72 69 6e 74 65 72 73 20 61 72 65 20 61 63 63 65 73 73 65 64 20 76 69 61 ┆ - printers are accessed via┆
0x354c0…354e0 20 70 72 69 6d 6f 0a 0a 54 45 4d 20 20 20 20 20 69 73 20 61 20 74 65 72 6d 69 6e 61 6c 20 61 63 ┆ primo TEM is a terminal ac┆
0x354e0…354fc 63 65 73 73 20 6d 6f 64 75 6c 65 20 6f 66 66 65 72 69 6e 67 20 74 65 72 6d 69 6e 61 ┆cess module offering termina┆
0x354fc…35502 (0x70c,0x6ab)
0x35502…35520 6c 20 6d 75 6c 74 69 70 6c 65 78 69 6e 67 20 28 61 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 ┆l multiplexing (a number of ┆
0x35520…35540 20 20 20 20 20 20 74 65 72 6d 69 6e 61 6c 73 20 66 6f 72 6d 20 61 20 67 72 6f 75 70 29 20 61 6e ┆ terminals form a group) an┆
0x35540…35560 64 20 74 65 72 6d 69 6e 61 6c 20 73 70 6f 6f 6c 69 6e 67 20 76 69 61 20 62 61 63 6b 69 6e 67 20 ┆d terminal spooling via backing ┆
0x35560…3557a 73 74 6f 72 61 67 65 2e 0a 20 20 20 20 20 20 20 20 2d 20 64 69 66 66 65 72 65 ┆storage. - differe┆
0x3557a…35580 (0x70c,0x6ac)
0x35580…355a0 6e 74 20 73 6f 72 74 73 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 61 63 63 65 73 73 20 70 72 6f 74 ┆nt sorts of terminal access prot┆
0x355a0…355c0 6f 63 6f 6c 73 20 6d 61 79 20 62 65 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 74 65 6d 0a 20 20 ┆ocols may be supported by tem ┆
0x355c0…355e0 20 20 20 20 20 20 20 20 28 61 74 20 70 72 65 73 65 6e 74 20 74 74 79 2c 20 66 6f 72 6d 61 74 2d ┆ (at present tty, format-┆
0x355e0…35600 38 30 30 30 20 61 6e 64 20 22 74 72 61 6e 73 70 61 72 65 6e 74 20 6d 6f 00 00 00 00 00 00 00 00 ┆8000 and "transparent mo ┆
0x35600…35606 (427,) (0x70c,0x6ad)
0x35606…35620 64 65 22 29 0a 0a 50 52 49 4d 4f 20 20 20 69 73 20 61 20 66 69 6c 65 20 72 6f ┆de") PRIMO is a file ro┆
0x35620…35640 75 74 65 72 20 6d 6f 64 75 6c 65 20 6f 66 66 65 72 69 6e 67 20 66 69 6c 65 20 74 72 61 6e 73 66 ┆uter module offering file transf┆
0x35640…35660 65 72 20 74 6f 20 6c 69 6e 65 20 70 72 69 6e 74 65 72 73 2c 0a 20 20 20 20 20 20 20 20 74 61 70 ┆er to line printers, tap┆
0x35660…3567e 65 20 72 65 61 64 65 72 73 2c 20 74 61 70 65 20 70 75 6e 63 68 65 73 2c 20 63 61 72 64 20 ┆e readers, tape punches, card ┆
0x3567e…35684 (0x70c,0x6ae)
0x35684…356a0 72 65 61 64 65 72 73 2c 20 61 6e 64 20 74 65 72 6d 69 6e 61 6c 20 72 65 61 64 65 72 ┆readers, and terminal reader┆
0x356a0…356c0 73 0a 20 20 20 20 20 20 20 20 2d 20 69 6e 63 6c 75 64 69 6e 67 20 66 61 63 69 6c 69 74 69 65 73 ┆s - including facilities┆
0x356c0…356e0 20 66 6f 72 20 74 72 61 6e 73 66 65 72 20 71 75 65 75 65 69 6e 67 2c 20 74 72 61 6e 73 66 65 72 ┆ for transfer queueing, transfer┆
0x356e0…356fc 20 69 6e 71 75 69 65 72 79 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 ┆ inquiery and oper┆
0x356fc…35702 (0x70c,0x6af)
0x35702…35720 61 74 6f 72 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 2e 0a 19 20 64 69 72 65 63 74 20 61 ┆ator communication. direct a┆
0x35720…35740 63 63 65 73 73 20 74 6f 20 66 61 73 74 20 65 71 75 69 70 6d 65 6e 74 20 6c 69 6b 65 20 62 61 63 ┆ccess to fast equipment like bac┆
0x35740…35760 6b 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 72 61 67 65 2c 20 6d 61 67 6e 65 74 69 63 ┆king storage, magnetic┆
0x35760…3577a 20 74 61 70 65 20 61 6e 64 20 66 6c 6f 70 70 79 20 64 69 73 63 73 2e 0a 20 20 ┆ tape and floppy discs. ┆
0x3577a…35780 (0x70c,0x6b0)
0x35780…357a0 20 20 20 20 20 20 2d 20 74 65 72 6d 69 6e 61 6c 73 20 61 72 65 20 61 63 63 65 73 73 65 64 20 69 ┆ - terminals are accessed i┆
0x357a0…357c0 6e 64 69 72 65 63 74 6c 79 20 76 69 61 20 73 6f 73 20 61 6e 64 20 65 76 65 6e 74 75 61 6c 6c 79 ┆ndirectly via sos and eventually┆
0x357c0…357e0 20 76 69 61 20 74 65 6d 0a 20 20 20 20 20 20 20 20 2d 20 70 72 69 6e 74 65 72 73 20 61 72 65 20 ┆ via tem - printers are ┆
0x357e0…35800 61 63 63 65 73 73 65 64 20 76 69 61 20 70 72 69 6d 6f 0a 0a 54 45 4d 20 00 00 00 00 00 00 00 00 ┆accessed via primo TEM ┆
0x35800…35806 (428,) (0x70c,0x6b1)
0x35806…35820 20 20 20 20 69 73 20 61 20 74 65 72 6d 69 6e 61 6c 20 61 63 63 65 73 73 20 6d ┆ is a terminal access m┆
0x35820…35840 6f 64 75 6c 65 20 6f 66 66 65 72 69 6e 67 20 74 65 72 6d 69 6e 61 6c 20 6d 75 6c 74 69 70 6c 65 ┆odule offering terminal multiple┆
0x35840…35860 78 69 6e 67 20 28 61 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 20 20 20 20 20 20 74 65 72 6d 69 6e ┆xing (a number of termin┆
0x35860…3587e 61 6c 73 20 66 6f 72 6d 20 61 20 67 72 6f 75 70 29 20 61 6e 64 20 74 65 72 6d 69 6e 61 6c ┆als form a group) and terminal┆
0x3587e…35884 (0x70c,0x6b2)
0x35884…358a0 20 73 70 6f 6f 6c 69 6e 67 20 76 69 61 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 61 67 ┆ spooling via backing storag┆
0x358a0…358c0 65 2e 0a 20 20 20 20 20 20 20 20 2d 20 64 69 66 66 65 72 65 6e 74 20 73 6f 72 74 73 20 6f 66 20 ┆e. - different sorts of ┆
0x358c0…358e0 74 65 72 6d 69 6e 61 6c 20 61 63 63 65 73 73 20 70 72 6f 74 6f 63 6f 6c 73 20 6d 61 79 20 62 65 ┆terminal access protocols may be┆
0x358e0…358fc 20 73 75 70 20 6d 6f 64 75 6c 65 20 6f 66 66 65 72 69 6e 67 20 74 65 72 6d 69 6e 61 ┆ sup module offering termina┆
0x358fc…35902 (0x0,0x0)
0x35902…35920 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 ┆ ┆
0x35920…35940 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…]
0x35960…3597a 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 ┆ ┆
0x3597a…35980 (0x0,0x0)
0x35980…359a0 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…]