|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 0 G R T f s t
Length: 236544 (0x39c00)
Types: flxcat
Notes: GA21-9182-File(01FLXSAVEFIL)
Names: »01FLXSAVEFIL«
└─⟦44e24163d⟧ Bits:30004128/s28100.imd SW8100 MIPS/TS release 7.0
└─⟦this⟧
| Start | End | Artifact | Summary |
|---|---|---|---|
| 0x00000000 | 0x00039c00 | ⟦32f08bcf0⟧ | »s18100:1.tdisplay main «, »tdisplay «, »tdisplay main «, Rc489k_TapeFile, TextFile, flxfile |
| 0x00000000 | 0x00039c00 | ⟦4142e2504⟧ | »s18100:1.tsostest main «, »tsostest main «, TextFile, flxfile |
| 0x00000000 | 0x00039c00 | ⟦48189a232⟧ | »s18100:1.tsoscat main «, »tsoscat main «, TextFile, flxfile |
| 0x00000000 | 0x00039c00 | ⟦7b71421f3⟧ | »s18100:1.tprologue main «, »tprologue main «, TextFile, flxfile |
| 0x00000000 | 0x00039c00 | ⟦aeaa17df2⟧ | »s18100:1.tupsoscat main «, »tupsoscat main «, TextFile, flxfile |
| 0x00000000 | 0x00039c00 | ⟦f7415902c⟧ | »s18100:1.tcleartemp main «, »tcleartemp main «, TextFile, flxfile |
0x00000…0003f (0,) FlxHdr {w000=(0x1,0x1), magic=»flxcat«, w011=»mipsrel70 «, nent=0x000011, nrec=0x000738, tstamp=1986-08-25T12:36, w024=0x0f1fff, w026=0x000054, w028=0x000156, flxset=»s18100«, flxno=0x000001, firstvol=»s18100«, nextvol=»s28100«}
0x0003f…00040 5f ┆_┆
0x00040…00060 63 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 ┆core:(ia(1),int_name_table); ┆
0x00060…0007e 20 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 ┆ if system(4,1,fpname)<>0 then┆
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=1986-05-26T16:50, 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=1986-05-26T16:51, 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=»disc «, w10=1986-03-13T15:17, 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=1986-03-13T15:17, 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=»disc «, w10=1986-03-13T15:17, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x180 @0x6
0x0017a…001f8 w02 = FlxDirEnt {name=»ttem main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000062, w07=»disc «, w10=1986-08-25T11:55, w11=0x000032, 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=1986-03-13T15:17, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x206 @0x6
0x00200…0027e w02 = FlxDirEnt {name=»tprimo main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x00013f, w07=»disc «, w10=1986-08-25T11:55, w11=0x00003c, 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=»disc «, w10=1986-03-13T15:19, 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=»disc «, w10=1986-03-13T15:19, 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…0x0436], w6=0x0000b4, w07=»disc «, w10=1986-08-25T11:54, w11=0x000032, w12=0x000000, w13=0x000000, w14=0x000000} // 0x302 @0x6
0x002fc…0037a w02 = FlxDirEnt {name=»tcleartemp main «, w02=0x000000, w03=0x000003, range=[0x0437…0x045d], w6=0x000006, w07=»disc «, w10=1986-03-13T15:20, 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=[0x045e…0x06aa], w6=0x00005c, w07=»disc «, w10=1986-03-13T15:20, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x380 @0x6
0x0037a…003f8 w02 = FlxDirEnt {name=»tprologue main «, w02=0x000000, w03=0x000003, range=[0x06ab…0x06f1], w6=0x00000b, w07=»disc «, w10=1986-03-13T15:22, 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=[0x06f2…0x06fe], w6=0x000002, w07=»disc «, w10=1986-03-13T15:23, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x406 @0x6
0x00400…0047e w02 = FlxDirEnt {name=»tsostest main «, w02=0x000000, w03=0x000003, range=[0x06ff…0x0718], w6=0x000004, w07=»disc «, w10= , 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=[0x0719…0x0738], w6=0x000005, w07=»disc «, w10=1986-08-25T11:56, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x484 @0x6
0x0047e…004fc w02 = FlxDirEnt {name=»mipshelp main «, w02=0x000000, w03=0x000003, range=@s18100, w6=0x000012, w07=»disc «, w10=1986-05-26T16:51, 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 00 00 00 00 00 00 00 00 a7 22 68 00 00 00 00 00 00 00 00 00 00 00 00 74 72 ┆ disc "h 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 a7 22 68 00 00 00 00 00 00 00 00 00 00 00 00 ┆isc "h ┆
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 00 00 00 00 00 00 00 00 a7 22 69 00 00 00 00 00 00 00 00 00 00 00 00 74 74 65 6d ┆ disc "i 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 62 64 69 73 ┆ main s18100 bdis┆
0x005e0…00600 63 00 00 00 00 00 00 00 00 ab 47 a9 00 00 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆c G 2 ┆
0x00600…00606 (3,) (0x450,0xd)
0x00606…00620 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 20 ┆:=address(batchqfst)); ┆
0x00620…00640 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 20 65 6e 64 3b 0a 20 ┆ goto activate; end; ┆
0x00640…00660 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 20 20 20 20 21 20 61 ┆ end else begin ! a┆
0x00660…0067e 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 75 73 65 72 65 ┆ctivequeue empty ! usere┆
0x0067e…00684 (0x450,0xe)
0x00684…006a0 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 69 ┆ntry:=w1:=batchqfst; i┆
0x006a0…006c0 66 20 77 30 3a 3d 61 64 64 72 65 73 73 28 62 61 74 63 68 71 66 73 74 29 20 3d 20 77 31 20 74 68 ┆f w0:=address(batchqfst) = w1 th┆
0x006c0…006e0 65 6e 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 20 20 21 20 62 61 74 63 68 71 75 65 75 65 20 ┆en goto continue; ! batchqueue ┆
0x006e0…006fc 61 6c 73 6f 20 65 6d 70 74 79 20 21 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 66 ┆also empty ! end; if┆
0x006fc…00702 (0x450,0xf)
0x00702…00720 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 3c 30 20 74 68 65 6e 0a 20 20 20 20 62 65 67 ┆ w0:=(w1).state<0 then beg┆
0x00720…00740 69 6e 20 21 20 73 79 73 74 65 6d 63 6f 6d 6d 61 6e 64 20 21 0a 20 20 20 20 20 20 73 77 6f 70 28 ┆in ! systemcommand ! swop(┆
0x00740…00760 2e 77 33 2e 2c 77 31 3a 3d 30 29 3b 0a 20 20 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 ┆.w3.,w1:=0); !get 2; ┆
0x00760…0077a 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 ┆ if w0 <> 1 then goto disc┆
0x0077a…00780 (0x450,0x10)
0x00780…007a0 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 73 79 73 63 6f 6d 6d 61 6e 64 28 2e 77 33 2e 2c 77 31 3a ┆fault; syscommand(.w3.,w1:┆
0x007a0…007c0 3d 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 69 66 ┆=userentry); end else if┆
0x007c0…007e0 20 77 30 3a 3d 28 77 31 29 2e 70 72 69 6f 3c 30 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a ┆ w0:=(w1).prio<0 then begin ┆
0x007e0…00800 20 20 20 20 20 20 69 66 20 77 30 2b 63 79 63 6c 65 67 61 69 6e 20 3e 20 00 00 00 00 00 00 00 00 ┆ if w0+cyclegain > ┆
0x00800…00806 (4,) (0x450,0x11)
0x00806…00820 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 70 ┆0 then w0:=0; (w1).p┆
0x00820…00840 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 77 31 2c 77 32 3a 3d ┆rio:=w0; link(.w3.,w1,w2:=┆
0x00840…00860 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 65 6e 64 20 65 6c 73 ┆address(activqfst)); end els┆
0x00860…0087e 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 3a 3d 20 28 77 ┆e begin if w0:= (w┆
0x0087e…00884 (0x450,0x12)
0x00884…008a0 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 6e ┆1).class > b.batchclass then┆
0x008a0…008c0 0a 20 20 20 20 20 20 28 77 31 29 2e 70 72 69 6f 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 63 6c 61 ┆ (w1).prio:= w0:= (w1).cla┆
0x008c0…008e0 73 73 3b 0a 20 20 20 20 20 20 70 72 65 70 61 72 65 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 77 ┆ss; prepare(.w3.); w┆
0x008e0…008fc 31 3a 3d 20 61 64 64 72 65 73 73 28 74 69 6d 65 75 6e 69 74 29 3b 0a 20 20 20 20 20 ┆1:= address(timeunit); ┆
0x008fc…00902 (0x450,0x13)
0x00902…00920 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 74 69 6d 65 72 29 3b 0a 20 20 20 20 20 20 6d 6f ┆ w3:= address(timer); mo┆
0x00920…00940 6e 69 74 6f 72 28 31 36 29 3b 0a 20 20 20 20 20 20 74 69 6d 65 72 6d 65 73 73 3a 3d 20 77 32 3b ┆nitor(16); timermess:= w2;┆
0x00940…00960 0a 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 2c 77 31 3a 3d ┆ startstop(.w3.,w0:=1,w1:=┆
0x00960…0097a 63 6f 72 65 75 73 65 72 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 6e 74 ┆coreuser); goto cont┆
0x0097a…00980 (0x450,0x14)
0x00980…009a0 69 6e 75 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 67 6f 74 6f 20 61 63 74 69 76 61 74 65 ┆inue; end; goto activate┆
0x009a0…009c0 3b 0a 0a 0c 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 20 63 61 73 65 20 6f 66 20 61 20 64 69 73 63 ┆; comment in case of a disc┆
0x009c0…009e0 20 66 61 75 6c 74 20 64 69 73 74 75 72 62 69 6e 67 20 74 68 65 20 6f 76 65 72 6c 61 79 20 74 72 ┆ fault disturbing the overlay tr┆
0x009e0…00a00 61 6e 73 70 6f 72 74 73 2c 20 74 68 69 73 20 70 69 65 63 65 0a 6f 66 20 00 00 00 00 00 00 00 00 ┆ansports, this piece of ┆
0x00a00…00a06 (5,) (0x450,0x15)
0x00a06…00a20 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 0a ┆code will be activated - ┆
0x00a20…00a40 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 6f 66 20 74 68 65 20 ┆the octal status, result of the ┆
0x00a40…00a60 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 20 74 68 65 20 70 72 ┆transport and the name of the pr┆
0x00a60…00a7e 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 6e 20 6f 6e 20 ┆ogram area will be written on ┆
0x00a7e…00a84 (0x450,0x16)
0x00a84…00aa0 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 6f ┆the main console and the "so┆
0x00aa0…00ac0 73 20 70 72 6f 63 65 73 73 22 20 77 69 6c 6c 20 64 69 65 3b 0a 0a 0a 64 69 73 63 66 61 75 6c 74 ┆s process" will die; discfault┆
0x00ac0…00ae0 3a 0a 20 20 20 20 72 65 67 69 73 74 65 72 30 3a 3d 77 30 3b 0a 20 20 20 20 72 65 67 69 73 74 65 ┆: register0:=w0; registe┆
0x00ae0…00afc 72 33 3a 3d 77 33 3b 0a 20 20 20 20 77 31 3a 3d 66 69 72 73 74 75 73 65 72 3b 0a 20 ┆r3:=w3; w1:=firstuser; ┆
0x00afc…00b02 (0x450,0x17)
0x00b02…00b20 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 32 3a 3d 6d 61 69 6e 63 6f ┆ (w1).peripheral:=w2:=mainco┆
0x00b20…00b40 6e 73 72 65 66 3b 0a 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d 34 ┆nsref; (w1).buflength:=w2:=4┆
0x00b40…00b60 34 3b 0a 20 20 20 20 28 77 31 29 2e 62 75 66 66 65 72 3a 3d 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆4; (w1).buffer:=w2:=address(┆
0x00b60…00b7a 66 61 75 6c 74 74 65 78 74 29 3b 0a 20 20 20 20 28 77 32 2b 31 34 29 2e 77 6f ┆faulttext); (w2+14).wo┆
0x00b7a…00b80 (0x450,0x18)
0x00b80…00ba0 72 64 3a 3d 77 30 3a 3d 32 31 31 31 35 32 37 3b 20 20 20 21 20 20 22 20 38 27 22 20 20 21 0a 20 ┆rd:=w0:=2111527; ! " 8'" ! ┆
0x00ba0…00bc0 20 20 20 66 6f 72 20 77 31 3a 3d 2d 32 31 20 73 74 65 70 20 33 20 75 70 74 6f 20 30 20 64 6f 0a ┆ for w1:=-21 step 3 upto 0 do ┆
0x00bc0…00be0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 28 77 32 29 ┆ begin w2+2; (w2)┆
0x00be0…00c00 2e 77 6f 72 64 3a 3d 77 30 3a 3d 72 65 67 69 73 74 65 72 30 20 6c 73 68 00 00 00 00 00 00 00 00 ┆.word:=w0:=register0 lsh ┆
0x00c00…00c06 (6,) (0x450,0x19)
0x00c06…00c20 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 20 ┆ift (w1) extract 3 + 48; ┆
0x00c20…00c40 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 77 30 3a 3d 33 32 3b ┆ end; (w2+2).word:=w0:=32;┆
0x00c40…00c60 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 72 65 67 69 73 74 65 ┆ copy(.w3.,w0:=8,w1:=registe┆
0x00c60…00c7e 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 3a 3d 77 30 3a ┆r3,w2+2); (w2+8).word:=w0:┆
0x00c7e…00c84 (0x450,0x1a)
0x00c84…00ca0 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 3a ┆=10; send(.w3.,w0:=0,w1:┆
0x00ca0…00cc0 3d 66 69 72 73 74 75 73 65 72 2c 77 32 3a 3d 32 30 34 38 30 29 3b 0a 20 20 20 20 77 33 3a 3d 30 ┆=firstuser,w2:=20480); w3:=0┆
0x00cc0…00ce0 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 30 29 3b 20 20 21 20 73 65 74 20 69 6e 74 65 72 72 75 ┆; monitor(0); ! set interru┆
0x00ce0…00cfc 70 74 20 21 0a 20 20 20 20 21 68 61 6c 74 20 31 3b 20 20 20 21 20 70 72 6f 76 6f 6b ┆pt ! !halt 1; ! provok┆
0x00cfc…00d02 (0x450,0x1b)
0x00d02…00d20 65 20 72 75 6e 6e 69 6e 67 20 61 66 74 65 72 20 65 72 72 6f 72 20 21 0a 0a 20 20 65 6e 64 ┆e running after error ! end┆
0x00d20…00d40 3b 0a 0a 0c 0a 0a 20 20 62 6f 64 79 20 6f 66 20 61 63 74 69 6f 6e 0a 20 20 62 65 67 69 6e 0a 20 ┆; body of action begin ┆
0x00d40…00d60 20 20 20 6c 61 62 65 6c 20 61 63 74 69 6f 6e 63 61 73 65 2c 20 65 6d 70 74 79 61 6e 73 77 65 72 ┆ label actioncase, emptyanswer┆
0x00d60…00d7a 2c 20 72 65 70 65 61 74 6d 61 79 62 65 2c 20 61 5f 72 65 61 64 79 2c 20 73 74 ┆, repeatmaybe, a_ready, st┆
0x00d7a…00d80 (0x450,0x1c)
0x00d80…00da0 6f 70 63 6f 72 65 75 73 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 6f 75 74 2c 20 73 ┆opcoreuser, timeout, s┆
0x00da0…00dc0 65 6d 69 62 75 73 79 2c 20 6d 65 73 73 77 61 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 20 64 6f ┆emibusy, messwait; incode do┆
0x00dc0…00de0 75 62 6c 65 20 73 61 76 65 66 31 2c 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆uble savef1, savef3; ┆
0x00de0…00e00 72 65 66 20 6d 65 73 73 2c 20 75 73 65 72 3b 0a 20 20 20 20 62 65 67 69 00 00 00 00 00 00 00 00 ┆ref mess, user; begi ┆
0x00e00…00e06 (7,) (0x450,0x1d)
0x00e06…00e20 6e 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 61 63 74 69 6f 6e 73 20 63 6f ┆n comment actions co┆
0x00e20…00e40 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 6b 69 6e 64 20 6f 66 20 74 68 65 20 65 ┆rresponding to the kind of the e┆
0x00e40…00e60 76 65 6e 74 20 61 72 72 69 76 65 64 3a 0a 0a 31 29 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 ┆vent arrived: 1) input message ┆
0x00e60…00e7e 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 2d 0a 20 20 20 20 20 74 ┆from internal process - t┆
0x00e7e…00e84 (0x450,0x1e)
0x00e84…00ea0 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 65 64 20 61 6e 64 20 74 68 ┆he process is stopped and th┆
0x00ea0…00ec0 65 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 74 ┆e input message is sent to the t┆
0x00ec0…00ee0 65 72 6d 69 6e 61 6c 0a 20 20 20 20 20 69 66 20 69 74 20 69 73 20 72 65 61 64 79 2c 20 6f 74 68 ┆erminal if it is ready, oth┆
0x00ee0…00efc 65 72 77 69 7a 65 20 74 68 65 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 69 73 20 ┆erwize the input message is ┆
0x00efc…00f02 (0x450,0x1f)
0x00f02…00f20 6c 69 6e 6b 65 64 20 74 6f 20 74 68 65 20 75 73 65 72 2d 0a 20 20 20 20 20 64 65 73 63 72 ┆linked to the user- descr┆
0x00f20…00f40 69 70 74 69 6f 6e 2c 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 73 65 6e 74 2c 20 77 68 65 6e ┆iption, waiting to be sent, when┆
0x00f40…00f60 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 62 65 63 6f 6d 65 73 20 72 65 61 64 79 0a 20 20 20 20 ┆ the terminal becomes ready ┆
0x00f60…00f7a 20 69 66 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 20 69 73 20 ┆ if the priority class is ┆
0x00f7a…00f80 (0x450,0x20)
0x00f80…00fa0 6e 65 67 61 74 69 76 65 20 74 68 65 6e 20 69 74 20 69 73 20 69 6e 63 72 65 61 73 65 64 0a 0a 32 ┆negative then it is increased 2┆
0x00fa0…00fc0 29 20 6f 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 20 70 ┆) output message from internal p┆
0x00fc0…00fe0 72 6f 63 65 73 73 20 2d 0a 20 20 20 20 20 69 66 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 69 73 ┆rocess - if the terminal is┆
0x00fe0…01000 20 72 65 61 64 79 20 28 74 68 65 72 65 20 69 73 20 72 6f 6f 6d 20 69 6e 00 00 00 00 00 00 00 00 ┆ ready (there is room in ┆
0x01000…01006 (8,) (0x450,0x21)
0x01006…01020 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 29 2c 0a 20 20 20 ┆ the terminal buffer), ┆
0x01020…01040 20 20 74 68 65 20 6f 75 74 70 75 74 20 69 73 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 74 68 65 20 ┆ the output is copied from the ┆
0x01040…01060 70 72 6f 63 65 73 73 20 69 6e 74 6f 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 6e 20 61 6e 73 77 ┆process into the buffer, an answ┆
0x01060…0107e 65 72 0a 20 20 20 20 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 ┆er is sent to the process┆
0x0107e…01084 (0x450,0x22)
0x01084…010a0 2c 20 61 6e 64 20 61 6e 20 6f 75 74 70 75 74 20 6d 65 73 73 61 67 65 20 69 73 20 73 ┆, and an output message is s┆
0x010a0…010c0 65 6e 74 20 74 6f 20 74 68 65 20 74 65 72 2d 0a 20 20 20 20 20 6d 69 6e 61 6c 0a 20 20 20 20 20 ┆ent to the ter- minal ┆
0x010c0…010e0 69 66 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 69 73 20 6e 6f 74 20 72 65 61 64 79 2c 20 74 68 ┆if the terminal is not ready, th┆
0x010e0…010fc 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 65 ┆e internal process is stoppe┆
0x010fc…01102 (0x450,0x23)
0x01102…01120 64 20 61 6e 64 0a 20 20 20 20 20 69 74 20 69 73 20 67 69 76 65 6e 20 61 6e 20 61 6e 73 77 ┆d and it is given an answ┆
0x01120…01140 65 72 2c 20 74 65 6c 6c 69 6e 67 20 74 68 61 74 20 6e 6f 20 62 79 74 65 73 20 61 72 65 20 74 72 ┆er, telling that no bytes are tr┆
0x01140…01160 61 6e 73 66 65 72 72 65 64 2c 20 74 68 65 6e 0a 20 20 20 20 20 61 74 20 72 65 73 74 61 72 74 2c ┆ansferred, then at restart,┆
0x01160…0117a 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 72 65 70 65 61 74 20 74 ┆ the process will repeat t┆
0x0117a…01180 (0x450,0x24)
0x01180…011a0 68 65 20 6f 75 74 70 75 74 6d 65 73 73 61 67 65 0a 0a 33 29 20 70 61 72 65 6e 74 20 6d 65 73 73 ┆he outputmessage 3) parent mess┆
0x011a0…011c0 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 2d 0a 20 20 20 20 ┆age from internal process - ┆
0x011c0…011e0 20 66 69 6e 69 73 3a 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 72 65 6d 6f 76 65 64 2c 20 ┆ finis: the process is removed, ┆
0x011e0…01200 61 6e 64 20 74 68 65 20 75 73 65 72 64 65 73 63 72 69 70 74 69 6f 6e 20 00 00 00 00 00 00 00 00 ┆and the userdescription ┆
0x01200…01206 (9,) (0x450,0x25)
0x01206…01220 63 6c 65 61 72 65 64 0a 20 20 20 20 20 62 72 65 61 6b 3a 20 74 68 65 20 70 72 ┆cleared break: the pr┆
0x01220…01240 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 65 64 2c 20 61 6e 64 20 70 72 65 70 61 72 65 64 20 66 ┆ocess is stopped, and prepared f┆
0x01240…01260 6f 72 20 6c 6f 61 64 69 6e 67 20 77 69 74 68 20 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 0a ┆or loading with new abs program ┆
0x01260…0127e 20 20 20 20 20 2a 2a 2a 20 20 20 20 61 6e 79 20 6f 74 68 65 72 20 70 61 72 65 6e 74 20 6d ┆ *** any other parent m┆
0x0127e…01284 (0x450,0x26)
0x01284…012a0 65 73 73 61 67 65 20 69 73 20 72 65 6a 65 63 74 65 64 20 66 6f 72 20 74 68 65 20 6d ┆essage is rejected for the m┆
0x012a0…012c0 6f 6d 65 6e 74 0a 0a 34 29 20 61 74 74 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 6b 6e 6f 77 6e 20 74 ┆oment 4) attention from known t┆
0x012c0…012e0 65 72 6d 69 6e 61 6c 20 2d 0a 20 20 20 20 20 74 72 65 61 74 65 64 20 61 73 20 61 6e 20 69 6e 74 ┆erminal - treated as an int┆
0x012e0…012fc 65 72 72 75 70 74 2e 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 ┆errupt. the process is stopp┆
0x012fc…01302 (0x450,0x27)
0x01302…01320 65 64 20 61 6e 64 20 61 6e 20 69 6e 70 75 74 6d 65 73 73 61 67 65 0a 20 20 20 20 20 69 73 ┆ed and an inputmessage is┆
0x01320…01340 20 73 65 6e 64 20 74 6f 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 61 73 6b 69 6e 67 20 66 6f 72 ┆ send to the terminal asking for┆
0x01340…01360 20 61 20 73 79 73 74 65 6d 20 63 6f 6d 6d 61 6e 64 0a 0a 35 29 20 61 6e 73 77 65 72 20 66 72 6f ┆ a system command 5) answer fro┆
0x01360…0137a 6d 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 20 2d 0a 20 20 20 20 20 69 6e ┆m known terminal - in┆
0x0137a…01380 (0x450,0x28)
0x01380…013a0 70 75 74 20 61 6e 73 77 65 72 3a 20 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 70 72 65 70 ┆put answer: the process is prep┆
0x013a0…013c0 61 72 65 64 20 66 6f 72 20 72 65 73 74 61 72 74 0a 20 20 20 20 20 6f 75 74 70 75 74 20 61 6e 73 ┆ared for restart output ans┆
0x013c0…013e0 77 65 72 3a 20 69 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 77 61 69 74 69 6e 67 20 74 ┆wer: if the process is waiting t┆
0x013e0…01400 68 65 6e 20 69 74 20 69 73 20 70 72 65 70 61 72 65 64 20 66 6f 72 0a 20 00 00 00 00 00 00 00 00 ┆hen it is prepared for ┆
0x01400…01406 (10,) (0x450,0x29)
0x01406…01420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 61 72 74 ┆ restart┆
0x01420…01440 20 6f 74 68 65 72 77 69 7a 65 20 6e 6f 74 68 69 6e 67 20 69 73 20 74 6f 20 62 65 20 64 6f 6e 65 ┆ otherwize nothing is to be done┆
0x01440…01460 0a 0a 36 29 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 ┆ 6) attention from unknown term┆
0x01460…0147e 69 6e 61 6c 20 2d 0a 20 20 20 20 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 69 73 20 6c 69 ┆inal - the terminal is li┆
0x0147e…01484 (0x450,0x2a)
0x01484…014a0 6e 6b 65 64 20 74 6f 20 61 20 66 72 65 65 20 75 73 65 72 64 65 73 63 72 69 70 74 69 ┆nked to a free userdescripti┆
0x014a0…014c0 6f 6e 20 61 6e 64 20 61 6e 20 69 6e 70 75 74 20 69 73 20 73 65 6e 64 0a 20 20 20 20 20 74 6f 20 ┆on and an input is send to ┆
0x014c0…014e0 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 61 73 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 75 73 65 72 ┆the terminal asking for the user┆
0x014e0…014fc 73 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 0a 0a 37 29 20 61 6e 73 77 65 72 20 ┆s identification 7) answer ┆
0x014fc…01502 (0x450,0x2b)
0x01502…01520 66 72 6f 6d 20 74 69 6d 65 72 20 2d 0a 20 20 20 20 20 74 68 65 20 70 72 6f 63 65 73 73 20 ┆from timer - the process ┆
0x01520…01540 72 75 6e 6e 69 6e 67 20 69 6e 20 63 6f 72 65 20 68 61 73 20 75 73 65 64 20 69 74 73 20 74 69 6d ┆running in core has used its tim┆
0x01540…01560 65 2d 73 6c 69 63 65 20 61 6e 64 20 74 68 65 72 65 66 6f 72 65 0a 20 20 20 20 20 69 74 20 69 73 ┆e-slice and therefore it is┆
0x01560…0157a 20 73 74 6f 70 70 65 64 20 74 6f 20 6d 61 6b 65 20 72 6f 6f 6d 20 66 6f 72 20 ┆ stopped to make room for ┆
0x0157a…01580 (0x450,0x2c)
0x01580…015a0 6f 74 68 65 72 20 75 73 65 72 73 0a 20 20 20 20 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 63 6c ┆other users the priority cl┆
0x015a0…015c0 61 73 73 20 6f 66 20 74 68 69 73 20 70 72 6f 63 65 73 73 20 69 73 20 64 65 63 72 65 61 73 65 64 ┆ass of this process is decreased┆
0x015c0…015e0 0a 0a 38 29 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 20 62 61 73 74 61 72 64 0a 20 20 20 20 ┆ 8) message from a bastard ┆
0x015e0…01600 20 61 74 20 73 2d 72 65 70 6c 61 63 65 6d 65 6e 74 20 73 6f 73 20 6d 61 00 00 00 00 00 00 00 00 ┆ at s-replacement sos ma ┆
0x01600…01606 (11,) (0x450,0x2d)
0x01606…01620 79 20 74 61 6b 65 20 6f 76 65 72 20 73 6f 6d 65 20 75 6e 6b 6e 6f 77 6e 20 63 ┆y take over some unknown c┆
0x01620…01640 68 69 6c 64 72 65 6e 20 28 62 61 73 74 61 72 64 73 29 0a 20 20 20 20 20 70 61 72 65 6e 74 20 6d ┆hildren (bastards) parent m┆
0x01640…01660 65 73 73 61 67 65 73 20 66 72 6f 6d 20 74 68 65 73 65 20 63 68 69 6c 64 72 65 6e 20 61 72 65 20 ┆essages from these children are ┆
0x01660…0167e 77 72 69 74 74 65 6e 20 6f 6e 20 74 68 65 20 6d 61 69 6e 20 63 6f 6e 73 6f 6c 65 0a 0a 39 ┆written on the main console 9┆
0x0167e…01684 (0x450,0x2e)
0x01684…016a0 29 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 ┆) message to a pseudo proces┆
0x016a0…016c0 73 20 63 61 6c 6c 65 64 20 74 65 6d 0a 0a 31 30 29 20 6d 65 73 73 61 67 65 20 74 6f 20 62 65 20 ┆s called tem 10) message to be ┆
0x016c0…016e0 73 65 6e 64 20 6c 61 74 65 72 0a 0a 31 31 29 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 73 65 ┆send later 11) message to a pse┆
0x016e0…016fc 75 64 6f 20 70 72 6f 63 65 73 73 20 63 61 6c 6c 65 64 20 70 72 69 6d 6f 0a 0a 31 32 ┆udo process called primo 12┆
0x016fc…01702 (0x450,0x2f)
0x01702…01720 29 20 6d 65 73 73 61 67 65 20 74 6f 20 62 65 20 73 65 6e 64 20 74 6f 20 70 72 69 6d 6f 20 ┆) message to be send to primo ┆
0x01720…01740 6c 61 74 65 72 0a 0a 31 33 29 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 74 6f 20 74 65 ┆later 13) control message to te┆
0x01740…01760 72 6d 69 6e 61 6c 0a 3b 0a 0c 0a 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 ┆rminal ; savef1:= f1; ┆
0x01760…0177a 73 61 76 65 66 33 3a 3d 20 66 33 3b 0a 20 20 20 20 75 73 65 72 3a 3d 20 77 31 ┆savef3:= f3; user:= w1┆
0x0177a…01780 (0x450,0x30)
0x01780…017a0 3b 0a 20 20 20 20 6d 65 73 73 3a 3d 20 77 32 3b 0a 61 63 74 69 6f 6e 63 61 73 65 3a 0a 20 20 20 ┆; mess:= w2; actioncase: ┆
0x017a0…017c0 20 63 61 73 65 20 77 33 3a 3d 77 30 20 6f 66 0a 20 20 20 20 62 65 67 69 6e 0a 0a 21 20 61 63 74 ┆ case w3:=w0 of begin ! act┆
0x017c0…017e0 69 6f 6e 20 31 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 70 75 ┆ion 1 ! begin comment inpu┆
0x017e0…01800 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 00 00 00 00 00 00 00 00 ┆t message from internal ┆
0x01800…01806 (12,) (0x450,0x31)
0x01806…01820 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 62 2e ┆process; if w3:=b.┆
0x01820…01840 73 79 73 63 6f 6e 64 20 6f 6e 65 6d 61 73 6b 20 32 27 30 31 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆syscond onemask 2'010 then ┆
0x01840…01860 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 20 3d 20 2d 31 20 74 68 ┆ if w3:=(w1).intervent = -1 th┆
0x01860…0187e 65 6e 20 67 6f 74 6f 20 74 69 6d 65 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 ┆en goto timeout; if w3┆
0x0187e…01884 (0x450,0x32)
0x01884…018a0 3a 3d 28 77 31 29 2e 73 74 61 74 65 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆:=(w1).state<0 then ┆
0x018a0…018c0 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 68 3a 3d ┆begin (w1).buflength:=┆
0x018c0…018e0 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 30 3a 3d 31 ┆w2:=0; send(.w3.,w0:=1┆
0x018e0…018fc 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 ┆,w1,w2); end else ┆
0x018fc…01902 (0x450,0x33)
0x01902…01920 20 20 20 20 20 20 69 66 20 77 33 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 ┆ if w3>0 then beg┆
0x01920…01940 69 6e 0a 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 35 3b 0a ┆in (w1).state:=w0:=5; ┆
0x01940…01960 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 62 65 67 69 6e 0a 20 ┆ end else begin ┆
0x01960…0197a 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 6f 63 62 75 66 31 3a 3d 20 77 ┆ (w1).procbuf1:= w┆
0x0197a…01980 (0x450,0x34)
0x01980…019a0 30 3a 3d 20 28 77 32 29 2e 6d 62 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 ┆0:= (w2).mbfst; (w1).s┆
0x019a0…019c0 74 61 74 65 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆tate:= w0:= 1; if w0:=┆
0x019c0…019e0 28 77 31 29 2e 73 74 61 74 65 32 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆(w1).state2=-1 then be┆
0x019e0…01a00 67 69 6e 20 21 20 66 70 20 63 6f 6d 6d 61 6e 64 20 72 65 61 64 79 20 21 00 00 00 00 00 00 00 00 ┆gin ! fp command ready ! ┆
0x01a00…01a06 (13,) (0x450,0x35)
0x01a06…01a20 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 62 2e 63 6f 72 65 75 ┆ if w1=b.coreu┆
0x01a20…01a40 73 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 ┆ser then begin ┆
0x01a40…01a60 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 3e 30 20 74 ┆ if w2:=b.timermess<>0 t┆
0x01a60…01a7e 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 ┆hen begin ┆
0x01a7e…01a84 (0x450,0x36)
0x01a84…01aa0 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 32 29 3b 20 21 20 72 65 67 ┆ monitor(82); ! reg┆
0x01aa0…01ac0 72 65 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 30 3b 0a 20 20 ┆ret ! w2:= 0; ┆
0x01ac0…01ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 69 6d 65 72 6d 65 73 73 3a 3d 20 77 32 3b 0a ┆ b.timermess:= w2; ┆
0x01ae0…01afc 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; ┆
0x01afc…01b02 (0x450,0x37)
0x01b02…01b20 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 73 74 61 74 65 ┆ end; (w1).state┆
0x01b20…01b40 32 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 ┆2:= w0:= 0; if w0:= ┆
0x01b40…01b60 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 65 61 ┆(w1).intervent=0 then goto repea┆
0x01b60…01b7a 74 6d 61 79 62 65 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆tmaybe else (w┆
0x01b7a…01b80 (0x450,0x38)
0x01b80…01ba0 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 20 20 21 20 6e 6f 20 66 70 20 ┆1).intervent:= w0:= 0; ! no fp ┆
0x01ba0…01bc0 63 6f 6d 6d 61 6e 64 20 69 6e 20 62 75 66 66 65 72 20 61 74 20 72 65 73 74 61 72 74 20 61 66 74 ┆command in buffer at restart aft┆
0x01bc0…01be0 65 72 20 62 72 65 61 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆er break ! end; ┆
0x01be0…01c00 20 20 20 20 77 33 3a 3d 20 28 77 32 29 2e 6d 62 6c 73 74 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ w3:= (w2).mblst; ┆
0x01c00…01c06 (14,) (0x450,0x39)
0x01c06…01c20 20 20 20 20 20 20 20 77 33 2d 77 30 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w3-w0+2; ┆
0x01c20…01c40 69 66 20 77 33 3e 62 2e 6d 61 78 62 75 66 20 74 68 65 6e 20 77 33 3a 3d 20 62 2e 6d 61 78 62 75 ┆if w3>b.maxbuf then w3:= b.maxbu┆
0x01c40…01c60 66 3b 0a 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 20 77 33 ┆f; (w1).buflength:= w3┆
0x01c60…01c7e 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 30 2c 77 31 ┆; send(.w3.,w0:=0,w1┆
0x01c7e…01c84 (0x450,0x3a)
0x01c84…01ca0 2c 77 32 3a 3d 31 32 32 38 38 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆,w2:=12288); end; ┆
0x01ca0…01cc0 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 65 73 73 28 62 ┆ link(.w3.,w1,w2:=address(b┆
0x01cc0…01ce0 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e ┆.waitqfst)); startstop(.┆
0x01ce0…01cfc 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a ┆w3.,w0:=0,w1); end; ┆
0x01cfc…01d02 (0x450,0x3b)
0x01d02…01d20 21 20 61 63 74 69 6f 6e 20 32 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆! action 2 ! begin comme┆
0x01d20…01d40 6e 74 20 6f 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 20 ┆nt output message from internal ┆
0x01d40…01d60 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 ┆process; if w0:=(w1).sta┆
0x01d60…01d7a 74 65 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆te<0 then begin ┆
0x01d7a…01d80 (0x450,0x3c)
0x01d80…01da0 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 3b 0a 20 ┆ (w1).buflength:=w2:=0; ┆
0x01da0…01dc0 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 3b ┆ send(.w3.,w0:=1,w1,w2);┆
0x01dc0…01de0 0a 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; ┆
0x01de0…01e00 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆ end else if ┆
0x01e00…01e06 (15,) (0x450,0x3d)
0x01e06…01e20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆w0=0 then begin ┆
0x01e20…01e40 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 62 2e 63 6f 72 65 75 73 65 72 20 74 68 65 6e 0a ┆ if w1 = b.coreuser then ┆
0x01e40…01e60 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 77 33 3a 3d ┆ begin w3:=┆
0x01e60…01e7e 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w1).internal+11; ┆
0x01e7e…01e84 (0x450,0x3e)
0x01e84…01ea0 77 33 3a 3d 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆w3:=(w3).byte; i┆
0x01ea0…01ec0 66 20 77 33 20 61 6e 64 20 32 27 31 30 31 30 30 30 30 30 3d 32 27 31 30 31 30 30 30 30 30 20 74 ┆f w3 and 2'10100000=2'10100000 t┆
0x01ec0…01ee0 68 65 6e 20 21 20 73 74 6f 70 70 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆hen ! stopped ! begi┆
0x01ee0…01efc 6e 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 ┆n (w1).state:=┆
0x01efc…01f02 (0x450,0x3f)
0x01f02…01f20 77 30 3a 3d 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 ┆w0:=6; startstop┆
0x01f20…01f40 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆(.w3.,w0:=1,w1); end┆
0x01f40…01f60 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 69 64 73 69 7a 65 3a 3d 77 30 3a 3d 28 77 31 29 ┆; b.idsize:=w0:=(w1)┆
0x01f60…01f7a 2e 70 72 69 6d 69 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 ┆.primio; w0:=(┆
0x01f7a…01f80 (0x450,0x40)
0x01f80…01fa0 77 32 29 2e 6d 62 6c 73 74 2d 28 77 32 29 2e 6d 62 66 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 ┆w2).mblst-(w2).mbfst+2; ┆
0x01fa0…01fc0 20 20 20 20 69 66 20 77 30 3e 3d 62 2e 6d 61 78 62 75 66 20 74 68 65 6e 20 77 30 3a 3d 62 2e 6d ┆ if w0>=b.maxbuf then w0:=b.m┆
0x01fc0…01fe0 61 78 62 75 66 2d 62 2e 69 64 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆axbuf-b.idsize; (w1)┆
0x01fe0…02000 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 2b 62 2e 69 64 73 69 7a 65 3b 00 00 00 00 00 00 00 00 ┆.buflength:=w0+b.idsize; ┆
0x02000…02006 (16,) (0x450,0x41)
0x02006…02020 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 30 2d 62 2e 69 64 73 69 ┆ w3:=w0-b.idsi┆
0x02020…02040 7a 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 62 75 66 66 65 ┆ze-2; w1:=(w1).buffe┆
0x02040…02060 72 2b 62 2e 69 64 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 77 31 3b 0a 20 ┆r+b.idsize; w3+w1; ┆
0x02060…0207e 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 30 29 3b 20 21 20 63 6f 70 79 ┆ monitor(70); ! copy┆
0x0207e…02084 (0x450,0x42)
0x02084…020a0 20 21 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 ┆ ! if w0<>0 then┆
0x020a0…020c0 20 21 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! unintelligible ! ┆
0x020c0…020e0 20 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 29 0a ┆ unintelligible(.w3.,w1:=user) ┆
0x020e0…020fc 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 ┆ else ┆
0x020fc…02102 (0x450,0x43)
0x02102…02120 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 77 31 3b 0a 20 ┆ begin w0:=w1; ┆
0x02120…02140 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w1:=user; ┆
0x02140…02160 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w2:=(w1).buffer; ┆
0x02160…0217a 20 20 20 20 69 66 20 77 33 3a 3d 62 2e 69 64 73 69 7a 65 20 3e 20 30 20 74 68 ┆ if w3:=b.idsize > 0 th┆
0x0217a…02180 (0x450,0x44)
0x02180…021a0 65 6e 0a 20 20 20 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 33 ┆en (w2).word:=w3┆
0x021a0…021c0 3a 3d 28 77 31 29 2e 63 75 72 72 6c 6f 63 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=(w1).currlocid; ┆
0x021c0…021e0 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2b 62 2e 69 64 73 69 7a 65 2c 77 31 3a 3d 77 32 2c ┆testout(.w3.,w0+b.idsize,w1:=w2,┆
0x021e0…02200 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 00 00 00 00 00 00 00 00 ┆w2:=0); se ┆
0x02200…02206 (17,) (0x450,0x45)
0x02206…02220 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 3a 3d 75 73 65 72 2c 77 32 3a ┆nd(.w3.,w0:=0,w1:=user,w2:┆
0x02220…02240 3d 32 30 34 38 30 2b 6d 65 73 73 2e 6d 6f 64 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=20480+mess.mode); ┆
0x02240…02260 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 6c ┆ (w1).buflength:= w0:= (w1).bufl┆
0x02260…0227e 65 6e 67 74 68 2d 62 2e 69 64 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ength-b.idsize; ┆
0x0227e…02284 (0x450,0x46)
0x02284…022a0 73 65 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 ┆send(.w3.,w0:=1,w1,w2:=0); ┆
0x022a0…022c0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 36 3d 28 77 33 3a 3d 28 77 31 29 2e ┆ if w0:=6=(w3:=(w1).┆
0x022c0…022e0 73 74 61 74 65 29 20 74 68 65 6e 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 ┆state) then startstop(.w3.,w0:=0┆
0x022e0…022fc 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 ┆,w1); (w1).sta┆
0x022fc…02302 (0x450,0x47)
0x02302…02320 74 65 3a 3d 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 ┆te:=w0:=2; end; ! ┆
0x02320…02340 6d 65 73 73 61 67 65 20 6f 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆message ok ! if w0:=┆
0x02340…02360 36 3d 28 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 29 20 74 68 65 6e 20 21 20 73 74 6f 70 20 69 ┆6=(w3:=(w1).state) then ! stop i┆
0x02360…0237a 74 20 61 67 61 69 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆t again ! begi┆
0x0237a…02380 (0x450,0x48)
0x02380…023a0 6e 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 3a 3d ┆n (w1).state:=w0:=┆
0x023a0…023c0 30 3b 0a 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 2e 2c ┆0; startstop(.w3.,┆
0x023c0…023e0 77 30 3a 3d 30 2c 77 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆w0:=0,w1) end ┆
0x023e0…02400 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ end else b ┆
0x02400…02406 (18,) (0x450,0x49)
0x02406…02420 65 67 69 6e 0a 65 6d 70 74 79 61 6e 73 77 65 72 3a 0a 20 20 20 20 20 20 20 20 ┆egin emptyanswer: ┆
0x02420…02440 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 ┆ (w1).buflength:=w0:=0; ┆
0x02440…02460 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w1).state:=w0; ┆
0x02460…0247e 20 20 20 73 65 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 ┆ send(.w3.,w0:=1,w1,w2:=0); ┆
0x0247e…02484 (0x450,0x4a)
0x02484…024a0 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 61 5f 72 65 61 64 79 3b 0a 20 20 ┆ goto a_ready; ┆
0x024a0…024c0 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 30 3a 3d 62 2e ┆ end; if w0:=b.┆
0x024c0…024e0 74 69 6d 65 72 6d 65 73 73 20 3c 3e 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 ┆timermess <> 0 then goto b.conti┆
0x024e0…024fc 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 67 6f 74 6f 20 65 ┆nue; end else goto e┆
0x024fc…02502 (0x450,0x4b)
0x02502…02520 6d 70 74 79 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 ┆mptyanswer; end; ! act┆
0x02520…02540 69 6f 6e 20 33 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 65 ┆ion 3 ! begin comment pare┆
0x02540…02560 6e 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 ┆nt message from internal process┆
0x02560…0257a 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 ┆; if w0:=(w1).stat┆
0x0257a…02580 (0x450,0x4c)
0x02580…025a0 65 3c 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 20 20 20 20 20 ┆e<0 then begin ┆
0x025a0…025c0 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 ┆ send(.w3.,w0:=2,w1,w2:=0); ┆
0x025c0…025e0 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 20 20 20 65 ┆ goto b.continue; e┆
0x025e0…02600 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 62 2e 63 6f 72 00 00 00 00 00 00 00 00 ┆nd; if w1:=b.cor ┆
0x02600…02606 (19,) (0x450,0x4d)
0x02606…02620 65 75 73 65 72 20 3e 20 30 20 74 68 65 6e 20 73 74 61 72 74 73 74 6f 70 28 2e ┆euser > 0 then startstop(.┆
0x02620…02640 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e ┆w3.,w0:=0,w1); swop(.w3.┆
0x02640…02660 2c 77 31 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 ┆,w1:=0); !get 2; ┆
0x02660…0267e 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 64 69 73 63 66 61 ┆ if w0 <> 1 then goto b.discfa┆
0x0267e…02684 (0x450,0x4e)
0x02684…026a0 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 70 61 72 65 6e 74 6d 65 73 73 28 2e 77 33 2e ┆ult; parentmess(.w3.┆
0x026a0…026c0 2c 77 31 3a 3d 75 73 65 72 2c 77 32 3a 3d 6d 65 73 73 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆,w1:=user,w2:=mess); end; ┆
0x026c0…026e0 0a 0a 0a 21 20 61 63 74 69 6f 6e 20 34 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆ ! action 4 ! begin comm┆
0x026e0…026fc 65 6e 74 20 61 74 74 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 6b 6e 6f 77 6e 20 74 65 72 ┆ent attention from known ter┆
0x026fc…02702 (0x450,0x4f)
0x02702…02720 6d 69 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 ┆minal; send(.w3.,w0:=1┆
0x02720…02740 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e ┆,w1,w2:=0); if w0:=(w1).┆
0x02740…02760 73 74 61 74 65 32 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 ┆state2>0 then goto b.continue; ┆
0x02760…0277a 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 3c ┆ if w0:=(w1).state <┆
0x0277a…02780 (0x450,0x50)
0x02780…027a0 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 ┆ 0 then goto b.continue; ┆
0x027a0…027c0 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 73 74 61 ┆ (w1).state:=w0:=-1; sta┆
0x027c0…027e0 72 74 73 74 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 6c ┆rtstop(.w3.,w0:=0,w1); l┆
0x027e0…02800 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 00 00 00 00 00 00 00 00 ┆ink(.w3.,w1,w2:=address( ┆
0x02800…02806 (20,) (0x450,0x51)
0x02806…02820 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d ┆b.waitqfst)); w2:=┆
0x02820…02840 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e ┆(w1).buffer; (w1).buflen┆
0x02840…02860 67 74 68 3a 3d 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 ┆gth:=w0:=2; copy(.w3.,w0┆
0x02860…0287e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 74 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 ┆,w1:=address(b.att),w2); ┆
0x0287e…02884 (0x450,0x52)
0x02884…028a0 20 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 ┆ testout(.w3.,w0,w1,w2:=0)┆
0x028a0…028c0 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 3a 3d 75 73 ┆; send(.w3.,w0:=0,w1:=us┆
0x028c0…028e0 65 72 2c 77 32 3a 3d 32 30 34 38 30 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c ┆er,w2:=20480); (w1).bufl┆
0x028e0…028fc 65 6e 67 74 68 3a 3d 77 30 3a 3d 62 2e 6d 61 78 62 75 66 3b 0a 20 20 20 20 20 20 20 ┆ength:=w0:=b.maxbuf; ┆
0x028fc…02902 (0x450,0x53)
0x02902…02920 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 2c 77 32 3a 3d 31 32 32 38 38 29 ┆ send(.w3.,w0:=0,w1,w2:=12288)┆
0x02920…02940 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 62 2e 63 6f 72 65 75 73 65 72 20 74 68 65 ┆; if w1 = b.coreuser the┆
0x02940…02960 6e 20 67 6f 74 6f 20 62 2e 72 65 67 72 65 74 74 69 6d 65 72 20 65 6c 73 65 20 67 6f 74 6f 20 62 ┆n goto b.regrettimer else goto b┆
0x02960…0297a 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 ┆.continue; end; ! ┆
0x0297a…02980 (0x450,0x54)
0x02980…029a0 61 63 74 69 6f 6e 20 35 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 ┆action 5 ! begin comment a┆
0x029a0…029c0 6e 73 77 65 72 20 66 72 6f 6d 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 3b 0a 20 20 20 20 20 ┆nswer from known terminal; ┆
0x029c0…029e0 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 ┆ w2:=address(b.interrupt); ┆
0x029e0…02a00 20 20 20 20 20 63 61 73 65 20 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 00 00 00 00 00 00 00 00 ┆ case w3:=(w1).state ┆
0x02a00…02a06 (21,) (0x450,0x55)
0x02a06…02a20 2b 34 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 20 2d 33 20 21 ┆+4 of begin ! -3 !┆
0x02a20…02a40 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 76 69 73 69 62 6c 65 20 70 61 73 73 ┆ begin comment invisible pass┆
0x02a40…02a60 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 28 77 31 29 2e 6d 65 73 73 ┆word; w3:= (w1).mess┆
0x02a60…02a7e 73 65 6e 64 3b 20 20 21 20 72 65 73 75 6c 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆send; ! result ! ┆
0x02a7e…02a84 (0x450,0x56)
0x02a84…02aa0 69 66 20 77 33 20 6f 72 20 28 77 32 29 2e 73 74 61 74 75 73 20 6f 72 20 28 77 32 29 ┆if w3 or (w2).status or (w2)┆
0x02aa0…02ac0 2e 62 79 74 65 73 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆.bytes = 1 then begi┆
0x02ac0…02ae0 6e 20 20 21 20 72 65 70 65 61 74 20 69 6e 76 69 73 69 62 6c 65 20 69 6e 70 75 74 2c 20 69 66 20 ┆n ! repeat invisible input, if ┆
0x02ae0…02afc 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 ┆normal answer and ┆
0x02afc…02b02 (0x450,0x57)
0x02b02…02b20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 20 74 72 61 6e 73 66 65 72 72 65 64 20 3d ┆ bytes transferred =┆
0x02b20…02b40 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 ┆ 0 ! ┆
0x02b40…02b60 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 20 77 30 3a 3d 20 ┆ (w1).buflength:= w0:= ┆
0x02b60…02b7a 62 2e 6d 61 78 62 75 66 20 2d 20 28 77 31 29 2e 62 75 66 72 65 6c 3b 0a 20 20 ┆b.maxbuf - (w1).bufrel; ┆
0x02b7a…02b80 (0x450,0x58)
0x02b80…02ba0 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 20 ┆ w0:= (w1).bufrel; ┆
0x02ba0…02bc0 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 20 20 20 ┆ -(w0); ┆
0x02bc0…02be0 20 73 65 6e 64 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 2c 20 77 32 3a 3d 31 32 32 38 38 2b 62 ┆ send (.w3., w0, w1, w2:=12288+b┆
0x02be0…02c00 2e 70 61 73 73 6d 6f 64 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆.passmode); ┆
0x02c00…02c06 (22,) (0x450,0x59)
0x02c06…02c20 20 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 ┆ goto b.continue; ┆
0x02c20…02c40 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 2d 32 20 21 20 ┆ end; end; ! -2 ! ┆
0x02c40…02c60 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 67 69 6e 20 69 6e 66 6f 72 6d 61 74 69 ┆ begin comment login informati┆
0x02c60…02c7e 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 65 61 74 6d 61 79 ┆on; goto repeatmay┆
0x02c7e…02c84 (0x450,0x5a)
0x02c84…02ca0 62 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 2d 31 20 21 20 20 20 ┆be; end; ! -1 ! ┆
0x02ca0…02cc0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 79 73 74 65 6d 20 63 6f 6d 6d 61 6e 64 3b 0a 20 ┆ begin comment system command; ┆
0x02cc0…02ce0 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 65 61 74 6d 61 79 62 65 3b 0a 20 20 20 ┆ goto repeatmaybe; ┆
0x02ce0…02cfc 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 30 20 21 20 20 20 20 62 65 67 69 6e 20 ┆ end; ! 0 ! begin ┆
0x02cfc…02d02 (0x450,0x5b)
0x02d02…02d20 63 6f 6d 6d 65 6e 74 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 76 69 61 20 70 73 65 75 ┆comment communication via pseu┆
0x02d20…02d40 64 6f 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 ┆do process; w0:=(w1)┆
0x02d40…02d60 2e 6d 65 73 73 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e ┆.messsend; w2:=(w1).┆
0x02d60…02d7a 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆messgot; if w2┆
0x02d7a…02d80 (0x450,0x5c)
0x02d80…02da0 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 ┆ > 10 then if w3:=(w┆
0x02da0…02dc0 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 65 78 74 72 61 63 74 20 32 20 3c 3e 20 33 20 74 68 65 6e ┆2).operation extract 2 <> 3 then┆
0x02dc0…02de0 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 20 ┆ begin ┆
0x02de0…02e00 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 3a 3d 77 30 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ (w1).messgot:=w0; ┆
0x02e00…02e06 (23,) (0x450,0x5d)
0x02e06…02e20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 69 6e 74 ┆ w1:=address(b.int┆
0x02e20…02e40 65 72 72 75 70 74 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 32 ┆errupt); monitor(2┆
0x02e40…02e60 32 29 3b 20 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆2); ! send answer ! ┆
0x02e60…02e7e 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 2c 77 32 3a 3d ┆ testout(.w3.,w0:=16,w1,w2:=┆
0x02e7e…02e84 (0x450,0x5e)
0x02e84…02ea0 36 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 ┆61); end; ┆
0x02ea0…02ec0 20 20 20 20 65 6e 64 3b 0a 21 20 20 31 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ end; ! 1 ! begin comment┆
0x02ec0…02ee0 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 70 75 74 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 ┆ waiting for input answer; ┆
0x02ee0…02efc 20 20 20 20 20 20 20 28 77 31 29 2e 63 75 72 72 6c 6f 63 69 64 3a 3d 20 77 30 3a 3d ┆ (w1).currlocid:= w0:=┆
0x02efc…02f02 (0x450,0x5f)
0x02f02…02f20 20 28 77 33 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 29 2e 77 6f 72 64 3b 0a 72 65 70 65 61 ┆ (w3:=(w1).buffer).word; repea┆
0x02f20…02f40 74 6d 61 79 62 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 6d 65 73 ┆tmaybe: w3:=(w1).mes┆
0x02f40…02f60 73 73 65 6e 64 3b 20 20 63 6f 6d 6d 65 6e 74 20 77 33 20 3a 3d 20 72 65 73 75 6c 74 3b 0a 20 20 ┆ssend; comment w3 := result; ┆
0x02f60…02f7a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 6f 72 20 28 77 32 29 2e 73 74 ┆ if w3 or (w2).st┆
0x02f7a…02f80 (0x450,0x60)
0x02f80…02fa0 61 74 75 73 20 6f 72 20 28 77 32 29 2e 62 79 74 65 73 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 ┆atus or (w2).bytes = 1 then ┆
0x02fa0…02fc0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 20 69 6e 70 ┆ begin comment repeat inp┆
0x02fc0…02fe0 75 74 20 69 66 20 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 2c 20 62 79 74 65 73 20 74 72 61 6e 73 ┆ut if normal answer, bytes trans┆
0x02fe0…03000 2d 0a 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 ┆- ┆
0x03000…03006 (24,) (0x450,0x61)
0x03006…03020 20 20 20 20 66 65 72 72 65 64 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ ferred = 0; ┆
0x03020…03040 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 62 2e 6d 61 78 62 75 66 ┆ (w1).buflength:=w0:=b.maxbuf┆
0x03040…03060 3b 0a 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 30 2c ┆; send(.w3.,w0:=0,┆
0x03060…0307e 77 31 2c 77 32 3a 3d 31 32 32 38 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 ┆w1,w2:=12288); g┆
0x0307e…03084 (0x450,0x62)
0x03084…030a0 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆oto b.continue; ┆
0x030a0…030c0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 32 20 21 20 20 20 20 62 65 ┆end; end; ! 2 ! be┆
0x030c0…030e0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 6f 75 74 70 75 74 20 61 ┆gin comment waiting for output a┆
0x030e0…030fc 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 ┆nswer; (w1).stat┆
0x030fc…03102 (0x450,0x63)
0x03102…03120 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 63 ┆e:=w0:=0; goto b.c┆
0x03120…03140 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 33 20 21 20 20 ┆ontinue; end; ! 3 ! ┆
0x03140…03160 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 6c 6f 61 64 ┆ begin comment waiting for load┆
0x03160…0317a 20 77 69 74 68 20 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 20 20 2d 20 20 ┆ with new abs program - ┆
0x0317a…03180 (0x450,0x64)
0x03180…031a0 73 74 61 74 65 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 68 65 72 65 3b 0a 20 20 20 20 20 20 20 ┆state not possible here; ┆
0x031a0…031c0 20 20 20 65 6e 64 3b 0a 21 20 20 34 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ end; ! 4 ! begin comment ┆
0x031c0…031e0 73 75 73 70 65 6e 64 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 6f 75 74 70 75 74 20 62 75 66 66 ┆suspended because of output buff┆
0x031e0…03200 65 72 20 66 75 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 00 00 00 00 00 00 00 00 ┆er full; (w1 ┆
0x03200…03206 (25,) (0x450,0x65)
0x03206…03220 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 ┆).state:=w0:=0; ┆
0x03220…03240 65 6e 64 3b 0a 21 20 20 35 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6d 65 73 ┆end; ! 5 ! begin comment mes┆
0x03240…03260 73 61 67 65 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆sage waiting to be send; ┆
0x03260…0327e 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 73 28 ┆ link(.w3.,w1,w2:=address(┆
0x0327e…03284 (0x450,0x66)
0x03284…032a0 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 6d ┆b.activqfst)); m┆
0x032a0…032c0 65 73 73 3a 3d 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 ┆ess:=w2:=(w1).messgot; ┆
0x032c0…032e0 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 20 20 20 ┆ (w1).state:=w0:=0; ┆
0x032e0…032fc 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 ┆ if w3:=(w2).receiver+b.own┆
0x032fc…03302 (0x450,0x67)
0x03302…03320 70 72 6f 63 20 3d 20 30 20 74 68 65 6e 20 77 30 3a 3d 33 20 65 6c 73 65 0a 20 20 20 20 20 ┆proc = 0 then w0:=3 else ┆
0x03320…03340 20 20 20 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 73 6f ┆ if w3:=(w2).receiver+b.so┆
0x03340…03360 73 74 65 72 6d 20 3d 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 ┆sterm = 0 then begin┆
0x03360…0337a 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 ┆ if w3:=(w2)┆
0x0337a…03380 (0x450,0x68)
0x03380…033a0 2e 6f 70 65 72 61 74 69 6f 6e 20 3d 20 33 20 74 68 65 6e 20 77 30 3a 3d 31 20 65 6c 73 65 0a 20 ┆.operation = 3 then w0:=1 else ┆
0x033a0…033c0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 3d 20 35 20 74 68 65 6e 20 77 30 3a 3d ┆ if w3 = 5 then w0:=┆
0x033c0…033e0 32 20 65 6c 73 65 20 77 30 3a 3d 20 31 33 3b 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆2 else w0:= 13; end┆
0x033e0…03400 20 65 6c 73 65 20 77 30 3a 3d 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ else w0:= 9; ┆
0x03400…03406 (26,) (0x450,0x69)
0x03406…03420 20 20 67 6f 74 6f 20 61 63 74 69 6f 6e 63 61 73 65 3b 0a 20 20 20 20 20 20 20 ┆ goto actioncase; ┆
0x03420…03440 20 20 20 65 6e 64 3b 0a 21 20 20 36 20 21 20 20 20 20 62 65 67 69 6e 20 21 20 77 61 69 74 69 6e ┆ end; ! 6 ! begin ! waitin┆
0x03440…03460 67 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 20 20 20 20 20 ┆g answer from primo ! ┆
0x03460…0347e 65 6e 64 3b 0a 21 20 20 37 20 21 20 20 20 20 62 65 67 69 6e 20 21 20 6d 65 73 73 61 67 65 ┆end; ! 7 ! begin ! message┆
0x0347e…03484 (0x450,0x6a)
0x03484…034a0 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 6d 6f ┆ waiting to be send to primo┆
0x034a0…034c0 20 21 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 77 32 3a 3d ┆ ! link(.w3.,w1,w2:=┆
0x034c0…034e0 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 20 20 20 20 20 20 ┆address(b.activqfst)); ┆
0x034e0…034fc 20 20 20 6d 65 73 73 3a 3d 77 32 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 ┆ mess:=w2:=(w1).messgot; ┆
0x034fc…03502 (0x450,0x6b)
0x03502…03520 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; ┆
0x03520…03540 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=11; ┆
0x03540…03560 67 6f 74 6f 20 61 63 74 69 6f 6e 63 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆goto actioncase; end; ┆
0x03560…0357a 21 20 20 38 20 21 20 20 20 20 62 65 67 69 6e 20 21 20 77 61 69 74 69 6e 67 20 ┆! 8 ! begin ! waiting ┆
0x0357a…03580 (0x450,0x6c)
0x03580…035a0 66 6f 72 20 63 6f 6e 74 72 6f 6c 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆for control answer ! ┆
0x035a0…035c0 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ (w1).state:= w0:= 0; ┆
0x035c0…035e0 20 20 77 30 3a 3d 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3b 20 21 20 77 30 3a 3d 20 72 65 73 ┆ w0:= (w1).messsend; ! w0:= res┆
0x035e0…03600 75 6c 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 00 00 00 00 00 00 00 00 ┆ult ! w2:= ( ┆
0x03600…03606 (27,) (0x450,0x6d)
0x03606…03620 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆w1).messgot; i┆
0x03620…03640 66 20 77 32 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 6e ┆f w2 > 10 then begin┆
0x03640…03660 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 3a 3d 20 77 30 ┆ (w1).messgot:= w0┆
0x03660…0367e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 ┆; w1:= address(b┆
0x0367e…03684 (0x450,0x6e)
0x03684…036a0 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 6d ┆.interrupt); m┆
0x036a0…036c0 6f 6e 69 74 6f 72 20 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 ┆onitor (22); ! send answer ! ┆
0x036c0…036e0 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 20 31 ┆ testout (.w3., w0:= 1┆
0x036e0…036fc 36 2c 20 77 31 2c 20 77 32 3a 3d 20 36 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆6, w1, w2:= 61); ┆
0x036fc…03702 (0x450,0x6f)
0x03702…03720 20 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 ┆ end; end; e┆
0x03720…03740 6e 64 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 2c 77 ┆nd; link(.w3.,w1:=user,w┆
0x03740…03760 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 61 5f 72 65 61 64 ┆2:=address(b.activqfst)); a_read┆
0x03760…0377a 79 3a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 74 69 6d 65 72 6d ┆y: if w0:=b.timerm┆
0x0377a…03780 (0x450,0x70)
0x03780…037a0 65 73 73 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ess<>0 then begin ┆
0x037a0…037c0 20 20 20 20 20 77 31 3a 3d 20 62 2e 63 6f 72 65 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:= b.coreuser; ┆
0x037c0…037e0 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 63 6c 61 73 73 20 2b 20 62 2e 74 69 6d 65 72 6c 6f 73 73 ┆if w0:= (w1).class + b.timerloss┆
0x037e0…03800 20 3c 20 62 2e 6d 69 6e 70 72 69 6f 0a 20 20 20 20 20 20 20 20 20 20 74 00 00 00 00 00 00 00 00 ┆ < b.minprio t ┆
0x03800…03806 (28,) (0x450,0x71)
0x03806…03820 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 63 6f 72 65 75 73 65 72 0a 20 20 20 20 ┆hen goto stopcoreuser ┆
0x03820…03840 20 20 20 20 20 20 65 6c 73 65 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 ┆ else goto b.continue; ┆
0x03840…03860 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 69 6f 6e 20 36 ┆ end; end; ! action 6┆
0x03860…0387e 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 74 74 65 6e 74 69 ┆ ! begin comment attenti┆
0x0387e…03884 (0x450,0x72)
0x03884…038a0 6f 6e 20 66 72 6f 6d 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 3b 0a 20 20 ┆on from unknown terminal; ┆
0x038a0…038c0 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 3a 3d 30 29 3b ┆ send(.w3.,w0:=1,w1,w2:=0);┆
0x038c0…038e0 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 2d 32 3b 0a 20 20 20 ┆ (w1).state:=w0:=-2; ┆
0x038e0…038fc 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 32 3b 0a ┆ (w1).buflength:=w0:=2; ┆
0x038fc…03902 (0x450,0x73)
0x03902…03920 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 ┆ w2:=(w1).buffer; ┆
0x03920…03940 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 74 ┆ copy(.w3.,w0,w1:=address(b.at┆
0x03940…03960 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c ┆t),w2); testout(.w3.,w0,┆
0x03960…0397a 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 ┆w1,w2:=0); send(.w┆
0x0397a…03980 (0x450,0x74)
0x03980…039a0 33 2e 2c 77 30 3a 3d 30 2c 77 31 3a 3d 75 73 65 72 2c 77 32 3a 3d 32 30 34 38 30 29 3b 0a 20 20 ┆3.,w0:=0,w1:=user,w2:=20480); ┆
0x039a0…039c0 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 62 2e 6d 61 78 62 ┆ (w1).buflength:=w0:=b.maxb┆
0x039c0…039e0 75 66 3b 0a 20 20 20 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 ┆uf; send(.w3.,w0:=0,w1,w┆
0x039e0…03a00 32 3a 3d 31 32 32 38 38 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 00 00 00 00 00 00 00 00 ┆2:=12288); goto ┆
0x03a00…03a06 (29,) (0x450,0x75)
0x03a06…03a20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 21 20 ┆b.continue; end; ! ┆
0x03a20…03a40 61 63 74 69 6f 6e 20 37 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 ┆action 7 ! begin comment a┆
0x03a40…03a60 6e 73 77 65 72 20 66 72 6f 6d 20 74 69 6d 65 72 3b 0a 73 74 6f 70 63 6f 72 65 75 73 65 72 3a 0a ┆nswer from timer; stopcoreuser: ┆
0x03a60…03a7e 20 20 20 20 20 20 20 20 75 73 65 72 3a 3d 77 31 3a 3d 62 2e 63 6f 72 65 75 73 65 72 3b 0a ┆ user:=w1:=b.coreuser; ┆
0x03a7e…03a84 (0x450,0x76)
0x03a84…03aa0 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 ┆ startstop(.w3.,w0:=0┆
0x03aa0…03ac0 2c 77 31 29 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 73 73 2b ┆,w1); if w0:=(w1).class+┆
0x03ac0…03ae0 62 2e 74 69 6d 65 72 6c 6f 73 73 20 3c 20 62 2e 62 61 74 63 68 63 6c 61 73 73 20 74 68 65 6e 20 ┆b.timerloss < b.batchclass then ┆
0x03ae0…03afc 28 77 31 29 2e 70 72 69 6f 3a 3d 77 30 3a 3d 30 20 20 20 21 20 62 61 74 63 68 20 21 ┆(w1).prio:=w0:=0 ! batch !┆
0x03afc…03b02 (0x450,0x77)
0x03b02…03b20 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 20 20 20 ┆ else begin ┆
0x03b20…03b40 21 20 67 6f 2f 72 75 6e 2d 6a 6f 62 73 20 21 20 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 ┆! go/run-jobs ! link(┆
0x03b40…03b60 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 69 76 71 66 73 74 29 ┆.w3.,w1,w2:=address(b.activqfst)┆
0x03b60…03b7a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 ┆); (w1).class:=w┆
0x03b7a…03b80 (0x450,0x78)
0x03b80…03ba0 30 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2d 62 2e 74 69 6d 65 72 6c 6f 73 73 3b 0a 20 20 20 20 20 ┆0:=(w1).class-b.timerloss; ┆
0x03ba0…03bc0 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 20 20 20 20 69 66 ┆ (w1).prio:=w0; if┆
0x03bc0…03be0 20 77 33 3a 3d 62 2e 73 79 73 63 6f 6e 64 20 6f 6e 65 6d 61 73 6b 20 32 27 30 30 31 20 74 68 65 ┆ w3:=b.syscond onemask 2'001 the┆
0x03be0…03c00 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 62 2e 6d 69 00 00 00 00 00 00 00 00 ┆n if w0 < b.mi ┆
0x03c00…03c06 (30,) (0x450,0x79)
0x03c06…03c20 6e 70 72 69 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆nprio then begin┆
0x03c20…03c40 20 63 6f 6d 6d 65 6e 74 20 62 72 65 61 6b 20 70 72 6f 63 65 73 73 3b 0a 74 69 6d 65 6f 75 74 3a ┆ comment break process; timeout:┆
0x03c40…03c60 0a 20 20 20 20 20 20 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 ┆ swop(.w3.,w1:=0); ┆
0x03c60…03c7e 20 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ !get 2; ┆
0x03c7e…03c84 (0x450,0x7a)
0x03c84…03ca0 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 64 69 73 63 ┆ if w0 <> 1 then goto b.disc┆
0x03ca0…03cc0 66 61 75 6c 74 3b 0a 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 ┆fault; break(.w3.,w1┆
0x03cc0…03ce0 3a 3d 75 73 65 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 ┆:=user); (w1).interv┆
0x03ce0…03cfc 65 6e 74 3a 3d 77 30 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ent:=w0:=5; end; ┆
0x03cfc…03d02 (0x450,0x7b)
0x03d02…03d20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 21 20 61 63 74 69 ┆ end; end; ! acti┆
0x03d20…03d40 6f 6e 20 38 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 65 6e ┆on 8 ! begin comment paren┆
0x03d40…03d60 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 20 62 61 73 74 61 72 64 3b 0a 20 20 20 20 20 20 ┆t message from a bastard; ┆
0x03d60…03d7a 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 ┆ swop(.w3.,w1:=0); ┆
0x03d7a…03d80 (0x450,0x7c)
0x03d80…03da0 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 ┆ !get 2; if w0 <> 1 the┆
0x03da0…03dc0 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 6f 70 6d 65 ┆n goto b.discfault; opme┆
0x03dc0…03de0 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 6f 70 65 72 61 74 69 ┆ss(.w3.,w1:=address((w2).operati┆
0x03de0…03e00 6f 6e 29 2c 77 32 3a 3d 28 77 32 29 2e 73 65 6e 64 65 72 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆on),w2:=(w2).sender); ┆
0x03e00…03e06 (31,) (0x450,0x7d)
0x03e06…03e20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 69 6f 6e 20 39 20 21 0a 20 20 ┆ end; ! action 9 ! ┆
0x03e20…03e40 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 20 74 6f 20 61 20 70 ┆ begin comment message to a p┆
0x03e40…03e60 73 65 75 64 6f 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 ┆seudo process; if w1:=(w┆
0x03e60…03e7e 32 29 2e 72 65 63 65 69 76 65 72 20 3c 20 30 20 74 68 65 6e 20 2d 28 77 31 29 3b 0a 20 20 ┆2).receiver < 0 then -(w1); ┆
0x03e7e…03e84 (0x450,0x7e)
0x03e84…03ea0 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 77 ┆ copy(.w3.,w0:=8,w1+2,w┆
0x03ea0…03ec0 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 20 20 20 ┆2:=address(b.procname)); ┆
0x03ec0…03ee0 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 3a 3d 6d 65 73 73 2b 38 2c 77 32 3a ┆ copy(.w3.,w0:=16,w1:=mess+8,w2:┆
0x03ee0…03efc 3d 62 2e 6c 61 73 74 75 73 65 72 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 6d 65 ┆=b.lastuser); w2:=me┆
0x03efc…03f02 (0x450,0x7f)
0x03f02…03f20 73 73 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 72 61 74 ┆ss; if w0:=(w2).operat┆
0x03f20…03f40 69 6f 6e 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ion onemask 1 then begin┆
0x03f40…03f60 20 20 21 20 69 6f 20 20 2d 20 75 73 65 20 73 6f 73 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 ┆ ! io - use sos buffer ! ┆
0x03f60…03f7a 20 20 20 20 20 77 31 3a 3d 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ w1:=user; i┆
0x03f7a…03f80 (0x450,0x80)
0x03f80…03fa0 66 20 77 31 20 3c 3e 20 62 2e 63 6f 72 65 75 73 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 65 6d 70 ┆f w1 <> b.coreuser then goto emp┆
0x03fa0…03fc0 74 79 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 6c 61 73 74 75 73 ┆tyanswer; w3:=b.lastus┆
0x03fc0…03fe0 65 72 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6d 6f 64 65 3a 3d 77 30 3a 3d 28 ┆er-8; (w3).mode:=w0:=(┆
0x03fe0…04000 77 32 29 2e 6d 6f 64 65 20 65 78 74 72 61 63 74 20 36 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆w2).mode extract 6; ┆
0x04000…04006 (32,) (0x450,0x81)
0x04006…04020 20 20 20 20 20 20 28 77 33 29 2e 6d 62 66 73 74 3a 3d 77 30 3a 3d 28 77 31 29 ┆ (w3).mbfst:=w0:=(w1)┆
0x04020…04040 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 6d 62 6c 73 ┆.buffer; w0:=(w2).mbls┆
0x04040…04060 74 2d 28 77 32 29 2e 6d 62 66 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 ┆t-(w2).mbfst+2; if w0 ┆
0x04060…0407e 3e 20 62 2e 6d 61 78 62 75 66 20 74 68 65 6e 20 77 30 3a 3d 62 2e 6d 61 78 62 75 66 3b 0a ┆> b.maxbuf then w0:=b.maxbuf; ┆
0x0407e…04084 (0x450,0x82)
0x04084…040a0 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 30 ┆ (w1).buflength:=w0┆
0x040a0…040c0 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6d 62 6c 73 74 3a 3d 77 30 2b 28 77 33 29 2e ┆; (w3).mblst:=w0+(w3).┆
0x040c0…040e0 6d 62 66 73 74 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 6f 63 62 75 66 31 ┆mbfst-2; (w1).procbuf1┆
0x040e0…040fc 3a 3d 77 30 3a 3d 28 77 32 29 2e 6d 62 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=w0:=(w2).mbfst; ┆
0x040fc…04102 (0x450,0x83)
0x04102…04120 69 66 20 77 30 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 3c 3e 20 33 20 74 68 65 ┆if w0:=(w2).operation <> 3 the┆
0x04120…04140 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 73 6f 6d 65 20 6b 69 6e 64 20 6f ┆n begin ! some kind o┆
0x04140…04160 66 20 6f 75 74 70 75 74 20 61 73 73 75 6d 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆f output assumed ! i┆
0x04160…0417a 66 20 77 30 3a 3d 28 77 32 29 2e 6d 6f 64 65 20 6f 6e 65 6d 61 73 6b 20 38 27 ┆f w0:=(w2).mode onemask 8'┆
0x0417a…04180 (0x450,0x84)
0x04180…041a0 31 30 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 ┆100 then begin ┆
0x041a0…041c0 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6d 62 6c 73 74 3a 3d 77 32 3a 3d 28 77 33 29 2e 6d 62 ┆ (w3).mblst:=w2:=(w3).mb┆
0x041c0…041e0 6c 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 3a 3d 28 77 31 29 2e 62 ┆lst+2; (w2:=(w1).b┆
0x041e0…04200 75 66 66 65 72 29 2e 77 6f 72 64 3a 3d 77 33 3a 3d 28 77 31 29 2e 63 75 00 00 00 00 00 00 00 00 ┆uffer).word:=w3:=(w1).cu ┆
0x04200…04206 (33,) (0x450,0x85)
0x04206…04220 72 72 6c 6f 63 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b ┆rrlocid; w2+┆
0x04220…04240 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 32 3a 3d 28 77 31 29 ┆2; end else w2:=(w1)┆
0x04240…04260 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 ┆.buffer; copy(.w3.,w┆
0x04260…0427e 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 70 72 6f ┆0:=(w1).buflength,w1:=(w1).pro┆
0x0427e…04284 (0x450,0x86)
0x04284…042a0 63 62 75 66 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f ┆cbuf1,w2); testo┆
0x042a0…042c0 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 20 20 20 20 20 20 20 ┆ut(.w3.,w0,w1,w2:=0); ┆
0x042c0…042e0 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 75 73 65 72 2c 77 32 3a 3d 30 ┆ send(.w3.,w0:=1,w1:=user,w2:=0┆
0x042e0…042fc 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 65 6e ┆); end; en┆
0x042fc…04302 (0x450,0x87)
0x04302…04320 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 20 21 20 6d 65 73 73 61 67 65 20 ┆d; begin ! message ┆
0x04320…04340 74 6f 20 74 65 6d 20 21 0a 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a ┆to tem ! copy(.w3.,w0:┆
0x04340…04360 3d 36 2c 77 31 3a 3d 75 73 65 72 2e 69 6e 74 65 72 6e 61 6c 2b 32 2c 77 32 3a 3d 61 64 64 72 65 ┆=6,w1:=user.internal+2,w2:=addre┆
0x04360…0437a 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 2b 32 29 3b 0a 20 20 20 20 20 20 20 ┆ss(b.procname)+2); ┆
0x0437a…04380 (0x450,0x88)
0x04380…043a0 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 20 20 20 20 ┆ w3:=address(b.procname); ┆
0x043a0…043c0 20 20 20 20 20 20 62 2e 6d 69 63 74 69 6d 65 72 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ b.mictimer:=w3; ┆
0x043c0…043e0 69 66 20 77 30 3a 3d 6d 65 73 73 2e 6f 70 65 72 61 74 69 6f 6e 20 3e 3d 20 39 30 20 74 68 65 6e ┆if w0:=mess.operation >= 90 then┆
0x043e0…04400 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 31 30 30 20 74 00 00 00 00 00 00 00 00 ┆ if w0 < 100 t ┆
0x04400…04406 (34,) (0x450,0x89)
0x04406…04420 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 20 21 20 6d 65 ┆hen begin ! me┆
0x04420…04440 73 73 61 67 65 20 63 6f 6e 63 65 72 6e 69 6e 67 20 61 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 ┆ssage concerning a pool ! ┆
0x04440…04460 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 6d 69 63 74 69 ┆ w0:=0; b.micti┆
0x04460…0447e 6d 65 72 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 62 61 73 65 65 76 65 ┆mer:=w0; b.baseeve┆
0x0447e…04484 (0x450,0x8a)
0x04484…044a0 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 ┆nt:=w0; copy(.w3┆
0x044a0…044c0 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 2c ┆.,w0:=8,w1:=address(b.procname),┆
0x044c0…044e0 77 32 3a 3d 62 2e 6c 61 73 74 75 73 65 72 2b 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆w2:=b.lastuser+8); w┆
0x044e0…044fc 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 ┆3:=address(b.t_mdul); ┆
0x044fc…04502 (0x450,0x8b)
0x04502…04520 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 ┆ end; end; ┆
0x04520…04540 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(┆
0x04540…04560 31 36 29 3b 20 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 ! ┆
0x04560…0457a 75 73 65 72 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 ┆user.messsend:=w2; ┆
0x0457a…04580 (0x450,0x8c)
0x04580…045a0 20 62 2e 70 73 6d 65 73 73 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e ┆ b.psmess:=w2; if w0:=b.┆
0x045a0…045c0 6d 69 63 74 69 6d 65 72 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆mictimer > 0 then begin ┆
0x045c0…045e0 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 69 6d 65 72 29 3b 0a ┆ w3:=address(b.timer); ┆
0x045e0…04600 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 00 00 00 00 00 00 00 ┆ w1:=address(b. ┆
0x04600…04606 (35,) (0x450,0x8d)
0x04606…04620 6d 69 63 75 6e 69 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆micunit); monito┆
0x04620…04640 72 28 31 36 29 3b 20 20 20 21 20 73 65 6e 64 20 74 69 6d 65 72 20 6d 65 73 73 61 67 65 20 21 0a ┆r(16); ! send timer message ! ┆
0x04640…04660 20 20 20 20 20 20 20 20 20 20 62 2e 6d 69 63 74 69 6d 65 72 3a 3d 77 32 3b 0a 20 20 20 20 20 20 ┆ b.mictimer:=w2; ┆
0x04660…0467e 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 62 61 73 65 65 76 65 6e 74 ┆ end; w2:=b.baseevent┆
0x0467e…04684 (0x450,0x8e)
0x04684…046a0 3b 0a 73 65 6d 69 62 75 73 79 3a 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆; semibusy: monitor(┆
0x046a0…046c0 32 34 29 3b 20 20 21 20 77 61 69 74 20 6e 65 78 74 20 65 76 65 6e 74 20 21 0a 20 20 20 20 20 20 ┆24); ! wait next event ! ┆
0x046c0…046e0 20 20 69 66 20 77 32 20 3d 20 62 2e 70 73 6d 65 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w2 = b.psmess then ┆
0x046e0…046fc 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 6c 61 73 74 75 73 ┆begin w1:=b.lastus┆
0x046fc…04702 (0x450,0x8f)
0x04702…04720 65 72 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 21 20 ┆er; monitor(18); ! ┆
0x04720…04740 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 75 73 65 72 ┆wait answer ! w3:=user┆
0x04740…04760 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 30 3b 0a 20 ┆; (w3).messsend:=w0; ┆
0x04760…0477a 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 73 74 61 74 75 73 69 6e 66 3a 3d 77 ┆ (w3).statusinf:=w┆
0x0477a…04780 (0x450,0x90)
0x04780…047a0 30 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 3a 3d 28 77 33 29 ┆0:=(w1).word; w2:=(w3)┆
0x047a0…047c0 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e ┆.messgot; if w0:=(w2).┆
0x047c0…047e0 6f 70 65 72 61 74 69 6f 6e 20 65 78 74 72 61 63 74 20 32 20 3d 20 33 20 74 68 65 6e 0a 20 20 20 ┆operation extract 2 = 3 then ┆
0x047e0…04800 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x04800…04806 (36,) (0x450,0x91)
0x04806…04820 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 29 2e 62 79 74 65 73 2c ┆ copy(.w3.,w0:=(w1).bytes,┆
0x04820…04840 77 31 3a 3d 75 73 65 72 2e 62 75 66 66 65 72 2c 77 32 3a 3d 75 73 65 72 2e 70 72 6f 63 62 75 66 ┆w1:=user.buffer,w2:=user.procbuf┆
0x04840…04860 31 29 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 30 2c ┆1); testout(.w3.,w0,┆
0x04860…0487e 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 75 73 65 ┆w1,w2:=0); w3:=use┆
0x0487e…04884 (0x450,0x92)
0x04884…048a0 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 2e 63 75 72 72 6c 6f 63 69 ┆r; user.currloci┆
0x048a0…048c0 64 3a 3d 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 ┆d:=w0:=(w1).word; w0┆
0x048c0…048e0 3a 3d 28 77 33 29 2e 6d 65 73 73 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆:=(w3).messsend; w1:┆
0x048e0…048fc 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 77 32 3a ┆=b.lastuser; w2:┆
0x048fc…04902 (0x450,0x93)
0x04902…04920 3d 28 77 33 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆=(w3).messgot; end e┆
0x04920…04940 6c 73 65 20 77 30 3a 3d 28 77 33 29 2e 6d 65 73 73 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆lse w0:=(w3).messsend; ┆
0x04940…04960 20 69 66 20 77 32 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ if w2 > 10 then begin┆
0x04960…0497a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 33 29 2e 73 ┆ if w3:=(w3).s┆
0x0497a…04980 (0x450,0x94)
0x04980…049a0 74 61 74 75 73 69 6e 66 20 6f 72 20 77 30 20 6f 72 20 38 27 31 30 32 30 30 30 30 31 20 3c 3e 20 ┆tatusinf or w0 or 8'10200001 <> ┆
0x049a0…049c0 38 27 31 30 32 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 77 ┆8'10200001 then if w┆
0x049c0…049e0 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 6e ┆3:=(w2).operation onemask 1 then┆
0x049e0…04a00 0a 20 20 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 ┆ begin ┆
0x04a00…04a06 (37,) (0x450,0x95)
0x04a06…04a20 20 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 3a 3d 30 29 3b ┆ swop(.w3.,w1:=0);┆
0x04a20…04a40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ !get 2; ┆
0x04a40…04a60 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 64 69 73 63 ┆ if w0 <> 1 then goto b.disc┆
0x04a60…04a7e 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 6f 75 74 28 2e 77 ┆fault; logout(.w┆
0x04a7e…04a84 (0x450,0x96)
0x04a84…04aa0 33 2e 2c 77 31 3a 3d 75 73 65 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆3.,w1:=user); en┆
0x04aa0…04ac0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 2e 6d 65 73 73 67 6f 74 3a 3d 77 30 3b ┆d; user.messgot:=w0;┆
0x04ac0…04ae0 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 6e ┆ monitor(22); ! sen┆
0x04ae0…04afc 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 ┆d answer ! testo┆
0x04afc…04b02 (0x450,0x97)
0x04b02…04b20 75 74 28 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 20 ┆ut(.w3.,w0:=16,w1,w2:=61); ┆
0x04b20…04b40 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 62 2e 6d ┆ end; if w2:=b.m┆
0x04b40…04b60 69 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 ┆ictimer > 0 then monitor(82); !┆
0x04b60…04b7a 20 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 ┆ regret timer message ! ┆
0x04b7a…04b80 (0x450,0x98)
0x04b80…04ba0 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 74 69 6d 65 72 6d 65 73 73 20 3c 3e 20 30 20 ┆ if w0:=b.timermess <> 0 ┆
0x04ba0…04bc0 74 68 65 6e 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆then goto b.continue; en┆
0x04bc0…04be0 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 62 2e 6d 69 63 74 69 6d 65 ┆d else if w2 = b.mictime┆
0x04be0…04c00 72 20 74 68 65 6e 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 ┆r then begin ┆
0x04c00…04c06 (38,) (0x450,0x99)
0x04c06…04c20 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:=┆
0x04c20…04c40 30 2c 77 31 3a 3d 75 73 65 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e ┆0,w1:=user); link(.w3.┆
0x04c40…04c60 2c 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 20 ┆,w1,w2:=address(b.waitqfst)); ┆
0x04c60…04c7e 20 20 20 20 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 ┆ end else goto semibusy; ┆
0x04c7e…04c84 (0x450,0x9a)
0x04c84…04ca0 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 69 6f 6e 20 31 30 20 21 0a 20 ┆ end; ! action 10 ! ┆
0x04ca0…04cc0 20 20 20 20 20 62 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 ┆ begin comment wait for prev┆
0x04cc0…04ce0 69 6f 75 73 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 ┆ious message to be answered; ┆
0x04ce0…04cfc 20 20 20 20 20 77 32 3a 3d 35 3b 0a 6d 65 73 73 77 61 69 74 3a 0a 20 20 20 20 20 20 ┆ w2:=5; messwait: ┆
0x04cfc…04d02 (0x450,0x9b)
0x04d02…04d20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 20 3c 20 30 20 74 68 65 6e 0a 20 ┆ if w0:=(w1).state < 0 then ┆
0x04d20…04d40 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 62 75 66 6c ┆ begin (w1).bufl┆
0x04d40…04d60 65 6e 67 74 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 ┆ength:=w0:=0; send(.w3┆
0x04d60…04d7a 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 38 27 32 30 30 30 30 30 29 3b 0a ┆.,w0:=1,w1,w2:=8'200000); ┆
0x04d7a…04d80 (0x450,0x9c)
0x04d80…04da0 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 62 65 67 69 6e 0a 20 ┆ end else begin ┆
0x04da0…04dc0 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 30 2c 77 31 ┆ startstop(.w3.,w0:=0,w1┆
0x04dc0…04de0 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 0a 20 20 20 ┆); (w1).state:=w2; ┆
0x04de0…04e00 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 00 00 00 00 00 00 00 00 ┆ link(.w3.,w1,w2:= ┆
0x04e00…04e06 (39,) (0x450,0x9d)
0x04e06…04e20 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 ┆address(b.waitqfst)); ┆
0x04e20…04e40 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 62 2e 63 6f 72 65 ┆ end; if w1 <> b.core┆
0x04e40…04e60 75 73 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 ┆user then goto b.continue; ┆
0x04e60…04e7e 20 65 6e 64 3b 0a 0a 0a 21 20 61 63 74 69 6f 6e 20 31 31 20 21 0a 20 20 20 20 20 20 70 72 ┆ end; ! action 11 ! pr┆
0x04e7e…04e84 (0x450,0x9e)
0x04e84…04ea0 69 6d 65 73 73 28 2e 77 33 2e 29 3b 20 21 20 6d 65 73 73 73 61 67 65 20 74 6f 20 70 ┆imess(.w3.); ! messsage to p┆
0x04ea0…04ec0 72 69 6d 6f 20 21 0a 0a 0a 21 20 61 63 74 69 6f 6e 20 31 32 20 21 0a 20 20 20 20 20 20 62 65 67 ┆rimo ! ! action 12 ! beg┆
0x04ec0…04ee0 69 6e 20 21 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 6f ┆in ! message to be send later to┆
0x04ee0…04efc 20 70 72 69 6d 6f 20 21 0a 20 20 20 20 20 20 20 20 20 77 32 3a 3d 37 3b 20 67 6f 74 ┆ primo ! w2:=7; got┆
0x04efc…04f02 (0x450,0x9f)
0x04f02…04f20 6f 20 6d 65 73 73 77 61 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 61 63 74 69 6f ┆o messwait; end; ! actio┆
0x04f20…04f40 6e 20 31 33 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 ┆n 13 ! begin ! control mes┆
0x04f40…04f60 73 61 67 65 20 74 6f 20 74 65 72 6d 69 6e 61 6c 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆sage to terminal ! if w0┆
0x04f60…04f7a 3a 3d 20 28 77 31 29 2e 73 74 61 74 65 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 ┆:= (w1).state < 0 then ┆
0x04f7a…04f80 (0x450,0xa0)
0x04f80…04fa0 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 62 75 66 6c 65 6e ┆ begin (w1).buflen┆
0x04fa0…04fc0 67 74 68 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 20 28 2e 77 ┆gth:= w2:= 0; send (.w┆
0x04fc0…04fe0 33 2e 2c 20 77 30 3a 3d 20 31 2c 20 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f ┆3., w0:= 1, w1,w2); go┆
0x04fe0…05000 74 6f 20 62 2e 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆to b.continue; e ┆
0x05000…05006 (40,) (0x450,0xa1)
0x05006…05020 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 ┆nd else if w0 = 0 ┆
0x05020…05040 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 73 65 6e ┆then begin sen┆
0x05040…05060 64 5f 63 6f 6e 74 72 6f 6c 20 28 2e 77 33 2e 2c 77 31 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆d_control (.w3.,w1, w2); ┆
0x05060…0507e 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 38 3b 20 21 20 77 61 69 74 ┆ (w1).state:= w0:= 8; ! wait┆
0x0507e…05084 (0x450,0xa2)
0x05084…050a0 69 6e 67 20 66 6f 72 20 63 6f 6e 74 72 6f 6c 20 61 6e 73 77 65 72 20 21 0a 20 20 20 ┆ing for control answer ! ┆
0x050a0…050c0 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 20 20 20 ┆ goto b.continue; ┆
0x050c0…050e0 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 20 20 20 20 20 ┆end else begin ┆
0x050e0…050fc 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 ┆ (w1).state:= w0:= 5; ┆
0x050fc…05102 (0x450,0xa3)
0x05102…05120 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 3b 0a 20 20 20 ┆ end; end; end; ┆
0x05120…05140 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 66 33 3a 3d 20 73 61 76 65 66 33 3b 0a 20 ┆ f1:= savef1; f3:= savef3; ┆
0x05140…05160 20 65 6e 64 3b 0a 65 6e 64 3b 20 21 20 61 63 74 69 6f 6e 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 ┆ end; end; ! action ! comme┆
0x05160…0517a 6e 74 20 20 20 20 20 20 20 70 72 65 70 61 72 61 74 69 6f 6e 20 6f 66 20 70 72 ┆nt preparation of pr┆
0x0517a…05180 (0x450,0xa4)
0x05180…051a0 6f 63 65 73 73 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 61 63 74 69 76 61 74 65 64 0a 0a 66 ┆ocess waiting to be activated f┆
0x051a0…051c0 69 72 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 6d 61 67 65 20 69 6e ┆irst of all the process image in┆
0x051c0…051e0 20 63 6f 72 65 20 69 73 20 70 6f 73 73 69 62 6c 79 20 77 72 69 74 74 65 6e 20 62 61 63 6b 20 69 ┆ core is possibly written back i┆
0x051e0…05200 6e 74 6f 20 74 68 65 0a 73 77 6f 70 61 72 65 61 20 61 6e 64 20 74 68 65 00 00 00 00 00 00 00 00 ┆nto the swoparea and the ┆
0x05200…05206 (41,) (0x450,0xa5)
0x05206…05220 20 69 6d 61 67 65 20 6f 66 20 74 68 65 20 6e 65 77 20 70 72 6f 63 65 73 73 20 ┆ image of the new process ┆
0x05220…05240 69 73 20 6c 6f 61 64 65 64 0a 74 68 65 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 ┆is loaded then one of the follow┆
0x05240…05260 69 6e 67 20 61 63 74 69 6f 6e 73 20 61 72 65 20 74 61 6b 65 6e 20 63 6f 72 72 65 73 70 6f 6e 64 ┆ing actions are taken correspond┆
0x05260…0527e 69 6e 67 20 74 6f 20 74 68 65 20 73 74 61 74 65 20 6f 66 0a 74 68 65 20 73 65 6c 65 63 74 ┆ing to the state of the select┆
0x0527e…05284 (0x450,0xa6)
0x05284…052a0 65 64 20 70 72 6f 63 65 73 73 0a 0a 30 29 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 ┆ed process 0) the process i┆
0x052a0…052c0 73 20 72 65 61 64 79 20 66 6f 72 20 72 75 6e 6e 69 6e 67 20 2d 0a 20 20 20 20 20 6e 6f 20 61 63 ┆s ready for running - no ac┆
0x052c0…052e0 74 69 6f 6e 73 0a 0a 31 29 20 69 6e 70 75 74 20 68 61 73 20 61 72 72 69 76 65 64 20 66 72 6f 6d ┆tions 1) input has arrived from┆
0x052e0…052fc 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 2d 0a 20 20 20 20 20 74 68 65 20 69 6e 70 ┆ the terminal - the inp┆
0x052fc…05302 (0x450,0xa7)
0x05302…05320 75 74 20 69 73 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 74 68 65 20 74 65 72 6d 69 6e 61 6c ┆ut is copied from the terminal┆
0x05320…05340 20 62 75 66 66 65 72 20 69 6e 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 6e 64 0a 20 20 20 ┆ buffer into the process and ┆
0x05340…05360 20 20 61 6e 20 61 6e 73 77 65 72 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 70 72 6f 63 65 ┆ an answer is sent to the proce┆
0x05360…0537a 73 73 0a 0a 32 29 20 74 65 72 6d 69 6e 61 6c 20 68 61 73 20 62 65 63 6f 6d 65 ┆ss 2) terminal has become┆
0x0537a…05380 (0x450,0xa8)
0x05380…053a0 20 72 65 61 64 79 20 61 66 74 65 72 20 6f 75 74 70 75 74 20 28 74 65 72 6d 20 62 75 66 66 65 72 ┆ ready after output (term buffer┆
0x053a0…053c0 20 68 61 73 20 62 65 65 6e 20 66 75 6c 6c 29 0a 20 20 20 20 20 6e 6f 20 61 63 74 69 6f 6e 73 0a ┆ has been full) no actions ┆
0x053c0…053e0 0a 33 29 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 74 6f 20 62 65 20 73 74 61 72 74 65 64 ┆ 3) the process is to be started┆
0x053e0…05400 20 77 69 74 68 20 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 0a 20 20 00 00 00 00 00 00 00 00 ┆ with new abs program ┆
0x05400…05406 (42,) (0x450,0xa9)
0x05406…05420 20 20 20 74 68 65 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e ┆ the process description┆
0x05420…05440 20 69 73 20 6d 6f 64 69 66 69 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 63 6f ┆ is modified according to the co┆
0x05440…05460 6e 76 65 6e 74 69 6f 6e 73 20 66 6f 72 0a 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 61 6e 20 61 ┆nventions for start of an a┆
0x05460…0547e 62 73 20 70 72 6f 67 72 61 6d 0a 3b 0a 0a 0a 0a 62 6f 64 79 20 6f 66 20 70 72 65 70 61 72 ┆bs program ; body of prepar┆
0x0547e…05484 (0x450,0xaa)
0x05484…054a0 65 0a 62 65 67 69 6e 0a 20 20 6c 61 62 65 6c 20 69 6e 70 75 74 72 65 61 64 79 3b 0a ┆e begin label inputready; ┆
0x054a0…054c0 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 77 6f 72 64 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 77 6f ┆ incode word return; wo┆
0x054c0…054e0 72 64 20 63 5f 66 75 6e 63 74 3a 3d 32 27 30 31 31 30 31 3b 0a 20 20 20 20 72 65 66 20 20 63 5f ┆rd c_funct:=2'01101; ref c_┆
0x054e0…054fc 66 69 72 73 74 2c 0a 20 20 20 20 20 20 20 20 20 63 5f 6c 61 73 74 3b 0a 20 20 20 20 ┆first, c_last; ┆
0x054fc…05502 (0x450,0xab)
0x05502…05520 77 6f 72 64 20 63 5f 72 65 6c 3a 3d 30 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 72 65 74 ┆word c_rel:=0; begin ret┆
0x05520…05540 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 ┆urn:=w3; swop(.w3.,w1); ┆
0x05540…05560 63 61 73 65 20 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 2b 31 20 6f 66 0a 20 20 20 20 62 65 67 ┆case w3:=(w1).state+1 of beg┆
0x05560…0557a 69 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 30 3a 20 ┆in begin comment 0: ┆
0x0557a…05580 (0x450,0xac)
0x05580…055a0 6e 6f 20 69 6f 20 6f 72 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 76 69 61 20 70 73 65 75 64 ┆no io or communication via pseud┆
0x055a0…055c0 6f 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 6d ┆o process; if w3:=(w1).m┆
0x055c0…055e0 65 73 73 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 70 75 74 72 65 61 64 79 ┆essgot > 10 then goto inputready┆
0x055e0…05600 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆; end; begin ┆
0x05600…05606 (43,) (0x450,0xad)
0x05606…05620 20 63 6f 6d 6d 65 6e 74 20 31 3a 20 69 6e 70 75 74 20 72 65 61 64 79 3b 0a 69 ┆ comment 1: input ready; i┆
0x05620…05640 6e 70 75 74 72 65 61 64 79 3a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 ┆nputready: w0:=(w1).mess┆
0x05640…05660 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a ┆send; w3:=(w1).messgot; ┆
0x05660…0567e 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 33 29 2e 6f 70 65 72 61 74 69 6f 6e 20 ┆ if w3:=(w3).operation ┆
0x0567e…05684 (0x450,0xae)
0x05684…056a0 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆onemask 1 then if w0┆
0x056a0…056c0 20 6f 72 20 28 77 31 29 2e 73 74 61 74 75 73 69 6e 66 20 6f 72 20 38 27 31 30 32 30 30 30 30 31 ┆ or (w1).statusinf or 8'10200001┆
0x056c0…056e0 20 3c 3e 20 38 27 31 30 32 30 30 30 30 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆ <> 8'10200001 then begi┆
0x056e0…056fc 6e 0a 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 3a 3d 30 29 ┆n swop(.w3.,w1:=0)┆
0x056fc…05702 (0x450,0xaf)
0x05702…05720 3b 0a 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆; !get 2; ┆
0x05720…05740 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 62 2e 64 69 73 63 66 61 75 6c 74 ┆if w0 <> 1 then goto b.discfault┆
0x05740…05760 3b 0a 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 62 2e 75 73 ┆; logout(.w3.,w1:=b.us┆
0x05760…0577a 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆erentry); end; ┆
0x0577a…05780 (0x450,0xb0)
0x05780…057a0 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 70 72 6f 63 62 75 66 31 3c 77 33 3a 3d 62 2e ┆ if w0:=(w1).procbuf1<w3:=b.┆
0x057a0…057c0 66 73 74 63 6f 72 65 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 28 2e 77 33 2e ┆fstcore then unintelligible(.w3.┆
0x057c0…057e0 2c 77 31 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 77 30 2b 28 77 31 29 2e 62 75 66 ┆,w1) else if w0+(w1).buf┆
0x057e0…05800 6c 65 6e 67 74 68 3e 28 77 33 2b 28 77 31 29 2e 70 72 6f 63 73 69 7a 65 00 00 00 00 00 00 00 00 ┆length>(w3+(w1).procsize ┆
0x05800…05806 (44,) (0x450,0xb1)
0x05806…05820 29 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 28 2e 77 33 2e ┆) then unintelligible(.w3.┆
0x05820…05840 2c 77 31 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆,w1) else begin ┆
0x05840…05860 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 63 6f 72 65 75 73 65 72 3b 0a 20 20 20 20 20 20 ┆ w2:=b.coreuser; ┆
0x05860…0587e 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 29 2e 62 75 66 6c 65 6e 67 ┆ copy(.w3.,w0:=(w1).bufleng┆
0x0587e…05884 (0x450,0xb2)
0x05884…058a0 74 68 2c 77 31 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 2c 77 32 3a 3d 28 77 32 29 2e ┆th,w1:=(w1).buffer,w2:=(w2).┆
0x058a0…058c0 70 72 6f 63 62 75 66 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 ┆procbuf1); testout(.w3┆
0x058c0…058e0 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 3a 3d 62 ┆.,w0,w1,w2:=0); (w3:=b┆
0x058e0…058fc 2e 75 73 65 72 65 6e 74 72 79 29 2e 63 75 72 72 6c 6f 63 69 64 3a 3d 77 30 3a 3d 28 ┆.userentry).currlocid:=w0:=(┆
0x058fc…05902 (0x450,0xb3)
0x05902…05920 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 75 73 65 ┆w1).word; w1:= b.use┆
0x05920…05940 72 65 6e 74 72 79 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 ┆rentry; send(.w3.,w0:=┆
0x05940…05960 28 77 31 29 2e 6d 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 ┆(w1).messsend,w1,w2:=(w1).status┆
0x05960…0597a 69 6e 66 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆inf); end; ┆
0x0597a…05980 (0x450,0xb4)
0x05980…059a0 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 20 69 66 20 77 ┆ (w1).state:=w0:=0; if w┆
0x059a0…059c0 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 3e 20 62 2e 62 61 ┆0:=(w1).class+b.timerloss > b.ba┆
0x059c0…059e0 74 63 68 63 6c 61 73 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆tchclass then begin ┆
0x059e0…05a00 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2b 00 00 00 00 00 00 00 00 ┆ if w0:=(w1).class+ ┆
0x05a00…05a06 (45,) (0x450,0xb5)
0x05a06…05a20 62 2e 69 6e 70 75 74 67 61 69 6e 20 3e 20 30 20 74 68 65 6e 20 77 30 3a 3d 30 ┆b.inputgain > 0 then w0:=0┆
0x05a20…05a40 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3b 0a 20 20 20 20 ┆; (w1).class:=w0; ┆
0x05a40…05a60 20 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 20 20 65 6e 64 ┆ (w1).prio:=w0; end┆
0x05a60…05a7e 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 63 6f 6d 6d 65 ┆; end; begin comme┆
0x05a7e…05a84 (0x450,0xb6)
0x05a84…05aa0 6e 74 20 32 3a 20 77 61 69 74 69 6e 67 20 66 6f 72 20 6f 75 74 70 75 74 20 61 6e 73 ┆nt 2: waiting for output ans┆
0x05aa0…05ac0 77 65 72 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 63 6f 6d 6d ┆wer; end; begin comm┆
0x05ac0…05ae0 65 6e 74 20 33 3a 20 77 61 69 74 69 6e 67 20 66 6f 72 20 6c 6f 61 64 69 6e 67 20 77 69 74 68 20 ┆ent 3: waiting for loading with ┆
0x05ae0…05afc 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 77 33 3a ┆new abs program; w3:┆
0x05afc…05b02 (0x450,0xb7)
0x05b02…05b20 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 20 20 20 20 ┆=address(b.procname); ┆
0x05b20…05b40 77 30 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 70 72 5f 6f 75 74 29 3b 0a 20 20 20 20 20 20 ┆w0:=address((w1).pr_out); ┆
0x05b40…05b60 20 20 77 30 2b 62 2e 62 61 73 65 72 65 67 3b 0a 20 20 20 20 20 20 20 20 62 2e 72 65 67 69 73 74 ┆ w0+b.basereg; b.regist┆
0x05b60…05b7a 65 72 32 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 ┆er2:=w0; w0:=addre┆
0x05b7a…05b80 (0x450,0xb8)
0x05b80…05ba0 73 73 28 28 77 31 29 2e 70 72 5f 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 62 2e 72 65 67 69 73 74 ┆ss((w1).pr_in); b.regist┆
0x05ba0…05bc0 65 72 30 3a 3d 77 30 2b 62 2e 62 61 73 65 72 65 67 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 ┆er0:=w0+b.basereg; w2:=(┆
0x05bc0…05be0 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 62 2e 72 65 67 69 73 74 65 72 ┆w1).internal; b.register┆
0x05be0…05c00 33 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 00 00 00 00 00 00 00 00 ┆3:=w2; if w0:=(w ┆
0x05c00…05c06 (46,) (0x450,0xb9)
0x05c06…05c20 31 29 2e 73 74 61 74 65 32 3c 31 0a 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 ┆1).state2<1 then w┆
0x05c20…05c40 30 3a 3d 62 2e 66 73 74 63 6f 72 65 2b 62 2e 66 70 5f 72 65 6c 0a 20 20 20 20 20 20 20 20 65 6c ┆0:=b.fstcore+b.fp_rel el┆
0x05c40…05c60 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆se begin (w1).┆
0x05c60…05c7e 63 6c 61 73 73 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 62 2e ┆class:=w0:=0; w0:=b.┆
0x05c7e…05c84 (0x450,0xba)
0x05c84…05ca0 66 73 74 63 6f 72 65 2b 62 2e 63 6c 65 61 72 74 5f 72 65 6c 3b 0a 20 20 20 20 20 20 ┆fstcore+b.cleart_rel; ┆
0x05ca0…05cc0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 2e 69 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 ┆ end; b.ic:= w0; ┆
0x05cc0…05ce0 20 20 77 32 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 ┆ w2+2; (w3).name1:=f1:=┆
0x05ce0…05cfc 28 77 32 29 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d ┆(w2).name1; (w3).nam┆
0x05cfc…05d02 (0x450,0xbb)
0x05d02…05d20 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 20 20 77 31 ┆e2:=f1:=(w2).name2; w1┆
0x05d20…05d40 3a 3d 61 64 64 72 65 73 73 28 62 2e 72 65 67 69 73 74 65 72 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆:=address(b.register0); ┆
0x05d40…05d60 6d 6f 6e 69 74 6f 72 28 36 32 29 3b 20 20 63 6f 6d 6d 65 6e 74 20 6d 6f 64 69 66 79 20 69 6e 74 ┆monitor(62); comment modify int┆
0x05d60…05d7a 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 77 31 3a ┆ernal process; w1:┆
0x05d7a…05d80 (0x450,0xbc)
0x05d80…05da0 3d 62 2e 63 6f 72 65 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a ┆=b.coreuser; (w1).state:┆
0x05da0…05dc0 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 69 6f 3a 3d 77 30 3b 0a 20 ┆=w0:=0; (w1).prio:=w0; ┆
0x05dc0…05de0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 34 3a 20 73 75 73 70 65 ┆ end; begin ! 4: suspe┆
0x05de0…05e00 6e 64 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 6f 75 74 70 75 74 20 62 00 00 00 00 00 00 00 00 ┆nded because of output b ┆
0x05e00…05e06 (47,) (0x450,0xbd)
0x05e06…05e20 75 66 66 65 72 20 66 75 6c 6c 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆uffer full ! end; ┆
0x05e20…05e40 20 20 20 20 62 65 67 69 6e 20 21 20 35 3a 20 6d 65 73 73 61 67 65 20 77 61 69 74 69 6e 67 20 74 ┆ begin ! 5: message waiting t┆
0x05e40…05e60 6f 20 62 65 20 73 65 6e 64 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 65 67 ┆o be send ! end; beg┆
0x05e60…05e7e 69 6e 20 21 20 36 3a 20 77 61 69 74 69 6e 67 20 66 6f 72 20 61 6e 73 77 65 72 20 66 72 6f ┆in ! 6: waiting for answer fro┆
0x05e7e…05e84 (0x450,0xbe)
0x05e84…05ea0 6d 20 70 72 69 6d 6f 20 21 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 ┆m primo ! startstop(┆
0x05ea0…05ec0 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 63 5f 66 69 72 73 74 3a ┆.w3.,w0:=1,w1); c_first:┆
0x05ec0…05ee0 3d 77 30 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 ┆=w0:=(w1).buffer; w3:=(w┆
0x05ee0…05efc 31 29 2e 62 75 66 6c 65 6e 67 74 68 2d 32 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 63 ┆1).buflength-2+w0; c┆
0x05efc…05f02 (0x450,0xbf)
0x05f02…05f20 5f 6c 61 73 74 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 6d 65 ┆_last:=w3; w2:=(w1).me┆
0x05f20…05f40 73 73 67 6f 74 3b 0a 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 ┆ssgot; w1:=address(c_fun┆
0x05f40…05f60 63 74 29 3b 0a 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 ┆ct); if w3>=w0 then ┆
0x05f60…05f7a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 34 29 20 21 20 67 65 6e 65 72 61 ┆ monitor(84) ! genera┆
0x05f7a…05f80 (0x450,0xc0)
0x05f80…05fa0 6c 20 63 6f 70 79 20 21 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆l copy ! else ┆
0x05fa0…05fc0 77 30 3a 3d 30 3b 0a 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 ┆w0:=0; w1:=b.userentry; ┆
0x05fc0…05fe0 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 28 77 31 29 2e 6d 65 73 73 73 ┆ if w0<>0 then (w1).messs┆
0x05fe0…06000 65 6e 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 00 00 00 00 00 00 00 00 ┆end:=w0; send(.w ┆
0x06000…06006 (48,) (0x450,0xc1)
0x06006…06020 33 2e 2c 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 2c 77 31 2c 77 32 ┆3.,w0:=(w1).messsend,w1,w2┆
0x06020…06040 3a 3d 28 77 31 29 2e 73 74 61 74 75 73 69 6e 66 29 3b 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 ┆:=(w1).statusinf); start┆
0x06040…06060 73 74 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 ┆stop(.w3.,w0:=0,w1); (w1┆
0x06060…0607e 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆).state:=w0:=0; end; ┆
0x0607e…06084 (0x450,0xc2)
0x06084…060a0 20 20 20 62 65 67 69 6e 20 21 20 37 3a 20 6d 65 73 73 61 67 65 20 77 61 69 74 69 6e ┆ begin ! 7: message waitin┆
0x060a0…060c0 67 20 74 6f 20 62 65 20 73 65 6e 64 20 74 6f 20 70 72 69 6d 6f 20 21 0a 20 20 20 20 20 20 65 6e ┆g to be send to primo ! en┆
0x060c0…060e0 64 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 38 3a 20 77 61 69 74 69 6e 67 20 66 6f 72 20 ┆d; begin ! 8: waiting for ┆
0x060e0…060fc 74 65 72 6d 69 6e 61 6c 20 63 6f 6e 74 72 6f 6c 20 61 6e 73 77 65 72 20 21 0a 20 20 ┆terminal control answer ! ┆
0x060fc…06102 (0x450,0xc3)
0x06102…06120 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 3d 72 65 74 75 ┆ end; end; w3:=retu┆
0x06120…06140 72 6e 0a 20 20 65 6e 64 0a 65 6e 64 3b 20 20 20 20 20 21 20 20 70 72 65 70 61 72 65 20 20 21 0a ┆rn end end; ! prepare ! ┆
0x06140…06160 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 20 20 77 61 ┆ comment wa┆
0x06160…0617a 69 74 65 76 65 6e 74 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 61 77 ┆itevent this procedure aw┆
0x0617a…06180 (0x450,0xc4)
0x06180…061a0 61 69 74 73 20 74 68 65 20 66 69 72 73 74 20 65 76 65 6e 74 20 71 75 65 75 65 64 20 75 70 20 74 ┆aits the first event queued up t┆
0x061a0…061c0 6f 20 74 68 65 20 6f 6e 6c 69 6e 65 61 64 6d 69 6e 69 73 74 72 61 74 6f 72 0a 61 63 63 6f 72 64 ┆o the onlineadministrator accord┆
0x061c0…061e0 69 6e 67 20 74 6f 20 74 68 65 20 6b 69 6e 64 20 6f 66 20 74 68 69 73 20 65 76 65 6e 74 20 69 74 ┆ing to the kind of this event it┆
0x061e0…06200 20 70 72 6f 63 65 65 64 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 61 00 00 00 00 00 00 00 00 ┆ proceeds as follows: a ┆
0x06200…06206 (49,) (0x450,0xc5)
0x06206…06220 6e 73 77 65 72 3a 20 61 6e 20 61 6e 73 77 65 72 20 69 73 20 65 78 70 65 63 74 ┆nswer: an answer is expect┆
0x06220…06240 65 64 20 74 6f 20 63 6f 6d 65 20 66 72 6f 6d 20 74 68 65 20 74 69 6d 65 72 20 6f 72 20 66 72 6f ┆ed to come from the timer or fro┆
0x06240…06260 6d 20 61 20 74 65 72 6d 69 6e 61 6c 0a 6c 6f 67 67 65 64 20 69 6e 2c 20 20 73 6f 20 74 68 65 20 ┆m a terminal logged in, so the ┆
0x06260…0627e 75 73 65 72 65 6e 74 72 69 65 73 20 61 72 65 20 73 63 61 6e 6e 65 64 20 74 6f 20 66 69 6e ┆userentries are scanned to fin┆
0x0627e…06284 (0x450,0xc6)
0x06284…062a0 64 20 74 68 65 20 6f 6e 65 20 6d 61 74 63 68 69 6e 67 20 74 68 69 73 0a 6d 65 73 73 ┆d the one matching this mess┆
0x062a0…062c0 61 67 65 20 62 75 66 66 65 72 20 28 74 68 65 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73 65 73 ┆age buffer (the buffer addresses┆
0x062c0…062e0 20 6f 66 20 6d 65 73 73 61 67 65 73 20 73 65 6e 74 20 74 6f 20 74 65 72 6d 69 6e 61 6c 73 20 61 ┆ of messages sent to terminals a┆
0x062e0…062fc 72 65 20 0a 73 61 76 65 64 20 69 6e 20 74 68 65 20 75 73 65 72 65 6e 74 72 69 65 73 ┆re saved in the userentries┆
0x062fc…06302 (0x450,0xc7)
0x06302…06320 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 20 61 6e 64 20 ┆), if no entry is found, and ┆
0x06320…06340 69 74 20 69 73 20 6e 6f 74 20 61 6e 20 61 6e 73 77 65 72 0a 66 72 6f 6d 20 74 68 65 20 74 69 6d ┆it is not an answer from the tim┆
0x06340…06360 65 72 2c 20 74 68 65 6e 20 74 68 65 20 61 6e 73 77 65 72 20 69 73 20 6e 65 67 6c 65 63 74 65 64 ┆er, then the answer is neglected┆
0x06360…0637a 20 61 6e 64 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 61 77 61 69 74 73 20 ┆ and the procedure awaits ┆
0x0637a…06380 (0x450,0xc8)
0x06380…063a0 74 68 65 0a 6e 65 78 74 20 65 76 65 6e 74 2e 0a 0a 6d 65 73 73 61 67 65 3a 20 61 20 6d 65 73 73 ┆the next event. message: a mess┆
0x063a0…063c0 61 67 65 20 69 73 20 65 78 70 65 63 74 65 64 20 74 6f 20 62 65 20 61 6e 20 69 2d 6f 20 6d 65 73 ┆age is expected to be an i-o mes┆
0x063c0…063e0 73 61 67 65 20 6f 72 20 61 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 20 0a 66 72 6f 6d 20 61 ┆sage or a parent message from a┆
0x063e0…06400 6e 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 6f 72 20 61 6e 00 00 00 00 00 00 00 00 ┆n internal process or an ┆
0x06400…06406 (50,) (0x450,0xc9)
0x06406…06420 20 61 74 74 65 6e 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 20 ┆ attention message from a ┆
0x06420…06440 74 65 72 6d 69 6e 61 6c 2e 20 74 68 65 0a 75 73 65 72 65 6e 74 72 69 65 73 20 61 72 65 20 73 63 ┆terminal. the userentries are sc┆
0x06440…06460 61 6e 6e 65 64 20 74 6f 20 66 69 6e 64 20 74 68 65 20 73 65 6e 64 65 72 20 6f 66 20 74 68 65 20 ┆anned to find the sender of the ┆
0x06460…0647e 6d 65 73 73 61 67 65 2e 20 69 66 20 6e 6f 20 65 6e 74 72 79 0a 64 6f 65 73 20 6d 61 74 63 ┆message. if no entry does matc┆
0x0647e…06484 (0x450,0xca)
0x06484…064a0 68 20 74 68 65 20 73 65 6e 64 65 72 20 28 6e 65 69 74 68 65 72 20 69 6e 74 65 72 6e ┆h the sender (neither intern┆
0x064a0…064c0 61 6c 20 6e 6f 72 20 70 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 65 73 73 20 62 65 6c 6f 6e 67 ┆al nor peripheral process belong┆
0x064c0…064e0 69 6e 67 0a 74 6f 20 61 6e 79 20 75 73 65 72 29 20 74 68 65 6e 20 74 68 65 20 6d 65 73 73 61 67 ┆ing to any user) then the messag┆
0x064e0…064fc 65 20 6d 61 79 20 62 65 3a 0a 31 29 20 61 6e 20 61 74 74 65 6e 74 69 6f 6e 20 6d 65 ┆e may be: 1) an attention me┆
0x064fc…06502 (0x450,0xcb)
0x06502…06520 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 6d 69 6e 61 6c ┆ssage from an unknown terminal┆
0x06520…06540 2c 20 74 68 65 20 73 65 6e 64 65 72 20 69 73 20 74 68 65 6e 20 73 61 76 65 64 0a 20 20 20 69 6e ┆, the sender is then saved in┆
0x06540…06560 20 61 20 66 72 65 65 20 75 73 65 72 65 6e 74 72 79 20 28 69 66 20 61 6e 79 29 0a 32 29 20 61 20 ┆ a free userentry (if any) 2) a ┆
0x06560…0657a 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 6e 20 75 6e 6b 6e 6f 77 6e 20 70 72 ┆message from an unknown pr┆
0x0657a…06580 (0x450,0xcc)
0x06580…065a0 6f 63 65 73 73 2c 20 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 72 65 6a 65 63 74 65 64 0a ┆ocess, the message is rejected ┆
0x065a0…065c0 0a 74 68 75 73 20 61 74 20 65 78 69 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 61 6c 77 61 ┆ thus at exit the procedure alwa┆
0x065c0…065e0 79 73 20 64 65 6c 69 76 65 72 73 3a 0a 20 20 20 61 6e 20 65 76 65 6e 74 20 28 77 32 29 0a 20 20 ┆ys delivers: an event (w2) ┆
0x065e0…06600 20 61 20 75 73 65 72 65 6e 74 72 79 20 28 77 31 29 0a 20 20 20 61 6e 20 00 00 00 00 00 00 00 00 ┆ a userentry (w1) an ┆
0x06600…06606 (51,) (0x450,0xcd)
0x06606…06620 65 76 65 6e 74 20 6b 69 6e 64 20 28 77 30 29 20 74 68 65 73 65 20 6b 69 6e 64 ┆event kind (w0) these kind┆
0x06620…06640 73 20 61 72 65 3a 20 20 31 20 3d 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 ┆s are: 1 = input message from i┆
0x06640…06660 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 20 20 20 ┆nternal ┆
0x06660…0667e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 3d 20 6f 75 74 70 75 74 20 6d 65 73 ┆ 2 = output mes┆
0x0667e…06684 (0x450,0xce)
0x06684…066a0 73 61 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 ┆sage from internal ┆
0x066a0…066c0 20 20 20 20 20 20 20 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 ┆ 3┆
0x066c0…066e0 20 3d 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 0a ┆ = parent message from internal ┆
0x066e0…066fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x066fc…06702 (0x450,0xcf)
0x06702…06720 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 20 66 72 6f 6d ┆ 4 = attention from┆
0x06720…06740 20 6b 6e 6f 77 6e 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 ┆ known terminal ┆
0x06740…06760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 20 3d 20 61 6e 73 77 ┆ 5 = answ┆
0x06760…0677a 65 72 20 66 72 6f 6d 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 0a 20 20 20 ┆er from known terminal ┆
0x0677a…06780 (0x450,0xd0)
0x06780…067a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x067a0…067c0 20 20 20 20 20 36 20 3d 20 61 74 74 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 75 6e 6b 6e 6f 77 6e 20 ┆ 6 = attention from unknown ┆
0x067c0…067e0 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 20 ┆terminal ┆
0x067e0…06800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 20 3d 20 61 6e 73 00 00 00 00 00 00 00 00 ┆ 7 = ans ┆
0x06800…06806 (52,) (0x450,0xd1)
0x06806…06820 77 65 72 20 66 72 6f 6d 20 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 ┆wer from timer ┆
0x06820…06840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 20 3d ┆ 8 =┆
0x06840…06860 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 20 62 61 73 74 61 72 64 0a 20 20 20 20 20 20 20 20 ┆ message from a bastard ┆
0x06860…0687e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0687e…06884 (0x450,0xd2)
0x06884…068a0 20 20 39 20 3d 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 73 65 75 64 6f 20 70 72 ┆ 9 = message to a pseudo pr┆
0x068a0…068c0 6f 63 65 73 73 20 28 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ocess (tem) ┆
0x068c0…068e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 20 3d 20 6d 65 73 73 61 67 65 20 ┆ 10 = message ┆
0x068e0…068fc 74 6f 20 62 65 20 73 65 6e 64 20 6c 61 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 ┆to be send later ┆
0x068fc…06902 (0x450,0xd3)
0x06902…06920 20 20 20 20 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 31 ┆ 11┆
0x06920…06940 20 3d 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 28 ┆ = message to a pseudo process (┆
0x06940…06960 70 72 69 6d 6f 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 20 20 ┆primo) ┆
0x06960…0697a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 20 3d 20 6d 65 73 73 61 67 65 ┆ 12 = message┆
0x0697a…06980 (0x450,0xd4)
0x06980…069a0 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 0a 20 20 20 20 20 ┆ to be send later to primo ┆
0x069a0…069c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x069c0…069e0 20 20 31 33 20 3d 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 74 6f 20 74 65 72 6d 69 6e ┆ 13 = control message to termin┆
0x069e0…06a00 61 6c 0a 3b 0a 0c 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 77 61 69 00 00 00 00 00 00 00 00 ┆al ; body of wai ┆
0x06a00…06a06 (53,) (0x450,0xd5)
0x06a06…06a20 74 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 ┆tevent begin lab┆
0x06a20…06a40 65 6c 20 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 ┆el wait,exit,reject; incod┆
0x06a40…06a60 65 0a 20 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 ┆e word save0,savew1,zero┆
0x06a60…06a7e 3a 3d 30 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 ┆:=0; ref return,currme┆
0x06a7e…06a84 (0x450,0xd6)
0x06a84…06aa0 73 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 ┆ss,entryref; begin ┆
0x06aa0…06ac0 20 20 20 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 ┆ return:=w3; wait: w┆
0x06ac0…06ae0 32 3a 3d 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 ┆2:=b.baseevent;; monitor┆
0x06ae0…06afc 28 32 34 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 ┆(24); comment wait first eve┆
0x06afc…06b02 (0x450,0xd7)
0x06b02…06b20 6e 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 ┆nt; currmess:=w2; ┆
0x06b20…06b40 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 69 66 20 77 ┆ w1:=b.lastuser; if w┆
0x06b40…06b60 30 20 3d 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 ┆0 = 1 then comment answer; ┆
0x06b60…06b7a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 ┆ begin (w1).me┆
0x06b7a…06b80 (0x450,0xd8)
0x06b80…06ba0 73 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 64 64 72 65 73 ┆sssend:=w2; w1:=addres┆
0x06ba0…06bc0 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 6f 6e 69 74 6f ┆s(b.interrupt); monito┆
0x06bc0…06be0 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 20 20 20 ┆r(18); comment wait answer; ┆
0x06be0…06c00 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 62 2e 74 69 6d 65 72 6d 65 00 00 00 00 00 00 00 00 ┆ if w2 = b.timerme ┆
0x06c00…06c06 (54,) (0x450,0xd9)
0x06c06…06c20 73 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 ┆ss then begin ┆
0x06c20…06c40 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 62 2e 74 ┆ w0:=0; b.t┆
0x06c40…06c60 69 6d 65 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 ┆imermess:=w0; w0:=7;┆
0x06c60…06c7e 0a 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 20 20 ┆ goto exit; ┆
0x06c7e…06c84 (0x450,0xda)
0x06c84…06ca0 20 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 ┆ end; w1:=b.fir┆
0x06ca0…06cc0 73 74 75 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 ┆stuser; while w2 <> (w┆
0x06cc0…06ce0 31 29 2e 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 ┆1).messsend do w1+!length(useren┆
0x06ce0…06cfc 74 72 79 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 ┆try); if w1 = b.la┆
0x06cfc…06d02 (0x450,0xdb)
0x06d02…06d20 73 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 ┆stuser then ! answer from unk┆
0x06d20…06d40 6e 6f 77 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 ┆nown is neglected ! be┆
0x06d40…06d60 67 69 6e 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 ┆gin testout(.w3.,w0:┆
0x06d60…06d7a 3d 32 34 2c 77 31 3a 3d 63 75 72 72 6d 65 73 73 2c 77 32 3a 3d 36 29 3b 0a 20 ┆=24,w1:=currmess,w2:=6); ┆
0x06d7a…06d80 (0x450,0xdc)
0x06d80…06da0 20 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 20 20 20 20 20 ┆ goto wait; ┆
0x06da0…06dc0 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 64 3a 3d 77 30 ┆end; (w1).messsend:=w0┆
0x06dc0…06de0 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆; if w0=1 then ┆
0x06de0…06e00 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 00 00 00 00 00 00 00 00 ┆ begin w3: ┆
0x06e00…06e06 (55,) (0x450,0xdd)
0x06e06…06e20 3d 20 61 64 64 72 65 73 73 28 62 2e 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 ┆= address(b.interrupt); ┆
0x06e20…06e40 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 62 79 74 65 73 3b 28 77 31 29 2e 62 ┆ w0:= (w3).bytes;(w1).b┆
0x06e40…06e60 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 20 20 77 30 3a 3d 20 ┆uflength:= w0; w0:= ┆
0x06e60…06e7e 28 77 33 29 2e 63 68 61 72 61 63 74 65 72 73 3b 28 77 31 29 2e 62 75 66 63 68 61 72 73 3a ┆(w3).characters;(w1).bufchars:┆
0x06e7e…06e84 (0x450,0xde)
0x06e84…06ea0 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 ┆= w0; end else ┆
0x06ea0…06ec0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 34 3b ┆ begin w0:= 4;┆
0x06ec0…06ee0 0a 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 20 77 30 ┆ (w1).buflength:= w0┆
0x06ee0…06efc 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 36 3b 0a 20 20 20 20 20 20 ┆; w0:= 6; ┆
0x06efc…06f02 (0x450,0xdf)
0x06f02…06f20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 63 68 61 72 73 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆ (w1).bufchars:= w0; ┆
0x06f20…06f40 20 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 73 74 61 74 75 73 ┆ end; (w1).status┆
0x06f40…06f60 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 20 20 ┆inf:=w0:=(w3).status; ┆
0x06f60…06f7a 77 30 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 ┆w0:=5; goto exit┆
0x06f7a…06f80 (0x450,0xe0)
0x06f80…06fa0 3b 0a 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 62 65 67 69 6e ┆; end else begin┆
0x06fa0…06fc0 20 63 6f 6d 6d 65 6e 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ comment message; if w┆
0x06fc0…06fe0 30 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆0:=(w2).operation<0 then ┆
0x06fe0…07000 20 20 20 62 65 67 69 6e 20 21 20 73 6b 69 70 20 69 66 20 64 75 6d 6d 79 00 00 00 00 00 00 00 00 ┆ begin ! skip if dummy ┆
0x07000…07006 (56,) (0x450,0xe1)
0x07006…07020 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 20 ┆ message from term.module ┆
0x07020…07040 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 6d ┆! w3:= address(b.t_m┆
0x07040…07060 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 20 ┆dul); monitor(4); ! ┆
0x07060…0707e 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 ┆process description ! ┆
0x0707e…07084 (0x450,0xe2)
0x07084…070a0 20 20 20 20 69 66 20 77 30 3d 28 77 32 29 2e 73 65 6e 64 65 72 20 74 68 65 6e 0a 20 ┆ if w0=(w2).sender then ┆
0x070a0…070c0 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 62 ┆ begin b┆
0x070c0…070e0 2e 62 61 73 65 65 76 65 6e 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆.baseevent:= w2; t┆
0x070e0…070fc 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 34 2c 77 31 3a 3d 63 75 72 72 6d ┆estout(.w3.,w0:=24,w1:=currm┆
0x070fc…07102 (0x450,0xe3)
0x07102…07120 65 73 73 2c 77 32 3a 3d 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆ess,w2:=6); goto┆
0x07120…07140 20 77 61 69 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 20 ┆ wait; end; ┆
0x07140…07160 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 36 29 3b 20 20 63 ┆ end; monitor(26); c┆
0x07160…0717a 6f 6d 6d 65 6e 74 20 67 65 74 20 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 ┆omment get event; ┆
0x0717a…07180 (0x450,0xe4)
0x07180…071a0 20 20 77 33 3a 3d 28 77 32 29 2e 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆ w3:=(w2).sender; (w1┆
0x071a0…071c0 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 ┆).internal:=w3; (w1).p┆
0x071c0…071e0 65 72 69 70 68 65 72 61 6c 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 66 ┆eripheral:=w3; w1:=b.f┆
0x071e0…07200 69 72 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 00 00 00 00 00 00 00 00 ┆irstuser; whil ┆
0x07200…07206 (57,) (0x450,0xe5)
0x07206…07220 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 2b ┆e w3<>(w1).internal do w1+┆
0x07220…07240 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 66 ┆!length(userentry); if┆
0x07240…07260 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 64 ┆ w1=b.lastuser then comment send┆
0x07260…0727e 65 72 20 69 73 20 6e 6f 74 20 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆er is not child; beg┆
0x0727e…07284 (0x450,0xe6)
0x07284…072a0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 6f ┆in if w0:=(w2).o┆
0x072a0…072c0 70 65 72 61 74 69 6f 6e 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆peration<>0 then be┆
0x072c0…072e0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 35 30 3b 0a 20 20 20 20 20 20 20 ┆gin w3+50; ┆
0x072e0…072fc 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 77 6f 72 64 20 3d 20 62 2e ┆ if w0:=(w3).word = b.┆
0x072fc…07302 (0x450,0xe7)
0x07302…07320 6f 77 6e 70 72 6f 63 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ownproc then beg┆
0x07320…07340 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 38 3b 0a 20 20 20 20 20 20 ┆in w0:=8; ┆
0x07340…07360 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; ┆
0x07360…0737a 20 20 20 65 6e 64 20 65 6c 73 65 20 67 6f 74 6f 20 72 65 6a 65 63 74 3b 0a 20 ┆ end else goto reject; ┆
0x0737a…07380 (0x450,0xe8)
0x07380…073a0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆ end; w1:=┆
0x073a0…073c0 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 77 68 69 6c 65 20 77 ┆b.firstuser; while w┆
0x073c0…073e0 33 3c 3e 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 20 64 6f 20 77 31 2b 21 6c 65 6e 67 74 68 ┆3<>(w1).peripheral do w1+!length┆
0x073e0…07400 28 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆(userentry); ┆
0x07400…07406 (58,) (0x450,0xe9)
0x07406…07420 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 6d ┆ if w1<b.lastuser then com┆
0x07420…07440 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 20 ┆ment the terminal is known; ┆
0x07440…07460 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 77 ┆ begin if w┆
0x07460…0747e 33 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3e 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆3:=(w1).messgot>10 then ┆
0x0747e…07484 (0x450,0xea)
0x07484…074a0 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 ┆
0x074a0…074c0 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 20 20 20 ┆ (w1).buflength:=w2:=0; ┆
0x074c0…074e0 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 3b ┆ send(.w3.,w0:=1,w1,w2);┆
0x074e0…074fc 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 ┆ end; ┆
0x074fc…07502 (0x450,0xeb)
0x07502…07520 20 20 20 20 20 20 77 30 3a 3d 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆ w0:=4; end ┆
0x07520…07540 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 63 6f 6d 6d 65 6e 74 20 61 74 74 65 6e 74 69 6f ┆ else comment attentio┆
0x07540…07560 6e 20 66 72 6f 6d 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 3b 0a 20 20 20 20 20 20 20 ┆n from unknown terminal; ┆
0x07560…0757a 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 ┆ begin w┆
0x0757a…07580 (0x450,0xec)
0x07580…075a0 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 65 72 69 70 68 65 ┆0:=0; (w1).periphe┆
0x075a0…075c0 72 61 6c 3a 3d 77 30 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 ┆ral:=w0; w1:=b.fir┆
0x075c0…075e0 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e ┆stuser; while w0<>┆
0x075e0…07600 28 77 31 29 2e 70 65 72 69 70 68 65 72 61 6c 20 64 6f 20 77 31 2b 21 6c 00 00 00 00 00 00 00 00 ┆(w1).peripheral do w1+!l ┆
0x07600…07606 (59,) (0x450,0xed)
0x07606…07620 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 ┆ength(userentry); ┆
0x07620…07640 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 65 ┆ if w3<0 then w1:=b.lastuse┆
0x07640…07660 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 65 ┆r; if w1=b.lastuse┆
0x07660…0767e 72 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 72 65 ┆r then begin re┆
0x0767e…07684 (0x450,0xee)
0x07684…076a0 6a 65 63 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d ┆ject: (w1).m┆
0x076a0…076c0 65 73 73 67 6f 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆essgot:=w2; (w1)┆
0x076c0…076e0 2e 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 ┆.buflength:=w2:=0; ┆
0x076e0…076fc 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 29 3b 0a 20 ┆ send(.w3.,w0:=2,w1,w2); ┆
0x076fc…07702 (0x450,0xef)
0x07702…07720 20 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 20 20 20 20 ┆ goto wait; ┆
0x07720…07740 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 28 77 31 ┆ end; (w1┆
0x07740…07760 29 2e 69 6e 74 65 72 6e 61 6c 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆).internal:=w3; (w┆
0x07760…0777a 31 29 2e 70 65 72 69 70 68 65 72 61 6c 3a 3d 77 33 3b 20 63 6f 6d 6d 65 6e 74 ┆1).peripheral:=w3; comment┆
0x0777a…07780 (0x450,0xf0)
0x07780…077a0 20 6c 69 6e 6b 20 74 65 72 6d 69 6e 61 6c 20 74 6f 20 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 ┆ link terminal to entry; ┆
0x077a0…077c0 20 20 20 20 20 20 20 77 30 3a 3d 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ w0:=6; end; ┆
0x077c0…077e0 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 3a 3d 77 32 3a 3d 63 75 72 ┆ (w1).messgot:=w2:=cur┆
0x077e0…07800 72 6d 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 00 00 00 00 00 00 00 00 ┆rmess; goto ┆
0x07800…07806 (60,) (0x450,0xf1)
0x07806…07820 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 20 ┆exit; end ┆
0x07820…07840 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 6c ┆ else comment sender=internal┆
0x07840…07860 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 66 ┆; begin if┆
0x07860…0787e 20 77 33 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3e 31 30 20 74 68 65 6e 0a 20 20 20 20 ┆ w3:=(w1).messgot>10 then ┆
0x0787e…07884 (0x450,0xf2)
0x07884…078a0 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 ┆
0x078a0…078c0 77 30 3a 3d 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 32 32 29 ┆w0:=2; monitor(22)┆
0x078c0…078e0 3b 20 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 2d 20 72 65 6a 65 63 74 20 21 0a 20 20 20 20 ┆; ! send answer - reject ! ┆
0x078e0…078fc 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 20 20 ┆ goto wait; ┆
0x078fc…07902 (0x450,0xf3)
0x07902…07920 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d ┆ end; savew1:=┆
0x07920…07940 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 ┆w1; w1:=(w1).interna┆
0x07940…07960 6c 2b 37 36 3b 0a 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 ┆l+76; f1:=(w1).doubl┆
0x07960…0797a 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 ┆e; w3:=address┆
0x0797a…07980 (0x450,0xf4)
0x07980…079a0 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 37 32 29 3b ┆(zero); monitor(72);┆
0x079a0…079c0 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 66 20 63 ┆ ! set catalog base to that of c┆
0x079c0…079e0 68 69 6c 64 20 21 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 ┆hild ! w3:=address(b┆
0x079e0…07a00 2e 70 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 00 00 00 00 00 00 00 00 ┆.p_mdul); mo ┆
0x07a00…07a06 (61,) (0x450,0xf5)
0x07a06…07a20 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 69 ┆nitor(4); ! process descri┆
0x07a20…07a40 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 0a ┆ption of primo pseudo process ! ┆
0x07a40…07a60 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 20 ┆ w1:=savew1; ┆
0x07a60…07a7e 20 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 ┆ (w1).messgot:=w2; ┆
0x07a7e…07a84 (0x450,0xf6)
0x07a84…07aa0 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 20 3e 20 31 ┆ if w3:=(w1).messsend > 1┆
0x07aa0…07ac0 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 ┆
0x07ac0…07ae0 20 20 20 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 77 30 3d 30 ┆ if w3:=(w2).receiver+w0=0┆
0x07ae0…07afc 20 74 68 65 6e 20 77 30 3a 3d 31 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ then w0:=12 ┆
0x07afc…07b02 (0x450,0xf7)
0x07b02…07b20 20 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 ┆ else ┆
0x07b20…07b40 77 30 3a 3d 31 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆w0:=10 end ┆
0x07b40…07b60 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 32 29 2e ┆ else if w3:=(w2).┆
0x07b60…07b7a 72 65 63 65 69 76 65 72 2b 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆receiver+w0=0 then ┆
0x07b7a…07b80 (0x450,0xf8)
0x07b80…07ba0 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 69 66 20 77 30 3a ┆ begin if w0:┆
0x07ba0…07bc0 3d 37 20 3c 3e 20 77 33 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 74 68 65 6e 20 21 20 ┆=7 <> w3:=(w2).operation then ! ┆
0x07bc0…07be0 72 65 6a 65 63 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆reject ! begin ┆
0x07be0…07c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 32 3b 0a 20 00 00 00 00 00 00 00 00 ┆ w0:=2; ┆
0x07c00…07c06 (62,) (0x450,0xf9)
0x07c06…07c20 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 73 ┆ (w1).mess┆
0x07c20…07c40 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 74 ┆got:=w0; monit┆
0x07c40…07c60 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 20 ┆or(22); ! send answer ! ┆
0x07c60…07c7e 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 20 20 20 20 ┆ goto wait; ┆
0x07c7e…07c84 (0x450,0xfa)
0x07c84…07ca0 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 30 3a 3d 31 31 0a 20 20 20 20 20 20 ┆ end else w0:=11 ┆
0x07ca0…07cc0 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 69 66 20 77 33 ┆ end else if w3┆
0x07cc0…07ce0 3a 3d 20 28 77 32 29 2e 72 65 63 65 69 76 65 72 2b 62 2e 6f 77 6e 70 72 6f 63 20 3d 20 30 20 74 ┆:= (w2).receiver+b.ownproc = 0 t┆
0x07ce0…07cfc 68 65 6e 20 77 30 3a 3d 20 33 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆hen w0:= 3 else ┆
0x07cfc…07d02 (0x450,0xfb)
0x07d02…07d20 69 66 20 77 33 3a 3d 20 28 77 32 29 2e 72 65 63 65 69 76 65 72 2b 62 2e 73 6f 73 74 65 72 ┆if w3:= (w2).receiver+b.soster┆
0x07d20…07d40 6d 20 3d 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 ┆m = 0 then begin ┆
0x07d40…07d60 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 20 28 77 32 29 2e 6f 70 65 72 61 74 69 6f ┆ if w3:= (w2).operatio┆
0x07d60…07d7a 6e 20 3d 20 33 20 74 68 65 6e 20 77 30 3a 3d 20 31 20 65 6c 73 65 0a 20 20 20 ┆n = 3 then w0:= 1 else ┆
0x07d7a…07d80 (0x450,0xfc)
0x07d80…07da0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 3d 20 35 20 74 68 65 6e 20 77 30 3a 3d 20 32 ┆ if w3 = 5 then w0:= 2┆
0x07da0…07dc0 20 65 6c 73 65 20 77 30 3a 3d 20 31 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆ else w0:= 13; end e┆
0x07dc0…07de0 6c 73 65 20 77 30 3a 3d 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆lse w0:= 9; end; ┆
0x07de0…07e00 20 20 20 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆ end; exit: en ┆
0x07e00…07e06 (63,) (0x450,0xfd)
0x07e06…07e20 74 72 79 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 62 2e 75 73 65 72 ┆tryref:=w1; b.user┆
0x07e20…07e40 65 6e 74 72 79 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 30 3a 3d 77 30 3b 0a 20 20 ┆entry:=w1; save0:=w0; ┆
0x07e40…07e60 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 20 20 20 20 74 65 73 74 6f 75 74 20 28 2e 77 33 2e ┆ comment * testout (.w3.┆
0x07e60…07e7e 2c 20 77 30 3a 3d 21 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 2c 20 77 31 3a 3d ┆, w0:=!length(userentry), w1:=┆
0x07e7e…07e84 (0x450,0xfe)
0x07e84…07ea0 65 6e 74 72 79 72 65 66 2c 20 77 32 3a 3d 36 38 29 3b 0a 20 20 20 20 20 20 20 20 63 ┆entryref, w2:=68); c┆
0x07ea0…07ec0 6f 6d 6d 65 6e 74 20 2a 3b 20 20 20 74 65 73 74 6f 75 74 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 31 ┆omment *; testout (.w3., w0:=1┆
0x07ec0…07ee0 32 2c 20 77 31 3a 3d 61 64 64 72 65 73 73 28 73 61 76 65 30 29 2c 20 77 32 3a 3d 32 36 29 3b 0a ┆2, w1:=address(save0), w2:=26); ┆
0x07ee0…07efc 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 ┆ testout(.w3.,w0:=24,┆
0x07efc…07f02 (0x450,0xff)
0x07f02…07f20 77 31 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 66 ┆w1:=currmess,w2:=6); f┆
0x07f20…07f40 31 3a 3d 62 2e 73 74 61 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 ┆1:=b.startbase; w3:=addr┆
0x07f40…07f60 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 ┆ess(zero); monitor(72); ┆
0x07f60…07f7a 21 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 ┆! reset catalog base ! ┆
0x07f7a…07f80 (0x450,0x100)
0x07f80…07fa0 20 20 20 20 20 77 30 3a 3d 73 61 76 65 30 3b 20 77 31 3a 3d 65 6e 74 72 79 72 65 66 3b 20 77 32 ┆ w0:=save0; w1:=entryref; w2┆
0x07fa0…07fc0 3a 3d 63 75 72 72 6d 65 73 73 3b 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e ┆:=currmess; w3:=return; en┆
0x07fc0…07fe0 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 77 61 69 74 65 76 65 6e 74 20 20 21 0a ┆d; end; ! waitevent ! ┆
0x07fe0…08000 20 0c 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 73 65 6e 64 5f 63 00 00 00 00 00 00 00 00 ┆ comment send_c ┆
0x08000…08006 (64,) (0x450,0x101)
0x08006…08020 6f 6e 74 72 6f 6c 20 28 75 73 65 72 65 6e 74 72 79 2c 20 6d 65 73 73 61 67 65 ┆ontrol (userentry, message┆
0x08020…08040 29 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 73 20 61 20 63 6f 6e 74 72 6f ┆) this procedure sends a contro┆
0x08040…08060 6c 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 65 20 75 73 65 72 20 74 65 72 6d 69 6e 61 6c 0a 28 ┆l message to the user terminal (┆
0x08060…0807e 67 65 74 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 73 2c 20 73 65 74 20 73 70 65 63 69 66 ┆get specifications, set specif┆
0x0807e…08084 (0x450,0x102)
0x08084…080a0 69 63 61 74 69 6f 6e 73 29 20 61 6e 64 20 73 65 74 73 20 6c 6f 63 61 6c 69 64 20 69 ┆ications) and sets localid i┆
0x080a0…080c0 6e 20 74 68 65 0a 6d 65 73 73 61 67 65 20 69 6e 20 63 61 73 65 20 74 68 65 20 74 65 72 6d 69 6e ┆n the message in case the termin┆
0x080c0…080e0 61 6c 20 69 73 20 72 75 6e 20 62 79 20 74 65 6d 3b 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 ┆al is run by tem; body ┆
0x080e0…080fc 6f 66 20 73 65 6e 64 5f 63 6f 6e 74 72 6f 6c 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆of send_control begi┆
0x080fc…08102 (0x450,0x103)
0x08102…08120 6e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 63 6f 64 65 20 77 6f 72 64 20 6d 65 73 73 30 2c ┆n incode word mess0,┆
0x08120…08140 20 6d 65 73 73 32 2c 20 6d 65 73 73 34 2c 20 6d 65 73 73 36 2c 20 6d 65 73 73 38 2c 20 6d 65 73 ┆ mess2, mess4, mess6, mess8, mes┆
0x08140…08160 73 31 30 2c 20 6d 65 73 73 31 32 2c 20 6d 65 73 73 31 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆s10, mess12, mess14; ┆
0x08160…0817a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 20 73 61 76 65 66 ┆ double savef1, savef┆
0x0817a…08180 (0x450,0x104)
0x08180…081a0 33 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 73 ┆3; begin s┆
0x081a0…081c0 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d ┆avef1:= f1; savef3:=┆
0x081c0…081e0 20 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 20 28 2e 77 33 2e 2c 77 30 3a 3d ┆ f3; copy (.w3.,w0:=┆
0x081e0…08200 20 31 36 2c 20 77 31 3a 3d 20 77 32 2b 38 2c 20 77 32 3a 3d 20 61 64 64 00 00 00 00 00 00 00 00 ┆ 16, w1:= w2+8, w2:= add ┆
0x08200…08206 (65,) (0x450,0x105)
0x08206…08220 72 65 73 73 28 6d 65 73 73 30 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ress(mess0)); ┆
0x08220…08240 66 31 3a 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 20 28 77 ┆f1:= savef1; w2:= (w┆
0x08240…08260 31 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 69 66 20 77 32 ┆1).peripheral; if w2┆
0x08260…0827e 20 3c 20 30 20 74 68 65 6e 20 2d 28 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ < 0 then -(w2); w┆
0x0827e…08284 (0x450,0x106)
0x08284…082a0 32 2b 32 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 ┆2+2; w3:= addres┆
0x082a0…082c0 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆s(b.procname); (w3).┆
0x082c0…082e0 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 20 20 20 20 20 ┆name1:= f1:= (w2).name1; ┆
0x082e0…082fc 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 32 3a 3d 20 66 31 3a 3d 20 28 77 32 29 2e ┆ (w3).name2:= f1:= (w2).┆
0x082fc…08302 (0x450,0x107)
0x08302…08320 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 31 30 3a 3d 20 77 30 ┆name2; mess10:= w0┆
0x08320…08340 3a 3d 20 30 3b 20 21 20 73 65 74 20 6c 6f 63 61 6c 20 69 64 20 28 30 29 20 66 6f 72 20 74 65 6d ┆:= 0; ! set local id (0) for tem┆
0x08340…08360 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6d 65 73 73 ┆ ! w1:= address(mess┆
0x08360…0837a 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 ┆0); monitor (1┆
0x0837a…08380 (0x450,0x108)
0x08380…083a0 36 29 3b 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 20 ┆6); ! send message ! ┆
0x083a0…083c0 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d ┆ f1:= savef1; (w1).m┆
0x083c0…083e0 65 73 73 73 65 6e 64 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 ┆esssend:= w2; testou┆
0x083e0…08400 74 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 20 31 36 2c 20 77 31 3a 3d 20 61 00 00 00 00 00 00 00 00 ┆t (.w3., w0:= 16, w1:= a ┆
0x08400…08406 (66,) (0x450,0x109)
0x08406…08420 64 64 72 65 73 73 28 6d 65 73 73 30 29 2c 20 77 32 3a 3d 20 32 29 3b 0a 20 20 ┆ddress(mess0), w2:= 2); ┆
0x08420…08440 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ f1:= savef1; ┆
0x08440…08460 20 20 20 66 33 3a 3d 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ f3:= savef3; end; ┆
0x08460…0847e 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 65 6e 64 20 63 6f 6e 74 72 6f 6c 20 21 0a 0a ┆ end; ! send control ! ┆
0x0847e…08484 (0x450,0x10a)
0x08484…084a0 0c 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 ┆ comment ┆
0x084a0…084c0 6c 69 6e 6b 20 28 75 73 65 72 65 6e 74 72 79 29 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 ┆link (userentry) this procedure┆
0x084c0…084e0 20 6c 69 6e 6b 73 20 6f 66 66 20 74 68 65 20 75 73 65 72 65 6e 74 72 79 20 70 6f 69 6e 74 65 64 ┆ links off the userentry pointed┆
0x084e0…084fc 20 6f 75 74 20 62 79 20 77 31 20 66 72 6f 6d 20 77 68 65 72 65 76 65 72 20 69 74 0a ┆ out by w1 from wherever it ┆
0x084fc…08502 (0x450,0x10b)
0x08502…08520 69 74 20 69 73 20 63 68 61 69 6e 65 64 20 75 70 2c 20 61 6e 64 20 74 68 65 6e 20 6c 69 6e ┆it is chained up, and then lin┆
0x08520…08540 6b 73 20 69 74 20 75 70 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 61 66 74 65 72 20 74 68 65 20 75 ┆ks it up immediately after the u┆
0x08540…08560 73 65 72 65 6e 74 72 79 20 70 6f 69 6e 74 65 64 0a 6f 75 74 20 62 79 20 77 32 2e 20 20 74 68 65 ┆serentry pointed out by w2. the┆
0x08560…0857a 20 68 65 61 64 73 20 6f 66 20 74 68 65 20 71 75 65 75 65 73 20 28 61 63 74 69 ┆ heads of the queues (acti┆
0x0857a…08580 (0x450,0x10c)
0x08580…085a0 76 65 2d 20 61 6e 64 20 77 61 69 74 69 6e 67 2d 71 75 65 75 65 29 20 61 72 65 20 6f 66 20 74 68 ┆ve- and waiting-queue) are of th┆
0x085a0…085c0 65 0a 73 61 6d 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 ┆e same format as the chainelemen┆
0x085c0…085e0 74 73 20 69 6e 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 ┆ts in the userentries so that th┆
0x085e0…08600 65 20 63 68 61 69 6e 68 65 61 64 73 0a 6d 61 79 20 62 65 20 75 73 65 64 00 00 00 00 00 00 00 00 ┆e chainheads may be used ┆
0x08600…08606 (67,) (0x450,0x10d)
0x08606…08620 20 6a 75 73 74 20 6c 69 6b 65 20 6f 74 68 65 72 20 65 6c 65 6d 65 6e 74 73 20 ┆ just like other elements ┆
0x08620…08640 69 6e 20 74 68 65 20 63 68 61 69 6e 73 2e 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 6c ┆in the chains. ; body of l┆
0x08640…08660 69 6e 6b 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 ┆ink begin incode ┆
0x08660…0867e 20 20 20 64 6f 75 62 6c 65 20 77 30 31 2c 20 77 32 33 3b 0a 20 20 20 20 20 20 62 65 67 69 ┆ double w01, w23; begi┆
0x0867e…08684 (0x450,0x10e)
0x08684…086a0 6e 0a 20 20 20 20 20 20 20 20 77 30 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 77 ┆n w01:=f1; w┆
0x086a0…086c0 32 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b 20 6f 66 66 ┆23:=f3; comment link off┆
0x086c0…086e0 20 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 70 72 65 ┆ userentry; w3:=(w1).pre┆
0x086e0…086fc 76 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 65 78 74 75 73 65 72 ┆vuser; (w3).nextuser┆
0x086fc…08702 (0x450,0x10f)
0x08702…08720 3a 3d 77 30 3a 3d 28 77 31 29 2e 6e 65 78 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 77 ┆:=w0:=(w1).nextuser; w┆
0x08720…08740 33 3a 3d 28 77 31 29 2e 6e 65 78 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 ┆3:=(w1).nextuser; (w3).p┆
0x08740…08760 72 65 76 75 73 65 72 3a 3d 77 30 3a 3d 28 77 31 29 2e 70 72 65 76 75 73 65 72 3b 0a 20 20 20 20 ┆revuser:=w0:=(w1).prevuser; ┆
0x08760…0877a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b 20 75 73 65 72 65 6e 74 72 79 ┆ comment link userentry┆
0x0877a…08780 (0x450,0x110)
0x08780…087a0 28 77 31 29 20 61 66 74 65 72 20 75 73 65 72 65 6e 74 72 79 28 77 32 29 3b 0a 20 20 20 20 20 20 ┆(w1) after userentry(w2); ┆
0x087a0…087c0 20 20 28 77 31 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 ┆ (w1).prevuser:=w3:=(w2).prevus┆
0x087c0…087e0 65 72 3b 0a 20 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 ┆er; (w1).nextuser:=w0:=(┆
0x087e0…08800 77 33 29 2e 6e 65 78 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 00 00 00 00 00 00 00 00 ┆w3).nextuser; (w ┆
0x08800…08806 (68,) (0x450,0x111)
0x08806…08820 32 29 2e 70 72 65 76 75 73 65 72 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 28 ┆2).prevuser:=w1; (┆
0x08820…08840 77 33 29 2e 6e 65 78 74 75 73 65 72 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆w3).nextuser:=w1; commen┆
0x08840…08860 74 20 2a 20 20 20 74 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 ┆t * testout (.w3., w0:=20, w1:┆
0x08860…0887e 3d 61 64 64 72 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 ┆=address(b.activqfst), w2:=9);┆
0x0887e…08884 (0x450,0x112)
0x08884…088a0 0a 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 66 33 ┆ f1:=w01; f3┆
0x088a0…088c0 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 3b 20 20 20 20 20 21 ┆:=w23; end; end; !┆
0x088c0…088e0 20 20 6c 69 6e 6b 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 ┆ link ! comment ┆
0x088e0…088fc 20 20 63 6f 70 79 20 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6a 75 73 74 ┆ copy this procedure just┆
0x088fc…08902 (0x450,0x113)
0x08902…08920 20 6d 6f 76 65 73 20 77 30 20 62 79 74 65 73 20 66 72 6f 6d 20 74 68 65 20 61 64 64 72 65 ┆ moves w0 bytes from the addre┆
0x08920…08940 73 73 20 6f 66 20 77 31 20 28 61 6e 64 20 6f 6e 77 61 72 64 73 29 20 74 6f 0a 74 68 65 20 61 64 ┆ss of w1 (and onwards) to the ad┆
0x08940…08960 64 72 65 73 73 20 6f 66 20 77 32 20 28 61 6e 64 20 6f 6e 77 61 72 64 73 29 0a 3b 0a 0a 0a 20 20 ┆dress of w2 (and onwards) ; ┆
0x08960…0897a 20 20 62 6f 64 79 20 6f 66 20 63 6f 70 79 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆ body of copy begin ┆
0x0897a…08980 (0x450,0x114)
0x08980…089a0 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 2c 77 ┆ incode double w01,w┆
0x089a0…089c0 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 30 31 3a 3d 66 31 3b ┆23; begin w01:=f1;┆
0x089c0…089e0 20 77 32 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 ┆ w23:=f3; w3:=w1+w0; ┆
0x089e0…08a00 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 77 33 20 64 6f 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ while w1<w3 do ┆
0x08a00…08a06 (69,) (0x450,0x115)
0x08a06…08a20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 ┆ begin (w2).w┆
0x08a20…08a40 6f 72 64 3a 3d 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 ┆ord:=w0:=(w1).word; w1┆
0x08a40…08a60 2b 32 3b 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 ┆+2; w2+2; end; f┆
0x08a60…08a7e 31 3a 3d 77 30 31 3b 20 66 33 3a 3d 77 32 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆1:=w01; f3:=w23; end; ┆
0x08a7e…08a84 (0x450,0x116)
0x08a84…08aa0 20 20 65 6e 64 3b 0a 0c 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 ┆ end; comment ┆
0x08aa0…08ac0 20 20 20 20 20 20 20 73 77 6f 70 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6d 61 6b 65 ┆ swop this procedure make┆
0x08ac0…08ae0 73 20 73 75 72 65 2c 20 74 68 61 74 20 74 68 65 20 63 6f 72 65 20 69 6d 61 67 65 20 6f 66 20 74 ┆s sure, that the core image of t┆
0x08ae0…08afc 68 65 20 75 73 65 72 65 6e 74 72 79 20 70 6f 69 6e 74 65 64 0a 6f 75 74 20 62 79 20 ┆he userentry pointed out by ┆
0x08afc…08b02 (0x450,0x117)
0x08b02…08b20 77 31 20 69 73 20 62 72 6f 75 67 68 74 20 69 6e 74 6f 20 63 6f 72 65 20 28 69 66 20 69 74 ┆w1 is brought into core (if it┆
0x08b20…08b40 20 77 61 73 20 6e 6f 74 20 74 68 65 72 65 20 61 6c 72 65 61 64 79 29 2e 20 69 66 20 74 68 65 20 ┆ was not there already). if the ┆
0x08b40…08b60 73 74 61 74 65 0a 69 73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 73 74 61 72 74 20 77 69 74 68 20 ┆state is waiting for start with ┆
0x08b60…08b7a 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 2c 20 73 77 6f 70 20 6c 6f 61 64 ┆new abs program, swop load┆
0x08b7a…08b80 (0x450,0x118)
0x08b80…08ba0 73 20 61 20 70 72 6f 63 65 73 73 20 69 6d 61 67 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 0a 6e ┆s a process image containing a n┆
0x08ba0…08bc0 65 77 20 61 62 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 ┆ew abs program. if the process ┆
0x08bc0…08be0 77 61 73 20 69 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 ┆was in core already and there is┆
0x08be0…08c00 20 6e 6f 74 20 61 73 6b 65 64 20 66 6f 72 20 61 0a 6e 65 77 20 61 62 73 00 00 00 00 00 00 00 00 ┆ not asked for a new abs ┆
0x08c00…08c06 (70,) (0x450,0x119)
0x08c06…08c20 20 70 72 6f 67 72 61 6d 20 2d 20 74 68 65 6e 20 6e 6f 74 68 69 6e 67 20 69 73 ┆ program - then nothing is┆
0x08c20…08c40 20 64 6f 6e 65 2e 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 73 77 6f 70 0a 20 20 20 20 ┆ done. ; body of swop ┆
0x08c40…08c60 62 65 67 69 6e 0a 20 20 20 20 20 20 6c 61 62 65 6c 20 65 78 69 74 73 77 6f 70 3b 0a 20 20 20 20 ┆begin label exitswop; ┆
0x08c60…08c7e 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 2c 77 32 ┆ incode double w01,w2┆
0x08c7e…08c84 (0x450,0x11a)
0x08c84…08ca0 33 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 6f 70 6d 6f 64 65 3b 0a 20 20 20 20 ┆3; word opmode; ┆
0x08ca0…08cc0 20 20 20 20 72 65 66 20 63 6f 72 65 66 73 74 2c 63 6f 72 65 74 6f 70 3b 0a 20 20 20 20 20 20 20 ┆ ref corefst,coretop; ┆
0x08cc0…08ce0 20 77 6f 72 64 20 73 65 67 6d 73 77 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ word segmsw; begin ┆
0x08ce0…08cfc 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 20 20 ┆ w01:=f1; w23:=f3; ┆
0x08cfc…08d02 (0x450,0x11b)
0x08d02…08d20 63 6f 72 65 66 73 74 3a 3d 77 30 3a 3d 62 2e 66 73 74 63 6f 72 65 3b 0a 20 20 20 20 20 20 ┆corefst:=w0:=b.fstcore; ┆
0x08d20…08d40 20 20 69 66 20 77 32 3a 3d 62 2e 63 6f 72 65 75 73 65 72 3d 77 31 20 74 68 65 6e 0a 20 20 20 20 ┆ if w2:=b.coreuser=w1 then ┆
0x08d40…08d60 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 3c 3e 33 20 74 68 65 6e 20 67 6f ┆ if w3:=(w1).state<>3 then go┆
0x08d60…08d7a 74 6f 20 65 78 69 74 73 77 6f 70 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆to exitswop; if w2┆
0x08d7a…08d80 (0x450,0x11c)
0x08d80…08da0 3e 30 20 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 63 6f 72 65 20 6e 6f 74 20 66 72 65 65 3b 0a 20 ┆>0 then comment core not free; ┆
0x08da0…08dc0 20 20 20 20 20 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 ┆ begin startstop┆
0x08dc0…08de0 28 2e 77 33 2e 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 ┆(.w3.,w0:=0,w1:=w2); ! stop core┆
0x08de0…08e00 75 73 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 6f 64 65 3a 00 00 00 00 00 00 00 00 ┆user ! opmode: ┆
0x08e00…08e06 (71,) (0x450,0x11d)
0x08e06…08e20 3d 77 30 3a 3d 35 20 61 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 ┆=w0:=5 ashift 12; ┆
0x08e20…08e40 20 20 63 6f 72 65 74 6f 70 3a 3d 77 30 3a 3d 63 6f 72 65 66 73 74 2b 28 77 32 29 2e 70 72 6f 63 ┆ coretop:=w0:=corefst+(w2).proc┆
0x08e40…08e60 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 73 77 3a 3d 77 30 3a 3d 28 77 32 29 ┆size; segmsw:=w0:=(w2)┆
0x08e60…08e7e 2e 73 77 6f 70 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 ┆.swopsegm; w1:=addre┆
0x08e7e…08e84 (0x450,0x11e)
0x08e84…08ea0 73 73 28 6f 70 6d 6f 64 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 ┆ss(opmode); w3:=ad┆
0x08ea0…08ec0 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 74 72 61 6e 73 ┆dress(b.swname); trans┆
0x08ec0…08ee0 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 65 6e 64 3b 0a 20 ┆port(.w2.,w1,w3); end; ┆
0x08ee0…08efc 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆ f1:=w01; if w┆
0x08efc…08f02 (0x450,0x11f)
0x08f02…08f20 31 3c 3e 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 20 20 ┆1<>0 then begin ┆
0x08f20…08f40 20 20 20 20 20 20 63 6f 72 65 74 6f 70 3a 3d 77 30 3a 3d 63 6f 72 65 66 73 74 2b 28 77 31 29 2e ┆ coretop:=w0:=corefst+(w1).┆
0x08f40…08f60 70 72 6f 63 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 6f 64 65 3a 3d 77 30 3a 3d ┆procsize; opmode:=w0:=┆
0x08f60…08f7a 33 20 61 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆3 ashift 12; if ┆
0x08f7a…08f80 (0x450,0x120)
0x08f80…08fa0 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 3d 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆w0:=(w1).state=3 then ┆
0x08fa0…08fc0 62 65 67 69 6e 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 ┆begin segmsw:=w0:=0;┆
0x08fc0…08fe0 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 73 74 61 74 65 32 3c ┆ if w0:=(w1).state2<┆
0x08fe0…09000 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 33 3a 3d 61 00 00 00 00 00 00 00 00 ┆1 then w3:=a ┆
0x09000…09006 (72,) (0x450,0x121)
0x09006…09020 64 64 72 65 73 73 28 62 2e 66 70 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 ┆ddress(b.fpcode) ┆
0x09020…09040 20 20 20 65 6c 73 65 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 63 6c 65 61 72 74 65 6d 70 29 ┆ else w3:=address(b.cleartemp)┆
0x09040…09060 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 6c 73 65 20 62 ┆; end else b┆
0x09060…0907e 65 67 69 6e 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 28 ┆egin segmsw:=w0:=(┆
0x0907e…09084 (0x450,0x122)
0x09084…090a0 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 20 77 33 ┆w1).swopsegm; w3┆
0x090a0…090c0 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 65 ┆:=address(b.swname); e┆
0x090c0…090e0 6e 64 3b 0a 20 20 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 ┆nd; w1:=address(opmode┆
0x090e0…090fc 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 ┆); transport(.w2.,┆
0x090fc…09102 (0x450,0x123)
0x09102…09120 77 31 2c 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 ┆w1,w3); end; f┆
0x09120…09140 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 62 2e 63 6f 72 65 75 73 65 72 3a 3d 77 31 3b 0a ┆1:=w01; b.coreuser:=w1; ┆
0x09140…09160 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 68 ┆ testout(.w3.,w0:=!length┆
0x09160…0917a 28 75 73 65 72 65 6e 74 72 79 29 2c 77 31 2c 77 32 3a 3d 33 29 3b 0a 65 78 69 ┆(userentry),w1,w2:=3); exi┆
0x0917a…09180 (0x450,0x124)
0x09180…091a0 74 73 77 6f 70 3a 0a 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 ┆tswop: f1:=w01; ┆
0x091a0…091c0 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 3b 20 20 20 20 ┆f3:=w23; end; end; ┆
0x091c0…091e0 20 21 20 20 73 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 ┆ ! swop ! body of u┆
0x091e0…09200 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 0a 20 20 20 20 62 65 67 69 6e 0a 00 00 00 00 00 00 00 00 ┆nintelligible begin ┆
0x09200…09206 (73,) (0x450,0x125)
0x09206…09220 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 ┆ incode doubl┆
0x09220…09240 65 20 77 30 31 2c 77 32 33 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 6f 70 2c 66 73 74 2c 6c ┆e w01,w23; word op,fst,l┆
0x09240…09260 73 74 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 ┆st; begin w01:=f1;┆
0x09260…0927e 20 77 32 33 3a 3d 66 33 3b 0a 21 74 65 73 74 20 39 39 3b 0a 20 20 20 20 20 20 20 20 6f 70 ┆ w23:=f3; !test 99; op┆
0x0927e…09284 (0x450,0x126)
0x09284…092a0 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 66 73 74 3a 3d 77 30 3a 3d 32 3b ┆:=w0:=0; fst:=w0:=2;┆
0x092a0…092c0 0a 20 20 20 20 20 20 20 20 6c 73 74 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 77 32 3a ┆ lst:=w0:=3; w2:┆
0x092c0…092e0 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 33 3b 0a 20 20 ┆=(w1).messgot; w0:=3; ┆
0x092e0…092fc 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 ┆ (w1).messgot:=w0; ┆
0x092fc…09302 (0x450,0x127)
0x09302…09320 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 6d ┆ w1:=address(op); m┆
0x09320…09340 6f 6e 69 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 ┆onitor(22); ! send answer ! ┆
0x09340…09360 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 61 64 64 72 65 ┆ testout(.w3.,w0:=6,w1:=addre┆
0x09360…0937a 73 73 28 6f 70 29 2c 77 32 3a 3d 36 30 29 3b 0a 20 20 20 20 20 20 20 20 66 31 ┆ss(op),w2:=60); f1┆
0x0937a…09380 (0x450,0x128)
0x09380…093a0 3a 3d 77 30 31 3b 20 66 33 3a 3d 77 32 33 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 ┆:=w01; f3:=w23 end end┆
0x093a0…093c0 3b 20 20 20 20 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 ┆; ! unintelligible ! ┆
0x093c0…093e0 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 6d 65 73 ┆ comment send mes┆
0x093e0…09400 73 61 67 65 20 74 6f 20 70 72 69 6d 6f 0a 0a 20 20 20 77 31 20 3d 20 75 00 00 00 00 00 00 00 00 ┆sage to primo w1 = u ┆
0x09400…09406 (74,) (0x450,0x129)
0x09406…09420 73 65 72 65 6e 74 72 79 0a 20 20 20 77 32 20 3d 20 6d 65 73 73 62 75 66 20 61 ┆serentry w2 = messbuf a┆
0x09420…09440 64 64 72 65 73 73 20 6f 66 20 62 75 66 66 65 72 20 73 65 6e 74 20 74 6f 20 70 72 69 6d 6f 20 28 ┆ddress of buffer sent to primo (┆
0x09440…09460 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 29 0a 20 20 20 61 74 20 72 65 74 75 72 6e 20 77 32 20 ┆pseudo process) at return w2 ┆
0x09460…0947e 3d 20 6d 65 73 73 62 75 66 20 61 64 64 72 65 73 73 20 6f 66 20 6d 65 73 73 61 67 65 20 73 ┆= messbuf address of message s┆
0x0947e…09484 (0x450,0x12a)
0x09484…094a0 65 6e 74 20 74 6f 20 70 72 69 6d 6f 20 28 72 65 61 6c 20 70 72 6f 63 65 73 73 29 0a ┆ent to primo (real process) ┆
0x094a0…094c0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3d 20 6f 6c 64 20 77 32 0a 3b 0a 0a 20 20 20 20 ┆ w3 = old w2 ; ┆
0x094c0…094e0 62 6f 64 79 20 6f 66 20 73 65 6e 64 5f 70 72 69 6d 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆body of send_primo begin ┆
0x094e0…094fc 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 ┆ incode word savew┆
0x094fc…09502 (0x450,0x12b)
0x09502…09520 32 3b 0a 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 ┆2; double savef1; ┆
0x09520…09540 20 20 20 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 6f 70 3b ┆ ref return; word op;┆
0x09540…09560 0a 20 20 20 20 20 20 20 20 72 65 66 20 20 6f 66 69 72 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ ref ofirst, ┆
0x09560…0957a 20 20 20 6f 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 69 ┆ olast, ifi┆
0x0957a…09580 (0x450,0x12c)
0x09580…095a0 72 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6c 61 73 74 3b 0a 20 20 20 20 20 20 62 ┆rst, ilast; b┆
0x095a0…095c0 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; ┆
0x095c0…095e0 20 72 65 74 75 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 ┆ return:=w3; savew2:=w2;┆
0x095e0…09600 0a 20 20 20 20 20 20 20 20 6f 70 3a 3d 77 30 3a 3d 32 38 36 37 32 3b 20 00 00 00 00 00 00 00 00 ┆ op:=w0:=28672; ┆
0x09600…09606 (75,) (0x450,0x12d)
0x09606…09620 20 20 20 21 20 37 3c 31 32 20 21 0a 20 20 20 20 20 20 20 20 6f 66 69 72 73 74 ┆ ! 7<12 ! ofirst┆
0x09620…09640 3a 3d 77 30 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 69 66 69 72 73 ┆:=w0:=(w1).buffer; ifirs┆
0x09640…09660 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 6f 6c 61 73 74 3a 3d 77 33 3a 3d 28 77 32 29 2e 6d ┆t:=w0; olast:=w3:=(w2).m┆
0x09660…0967e 62 6c 73 74 2d 28 77 32 29 2e 6d 62 66 73 74 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 69 6c ┆blst-(w2).mbfst+w0; il┆
0x0967e…09684 (0x450,0x12e)
0x09684…096a0 61 73 74 3a 3d 77 33 3a 3d 28 77 32 29 2e 6d 62 69 6c 61 73 74 2d 28 77 32 29 2e 73 ┆ast:=w3:=(w2).mbilast-(w2).s┆
0x096a0…096c0 65 67 6d 6e 6f 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 ┆egmno+w0; w1:=address(op┆
0x096c0…096e0 29 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 5f 70 73 65 75 64 ┆); w3:=address(b.p_pseud┆
0x096e0…096fc 6f 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 21 20 73 ┆o); monitor(16); ! s┆
0x096fc…09702 (0x450,0x12f)
0x09702…09720 65 6e 64 20 6d 65 73 73 61 67 65 20 74 6f 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 ┆end message to pseudo process ┆
0x09720…09740 63 72 65 61 74 65 64 20 62 79 20 70 72 69 6d 6f 20 21 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 ┆created by primo ! f1:=s┆
0x09740…09760 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3a 3d 77 32 ┆avef1; (w1).messsend:=w2┆
0x09760…0977a 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:=┆
0x0977a…09780 (0x450,0x130)
0x09780…097a0 36 3b 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 31 30 2c 77 ┆6; testout(.w3.,w0:=10,w┆
0x097a0…097c0 31 3a 3d 61 64 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 ┆1:=address(op),w2:=2); f┆
0x097c0…097e0 31 3a 3d 73 61 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 ┆1:=savef1; w2:=(w1).mess┆
0x097e0…09800 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 73 61 76 65 77 32 00 00 00 00 00 00 00 00 ┆send; w3:=savew2 ┆
0x09800…09806 (76,) (0x450,0x131)
0x09806…09820 3b 0a 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 0a 20 ┆; call w0 return ┆
0x09820…09840 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 73 65 6e 64 5f 70 72 ┆ end end; ! send_pr┆
0x09840…09860 69 6d 6f 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 70 72 69 6d 65 73 ┆imo ! body of primes┆
0x09860…0987e 73 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6c 61 62 65 6c 20 73 74 6f 70 70 65 ┆s begin label stoppe┆
0x0987e…09884 (0x450,0x132)
0x09884…098a0 64 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 66 20 ┆d; incode ref ┆
0x098a0…098c0 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 20 ┆return; word savew0; ┆
0x098c0…098e0 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 77 6f 72 64 20 ┆ word zero:=0; word ┆
0x098e0…098fc 63 5f 66 75 6e 63 74 3a 3d 32 27 30 30 31 30 30 3b 0a 20 20 20 20 20 20 20 20 72 65 ┆c_funct:=2'00100; re┆
0x098fc…09902 (0x450,0x133)
0x09902…09920 66 20 20 63 5f 66 69 72 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 5f 6c 61 73 ┆f c_first, c_las┆
0x09920…09940 74 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 5f 72 65 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆t; word c_rel:=0; ┆
0x09940…09960 62 65 67 69 6e 0a 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 ┆begin return:=w3; ┆
0x09960…0997a 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 6e ┆ if w0:=(w1).state<0 then┆
0x0997a…09980 (0x450,0x134)
0x09980…099a0 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 62 75 ┆ begin (w1).bu┆
0x099a0…099c0 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 73 65 6e 64 28 2e ┆flength:=w2:=0; send(.┆
0x099c0…099e0 77 33 2e 2c 77 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 ┆w3.,w0:=1,w1,w2:=256); ! stopped┆
0x099e0…09a00 20 21 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 63 6f 6e 74 00 00 00 00 00 00 00 00 ┆ ! goto b.cont ┆
0x09a00…09a06 (77,) (0x450,0x135)
0x09a06…09a20 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 ┆inue; end else ┆
0x09a20…09a40 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 ┆ begin if w0=0 the┆
0x09a40…09a60 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 69 66 20 77 ┆n begin if w┆
0x09a60…09a7e 31 3d 62 2e 63 6f 72 65 75 73 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆1=b.coreuser then be┆
0x09a7e…09a84 (0x450,0x136)
0x09a84…09aa0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 69 6e 74 ┆gin w3:=(w1).int┆
0x09aa0…09ac0 65 72 6e 61 6c 2b 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 33 ┆ernal+11; if w3:=(w3┆
0x09ac0…09ae0 29 2e 62 79 74 65 20 61 6e 64 20 32 27 31 30 31 30 30 30 30 30 3d 32 27 31 30 31 30 30 30 30 30 ┆).byte and 2'10100000=2'10100000┆
0x09ae0…09afc 20 74 68 65 6e 20 21 20 73 74 6f 70 70 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ then ! stopped ! ┆
0x09afc…09b02 (0x450,0x137)
0x09b02…09b20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 ┆ begin (w1).sta┆
0x09b20…09b40 74 65 3a 3d 77 30 3a 3d 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 ┆te:=w0:=6; startst┆
0x09b40…09b60 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆op(.w3.,w0:=1,w1); e┆
0x09b60…09b7a 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 5f 66 69 72 73 74 3a 3d 77 ┆nd; c_first:=w┆
0x09b7a…09b80 (0x450,0x138)
0x09b80…09ba0 30 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 5f 6c 61 ┆0:=(w1).buffer; c_la┆
0x09ba0…09bc0 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 73 74 2b 77 30 ┆st:=w3:=(w2).mblst-(w2).mbfst+w0┆
0x09bc0…09be0 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 63 5f 66 75 6e 63 ┆; w1:=address(c_func┆
0x09be0…09c00 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3e 3d 77 00 00 00 00 00 00 00 00 ┆t); if w3>=w ┆
0x09c00…09c06 (78,) (0x450,0x139)
0x09c06…09c20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆0 then monit┆
0x09c20…09c40 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 20 20 20 20 20 20 ┆or(84) ! general copy ! ┆
0x09c40…09c60 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 ┆ else w0:=0; ┆
0x09c60…09c7e 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 20 20 ┆ savew0:=w0; ┆
0x09c7e…09c84 (0x450,0x13a)
0x09c84…09ca0 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; ┆
0x09ca0…09cc0 20 20 20 20 20 69 66 20 77 30 3a 3d 36 3d 28 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 29 20 74 ┆ if w0:=6=(w3:=(w1).state) t┆
0x09cc0…09ce0 68 65 6e 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 3b 0a 20 20 ┆hen startstop(.w3.,w0:=0,w1); ┆
0x09ce0…09cfc 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 3c 3e 30 20 74 ┆ if w0:=savew0<>0 t┆
0x09cfc…09d02 (0x450,0x13b)
0x09d02…09d20 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 6c 69 67 62 6c ┆hen unintelligbl┆
0x09d20…09d40 65 28 2e 77 33 2e 2c 77 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆e(.w3.,w1) else ┆
0x09d40…09d60 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 33 3a 3d ┆ begin w3:=┆
0x09d60…09d7a 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w1).buffer; ┆
0x09d7a…09d80 (0x450,0x13c)
0x09d80…09da0 20 77 30 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 77 33 ┆ w0:=(w3).word; w3┆
0x09da0…09dc0 2b 32 3b 20 77 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 ┆+2; w3:=(w3).word; ┆
0x09dc0…09de0 20 69 66 20 77 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 ┆ if w0=4'2000000 then ┆
0x09de0…09e00 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x09e00…09e06 (79,) (0x450,0x13d)
0x09e06…09e20 69 66 20 77 33 3d 34 27 31 30 31 30 30 31 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆if w3=4'1010010 then ┆
0x09e20…09e40 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 ┆ begin ! define transpor┆
0x09e40…09e60 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 69 6e 74 ┆t ! w1:=(w1).int┆
0x09e60…09e7e 65 72 6e 61 6c 2b 37 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d ┆ernal+76; f1:=┆
0x09e7e…09e84 (0x450,0x13e)
0x09e84…09ea0 28 77 31 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w1).double; ┆
0x09ea0…09ec0 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 20 20 ┆ w3:=address(zero); ┆
0x09ec0…09ee0 20 20 20 20 6d 6f 6e 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 ┆ monitor(72); ! set catalog b┆
0x09ee0…09efc 61 73 65 20 74 6f 20 74 68 61 74 20 6f 66 20 63 68 69 6c 64 20 21 0a 20 20 20 20 20 ┆ase to that of child ! ┆
0x09efc…09f02 (0x450,0x13f)
0x09f02…09f20 20 20 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 31 3a ┆ send_primo(.w3.,w1:┆
0x09f20…09f40 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=b.userentry,w2); ┆
0x09f40…09f60 20 20 77 31 3a 3d 61 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 ┆ w1:=address(b.interrupt); ┆
0x09f60…09f7a 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 21 ┆ monitor(18); !┆
0x09f7a…09f80 (0x450,0x140)
0x09f80…09fa0 20 77 61 69 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 20 77 ┆ wait answer ! w┆
0x09fa0…09fc0 33 3a 3d 77 31 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 ┆3:=w1; w1:=b.use┆
0x09fc0…09fe0 72 65 6e 74 72 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 ┆rentry; (w1).mes┆
0x09fe0…0a000 73 73 65 6e 64 3a 3d 77 30 3b 20 21 20 72 65 73 75 6c 74 20 21 0a 20 20 00 00 00 00 00 00 00 00 ┆ssend:=w0; ! result ! ┆
0x0a000…0a006 (80,) (0x450,0x141)
0x0a006…0a020 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 ┆ (w1).bufleng┆
0x0a020…0a040 74 68 3a 3d 77 30 3a 3d 28 77 33 29 2e 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆th:=w0:=(w3).bytes; ┆
0x0a040…0a060 20 20 20 20 28 77 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 ┆ (w1).statusinf:=w0:=(w3).sta┆
0x0a060…0a07e 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 62 2e 73 74 61 ┆tus; f1:=b.sta┆
0x0a07e…0a084 (0x450,0x142)
0x0a084…0a0a0 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆rtbase; w3:=┆
0x0a0a0…0a0c0 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 20 20 20 20 6d ┆address(zero); m┆
0x0a0c0…0a0e0 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 6f 67 20 62 61 73 65 ┆onitor(72); ! reset catalog base┆
0x0a0e0…0a0fc 20 21 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 ┆ ! w1:=b.use┆
0x0a0fc…0a102 (0x450,0x143)
0x0a102…0a120 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 35 3b ┆rentry; w0:=5;┆
0x0a120…0a140 20 21 20 61 6e 73 77 65 72 2c 20 77 31 3d 75 73 65 72 65 6e 74 72 79 2c 20 77 32 3d 6d 65 73 73 ┆ ! answer, w1=userentry, w2=mess┆
0x0a140…0a160 62 75 66 61 64 64 72 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 ┆bufaddr ! if w2:┆
0x0a160…0a17a 3d 62 2e 74 69 6d 65 72 6d 65 73 73 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆=b.timermess<>0 then ┆
0x0a17a…0a180 (0x450,0x144)
0x0a180…0a1a0 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 ┆
0x0a1a0…0a1c0 20 20 20 6d 6f 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 ┆ monitor(82); ! regret message┆
0x0a1c0…0a1e0 20 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 0a 20 20 20 20 ┆ ! w2:=0; ┆
0x0a1e0…0a200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 69 6d 65 72 6d 65 73 00 00 00 00 00 00 00 00 ┆ b.timermes ┆
0x0a200…0a206 (81,) (0x450,0x145)
0x0a206…0a220 73 3a 3d 77 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆s:=w2 end;┆
0x0a220…0a240 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 6f 6e 5f 6c ┆ goto b.action_l┆
0x0a240…0a260 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 20 20 20 20 20 ┆; end ┆
0x0a260…0a27e 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 ┆ else uninte┆
0x0a27e…0a284 (0x450,0x146)
0x0a284…0a2a0 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 20 20 ┆lligible(.w3.,w1) ┆
0x0a2a0…0a2c0 20 20 20 20 65 6e 64 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 ┆ end ! define transport ! ┆
0x0a2c0…0a2e0 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 20 20 62 65 ┆ else be┆
0x0a2e0…0a2fc 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 5f 70 72 69 ┆gin send_pri┆
0x0a2fc…0a302 (0x450,0x147)
0x0a302…0a320 6d 6f 28 2e 77 33 2e 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mo(.w3.,w1,w2); ┆
0x0a320…0a340 20 20 69 66 20 77 32 3a 3d 62 2e 74 69 6d 65 72 6d 65 73 73 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆ if w2:=b.timermess<>0 then ┆
0x0a340…0a360 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 20 ┆ begin ┆
0x0a360…0a37a 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 32 29 3b 20 21 20 72 65 67 72 65 74 ┆ monitor(82); ! regret┆
0x0a37a…0a380 (0x450,0x148)
0x0a380…0a3a0 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 20 20 77 32 3a ┆ message ! w2:┆
0x0a3a0…0a3c0 3d 30 3b 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 ┆=0; b.timermess:=w2 ┆
0x0a3c0…0a3e0 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 6c 69 6e 6b 28 2e 77 ┆ end; link(.w┆
0x0a3e0…0a400 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 00 00 00 00 00 00 00 00 ┆3.,w1,w2:=address(b.wait ┆
0x0a400…0a406 (82,) (0x450,0x149)
0x0a406…0a420 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 ┆qfst)); st┆
0x0a420…0a440 61 72 74 73 74 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 ┆artstop(.w3.,w0:=0,w1); ┆
0x0a440…0a460 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 6d 65 73 73 ┆ end end ! mess┆
0x0a460…0a47e 61 67 65 20 6f 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 ┆age ok ! end ┆
0x0a47e…0a484 (0x450,0x14a)
0x0a484…0a4a0 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f ┆ else goto sto┆
0x0a4a0…0a4c0 70 70 65 64 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 73 74 61 74 65 3d 30 20 61 6e 64 ┆pped end ! state=0 and┆
0x0a4c0…0a4e0 20 69 6e 20 63 6f 72 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆ in core ! else ┆
0x0a4e0…0a4fc 20 20 20 20 62 65 67 69 6e 20 21 20 73 74 61 74 65 3e 30 20 6f 72 20 6e 6f 74 20 63 ┆ begin ! state>0 or not c┆
0x0a4fc…0a502 (0x450,0x14b)
0x0a502…0a520 6f 72 65 75 73 65 72 20 21 0a 73 74 6f 70 70 65 64 3a 20 20 20 20 28 77 31 29 2e 62 75 66 ┆oreuser ! stopped: (w1).buf┆
0x0a520…0a540 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆length:=w0:=0; (w1).┆
0x0a540…0a560 73 74 61 74 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e ┆state:=w0; send(.w3.┆
0x0a560…0a57a 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 32 35 36 29 3b 20 21 20 73 74 6f 70 ┆,w0:=1,w1,w2:=256); ! stop┆
0x0a57a…0a580 (0x450,0x14c)
0x0a580…0a5a0 70 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 74 61 74 65 3e 30 20 6f ┆ped ! end; ! state>0 o┆
0x0a5a0…0a5c0 72 20 6e 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 ┆r not coreuser ! if w0┆
0x0a5c0…0a5e0 3a 3d 62 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 ┆:=b.timermess<>0 then goto b.con┆
0x0a5e0…0a600 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 74 00 00 00 00 00 00 00 00 ┆tinue; end; ! st ┆
0x0a600…0a606 (83,) (0x450,0x14d)
0x0a606…0a620 61 74 65 3e 3d 30 20 21 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 ┆ate>=0 ! w3:=retur┆
0x0a620…0a640 6e 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 70 72 69 6d ┆n end end; ! prim┆
0x0a640…0a660 65 73 73 20 20 21 0a 0c 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess ! comment ┆
0x0a660…0a67e 20 20 20 73 65 6e 64 20 20 28 6d 65 73 73 61 67 65 20 6f 72 20 61 6e 73 77 65 72 29 0a 0a ┆ send (message or answer) ┆
0x0a67e…0a684 (0x450,0x14e)
0x0a684…0a6a0 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 ┆according to the content of ┆
0x0a6a0…0a6c0 77 30 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 73 20 61 20 6d 65 73 73 61 67 ┆w0 this procedure sends a messag┆
0x0a6c0…0a6e0 65 20 6f 72 20 61 6e 20 61 6e 73 77 65 72 0a 74 6f 20 74 68 65 20 70 65 72 69 70 68 65 72 61 6c ┆e or an answer to the peripheral┆
0x0a6e0…0a6fc 20 6f 72 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 ┆ or the internal process ref┆
0x0a6fc…0a702 (0x450,0x14f)
0x0a702…0a720 65 72 65 6e 63 65 64 20 62 79 20 74 68 65 20 75 73 65 72 65 6e 74 72 79 28 77 31 29 2e 0a ┆erenced by the userentry(w1). ┆
0x0a720…0a740 77 30 20 3e 20 30 20 20 61 6e 73 77 65 72 20 69 73 20 73 65 6e 74 20 74 6f 20 69 6e 74 65 72 6e ┆w0 > 0 answer is sent to intern┆
0x0a740…0a760 61 6c 20 70 72 6f 63 65 73 73 20 28 77 32 20 3d 20 73 74 61 74 75 73 2c 20 77 30 20 3d 20 72 65 ┆al process (w2 = status, w0 = re┆
0x0a760…0a77a 73 75 6c 74 29 0a 77 30 20 3c 3d 20 30 20 20 6d 65 73 73 61 67 65 20 69 73 20 ┆sult) w0 <= 0 message is ┆
0x0a77a…0a780 (0x450,0x150)
0x0a780…0a7a0 73 65 6e 74 20 74 6f 20 70 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 65 73 73 20 28 77 32 20 3d ┆sent to peripheral process (w2 =┆
0x0a7a0…0a7c0 20 6f 70 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 ┆ operation < 12 + mode) at i-o m┆
0x0a7c0…0a7e0 65 73 73 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 ┆essages to the terminal, the ter┆
0x0a7e0…0a800 6d 69 6e 61 6c 20 62 75 66 66 65 72 20 69 73 20 75 73 65 64 20 66 6f 72 00 00 00 00 00 00 00 00 ┆minal buffer is used for ┆
0x0a800…0a806 (84,) (0x450,0x151)
0x0a806…0a820 20 74 68 69 73 20 6f 70 65 2d 0a 72 61 74 69 6f 6e 2e 20 61 74 20 63 6f 6d 6d ┆ this ope- ration. at comm┆
0x0a820…0a840 75 6e 69 63 61 74 69 6f 6e 20 77 69 74 68 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 65 ┆unication with internal processe┆
0x0a840…0a860 73 2c 20 64 61 74 61 20 69 73 20 63 6f 70 69 65 64 20 74 6f 2d 66 72 6f 6d 20 73 6f 6d 65 20 69 ┆s, data is copied to-from some i┆
0x0a860…0a87e 6e 2d 0a 74 65 72 6e 61 6c 20 62 75 66 66 65 72 20 66 72 6f 6d 2d 74 6f 20 74 68 65 20 74 ┆n- ternal buffer from-to the t┆
0x0a87e…0a884 (0x450,0x152)
0x0a884…0a8a0 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 2e 20 74 68 69 73 20 63 6f 70 79 69 6e 67 ┆erminal buffer. this copying┆
0x0a8a0…0a8c0 20 6d 75 73 74 20 62 65 20 64 6f 6e 65 20 62 65 66 6f 72 65 0a 63 61 6c 6c 69 6e 67 20 74 68 69 ┆ must be done before calling thi┆
0x0a8c0…0a8e0 73 20 70 72 6f 63 65 64 75 72 65 2e 0a 0a 77 68 65 6e 20 77 30 20 3c 20 30 20 6f 6e 6c 79 20 61 ┆s procedure. when w0 < 0 only a┆
0x0a8e0…0a8fc 20 70 61 72 74 20 6f 66 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 ┆ part of the terminal buffer┆
0x0a8fc…0a902 (0x450,0x153)
0x0a902…0a920 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 0a 2d ┆ is used for the operation, -┆
0x0a920…0a940 77 30 20 67 69 76 69 6e 67 20 74 68 65 20 72 65 6c 61 74 69 76 65 20 73 74 61 72 74 20 61 64 64 ┆w0 giving the relative start add┆
0x0a940…0a960 72 65 73 73 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 ┆ress in the buffer. ; body┆
0x0a960…0a97a 20 6f 66 20 73 65 6e 64 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 ┆ of send begin i┆
0x0a97a…0a980 (0x450,0x154)
0x0a980…0a9a0 6e 63 6f 64 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 ┆ncode double w01,w23; ┆
0x0a9a0…0a9c0 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┆
0x0a9c0…0a9e0 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 20 20 20 ┆in w01:=f1; w23:=f3; ┆
0x0a9e0…0aa00 20 20 20 20 20 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆ op:=w2; if ┆
0x0aa00…0aa06 (85,) (0x450,0x155)
0x0aa06…0aa20 77 30 3e 30 20 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 61 6e 73 ┆w0>0 then comment send ans┆
0x0aa20…0aa40 77 65 72 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 77 32 3a ┆wer; begin w2:┆
0x0aa40…0aa60 3d 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3b 20 20 20 20 21 20 6f 70 3d 73 74 61 74 75 73 2c ┆=(w1).buflength; ! op=status,┆
0x0aa60…0aa7e 20 66 73 74 3d 6e 6f 2e 6f 66 20 68 77 2e 73 2c 20 6c 73 74 3d 6e 6f 20 6f 66 20 63 68 61 ┆ fst=no.of hw.s, lst=no of cha┆
0x0aa7e…0aa84 (0x450,0x156)
0x0aa84…0aaa0 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 66 73 74 3a 3d 77 32 3b 0a 20 20 20 20 ┆rs ! fst:=w2; ┆
0x0aaa0…0aac0 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 63 68 61 72 73 3b 0a 20 20 20 20 ┆ w2:= (w1).bufchars; ┆
0x0aac0…0aae0 20 20 20 20 20 20 20 20 6c 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d ┆ lst:= w2; w2:=┆
0x0aae0…0aafc 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 29 ┆(w1).messgot; (w1)┆
0x0aafc…0ab02 (0x450,0x157)
0x0ab02…0ab20 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 31 3a 3d 61 64 ┆.messgot:=w0; w1:=ad┆
0x0ab20…0ab40 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 72 28 32 32 29 ┆dress(op); monitor(22)┆
0x0ab40…0ab60 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 20 20 20 20 20 ┆; comment send answer; ┆
0x0ab60…0ab7a 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 ┆end else comment s┆
0x0ab7a…0ab80 (0x450,0x158)
0x0ab80…0aba0 65 6e 64 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆end message; begin ┆
0x0aba0…0abc0 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 20 20 20 20 20 ┆ w2:=(w1).peripheral; ┆
0x0abc0…0abe0 20 20 20 20 69 66 20 77 32 20 3c 20 30 20 74 68 65 6e 20 2d 28 77 32 29 3b 0a 20 20 20 20 20 20 ┆ if w2 < 0 then -(w2); ┆
0x0abe0…0ac00 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 00 00 00 00 00 00 00 00 ┆ w2+2; w3:= ┆
0x0ac00…0ac06 (86,) (0x450,0x159)
0x0ac06…0ac20 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 20 ┆address(b.procname); ┆
0x0ac20…0ac40 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 61 6d 65 31 3b ┆ (w3).name1:=f1:=(w2).name1;┆
0x0ac40…0ac60 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 28 77 32 29 2e ┆ (w3).name2:=f1:=(w2).┆
0x0ac60…0ac7e 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 20 20 20 ┆name2; f1:=w01; ┆
0x0ac7e…0ac84 (0x450,0x15a)
0x0ac84…0aca0 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 0a 20 20 ┆ if w0<0 then -(w0); ┆
0x0aca0…0acc0 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 20 20 20 20 20 ┆ w0 + (w1).buffer; ┆
0x0acc0…0ace0 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 3d 77 30 2b 28 ┆ fst:=w0; lst:=w0+(┆
0x0ace0…0acfc 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 77 ┆w1).buflength-2; w┆
0x0acfc…0ad02 (0x450,0x15b)
0x0ad02…0ad20 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 ┆1:=address(op); moni┆
0x0ad20…0ad40 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 61 67 65 3b 0a ┆tor(16); comment send message; ┆
0x0ad40…0ad60 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 28 77 31 ┆ f1:=w01; (w1┆
0x0ad60…0ad7a 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 ┆).messsend:=w2; en┆
0x0ad7a…0ad80 (0x450,0x15c)
0x0ad80…0ada0 64 3b 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 31 34 2c 77 ┆d; testout(.w3.,w0:=14,w┆
0x0ada0…0adc0 31 3a 3d 61 64 64 72 65 73 73 28 77 30 31 29 2c 77 32 3a 3d 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆1:=address(w01),w2:=2); ┆
0x0adc0…0ade0 66 31 3a 3d 77 30 31 3b 20 66 33 3a 3d 77 32 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆f1:=w01; f3:=w23; end; ┆
0x0ade0…0ae00 20 65 6e 64 3b 20 20 20 20 20 21 20 20 73 65 6e 64 20 20 21 0a 0c 0a 0a 00 00 00 00 00 00 00 00 ┆ end; ! send ! ┆
0x0ae00…0ae06 (87,) (0x450,0x15d)
0x0ae06…0ae20 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 ┆ comment ┆
0x0ae20…0ae40 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 73 29 0a 0a 74 ┆startstop (internal process) t┆
0x0ae40…0ae60 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 72 20 73 74 6f ┆his procedure just starts or sto┆
0x0ae60…0ae7e 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 65 72 65 ┆ps the internal process refere┆
0x0ae7e…0ae84 (0x450,0x15e)
0x0ae84…0aea0 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 29 2e 20 ┆nced by the userentry (w1). ┆
0x0aea0…0aec0 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 31 20 20 73 74 ┆ w0 = 0 stop process 1 st┆
0x0aec0…0aee0 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 20 73 74 61 72 ┆art process ; body of star┆
0x0aee0…0aefc 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 65 ┆tstop begin incode┆
0x0aefc…0af02 (0x450,0x15f)
0x0af02…0af20 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 20 ┆ double w01,w23; ┆
0x0af20…0af40 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 3d 66 33 3b ┆ begin w01:=f1; w23:=f3;┆
0x0af40…0af60 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 61 6d 65 29 ┆ w3:=address(b.procname)┆
0x0af60…0af7a 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 ┆; w2:=(w1).interna┆
0x0af7a…0af80 (0x450,0x160)
0x0af80…0afa0 6c 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 ┆l+2; (w3).name1:=f1:=(w2┆
0x0afa0…0afc0 29 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 32 3a 3d 66 31 3a ┆).name1; (w3).name2:=f1:┆
0x0afc0…0afe0 3d 28 77 32 29 2e 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a 20 20 ┆=(w2).name2; f1:=w01; ┆
0x0afe0…0b000 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ if w0=0 then ┆
0x0b000…0b006 (88,) (0x450,0x161)
0x0b006…0b020 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 6c ┆ begin w1:=b.l┆
0x0b020…0b040 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 36 30 29 3b 20 ┆astuser; monitor(60); ┆
0x0b040…0b060 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 65 73 73 3b 0a ┆ comment stop internal process; ┆
0x0b060…0b07e 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 6d 65 6e ┆ monitor(18); commen┆
0x0b07e…0b084 (0x450,0x162)
0x0b084…0b0a0 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 69 66 20 ┆t wait answer; if ┆
0x0b0a0…0b0c0 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 20 20 20 20 20 ┆w0<>1 then key(w01):=w0; ┆
0x0b0c0…0b0e0 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 20 20 20 20 ┆ end else begin ┆
0x0b0e0…0b0fc 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 72 ┆ monitor(58); comment star┆
0x0b0fc…0b102 (0x450,0x163)
0x0b102…0b120 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 20 20 20 20 20 ┆t internal process; ┆
0x0b120…0b140 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 0a 20 20 20 20 ┆if w0<>0 then key(w01):=w0; ┆
0x0b140…0b160 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 20 ┆ end; f1:=w01; ┆
0x0b160…0b17a 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 ┆ w2:=w0+4; testou┆
0x0b17a…0b180 (0x450,0x164)
0x0b180…0b1a0 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 31 ┆t(.w3.,w0:=!length(userentry),w1┆
0x0b1a0…0b1c0 2c 77 32 29 3b 0a 20 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 ┆,w2); f1:=w01; f3:=w23;┆
0x0b1c0…0b1e0 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 74 61 72 ┆ end; end; ! star┆
0x0b1e0…0b200 74 73 74 6f 70 20 20 21 0a 0c 0a 0a 0a 0a 0a 20 20 20 20 62 6f 64 79 20 00 00 00 00 00 00 00 00 ┆tstop ! body ┆
0x0b200…0b206 (89,) (0x450,0x165)
0x0b206…0b220 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 20 ┆of testout begin ┆
0x0b220…0b240 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 68 2c 6b 69 6e ┆ record testhead(byte length,kin┆
0x0b240…0b260 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 72 64 20 74 69 ┆d; word ti┆
0x0b260…0b27e 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 6f 72 64 ┆me,user,tailfst); record┆
0x0b27e…0b284 (0x450,0x166)
0x0b284…0b2a0 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 2c 72 65 ┆ dump ( word reg0,re┆
0x0b2a0…0b2c0 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 75 73 65 2c 73 ┆g1,reg2,reg3,exreg,instr,cause,s┆
0x0b2c0…0b2e0 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 20 72 65 66 20 ┆breg); incode ref ┆
0x0b2e0…0b2fc 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 3a ┆return; word bufrel:┆
0x0b2fc…0b302 (0x450,0x167)
0x0b302…0b320 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 33 3b 0a 20 20 ┆=0; double w01,w23; ┆
0x0b320…0b340 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 20 77 32 33 3a ┆ begin w01:=f1; w23:┆
0x0b340…0b360 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 66 73 74 3c 62 ┆=f3; if w3:=b.testbfst<b┆
0x0b360…0b37a 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 ┆.testblst then beg┆
0x0b37a…0b380 (0x450,0x168)
0x0b380…0b3a0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 2b 62 75 66 72 65 6c 2b 38 3e 35 31 30 20 ┆in if w0+bufrel+8>510 ┆
0x0b3a0…0b3c0 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 61 6e 67 65 20 62 75 66 66 65 72 20 73 65 67 6d 65 ┆then comment change buffer segme┆
0x0b3c0…0b3e0 6e 74 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 ┆nt; begin ┆
0x0b3e0…0b400 69 66 20 77 30 20 3e 20 31 30 32 34 20 74 68 65 6e 20 77 30 3a 3d 2d 32 00 00 00 00 00 00 00 00 ┆if w0 > 1024 then w0:=-2 ┆
0x0b400…0b406 (90,) (0x450,0x169)
0x0b406…0b420 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 20 ┆ else w0:=-1; ┆
0x0b420…0b440 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 64 3a 3d 77 30 ┆(w3:=b.testbfst+bufrel).word:=w0┆
0x0b440…0b460 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 74 65 73 74 ┆; w1:=address(b.test┆
0x0b460…0b47e 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 73 28 62 ┆op); w3:=address(b┆
0x0b47e…0b484 (0x450,0x16a)
0x0b484…0b4a0 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 61 6e 73 ┆.tstarea); trans┆
0x0b4a0…0b4c0 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 20 20 69 66 ┆port(.w2.,w1,w3); if┆
0x0b4c0…0b4e0 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 73 65 67 6d 20 ┆ w1:=b.testsegm+1=b.maxtestsegm ┆
0x0b4e0…0b4fc 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 65 ┆then w1:=1; b.te┆
0x0b4fc…0b502 (0x450,0x16b)
0x0b502…0b520 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 75 66 72 65 6c ┆stsegm:=w1; bufrel┆
0x0b520…0b540 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 20 20 20 20 ┆:=w0:=0; end; ┆
0x0b540…0b560 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 20 20 20 20 77 ┆ f1:=w01; f3:=w23; w┆
0x0b560…0b57a 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 ┆3:=b.testbfst+bufrel; ┆
0x0b57a…0b580 (0x450,0x16c)
0x0b580…0b5a0 20 20 20 20 20 20 28 77 33 29 2e 6c 65 6e 67 74 68 3a 3d 77 30 2b 36 3b 0a 20 20 20 20 20 20 20 ┆ (w3).length:=w0+6; ┆
0x0b5a0…0b5c0 20 20 20 62 75 66 72 65 6c 3a 3d 77 31 3a 3d 62 75 66 72 65 6c 2b 77 30 3b 0a 20 20 20 20 20 20 ┆ bufrel:=w1:=bufrel+w0; ┆
0x0b5c0…0b5e0 20 20 20 20 77 31 3a 3d 31 30 38 3b 20 20 63 6f 6d 6d 65 6e 74 20 61 62 73 20 72 65 66 20 63 75 ┆ w1:=108; comment abs ref cu┆
0x0b5e0…0b600 72 72 65 6e 74 20 74 69 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 00 00 00 00 00 00 00 00 ┆rrent time; f1 ┆
0x0b600…0b606 (91,) (0x450,0x16d)
0x0b606…0b620 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 20 ┆:=(w1).double-b.starttime ┆
0x0b620…0b640 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 69 6d 65 3a 3d ┆lshift -7; (w3).time:=┆
0x0b640…0b660 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 3b 0a 20 20 20 ┆w1; (w3).kind:=w2; ┆
0x0b660…0b67e 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 31 3a 3d ┆ f1:=w01; w1:=┆
0x0b67e…0b684 (0x450,0x16e)
0x0b684…0b6a0 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 3a 3d 28 ┆b.userentry; w2:=(┆
0x0b6a0…0b6c0 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 29 2e 75 73 65 ┆w1).internal; (w3).use┆
0x0b6c0…0b6e0 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 20 20 20 20 20 ┆r:=w2; f1:=w01; ┆
0x0b6e0…0b6fc 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 2b ┆ copy(.w3.,w0,w1,w2:=(w3+┆
0x0b6fc…0b702 (0x450,0x16f)
0x0b702…0b720 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 20 66 33 3a 3d ┆6)); end; f3:=┆
0x0b720…0b740 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 6f 6d 6d 65 6e ┆w23; if w2=7 then commen┆
0x0b740…0b760 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 20 20 20 20 20 ┆t fault; begin ┆
0x0b760…0b77a 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 ┆ w3:= (w1).instr-2; ┆
0x0b77a…0b780 (0x450,0x170)
0x0b780…0b7a0 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 31 32 3d ┆ if w0:=(w3).word lshift -12=┆
0x0b7a0…0b7c0 28 35 31 2a 36 34 29 20 21 20 6b 65 79 20 73 74 6f 72 65 20 21 20 74 68 65 6e 0a 20 20 20 20 20 ┆(51*64) ! key store ! then ┆
0x0b7c0…0b7e0 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 65 73 74 61 62 6c 69 73 68 20 72 65 67 69 73 74 65 ┆ begin ! reestablish registe┆
0x0b7e0…0b800 72 73 20 61 6e 64 20 63 6f 6e 74 69 6e 75 65 20 21 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆rs and continue ! ┆
0x0b800…0b806 (92,) (0x450,0x171)
0x0b806…0b820 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 77 ┆ w3+1; (w┆
0x0b820…0b840 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 20 20 20 20 20 ┆1).cause:= w0:= (w3).byte; ┆
0x0b840…0b860 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 20 20 20 20 20 ┆ w0:= (w1).instr; ┆
0x0b860…0b87e 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 20 20 77 ┆ return:= w0; w┆
0x0b87e…0b884 (0x450,0x172)
0x0b884…0b8a0 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 20 20 77 ┆0:= (w1).reg0; w┆
0x0b8a0…0b8c0 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 77 33 3a 3d 20 ┆2:= (w1).reg2; w3:= ┆
0x0b8c0…0b8e0 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 20 28 77 31 29 ┆(w1).reg3; w1:= (w1)┆
0x0b8e0…0b8fc 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 72 ┆.reg1; call w0 r┆
0x0b8fc…0b902 (0x450,0x173)
0x0b902…0b920 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 20 20 20 20 20 ┆eturn; end ┆
0x0b920…0b940 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x0b940…0b960 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 77 32 33 3b 0a ┆ f1:=w01; f3:=w23; ┆
0x0b960…0b97a 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 ┆ end; end┆
0x0b97a…0b980 (0x450,0x174)
0x0b980…0b9a0 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 74 65 73 ┆; end; end; ! tes┆
0x0b9a0…0b9c0 74 6f 75 74 20 20 21 0a 0c 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 ┆tout ! comment ┆
0x0b9c0…0b9e0 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 0a 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f ┆ transport ; body o┆
0x0b9e0…0ba00 66 20 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆f transport begin ┆
0x0ba00…0ba06 (93,) (0x450,0x175)
0x0ba06…0ba20 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 70 ┆ incode byte op┆
0x0ba20…0ba40 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 20 20 20 74 65 ┆tr:=2,modetr:=8'1001; te┆
0x0ba40…0ba60 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 20 20 20 20 20 ┆xt (6) stars:="status"; ┆
0x0ba60…0ba7e 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 72 73 2c ┆word trstatus, trbytes, chars,┆
0x0ba7e…0ba84 (0x450,0x176)
0x0ba84…0baa0 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 20 20 20 ┆ a4, a5, a6, a7, a8; ┆
0x0baa0…0bac0 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 20 20 20 64 6f ┆ word savew0, savew1; do┆
0x0bac0…0bae0 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 65 67 69 6e 0a ┆uble savef1,savef3; begin ┆
0x0bae0…0bafc 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 3d ┆ savew0:=w0; savew1:=┆
0x0bafc…0bb02 (0x450,0x177)
0x0bb02…0bb20 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 20 20 20 20 20 ┆w1; savef3:=f3; ┆
0x0bb20…0bb40 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 20 64 6f 0a 20 ┆ w0:=0; while w0=0 do ┆
0x0bb40…0bb60 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 74 6f 72 28 31 ┆ begin monitor(1┆
0x0bb60…0bb7a 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 ┆6); w1:=address(┆
0x0bb7a…0bb80 (0x450,0x178)
0x0bb80…0bba0 74 72 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 ┆trstatus); monitor(18)┆
0x0bba0…0bbc0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 31 20 61 73 68 69 66 74 20 77 30 3b 0a 20 20 20 ┆; w2:=1 ashift w0; ┆
0x0bbc0…0bbe0 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 20 74 68 65 6e 20 77 32 2b 74 72 73 74 61 74 75 73 3b ┆ if w0=1 then w2+trstatus;┆
0x0bbe0…0bc00 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 62 79 74 65 73 20 3a 3d 77 00 00 00 00 00 00 00 00 ┆ trbytes :=w ┆
0x0bc00…0bc06 (94,) (0x450,0x179)
0x0bc06…0bc20 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 6e ┆0; if w2<>2 then┆
0x0bc20…0bc40 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 74 72 73 ┆ begin trs┆
0x0bc40…0bc60 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 79 28 2e 77 33 ┆tatus:= w2; copy(.w3┆
0x0bc60…0bc7e 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 74 72 62 ┆.,w0:=8,w1:=w3,w2:=address(trb┆
0x0bc7e…0bc84 (0x450,0x17a)
0x0bc84…0bca0 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 32 3b 0a ┆ytes)); !get 2; ┆
0x0bca0…0bcc0 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 20 67 6f 74 6f ┆ if w0 <> 1 then goto┆
0x0bcc0…0bce0 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 70 6d 65 73 73 ┆ b.discfault; opmess┆
0x0bce0…0bcfc 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 3d ┆(.w3.,w1:=address(optr),w2:=┆
0x0bcfc…0bd02 (0x450,0x17b)
0x0bd02…0bd20 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 3b 0a 20 20 20 ┆b.ownproc); end; ┆
0x0bd20…0bd40 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 20 20 20 77 31 ┆ w0:=trbytes; w1┆
0x0bd40…0bd60 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 65 66 33 3b 0a ┆:=savew1; f3:=savef3; ┆
0x0bd60…0bd7a 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 ┆ end; w0:=s┆
0x0bd7a…0bd80 (0x450,0x17c)
0x0bd80…0bda0 61 76 65 77 30 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 ┆avew0; end; end; !┆
0x0bda0…0bdc0 20 20 74 72 61 6e 73 70 6f 72 74 20 20 21 0a 0c 0a 0a 0a 0a 21 62 72 61 6e 63 68 20 31 2c 32 3b ┆ transport ! !branch 1,2;┆
0x0bdc0…0bde0 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 20 20 20 69 6e 69 ┆ comment ini┆
0x0bde0…0be00 74 0a 0a 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 69 61 00 00 00 00 00 00 00 00 ┆t this procedure initia ┆
0x0be00…0be06 (95,) (0x450,0x17d)
0x0be06…0be20 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 69 ┆lizes the userentries (bei┆
0x0be20…0be40 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 66 6f 72 20 74 ┆ng all free) reserves area for t┆
0x0be40…0be60 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 20 20 63 6f 6d ┆erminal buffer, testbuffer, com┆
0x0be60…0be7e 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 72 65 61 ┆putes absolute addresses (crea┆
0x0be7e…0be84 (0x450,0x17e)
0x0be84…0bea0 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 65 75 65 ┆ting the chains of the queue┆
0x0bea0…0bec0 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 64 20 70 72 6f ┆s, references to buffers and pro┆
0x0bec0…0bee0 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 70 2d 20 61 6e ┆cess-area etc), creates swop- an┆
0x0bee0…0befc 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 6e ┆d test-area-processes - an┆
0x0befc…0bf02 (0x450,0x17f)
0x0bf02…0bf20 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 76 65 72 2d 0a ┆d after execution it is over- ┆
0x0bf20…0bf40 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 61 20 66 6f 72 ┆written (used as buffer area for┆
0x0bf40…0bf60 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 29 0a 3b 0a 0a ┆ execution of child process) ; ┆
0x0bf60…0bf7a 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 ┆ body of init begi┆
0x0bf7a…0bf80 (0x450,0x180)
0x0bf80…0bfa0 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 68 69 6c ┆n incode word chil┆
0x0bfa0…0bfc0 64 73 74 61 72 74 2c 73 77 6f 70 6e 6f 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 76 ┆dstart,swopno:=0; byte v┆
0x0bfc0…0bfe0 6f 70 3a 3d 31 36 2c 76 6d 6f 64 65 3a 3d 38 27 31 34 30 3b 0a 20 20 20 20 20 20 20 20 74 65 78 ┆op:=16,vmode:=8'140; tex┆
0x0bfe0…0c000 74 28 31 34 29 20 76 65 72 73 74 78 74 3a 3d 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆t(14) verstxt:= ┆
0x0c000…0c006 (96,) (0x450,0x181)
0x0c006…0c020 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 2a ┆! *** sos **┆
0x0c020…0c040 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 61 73 65 3a 20 ┆* ! "release: ┆
0x0c040…0c060 35 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 6f 6e 20 3a 3d ┆5.0"; word sosversion :=┆
0x0c060…0c07e 20 38 36 30 35 30 31 2c 0a 0a 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 3d 3d 3d ┆ 860501, comment ===┆
0x0c07e…0c084 (0x450,0x182)
0x0c084…0c0a0 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 74 20 64 ┆trimstart; comment d┆
0x0c0a0…0c0c0 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 20 20 20 20 20 ┆ate of option version; ┆
0x0c0c0…0c0e0 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 20 20 30 2c 0a ┆ optionid := 0, ┆
0x0c0e0…0c0fc 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 30 ┆ comment rc4000/rc800┆
0x0c0fc…0c102 (0x450,0x183)
0x0c102…0c120 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 30 29 3b 20 20 ┆0 (rc4000=4000,rc8000=8000); ┆
0x0c120…0c140 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 20 20 20 20 63 ┆ rc := 8000, c┆
0x0c140…0c160 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 20 63 68 69 6c ┆omment minimum no of active chil┆
0x0c160…0c17a 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 ┆ds at the same time;minuse┆
0x0c17a…0c180 (0x450,0x184)
0x0c180…0c1a0 72 73 20 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 20 74 65 ┆rs := 1, comment te┆
0x0c1a0…0c1c0 72 6d 69 6e 61 6c 73 20 70 65 72 66 6f 72 6d 69 6e 67 20 6f 73 2d 63 6f 6d 6d 61 6e 64 73 3b 20 ┆rminals performing os-commands; ┆
0x0c1c0…0c1e0 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6e 64 75 73 65 72 73 3a 3d 20 20 20 20 20 32 2c 0a 20 ┆ comndusers:= 2, ┆
0x0c1e0…0c200 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6d 69 6e 2e 20 6e 6f 20 6f 00 00 00 00 00 00 00 00 ┆ comment min. no o ┆
0x0c200…0c206 (97,) (0x450,0x185)
0x0c206…0c220 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 73 ┆f bufs reserved for childs┆
0x0c220…0c240 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 34 2c 0a 20 20 ┆; minbufs := 4, ┆
0x0c240…0c260 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 65 61 73 20 72 ┆ comment min. no of areas r┆
0x0c260…0c27e 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 6d 69 6e ┆eserved for childs; min┆
0x0c27e…0c284 (0x450,0x186)
0x0c284…0c2a0 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 63 6f 6d ┆areas := 7, com┆
0x0c2a0…0c2c0 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 6c 64 73 3b 20 ┆ment min. core size for childs; ┆
0x0c2c0…0c2e0 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 20 3a 3d 20 31 ┆ minsize := 1┆
0x0c2e0…0c2fc 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 6f ┆2800, comment size o┆
0x0c2fc…0c302 (0x450,0x187)
0x0c302…0c320 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 20 20 20 20 20 ┆f testoutput area; ┆
0x0c320…0c340 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 2c 0a 20 20 20 ┆ testsegmnt:= 168, ┆
0x0c340…0c360 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 66 66 65 72 20 ┆ comment size of i-o buffer ┆
0x0c360…0c37a 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 ┆for a terminal (bytes); ┆
0x0c37a…0c380 (0x450,0x188)
0x0c380…0c3a0 62 75 66 6c 20 20 20 20 20 20 3a 3d 20 20 20 31 30 34 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d ┆bufl := 104, comm┆
0x0c3a0…0c3c0 65 6e 74 20 6c 65 6e 67 74 68 20 6f 66 20 61 20 74 69 6d 65 73 6c 69 63 65 20 20 28 73 65 63 6f ┆ent length of a timeslice (seco┆
0x0c3c0…0c3e0 6e 64 73 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 73 6c 69 63 65 20 3a 3d 20 20 20 ┆nds); timeslice := ┆
0x0c3e0…0c400 20 20 33 2c 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6d 61 78 00 00 00 00 00 00 00 00 ┆ 3, comment max ┆
0x0c400…0c406 (98,) (0x450,0x189)
0x0c406…0c420 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 20 ┆ no of timeslices used in ┆
0x0c420…0c440 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 3d 20 20 20 31 ┆cpu (no input); cpulimit := 1┆
0x0c440…0c460 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 20 70 72 69 6f ┆00, comment loss of prio┆
0x0c460…0c47e 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 20 20 20 ┆rity class when timed out; ┆
0x0c47e…0c484 (0x450,0x18a)
0x0c484…0c4a0 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 20 20 20 ┆ classloss := 1, ┆
0x0c4a0…0c4c0 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 61 69 6e 20 61 ┆ comment priority class gain a┆
0x0c4c0…0c4e0 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 73 73 67 61 69 ┆t input (if class<0); classgai┆
0x0c4e0…0c4fc 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 20 ┆n := 1, comment ┆
0x0c4fc…0c502 (0x450,0x18b)
0x0c502…0c520 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 69 6e 20 61 63 ┆priority gain when first in ac┆
0x0c520…0c540 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 20 20 20 20 20 ┆tivequeue; priogain := ┆
0x0c540…0c560 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 20 6f 6e 20 74 ┆1, comment reaction on t┆
0x0c560…0c57a 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 ┆ime exceeded/break; ┆
0x0c57a…0c580 (0x450,0x18c)
0x0c580…0c5a0 20 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 73 20 3a 3d 20 32 27 30 30 30 30 31 31 2c 0a 20 20 ┆ conditions := 2'000011, ┆
0x0c5a0…0c5c0 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 20 32 27 30 30 30 30 30 31 20 3d 20 61 62 6f 72 ┆ comment 2'000001 = abor┆
0x0c5c0…0c5e0 74 20 6a 6f 62 20 61 74 20 74 69 6d 65 20 65 78 63 65 65 64 65 64 3b 0a 20 20 20 20 20 20 20 20 ┆t job at time exceeded; ┆
0x0c5e0…0c600 63 6f 6d 6d 65 6e 74 20 20 20 20 32 27 30 30 30 30 31 30 20 3d 20 61 62 00 00 00 00 00 00 00 00 ┆comment 2'000010 = ab ┆
0x0c600…0c606 (99,) (0x450,0x18d)
0x0c606…0c620 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 6e ┆ort job after break comman┆
0x0c620…0c640 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 74 73 3b 20 20 ┆d; trimtexts; ┆
0x0c640…0c660 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 70 65 72 61 74 ┆text(11) comment operat┆
0x0c660…0c67e 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 20 20 20 ┆or key; ┆
0x0c67e…0c684 (0x450,0x18e)
0x0c684…0c6a0 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 72 22 2c ┆ oprkey := "opr",┆
0x0c6a0…0c6c0 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 6f 72 20 73 77 ┆ comment document for sw┆
0x0c6c0…0c6e0 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 20 20 20 73 77 ┆oparea; sw┆
0x0c6e0…0c6fc 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 6f ┆opdoc := "", co┆
0x0c6fc…0c702 (0x450,0x18f)
0x0c702…0c720 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 65 61 3b 20 20 ┆mment document for testarea; ┆
0x0c720…0c740 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 63 20 20 20 3a ┆ testdoc :┆
0x0c740…0c760 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 3d 74 72 69 6d ┆= "", comment ===trim┆
0x0c760…0c77a 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 ┆finis; keytext :┆
0x0c77a…0c780 (0x450,0x190)
0x0c780…0c7a0 3d 22 6b 65 79 22 2c 0a 20 20 20 20 20 20 20 20 69 6e 74 74 65 78 74 20 3a 3d 22 69 6e 74 65 72 ┆="key", inttext :="inter┆
0x0c7a0…0c7c0 6e 61 6c 22 2c 0a 20 20 20 20 20 20 20 20 62 75 66 74 65 78 74 20 3a 3d 22 62 75 66 22 2c 0a 20 ┆nal", buftext :="buf", ┆
0x0c7c0…0c7e0 20 20 20 20 20 20 20 61 72 65 61 74 65 78 74 3a 3d 22 61 72 65 61 22 2c 0a 20 20 20 20 20 20 20 ┆ areatext:="area", ┆
0x0c7e0…0c800 20 73 69 7a 65 74 65 78 74 3a 3d 22 73 69 7a 65 22 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ sizetext:="size"; ┆
0x0c800…0c806 (100,) (0x450,0x191)
0x0c806…0c820 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 72 ┆ ref return,currentry,pr┆
0x0c820…0c840 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 72 6f 3a 3d 30 ┆evchain:=0; word zero:=0┆
0x0c840…0c860 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 6c 20 6f 66 20 ┆; array (1:10) tail of ┆
0x0c860…0c87e 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 3b 0a 20 ┆word := 0 0 0 0 0 0 0 0 0 0; ┆
0x0c87e…0c884 (0x450,0x192)
0x0c884…0c8a0 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 31 3a 3d ┆ byte op1:=16, mode1:=┆
0x0c8a0…0c8c0 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 20 20 20 20 20 ┆8'40; word alarm; ┆
0x0c8c0…0c8e0 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 20 20 77 6f 72 ┆ text(11) resource; wor┆
0x0c8e0…0c8fc 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 74 ┆d filler:=0; word st┆
0x0c8fc…0c902 (0x450,0x193)
0x0c902…0c920 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 66 75 6e 63 74 ┆dvalue; text(21) funct┆
0x0c920…0c940 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 22 2c 0a 20 20 ┆ext:="***function 1,2,3,4,5", ┆
0x0c940…0c960 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 2a 2a 62 75 66 ┆ bufltext:="***buf┆
0x0c960…0c97a 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 ┆length >= 94"; wor┆
0x0c97a…0c980 (0x450,0x194)
0x0c980…0c9a0 64 20 73 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 32 3a 3d 20 31 36 2c 20 6d ┆d stop; byte op2:= 16, m┆
0x0c9a0…0c9c0 6f 64 65 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 20 28 32 30 29 20 63 68 69 6c ┆ode2:= 0; text (20) chil┆
0x0c9c0…0c9e0 64 72 65 73 3a 3d 22 63 68 69 6c 64 20 72 65 73 6f 75 72 63 65 73 22 3b 0a 20 20 20 20 20 20 20 ┆dres:="child resources"; ┆
0x0c9e0…0ca00 20 62 79 74 65 20 6f 70 73 74 6f 70 3a 3d 20 32 2c 20 6d 6f 64 65 73 74 00 00 00 00 00 00 00 00 ┆ byte opstop:= 2, modest ┆
0x0ca00…0ca06 (101,) (0x450,0x195)
0x0ca06…0ca20 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 20 ┆op:= 1; text (20) ┆
0x0ca20…0ca40 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 3b 0a 20 20 20 ┆inittr:= "***init troubles"; ┆
0x0ca40…0ca60 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 3b 0a 20 20 20 ┆ byte op3:=16, mode3:=0; ┆
0x0ca60…0ca7e 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 61 72 74 ┆ text (20) started:="start┆
0x0ca7e…0ca84 (0x450,0x196)
0x0ca84…0caa0 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 72 65 61 ┆ed"; word childarea┆
0x0caa0…0cac0 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 20 74 65 78 74 ┆s, users, swopsize; text┆
0x0cac0…0cae0 28 31 31 29 20 73 77 6f 70 61 72 65 61 3a 3d 22 73 77 70 22 2c 74 65 72 6d 61 72 65 61 3a 3d 22 ┆(11) swoparea:="swp",termarea:="┆
0x0cae0…0cafc 70 73 64 22 2c 74 65 73 74 61 72 65 61 3a 3d 22 74 73 74 22 2c 0a 20 20 20 20 20 20 ┆psd",testarea:="tst", ┆
0x0cafc…0cb02 (0x450,0x197)
0x0cb02…0cb20 20 20 20 20 20 20 20 20 20 20 20 66 70 61 72 65 61 3a 3d 22 66 70 22 2c 63 6c 65 61 72 61 ┆ fparea:="fp",cleara┆
0x0cb20…0cb40 72 65 61 3a 3d 22 63 6c 65 61 72 74 65 6d 70 22 2c 73 6f 73 63 61 74 3a 3d 22 73 6f 73 63 61 74 ┆rea:="cleartemp",soscat:="soscat┆
0x0cb40…0cb60 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 6d 6f 64 75 6c 65 3a 3d 22 74 ┆", t_module:="t┆
0x0cb60…0cb7a 65 6d 22 2c 70 5f 6d 6f 64 75 6c 65 3a 3d 22 70 72 69 6d 6f 22 2c 0a 20 20 20 ┆em",p_module:="primo", ┆
0x0cb7a…0cb80 (0x450,0x198)
0x0cb80…0cba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 5f 6d 73 79 73 3a 3d 22 70 72 69 6d 6f 73 79 73 22 ┆ p_msys:="primosys"┆
0x0cba0…0cbc0 2c 63 6f 6e 73 6f 6c 65 31 3a 3d 22 63 6f 6e 73 6f 6c 65 31 22 3b 0a 20 20 20 20 20 20 62 65 67 ┆,console1:="console1"; beg┆
0x0cbc0…0cbe0 69 6e 0a 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 ┆in return:=w3; w┆
0x0cbe0…0cc00 33 3a 3d 31 30 38 3b 0a 20 20 20 20 20 20 20 20 62 2e 73 74 61 72 74 74 00 00 00 00 00 00 00 00 ┆3:=108; b.startt ┆
0x0cc00…0cc06 (102,) (0x450,0x199)
0x0cc06…0cc20 69 6d 65 3a 3d 66 31 3a 3d 28 77 33 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 ┆ime:=f1:=(w3).double; ┆
0x0cc20…0cc40 20 20 20 20 69 66 20 77 32 3a 3d 72 63 20 3d 20 34 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w2:=rc = 4000 then ┆
0x0cc40…0cc60 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 62 2e 72 65 6c 69 6e 74 72 70 74 3a 3d 77 ┆ begin b.relintrpt:=w┆
0x0cc60…0cc7e 30 3a 3d 33 36 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 72 65 6c 64 75 6d 70 3a 3d 77 30 ┆0:=36; b.reldump:=w0┆
0x0cc7e…0cc84 (0x450,0x19a)
0x0cc84…0cca0 3a 3d 33 38 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 ┆:=38; end else ┆
0x0cca0…0ccc0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 62 2e 72 65 6c 69 6e 74 72 70 74 3a 3d ┆ begin b.relintrpt:=┆
0x0ccc0…0cce0 77 30 3a 3d 33 36 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 72 65 6c 64 75 6d 70 3a 3d 77 30 3a ┆w0:=36; b.reldump:=w0:┆
0x0cce0…0ccfc 3d 38 30 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 ┆=80; end; co┆
0x0ccfc…0cd02 (0x450,0x19b)
0x0cd02…0cd20 70 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 6f 70 72 6b ┆py(.w3.,w0:=8,w1:=address(oprk┆
0x0cd20…0cd40 65 79 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 6f 70 65 72 61 74 6f 72 29 29 3b 0a 20 20 ┆ey),w2:=address(b.operator)); ┆
0x0cd40…0cd60 20 20 20 20 20 20 62 2e 6d 61 78 62 75 66 3a 3d 77 30 3a 3d 62 75 66 6c 3b 0a 20 20 20 20 20 20 ┆ b.maxbuf:=w0:=bufl; ┆
0x0cd60…0cd7a 20 20 62 75 66 6c 3a 3d 77 30 3a 3d 62 75 66 6c 2b 32 3b 0a 20 20 20 20 20 20 ┆ bufl:=w0:=bufl+2; ┆
0x0cd7a…0cd80 (0x450,0x19c)
0x0cd80…0cda0 20 20 62 2e 6d 69 6e 70 72 69 6f 3a 3d 2d 28 77 31 3a 3d 63 70 75 6c 69 6d 69 74 29 3b 0a 20 20 ┆ b.minprio:=-(w1:=cpulimit); ┆
0x0cda0…0cdc0 20 20 20 20 20 20 62 2e 69 6e 74 65 72 76 61 6c 3a 3d 77 31 3a 3d 74 69 6d 65 73 6c 69 63 65 3b ┆ b.interval:=w1:=timeslice;┆
0x0cdc0…0cde0 0a 20 20 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 ┆ b.timerloss:=w1:=classl┆
0x0cde0…0ce00 6f 73 73 3b 0a 20 20 20 20 20 20 20 20 62 2e 63 79 63 6c 65 67 61 69 6e 00 00 00 00 00 00 00 00 ┆oss; b.cyclegain ┆
0x0ce00…0ce06 (103,) (0x450,0x19d)
0x0ce06…0ce20 3a 3d 77 31 3a 3d 70 72 69 6f 67 61 69 6e 3b 0a 20 20 20 20 20 20 20 20 62 2e ┆:=w1:=priogain; b.┆
0x0ce20…0ce40 69 6e 70 75 74 67 61 69 6e 3a 3d 77 31 3a 3d 63 6c 61 73 73 67 61 69 6e 3b 0a 20 20 20 20 20 20 ┆inputgain:=w1:=classgain; ┆
0x0ce40…0ce60 20 20 62 2e 73 79 73 63 6f 6e 64 3a 3d 77 31 3a 3d 63 6f 6e 64 69 74 69 6f 6e 73 3b 0a 20 20 20 ┆ b.syscond:=w1:=conditions; ┆
0x0ce60…0ce7e 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 6f 77 6e 70 72 6f 63 2b 33 32 3b 0a 20 20 20 20 20 ┆ w3:= b.ownproc+32; ┆
0x0ce7e…0ce84 (0x450,0x19e)
0x0ce84…0cea0 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆ w0:= (w3).word; ┆
0x0cea0…0cec0 20 66 31 20 6c 73 68 69 66 74 20 2d 31 32 3b 20 77 31 20 6c 73 68 69 66 74 20 2d 31 32 3b 0a 20 ┆ f1 lshift -12; w1 lshift -12; ┆
0x0cec0…0cee0 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 72 63 20 3c 3e 20 34 30 30 30 20 74 68 65 6e 0a 20 ┆ if w2:=rc <> 4000 then ┆
0x0cee0…0cefc 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 62 2e 63 ┆ begin b.c┆
0x0cefc…0cf02 (0x450,0x19f)
0x0cf02…0cf20 68 69 6c 64 70 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 62 2e 63 68 69 6c ┆hildpr:= w0; b.chil┆
0x0cf20…0cf40 64 70 6b 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆dpk:= w1; end ┆
0x0cf40…0cf60 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 2d ┆else begin -┆
0x0cf60…0cf7a 28 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 62 2e 63 68 69 6c 64 70 72 ┆(w1); b.childpr┆
0x0cf7a…0cf80 (0x450,0x1a0)
0x0cf80…0cfa0 3a 3d 20 77 32 3a 3d 20 31 32 38 20 6c 73 68 69 66 74 20 77 31 20 2b 20 77 30 3b 0a 20 20 20 20 ┆:= w2:= 128 lshift w1 + w0; ┆
0x0cfa0…0cfc0 20 20 20 20 20 20 20 69 66 20 77 32 20 65 78 74 72 61 63 74 20 38 3d 31 32 37 20 74 68 65 6e 20 ┆ if w2 extract 8=127 then ┆
0x0cfc0…0cfe0 21 20 6e 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 ┆! no key available for child ! ┆
0x0cfe0…0d000 20 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 ┆
0x0d000…0d006 (104,) (0x450,0x1a1)
0x0d006…0d020 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 ┆ stdvalue:= w0:= 2; ┆
0x0d020…0d040 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 3d 61 ┆ copy(.w3.,w0:=8,w1:=a┆
0x0d040…0d060 64 64 72 65 73 73 28 6b 65 79 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f ┆ddress(keytext),w2:=address(reso┆
0x0d060…0d07e 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 20 77 ┆urce)); alarm:= w┆
0x0d07e…0d084 (0x450,0x1a2)
0x0d084…0d0a0 30 3a 3d 20 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 ┆0:= 2763306; st┆
0x0d0a0…0d0c0 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 ┆op:= w0; opmess(.w3┆
0x0d0c0…0d0e0 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 6f 63 ┆.,w1:=address(op1),w2:=b.ownproc┆
0x0d0e0…0d0fc 29 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 20 20 ┆); end; ┆
0x0d0fc…0d102 (0x450,0x1a3)
0x0d102…0d120 20 20 20 77 32 3a 3d 62 2e 63 68 69 6c 64 70 72 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 ┆ w2:=b.childpr extract 8; ┆
0x0d120…0d140 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c ┆ w1:= 1; whil┆
0x0d140…0d160 65 20 77 32 20 6c 73 68 69 66 74 20 31 20 6f 6e 65 6d 61 73 6b 20 31 32 38 20 64 6f 20 77 31 2b ┆e w2 lshift 1 onemask 128 do w1+┆
0x0d160…0d17a 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 62 2e 63 68 69 6c 64 70 6b 3a 3d 20 ┆1; b.childpk:= ┆
0x0d17a…0d180 (0x450,0x1a4)
0x0d180…0d1a0 77 31 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 6f 70 6d 65 73 ┆w1; end; opmes┆
0x0d1a0…0d1c0 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 76 6f 70 29 2c 77 32 3a 3d 62 2e 6f 77 ┆s(.w3.,w1:=address(vop),w2:=b.ow┆
0x0d1c0…0d1e0 6e 70 72 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 ┆nproc); w3:=b.ownproc+29┆
0x0d1e0…0d200 3b 20 20 20 21 20 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 20 6d 61 73 6b 00 00 00 00 00 00 00 00 ┆; ! test function mask ┆
0x0d200…0d206 (105,) (0x450,0x1a5)
0x0d206…0d220 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 62 79 74 ┆ ! if w0:=(w3).byt┆
0x0d220…0d240 65 20 6f 6e 65 6d 61 73 6b 20 38 27 33 37 30 30 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 ┆e onemask 8'3700 then else ┆
0x0d240…0d260 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 30 3a ┆ begin copy(.w3.,w0:┆
0x0d260…0d27e 3d 31 34 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 66 75 6e 63 74 65 78 74 29 2c 77 32 3a 3d ┆=14,w1:=address(functext),w2:=┆
0x0d27e…0d284 (0x450,0x1a6)
0x0d284…0d2a0 61 64 64 72 65 73 73 28 73 74 61 72 74 65 64 29 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆address(started)); ┆
0x0d2a0…0d2c0 20 73 74 6f 70 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e ┆ stop:=w0:=1; opmess(.┆
0x0d2c0…0d2e0 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 33 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 ┆w3.,w1:=address(op3),w2:=b.ownpr┆
0x0d2e0…0d2fc 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 69 ┆oc); end; i┆
0x0d2fc…0d302 (0x450,0x1a7)
0x0d302…0d320 66 20 77 30 3a 3d 62 75 66 6c 20 3c 20 39 34 20 74 68 65 6e 20 20 20 21 20 62 75 66 66 65 ┆f w0:=bufl < 94 then ! buffe┆
0x0d320…0d340 72 20 73 69 7a 65 20 74 6f 6f 20 73 6d 61 6c 6c 20 66 6f 72 20 73 6f 73 27 20 70 72 69 76 61 74 ┆r size too small for sos' privat┆
0x0d340…0d360 65 20 75 73 65 20 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 ┆e use ! begin ┆
0x0d360…0d37a 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 31 34 2c 77 31 3a 3d 61 64 64 72 65 ┆copy(.w3.,w0:=14,w1:=addre┆
0x0d37a…0d380 (0x450,0x1a8)
0x0d380…0d3a0 73 73 28 62 75 66 6c 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 73 74 61 72 74 65 64 ┆ss(bufltext),w2:=address(started┆
0x0d3a0…0d3c0 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 0a 20 20 20 20 20 ┆)); stop:=w0:=1; ┆
0x0d3c0…0d3e0 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 33 ┆ opmess(.w3.,w1:=address(op3┆
0x0d3e0…0d400 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆),w2:=b.ownproc); ┆
0x0d400…0d406 (106,) (0x450,0x1a9)
0x0d406…0d420 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 6f 77 6e ┆ end; w3:= b.own┆
0x0d420…0d440 70 72 6f 63 2b 32 38 3b 0a 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 62 79 74 65 ┆proc+28; w0:= (w3).byte┆
0x0d440…0d460 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 6d 69 6e 75 73 65 72 73 20 74 68 65 6e 20 21 ┆; if w0<minusers then !┆
0x0d460…0d47e 20 74 6f 6f 20 66 65 77 20 69 6e 74 65 72 6e 61 6c 73 20 61 76 61 69 6c 61 62 6c 65 20 21 ┆ too few internals available !┆
0x0d47e…0d484 (0x450,0x1aa)
0x0d484…0d4a0 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 73 ┆ begin s┆
0x0d4a0…0d4c0 74 64 76 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 6d 69 6e 75 73 65 72 73 3b 0a 20 20 20 20 20 20 20 ┆tdvalue:= w0:= minusers; ┆
0x0d4c0…0d4e0 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 65 73 73 28 ┆ copy(.w3.,w0:=8,w1:=address(┆
0x0d4e0…0d4fc 69 6e 74 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 ┆inttext),w2:=address(resourc┆
0x0d4fc…0d502 (0x450,0x1ab)
0x0d502…0d520 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 ┆e)); alarm:= w0:= 2┆
0x0d520…0d540 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 20 77 30 3b 0a 20 20 ┆763306; stop:= w0; ┆
0x0d540…0d560 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┆
0x0d560…0d57a 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 ┆(op1),w2:=b.ownproc); ┆
0x0d57a…0d580 (0x450,0x1ac)
0x0d580…0d5a0 20 20 20 20 20 20 20 77 30 3a 3d 20 6d 69 6e 75 73 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 65 ┆ w0:= minusers; e┆
0x0d5a0…0d5c0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 75 73 65 72 73 3a 3d 20 77 30 2b 63 6f 6d 6e 64 75 73 65 ┆nd; users:= w0+comnduse┆
0x0d5c0…0d5e0 72 73 3b 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 ┆rs; w0*2; ! compute fr┆
0x0d5e0…0d600 65 65 20 62 75 66 73 20 21 0a 20 20 20 20 20 20 20 20 20 77 30 2b 34 3b 00 00 00 00 00 00 00 00 ┆ee bufs ! w0+4; ┆
0x0d600…0d606 (107,) (0x450,0x1ad)
0x0d606…0d620 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 32 ┆ w3:= b.ownproc+2┆
0x0d620…0d640 36 3b 0a 20 20 20 20 20 20 20 20 20 2d 28 77 30 2d 28 77 33 29 2e 62 79 74 65 29 3b 0a 20 20 20 ┆6; -(w0-(w3).byte); ┆
0x0d640…0d660 20 20 20 20 20 20 62 2e 66 72 65 65 62 75 66 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ b.freebufs:= w0; ┆
0x0d660…0d67e 69 66 20 77 30 3c 6d 69 6e 62 75 66 73 20 74 68 65 6e 20 21 20 74 6f 6f 20 66 65 77 20 62 ┆if w0<minbufs then ! too few b┆
0x0d67e…0d684 (0x450,0x1ae)
0x0d684…0d6a0 75 66 66 65 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆uffers ! begin ┆
0x0d6a0…0d6c0 20 20 20 20 20 20 20 2d 28 77 30 2d 6d 69 6e 62 75 66 73 2d 28 77 33 29 2e 62 79 74 65 29 3b 0a ┆ -(w0-minbufs-(w3).byte); ┆
0x0d6c0…0d6e0 20 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 ┆ stdvalue:= w0; ┆
0x0d6e0…0d6fc 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 64 ┆ copy(.w3.,w0:=8,w1:=add┆
0x0d6fc…0d702 (0x450,0x1af)
0x0d702…0d720 72 65 73 73 28 62 75 66 74 65 78 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f ┆ress(buftext),w2:=address(reso┆
0x0d720…0d740 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 30 3a 3d 20 ┆urce)); alarm:= w0:= ┆
0x0d740…0d760 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 20 77 30 3b 0a 20 ┆2763306; stop:= w0; ┆
0x0d760…0d77a 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 ┆ opmess(.w3.,w1:=┆
0x0d77a…0d780 (0x450,0x1b0)
0x0d780…0d7a0 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 20 ┆address(op1),w2:=b.ownproc); ┆
0x0d7a0…0d7c0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 6f 77 6e 70 72 ┆ end; w3:= b.ownpr┆
0x0d7c0…0d7e0 6f 63 2b 32 37 3b 0a 20 20 20 20 20 20 20 20 20 21 20 22 66 70 22 2c 20 73 77 6f 70 61 72 65 61 ┆oc+27; ! "fp", swoparea┆
0x0d7e0…0d800 2c 20 22 73 6f 73 63 61 74 22 2c 20 22 63 6c 65 61 72 74 65 6d 70 22 2c 00 00 00 00 00 00 00 00 ┆, "soscat", "cleartemp", ┆
0x0d800…0d806 (108,) (0x450,0x1b1)
0x0d806…0d820 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 2c 20 28 74 65 73 74 61 72 65 61 ┆ pseudo process, (testarea┆
0x0d820…0d840 29 20 21 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 ┆) ! if w0:=testsegmnts=┆
0x0d840…0d860 30 20 74 68 65 6e 20 77 30 3a 3d 35 20 65 6c 73 65 20 77 30 3a 3d 20 36 3b 0a 20 20 20 20 20 20 ┆0 then w0:=5 else w0:= 6; ┆
0x0d860…0d87e 20 20 20 77 30 2b 75 73 65 72 73 2b 75 73 65 72 73 2d 63 6f 6d 6e 64 75 73 65 72 73 3b 20 ┆ w0+users+users-comndusers; ┆
0x0d87e…0d884 (0x450,0x1b2)
0x0d884…0d8a0 21 20 70 73 65 75 64 6f 20 74 65 6d 20 2b 20 70 73 65 75 64 6f 20 70 72 69 6d 6f 20 ┆! pseudo tem + pseudo primo ┆
0x0d8a0…0d8c0 21 0a 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 ┆! w2:= (w3).byte; ┆
0x0d8c0…0d8e0 20 20 20 20 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 ┆ childarea:= w3:= w2-w0; ┆
0x0d8e0…0d8fc 20 20 20 20 20 77 30 2b 6d 69 6e 61 72 65 61 73 3b 0a 20 20 20 20 20 20 20 20 20 69 ┆ w0+minareas; i┆
0x0d8fc…0d902 (0x450,0x1b3)
0x0d902…0d920 66 20 77 32 3c 77 30 20 74 68 65 6e 20 21 20 74 6f 6f 20 66 65 77 20 61 72 65 61 73 20 21 ┆f w2<w0 then ! too few areas !┆
0x0d920…0d940 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 73 74 64 76 61 ┆ begin stdva┆
0x0d940…0d960 6c 75 65 3a 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 ┆lue:= w0+1; copy(.w3.┆
0x0d960…0d97a 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 61 72 65 61 74 65 78 ┆,w0:=8,w1:=address(areatex┆
0x0d97a…0d980 (0x450,0x1b4)
0x0d980…0d9a0 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 20 20 ┆t),w2:=address(resource)); ┆
0x0d9a0…0d9c0 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 20 20 ┆ alarm:= w0:= 2763306; ┆
0x0d9c0…0d9e0 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 6d ┆ stop:= w0; opm┆
0x0d9e0…0da00 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 00 00 00 00 00 00 00 00 ┆ess(.w3.,w1:=address(op1 ┆
0x0da00…0da06 (109,) (0x450,0x1b5)
0x0da06…0da20 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 ┆),w2:=b.ownproc); ┆
0x0da20…0da40 20 65 6e 64 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 32 32 ┆ end; w3:= b.ownproc+22┆
0x0da40…0da60 3b 0a 20 20 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 ┆; w0:= (w3).word; b.fs┆
0x0da60…0da7e 74 63 6f 72 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 ┆tcore:= w0; w3+2; ┆
0x0da7e…0da84 (0x450,0x1b6)
0x0da84…0daa0 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 20 62 2e 74 6f 70 63 ┆ w0:= (w3).word; b.topc┆
0x0daa0…0dac0 6f 72 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 62 75 66 6c 2b 21 6c 65 ┆ore:= w0; w0:= bufl+!le┆
0x0dac0…0dae0 6e 67 74 68 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 ┆ngth(userentry)*users; ┆
0x0dae0…0dafc 77 30 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 ┆w0+!length(userentry); ┆
0x0dafc…0db02 (0x450,0x1b7)
0x0db02…0db20 20 20 20 20 69 66 20 77 33 3a 3d 74 65 73 74 73 65 67 6d 6e 74 73 3c 3e 30 20 74 68 65 6e ┆ if w3:=testsegmnts<>0 then┆
0x0db20…0db40 20 77 30 2b 35 31 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 ┆ w0+512; w3:= address(c┆
0x0db40…0db60 68 69 6c 64 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 ┆hildstart); -(w3); w3+b┆
0x0db60…0db7a 2e 74 6f 70 63 6f 72 65 3b 20 77 33 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆.topcore; w3-w0; ┆
0x0db7a…0db80 (0x450,0x1b8)
0x0db80…0dba0 69 66 20 77 33 3c 6d 69 6e 73 69 7a 65 20 74 68 65 6e 20 21 20 73 69 7a 65 20 74 6f 6f 20 73 6d ┆if w3<minsize then ! size too sm┆
0x0dba0…0dbc0 61 6c 6c 20 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 ┆all ! begin ┆
0x0dbc0…0dbe0 2d 28 77 33 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 ┆-(w3-minsize); w3+b.t┆
0x0dbe0…0dc00 6f 70 63 6f 72 65 2d 62 2e 66 73 74 63 6f 72 65 3b 20 73 74 64 76 61 6c 00 00 00 00 00 00 00 00 ┆opcore-b.fstcore; stdval ┆
0x0dc00…0dc06 (110,) (0x450,0x1b9)
0x0dc06…0dc20 75 65 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e ┆ue:= w3; copy(.┆
0x0dc20…0dc40 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 69 7a 65 74 65 78 74 29 2c ┆w3.,w0:=8,w1:=address(sizetext),┆
0x0dc40…0dc60 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 20 20 20 20 20 ┆w2:=address(resource)); ┆
0x0dc60…0dc7e 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 20 20 20 ┆ alarm:= w0:= 2763306; ┆
0x0dc7e…0dc84 (0x450,0x1ba)
0x0dc84…0dca0 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 ┆ stop:= w0; ┆
0x0dca0…0dcc0 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:┆
0x0dcc0…0dce0 3d 62 2e 6f 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 ┆=b.ownproc); end; ┆
0x0dce0…0dcfc 20 20 20 20 73 77 6f 70 73 69 7a 65 3a 3d 20 77 33 20 61 73 68 69 66 74 20 2d 39 3b ┆ swopsize:= w3 ashift -9;┆
0x0dcfc…0dd02 (0x450,0x1bb)
0x0dd02…0dd20 0a 20 20 20 20 20 20 20 20 20 77 33 20 61 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 ┆ w3 ashift 9; ┆
0x0dd20…0dd40 20 20 62 2e 66 73 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 ┆ b.fstcore:= w1:= address (chil┆
0x0dd40…0dd60 64 73 74 61 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 ┆dstart); ! user process is p┆
0x0dd60…0dd7a 6c 61 63 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 62 72 61 6e 63 68 20 32 20 ┆laced instead of branch 2 ┆
0x0dd7a…0dd80 (0x450,0x1bc)
0x0dd80…0dda0 21 0a 20 20 20 20 20 20 20 20 20 77 31 2b 77 33 3b 20 62 2e 74 6f 70 63 6f 72 65 3a 3d 20 77 31 ┆! w1+w3; b.topcore:= w1┆
0x0dda0…0ddc0 3b 0a 20 20 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 ┆; b.testbfst:= w1; ┆
0x0ddc0…0dde0 20 20 20 20 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 ┆ w2:= testsegmnts; ┆
0x0dde0…0de00 20 69 66 20 77 32 3e 30 20 74 68 65 6e 20 21 20 70 72 65 70 61 72 65 20 00 00 00 00 00 00 00 00 ┆ if w2>0 then ! prepare ┆
0x0de00…0de06 (111,) (0x450,0x1bd)
0x0de06…0de20 74 65 73 74 6f 75 74 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆testoutput ! begi┆
0x0de20…0de40 6e 0a 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 35 31 30 3b 20 62 2e 74 65 73 74 62 6c 73 74 3a ┆n w1+510; b.testblst:┆
0x0de40…0de60 3d 20 77 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 3d 36 ┆= w1; copy(.w3.,w0:=6┆
0x0de60…0de7e 2c 77 31 3a 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 ┆,w1:=b.ownproc+2,w2:=address(t┆
0x0de7e…0de84 (0x450,0x1be)
0x0de84…0dea0 65 73 74 61 72 65 61 29 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 74 61 69 6c ┆estarea)+2); tail┆
0x0dea0…0dec0 28 77 32 3a 3d 32 29 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 ┆(w2:=2); copy(.w3.,w0┆
0x0dec0…0dee0 3a 3d 38 2c 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 ┆:=8,w1:=address(testdoc),w2); ┆
0x0dee0…0defc 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 20 3d 20 ┆ if w0:=(w2).word = ┆
0x0defc…0df02 (0x450,0x1bf)
0x0df02…0df20 30 20 74 68 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 ┆0 then (w2).word:=w0:=1; ┆
0x0df20…0df40 20 20 20 20 20 20 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 ┆ w3:= address(testarea); ┆
0x0df40…0df60 20 20 20 20 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 ┆ monitor(48); ! remove e┆
0x0df60…0df7a 6e 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 28 77 31 ┆ntry ! (tail(w1┆
0x0df7a…0df80 (0x450,0x1c0)
0x0df80…0dfa0 3a 3d 31 29 29 2e 77 6f 72 64 3a 3d 20 77 32 3a 3d 74 65 73 74 73 65 67 6d 6e 74 73 3b 0a 20 20 ┆:=1)).word:= w2:=testsegmnts; ┆
0x0dfa0…0dfc0 20 20 20 20 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 ┆ b.maxtestsegm:= w2; ┆
0x0dfc0…0dfe0 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 65 20 74 65 ┆ monitor(40); ! create te┆
0x0dfe0…0e000 73 74 6f 75 74 70 75 74 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆stoutput area ! ┆
0x0e000…0e006 (112,) (0x450,0x1c1)
0x0e006…0e020 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 ┆ monitor(52); ! create a┆
0x0e020…0e040 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆rea process ! monitor┆
0x0e040…0e060 28 38 29 3b 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 ┆(8); ! reserve area process ! ┆
0x0e060…0e07e 20 20 20 20 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 ┆ if w0<>0 then ┆
0x0e07e…0e084 (0x450,0x1c2)
0x0e084…0e0a0 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 ┆ begin stdv┆
0x0e0a0…0e0c0 61 6c 75 65 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 ┆alue:= w2; copy(.w3┆
0x0e0c0…0e0e0 2e 2c 77 30 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 ┆.,w0:=8,w1:=address(testarea),w2┆
0x0e0e0…0e0fc 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 ┆:=address(resource)); ┆
0x0e0fc…0e102 (0x450,0x1c3)
0x0e102…0e120 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 ┆ alarm:= w0:= 2763306; ┆
0x0e120…0e140 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 20 20 20 20 20 ┆ stop:= w0; ┆
0x0e140…0e160 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 31 29 ┆ opmess(.w3.,w1:=address(op1)┆
0x0e160…0e17a 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 ┆,w2:=b.ownproc); ┆
0x0e17a…0e180 (0x450,0x1c4)
0x0e180…0e1a0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 33 3b 0a 20 20 20 20 20 20 ┆ end; w1:= 3; ┆
0x0e1a0…0e1c0 20 20 20 20 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 ┆ monitor(50); ! permanent en┆
0x0e1c0…0e1e0 74 72 79 20 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 ┆try ! copy(.w3.,w0:=8┆
0x0e1e0…0e200 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 2c 77 00 00 00 00 00 00 00 00 ┆,w1:=address(testarea),w ┆
0x0e200…0e206 (113,) (0x450,0x1c5)
0x0e206…0e220 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 73 74 61 72 65 61 29 29 3b 0a 20 20 ┆2:=address(b.tstarea)); ┆
0x0e220…0e240 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 20 ┆ end else ┆
0x0e240…0e260 20 20 62 2e 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 ┆ b.testblst:= w1; ! p┆
0x0e260…0e27e 72 65 70 61 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 ┆repare swoparea ! cop┆
0x0e27e…0e284 (0x450,0x1c6)
0x0e284…0e2a0 79 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b 32 ┆y(.w3.,w0:=6,w1:=b.ownproc+2┆
0x0e2a0…0e2c0 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 73 77 6f 70 61 72 65 61 29 2b 32 29 3b 20 20 20 20 20 21 ┆,w2:=address(swoparea)+2); !┆
0x0e2c0…0e2e0 20 6e 61 6d 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 ┆ name = "swp<sos>" ! ta┆
0x0e2e0…0e2fc 69 6c 28 77 32 3a 3d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 ┆il(w2:=2); copy(.w3┆
0x0e2fc…0e302 (0x450,0x1c7)
0x0e302…0e320 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 77 6f 70 64 6f 63 29 2c 77 ┆.,w0:=8,w1:=address(swopdoc),w┆
0x0e320…0e340 32 29 3b 0a 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 20 3d 20 ┆2); if w0:=(w2).word = ┆
0x0e340…0e360 30 20 74 68 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 ┆0 then (w2).word:=w0:=1; ┆
0x0e360…0e37a 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 73 77 6f 70 61 72 65 61 29 3b 0a ┆ w3:= address(swoparea); ┆
0x0e37a…0e380 (0x450,0x1c8)
0x0e380…0e3a0 20 20 20 20 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 ┆ monitor(48); ! remove e┆
0x0e3a0…0e3c0 6e 74 72 79 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 ┆ntry ! w2:= users*swops┆
0x0e3c0…0e3e0 69 7a 65 3b 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 ┆ize; (tail(w1:=1)).word┆
0x0e3e0…0e400 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 00 00 00 00 00 00 00 00 ┆:= w2; monitor( ┆
0x0e400…0e406 (114,) (0x450,0x1c9)
0x0e406…0e420 34 30 29 3b 20 21 20 63 72 65 61 74 65 20 73 77 6f 70 20 61 72 65 61 20 21 0a ┆40); ! create swop area ! ┆
0x0e420…0e440 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 72 65 61 74 65 20 61 ┆ monitor(52); ! create a┆
0x0e440…0e460 72 65 61 20 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 ┆rea process ! monitor( ┆
0x0e460…0e47e 38 29 3b 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 ┆8); ! reserve area process ! ┆
0x0e47e…0e484 (0x450,0x1ca)
0x0e484…0e4a0 20 20 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 ┆ if w0<>0 then ┆
0x0e4a0…0e4c0 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 3d 20 77 ┆ begin stdvalue:= w┆
0x0e4c0…0e4e0 32 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 ┆2; copy(.w3.,w0:=8,w1┆
0x0e4e0…0e4fc 3a 3d 61 64 64 72 65 73 73 28 73 77 6f 70 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 ┆:=address(swoparea),w2:=addr┆
0x0e4fc…0e502 (0x450,0x1cb)
0x0e502…0e520 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 6c 61 ┆ess(resource)); ala┆
0x0e520…0e540 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┆
0x0e540…0e560 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.,┆
0x0e560…0e57a 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 3d 62 2e 6f 77 ┆w1:= address(op1),w2:=b.ow┆
0x0e57a…0e580 (0x450,0x1cc)
0x0e580…0e5a0 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 63 ┆nproc); end; c┆
0x0e5a0…0e5c0 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 73 28 73 77 6f 70 61 ┆opy(.w3.,w0:=8,w1:=address(swopa┆
0x0e5c0…0e5e0 72 65 61 29 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 ┆rea),w2:=address(b.swname)); ┆
0x0e5e0…0e600 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 66 70 61 72 00 00 00 00 00 00 00 00 ┆ w3:= address(fpar ┆
0x0e600…0e606 (115,) (0x450,0x1cd)
0x0e606…0e620 65 61 29 3b 20 20 20 20 20 21 20 22 66 70 22 20 21 0a 20 20 20 20 20 20 20 20 ┆ea); ! "fp" ! ┆
0x0e620…0e640 20 74 61 69 6c 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 ┆ tail(w1:=1); monitor(4┆
0x0e640…0e660 32 29 3b 20 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 ┆2); ! lookup entry ! w1┆
0x0e660…0e67e 2b 31 37 3b 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 ┆+17; b.fp_rel:= w0:= ┆
0x0e67e…0e684 (0x450,0x1ce)
0x0e684…0e6a0 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 ┆(w1).byte; monitor(┆
0x0e6a0…0e6c0 35 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 ┆52); ! create area process ! ┆
0x0e6c0…0e6e0 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 62 65 67 ┆ if w0<>0 then beg┆
0x0e6e0…0e6fc 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 3b ┆in stdvalue:= w0;┆
0x0e6fc…0e702 (0x450,0x1cf)
0x0e702…0e720 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 ┆ copy(.w3.,w0:=8,w1┆
0x0e720…0e740 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 73 28 72 65 ┆:=address(fparea),w2:=address(re┆
0x0e740…0e760 73 6f 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 30 3a ┆source)); alarm:= w0:┆
0x0e760…0e77a 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 ┆= 2763306; stop┆
0x0e77a…0e780 (0x450,0x1d0)
0x0e780…0e7a0 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 77 31 ┆:= w0; opmess(.w3.,w1┆
0x0e7a0…0e7c0 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 0a 20 ┆:=address(op1),w2:=b.ownproc); ┆
0x0e7c0…0e7e0 20 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 2e 77 33 2e 2c ┆ end; copy(.w3.,┆
0x0e7e0…0e800 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 66 70 61 72 65 61 00 00 00 00 00 00 00 00 ┆w0:=8,w1:=address(fparea ┆
0x0e800…0e806 (116,) (0x450,0x1d1)
0x0e806…0e820 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 66 70 63 6f 64 65 29 29 3b 0a ┆),w2:=address(b.fpcode)); ┆
0x0e820…0e840 0a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 63 6c 65 61 72 61 72 65 61 ┆ w3:= address(cleararea┆
0x0e840…0e860 29 3b 20 20 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 ┆); ! "cleartemp" ! ┆
0x0e860…0e87e 74 61 69 6c 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 ┆tail(w1:=1); monitor(┆
0x0e87e…0e884 (0x450,0x1d2)
0x0e884…0e8a0 34 32 29 3b 20 21 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 ┆42); ! lookup entry ! ┆
0x0e8a0…0e8c0 20 20 20 77 31 2b 31 37 3b 0a 20 20 20 20 20 20 20 20 20 62 2e 63 6c 65 61 72 74 5f 72 65 6c 3a ┆ w1+17; b.cleart_rel:┆
0x0e8c0…0e8e0 3d 20 77 30 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 ┆= w0:= (w1).byte; monit┆
0x0e8e0…0e8fc 6f 72 28 35 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 ┆or(52); ! create area proces┆
0x0e8fc…0e902 (0x450,0x1d3)
0x0e902…0e920 73 20 21 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆s ! if w0<>0 then ┆
0x0e920…0e940 20 20 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:┆
0x0e940…0e960 3d 20 77 30 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 ┆= w0; copy(.w3.,w0:=8┆
0x0e960…0e97a 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 63 6c 65 61 72 61 72 65 61 29 2c 77 32 ┆,w1:=address(cleararea),w2┆
0x0e97a…0e980 (0x450,0x1d4)
0x0e980…0e9a0 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)); ┆
0x0e9a0…0e9c0 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 20 ┆ alarm:= w0:= 2763306; ┆
0x0e9c0…0e9e0 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 2e ┆ stop:= w0; opmess(.┆
0x0e9e0…0ea00 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 2c 77 32 3a 00 00 00 00 00 00 00 00 ┆w3.,w1:=address(op1),w2: ┆
0x0ea00…0ea06 (117,) (0x450,0x1d5)
0x0ea06…0ea20 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆=b.ownproc); end;┆
0x0ea20…0ea40 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 64 ┆ copy(.w3.,w0:=8,w1:=ad┆
0x0ea40…0ea60 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 62 2e 63 ┆dress(cleararea),w2:=address(b.c┆
0x0ea60…0ea7e 6c 65 61 72 74 65 6d 70 29 29 3b 0a 20 20 20 20 20 20 20 20 20 21 20 70 72 65 70 61 72 65 ┆leartemp)); ! prepare┆
0x0ea7e…0ea84 (0x450,0x1d6)
0x0ea84…0eaa0 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c ┆ pseudo process for terminal┆
0x0eaa0…0eac0 20 69 2f 6f 20 3a 20 22 70 73 64 3c 73 6f 73 2d 6e 61 6d 65 3e 22 20 21 0a 20 20 20 20 20 20 20 ┆ i/o : "psd<sos-name>" ! ┆
0x0eac0…0eae0 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 62 2e 6f 77 6e 70 72 6f 63 2b ┆ copy(.w3.,w0:=6,w1:=b.ownproc+┆
0x0eae0…0eafc 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 65 72 6d 61 72 65 61 29 2b 32 29 3b 0a ┆2,w2:=address(termarea)+2); ┆
0x0eafc…0eb02 (0x450,0x1d7)
0x0eb02…0eb20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 74 65 72 6d 61 72 65 61 ┆ w3:= address(termarea┆
0x0eb20…0eb40 29 3b 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 38 30 29 3b 20 21 20 63 72 65 61 ┆); monitor (80); ! crea┆
0x0eb40…0eb60 74 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 69 66 20 ┆te pseudo process ! if ┆
0x0eb60…0eb7a 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆w0 <> 0 then begi┆
0x0eb7a…0eb80 (0x450,0x1d8)
0x0eb80…0eba0 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 3b 0a 20 20 20 20 ┆n stdvalue:= w0; ┆
0x0eba0…0ebc0 20 20 20 20 20 20 20 63 6f 70 79 20 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┆
0x0ebc0…0ebe0 65 73 73 28 74 65 72 6d 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(termarea),w2:=address(resour┆
0x0ebe0…0ec00 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 00 00 00 00 00 00 00 00 ┆ce)); alarm:= ┆
0x0ec00…0ec06 (118,) (0x450,0x1d9)
0x0ec06…0ec20 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 ┆ w0:= 2763306; ┆
0x0ec20…0ec40 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 77 33 ┆stop:= w0; opmess(.w3┆
0x0ec40…0ec60 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 6f 63 ┆.,w1:=address(op1),w2:=b.ownproc┆
0x0ec60…0ec7e 29 3b 0a 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 20 ┆); end else ┆
0x0ec7e…0ec84 (0x450,0x1da)
0x0ec84…0eca0 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 34 29 ┆begin monitor (4)┆
0x0eca0…0ecc0 3b 20 21 20 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 ┆; ! process description ! ┆
0x0ecc0…0ece0 20 20 20 20 20 62 2e 73 6f 73 74 65 72 6d 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 65 6e ┆ b.sosterm:= w0; en┆
0x0ece0…0ecfc 64 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 38 ┆d; w3:=b.ownproc+68┆
0x0ecfc…0ed02 (0x450,0x1db)
0x0ed02…0ed20 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 77 ┆; b.startbase:=f1:=(w┆
0x0ed20…0ed40 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 72 65 73 73 28 ┆3).double; w3:=address(┆
0x0ed40…0ed60 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 20 20 20 20 20 ┆zero); w0:=w1; ┆
0x0ed60…0ed7a 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 ┆ monitor(72); ! set sos o┆
0x0ed7a…0ed80 (0x450,0x1dc)
0x0ed80…0eda0 77 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 64 64 72 ┆wn cat base ! w3:= addr┆
0x0eda0…0edc0 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 20 20 20 21 0a ┆ess(soscat); ! "soscat" ! ┆
0x0edc0…0ede0 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 20 20 20 6d ┆ tail(w1:=1); m┆
0x0ede0…0ee00 6f 6e 69 74 6f 72 28 35 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 00 00 00 00 00 00 00 00 ┆onitor(52); ! create are ┆
0x0ee00…0ee06 (119,) (0x450,0x1dd)
0x0ee06…0ee20 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆a process ! if w0┆
0x0ee20…0ee40 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 20 20 20 20 20 20 20 ┆<>0 then begin ┆
0x0ee40…0ee60 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 20 20 20 20 63 6f 70 ┆ stdvalue:= w0; cop┆
0x0ee60…0ee7e 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 73 6f 73 63 61 ┆y(.w3.,w0:=8,w1:=address(sosca┆
0x0ee7e…0ee84 (0x450,0x1de)
0x0ee84…0eea0 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 ┆t),w2:=address(resource)); ┆
0x0eea0…0eec0 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; ┆
0x0eec0…0eee0 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 20 20 20 20 20 ┆ stop:= w0; ┆
0x0eee0…0eefc 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 31 ┆ opmess(.w3.,w1:=address(op1┆
0x0eefc…0ef02 (0x450,0x1df)
0x0ef02…0ef20 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 64 ┆),w2:=b.ownproc); end┆
0x0ef20…0ef40 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┆
0x0ef40…0ef60 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 62 2e 75 73 65 ┆ddress(soscat),w2:=address(b.use┆
0x0ef60…0ef7a 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 ┆rcat)); ! "soscat" ┆
0x0ef7a…0ef80 (0x450,0x1e0)
0x0ef80…0efa0 21 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 31 3a 3d ┆! copy(.w3.,w0:=8,w1:=┆
0x0efa0…0efc0 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 73 73 28 62 2e ┆address(t_module),w2:=address(b.┆
0x0efc0…0efe0 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 21 0a 20 20 20 ┆t_mdul)); ! "tem" ! ┆
0x0efe0…0f000 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 ┆
0x0f000…0f006 (120,) (0x450,0x1e1)
0x0f006…0f020 3a 3d 61 64 64 72 65 73 73 28 70 5f 6d 6f 64 75 6c 65 29 2c 77 32 3a 3d 61 64 ┆:=address(p_module),w2:=ad┆
0x0f020…0f040 64 72 65 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 ┆dress(b.p_mdul)); ! "primo" ┆
0x0f040…0f060 20 20 20 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 ┆ ! copy(.w3.,w0:=8,w1┆
0x0f060…0f07e 3a 3d 61 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 ┆:=address(p_msys),w2:=address(┆
0x0f07e…0f084 (0x450,0x1e2)
0x0f084…0f0a0 62 2e 70 5f 70 73 65 75 64 6f 29 29 3b 20 20 20 20 20 21 20 22 70 72 69 6d 6f 73 79 ┆b.p_pseudo)); ! "primosy┆
0x0f0a0…0f0c0 73 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 3e 30 20 74 68 ┆s" ! if w0:=stop<>0 th┆
0x0f0c0…0f0e0 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 65 73 20 6e 6f ┆en begin ! resources no┆
0x0f0e0…0f0fc 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 20 ┆t available for start up ! ┆
0x0f0fc…0f102 (0x450,0x1e3)
0x0f102…0f120 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 64 ┆ opmess(.w3.,w1:= ad┆
0x0f120…0f140 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 29 3b 0a 20 20 ┆dress(opstop),w2:=b.ownproc); ┆
0x0f140…0f160 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 73 28 2e 77 33 ┆ end; opmess(.w3┆
0x0f160…0f17a 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 ┆.,w1:=address(op2),w2:=b.o┆
0x0f17a…0f180 (0x450,0x1e4)
0x0f180…0f1a0 77 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 30 3a 3d ┆wnproc); alarm:= w0:=┆
0x0f1a0…0f1c0 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 20 20 73 74 64 ┆ 2105376; ! " " ! std┆
0x0f1c0…0f1e0 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 72 73 3b 0a 20 ┆value:= w0:= users-comndusers; ┆
0x0f1e0…0f200 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, ┆
0x0f200…0f206 (121,) (0x450,0x1e5)
0x0f206…0f220 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 74 74 65 78 74 29 2c 77 32 3a 3d 61 ┆w1:=address(inttext),w2:=a┆
0x0f220…0f240 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 6f 70 6d 65 ┆ddress(resource)); opme┆
0x0f240…0f260 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 2e 6f ┆ss(.w3.,w1:=address(op1),w2:=b.o┆
0x0f260…0f27e 77 6e 70 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 ┆wnproc); stdvalue:= ┆
0x0f27e…0f284 (0x450,0x1e6)
0x0f284…0f2a0 77 30 3a 3d 20 62 2e 66 72 65 65 62 75 66 73 3b 0a 20 20 20 20 20 20 20 20 20 63 6f ┆w0:= b.freebufs; co┆
0x0f2a0…0f2c0 70 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 75 66 74 65 78 ┆py(.w3.,w0:=8,w1:=address(buftex┆
0x0f2c0…0f2e0 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 20 20 ┆t),w2:=address(resource)); ┆
0x0f2e0…0f2fc 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 ┆ opmess(.w3.,w1:=address(┆
0x0f2fc…0f302 (0x450,0x1e7)
0x0f302…0f320 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 20 ┆op1),w2:=b.ownproc); ┆
0x0f320…0f340 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 3b 0a 20 20 20 ┆ stdvalue:= w0:= childareas; ┆
0x0f340…0f360 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 64 72 65 73 ┆ copy(.w3.,w0:=8,w1:=addres┆
0x0f360…0f37a 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 ┆s(areatext),w2:=address(re┆
0x0f37a…0f380 (0x450,0x1e8)
0x0f380…0f3a0 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 2e 77 33 2e 2c 77 ┆source)); opmess(.w3.,w┆
0x0f3a0…0f3c0 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 0a ┆1:=address(op1),w2:=b.ownproc); ┆
0x0f3c0…0f3e0 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 66 73 74 63 6f ┆ w0:= b.topcore-b.fstco┆
0x0f3e0…0f400 72 65 3b 20 73 74 64 76 61 6c 75 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆re; stdvalue:= w0; ┆
0x0f400…0f406 (122,) (0x450,0x1e9)
0x0f406…0f420 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┆
0x0f420…0f440 64 72 65 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 ┆dress(sizetext),w2:=address(reso┆
0x0f440…0f460 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 2e 2c 77 31 3a ┆urce)); opmess(.w3.,w1:┆
0x0f460…0f47e 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 0a ┆=address(op1),w2:=b.ownproc); ┆
0x0f47e…0f484 (0x450,0x1ea)
0x0f484…0f4a0 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┆
0x0f4a0…0f4c0 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 0a 20 20 20 20 20 ┆ress(op3),w2:=b.ownproc); ┆
0x0f4c0…0f4e0 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 20 66 6f 72 20 ┆ comment reserve space for ┆
0x0f4e0…0f4fc 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 0a ┆i/o-buffers for terminals; ┆
0x0f4fc…0f502 (0x450,0x1eb)
0x0f502…0f520 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 20 ┆ w1:= b.testblst+2; ┆
0x0f520…0f540 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 20 20 20 77 32 ┆ w0:=bufl*users; w2┆
0x0f540…0f560 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 3d 77 32 3b 0a ┆:=w0+w1; currentry:=w2; ┆
0x0f560…0f57a 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 ┆ b.firstuser:=w2; ┆
0x0f57a…0f580 (0x450,0x1ec)
0x0f580…0f5a0 20 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 70 73 69 ┆ swopno:=w3:=swopno-swopsi┆
0x0f5a0…0f5c0 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 77 68 69 6c 65 ┆ze; w3:=0; while┆
0x0f5c0…0f5e0 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 61 6c 69 7a 65 ┆ w3+1<=users do ! initialize┆
0x0f5e0…0f600 20 61 6c 6c 20 75 73 65 72 20 65 6e 74 72 69 65 73 20 61 73 20 65 6d 70 00 00 00 00 00 00 00 00 ┆ all user entries as emp ┆
0x0f600…0f606 (123,) (0x450,0x1ed)
0x0f606…0f620 74 79 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆ty ! begin ┆
0x0f620…0f640 20 20 20 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 ┆ (w2).prevuser:=w0:=prevchain;┆
0x0f640…0f660 0a 20 20 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 ┆ prevchain:=w2; ┆
0x0f660…0f67e 20 20 20 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 ┆ swopno:=w0:=swopno+swopsiz┆
0x0f67e…0f684 (0x450,0x1ee)
0x0f684…0f6a0 65 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 77 6f 70 73 65 67 6d 3a 3d ┆e; (w2).swopsegm:=┆
0x0f6a0…0f6c0 77 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 3b 0a 20 20 20 ┆w0:=swopno; w0:=0; ┆
0x0f6c0…0f6e0 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 20 20 20 20 20 ┆ (w2).internal:=w0; ┆
0x0f6e0…0f6fc 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 20 ┆ (w2).peripheral:=w0; ┆
0x0f6fc…0f702 (0x450,0x1ef)
0x0f702…0f720 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 20 ┆ (w2).messsend:=w0; ┆
0x0f720…0f740 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 20 20 20 20 20 ┆ (w2).messgot:=w0; ┆
0x0f740…0f760 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 20 20 28 77 32 ┆ (w2).bufrel:=w0; (w2┆
0x0f760…0f77a 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 ┆).buffer:=w1; w1┆
0x0f77a…0f780 (0x450,0x1f0)
0x0f780…0f7a0 2b 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 74 68 28 ┆+bufl; w0:=w2+!length(┆
0x0f7a0…0f7c0 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 6e 65 78 74 75 ┆userentry); (w2).nextu┆
0x0f7c0…0f7e0 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 20 20 20 20 20 ┆ser:=w0; w2:=w0; ┆
0x0f7e0…0f800 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 2e 6c 61 73 74 75 73 00 00 00 00 00 00 00 00 ┆ end; b.lastus ┆
0x0f800…0f806 (124,) (0x450,0x1f1)
0x0f806…0f820 65 72 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 30 2d 21 6c ┆er:=w2; w2:=(w0-!l┆
0x0f820…0f840 65 6e 67 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 ┆ength(userentry)); w0-!l┆
0x0f840…0f860 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 28 77 32 29 2e 70 ┆ength(userentry); (w2).p┆
0x0f860…0f87e 72 65 76 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 ┆revuser:=w0; (w2).next┆
0x0f87e…0f884 (0x450,0x1f2)
0x0f884…0f8a0 75 73 65 72 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 ┆user:=w0:=address(b.waitqfst┆
0x0f8a0…0f8c0 29 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 20 20 20 20 20 ┆); b.waitqlst:=w2; ┆
0x0f8c0…0f8e0 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 20 28 77 32 29 ┆ w2:=b.firstuser; (w2)┆
0x0f8e0…0f8fc 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 69 ┆.prevuser:=w0:=address(b.wai┆
0x0f8fc…0f902 (0x450,0x1f3)
0x0f902…0f920 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 77 ┆tqfst); b.activqfst:=w┆
0x0f920…0f940 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 20 20 20 20 20 ┆0:=address(b.activqfst); ┆
0x0f940…0f960 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 2e 62 61 74 63 ┆ b.activqlst:=w0; b.batc┆
0x0f960…0f97a 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 ┆hqfst:=w0:=address(b.batch┆
0x0f97a…0f980 (0x450,0x1f4)
0x0f980…0f9a0 71 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 30 3b 0a ┆qfst); b.batchqlst:=w0; ┆
0x0f9a0…0f9c0 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 20 20 20 20 20 ┆ b.waitqfst:=w2; ┆
0x0f9c0…0f9e0 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 72 65 73 73 28 ┆testout(.w3.,w0:=60,w1:=address(┆
0x0f9e0…0fa00 73 6f 73 76 65 72 73 69 6f 6e 29 2c 77 32 3a 3d 36 39 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆sosversion),w2:=69); ┆
0x0fa00…0fa06 (125,) (0x450,0x1f5)
0x0fa06…0fa20 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); ┆
0x0fa20…0fa40 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 20 20 20 20 20 6d ┆ f1:=b.startbase; m┆
0x0fa40…0fa60 6f 6e 69 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 ┆onitor(72); ! set own cat base ┆
0x0fa60…0fa7e 21 0a 20 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 ┆! w0:=b.fstcore; ┆
0x0fa7e…0fa84 (0x450,0x1f6)
0x0fa84…0faa0 20 20 20 62 2e 72 65 67 69 73 74 65 72 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ b.register1:=w0; ┆
0x0faa0…0fac0 77 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 73 74 6f 75 74 ┆w0:=b.fstcore+2; testout┆
0x0fac0…0fae0 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 2d 34 2c 77 32 ┆(.w3.,w0:=150,w1:=b.ownproc-4,w2┆
0x0fae0…0fafc 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 65 ┆:=8); comment *; te┆
0x0fafc…0fb02 (0x450,0x1f7)
0x0fb02…0fb20 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 65 ┆stout (.w3., w0:=20, w1:=addre┆
0x0fb20…0fb40 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 20 20 20 20 20 ┆ss(b.activqfst), w2:=9); ┆
0x0fb40…0fb60 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 62 2e 62 61 73 ┆ w3:=b.ownproc+98; b.bas┆
0x0fb60…0fb7a 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 ┆ereg:=w3:=(w3).word; ┆
0x0fb7a…0fb80 (0x450,0x1f8)
0x0fb80…0fba0 20 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 20 65 6e ┆ w3:=return; end; en┆
0x0fba0…0fbc0 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 64 79 20 6f 66 ┆d; ! init ! body of┆
0x0fbc0…0fbe0 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 63 65 64 75 72 ┆ opmess begin procedur┆
0x0fbe0…0fc00 65 20 6f 75 74 69 6e 74 65 67 65 72 28 2e 77 33 2e 3b 77 31 3b 77 32 29 00 00 00 00 00 00 00 00 ┆e outinteger(.w3.;w1;w2) ┆
0x0fc00…0fc06 (126,) (0x450,0x1f9)
0x0fc06…0fc20 3b 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 74 65 78 ┆; incode tex┆
0x0fc20…0fc40 74 28 31 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 ┆t(11) pause:=" pause ",mess:=" m┆
0x0fc40…0fc60 65 73 73 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 ┆essage "; text(14) mainc┆
0x0fc60…0fc7e 6f 6e 73 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 ┆ons; word clock1,clock┆
0x0fc7e…0fc84 (0x450,0x1fa)
0x0fc84…0fca0 32 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 73 79 73 6e 61 6d 65 3b ┆2; text(11) sysname;┆
0x0fca0…0fcc0 0a 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 0a 20 20 20 20 ┆ text(11) messtype; ┆
0x0fcc0…0fce0 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 20 20 20 20 20 ┆ text(14) procname:=" ┆
0x0fce0…0fcfc 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 20 ┆ "; array(1:70) ┆
0x0fcfc…0fd02 (0x450,0x1fb)
0x0fd02…0fd20 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 6f ┆linebuffer of word; wo┆
0x0fd20…0fd40 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 3d 35 2c 6d 6f ┆rd nl:=10; byte op:=5,mo┆
0x0fd40…0fd60 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 73 74 3b 0a 20 ┆de:=0; ref first,last; ┆
0x0fd60…0fd7a 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 ┆ double savef1,savef┆
0x0fd7a…0fd80 (0x450,0x1fc)
0x0fd80…0fda0 33 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 3a 3d 66 ┆3; begin savef1:=f┆
0x0fda0…0fdc0 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 20 20 20 20 6f ┆1; savef3:=f3; o┆
0x0fdc0…0fde0 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 63 6b 31 29 29 ┆uttime(.w3.,w2:=address(clock1))┆
0x0fde0…0fe00 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 73 79 00 00 00 00 00 00 00 00 ┆; w3:=address(sy ┆
0x0fe00…0fe06 (127,) (0x450,0x1fd)
0x0fe06…0fe20 73 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 6f 77 6e 70 ┆sname); w2:=b.ownp┆
0x0fe20…0fe40 72 6f 63 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 ┆roc+2; (w3).name1:=f1:=(┆
0x0fe40…0fe60 77 32 29 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 ┆w2).name1; f1:=(w2).name┆
0x0fe60…0fe7e 32 3b 0a 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 ┆2; w1+58; (w3)┆
0x0fe7e…0fe84 (0x450,0x1fe)
0x0fe84…0fea0 2e 6e 61 6d 65 32 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 ┆.name2:=f1; f3:=save┆
0x0fea0…0fec0 66 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 2c 77 31 3a 3d ┆f3; copy(.w3.,w0:=8,w1:=┆
0x0fec0…0fee0 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 3b 0a 20 20 20 ┆w2+2,w2:=address(procname)); ┆
0x0fee0…0fefc 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 20 ┆ f1:=savef1; if ┆
0x0fefc…0ff02 (0x450,0x1ff)
0x0ff02…0ff20 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 68 ┆w0:=(w1).word extract 1 = 1 th┆
0x0ff20…0ff40 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 20 20 20 20 20 ┆en w1:=address(pause) ┆
0x0ff40…0ff60 20 20 20 20 20 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┆
0x0ff60…0ff7a 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 ┆e w1:=address(mess); ┆
0x0ff7a…0ff80 (0x450,0x200)
0x0ff80…0ffa0 20 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 72 65 73 ┆ copy(.w3.,w0:=8,w1,w2:=addres┆
0x0ffa0…0ffc0 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 61 76 65 66 31 ┆s(messtype)); f1:=savef1┆
0x0ffc0…0ffe0 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 6f 72 20 28 77 ┆; w0:=-1 lshift 12 or (w┆
0x0ffe0…10000 31 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 35 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆1).word lshift -5; ┆
0x10000…10006 (128,) (0x450,0x201)
0x10006…10020 20 20 20 77 31 2b 31 34 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 62 75 66 66 ┆ w1+14; linebuff┆
0x10020…10040 65 72 28 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 ┆er(w2:=70); while w0 one┆
0x10040…10060 6d 61 73 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 ┆mask 8'10000 do begin ┆
0x10060…1007e 20 20 20 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 ┆ if w0 onemask 1 then ┆
0x1007e…10084 (0x450,0x202)
0x10084…100a0 20 20 20 20 20 20 20 20 20 6f 75 74 69 6e 74 65 67 65 72 28 2e 77 33 2e 2c 77 31 2c ┆ outinteger(.w3.,w1,┆
0x100a0…100c0 77 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 64 3a 3d 77 33 ┆w2) else (w2).word:=w3┆
0x100c0…100e0 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 3b 0a 20 20 20 ┆:=(w1).word; w2-2; ┆
0x100e0…100fc 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 73 ┆ w1-2; w0 ls┆
0x100fc…10102 (0x450,0x203)
0x10102…10120 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 20 ┆hift -1; end; ┆
0x10120…10140 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 31 3a 3d 31 29 ┆w0:=0; linebuffer(w1:=1)┆
0x10140…10160 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 0a 20 20 20 20 ┆; while w1 <= w2 do ┆
0x10160…1017a 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 ┆ begin (w1).w┆
0x1017a…10180 (0x450,0x204)
0x10180…101a0 6f 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 20 20 20 ┆ord:=w0; w1+2; ┆
0x101a0…101c0 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 64 72 65 73 73 ┆ end; first:=w1:=address┆
0x101c0…101e0 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 3d 61 64 64 72 ┆(clock1); last:=w1:=addr┆
0x101e0…10200 65 73 73 28 6e 6c 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 00 00 00 00 00 00 00 00 ┆ess(nl); copy(.w ┆
0x10200…10206 (129,) (0x450,0x205)
0x10206…10220 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 62 2e 6d 61 69 6e 63 6f 6e 73 72 65 66 ┆3.,w0:=8,w1:=b.mainconsref┆
0x10220…10240 2b 32 2c 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 ┆+2,w2:=address(maincons)); ┆
0x10240…10260 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 3a 3d ┆ w1:=address(op); w3:=┆
0x10260…1027e 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 20 20 6d 6f 6e ┆address(maincons); mon┆
0x1027e…10284 (0x450,0x206)
0x10284…102a0 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 ┆itor(16); ! send message ! ┆
0x102a0…102c0 20 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 20 20 20 20 20 ┆ linebuffer(w1:=1); ┆
0x102c0…102e0 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 72 20 21 ┆ monitor(18); ! wait answer !┆
0x102e0…102fc 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 ┆ f1:=savef1; ┆
0x102fc…10302 (0x450,0x207)
0x10302…10320 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 62 ┆ f3:=savef3; if w2 = b┆
0x10320…10340 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 3a 3d 28 77 31 ┆.ownproc then if w0:=(w1┆
0x10340…10360 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 20 20 20 62 65 ┆).word onemask 1 then be┆
0x10360…1037a 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 ┆gin ! pause message from s┆
0x1037a…10380 (0x450,0x208)
0x10380…103a0 6f 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 20 20 20 ┆os itself ! w0:=0; ┆
0x103a0…103c0 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 69 74 6f 72 28 ┆ w3:=0; monitor(┆
0x103c0…103e0 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 20 20 20 20 20 ┆0); ! set interrupt ! ┆
0x103e0…10400 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 30 32 34 2c 77 00 00 00 00 00 00 00 00 ┆ testout(.w3.,w0:=1024,w ┆
0x10400…10406 (130,) (0x450,0x209)
0x10406…10420 31 3a 3d 2d 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 ┆1:=-2,w2); end els┆
0x10420…10440 65 20 66 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 ┆e f1:=savef1; end; ┆
0x10440…10460 62 6f 64 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 ┆body of outinteger begin ┆
0x10460…1047e 20 20 20 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 ┆ incode double┆
0x1047e…10484 (0x450,0x20a)
0x10484…104a0 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 ┆ savef1; word save┆
0x104a0…104c0 77 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 20 73 61 76 65 ┆w3; begin save┆
0x104c0…104e0 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 33 3b 0a 20 20 ┆f1:=f1; savew3:=w3; ┆
0x104e0…104fc 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 20 ┆ (w2).word:=w0:=32; ┆
0x104fc…10502 (0x450,0x20b)
0x10502…10520 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 28 ┆ w2-2; w0:=(┆
0x10520…10540 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 20 30 20 74 68 ┆w1).word; if w0 = 0 th┆
0x10540…10560 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 28 ┆en begin (┆
0x10560…1057a 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 ┆w2).word:=w3:=48; ┆
0x1057a…10580 (0x450,0x20c)
0x10580…105a0 20 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 20 20 20 ┆ w2-2; end; ┆
0x105a0…105c0 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 20 20 20 62 65 ┆ while w0 <> 0 do be┆
0x105c0…105e0 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 20 20 20 20 20 ┆gin w3:=0; ┆
0x105e0…10600 20 20 20 66 30 20 2f 2f 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ f0 // 10; ┆
0x10600…10606 (131,) (0x450,0x20d)
0x10606…10620 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 33 2b 34 38 3b 0a 20 20 20 20 20 20 20 ┆ (w2).word:=w3+48; ┆
0x10620…10640 20 20 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 20 20 ┆ w2-2; end; ┆
0x10640…10660 20 20 20 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 ┆ (w2).word:=w0:=32; ┆
0x10660…1067e 20 66 31 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 ┆ f1:=savef1; w3:=sav┆
0x1067e…10684 (0x450,0x20e)
0x10684…106a0 65 77 33 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 ┆ew3; end; end;┆
0x106a0…106c0 20 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 20 20 21 20 6f ┆ ! outinteger ! end; ! o┆
0x106c0…106e0 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 6f 75 74 0a 20 ┆pmess ! body of logout ┆
0x106e0…106fc 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 20 ┆ begin incode ┆
0x106fc…10702 (0x450,0x20f)
0x10702…10720 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 ┆ double savef1,savef3; ┆
0x10720…10740 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 20 20 72 65 66 ┆ byte op1,mode1:=0; ref┆
0x10740…10760 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 3d 31 30 32 2c ┆ fst,lst; byte op2:=102,┆
0x10760…1077a 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 ┆mode2:=0; word loc┆
0x1077a…10780 (0x450,0x210)
0x10780…107a0 69 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 3d 22 27 ┆id; text(14) simtext:="'┆
0x107a0…107c0 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 20 20 20 20 74 ┆2''2' hard error'10'"; t┆
0x107c0…107e0 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 69 6e 0a 20 20 ┆ext(14) poolname; begin ┆
0x107e0…10800 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ savef1:=f1; ┆
0x10800…10806 (132,) (0x450,0x211)
0x10806…10820 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 20 20 73 74 61 72 ┆ savef3:=f3; star┆
0x10820…10840 74 73 74 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 ┆tstop(.w3.,w0:=0,w1); (w┆
0x10840…10860 31 29 2e 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 ┆1).buflength:=w0:=0; if ┆
0x10860…1087e 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 20 73 65 6e ┆w0:=(w1).messgot > 10 then sen┆
0x1087e…10884 (0x450,0x212)
0x10884…108a0 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 20 ┆d(.w3.,w0:=1,w1,w2:=0); ┆
0x108a0…108c0 20 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 66 66 65 72 29 ┆ locid:=w0:=(w3:=(w1).buffer)┆
0x108c0…108e0 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 3a 3d 36 2c 77 ┆.word; copy(.w3.,w0:=6,w┆
0x108e0…108fc 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 65 ┆1:=(w1).internal+2,w2:=addre┆
0x108fc…10902 (0x450,0x213)
0x10902…10920 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 28 ┆ss(poolname)+2); copy(┆
0x10920…10940 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 6d 64 75 6c 29 ┆.w3.,w0:=2,w1:=address(b.t_mdul)┆
0x10940…10960 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 20 20 20 20 20 ┆,w2:=address(poolname)); ┆
0x10960…1097a 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 ┆ w3:=address(poolname); ┆
0x1097a…10980 (0x450,0x214)
0x10980…109a0 20 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 20 69 6e ┆ op1:=w0:=9; ! simulate in┆
0x109a0…109c0 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 65 73 73 28 6c ┆put ! fst:=w0:=address(l┆
0x109c0…109e0 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 72 65 73 73 28 ┆ocid); lst:=w0:=address(┆
0x109e0…10a00 73 69 6d 74 65 78 74 29 2b 38 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆simtext)+8; w1:= ┆
0x10a00…10a06 (133,) (0x450,0x215)
0x10a06…10a20 61 64 64 72 65 73 73 28 6f 70 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆address(op1); moni┆
0x10a20…10a40 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 20 ┆tor(16); ! send message ! ┆
0x10a40…10a60 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 6d 6f 6e 69 74 ┆ w1:=b.lastuser; monit┆
0x10a60…10a7e 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 20 ┆or(18); ! wait answer ! ┆
0x10a7e…10a84 (0x450,0x216)
0x10a84…10aa0 20 20 20 69 66 20 77 30 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 3d 20 31 20 74 68 ┆ if w0 or (w1).word = 1 th┆
0x10aa0…10ac0 65 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 6c 20 6f 6e 20 ┆en begin ! terminal on ┆
0x10ac0…10ae0 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 20 20 77 31 3a ┆transparent pool ! w1:┆
0x10ae0…10afc 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 6e ┆=address(op2); mon┆
0x10afc…10b02 (0x450,0x217)
0x10b02…10b20 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 6d ┆itor(16); ! send message (rem┆
0x10b20…10b40 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 77 31 3a 3d 62 ┆ove link soft) ! w1:=b┆
0x10b40…10b60 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 72 28 31 38 29 ┆.lastuser; monitor(18)┆
0x10b60…10b7a 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 ┆; ! wait answer ! ┆
0x10b7a…10b80 (0x450,0x218)
0x10b80…10ba0 20 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 68 65 72 ┆ end else begin ! other┆
0x10ba0…10bc0 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 20 6a 6f 62 20 ┆ kind of hard error - kill job ┆
0x10bc0…10be0 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 20 20 20 20 20 ┆! f1:=savef1; ┆
0x10be0…10c00 20 20 63 6c 65 61 6e 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ clean(.w3.,w1); ┆
0x10c00…10c06 (134,) (0x450,0x219)
0x10c06…10c20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 36 3b ┆ (w1).intervent:=w0:=6;┆
0x10c20…10c40 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 73 61 76 65 66 31 ┆ end; f1:=savef1┆
0x10c40…10c60 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 28 77 31 29 2e 6d 65 ┆; w0:=1; (w1).me┆
0x10c60…10c7e 73 73 73 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 ┆sssend:=w0; goto b.act┆
0x10c7e…10c84 (0x450,0x21a)
0x10c84…10ca0 69 76 61 74 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 ┆ivate; end; end; ┆
0x10ca0…10cc0 20 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 66 20 6f 75 74 ┆ ! logout ! body of out┆
0x10cc0…10ce0 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 0a 20 20 20 20 ┆text begin incode ┆
0x10ce0…10cfc 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 3d ┆ text(29) t0 :=┆
0x10cfc…10d02 (0x450,0x21b)
0x10d02…10d20 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 20 ┆"command unknown'10'", ┆
0x10d20…10d40 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 20 20 20 20 74 ┆ t1 :="ready'10'", t┆
0x10d40…10d60 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 20 74 33 20 3a ┆2 :="syntax'10'", t3 :┆
0x10d60…10d7a 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 ┆="identification illegal'1┆
0x10d7a…10d80 (0x450,0x21c)
0x10d80…10da0 30 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 69 6e 20 ┆0'", t4 :="no room in ┆
0x10da0…10dc0 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 20 20 20 74 35 ┆primary store'10'", t5┆
0x10dc0…10de0 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 2c 0a 20 20 20 ┆ :="bs claims exceeded'10'", ┆
0x10de0…10e00 20 20 20 20 20 20 20 74 36 20 3a 3d 22 70 72 6f 63 65 73 73 20 63 72 65 00 00 00 00 00 00 00 00 ┆ t6 :="process cre ┆
0x10e00…10e06 (135,) (0x450,0x21d)
0x10e06…10e20 61 74 69 6f 6e 20 6e 6f 74 20 6f 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 ┆ation not ok'10'", ┆
0x10e20…10e40 20 20 20 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 ┆ t7 :="forbidden'10'", ┆
0x10e40…10e60 20 20 20 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 ┆ t8 :="terminal busy'10'", ┆
0x10e60…10e7e 20 20 20 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 ┆ t9 :="terminal connecti┆
0x10e7e…10e84 (0x450,0x21e)
0x10e84…10ea0 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 74 31 ┆on not ok'10'", t1┆
0x10ea0…10ec0 30 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 31 30 27 22 2c ┆0:="jobfile does not exist'10'",┆
0x10ec0…10ee0 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 6f 6e 6e 65 63 ┆ t11:="terminal connec┆
0x10ee0…10efc 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 65 ┆ted'10'", t12:="te┆
0x10efc…10f02 (0x450,0x21f)
0x10f02…10f20 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 20 ┆rminal disconnected'10'", ┆
0x10f20…10f40 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 27 22 2c 0a 20 ┆ t13:="bad password'10'", ┆
0x10f40…10f60 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 20 63 6f 6e 6e ┆ t14:="terminal not conn┆
0x10f60…10f7a 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 ┆ected'10'", t15:┆
0x10f7a…10f80 (0x450,0x220)
0x10f80…10fa0 3d 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 20 20 20 ┆="process unknown'10'", ┆
0x10fa0…10fc0 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 6b 27 31 30 27 ┆ t16:="disconnection not ok'10'┆
0x10fc0…10fe0 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 20 6f 6b 27 31 ┆", t17:="call not ok'1┆
0x10fe0…11000 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 31 38 3a 3d 22 69 6e 63 00 00 00 00 00 00 00 00 ┆0'", t18:="inc ┆
0x11000…11006 (136,) (0x450,0x221)
0x11006…11020 6c 75 64 65 20 6e 6f 74 20 6f 6b 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 ┆lude not ok'10'", ┆
0x11020…11040 20 20 74 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 ┆ t19:="enrolled'10'", ┆
0x11040…11060 20 74 32 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 ┆ t20:="removed after break'10'",┆
0x11060…1107e 0a 20 20 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 ┆ t21:="removed after┆
0x1107e…11084 (0x450,0x222)
0x11084…110a0 20 66 69 6e 69 73 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 32 3a 3d ┆ finis'10'", t22:=┆
0x110a0…110c0 22 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 27 22 2c 0a 20 ┆"removed after user kill'10'", ┆
0x110c0…110e0 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 72 20 6f 70 65 ┆ t23:="removed after ope┆
0x110e0…110fc 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 74 ┆rator kill'10'", t┆
0x110fc…11102 (0x450,0x223)
0x11102…11120 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 64 ┆24:="removed after time exceed┆
0x11120…11140 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 6d 6f 76 65 64 ┆ed'10'", t25:="removed┆
0x11140…11160 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 0a 20 20 20 20 ┆ after terminal error'10'", ┆
0x11160…1117a 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 ┆ t26:="removed after ┆
0x1117a…11180 (0x450,0x224)
0x11180…111a0 75 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 37 3a 3d ┆user break'10'", t27:=┆
0x111a0…111c0 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 61 6b 27 31 30 ┆"removed after operator break'10┆
0x111c0…111e0 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 6e 66 6c 69 63 ┆'", t28:="user conflic┆
0x111e0…11200 74 27 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 74 32 39 3a 3d 22 00 00 00 00 00 00 00 00 ┆t'10'", t29:=" ┆
0x11200…11206 (137,) (0x450,0x225)
0x11206…11220 66 6f 72 62 69 64 64 65 6e 20 20 2d 20 20 73 79 73 74 65 6d 20 6c 6f 63 6b 65 ┆forbidden - system locke┆
0x11220…11240 64 27 31 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 ┆d'10'", t30:="user cat┆
0x11240…11260 61 6c 6f 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 ┆alog reserved'10'", t9┆
0x11260…1127e 39 3a 3d 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 ┆9:="***"; double savef┆
0x1127e…11284 (0x450,0x226)
0x11284…112a0 33 3b 0a 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 ┆3; word savew0,savew┆
0x112a0…112c0 31 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 20 20 20 20 20 ┆1; ref bufpointer; ┆
0x112c0…112e0 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 20 20 20 20 20 ┆ begin savef3:=f3; ┆
0x112e0…112fc 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 77 ┆ savew0:=w0; savew┆
0x112fc…11302 (0x450,0x227)
0x11302…11320 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 3a ┆1:=w1; bufpointer:=w3:┆
0x11320…11340 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 77 6f 72 64 3a ┆=(w1).buffer; (w3).word:┆
0x11340…11360 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 20 20 20 62 75 ┆=w2:=0; w3+2; bu┆
0x11360…1137a 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 ┆fpointer:=w3; if w┆
0x1137a…11380 (0x450,0x228)
0x11380…113a0 30 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 65 67 69 ┆0 onemask 8'10 then begi┆
0x113a0…113c0 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 20 6f 75 74 74 ┆n ! write time ! outt┆
0x113c0…113e0 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 20 20 20 20 20 ┆ime(.w3.,w2:=bufpointer); ┆
0x113e0…11400 20 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a 3d 77 32 3a 3d 62 75 66 70 00 00 00 00 00 00 00 00 ┆ bufpointer:=w2:=bufp ┆
0x11400…11406 (138,) (0x450,0x229)
0x11406…11420 6f 69 6e 74 65 72 2b 34 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ointer+4; end; ┆
0x11420…11440 20 20 20 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 ┆ w3:=bufpointer; cas┆
0x11440…11460 65 20 77 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 ┆e w2:=savew0 extract 3 + 1 of ┆
0x11460…1147e 20 20 20 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 ┆ begin (w3).wor┆
0x1147e…11484 (0x450,0x22a)
0x11484…114a0 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 ┆d:=w0:=0; (w3).wor┆
0x114a0…114c0 64 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 2a 2a 2a 22 20 ┆d:=w0:=2763306; comment "***" ┆
0x114c0…114e0 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 32 31 37 31 31 ┆; (w3).word:=w0:=21711┆
0x114e0…114fc 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 20 ┆69; comment "!!!" ; ┆
0x114fc…11502 (0x450,0x22b)
0x11502…11520 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 20 ┆ (w3).word:=w0:=2960685; ┆
0x11520…11540 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 77 33 29 2e 77 ┆comment "---" ; (w3).w┆
0x11540…11560 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 20 22 20 20 20 ┆ord:=w0:=2105376; comment " ┆
0x11560…1157a 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 ┆" ; (w3).word:=w┆
0x1157a…11580 (0x450,0x22c)
0x11580…115a0 30 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 30 ┆0:=0; (w3).word:=w0:=0┆
0x115a0…115c0 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 30 3b 0a 20 20 ┆; (w3).word:=w0:=0; ┆
0x115c0…115e0 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 65 72 3a 3d 77 ┆ end; bufpointer:=w┆
0x115e0…11600 30 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 32 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆0:=bufpointer+2; ┆
0x11600…11606 (139,) (0x450,0x22d)
0x11606…11620 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 32 ┆ if w0:=savew0 onemask 8'2┆
0x11620…11640 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 73 79 ┆0 then begin ! write sy┆
0x11640…11660 73 74 65 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 ┆stem name ! w3:=bufpoi┆
0x11660…1167e 6e 74 65 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 ┆nter; w2:=b.ownproc+┆
0x1167e…11684 (0x450,0x22e)
0x11684…116a0 32 3b 0a 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 ┆2; (w3).name1:=f1:┆
0x116a0…116c0 3d 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 28 77 32 29 2e ┆=(w2).name1; f1:=(w2).┆
0x116c0…116e0 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 20 20 21 20 22 ┆name2; w1+14880; ! "┆
0x116e0…116fc 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 3d ┆: " ! (w3).name2:=┆
0x116fc…11702 (0x450,0x22f)
0x11702…11720 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 3d ┆f1; bufpointer:=w0:=┆
0x11720…11740 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 20 20 20 20 20 ┆bufpointer+8; end; ┆
0x11740…11760 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 34 30 20 74 68 ┆ if w0:=savew0 onemask 8'40 th┆
0x11760…1177a 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 ┆en begin ! write ┆
0x1177a…11780 (0x450,0x230)
0x11780…117a0 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 77 33 3a 3d 62 75 66 ┆process name ! w3:=buf┆
0x117a0…117c0 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 77 31 3b 0a 20 ┆pointer; w1:=savew1; ┆
0x117c0…117e0 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 20 20 20 77 ┆ w1:=savew1; w┆
0x117e0…11800 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆2:=(w1).internal+2; ┆
0x11800…11806 (140,) (0x450,0x231)
0x11806…11820 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 ┆ (w3).name1:=f1:=(w2)┆
0x11820…11840 2e 6e 61 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 ┆.name1; f1:=(w2).name2┆
0x11840…11860 3b 0a 20 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 ┆; w1+32; (w3┆
0x11860…1187e 29 2e 6e 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 ┆).name2:=f1; bufpoin┆
0x1187e…11884 (0x450,0x232)
0x11884…118a0 74 65 72 3a 3d 77 30 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 38 3b 0a 20 20 20 20 20 ┆ter:=w0:=bufpointer+8; ┆
0x118a0…118c0 20 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 0a 20 20 20 20 ┆ end; f3:=savef3; ┆
0x118c0…118e0 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 2e 2c 77 30 3a ┆ w2*20; copy(.w3.,w0:┆
0x118e0…118fc 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 62 ┆=20,w1:=address(t0)+w2,w2:=b┆
0x118fc…11902 (0x450,0x233)
0x11902…11920 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 31 ┆ufpointer); w1:=savew1┆
0x11920…11940 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 20 20 20 20 20 ┆; w0:=(w1).buffer; ┆
0x11940…11960 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 75 66 6c 65 6e ┆ w2+20-w0; (w1).buflen┆
0x11960…1197a 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 ┆gth:=w2; testout(┆
0x1197a…11980 (0x450,0x234)
0x11980…119a0 2e 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 32 3a 3d ┆.w3.,w0:=w2,w1:=(w1).buffer,w2:=┆
0x119a0…119c0 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 20 20 20 20 20 ┆0); w1:=savew1; ┆
0x119c0…119e0 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 30 29 3b 0a 20 ┆send(.w3.,w0:=0,w1,w2:=20480); ┆
0x119e0…11a00 20 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0:=savew0; ┆
0x11a00…11a06 (141,) (0x450,0x235)
0x11a06…11a20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 66 33 3a ┆ w1:=savew1; f3:┆
0x11a20…11a40 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 3b 20 20 20 20 ┆=savef3; end; end; ┆
0x11a40…11a60 21 20 6f 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 ┆! outtext ! body of out┆
0x11a60…11a7e 74 69 6d 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 ┆time begin record ti┆
0x11a7e…11a84 (0x450,0x236)
0x11a84…11aa0 6d 65 74 65 78 74 28 77 6f 72 64 20 68 6f 75 72 74 78 74 2c 6d 69 6e 75 74 65 74 78 ┆metext(word hourtxt,minutetx┆
0x11aa0…11ac0 74 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 66 20 73 79 73 ┆t); incode ref sys┆
0x11ac0…11ae0 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 73 69 7a 65 3a ┆time:=108; word daysize:┆
0x11ae0…11afc 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 6e ┆=1687500,hoursize:=70313,min┆
0x11afc…11b02 (0x450,0x237)
0x11b02…11b20 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 74 ┆utesize:=1172; ref ret┆
0x11b20…11b40 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 73 61 76 65 66 ┆urn,bufref; double savef┆
0x11b40…11b60 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 66 31 3a 3d 66 ┆1; begin savef1:=f┆
0x11b60…11b7a 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 ┆1; bufref:=w2; ┆
0x11b7a…11b80 (0x450,0x238)
0x11b80…11ba0 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 66 33 3a 3d 73 79 73 ┆ return:=w3; f3:=sys┆
0x11ba0…11bc0 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 73 69 7a 65 3b ┆time.name1 lshift -9 // daysize;┆
0x11bc0…11be0 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 6c 73 68 69 66 ┆ ! w3:=dayno ! f1 lshif┆
0x11be0…11c00 74 20 2d 31 30 30 3b 0a 20 20 20 20 20 20 20 20 66 32 20 2f 2f 20 68 6f 00 00 00 00 00 00 00 00 ┆t -100; f2 // ho ┆
0x11c00…11c06 (142,) (0x450,0x239)
0x11c06…11c20 75 72 73 69 7a 65 3b 20 20 20 21 20 77 32 3a 3d 68 6f 75 72 20 21 0a 20 20 20 ┆ursize; ! w2:=hour ! ┆
0x11c20…11c40 20 20 20 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 ┆ f1 // minutesize; ! w1:=min┆
0x11c40…11c60 75 74 65 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 ┆ute ! w0:=0; f1 ┆
0x11c60…11c7e 2f 2f 20 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 ┆// 10; bufref.minutetx┆
0x11c7e…11c84 (0x450,0x23a)
0x11c84…11ca0 74 3a 3d 77 31 20 2b 20 34 38 20 6c 73 68 69 66 74 20 38 20 2b 20 77 30 20 2b 20 34 ┆t:=w1 + 48 lshift 8 + w0 + 4┆
0x11ca0…11cc0 38 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 3a 3d 30 3b 0a ┆8 lshift 8 + 32; w1:=0; ┆
0x11cc0…11ce0 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 75 66 72 65 66 ┆ f2 // 10; bufref┆
0x11ce0…11cfc 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 2b ┆.hourtxt:=w2 + 48 lshift 8 +┆
0x11cfc…11d02 (0x450,0x23b)
0x11d02…11d20 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 20 ┆ w1 + 48 lshift 8 + 46; ┆
0x11d20…11d40 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 75 66 72 65 66 ┆ f1:=savef1; w2:=bufref┆
0x11d40…11d60 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 20 65 6e 64 3b ┆; w3:=return; end;┆
0x11d60…11d7a 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 ┆ end; ! outtime ! ┆
0x11d7a…11d80 (0x450,0x23c)
0x11d80…11da0 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 20 20 20 20 20 ┆ comment ┆
0x11da0…11dc0 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 20 63 68 65 63 ┆ syscommand this procedure chec┆
0x11dc0…11de0 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 74 79 70 65 64 ┆ks the user identification typed┆
0x11de0…11e00 20 61 74 20 6c 6f 67 69 6e 2e 20 69 66 20 69 74 20 69 73 0a 6f 6b 2c 20 00 00 00 00 00 00 00 00 ┆ at login. if it is ok, ┆
0x11e00…11e06 (143,) (0x450,0x23d)
0x11e06…11e20 61 20 70 72 6f 63 65 73 73 20 69 73 20 63 72 65 61 74 65 64 20 77 69 74 68 20 ┆a process is created with ┆
0x11e20…11e40 73 74 61 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 ┆standard bs claims and with cata┆
0x11e40…11e60 6c 6f 67 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 ┆log bases corresponding to the u┆
0x11e60…11e7e 73 65 72 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 ┆ser identification. the user i┆
0x11e7e…11e84 (0x450,0x23e)
0x11e84…11ea0 73 20 61 6e 73 77 65 72 65 64 20 77 69 74 68 20 61 20 6d 65 73 73 61 67 65 20 74 65 ┆s answered with a message te┆
0x11ea0…11ec0 6c 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 61 74 74 65 6d ┆lling, wheather or not the attem┆
0x11ec0…11ee0 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 0a 3b 0a 0a 0a ┆p to login was succesfull. ; ┆
0x11ee0…11efc 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 62 ┆ body of syscommand b┆
0x11efc…11f02 (0x450,0x23f)
0x11f02…11f20 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 33 ┆egin procedure login(.w3┆
0x11f20…11f40 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 6c 3a 20 20 20 ┆.;w0;w1); comment call: ┆
0x11f40…11f60 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 0a 20 20 20 20 ┆ w0 kind of start command ┆
0x11f60…11f7a 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 ┆ w1 abs┆
0x11f7a…11f80 (0x450,0x240)
0x11f80…11fa0 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 72 65 74 75 72 ┆ ref string1 retur┆
0x11fa0…11fc0 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 67 65 20 6f 72 ┆n: w1 abs ref error message or┆
0x11fc0…11fe0 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 72 65 20 6f 75 ┆ zero ; procedure ou┆
0x11fe0…12000 74 28 2e 77 33 2e 3b 77 31 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 00 00 00 00 00 00 00 00 ┆t(.w3.;w1); commen ┆
0x12000…12006 (144,) (0x450,0x241)
0x12006…12020 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 ┆t call: w1 abs ref str┆
0x12020…12040 69 6e 67 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 ┆ing1 return: w1 ┆
0x12040…12060 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 72 6f 0a 20 20 ┆abs ref error message or zero ┆
0x12060…1207e 20 20 20 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 ┆ ; procedure control(┆
0x1207e…12084 (0x450,0x242)
0x12084…120a0 2e 77 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 ┆.w3.;w0;w1); comment c┆
0x120a0…120c0 61 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 6f 6e 20 28 31 ┆all: w0 control operation (1┆
0x120c0…120e0 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 61 72 74 29 0a ┆,2,3,4 = kill,break,stop,start) ┆
0x120e0…120fc 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 ┆ w1 a┆
0x120fc…12102 (0x450,0x243)
0x12102…12120 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 72 ┆bs ref string1 r┆
0x12120…12140 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 65 73 73 61 67 ┆eturn: w1 abs ref error messag┆
0x12140…12160 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 72 ┆e or zero ; procedur┆
0x12160…1217a 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 ┆e empty(.w3.;w1); co┆
0x1217a…12180 (0x450,0x244)
0x12180…121a0 6d 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 65 72 65 ┆mment call: w1 abs ref usere┆
0x121a0…121c0 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 20 77 31 20 20 ┆ntry return: w1 ┆
0x121c0…121e0 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 72 6f 0a 20 20 ┆abs ref error message or zero ┆
0x121e0…12200 20 20 20 20 3b 0a 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 69 6e 00 00 00 00 00 00 00 00 ┆ ; procedure in ┆
0x12200…12206 (145,) (0x450,0x245)
0x12206…12220 63 6c 75 64 65 28 2e 77 33 2e 3b 77 31 29 3b 0a 0a 20 20 20 20 20 20 63 6f 6d ┆clude(.w3.;w1); com┆
0x12220…12240 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 73 74 72 69 6e 67 ┆ment call: w1 abs ref string┆
0x12240…12260 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┆
0x12260…1227e 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 ┆ ref error message or zero ┆
0x1227e…12284 (0x450,0x246)
0x12284…122a0 20 20 20 3b 0a 20 20 20 20 20 0a 20 20 20 20 20 20 6c 61 62 65 6c 20 6e 65 77 73 74 ┆ ; label newst┆
0x122a0…122c0 72 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 72 6f 72 2c 61 ┆ring,aftername,commfound,error,a┆
0x122c0…122e0 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 20 20 64 6f 75 ┆ccept; incode dou┆
0x122e0…122fc 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 77 ┆ble savef1,savef3; w┆
0x122fc…12302 (0x450,0x247)
0x12302…12320 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 2c ┆ord logstop,radix,offset,char,┆
0x12320…12340 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 63 6f 6d 6d 2c ┆savew1,savew2,savew3,count,comm,┆
0x12340…12360 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 69 6e 74 65 72 ┆proc_no; ref namepointer┆
0x12360…1237a 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 ┆,next; text(11) em┆
0x1237a…12380 (0x450,0x248)
0x12380…123a0 70 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 20 73 74 ┆ptytext:=""; text(11) st┆
0x123a0…123c0 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 20 20 20 20 20 ┆ring1, string2, string3, ┆
0x123c0…123e0 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 20 73 74 72 69 ┆ string4, string5, stri┆
0x123e0…12400 6e 67 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 00 00 00 00 00 00 00 00 ┆ng6, st ┆
0x12400…12406 (146,) (0x450,0x249)
0x12406…12420 72 69 6e 67 37 2c 73 74 72 69 6e 67 38 2c 73 74 72 69 6e 67 39 3b 0a 20 20 20 ┆ring7,string8,string9; ┆
0x12420…12440 20 20 20 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 ┆ text(11)oscomm1 :="in", ┆
0x12440…12460 20 20 20 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 ┆ oscomm2 :="out", ┆
0x12460…1247e 20 20 20 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 ┆ oscomm3 :="kill"┆
0x1247e…12484 (0x450,0x24a)
0x12484…124a0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 6f 6d 6d 34 20 3a 3d ┆, oscomm4 :=┆
0x124a0…124c0 22 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 20 3a 3d 22 72 ┆"", oscomm5 :="r┆
0x124c0…124e0 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 36 20 3a 3d 22 ┆un", oscomm6 :="┆
0x124e0…124fc 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 37 ┆go", oscomm7┆
0x124fc…12502 (0x450,0x24b)
0x12502…12520 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 73 ┆ :="batch", os┆
0x12520…12540 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 20 20 20 20 20 ┆comm8 :="break", ┆
0x12540…12560 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 20 20 20 20 20 ┆ oscomm9 :="stop", ┆
0x12560…1257a 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 ┆ oscomm10:="start", ┆
0x1257a…12580 (0x450,0x24c)
0x12580…125a0 20 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 0a 20 20 ┆ oscomm11:="call", ┆
0x125a0…125c0 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 63 6c 75 64 65 ┆ oscomm12:="include┆
0x125c0…125e0 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 3a 3d 22 6c 6f ┆", oscomm13:="lo┆
0x125e0…12600 63 6b 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 73 63 00 00 00 00 00 00 00 00 ┆ck", osc ┆
0x12600…12606 (147,) (0x450,0x24d)
0x12606…12620 6f 6d 6d 31 34 3a 3d 22 6f 70 65 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆omm14:="open", ┆
0x12620…12640 20 20 20 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 ┆ oscomm15:="halt"; beg┆
0x12640…12660 69 6e 0a 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 ┆in savef1:=f1; savef3:=┆
0x12660…1267e 66 33 3b 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 ┆f3; testout(.w3.,w0:=!┆
0x1267e…12684 (0x450,0x24e)
0x12684…126a0 6c 65 6e 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 2c 77 31 2c 77 32 3a 3d 36 38 29 ┆length(userentry),w1,w2:=68)┆
0x126a0…126c0 3b 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 20 28 77 31 29 ┆; testout(.w3.,w0:= (w1)┆
0x126c0…126e0 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 3a 3d 28 77 31 ┆.bufrel + (w1).buflength,w1:=(w1┆
0x126e0…126fc 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 72 ┆).buffer,w2:=0); ! r┆
0x126fc…12702 (0x450,0x24f)
0x12702…12720 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 20 ┆ead strings ! w0:=0; ┆
0x12720…12740 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 74 29 3b 0a 20 ┆ w1:=address(emptytext); ┆
0x12740…12760 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 3b 0a 20 20 20 ┆ w2:=address(string1); ┆
0x12760…1277a 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 ┆ w3:=0; while ┆
0x1277a…12780 (0x450,0x250)
0x12780…127a0 77 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 6e 67 31 ┆w3+1<=9 do ! zeroset string1┆
0x127a0…127c0 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 20 20 20 20 20 ┆ - string9 ! begin ┆
0x127c0…127e0 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 63 6f 70 79 28 ┆ savew3:=w3; copy(┆
0x127e0…12800 2e 77 33 2e 2c 20 77 30 3a 3d 38 2c 20 77 31 2c 20 77 32 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆.w3., w0:=8, w1, w2); ┆
0x12800…12806 (148,) (0x450,0x251)
0x12806…12820 20 20 20 20 20 20 20 20 77 33 3a 3d 73 61 76 65 77 33 3b 0a 20 20 20 20 20 20 ┆ w3:=savew3; ┆
0x12820…12840 20 20 20 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 ┆ w2+8; end; ┆
0x12840…12860 63 6f 6d 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 ┆comment transfer commands fro┆
0x12860…1287e 6d 20 74 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 ┆m terminal buffer to the text ┆
0x1287e…12884 (0x450,0x252)
0x12884…128a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 73 ┆ variables┆
0x128a0…128c0 20 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 20 3b 0a 20 20 ┆ string1 - string 8 ; ┆
0x128c0…128e0 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 20 6e 61 6d 65 ┆ count:=w0:=1; name┆
0x128e0…128fc 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 31 ┆pointer:=w0:=address(string1┆
0x128fc…12902 (0x450,0x253)
0x12902…12920 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 74 ┆); next:=w0:=namepoint┆
0x12920…12940 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 72 79 3b 0a 20 ┆er+8; w3:=b.userentry; ┆
0x12940…12960 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 20 20 20 20 20 ┆ w2:=(w3).buffer; ┆
0x12960…1297a 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 ┆comm:= w0:= (w3).state; ┆
0x1297a…12980 (0x450,0x254)
0x12980…129a0 20 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 3d 77 30 ┆ w1:=0; logstop:=w0┆
0x129a0…129c0 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 6e 67 74 68 2b ┆:= (w3).bufrel + (w3).buflength+┆
0x129c0…129e0 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 31 3b 0a 6e 65 ┆w2; (w3).bufrel:= w1; ne┆
0x129e0…12a00 77 73 74 72 69 6e 67 3a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 33 32 3b 00 00 00 00 00 00 00 00 ┆wstring: w0:=32; ┆
0x12a00…12a06 (149,) (0x450,0x255)
0x12a06…12a20 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3d 33 32 20 64 6f 20 6e 65 ┆ while w0=32 do ne┆
0x12a20…12a40 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 77 32 ┆xtchar(.w3.,w3:=logstop,w0,w1,w2┆
0x12a40…12a60 29 3b 0a 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 ┆); if w0 = 10 then goto ┆
0x12a60…12a7e 61 66 74 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 ┆aftername; if w0 = 62 ┆
0x12a7e…12a84 (0x450,0x256)
0x12a84…12aa0 74 68 65 6e 20 20 20 20 20 20 20 21 20 27 3e 27 20 69 73 20 73 74 61 72 74 20 6f 66 ┆then ! '>' is start of┆
0x12aa0…12ac0 20 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 67 69 6e 0a 20 ┆ password line ! begin ┆
0x12ac0…12ae0 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 20 20 20 20 20 ┆ comm:= w0:= 0; ┆
0x12ae0…12afc 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 6e ┆ goto newstring; en┆
0x12afc…12b02 (0x450,0x257)
0x12b02…12b20 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 20 ┆d; if w0 < 97 then ┆
0x12b20…12b40 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 20 21 0a 20 20 ┆ begin ! integer param ! ┆
0x12b40…12b60 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 20 20 20 20 20 ┆ offset:=w3:=48; ┆
0x12b60…12b7a 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 ┆ radix:=w3:=10; ┆
0x12b7a…12b80 (0x450,0x258)
0x12b80…12ba0 20 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 20 20 20 ┆ word(namepointer):=w3:=-1; ┆
0x12ba0…12bc0 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 70 6f 69 6e 74 ┆ namepointer:=w3:=namepoint┆
0x12bc0…12be0 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 20 20 20 20 62 ┆er+2; end else b┆
0x12be0…12c00 65 67 69 6e 20 20 21 20 6e 61 6d 65 20 70 61 72 61 6d 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆egin ! name param ! ┆
0x12c00…12c06 (150,) (0x450,0x259)
0x12c06…12c20 20 20 20 20 20 20 20 6f 66 66 73 65 74 3a 3d 77 33 3a 3d 30 3b 0a 20 20 20 20 ┆ offset:=w3:=0; ┆
0x12c20…12c40 20 20 20 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 ┆ radix:=w3:=256; en┆
0x12c40…12c60 64 3b 0a 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 ┆d; while w0<>32 do ┆
0x12c60…12c7e 20 20 20 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 ┆ begin if w3:=next┆
0x12c7e…12c84 (0x450,0x25a)
0x12c84…12ca0 3d 6e 61 6d 65 70 6f 69 6e 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 ┆=namepointer then ┆
0x12ca0…12cc0 67 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 66 20 77 30 3d ┆goto aftername; if w0=┆
0x12cc0…12ce0 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 20 20 20 20 20 ┆10 then goto aftername; ┆
0x12ce0…12cfc 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 3a ┆ char:=w0; if w0:┆
0x12cfc…12d02 (0x450,0x25b)
0x12d02…12d20 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 67 ┆=offset = 0 then beg┆
0x12d20…12d40 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 3e 3d 20 39 37 ┆in if w0:=char >= 97┆
0x12d40…12d60 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 32 36 20 74 68 ┆ then if w0 < 126 th┆
0x12d60…12d7a 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 ┆en goto accept; ┆
0x12d7a…12d80 (0x450,0x25c)
0x12d80…12da0 65 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 20 34 38 ┆end; if w0:=char >= 48┆
0x12da0…12dc0 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 74 68 65 6e 20 ┆ then if w0 < 58 then ┆
0x12dc0…12de0 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 20 20 20 20 20 ┆goto accept; !test 1; ┆
0x12de0…12e00 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 00 00 00 00 00 00 00 00 ┆outtext(.w3.,w0:=8'31,w1 ┆
0x12e00…12e06 (151,) (0x450,0x25d)
0x12e06…12e20 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 ┆:=b.userentry,w2:=2); ! s┆
0x12e20…12e40 79 6e 74 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 ┆yntax ! goto error; ac┆
0x12e40…12e60 63 65 70 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 ┆cept: w0:=word(namepoi┆
0x12e60…12e7e 6e 74 65 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 ┆nter)*radix; ! pack text o┆
0x12e7e…12e84 (0x450,0x25e)
0x12e84…12ea0 72 20 6e 75 6d 62 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 28 6e 61 ┆r number ! word(na┆
0x12ea0…12ec0 6d 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 0a 20 20 20 20 ┆mepointer):=w0+char-offset; ┆
0x12ec0…12ee0 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 70 6f 69 6e 74 ┆ if w0>65535 then namepoint┆
0x12ee0…12efc 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 20 ┆er:=w3:=namepointer+2; ┆
0x12efc…12f02 (0x450,0x25f)
0x12f02…12f20 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 70 ┆ nextchar(.w3.,w3:=logstop┆
0x12f20…12f40 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 74 65 72 6e 61 ┆,w0,w1,w2); end; afterna┆
0x12f40…12f60 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 63 68 61 72 73 ┆me: ! more than 11 chars┆
0x12f60…12f7a 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 ┆ or w0=32 or w0=10 ! ┆
0x12f7a…12f80 (0x450,0x260)
0x12f80…12fa0 20 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 65 6e 0a ┆ if w3:=next=namepointer then ┆
0x12fa0…12fc0 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 20 20 20 20 20 ┆ begin !test 2; ┆
0x12fc0…12fe0 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┆
0x12fe0…13000 72 65 6e 74 72 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 00 00 00 00 00 00 00 00 ┆rentry,w2:=2); ! syntax ┆
0x13000…13006 (152,) (0x450,0x261)
0x13006…13020 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 20 ┆ ! goto error; ┆
0x13020…13040 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 3d 33 32 20 74 68 65 ┆ end; if w0=32 the┆
0x13040…13060 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 63 6f 75 6e 74 3a ┆n begin count:┆
0x13060…1307e 3d 77 33 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 ┆=w3:=count+1; if w3>┆
0x1307e…13084 (0x450,0x262)
0x13084…130a0 38 20 74 68 65 6e 20 20 20 20 20 21 20 6d 61 78 20 38 20 70 61 72 61 6d 73 20 69 6e ┆8 then ! max 8 params in┆
0x130a0…130c0 20 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 65 67 69 6e 0a ┆ command line ! begin ┆
0x130c0…130e0 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 6e 65 78 74 63 ┆ while w0=32 do nextc┆
0x130e0…130fc 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 ┆har(.w3.,w3:=logstop,w0,w1,w┆
0x130fc…13102 (0x450,0x263)
0x13102…13120 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 6e ┆2); if w0<>10 then┆
0x13120…13140 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 0a 20 20 20 20 ┆ begin !test 3; ┆
0x13140…13160 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,┆
0x13160…1317a 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 ┆w1:=b.userentry,w2:=2); !┆
0x1317a…13180 (0x450,0x264)
0x13180…131a0 20 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 65 72 72 ┆ syntax ! goto err┆
0x131a0…131c0 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 20 20 65 ┆or; end; e┆
0x131c0…131e0 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 20 77 33 3a 3d ┆nd; end; if w3:=┆
0x131e0…13200 6f 66 66 73 65 74 20 3d 20 30 20 74 68 65 6e 20 20 20 21 20 66 69 6c 6c 00 00 00 00 00 00 00 00 ┆offset = 0 then ! fill ┆
0x13200…13206 (153,) (0x450,0x265)
0x13206…13220 20 74 65 78 74 70 61 72 61 6d 20 77 69 74 68 20 6e 75 6c 6c 2d 63 68 61 72 73 ┆ textparam with null-chars┆
0x13220…13240 20 21 0a 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 ┆ ! if w3:=next>namepoint┆
0x13240…13260 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 ┆
0x13260…1327e 77 33 3a 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 ┆w3:=word(namepointer); ┆
0x1327e…13284 (0x450,0x266)
0x13284…132a0 20 20 20 69 66 20 77 33 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ if w3<>0 then w┆
0x132a0…132c0 68 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 38 3b 0a 20 20 ┆hile w3<65535 do w3 lshift 8; ┆
0x132c0…132e0 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 77 33 3b 0a 20 ┆ word(namepointer):=w3; ┆
0x132e0…132fc 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 6e ┆ end; namepoin┆
0x132fc…13302 (0x450,0x267)
0x13302…13320 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 77 ┆ter:=w3:=next; next:=w┆
0x13320…13340 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 20 74 68 65 6e ┆3:=next+8; if w0=32 then┆
0x13340…13360 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 20 77 30 3a 3d ┆ goto newstring; if w0:=┆
0x13360…1337a 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 ┆ comm = -3 then goto newst┆
0x1337a…13380 (0x450,0x268)
0x13380…133a0 72 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 20 6e 65 ┆ring; ! first ne┆
0x133a0…133c0 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 6e 76 69 73 69 ┆wline blind, when reading invisi┆
0x133c0…133e0 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 65 6e 74 20 20 ┆ble password ! comment ┆
0x133e0…13400 20 20 6e 6f 77 20 61 6c 6c 20 70 61 72 61 6d 65 74 65 72 73 20 68 61 76 00 00 00 00 00 00 00 00 ┆ now all parameters hav ┆
0x13400…13406 (154,) (0x450,0x269)
0x13406…13420 65 20 62 65 65 6e 20 72 65 61 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆e been read; w1:=┆
0x13420…13440 61 64 64 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 ┆address(oscomm1); w2:=ad┆
0x13440…13460 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 6f 6d 6d 3a 3d 77 33 ┆dress(string1); comm:=w3┆
0x13460…1347e 3a 3d 31 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 ┆:=1; while w3:=comm<16┆
0x1347e…13484 (0x450,0x26a)
0x13484…134a0 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 ┆ do begin ┆
0x134a0…134c0 63 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 20 20 20 20 20 ┆compare(.w3.,w0:=4,w1,w2); ┆
0x134c0…134e0 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 66 6f 75 6e 64 ┆ if w0=0 then goto commfound┆
0x134e0…134fc 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 20 ┆; w1+8; ┆
0x134fc…13502 (0x450,0x26b)
0x13502…13520 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 3b ┆comm:=w3:=comm+1; end;┆
0x13520…13540 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 77 33 2e 2c 77 ┆ !test 4; outtext(.w3.,w┆
0x13540…13560 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 30 29 3b 20 ┆0:=8'31,w1:=b.userentry,w2:=0); ┆
0x13560…1357a 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 ┆ ! what ! goto err┆
0x1357a…13580 (0x450,0x26c)
0x13580…135a0 6f 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 64 72 65 ┆or; commfound: w1:=addre┆
0x135a0…135c0 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 33 3a 3d 63 6f ┆ss(string1); case w3:=co┆
0x135c0…135e0 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 20 20 20 6c 6f ┆mm of begin lo┆
0x135e0…13600 67 69 6e 28 2e 77 33 2e 2c 77 30 3a 3d 33 2c 77 31 29 3b 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆gin(.w3.,w0:=3,w1); ┆
0x13600…13606 (155,) (0x450,0x26d)
0x13606…13620 21 20 69 6e 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 70 6f 6f 6c 29 20 ┆! in (connection to pool) ┆
0x13620…13640 21 0a 20 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 ┆! out(.w3.,w1); ┆
0x13640…13660 20 20 20 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 ┆ ! out (disconnect) ┆
0x13660…1367e 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 3d 31 ┆! control(.w3.,w0:=1┆
0x1367e…13684 (0x450,0x26e)
0x13684…136a0 2c 77 31 29 3b 20 20 20 21 20 6b 69 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,w1); ! kill ┆
0x136a0…136c0 20 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 2e 2c 77 31 3a ┆ ! empty(.w3.,w1:┆
0x136c0…136e0 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 67 69 6e 28 2e ┆=b.userentry); login(.┆
0x136e0…136fc 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 6f ┆w3.,w0:=2,w1); ! run (co┆
0x136fc…13702 (0x450,0x26f)
0x13702…13720 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 6c ┆nnection via tem)! l┆
0x13720…13740 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 67 6f 20 20 20 ┆ogin(.w3.,w0:=0,w1); ! go ┆
0x13740…13760 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 6c ┆ ! l┆
0x13760…1377a 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 ┆ogin(.w3.,w0:=1,w1); !┆
0x1377a…13780 (0x450,0x270)
0x13780…137a0 20 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 20 20 20 ┆ batch ! ┆
0x137a0…137c0 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 3b 20 20 20 21 ┆ control(.w3.,w0:=2,w1); !┆
0x137c0…137e0 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 20 20 20 20 20 ┆ break ! ┆
0x137e0…13800 20 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 33 2c 00 00 00 00 00 00 00 00 ┆ control(.w3.,w0:=3, ┆
0x13800…13806 (156,) (0x450,0x271)
0x13806…13820 77 31 29 3b 20 20 20 21 20 73 74 6f 70 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w1); ! stop ┆
0x13820…13840 20 20 20 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 ┆ ! control(.w3.,┆
0x13840…13860 77 30 3a 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 ┆w0:=4,w1); ! start ┆
0x13860…1387e 20 20 20 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 ┆ ! calldev(.w3┆
0x1387e…13884 (0x450,0x272)
0x13884…138a0 2e 2c 77 31 29 3b 20 20 20 20 20 20 20 20 20 21 20 63 61 6c 6c 20 28 6e 61 6d 65 20 ┆.,w1); ! call (name ┆
0x138a0…138c0 64 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 63 6c 75 64 65 ┆device) ! include┆
0x138c0…138e0 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 65 20 75 73 65 ┆(.w3.,w1); ! include use┆
0x138e0…138fc 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 6e ┆rs(device) ! con┆
0x138fc…13902 (0x450,0x273)
0x13902…13920 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 20 ┆trol(.w3.,w0:=-1,w1); ! lock ┆
0x13920…13940 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 20 20 20 20 63 ┆ (block logins) ! c┆
0x13940…13960 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 6f 70 65 6e 20 ┆ontrol(.w3.,w0:=-2,w1); ! open ┆
0x13960…1397a 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 ┆(accept login) ! ┆
0x1397a…13980 (0x450,0x274)
0x13980…139a0 20 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 20 20 21 ┆ control(.w3.,w0:=-3,w1); !┆
0x139a0…139c0 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 20 20 20 20 20 ┆ halt ! ┆
0x139c0…139e0 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 74 68 65 6e 0a ┆ end; if w1 <> 0 then ┆
0x139e0…13a00 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 65 72 72 6f 72 3a 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ begin error: ┆
0x13a00…13a06 (157,) (0x450,0x275)
0x13a06…13a20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 2d 31 20 74 68 65 6e 0a 20 20 20 ┆ if w1 = -1 then ┆
0x13a20…13a40 20 20 20 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 ┆ begin !test 5; ┆
0x13a40…13a60 20 20 69 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 ┆ if w0:= (w1:=b.userentry).mess┆
0x13a60…13a7e 73 65 6e 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 ┆send < 10 then out┆
0x13a7e…13a84 (0x450,0x276)
0x13a84…13aa0 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 30 2c 77 31 2c 77 32 3a 3d 31 29 ┆text(.w3.,w0:=8'30,w1,w2:=1)┆
0x13aa0…13ac0 3b 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 20 77 30 3a 3d ┆; ! ready ! if w0:=┆
0x13ac0…13ae0 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 74 61 74 65 3a ┆(w1).state = -1 then (w1).state:┆
0x13ae0…13afc 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 20 ┆=w0:=0; end; ┆
0x13afc…13b02 (0x450,0x277)
0x13b02…13b20 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 20 ┆ w1:=b.userentry; ┆
0x13b20…13b40 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 20 20 20 20 20 ┆ (w1).bufrel:= w0:= 0; ┆
0x13b40…13b60 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 65 6e 0a 20 20 ┆ if w0:=(w1).state = -1 then ┆
0x13b60…13b7a 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 ┆
0x13b7a…13b80 (0x450,0x278)
0x13b80…13ba0 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 77 61 69 74 71 ┆link(.w3.,w1,w2:=address(b.waitq┆
0x13ba0…13bc0 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 74 65 3a 3d 77 ┆fst)); (w1).state:=w┆
0x13bc0…13be0 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 20 20 20 20 20 ┆0:=0; end else ┆
0x13be0…13c00 20 20 20 69 66 20 77 30 20 3c 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ if w0 < -1 then ┆
0x13c00…13c06 (158,) (0x450,0x279)
0x13c06…13c20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a ┆ begin w0:┆
0x13c20…13c40 3d 30 3b 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 ┆=0; (w1).messsend:=w┆
0x13c40…13c60 30 3b 0a 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 ┆0; (w1).peripheral:=┆
0x13c60…13c7e 77 30 3b 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 ┆w0; (w1).internal:┆
0x13c7e…13c84 (0x450,0x27a)
0x13c84…13ca0 3d 77 30 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 ┆=w0; link(.w3.,w┆
0x13ca0…13cc0 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 20 20 20 ┆1,w2:=address(b.waitqfst)); ┆
0x13cc0…13ce0 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 64 3b 0a 20 20 ┆ end else ; end; ┆
0x13ce0…13cfc 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 75 ┆ w0:=1; w1:=b.u┆
0x13cfc…13d02 (0x450,0x27b)
0x13d02…13d20 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 6e ┆serentry; (w1).messsen┆
0x13d20…13d40 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 65 6d 70 74 79 ┆d:=w0; w3:=address(empty┆
0x13d40…13d60 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 61 73 65 3b 0a ┆text); f1:=b.startbase; ┆
0x13d60…13d7a 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 ┆ monitor(72); ! se┆
0x13d7a…13d80 (0x450,0x27c)
0x13d80…13da0 74 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 20 20 20 ┆t sos own catalog base ! ┆
0x13da0…13dc0 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 76 65 66 33 3b ┆ f1:=savef1; f3:=savef3;┆
0x13dc0…13de0 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 6e 64 20 20 21 ┆ end; ! syscommand !┆
0x13de0…13e00 0a 0c 0a 0a 0a 0a 0a 0a 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 6c 6f 00 00 00 00 00 00 00 00 ┆ body of lo ┆
0x13e00…13e06 (159,) (0x450,0x27d)
0x13e06…13e20 67 69 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆gin begin ┆
0x13e20…13e40 20 20 70 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 ┆ procedure checkprot(.w3.;w1;w2┆
0x13e40…13e60 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 3a 20 20 20 20 20 20 ┆); comment call: ┆
0x13e60…13e7e 77 31 20 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 ┆w1 abs ref "pass"-parameter ┆
0x13e7e…13e84 (0x450,0x27e)
0x13e84…13ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13ea0…13ec0 77 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 61 74 61 6c 6f ┆w2 abs ref password from catalo┆
0x13ec0…13ee0 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 20 20 20 20 77 ┆g return: w┆
0x13ee0…13efc 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 ┆1 abs ref error message or ┆
0x13efc…13f02 (0x450,0x27f)
0x13f02…13f20 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 20 ┆zero ┆
0x13f20…13f40 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 61 6c 6f 67 20 ┆ w2 boolean rewrite catalog ┆
0x13f40…13f60 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 20 20 20 70 72 ┆segment ; pr┆
0x13f60…13f7a 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 ┆ocedure checkdevice(.w3.;w┆
0x13f7a…13f80 (0x450,0x280)
0x13f80…13fa0 30 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 3a 20 20 ┆0;w1); comment call: ┆
0x13fa0…13fc0 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 20 20 20 20 20 ┆ w1 abs ref userentry ┆
0x13fc0…13fe0 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 6d 6f 64 65 20 ┆ return: w0 mode ┆
0x13fe0…14000 66 6f 72 20 72 65 61 64 69 6e 67 20 6f 66 20 70 61 73 73 77 6f 72 64 3a 00 00 00 00 00 00 00 00 ┆for reading of password: ┆
0x14000…14006 (160,) (0x450,0x281)
0x14006…14020 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 ┆ ┆
0x14020…14040 20 20 20 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 ┆ 0: console (deviceno=2┆
0x14040…14060 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 20 20 20 20 20 20 20 ┆) ┆
0x14060…1407e 20 20 20 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 ┆ 2: other terminal (dev<>2┆
0x1407e…14084 (0x450,0x282)
0x14084…140a0 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 20 20 20 ┆) ┆
0x140a0…140c0 20 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 64 0a 20 20 20 ┆ other registers unchanged ┆
0x140c0…140e0 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 72 6f 72 2c 65 ┆ ; label error,e┆
0x140e0…140fc 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 33 ┆rror1,error2,error2_1,error3┆
0x140fc…14102 (0x450,0x283)
0x14102…14120 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 20 ┆,error4,freefound, ┆
0x14120…14140 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 63 6f 64 65 0a ┆ release; incode ┆
0x14140…14160 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 69 70 74 69 6f ┆ ! process descriptio┆
0x14160…1417a 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 ┆n for create internal proc┆
0x1417a…14180 (0x450,0x284)
0x14180…141a0 65 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 6c 69 6d ┆ess ! double corelim┆
0x141a0…141c0 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 72 73 2c 61 72 ┆its; byte buffers,ar┆
0x141c0…141e0 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 6e 61 6c 73 3a ┆eas, internals:┆
0x141e0…14200 3d 30 2c 66 6e 63 6d 61 73 6b 3a 3d 31 37 39 32 2c 20 20 20 21 20 2e 31 00 00 00 00 00 00 00 00 ┆=0,fncmask:=1792, ! .1 ┆
0x14200…14206 (161,) (0x450,0x285)
0x14206…14220 31 31 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆11........ ! ┆
0x14220…14240 20 20 20 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 ┆ protreg,protkey; ┆
0x14240…14260 20 64 6f 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 ┆ double maxbase,stdbase; ┆
0x14260…1427e 20 20 20 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 ┆ double claim0,claim1,clai┆
0x1427e…14284 (0x450,0x286)
0x14284…142a0 6d 32 2c 63 6c 61 69 6d 33 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 ┆m2,claim3; byte┆
0x142a0…142c0 20 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 20 20 20 20 20 ┆ logop:=5,logmode:=0; ┆
0x142c0…142e0 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 20 20 20 20 77 ┆ ref first,last; w┆
0x142e0…142fc 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 20 ┆ord segm,zero:=0,rewrite; ┆
0x142fc…14302 (0x450,0x287)
0x14302…14320 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 73 ┆ word savew0,savew1,s┆
0x14320…14340 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 65 66 20 6a 6f ┆avew2,savew3; ref jo┆
0x14340…14360 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 20 20 20 20 20 ┆bfile:=0,procentry; ┆
0x14360…1437a 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 ┆double savef3; ┆
0x1437a…14380 (0x450,0x288)
0x14380…143a0 20 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 3d 22 6a ┆ text(11) emptytext:="",jobf:="j┆
0x143a0…143c0 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 72 69 6e 67 31 ┆obfile"; ref string1┆
0x143c0…143e0 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 72 69 6e 67 35 ┆,string2,string3,string4,string5┆
0x143e0…14400 2c 73 74 72 69 6e 67 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆,string6, ┆
0x14400…14406 (162,) (0x450,0x289)
0x14406…14420 20 20 73 74 72 69 6e 67 37 2c 73 74 72 69 6e 67 38 3b 0a 20 20 20 20 20 20 20 ┆ string7,string8; ┆
0x14420…14440 20 20 20 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 ┆ array(1:10) tail of word; ┆
0x14440…14460 20 20 20 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 ┆ array(1:8)answ of wor┆
0x14460…1447e 64 3b 0a 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 ┆d; byte simop,simm┆
0x1447e…14484 (0x450,0x28a)
0x14484…144a0 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 73 69 6d 66 ┆ode:=0; ref simf┆
0x144a0…144c0 69 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 6f 72 64 20 73 ┆irst,simlast; word s┆
0x144c0…144e0 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 29 20 73 69 6d ┆imlocid; text(9) sim┆
0x144e0…144fc 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 20 ┆text:="'1''1' att "; ┆
0x144fc…14502 (0x450,0x28b)
0x14502…14520 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 20 ┆ text(11)trmname; ┆
0x14520…14540 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 20 20 20 20 62 ┆ word nl:=10; b┆
0x14540…14560 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 20 20 20 20 20 ┆yte temop,temmode:=0; ┆
0x14560…1457a 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 ┆ word localid; ┆
0x1457a…14580 (0x450,0x28c)
0x14580…145a0 20 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 74 65 20 ┆ ref termpda; byte ┆
0x145a0…145c0 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 78 74 28 31 34 ┆bufs,timers; text(14┆
0x145c0…145e0 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 64 20 68 65 6c ┆) poolname; word hel┆
0x145e0…14600 70 3b 0a 0a 20 63 6f 6d 6d 65 6e 74 20 20 20 20 66 6f 72 6d 61 74 20 6f 00 00 00 00 00 00 00 00 ┆p; comment format o ┆
0x14600…14606 (163,) (0x450,0x28d)
0x14606…14620 66 20 6c 6f 67 69 6e 20 63 6f 6d 6d 61 6e 64 20 69 73 3a 0a 0a 20 20 20 20 20 ┆f login command is: ┆
0x14620…14640 73 31 20 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 ┆s1 s2 s3 ┆
0x14640…14660 20 73 34 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 ┆ s4 ( go ) ( run ) <pro┆
0x14660…1467e 63 6e 61 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 ┆cname> ( jobfile <filename> )┆
0x1467e…14684 (0x450,0x28e)
0x14684…146a0 28 2e 29 0a 20 20 28 20 62 61 74 63 68 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆(.) ( batch ) ┆
0x146a0…146c0 20 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 35 2f 37 20 20 ┆ s3/5 s4/6 s5/7 ┆
0x146c0…146e0 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 3c 70 61 73 73 ┆ s6/8 ( pass <pass┆
0x146e0…146fc 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 6d ┆name> (newpass <passnam┆
0x146fc…14702 (0x450,0x28f)
0x14702…14720 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 73 ┆e>)(.) )(.) ( >pas┆
0x14720…14740 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 20 20 20 20 20 ┆sword <passname> ┆
0x14740…14760 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 73 32 20 20 20 ┆ ) or: s1 s2 ┆
0x14760…1477a 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 ┆ s3 s4 ┆
0x1477a…14780 (0x450,0x290)
0x14780…147a0 73 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 6e 20 3c ┆s5 s6 s7 in <┆
0x147a0…147c0 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 73 20 3c 70 61 ┆procname> <termname> ( pass <pa┆
0x147c0…147e0 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 3e 29 28 2e 29 ┆ssname> (newpass <passname>)(.)┆
0x147e0…14800 20 29 28 2e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ )(.) ┆
0x14800…14806 (164,) (0x450,0x291)
0x14806…14820 20 20 20 20 20 20 20 20 20 20 20 20 28 20 3e 70 61 73 73 77 6f 72 64 20 3c 70 ┆ ( >password <p┆
0x14820…14840 61 73 73 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 ┆assname> ) ┆
0x14840…14860 3b 0a 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 ┆; begin s┆
0x14860…1487e 61 76 65 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 ┆avew0:=w0; ! login-kind: 0=go┆
0x1487e…14884 (0x450,0x292)
0x14884…148a0 2c 20 31 3d 62 61 74 63 68 2c 20 32 3d 72 75 6e 2c 20 33 3d 69 6e 20 21 0a 20 20 20 ┆, 1=batch, 2=run, 3=in ! ┆
0x148a0…148c0 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; ┆
0x148c0…148e0 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 20 20 20 69 66 ┆ w3:=b.userentry; if┆
0x148e0…148fc 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 66 ┆ w0:=b.sysstate <> 0 then if┆
0x148fc…14902 (0x450,0x293)
0x14902…14920 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 70 ┆ w0:=b.mainconsref<>(w3).perip┆
0x14920…14940 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 6e 0a 21 74 65 ┆heral then begin !te┆
0x14940…14960 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 28 2e 77 33 2e ┆st 6; outtext(.w3.┆
0x14960…1497a 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,┆
0x1497a…14980 (0x450,0x294)
0x14980…149a0 77 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 6d 20 6c ┆w2:=29); ! forbidden - system l┆
0x149a0…149c0 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 65 72 72 6f 72 ┆ocked ! goto error┆
0x149c0…149e0 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 73 ┆; end; s┆
0x149e0…14a00 74 72 69 6e 67 31 3a 3d 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆tring1:=w1; w1+8; ┆
0x14a00…14a06 (165,) (0x450,0x295)
0x14a06…14a20 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 20 ┆ string2:=w1; w1+8; ┆
0x14a20…14a40 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 20 ┆ string3:=w1; w1+8; ┆
0x14a40…14a60 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 20 ┆ string4:=w1; w1+8; ┆
0x14a60…14a7e 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 ┆ string5:=w1; w1+8; ┆
0x14a7e…14a84 (0x450,0x296)
0x14a84…14aa0 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 36 3a 3d 77 31 3b 20 77 31 2b 38 3b ┆ string6:=w1; w1+8;┆
0x14aa0…14ac0 0a 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 31 2b 38 3b 0a ┆ string7:=w1; w1+8; ┆
0x14ac0…14ae0 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 20 20 20 20 20 ┆ string8:=w1; ┆
0x14ae0…14afc 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 3d ┆ compare(.w3.,w0:=8,w1:=┆
0x14afc…14b02 (0x450,0x297)
0x14b02…14b20 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 20 ┆string3,w2:=address(jobf)); ┆
0x14b20…14b40 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 62 66 69 6c 65 ┆ if w0 = 0 then jobfile┆
0x14b40…14b60 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 20 77 31 3a 3d ┆:=w3:=string4; w1:=┆
0x14b60…14b7a 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 ┆b.userentry; i┆
0x14b7a…14b80 (0x450,0x298)
0x14b80…14ba0 66 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 20 20 20 ┆f w3:=(w1).state = -1 then ┆
0x14ba0…14bc0 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 6e 65 77 20 6a ┆ ! known terminal creating new j┆
0x14bc0…14be0 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 20 20 20 20 20 ┆ob ! begin ┆
0x14be0…14c00 20 20 20 20 20 69 66 20 77 30 3a 3d 6a 6f 62 66 69 6c 65 20 3d 20 30 20 00 00 00 00 00 00 00 00 ┆ if w0:=jobfile = 0 ┆
0x14c00…14c06 (166,) (0x450,0x299)
0x14c06…14c20 74 68 65 6e 20 20 20 20 20 20 20 20 20 21 20 61 74 20 6d 6f 73 74 20 6f 6e 65 ┆then ! at most one┆
0x14c20…14c40 20 6a 6f 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 ┆ job without jobfile ! ┆
0x14c40…14c60 20 20 20 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 ┆ begin !test 7; ┆
0x14c60…14c7e 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:=┆
0x14c7e…14c84 (0x450,0x29a)
0x14c84…14ca0 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 37 29 3b 20 20 21 20 66 6f 72 62 69 ┆b.userentry,w2:=7); ! forbi┆
0x14ca0…14cc0 64 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 20 28 2e 77 33 ┆dden ! link (.w3┆
0x14cc0…14ce0 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 64 64 72 65 73 ┆., w1:= b.userentry, w2:= addres┆
0x14ce0…14cfc 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 ┆s(b.activqfst)); ┆
0x14cfc…14d02 (0x450,0x29b)
0x14d02…14d20 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 20 ┆ w1:= -1; ┆
0x14d20…14d40 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 6e 64 3b 0a 20 ┆goto error; end; ┆
0x14d40…14d60 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 3b 0a 20 20 20 ┆ w1:=b.lastuser; ┆
0x14d60…14d7a 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 ┆ while w1-!lengt┆
0x14d7a…14d80 (0x450,0x29c)
0x14d80…14da0 68 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 6f 0a 20 ┆h(userentry) >= b.firstuser do ┆
0x14da0…14dc0 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 20 ┆ begin ┆
0x14dc0…14de0 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 20 74 68 65 6e ┆ if w0:=(w1).internal = 0 then┆
0x14de0…14e00 20 67 6f 74 6f 20 66 72 65 65 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ goto freefound; ┆
0x14e00…14e06 (167,) (0x450,0x29d)
0x14e06…14e20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 74 65 73 74 20 38 3b 0a 20 20 20 20 20 ┆ end; !test 8; ┆
0x14e20…14e40 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 77 ┆ outtext(.w3.,w0:=8'31,w┆
0x14e40…14e60 31 3a 3d 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 ┆1:=b.userentry,w2:=6); ! proces┆
0x14e60…14e7e 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 6c 69 6e ┆s creation ! lin┆
0x14e7e…14e84 (0x450,0x29e)
0x14e84…14ea0 6b 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 ┆k (.w3., w1:= b.userentry, w┆
0x14ea0…14ec0 32 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 20 20 20 20 20 ┆2:= address(b.activqfst)); ┆
0x14ec0…14ee0 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 20 20 20 20 20 ┆ w1:= -1; ┆
0x14ee0…14efc 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 20 ┆goto error; freefound: ┆
0x14efc…14f02 (0x450,0x29f)
0x14f02…14f20 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 72 ┆ procentry:=w2:=b.user┆
0x14f20…14f40 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 20 20 20 20 20 ┆entry; ! old entry ! ┆
0x14f40…14f60 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 20 20 20 20 20 ┆ b.userentry:=w1; ┆
0x14f60…14f7a 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 ┆ ! new entry ! ┆
0x14f7a…14f80 (0x450,0x2a0)
0x14f80…14fa0 20 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 20 20 20 ┆ (w2).state:=w0:=0; ┆
0x14fa0…14fc0 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 32 29 2e 70 65 ┆ (w1).peripheral:=w0:=(w2).pe┆
0x14fc0…14fe0 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 29 2e 69 6e 74 ┆ripheral; (w1).int┆
0x14fe0…15000 65 72 6e 61 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ernal:=w0; ┆
0x15000…15006 (168,) (0x450,0x2a1)
0x15006…15020 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 2d 32 3b 0a 20 20 20 20 20 ┆ (w1).state:=w0:=-2; ┆
0x15020…15040 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 30 3a 3d 28 77 32 ┆ (w1).buflength:=w0:=(w2┆
0x15040…15060 29 2e 62 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 ┆).buflength; copy ┆
0x15060…1507e 28 2e 77 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 ┆(.w3., w0, w1:=(w2).buffer, w2┆
0x1507e…15084 (0x450,0x2a2)
0x15084…150a0 3a 3d 28 77 32 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 2e 62 75 66 66 65 72 29 3b ┆:=(w2:=b.userentry).buffer);┆
0x150a0…150c0 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 31 3a 3d 70 72 6f ┆ link(.w3.,w1:=pro┆
0x150c0…150e0 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 66 73 74 29 29 ┆centry,w2:=address(b.activqfst))┆
0x150e0…150fc 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 ┆; end; ┆
0x150fc…15102 (0x450,0x2a3)
0x15102…15120 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 3b ┆ procentry:=w1:=b.userentry;┆
0x15120…15140 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 28 77 ┆ ! new entry ! (w┆
0x15140…15160 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 68 65 72 61 6c ┆1).primdevi:=w0:=(w1).peripheral┆
0x15160…1517a 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 ┆; w0:=savew0; ┆
0x1517a…15180 (0x450,0x2a4)
0x15180…151a0 20 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 3a 3d 73 ┆ if w0 = 3 then w2:=s┆
0x151a0…151c0 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 20 20 20 20 73 ┆tring3 else w2:=0; s┆
0x151c0…151e0 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 77 32 29 3b 0a ┆cancat(.w3.,w0,w1:=string2,w2); ┆
0x151e0…15200 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 30 20 74 68 00 00 00 00 00 00 00 00 ┆ if w0 < 0 th ┆
0x15200…15206 (169,) (0x450,0x2a5)
0x15206…15220 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 ┆
0x15220…15240 20 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 20 ┆ if w0 = -3 then w2:=30 ┆
0x15240…15260 20 21 20 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 ┆ ! user catalog reserved ! ┆
0x15260…1527e 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 3d 33 ┆ else w2:=3┆
0x1527e…15284 (0x450,0x2a6)
0x15284…152a0 3b 20 20 21 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 69 6c 6c 65 67 61 6c 20 ┆; ! identification illegal ┆
0x152a0…152c0 21 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 74 74 65 78 74 ┆! !test 9; outtext┆
0x152c0…152e0 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 29 ┆(.w3.,w0:=8'31,w1:=procentry,w2)┆
0x152e0…152fc 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 72 ┆; goto error┆
0x152fc…15302 (0x450,0x2a7)
0x15302…15320 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 3d ┆1; end else segm:=┆
0x15320…15340 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 3a 3d 77 31 3b ┆w0; b.procdescr:=w1;┆
0x15340…15360 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 32 3b 0a 20 20 ┆ b.termdescr:=w2; ┆
0x15360…1537a 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 ┆ if w0:=savew0 < ┆
0x1537a…15380 (0x450,0x2a8)
0x15380…153a0 33 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 0a 20 20 ┆3 then ! go, run or batch ! ┆
0x153a0…153c0 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 69 66 ┆ begin if┆
0x153c0…153e0 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 74 72 69 6e 67 ┆ w1:=jobfile = 0 then w1:=string┆
0x153e0…15400 33 0a 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 ┆3 ┆
0x15400…15406 (170,) (0x450,0x2a9)
0x15406…15420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 3a 3d 73 74 ┆ else w1:=st┆
0x15420…15440 72 69 6e 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 ┆ring5; checkprot(.┆
0x15440…15460 77 33 2e 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 ┆w3.,w1,w2:=b.procdescr+!position┆
0x15460…1547e 28 70 70 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 ┆(ppass)); if w1 ┆
0x1547e…15484 (0x450,0x2aa)
0x15484…154a0 3c 3e 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 72 6f 72 31 3b 0a 20 20 20 20 20 ┆<> 0 then goto error1; ┆
0x154a0…154c0 20 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 20 20 20 20 20 ┆ rewrite:=w2; ┆
0x154c0…154e0 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 0a 20 20 20 20 ┆ if w1:=jobfile > 0 then ┆
0x154e0…154fc 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 ┆
0x154fc…15502 (0x450,0x2ab)
0x15502…15520 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 20 ┆ w1:=procentry; ┆
0x15520…15540 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 20 20 20 20 20 ┆ w2:=(w1).peripheral; ┆
0x15540…15560 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 20 20 20 20 20 ┆ -(w2); ┆
0x15560…1557a 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 ┆ (w1).peripheral:=w2; ! j┆
0x1557a…15580 (0x450,0x2ac)
0x15580…155a0 6f 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 70 65 72 ┆obfile is marked by negative per┆
0x155a0…155c0 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 3d 61 64 64 72 ┆ipheral ! w2:=addr┆
0x155c0…155e0 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 20 20 20 20 20 ┆ess((w1).pr_in); ┆
0x155e0…15600 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 34 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ (w2).word:=w0:=4; ┆
0x15600…15606 (171,) (0x450,0x2ad)
0x15606…15620 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 ┆ copy(.w3.,w0:=8┆
0x15620…15640 2c 77 31 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 ┆,w1:=jobfile,w2+2); ! insert jo┆
0x15640…15660 62 66 69 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 ┆bfile name in i/o-buffer ! ┆
0x15660…1567e 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 20 20 20 20 ┆ end else ┆
0x1567e…15684 (0x450,0x2ae)
0x15684…156a0 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 31 3a 3d ┆ begin w1:=┆
0x156a0…156c0 70 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 3a 3d 61 64 64 ┆procentry; w2:=add┆
0x156c0…156e0 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 20 20 20 20 ┆ress((w1).pr_in); ┆
0x156e0…156fc 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 20 ┆ (w2).word:=w0:=8; ┆
0x156fc…15702 (0x450,0x2af)
0x15702…15720 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 2e ┆ copy(.w3.,w0:=8,w1:=b.┆
0x15720…15740 73 6f 73 74 65 72 6d 2b 32 2c 77 32 2b 32 29 3b 20 20 21 20 70 73 65 75 64 6f 2d 73 6f 73 2d 6e ┆sosterm+2,w2+2); ! pseudo-sos-n┆
0x15740…15760 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 20 20 20 20 ┆ame in i/o-buffer ! ┆
0x15760…1577a 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 ┆ end; w2:=add┆
0x1577a…15780 (0x450,0x2b0)
0x15780…157a0 72 65 73 73 28 28 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 29 2e 70 72 5f 6f 75 74 29 3b 0a 20 20 ┆ress((w1:=procentry).pr_out); ┆
0x157a0…157c0 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 38 3b 0a 20 20 20 20 ┆ (w2).word:=w0:=8; ┆
0x157c0…157e0 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 2e 73 6f ┆ copy(.w3.,w0:=8,w1:=b.so┆
0x157e0…15800 73 74 65 72 6d 2b 32 2c 77 32 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆sterm+2,w2+2); ┆
0x15800…15806 (172,) (0x450,0x2b1)
0x15806…15820 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 20 ┆ w3:=b.procdescr; ┆
0x15820…15840 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 73 3a 3d 77 30 3a 3d 28 77 33 29 2e 70 72 6f 63 ┆ buffers:=w0:=(w3).proc┆
0x15840…15860 62 75 66 66 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 65 61 73 3a 3d 77 30 ┆buffers; areas:=w0┆
0x15860…1587e 3a 3d 28 77 33 29 2e 70 72 6f 63 61 72 65 61 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=(w3).procareas; ┆
0x1587e…15884 (0x450,0x2b2)
0x15884…158a0 20 20 77 30 3a 3d 28 77 33 29 2e 70 72 6f 63 73 62 31 3b 0a 20 20 20 20 20 20 20 20 ┆ w0:=(w3).procsb1; ┆
0x158a0…158c0 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 70 72 6f 63 73 62 32 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:=(w3).procsb2; ┆
0x158c0…158e0 20 20 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 ┆ stdbase:=f1; ┆
0x158e0…158fc 20 77 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 ┆ w0:=(w3).procmb1; ┆
0x158fc…15902 (0x450,0x2b3)
0x15902…15920 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 70 72 6f 63 6d 62 32 3b 0a 20 20 20 20 20 20 20 ┆ w1:=(w3).procmb2; ┆
0x15920…15940 20 20 20 20 20 20 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 ┆ maxbase:=f1; ┆
0x15940…15960 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 20 20 20 20 20 20 69 ┆ w0:=b.fstcore; i┆
0x15960…1597a 66 20 77 31 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 62 2e 66 73 74 63 6f 72 65 20 ┆f w1:=b.topcore-b.fstcore ┆
0x1597a…15980 (0x450,0x2b4)
0x15980…159a0 3e 20 28 77 33 29 2e 70 6d 61 78 73 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> (w3).pmaxsize ┆
0x159a0…159c0 74 68 65 6e 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 ┆then w1:=(w3).pmaxsize+511 lshif┆
0x159c0…159e0 74 20 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 ┆t -9 lshift 9; if ┆
0x159e0…15a00 77 31 20 3c 20 28 77 33 29 2e 70 6d 69 6e 73 69 7a 65 20 74 68 65 6e 0a 00 00 00 00 00 00 00 00 ┆w1 < (w3).pminsize then ┆
0x15a00…15a06 (173,) (0x450,0x2b5)
0x15a06…15a20 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 ┆ begin !test ┆
0x15a20…15a40 31 30 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 ┆10; outtext(.w3.┆
0x15a40…15a60 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 34 29 3b 20 ┆,w0:=8'31,w1:=procentry,w2:=4); ┆
0x15a60…15a7e 20 21 20 6e 6f 20 72 6f 6f 6d 20 69 6e 20 70 72 69 6d 61 72 79 20 73 74 6f 72 65 20 21 0a ┆ ! no room in primary store ! ┆
0x15a7e…15a84 (0x450,0x2b6)
0x15a84…15aa0 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 31 3b ┆ goto error1;┆
0x15aa0…15ac0 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 20 20 20 20 ┆ end; ┆
0x15ac0…15ae0 20 20 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 ┆ procentry.procsize:=w1; ┆
0x15ae0…15afc 20 20 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 ┆ w1+w0; ┆
0x15afc…15b02 (0x450,0x2b7)
0x15b02…15b20 20 63 6f 72 65 6c 69 6d 69 74 73 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ corelimits:=f1; ┆
0x15b20…15b40 20 70 72 6f 74 72 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 ┆ protreg:=w1:=b.childpr; ┆
0x15b40…15b60 20 20 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 ┆ protkey:=w1:=b.childpk; ┆
0x15b60…15b7a 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 ┆ w3:=address(z┆
0x15b7a…15b80 (0x450,0x2b8)
0x15b80…15ba0 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 73 74 64 62 61 73 65 3b ┆ero); f1:=stdbase;┆
0x15ba0…15bc0 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 21 20 73 65 74 ┆ monitor(72);! set┆
0x15bc0…15be0 20 73 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 ┆ sos own cat base ! !test 445; ┆
0x15be0…15c00 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6a 6f 62 66 00 00 00 00 00 00 00 00 ┆ if w3:=jobf ┆
0x15c00…15c06 (174,) (0x450,0x2b9)
0x15c06…15c20 69 6c 65 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ile > 0 then ┆
0x15c20…15c40 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 77 31 3a 3d ┆ begin tail(w1:=┆
0x15c40…15c60 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 6a 6f 62 66 69 6c 65 3b ┆1); w3:=jobfile;┆
0x15c60…15c7e 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 34 32 29 3b 20 ┆ monitor(42); ┆
0x15c7e…15c84 (0x450,0x2ba)
0x15c84…15ca0 20 21 20 6c 6f 6f 6b 75 70 20 6a 6f 62 66 69 6c 65 20 21 0a 20 20 20 20 20 20 20 20 ┆ ! lookup jobfile ! ┆
0x15ca0…15cc0 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 ┆
0x15cc0…15ce0 20 20 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 ┆ begin !test 11; ┆
0x15ce0…15cfc 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┆
0x15cfc…15d02 (0x450,0x2bb)
0x15d02…15d20 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 31 30 29 3b 20 20 21 20 ┆'31,w1:=procentry,w2:=10); ! ┆
0x15d20…15d40 6e 6f 20 6a 6f 62 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 ┆no jobfile ! g┆
0x15d40…15d60 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 20 20 65 6e 64 3b ┆oto error1; end;┆
0x15d60…15d7a 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; ┆
0x15d7a…15d80 (0x450,0x2bc)
0x15d80…15da0 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 20 ┆ w3:=address(b.t_mdul); ┆
0x15da0…15dc0 20 20 20 20 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 ┆ monitor(80); ! cre┆
0x15dc0…15de0 61 74 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 ┆ate pseudo process "tem" ! ┆
0x15de0…15e00 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆ if w0 <> 0 then ┆
0x15e00…15e06 (175,) (0x450,0x2bd)
0x15e06…15e20 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 ┆ begin !test┆
0x15e20…15e40 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 20 74 ┆ 12; if w0 = 3 t┆
0x15e40…15e60 68 65 6e 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 70 72 ┆hen outtext(.w3.,w0:=8'31,w1:=pr┆
0x15e60…15e7e 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 32 38 29 20 20 21 20 75 73 65 72 20 63 6f 6e 66 6c 69 ┆ocentry,w2:=28) ! user confli┆
0x15e7e…15e84 (0x450,0x2be)
0x15e84…15ea0 63 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6f 75 ┆ct ! else ou┆
0x15ea0…15ec0 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┆
0x15ec0…15ee0 79 2c 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 ┆y,w2:=6); ! process creation ! ┆
0x15ee0…15efc 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 31 3b ┆ goto error1;┆
0x15efc…15f02 (0x450,0x2bf)
0x15f02…15f20 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 20 20 ┆ end; ┆
0x15f20…15f40 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 0a 20 20 20 20 20 ┆ w3:=address(b.p_mdul); ┆
0x15f40…15f60 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 65 20 ┆ monitor(80); ! create ┆
0x15f60…15f7a 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 22 70 72 69 6d 6f 22 20 21 0a 20 ┆pseudo process "primo" ! ┆
0x15f7a…15f80 (0x450,0x2c0)
0x15f80…15fa0 20 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 0a 20 20 20 20 20 ┆ if w0<>0 then ┆
0x15fa0…15fc0 20 20 20 20 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 ┆ begin !test 14; ┆
0x15fc0…15fe0 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 74 28 ┆ if w0 = 3 then outtext(┆
0x15fe0…16000 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 00 00 00 00 00 00 00 00 ┆.w3.,w0:=8'31,w1:=procen ┆
0x16000…16006 (176,) (0x450,0x2c1)
0x16006…16020 74 72 79 2c 77 32 3a 3d 32 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆try,w2:=28) ┆
0x16020…16040 20 20 65 6c 73 65 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 ┆ else outtext(.w3.,w0:=8'31,w1:┆
0x16040…16060 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=procentry,w2:=6); ┆
0x16060…1607e 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 32 5f 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto error2_1; ┆
0x1607e…16084 (0x450,0x2c2)
0x16084…160a0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 62 2e 73 ┆ end; f1:=b.s┆
0x160a0…160c0 74 61 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 ┆tartbase; w3:=addr┆
0x160c0…160e0 65 73 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 ┆ess(zero); monitor┆
0x160e0…160fc 28 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 ┆(72); ! reset sos own cat b┆
0x160fc…16102 (0x450,0x2c3)
0x16102…16120 61 73 65 20 21 0a 21 74 65 73 74 20 34 34 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ase ! !test 447; ┆
0x16120…16140 20 69 66 20 77 30 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 ┆ if w0:=b.freebufs-buffers<0 the┆
0x16140…16160 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 36 3b 0a ┆n begin !test 16; ┆
0x16160…1617a 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 ┆ outtext(.w┆
0x1617a…16180 (0x450,0x2c4)
0x16180…161a0 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 36 29 ┆3.,w0:=8'31,w1:=procentry,w2:=6)┆
0x161a0…161c0 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 20 20 20 20 20 20 ┆; ! process creation ! ┆
0x161c0…161e0 20 20 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 ┆ goto error2; ┆
0x161e0…16200 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 00 00 00 00 00 00 00 00 ┆ end els ┆
0x16200…16206 (177,) (0x450,0x2c5)
0x16206…16220 65 20 62 2e 66 72 65 65 62 75 66 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆e b.freebufs:=w0; ┆
0x16220…16240 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 69 74 73 29 3b 0a 20 ┆ w1:=address(corelimits); ┆
0x16240…16260 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 20 20 20 ┆ w3:=string2; ┆
0x16260…1627e 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 36 29 3b 20 20 21 20 63 72 65 61 74 65 ┆ monitor(56); ! create┆
0x1627e…16284 (0x450,0x2c6)
0x16284…162a0 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 ┆ internal process ! ┆
0x162a0…162c0 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 20 ┆ if w0<>0 then ┆
0x162c0…162e0 20 20 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 ┆ begin !test 17; ┆
0x162e0…162fc 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:┆
0x162fc…16302 (0x450,0x2c7)
0x16302…16320 3d 38 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 ┆=8'31,w1:=procentry,w2:=6); !┆
0x16320…16340 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 20 20 ┆ process creation ! ┆
0x16340…16360 20 20 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 ┆ goto error3; e┆
0x16360…1637a 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 70 72 ┆nd; w3:=b.pr┆
0x1637a…16380 (0x450,0x2c8)
0x16380…163a0 6f 63 64 65 73 63 72 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 ┆ocdescr; w0:=(w3).┆
0x163a0…163c0 70 72 6f 63 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 ┆procub1; w1:=(w3).┆
0x163c0…163e0 70 72 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 ┆procub2; w3:= stri┆
0x163e0…16400 6e 67 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 00 00 00 00 00 00 00 00 ┆ng2; monit ┆
0x16400…16406 (178,) (0x450,0x2c9)
0x16406…16420 6f 72 28 37 32 29 3b 20 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 ┆or(72); ! set catalog bas┆
0x16420…16440 65 20 20 3d 20 75 73 65 72 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆e = user base ! i┆
0x16440…16460 66 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 62 65 67 69 6e ┆f w0<>0 then begin┆
0x16460…1647e 0a 21 74 65 73 74 20 31 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 ┆ !test 18; out┆
0x1647e…16484 (0x450,0x2ca)
0x16484…164a0 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 ┆text(.w3.,w0:=8'31,w1:=proce┆
0x164a0…164c0 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 72 65 61 74 69 6f 6e ┆ntry,w2:=6); ! process creation┆
0x164c0…164e0 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 72 72 6f 72 34 3b 0a ┆ ! goto error4; ┆
0x164e0…164fc 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; ┆
0x164fc…16502 (0x450,0x2cb)
0x16502…16520 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 20 21 20 67 65 74 20 70 72 6f 63 65 73 ┆ monitor(4); ! get proces┆
0x16520…16540 73 20 64 65 73 63 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 ┆s description address in w0 ! ┆
0x16540…16560 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 3b 0a 20 20 20 20 20 ┆ w1:=procentry; ┆
0x16560…1657a 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 ┆ (w1).internal:=w0┆
0x1657a…16580 (0x450,0x2cc)
0x16580…165a0 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;┆
0x165a0…165c0 0a 20 20 20 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 ┆ w2:=w3+!position(┆
0x165c0…165e0 70 72 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 ┆procdiscs); w1:=0;┆
0x165e0…16600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2b 00 00 00 00 00 00 00 00 ┆ while w1+ ┆
0x16600…16606 (179,) (0x450,0x2cd)
0x16606…16620 31 3c 31 33 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆1<13 do begi┆
0x16620…16640 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 70 72 6f ┆n w2+!length(pro┆
0x16640…16660 63 64 69 73 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d ┆cdisc); savew1:=┆
0x16660…1667e 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 ┆w1; testout(.w┆
0x1667e…16684 (0x450,0x2ce)
0x16684…166a0 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 72 6f 63 64 69 73 63 29 2c 77 31 3a ┆3.,w0:=!length(procdisc),w1:┆
0x166a0…166c0 3d 77 32 2c 77 32 3a 3d 36 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a ┆=w2,w2:=68); w2:┆
0x166c0…166e0 3d 77 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 ┆=w1; w1:=savew1; ┆
0x166e0…166fc 20 20 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 ┆ if w3:=(w2).word=0 then w1┆
0x166fc…16702 (0x450,0x2cf)
0x16702…16720 3a 3d 31 33 0a 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 ┆:=13 else ┆
0x16720…16740 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 ┆
0x16740…16760 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 20 20 20 ┆ savew1:=w1; ┆
0x16760…1677a 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ savew2:=w2; ┆
0x1677a…16780 (0x450,0x2d0)
0x16780…167a0 20 20 20 20 20 20 77 31 3a 3d 77 32 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=w2+8; ┆
0x167a0…167c0 20 20 77 32 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 ┆ w2:=address(claim0); ┆
0x167c0…167e0 20 20 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 ┆ copy(.w3.,w0:=16,w1,w2)┆
0x167e0…16800 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆; w1:= ┆
0x16800…16806 (180,) (0x450,0x2d1)
0x16806…16820 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d ┆w2; w2:=┆
0x16820…16840 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 73 74 ┆savew2; w3:=st┆
0x16840…16860 72 69 6e 67 32 3b 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 72 ┆ring2; monitor┆
0x16860…1687e 28 37 38 29 3b 20 20 21 20 73 65 74 20 62 73 20 63 6c 61 69 6d 73 20 21 0a 20 20 20 20 20 ┆(78); ! set bs claims ! ┆
0x1687e…16884 (0x450,0x2d2)
0x16884…168a0 20 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 0a 20 ┆ if w0<>0 then ┆
0x168a0…168c0 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 74 20 31 39 3b ┆ begin !test 19;┆
0x168c0…168e0 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 74 28 2e 77 33 ┆ outtext(.w3┆
0x168e0…168fc 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 ┆.,w0:=8'31,w1:=procentry,w2:┆
0x168fc…16902 (0x450,0x2d3)
0x16902…16920 3d 35 29 3b 20 20 21 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 20 21 0a 20 20 20 20 ┆=5); ! claims exceeded ! ┆
0x16920…16940 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 20 ┆ goto error4; ┆
0x16940…16960 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; ┆
0x16960…1697a 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 20 ┆ w1:=savew1; ┆
0x1697a…16980 (0x450,0x2d4)
0x16980…169a0 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w2:=savew2; ┆
0x169a0…169c0 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 3b 0a 20 20 ┆ end; end; ┆
0x169c0…169e0 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 32 20 74 68 ┆ if w0:=savew0 = 2 th┆
0x169e0…16a00 65 6e 20 20 21 20 72 75 6e 20 20 2d 20 20 63 6f 6e 6e 65 63 74 20 74 65 00 00 00 00 00 00 00 00 ┆en ! run - connect te ┆
0x16a00…16a06 (181,) (0x450,0x2d5)
0x16a06…16a20 72 6d 69 6e 61 6c 20 76 69 61 20 74 65 6d 20 21 0a 20 20 20 20 20 20 20 20 20 ┆rminal via tem ! ┆
0x16a20…16a40 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 21 20 67 65 6e ┆ begin ! gen┆
0x16a40…16a60 65 72 61 74 65 20 70 6f 6f 6c 6e 61 6d 65 3a 20 63 68 61 72 20 31 2d 33 20 6f 66 20 73 6f 73 2d ┆erate poolname: char 1-3 of sos-┆
0x16a60…16a7e 6e 61 6d 65 2c 20 63 68 61 72 20 34 2d 31 31 20 6f 66 20 70 72 6f 63 6e 61 6d 65 20 21 0a ┆name, char 4-11 of procname ! ┆
0x16a7e…16a84 (0x450,0x2d6)
0x16a84…16aa0 20 20 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 ┆ copy(.w3.,w0┆
0x16aa0…16ac0 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 64 72 65 73 73 28 ┆:=2,w1:=b.ownproc+2,w2:=address(┆
0x16ac0…16ae0 70 6f 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 ┆poolname)); copy┆
0x16ae0…16afc 28 2e 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 ┆(.w3.,w0:=6,w1:=procentry.in┆
0x16afc…16b02 (0x450,0x2d7)
0x16b02…16b20 74 65 72 6e 61 6c 2b 32 2c 77 32 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ternal+2,w2+2); ┆
0x16b20…16b40 20 20 74 65 6d 6f 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 ┆ temop:=w0:=90; ! create pool ┆
0x16b40…16b60 21 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 28 74 65 ┆! w1:=address(te┆
0x16b60…16b7a 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆mop); w3:=┆
0x16b7a…16b80 (0x450,0x2d8)
0x16b80…16ba0 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 20 20 20 20 ┆address(b.t_mdul); ┆
0x16ba0…16bc0 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 67 65 20 ┆ monitor(16); ! send message ┆
0x16bc0…16be0 21 0a 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 ┆! answ(w1:=1); ┆
0x16be0…16c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 00 00 00 00 00 00 00 00 ┆ monitor(1 ┆
0x16c00…16c06 (182,) (0x450,0x2d9)
0x16c06…16c20 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 ┆8); ! wait answer ! ┆
0x16c20…16c40 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 3c 3e ┆ if w0 or (w1).word <>┆
0x16c40…16c60 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 21 74 ┆ 1 then begin !t┆
0x16c60…16c7e 65 73 74 20 32 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 ┆est 20; outt┆
0x16c7e…16c84 (0x450,0x2da)
0x16c84…16ca0 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 ┆ext(.w3.,w0:=8'31,w1:=procen┆
0x16ca0…16cc0 74 72 79 2c 77 32 3a 3d 39 29 3b 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 63 6f 6e 6e 65 63 74 69 ┆try,w2:=9); ! terminal connecti┆
0x16cc0…16ce0 6f 6e 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 ┆on error ! got┆
0x16ce0…16cfc 6f 20 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 ┆o error4; en┆
0x16cfc…16d02 (0x450,0x2db)
0x16d02…16d20 64 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 ┆d; w3:=address┆
0x16d20…16d40 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 20 20 6d 6f 6e 69 ┆(poolname); moni┆
0x16d40…16d60 74 6f 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 ┆tor(4); ! get process descript┆
0x16d60…16d7a 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ion ! if w┆
0x16d7a…16d80 (0x450,0x2dc)
0x16d80…16da0 32 3a 3d 6a 6f 62 66 69 6c 65 20 3e 20 30 20 74 68 65 6e 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 ┆2:=jobfile > 0 then -(w0); ┆
0x16da0…16dc0 20 20 20 20 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 ┆ procentry.peripheral:┆
0x16dc0…16de0 3d 77 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 ┆=w0; termpda:=w0┆
0x16de0…16e00 3a 3d 70 72 6f 63 65 6e 74 72 79 2e 70 72 69 6d 64 65 76 69 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆:=procentry.primdevi; ┆
0x16e00…16e06 (183,) (0x450,0x2dd)
0x16e06…16e20 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 ┆ localid:=w0:┆
0x16e20…16e40 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 73 3a 3d 77 30 3a 3d 31 3b ┆=0; bufs:=w0:=1;┆
0x16e40…16e60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 72 73 3a 3d 77 30 3a 3d 35 3b 0a ┆ timers:=w0:=5; ┆
0x16e60…16e7e 20 20 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 30 30 ┆ temop:=w0:=100┆
0x16e7e…16e84 (0x450,0x2de)
0x16e84…16ea0 3b 20 20 21 20 63 72 65 61 74 65 20 6c 69 6e 6b 20 21 0a 20 20 20 20 20 20 20 20 20 ┆; ! create link ! ┆
0x16ea0…16ec0 20 20 20 20 20 20 20 74 65 6d 6d 6f 64 65 3a 3d 77 30 3a 3d 32 3b 20 20 21 20 74 72 61 6e 73 70 ┆ temmode:=w0:=2; ! transp┆
0x16ec0…16ee0 61 72 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 ┆arent link ! w3:┆
0x16ee0…16efc 3d 61 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 ┆=address(poolname); ┆
0x16efc…16f02 (0x450,0x2df)
0x16f02…16f20 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 20 20 ┆ w1:=address(temop); ┆
0x16f20…16f40 20 20 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┆
0x16f40…16f60 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 20 20 20 20 61 6e 73 ┆nd message ! ans┆
0x16f60…16f7a 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w(w1:=1); ┆
0x16f7a…16f80 (0x450,0x2e0)
0x16f80…16fa0 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 ! ┆
0x16fa0…16fc0 20 20 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 ┆ if w0 or (w1).word┆
0x16fc0…16fe0 20 3c 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 ┆ <> 1 then begin┆
0x16fe0…17000 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6d 6f 00 00 00 00 00 00 00 00 ┆ temmo ┆
0x17000…17006 (184,) (0x450,0x2e1)
0x17006…17020 64 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 ┆de:=w0:=0; ┆
0x17020…17040 20 20 20 74 65 6d 6f 70 3a 3d 77 30 3a 3d 39 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ temop:=w0:=92; ┆
0x17040…17060 20 20 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); ┆
0x17060…1707e 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 64 75 6c ┆ w3:=address(b.t_mdul┆
0x1707e…17084 (0x450,0x2e2)
0x17084…170a0 29 3b 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 72 ┆); monitor┆
0x170a0…170c0 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 ! ┆
0x170c0…170e0 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 20 ┆ answ(w1:=1); ┆
0x170e0…170fc 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┆
0x170fc…17102 (0x450,0x2e3)
0x17102…17120 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 20 20 20 70 ┆t answer ! p┆
0x17120…17140 72 6f 63 65 6e 74 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 ┆rocentry.peripheral:=w0:=procent┆
0x17140…17160 72 79 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 ┆ry.primdevi; !test 21; ┆
0x17160…1717a 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:=┆
0x1717a…17180 (0x450,0x2e4)
0x17180…171a0 38 27 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 3a 3d 39 29 3b 20 20 21 20 74 65 ┆8'31,w1:=procentry,w2:=9); ! te┆
0x171a0…171c0 72 6d 69 6e 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 ┆rminal connection error ! ┆
0x171c0…171e0 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 20 20 20 20 20 ┆ goto error4; ┆
0x171e0…17200 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x17200…17206 (185,) (0x450,0x2e5)
0x17206…17220 20 20 20 20 20 20 70 72 6f 63 65 6e 74 72 79 2e 70 72 69 6d 69 6f 3a 3d 77 30 ┆ procentry.primio:=w0┆
0x17220…17240 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 6e 74 72 79 2e 63 ┆:=0; procentry.c┆
0x17240…17260 75 72 72 6c 6f 63 69 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆urrlocid:=w0:=0; e┆
0x17260…1727e 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 70 72 6f 63 65 6e 74 72 ┆nd else procentr┆
0x1727e…17284 (0x450,0x2e6)
0x17284…172a0 79 2e 70 72 69 6d 69 6f 3a 3d 77 30 3a 3d 30 3b 20 20 20 20 20 21 20 67 6f 2f 62 61 ┆y.primio:=w0:=0; ! go/ba┆
0x172a0…172c0 74 63 68 20 6c 6f 67 69 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 70 72 ┆tch login ! w1:=pr┆
0x172c0…172e0 6f 63 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 ┆ocentry; link(.w3.┆
0x172e0…172fc 2c 77 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 ┆,w1,w2:=address(b.activqfst)┆
0x172fc…17302 (0x450,0x2e7)
0x17302…17320 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 74 68 ┆); comment th┆
0x17320…17340 65 20 6e 65 77 20 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 ┆e new job is linked into the act┆
0x17340…17360 69 76 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 ┆ivequeue independent ┆
0x17360…1737a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 6a 6f 62 20 74 ┆ of the job t┆
0x1737a…17380 (0x450,0x2e8)
0x17380…173a0 79 70 65 2e 20 61 20 62 61 74 63 68 6a 6f 62 20 69 73 20 6c 61 74 65 72 20 6f 6e 20 6d 6f 76 65 ┆ype. a batchjob is later on move┆
0x173a0…173c0 64 20 74 6f 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 ┆d to the ┆
0x173c0…173e0 20 20 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 ┆ batchqueue (at "activate:" in ┆
0x173e0…17400 74 68 65 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 29 20 62 65 63 61 75 73 00 00 00 00 00 00 00 00 ┆the main program) becaus ┆
0x17400…17406 (186,) (0x450,0x2e9)
0x17406…17420 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 ┆e ┆
0x17420…17440 20 6f 66 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 0a 20 20 20 20 20 20 20 20 20 ┆ of the priority class ┆
0x17440…17460 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 3b 0a 20 20 ┆ ; w0:=1; ┆
0x17460…1747e 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 ┆ (w1).messsend:=w0;┆
0x1747e…17484 (0x450,0x2ea)
0x17484…174a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 75 73 69 6e ┆ (w1).statusin┆
0x174a0…174c0 66 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 ┆f:=w0:=0; w2:=(w1)┆
0x174c0…174e0 2e 62 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 ┆.buffer; w1:=b.pro┆
0x174e0…174fc 63 64 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 ┆cdescr+!position(procfp); ┆
0x174fc…17502 (0x450,0x2eb)
0x17502…17520 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 34 30 2c 77 ┆ copy(.w3.,w0:=40,w┆
0x17520…17540 31 2c 77 32 29 3b 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 ┆1,w2); w1:=procent┆
0x17540…17560 72 79 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 ┆ry; if w0:=savew0 ┆
0x17560…1757a 3d 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 20 21 20 ┆= 1 then ! ┆
0x1757a…17580 (0x450,0x2ec)
0x17580…175a0 62 61 74 63 68 20 21 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3a 3d 62 2e 62 61 74 63 68 ┆batch ! (w1).class:=w0:=b.batch┆
0x175a0…175c0 63 6c 61 73 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 ┆class-b.timerloss-1 ┆
0x175c0…175e0 20 20 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 ┆ else (w1).class:=w┆
0x175e0…17600 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 00 00 00 00 00 00 00 00 ┆0:=0; (w1) ┆
0x17600…17606 (187,) (0x450,0x2ed)
0x17606…17620 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆.state:=w0:=3; ┆
0x17620…17640 20 20 20 28 77 31 29 2e 73 74 61 74 65 32 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).state2:=w0:=-1; ┆
0x17640…17660 20 20 20 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 20 20 20 ┆ (w1).prio:=w0:=0; ┆
0x17660…1767e 20 20 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 ┆ (w1).intervent:=w0; ┆
0x1767e…17684 (0x450,0x2ee)
0x17684…176a0 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 ┆ w1:=procentry; ┆
0x176a0…176c0 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 66 65 72 3a 3d 77 30 3a 3d 28 77 31 29 ┆ (w1).buffer:=w0:=(w1)┆
0x176c0…176e0 2e 62 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 ┆.buffer+50; !test 22; ┆
0x176e0…176fc 20 20 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 ┆ outtext(.w3.,w0:=8'70,w1┆
0x176fc…17702 (0x450,0x2ef)
0x17702…17720 2c 77 32 3a 3d 31 39 29 3b 20 20 21 20 65 6e 72 6f 6c 6c 65 64 20 21 0a 20 20 20 20 20 20 ┆,w2:=19); ! enrolled ! ┆
0x17720…17740 20 20 20 20 20 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 75 ┆ (w1).buffer:=w0:=(w1).bu┆
0x17740…17760 66 66 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 ┆ffer-50; (w1).bufl┆
0x17760…1777a 65 6e 67 74 68 3a 3d 77 30 3a 3d 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ength:=w0:=40; ┆
0x1777a…17780 (0x450,0x2f0)
0x17780…177a0 20 20 20 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 ┆ w0:=1; (w1).mes┆
0x177a0…177c0 73 73 65 6e 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 ┆ssend:=w0; w1:=0; ┆
0x177c0…177e0 20 20 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 ┆ end ! go/run/ba┆
0x177e0…17800 74 63 68 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 00 00 00 00 00 00 00 00 ┆tch ! else ┆
0x17800…17806 (188,) (0x450,0x2f1)
0x17806…17820 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 20 74 68 65 6e 20 20 20 ┆ if w0 = 3 then ┆
0x17820…17840 21 20 20 69 6e 20 2d 20 63 6f 6e 6e 65 63 74 20 74 65 72 6d 69 6e 61 6c 20 74 6f 20 70 6f 6f 6c ┆! in - connect terminal to pool┆
0x17840…17860 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 20 20 20 20 20 20 20 ┆ ! begin ┆
0x17860…1787e 20 20 20 63 68 65 63 6b 70 72 6f 74 28 2e 77 33 2e 2c 77 31 3a 3d 73 74 72 69 6e 67 34 2c ┆ checkprot(.w3.,w1:=string4,┆
0x1787e…17884 (0x450,0x2f2)
0x17884…178a0 77 32 3a 3d 62 2e 74 65 72 6d 64 65 73 63 72 2b 21 70 6f 73 69 74 69 6f 6e 28 75 73 ┆w2:=b.termdescr+!position(us┆
0x178a0…178c0 65 72 6b 65 79 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 ┆erkey)); if w1 <> ┆
0x178c0…178e0 30 20 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 ┆0 then goto error1; ┆
0x178e0…178fc 20 20 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 ┆ rewrite:=w2; ┆
0x178fc…17902 (0x450,0x2f3)
0x17902…17920 20 21 20 67 65 6e 65 72 61 74 65 20 70 6f 6f 6c 6e 61 6d 65 3a 20 22 74 65 6d 3c 74 65 72 ┆ ! generate poolname: "tem<ter┆
0x17920…17940 6d 6e 61 6d 65 3e 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 ┆mname>" ! copy(.w3┆
0x17940…17960 2e 2c 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 ┆.,w0:=2,w1:=address(b.t_mdul),w2┆
0x17960…1797a 3a 3d 61 64 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 29 3b 0a 20 20 20 20 ┆:=address(poolname)); ┆
0x1797a…17980 (0x450,0x2f4)
0x17980…179a0 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 73 74 ┆ copy(.w3.,w0:=6,w1:=st┆
0x179a0…179c0 72 69 6e 67 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 ┆ring2,w2+2); termp┆
0x179c0…179e0 64 61 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 ┆da:=w0:=(w1:=b.userentry).periph┆
0x179e0…17a00 65 72 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 00 00 00 00 00 00 00 00 ┆eral; loca ┆
0x17a00…17a06 (189,) (0x450,0x2f5)
0x17a06…17a20 6c 69 64 3a 3d 77 30 3a 3d 28 77 33 3a 3d 62 2e 74 65 72 6d 64 65 73 63 72 29 ┆lid:=w0:=(w3:=b.termdescr)┆
0x17a20…17a40 2e 69 6e 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 69 6d 6c 6f 63 69 64 3a 3d ┆.intid; simlocid:=┆
0x17a40…17a60 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 73 3a 3d 77 30 3a 3d 28 77 33 29 ┆w0; bufs:=w0:=(w3)┆
0x17a60…17a7e 2e 74 62 75 66 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 72 73 3a 3d ┆.tbufs; timers:=┆
0x17a7e…17a84 (0x450,0x2f6)
0x17a84…17aa0 77 30 3a 3d 28 77 33 29 2e 74 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆w0:=(w3).ttimers; ┆
0x17aa0…17ac0 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 6c 69 ┆ temop:=w0:=100; ! create li┆
0x17ac0…17ae0 6e 6b 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 ┆nk ! w1:=address(t┆
0x17ae0…17afc 65 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 ┆emop); w3:=add┆
0x17afc…17b02 (0x450,0x2f7)
0x17b02…17b20 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 ┆ress(poolname); ┆
0x17b20…17b40 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 0a 20 ┆monitor(16); ! send message ! ┆
0x17b40…17b60 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 20 20 20 ┆ answ(w1:=1); ┆
0x17b60…17b7a 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 ┆ monitor(18); ! wa┆
0x17b7a…17b80 (0x450,0x2f8)
0x17b80…17ba0 69 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 69 66 20 77 30 20 ┆it answer ! if w0 ┆
0x17ba0…17bc0 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 20 20 20 20 20 20 20 ┆or (w1).word <> 1 then ┆
0x17bc0…17be0 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 69 66 20 77 31 ┆ begin if w1┆
0x17be0…17c00 3a 3d 77 30 20 61 6e 64 20 38 27 31 30 32 30 20 3c 3e 20 30 20 74 68 65 00 00 00 00 00 00 00 00 ┆:=w0 and 8'1020 <> 0 the ┆
0x17c00…17c06 (190,) (0x450,0x2f9)
0x17c06…17c20 6e 20 77 32 3a 3d 38 20 20 21 20 62 75 73 79 20 21 0a 20 20 20 20 20 20 20 20 ┆n w2:=8 ! busy ! ┆
0x17c20…17c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c40…17c60 20 20 65 6c 73 65 20 77 32 3a 3d 39 3b 20 20 21 20 74 65 72 6d 69 6e 61 6c 20 63 6f 6e 6e 65 63 ┆ else w2:=9; ! terminal connec┆
0x17c60…17c7e 74 69 6f 6e 20 65 72 72 6f 72 20 21 0a 21 74 65 73 74 20 32 33 3b 0a 20 20 20 20 20 20 20 ┆tion error ! !test 23; ┆
0x17c7e…17c84 (0x450,0x2fa)
0x17c84…17ca0 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 ┆ outtext(.w3.,w0:=8'┆
0x17ca0…17cc0 33 31 2c 77 31 3a 3d 70 72 6f 63 65 6e 74 72 79 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆31,w1:=procentry,w2); ┆
0x17cc0…17ce0 20 20 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 ┆ goto error1; ┆
0x17ce0…17cfc 20 65 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 ┆ end; copy(.w3┆
0x17cfc…17d02 (0x450,0x2fb)
0x17d02…17d20 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 74 65 72 6d 70 64 61 2b 32 2c 77 32 3a 3d 61 64 64 72 ┆.,w0:=8,w1:=termpda+2,w2:=addr┆
0x17d20…17d40 65 73 73 28 74 72 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 ┆ess(trmname)); sim┆
0x17d40…17d60 66 69 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 ┆first:=w1:=address(simlocid); ┆
0x17d60…17d7a 20 20 20 20 20 20 20 20 20 20 20 20 73 69 6d 6c 61 73 74 3a 3d 77 31 3a 3d 61 ┆ simlast:=w1:=a┆
0x17d7a…17d80 (0x450,0x2fc)
0x17d80…17da0 64 64 72 65 73 73 28 6e 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 69 6d 6f 70 3a ┆ddress(nl); simop:┆
0x17da0…17dc0 3d 20 77 30 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 ┆= w0:= 9; w1:=addr┆
0x17dc0…17de0 65 73 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 ┆ess(simop); w3:=ad┆
0x17de0…17e00 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆dress(poolname); ┆
0x17e00…17e06 (191,) (0x450,0x2fd)
0x17e06…17e20 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 ┆ monitor(16); ! sen┆
0x17e20…17e40 64 20 6d 65 73 73 61 67 65 20 28 73 69 6d 75 6c 61 74 65 20 20 69 6e 70 75 74 29 20 21 0a 20 20 ┆d message (simulate input) ! ┆
0x17e40…17e60 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 20 ┆ answ(w1:=1); ┆
0x17e60…17e7e 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┆
0x17e7e…17e84 (0x450,0x2fe)
0x17e84…17ea0 73 77 65 72 20 21 0a 21 74 65 73 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆swer ! !test 24; ┆
0x17ea0…17ec0 20 20 20 6f 75 74 74 65 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 33 30 2c 77 31 3a 3d 70 72 6f ┆ outtext(.w3.,w0:=8'30,w1:=pro┆
0x17ec0…17ee0 63 65 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 ┆centry,w2:=11); ! terminal conn┆
0x17ee0…17efc 65 63 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 ┆ected ! end else┆
0x17efc…17f02 (0x450,0x2ff)
0x17f02…17f20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 72 65 77 72 69 74 65 20 3c ┆; if w2:=rewrite <┆
0x17f20…17f40 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 20 ┆> 0 then begin ┆
0x17f40…17f60 20 20 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 ┆ help:=w1; ┆
0x17f60…17f7a 20 66 69 72 73 74 3a 3d 77 30 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 35 31 32 3b ┆ first:=w0:=b.topcore-512;┆
0x17f7a…17f80 (0x450,0x300)
0x17f80…17fa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 77 30 3a 3d 62 2e 74 6f 70 63 6f ┆ last:=w0:=b.topco┆
0x17fa0…17fc0 72 65 2d 32 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 ┆re-2; transport(.w┆
0x17fc0…17fe0 32 2e 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 ┆2.,w1:=address(logop),w3:=addres┆
0x17fe0…18000 73 28 62 2e 75 73 65 72 63 61 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆s(b.usercat)); ┆
0x18000…18006 (192,) (0x450,0x301)
0x18006…18020 20 20 20 20 20 77 31 3a 3d 68 65 6c 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=help; ┆
0x18020…18040 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 6c 65 61 73 65 3b 0a ┆ end; goto release; ┆
0x18040…18060 65 72 72 6f 72 34 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 73 74 72 69 6e 67 32 3b ┆error4: w3:=string2;┆
0x18060…1807e 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┆
0x1807e…18084 (0x450,0x302)
0x18084…180a0 65 6d 6f 76 65 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 21 0a 65 72 72 6f 72 33 ┆emove child process ! error3┆
0x180a0…180c0 3a 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 3d 62 2e ┆: b.freebufs:=w0:=b.┆
0x180c0…180e0 66 72 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 ┆freebufs+buffers; error2: ┆
0x180e0…180fc 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 ┆ help:=w1; ┆
0x180fc…18102 (0x450,0x303)
0x18102…18120 66 31 3a 3d 73 74 64 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 ┆f1:=stdbase; w3:=a┆
0x18120…18140 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 69 74 6f ┆ddress(zero); monito┆
0x18140…18160 72 28 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 ┆r(72); ! set own catalog base ! ┆
0x18160…1817a 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.┆
0x1817a…18180 (0x450,0x304)
0x18180…181a0 70 5f 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 36 34 29 ┆p_mdul); monitor(64)┆
0x181a0…181c0 3b 20 21 20 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 ┆; ! remove process ! ┆
0x181c0…181e0 20 77 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 ┆ w1:=help; error2_1: ┆
0x181e0…18200 20 68 65 6c 70 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 00 00 00 00 00 00 00 00 ┆ help:=w1; f ┆
0x18200…18206 (193,) (0x450,0x305)
0x18206…18220 31 3a 3d 73 74 64 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 ┆1:=stdbase; w3┆
0x18220…18240 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 20 20 6d 6f 6e ┆:=address(zero); mon┆
0x18240…18260 69 74 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 ┆itor(72); ! set sos catalog bas┆
0x18260…1827e 65 20 21 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 ┆e ! w3:=address(b.┆
0x1827e…18284 (0x450,0x306)
0x18284…182a0 74 5f 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 ┆t_mdul); monitor┆
0x182a0…182c0 28 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 ┆(64); ! remove pseudo process !┆
0x182c0…182e0 0a 20 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 ┆ w1:=help; release: ┆
0x182e0…182fc 65 72 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 ┆error1: w3:=addr┆
0x182fc…18302 (0x450,0x307)
0x18302…18320 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 20 6d 6f ┆ess(b.usercat); mo┆
0x18320…18340 6e 69 74 6f 72 28 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 ┆nitor(10); ! release usercat ! ┆
0x18340…18360 65 72 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 ┆error: w0:=savew0; ┆
0x18360…1837a 20 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 ┆ f3:=savef3; ┆
0x1837a…18380 (0x450,0x308)
0x18380…183a0 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 6c 6f 67 69 6e 20 20 21 0a 0c 0a 0a 0a ┆ end; ! login ! ┆
0x183a0…183c0 0a 0a 20 20 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 ┆ body of scancat ┆
0x183c0…183e0 20 20 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 ┆ begin label procfoun┆
0x183e0…18400 64 2c 6e 65 77 73 65 67 6d 2c 74 65 72 6d 66 6f 75 6e 64 2c 65 78 69 74 00 00 00 00 00 00 00 00 ┆d,newsegm,termfound,exit ┆
0x18400…18406 (194,) (0x450,0x309)
0x18406…18420 3b 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 ┆; incode ┆
0x18420…18440 20 20 20 20 20 72 65 66 20 70 72 6f 63 6e 61 6d 65 2c 74 65 72 6d 6e 61 6d 65 2c 72 65 74 75 72 ┆ ref procname,termname,retur┆
0x18440…18460 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 61 79 28 31 3a 21 6c 65 6e 67 74 68 28 70 ┆n; array(1:!length(p┆
0x18460…1847e 72 6f 63 64 65 73 63 72 29 29 20 70 72 6f 63 65 73 73 20 6f 66 20 62 79 74 65 3b 0a 20 20 ┆rocdescr)) process of byte; ┆
0x1847e…18484 (0x450,0x30a)
0x18484…184a0 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 6c 6f 67 6f 70 2c 6c 6f 67 6d 6f 64 65 ┆ byte logop,logmode┆
0x184a0…184c0 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 6c 61 73 74 3b ┆:=0; ref first,last;┆
0x184c0…184e0 0a 20 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 ┆ word segm,proc_no,s┆
0x184e0…184fc 61 76 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 ┆avew1,logstop,zero:=0; ┆
0x184fc…18502 (0x450,0x30b)
0x18502…18520 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 6e 61 6d ┆ begin procnam┆
0x18520…18540 65 3a 3d 77 31 3b 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 ┆e:=w1; termname:=w2;┆
0x18540…18560 0a 20 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 ┆ return:=w3; ┆
0x18560…1857a 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); ┆
0x1857a…18580 (0x450,0x30c)
0x18580…185a0 20 20 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 20 20 ┆ f1:=b.startbase; ┆
0x185a0…185c0 20 20 20 20 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 ┆ w0:=w1; monit┆
0x185c0…185e0 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 20 ┆or(72); ! set own cat base ! ┆
0x185e0…18600 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 00 00 00 00 00 00 00 00 ┆ w3:=address(b. ┆
0x18600…18606 (195,) (0x450,0x30d)
0x18606…18620 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 ┆usercat); moni┆
0x18620…18640 74 6f 72 28 38 29 3b 20 20 20 21 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 2c 20 69 2e 65 ┆tor(8); ! reserve process, i.e┆
0x18640…18660 2e 20 6f 70 65 6e 28 7a 2c 34 2c 3c 3a 73 6f 73 63 61 74 3a 3e 2c 30 29 20 21 0a 20 20 20 20 20 ┆. open(z,4,<:soscat:>,0) ! ┆
0x18660…1867e 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 ┆
0x1867e…18684 (0x450,0x30e)
0x18684…186a0 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 30 3a ┆ begin w0:┆
0x186a0…186c0 3d 2d 33 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 ┆=-3; goto exit; ┆
0x186c0…186e0 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 66 69 72 73 74 ┆ end; first┆
0x186e0…186fc 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 ┆:=w0:=b.topcore-512; ┆
0x186fc…18702 (0x450,0x30f)
0x18702…18720 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 3b 0a 20 20 ┆ last:=w0:=b.topcore-2; ┆
0x18720…18740 20 20 20 20 20 20 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 ┆ logop:=w0:=3; ┆
0x18740…18760 20 20 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 ┆ segm:=w0:=0; w1:┆
0x18760…1877a 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 ┆=address(logop); ┆
0x1877a…18780 (0x450,0x310)
0x18780…187a0 20 20 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); ┆
0x187a0…187c0 20 20 20 20 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 ┆ w3:=b.topcore-2; ┆
0x187c0…187e0 20 20 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 ┆ proc_no:=w3:=(w3-4).word; ┆
0x187e0…18800 20 20 20 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w1:=0; ┆
0x18800…18806 (196,) (0x450,0x311)
0x18806…18820 20 20 20 20 77 32 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 35 31 32 2d 21 6c 65 6e ┆ w2:=b.topcore-512-!len┆
0x18820…18840 67 74 68 28 70 72 69 6e 64 65 78 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 ┆gth(prindex); while ┆
0x18840…18860 77 31 2b 31 3c 3d 70 72 6f 63 5f 6e 6f 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆w1+1<=proc_no do beg┆
0x18860…1887e 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆in w3:=0; ┆
0x1887e…18884 (0x450,0x312)
0x18884…188a0 20 20 20 20 20 20 20 20 77 30 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=w1; ┆
0x188a0…188c0 20 20 69 66 20 66 30 20 6d 6f 64 20 35 30 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ if f0 mod 50=1 then ┆
0x188c0…188e0 20 20 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 ┆ if w1<>1 then ┆
0x188e0…188fc 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 ┆
0x188fc…18902 (0x450,0x313)
0x18902…18920 73 65 67 6d 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 ┆segm:=w0; sa┆
0x18920…18940 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 77 31 3a 3d ┆vew1:=w1; w1:=┆
0x18940…18960 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 20 20 20 20 20 20 20 ┆address(logop); ┆
0x18960…1897a 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); ┆
0x1897a…18980 (0x450,0x314)
0x18980…189a0 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 28 2e 77 32 2e ┆ transport(.w2.┆
0x189a0…189c0 2c 77 31 2c 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 ┆,w1,w3); w1:=s┆
0x189c0…189e0 61 76 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 ┆avew1; w2:=b.t┆
0x189e0…18a00 6f 70 63 6f 72 65 2d 35 31 32 2d 21 6c 65 6e 67 74 68 28 70 72 69 6e 64 00 00 00 00 00 00 00 00 ┆opcore-512-!length(prind ┆
0x18a00…18a06 (197,) (0x450,0x315)
0x18a06…18a20 65 78 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ex); end; ┆
0x18a20…18a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 70 72 69 6e 64 65 78 ┆ w2+!length(prindex┆
0x18a40…18a60 29 3b 0a 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 ┆); savew1:=w1; ┆
0x18a60…18a7e 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,┆
0x18a7e…18a84 (0x450,0x316)
0x18a84…18aa0 77 31 3a 3d 70 72 6f 63 6e 61 6d 65 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆w1:=procname,w2); ┆
0x18aa0…18ac0 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 70 72 6f 63 66 6f 75 6e ┆ if w0 = 0 then goto procfoun┆
0x18ac0…18ae0 64 3b 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 ┆d; w1:=savew1; ┆
0x18ae0…18afc 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 ┆ end; w0┆
0x18afc…18b02 (0x450,0x317)
0x18b02…18b20 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 70 ┆:=-1; goto exit; p┆
0x18b20…18b40 72 6f 63 66 6f 75 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 ┆rocfound: segm:=w1:=┆
0x18b40…18b60 28 77 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 ┆(w2).prsegmno; w1:=a┆
0x18b60…18b7a 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 ┆ddress(logop); ┆
0x18b7a…18b80 (0x450,0x318)
0x18b80…18ba0 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 20 20 20 20 20 20 ┆ w3:=address(b.usercat); ┆
0x18ba0…18bc0 20 20 20 20 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 ┆ transport(.w2.,w1,w3); ┆
0x18bc0…18be0 20 20 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 ┆ w1:=b.topcore-512; ┆
0x18be0…18c00 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 28 77 32 3a 3d 31 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆ process(w2:=1); ┆
0x18c00…18c06 (198,) (0x450,0x319)
0x18c06…18c20 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 21 ┆ copy(.w3.,w0:=!┆
0x18c20…18c40 6c 65 6e 67 74 68 28 70 72 6f 63 64 65 73 63 72 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆length(procdescr),w1,w2); ┆
0x18c40…18c60 20 20 20 20 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 36 38 29 ┆ testout(.w3.,w0,w1,w2:=68)┆
0x18c60…18c7e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 66 69 6e 64 20 74 65 72 6d 69 6e 61 6c 20 ┆; ! find terminal ┆
0x18c7e…18c84 (0x450,0x31a)
0x18c84…18ca0 69 6e 20 73 6f 73 63 61 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆in soscat ! if w┆
0x18ca0…18cc0 32 3a 3d 74 65 72 6d 6e 61 6d 65 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆2:=termname = 0 then ┆
0x18cc0…18ce0 20 62 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 ┆ begin w0:=segm; ┆
0x18ce0…18cfc 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; ┆
0x18cfc…18d02 (0x450,0x31b)
0x18d02…18d20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 62 ┆ end; w2:=b┆
0x18d20…18d40 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 77 32 2b 21 6c 65 ┆.topcore-512; w2+!le┆
0x18d40…18d60 6e 67 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 ┆ngth(procdescr); w2-┆
0x18d60…18d7a 21 6c 65 6e 67 74 68 28 74 65 72 6d 64 65 73 63 72 29 3b 0a 20 20 20 20 20 20 ┆!length(termdescr); ┆
0x18d7a…18d80 (0x450,0x31c)
0x18d80…18da0 20 20 20 20 20 20 77 33 3a 3d 62 2e 74 6f 70 63 6f 72 65 2d 21 6c 65 6e 67 74 68 28 74 65 72 6d ┆ w3:=b.topcore-!length(term┆
0x18da0…18dc0 64 65 73 63 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 ┆descr); logstop:=w3;┆
0x18dc0…18de0 0a 6e 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 ┆ newsegm: !test 540; ┆
0x18de0…18e00 20 77 68 69 6c 65 20 77 32 2b 21 6c 65 6e 67 74 68 28 74 65 72 6d 64 65 00 00 00 00 00 00 00 00 ┆ while w2+!length(termde ┆
0x18e00…18e06 (199,) (0x450,0x31d)
0x18e06…18e20 73 63 72 29 3c 6c 6f 67 73 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 ┆scr)<logstop do ┆
0x18e20…18e40 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 77 31 3a 3d 28 77 32 ┆ begin if w1:=(w2┆
0x18e40…18e60 29 2e 77 6f 72 64 3d 2d 31 20 74 68 65 6e 20 77 32 3a 3d 6c 6f 67 73 74 6f 70 0a 20 20 20 20 20 ┆).word=-1 then w2:=logstop ┆
0x18e60…18e7e 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 ┆ else begin ┆
0x18e7e…18e84 (0x450,0x31e)
0x18e84…18ea0 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:┆
0x18ea0…18ec0 3d 74 65 72 6d 6e 61 6d 65 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆=termname,w2); i┆
0x18ec0…18ee0 66 20 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 ┆f w0=0 then goto termfound; ┆
0x18ee0…18efc 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 65 ┆ end; e┆
0x18efc…18f02 (0x450,0x31f)
0x18f02…18f20 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 72 65 2d ┆nd; w2:=b.topcore-┆
0x18f20…18f40 32 3b 0a 20 20 20 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 ┆2; if w0:=(w2).word<┆
0x18f40…18f60 3e 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 20 20 20 20 20 ┆>-1 then begin ┆
0x18f60…18f7a 20 20 20 20 20 20 20 20 20 73 65 67 6d 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 ┆ segm:=w0; ┆
0x18f7a…18f80 (0x450,0x320)
0x18f80…18fa0 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6c 6f 67 6f 70 29 3b 0a 20 20 20 20 20 ┆ w1:=address(logop); ┆
0x18fa0…18fc0 20 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 ┆ w3:=address(b.usercat);┆
0x18fc0…18fe0 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 2c 77 31 ┆ transport(.w2.,w1┆
0x18fe0…19000 2c 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 00 00 00 00 00 00 00 00 ┆,w3); w2:= ┆
0x19000…19006 (200,) (0x450,0x321)
0x19006…19020 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 ┆b.topcore-512; ┆
0x19020…19040 20 20 20 77 32 2d 21 6c 65 6e 67 74 68 28 74 65 72 6d 64 65 73 63 72 29 3b 0a 20 20 20 20 20 20 ┆ w2-!length(termdescr); ┆
0x19040…19060 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 77 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto newsegm; ┆
0x19060…1907e 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 32 3b 0a 20 20 20 ┆ end; w0:=-2; ┆
0x1907e…19084 (0x450,0x322)
0x19084…190a0 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 74 65 72 6d 66 6f 75 6e ┆ goto exit; termfoun┆
0x190a0…190c0 64 3a 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 32 3b 0a ┆d: b.termdescr:=w2; ┆
0x190c0…190e0 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 21 6c 65 ┆ testout(.w3.,w0:=!le┆
0x190e0…190fc 6e 67 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 ┆ngth(termdescr),w1:=w2,w2:=6┆
0x190fc…19102 (0x450,0x323)
0x19102…19120 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 28 77 31 3a 3d 31 29 ┆8); process(w1:=1)┆
0x19120…19140 3b 0a 20 20 20 20 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 ┆; w2:=b.termdescr; ┆
0x19140…19160 20 20 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 ┆ w0:=segm; exit: ┆
0x19160…1917a 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 ┆ w3:=return; ┆
0x1917a…19180 (0x450,0x324)
0x19180…191a0 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 73 63 61 6e 63 ┆ end; end; ! scanc┆
0x191a0…191c0 61 74 20 21 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 ┆at ! body of checkp┆
0x191c0…191e0 72 6f 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 ┆rot begin labe┆
0x191e0…19200 6c 20 62 61 64 5f 70 61 73 73 77 2c 20 65 78 69 74 2c 20 66 6f 75 6e 64 00 00 00 00 00 00 00 00 ┆l bad_passw, exit, found ┆
0x19200…19206 (201,) (0x450,0x325)
0x19206…19220 3b 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 ┆; incode ┆
0x19220…19240 20 20 20 20 20 74 65 78 74 28 31 31 29 20 70 61 73 73 3a 3d 22 70 61 73 73 22 2c 6e 65 77 70 61 ┆ text(11) pass:="pass",newpa┆
0x19240…19260 73 73 3a 3d 22 6e 65 77 70 61 73 73 22 2c 65 6d 70 74 79 74 65 78 74 3a 3d 22 22 2c 0a 20 20 20 ┆ss:="newpass",emptytext:="", ┆
0x19260…1927e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 73 73 32 3a 3d 22 70 61 73 73 ┆ pass2:="pass┆
0x1927e…19284 (0x450,0x326)
0x19284…192a0 77 6f 72 64 22 2c 20 70 61 73 73 74 78 74 3a 3d 22 3e 70 61 73 73 77 6f 72 64 20 22 ┆word", passtxt:=">password "┆
0x192a0…192c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 70 61 73 73 77 6f 72 64 2c 72 65 74 75 72 ┆; ref password,retur┆
0x192c0…192e0 6e 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 72 ┆n; begin r┆
0x192e0…192fc 65 74 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 ┆eturn:=w3; passw┆
0x192fc…19302 (0x450,0x327)
0x19302…19320 6f 72 64 3a 3d 77 32 3b 20 20 20 20 20 21 20 61 64 64 72 20 6f 66 20 63 6f 72 72 65 63 74 ┆ord:=w2; ! addr of correct┆
0x19320…19340 20 70 61 73 73 77 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 ┆ password ! compare(┆
0x19340…19360 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 70 61 73 73 29 29 ┆.w3.,w0:=8,w1,w2:=address(pass))┆
0x19360…1937a 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 74 ┆; if w0 <> 0 t┆
0x1937a…19380 (0x450,0x328)
0x19380…193a0 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 20 ┆hen begin ┆
0x193a0…193c0 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 77 31 2c 20 77 32 ┆ compare (.w3., w0:=8, w1, w2┆
0x193c0…193e0 3a 3d 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 ┆:=address(pass2)); ┆
0x193e0…19400 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 00 00 00 00 00 00 00 00 ┆ if w0=0 then goto found ┆
0x19400…19406 (202,) (0x450,0x329)
0x19406…19420 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 ┆; compare(.w┆
0x19420…19440 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 74 79 74 65 78 ┆3.,w0:=8,w1,w2:=address(emptytex┆
0x19440…19460 74 29 29 3b 0a 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 68 ┆t)); if w0 <> 0 th┆
0x19460…1947e 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 32 ┆en begin !test 2┆
0x1947e…19484 (0x450,0x32a)
0x19484…194a0 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 ┆5; outtext(.┆
0x194a0…194c0 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:┆
0x194c0…194e0 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 20 20 20 ┆=2); ! syntax ! ┆
0x194e0…194fc 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┆
0x194fc…19502 (0x450,0x32b)
0x19502…19520 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 20 20 20 20 20 21 ┆d; w2:=w1; !┆
0x19520…19540 20 61 64 64 72 20 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 ┆ addr of read passw:= addr of em┆
0x19540…19560 70 74 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 ┆pty param ! end else┆
0x19560…1957a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 66 6f 75 6e 64 3a 0a ┆ begin found: ┆
0x1957a…19580 (0x450,0x32c)
0x19580…195a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 2b 38 3b 20 20 20 20 20 21 20 61 ┆ w2:= w1+8; ! a┆
0x195a0…195c0 64 64 72 20 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 ┆ddr of password param ! ┆
0x195c0…195e0 20 20 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 ┆ end; w1:=passwor┆
0x195e0…19600 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 00 00 00 00 00 00 00 00 ┆d; compare(. ┆
0x19600…19606 (203,) (0x450,0x32d)
0x19606…19620 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆w3.,w0:=8,w1,w2); ┆
0x19620…19640 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 20 20 20 ┆ if w0 <> 0 then ┆
0x19640…19660 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 20 28 2e 77 33 ┆begin compare (.w3┆
0x19660…1967e 2e 2c 20 77 30 3a 3d 38 2c 20 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 ┆., w0:=8, w1:=address(emptytex┆
0x1967e…19684 (0x450,0x32e)
0x19684…196a0 74 29 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆t), w2); w1:= ┆
0x196a0…196c0 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 20 20 69 66 20 77 30 ┆b.userentry; if w0┆
0x196c0…196e0 3c 3e 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 ┆<>0 then ! password param <┆
0x196e0…196fc 3e 20 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 ┆> empty ! begi┆
0x196fc…19702 (0x450,0x32f)
0x19702…19720 6e 0a 62 61 64 5f 70 61 73 73 77 3a 0a 21 74 65 73 74 20 32 36 3b 0a 20 20 20 20 20 20 20 ┆n bad_passw: !test 26; ┆
0x19720…19740 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 77 ┆ outtext(.w3.,w0:=8'31,w┆
0x19740…19760 31 2c 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 ┆1,w2:=13); ! bad password ! ┆
0x19760…1977a 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 ┆ goto exit; ┆
0x1977a…19780 (0x450,0x330)
0x19780…197a0 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 20 20 20 ┆ end else ┆
0x197a0…197c0 20 20 20 69 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 ┆ if w0:=(w1).state = -3 then g┆
0x197c0…197e0 6f 74 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 ┆oto bad_passw else┆
0x197e0…19800 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x19800…19806 (204,) (0x450,0x331)
0x19806…19820 20 20 20 20 20 20 20 20 20 20 21 20 70 61 73 73 77 6f 72 64 20 6d 75 73 74 20 ┆ ! password must ┆
0x19820…19840 62 65 20 74 79 70 65 64 20 69 6e 76 69 73 69 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆be typed invisible ! ┆
0x19840…19860 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 2d 33 3b 20 20 20 21 20 61 ┆ (w1).state:= w0:= -3; ! a┆
0x19860…1987e 77 61 69 74 69 6e 67 20 70 61 73 73 77 6f 72 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆waiting password ! ┆
0x1987e…19884 (0x450,0x332)
0x19884…198a0 20 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 ┆ (w1).bufrel:= w0:= (w1)┆
0x198a0…198c0 2e 62 75 66 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d ┆.buflength; w2:=┆
0x198c0…198e0 20 28 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 ┆ (w1).buffer + w0; ! start addr┆
0x198e0…198fc 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 66 6c ┆ ! (w1).bufl┆
0x198fc…19902 (0x450,0x333)
0x19902…19920 65 6e 67 74 68 3a 3d 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ength:= w0:= 8; ┆
0x19920…19940 20 20 63 6f 70 79 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 ┆ copy (.w3., w0, w1:=address(pa┆
0x19940…19960 73 73 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 ┆sstxt), w2); tes┆
0x19960…1997a 74 6f 75 74 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 2c 20 77 32 3a 3d 30 29 ┆tout (.w3., w0, w1, w2:=0)┆
0x1997a…19980 (0x450,0x334)
0x19980…199a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 65 63 6b 64 65 76 69 63 65 20 28 2e ┆; checkdevice (.┆
0x199a0…199c0 77 33 2e 2c 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 ┆w3., w0, w1:=b.userentry); ┆
0x199c0…199e0 20 20 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 ┆ b.passmode:= w0; ! ┆
0x199e0…19a00 30 20 3d 20 63 6f 6e 73 6f 6c 65 20 28 64 65 76 69 63 65 6e 6f 3d 32 29 00 00 00 00 00 00 00 00 ┆0 = console (deviceno=2) ┆
0x19a00…19a06 (205,) (0x450,0x335)
0x19a06…19a20 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 ┆ ┆
0x19a20…19a40 20 20 20 20 20 20 20 20 20 20 20 20 32 20 3d 20 6f 74 68 65 72 20 74 65 72 6d 69 6e 61 6c 20 20 ┆ 2 = other terminal ┆
0x19a40…19a60 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 ┆ ! w0:= (w1)┆
0x19a60…19a7e 2e 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 30 29 ┆.bufrel; -(w0)┆
0x19a7e…19a84 (0x450,0x336)
0x19a84…19aa0 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 ┆; send (.w3.┆
0x19aa0…19ac0 2c 20 77 30 2c 20 77 31 2c 20 77 32 3a 3d 32 30 34 38 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆, w0, w1, w2:=20480); ┆
0x19ac0…19ae0 20 20 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 ┆ (w1).bufrel:= w0:= (w1).bu┆
0x19ae0…19afc 66 72 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 ┆frel + 8; -(┆
0x19afc…19b02 (0x450,0x337)
0x19b02…19b20 77 30 29 3b 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 ┆w0); (w1).bufl┆
0x19b20…19b40 65 6e 67 74 68 3a 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 ┆ength:= w3:= b.maxbuf - (w1).buf┆
0x19b40…19b60 72 65 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 ┆rel; send (.w3.,┆
0x19b60…19b7a 20 77 30 2c 20 77 31 2c 20 77 32 3a 3d 31 32 32 38 38 2b 62 2e 70 61 73 73 6d ┆ w0, w1, w2:=12288+b.passm┆
0x19b7a…19b80 (0x450,0x338)
0x19b80…19ba0 6f 64 65 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 21 ┆ode); !┆
0x19ba0…19bc0 20 72 65 61 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 ┆ read password without echo, mod┆
0x19bc0…19be0 65 3d 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 ┆e=2 ! link(.w3.,┆
0x19be0…19c00 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 00 00 00 00 00 00 00 00 ┆w1,w2:=address(b.waitqfs ┆
0x19c00…19c06 (206,) (0x450,0x339)
0x19c06…19c20 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 ┆t)); w3:= ┆
0x19c20…19c40 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 20 20 20 20 ┆address(b.usercat); ┆
0x19c40…19c60 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 20 21 20 72 65 6c 65 61 73 65 20 75 73 65 72 63 ┆ monitor(10); ! release userc┆
0x19c60…19c7e 61 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 63 6f ┆at ! goto b.co┆
0x19c7e…19c84 (0x450,0x33a)
0x19c84…19ca0 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ntinue; end; ┆
0x19ca0…19cc0 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 63 6f 6d 70 ┆ end; comp┆
0x19cc0…19ce0 61 72 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 ┆are(.w3.,w0:=8,w1:=address(newpa┆
0x19ce0…19cfc 73 73 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 ┆ss),w2+8); if w0┆
0x19cfc…19d02 (0x450,0x33b)
0x19d02…19d20 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 ┆ <> 0 then begin ┆
0x19d20…19d40 20 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,┆
0x19d40…19d60 77 31 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 ┆w1:=address(emptytext),w2); ┆
0x19d60…19d7a 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 ┆ if w0 <> 0 then ┆
0x19d7a…19d80 (0x450,0x33c)
0x19d80…19da0 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 37 3b 0a 20 20 ┆ begin !test 27; ┆
0x19da0…19dc0 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┆
0x19dc0…19de0 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 73 ┆'31,w1:=b.userentry,w2:=2); ! s┆
0x19de0…19e00 79 6e 74 61 78 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 ┆yntax ! ┆
0x19e00…19e06 (207,) (0x450,0x33d)
0x19e06…19e20 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 ┆goto exit; e┆
0x19e20…19e40 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 30 3b 20 20 20 20 20 20 20 20 ┆nd; w2:=0; ┆
0x19e40…19e60 20 20 20 20 20 20 20 21 20 72 65 77 72 69 74 65 3a 3d 20 66 61 6c 73 65 20 21 0a 20 20 20 20 20 ┆ ! rewrite:= false ! ┆
0x19e60…19e7e 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 62 65 ┆ end else be┆
0x19e7e…19e84 (0x450,0x33e)
0x19e84…19ea0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 32 2b 38 3b 0a ┆gin w1:=w2+8; ┆
0x19ea0…19ec0 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 2e 77 6f 72 64 20 3c ┆ if w0:=(w1).word <┆
0x19ec0…19ee0 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 0a 21 74 65 73 ┆ 0 then begin !tes┆
0x19ee0…19efc 74 20 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 ┆t 28; outtex┆
0x19efc…19f02 (0x450,0x33f)
0x19f02…19f20 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 ┆t(.w3.,w0:=8'31,w1:=b.userentr┆
0x19f20…19f40 79 2c 77 32 3a 3d 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 ┆y,w2:=2); ! syntax ! ┆
0x19f40…19f60 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 20 20 20 ┆ goto exit; ┆
0x19f60…19f7a 65 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 ┆end; copy(.w┆
0x19f7a…19f80 (0x450,0x340)
0x19f80…19fa0 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 32 2b 38 2c 77 32 3a 3d 70 61 73 73 77 6f 72 64 29 3b ┆3.,w0:=8,w1:=w2+8,w2:=password);┆
0x19fa0…19fc0 0a 20 20 20 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 ┆ w2:=1; ┆
0x19fc0…19fe0 20 20 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 ┆ ! rewrite:= true ! ┆
0x19fe0…1a000 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆ end; w1:= ┆
0x1a000…1a006 (208,) (0x450,0x341)
0x1a006…1a020 30 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 72 ┆0; exit: w3:=r┆
0x1a020…1a040 65 74 75 72 6e 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 ┆eturn; end; en┆
0x1a040…1a060 64 3b 20 20 20 20 21 20 20 63 68 65 63 6b 70 72 6f 74 20 20 21 0a 0c 0a 0a 0a 0a 20 20 20 20 20 ┆d; ! checkprot ! ┆
0x1a060…1a07e 20 20 20 62 6f 64 79 20 6f 66 20 63 68 65 63 6b 64 65 76 69 63 65 0a 20 20 20 20 20 20 20 ┆ body of checkdevice ┆
0x1a07e…1a084 (0x450,0x342)
0x1a084…1a0a0 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 ┆ begin incode ┆
0x1a0a0…1a0c0 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 77 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ double w12; ┆
0x1a0c0…1a0e0 77 6f 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 ┆word return; begin ┆
0x1a0e0…1a0fc 20 20 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 ┆ w12:= f2; ┆
0x1a0fc…1a102 (0x450,0x343)
0x1a102…1a120 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 ┆ return:= w3; w3┆
0x1a120…1a140 3a 3d 37 34 3b 20 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 ┆:=74; ! ref to na┆
0x1a140…1a160 6d 65 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 ┆me table ! w3:=(w3).┆
0x1a160…1a17a 77 6f 72 64 2b 34 3b 20 20 20 20 20 20 20 21 20 72 65 66 20 74 6f 20 70 72 6f ┆word+4; ! ref to pro┆
0x1a17a…1a180 (0x450,0x344)
0x1a180…1a1a0 63 2e 64 65 73 63 72 2e 20 6f 66 20 64 65 76 69 63 65 20 32 20 21 0a 20 20 20 20 20 20 20 20 20 ┆c.descr. of device 2 ! ┆
0x1a1a0…1a1c0 20 20 20 77 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 ┆ w2:=(w3).word+2; ! - ┆
0x1a1c0…1a1e0 2d 20 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 ┆- - name - - ! ┆
0x1a1e0…1a200 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 70 65 72 69 70 68 00 00 00 00 00 00 00 00 ┆ w1:=(w1).periph ┆
0x1a200…1a206 (209,) (0x450,0x345)
0x1a206…1a220 65 72 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 ┆eral; if w1<0 ┆
0x1a220…1a240 74 68 65 6e 20 2d 28 77 31 29 3b 20 20 20 20 21 20 72 65 66 20 74 6f 20 70 72 6f 63 2e 64 65 73 ┆then -(w1); ! ref to proc.des┆
0x1a240…1a260 63 72 2e 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆cr. of terminal ! w1┆
0x1a260…1a27e 2b 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 2d 20 20 2d 20 20 ┆+2; ! - - ┆
0x1a27e…1a284 (0x450,0x346)
0x1a284…1a2a0 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 ┆ - name - - ! ┆
0x1a2a0…1a2c0 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 20 77 30 3a 3d 38 2c 20 77 ┆ compare(.w3., w0:=8, w┆
0x1a2c0…1a2e0 31 2c 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 ┆1, w2); if w0<>0 the┆
0x1a2e0…1a2fc 6e 20 77 30 3a 3d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 32 3a 3d 77 31 32 ┆n w0:=8; f2:=w12┆
0x1a2fc…1a302 (0x450,0x347)
0x1a302…1a320 3b 0a 20 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 20 ┆; w3:=return; ┆
0x1a320…1a340 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 20 21 20 63 68 ┆ end; end; ! ch┆
0x1a340…1a360 65 63 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 ┆eckdevice ! end; ! l┆
0x1a360…1a37a 6f 67 69 6e 20 20 21 0a 0c 0a 0a 0a 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 ┆ogin ! bod┆
0x1a37a…1a380 (0x450,0x348)
0x1a380…1a3a0 79 20 6f 66 20 6f 75 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 ┆y of out begin ┆
0x1a3a0…1a3c0 20 6c 61 62 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 ┆ label return; record ┆
0x1a3c0…1a3e0 63 6f 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 ┆cont_ans ( word stat,l_id,perif,┆
0x1a3e0…1a400 62 75 66 74 69 6d 65 72 2c 70 6f 6f 6c 29 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆buftimer,pool); ┆
0x1a400…1a406 (210,) (0x450,0x349)
0x1a406…1a420 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆ incode word ┆
0x1a420…1a440 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 ┆savew0; double savef┆
0x1a440…1a460 33 3b 0a 20 20 20 20 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 ┆3; byte temop,temmod┆
0x1a460…1a47e 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 6c 61 ┆e:=0; ref first,la┆
0x1a47e…1a484 (0x450,0x34a)
0x1a484…1a4a0 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 69 6d 6c 6f 63 69 ┆st; word simloci┆
0x1a4a0…1a4c0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 32 38 29 20 73 69 6d 74 78 74 3a 3d ┆d; text(28) simtxt:=┆
0x1a4c0…1a4e0 22 27 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 ┆"'2''2' out '10'"; ┆
0x1a4e0…1a4fc 20 61 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 ┆ array(1:8) answ of word; ┆
0x1a4fc…1a502 (0x450,0x34b)
0x1a502…1a520 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 65 6d 70 74 79 74 65 78 74 3a 3d ┆ text(14) emptytext:=┆
0x1a520…1a540 22 22 2c 6e 61 6d 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 ┆"",namebuf:=""; byte┆
0x1a540…1a560 20 6f 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 ┆ op1:=106,mode1:=0; ! lookup te┆
0x1a560…1a57a 72 6d 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 63 69 ┆rm ! word loci┆
0x1a57a…1a580 (0x450,0x34c)
0x1a580…1a5a0 64 2c 70 65 72 69 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 ┆d,peri; begin ┆
0x1a5a0…1a5c0 20 20 20 20 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 ┆ savew0:= w0; sav┆
0x1a5c0…1a5e0 65 66 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 ┆ef3:= f3; compare(.w┆
0x1a5e0…1a600 33 2e 2c 77 30 3a 3d 38 2c 77 31 2b 38 2c 77 32 3a 3d 61 64 64 72 65 73 00 00 00 00 00 00 00 00 ┆3.,w0:=8,w1+8,w2:=addres ┆
0x1a600…1a606 (211,) (0x450,0x34d)
0x1a606…1a620 73 28 65 6d 70 74 79 74 65 78 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆s(emptytext)); ┆
0x1a620…1a640 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 20 62 65 67 69 6e ┆ if w0<>0 then begin┆
0x1a640…1a660 0a 21 74 65 73 74 20 32 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 74 ┆ !test 29; outtext┆
0x1a660…1a67e 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 ┆(.w3.,w0:=8'31,w1:=b.userentry┆
0x1a67e…1a684 (0x450,0x34e)
0x1a684…1a6a0 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 ! ┆
0x1a6a0…1a6c0 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto return; ┆
0x1a6c0…1a6e0 65 6e 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 ┆end; w0:= (w1:=b.us┆
0x1a6e0…1a6fc 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 ┆erentry).peripheral; ┆
0x1a6fc…1a702 (0x450,0x34f)
0x1a702…1a720 20 20 20 20 20 70 65 72 69 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆ peri:=w0; w1:┆
0x1a720…1a740 3d 20 61 64 64 72 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 ┆= address(op1); w3:=┆
0x1a740…1a760 20 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 20 20 20 ┆ address(b.t_mdul); ┆
0x1a760…1a77a 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┆
0x1a77a…1a780 (0x450,0x350)
0x1a780…1a7a0 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 6c 61 73 74 75 73 65 72 ┆ge ! w1:= b.lastuser┆
0x1a7a0…1a7c0 3b 0a 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 ┆; monitor(18); ! wa┆
0x1a7c0…1a7e0 69 74 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 ┆it answer ! if w0 or┆
0x1a7e0…1a800 20 28 77 31 29 2e 73 74 61 74 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ (w1).stat<>1 then ┆
0x1a800…1a806 (212,) (0x450,0x351)
0x1a806…1a820 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 74 65 72 6d 69 6e 61 6c 20 6e 6f ┆ begin ! terminal no┆
0x1a820…1a840 74 20 6b 6e 6f 77 6e 20 21 0a 21 74 65 73 74 20 33 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆t known ! !test 30; ┆
0x1a840…1a860 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 73 ┆ outtext(.w3.,w0:=8'31,w1:=b.us┆
0x1a860…1a87e 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 34 29 3b 20 20 21 20 6e 6f 74 20 63 6f 6e 6e 65 63 ┆erentry,w2:=14); ! not connec┆
0x1a87e…1a884 (0x450,0x352)
0x1a884…1a8a0 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 74 ┆ted ! goto ret┆
0x1a8a0…1a8c0 75 72 6e 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 ┆urn; end; ┆
0x1a8c0…1a8e0 20 20 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 ┆ locid:= w0:= (w1).l_id; ┆
0x1a8e0…1a8fc 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 20 20 ┆ simlocid:=w0; ┆
0x1a8fc…1a902 (0x450,0x353)
0x1a902…1a920 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 31 29 2e 70 ┆ copy(.w3.,w0:=8,w1:=(w1).p┆
0x1a920…1a940 6f 6f 6c 2b 32 2c 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 ┆ool+2,w2:=address(namebuf)); ┆
0x1a940…1a960 20 20 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 ┆ temop:=w0:=9; ! simu┆
0x1a960…1a97a 6c 61 74 65 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆late input ! f┆
0x1a97a…1a980 (0x450,0x354)
0x1a980…1a9a0 69 72 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 73 69 6d 6c 6f 63 69 64 29 3b 0a 20 20 20 ┆irst:=w0:=address(simlocid); ┆
0x1a9a0…1a9c0 20 20 20 20 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 ┆ w0+8; last:┆
0x1a9c0…1a9e0 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 74 65 6d ┆=w0; w1:=address(tem┆
0x1a9e0…1aa00 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 00 00 00 00 00 00 00 00 ┆op); w3:=add ┆
0x1aa00…1aa06 (213,) (0x450,0x355)
0x1aa06…1aa20 72 65 73 73 28 6e 61 6d 65 62 75 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ress(namebuf); ┆
0x1aa20…1aa40 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 67 65 20 21 0a ┆ monitor(16); ! send message ! ┆
0x1aa40…1aa60 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 20 ┆ answ(w1:=1); ┆
0x1aa60…1aa7e 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┆
0x1aa7e…1aa84 (0x450,0x356)
0x1aa84…1aaa0 65 72 20 21 0a 21 74 65 73 74 20 39 30 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆er ! !test 901; ┆
0x1aaa0…1aac0 6f 70 31 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 28 73 6f ┆op1:=w0:=102; ! remove link (so┆
0x1aac0…1aae0 66 74 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 ┆ft) ! w1:=address(op┆
0x1aae0…1aafc 31 29 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 ┆1); monitor(16);┆
0x1aafc…1ab02 (0x450,0x357)
0x1ab02…1ab20 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 20 ┆ ! send message ! ┆
0x1ab20…1ab40 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 6f ┆ answ(w1:=1); monito┆
0x1ab40…1ab60 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 33 31 ┆r(18); ! wait answer ! !test 31┆
0x1ab60…1ab7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 28 77 31 ┆; if w0 or (w1┆
0x1ab7a…1ab80 (0x450,0x358)
0x1ab80…1aba0 29 2e 77 6f 72 64 20 3d 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 6f 75 74 74 ┆).word = 1 then outt┆
0x1aba0…1abc0 65 78 74 28 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 ┆ext(.w3.,w0:=8'30,w1:=b.userentr┆
0x1abc0…1abe0 79 2c 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 ┆y,w2:=12) ! terminal disconnect┆
0x1abe0…1ac00 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6f 75 00 00 00 00 00 00 00 00 ┆ed ! else ou ┆
0x1ac00…1ac06 (214,) (0x450,0x359)
0x1ac06…1ac20 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 ┆ttext(.w3.,w0:=8'31,w1:=b.┆
0x1ac20…1ac40 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 36 29 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 69 ┆userentry,w2:=16); ! disconnecti┆
0x1ac40…1ac60 6f 6e 20 6e 6f 74 20 6f 6b 20 21 0a 72 65 74 75 72 6e 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆on not ok ! return: ┆
0x1ac60…1ac7e 77 30 3a 3d 20 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 20 ┆w0:= savew0; f3:= ┆
0x1ac7e…1ac84 (0x450,0x35a)
0x1ac84…1aca0 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 20 20 ┆savef3; end; ┆
0x1aca0…1acc0 20 20 20 65 6e 64 3b 20 21 20 6f 75 74 20 21 0a 0c 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 ┆ end; ! out ! body┆
0x1acc0…1ace0 20 6f 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 ┆ of control begin ┆
0x1ace0…1acfc 20 20 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 ┆ label error,found; ┆
0x1acfc…1ad02 (0x450,0x35b)
0x1ad02…1ad20 20 20 20 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 73 74 ┆ incode ref st┆
0x1ad20…1ad40 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 3b 0a 20 ┆ring1,string2,string3,string4; ┆
0x1ad40…1ad60 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 3b 0a 20 ┆ word savew0,savew1; ┆
0x1ad60…1ad7a 20 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 ┆ double savef3; ┆
0x1ad7a…1ad80 (0x450,0x35c)
0x1ad80…1ada0 20 20 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 ┆ text(11) emptytext:=┆
0x1ada0…1adc0 22 22 2c 61 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 ┆"",all:="all"; byte ┆
0x1adc0…1ade0 74 65 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 ┆temop,temmode; word ┆
0x1ade0…1ae00 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 00 00 00 00 00 00 00 00 ┆localid; ref ┆
0x1ae00…1ae06 (215,) (0x450,0x35d)
0x1ae06…1ae20 20 74 65 72 6d 70 64 61 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 ┆ termpda; byte┆
0x1ae20…1ae40 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 72 65 66 20 70 6f ┆ bufs,timers; ref po┆
0x1ae40…1ae60 6f 6c 70 64 61 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 72 65 63 66 75 6c 6c 2c ┆olpda; word recfull,┆
0x1ae60…1ae7e 62 79 74 65 73 66 72 65 65 2c 64 75 6d 6d 79 2c 61 6c 6c 63 6f 6d 6d 61 6e 64 3a 3d 30 3b ┆bytesfree,dummy,allcommand:=0;┆
0x1ae7e…1ae84 (0x450,0x35e)
0x1ae84…1aea0 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 73 74 6f 70 6f 70 3a 3d 31 36 ┆ byte stopop:=16┆
0x1aea0…1aec0 2c 73 74 6f 70 6d 6f 64 65 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 32 ┆,stopmode:=1; text(2┆
0x1aec0…1aee0 30 29 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 ┆0) stoptxt:="system closed"; ┆
0x1aee0…1aefc 20 20 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 ┆ byte empop:=16,empm┆
0x1aefc…1af02 (0x450,0x35f)
0x1af02…1af20 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 32 30 29 20 65 ┆ode:=0; text(20) e┆
0x1af20…1af40 6d 70 74 78 74 3a 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 ┆mptxt:="system empty"; ┆
0x1af40…1af60 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 77 30 3b 20 20 ┆ begin savew0:=w0; ┆
0x1af60…1af7a 21 20 63 6f 6e 74 72 6f 6c 20 6f 70 65 72 61 74 69 6f 6e 3a 20 20 31 3d 6b 69 ┆! control operation: 1=ki┆
0x1af7a…1af80 (0x450,0x360)
0x1af80…1afa0 6c 6c 20 20 20 20 20 2d 31 3d 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ll -1=lock ┆
0x1afa0…1afc0 20 20 20 20 20 20 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 ┆ 2=┆
0x1afc0…1afe0 62 72 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 ┆break -2=open ┆
0x1afe0…1b000 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 ┆ ┆
0x1b000…1b006 (216,) (0x450,0x361)
0x1b006…1b020 20 20 20 20 20 20 20 20 33 3d 73 74 6f 70 20 20 20 20 20 2d 33 3d 68 61 6c 74 ┆ 3=stop -3=halt┆
0x1b020…1b040 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b040…1b060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 3d 73 74 61 72 74 20 20 20 20 20 20 20 20 20 ┆ 4=start ┆
0x1b060…1b07e 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b ┆ ! savef3:=f3;┆
0x1b07e…1b084 (0x450,0x362)
0x1b084…1b0a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 31 3a 3d 77 31 3b 20 77 31 ┆ string1:=w1; w1┆
0x1b0a0…1b0c0 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 32 3a 3d 77 31 3b 20 77 31 2b ┆+8; string2:=w1; w1+┆
0x1b0c0…1b0e0 38 3b 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 ┆8; string3:=w1; w1+8┆
0x1b0e0…1b0fc 3b 0a 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 ┆; string4:=w1; !┆
0x1b0fc…1b102 (0x450,0x363)
0x1b102…1b120 74 65 73 74 20 37 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 ┆test 700; w1:=addr┆
0x1b120…1b140 65 73 73 28 62 2e 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 ┆ess(b.operator); w2:┆
0x1b140…1b160 3d 73 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 ┆=string2; compare(.w┆
0x1b160…1b17a 33 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 ┆3.,w0:=8,w1,w2); ┆
0x1b17a…1b180 (0x450,0x364)
0x1b180…1b1a0 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 20 62 65 67 ┆ if w0<>0 then beg┆
0x1b1a0…1b1c0 69 6e 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 65 6d 70 ┆in w1:=address(emp┆
0x1b1c0…1b1e0 74 79 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 ┆tytext); compare(.┆
0x1b1e0…1b200 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w3.,w0:=8,w1,w2); ┆
0x1b200…1b206 (217,) (0x450,0x365)
0x1b206…1b220 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if w0<>0 then ┆
0x1b220…1b240 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 ┆
0x1b240…1b260 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 74 72 69 6e 67 ┆compare(.w3.,w0:=8,w1,w2:=string┆
0x1b260…1b27e 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 ┆3); if w0 <> 0┆
0x1b27e…1b284 (0x450,0x366)
0x1b284…1b2a0 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 ┆ then begin ┆
0x1b2a0…1b2c0 21 74 65 73 74 20 33 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 ┆!test 33; outt┆
0x1b2c0…1b2e0 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 74 72 ┆ext(.w3.,w0:=8'31,w1:=b.userentr┆
0x1b2e0…1b2fc 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 ┆y,w2:=2); ! syntax ! ┆
0x1b2fc…1b302 (0x450,0x367)
0x1b302…1b320 20 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 20 20 20 ┆ goto error; ┆
0x1b320…1b340 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 77 ┆ end; w┆
0x1b340…1b360 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 20 20 6d 6f 6e 69 ┆3:=string2; moni┆
0x1b360…1b37a 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 ┆tor(4); ! get process des┆
0x1b37a…1b380 (0x450,0x368)
0x1b380…1b3a0 63 72 69 70 74 69 6f 6e 20 21 0a 21 74 65 73 74 20 39 39 35 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆cription ! !test 995; ┆
0x1b3a0…1b3c0 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 20 20 20 20 20 20 20 ┆ if w0 = 0 then ┆
0x1b3c0…1b3e0 20 20 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 ┆ begin !test 34; ┆
0x1b3e0…1b400 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:= ┆
0x1b400…1b406 (218,) (0x450,0x369)
0x1b406…1b420 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 ┆8'31,w1:=b.userentry,w2:=1┆
0x1b420…1b440 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 20 20 ┆5); ! process unknown ! ┆
0x1b440…1b460 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 20 20 20 20 20 20 ┆ goto error; ┆
0x1b460…1b47e 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 77 31 ┆ end; w1┆
0x1b47e…1b484 (0x450,0x36a)
0x1b484…1b4a0 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 20 20 20 ┆:=b.lastuser; ┆
0x1b4a0…1b4c0 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 20 20 20 20 ┆ w3:=b.userentry; ┆
0x1b4c0…1b4e0 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 20 3e ┆ while w1-!length(userentry) >┆
0x1b4e0…1b4fc 3d 20 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 ┆= b.firstuser do ┆
0x1b4fc…1b502 (0x450,0x36b)
0x1b502…1b520 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 69 ┆ begin i┆
0x1b520…1b540 66 20 77 30 20 3d 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 ┆f w0 = (w1).internal then ┆
0x1b540…1b560 20 20 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 ┆ if w2:=(w1).primdevi┆
0x1b560…1b57a 20 3d 20 28 77 33 29 2e 70 65 72 69 70 68 65 72 61 6c 20 74 68 65 6e 20 67 6f ┆ = (w3).peripheral then go┆
0x1b57a…1b580 (0x450,0x36c)
0x1b580…1b5a0 74 6f 20 66 6f 75 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 21 ┆to found; end; !┆
0x1b5a0…1b5c0 74 65 73 74 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 ┆test 35; outtext┆
0x1b5c0…1b5e0 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┆
0x1b5e0…1b600 32 3a 3d 31 35 29 3b 20 20 21 20 70 72 6f 63 65 73 73 20 75 6e 6b 6e 6f 00 00 00 00 00 00 00 00 ┆2:=15); ! process unkno ┆
0x1b600…1b606 (219,) (0x450,0x36d)
0x1b606…1b620 77 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆wn ! goto ┆
0x1b620…1b640 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 20 ┆error; end; ┆
0x1b640…1b660 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 77 6e 20 74 65 72 6d ┆ ! controlled by own term┆
0x1b660…1b67e 69 6e 61 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 75 73 65 ┆inal ! w1:=b.use┆
0x1b67e…1b684 (0x450,0x36e)
0x1b684…1b6a0 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆rentry; if w0:┆
0x1b6a0…1b6c0 3d 28 77 31 29 2e 73 74 61 74 65 20 3d 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆=(w1).state = -1 then ┆
0x1b6c0…1b6e0 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 20 20 20 20 20 20 20 ┆ begin found: ┆
0x1b6e0…1b6fc 20 69 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 ┆ if w3:=savew0 <= 0 then ┆
0x1b6fc…1b702 (0x450,0x36f)
0x1b702…1b720 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 33 36 3b 0a 20 ┆ begin !test 36; ┆
0x1b720…1b740 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 77 30 ┆ outtext(.w3.,w0┆
0x1b740…1b760 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 37 29 3b 20 20 ┆:=8'31,w1:=b.userentry,w2:=7); ┆
0x1b760…1b77a 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 ┆! forbidden ! ┆
0x1b77a…1b780 (0x450,0x370)
0x1b780…1b7a0 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 65 73 73 28 62 ┆ link(.w3.,w1,w2:=address(b┆
0x1b7a0…1b7c0 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 20 20 20 20 20 20 ┆.activqfst)); ┆
0x1b7c0…1b7e0 77 31 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 ┆w1:= -1; goto ┆
0x1b7e0…1b800 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆error; e ┆
0x1b800…1b806 (220,) (0x450,0x371)
0x1b806…1b820 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 ┆nd; case w┆
0x1b820…1b840 33 3a 3d 73 61 76 65 77 30 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆3:=savew0 of beg┆
0x1b840…1b860 69 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 20 20 21 20 75 73 ┆in begin ! us┆
0x1b860…1b87e 65 72 20 6b 69 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 ┆er kill ! ┆
0x1b87e…1b884 (0x450,0x372)
0x1b884…1b8a0 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 ┆(w1).intervent:=w0:=3; ┆
0x1b8a0…1b8c0 20 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 ┆ clean(.w3.,w1); ┆
0x1b8c0…1b8e0 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 20 20 ┆ end; ┆
0x1b8e0…1b8fc 20 20 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 ┆ begin ! user break ┆
0x1b8fc…1b902 (0x450,0x373)
0x1b902…1b920 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 28 2e 77 ┆! break(.w┆
0x1b920…1b940 33 2e 2c 77 31 29 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 ┆3.,w1); if w┆
0x1b940…1b960 33 3a 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 ┆3:= b.syscond zeromask 2'010 the┆
0x1b960…1b97a 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 ┆n begi┆
0x1b97a…1b980 (0x450,0x374)
0x1b980…1b9a0 6e 0a 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 77 33 3a 3d 20 ┆n if w3:= ┆
0x1b9a0…1b9c0 28 77 31 29 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 ┆(w1).peripheral>0 then w0:= -1 ┆
0x1b9c0…1b9e0 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 30 3a 3d 20 37 ┆ else w0:= 7┆
0x1b9e0…1ba00 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆; en ┆
0x1ba00…1ba06 (221,) (0x450,0x375)
0x1ba06…1ba20 64 20 65 6c 73 65 20 77 30 3a 3d 20 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆d else w0:= 7; ┆
0x1ba20…1ba40 20 20 20 20 20 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 ┆ (w1).intervent:=w0; ┆
0x1ba40…1ba60 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; ┆
0x1ba60…1ba7e 20 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 ┆ begin ! stop ! ┆
0x1ba7e…1ba84 (0x450,0x376)
0x1ba84…1baa0 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 77 32 3a ┆ link(.w3.,w1,w2:┆
0x1baa0…1bac0 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 20 20 20 ┆=address(b.waitqfst)); ┆
0x1bac0…1bae0 20 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 74 20 3e ┆ if w0:=(w1).messgot >┆
0x1bae0…1bafc 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 ┆ 10 then ┆
0x1bafc…1bb02 (0x450,0x377)
0x1bb02…1bb20 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 28 ┆ begin (┆
0x1bb20…1bb40 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 20 20 20 20 20 ┆w1).buflength:=w2:=0; ┆
0x1bb40…1bb60 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┆
0x1bb60…1bb7a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆2); en┆
0x1bb7a…1bb80 (0x450,0x378)
0x1bb80…1bba0 64 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 6d 65 73 73 ┆d; (w1).mess┆
0x1bba0…1bbc0 73 65 6e 64 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 ┆send:=w0; (w┆
0x1bbc0…1bbe0 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 20 20 20 20 20 ┆1).state:=w0:=0; ┆
0x1bbe0…1bc00 20 20 20 65 6e 64 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 ┆ end; ┆
0x1bc00…1bc06 (222,) (0x450,0x379)
0x1bc06…1bc20 20 20 62 65 67 69 6e 20 20 21 20 73 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 ┆ begin ! start ! ┆
0x1bc20…1bc40 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 2c 77 32 3a 3d 61 64 ┆ link(.w3.,w1,w2:=ad┆
0x1bc40…1bc60 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 20 ┆dress(b.activqfst)); ┆
0x1bc60…1bc7e 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 ┆ if w0:=(w1).messgot >┆
0x1bc7e…1bc84 (0x450,0x37a)
0x1bc84…1bca0 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 ┆ 10 then ┆
0x1bca0…1bcc0 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 28 77 31 ┆ begin (w1┆
0x1bcc0…1bce0 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 20 20 20 20 20 20 20 ┆).buflength:=w2:=0; ┆
0x1bce0…1bcfc 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 ┆ send(.w3.,w0:=1,w1┆
0x1bcfc…1bd02 (0x450,0x37b)
0x1bd02…1bd20 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 20 65 6e 64 3b ┆,w2); end;┆
0x1bd20…1bd40 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 6d 65 73 73 73 65 ┆ (w1).messse┆
0x1bd40…1bd60 6e 64 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 ┆nd:=w0; (w1)┆
0x1bd60…1bd7a 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 ┆.state:=w0:=0; ┆
0x1bd7a…1bd80 (0x450,0x37c)
0x1bd80…1bda0 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 65 6e 64 3b ┆ end; end;┆
0x1bda0…1bdc0 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 20 ┆ w1:=-1; ┆
0x1bdc0…1bde0 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 20 20 ┆ goto error; ┆
0x1bde0…1be00 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 00 00 00 00 00 00 00 00 ┆ end; te ┆
0x1be00…1be06 (223,) (0x450,0x37d)
0x1be06…1be20 6d 6f 70 3a 3d 77 30 3a 3d 31 30 36 3b 20 20 20 21 20 6c 6f 6f 6b 75 70 20 74 ┆mop:=w0:=106; ! lookup t┆
0x1be20…1be40 65 72 6d 69 6e 61 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 6d 6f 64 65 3a ┆erminal ! temmode:┆
0x1be40…1be60 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 70 64 61 3a 3d 77 ┆=w0:=0; termpda:=w┆
0x1be60…1be7e 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 61 ┆0:=(w1:=b.userentry).periphera┆
0x1be7e…1be84 (0x450,0x37e)
0x1be84…1bea0 6c 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 73 ┆l; w1:=address┆
0x1bea0…1bec0 28 74 65 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 65 ┆(temop); w3:=addre┆
0x1bec0…1bee0 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 20 20 6d 6f 6e 69 ┆ss(b.t_mdul); moni┆
0x1bee0…1befc 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 ┆tor(16); ! send message ! ┆
0x1befc…1bf02 (0x450,0x37f)
0x1bf02…1bf20 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 ┆ monitor(18); ! w┆
0x1bf20…1bf40 61 69 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 69 66 20 77 30 ┆ait answer ! if w0┆
0x1bf40…1bf60 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 20 20 20 20 20 20 ┆ or (w1).word <> 1 then ┆
0x1bf60…1bf7a 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 37 3b 0a 20 20 20 20 ┆ begin !test 37; ┆
0x1bf7a…1bf80 (0x450,0x380)
0x1bf80…1bfa0 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 27 33 ┆ outtext(.w3.,w0:=8'3┆
0x1bfa0…1bfc0 31 2c 77 31 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 ┆1,w1:=b.userentry,w2:=14); ! no┆
0x1bfc0…1bfe0 74 20 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 ┆t connected ! go┆
0x1bfe0…1c000 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆to error; ┆
0x1c000…1c006 (224,) (0x450,0x381)
0x1c006…1c020 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 70 6f 6f ┆end; w0:=poo┆
0x1c020…1c040 6c 70 64 61 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 73 74 75 ┆lpda; w1:=b.firstu┆
0x1c040…1c060 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 20 20 20 ┆ser-!length(userentry); ┆
0x1c060…1c07e 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 74 ┆ while w1+!length(userent┆
0x1c07e…1c084 (0x450,0x382)
0x1c084…1c0a0 72 79 29 20 3c 20 62 2e 6c 61 73 74 75 73 65 72 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆ry) < b.lastuser do ┆
0x1c0a0…1c0c0 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 69 66 20 77 ┆ begin if w┆
0x1c0c0…1c0e0 30 20 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 ┆0 = (w1).peripheral then goto fo┆
0x1c0e0…1c0fc 75 6e 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 ┆und; end; !tes┆
0x1c0fc…1c102 (0x450,0x383)
0x1c102…1c120 74 20 33 38 3b 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 ┆t 38; outtext(.w┆
0x1c120…1c140 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 3d ┆3.,w0:=8'31,w1:=b.userentry,w2:=┆
0x1c140…1c160 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 20 ┆15); ! process unknown ! ┆
0x1c160…1c17a 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 ┆ goto error; ┆
0x1c17a…1c180 (0x450,0x384)
0x1c180…1c1a0 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 65 67 69 6e ┆ end else begin┆
0x1c1a0…1c1c0 0a 20 20 20 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 ┆ ! controlled by o┆
0x1c1c0…1c1e0 70 65 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 ┆perator ! if w0:=(┆
0x1c1e0…1c200 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 29 2e 70 65 72 69 70 68 65 00 00 00 00 00 00 00 00 ┆w1:=b.userentry).periphe ┆
0x1c200…1c206 (225,) (0x450,0x385)
0x1c206…1c220 72 61 6c 20 3c 3e 20 62 2e 6d 61 69 6e 63 6f 6e 73 72 65 66 20 74 68 65 6e 0a ┆ral <> b.mainconsref then ┆
0x1c220…1c240 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 33 39 3b 0a 20 20 ┆ begin !test 39; ┆
0x1c240…1c260 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┆
0x1c260…1c27e 27 33 31 2c 77 31 2c 77 32 3a 3d 37 29 3b 20 20 21 20 66 6f 72 62 69 64 64 65 6e 20 21 0a ┆'31,w1,w2:=7); ! forbidden ! ┆
0x1c27e…1c284 (0x450,0x386)
0x1c284…1c2a0 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 3b 0a ┆ goto error; ┆
0x1c2a0…1c2c0 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 20 ┆ end; ┆
0x1c2c0…1c2e0 20 77 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 ┆ w1:=address(emptytext); ┆
0x1c2e0…1c2fc 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┆
0x1c2fc…1c302 (0x450,0x387)
0x1c302…1c320 2c 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 69 ┆,w2:=string4); i┆
0x1c320…1c340 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 62 65 67 ┆f w0 <> 0 then beg┆
0x1c340…1c360 69 6e 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 ┆in !test 40; out┆
0x1c360…1c37a 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 ┆text(.w3.,w0:=8'31,w1:=b.u┆
0x1c37a…1c380 (0x450,0x388)
0x1c380…1c3a0 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 20 20 20 ┆serentry,w2:=2); ! syntax ! ┆
0x1c3a0…1c3c0 20 20 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 20 20 20 20 ┆ goto error; ┆
0x1c3c0…1c3e0 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 69 66 20 77 30 3a ┆ end; if w0:┆
0x1c3e0…1c400 3d 73 61 76 65 77 30 20 3c 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆=savew0 <= 0 then ┆
0x1c400…1c406 (226,) (0x450,0x389)
0x1c406…1c420 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 ┆
0x1c420…1c440 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 72 65 ┆ compare(.w3.,w0:=8,w1:=addre┆
0x1c440…1c460 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 3b 0a 20 20 20 20 ┆ss(emptytext),w2:=string3); ┆
0x1c460…1c47e 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 ┆ if w0 <> 0 then ┆
0x1c47e…1c484 (0x450,0x38a)
0x1c484…1c4a0 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 34 31 ┆ begin !test 41┆
0x1c4a0…1c4c0 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 74 28 2e 77 33 2e ┆; outtext(.w3.┆
0x1c4c0…1c4e0 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 32 29 ┆,w0:=8'31,w1:=b.userentry,w2:=2)┆
0x1c4e0…1c4fc 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 ┆; ! syntax ! ┆
0x1c4fc…1c502 (0x450,0x38b)
0x1c502…1c520 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 20 ┆ goto error; ┆
0x1c520…1c540 20 20 65 6e 64 3b 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 ┆ end; if w0:=sa┆
0x1c540…1c560 76 65 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 ┆vew0 = -1 then ! lock ! ┆
0x1c560…1c57a 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 ┆
0x1c57a…1c580 (0x450,0x38c)
0x1c580…1c5a0 20 20 20 20 20 20 20 62 2e 73 79 73 73 74 61 74 65 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 ┆ b.sysstate:=w0:=1; ┆
0x1c5a0…1c5c0 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 3b 0a 20 20 20 20 ┆ w1:=b.lastuser; ┆
0x1c5c0…1c5e0 20 20 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 ┆ w0:=0; ┆
0x1c5e0…1c600 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 00 00 00 00 00 00 00 00 ┆ while w1-!length( ┆
0x1c600…1c606 (227,) (0x450,0x38d)
0x1c606…1c620 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 ┆userentry) >= b.firstuser ┆
0x1c620…1c640 64 6f 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 20 20 20 20 20 ┆do begin ┆
0x1c640…1c660 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 72 ┆ if w3:=(w1).inter┆
0x1c660…1c67e 6e 61 6c 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nal > 0 then ┆
0x1c67e…1c684 (0x450,0x38e)
0x1c684…1c6a0 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 ┆ if w3:=(w3).word = 0 then┆
0x1c6a0…1c6c0 20 77 30 2b 31 3b 0a 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 ┆ w0+1; end; ┆
0x1c6c0…1c6e0 20 20 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 ┆ if w0 = 0 then o┆
0x1c6e0…1c6fc 70 6d 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 ┆pmess(.w3.,w1:=address(empop┆
0x1c6fc…1c702 (0x450,0x38f)
0x1c702…1c720 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 20 20 20 ┆),w2:=b.ownproc); ┆
0x1c720…1c740 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 66 20 ┆ end else if ┆
0x1c740…1c760 77 30 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 ┆w0 = -2 then ! open ! ┆
0x1c760…1c77a 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 ┆ begin ┆
0x1c77a…1c780 (0x450,0x390)
0x1c780…1c7a0 20 20 20 20 20 62 2e 73 79 73 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆ b.sysstate:=w0:=0; ┆
0x1c7a0…1c7c0 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 20 20 20 20 20 20 20 ┆ end else ┆
0x1c7c0…1c7e0 20 69 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 ┆ if w0 = -3 then ! halt ! ┆
0x1c7e0…1c800 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x1c800…1c806 (228,) (0x450,0x391)
0x1c806…1c820 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 ┆ opmess(.w3.,w1:┆
0x1c820…1c840 3d 61 64 64 72 65 73 73 28 73 74 6f 70 6f 70 29 2c 77 32 3a 3d 62 2e 6f 77 6e 70 72 6f 63 29 3b ┆=address(stopop),w2:=b.ownproc);┆
0x1c840…1c860 0a 20 20 20 20 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 ┆ end else ┆
0x1c860…1c87e 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆ ; w1┆
0x1c87e…1c884 (0x450,0x392)
0x1c884…1c8a0 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 ┆:=-1; goto e┆
0x1c8a0…1c8c0 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 20 20 ┆rror; end; ┆
0x1c8c0…1c8e0 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 2c 77 32 3a ┆ compare(.w3.,w0:=8,w1,w2:┆
0x1c8e0…1c8fc 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 69 66 20 ┆=string3); if ┆
0x1c8fc…1c902 (0x450,0x393)
0x1c902…1c920 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 62 65 67 69 ┆w0 = 0 then begi┆
0x1c920…1c940 6e 0a 21 74 65 73 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 ┆n !test 42; outt┆
0x1c940…1c960 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 74 72 ┆ext(.w3.,w0:=8'31,w1:=b.userentr┆
0x1c960…1c97a 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 ┆y,w2:=2); ! syntax ! ┆
0x1c97a…1c980 (0x450,0x394)
0x1c980…1c9a0 20 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 20 20 20 20 20 ┆ goto error; ┆
0x1c9a0…1c9c0 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 31 3a 3d 62 2e 66 ┆ end; w1:=b.f┆
0x1c9c0…1c9e0 69 72 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 ┆irstuser-!length(userentry); ┆
0x1c9e0…1ca00 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2b 21 6c 65 6e 00 00 00 00 00 00 00 00 ┆ while w1+!len ┆
0x1ca00…1ca06 (229,) (0x450,0x395)
0x1ca06…1ca20 67 74 68 28 75 73 65 72 65 6e 74 72 79 29 3c 62 2e 6c 61 73 74 75 73 65 72 20 ┆gth(userentry)<b.lastuser ┆
0x1ca20…1ca40 64 6f 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 37 31 30 ┆do begin !test 710┆
0x1ca40…1ca60 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 31 20 3a 3d 77 31 3b 0a 20 ┆; savew1 :=w1; ┆
0x1ca60…1ca7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e ┆ w1:=(w1).intern┆
0x1ca7e…1ca84 (0x450,0x396)
0x1ca84…1caa0 61 6c 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 ┆al+2; compar┆
0x1caa0…1cac0 65 28 2e 77 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 ┆e(.w3.,w0:=8,w1,w2:=string3); ┆
0x1cac0…1cae0 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 68 65 6e 0a 20 20 ┆ if w0 <> 0 then ┆
0x1cae0…1cafc 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 ┆
0x1cafc…1cb02 (0x450,0x397)
0x1cb02…1cb20 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 ┆ compare(.w3.,w0:=8,w┆
0x1cb20…1cb40 31 3a 3d 61 64 64 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 ┆1:=address(all),w2); ┆
0x1cb40…1cb60 20 20 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 ┆ if w0 = 0 then allcommand┆
0x1cb60…1cb7a 3a 3d 77 33 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆:=w3:=1; e┆
0x1cb7a…1cb80 (0x450,0x398)
0x1cb80…1cba0 6e 64 3b 0a 20 20 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 ┆nd; w1:=savew1; ┆
0x1cba0…1cbc0 20 20 20 20 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 ┆ if w0=0 then ┆
0x1cbc0…1cbe0 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 20 ┆ begin ┆
0x1cbe0…1cc00 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 00 00 00 00 00 00 00 00 ┆ if w3:=(w1).interna ┆
0x1cc00…1cc06 (230,) (0x450,0x399)
0x1cc06…1cc20 6c 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆l > 0 then ┆
0x1cc20…1cc40 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 ┆ if w0:=(w3).word = 0 then ┆
0x1cc40…1cc60 20 20 20 20 20 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 6f ┆ case w3:=savew0 o┆
0x1cc60…1cc7e 66 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 20 20 20 20 ┆f begin ┆
0x1cc7e…1cc84 (0x450,0x39a)
0x1cc84…1cca0 20 20 20 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 ┆ begin ! ope┆
0x1cca0…1ccc0 72 61 74 6f 72 20 6b 69 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rator kill ! ┆
0x1ccc0…1cce0 20 20 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 ┆ (w1).intervent:=w0:=4; ┆
0x1cce0…1ccfc 20 20 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 ┆ clean(.w3.,w┆
0x1ccfc…1cd02 (0x450,0x39b)
0x1cd02…1cd20 31 29 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 ┆1); end; ┆
0x1cd20…1cd40 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 20 21 20 6f 70 65 72 ┆ begin ! oper┆
0x1cd40…1cd60 61 74 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 ┆ator break ! ┆
0x1cd60…1cd7a 20 20 20 62 72 65 61 6b 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 ┆ break(.w3.,w1); ┆
0x1cd7a…1cd80 (0x450,0x39c)
0x1cd80…1cda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 20 62 2e 73 79 73 63 6f 6e 64 ┆ if w3:= b.syscond┆
0x1cda0…1cdc0 20 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 20 20 20 ┆ zeromask 2'010 then ┆
0x1cdc0…1cde0 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 ┆
0x1cde0…1ce00 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 20 28 77 31 29 2e 70 65 00 00 00 00 00 00 00 00 ┆ if w3:= (w1).pe ┆
0x1ce00…1ce06 (231,) (0x450,0x39d)
0x1ce06…1ce20 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 ┆ripheral>0 then w0:= -1 ┆
0x1ce20…1ce40 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 30 3a 3d 20 ┆ else w0:= ┆
0x1ce40…1ce60 38 3b 0a 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 20 65 6c 73 ┆8; end els┆
0x1ce60…1ce7e 65 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 20 20 20 20 ┆e w0:= 8; ┆
0x1ce7e…1ce84 (0x450,0x39e)
0x1ce84…1cea0 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; ┆
0x1cea0…1cec0 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 20 ┆ end; ┆
0x1cec0…1cee0 20 20 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 ┆ begin ! stop ! ┆
0x1cee0…1cefc 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 2c 77 32 ┆ link(.w3.,w1,w2┆
0x1cefc…1cf02 (0x450,0x39f)
0x1cf02…1cf20 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 ┆:=address(b.waitqfst)); ┆
0x1cf20…1cf40 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 2e 6d 65 73 73 ┆ if w0:=(w1).mess┆
0x1cf40…1cf60 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 20 20 20 20 20 ┆got > 10 then ┆
0x1cf60…1cf7a 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 ┆
0x1cf7a…1cf80 (0x450,0x3a0)
0x1cf80…1cfa0 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 3b 0a 20 ┆ (w1).buflength:=w2:=0; ┆
0x1cfa0…1cfc0 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 28 2e 77 33 2e ┆ send(.w3.┆
0x1cfc0…1cfe0 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 20 20 20 20 20 ┆,w0:=1,w1,w2); ┆
0x1cfe0…1d000 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x1d000…1d006 (232,) (0x450,0x3a1)
0x1d006…1d020 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 ┆ (w1).messsend:=w0;┆
0x1d020…1d040 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 73 74 61 74 ┆ (w1).stat┆
0x1d040…1d060 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 20 20 65 6e ┆e:=w0:=0; en┆
0x1d060…1d07e 64 3b 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 20 20 ┆d; begin ┆
0x1d07e…1d084 (0x450,0x3a2)
0x1d084…1d0a0 21 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 20 ┆! start ! ┆
0x1d0a0…1d0c0 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2b 62 2e 74 69 6d 65 72 6c 6f 73 ┆ if w0:=(w1).class+b.timerlos┆
0x1d0c0…1d0e0 73 20 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 ┆s < b.batchclass then ┆
0x1d0e0…1d0fc 20 20 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 ┆ begin ! link to┆
0x1d0fc…1d102 (0x450,0x3a3)
0x1d102…1d120 20 66 72 6f 6e 74 20 6f 66 20 62 61 74 63 68 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 ┆ front of batch queue ! ┆
0x1d120…1d140 20 20 20 20 20 20 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 ┆ if w1 <> b.bat┆
0x1d140…1d160 63 68 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 ┆chqfst then link(.w3.,w1,w2:=add┆
0x1d160…1d17a 72 65 73 73 28 62 2e 62 61 74 63 68 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 ┆ress(b.batchqfst)); ┆
0x1d17a…1d180 (0x450,0x3a4)
0x1d180…1d1a0 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 6c 69 6e 6b 28 2e 77 ┆ end else link(.w┆
0x1d1a0…1d1c0 33 2e 2c 77 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 ┆3.,w1,w2:=address(b.activqfst));┆
0x1d1c0…1d1e0 0a 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 77 30 3a 3d 28 77 ┆ if w0:=(w┆
0x1d1e0…1d200 31 29 2e 6d 65 73 73 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆1).messgot > 10 then ┆
0x1d200…1d206 (233,) (0x450,0x3a5)
0x1d206…1d220 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 ┆
0x1d220…1d240 20 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 66 6c ┆ (w1).bufl┆
0x1d240…1d260 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 20 20 20 20 ┆ength:=w2:=0; ┆
0x1d260…1d27e 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); ┆
0x1d27e…1d284 (0x450,0x3a6)
0x1d284…1d2a0 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 ┆ end; ┆
0x1d2a0…1d2c0 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 6d 65 73 73 73 65 ┆ (w1).messse┆
0x1d2c0…1d2e0 6e 64 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 ┆nd:=w0; (w┆
0x1d2e0…1d2fc 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 20 ┆1).state:=w0:=0; ┆
0x1d2fc…1d302 (0x450,0x3a7)
0x1d302…1d320 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; ┆
0x1d320…1d340 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 77 31 3a 3d 2d 31 3b ┆ end; w1:=-1;┆
0x1d340…1d360 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 61 6c 6c 63 6f 6d ┆ if w0:=allcom┆
0x1d360…1d37a 6d 61 6e 64 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 72 6f 72 3b ┆mand <> 1 then goto error;┆
0x1d37a…1d380 (0x450,0x3a8)
0x1d380…1d3a0 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 65 77 31 3b 0a 20 ┆ w1:=savew1; ┆
0x1d3a0…1d3c0 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; ┆
0x1d3c0…1d3e0 20 20 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 ┆ end; !test 43; i┆
0x1d3e0…1d400 66 20 77 30 3a 3d 61 6c 6c 63 6f 6d 6d 61 6e 64 20 3c 3e 20 31 0a 20 20 00 00 00 00 00 00 00 00 ┆f w0:=allcommand <> 1 ┆
0x1d400…1d406 (234,) (0x450,0x3a9)
0x1d406…1d420 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 2e ┆ then outtext(.┆
0x1d420…1d440 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:┆
0x1d440…1d460 3d 31 35 29 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 ┆=15) ! process unknown ! ┆
0x1d460…1d47e 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ else w1:=-1; ┆
0x1d47e…1d484 (0x450,0x3aa)
0x1d484…1d4a0 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 ┆ goto error; ┆
0x1d4a0…1d4c0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 2d 31 3b 0a 65 72 72 6f 72 3a ┆ end; w1:=-1; error:┆
0x1d4c0…1d4e0 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 20 20 20 20 ┆ w0:=savew0; ┆
0x1d4e0…1d4fc 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┆
0x1d4fc…1d502 (0x450,0x3ab)
0x1d502…1d520 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 63 6f 6e 74 72 6f 6c 20 21 0a ┆nd; end; ! control ! ┆
0x1d520…1d540 0c 0a 0a 0a 0a 20 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 ┆ body of empty ┆
0x1d540…1d560 20 20 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 ┆ begin incode ┆
0x1d560…1d57a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 ┆ word savew0; ┆
0x1d57a…1d580 (0x450,0x3ac)
0x1d580…1d5a0 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 62 65 ┆ double savef3; be┆
0x1d5a0…1d5c0 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 0a 20 20 20 20 ┆gin savew0:=w0; ┆
0x1d5c0…1d5e0 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 20 ┆ savef3:=f3; ┆
0x1d5e0…1d600 77 31 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆w1:=-1; w0:= ┆
0x1d600…1d606 (235,) (0x450,0x3ad)
0x1d606…1d620 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 ┆savew0; f3:=sa┆
0x1d620…1d640 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┆
0x1d640…1d660 3b 20 20 21 20 65 6d 70 74 79 20 21 0a 0c 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 ┆; ! empty ! body of┆
0x1d660…1d67e 20 63 61 6c 6c 64 65 76 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆ calldev begin ┆
0x1d67e…1d684 (0x450,0x3ae)
0x1d684…1d6a0 20 20 20 6c 61 62 65 6c 20 73 79 6e 74 61 78 65 72 72 6f 72 2c 65 78 69 74 3b 0a 20 ┆ label syntaxerror,exit; ┆
0x1d6a0…1d6c0 20 20 20 20 20 20 20 20 20 72 65 63 6f 72 64 20 63 61 6c 6c 70 61 72 61 6d 20 28 77 6f 72 64 20 ┆ record callparam (word ┆
0x1d6c0…1d6e0 70 6b 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 ┆pkind,pvalue); incode ┆
0x1d6e0…1d6fc 20 20 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 ┆ word savew0,work┆
0x1d6fc…1d702 (0x450,0x3af)
0x1d702…1d720 3b 0a 20 20 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 ┆; double savef3; ┆
0x1d720…1d740 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 69 6e 67 32 2c 73 ┆ ref string1,string2,s┆
0x1d740…1d760 74 72 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 ┆tring3,string4,string5,string6; ┆
0x1d760…1d77a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 65 6d 70 74 79 ┆ text(11) empty┆
0x1d77a…1d780 (0x450,0x3b0)
0x1d780…1d7a0 74 65 78 74 3a 3d 22 22 2c 73 74 61 72 74 3a 3d 22 73 74 61 72 74 22 2c 70 72 6f 63 3b 0a 20 20 ┆text:="",start:="start",proc; ┆
0x1d7a0…1d7c0 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 77 30 ┆ begin savew0┆
0x1d7c0…1d7e0 3a 3d 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 ┆:=w0; savef3:=f3; ┆
0x1d7e0…1d800 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 31 3a 3d 77 31 3b 20 77 00 00 00 00 00 00 00 00 ┆ string1:=w1; w ┆
0x1d800…1d806 (236,) (0x450,0x3b1)
0x1d806…1d820 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 32 3a 3d ┆1+8; string2:=┆
0x1d820…1d840 77 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 33 3a 3d 77 ┆w1; w1+8; string3:=w┆
0x1d840…1d860 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 34 3a 3d 77 31 ┆1; w1+8; string4:=w1┆
0x1d860…1d87e 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 35 3a 3d 77 ┆; w1+8; string5:=w┆
0x1d87e…1d884 (0x450,0x3b2)
0x1d884…1d8a0 31 3b 20 77 31 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 36 ┆1; w1+8; string6┆
0x1d8a0…1d8c0 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 74 72 69 6e 67 32 ┆:=w1; if w0:=string2┆
0x1d8c0…1d8e0 2e 70 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 ┆.pkind <> -1 then goto syntaxerr┆
0x1d8e0…1d8fc 6f 72 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 ┆or; compare(.w3.┆
0x1d8fc…1d902 (0x450,0x3b3)
0x1d902…1d920 2c 77 30 3a 3d 38 2c 77 31 3a 3d 73 74 72 69 6e 67 33 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆,w0:=8,w1:=string3,w2:=address┆
0x1d920…1d940 28 65 6d 70 74 79 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 ┆(emptytext)); if w0 ┆
0x1d940…1d960 3d 20 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 ┆= 0 then goto syntaxerror; ┆
0x1d960…1d97a 20 20 20 20 20 20 20 77 31 3a 3d 73 74 72 69 6e 67 32 2e 70 76 61 6c 75 65 3b ┆ w1:=string2.pvalue;┆
0x1d97a…1d980 (0x450,0x3b4)
0x1d980…1d9a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 73 74 72 69 6e 67 33 3b 0a 20 20 20 20 20 20 ┆ w3:=string3; ┆
0x1d9a0…1d9c0 20 20 20 20 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 ┆ monitor(54); ! create per┆
0x1d9c0…1d9e0 69 70 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 ┆ipheral process ! !test 111; ┆
0x1d9e0…1da00 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆ if w0 <> 0 then ┆
0x1da00…1da06 (237,) (0x450,0x3b5)
0x1da06…1da20 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 33 20 74 68 ┆ if w0 <> 3 th┆
0x1da20…1da40 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 34 34 3b 0a 20 ┆en begin !test 44; ┆
0x1da40…1da60 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 27 ┆ outtext(.w3.,w0:=8'┆
0x1da60…1da7e 33 31 2c 77 31 3a 3d 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 37 29 3b 20 20 21 ┆31,w1:=b.userentry,w2:=17); !┆
0x1da7e…1da84 (0x450,0x3b6)
0x1da84…1daa0 20 63 61 6c 6c 20 6e 6f 74 20 61 63 63 65 70 74 65 64 20 21 0a 20 20 20 20 20 20 20 ┆ call not accepted ! ┆
0x1daa0…1dac0 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 20 65 6e ┆ goto exit; en┆
0x1dac0…1dae0 64 3b 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 ┆d; copy(.w3.,w0:=8,w┆
0x1dae0…1dafc 31 3a 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 ┆1:=address(emptytext),w2:=st┆
0x1dafc…1db02 (0x450,0x3b7)
0x1db02…1db20 72 69 6e 67 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 28 2e 77 ┆ring3); include(.w┆
0x1db20…1db40 33 2e 2c 77 31 3a 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 ┆3.,w1:=string1); if ┆
0x1db40…1db60 77 31 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 ┆w1 <> -1 then goto exit; ┆
0x1db60…1db7a 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┆
0x1db7a…1db80 (0x450,0x3b8)
0x1db80…1dba0 3a 3d 73 74 72 69 6e 67 34 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 65 6d 70 74 79 74 65 78 74 29 ┆:=string4,w2:=address(emptytext)┆
0x1dba0…1dbc0 29 3b 0a 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 0a 20 20 ┆); if w0 = 0 then ┆
0x1dbc0…1dbe0 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 77 31 ┆ begin w1┆
0x1dbe0…1dc00 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 00 00 00 00 00 00 00 00 ┆:=-1; goto ┆
0x1dc00…1dc06 (238,) (0x450,0x3b9)
0x1dc06…1dc20 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ exit; end; ┆
0x1dc20…1dc40 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 2c ┆ compare(.w3.,w0:=8,w1,┆
0x1dc40…1dc60 77 32 3a 3d 61 64 64 72 65 73 73 28 73 74 61 72 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w2:=address(start)); ┆
0x1dc60…1dc7e 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 62 65 ┆ if w0 = 0 then be┆
0x1dc7e…1dc84 (0x450,0x3ba)
0x1dc84…1dca0 67 69 6e 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 ┆gin copy(.w3.,┆
0x1dca0…1dcc0 77 30 3a 3d 38 2c 77 31 3a 3d 73 74 72 69 6e 67 34 2c 77 32 3a 3d 73 74 72 69 6e 67 31 29 3b 0a ┆w0:=8,w1:=string4,w2:=string1); ┆
0x1dcc0…1dce0 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 2c 77 31 3a 3d 73 ┆ copy(.w3.,w0,w1:=s┆
0x1dce0…1dcfc 74 72 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 ┆tring5,w2:=string2); ┆
0x1dcfc…1dd02 (0x450,0x3bb)
0x1dd02…1dd20 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 69 6e 67 ┆ copy(.w3.,w0,w1:=string┆
0x1dd20…1dd40 36 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 63 6f ┆6,w2:=string3); co┆
0x1dd40…1dd60 70 79 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 ┆py(.w3.,w0,w1:=address(emptytext┆
0x1dd60…1dd7a 29 2c 77 32 3a 3d 73 74 72 69 6e 67 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆),w2:=string4); ┆
0x1dd7a…1dd80 (0x450,0x3bc)
0x1dd80…1dda0 20 20 20 20 63 6f 6e 74 72 6f 6c 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 73 74 72 69 6e ┆ control(.w3.,w0:=4,w1:=strin┆
0x1dda0…1ddc0 67 31 29 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 ┆g1); goto exit; ┆
0x1ddc0…1dde0 20 20 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 ┆ end; syntaxerror: !tes┆
0x1dde0…1de00 74 20 34 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 00 00 00 00 00 00 00 00 ┆t 45; outtex ┆
0x1de00…1de06 (239,) (0x450,0x3bd)
0x1de06…1de20 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 ┆t(.w3.,w0:=8'31,w1:=b.user┆
0x1de20…1de40 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 65 78 69 74 3a 0a ┆entry,w2:=2); ! syntax ! exit: ┆
0x1de40…1de60 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 20 20 20 20 20 ┆ w0:=savew0; ┆
0x1de60…1de7e 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 6e 64 3b ┆ f3:=savef3; end;┆
0x1de7e…1de84 (0x450,0x3be)
0x1de84…1dea0 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 21 20 63 61 6c 6c 64 65 76 20 21 ┆ end; ! calldev !┆
0x1dea0…1dec0 0a 0c 0a 0a 0a 20 20 20 20 20 20 20 20 62 6f 64 79 20 6f 66 20 69 6e 63 6c 75 64 65 0a 20 20 20 ┆ body of include ┆
0x1dec0…1dee0 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 65 78 69 74 3b ┆ begin label exit;┆
0x1dee0…1defc 0a 20 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 ┆ record param(word┆
0x1defc…1df02 (0x450,0x3bf)
0x1df02…1df20 20 70 6b 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 ┆ pkind,pvalue); inco┆
0x1df20…1df40 64 65 0a 20 20 20 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 ┆de text(11) proc,emp┆
0x1df40…1df60 74 79 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 ┆tytext:=""; double s┆
0x1df60…1df7a 61 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 73 74 72 ┆avef3; ref str┆
0x1df7a…1df80 (0x450,0x3c0)
0x1df80…1dfa0 69 6e 67 31 2c 73 74 72 69 6e 67 32 2c 73 74 72 69 6e 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ing1,string2,string3; ┆
0x1dfa0…1dfc0 20 20 77 6f 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 ┆ word work,savew0; be┆
0x1dfc0…1dfe0 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 0a 20 20 20 20 ┆gin savew0:=w0; ┆
0x1dfe0…1e000 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ savef3:=f3; ┆
0x1e000…1e006 (240,) (0x450,0x3c1)
0x1e006…1e020 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 ┆ string1:=w1; w1+8;┆
0x1e020…1e040 0a 20 20 20 20 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 0a ┆ string2:=w1; w1+8; ┆
0x1e040…1e060 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 33 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 ┆ string3:=w1; ┆
0x1e060…1e07e 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 ┆ compare(.w3.,w0:=8,w1,w2:┆
0x1e07e…1e084 (0x450,0x3c2)
0x1e084…1e0a0 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 20 ┆=address(emptytext)); ┆
0x1e0a0…1e0c0 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 20 ┆ if w0 <> 0 then ┆
0x1e0c0…1e0e0 20 20 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 ┆ begin !test 46; ┆
0x1e0e0…1e0fc 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 ┆outtext(.w3.,w0:=8'31,w1:=b.┆
0x1e0fc…1e102 (0x450,0x3c3)
0x1e102…1e120 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 ┆userentry,w2:=2); ! syntax ! ┆
0x1e120…1e140 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 20 20 20 ┆ goto exit; ┆
0x1e140…1e160 20 20 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 ┆ end; w1:=string┆
0x1e160…1e17a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 ┆2; if w0:=(w1)┆
0x1e17a…1e180 (0x450,0x3c4)
0x1e180…1e1a0 2e 70 6b 69 6e 64 20 3c 3e 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆.pkind <> -1 then be┆
0x1e1a0…1e1c0 67 69 6e 0a 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 ┆gin !test 47; outt┆
0x1e1c0…1e1e0 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 74 72 ┆ext(.w3.,w0:=8'31,w1:=b.userentr┆
0x1e1e0…1e200 79 2c 77 32 3a 3d 32 29 3b 20 20 21 20 73 79 6e 74 61 78 20 21 0a 20 20 00 00 00 00 00 00 00 00 ┆y,w2:=2); ! syntax ! ┆
0x1e200…1e206 (241,) (0x450,0x3c5)
0x1e206…1e220 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 ┆ goto exit; ┆
0x1e220…1e240 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e ┆ end; w3:=b.┆
0x1e240…1e260 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 ┆lastuser; w2:=addres┆
0x1e260…1e27e 73 28 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 33 2d ┆s(proc); while w3-┆
0x1e27e…1e284 (0x450,0x3c6)
0x1e284…1e2a0 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 69 72 73 ┆!length(userentry) >= b.firs┆
0x1e2a0…1e2c0 74 75 73 65 72 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 ┆tuser do begin ┆
0x1e2c0…1e2e0 20 20 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 ┆ if w1:=(w3).internal > ┆
0x1e2e0…1e2fc 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 0a 20 ┆0 then begin ┆
0x1e2fc…1e302 (0x450,0x3c7)
0x1e302…1e320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 6b 3a 3d 77 33 3b 0a 20 20 20 20 20 ┆ work:=w3; ┆
0x1e320…1e340 20 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 64 20 3d 20 30 20 ┆ if w0:=(w1).word = 0 ┆
0x1e340…1e360 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 20 20 20 20 ┆then begin ┆
0x1e360…1e37a 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 ┆ copy(.w3.,w0:┆
0x1e37a…1e380 (0x450,0x3c8)
0x1e380…1e3a0 3d 38 2c 77 31 2b 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆=8,w1+2,w2); w┆
0x1e3a0…1e3c0 33 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 3a 3d 73 74 72 ┆3:=w2; w1:=str┆
0x1e3c0…1e3e0 69 6e 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 ┆ing2.pvalue; m┆
0x1e3e0…1e400 6f 6e 69 74 6f 72 28 31 32 29 3b 20 20 21 20 69 6e 63 6c 75 64 65 20 75 00 00 00 00 00 00 00 00 ┆onitor(12); ! include u ┆
0x1e400…1e406 (242,) (0x450,0x3c9)
0x1e406…1e420 73 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ser ! if┆
0x1e420…1e440 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 20 20 20 20 ┆ w0 <> 0 then ┆
0x1e440…1e460 62 65 67 69 6e 0a 21 74 65 73 74 20 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆begin !test 48; ┆
0x1e460…1e47e 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:=┆
0x1e47e…1e484 (0x450,0x3ca)
0x1e484…1e4a0 62 2e 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 31 38 29 3b 20 20 21 20 69 6e 63 6c ┆b.userentry,w2:=18); ! incl┆
0x1e4a0…1e4c0 75 64 65 20 6e 6f 74 20 61 63 63 65 70 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ude not accepted ! ┆
0x1e4c0…1e4e0 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 20 20 20 ┆ goto exit; ┆
0x1e4e0…1e4fc 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 65 6e 64 ┆ end; end┆
0x1e4fc…1e502 (0x450,0x3cb)
0x1e502…1e520 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 6f 72 6b 3b 0a 20 20 ┆; w3:=work; ┆
0x1e520…1e540 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 65 6e 64 ┆ end; end┆
0x1e540…1e560 3b 0a 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 ┆; w1:=-1; exit: ┆
0x1e560…1e57a 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 ┆ w0:=savew0; ┆
0x1e57a…1e580 (0x450,0x3cc)
0x1e580…1e5a0 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 6e 64 3b ┆ f3:=savef3; end;┆
0x1e5a0…1e5c0 0a 20 20 20 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 ┆ end; ! include ! ┆
0x1e5c0…1e5e0 65 6e 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 ┆end; ! syscommand ! commen┆
0x1e5e0…1e600 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 00 00 00 00 00 00 00 00 ┆t bre ┆
0x1e600…1e606 (243,) (0x450,0x3cd)
0x1e606…1e620 61 6b 0a 0a 77 68 65 6e 20 61 20 70 72 6f 63 65 73 73 20 69 73 20 74 6f 6f 20 ┆ak when a process is too ┆
0x1e620…1e640 63 70 75 20 62 6f 75 6e 64 20 6f 72 20 77 68 65 6e 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 6f ┆cpu bound or when the terminal o┆
0x1e640…1e660 70 65 72 61 74 6f 72 20 61 73 6b 73 20 66 6f 72 0a 69 74 2c 20 74 68 65 20 73 79 73 74 65 6d 20 ┆perator asks for it, the system ┆
0x1e660…1e67e 77 69 6c 6c 20 70 72 6f 76 6f 6b 65 20 61 20 62 72 65 61 6b 20 6f 66 20 74 68 65 20 70 72 ┆will provoke a break of the pr┆
0x1e67e…1e684 (0x450,0x3ce)
0x1e684…1e6a0 6f 63 65 73 73 20 28 62 72 65 61 6b 20 38 20 3d 20 70 61 72 65 6e 74 20 62 72 65 61 ┆ocess (break 8 = parent brea┆
0x1e6a0…1e6c0 6b 29 0a 74 68 69 73 20 69 73 20 64 6f 6e 65 20 62 79 20 6d 6f 64 69 66 79 69 6e 67 20 74 68 65 ┆k) this is done by modifying the┆
0x1e6c0…1e6e0 20 70 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 ┆ process using the dumped regist┆
0x1e6e0…1e6fc 65 72 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 ┆ers in the process descripti┆
0x1e6fc…1e702 (0x450,0x3cf)
0x1e702…1e720 6f 6e 20 61 6e 64 20 74 68 65 6e 20 72 65 73 74 61 72 74 20 74 68 65 20 70 72 6f 63 65 73 ┆on and then restart the proces┆
0x1e720…1e740 73 20 69 6e 20 69 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 ┆s in its break routine ; bo┆
0x1e740…1e760 64 79 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 ┆dy of break begin labe┆
0x1e760…1e77a 6c 20 65 78 69 74 3b 0a 20 20 20 20 20 20 72 65 63 6f 72 64 20 64 75 6d 70 61 ┆l exit; record dumpa┆
0x1e77a…1e780 (0x450,0x3d0)
0x1e780…1e7a0 72 65 61 28 77 6f 72 64 20 72 30 2c 72 31 2c 72 32 2c 72 33 2c 65 78 65 70 2c 69 6e 73 74 72 2c ┆rea(word r0,r1,r2,r3,exep,instr,┆
0x1e7a0…1e7c0 63 61 75 73 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 ┆cause); incode dou┆
0x1e7c0…1e7e0 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 77 6f 72 64 20 ┆ble savef1,savef3; word ┆
0x1e7e0…1e800 62 75 66 66 65 72 72 65 6c 2c 73 61 76 65 64 69 63 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆bufferrel,savedic; ┆
0x1e800…1e806 (244,) (0x450,0x3d1)
0x1e806…1e820 20 20 20 74 65 78 74 28 31 34 29 20 63 68 69 6c 64 6e 61 6d 65 2c 74 65 72 6d ┆ text(14) childname,term┆
0x1e820…1e840 69 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 69 6f 6f 70 2c 69 6f 6d 6f 64 65 3a 3d ┆inal; byte ioop,iomode:=┆
0x1e840…1e860 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 69 72 73 74 2c 6c 61 73 74 2c 73 65 67 6d 6e ┆0; word first,last,segmn┆
0x1e860…1e87e 74 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 3a ┆t; begin savef1:┆
0x1e87e…1e884 (0x450,0x3d2)
0x1e884…1e8a0 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 ┆=f1; savef3:=f3; ┆
0x1e8a0…1e8c0 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 20 3d 20 30 20 74 ┆ if w0:=(w1).intervent = 0 t┆
0x1e8c0…1e8e0 68 65 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 ┆hen begin if ┆
0x1e8e0…1e8fc 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 ┆w0:=(w1).messgot > 10 then ┆
0x1e8fc…1e902 (0x450,0x3d3)
0x1e902…1e920 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 31 ┆ begin (w1┆
0x1e920…1e940 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 20 20 20 20 20 20 20 ┆).buflength:=w2:=0; ┆
0x1e940…1e960 73 65 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 ┆send(.w3.,w0:=1,w1,w2); ┆
0x1e960…1e97a 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e ┆ end; if w0:=b.┆
0x1e97a…1e980 (0x450,0x3d4)
0x1e980…1e9a0 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 20 20 20 20 ┆syscond zeromask 2'010 then ┆
0x1e9a0…1e9c0 20 20 20 20 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 ┆ if w0:=(w1).peripheral > 0┆
0x1e9c0…1e9e0 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 ┆
0x1e9e0…1ea00 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 00 00 00 00 00 00 00 00 ┆ (w1).state:= w0:= 3; ┆
0x1ea00…1ea06 (245,) (0x450,0x3d5)
0x1ea06…1ea20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 32 3a 3d 20 77 ┆ (w1).state2:= w┆
0x1ea20…1ea40 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 20 28 2e ┆0:= -1; startstop (.┆
0x1ea40…1ea60 77 33 2e 2c 20 77 30 3a 3d 30 2c 20 77 31 29 3b 20 20 20 20 21 20 73 74 6f 70 20 21 0a 20 20 20 ┆w3., w0:=0, w1); ! stop ! ┆
0x1ea60…1ea7e 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 32 3b ┆ w1:= (w1).internal+2;┆
0x1ea7e…1ea84 (0x450,0x3d6)
0x1ea84…1eaa0 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 66 20 70 72 6f 63 65 73 73 20 6e 61 6d ┆ ! ref process nam┆
0x1eaa0…1eac0 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 63 61 6e 63 61 74 20 28 2e 77 33 2e 2c 20 77 ┆e ! scancat (.w3., w┆
0x1eac0…1eae0 30 2c 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 ┆0, w1, w2:=0); if w0┆
0x1eae0…1eafc 20 3c 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 ┆ < 0 then begin ┆
0x1eafc…1eb02 (0x450,0x3d7)
0x1eb02…1eb20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 2d 33 20 74 68 65 6e 20 ┆ if w0 = -3 then ┆
0x1eb20…1eb40 77 32 3a 3d 33 30 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 ┆w2:=30 ! usercat reserv !┆
0x1eb40…1eb60 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 6c 73 65 20 77 ┆ else w┆
0x1eb60…1eb7a 32 3a 3d 33 3b 20 20 20 20 20 20 20 20 21 20 69 64 65 6e 74 20 69 6c 6c 65 67 ┆2:=3; ! ident illeg┆
0x1eb7a…1eb80 (0x450,0x3d8)
0x1eb80…1eba0 61 6c 20 20 21 0a 21 74 65 73 74 20 35 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 ┆al ! !test 50; ou┆
0x1eba0…1ebc0 74 74 65 78 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 ┆ttext (.w3., w0:=8'31, w1:=b.use┆
0x1ebc0…1ebe0 72 65 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 ┆rentry, w2); (w1).┆
0x1ebe0…1ec00 73 74 61 74 65 32 3a 3d 20 77 30 3a 3d 20 31 3b 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆state2:= w0:= 1; ┆
0x1ec00…1ec06 (246,) (0x450,0x3d9)
0x1ec06…1ec20 20 21 20 77 61 69 74 69 6e 67 20 66 6f 72 20 72 65 6d 6f 76 65 20 70 72 6f 63 ┆ ! waiting for remove proc┆
0x1ec20…1ec40 65 73 73 20 21 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 ┆ess ! goto exit; ┆
0x1ec40…1ec60 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 62 2e 70 72 ┆ end; b.pr┆
0x1ec60…1ec7e 6f 63 64 65 73 63 72 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆ocdescr:= w1; w3:=┆
0x1ec7e…1ec84 (0x450,0x3da)
0x1ec84…1eca0 20 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 20 20 ┆ address(childname); ┆
0x1eca0…1ecc0 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆ f1:= savef1; w2┆
0x1ecc0…1ece0 3a 3d 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 ┆:= (w1).internal + 2; !┆
0x1ece0…1ecfc 20 72 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 ┆ ref process name ! ┆
0x1ecfc…1ed02 (0x450,0x3db)
0x1ed02…1ed20 20 20 20 20 28 77 33 29 2e 6e 61 6d 65 31 3a 3d 20 66 31 3a 3d 20 28 77 32 29 2e 6e 61 6d ┆ (w3).name1:= f1:= (w2).nam┆
0x1ed20…1ed40 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 20 66 31 3a ┆e1; (w3).name2:= f1:┆
0x1ed40…1ed60 3d 20 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 ┆= (w2).name2; w2:= b┆
0x1ed60…1ed7a 2e 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 ┆.procdescr; w0┆
0x1ed7a…1ed80 (0x450,0x3dc)
0x1ed80…1eda0 3a 3d 20 28 77 32 29 2e 70 72 6f 63 75 62 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆:= (w2).procub1; !┆
0x1eda0…1edc0 20 75 73 65 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 ┆ user base from soscat ! ┆
0x1edc0…1ede0 20 20 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 ┆ w1:= (w2).procub2; ┆
0x1ede0…1ee00 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 20 20 21 20 72 65 73 00 00 00 00 00 00 00 00 ┆ monitor(72); ! res ┆
0x1ee00…1ee06 (247,) (0x450,0x3dd)
0x1ee06…1ee20 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 3d 20 75 73 65 72 20 62 61 73 ┆et catalog base = user bas┆
0x1ee20…1ee40 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 20 28 2e 77 33 2e 2c 20 77 31 3a 3d ┆e ! link (.w3., w1:=┆
0x1ee40…1ee60 62 2e 75 73 65 72 65 6e 74 72 79 2c 20 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 ┆b.userentry, w2:=address(b.activ┆
0x1ee60…1ee7e 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b ┆qfst)); goto exit;┆
0x1ee7e…1ee84 (0x450,0x3de)
0x1ee84…1eea0 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 28 ┆ end; (┆
0x1eea0…1eec0 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆w1).intervent:=w0:=-1; ┆
0x1eec0…1eee0 20 77 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 ┆ w2:=(w1).internal+b.relintrpt; ┆
0x1eee0…1eefc 20 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 20 3e ┆ if w0:=(w2).word >┆
0x1eefc…1ef02 (0x450,0x3df)
0x1ef02…1ef20 3d 20 62 2e 66 73 74 63 6f 72 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆= b.fstcore then beg┆
0x1ef20…1ef40 69 6e 20 63 6f 6d 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 ┆in comment interrupt address is ┆
0x1ef40…1ef60 73 65 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 ┆set; savedic:=w0+16;┆
0x1ef60…1ef7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 ┆ w0:=(w2).word┆
0x1ef7a…1ef80 (0x450,0x3e0)
0x1ef80…1efa0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2d 62 2e 66 73 74 63 6f 72 65 3b 0a 20 20 20 20 ┆; w0-b.fstcore; ┆
0x1efa0…1efc0 20 20 20 20 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 ┆ bufferrel:=w3:=w0 extrac┆
0x1efc0…1efe0 74 20 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 ┆t 9; segmnt:=w0 lshi┆
0x1efe0…1f000 66 74 20 2d 39 20 2b 20 28 77 31 29 2e 73 77 6f 70 73 65 67 6d 3b 0a 20 00 00 00 00 00 00 00 00 ┆ft -9 + (w1).swopsegm; ┆
0x1f000…1f006 (248,) (0x450,0x3e1)
0x1f006…1f020 20 20 20 20 20 20 20 20 20 20 20 69 6f 6f 70 3a 3d 77 30 3a 3d 33 3b 0a 20 20 ┆ ioop:=w0:=3; ┆
0x1f020…1f040 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6f 6f 70 29 3b 0a 20 20 20 ┆ w1:=address(ioop); ┆
0x1f040…1f060 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 65 29 3b 0a ┆ w3:=address(b.swname); ┆
0x1f060…1f07e 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 62 2e 74 6f 70 63 6f 72 65 3b 0a 20 20 20 ┆ w0:=b.topcore; ┆
0x1f07e…1f084 (0x450,0x3e2)
0x1f084…1f0a0 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ last:=w0; ┆
0x1f0a0…1f0c0 20 20 20 77 30 2d 31 30 32 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 3a 3d 77 ┆ w0-1022; first:=w┆
0x1f0c0…1f0e0 30 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 63 6f 6d ┆0; monitor(16); com┆
0x1f0e0…1f0fc 6d 65 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 ┆ment send message; ┆
0x1f0fc…1f102 (0x450,0x3e3)
0x1f102…1f120 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; ┆
0x1f120…1f140 20 6d 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 ┆ monitor(18); comment wait answ┆
0x1f140…1f160 65 72 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 ┆er; key (0):= w0; ! test 0 ! ┆
0x1f160…1f17a 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 ┆ f1:=savef1; ┆
0x1f17a…1f180 (0x450,0x3e4)
0x1f180…1f1a0 20 20 20 20 20 20 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 ┆ w3:=address(childname); ┆
0x1f1a0…1f1c0 20 20 20 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 2b 32 3b 0a ┆ w2:=(w1).internal+2; ┆
0x1f1c0…1f1e0 20 20 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 ┆ (w3).name1:=f1:=(w2)┆
0x1f1e0…1f200 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 00 00 00 00 00 00 00 00 ┆.name1; (w3) ┆
0x1f200…1f206 (249,) (0x450,0x3e5)
0x1f206…1f220 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 ┆.name2:=f1:=(w2).name2; ┆
0x1f220…1f240 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 20 20 ┆ f1:=savef1; ┆
0x1f240…1f260 20 20 77 31 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 62 2e 72 65 6c 64 75 6d 70 3b 0a 20 ┆ w1:=(w1).internal+b.reldump; ┆
0x1f260…1f27e 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 66 69 72 73 74 2b 62 75 66 66 65 72 72 65 6c ┆ w2:=first+bufferrel┆
0x1f27e…1f284 (0x450,0x3e6)
0x1f284…1f2a0 3b 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 ┆; copy(.w3.,w0:=┆
0x1f2a0…1f2c0 31 36 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 63 61 75 73 ┆16,w1,w2); (w2).caus┆
0x1f2c0…1f2e0 65 3a 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 ┆e:=w0:=8; (w2).exep:┆
0x1f2e0…1f2fc 3d 77 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 ┆=w0:=0; w0:=save┆
0x1f2fc…1f302 (0x450,0x3e7)
0x1f302…1f320 64 69 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 64 69 63 3a 3d 77 31 3a 3d ┆dic; savedic:=w1:=┆
0x1f320…1f340 28 77 32 29 2e 69 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 ┆(w2).instr; (w2).ins┆
0x1f340…1f360 74 72 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 ┆tr:=w0; testout(.w3.┆
0x1f360…1f37a 2c 77 30 3a 3d 31 36 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 31 29 3b 0a 20 20 20 ┆,w0:=16,w1:=w2,w2:=1); ┆
0x1f37a…1f380 (0x450,0x3e8)
0x1f380…1f3a0 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 63 68 69 6c 64 6e 61 6d 65 29 3b ┆ w3:=address(childname);┆
0x1f3a0…1f3c0 0a 20 20 20 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 ┆ monitor(62); comme┆
0x1f3c0…1f3e0 6e 74 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 ┆nt modify process; (┆
0x1f3e0…1f400 77 31 29 2e 69 6e 73 74 72 3a 3d 77 30 3a 3d 73 61 76 65 64 69 63 3b 0a 00 00 00 00 00 00 00 00 ┆w1).instr:=w0:=savedic; ┆
0x1f400…1f406 (250,) (0x450,0x3e9)
0x1f406…1f420 20 20 20 20 20 20 20 20 20 20 20 20 69 6f 6f 70 3a 3d 77 30 3a 3d 35 3b 0a 20 ┆ ioop:=w0:=5; ┆
0x1f420…1f440 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6f 6f 70 29 3b 0a 20 20 ┆ w1:=address(ioop); ┆
0x1f440…1f460 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 65 29 3b ┆ w3:=address(b.swname);┆
0x1f460…1f47e 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 ┆ monitor(16); com┆
0x1f47e…1f484 (0x450,0x3ea)
0x1f484…1f4a0 6d 65 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 ┆ment send message; ┆
0x1f4a0…1f4c0 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 20 6d ┆ w1:=b.lastuser; m┆
0x1f4c0…1f4e0 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┆
0x1f4e0…1f4fc 3b 0a 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 ┆; f1:=savef1; ┆
0x1f4fc…1f502 (0x450,0x3eb)
0x1f502…1f520 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 20 ┆ (w1).state:=w0:=0; ┆
0x1f520…1f540 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┆
0x1f540…1f560 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 20 20 67 ┆ess(b.activqfst)); g┆
0x1f560…1f57a 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆oto exit; end; ┆
0x1f57a…1f580 (0x450,0x3ec)
0x1f580…1f5a0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c ┆ end; comment kill┆
0x1f5a0…1f5c0 20 62 65 63 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 ┆ because of no reaction after br┆
0x1f5c0…1f5e0 65 61 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 ┆eak; startstop(.w3.,w0:=┆
0x1f5e0…1f600 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 63 6c 65 61 6e 28 2e 77 33 00 00 00 00 00 00 00 00 ┆0,w1); clean(.w3 ┆
0x1f600…1f606 (251,) (0x450,0x3ed)
0x1f606…1f620 2e 2c 77 31 29 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 ┆.,w1); exit: w3:= ┆
0x1f620…1f640 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 6d 6f 6e 69 ┆address(b.usercat); moni┆
0x1f640…1f660 74 6f 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 ┆tor(10); ! release usercat ! ┆
0x1f660…1f67e 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 66 33 3a 3d 73 ┆ f1:=savef1; f3:=s┆
0x1f67e…1f684 (0x450,0x3ee)
0x1f684…1f6a0 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 3b 20 20 ┆avef3; end; end; ┆
0x1f6a0…1f6c0 20 20 20 21 20 20 62 72 65 61 6b 20 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 ┆ ! break ! comment ┆
0x1f6c0…1f6e0 20 20 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 ┆ parentmess the u┆
0x1f6e0…1f6fc 73 65 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 ┆se of devices (not accessibl┆
0x1f6fc…1f702 (0x450,0x3ef)
0x1f702…1f720 65 20 64 69 72 65 63 74 6c 79 20 66 72 6f 6d 20 74 68 65 20 75 73 65 72 2d 70 72 6f 63 65 ┆e directly from the user-proce┆
0x1f720…1f740 73 73 65 73 29 0a 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 ┆sses) and the control of the pro┆
0x1f740…1f760 63 65 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 ┆cesses themselves is partially b┆
0x1f760…1f77a 61 73 65 64 20 6f 6e 20 70 61 72 65 6e 74 0a 6d 65 73 73 61 67 65 73 2e 20 74 ┆ased on parent messages. t┆
0x1f77a…1f780 (0x450,0x3f0)
0x1f780…1f7a0 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 74 61 6b 65 73 20 74 68 65 20 61 63 74 69 6f 6e 73 20 ┆his procedure takes the actions ┆
0x1f7a0…1f7c0 63 6f 72 72 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 ┆corresponding to the possible ki┆
0x1f7c0…1f7e0 6e 64 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 ┆nds of parent messages - these┆
0x1f7e0…1f800 20 70 6f 73 73 69 62 6c 65 20 6b 69 6e 64 73 20 61 72 65 3a 0a 0a 20 20 00 00 00 00 00 00 00 00 ┆ possible kinds are: ┆
0x1f800…1f806 (252,) (0x450,0x3f1)
0x1f806…1f820 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 66 69 ┆ break fi┆
0x1f820…1f840 6e 69 73 20 20 20 20 74 65 72 6d 69 6e 61 74 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 72 ┆nis terminates the current pr┆
0x1f840…1f860 6f 63 65 73 73 69 6e 67 20 61 6e 64 20 72 65 6d 6f 76 65 73 20 74 68 65 20 70 72 6f 63 65 73 73 ┆ocessing and removes the process┆
0x1f860…1f87e 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 75 6e 74 0a 0a 3b 0a 0a 20 20 20 20 62 6f 64 79 20 ┆ mount ; body ┆
0x1f87e…1f884 (0x450,0x3f2)
0x1f884…1f8a0 6f 66 20 70 61 72 65 6e 74 6d 65 73 73 61 67 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆of parentmessage begin ┆
0x1f8a0…1f8c0 20 20 20 20 20 6c 61 62 65 6c 20 75 6e 6b 6e 6f 77 6e 2c 6d 6f 75 6e 74 65 64 2c 6d 6f 75 6e 74 ┆ label unknown,mounted,mount┆
0x1f8c0…1f8e0 6d 65 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 ┆mess; record cont_ans ( ┆
0x1f8e0…1f8fc 77 6f 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 ┆word stat,l_id,perif); ┆
0x1f8fc…1f902 (0x450,0x3f3)
0x1f902…1f920 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 2c 77 32 33 ┆ incode double w01,w23┆
0x1f920…1f940 3b 0a 20 20 20 20 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 ┆; text(11) string1; ┆
0x1f940…1f960 20 20 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 ┆ ref firstdev:=74,lastdev:=76┆
0x1f960…1f97a 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 74 65 6d 6f 70 2c 74 65 6d 6d 6f ┆; byte temop,temmo┆
0x1f97a…1f980 (0x450,0x3f4)
0x1f980…1f9a0 64 65 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 63 69 64 2c 64 75 6d 31 2c 64 75 6d 32 ┆de; word locid,dum1,dum2┆
0x1f9a0…1f9c0 3b 0a 20 20 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 ┆; text(14) poolname; ┆
0x1f9c0…1f9e0 20 20 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 ┆ array (1:8) answ of word; ┆
0x1f9e0…1fa00 20 20 20 20 20 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 30 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ word zero:=0; ┆
0x1fa00…1fa06 (253,) (0x450,0x3f5)
0x1fa06…1fa20 20 20 20 20 20 62 79 74 65 20 65 6d 70 74 79 6f 70 3a 3d 31 36 2c 65 6d 70 74 ┆ byte emptyop:=16,empt┆
0x1fa20…1fa40 79 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 28 32 30 29 20 65 6d 70 74 79 ┆ymode:=0; text(20) empty┆
0x1fa40…1fa60 74 78 74 3a 3d 22 73 79 73 74 65 6d 20 65 6d 70 74 79 22 3b 0a 20 20 20 20 20 20 62 65 67 69 6e ┆txt:="system empty"; begin┆
0x1fa60…1fa7e 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 20 20 20 ┆ w01:=f1; w23:=f3; ┆
0x1fa7e…1fa84 (0x450,0x3f6)
0x1fa84…1faa0 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 62 2e 74 69 6d 65 72 6d ┆ w0:=0; b.timerm┆
0x1faa0…1fac0 65 73 73 3a 3d 77 30 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 ┆ess:=w0; startstop(.w3.,┆
0x1fac0…1fae0 77 30 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 ┆w0:=0,w1); if w0:=(w2).o┆
0x1fae0…1fafc 70 65 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 ┆peration=2 then comment fini┆
0x1fafc…1fb02 (0x450,0x3f7)
0x1fb02…1fb20 73 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆smessage; begin ┆
0x1fb20…1fb40 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 3a 3d 30 29 3b 0a 20 ┆ send(.w3.,w0:=1,w1,w2:=0); ┆
0x1fb40…1fb60 20 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 3d 30 20 74 ┆ if w0:=(w1).state2<=0 t┆
0x1fb60…1fb7a 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 ┆hen begin ┆
0x1fb7a…1fb80 (0x450,0x3f8)
0x1fb80…1fba0 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 32 3b 0a 20 20 20 ┆ (w1).intervent:=w0:=2; ┆
0x1fba0…1fbc0 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 20 20 ┆ clean(.w3.,w1); ┆
0x1fbc0…1fbe0 20 20 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 ┆ end else begin !tes┆
0x1fbe0…1fc00 74 20 34 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 74 65 78 00 00 00 00 00 00 00 00 ┆t 49; outtex ┆
0x1fc00…1fc06 (254,) (0x450,0x3f9)
0x1fc06…1fc20 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 37 30 2c 77 31 2c 77 32 3a 3d 28 77 31 ┆t(.w3.,w0:=8'70,w1,w2:=(w1┆
0x1fc20…1fc40 29 2e 69 6e 74 65 72 76 65 6e 74 2b 31 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆).intervent+19); ┆
0x1fc40…1fc60 20 21 20 72 65 6d 6f 76 65 64 20 61 66 74 65 72 20 20 62 72 65 61 6b 20 2f 20 66 69 6e 69 73 20 ┆ ! removed after break / finis ┆
0x1fc60…1fc7e 2f 20 75 73 65 72 20 6b 69 6c 6c 20 2f 20 6f 70 74 2e 6b 69 6c 6c 20 2f 0a 20 20 20 20 20 ┆/ user kill / opt.kill / ┆
0x1fc7e…1fc84 (0x450,0x3fa)
0x1fc84…1fca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fca0…1fcc0 74 69 6d 65 20 65 78 63 2e 20 2f 20 74 65 72 6d 2e 65 72 72 6f 72 20 2f 20 75 73 65 72 20 62 72 ┆time exc. / term.error / user br┆
0x1fcc0…1fce0 65 61 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 ┆eak / opt.break ! co┆
0x1fce0…1fcfc 70 79 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 ┆py(.w3.,w0:=8,w1:=(w1).inter┆
0x1fcfc…1fd02 (0x450,0x3fb)
0x1fd02…1fd20 6e 61 6c 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 29 ┆nal+2,w2:=address(b.procname))┆
0x1fd20…1fd40 3b 0a 20 20 20 20 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 ┆; w1:=(w1:=b.userent┆
0x1fd40…1fd60 72 79 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 ┆ry).internal+76; f1:┆
0x1fd60…1fd7a 3d 28 77 31 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆=(w1).double; ┆
0x1fd7a…1fd80 (0x450,0x3fc)
0x1fd80…1fda0 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 20 20 6d ┆w3:=address(zero); m┆
0x1fda0…1fdc0 6f 6e 69 74 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 ┆onitor(72); ! set sos catalog b┆
0x1fdc0…1fde0 61 73 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 ┆ase to stdbase of child ! !test ┆
0x1fde0…1fe00 34 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 00 00 00 00 00 00 00 00 ┆440; w3:=add ┆
0x1fe00…1fe06 (255,) (0x450,0x3fd)
0x1fe06…1fe20 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 ┆ress(b.t_mdul); ┆
0x1fe20…1fe40 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 70 73 65 75 64 6f 20 ┆ monitor(64); ! remove pseudo ┆
0x1fe40…1fe60 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 ┆process ! w3:=addres┆
0x1fe60…1fe7e 73 28 62 2e 70 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆s(b.p_mdul); monit┆
0x1fe7e…1fe84 (0x450,0x3fe)
0x1fe84…1fea0 6f 72 28 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 ┆or(64); ! remove pseudo pro┆
0x1fea0…1fec0 63 65 73 73 20 21 0a 21 74 65 73 74 20 34 34 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 ┆cess ! !test 441; w3┆
0x1fec0…1fee0 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 20 20 66 31 3a ┆:=address(zero); f1:┆
0x1fee0…1fefc 3d 62 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 ┆=b.startbase; mo┆
0x1fefc…1ff02 (0x450,0x3ff)
0x1ff02…1ff20 6e 69 74 6f 72 28 37 32 29 3b 20 20 21 20 72 65 73 65 74 20 73 6f 73 20 6f 77 6e 20 63 61 ┆nitor(72); ! reset sos own ca┆
0x1ff20…1ff40 74 20 62 61 73 65 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 ┆t base ! w1:=b.ownpr┆
0x1ff40…1ff60 6f 63 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 ┆oc+26; b.freebufs:=w┆
0x1ff60…1ff7a 30 3a 3d 62 2e 66 72 65 65 62 75 66 73 2d 28 77 31 29 2e 62 79 74 65 3b 0a 20 ┆0:=b.freebufs-(w1).byte; ┆
0x1ff7a…1ff80 (0x450,0x400)
0x1ff80…1ffa0 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 72 6f 63 6e 61 6d ┆ w3:=address(b.procnam┆
0x1ffa0…1ffc0 65 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 63 6f ┆e); monitor(64); co┆
0x1ffc0…1ffe0 6d 6d 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 ┆mment remove internal process; !┆
0x1ffe0…20000 74 65 73 74 20 31 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 00 00 00 00 00 00 00 00 ┆test 110; b. ┆
0x20000…20006 (256,) (0x450,0x401)
0x20006…20020 66 72 65 65 62 75 66 73 3a 3d 77 30 3a 3d 62 2e 66 72 65 65 62 75 66 73 2b 28 ┆freebufs:=w0:=b.freebufs+(┆
0x20020…20040 77 31 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c ┆w1).byte; copy(.w3.,┆
0x20040…20060 77 30 3a 3d 36 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 2c 77 32 ┆w0:=6,w1:=address(b.procname),w2┆
0x20060…2007e 3a 3d 61 64 64 72 65 73 73 28 70 6f 6f 6c 6e 61 6d 65 29 2b 32 29 3b 0a 20 20 20 20 20 20 ┆:=address(poolname)+2); ┆
0x2007e…20084 (0x450,0x402)
0x20084…200a0 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e ┆ w0:= 0; b.┆
0x200a0…200c0 62 61 73 65 65 76 65 6e 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 ┆baseevent:= w0; copy┆
0x200c0…200e0 28 2e 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 ┆(.w3.,w0:=2,w1:=b.ownproc+2,w2:=┆
0x200e0…200fc 61 64 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 ┆address(poolname)); ┆
0x200fc…20102 (0x450,0x403)
0x20102…20120 20 20 20 20 20 74 65 6d 6f 70 3a 3d 77 30 3a 3d 31 30 32 3b 20 20 21 20 72 65 6d 6f 76 65 ┆ temop:=w0:=102; ! remove┆
0x20120…20140 20 6c 69 6e 6b 20 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 ┆ link (soft) ! locid┆
0x20140…20160 3a 3d 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 ┆:=w1:=0; w3:=address┆
0x20160…2017a 28 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆(poolname); w1┆
0x2017a…20180 (0x450,0x404)
0x20180…201a0 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 20 20 20 20 6d 6f ┆:=address(temop); mo┆
0x201a0…201c0 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 ! ┆
0x201c0…201e0 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 20 20 ┆ answ(w1:=1); ┆
0x201e0…20200 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 00 00 00 00 00 00 00 00 ┆ monitor(18); ! wait a ┆
0x20200…20206 (257,) (0x450,0x405)
0x20206…20220 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 ┆nswer ! ┆
0x20220…20240 20 20 20 20 20 20 20 74 65 6d 6f 70 3a 3d 77 30 3a 3d 39 32 3b 20 20 21 20 72 65 6d 6f 76 65 20 ┆ temop:=w0:=92; ! remove ┆
0x20240…20260 70 6f 6f 6c 20 21 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 ┆pool ! w3:=address(b┆
0x20260…2027e 2e 74 5f 6d 64 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 ┆.t_mdul); w1:=addr┆
0x2027e…20284 (0x450,0x406)
0x20284…202a0 65 73 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 ┆ess(temop); moni┆
0x202a0…202c0 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 20 ┆tor(16); ! send message ! ┆
0x202c0…202e0 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); ┆
0x202e0…202fc 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 ┆monitor(18); ! wait answer ┆
0x202fc…20302 (0x450,0x407)
0x20302…20320 21 0a 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 32 ┆! copy(.w3.,w0:=2┆
0x20320…20340 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 61 64 64 72 65 ┆,w1:=address(b.t_mdul),w2:=addre┆
0x20340…20360 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 77 31 3a 3d 61 ┆ss(poolname)); w1:=a┆
0x20360…2037a 64 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 ┆ddress(temop); ┆
0x2037a…20380 (0x450,0x408)
0x20380…203a0 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 20 20 20 20 20 ┆ w3:=address(b.t_mdul); ┆
0x203a0…203c0 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 67 65 ┆ monitor(16); ! send message┆
0x203c0…203e0 20 21 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 ┆ ! answ(w1:=1); ┆
0x203e0…20400 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 00 00 00 00 00 00 00 00 ┆ monitor(18); ! ┆
0x20400…20406 (258,) (0x450,0x409)
0x20406…20420 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆wait answer ! ┆
0x20420…20440 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 6c 69 6e ┆w1:=b.userentry; lin┆
0x20440…20460 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 69 74 71 66 73 74 ┆k(.w3.,w1,w2:=address(b.waitqfst┆
0x20460…2047e 29 29 3b 0a 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 ┆)); w0:=0; ┆
0x2047e…20484 (0x450,0x40a)
0x20484…204a0 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 0a 20 20 ┆ (w1).peripheral:=w0; ┆
0x204a0…204c0 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 20 20 20 ┆ (w1).internal:=w0; ┆
0x204c0…204e0 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 20 20 20 20 ┆ (w1).messsend:=w0; ┆
0x204e0…204fc 20 20 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 ┆ (w1).messgot:=w0; ┆
0x204fc…20502 (0x450,0x40b)
0x20502…20520 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3b 0a ┆ (w1).intervent:=w0; ┆
0x20520…20540 20 20 20 20 20 20 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 ┆ if w0:=b.sysstate = ┆
0x20540…20560 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 ┆
0x20560…2057a 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 ┆ w1:=b.lastuser; ┆
0x2057a…20580 (0x450,0x40c)
0x20580…205a0 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 20 ┆ w0:=0; ┆
0x205a0…205c0 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 62 ┆while w1-!length(userentry) >= b┆
0x205c0…205e0 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 62 65 67 69 ┆.firstuser do begi┆
0x205e0…20600 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 00 00 00 00 00 00 00 00 ┆n if w3: ┆
0x20600…20606 (259,) (0x450,0x40d)
0x20606…20620 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 20 3e 20 30 20 74 68 65 6e 20 0a 20 ┆=(w1).internal > 0 then ┆
0x20620…20640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 33 29 2e 77 6f 72 64 20 ┆ if w3:=(w3).word ┆
0x20640…20660 3d 20 30 20 74 68 65 6e 20 77 30 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆= 0 then w0+1; end┆
0x20660…2067e 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 20 74 68 65 6e ┆; if w0 = 0 then┆
0x2067e…20684 (0x450,0x40e)
0x20684…206a0 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 65 6d 70 ┆ opmess(.w3.,w1:=address(emp┆
0x206a0…206c0 74 79 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 20 ┆tyop),w2:=b.ownproc); ┆
0x206c0…206e0 20 20 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 ┆ end; end; en┆
0x206e0…206fc 64 20 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 ┆d else if w0=4 then ┆
0x206fc…20702 (0x450,0x40f)
0x20702…20720 63 6f 6d 6d 65 6e 74 20 62 72 65 61 6b 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 ┆comment break message; ┆
0x20720…20740 20 62 65 67 69 6e 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 ┆ begin send(.w3.,w0:=1┆
0x20740…20760 2c 77 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 ┆,w1,w2:=0); if w0:=(w1┆
0x20760…2077a 29 2e 69 6e 74 65 72 76 65 6e 74 20 3d 20 2d 31 20 74 68 65 6e 20 28 77 31 29 ┆).intervent = -1 then (w1)┆
0x2077a…20780 (0x450,0x410)
0x20780…207a0 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆.intervent:=w0:=1; if ┆
0x207a0…207c0 77 30 20 3d 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 ┆w0 = 0 then (w1).intervent:=w0:=┆
0x207c0…207e0 31 3b 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 ┆1; clean(.w3.,w1); ┆
0x207e0…20800 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆ end else if ┆
0x20800…20806 (260,) (0x450,0x411)
0x20806…20820 20 77 30 20 3d 20 31 34 20 74 68 65 6e 20 63 6f 6d 6d 65 6e 74 20 6d 6f 75 6e ┆ w0 = 14 then comment moun┆
0x20820…20840 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 6d 6f 75 6e 74 6d 65 ┆t message; begin mountme┆
0x20840…20860 73 73 3a 0a 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 ┆ss: copy(.w3.,w0:=8,w1┆
0x20860…2087e 3a 3d 77 32 2b 31 36 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 73 74 72 69 6e 67 31 29 29 3b ┆:=w2+16,w2:=address(string1));┆
0x2087e…20884 (0x450,0x412)
0x20884…208a0 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 73 74 72 69 6e ┆ w3:=address(strin┆
0x208a0…208c0 67 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 20 21 20 67 65 ┆g1); monitor(4); ! ge┆
0x208c0…208e0 74 20 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 ┆t process description ! ┆
0x208e0…208fc 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 ┆ if w0 <> 0 then ┆
0x208fc…20902 (0x450,0x413)
0x20902…20920 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 6f 72 64 28 66 69 72 ┆begin w1:=word(fir┆
0x20920…20940 73 74 64 65 76 29 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 ┆stdev); while w1+2 <┆
0x20940…20960 3d 20 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 ┆= word(lastdev) do b┆
0x20960…2097a 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d ┆egin if w0 =┆
0x2097a…20980 (0x450,0x414)
0x20980…209a0 20 28 77 31 29 2e 77 6f 72 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ (w1).word then be┆
0x209a0…209c0 67 69 6e 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 ┆gin w3:=address(┆
0x209c0…209e0 62 2e 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 ┆b.procname); w1-┆
0x209e0…20a00 77 6f 72 64 28 66 69 72 73 74 64 65 76 29 20 6c 73 68 69 66 74 20 2d 31 00 00 00 00 00 00 00 00 ┆word(firstdev) lshift -1 ┆
0x20a00…20a06 (261,) (0x450,0x415)
0x20a06…20a20 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 ┆; monitor(┆
0x20a20…20a40 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 20 20 20 20 20 ┆12); ! include user ! ┆
0x20a40…20a60 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 20 20 20 20 20 20 ┆ if w0 = 0 then ┆
0x20a60…20a7e 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 ┆
0x20a7e…20a84 (0x450,0x416)
0x20a84…20aa0 66 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆f1:=w01; (┆
0x20aa0…20ac0 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 20 20 20 20 20 20 20 ┆w1).state:=w0:=0; ┆
0x20ac0…20ae0 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 73 28 62 2e 61 ┆ link(.w3.,w1,w2:=address(b.a┆
0x20ae0…20afc 63 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 ┆ctivqfst)); ┆
0x20afc…20b02 (0x450,0x417)
0x20b02…20b20 20 20 73 65 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 ┆ send(.w3.,w0:=1,w1,w2:=0); ┆
0x20b20…20b40 20 20 20 20 20 20 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 ┆ goto mounted; ┆
0x20b40…20b60 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; ┆
0x20b60…20b7a 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; ┆
0x20b7a…20b80 (0x450,0x418)
0x20b80…20ba0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 31 3b 0a ┆ end; f1:=w01; ┆
0x20ba0…20bc0 20 20 20 20 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 ┆ f3:=w23; got┆
0x20bc0…20be0 6f 20 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 ┆o unknown; mounted: end ┆
0x20be0…20c00 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 32 20 00 00 00 00 00 00 00 00 ┆else if w0 = 32 ┆
0x20c00…20c06 (262,) (0x450,0x419)
0x20c06…20c20 74 68 65 6e 20 67 6f 74 6f 20 6d 6f 75 6e 74 6d 65 73 73 0a 20 20 20 20 20 20 ┆then goto mountmess ┆
0x20c20…20c40 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 ┆ else begin comment par┆
0x20c40…20c60 65 6e 74 20 6d 65 73 73 61 67 65 20 75 6e 6b 6e 6f 77 6e 3b 0a 75 6e 6b 6e 6f 77 6e 3a 0a 20 20 ┆ent message unknown; unknown: ┆
0x20c60…20c7e 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; ┆
0x20c7e…20c84 (0x450,0x41a)
0x20c84…20ca0 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 ┆ w2:=(w1).internal; ┆
0x20ca0…20cc0 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 6d 65 73 73 61 67 ┆ opmess(.w3.,w1:=b.messag┆
0x20cc0…20ce0 65 2b 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 ┆e+8,w2); if w0:=(w1).w┆
0x20ce0…20cfc 6f 72 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 ┆ord onemask 1 then w2:=addre┆
0x20cfc…20d02 (0x450,0x41b)
0x20d02…20d20 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ss(b.waitqfst) ┆
0x20d20…20d40 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 3d 61 ┆ else w2:=a┆
0x20d40…20d60 64 64 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 ┆ddress(b.activqfst); f┆
0x20d60…20d7a 31 3a 3d 77 30 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 ┆1:=w01; link(.w3┆
0x20d7a…20d80 (0x450,0x41c)
0x20d80…20da0 2e 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 ┆.,w1,w2); send(.w3.,w0┆
0x20da0…20dc0 3a 3d 31 2c 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 ┆:=1,w1,w2:=0); end; ┆
0x20dc0…20de0 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 20 20 20 20 66 ┆ w3:=address(zero); f┆
0x20de0…20e00 31 3a 3d 62 2e 73 74 61 72 74 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆1:=b.startbase; ┆
0x20e00…20e06 (263,) (0x450,0x41d)
0x20e06…20e20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 20 21 20 72 73 65 74 20 73 6f 73 20 6f ┆monitor(72); ! rset sos o┆
0x20e20…20e40 77 6e 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 77 30 ┆wn catalog base ! f1:=w0┆
0x20e40…20e60 31 3b 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 3b 20 ┆1; f3:=w23; end; end; ┆
0x20e60…20e7e 20 20 20 20 21 20 20 70 61 72 65 6e 74 6d 65 73 73 61 67 65 20 20 21 0a 0c 0a 0a 0a 0a 63 ┆ ! parentmessage ! c┆
0x20e7e…20e84 (0x450,0x41e)
0x20e84…20ea0 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 65 ┆omment cle┆
0x20ea0…20ec0 61 6e 0a 0a 3b 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 63 6c 65 61 6e 0a 20 20 20 20 62 65 ┆an ; body of clean be┆
0x20ec0…20ee0 67 69 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 ┆gin incode double ┆
0x20ee0…20efc 73 61 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 ┆savef1, savef3; doub┆
0x20efc…20f02 (0x450,0x41f)
0x20f02…20f20 6c 65 20 63 6f 72 65 6c 69 6d 69 74 73 3b 0a 20 20 20 20 20 20 20 20 62 79 74 65 20 62 75 ┆le corelimits; byte bu┆
0x20f20…20f40 66 66 65 72 73 2c 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 ┆ffers, areas; byte inter┆
0x20f40…20f60 6e 61 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 ┆nals:=0, fncmask:=1792; ┆
0x20f60…20f7a 62 79 74 65 20 70 72 6f 74 72 65 67 2c 20 70 72 6f 74 6b 65 79 3b 0a 20 20 20 ┆byte protreg, protkey; ┆
0x20f7a…20f80 (0x450,0x420)
0x20f80…20fa0 20 20 20 20 20 64 6f 75 62 6c 65 20 6d 61 78 62 61 73 65 2c 20 73 74 64 62 61 73 65 3b 0a 20 20 ┆ double maxbase, stdbase; ┆
0x20fa0…20fc0 20 20 20 20 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 ┆ begin savef1:=f1; sa┆
0x20fc0…20fe0 76 65 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 ┆vef3:=f3; if w0:=(w1).me┆
0x20fe0…21000 73 73 67 6f 74 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ssgot > 10 then ┆
0x21000…21006 (264,) (0x450,0x421)
0x21006…21020 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 ┆begin (w1).bufle┆
0x21020…21040 6e 67 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 ┆ngth:=w2:=0; send(.w3.┆
0x21040…21060 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆,w0:=1,w1,w2); end; ┆
0x21060…2107e 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 31 29 2e 69 ┆ copy(.w3.,w0:=8,w1:=(w1).i┆
0x2107e…21084 (0x450,0x422)
0x21084…210a0 6e 74 65 72 6e 61 6c 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 ┆nternal+2,w2:=address(b.proc┆
0x210a0…210c0 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 66 73 74 63 6f 72 65 3b 20 77 ┆name)); w2:=b.fstcore; w┆
0x210c0…210e0 33 3a 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 ┆3:=b.topcore; corelimits┆
0x210e0…210fc 3a 3d 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 ┆:=f3; protreg:=w3:=b┆
0x210fc…21102 (0x450,0x423)
0x21102…21120 2e 63 68 69 6c 64 70 72 3b 0a 20 20 20 20 20 20 20 20 70 72 6f 74 6b 65 79 3a 3d 77 33 3a ┆.childpr; protkey:=w3:┆
0x21120…21140 3d 62 2e 63 68 69 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 ┆=b.childpk; w2:= b.ownpr┆
0x21140…21160 6f 63 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 ┆oc; buffers:= -(w3:=(w1:┆
0x21160…2117a 3d 77 32 2b 32 36 29 2e 62 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20 61 72 65 ┆=w2+26).byte); are┆
0x2117a…21180 (0x450,0x424)
0x21180…211a0 61 73 3a 3d 20 2d 28 77 33 3a 3d 28 77 31 3a 3d 77 32 2b 32 37 29 2e 62 79 74 65 29 3b 0a 20 20 ┆as:= -(w3:=(w1:=w2+27).byte); ┆
0x211a0…211c0 20 20 20 20 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 ┆ f1:= savef1; w0:= ┆
0x211c0…211e0 28 77 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 ┆(w1).internal; maxbase:=┆
0x211e0…21200 66 33 3a 3d 28 77 31 3a 3d 77 30 2b 37 32 29 2e 64 6f 75 62 6c 65 3b 0a 00 00 00 00 00 00 00 00 ┆f3:=(w1:=w0+72).double; ┆
0x21200…21206 (265,) (0x450,0x425)
0x21206…21220 20 20 20 20 20 20 20 20 73 74 64 62 61 73 65 3a 3d 66 33 3a 3d 28 77 31 3a 3d ┆ stdbase:=f3:=(w1:=┆
0x21220…21240 77 30 2b 37 36 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 ┆w0+76).double; w3:=addre┆
0x21240…21260 73 73 28 62 2e 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆ss(b.procname); monitor(┆
0x21260…2127e 36 34 29 3b 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 76 65 20 69 6e 74 65 72 6e 61 6c 3b 0a ┆64); comment remove internal; ┆
0x2127e…21284 (0x450,0x426)
0x21284…212a0 21 74 65 73 74 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 6f 77 ┆!test 100; w2:= b.ow┆
0x212a0…212c0 6e 70 72 6f 63 3b 0a 20 20 20 20 20 20 20 20 62 75 66 66 65 72 73 3a 3d 20 77 30 3a 3d 20 62 75 ┆nproc; buffers:= w0:= bu┆
0x212c0…212e0 66 66 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 ┆ffers+(w1:=w2+26).byte; ┆
0x212e0…212fc 61 72 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 ┆areas:= w0:= areas+(w1:=w2+2┆
0x212fc…21302 (0x450,0x427)
0x21302…21320 37 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 63 ┆7).byte; w1:=address(c┆
0x21320…21340 6f 72 65 6c 69 6d 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 ┆orelimits); monitor(56);┆
0x21340…21360 20 63 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 ┆ comment create internal; !test ┆
0x21360…2137a 31 30 32 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 ┆102; f1:=savef1; ┆
0x2137a…21380 (0x450,0x428)
0x21380…213a0 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 63 6f 6d 6d 65 6e 74 20 6c 6f 6f 6b 75 ┆ monitor(4); comment looku┆
0x213a0…213c0 70 20 70 72 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 ┆p process; (w1).internal┆
0x213c0…213e0 3a 3d 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 ┆:=w0; (w1).state:=w0:=3;┆
0x213e0…21400 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 32 3a 3d 77 30 00 00 00 00 00 00 00 00 ┆ (w1).state2:=w0 ┆
0x21400…21406 (266,) (0x450,0x429)
0x21406…21420 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 69 6f 3a 3d 77 30 ┆:=1; (w1).prio:=w0┆
0x21420…21440 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3b 0a 20 20 20 ┆:=0; (w1).class:=w0; ┆
0x21440…21460 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 20 20 ┆ (w1).messsend:=w0; ┆
0x21460…2147e 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 6c 69 6e 6b ┆(w1).messgot:=w0; link┆
0x2147e…21484 (0x450,0x42a)
0x21484…214a0 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 69 76 ┆(.w3.,w1,w2:=address(b.activ┆
0x214a0…214c0 71 66 73 74 29 29 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 ┆qfst)); f1:=savef1; ┆
0x214c0…214e0 20 20 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 ┆ f3:=savef3; end; e┆
0x214e0…214fc 6e 64 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 ┆nd; ! clean ! com┆
0x214fc…21502 (0x450,0x42b)
0x21502…21520 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 0a 0a 3b 0a ┆ment compare ; ┆
0x21520…21540 0a 0a 20 20 20 20 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 ┆ body of compare begin ┆
0x21540…21560 20 20 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 ┆ incode word savew1┆
0x21560…2157a 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 ┆; double savef3; ┆
0x2157a…21580 (0x450,0x42c)
0x21580…215a0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 20 73 ┆ begin savew1:=w1; s┆
0x215a0…215c0 61 76 65 66 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 ┆avef3:=f3; w3:=w1+w0; ┆
0x215c0…215e0 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 31 3c 77 33 ┆ w0:=0; while w1<w3┆
0x215e0…21600 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ do begin ┆
0x21600…21606 (267,) (0x450,0x42d)
0x21606…21620 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 ┆ w0:=(w1).word; ┆
0x21620…21640 20 20 20 77 30 2d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 3b ┆ w0-(w2).word; w1+2;┆
0x21640…21660 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 20 69 66 20 77 30 ┆ w2+2; if w0┆
0x21660…2167e 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆<>0 then w1:=w3; end; ┆
0x2167e…21684 (0x450,0x42e)
0x21684…216a0 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 20 ┆ w1:=savew1; ┆
0x216a0…216c0 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 3b 20 ┆f3:=savef3; end; end; ┆
0x216c0…216e0 20 20 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 ┆ ! compare ! comment ┆
0x216e0…216fc 20 20 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 ┆ nextchar ; ┆
0x216fc…21702 (0x450,0x42f)
0x21702…21720 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 6e 65 78 74 63 68 61 72 0a 20 20 20 20 62 65 67 69 ┆ body of nextchar begi┆
0x21720…21740 6e 0a 20 20 20 20 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 ┆n label dummy1; begi┆
0x21740…21760 6e 0a 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 ┆n if w1=0 then ┆
0x21760…2177a 20 69 66 20 77 32 3d 28 77 33 29 2e 73 74 70 20 74 68 65 6e 20 77 31 3a 3d 31 ┆ if w2=(w3).stp then w1:=1┆
0x2177a…21780 (0x450,0x430)
0x21780…217a0 30 20 61 73 68 69 66 74 20 31 36 20 20 20 20 20 21 20 73 69 6d 75 6c 61 74 65 20 27 6e 6c 27 20 ┆0 ashift 16 ! simulate 'nl' ┆
0x217a0…217c0 61 74 20 65 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 ┆at end of buffer ! els┆
0x217c0…217e0 65 20 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 ┆e begin w1:=(w2).wor┆
0x217e0…21800 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆d; w2+2; ┆
0x21800…21806 (268,) (0x450,0x431)
0x21806…21820 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b ┆ end; w0:=0;┆
0x21820…21840 0a 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 69 66 ┆ f1 lshift 8; if┆
0x21840…21860 20 77 30 3d 31 33 20 74 68 65 6e 20 77 30 3a 3d 20 31 30 3b 20 21 20 63 6f 6e 76 65 72 74 20 3c ┆ w0=13 then w0:= 10; ! convert <┆
0x21860…2187e 63 72 3e 20 74 6f 20 3c 6e 6c 3e 20 74 6f 20 61 76 6f 69 64 20 20 21 0a 20 20 20 20 20 20 ┆cr> to <nl> to avoid ! ┆
0x2187e…21884 (0x450,0x432)
0x21884…218a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 ┆ ! s┆
0x218a0…218c0 79 6e 74 61 78 20 65 72 72 6f 72 20 72 65 61 64 69 6e 67 20 69 6e 20 6d 6f 64 65 20 32 20 21 0a ┆yntax error reading in mode 2 ! ┆
0x218c0…218e0 20 20 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 ┆ end; end; end. f3; ┆
0x218e0…218fc 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 77 30 ┆ w3:=w1+w0; w0┆
0x218fc…21902 (0x450,0x433)
0x21902…21920 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 6f 0a 20 20 ┆:=0; while w1<w3 do ┆
0x21920…21940 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 31 29 2e 77 ┆ begin w0:=(w1).w┆
0x21940…21960 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 2d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 ┆ord; w0-(w2).word; ┆
0x21960…2197a 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b ┆ w1+2; w2+┆
0x2197a…21980 (0x450,0x434)
0x21980…219a0 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 31 3a 3d 77 ┆2; if w0<>0 then w1:=w┆
0x219a0…219c0 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 73 61 76 65 ┆3; end; w1:=save┆
0x219c0…219e0 77 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 20 65 6e ┆w1; f3:=savef3; en┆
0x219e0…21a00 64 3b 0a 20 20 20 20 65 6e 64 3b 20 20 20 20 20 21 20 20 63 6f 6d 70 61 00 00 00 00 00 00 00 00 ┆d; end; ! compa ┆
0x21a00…21a06 (269,) (0x450,0x435)
0x21a06…21a20 72 65 20 20 21 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 ┆re ! comment ┆
0x21a20…21a40 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 6f 64 79 20 ┆ nextchar ; body ┆
0x21a40…21a60 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 20 20 6c 61 62 65 ┆of nextchar begin labe┆
0x21a60…21a7e 6c 20 64 75 6d 6d 79 31 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆l dummy1; begin ┆
0x21a7e…21a84 (0x450,0x436)
0x21a84…21aa0 69 66 20 77 31 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆if w1=0 then if w2┆
0x21aa0…21ac0 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 20 31 36 20 ┆=(w3).stp then w1:=10 ashift 16 ┆
0x21ac0…21ae0 20 20 20 20 21 20 73 69 6d 75 6c 61 74 65 20 27 6e 6c 27 20 61 74 20 65 6e 64 20 6f 66 20 62 75 ┆ ! simulate 'nl' at end of bu┆
0x21ae0…21afc 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 62 65 67 69 6e 0a ┆ffer ! else begin ┆
0x21afc…21b02 (0x4b4,0x437)
0x21b02…21b20 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 70 20 ┆! *** tcleartemp ┆
0x21b20…21b40 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 6f 67 ┆ *** ; ; ; catalog cleaning prog┆
0x21b40…21b60 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 73 20 ┆ram - used when a user process ┆
0x21b60…21b7a 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 ┆is removed from sos ! cle┆
0x21b7a…21b80 (0x4b4,0x438)
0x21b80…21ba0 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 21 66 ┆artemp begin !sections 4; !f┆
0x21ba0…21bc0 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 2e 77 ┆p.no; procedure next_entry (.w┆
0x21bc0…21be0 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 20 20 ┆3.;w1); comment return w1 ┆
0x21be0…21c00 62 75 66 20 61 64 72 20 6f 66 20 6e 65 78 74 20 65 6e 74 72 79 20 6f 72 00 00 00 00 00 00 00 00 ┆buf adr of next entry or ┆
0x21c00…21c06 (270,) (0x4b4,0x439)
0x21c06…21c20 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 ┆ 0 (after end doc.) ; ┆
0x21c20…21c40 20 70 72 6f 63 65 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 ┆ procedure remove_entry (.w3.;w1┆
0x21c40…21c60 29 3b 0a 20 20 63 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 ┆); comment call w1 buf a┆
0x21c60…21c7e 64 72 20 6f 66 20 65 6e 74 72 79 0a 20 20 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 74 ┆dr of entry ; procedure t┆
0x21c7e…21c84 (0x4b4,0x43a)
0x21c84…21ca0 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 65 6e ┆ransport (.w3.;w1); commen┆
0x21ca0…21cc0 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 72 65 ┆t return w1 bytes transferre┆
0x21cc0…21ce0 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 74 69 ┆d ; label interrupt, initi┆
0x21ce0…21cfc 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 ┆alize, finis; record entry┆
0x21cfc…21d02 (0x4b4,0x43b)
0x21d02…21d20 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 20 20 ┆ ( byte fslice,catkeys; ┆
0x21d20…21d40 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 20 20 ┆ double catbase; ┆
0x21d40…21d60 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 20 20 ┆ text(11) name ┆
0x21d60…21d7a 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┆
0x21d7a…21d80 (0x4b4,0x43c)
0x21d80…21da0 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 6d 61 ┆d mee; word nul:= 0; word ma┆
0x21da0…21dc0 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 20 6d ┆xtempkey:= 2; byte m_op:= 3, m┆
0x21dc0…21de0 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 6c 61 ┆_mode:= 0; ref buffirst, bufla┆
0x21de0…21e00 73 74 3b 0a 20 20 77 6f 72 64 20 6d 5f 73 65 67 6d 3a 3d 20 30 3b 0a 20 00 00 00 00 00 00 00 00 ┆st; word m_segm:= 0; ┆
0x21e00…21e06 (271,) (0x4b4,0x43d)
0x21e06…21e20 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 ┆ text(14) catalog:= "catal┆
0x21e20…21e40 6f 67 22 3b 0a 20 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 ┆og"; word lmaxbase, umaxbase, ┆
0x21e40…21e60 6c 73 74 64 62 61 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 ┆lstdbase, ustdbase, lcatbase, uc┆
0x21e60…21e7e 61 74 62 61 73 65 3b 0a 20 20 62 79 74 65 20 66 69 6e 69 73 5f 6f 70 3a 3d 20 32 2c 20 66 ┆atbase; byte finis_op:= 2, f┆
0x21e7e…21e84 (0x4b4,0x43e)
0x21e84…21ea0 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 6e 69 ┆inis_mode:= 1; text(20) fini┆
0x21ea0…21ec0 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 2c 20 ┆s_t:= "finis"; double pname1, ┆
0x21ec0…21ee0 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 3b 0a ┆pname2; begin mee:= w3; ┆
0x21ee0…21efc 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┆
0x21efc…21f02 (0x4b4,0x43f)
0x21f02…21f20 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 20 20 ┆s(interrupt); w0:= 0; ┆
0x21f20…21f40 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 75 70 ┆monitor(0); comment set interrup┆
0x21f40…21f60 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 2b 30 ┆t; goto initialize; w1+0┆
0x21f60…21f7a 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 ┆; w1+0; w1+0; w1+0; go┆
0x21f7a…21f80 (0x4b4,0x440)
0x21f80…21fa0 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 33 3a ┆to finis; initialize: w3:┆
0x21fa0…21fc0 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 20 63 ┆= mee+24; w2:= (w3).word; c┆
0x21fc0…21fe0 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 20 77 ┆omment topcore; buffirst:= w┆
0x21fe0…22000 31 3b 0a 20 20 20 20 77 30 3a 3d 20 77 32 2d 77 31 20 6c 73 68 69 66 74 00 00 00 00 00 00 00 00 ┆1; w0:= w2-w1 lshift ┆
0x22000…22006 (272,) (0x4b4,0x441)
0x22006…22020 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 ┆ -9 lshift 9 + w1 - 2; ┆
0x22020…22040 20 62 75 66 6c 61 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 ┆ buflast:= w0; w3:= w3+44; ┆
0x22040…22060 20 20 20 20 66 31 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 ┆ f1:= (w3).double; lcatba┆
0x22060…2207e 73 65 3a 3d 20 77 30 3b 20 20 75 63 61 74 62 61 73 65 3a 3d 20 77 31 3b 0a 20 20 20 20 77 ┆se:= w0; ucatbase:= w1; w┆
0x2207e…22084 (0x4b4,0x442)
0x22084…220a0 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 0a 20 ┆3+4; f1:= (w3).double; ┆
0x220a0…220c0 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 77 31 ┆ lmaxbase:= w0; umaxbase:= w1┆
0x220c0…220e0 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 6c 65 ┆; w3+4; f1:= (w3).double┆
0x220e0…220fc 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 ┆; lstdbase:= w0; ustdba┆
0x220fc…22102 (0x4b4,0x443)
0x22102…22120 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 70 72 ┆se:= w1; comment main pr┆
0x22120…22140 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 3d 30 ┆ogram; next_entry(.w3.,w1:=0┆
0x22140…22160 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 6e 0a ┆); while w1<>0 do begin ┆
0x22160…2217a 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 ┆ w0:= (w1).catkeys ex┆
0x2217a…22180 (0x4b4,0x444)
0x22180…221a0 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 65 79 ┆tract 3; if w0<=maxtempkey┆
0x221a0…221c0 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 20 28 ┆ then begin f3:= (┆
0x221c0…221e0 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 74 64 ┆w1).catbase; if w2>=lstd┆
0x221e0…22200 62 61 73 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3c 00 00 00 00 00 00 00 00 ┆base then if w3< ┆
0x22200…22206 (273,) (0x4b4,0x445)
0x22206…22220 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 ┆=ustdbase then rem┆
0x22220…22240 6f 76 65 5f 65 6e 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 ┆ove_entry(.w3.,w1); end; ┆
0x22240…22260 20 20 20 20 20 6e 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 ┆ next_entry(.w3.,w1); en┆
0x22260…2227e 64 3b 0a 0a 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 63 61 74 61 6c 6f 67 29 3b ┆d; w3:= address(catalog);┆
0x2227e…22284 (0x4b4,0x446)
0x22284…222a0 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 72 65 ┆ monitor(64); comment re┆
0x222a0…222c0 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 75 63 ┆move; w0:= lcatbase; w1:= uc┆
0x222c0…222e0 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 20 63 ┆atbase; w3:= address(nul); c┆
0x222e0…222fc 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 ┆omment myself; monitor(7┆
0x222fc…22302 (0x4b4,0x447)
0x22302…22320 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 66 69 ┆2); comment set catbase; fi┆
0x22320…22340 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 20 28 ┆nis: w3:= mee+50; w3:= (┆
0x22340…22360 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 28 77 ┆w3).word+2; pname1:= f1:= (w┆
0x22360…2237a 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 ┆3).double; w3+4; p┆
0x2237a…22380 (0x4b4,0x448)
0x22380…223a0 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 77 31 ┆name2:= f1:= (w3).double; w1┆
0x223a0…223c0 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 72 65 ┆:= address(finis_op); w3:= addre┆
0x223c0…223e0 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 20 20 ┆ss(pname1); monitor(16); ┆
0x223e0…22400 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 00 00 00 00 00 00 00 00 ┆ monitor(18); end; ┆
0x22400…22406 (274,) (0x4b4,0x449)
0x22406…22420 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 ┆ body of next_entry ┆
0x22420…22440 62 65 67 69 6e 0a 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 ┆begin incode word sa┆
0x22440…22460 76 65 77 30 3b 20 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 ┆vew0; ref return; ref last┆
0x22460…2247e 65 6e 74 72 79 3a 3d 20 30 2c 20 6e 65 78 74 73 65 67 6d 3a 3d 20 30 2c 20 6c 61 73 74 73 ┆entry:= 0, nextsegm:= 0, lasts┆
0x2247e…22484 (0x4b4,0x44a)
0x22484…224a0 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 6f 69 ┆egm:= 0; comment poi┆
0x224a0…224c0 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 20 20 ┆nters in catalog buffer, ┆
0x224c0…224e0 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 6e 65 ┆ nextsegm is start of ne┆
0x224e0…224fc 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 ┆xt catalog segment, ┆
0x224fc…22502 (0x4b4,0x44b)
0x22502…22520 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 61 73 ┆ lastsegm is end of las┆
0x22520…22540 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 65 67 ┆t segment transferred; beg┆
0x22540…22560 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 3a 3d ┆in return:= w3; savew0:=┆
0x22560…2257a 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; ┆
0x2257a…22580 (0x4b4,0x44c)
0x22580…225a0 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 6e 20 ┆ if w1+(34+33)<nextsegm then ┆
0x225a0…225c0 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 69 6e ┆w1-33 else begin┆
0x225c0…225e0 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 0a 20 ┆ if w1>lastsegm then ┆
0x225e0…22600 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 00 00 00 00 00 00 00 00 ┆ begin comment s ┆
0x22600…22606 (275,) (0x4b4,0x44d)
0x22606…22620 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 ┆tart catalog scan or chang┆
0x22620…22640 65 20 64 61 74 61 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 ┆e databuf; transport┆
0x22640…22660 28 2e 77 33 2e 2c 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 ┆(.w3.,w1); comment return: bytes┆
0x22660…2267e 20 74 72 61 6e 73 66 65 72 72 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ transferred; if w┆
0x2267e…22684 (0x4b4,0x44e)
0x22684…226a0 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 6e 0a ┆1<>0 then begin ┆
0x226a0…226c0 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 0a 20 ┆ w0:= b.buffirst; ┆
0x226c0…226e0 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 20 20 ┆ w0+w1-1; ┆
0x226e0…226fc 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; ┆
0x226fc…22702 (0x4b4,0x44f)
0x22702…22720 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 20 20 ┆ w1:= b.buffirst; ┆
0x22720…22740 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 20 20 ┆ w0:= w1+512; ┆
0x22740…22760 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 64 3b ┆ nextsegm:= w0; end;┆
0x22760…2277a 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 ┆ end e┆
0x2277a…22780 (0x4b4,0x450)
0x22780…227a0 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 20 20 ┆lse begin ┆
0x227a0…227c0 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 3d 20 ┆w1:= nextsegm; w0:= ┆
0x227c0…227e0 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 20 77 ┆w1+512; nextsegm:= w┆
0x227e0…22800 30 3b 0a 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 ┆0; end; ┆
0x22800…22806 (276,) (0x4b4,0x451)
0x22806…22820 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 ┆ end; w0:= savew┆
0x22820…22840 30 3b 20 77 33 3a 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 ┆0; w3:= return; lastentry:= w1;┆
0x22840…22860 0a 20 20 20 20 20 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 ┆ end; end; body o┆
0x22860…2287e 66 20 72 65 6d 6f 76 65 5f 65 6e 74 72 79 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆f remove_entry begin ┆
0x2287e…22884 (0x4b4,0x452)
0x22884…228a0 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 73 61 ┆ incode word savew0,sa┆
0x228a0…228c0 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 65 6c ┆vew1; ref return; word hel┆
0x228c0…228e0 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 3d 20 ┆p; begin return:= ┆
0x228e0…228fc 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;┆
0x228fc…22902 (0x4b4,0x453)
0x22902…22920 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 3b 0a ┆ w3:= address(b.nul); ┆
0x22920…22940 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 65 74 ┆ f1:= (w1).catbase; ! set┆
0x22940…22960 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 72 20 ┆ catalog base ! monitor ┆
0x22960…2297a 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 ┆(72); ! to that of entry !┆
0x2297a…22980 (0x4b4,0x454)
0x22980…229a0 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 77 33 ┆ w1:= savew1; w3┆
0x229a0…229c0 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 3b 0a ┆:= w1 + 6; monitor(48); ┆
0x229c0…229e0 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 72 6e ┆ w0:= savew0; w3:= return┆
0x229e0…22a00 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 0a 00 00 00 00 00 00 00 00 ┆; end; end; ┆
0x22a00…22a06 (277,) (0x4b4,0x455)
0x22a06…22a20 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 ┆ body of transport ┆
0x22a20…22a40 62 65 67 69 6e 0a 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 ┆begin label rep; inc┆
0x22a40…22a60 6f 64 65 0a 20 20 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 ┆ode word status, bytes, ch┆
0x22a60…22a7e 61 72 73 2c 20 77 34 2c 20 77 35 2c 77 36 2c 20 77 37 2c 77 38 3b 0a 20 20 20 20 20 20 77 ┆ars, w4, w5,w6, w7,w8; w┆
0x22a7e…22a84 (0x4b4,0x456)
0x22a84…22aa0 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 0a 20 ┆ord savew0; double savef3; ┆
0x22aa0…22ac0 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 3b 20 ┆ begin savew0:= w0; ┆
0x22ac0…22ae0 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 20 20 ┆savef3:= f3; rep: ┆
0x22ae0…22afc 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); ┆
0x22afc…22b02 (0x4b4,0x457)
0x22b02…22b20 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 20 20 ┆ w3:= address(b.catalog); ┆
0x22b20…22b40 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 20 61 ┆ monitor(16); w1:= a┆
0x22b40…22b60 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 72 28 ┆ddress(status); monitor(┆
0x22b60…22b7a 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 ┆18); w2:= 1 lshift┆
0x22b7a…22b80 (0x4b4,0x458)
0x22b80…22ba0 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 20 73 ┆ w0 or status; comment compute s┆
0x22ba0…22bc0 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 3a 3d ┆tatus; if w0=2 then w0:=┆
0x22bc0…22be0 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 20 20 ┆ 5; if w0=5 then ┆
0x22be0…22c00 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 72 65 61 74 65 20 61 72 00 00 00 00 00 00 00 00 ┆ begin comment create ar ┆
0x22c00…22c06 (278,) (0x4b4,0x459)
0x22c06…22c20 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 ┆ea process; moni┆
0x22c20…22c40 74 6f 72 28 35 32 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 ┆tor(52); if w0=0 then ┆
0x22c40…22c60 67 6f 74 6f 20 72 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 ┆goto rep; end; i┆
0x22c60…22c7e 66 20 77 31 3a 3d 62 79 74 65 73 3c 3e 30 20 74 68 65 6e 20 62 2e 6d 5f 73 65 67 6d 3a 3d ┆f w1:=bytes<>0 then b.m_segm:=┆
0x22c7e…22c84 (0x4b4,0x45a)
0x22c84…22ca0 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 65 67 ┆ w0:= w1 lshift -9 + b.m_seg┆
0x22ca0…22cc0 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 20 20 ┆m; if w2=2 then ┆
0x22cc0…22ce0 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 6f 74 ┆begin if w1=0 then got┆
0x22ce0…22cfc 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 ┆o rep; comment stopped; ┆
0x22cfc…22d02 (0x4b4,0x45b)
0x22d02…22d20 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 ┆ end else b┆
0x22d20…22d40 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 6f 6d ┆egin if w2<>262146 com┆
0x22d40…22d60 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 65 67 ┆ment end-doc; then beg┆
0x22d60…22d7a 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 ┆in comment har┆
0x22d7a…22d80 (0x4b4,0x45c)
0x22d80…22da0 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 6d 65 ┆d error; key(b.pname┆
0x22da0…22dc0 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 20 20 ┆1):= w1; end; ┆
0x22dc0…22de0 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 20 73 ┆end; w0:= savew0; f3:= s┆
0x22de0…22e00 61 76 65 66 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆avef3; end; en ┆
0x22e00…22e06 (279,) (0x4b4,0x45d)
0x22e06…22e20 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 ┆d; end. p: w1:= a┆
0x22e20…22e40 64 64 72 65 73 73 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 ┆ddress(b.m_op); inc┆
0x22e40…22e60 6f 64 65 0a 20 20 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 ┆ode word status, bytes, ch┆
0x22e60…22e7e 61 72 73 2c 20 77 34 2c 20 77 35 2c 77 36 2c 20 77 37 2c 77 38 3b 0a 20 20 20 20 20 20 77 ┆ars, w4, w5,w6, w7,w8; w┆
0x22e7e…22e84 (0x518,0x45e)
0x22e84…22ea0 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 74 69 ┆begin <* the program initi┆
0x22ea0…22ec0 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 0a 20 ┆alizes, updates and/or lists a ┆
0x22ec0…22ee0 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 65 76 ┆ sos-usercatalog. for ev┆
0x22ee0…22efc 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 ┆ery process (user) the catal┆
0x22efc…22f02 (0x518,0x45f)
0x22f02…22f20 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 20 20 ┆og keeps information about ┆
0x22f20…22f40 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 20 72 ┆ the process' bases, need for r┆
0x22f40…22f60 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 73 65 ┆esources and a fp-string for use┆
0x22f60…22f7a 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 ┆ when starting the pr┆
0x22f7a…22f80 (0x518,0x460)
0x22f80…22fa0 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 74 69 ┆ocess. apart from that informati┆
0x22fa0…22fc0 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 6c 6c ┆ons about the terminals all┆
0x22fc0…22fe0 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 73 73 ┆owed to communicate this process┆
0x22fe0…23000 2c 20 69 73 20 72 65 67 69 73 74 65 72 65 64 2e 0a 0a 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆, is registered. ┆
0x23000…23006 (280,) (0x518,0x461)
0x23006…23020 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 ┆process-name 8 half-┆
0x23020…23040 77 6f 72 64 73 0a 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 ┆words ! buffers ┆
0x23040…23060 20 20 31 20 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 ┆ 1 - ! ┆
0x23060…2307e 20 21 20 61 72 65 61 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 2d 20 20 ┆ ! areas 1 - ┆
0x2307e…23084 (0x518,0x462)
0x23084…230a0 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 74 64 ┆ ! ! std┆
0x230a0…230c0 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 20 20 ┆-,user-,maxbase 12 - ┆
0x230c0…230e0 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 20 20 ┆ ! process-describtion ┆
0x230e0…230fc 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 ┆
0x230fc…23102 (0x518,0x463)
0x23102…23120 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 6d ┆ - ! ! m┆
0x23120…23140 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 20 20 ┆in-, maxsize 4 - ┆
0x23140…23160 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 20 20 ┆ ! ! filler ┆
0x23160…2317a 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 - ┆
0x2317a…23180 (0x518,0x464)
0x23180…231a0 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 20 20 ┆ ! ! fp-string ┆
0x231a0…231c0 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 20 21 ┆40 - ! !┆
0x231c0…231e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x231e0…23200 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 21 20 20 21 20 00 00 00 00 00 00 00 00 ┆ ! ! ! ┆
0x23200…23206 (281,) (0x518,0x465)
0x23206…23220 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 ┆ !12 ┆
0x23220…23240 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 64 65 76 69 63 65 ┆ ! ! ! device┆
0x23240…23260 2d 6e 61 6d 65 20 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 ┆-name !288 - device- ┆
0x23260…2327e 20 21 0a 20 20 20 20 20 21 20 20 21 20 65 6e 74 72 79 2d 2c 73 65 67 6d 73 20 21 20 20 20 ┆ ! ! ! entry-,segms ! ┆
0x2327e…23284 (0x518,0x466)
0x23284…232a0 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 0a 20 ┆ describtion ! ┆
0x232a0…232c0 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 20 20 ┆ ! ! !12 ┆
0x232c0…232e0 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 20 20 ┆ ! ! ┆
0x232e0…232fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x232fc…23302 (0x518,0x467)
0x23302…23320 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 20 20 ┆ ! ! ┆
0x23320…23340 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 72 6d ┆ ! ! term┆
0x23340…23360 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 20 20 ┆inal external id 8 - ! ┆
0x23360…2337a 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 ┆
0x2337a…23380 (0x518,0x468)
0x23380…233a0 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 20 20 ┆ - ! terminal- ! ┆
0x233a0…233c0 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 72 69 ┆ userkey 8 - ! descri┆
0x233c0…233e0 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 20 20 ┆btion ! bufring ┆
0x233e0…23400 20 20 31 20 20 20 20 2d 20 20 20 21 0a 20 20 20 20 20 21 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ 1 - ! ! ┆
0x23400…23406 (282,) (0x518,0x469)
0x23406…23420 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 ┆ timecount 1 - ┆
0x23420…23440 21 0a 20 20 20 20 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 ┆! ! filler 6 ┆
0x23440…23460 20 20 20 2d 20 20 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 ┆ - ! ! ┆
0x23460…2347e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 0a 20 20 20 20 20 74 68 65 20 66 69 72 ┆ ! the fir┆
0x2347e…23484 (0x518,0x46a)
0x23484…234a0 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 6f 67 ┆st n segments of the catalog┆
0x234a0…234c0 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 74 68 ┆ is an indexregister for th┆
0x234c0…234e0 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 20 6d ┆e rest. n is computed from the m┆
0x234e0…234fc 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 ┆aximum number of proces┆
0x234fc…23502 (0x518,0x46b)
0x23502…23520 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 3d 28 ┆ses wanted in the catalog (n=(┆
0x23520…23540 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 73 65 ┆max+49)// 50 , 50 processe┆
0x23540…23560 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 75 6d ┆s per indexsegment). the maximum┆
0x23560…2357a 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 ┆ wanted is specified ┆
0x2357a…23580 (0x518,0x46c)
0x23580…235a0 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 64 2e ┆when the catalog is initialized.┆
0x235a0…235c0 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 6e 20 ┆ every process occupies an ┆
0x235c0…235e0 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 6e 74 ┆integer of segments. the segment┆
0x235e0…23600 73 0a 20 20 20 20 20 6f 66 20 61 20 70 72 6f 63 65 73 73 20 61 72 65 20 00 00 00 00 00 00 00 00 ┆s of a process are ┆
0x23600…23606 (283,) (0x518,0x46d)
0x23606…23620 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 ┆chained in the last word o┆
0x23620…23640 66 20 74 68 65 20 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 ┆f the segment. free segment┆
0x23640…23660 73 20 61 72 65 20 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 ┆s are chained in the last word o┆
0x23660…2367e 66 20 74 68 65 0a 20 20 20 20 20 73 65 67 6d 65 6e 74 73 20 73 74 61 72 74 69 6e 67 20 61 ┆f the segments starting a┆
0x2367e…23684 (0x518,0x46e)
0x23684…236a0 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 0a 20 ┆t the first indexsegment. ┆
0x236a0…236c0 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 65 6e ┆ indexsegments: segmen┆
0x236c0…236e0 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 2d 2d ┆t 0: !------------┆
0x236e0…236fc 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┆
0x236fc…23702 (0x518,0x46f)
0x23702…23720 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 6f 72 ┆ocess-name ! 8 half-wor┆
0x23720…23740 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 70 72 ┆ds ! segm.no of pr┆
0x23740…23760 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 20 20 ┆ocess-descr. ! 2 half-word ┆
0x23760…2377a 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 ┆ !----------------┆
0x2377a…23780 (0x518,0x470)
0x23780…237a0 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 20 20 ┆----! ! . ┆
0x237a0…237c0 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 20 20 ┆ ! ! . ┆
0x237c0…237e0 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 20 ┆ ! ! ┆
0x237e0…23800 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ . ! ┆
0x23800…23806 (284,) (0x518,0x471)
0x23806…23820 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 ┆ ! . ┆
0x23820…23840 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 ┆ ! ! ┆
0x23840…23860 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 20 ┆ ! ! ┆
0x23860…2387e 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 ┆ ! ┆
0x2387e…23884 (0x518,0x472)
0x23884…238a0 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 20 ┆ !--------------------! ┆
0x238a0…238c0 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 20 20 ┆ ! process-name ┆
0x238c0…238e0 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 20 20 ┆! ! segm.no ┆
0x238e0…238fc 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 ┆ ! !------┆
0x238fc…23902 (0x518,0x473)
0x23902…23920 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 ┆--------------! ┆
0x23920…23940 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 ! ┆
0x23940…23960 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 20 20 ┆ ! -1 ! ┆
0x23960…2397a 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 ┆
0x2397a…23980 (0x518,0x474)
0x23980…239a0 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 72 6f ┆ ! word 254 ! no of pro┆
0x239a0…239c0 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 20 77 ┆cesses ! 2 half-words w┆
0x239c0…239e0 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 20 20 ┆ord 255 ! max no processes ! ┆
0x239e0…23a00 32 20 68 61 6c 66 5f 77 6f 72 64 73 0a 20 20 20 20 20 77 6f 72 64 20 32 00 00 00 00 00 00 00 00 ┆2 half_words word 2 ┆
0x23a00…23a06 (285,) (0x518,0x475)
0x23a06…23a20 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 ┆56 ! segm.no first free se┆
0x23a20…23a40 67 2f 2d 31 20 21 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 ┆g/-1 ! 2 half_word ┆
0x23a40…23a60 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 0a 20 20 20 20 20 73 ┆ !--------------------! s┆
0x23a60…23a7e 65 67 6d 65 6e 74 20 6e 2d 31 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 2d 2d 2d ┆egment n-1: !---┆
0x23a7e…23a84 (0x518,0x476)
0x23a84…23aa0 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 ┆-----------------! ┆
0x23aa0…23ac0 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 20 ┆ ! process-name ! ┆
0x23ac0…23ae0 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 21 ┆ ! segm.no !┆
0x23ae0…23afc 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 ┆ !------------┆
0x23afc…23b02 (0x518,0x477)
0x23b02…23b20 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 2e 20 ┆--------! ! . ┆
0x23b20…23b40 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 ┆ ! !┆
0x23b40…23b60 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 20 20 ┆ . ! ┆
0x23b60…23b7a 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 ┆ ! . !┆
0x23b7a…23b80 (0x518,0x478)
0x23b80…23ba0 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 20 ┆ ! ┆
0x23ba0…23bc0 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 20 ┆ ! ! ┆
0x23bc0…23be0 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 ┆ ! !------┆
0x23be0…23c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆--------------! ┆
0x23c00…23c06 (286,) (0x518,0x479)
0x23c06…23c20 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 ┆ ! process-name ┆
0x23c20…23c40 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 20 ┆ ! ! segm.no ┆
0x23c40…23c60 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 2d 2d 2d ┆ ! !---------┆
0x23c60…23c7e 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 2d ┆-----------! ! -┆
0x23c7e…23c84 (0x518,0x47a)
0x23c84…23ca0 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 ┆1 ! ┆
0x23ca0…23cc0 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 20 20 ┆ ! . ! ┆
0x23cc0…23ce0 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 20 20 ┆ ! . ┆
0x23ce0…23cfc 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 ┆! ! ┆
0x23cfc…23d02 (0x518,0x47b)
0x23d02…23d20 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 20 ┆ ! ! ┆
0x23d20…23d40 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 ┆ ! ┆
0x23d40…23d60 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 ! ┆
0x23d60…23d7a 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 ┆ !--------------------┆
0x23d7a…23d80 (0x518,0x47c)
0x23d80…23da0 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 65 73 ┆! segments for processdes┆
0x23da0…23dc0 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 2d 2d ┆cribtion: !------┆
0x23dc0…23de0 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 ┆--------------! ! ┆
0x23de0…23e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x23e00…23e06 (287,) (0x518,0x47d)
0x23e06…23e20 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 ┆ ! process-descr┆
0x23e20…23e40 69 62 74 69 6f 6e 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 ┆ibtion ! ! -proces┆
0x23e40…23e60 73 2d 6e 61 6d 65 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 ┆s-name ! ! -t┆
0x23e60…23e7e 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆erminal-descr. ! ┆
0x23e7e…23e84 (0x518,0x47e)
0x23e84…23ea0 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 20 33 ┆ ! ! 3┆
0x23ea0…23ec0 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 20 20 ┆64 half-words ! ┆
0x23ec0…23ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x23ee0…23efc 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 ┆ ! ! ┆
0x23efc…23f02 (0x518,0x47f)
0x23f02…23f20 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 ┆ !-------------------┆
0x23f20…23f40 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 73 63 ┆-! ! terminal-desc┆
0x23f40…23f60 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 20 20 ┆r1 ! 26 half-words ┆
0x23f60…23f7a 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 ┆ !-------------------┆
0x23f7a…23f80 (0x518,0x480)
0x23f80…23fa0 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 20 20 ┆-! ! . ┆
0x23fa0…23fc0 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 20 20 ┆ ! ! . ┆
0x23fc0…23fe0 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 ┆ ! ! .┆
0x23fe0…24000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x24000…24006 (288,) (0x518,0x481)
0x24006…24020 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 ┆ ! ┆
0x24020…24040 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 20 20 ┆ ! ! ┆
0x24040…24060 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 2d ┆ ! !-------┆
0x24060…2407e 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 ┆-------------! !┆
0x2407e…24084 (0x518,0x482)
0x24084…240a0 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 20 20 ┆ terminal descr 5 ! ┆
0x240a0…240c0 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 0a 20 ┆ !--------------------! ┆
0x240c0…240e0 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 67 6d ┆ word 256 ! segm.no next segm┆
0x240e0…240fc 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 ┆/-1 ! 2 half-words ┆
0x240fc…24102 (0x518,0x483)
0x24102…24120 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 ┆ !--------------------!┆
0x24120…24140 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 2d 2d ┆ !--------------┆
0x24140…24160 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 61 6c ┆------! ! terminal┆
0x24160…2417a 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 ┆ descr 6 ! ┆
0x2417a…24180 (0x518,0x484)
0x24180…241a0 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 20 20 ┆ !--------------------! ┆
0x241a0…241c0 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 20 20 ┆ ! . ! ┆
0x241c0…241e0 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 ┆ ! . ┆
0x241e0…24200 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 2e 20 20 20 00 00 00 00 00 00 00 00 ┆! ! . ┆
0x24200…24206 (289,) (0x518,0x485)
0x24206…24220 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 ┆ ! ┆
0x24220…24240 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 20 20 ┆ ! ! ┆
0x24240…24260 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 ┆ ! ! ┆
0x24260…2427e 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 ┆ ! ┆
0x2427e…24284 (0x518,0x486)
0x24284…242a0 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 ┆ ! ! ┆
0x242a0…242c0 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 2d 2d ┆ ! !--┆
0x242c0…242e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆------------------! ┆
0x242e0…242fc 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 ! ┆
0x242fc…24302 (0x518,0x487)
0x24302…24320 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 2d ┆ !------------------┆
0x24320…24340 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 20 20 ┆--! ! -1 ┆
0x24340…24360 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 20 20 ┆ ! ! . ┆
0x24360…2437a 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 ┆ ! ┆
0x2437a…24380 (0x518,0x488)
0x24380…243a0 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 20 20 ┆ ! . ! ┆
0x243a0…243c0 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 ! ┆
0x243c0…243e0 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 2d 2d ┆ !-------------------┆
0x243e0…24400 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 67 6d 2e 00 00 00 00 00 00 00 00 ┆-! ! segm. ┆
0x24400…24406 (290,) (0x518,0x489)
0x24406…24420 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 ┆no next segm/-1 ! ┆
0x24420…24440 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 0a 0a 20 ┆ !--------------------! ┆
0x24440…24460 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 2d ┆ !------------------┆
0x24460…2447e 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 20 64 ┆--! ! terminal d┆
0x2447e…24484 (0x518,0x48a)
0x24484…244a0 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 2d 2d ┆escr ! !--┆
0x244a0…244c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆------------------! ┆
0x244c0…244e0 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 20 20 ┆ ! . ! ┆
0x244e0…244fc 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 ┆ ! . ┆
0x244fc…24502 (0x518,0x48b)
0x24502…24520 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 20 ┆! ! . ┆
0x24520…24540 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 2d 2d ┆ ! !--------┆
0x24540…24560 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 74 65 ┆------------! ! te┆
0x24560…2457a 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 ┆rminal descr ! ┆
0x2457a…24580 (0x518,0x48c)
0x24580…245a0 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 ┆ !--------------------! ┆
0x245a0…245c0 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 20 20 ┆ ! -1 ┆
0x245c0…245e0 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 20 20 ┆ ! ! . ┆
0x245e0…24600 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 00 00 00 00 00 00 00 00 ┆ ! ! ┆
0x24600…24606 (291,) (0x518,0x48d)
0x24606…24620 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 ┆ . ! ┆
0x24620…24640 20 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 ┆ ! . ! ┆
0x24640…24660 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 20 20 20 20 20 ┆ ! . ┆
0x24660…2467e 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 ┆ ! ! . ┆
0x2467e…24684 (0x518,0x48e)
0x24684…246a0 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 ┆ ! ! ┆
0x246a0…246c0 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 20 20 ┆-1 ! ┆
0x246c0…246e0 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 20 20 ┆ !--------------------! *> ┆
0x246e0…246fc 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┆
0x246fc…24702 (0x518,0x48f)
0x24702…24720 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 20 20 ┆_error, cont, nl, sp, ┆
0x24720…24740 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 74 65 ┆ newpa_read, tempnewcat; inte┆
0x24740…24760 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 20 20 ┆ger elem_in_val, valindex, ┆
0x24760…2477a 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, ┆
0x2477a…24780 (0x518,0x490)
0x24780…247a0 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 72 6f ┆ no, pa, tr, maxpro┆
0x247a0…247c0 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 63 5f ┆cs, index_segm, used_segm, proc_┆
0x247c0…247e0 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 72 6f ┆segms, proc_count, pro┆
0x247e0…24800 63 5f 62 79 74 65 2c 0a 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 63 00 00 00 00 00 00 00 00 ┆c_byte, term_c ┆
0x24800…24806 (292,) (0x518,0x491)
0x24806…24820 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 ┆ount, term_start, term_byt┆
0x24820…24840 65 2c 0a 20 20 20 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 ┆e, trans, paramno, no1┆
0x24840…24860 2c 20 6e 6f 32 2c 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 ┆, no2, i, j, k, last, ┆
0x24860…2487e 20 20 20 20 20 20 20 20 20 20 6e 65 77 2c 20 6f 6c 64 2c 20 66 72 65 65 2c 20 70 72 6f 63 ┆ new, old, free, proc┆
0x2487e…24884 (0x518,0x492)
0x24884…248a0 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 2c 20 ┆_no, stop, proc_segm, term, ┆
0x248a0…248c0 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 70 72 ┆maxsegm, index_lgt, pr┆
0x248c0…248e0 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 5f 70 ┆oc_des_lgt, term_des_lgt, proc_p┆
0x248e0…248fc 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 ┆a_lgt, term_pa_lgt┆
0x248fc…24902 (0x518,0x493)
0x24902…24920 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 65 67 ┆, proc_pr_index, term_pr_prseg┆
0x24920…24940 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 65 5f ┆m, term_pr_segm, free_┆
0x24940…24960 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 72 6e ┆w_prsegm, free_w_segm, great_trn┆
0x24960…2497a 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 ┆o, tr_end, tr_ma┆
0x2497a…24980 (0x518,0x494)
0x24980…249a0 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 2c 20 ┆xp, tr_proc, pa_term, pa_dterm, ┆
0x249a0…249c0 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 68 6f ┆lastterm,no_of_bs; real sho┆
0x249c0…249e0 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 20 71 ┆rt; integer array cat_table, q┆
0x249e0…24a00 75 6f 74 65 5f 74 61 62 6c 65 28 30 3a 31 32 37 29 2c 20 76 61 6c 2c 20 00 00 00 00 00 00 00 00 ┆uote_table(0:127), val, ┆
0x24a00…24a06 (293,) (0x518,0x495)
0x24a06…24a20 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 ┆kind(1:120), ┆
0x24a20…24a40 20 20 20 67 6c 76 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 ┆ glval, glkind(1:120), ┆
0x24a40…24a60 20 20 20 20 20 20 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 ┆ proc_params(1:182), ter┆
0x24a60…24a7e 6d 5f 70 61 72 61 6d 73 28 31 3a 31 33 29 2c 20 74 61 69 6c 28 31 3a 31 30 29 2c 0a 20 20 ┆m_params(1:13), tail(1:10), ┆
0x24a7e…24a84 (0x518,0x496)
0x24a84…24aa0 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 20 20 ┆ index(1:5); ┆
0x24aa0…24ac0 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 62 73 ┆long array param(0:22), first_bs┆
0x24ac0…24ae0 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 61 74 ┆_device, outfile, oldcat, newcat┆
0x24ae0…24afc 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 ┆, proc_name, name(1:2); bo┆
0x24afc…24b02 (0x518,0x497)
0x24b02…24b20 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 20 74 ┆olean field buf, area, bufs, t┆
0x24b20…24b40 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 67 6d ┆ime; integer field csegm, segm┆
0x24b40…24b60 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 20 20 ┆, intid, next, entr, ┆
0x24b60…24b7a 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, ┆
0x24b7a…24b80 (0x518,0x498)
0x24b80…24ba0 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 20 6d ┆ std1, std2, use1, use2, m┆
0x24ba0…24bc0 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 20 61 ┆ax1, max2, k0s, k0e; integer a┆
0x24bc0…24be0 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 20 20 ┆rray field word, perm1, perm; ┆
0x24be0…24c00 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 61 73 73 2c 20 65 00 00 00 00 00 00 00 00 ┆long array field pass, e ┆
0x24c00…24c06 (294,) (0x518,0x499)
0x24c06…24c20 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 ┆xid, key, fp, dev, lbase; ┆
0x24c20…24c40 20 20 72 65 61 6c 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 ┆ real array field base, base1, ┆
0x24c40…24c60 62 61 73 65 32 3b 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 ┆base2; zone zonew, zoold(128*3┆
0x24c60…24c7e 2c 20 33 2c 20 73 74 64 65 72 72 6f 72 29 2c 0a 20 20 20 20 20 20 20 20 7a 6f 6f 75 74 28 ┆, 3, stderror), zoout(┆
0x24c7e…24c84 (0x518,0x49a)
0x24c84…24ca0 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 20 3c ┆128*2, 2, stderror); <┆
0x24ca0…24cc0 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 20 20 ┆* variables: area ┆
0x24cc0…24ce0 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 64 65 ┆ : points to areas in processde┆
0x24ce0…24cfc 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 ┆scribtion. base, base1,┆
0x24cfc…24d02 (0x518,0x49b)
0x24d02…24d20 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 20 20 ┆ base2 : help-variables. ┆
0x24d20…24d40 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 66 65 ┆buf : points to buffe┆
0x24d40…24d60 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 20 20 ┆rs in processdescr. bufs ┆
0x24d60…24d7a 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┆
0x24d7a…24d80 (0x518,0x49c)
0x24d80…24da0 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 74 61 ┆g in terminal-descr. cat_ta┆
0x24da0…24dc0 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 20 66 ┆ble : definition of kinds f┆
0x24dc0…24de0 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 20 20 ┆or characters normally read. ┆
0x24de0…24e00 20 20 63 6f 6e 74 20 20 20 20 20 20 20 20 20 20 20 3a 20 75 73 65 64 20 00 00 00 00 00 00 00 00 ┆ cont : used ┆
0x24e00…24e06 (295,) (0x518,0x49d)
0x24e06…24e20 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 ┆in connection with for-whi┆
0x24e20…24e40 6c 65 20 73 74 61 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 ┆le statements. csegm ┆
0x24e40…24e60 20 20 20 3a 20 70 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 ┆ : points to segments in proce┆
0x24e60…24e7e 73 73 64 65 73 63 72 2e 0a 20 20 20 20 20 64 61 74 61 65 72 72 6f 72 20 20 20 20 20 20 3a ┆ssdescr. dataerror :┆
0x24e7e…24e84 (0x518,0x49e)
0x24e84…24ea0 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 75 72 ┆ true errors has occured dur┆
0x24ea0…24ec0 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 20 20 ┆ing updating ┆
0x24ec0…24ee0 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 20 20 ┆ false otherwise. dev ┆
0x24ee0…24efc 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┆
0x24efc…24f02 (0x518,0x49f)
0x24f02…24f20 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 6d 5f ┆ame in devicedescr. elem_┆
0x24f20…24f40 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 20 69 ┆in_val : number of elements i┆
0x24f40…24f60 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 20 20 ┆n val and kind. em ┆
0x24f60…24f7a 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┆
0x24f7a…24f80 (0x518,0x4a0)
0x24f80…24fa0 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 20 20 ┆nd or the character em ┆
0x24fa0…24fc0 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 64 0a ┆ has been read ┆
0x24fc0…24fe0 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┆
0x24fe0…25000 72 77 69 73 65 2e 0a 20 20 20 20 20 65 6e 74 72 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆rwise. entr ┆
0x25000…25006 (296,) (0x518,0x4a1)
0x25006…25020 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 ┆ : points to entries in ┆
0x25020…25040 70 72 6f 63 65 73 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 ┆processdescr. exid ┆
0x25040…25060 20 20 3a 20 70 6f 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 ┆ : points to external-id. in te┆
0x25060…2507e 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 66 69 72 73 74 5f 62 73 5f 64 65 ┆rminal-descr. first_bs_de┆
0x2507e…25084 (0x518,0x4a2)
0x25084…250a0 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 69 63 ┆vice: name of first bs devic┆
0x250a0…250c0 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 20 20 ┆e from monitor table. fp ┆
0x250c0…250e0 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 6e 64 ┆ : points to fp-command┆
0x250e0…250fc 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 ┆ in process-descr. free┆
0x250fc…25102 (0x518,0x4a3)
0x25102…25120 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 6e 74 ┆ : number of segment┆
0x25120…25140 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 65 65 ┆ used during updating. free┆
0x25140…25160 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 66 72 ┆_w_prsegm : address of first fr┆
0x25160…2517a 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 ┆ee word after ┆
0x2517a…25180 (0x518,0x4a4)
0x25180…251a0 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 69 6e ┆ last terminal-descr in┆
0x251a0…251c0 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 0a 20 ┆ a segment with process-descr. ┆
0x251c0…251e0 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 66 20 ┆ free_w_segm : address of ┆
0x251e0…25200 66 69 72 73 74 20 66 72 65 65 20 77 6f 72 64 20 61 66 74 65 72 20 6c 61 00 00 00 00 00 00 00 00 ┆first free word after la ┆
0x25200…25206 (297,) (0x518,0x4a5)
0x25206…25220 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 ┆st terminal-descr ┆
0x25220…25240 20 20 20 20 20 20 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 ┆ in a segment witho┆
0x25240…25260 75 74 20 70 72 6f 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 ┆ut processdescr. great_trno┆
0x25260…2527e 20 20 20 20 20 3a 20 67 72 65 61 74 65 73 74 20 76 61 6c 75 65 20 6f 66 20 61 20 74 72 61 ┆ : greatest value of a tra┆
0x2527e…25284 (0x518,0x4a6)
0x25284…252a0 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 20 20 ┆nsaction. i ┆
0x252a0…252c0 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 20 20 ┆ : help-variable. index ┆
0x252c0…252e0 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 74 73 ┆ : array for indexelements┆
0x252e0…252fc 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 ┆. index_lgt : leng┆
0x252fc…25302 (0x518,0x4a7)
0x25302…25320 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 66 2d ┆th of an indexsegment in half-┆
0x25320…25340 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 6f 69 ┆words. index_segm : poi┆
0x25340…25360 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 20 69 ┆nts out an index_segment. i┆
0x25360…2537a 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 ┆nit : true new c┆
0x2537a…25380 (0x518,0x4a8)
0x25380…253a0 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 20 20 ┆atalog is to be initialized ┆
0x253a0…253c0 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 67 20 ┆ false catalog ┆
0x253c0…253e0 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 20 20 ┆is to be updated. intid ┆
0x253e0…25400 20 20 20 20 20 20 3a 20 70 6f 69 6e 74 73 20 74 6f 20 6c 6f 63 61 6c 2d 00 00 00 00 00 00 00 00 ┆ : points to local- ┆
0x25400…25406 (298,) (0x518,0x4a9)
0x25406…25420 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 ┆id. in terminal-descr. ┆
0x25420…25440 20 20 6a 2c 20 6b 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 ┆ j, k : help-variable┆
0x25440…25460 73 2e 0a 20 20 20 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 ┆s. key : points ┆
0x25460…2547e 74 6f 20 75 73 65 72 6b 65 79 20 69 6e 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 0a ┆to userkey in terminal-descr. ┆
0x2547e…25484 (0x518,0x4aa)
0x25484…254a0 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 61 74 ┆ kind : inddat┆
0x254a0…254c0 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 20 20 ┆a stored by use of readall. ┆
0x254c0…254e0 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 74 72 ┆ k0e : points to entr┆
0x254e0…254fc 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 ┆ies of key0 in devicedescr. ┆
0x254fc…25502 (0x518,0x4ab)
0x25502…25520 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 20 74 ┆ k0s : points t┆
0x25520…25540 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 65 73 ┆o segments of key0 in device-des┆
0x25540…25560 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 65 72 ┆cr. last : number┆
0x25560…2557a 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 ┆ of segment used during up┆
0x2557a…25580 (0x518,0x4ac)
0x25580…255a0 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 68 65 ┆dating. last_term : he┆
0x255a0…255c0 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 20 20 ┆lp-variable. lbase ┆
0x255c0…255e0 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 20 20 ┆ : help-variable. list ┆
0x255e0…25600 20 20 20 20 20 20 3a 20 74 72 75 65 20 6e 65 77 20 63 61 74 61 6c 6f 67 00 00 00 00 00 00 00 00 ┆ : true new catalog ┆
0x25600…25606 (299,) (0x518,0x4ad)
0x25606…25620 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 ┆ is to be listed after upd┆
0x25620…25640 61 74 69 6e 67 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 ┆ating fals┆
0x25640…25660 65 20 6f 74 68 65 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 ┆e otherwise. maxprocs ┆
0x25660…2567e 20 3a 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 63 65 73 73 65 73 ┆ : maximum number of processes┆
0x2567e…25684 (0x518,0x4ae)
0x25684…256a0 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 20 20 ┆ for which there are ┆
0x256a0…256c0 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 65 78 ┆ room in the index┆
0x256c0…256e0 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 3a 20 ┆segments. maxsegm : ┆
0x256e0…256fc 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┆
0x256fc…25702 (0x518,0x4af)
0x25702…25720 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 20 20 ┆g beeing updated. maxs ┆
0x25720…25740 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 20 70 ┆ : points to maxsize in p┆
0x25740…25760 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 20 20 ┆rocess-descr. max1, max2 ┆
0x25760…2577a 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 ┆
0x2577a…25780 (0x518,0x4b0)
0x25780…257a0 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 20 20 ┆process-descr. mins ┆
0x257a0…257c0 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 65 73 ┆ : points to minsize in proces┆
0x257c0…257e0 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 20 6e ┆s-descr. name : n┆
0x257e0…25800 61 6d 65 20 72 65 61 64 20 66 72 6f 6d 20 69 6e 64 64 61 74 61 2e 0a 20 00 00 00 00 00 00 00 00 ┆ame read from inddata. ┆
0x25800…25806 (300,) (0x518,0x4b1)
0x25806…25820 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 ┆ new : numbe┆
0x25820…25840 72 20 6f 66 20 73 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 ┆r of segments used during updati┆
0x25840…25860 6e 67 2e 0a 20 20 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 ┆ng. newcat : name o┆
0x25860…2587e 66 20 6e 65 77 20 63 61 74 61 6c 6f 67 2e 0a 20 20 20 20 20 6e 65 77 5f 70 61 5f 72 65 61 ┆f new catalog. new_pa_rea┆
0x2587e…25884 (0x518,0x4b2)
0x25884…258a0 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 65 74 ┆d : true if a new paramet┆
0x258a0…258c0 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 20 20 ┆er has been read ┆
0x258c0…258e0 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 65 78 ┆ false otherwise. nex┆
0x258e0…258fc 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 ┆t : help-variable.┆
0x258fc…25902 (0x518,0x4b3)
0x25902…25920 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 65 20 ┆ nl : =false ┆
0x25920…25940 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 73 2e ┆add 10, used in writestatements.┆
0x25940…25960 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 64 20 ┆ no : =0, used ┆
0x25960…2597a 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 ┆in calls of the procedure ┆
0x2597a…25980 (0x518,0x4b4)
0x25980…259a0 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 62 65 ┆error. no_of_bs : numbe┆
0x259a0…259c0 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 20 20 ┆r of bs devices no1, no2 ┆
0x259c0…259e0 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 20 20 ┆ : help-variables. old ┆
0x259e0…25a00 20 20 20 20 20 20 20 20 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 00 00 00 00 00 00 00 00 ┆ : number of se ┆
0x25a00…25a06 (301,) (0x518,0x4b5)
0x25a06…25a20 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 ┆gments used during updatin┆
0x25a20…25a40 67 2e 0a 20 20 20 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 ┆g. oldcat : name of┆
0x25a40…25a60 20 63 61 74 61 6c 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 ┆ catalog if updating is wanted. ┆
0x25a60…25a7e 20 20 20 20 20 6f 75 74 66 69 6c 65 20 20 20 20 20 20 20 20 3a 20 6e 61 6d 65 20 6f 66 20 ┆ outfile : name of ┆
0x25a7e…25a84 (0x518,0x4b6)
0x25a84…25aa0 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 65 64 ┆outfile if listing is wanted┆
0x25aa0…25ac0 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 65 64 ┆. pa : =1, used┆
0x25ac0…25ae0 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 6f 72 ┆ in calls of the procedure error┆
0x25ae0…25afc 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 ┆. pa_dterm : valu┆
0x25afc…25b02 (0x518,0x4b7)
0x25b02…25b20 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 20 20 ┆e of the parameter dterm. ┆
0x25b20…25b40 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 68 61 ┆ param : first four cha┆
0x25b40…25b60 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 20 20 ┆racters of all parameters. ┆
0x25b60…25b7a 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┆
0x25b7a…25b80 (0x518,0x4b8)
0x25b80…25ba0 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 2e 0a ┆ the parameter beeing executed. ┆
0x25ba0…25bc0 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 6f 20 ┆ pass : points to ┆
0x25bc0…25be0 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 20 20 ┆password in process-descr. ┆
0x25be0…25c00 70 61 5f 74 65 72 6d 20 20 20 20 20 20 20 20 3a 20 76 61 6c 75 65 20 6f 00 00 00 00 00 00 00 00 ┆pa_term : value o ┆
0x25c00…25c06 (302,) (0x518,0x4b9)
0x25c06…25c20 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 ┆f the parameter term. ┆
0x25c20…25c40 20 70 65 72 6d 20 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 ┆ perm : points to devi┆
0x25c40…25c60 63 65 6e 61 6d 65 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 ┆cename in process-descr. pe┆
0x25c60…25c7e 72 6d 31 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 ┆rm1 : points to devic┆
0x25c7e…25c84 (0x518,0x4ba)
0x25c84…25ca0 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 63 29 ┆ename of first device (disc)┆
0x25ca0…25cc0 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 65 73 ┆ in proces┆
0x25cc0…25ce0 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 20 75 ┆s-descr. proc_byte : u┆
0x25ce0…25cfc 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 ┆sed as parameter in calls of┆
0x25cfc…25d02 (0x518,0x4bb)
0x25d02…25d20 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 20 20 ┆ the procedure ┆
0x25d20…25d40 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 74 20 ┆ segm_no. proc_count ┆
0x25d40…25d60 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 61 6c ┆ : no of process in the catal┆
0x25d60…25d7a 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 ┆og. proc_des_lgt : ┆
0x25d7a…25d80 (0x518,0x4bc)
0x25d80…25da0 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 61 6c ┆length of a process-descr in hal┆
0x25da0…25dc0 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 20 70 ┆f-words. proc_name : p┆
0x25dc0…25de0 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 20 20 ┆rocess-name. proc_no ┆
0x25de0…25e00 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 63 65 73 73 2e 0a 20 20 00 00 00 00 00 00 00 00 ┆ : number of process. ┆
0x25e00…25e06 (303,) (0x518,0x4bd)
0x25e06…25e20 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 ┆ proc_pa_lgt : great ┆
0x25e20…25e40 69 6e 64 65 78 20 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 ┆index of the array proc_params. ┆
0x25e40…25e60 20 20 20 20 20 70 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 ┆ proc_params : array for ┆
0x25e60…25e7e 70 72 6f 63 65 73 73 2d 64 65 73 63 72 2e 0a 20 20 20 20 20 70 72 6f 63 5f 70 72 5f 69 6e ┆process-descr. proc_pr_in┆
0x25e7e…25e84 (0x518,0x4be)
0x25e84…25ea0 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 61 6d ┆dex : number of process-nam┆
0x25ea0…25ec0 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 5f 73 ┆es per indexsegment. proc_s┆
0x25ec0…25ee0 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 6f 6e ┆egm : number of segment con┆
0x25ee0…25efc 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 ┆taining process-descr. ┆
0x25efc…25f02 (0x518,0x4bf)
0x25f02…25f20 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 63 75 ┆proc_segms : segments occu┆
0x25f20…25f40 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 65 5f ┆pied by one process. quote_┆
0x25f40…25f60 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 20 66 ┆table : definition of kinds f┆
0x25f60…25f7a 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 ┆or characters read in ┆
0x25f7a…25f80 (0x518,0x4c0)
0x25f80…25fa0 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 69 74 ┆ connection wit┆
0x25fa0…25fc0 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 3a 20 ┆h quotes. segm : ┆
0x25fc0…25fe0 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 64 65 ┆points to segment-number in ende┆
0x25fe0…26000 78 65 6c 65 6d 65 6e 74 2e 0a 20 20 20 20 20 73 68 6f 72 74 20 20 20 20 00 00 00 00 00 00 00 00 ┆xelement. short ┆
0x26000…26006 (304,) (0x518,0x4c1)
0x26006…26020 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 ┆ : used in connection┆
0x26020…26040 20 77 69 74 68 20 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 ┆ with systime(7,..)- ┆
0x26040…26060 20 20 20 20 20 20 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 ┆ get shortclock. ┆
0x26060…2607e 73 70 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 3d 20 66 61 6c 73 65 20 61 64 64 20 33 ┆sp : = false add 3┆
0x2607e…26084 (0x518,0x4c2)
0x26084…260a0 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 2e 0a ┆2, used in writestatements. ┆
0x260a0…260c0 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 6f 20 ┆ std1, std2 : points to ┆
0x260c0…260e0 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 2e 0a ┆standardbases in process-descr. ┆
0x260e0…260fc 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┆
0x260fc…26102 (0x518,0x4c3)
0x26102…26120 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 74 61 ┆n connection with for-step-sta┆
0x26120…26140 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 20 75 ┆tements. tail : u┆
0x26140…26160 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 70 72 ┆sed in connection with monitorpr┆
0x26160…2617a 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 ┆ocedures. tempnewcat ┆
0x2617a…26180 (0x518,0x4c4)
0x26180…261a0 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 20 68 ┆ : true if a temporary file h┆
0x261a0…261c0 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 20 20 ┆as been created for ┆
0x261c0…261e0 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 20 20 ┆ the new catalog ┆
0x261e0…26200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 6f 74 00 00 00 00 00 00 00 00 ┆ false ot ┆
0x26200…26206 (305,) (0x518,0x4c5)
0x26206…26220 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 ┆herwise. term ┆
0x26220…26240 20 20 20 3a 20 6e 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 ┆ : number of segment containin┆
0x26240…26260 67 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 5f 62 79 74 65 ┆g terminal-descr. term_byte┆
0x26260…2627e 20 20 20 20 20 20 3a 20 75 73 65 64 20 61 73 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 63 ┆ : used as parameter in c┆
0x2627e…26284 (0x518,0x4c6)
0x26284…262a0 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 20 20 ┆alls of the procedure ┆
0x262a0…262c0 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 20 20 ┆ term_segm. ┆
0x262c0…262e0 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 20 6f ┆term_count : counts number o┆
0x262e0…262fc 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 ┆f terminals belonging to one┆
0x262fc…26302 (0x518,0x4c7)
0x26302…26320 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 73 73 ┆ process┆
0x26320…26340 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 20 6f ┆. term_des_lgt : length o┆
0x26340…26360 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 72 64 ┆f a terminal-descr. in half-word┆
0x26360…2637a 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 ┆s. term_pa_lgt : g┆
0x2637a…26380 (0x518,0x4c8)
0x26380…263a0 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 61 72 ┆reat index of the array term_par┆
0x263a0…263c0 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 61 79 ┆ams. term_params : array┆
0x263c0…263e0 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 5f 70 ┆ for terminal-descr. term_p┆
0x263e0…26400 72 5f 70 72 73 65 67 6d 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 72 00 00 00 00 00 00 00 00 ┆r_prsegm : number of ter ┆
0x26400…26406 (306,) (0x518,0x4c9)
0x26406…26420 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 ┆minal-describtions pr segm┆
0x26420…26440 65 6e 74 0a 20 20 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 ┆ent with p┆
0x26440…26460 72 6f 63 65 73 73 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 ┆rocess-descr. term_pr_segm ┆
0x26460…2647e 20 20 3a 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 72 6d 69 6e 61 6c 2d 64 65 73 63 72 2e 20 ┆ : number of terminal-descr. ┆
0x2647e…26484 (0x518,0x4ca)
0x26484…264a0 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 20 20 ┆pr segment ┆
0x264a0…264c0 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 20 20 ┆ without terminal-descr. ┆
0x264c0…264e0 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 74 68 ┆ term_start : points out th┆
0x264e0…264fc 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 ┆e start of terminal-describt┆
0x264fc…26502 (0x518,0x4cb)
0x26502…26520 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 6e 20 ┆ions in ┆
0x26520…26540 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 20 3a ┆a segment. time :┆
0x26540…26560 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 61 6c ┆ points to timecount in terminal┆
0x26560…2657a 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 ┆-descr. tr ┆
0x2657a…26580 (0x518,0x4cc)
0x26580…265a0 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 70 72 ┆ : = 2, used in calls of the pr┆
0x265a0…265c0 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 20 20 ┆ocedure error. trans ┆
0x265c0…265e0 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 20 62 ┆ : number of the transaction b┆
0x265e0…26600 65 65 69 6e 67 20 65 78 65 63 75 74 65 64 2e 0a 20 20 20 20 20 74 72 5f 00 00 00 00 00 00 00 00 ┆eeing executed. tr_ ┆
0x26600…26606 (307,) (0x518,0x4cd)
0x26606…26620 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 ┆end : value of the┆
0x26620…26640 20 74 72 61 6e 73 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 ┆ transaction end. tr_maxp ┆
0x26640…26660 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 61 63 74 69 6f 6e ┆ : value of the transaction┆
0x26660…2667e 20 6d 61 78 70 2e 0a 20 20 20 20 20 74 72 5f 70 72 6f 63 20 20 20 20 20 20 20 20 3a 20 76 ┆ maxp. tr_proc : v┆
0x2667e…26684 (0x518,0x4ce)
0x26684…266a0 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 6f 63 ┆alue of the transaction proc┆
0x266a0…266c0 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 20 74 ┆. used_segm : counts t┆
0x266c0…266e0 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 6e 67 ┆he segments used by initializing┆
0x266e0…266fc 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 ┆ a new┆
0x266fc…26702 (0x518,0x4cf)
0x26702…26720 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 20 20 ┆ catalog. use1, use2 ┆
0x26720…26740 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 73 73 ┆: points to userbases in process┆
0x26740…26760 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 69 6e ┆-descr. val : in┆
0x26760…2677a 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 ┆ddata stored by use of rea┆
0x2677a…26780 (0x518,0x4d0)
0x26780…267a0 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 6d 62 ┆dall. valindex : numb┆
0x267a0…267c0 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 6b 69 ┆er of next element in val and ki┆
0x267c0…267e0 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 20 65 ┆nd to be e┆
0x267e0…26800 78 61 6d 69 6e 65 64 2e 0a 20 20 20 20 20 77 6f 72 64 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆xamined. word ┆
0x26800…26806 (308,) (0x518,0x4d1)
0x26806…26820 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 ┆ : used at word-operat┆
0x26820…26840 69 6e 67 20 6f 6e 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 ┆ing on zones. zonew ┆
0x26840…26860 20 20 3a 20 7a 6f 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 ┆ : zone for new catalog. z┆
0x26860…2687e 6f 6f 6c 64 20 20 20 20 20 20 20 20 20 20 3a 20 7a 6f 6e 65 20 66 6f 72 20 6f 6c 64 20 63 ┆oold : zone for old c┆
0x2687e…26884 (0x518,0x4d2)
0x26884…268a0 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 20 20 ┆atalog. zoout ┆
0x268a0…268c0 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 0a 0a ┆: zone for listing of catalog. ┆
0x268c0…268e0 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 20 62 ┆ *> procedure read_line; b┆
0x268e0…268fc 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 ┆egin <* reads a new line i┆
0x268fc…26902 (0x518,0x4d3)
0x26902…26920 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 6e 73 ┆nto val and kind. assigns┆
0x26920…26940 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 69 6e ┆ elem_in_val (no. of elements in┆
0x26940…26960 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 20 20 ┆ val and kind) and ┆
0x26960…2697a 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┆
0x2697a…26980 (0x518,0x4d4)
0x26980…269a0 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 0a 20 ┆lement in val to be read) *> ┆
0x269a0…269c0 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 0a 20 ┆ integer i; trap(again); ┆
0x269c0…269e0 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 68 69 ┆ trapmode := 1 shift 2 + 1 shi┆
0x269e0…26a00 66 74 20 33 3b 0a 61 67 61 69 6e 31 3a 0a 20 20 20 20 66 6f 72 20 69 3a 00 00 00 00 00 00 00 00 ┆ft 3; again1: for i: ┆
0x26a00…26a06 (309,) (0x518,0x4d5)
0x26a06…26a20 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 ┆=1, 1 while elem_in_val<=0┆
0x26a20…26a40 20 64 6f 0a 20 20 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 ┆ do begin elem_in_val ┆
0x26a40…26a60 3a 3d 20 72 65 61 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 ┆:= read_all(in, val, kind, 1); ┆
0x26a60…26a7e 20 20 20 20 20 69 66 20 65 6c 65 6d 5f 69 6e 5f 76 61 6c 3c 30 20 74 68 65 6e 20 0a 20 20 ┆ if elem_in_val<0 then ┆
0x26a7e…26a84 (0x518,0x4d6)
0x26a84…26aa0 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 67 6c ┆ begin elem_in_gl┆
0x26aa0…26ac0 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 72 6f ┆val := elem_in_val; erro┆
0x26ac0…26ae0 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 20 20 ┆r(<:line too long:>, no); ┆
0x26ae0…26afc 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 :┆
0x26afc…26b02 (0x518,0x4d7)
0x26b02…26b20 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 76 61 ┆= 1; if glval(elem_in_glva┆
0x26b20…26b40 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 3b 0a ┆l)<>34 then elem_in_glval := 0; ┆
0x26b40…26b60 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 5f 69 ┆ for i:=1 step 1 until elem_i┆
0x26b60…26b7a 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 ┆n_val do begin g┆
0x26b7a…26b80 (0x518,0x4d8)
0x26b80…26ba0 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 29 3b ┆lval(elem_in_glval+i) := val(i);┆
0x26ba0…26bc0 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 20 3a ┆ glkind(elem_in_glval+i) :┆
0x26bc0…26be0 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 6e 5f ┆= kind(i); end; elem_in_┆
0x26be0…26c00 67 6c 76 61 6c 20 3a 3d 20 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 20 2b 00 00 00 00 00 00 00 00 ┆glval := elem_in_glval + ┆
0x26c00…26c06 (310,) (0x518,0x4d9)
0x26c06…26c20 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 ┆ elem_in_val; goto out┆
0x26c20…26c40 72 6c 3b 0a 61 67 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 ┆rl; again: elem_in_glval := ┆
0x26c40…26c60 65 6c 65 6d 5f 69 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 ┆elem_in_val; error(<:line to┆
0x26c60…26c7e 6f 20 6c 6f 6e 67 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 20 20 74 72 61 70 6d 6f 64 65 20 3a 3d ┆o long:>, no); trapmode :=┆
0x26c7e…26c84 (0x518,0x4da)
0x26c84…26ca0 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 3a 0a ┆ 0; goto again1; outrl: ┆
0x26ca0…26cc0 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 3b 0a ┆ end; procedure skip_delim; ┆
0x26cc0…26ce0 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 72 73 ┆ begin <* skips delimiters┆
0x26ce0…26cfc 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 ┆. at return valindex┆
0x26cfc…26d02 (0x518,0x4db)
0x26d02…26d20 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 61 6c ┆ points to next element in val┆
0x26d20…26d40 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 20 20 ┆ not beeing ┆
0x26d40…26d60 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 20 20 ┆ a delimiter. *> ┆
0x26d60…26d7a 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┆
0x26d7a…26d80 (0x518,0x4dc)
0x26d80…26da0 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 20 20 ┆>elem_in_val then read_line; ┆
0x26da0…26dc0 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 2b 31 ┆ i := valindex-1; for i:=i+1┆
0x26dc0…26de0 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 0a 20 ┆ while kind(i)>=7 do begin ┆
0x26de0…26e00 20 20 20 20 20 69 66 20 6b 69 6e 64 28 69 29 3d 39 20 6f 72 20 76 61 6c 00 00 00 00 00 00 00 00 ┆ if kind(i)=9 or val ┆
0x26e00…26e06 (311,) (0x518,0x4dd)
0x26e06…26e20 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 ┆(i)=34 then error(<┆
0x26e20…26e40 3a 69 6c 6c 65 67 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 ┆:illegal char:>, no); if i┆
0x26e40…26e60 3d 65 6c 65 6d 5f 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 ┆=elem_in_val then begin ┆
0x26e60…26e7e 20 20 20 20 20 20 69 66 20 76 61 6c 28 69 29 3d 32 35 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if val(i)=25 then ┆
0x26e7e…26e84 (0x518,0x4de)
0x26e84…26ea0 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 75 65 ┆ begin em := true┆
0x26ea0…26ec0 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 20 20 ┆; goto out_skip; ┆
0x26ec0…26ee0 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 67 69 ┆ end else begi┆
0x26ee0…26efc 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 ┆n read_line; ┆
0x26efc…26f02 (0x518,0x4df)
0x26f02…26f20 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 20 20 ┆ i := valindex-1; ┆
0x26f20…26f40 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 75 74 ┆end; end; end for; out┆
0x26f40…26f60 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 64 20 ┆_skip: valindex := i; end ┆
0x26f60…26f7a 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 ┆skip_delim; procedure s┆
0x26f7a…26f80 (0x518,0x4e0)
0x26f80…26fa0 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 73 20 ┆kip_to_text; begin <* skips ┆
0x26fa0…26fc0 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 72 6e ┆to kind=text (6). at return┆
0x26fc0…26fe0 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┆
0x26fe0…27000 20 69 6e 20 76 61 6c 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 ┆ in val ┆
0x27000…27006 (312,) (0x518,0x4e1)
0x27006…27020 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 ┆ of kind text. *>┆
0x27020…27040 0a 20 20 20 20 62 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 ┆ boolean rep; integer i;┆
0x27040…27060 0a 20 20 20 20 72 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 ┆ rep := true; for i:=1 w┆
0x27060…2707e 68 69 6c 65 20 72 65 70 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 6b ┆hile rep do begin sk┆
0x2707e…27084 (0x518,0x4e2)
0x27084…270a0 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 69 6e ┆ip_delim; if em or kin┆
0x270a0…270c0 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 65 0a ┆d(valindex)=6 then rep := false ┆
0x270c0…270e0 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 32 20 ┆ else <* skip kind 1 and 2 ┆
0x270e0…270fc 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 ┆*> valindex := valindex + 1;┆
0x270fc…27102 (0x518,0x4e3)
0x27102…27120 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 3b 0a ┆ end; end skip_to_text; ┆
0x27120…27140 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 6e 6f ┆ boolean procedure read_no(no┆
0x27140…27160 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 72 65 ┆); integer no; begin <* re┆
0x27160…2717a 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 ┆ad_no (return) true numbe┆
0x2717a…27180 (0x518,0x4e4)
0x27180…271a0 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 20 20 ┆r is read. ┆
0x271a0…271c0 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 20 20 ┆ false otherwise no ┆
0x271c0…271e0 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 20 20 ┆(return) read_no=false 0 ┆
0x271e0…27200 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 ┆ ┆
0x27200…27206 (313,) (0x518,0x4e5)
0x27206…27220 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 ┆true the number read. ┆
0x27220…27240 20 20 69 66 20 72 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 ┆ if read_no is false only delim┆
0x27240…27260 69 74 65 72 73 20 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 ┆iters has been read (valind┆
0x27260…2727e 65 78 20 70 6f 69 6e 74 73 20 74 6f 20 6e 65 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 76 ┆ex points to nest element in v┆
0x2727e…27284 (0x518,0x4e6)
0x27284…272a0 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 2e 0a ┆al not beeing a delimiter). ┆
0x272a0…272c0 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 20 30 ┆ *> boolean ok; no := 0┆
0x272c0…272e0 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 69 6d ┆; ok := true; skip_delim┆
0x272e0…272fc 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 ┆; if -,em then begin┆
0x272fc…27302 (0x518,0x4e7)
0x27302…27320 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 68 65 ┆ if kind(valindex)=2 the┆
0x27320…27340 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 6c 28 ┆n begin no := val(┆
0x27340…27360 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 20 76 ┆valindex); valindex := v┆
0x27360…2737a 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 ┆alindex + 1; end ┆
0x2737a…27380 (0x518,0x4e8)
0x27380…273a0 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 20 20 ┆ else ok := false; end ┆
0x273a0…273c0 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 20 3a ┆ else ok := false; read_no :┆
0x273c0…273e0 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 70 72 ┆= ok; end read_no; boolean pr┆
0x273e0…27400 6f 63 65 64 75 72 65 20 72 65 61 64 5f 6e 61 6d 65 28 74 65 78 74 2c 20 00 00 00 00 00 00 00 00 ┆ocedure read_name(text, ┆
0x27400…27406 (314,) (0x518,0x4e9)
0x27406…27420 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 ┆chars); value chars; i┆
0x27420…27440 6e 74 65 67 65 72 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 ┆nteger chars; long array text;┆
0x27440…27460 0a 20 20 62 65 67 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 ┆ begin <* read_name (retur┆
0x27460…2747e 6e 29 20 74 72 75 65 20 20 6e 61 6d 65 20 69 73 20 72 65 61 64 0a 20 20 20 20 20 20 20 20 ┆n) true name is read ┆
0x2747e…27484 (0x518,0x4ea)
0x27484…274a0 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┆
0x274a0…274c0 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 6e 29 ┆rwise. text (return)┆
0x274c0…274e0 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 20 20 ┆ read_name=false nulls ┆
0x274e0…274fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x274fc…27502 (0x518,0x4eb)
0x27502…27520 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 68 61 ┆ true the name read. cha┆
0x27520…27540 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 6f 66 ┆rs (call) max number of┆
0x27540…27560 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 65 61 ┆ characters in text. if rea┆
0x27560…2757a 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 ┆d_name is false only delim┆
0x2757a…27580 (0x518,0x4ec)
0x27580…275a0 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 62 6f ┆iters has been read. *> bo┆
0x275a0…275c0 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 6b 2c ┆olean ok; integer i, j, k,┆
0x275c0…275e0 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 74 69 ┆ longs, char, read_chars, starti┆
0x275e0…27600 6e 64 65 78 3b 0a 20 20 20 20 73 6b 69 70 5f 64 65 6c 69 6d 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ndex; skip_delim; ┆
0x27600…27606 (315,) (0x518,0x4ed)
0x27606…27620 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 ┆ read_chars := 0; ┆
0x27620…27640 20 6c 6f 6e 67 73 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 ┆ longs := chars//6 + 1; st┆
0x27640…27660 61 72 74 69 6e 64 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 ┆artindex := valindex; for ┆
0x27660…2767e 69 20 3a 3d 28 69 66 20 65 6d 20 74 68 65 6e 20 28 6c 6f 6e 67 73 2b 31 29 20 65 6c 73 65 ┆i :=(if em then (longs+1) else┆
0x2767e…27684 (0x518,0x4ee)
0x27684…276a0 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 20 20 ┆ 1) step 1 until longs do ┆
0x276a0…276c0 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 3b 0a ┆ begin text(i) := 0; ┆
0x276c0…276e0 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 74 68 ┆ if kind(valindex) = 6 th┆
0x276e0…276fc 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 ┆en begin f┆
0x276fc…27702 (0x518,0x4ef)
0x27702…27720 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 3a 3d ┆or j:=0,1 do for k:=┆
0x27720…27740 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 20 20 ┆-16 step 8 until 0 do ┆
0x27740…27760 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 76 61 ┆begin char := val(va┆
0x27760…2777a 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 ┆lindex+j) shift k extract ┆
0x2777a…27780 (0x518,0x4f0)
0x27780…277a0 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 20 61 ┆8; if read_chars=0 a┆
0x277a0…277c0 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 64 5f ┆nd char=0 then read_┆
0x277c0…277e0 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 29 2f ┆chars := (i-1)*6 + j*3 + (k+16)/┆
0x277e0…27800 2f 38 3b 0a 20 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 ┆/8; end; ┆
0x27800…27806 (316,) (0x518,0x4f1)
0x27806…27820 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 ┆ text(i) := extend val┆
0x27820…27840 28 76 61 6c 69 6e 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 ┆(valindex) shift 24 + val(valind┆
0x27840…27860 65 78 2b 31 29 3b 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 ┆ex+1); valindex := val┆
0x27860…2787e 69 6e 64 65 78 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆index + 2; end; ┆
0x2787e…27884 (0x518,0x4f2)
0x27884…278a0 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 72 73 ┆end; ok := read_chars┆
0x278a0…278c0 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 20 20 ┆>=1 and read_chars<=chars; ┆
0x278c0…278e0 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 20 20 ┆ if -,ok then begin ┆
0x278e0…278fc 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; ┆
0x278fc…27902 (0x518,0x4f3)
0x27902…27920 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 6c 6f ┆ for i:=1 step 1 until lo┆
0x27920…27940 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 3b 0a ┆ngs do text(i) := 0; end; ┆
0x27940…27960 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 65 61 ┆ read_name := ok; end rea┆
0x27960…2797a 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 ┆d_name; procedure read┆
0x2797a…27980 (0x518,0x4f4)
0x27980…279a0 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 61 6d ┆_param(paramno); integer param┆
0x279a0…279c0 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 75 72 ┆no; begin <* paramno (retur┆
0x279c0…279e0 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 20 20 ┆n) -1 parameter not read ┆
0x279e0…27a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 6e 6f 20 6f 00 00 00 00 00 00 00 00 ┆ i no o ┆
0x27a00…27a06 (317,) (0x518,0x4f5)
0x27a06…27a20 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 ┆f parameter read. if ┆
0x27a20…27a40 70 61 72 61 6d 6e 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 ┆paramno=-1 only delimiters has b┆
0x27a40…27a60 65 65 6e 20 72 65 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 ┆een read. *> integer i, fi┆
0x27a60…27a7e 72 73 74 2c 20 6c 61 73 74 3b 0a 20 20 20 20 6c 6f 6e 67 20 74 65 78 74 3b 0a 20 20 20 20 ┆rst, last; long text; ┆
0x27a7e…27a84 (0x518,0x4f6)
0x27a84…27aa0 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 6c 69 ┆paramno := -1; skip_deli┆
0x27aa0…27ac0 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 20 20 ┆m; if -,em then begin ┆
0x27ac0…27ae0 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 0a 20 ┆ first := i := valindex -1; ┆
0x27ae0…27afc 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┆
0x27afc…27b02 (0x518,0x4f7)
0x27b02…27b20 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 20 20 ┆)=6 do; last := i-1; ┆
0x27b20…27b40 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 74 3c ┆ if last>first and last-first<┆
0x27b40…27b60 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 78 74 ┆=4 then begin text┆
0x27b60…27b7a 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 ┆ := extend val(first+1) sh┆
0x27b7a…27b80 (0x518,0x4f8)
0x27b80…27ba0 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 31 36 ┆ift 24 + val(first+2) shift (-16┆
0x27ba0…27bc0 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 20 20 ┆) shift 16; i := -1; ┆
0x27bc0…27be0 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 20 74 ┆ for i:=i+1 while i<22 and t┆
0x27be0…27c00 65 78 74 3c 3e 70 61 72 61 6d 28 69 29 20 64 6f 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ext<>param(i) do; ┆
0x27c00…27c06 (318,) (0x518,0x4f9)
0x27c06…27c20 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 ┆ if i<22 then beg┆
0x27c20…27c40 69 6e 0a 20 20 20 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 ┆in valindex := last + ┆
0x27c40…27c60 31 3b 0a 20 20 20 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 ┆1; paramno := i; ┆
0x27c60…27c7e 20 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 3b 0a 20 20 ┆ end; end; end; ┆
0x27c7e…27c84 (0x518,0x4fa)
0x27c84…27ca0 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 6e 20 ┆end read_param; boolean ┆
0x27ca0…27cc0 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 2c 20 ┆procedure read_quote_text(text, ┆
0x27cc0…27ce0 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 61 72 ┆chars); value chars; long ar┆
0x27ce0…27cfc 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 ┆ray text; integer chars; ┆
0x27cfc…27d02 (0x518,0x4fb)
0x27d02…27d20 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 66 20 ┆ begin <* reads string of ┆
0x27d20…27d40 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 73 20 ┆characters surrounded by quotes ┆
0x27d40…27d60 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 65 78 ┆into text. read_quote_tex┆
0x27d60…27d7a 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 ┆t (return) true text is ┆
0x27d7a…27d80 (0x518,0x4fc)
0x27d80…27da0 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 20 20 ┆read ┆
0x27da0…27dc0 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 20 74 ┆ false otherwise. t┆
0x27dc0…27de0 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 5f 71 ┆ext (return) read_q┆
0x27de0…27e00 75 6f 74 65 5f 74 65 78 74 3d 66 61 6c 73 65 3a 20 6e 75 6c 6c 73 0a 20 00 00 00 00 00 00 00 00 ┆uote_text=false: nulls ┆
0x27e00…27e06 (319,) (0x518,0x4fd)
0x27e06…27e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27e20…27e40 20 20 20 20 20 20 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 ┆ else the text read. ┆
0x27e40…27e60 20 20 63 68 61 72 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 ┆ chars (call) max┆
0x27e60…27e7e 20 6e 6f 20 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 ┆ no of characters in text. ┆
0x27e7e…27e84 (0x518,0x4fe)
0x27e84…27ea0 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 66 61 ┆ if read_quote_text is fa┆
0x27ea0…27ec0 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 65 64 ┆lse a line may have been skipped┆
0x27ec0…27ee0 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 20 20 ┆. *> boolean ok, rep; ┆
0x27ee0…27efc 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; ┆
0x27efc…27f02 (0x518,0x4ff)
0x27f02…27f20 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 64 6f ┆for i:=1 step 6 until chars do┆
0x27f20…27f40 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 20 6f ┆ text(i//6+1) := 0; rep := o┆
0x27f40…27f60 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 72 65 ┆k := true; for i:=1 while re┆
0x27f60…27f7a 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 ┆p and ok do begin ┆
0x27f7a…27f80 (0x518,0x500)
0x27f80…27fa0 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 20 65 ┆ for j:=valindex step 1 until e┆
0x27fa0…27fc0 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 20 20 ┆lem_in_val do begin ┆
0x27fc0…27fe0 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 65 20 ┆ if kind(j)<7 then ok := false ┆
0x27fe0…28000 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 6a 29 3d 00 00 00 00 00 00 00 00 ┆else if kind(j)= ┆
0x28000…28006 (320,) (0x518,0x501)
0x28006…28020 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 ┆9 then error(<:illegal cha┆
0x28020…28040 72 3a 3e 2c 20 6e 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 ┆r:>, no) else if j=elem_┆
0x28040…28060 69 6e 5f 76 61 6c 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 ┆in_val then begin ┆
0x28060…2807e 20 20 20 20 69 66 20 76 61 6c 28 6a 29 3d 32 35 20 3c 2a 20 65 6d 20 2a 3e 20 74 68 65 6e ┆ if val(j)=25 <* em *> then┆
0x2807e…28084 (0x518,0x502)
0x28084…280a0 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 ┆ begin ┆
0x280a0…280c0 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 20 66 ┆ em := true; ok := f┆
0x280c0…280e0 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 65 6c ┆alse; end el┆
0x280e0…280fc 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 ┆se if val(j)=34 then rep:= f┆
0x280fc…28102 (0x518,0x503)
0x28102…28120 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 20 20 ┆alse else ┆
0x28120…28140 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 20 20 ┆begin read_line; ┆
0x28140…28160 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 20 20 ┆ j := valindex - 1; ┆
0x28160…2817a 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; ┆
0x2817a…28180 (0x518,0x504)
0x28180…281a0 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 0a 20 ┆ end for j; end for i; ┆
0x281a0…281c0 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 69 6e ┆ if ok then begin in┆
0x281c0…281e0 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 5f 6c ┆table(quote_table); read_l┆
0x281e0…28200 69 6e 65 3b 0a 20 20 20 20 20 20 7a 65 72 6f 6e 6f 20 3a 3d 20 33 20 2d 00 00 00 00 00 00 00 00 ┆ine; zerono := 3 - ┆
0x28200…28206 (321,) (0x518,0x505)
0x28206…28220 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 ┆ chars mod 3; if val┆
0x28220…28240 28 65 6c 65 6d 5f 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 ┆(elem_in_val)=25 <* em *> then ┆
0x28240…28260 20 20 20 20 20 62 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 ┆ begin em := true; ┆
0x28260…2827e 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 65 6e 64 0a ┆ ok := false; end ┆
0x2827e…28284 (0x518,0x506)
0x28284…282a0 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 31 20 ┆ else if elem_in_val=1 ┆
0x282a0…282c0 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 3c 2a ┆and val(1)=34 then <*┆
0x282c0…282e0 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 65 6d ┆ emty text *> else if elem┆
0x282e0…282fc 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 ┆_in_val>chars//3+2 then ok :┆
0x282fc…28302 (0x518,0x507)
0x28302…28320 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 6e 5f ┆= false else if elem_in_┆
0x28320…28340 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 20 76 ┆val>chars//3 and v┆
0x28340…28360 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 72 6f ┆al(elem_in_val-1) shift ((3-zero┆
0x28360…2837a 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 ┆no)*8) <> 0 the┆
0x2837a…28380 (0x518,0x508)
0x28380…283a0 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 20 62 ┆n ok := false else b┆
0x283a0…283c0 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 20 20 ┆egin <* text ok *> ┆
0x283c0…283e0 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 69 6e ┆ j := if zerono=3 then elem_in┆
0x283e0…28400 5f 76 61 6c 20 2d 20 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆_val - 2 ┆
0x28400…28406 (322,) (0x518,0x509)
0x28406…28420 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 ┆ else elem_in_v┆
0x28420…28440 61 6c 20 2d 20 31 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 ┆al - 1; for i:=1 step 2 ┆
0x28440…28460 75 6e 74 69 6c 20 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 ┆until j do text((i+1)//2┆
0x28460…2847e 29 20 3a 3d 20 65 78 74 65 6e 64 20 76 61 6c 28 69 29 20 73 68 69 66 74 20 32 34 20 2b 20 ┆) := extend val(i) shift 24 + ┆
0x2847e…28484 (0x518,0x50a)
0x28484…284a0 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 20 69 ┆val(i+1); end; i┆
0x284a0…284c0 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 6c 69 ┆ntable(cat_table); read_li┆
0x284c0…284e0 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 5f 74 ┆ne; end ok; read_quote_t┆
0x284e0…284fc 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 ┆ext := ok; end read_quote_┆
0x284fc…28502 (0x518,0x50b)
0x28502…28520 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 28 70 ┆text; procedure init_proc(p┆
0x28520…28540 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 62 65 ┆roc); integer array proc; be┆
0x28540…28560 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 68 20 ┆gin <* initialize proc with ┆
0x28560…2857a 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 ┆default values for process┆
0x2857a…28580 (0x518,0x50c)
0x28580…285a0 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 0a 20 ┆-describtion *> integer i; ┆
0x285a0…285c0 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 70 61 ┆ for i:=1 step 1 until proc_pa┆
0x285c0…285e0 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 2e 62 ┆_lgt do proc(i) := 0; proc.b┆
0x285e0…28600 75 66 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 34 3b 0a 20 20 20 20 70 00 00 00 00 00 00 00 00 ┆uf := false add 4; p ┆
0x28600…28606 (323,) (0x518,0x50d)
0x28606…28620 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 ┆roc.area := false add 7; ┆
0x28620…28640 20 20 20 70 72 6f 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 ┆ proc.maxs := 8 388 607; p┆
0x28640…28660 72 6f 63 2e 70 65 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 ┆roc.perm1.dev(1) := first_bs_dev┆
0x28660…2867e 69 63 65 28 31 29 3b 0a 20 20 20 20 70 72 6f 63 2e 70 65 72 6d 31 2e 64 65 76 28 32 29 20 ┆ice(1); proc.perm1.dev(2) ┆
0x2867e…28684 (0x518,0x50e)
0x28684…286a0 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 20 70 ┆:= first_bs_device(2); p┆
0x286a0…286c0 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 73 20 ┆roc.perm1(5) := 6; <* entries ┆
0x286c0…286e0 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 65 64 ┆key0 *> end; boolean proced┆
0x286e0…286fc 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 ┆ure read_proc(proc); integ┆
0x286fc…28702 (0x518,0x50f)
0x28702…28720 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 72 65 ┆er array proc; begin <* re┆
0x28720…28740 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 72 65 ┆ads process-describtion. re┆
0x28740…28760 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 61 6d ┆ad_proc (return) true: param┆
0x28760…2877a 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 ┆eters read ┆
0x2877a…28780 (0x518,0x510)
0x28780…287a0 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 72 61 ┆ false: error in para┆
0x287a0…287c0 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 72 6e ┆meters. proc (return┆
0x287c0…287e0 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 20 20 ┆) read_proc-false: undefined ┆
0x287e0…28800 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 ┆ ┆
0x28800…28806 (324,) (0x518,0x511)
0x28806…28820 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 ┆ true: the data┆
0x28820…28840 20 72 65 61 64 2e 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 ┆ read. at return valindex p┆
0x28840…28860 6f 69 6e 74 73 20 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 ┆oints to next element not beeing┆
0x28860…2887e 20 61 0a 20 20 20 20 20 70 72 6f 63 65 73 73 2d 70 61 72 61 6d 65 74 65 72 2e 0a 20 20 2a ┆ a process-parameter. *┆
0x2887e…28884 (0x518,0x512)
0x28884…288a0 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 75 6e ┆> boolean cont, ok, foun┆
0x288a0…288c0 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 6b 2c ┆d, allzero; integer i, j, k,┆
0x288c0…288e0 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 74 3b ┆ no1, no2, paramno, param_start;┆
0x288e0…288fc 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 ┆ long array name(1:2); ┆
0x288fc…28902 (0x518,0x513)
0x28902…28920 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 0a 20 ┆ integer field segm, entr; ┆
0x28920…28940 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 20 20 ┆ integer array field perm; ┆
0x28940…28960 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 64 65 ┆ ok := true; for i:=valinde┆
0x28960…2897a 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 ┆x step 1 until elem_in_val┆
0x2897a…28980 (0x518,0x514)
0x28980…289a0 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 20 20 ┆ do if kind(i)<=6 then ┆
0x289a0…289c0 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 3d 20 ┆ begin param_start := ┆
0x289c0…289e0 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 5f 76 ┆valindex; i := elem_in_v┆
0x289e0…28a00 61 6c 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 00 00 00 00 00 00 00 00 ┆al; end else ┆
0x28a00…28a06 (325,) (0x518,0x515)
0x28a06…28a20 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 ┆ param_start := 1; rea┆
0x28a20…28a40 64 5f 70 61 72 61 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 ┆d_param(paramno); cont := -,┆
0x28a40…28a60 65 6d 20 61 6e 64 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 ┆em and paramno<>0; if -,cont┆
0x28a60…28a7e 20 74 68 65 6e 20 76 61 6c 69 6e 64 65 78 20 3a 3d 20 70 61 72 61 6d 5f 73 74 61 72 74 3b ┆ then valindex := param_start;┆
0x28a7e…28a84 (0x518,0x516)
0x28a84…28aa0 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 64 6f ┆ for i:=1 while cont do┆
0x28aa0…28ac0 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 72 65 ┆ begin if paramno<=gre┆
0x28ac0…28ae0 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 68 65 ┆at_trno or paramno>=pa_dterm the┆
0x28ae0…28afc 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 ┆n begin cont :┆
0x28afc…28b02 (0x518,0x517)
0x28b02…28b20 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 20 70 ┆= false; valindex := p┆
0x28b20…28b40 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 73 65 ┆aram_start; end else┆
0x28b40…28b60 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 6f 2d ┆ begin case (paramno-┆
0x28b60…28b7a 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 ┆great_trno) of begin┆
0x28b7a…28b80 (0x518,0x518)
0x28b80…28ba0 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 20 20 ┆ begin <* buf *> ┆
0x28ba0…28bc0 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 20 74 ┆ if -,read_no(no1) or no1<=0 t┆
0x28bc0…28be0 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 ┆
0x28be0…28c00 65 72 72 6f 72 28 3c 3a 62 75 66 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆error(<:buf:>, pa); ┆
0x28c00…28c06 (326,) (0x518,0x519)
0x28c06…28c20 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 ┆ ok := false; ┆
0x28c20…28c40 20 20 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 62 75 66 ┆ end else proc.buf┆
0x28c40…28c60 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 64 3b 0a ┆ := false add no1; end; ┆
0x28c60…28c7e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 61 72 65 61 20 2a 3e 0a 20 20 20 20 ┆ begin <* area *> ┆
0x28c7e…28c84 (0x518,0x51a)
0x28c84…28ca0 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 6e ┆ if -,read_no(no1) or n┆
0x28ca0…28cc0 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 20 20 ┆o1<=0 then begin ┆
0x28cc0…28ce0 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 20 20 ┆ error(<:area:>, pa); ┆
0x28ce0…28cfc 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; ┆
0x28cfc…28d02 (0x518,0x51b)
0x28d02…28d20 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 72 65 ┆ end else proc.are┆
0x28d20…28d40 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 64 3b ┆a := false add no1; end;┆
0x28d40…28d60 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 20 20 ┆ begin <* stdbase *> ┆
0x28d60…28d7a 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) ┆
0x28d7a…28d80 (0x518,0x51c)
0x28d80…28da0 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 68 65 ┆or -,read_no(no2) or no1>no2 the┆
0x28da0…28dc0 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 65 72 ┆n begin er┆
0x28dc0…28de0 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 20 20 ┆ror(<:stdbase:>, pa); ┆
0x28de0…28e00 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ok := false; ┆
0x28e00…28e06 (327,) (0x518,0x51d)
0x28e06…28e20 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 ┆ end else ┆
0x28e20…28e40 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 73 74 64 31 20 ┆ begin proc.std1 ┆
0x28e40…28e60 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 73 74 64 32 20 3a 3d ┆:= no1; proc.std2 :=┆
0x28e60…28e7e 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 65 ┆ no2; end; e┆
0x28e7e…28e84 (0x518,0x51e)
0x28e84…28ea0 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 62 61 ┆nd; begin <* userba┆
0x28ea0…28ec0 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 6f 31 ┆se *> if -,read_no(no1┆
0x28ec0…28ee0 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 20 74 ┆) or -,read_no(no2) or no1>no2 t┆
0x28ee0…28efc 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 ┆hen begin ┆
0x28efc…28f02 (0x518,0x51f)
0x28f02…28f20 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 0a 20 ┆ error(<:userbase:>, pa); ┆
0x28f20…28f40 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 20 ┆ ok := false; ┆
0x28f40…28f60 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 62 ┆ end else b┆
0x28f60…28f7a 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 ┆egin proc.use1┆
0x28f7a…28f80 (0x518,0x520)
0x28f80…28fa0 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 20 3a ┆ := no1; proc.use2 :┆
0x28fa0…28fc0 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 65 6e ┆= no2; end; en┆
0x28fc0…28fe0 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 3e 0a ┆d; begin <* maxbase *> ┆
0x28fe0…29000 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 00 00 00 00 00 00 00 00 ┆ if -,read_no(n ┆
0x29000…29006 (328,) (0x518,0x521)
0x29006…29020 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 ┆o1) or -,read_no(no2) or n┆
0x29020…29040 6f 31 3e 6e 6f 32 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 ┆o1>no2 then begin ┆
0x29040…29060 20 20 20 20 20 20 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 ┆ error(<:maxbase:>, pa); ┆
0x29060…2907e 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 ┆ ok := false; ┆
0x2907e…29084 (0x518,0x522)
0x29084…290a0 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 20 20 ┆ end else ┆
0x290a0…290c0 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 61 78 ┆ begin proc.max┆
0x290c0…290e0 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 32 20 ┆1 := no1; proc.max2 ┆
0x290e0…290fc 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 ┆:= no2; end; ┆
0x290fc…29102 (0x518,0x523)
0x29102…29120 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 73 73 ┆ end; begin <* pass┆
0x29120…29140 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 6f 74 ┆word *> if -,read_quot┆
0x29140…29160 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 20 20 ┆e_text(proc.pass, 11) then ┆
0x29160…2917a 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┆
0x2917a…29180 (0x518,0x524)
0x29180…291a0 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 20 20 ┆or(<:password:>, pa); ┆
0x291a0…291c0 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 20 20 ┆ ok := false; end; ┆
0x291c0…291e0 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 69 6e ┆ end; begin <* min┆
0x291e0…29200 73 69 7a 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 72 00 00 00 00 00 00 00 00 ┆size *> if -,r ┆
0x29200…29206 (329,) (0x518,0x525)
0x29206…29220 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 ┆ead_no(proc.mins) or proc.┆
0x29220…29240 6d 69 6e 73 3c 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 ┆mins<0 then begin ┆
0x29240…29260 20 20 20 20 20 20 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 ┆ error(<:minsize:>, pa); ┆
0x29260…2927e 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 ┆ ok := false; ┆
0x2927e…29284 (0x518,0x526)
0x29284…292a0 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 ┆ end; end; ┆
0x292a0…292c0 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 20 20 ┆ begin <* maxsize *> ┆
0x292c0…292e0 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 72 6f ┆ if -,read_no(proc.maxs) or pro┆
0x292e0…292fc 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 ┆c.maxs<0 then begi┆
0x292fc…29302 (0x518,0x527)
0x29302…29320 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 65 3a ┆n error(<:maxsize:┆
0x29320…29340 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 65 3b ┆>, pa); ok := false;┆
0x29340…29360 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 20 20 ┆ end; end; ┆
0x29360…2937a 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 *> ┆
0x2937a…29380 (0x518,0x528)
0x29380…293a0 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 2e 66 ┆ if -,read_quote_text(proc.f┆
0x293a0…293c0 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 20 20 ┆p, 59) then begin ┆
0x293c0…293e0 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 20 20 ┆ error(<:fp:>, pa); ┆
0x293e0…29400 20 20 20 20 20 20 20 6f 6b 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ok := false; ┆
0x29400…29406 (330,) (0x518,0x529)
0x29406…29420 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 ┆ end; end; ┆
0x29420…29440 20 20 20 20 20 20 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 ┆ begin <* perm *> ┆
0x29440…29460 20 20 69 66 20 2d 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 ┆ if -,read_name(name, 11) then ┆
0x29460…2947e 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 ┆ begin er┆
0x2947e…29484 (0x518,0x52a)
0x29484…294a0 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 20 20 ┆ror(<:device name:>, pa); ┆
0x294a0…294c0 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 20 20 ┆ ok := false; ┆
0x294c0…294e0 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┆
0x294e0…294fc 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 ┆gin found := fal┆
0x294fc…29502 (0x518,0x52b)
0x29502…29520 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 20 20 ┆se; i := 0; ┆
0x29520…29540 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 20 61 ┆ for i:=i+1 while -,found a┆
0x29540…29560 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 62 65 ┆nd i<=no_of_bs do be┆
0x29560…2957a 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 ┆gin perm := ┆
0x2957a…29580 (0x518,0x52c)
0x29580…295a0 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 20 20 ┆perm1 + (i-1)*24; ┆
0x295a0…295c0 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 2e 70 ┆if proc.perm.dev(1)=0 and proc.p┆
0x295c0…295e0 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 20 20 ┆erm.dev(2)=0 or ┆
0x295e0…29600 20 70 72 6f 63 2e 70 65 72 6d 2e 64 65 76 28 31 29 3d 6e 61 6d 65 28 31 00 00 00 00 00 00 00 00 ┆ proc.perm.dev(1)=name(1 ┆
0x29600…29606 (331,) (0x518,0x52d)
0x29606…29620 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 ┆) and proc.perm.dev(2)=nam┆
0x29620…29640 65 28 32 29 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 20 20 ┆e(2) then begin ┆
0x29640…29660 20 20 20 20 20 20 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 ┆ <* read entries an┆
0x29660…2967e 64 20 73 65 67 6d 73 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f ┆d segms *> pro┆
0x2967e…29684 (0x518,0x52e)
0x29684…296a0 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 20 20 ┆c.perm.dev(1) := name(1); ┆
0x296a0…296c0 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 3a 3d ┆ proc.perm.dev(2) :=┆
0x296c0…296e0 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 64 20 ┆ name(2); found ┆
0x296e0…296fc 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 ┆:= true; for┆
0x296fc…29702 (0x518,0x52f)
0x29702…29720 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 20 20 ┆ j:=0 step 1 until 3 do ┆
0x29720…29740 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 ┆
0x29740…29760 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 6c 20 ┆ for k:= valindex step 1 until ┆
0x29760…2977a 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 ┆elem_in_val do ┆
0x2977a…29780 (0x518,0x530)
0x29780…297a0 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 20 20 ┆ if kind(k)<=6 then ┆
0x297a0…297c0 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 ┆
0x297c0…297e0 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 69 6e ┆ param_start := valin┆
0x297e0…29800 64 65 78 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆dex; ┆
0x29800…29806 (332,) (0x518,0x531)
0x29806…29820 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 ┆ k := elem_in_val; ┆
0x29820…29840 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 20 20 20 20 ┆ end ┆
0x29840…29860 20 20 20 20 20 20 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 ┆ else param_start := 1; ┆
0x29860…2987e 20 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 ┆ read_param(par┆
0x2987e…29884 (0x518,0x532)
0x29884…298a0 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 66 20 ┆amno); if ┆
0x298a0…298c0 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 20 20 ┆paramno<16 or paramno>19 then ┆
0x298c0…298e0 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 ┆
0x298e0…298fc 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);┆
0x298fc…29902 (0x518,0x533)
0x29902…29920 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 78 20 ┆ valindex ┆
0x29920…29940 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 20 20 ┆:= param_start; ┆
0x29940…29960 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 20 20 ┆ ok := false; ┆
0x29960…2997a 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; ┆
0x2997a…29980 (0x518,0x534)
0x29980…299a0 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 20 20 ┆ i := 5; ┆
0x299a0…299c0 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 20 20 ┆ end else ┆
0x299c0…299e0 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 ┆
0x299e0…29a00 20 20 20 20 20 20 20 20 65 6e 74 72 20 3a 3d 20 6b 30 65 20 2b 20 28 70 00 00 00 00 00 00 00 00 ┆ entr := k0e + (p ┆
0x29a00…29a06 (333,) (0x518,0x535)
0x29a06…29a20 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 ┆aramno-16)*4; ┆
0x29a20…29a40 20 20 20 20 20 20 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 ┆ segm := entr + 2; ┆
0x29a40…29a60 20 20 20 20 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) ┆
0x29a60…29a7e 6f 72 20 2d 2c 72 65 61 64 5f 6e 6f 28 6e 6f 32 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆or -,read_no(no2) then ┆
0x29a7e…29a84 (0x518,0x536)
0x29a84…29aa0 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 ┆
0x29aa0…29ac0 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 3b 0a ┆ error(<:bs:>, pa); ┆
0x29ac0…29ae0 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 6c 73 ┆ ok := fals┆
0x29ae0…29afc 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 ┆e; end ┆
0x29afc…29b02 (0x518,0x537)
0x29b02…29b20 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 20 20 ┆ else ┆
0x29b20…29b40 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 ┆
0x29b40…29b60 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 31 3b ┆ proc.perm.entr := no1;┆
0x29b60…29b7a 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 ┆ pro┆
0x29b7a…29b80 (0x518,0x538)
0x29b80…29ba0 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 20 20 ┆c.perm.segm := no2; ┆
0x29ba0…29bc0 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 20 65 ┆ end; e┆
0x29bc0…29be0 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 0a 20 ┆nd; end for j; ┆
0x29be0…29c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 69 66 20 61 6c 6c 00 00 00 00 00 00 00 00 ┆ <* if all ┆
0x29c00…29c06 (334,) (0x518,0x539)
0x29c06…29c20 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 ┆ entr and segm area zero d┆
0x29c20…29c40 65 76 69 63 65 2d 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 ┆evice-name is ┆
0x29c40…29c60 20 64 65 6c 65 74 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 ┆ deleted, except for first bs de┆
0x29c60…29c7e 76 69 63 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 28 31 ┆vice *> name(1┆
0x29c7e…29c84 (0x518,0x53a)
0x29c84…29ca0 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 20 20 ┆) := first_bs_device(1); ┆
0x29ca0…29cc0 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 62 73 ┆ name(2) := first_bs┆
0x29cc0…29ce0 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 72 20 ┆_device(2); for ┆
0x29ce0…29cfc 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 ┆j:=2 step 1 until no_of_bs d┆
0x29cfc…29d02 (0x518,0x53b)
0x29d02…29d20 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 20 20 ┆o begin ┆
0x29d20…29d40 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 2d 31 ┆ perm := perm1 + (j-1┆
0x29d40…29d60 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 6f 20 ┆)*24; allzero ┆
0x29d60…29d7a 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 ┆:= true; ┆
0x29d7a…29d80 (0x518,0x53c)
0x29d80…29da0 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 0a 20 ┆ for k := 5 step 1 until 12 do ┆
0x29da0…29dc0 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 6d 28 ┆ if proc.perm(┆
0x29dc0…29de0 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 20 20 ┆k)>0 then allzero := false; ┆
0x29de0…29e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 6c 6c 7a 65 72 6f 00 00 00 00 00 00 00 00 ┆ if allzero ┆
0x29e00…29e06 (335,) (0x518,0x53d)
0x29e06…29e20 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 ┆ then ┆
0x29e20…29e40 70 72 6f 63 2e 70 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 ┆proc.perm.dev(1) := ┆
0x29e40…29e60 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 3a 3d 20 6c 6f 6e 67 ┆ proc.perm.dev(2) := long┆
0x29e60…29e7e 20 3c 3a 3a 3e 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 ┆ <::>; end; ┆
0x29e7e…29e84 (0x518,0x53e)
0x29e84…29ea0 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 20 20 ┆ end found; ┆
0x29ea0…29ec0 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 20 69 ┆ end for i; i┆
0x29ec0…29ee0 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 69 6e ┆f -,found then begin┆
0x29ee0…29efc 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 ┆ error(<:bs fu┆
0x29efc…29f02 (0x518,0x53f)
0x29f02…29f20 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 3a 3d ┆ll:>, pa); ok :=┆
0x29f20…29f40 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 20 20 ┆ false; end; ┆
0x29f40…29f60 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 20 20 ┆ end; end perm; ┆
0x29f60…29f7a 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 *> ┆
0x29f7a…29f80 (0x518,0x540)
0x29f80…29fa0 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 65 72 ┆ <* key0 is read in perm - er┆
0x29fa0…29fc0 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 20 70 ┆ror *> error(<:bs:>, p┆
0x29fc0…29fe0 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 20 20 ┆a); ok := false; ┆
0x29fe0…2a000 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 00 00 00 00 00 00 00 00 ┆ end; begin < ┆
0x2a000…2a006 (336,) (0x518,0x541)
0x2a006…2a020 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 ┆* key1 *> <* key┆
0x2a020…2a040 31 20 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 ┆1 is read in perm - error *> ┆
0x2a040…2a060 20 20 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 20 20 ┆ error(<:bs:>, pa); ┆
0x2a060…2a07e 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 3b 0a ┆ ok := false; end; ┆
0x2a07e…2a084 (0x518,0x542)
0x2a084…2a0a0 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 20 20 ┆ begin <* key2 *> ┆
0x2a0a0…2a0c0 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 6d 20 ┆ <* key2 is read in perm ┆
0x2a0c0…2a0e0 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 73 3a ┆- error *> error(<:bs:┆
0x2a0e0…2a0fc 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 ┆>, pa); ok := fals┆
0x2a0fc…2a102 (0x518,0x543)
0x2a102…2a120 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 69 6e ┆e; end; begin┆
0x2a120…2a140 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 69 73 ┆ <* key3 *> <* key3 is┆
0x2a140…2a160 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 20 20 ┆ read in perm - error *> ┆
0x2a160…2a17a 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); ┆
0x2a17a…2a180 (0x518,0x544)
0x2a180…2a1a0 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 3b 0a ┆ ok := false; end; ┆
0x2a1a0…2a1c0 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 76 61 ┆ end case; for i:=va┆
0x2a1c0…2a1e0 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 6c 20 ┆lindex step 1 until elem_in_val ┆
0x2a1e0…2a200 64 6f 0a 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 28 69 29 3c 3d 36 00 00 00 00 00 00 00 00 ┆do if kind(i)<=6 ┆
0x2a200…2a206 (337,) (0x518,0x545)
0x2a206…2a220 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 ┆ then begin ┆
0x2a220…2a240 20 20 20 20 70 61 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 ┆ param_start := valindex; ┆
0x2a240…2a260 20 20 20 20 20 20 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 ┆ i := elem_in_val; ┆
0x2a260…2a27e 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 70 61 72 61 6d 5f 73 74 61 72 74 20 ┆ end else param_start ┆
0x2a27e…2a284 (0x518,0x546)
0x2a284…2a2a0 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 61 6d ┆:= 1; read_param(param┆
0x2a2a0…2a2c0 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 65 6e ┆no); end proc_param; en┆
0x2a2c0…2a2e0 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 73 75 ┆d for cont; <* entries is su┆
0x2a2e0…2a2fc 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 ┆mmed to disc-entries *> ┆
0x2a2fc…2a302 (0x518,0x547)
0x2a302…2a320 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 32 20 ┆no1 := no2 := 0; for i:=2 ┆
0x2a320…2a340 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 65 67 ┆step 1 until no_of_bs do beg┆
0x2a340…2a360 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 2a 32 ┆in perm := perm1 + (i-1)*2┆
0x2a360…2a37a 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 ┆4; no1 := no1 + proc┆
0x2a37a…2a380 (0x518,0x548)
0x2a380…2a3a0 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 72 6f ┆.perm(5); no2 := no2 + pro┆
0x2a3a0…2a3c0 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 65 72 ┆c.perm(7); end; proc.per┆
0x2a3c0…2a3e0 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 20 20 ┆m1(5) := proc.perm1(5) + no1; ┆
0x2a3e0…2a400 20 20 70 72 6f 63 2e 70 65 72 6d 31 28 37 29 20 3a 3d 20 70 72 6f 63 2e 00 00 00 00 00 00 00 00 ┆ proc.perm1(7) := proc. ┆
0x2a400…2a406 (338,) (0x518,0x549)
0x2a406…2a420 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 ┆perm1(7) + no2; read_p┆
0x2a420…2a440 72 6f 63 20 3a 3d 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 ┆roc := ok; end read_proc; ┆
0x2a440…2a460 62 6f 6f 6c 65 61 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 ┆boolean procedure check_proc(pro┆
0x2a460…2a47e 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 62 65 ┆c); integer array proc; be┆
0x2a47e…2a484 (0x518,0x54a)
0x2a484…2a4a0 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 20 70 ┆gin <* checks that all p┆
0x2a4a0…2a4c0 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 2e 0a ┆rocess-data has a proper value. ┆
0x2a4c0…2a4e0 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 72 75 ┆ check_proc (return) tru┆
0x2a4e0…2a4fc 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 ┆e data is ok ┆
0x2a4fc…2a502 (0x518,0x54b)
0x2a502…2a520 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 65 2e ┆ false otherwise.┆
0x2a520…2a540 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 72 72 ┆ proc (call) arr┆
0x2a540…2a560 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 20 20 ┆ay containing process-data. ┆
0x2a560…2a57a 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. ┆
0x2a57a…2a580 (0x518,0x54c)
0x2a580…2a5a0 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 65 67 ┆ *> boolean ok; integ┆
0x2a5a0…2a5c0 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 20 73 ┆er i; integer field segm0, s┆
0x2a5c0…2a5e0 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 20 20 ┆egm1, segm2, segm3, ┆
0x2a5e0…2a600 20 20 20 20 20 20 65 6e 74 72 30 2c 20 65 6e 74 72 31 2c 20 65 6e 74 72 00 00 00 00 00 00 00 00 ┆ entr0, entr1, entr ┆
0x2a600…2a606 (339,) (0x518,0x54d)
0x2a606…2a620 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 ┆2, entr3; long array f┆
0x2a620…2a640 69 65 6c 64 20 62 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 ┆ield base; entr0 := k0e; en┆
0x2a640…2a660 74 72 31 20 3a 3d 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 ┆tr1 := entr0 + 4; entr2 := e┆
0x2a660…2a67e 6e 74 72 31 20 2b 20 34 3b 20 20 65 6e 74 72 33 20 3a 3d 20 65 6e 74 72 32 20 2b 20 34 3b ┆ntr1 + 4; entr3 := entr2 + 4;┆
0x2a67e…2a684 (0x518,0x54e)
0x2a684…2a6a0 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 3d 20 ┆ segm0 := k0s; segm1 := ┆
0x2a6a0…2a6c0 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 2b 20 ┆segm0 + 4; segm2 := segm1 + ┆
0x2a6c0…2a6e0 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 20 3a ┆4; segm3 := segm2 + 4; ok :┆
0x2a6e0…2a6fc 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 ┆
0x2a6fc…2a702 (0x518,0x54f)
0x2a702…2a720 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 31 20 ┆*> if proc.std1<proc.use1 ┆
0x2a720…2a740 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 20 20 ┆or proc.std2>proc.use2 or ┆
0x2a740…2a760 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 73 65 ┆ proc.use1<proc.max1 or proc.use┆
0x2a760…2a77a 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 ┆2>proc.max2 then begin┆
0x2a77a…2a780 (0x518,0x550)
0x2a780…2a7a0 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 6f 29 ┆ error(<:base error:>, no)┆
0x2a7a0…2a7c0 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 0a 20 ┆; ok := false; end; ┆
0x2a7c0…2a7e0 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 63 2e ┆ <* check size *> if proc.┆
0x2a7e0…2a800 6d 69 6e 73 20 3e 20 70 72 6f 63 2e 6d 61 78 73 20 74 68 65 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆mins > proc.maxs then ┆
0x2a800…2a806 (340,) (0x518,0x551)
0x2a806…2a820 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 ┆ begin error(<:size┆
0x2a820…2a840 20 65 72 72 6f 72 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 ┆ error:>, no); ok := false┆
0x2a840…2a860 3b 0a 20 20 20 20 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 ┆; end; <* check segms a┆
0x2a860…2a87e 6e 64 20 65 6e 74 72 69 65 73 20 2a 3e 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 ┆nd entries *> for i:=0 ste┆
0x2a87e…2a884 (0x518,0x552)
0x2a884…2a8a0 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 ┆p 1 until no_of_bs-1 do ┆
0x2a8a0…2a8c0 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 32 34 ┆begin base := perm1 + i*24┆
0x2a8c0…2a8e0 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 63 2e ┆; if proc.base.segm0<proc.┆
0x2a8e0…2a8fc 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 ┆base.segm1 or proc.base.segm┆
0x2a8fc…2a902 (0x518,0x553)
0x2a902…2a920 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 20 20 ┆1<proc.base.segm2 or ┆
0x2a920…2a940 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 33 20 ┆proc.base.segm2<proc.base.segm3 ┆
0x2a940…2a960 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 6f 63 ┆or proc.base.entr0<proc┆
0x2a960…2a97a 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 ┆.base.entr1 or proc.base.e┆
0x2a97a…2a980 (0x518,0x554)
0x2a980…2a9a0 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 20 20 ┆ntr1<proc.base.entr2 or ┆
0x2a9a0…2a9c0 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 72 33 ┆ proc.base.entr2<proc.base.entr3┆
0x2a9c0…2a9e0 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 72 28 ┆ then begin error(┆
0x2a9e0…2aa00 3c 3a 63 6c 61 69 6d 20 65 72 72 6f 72 3a 3e 2c 20 6e 6f 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆<:claim error:>, no); ┆
0x2aa00…2aa06 (341,) (0x518,0x555)
0x2aa06…2aa20 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; ┆
0x2aa20…2aa40 20 69 20 3a 3d 20 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 ┆ i := 4; end; end; ┆
0x2aa40…2aa60 20 63 68 65 63 6b 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 ┆ check_proc := ok; end check_p┆
0x2aa60…2aa7e 72 6f 63 3b 0a 0a 0c 20 20 70 72 6f 63 65 64 75 72 65 20 65 72 72 6f 72 28 74 65 78 74 2c ┆roc; procedure error(text,┆
0x2aa7e…2aa84 (0x518,0x556)
0x2aa84…2aaa0 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 20 20 ┆ skip_to); string text; ┆
0x2aaa0…2aac0 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 2a 20 ┆integer skip_to; begin <* ┆
0x2aac0…2aae0 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 74 20 ┆writes a text and current input ┆
0x2aae0…2aafc 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 ┆line on primary output ┆
0x2aafc…2ab02 (0x518,0x557)
0x2ab02…2ab20 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 20 20 ┆ and skips some input. ┆
0x2ab20…2ab40 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 20 77 ┆ text (call) the text to be w┆
0x2ab40…2ab60 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 74 65 ┆ritten. skip_to (call) te┆
0x2ab60…2ab7a 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 ┆lls how much to skip ┆
0x2ab7a…2ab80 (0x518,0x558)
0x2ab80…2aba0 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 20 20 ┆ 0: nothing ┆
0x2aba0…2abc0 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 74 20 ┆ 1: until next ┆
0x2abc0…2abe0 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 20 20 ┆parameter ┆
0x2abe0…2ac00 32 3a 20 75 6e 74 69 6c 20 6e 65 78 74 20 74 72 61 6e 73 61 63 74 69 6f 00 00 00 00 00 00 00 00 ┆2: until next transactio ┆
0x2ac00…2ac06 (342,) (0x518,0x559)
0x2ac06…2ac20 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 ┆n (paramno<=5). at ┆
0x2ac20…2ac40 72 65 74 75 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 ┆return valindex points to next e┆
0x2ac40…2ac60 6c 65 6d 65 6e 74 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 ┆lement to be read. *> bo┆
0x2ac60…2ac7e 6f 6c 65 61 6e 20 6e 6c 2c 20 72 65 70 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 ┆olean nl, rep; integer i, ┆
0x2ac7e…2ac84 (0x518,0x55a)
0x2ac84…2aca0 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 64 64 ┆paramno; nl := false add┆
0x2aca0…2acc0 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 33 32 ┆ 10; write(out, false add 32┆
0x2acc0…2ace0 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 3a 70 ┆, 30-write(out, nl,1, text), <:p┆
0x2ace0…2acfc 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 ┆rocess :>, proc_name, nl,1)┆
0x2acfc…2ad02 (0x518,0x55b)
0x2ad02…2ad20 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 ┆; for i:=1 step 1 until el┆
0x2ad20…2ad40 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 20 63 ┆em_in_glval do begin c┆
0x2ad40…2ad60 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 20 20 ┆ase glkind(i) of begin ┆
0x2ad60…2ad7a 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┆
0x2ad7a…2ad80 (0x518,0x55c)
0x2ad80…2ada0 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 28 6f ┆val(i)); <* 2 *> write(o┆
0x2ada0…2adc0 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 2a 3e ┆ut, glval(i)); <* 3-5 *>┆
0x2adc0…2ade0 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 20 73 ┆;;; <* 6 *> write(out, s┆
0x2ade0…2ae00 74 72 69 6e 67 28 65 78 74 65 6e 64 20 67 6c 76 61 6c 28 69 29 20 73 68 00 00 00 00 00 00 00 00 ┆tring(extend glval(i) sh ┆
0x2ae00…2ae06 (343,) (0x518,0x55d)
0x2ae06…2ae20 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 ┆ift 24)); <* 7 *> ┆
0x2ae20…2ae40 77 72 69 74 65 28 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 ┆write(out, false add glval(i),1)┆
0x2ae40…2ae60 3b 0a 20 20 20 20 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 ┆; <* 8 *> if glval(i)<>2┆
0x2ae60…2ae7e 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆5 then write(o┆
0x2ae7e…2ae84 (0x518,0x55e)
0x2ae84…2aea0 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 ┆ut, false add glval(i),1); ┆
0x2aea0…2aec0 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 65 20 ┆ <* 9 *> write(out, false ┆
0x2aec0…2aee0 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 20 20 ┆add glval(i),1); end; ┆
0x2aee0…2aefc 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┆
0x2aefc…2af02 (0x518,0x55f)
0x2af02…2af20 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 20 20 ┆); if skip_to>no then ┆
0x2af20…2af40 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 6d 20 ┆ begin <* find next param ┆
0x2af40…2af60 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 72 20 ┆*> rep := true; for ┆
0x2af60…2af7a 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 ┆i:=1 while rep do be┆
0x2af7a…2af80 (0x518,0x560)
0x2af80…2afa0 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 0a 20 ┆gin i := valindex - 1; ┆
0x2afa0…2afc0 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 29 3d ┆ for i:=i+1 while kind(i)=┆
0x2afc0…2afe0 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 20 20 ┆6 do; valindex := i; ┆
0x2afe0…2b000 20 20 20 20 20 73 6b 69 70 5f 74 6f 5f 74 65 78 74 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ skip_to_text; ┆
0x2b000…2b006 (344,) (0x518,0x561)
0x2b006…2b020 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 ┆ if em then emerror; ┆
0x2b020…2b040 20 20 20 20 20 69 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 ┆ i := valindex; read┆
0x2b040…2b060 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 69 66 20 70 61 72 61 ┆_param(paramno); if para┆
0x2b060…2b07e 6d 6e 6f 3d 74 72 5f 65 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆mno=tr_end then begin ┆
0x2b07e…2b084 (0x518,0x562)
0x2b084…2b0a0 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 6f 20 ┆ if init then goto ┆
0x2b0a0…2b0c0 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 20 67 ┆endinit else g┆
0x2b0c0…2b0e0 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 20 20 ┆oto endupd; end ┆
0x2b0e0…2b0fc 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 ┆
0x2b0fc…2b102 (0x518,0x563)
0x2b102…2b120 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 ┆then begin i┆
0x2b120…2b140 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 20 70 ┆f skip_to=pa or skip_to=tr and p┆
0x2b140…2b160 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 20 20 ┆aramno<=great_trno then ┆
0x2b160…2b17a 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┆
0x2b17a…2b180 (0x518,0x564)
0x2b180…2b1a0 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 76 61 ┆am/trans found *> va┆
0x2b1a0…2b1c0 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 3d 20 ┆lindex := i; rep := ┆
0x2b1c0…2b1e0 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 65 6e ┆false; end; en┆
0x2b1e0…2b200 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 73 6b 69 70 5f 74 6f 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆d; end skip_to; ┆
0x2b200…2b206 (345,) (0x518,0x565)
0x2b206…2b220 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 ┆ end; data_error := t┆
0x2b220…2b240 72 75 65 3b 0a 20 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 ┆rue; end error; procedure e┆
0x2b240…2b260 6d 65 72 72 6f 72 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 ┆merror; begin <* writes a ┆
0x2b260…2b27e 74 65 78 74 20 6f 6e 20 70 72 69 6d 61 72 79 20 6f 75 74 70 75 74 20 61 6e 64 20 73 74 6f ┆text on primary output and sto┆
0x2b27e…2b284 (0x518,0x566)
0x2b284…2b2a0 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 20 65 ┆p program-execution *> e┆
0x2b2a0…2b2c0 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 20 20 ┆rror(<:abnormal end:>, no); ┆
0x2b2c0…2b2e0 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 74 20 ┆data_error := true; if init ┆
0x2b2e0…2b2fc 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 ┆then goto endinit ┆
0x2b2fc…2b302 (0x518,0x567)
0x2b302…2b320 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 0c 20 ┆ else goto endupd; end; ┆
0x2b320…2b340 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 20 69 ┆ integer procedure segm_no(zo, i┆
0x2b340…2b360 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 61 72 ┆d, byteno); zone zo; long ar┆
0x2b360…2b37a 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 ┆ray id; integer byteno; ┆
0x2b37a…2b380 (0x518,0x568)
0x2b380…2b3a0 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 70 72 ┆ begin <* searches for a pr┆
0x2b3a0…2b3c0 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 20 20 ┆ocess in the indexsegments. ┆
0x2b3c0…2b3e0 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 6f 63 ┆ segm_no (return) -1 proc┆
0x2b3e0…2b400 65 73 73 20 69 73 20 6e 6f 74 20 69 6e 20 63 61 74 61 6c 6f 67 0a 20 20 00 00 00 00 00 00 00 00 ┆ess is not in catalog ┆
0x2b400…2b406 (346,) (0x518,0x569)
0x2b406…2b420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b420…2b440 65 6c 73 65 20 6e 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 ┆else noof index-segment containi┆
0x2b440…2b460 6e 67 20 70 72 6f 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 ┆ng processname. zo ┆
0x2b460…2b47e 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 67 20 74 68 ┆ (call) zone describing th┆
0x2b47e…2b484 (0x518,0x56a)
0x2b484…2b4a0 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 ┆e catalog to search in. ┆
0x2b4a0…2b4c0 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 66 20 ┆ id (call) name of ┆
0x2b4c0…2b4e0 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 20 20 ┆process to be searched for. ┆
0x2b4e0…2b4fc 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┆
0x2b4fc…2b502 (0x518,0x56b)
0x2b502…2b520 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 0a 20 ┆f byte preceding processname ┆
0x2b520…2b540 20 20 20 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 66 6f ┆ if fo┆
0x2b540…2b560 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 0a 20 ┆und, else byte preceding first ┆
0x2b560…2b57a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b57a…2b580 (0x518,0x56c)
0x2b580…2b5a0 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 20 66 ┆ free byte. *> boolean f┆
0x2b5a0…2b5c0 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 20 69 ┆ound; integer i, psegm_no, i┆
0x2b5c0…2b5e0 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 72 20 ┆ndex_segm, proc_no; integer ┆
0x2b5e0…2b600 61 72 72 61 79 20 66 69 65 6c 64 20 69 6e 64 65 78 2c 20 77 6f 72 64 3b 00 00 00 00 00 00 00 00 ┆array field index, word; ┆
0x2b600…2b606 (347,) (0x518,0x56d)
0x2b606…2b620 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 ┆ long array field name┆
0x2b620…2b640 3b 0a 0a 20 20 20 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 ┆; psegm_no := -1; index┆
0x2b640…2b660 5f 73 65 67 6d 20 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 ┆_segm := 0; setposition(zo, ┆
0x2b660…2b67e 30 2c 20 30 29 3b 0a 20 20 20 20 69 6e 72 65 63 36 28 7a 6f 2c 20 35 31 32 29 3b 0a 20 20 ┆0, 0); inrec6(zo, 512); ┆
0x2b67e…2b684 (0x518,0x56e)
0x2b684…2b6a0 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 3d 20 ┆ word := 0; proc_no := ┆
0x2b6a0…2b6c0 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 6f 2e ┆if init then proc_count else zo.┆
0x2b6c0…2b6e0 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 69 6e ┆word(254); name := 0; in┆
0x2b6e0…2b6fc 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 ┆dex := 10; found := fals┆
0x2b6fc…2b702 (0x518,0x56f)
0x2b702…2b720 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 31 20 ┆e; i := 0; for i:=i+1 ┆
0x2b720…2b740 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 6f 0a ┆while i<=proc_no and -,found do ┆
0x2b740…2b760 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 6f 64 ┆ begin if i>1 and i mod┆
0x2b760…2b77a 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 ┆ proc_pr_index=1 then ┆
0x2b77a…2b780 (0x518,0x570)
0x2b780…2b7a0 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 65 67 ┆ begin <* new index_seg┆
0x2b7a0…2b7c0 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 65 78 ┆m is to be read *> index┆
0x2b7c0…2b7e0 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 20 73 ┆_segm := index_segm+1; s┆
0x2b7e0…2b800 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 2c 20 30 2c 20 69 6e 64 65 78 5f 00 00 00 00 00 00 00 00 ┆etposition(zo, 0, index_ ┆
0x2b800…2b806 (348,) (0x518,0x571)
0x2b806…2b820 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 ┆segm); inrec6(zo, ┆
0x2b820…2b840 35 31 32 29 3b 0a 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 ┆512); name := 0; index ┆
0x2b840…2b860 3a 3d 20 31 30 3b 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 ┆:= 10; end; if id(1)┆
0x2b860…2b87e 3d 7a 6f 2e 6e 61 6d 65 28 31 29 20 61 6e 64 20 69 64 28 32 29 3d 7a 6f 2e 6e 61 6d 65 28 ┆=zo.name(1) and id(2)=zo.name(┆
0x2b87e…2b884 (0x518,0x572)
0x2b884…2b8a0 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 20 20 ┆2) then begin ┆
0x2b8a0…2b8c0 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 20 20 ┆psegm_no := index_segm; ┆
0x2b8c0…2b8e0 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 20 65 ┆found := true; end e┆
0x2b8e0…2b8fc 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 ┆lse begin name┆
0x2b8fc…2b902 (0x518,0x573)
0x2b902…2b920 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 20 20 ┆ := name + index_lgt; ┆
0x2b920…2b940 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 20 20 ┆index := index + index_lgt; ┆
0x2b940…2b960 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 20 70 ┆ end; end; segm_no := p┆
0x2b960…2b97a 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 ┆segm_no; if -,found an┆
0x2b97a…2b980 (0x518,0x574)
0x2b980…2b9a0 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 61 6d ┆d i mod proc_pr_index=1 then nam┆
0x2b9a0…2b9c0 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 65 6e ┆e := 0; byteno := name; en┆
0x2b9c0…2b9e0 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 72 65 ┆d segm_no; integer procedure┆
0x2b9e0…2ba00 20 74 65 72 6d 5f 73 65 67 6d 28 7a 6f 2c 20 70 72 6f 63 5f 73 65 67 6d 00 00 00 00 00 00 00 00 ┆ term_segm(zo, proc_segm ┆
0x2ba00…2ba06 (349,) (0x518,0x575)
0x2ba06…2ba20 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 ┆, id1, id2, byteno); val┆
0x2ba20…2ba40 75 65 20 70 72 6f 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 ┆ue proc_segm, id2; zone zo; ┆
0x2ba40…2ba60 69 6e 74 65 67 65 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 ┆integer proc_segm, byteno, id2; ┆
0x2ba60…2ba7e 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 69 64 31 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ long array id1; begin ┆
0x2ba7e…2ba84 (0x518,0x576)
0x2ba84…2baa0 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 20 62 ┆<* searches for a terminal b┆
0x2baa0…2bac0 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 0a 20 ┆elonging to a certain process. ┆
0x2bac0…2bae0 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 73 20 ┆ term_segm (return) abs ┆
0x2bae0…2bafc 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 ┆value is number of segment o┆
0x2bafc…2bb02 (0x518,0x577)
0x2bb02…2bb20 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 20 20 ┆n hand. ┆
0x2bb20…2bb40 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 64 0a ┆ negative: term not found ┆
0x2bb40…2bb60 20 20 20 20 20 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 6f 73 ┆ pos┆
0x2bb60…2bb7a 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 ┆itive no of segment descri┆
0x2bb7a…2bb80 (0x518,0x578)
0x2bb80…2bba0 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 20 20 ┆bing the terminal. zo ┆
0x2bba0…2bbc0 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 67 20 ┆ (call) zone describing ┆
0x2bbc0…2bbe0 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 20 20 ┆the catalog to search in. ┆
0x2bbe0…2bc00 20 70 72 6f 63 5f 73 65 67 6d 20 20 20 28 63 61 6c 6c 29 20 20 20 20 6e 00 00 00 00 00 00 00 00 ┆ proc_segm (call) n ┆
0x2bc00…2bc06 (350,) (0x518,0x579)
0x2bc06…2bc20 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 ┆o of segment at which to s┆
0x2bc20…2bc40 74 61 72 74 20 74 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 ┆tart the search. id1, id2┆
0x2bc40…2bc60 20 20 20 20 28 63 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 ┆ (call) names of terminal.┆
0x2bc60…2bc7e 0a 20 20 20 20 20 20 20 62 79 74 65 6e 6f 20 20 20 20 20 20 28 72 65 74 75 72 6e 29 20 20 ┆ byteno (return) ┆
0x2bc7e…2bc84 (0x518,0x57a)
0x2bc84…2bca0 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 6e 61 ┆no of byte preceding termina┆
0x2bca0…2bcc0 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 20 20 ┆l describtion ┆
0x2bcc0…2bce0 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 70 72 ┆ if found else byte pr┆
0x2bce0…2bcfc 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 ┆eceding firste free. *> ┆
0x2bcfc…2bd02 (0x518,0x57b)
0x2bd02…2bd20 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 72 20 ┆ boolean cont; integer ┆
0x2bd20…2bd40 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 6e 61 ┆i, segm_no; integer field na┆
0x2bd40…2bd60 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 65 6c ┆me2,next; integer array fiel┆
0x2bd60…2bd7a 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 ┆d word; long array fie┆
0x2bd7a…2bd80 (0x518,0x57c)
0x2bd80…2bda0 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 63 5f ┆ld name1; segm_no := -proc_┆
0x2bda0…2bdc0 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 72 6f ┆segm; setposition(zo, 0, pro┆
0x2bdc0…2bde0 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 3b 0a ┆c_segm); swoprec6(zo, 512); ┆
0x2bde0…2be00 20 20 20 20 77 6f 72 64 20 3a 3d 20 30 3b 0a 20 20 20 20 6e 61 6d 65 31 00 00 00 00 00 00 00 00 ┆ word := 0; name1 ┆
0x2be00…2be06 (351,) (0x518,0x57d)
0x2be06…2be20 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 ┆ := proc_des_lgt; name2 :┆
0x2be20…2be40 3d 20 6e 61 6d 65 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 ┆= name1 + 10; next := name1 ┆
0x2be40…2be60 2b 20 32 3b 0a 20 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 ┆+ 2; cont := true; i := ┆
0x2be60…2be7e 30 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 69 2b 31 20 77 68 69 6c 65 20 63 6f 6e 74 20 61 ┆0; for i:=i+1 while cont a┆
0x2be7e…2be84 (0x518,0x57e)
0x2be84…2bea0 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 6e 0a ┆nd zo.next<>-1 do begin ┆
0x2bea0…2bec0 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 64 20 ┆ if id1(1)=zo.name1(1) and ┆
0x2bec0…2bee0 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 20 69 ┆id1(2)=zo.name1(2) or i┆
0x2bee0…2befc 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 ┆d2=zo.name2 then begin┆
0x2befc…2bf02 (0x518,0x57f)
0x2bf02…2bf20 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 20 20 ┆ cont := false; ┆
0x2bf20…2bf40 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 6e 64 ┆ segm_no := -segm_no; end┆
0x2bf40…2bf60 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 20 20 ┆ else begin ┆
0x2bf60…2bf7a 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_┆
0x2bf7a…2bf80 (0x518,0x580)
0x2bf80…2bfa0 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 73 5f ┆lgt; name2 := name2 + term_des_┆
0x2bfa0…2bfc0 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 72 6d ┆lgt; next := next + term┆
0x2bfc0…2bfe0 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 70 72 ┆_des_lgt; if -segm_no=pr┆
0x2bfe0…2c000 6f 63 5f 73 65 67 6d 20 61 6e 64 20 69 3d 74 65 72 6d 5f 70 72 5f 70 72 00 00 00 00 00 00 00 00 ┆oc_segm and i=term_pr_pr ┆
0x2c000…2c006 (352,) (0x518,0x581)
0x2c006…2c020 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 ┆segm or -segm_n┆
0x2c020…2c040 6f 3c 3e 70 72 6f 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 ┆o<>proc_segm and i=term_pr_segm ┆
0x2c040…2c060 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 20 ┆then begin if ┆
0x2c060…2c07e 7a 6f 2e 77 6f 72 64 28 32 35 36 29 3d 2d 31 20 74 68 65 6e 20 63 6f 6e 74 20 3a 3d 20 66 ┆zo.word(256)=-1 then cont := f┆
0x2c07e…2c084 (0x518,0x582)
0x2c084…2c0a0 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 ┆
0x2c0a0…2c0c0 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 7a 6f ┆ begin segm_no:=-zo┆
0x2c0c0…2c0e0 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 69 74 ┆.word(256); setposit┆
0x2c0e0…2c0fc 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 ┆ion(zo, 0, -segm_no); ┆
0x2c0fc…2c102 (0x518,0x583)
0x2c102…2c120 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 20 20 ┆ swoprec6(zo, 512); ┆
0x2c120…2c140 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 30 3b ┆ name1 := 0; name2 := 10;┆
0x2c140…2c160 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 20 ┆ next := 2; ┆
0x2c160…2c17a 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;┆
0x2c17a…2c180 (0x518,0x584)
0x2c180…2c1a0 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 64 20 ┆ end end; end ┆
0x2c1a0…2c1c0 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 6f 3b ┆for i; term_segm := segm_no;┆
0x2c1c0…2c1e0 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 72 6d ┆ byteno := name1; end term┆
0x2c1e0…2c200 5f 73 65 67 6d 3b 0a 0c 20 20 70 72 6f 63 65 64 75 72 65 20 65 78 74 65 00 00 00 00 00 00 00 00 ┆_segm; procedure exte ┆
0x2c200…2c206 (353,) (0x518,0x585)
0x2c206…2c220 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 ┆ndcat(zo); zone zo; be┆
0x2c220…2c240 67 69 6e 0a 20 20 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 ┆gin <* extends the area desc┆
0x2c240…2c260 72 69 62 65 64 20 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 ┆ribed by zo with one segment. ┆
0x2c260…2c27e 20 20 20 20 20 74 68 65 20 6e 65 77 20 73 65 67 6d 65 6e 74 28 73 29 20 69 73 20 63 68 61 ┆ the new segment(s) is cha┆
0x2c27e…2c284 (0x518,0x586)
0x2c284…2c2a0 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 67 6d ┆ined as free. maxsegm┆
0x2c2a0…2c2c0 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 72 65 ┆ is initialized with the new are┆
0x2c2c0…2c2e0 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 65 67 ┆asize. *> integer oldseg┆
0x2c2e0…2c2fc 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 ┆ms, newsegm, i, j, old; ┆
0x2c2fc…2c302 (0x518,0x587)
0x2c302…2c320 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 20 20 ┆integer array tail(1:10); ┆
0x2c320…2c340 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 30 2c ┆i := monitor(42) lookup :(zo, 0,┆
0x2c340…2c360 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 28 39 ┆ tail); if i>0 then system(9┆
0x2c360…2c37a 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 ┆, i, <:<10>lookup:>); ┆
0x2c37a…2c380 (0x518,0x588)
0x2c380…2c3a0 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 31 29 ┆oldsegms := tail(1); tail(1)┆
0x2c3a0…2c3c0 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 74 6f ┆ := tail(1) + 1; i := monito┆
0x2c3c0…2c3e0 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 69 6c ┆r(44) change entry :(zo, 0, tail┆
0x2c3e0…2c400 29 3b 0a 20 20 20 20 69 66 20 69 3e 30 20 74 68 65 6e 20 73 79 73 74 65 00 00 00 00 00 00 00 00 ┆); if i>0 then syste ┆
0x2c400…2c406 (354,) (0x518,0x589)
0x2c406…2c420 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 ┆m(9, i, <:<10>ch.entr:>); ┆
0x2c420…2c440 20 20 20 20 69 20 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 ┆ i := monitor(42, zo, 0, tail┆
0x2c440…2c460 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 20 69 2c 20 ┆); if i>0 then system(9, i, ┆
0x2c460…2c47e 3c 3a 3c 31 30 3e 6c 6f 6f 6b 75 70 3a 3e 29 3b 0a 20 20 20 20 6e 65 77 73 65 67 6d 20 3a ┆<:<10>lookup:>); newsegm :┆
0x2c47e…2c484 (0x518,0x58a)
0x2c484…2c4a0 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 74 69 ┆= tail(1) - 1; setpositi┆
0x2c4a0…2c4c0 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 31 32 ┆on(zo, 0, 0); inrec6(zo, 512┆
0x2c4c0…2c4e0 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 65 77 ┆); old := -1; for i:=new┆
0x2c4e0…2c4fc 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 ┆segm step -1 until oldsegms ┆
0x2c4fc…2c502 (0x518,0x58b)
0x2c502…2c520 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 6f 6e ┆do begin setposition┆
0x2c520…2c540 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 35 31 ┆(zo, 0, i); outrec6(zo, 51┆
0x2c540…2c560 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 6c 20 ┆2); for j:=1 step 1 until ┆
0x2c560…2c57a 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 ┆255 do zo.word(j) := -1; ┆
0x2c57a…2c580 (0x518,0x58c)
0x2c580…2c5a0 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 20 20 ┆ zo.word(256) := old; ┆
0x2c5a0…2c5c0 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 74 69 ┆old := i; end; setpositi┆
0x2c5c0…2c5e0 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 20 35 ┆on(zo, 0, 0); swoprec6(zo, 5┆
0x2c5e0…2c600 31 32 29 3b 0a 20 20 20 20 7a 6f 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 00 00 00 00 00 00 00 00 ┆12); zo.word(256) := ┆
0x2c600…2c606 (355,) (0x518,0x58d)
0x2c606…2c620 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 ┆ oldsegms; maxsegm := ┆
0x2c620…2c640 6e 65 77 73 65 67 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 ┆newsegm; end udvidcat; begi┆
0x2c640…2c660 6e 20 3c 2a 20 72 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 ┆n <* read and check fp-params *>┆
0x2c660…2c67e 0a 20 20 20 20 3c 2a 20 73 79 6e 74 61 78 20 6f 66 20 70 72 6f 67 72 61 6d 63 61 6c 6c 3a ┆ <* syntax of programcall:┆
0x2c67e…2c684 (0x518,0x58e)
0x2c684…2c6a0 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 63 61 ┆ (<newcat> =) upsosca┆
0x2c6a0…2c6c0 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 29 20 ┆t (<input>) (oldcat.(<cat>/no)) ┆
0x2c6c0…2c6e0 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 20 20 ┆(list.(<outfile>/no)) *> ┆
0x2c6e0…2c6fc 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, ┆
0x2c6fc…2c702 (0x518,0x58f)
0x2c702…2c720 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 20 20 ┆j, k, l, m, in_no; real ┆
0x2c720…2c740 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 28 31 ┆ short; integer array tail(1┆
0x2c740…2c760 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 20 66 ┆:10), ia(1:20); long array f┆
0x2c760…2c77a 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 ┆ield name; real array ┆
0x2c77a…2c780 (0x518,0x590)
0x2c780…2c7a0 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 20 65 ┆arr(1:2); zone z(128*3, 3, e┆
0x2c7a0…2c7c0 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 0a 20 ┆m); procedure em(z, s, b); ┆
0x2c7c0…2c7e0 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 20 20 ┆ zone z; integer s, b; ┆
0x2c7e0…2c800 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 31 38 29 3d 31 20 74 00 00 00 00 00 00 00 00 ┆ if s shift (-18)=1 t ┆
0x2c800…2c806 (356,) (0x518,0x591)
0x2c806…2c820 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 ┆hen goto copyend ┆
0x2c820…2c840 20 20 20 20 20 20 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 ┆ else stderror(z┆
0x2c840…2c860 2c 20 73 2c 20 62 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 ┆, s, b); <* get name of fi┆
0x2c860…2c87e 72 73 74 20 62 73 20 64 65 76 69 63 65 20 66 72 6f 6d 20 6d 6f 6e 69 74 6f 72 20 74 61 62 ┆rst bs device from monitor tab┆
0x2c87e…2c884 (0x518,0x592)
0x2c884…2c8a0 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 ┆le *> system(5) move cor┆
0x2c8a0…2c8c0 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 72 65 ┆e :(98,ia); <* ia(1) holds addre┆
0x2c8c0…2c8e0 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 20 20 ┆ss of chain table ┆
0x2c8e0…2c8fc 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┆
0x2c8fc…2c902 (0x518,0x593)
0x2c902…2c920 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 3c 2a ┆vice holding maincat *> <*┆
0x2c920…2c940 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 6c 65 ┆ get device name from chaintable┆
0x2c940…2c960 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 69 61 ┆ *> system(5) move core :(ia┆
0x2c960…2c97a 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 ┆(1)-18,first_bs_device); ┆
0x2c97a…2c980 (0x518,0x594)
0x2c980…2c9a0 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 66 6f ┆ name := 2; j := 0; fo┆
0x2c9a0…2c9c0 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 65 77 ┆r i:=1,2 do oldcat(i) := new┆
0x2c9c0…2c9e0 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 3a 3a ┆cat(i) := outfile(i) := long <::┆
0x2c9e0…2ca00 3e 3b 0a 20 20 20 20 69 6e 69 74 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆>; init := true; ┆
0x2ca00…2ca06 (357,) (0x518,0x595)
0x2ca06…2ca20 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 ┆ list := false; i := s┆
0x2ca20…2ca40 79 73 74 65 6d 28 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 ┆ystem(4, 1, arr); if i=6 shi┆
0x2ca40…2ca60 66 74 20 31 32 20 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 ┆ft 12 + 10 then begin ┆
0x2ca60…2ca7e 3c 2a 20 3c 6e 65 77 63 61 74 3e 20 69 73 20 74 6f 20 62 65 20 72 65 61 64 20 2a 3e 0a 20 ┆<* <newcat> is to be read *> ┆
0x2ca7e…2ca84 (0x518,0x596)
0x2ca84…2caa0 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 29 3b ┆ i := system(4, 0, arr);┆
0x2caa0…2cac0 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 30 2c ┆ if i<=0 then system(9, 0,┆
0x2cac0…2cae0 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 6e 65 ┆ <:<10>call:>); to_from(ne┆
0x2cae0…2cafc 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 ┆wcat, arr, 8); j := 2;┆
0x2cafc…2cb02 (0x518,0x597)
0x2cb02…2cb20 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 20 20 ┆ end else j := 1; ┆
0x2cb20…2cb40 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 34 2c ┆in_no := j; for i:=system(4,┆
0x2cb40…2cb60 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 6e 0a ┆ j, arr) while i>0 do begin ┆
0x2cb60…2cb7a 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 ┆ if i=4 shift 12 + 10┆
0x2cb7a…2cb80 (0x518,0x598)
0x2cb80…2cba0 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 20 31 ┆ and arr(1)=real <:oldca:> add 1┆
0x2cba0…2cbc0 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 65 61 ┆16 and arr(2)= rea┆
0x2cbc0…2cbe0 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 79 20 ┆l <::> then begin <* copy ┆
0x2cbe0…2cc00 3c 63 61 74 3e 20 2a 3e 0a 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 6a 20 00 00 00 00 00 00 00 00 ┆<cat> *> j := j ┆
0x2cc00…2cc06 (358,) (0x518,0x599)
0x2cc06…2cc20 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 ┆+ 1; if system(4, ┆
0x2cc20…2cc40 6a 2c 20 61 72 72 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 ┆j, arr)=8 shift 12 + 10 then ┆
0x2cc40…2cc60 20 20 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 20 ┆ begin if arr(1)= ┆
0x2cc60…2cc7e 72 65 61 6c 20 3c 3a 6e 6f 3a 3e 20 74 68 65 6e 20 69 6e 69 74 20 3a 3d 20 74 72 75 65 0a ┆real <:no:> then init := true ┆
0x2cc7e…2cc84 (0x518,0x59a)
0x2cc84…2cca0 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 ┆ else beg┆
0x2cca0…2ccc0 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 20 61 ┆in to_from(oldcat, a┆
0x2ccc0…2cce0 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 6c 73 ┆rr, 8); init := fals┆
0x2cce0…2ccfc 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 ┆e; end; en┆
0x2ccfc…2cd02 (0x518,0x59b)
0x2cd02…2cd20 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 3c 3a ┆d else system(9, j, <:┆
0x2cd20…2cd40 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 6c 73 ┆<10>call:>); end els┆
0x2cd40…2cd60 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 28 31 ┆e if i=4 shift 12 + 10 and arr(1┆
0x2cd60…2cd7a 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 ┆)=real <:list:> then ┆
0x2cd7a…2cd80 (0x518,0x59c)
0x2cd80…2cda0 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 20 74 ┆ begin <* <outfile> is t┆
0x2cda0…2cdc0 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 31 3b ┆o be read *> j := j + 1;┆
0x2cdc0…2cde0 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 38 20 ┆ if system(4, j, arr)=8 ┆
0x2cde0…2ce00 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆shift 12 + 10 then ┆
0x2ce00…2ce06 (359,) (0x518,0x59d)
0x2ce06…2ce20 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 ┆ begin if arr(┆
0x2ce20…2ce40 31 29 3d 72 65 61 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 ┆1)=real <:no:> then list := fals┆
0x2ce40…2ce60 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 20 20 62 65 67 69 6e ┆e else begin┆
0x2ce60…2ce7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 6f 75 74 66 69 6c 65 2c 20 ┆ to_from(outfile, ┆
0x2ce7e…2ce84 (0x518,0x59e)
0x2ce84…2cea0 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 3a 3d ┆arr, 8); list :=┆
0x2cea0…2cec0 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 20 20 ┆ true; end; ┆
0x2cec0…2cee0 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 3c 3a ┆end else system(9, j, <:┆
0x2cee0…2cefc 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 ┆
0x2cefc…2cf02 (0x518,0x59f)
0x2cf02…2cf20 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 69 66 ┆ else if j<>in_no or i<>4 shif┆
0x2cf20…2cf40 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 3c 31 ┆t 12 + 10 then system(9, j, <:<1┆
0x2cf40…2cf60 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 20 20 ┆0>call:>); j := j + 1; ┆
0x2cf60…2cf7a 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)┆
0x2cf7a…2cf80 (0x518,0x5a0)
0x2cf80…2cfa0 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 20 20 ┆=long <::> then begin ┆
0x2cfa0…2cfc0 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 20 66 ┆open(zonew, 4, <::>, 0); f┆
0x2cfc0…2cfe0 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 6c 28 ┆or i:=2 step 1 until 10 do tail(┆
0x2cfe0…2d000 69 29 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 74 61 69 6c 28 31 29 20 3a 00 00 00 00 00 00 00 00 ┆i) := 0; tail(1) : ┆
0x2d000…2d006 (360,) (0x518,0x5a1)
0x2d006…2d020 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 ┆= 1; tail(6) := syst┆
0x2d020…2d040 69 6d 65 28 37 2c 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 ┆ime(7, 0, short); m := mon┆
0x2d040…2d060 69 74 6f 72 28 34 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 ┆itor(40) cr entr :( zonew, 0, ta┆
0x2d060…2d07e 69 6c 29 3b 0a 20 20 20 20 20 20 69 66 20 6d 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 ┆il); if m>0 then system(┆
0x2d07e…2d084 (0x518,0x5a2)
0x2d084…2d0a0 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 20 20 ┆9, m, <:<10>temp cr:>); ┆
0x2d0a0…2d0c0 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 6c 6f ┆ getzone6(zonew, ia); clo┆
0x2d0c0…2d0e0 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 31 29 ┆se(zonew, true); newcat(1)┆
0x2d0e0…2d0fc 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 ┆ := extend ia(2) shift 24 ad┆
0x2d0fc…2d102 (0x518,0x5a3)
0x2d102…2d120 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 65 78 ┆d ia(3); newcat(2) := ex┆
0x2d120…2d140 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 0a 20 ┆tend ia(4) shift 24 add ia(5); ┆
0x2d140…2d160 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 6e 64 ┆ tempnewcat := true; end┆
0x2d160…2d17a 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 ┆ else begin ┆
0x2d17a…2d180 (0x518,0x5a4)
0x2d180…2d1a0 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 3d 20 ┆tempnewcat := false; k := ┆
0x2d1a0…2d1c0 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 28 69 ┆1; open(zonew, 4, newcat(i┆
0x2d1c0…2d1e0 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 6e 69 ┆ncrease(k)), 0); m := moni┆
0x2d1e0…2d200 74 6f 72 28 34 32 29 20 6c 6f 6f 6b 75 70 20 3a 28 20 7a 6f 6e 65 77 2c 00 00 00 00 00 00 00 00 ┆tor(42) lookup :( zonew, ┆
0x2d200…2d206 (361,) (0x518,0x5a5)
0x2d206…2d220 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 ┆ 0, tail); if m=3 th┆
0x2d220…2d240 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 32 20 ┆en begin for i:=2 ┆
0x2d240…2d260 73 74 65 70 20 31 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 ┆step 1 until 10 do tail(i) := 0;┆
0x2d260…2d27e 0a 20 20 20 20 20 20 20 20 74 61 69 6c 28 31 29 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 ┆ tail(1) := 1; ┆
0x2d27e…2d284 (0x518,0x5a6)
0x2d284…2d2a0 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 73 68 ┆ tail(6) := systime(7, 0, sh┆
0x2d2a0…2d2c0 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 20 63 ┆ort); m := monitor(40) c┆
0x2d2c0…2d2e0 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 20 20 ┆r entr :( zonew, 0, tail); ┆
0x2d2e0…2d2fc 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, ┆
0x2d2fc…2d302 (0x518,0x5a7)
0x2d302…2d320 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 0a 20 ┆<:<10>temp cre:>); end ┆
0x2d320…2d340 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 39 2c ┆ else if m<>0 then system(9,┆
0x2d340…2d360 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 65 28 ┆ m,<:<10>newcat:>); close(┆
0x2d360…2d37a 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 ┆zonew, true); end; ┆
0x2d37a…2d380 (0x518,0x5a8)
0x2d380…2d3a0 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 20 20 ┆ if -,init then begin ┆
0x2d3a0…2d3c0 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 67 20 ┆k := 1; open(z, 4, string ┆
0x2d3c0…2d3e0 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 38 29 ┆oldcat(increase(k)), 1 shift 18)┆
0x2d3e0…2d400 3b 0a 20 20 20 20 20 20 6d 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 32 29 00 00 00 00 00 00 00 00 ┆; m := monitor(42) ┆
0x2d400…2d406 (362,) (0x518,0x5a9)
0x2d406…2d420 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 ┆lookup:( z, 0, tail); ┆
0x2d420…2d440 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 3c 3a 3c 31 30 ┆ if m>0 then system(9, m, <:<10┆
0x2d440…2d460 3e 6f 6c 64 63 61 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 ┆>oldcat:>); open(zoold, 4,┆
0x2d460…2d47e 20 3c 3a 3a 3e 2c 20 30 29 3b 0a 20 20 20 20 20 20 74 61 69 6c 2e 6e 61 6d 65 28 31 29 20 ┆ <::>, 0); tail.name(1) ┆
0x2d47e…2d484 (0x518,0x5aa)
0x2d484…2d4a0 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 61 6d ┆:= long <::>; tail.nam┆
0x2d4a0…2d4c0 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 6d 6f ┆e(2) := long <::>; m := mo┆
0x2d4c0…2d4e0 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 20 30 ┆nitor(40)create entry:( zoold, 0┆
0x2d4e0…2d4fc 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 ┆, tail); if m>0 then s┆
0x2d4fc…2d502 (0x518,0x5ab)
0x2d502…2d520 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 29 3b ┆ystem(9, m, <:<10>temp cre:>);┆
0x2d520…2d540 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 2a 20 ┆ getzone6(zoold, ia); <* ┆
0x2d540…2d560 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 6f 6f ┆get area-name *> close(zoo┆
0x2d560…2d57a 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 ┆ld, true); arr(1) :=┆
0x2d57a…2d580 (0x518,0x5ac)
0x2d580…2d5a0 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 32 34 ┆ 0.0 shift 24 add ia(2) shift 24┆
0x2d5a0…2d5c0 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 30 20 ┆ add ia(3); arr(2) := 0.0 ┆
0x2d5c0…2d5e0 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 64 20 ┆shift 24 add ia(4) shift 24 add ┆
0x2d5e0…2d600 69 61 28 35 29 3b 0a 20 20 20 20 20 20 6b 20 3a 3d 20 31 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ia(5); k := 1; ┆
0x2d600…2d606 (363,) (0x518,0x5ad)
0x2d606…2d620 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 ┆ open(zoold, 4, string a┆
0x2d620…2d640 72 72 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 6f 6b 20 3a 3d ┆rr(increase(k)), 0); ok :=┆
0x2d640…2d660 20 74 72 75 65 3b 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 ┆ true; for k:=1 while ok d┆
0x2d660…2d67e 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a ┆o begin inrec6(z┆
0x2d67e…2d684 (0x518,0x5ae)
0x2d684…2d6a0 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 6f 6c ┆, 512); outrec6(zool┆
0x2d6a0…2d6c0 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 20 31 ┆d, 512); for l:=1 step 1┆
0x2d6c0…2d6e0 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 20 3a ┆ until 128 do zoold(l) :┆
0x2d6e0…2d6fc 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: ┆
0x2d6fc…2d702 (0x518,0x5af)
0x2d702…2d720 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 64 3b ┆ close(z, true); end;┆
0x2d720…2d740 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 20 20 ┆ if list then begin ┆
0x2d740…2d760 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 20 6f ┆ k := 1; open(zoout, 4, o┆
0x2d760…2d77a 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 ┆utfile(increase(k)), 0); ┆
0x2d77a…2d780 (0x518,0x5b0)
0x2d780…2d7a0 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 28 20 ┆ m := monitor(42) lookup :( ┆
0x2d7a0…2d7c0 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 74 68 ┆zoout, 0, tail); if m=3 th┆
0x2d7c0…2d7e0 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 32 20 ┆en begin for i:=2 ┆
0x2d7e0…2d800 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 74 61 69 6c 28 00 00 00 00 00 00 00 00 ┆step 1 until 10 do tail( ┆
0x2d800…2d806 (364,) (0x518,0x5b1)
0x2d806…2d820 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 ┆i) := 0; tail(1) :┆
0x2d820…2d840 3d 20 31 3b 0a 20 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 ┆= 1; tail(6) := systime(┆
0x2d840…2d860 37 2c 20 30 2c 20 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 ┆7, 0, short); m := monit┆
0x2d860…2d87e 6f 72 28 34 30 29 63 72 20 65 6e 74 72 20 3a 28 20 7a 6f 6f 75 74 2c 20 30 2c 20 74 61 69 ┆or(40)cr entr :( zoout, 0, tai┆
0x2d87e…2d884 (0x518,0x5b2)
0x2d884…2d8a0 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 73 74 ┆l); if m>0 then syst┆
0x2d8a0…2d8c0 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 20 20 ┆em(9, m,<:<10>temp cre:>); ┆
0x2d8c0…2d8e0 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 79 73 ┆ end else if m<>0 then sys┆
0x2d8e0…2d8fc 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 ┆tem(9, m, <:<10>outfile:>); ┆
0x2d8fc…2d902 (0x518,0x5b3)
0x2d902…2d920 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 20 20 ┆ close(zoout, true); ┆
0x2d920…2d940 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 74 69 ┆end; end fp-param; <* initi┆
0x2d940…2d960 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 65 20 ┆alize cat_table and quote_table ┆
0x2d960…2d97a 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 ┆*> begin integer i; ┆
0x2d97a…2d980 (0x518,0x5b4)
0x2d980…2d9a0 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 20 30 ┆ <* cat_table-kinds: 0┆
0x2d9a0…2d9c0 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 61 74 ┆: same as iso. 1: great┆
0x2d9c0…2d9e0 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 20 20 ┆ number. 2: number. ┆
0x2d9e0…2da00 20 20 20 33 3a 20 20 73 69 67 6e 73 2e 0a 20 20 20 20 20 20 20 36 3a 20 00 00 00 00 00 00 00 00 ┆ 3: signs. 6: ┆
0x2da00…2da06 (365,) (0x518,0x5b5)
0x2da06…2da20 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 ┆ letters. 7: space┆
0x2da20…2da40 2e 0a 20 20 20 20 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 ┆. 8: quote, ff, nl and e┆
0x2da40…2da60 6d 2e 0a 20 20 20 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 ┆m. 9: the rest, illegal ┆
0x2da60…2da7e 63 68 61 72 61 63 74 65 72 73 2e 0a 20 20 20 20 2a 3e 0a 20 20 20 20 66 6f 72 20 69 3a 3d ┆characters. *> for i:=┆
0x2da7e…2da84 (0x518,0x5b6)
0x2da84…2daa0 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 20 31 ┆1 step 1 until 47, 58 step 1┆
0x2daa0…2dac0 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 39 36 ┆ until 64, 94, 95, 96┆
0x2dac0…2dae0 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 20 73 ┆, 126 do cat_table(i) := 9 s┆
0x2dae0…2dafc 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 ┆hift 12 + i; for i:=0, 1┆
0x2dafc…2db02 (0x518,0x5b7)
0x2db02…2db20 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 73 68 ┆3, 127 do cat_table(i) := 0 sh┆
0x2db20…2db40 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 20 31 ┆ift 12 + i; for i:=48 step 1┆
0x2db40…2db60 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 20 73 ┆ until 57 do cat_table(i) := 2 s┆
0x2db60…2db7a 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 ┆hift 12 + i; cat_table┆
0x2db7a…2db80 (0x518,0x5b8)
0x2db80…2dba0 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 61 74 ┆(43) := 3 shift 12 + 43; cat┆
0x2dba0…2dbc0 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 0a 20 ┆_table(45) := 3 shift 12 + 45; ┆
0x2dbc0…2dbe0 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 6f 20 ┆ for i:=65 step 1 until 93 do ┆
0x2dbe0…2dc00 63 61 74 5f 74 61 62 6c 65 28 69 29 20 3a 3d 20 36 20 73 68 69 66 74 20 00 00 00 00 00 00 00 00 ┆cat_table(i) := 6 shift ┆
0x2dc00…2dc06 (366,) (0x518,0x5b9)
0x2dc06…2dc20 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 ┆12 + i+32; for i:=97 s┆
0x2dc20…2dc40 74 65 70 20 31 20 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 ┆tep 1 until 125 do cat_table(i) ┆
0x2dc40…2dc60 3a 3d 20 36 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 ┆:= 6 shift 12 + i; cat_table┆
0x2dc60…2dc7e 28 33 32 29 20 3a 3d 20 37 20 73 68 69 66 74 20 31 32 20 2b 20 33 32 3b 0a 20 20 20 20 66 ┆(32) := 7 shift 12 + 32; f┆
0x2dc7e…2dc84 (0x518,0x5ba)
0x2dc84…2dca0 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 74 5f ┆or i:=10, 12, 25, 34 do cat_┆
0x2dca0…2dcc0 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 20 20 ┆table(i) := 8 shift 12 + i; ┆
0x2dcc0…2dce0 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 30 3a ┆ <* quote_table-kinds: 0:┆
0x2dce0…2dcfc 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 ┆ same as iso. 8: qu┆
0x2dcfc…2dd02 (0x518,0x5bb)
0x2dd02…2dd20 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 65 73 ┆ote and em. 6: the res┆
0x2dd20…2dd40 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 75 6e ┆t. *> for i:=1 step 1 un┆
0x2dd40…2dd60 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 20 73 ┆til 127 do quote_table(i) := 6 s┆
0x2dd60…2dd7a 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 ┆hift 12 + i; for i:=0,┆
0x2dd7a…2dd80 (0x518,0x5bc)
0x2dd80…2dda0 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 30 20 ┆ 13, 127 do quote_table(i) := 0 ┆
0x2dda0…2ddc0 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 34 20 ┆shift 12 + i; for i:=25, 34 ┆
0x2ddc0…2dde0 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 32 20 ┆do quote_table(i) := 8 shift 12 ┆
0x2dde0…2de00 2b 20 69 3b 0a 0a 20 20 20 20 69 6e 74 61 62 6c 65 28 63 61 74 5f 74 61 00 00 00 00 00 00 00 00 ┆+ i; intable(cat_ta ┆
0x2de00…2de06 (367,) (0x518,0x5bd)
0x2de06…2de20 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 ┆ble); end; <* initial┆
0x2de20…2de40 69 7a 65 20 70 61 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 ┆ize param *> begin integer┆
0x2de40…2de60 20 69 3b 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 32 32 ┆ i; for i:=0 step 1 until 22┆
0x2de60…2de7e 20 64 6f 0a 20 20 20 20 70 61 72 61 6d 28 69 29 20 3a 3d 20 6c 6f 6e 67 20 28 63 61 73 65 ┆ do param(i) := long (case┆
0x2de7e…2de84 (0x518,0x5be)
0x2de84…2dea0 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 0a 20 ┆ (i+1) of ( <:end:>, ┆
0x2dea0…2dec0 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 6f 3a ┆ <:maxp:>, <:proc:>, <:dpro:┆
0x2dec0…2dee0 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 3a 62 ┆>, <:cpro:>, <:ipro:>, <:b┆
0x2dee0…2defc 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 ┆uf:>, <:area:>, <:stdb:>, <┆
0x2defc…2df02 (0x518,0x5bf)
0x2df02…2df20 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 61 73 ┆:user:>, <:maxb:>, <:pas┆
0x2df20…2df40 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 20 3c ┆s:>, <:mins:>, <:maxs:>, <┆
0x2df40…2df60 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 65 79 ┆:fp:>, <:bs:>, <:key0:>, <:key┆
0x2df60…2df7a 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 ┆1:>, <:key2:>, <:key┆
0x2df7a…2df80 (0x518,0x5c0)
0x2df80…2dfa0 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 20 20 ┆3:>, <:dter:>, <:term:>, <::>) ┆
0x2dfa0…2dfc0 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 73 65 ┆); end; data_error := false┆
0x2dfc0…2dfe0 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 20 3a ┆; em := false; elem_in_val :┆
0x2dfe0…2e000 3d 20 30 3b 0a 20 20 65 6c 65 6d 5f 69 6e 5f 67 6c 76 61 6c 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆= 0; elem_in_glval := ┆
0x2e000…2e006 (368,) (0x518,0x5c1)
0x2e006…2e020 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 ┆1; glval(1) := glkind(1)┆
0x2e020…2e040 20 3a 3d 20 30 3b 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 ┆ := 0; valindex := 1; proc_n┆
0x2e040…2e060 61 6d 65 28 31 29 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 ┆ame(1) := proc_name(2) := long <┆
0x2e060…2e07e 3a 3a 3e 3b 0a 20 20 6e 6f 20 3a 3d 20 30 3b 0a 20 20 70 61 20 3a 3d 20 31 3b 0a 20 20 74 ┆::>; no := 0; pa := 1; t┆
0x2e07e…2e084 (0x518,0x5c2)
0x2e084…2e0a0 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 31 30 ┆r := 2; nl := false add 10┆
0x2e0a0…2e0c0 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 20 3a ┆; sp := false add 32; word :┆
0x2e0c0…2e0e0 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 3b 0a ┆= 0; base := 0; segm := 10; ┆
0x2e0e0…2e0fc 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; ┆
0x2e0fc…2e102 (0x518,0x5c3)
0x2e102…2e120 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 20 74 ┆ key := 10; bufs := 19; t┆
0x2e120…2e140 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 3d 20 ┆ime := 20; buf := 1; area := ┆
0x2e140…2e160 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 73 74 ┆buf + 1; std1 := area + 2; st┆
0x2e160…2e17a 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 ┆d2 := std1 + 2; use1 := ┆
0x2e17a…2e180 (0x518,0x5c4)
0x2e180…2e1a0 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 20 6d ┆std2 + 2; use2 := use1 + 2; m┆
0x2e1a0…2e1c0 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 20 2b ┆ax1 := use2 + 2; max2 := max1 +┆
0x2e1c0…2e1e0 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 70 61 ┆ 2; pass := max2; mins := pa┆
0x2e1e0…2e200 73 73 20 2b 20 31 30 3b 0a 20 20 6d 61 78 73 20 3a 3d 20 6d 69 6e 73 20 00 00 00 00 00 00 00 00 ┆ss + 10; maxs := mins ┆
0x2e200…2e206 (369,) (0x518,0x5c5)
0x2e206…2e220 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 ┆+ 2; fp := maxs + 10; ┆
0x2e220…2e240 70 65 72 6d 31 20 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 ┆perm1 := fp + 40; dev := 0; k┆
0x2e240…2e260 30 65 20 3a 3d 20 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 ┆0e := dev + 10; k0s := k0e + 2; ┆
0x2e260…2e27e 20 20 69 6e 64 65 78 5f 6c 67 74 20 3a 3d 20 31 30 3b 0a 20 20 70 72 6f 63 5f 64 65 73 5f ┆ index_lgt := 10; proc_des_┆
0x2e27e…2e284 (0x518,0x5c6)
0x2e284…2e2a0 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 20 3a ┆lgt := 364; term_des_lgt :┆
0x2e2a0…2e2c0 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 73 5f ┆= 26; proc_pa_lgt := proc_des_┆
0x2e2c0…2e2e0 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 64 65 ┆lgt//2; term_pa_lgt := term_de┆
0x2e2e0…2e2fc 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 ┆s_lgt//2; no_of_bs := 12; ┆
0x2e2fc…2e302 (0x518,0x5c7)
0x2e302…2e320 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 20 20 ┆<* 12 bs devices allowed *> ┆
0x2e320…2e340 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 78 5f ┆proc_pr_index := (512-6)//index_┆
0x2e340…2e360 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 32 2d ┆lgt; term_pr_prsegm := (512-2-┆
0x2e360…2e37a 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 ┆proc_des_lgt)//term_des_lg┆
0x2e37a…2e380 (0x518,0x5c8)
0x2e380…2e3a0 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 74 65 ┆t; term_pr_segm := (512-2)//te┆
0x2e3a0…2e3c0 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 20 70 ┆rm_des_lgt; free_w_prsegm := p┆
0x2e3c0…2e3e0 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 6d 5f ┆roc_des_lgt + term_des_lgt*term_┆
0x2e3e0…2e400 70 72 5f 70 72 73 65 67 6d 20 2b 20 32 3b 0a 20 20 66 72 65 65 5f 77 5f 00 00 00 00 00 00 00 00 ┆pr_prsegm + 2; free_w_ ┆
0x2e400…2e406 (370,) (0x518,0x5c9)
0x2e406…2e420 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 ┆segm := term_des_lgt*term_┆
0x2e420…2e440 70 72 5f 73 65 67 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 ┆pr_segm + 2; great_trno := 5; ┆
0x2e440…2e460 20 20 74 72 5f 65 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 ┆ tr_end := 0; tr_maxp := 1; ┆
0x2e460…2e47e 20 74 72 5f 70 72 6f 63 20 3a 3d 20 32 3b 0a 20 20 70 61 5f 74 65 72 6d 20 3a 3d 20 32 31 ┆ tr_proc := 2; pa_term := 21┆
0x2e47e…2e484 (0x518,0x5ca)
0x2e484…2e4a0 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 20 31 ┆; pa_dterm := 20; i := 1┆
0x2e4a0…2e4c0 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 61 74 ┆; open(zonew, 4, string newcat┆
0x2e4c0…2e4e0 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 74 20 ┆(increase(i)), 0); if init ┆
0x2e4e0…2e4fc 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 ┆then begin maxprocs :=┆
0x2e4fc…2e502 (0x518,0x5cb)
0x2e502…2e520 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 67 6d ┆ proc_pr_index; index_segm┆
0x2e520…2e540 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 20 20 ┆ := 0; read_param(trans); ┆
0x2e540…2e560 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 74 72 ┆ newpa_read := false; if tr┆
0x2e560…2e57a 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 ┆ans=tr_maxp then begin┆
0x2e57a…2e580 (0x518,0x5cc)
0x2e580…2e5a0 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 20 20 ┆ if read_no(no1) then ┆
0x2e5a0…2e5c0 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 65 78 ┆ maxprocs := (no1+proc_pr_index┆
0x2e5c0…2e5e0 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 65 78 ┆-1)//proc_pr_index*proc_pr_index┆
0x2e5e0…2e600 3b 0a 20 20 20 20 20 20 69 6e 64 65 78 5f 73 65 67 6d 20 3a 3d 20 28 6d 00 00 00 00 00 00 00 00 ┆; index_segm := (m ┆
0x2e600…2e606 (371,) (0x518,0x5cd)
0x2e606…2e620 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 ┆axprocs-1)//proc_pr_index;┆
0x2e620…2e640 0a 20 20 20 20 20 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 ┆ read_param(trans); en┆
0x2e640…2e660 64 3b 0a 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 20 3a ┆d; i := monitor(42) lookup :┆
0x2e660…2e67e 28 7a 6f 6e 65 77 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 69 66 20 69 3e 30 20 74 ┆(zonew, 0, tail); if i>0 t┆
0x2e67e…2e684 (0x518,0x5ce)
0x2e684…2e6a0 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 ┆hen system(9, i, <:<10>looku┆
0x2e6a0…2e6c0 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 20 31 ┆p:>); maxsegm := tail(1) - 1┆
0x2e6c0…2e6e0 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 6e 64 ┆; for i:=1 while maxsegm<ind┆
0x2e6e0…2e6fc 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 ┆ex_segm do extendcat(zonew);┆
0x2e6fc…2e702 (0x518,0x5cf)
0x2e702…2e720 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 61 78 ┆ for i:=0 step 1 until max┆
0x2e720…2e740 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 69 74 ┆segm do begin setposit┆
0x2e740…2e760 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 7a 6f ┆ion(zonew,0,i); outrec6(zo┆
0x2e760…2e77a 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 ┆new,512); for j:=1 s┆
0x2e77a…2e780 (0x518,0x5d0)
0x2e780…2e7a0 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 6a 29 ┆tep 1 until 256 do zonew.word(j)┆
0x2e7a0…2e7c0 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 65 6e ┆:=-1; if i>index_segm then┆
0x2e7c0…2e7e0 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 20 65 ┆ zonew.word(256) := i + 1; e┆
0x2e7e0…2e800 6e 64 3b 0a 20 20 20 20 69 66 20 69 3e 69 6e 64 65 78 5f 73 65 67 6d 20 00 00 00 00 00 00 00 00 ┆nd; if i>index_segm ┆
0x2e800…2e806 (372,) (0x518,0x5d1)
0x2e806…2e820 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 ┆then zonew.word(256) := -1┆
0x2e820…2e840 3b 0a 0a 20 20 20 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 ┆; used_segm := index_segm; ┆
0x2e840…2e860 20 20 20 20 69 6e 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 ┆ index_segm := -1; proc_c┆
0x2e860…2e87e 6f 75 6e 74 20 3a 3d 20 30 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 77 68 69 6c 65 20 ┆ount := 0; for i:=1 while ┆
0x2e87e…2e884 (0x518,0x5d2)
0x2e884…2e8a0 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 20 74 ┆-,em do begin if t┆
0x2e8a0…2e8c0 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 20 20 ┆rans=tr_end then begin ┆
0x2e8c0…2e8e0 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 6e 64 ┆ em :=true; goto end┆
0x2e8e0…2e8fc 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 ┆init; end else ┆
0x2e8fc…2e902 (0x518,0x5d3)
0x2e902…2e920 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 20 20 ┆ if trans<>tr_proc then ┆
0x2e920…2e940 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 73 3a ┆ begin error(<:trans:┆
0x2e940…2e960 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 73 3b ┆>, tr); goto read_trans;┆
0x2e960…2e97a 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 ┆ end; if proc_┆
0x2e97a…2e980 (0x518,0x5d4)
0x2e980…2e9a0 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 69 6e ┆count>=maxprocs then begin┆
0x2e9a0…2e9c0 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 6f 29 ┆ error(<:cat full:>, no)┆
0x2e9c0…2e9e0 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 65 6e ┆; goto endinit; en┆
0x2e9e0…2ea00 64 3b 0a 20 20 20 20 20 20 69 66 20 2d 2c 72 65 61 64 5f 6e 61 6d 65 28 00 00 00 00 00 00 00 00 ┆d; if -,read_name( ┆
0x2ea00…2ea06 (373,) (0x518,0x5d5)
0x2ea06…2ea20 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 ┆proc_name, 8) then b┆
0x2ea20…2ea40 65 67 69 6e 0a 20 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 ┆egin error(<:name:>, tr)┆
0x2ea40…2ea60 3b 0a 20 20 20 20 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 ┆; goto read_trans; ┆
0x2ea60…2ea7e 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 73 65 67 6d 5f 6e 6f 28 7a 6f 6e 65 77 2c 20 ┆ end; if segm_no(zonew, ┆
0x2ea7e…2ea84 (0x518,0x5d6)
0x2ea84…2eaa0 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 74 68 ┆proc_name, proc_byte)<>-1 th┆
0x2eaa0…2eac0 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 3a 70 ┆en begin error(<:p┆
0x2eac0…2eae0 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 6f 20 ┆roc in cat:>, tr); goto ┆
0x2eae0…2eafc 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 ┆read_trans; end; ┆
0x2eafc…2eb02 (0x518,0x5d7)
0x2eb02…2eb20 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 20 20 ┆ init_proc(proc_params); ┆
0x2eb20…2eb40 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 6e 0a ┆ if read_proc(proc_params) then ┆
0x2eb40…2eb60 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 72 6f ┆ begin if check_pro┆
0x2eb60…2eb7a 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 ┆c(proc_params) then ┆
0x2eb7a…2eb80 (0x518,0x5d8)
0x2eb80…2eba0 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 3d 30 ┆ begin if proc_byte=0┆
0x2eba0…2ebc0 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 3d 20 ┆ then index_segm := ┆
0x2ebc0…2ebe0 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 6f 73 ┆index_segm + 1; setpos┆
0x2ebe0…2ec00 69 74 69 6f 6e 28 7a 6f 6e 65 77 2c 20 30 2c 20 69 6e 64 65 78 5f 73 65 00 00 00 00 00 00 00 00 ┆ition(zonew, 0, index_se ┆
0x2ec00…2ec06 (374,) (0x518,0x5d9)
0x2ec06…2ec20 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 ┆gm); swoprec6(zo┆
0x2ec20…2ec40 6e 65 77 2c 20 35 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 ┆new, 512); used_segm :┆
0x2ec40…2ec60 3d 20 75 73 65 64 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 ┆= used_segm + 1; if us┆
0x2ec60…2ec7e 65 64 5f 73 65 67 6d 3e 6d 61 78 73 65 67 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ed_segm>maxsegm then ┆
0x2ec7e…2ec84 (0x518,0x5da)
0x2ec84…2eca0 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 61 74 ┆ begin extendcat┆
0x2eca0…2ecc0 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 6f 6e ┆(zonew); setposition┆
0x2ecc0…2ece0 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 20 20 ┆(zonew, 0, index_segm); ┆
0x2ece0…2ecfc 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); ┆
0x2ecfc…2ed02 (0x518,0x5db)
0x2ed02…2ed20 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 3a 3d ┆ end; base :=┆
0x2ed20…2ed40 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 6e 74 ┆ proc_byte; proc_count┆
0x2ed40…2ed60 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 74 6f ┆ := proc_count + 1; to┆
0x2ed60…2ed7a 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 ┆_from(zonew.base, proc_nam┆
0x2ed7a…2ed80 (0x518,0x5dc)
0x2ed80…2eda0 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 67 6d ┆e, 8); zonew.base.segm┆
0x2eda0…2edc0 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 73 69 ┆ := used_segm; setposi┆
0x2edc0…2ede0 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 20 20 ┆tion(zonew, 0, used_segm); ┆
0x2ede0…2ee00 20 20 20 20 20 73 77 6f 70 72 65 63 36 28 7a 6f 6e 65 77 2c 20 35 31 32 00 00 00 00 00 00 00 00 ┆ swoprec6(zonew, 512 ┆
0x2ee00…2ee06 (375,) (0x518,0x5dd)
0x2ee06…2ee20 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 ┆); zonew.word(25┆
0x2ee20…2ee40 36 29 20 3a 3d 20 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 ┆6) := -1; to_from(zone┆
0x2ee40…2ee60 77 2c 20 70 72 6f 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 ┆w, proc_params, proc_des_lgt); ┆
0x2ee60…2ee7e 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 73 65 67 6d 73 20 3a 3d 20 31 3b 0a 0a 20 20 20 ┆ proc_segms := 1; ┆
0x2ee7e…2ee84 (0x518,0x5de)
0x2ee84…2eea0 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 20 20 ┆ term_count := 0; ┆
0x2eea0…2eec0 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 67 74 ┆ term_start := proc_des_lgt┆
0x2eec0…2eee0 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 29 3b ┆; read_param(paramno);┆
0x2eee0…2eefc 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┆
0x2eefc…2ef02 (0x518,0x5df)
0x2ef02…2ef20 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 70 61 ┆e; for i:=1 while pa┆
0x2ef20…2ef40 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 69 6e ┆ramno=pa_term do begin┆
0x2ef40…2ef60 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 6e 74 ┆ for j:=1 step 1 unt┆
0x2ef60…2ef7a 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 ┆il term_pa_lgt do term_par┆
0x2ef7a…2ef80 (0x518,0x5e0)
0x2ef80…2efa0 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 70 61 ┆ams(j) := 0; term_pa┆
0x2efa0…2efc0 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 20 20 ┆rams.bufs := false add 1; ┆
0x2efc0…2efe0 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 65 20 ┆ term_params.time := false ┆
0x2efe0…2f000 61 64 64 20 34 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 00 00 00 00 00 00 00 00 ┆add 40; if - ┆
0x2f000…2f006 (376,) (0x518,0x5e1)
0x2f006…2f020 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 ┆,read_name(term_params.exi┆
0x2f020…2f040 64 2c 20 31 31 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 ┆d, 11) then begin ┆
0x2f040…2f060 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 3e 2c 20 70 61 29 3b ┆ error(<:name:>, pa);┆
0x2f060…2f07e 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;┆
0x2f07e…2f084 (0x518,0x5e2)
0x2f084…2f0a0 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; ┆
0x2f0a0…2f0c0 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 29 20 ┆ if -,read_quote_text(name, 3) ┆
0x2f0c0…2f0e0 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 ┆
0x2f0e0…2f0fc 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); ┆
0x2f0fc…2f102 (0x518,0x5e3)
0x2f102…2f120 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 0a 20 ┆ goto read_term; ┆
0x2f120…2f140 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 72 6d ┆ end; term┆
0x2f140…2f160 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 20 28 ┆_params.intid := name(1) shift (┆
0x2f160…2f17a 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; ┆
0x2f17a…2f180 (0x518,0x5e4)
0x2f180…2f1a0 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 67 6d ┆ if term_segm(zonew, used_segm┆
0x2f1a0…2f1c0 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 64 2c ┆-proc_segms+1, term_params.exid,┆
0x2f1c0…2f1e0 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 5f 70 ┆ term_p┆
0x2f1e0…2f200 61 72 61 6d 73 2e 69 6e 74 69 64 2c 20 74 65 72 6d 5f 62 79 74 65 29 3e 00 00 00 00 00 00 00 00 ┆arams.intid, term_byte)> ┆
0x2f200…2f206 (377,) (0x518,0x5e5)
0x2f206…2f220 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 ┆
0x2f220…2f240 20 20 20 20 20 20 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 ┆ error(<:term in cat┆
0x2f240…2f260 3a 3e 2c 20 70 61 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 ┆:>, pa); goto read┆
0x2f260…2f27e 5f 74 65 72 6d 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 ┆_term; end; ┆
0x2f27e…2f284 (0x518,0x5e6)
0x2f284…2f2a0 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 ┆ if -,read_quote_text(t┆
0x2f2a0…2f2c0 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 20 20 ┆erm_params.key, 11) then ┆
0x2f2c0…2f2e0 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 28 3c ┆ begin error(<┆
0x2f2e0…2f2fc 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); ┆
0x2f2fc…2f302 (0x518,0x5e7)
0x2f302…2f320 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 ┆ goto read_term; ┆
0x2f320…2f340 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 72 69 ┆ end; <* read bufri┆
0x2f340…2f360 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 0a 20 ┆ng and timecount if present *> ┆
0x2f360…2f37a 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┆
0x2f37a…2f380 (0x518,0x5e8)
0x2f380…2f3a0 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 20 ┆hen begin ┆
0x2f3a0…2f3c0 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 62 65 ┆ if j<0 then be┆
0x2f3c0…2f3e0 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 66 72 ┆gin error(<:bufr┆
0x2f3e0…2f400 69 6e 67 3a 3e 2c 20 70 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ing:>, pa); ┆
0x2f400…2f406 (378,) (0x518,0x5e9)
0x2f406…2f420 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 ┆ goto read_term; ┆
0x2f420…2f440 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 65 6c 73 65 20 62 ┆ end else b┆
0x2f440…2f460 65 67 69 6e 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 6d 73 ┆egin term_params┆
0x2f460…2f47e 2e 62 75 66 73 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 ┆.bufs := false add j; ┆
0x2f47e…2f484 (0x518,0x5ea)
0x2f484…2f4a0 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 ┆ if read_no(j) then ┆
0x2f4a0…2f4c0 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 ┆
0x2f4c0…2f4e0 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 20 20 ┆ if j<=0 then ┆
0x2f4e0…2f4fc 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 ┆
0x2f4fc…2f502 (0x518,0x5eb)
0x2f502…2f520 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 3b 0a ┆ error(<:timecount:>, pa); ┆
0x2f520…2f540 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 74 65 ┆ goto read_te┆
0x2f540…2f560 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 20 20 ┆rm; end ┆
0x2f560…2f57a 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┆
0x2f57a…2f580 (0x518,0x5ec)
0x2f580…2f5a0 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 20 20 ┆ms.time := false add j; ┆
0x2f5a0…2f5c0 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 3b 0a ┆ end; end; ┆
0x2f5c0…2f5e0 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 72 ┆ end; ter┆
0x2f5e0…2f600 6d 5f 63 6f 75 6e 74 20 3a 3d 20 74 65 72 6d 5f 63 6f 75 6e 74 20 2b 20 00 00 00 00 00 00 00 00 ┆m_count := term_count + ┆
0x2f600…2f606 (379,) (0x518,0x5ed)
0x2f606…2f620 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 ┆1; if proc_seg┆
0x2f620…2f640 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┆
0x2f640…2f660 67 6d 2b 31 20 6f 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 ┆gm+1 or proc_segm┆
0x2f660…2f67e 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 73 65 67 ┆s>1 and term_count=term_pr_seg┆
0x2f67e…2f684 (0x518,0x5ee)
0x2f684…2f6a0 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 0a 20 ┆m+1 then begin ┆
0x2f6a0…2f6c0 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 5f 73 ┆ used_segm := used_s┆
0x2f6c0…2f6e0 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 5f 73 ┆egm + 1; if used_s┆
0x2f6e0…2f6fc 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 ┆egm>maxsegm then extendcat(z┆
0x2f6fc…2f702 (0x518,0x5ef)
0x2f702…2f720 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 74 69 ┆onew); setpositi┆
0x2f720…2f740 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 20 20 ┆on(zonew, 0, used_segm-1); ┆
0x2f740…2f760 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 0a 20 ┆ swoprec6(zonew, 512); ┆
0x2f760…2f77a 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┆
0x2f77a…2f780 (0x518,0x5f0)
0x2f780…2f7a0 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 20 73 ┆6) := used_segm; s┆
0x2f7a0…2f7c0 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 29 3b ┆etposition(zonew, 0, used_segm);┆
0x2f7c0…2f7e0 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 20 35 ┆ swoprec6(zonew, 5┆
0x2f7e0…2f800 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 77 00 00 00 00 00 00 00 00 ┆12); zonew ┆
0x2f800…2f806 (380,) (0x518,0x5f1)
0x2f806…2f820 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 ┆.word(256) := -1; ┆
0x2f820…2f840 20 20 20 20 20 20 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 ┆ proc_segms := proc_segms +┆
0x2f840…2f860 20 31 3b 0a 20 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 ┆ 1; term_count := ┆
0x2f860…2f87e 31 3b 0a 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 3a 3d ┆1; term_start :=┆
0x2f87e…2f884 (0x518,0x5f2)
0x2f884…2f8a0 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 20 20 ┆ 0; end; ┆
0x2f8a0…2f8c0 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 64 5f ┆ setposition(zonew, 0, used_┆
0x2f8c0…2f8e0 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 6e 65 ┆segm); swoprec6(zone┆
0x2f8e0…2f8fc 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 ┆w, 512); base :=┆
0x2f8fc…2f902 (0x518,0x5f3)
0x2f902…2f920 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 2a 74 ┆ term_start + (term_count-1)*t┆
0x2f920…2f940 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 6f 6d ┆erm_des_lgt; to_from┆
0x2f940…2f960 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 5f 64 ┆(zonew.base, term_params, term_d┆
0x2f960…2f97a 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 ┆es_lgt); read_term: ┆
0x2f97a…2f980 (0x518,0x5f4)
0x2f980…2f9a0 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 20 20 ┆ read_param(paramno); ┆
0x2f9a0…2f9c0 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 20 20 ┆ end for paramno=term; ┆
0x2f9c0…2f9e0 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 64 20 ┆ end if check_proc; end ┆
0x2f9e0…2fa00 69 66 20 72 65 61 64 5f 70 72 6f 63 3b 0a 72 65 61 64 5f 74 72 61 6e 73 00 00 00 00 00 00 00 00 ┆if read_proc; read_trans ┆
0x2fa00…2fa06 (381,) (0x518,0x5f5)
0x2fa06…2fa20 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 ┆: if newpa_read and ┆
0x2fa20…2fa40 70 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 ┆paramno>great_trno or -,newpa_re┆
0x2fa40…2fa60 61 64 0a 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 ┆ad then read_param(trans) ┆
0x2fa60…2fa7e 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 6e 6f 3b 0a 20 ┆ else trans := paramno; ┆
0x2fa7e…2fa84 (0x518,0x5f6)
0x2fa84…2faa0 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 20 20 ┆ newpa_read := false; ┆
0x2faa0…2fac0 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 20 20 ┆ end while -,em; endinit: ┆
0x2fac0…2fae0 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 73 77 ┆setposition(zonew, 0, 0); sw┆
0x2fae0…2fafc 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 ┆oprec6(zonew, 512); zone┆
0x2fafc…2fb02 (0x518,0x5f7)
0x2fb02…2fb20 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 20 20 ┆w.word(254) := proc_count; ┆
0x2fb20…2fb40 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 20 20 ┆ zonew.word(255) := maxprocs; ┆
0x2fb40…2fb60 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 20 20 ┆ if used_segm<maxsegm then ┆
0x2fb60…2fb7a 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┆
0x2fb7a…2fb80 (0x518,0x5f8)
0x2fb80…2fba0 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 29 20 ┆gm + 1 else zonew.word(256) ┆
0x2fba0…2fbc0 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 67 69 ┆:= -1; end init else begi┆
0x2fbc0…2fbe0 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 28 74 ┆n <* update *> read_param(t┆
0x2fbe0…2fc00 72 61 6e 73 29 3b 0a 20 20 20 20 6e 65 77 70 61 5f 72 65 61 64 20 3a 3d 00 00 00 00 00 00 00 00 ┆rans); newpa_read := ┆
0x2fc00…2fc06 (382,) (0x518,0x5f9)
0x2fc06…2fc20 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 ┆ false; for i:=1 while┆
0x2fc20…2fc40 20 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 20 74 72 61 6e ┆ -,em do begin if tran┆
0x2fc40…2fc60 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 20 20 20 20 20 ┆s=tr_end then begin ┆
0x2fc60…2fc7e 20 20 65 6d 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 6e 64 ┆ em := true; goto end┆
0x2fc7e…2fc84 (0x518,0x5fa)
0x2fc84…2fca0 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 74 72 ┆_upd; end; if tr┆
0x2fca0…2fcc0 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 6f 63 ┆ans>great_trno or trans<=tr_proc┆
0x2fcc0…2fce0 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 72 28 ┆ then begin error(┆
0x2fce0…2fcfc 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 ┆<:trans:>, tr); goto┆
0x2fcfc…2fd02 (0x518,0x5fb)
0x2fd02…2fd20 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 69 66 ┆ read_upd; end; if┆
0x2fd20…2fd40 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 6e 0a ┆ -,read_name(proc_name, 8) then ┆
0x2fd40…2fd60 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 6d 65 ┆ begin error(<:name┆
0x2fd60…2fd7a 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 ┆:>, tr); goto read┆
0x2fd7a…2fd80 (0x518,0x5fc)
0x2fd80…2fda0 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 65 67 ┆_upd; end; index_seg┆
0x2fda0…2fdc0 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 20 70 ┆m := segm_no(zoold, proc_name, p┆
0x2fdc0…2fde0 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 74 72 ┆roc_byte); case (trans-tr┆
0x2fde0…2fe00 5f 70 72 6f 63 29 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆_proc) of begin ┆
0x2fe00…2fe06 (383,) (0x518,0x5fd)
0x2fe06…2fe20 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 ┆ begin <* delete proc┆
0x2fe20…2fe40 65 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 2d ┆ess *> if index_segm=-┆
0x2fe40…2fe60 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 20 20 20 20 20 ┆1 then begin ┆
0x2fe60…2fe7e 20 20 20 65 72 72 6f 72 28 3c 3a 70 72 6f 63 20 6e 6f 74 20 69 6e 20 63 61 74 3a 3e 2c 20 ┆ error(<:proc not in cat:>, ┆
0x2fe7e…2fe84 (0x518,0x5fe)
0x2fe84…2fea0 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 5f 75 ┆tr); goto read_u┆
0x2fea0…2fec0 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 61 73 ┆pd; end; bas┆
0x2fec0…2fee0 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 3a 3d ┆e := proc_byte; new :=┆
0x2fee0…2fefc 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; ┆
0x2fefc…2ff02 (0x518,0x5ff)
0x2ff02…2ff20 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 ┆setposition(zoold, 0, 0); ┆
0x2ff20…2ff40 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 20 20 ┆ inrec6(zoold, 512); ┆
0x2ff40…2ff60 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 20 20 ┆ old := zoold.word(256); ┆
0x2ff60…2ff7a 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<>┆
0x2ff7a…2ff80 (0x518,0x600)
0x2ff80…2ffa0 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 20 20 ┆-1 do begin ┆
0x2ffa0…2ffc0 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 20 20 ┆ setposition(zoold, 0, new); ┆
0x2ffc0…2ffe0 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); ┆
0x2ffe0…30000 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6e 65 77 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ j:=new; ┆
0x30000…30006 (384,) (0x518,0x601)
0x30006…30020 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 ┆ new := zoold.word(┆
0x30020…30040 32 35 36 29 3b 0a 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 ┆256); for k:=1 step ┆
0x30040…30060 31 20 75 6e 74 69 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 ┆1 until 255 do zoold┆
0x30060…3007e 2e 77 6f 72 64 28 6b 29 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f ┆.word(k) := -1; zo┆
0x3007e…30084 (0x518,0x602)
0x30084…300a0 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 20 20 ┆old.word(256) := old; ┆
0x300a0…300c0 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 0a 20 ┆ old := j; end; ┆
0x300c0…300e0 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 20 30 ┆ setposition(zoold, 0, 0┆
0x300e0…300fc 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 ┆); swoprec6(zoold,┆
0x300fc…30102 (0x518,0x603)
0x30102…30120 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 32 35 ┆ 512); zoold.word(25┆
0x30120…30140 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 64 28 ┆6) := old; zoold.word(┆
0x30140…30160 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 20 20 ┆254) := zoold.word(254) - 1; ┆
0x30160…3017a 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┆
0x3017a…30180 (0x518,0x604)
0x30180…301a0 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 69 6e ┆gm*proc_pr_index + (proc_byte+in┆
0x301a0…301c0 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 20 62 ┆dex_lgt)//index_lgt; b┆
0x301c0…301e0 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 61 73 ┆ase1 := proc_byte; bas┆
0x301e0…30200 65 32 20 3a 3d 20 62 61 73 65 31 20 2b 20 69 6e 64 65 78 5f 6c 67 74 3b 00 00 00 00 00 00 00 00 ┆e2 := base1 + index_lgt; ┆
0x30200…30206 (385,) (0x518,0x605)
0x30206…30220 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 ┆ stop := zoold.w┆
0x30220…30240 6f 72 64 28 32 35 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 ┆ord(254); setposition(┆
0x30240…30260 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); ┆
0x30260…3027e 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 20 20 20 20 ┆ swoprec6(zoold, 512); ┆
0x3027e…30284 (0x518,0x606)
0x30284…302a0 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 6e 74 ┆ for i:=proc_no step 1 unt┆
0x302a0…302c0 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 20 20 ┆il stop do begin ┆
0x302c0…302e0 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 70 6c ┆ <* index is moved from pl┆
0x302e0…302fc 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 ┆ace i+1 to i *> ┆
0x302fc…30302 (0x518,0x607)
0x30302…30320 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 ┆
0x30320…30340 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 ┆
0x30340…30360 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┆
0x30360…3037a 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 ┆+1); swoprec┆
0x3037a…30380 (0x518,0x608)
0x30380…303a0 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 61 73 ┆6(zoold, 512); bas┆
0x303a0…303c0 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 20 20 ┆e2 := 0; end; ┆
0x303c0…303e0 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 65 32 ┆ to_from(index, zoold.base2┆
0x303e0…30400 2c 20 69 6e 64 65 78 5f 6c 67 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆, index_lgt); ┆
0x30400…30406 (386,) (0x518,0x609)
0x30406…30420 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 ┆ if i mod proc_pr_index=0┆
0x30420…30440 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 ┆
0x30440…30460 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 20 69 6e 64 65 ┆ setposition(zoold, 0, inde┆
0x30460…3047e 78 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 ┆x_segm); swoprec┆
0x3047e…30484 (0x518,0x60a)
0x30484…304a0 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 65 ┆6(zoold, 512); e┆
0x304a0…304c0 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 62 61 ┆nd; to_from(zoold.ba┆
0x304c0…304e0 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 20 20 ┆se1, index, index_lgt); ┆
0x304e0…304fc 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 =┆
0x304fc…30502 (0x518,0x60b)
0x30502…30520 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 ┆0 then begin ┆
0x30520…30540 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 65 67 ┆ index_segm := index_seg┆
0x30540…30560 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 6f 6e ┆m + 1; setposition┆
0x30560…3057a 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 ┆(zoold, 0, index_segm); ┆
0x3057a…30580 (0x518,0x60c)
0x30580…305a0 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)┆
0x305a0…305c0 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 20 20 ┆; base1 := 0; ┆
0x305c0…305e0 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 61 73 ┆ end else bas┆
0x305e0…30600 65 31 20 3a 3d 20 62 61 73 65 31 20 2b 20 69 6e 64 65 78 5f 6c 67 74 3b 00 00 00 00 00 00 00 00 ┆e1 := base1 + index_lgt; ┆
0x30600…30606 (387,) (0x518,0x60d)
0x30606…30620 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 ┆ base2 := base┆
0x30620…30640 32 20 2b 20 69 6e 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 ┆2 + index_lgt; end; ┆
0x30640…30660 20 20 20 20 20 20 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 ┆ stop := index_lgt//2; ┆
0x30660…3067e 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆ for i:=1 step 1 until ┆
0x3067e…30684 (0x518,0x60e)
0x30684…306a0 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 61 73 ┆stop do zoold.bas┆
0x306a0…306c0 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 0a 0a ┆e1.word(i) := -1; end; ┆
0x306c0…306e0 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 73 73 ┆ begin <* correct process┆
0x306e0…306fc 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 ┆ *> if index_segm=┆
0x306fc…30702 (0x518,0x60f)
0x30702…30720 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 20 20 ┆-1 then begin ┆
0x30720…30740 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 61 74 ┆ error(<:process not in cat┆
0x30740…30760 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 5f 75 ┆:>, tr); goto read_u┆
0x30760…3077a 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 ┆pd; end; ┆
0x3077a…30780 (0x518,0x610)
0x30780…307a0 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 5f 73 ┆ setposition(zoold, 0, index_s┆
0x307a0…307c0 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 35 31 ┆egm); inrec6(zoold, 51┆
0x307c0…307e0 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 65 3b ┆2); base := proc_byte;┆
0x307e0…30800 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 73 65 67 6d 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆ proc_segm := ┆
0x30800…30806 (388,) (0x518,0x611)
0x30806…30820 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 ┆zoold.base.segm; ┆
0x30820…30840 20 73 65 74 70 6f 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 ┆ setposition(zoold, 0, proc_segm┆
0x30840…30860 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 20 35 31 32 ┆); swoprec6(zoold, 512┆
0x30860…3087e 29 3b 0a 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 20 75 ┆); for i:=1 step 1 u┆
0x3087e…30884 (0x518,0x612)
0x30884…308a0 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 20 20 ┆ntil proc_pa_lgt do ┆
0x308a0…308c0 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 2e 77 ┆ proc_params.word(i) := zoold.w┆
0x308c0…308e0 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 3d 20 ┆ord(i); no1 := no2 := ┆
0x308e0…308fc 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┆
0x308fc…30902 (0x518,0x613)
0x30902…30920 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 20 20 ┆ until 4 do begin ┆
0x30920…30940 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 29 2a ┆ perm := perm1 + (i-1)*┆
0x30940…30960 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 72 6f ┆24; no1 := no1 + pro┆
0x30960…3097a 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 ┆c_params.perm(5); ┆
0x3097a…30980 (0x518,0x614)
0x30980…309a0 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 65 72 ┆ no2 := no2 + proc_params.per┆
0x309a0…309c0 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 20 70 ┆m(7); end; p┆
0x309c0…309e0 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 72 61 ┆roc_params.perm1(5) := proc_para┆
0x309e0…30a00 6d 73 2e 70 65 72 6d 31 28 35 29 20 2d 20 6e 6f 31 3b 20 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ms.perm1(5) - no1; ┆
0x30a00…30a06 (389,) (0x518,0x615)
0x30a06…30a20 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 ┆ proc_params.perm1(7)┆
0x30a20…30a40 20 3a 3d 20 70 72 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 ┆ := proc_params.perm1(7) - no2; ┆
0x30a40…30a60 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 5f 70 61 72 61 ┆ if read_proc(proc_para┆
0x30a60…30a7e 6d 73 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 20 20 20 ┆ms) then begin ┆
0x30a7e…30a84 (0x518,0x616)
0x30a84…30aa0 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 61 ┆ if check_proc(proc_pa┆
0x30aa0…30ac0 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 20 20 ┆rams) then begin ┆
0x30ac0…30ae0 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 5f 70 ┆ to_from(zoold, proc_p┆
0x30ae0…30afc 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 ┆arams, proc_des_lgt); ┆
0x30afc…30b02 (0x518,0x617)
0x30b02…30b20 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 ┆ read_param(paramno); ┆
0x30b20…30b40 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 65 3b ┆ newpa_read := true;┆
0x30b40…30b60 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 70 61 ┆ for k:=1 while pa┆
0x30b60…30b7a 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 ┆ramno=pa_dterm or paramno=┆
0x30b7a…30b80 (0x518,0x618)
0x30b80…30ba0 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 0a 20 ┆pa_term do begin ┆
0x30ba0…30bc0 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 20 75 ┆ for i:=1 step 1 u┆
0x30bc0…30be0 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 73 28 ┆ntil term_pa_lgt do term_params(┆
0x30be0…30c00 69 29 20 3a 3d 20 30 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 ┆i) := 0; ┆
0x30c00…30c06 (390,) (0x518,0x619)
0x30c06…30c20 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 ┆ if -,read_name(term_param┆
0x30c20…30c40 73 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 20 20 20 ┆s.exid, 11) then ┆
0x30c40…30c60 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 65 72 72 6f 72 28 3c ┆ begin error(<┆
0x30c60…30c7e 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 20 20 20 ┆:name:>, pa); ┆
0x30c7e…30c84 (0x518,0x61a)
0x30c84…30ca0 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 20 ┆ goto read_upd_term; ┆
0x30ca0…30cc0 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 69 ┆ end; i┆
0x30cc0…30ce0 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 68 65 ┆f -,read_quote_text(name, 3) the┆
0x30ce0…30cfc 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 ┆n begin ┆
0x30cfc…30d02 (0x518,0x61b)
0x30d02…30d20 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 3e 2c ┆ error(<:locid:>,┆
0x30d20…30d40 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 65 61 ┆ pa); goto rea┆
0x30d40…30d60 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 64 3b ┆d_upd_term; end;┆
0x30d60…30d7a 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 ┆ term_para┆
0x30d7a…30d80 (0x518,0x61c)
0x30d80…30da0 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 29 20 ┆ms.intid := name(1) shift (-24) ┆
0x30da0…30dc0 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 72 6d ┆extract 24; term┆
0x30dc0…30de0 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 2c 0a ┆ := term_segm(zoold, proc_segm, ┆
0x30de0…30e00 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 ┆ ┆
0x30e00…30e06 (391,) (0x518,0x61d)
0x30e06…30e20 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 ┆term_params.exid, term_par┆
0x30e20…30e40 61 6d 73 2e 69 6e 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 ┆ams.intid, term_byte); ┆
0x30e40…30e60 20 20 20 20 20 20 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 ┆ case (paramno-(pa_dterm-┆
0x30e60…30e7e 31 29 29 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆1)) of begin ┆
0x30e7e…30e84 (0x518,0x61e)
0x30e84…30ea0 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 2a 20 ┆ begin <* ┆
0x30ea0…30ec0 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 69 66 ┆dterm *> if┆
0x30ec0…30ee0 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 20 20 ┆ term<=-1 then ┆
0x30ee0…30efc 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 ┆
0x30efc…30f02 (0x518,0x61f)
0x30f02…30f20 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 3a 3e ┆ error(<:term not in cat:>┆
0x30f20…30f40 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 67 6f ┆, pa); go┆
0x30f40…30f60 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 20 20 ┆to read_upd_term; ┆
0x30f60…30f7a 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; ┆
0x30f7a…30f80 (0x518,0x620)
0x30f80…30fa0 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 20 20 ┆ base1 := term_byte; ┆
0x30fa0…30fc0 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 66 20 ┆ lastterm := (if ┆
0x30fc0…30fe0 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 20 20 ┆free_w_prsegm<=free_w_segm ┆
0x30fe0…31000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆ then ┆
0x31000…31006 (392,) (0x518,0x621)
0x31006…31020 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 ┆ free_w_prsegm else free_w┆
0x31020…31040 5f 73 65 67 6d 29 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 ┆_segm) - ┆
0x31040…31060 20 28 74 65 72 6d 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 ┆ (term_des_lgt + 2); ┆
0x31060…3107e 20 20 20 20 20 20 20 20 20 20 62 61 73 65 32 20 3a 3d 20 69 66 20 74 65 72 6d 5f 62 79 74 ┆ base2 := if term_byt┆
0x3107e…31084 (0x518,0x622)
0x31084…310a0 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 6e 20 ┆e>=lastterm <* next term in ┆
0x310a0…310c0 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 20 20 ┆new segm *> then 0 ┆
0x310c0…310e0 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 62 79 ┆ else term_by┆
0x310e0…310fc 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 ┆te+term_des_lgt; ┆
0x310fc…31102 (0x518,0x623)
0x31102…31120 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 6d 3b ┆ last := old := term;┆
0x31120…31140 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 3d 30 ┆ if base2=0┆
0x31140…31160 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 20 20 ┆ and zoold.word(256)<>-1 then ┆
0x31160…3117a 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 ┆
0x3117a…31180 (0x518,0x624)
0x31180…311a0 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┆
0x311a0…311c0 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 20 20 ┆n(zoold, 0, zoold.word(256)); ┆
0x311c0…311e0 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┆
0x311e0…31200 6f 6c 64 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆old, 512); ┆
0x31200…31206 (393,) (0x518,0x625)
0x31206…31220 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 ┆ next := zoold.wo┆
0x31220…31240 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 65 6e 64 0a ┆rd(1); end ┆
0x31240…31260 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 65 78 74 20 3a ┆ else next :┆
0x31260…3127e 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 62 61 73 65 32 ┆= if base2<>0 then zoold.base2┆
0x3127e…31284 (0x518,0x626)
0x31284…312a0 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 20 20 ┆.word(1) ┆
0x312a0…312c0 20 20 20 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 ┆ else ┆
0x312c0…312e0 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 3a 3d ┆-1; for i:=┆
0x312e0…312fc 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 ┆
0x312fc…31302 (0x518,0x627)
0x31302…31320 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 ┆
0x31320…31340 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 65 73 ┆ <* compress term_des┆
0x31340…31360 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 20 20 ┆cribtions *> ┆
0x31360…3137a 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┆
0x3137a…31380 (0x518,0x628)
0x31380…313a0 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 20 20 ┆oold.base2, term_des_lgt); ┆
0x313a0…313c0 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 68 65 ┆ if base2=0 the┆
0x313c0…313e0 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 0a 20 ┆n begin ┆
0x313e0…31400 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 ┆ ┆
0x31400…31406 (394,) (0x518,0x629)
0x31406…31420 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 ┆setposition(zoold, 0, old)┆
0x31420…31440 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 6f 70 72 ┆; swopr┆
0x31440…31460 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); ┆
0x31460…3147e 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; ┆
0x3147e…31484 (0x518,0x62a)
0x31484…314a0 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 20 74 ┆ to_from(zoold.base1, t┆
0x314a0…314c0 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 20 20 ┆erm_params, term_des_lgt); ┆
0x314c0…314e0 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 68 65 ┆ if base2=0 the┆
0x314e0…314fc 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 ┆n beg┆
0x314fc…31502 (0x518,0x62b)
0x31502…31520 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 6c 61 ┆in la┆
0x31520…31540 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 20 20 ┆st := old; ┆
0x31540…31560 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 20 20 ┆ old := zoold.word(256); ┆
0x31560…3157a 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┆
0x3157a…31580 (0x518,0x62c)
0x31580…315a0 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 20 20 ┆sition(zoold, 0, old); ┆
0x315a0…315c0 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 20 ┆ swoprec6(zoold, ┆
0x315c0…315e0 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 6e 64 ┆512); end┆
0x315e0…31600 3b 0a 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 ┆; ┆
0x31600…31606 (395,) (0x518,0x62d)
0x31606…31620 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 ┆ base1:= if base1>=lastter┆
0x31620…31640 6d 20 74 68 65 6e 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 ┆m then 0 ┆
0x31640…31660 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 62 61 73 65 31 ┆ else base1┆
0x31660…3167e 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 20 20 20 20 20 ┆ + term_des_lgt; ┆
0x3167e…31684 (0x518,0x62e)
0x31684…316a0 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 32 3e ┆ base2 := if base2>┆
0x316a0…316c0 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 20 20 ┆=lastterm then 0 ┆
0x316c0…316e0 20 20 20 20 20 20 20 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 ┆ e┆
0x316e0…316fc 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 ┆lse base2 + term_des_lgt; ┆
0x316fc…31702 (0x518,0x62f)
0x31702…31720 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 3d ┆ if base2=┆
0x31720…31740 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 20 ┆0 and zoold.word(256)<>-1 then ┆
0x31740…31760 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 20 20 ┆ begin ┆
0x31760…3177a 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┆
0x3177a…31780 (0x518,0x630)
0x31780…317a0 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 36 29 ┆sition(zoold, 0, zoold.word(256)┆
0x317a0…317c0 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 6f 70 ┆); swop┆
0x317c0…317e0 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); ┆
0x317e0…31800 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 20 3a 3d 20 7a 6f 6f 6c 64 00 00 00 00 00 00 00 00 ┆ next := zoold ┆
0x31800…31806 (396,) (0x518,0x631)
0x31806…31820 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 ┆.word(1); ┆
0x31820…31840 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 20 20 ┆ end ┆
0x31840…31860 20 20 65 6c 73 65 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 ┆ else next := if base2<>0 then ┆
0x31860…3187e 7a 6f 6f 6c 64 2e 62 61 73 65 32 2e 77 6f 72 64 28 31 29 0a 20 20 20 20 20 20 20 20 20 20 ┆zoold.base2.word(1) ┆
0x3187e…31884 (0x518,0x632)
0x31884…318a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x318a0…318c0 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 20 20 ┆ else -1; ┆
0x318c0…318e0 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 20 20 ┆ end; ┆
0x318e0…318fc 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 *> ┆
0x318fc…31902 (0x518,0x633)
0x31902…31920 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 65 70 ┆ for i:=base1+2 step┆
0x31920…31940 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 20 20 ┆ 2 until 512 do ┆
0x31940…31960 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 0a 20 ┆ zoold.word(i//2) := -1; ┆
0x31960…3197a 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┆
0x3197a…31980 (0x518,0x634)
0x31980…319a0 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 20 20 ┆m old is free if base1=0 *> ┆
0x319a0…319c0 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 74 68 ┆ if base1 = 0 th┆
0x319c0…319e0 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 20 20 ┆en begin ┆
0x319e0…31a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 00 00 00 00 00 00 00 00 ┆ set ┆
0x31a00…31a06 (397,) (0x518,0x635)
0x31a06…31a20 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 ┆position(zoold, 0, last); ┆
0x31a20…31a40 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(┆
0x31a40…31a60 7a 6f 6f 6c 64 2c 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 ┆zoold,512); ┆
0x31a60…31a7e 20 20 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 36 29 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 ┆ zoold.word(256) := -1; ┆
0x31a7e…31a84 (0x518,0x636)
0x31a84…31aa0 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 ┆ setpositi┆
0x31aa0…31ac0 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 20 20 ┆on(zoold, 0, 0); ┆
0x31ac0…31ae0 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); ┆
0x31ae0…31afc 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┆
0x31afc…31b02 (0x518,0x637)
0x31b02…31b20 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 ┆old.word(256); ┆
0x31b20…31b40 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 3b 0a ┆ zoold.word(256) := old; ┆
0x31b40…31b60 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 74 69 ┆ setpositi┆
0x31b60…31b7a 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 ┆on(zoold, 0, old); ┆
0x31b7a…31b80 (0x518,0x638)
0x31b80…31ba0 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 20 ┆ swoprec6(zoold, ┆
0x31ba0…31bc0 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┆
0x31bc0…31be0 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 20 20 ┆ld.word(256) := i; ┆
0x31be0…31c00 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x31c00…31c06 (398,) (0x518,0x639)
0x31c06…31c20 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 ┆ end <* dterm *>; ┆
0x31c20…31c40 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 2a 20 74 65 72 6d 20 ┆ begin <* term ┆
0x31c40…31c60 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 74 65 72 6d 3e ┆*> if term>┆
0x31c60…31c7e 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 20 62 65 ┆0 then be┆
0x31c7e…31c84 (0x518,0x63a)
0x31c84…31ca0 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 65 ┆gin e┆
0x31ca0…31cc0 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 20 20 ┆rror(<:term in cat:>, pa); ┆
0x31cc0…31ce0 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 64 5f ┆ goto read_upd_┆
0x31ce0…31cfc 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 ┆term; e┆
0x31cfc…31d02 (0x518,0x63b)
0x31d02…31d20 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 6d 5f ┆nd; term_┆
0x31d20…31d40 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; ┆
0x31d40…31d60 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┆
0x31d60…31d7a 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 ┆e := false add 40; ┆
0x31d7a…31d80 (0x518,0x63c)
0x31d80…31da0 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 74 65 ┆ if -,read_quote_te┆
0x31da0…31dc0 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 20 20 ┆xt(term_params.key, 11) then ┆
0x31dc0…31de0 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 ┆
0x31de0…31e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 74 00 00 00 00 00 00 00 00 ┆ error(<:t ┆
0x31e00…31e06 (399,) (0x518,0x63d)
0x31e06…31e20 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 ┆erm-key:>, pa); ┆
0x31e20…31e40 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 72 6d 3b ┆ goto read_upd_term;┆
0x31e40…31e60 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 20 20 20 20 ┆ end; ┆
0x31e60…31e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 72 65 61 64 20 62 75 66 72 69 6e ┆ <* read bufrin┆
0x31e7e…31e84 (0x518,0x63e)
0x31e84…31ea0 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 ┆g and timecount if present *┆
0x31ea0…31ec0 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 5f 6e ┆> if read_n┆
0x31ec0…31ee0 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 20 62 ┆o(j) then b┆
0x31ee0…31efc 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 ┆egin ┆
0x31efc…31f02 (0x518,0x63f)
0x31f02…31f20 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 20 20 ┆if j<=0 then ┆
0x31f20…31f40 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 ┆
0x31f40…31f60 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 20 20 ┆ error(<:bufring:>, pa); ┆
0x31f60…31f7a 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┆
0x31f7a…31f80 (0x518,0x640)
0x31f80…31fa0 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 20 20 ┆ read_upd_term; ┆
0x31fa0…31fc0 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 20 20 ┆ end ┆
0x31fc0…31fe0 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 20 20 ┆ else begin ┆
0x31fe0…32000 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 62 75 66 73 20 3a 00 00 00 00 00 00 00 00 ┆ term_params.bufs : ┆
0x32000…32006 (400,) (0x518,0x641)
0x32006…32020 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 ┆= false add j; ┆
0x32020…32040 20 20 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 68 65 6e ┆ if read_no(j) then┆
0x32040…32060 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 62 65 67 69 6e 0a ┆ begin ┆
0x32060…3207e 20 20 20 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 ┆
0x3207e…32084 (0x518,0x642)
0x32084…320a0 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 20 20 ┆j<=0 then ┆
0x320a0…320c0 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 ┆
0x320c0…320e0 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 3e 2c ┆ error(<:timecount:>,┆
0x320e0…320fc 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); ┆
0x320fc…32102 (0x518,0x643)
0x32102…32120 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 ┆ goto read_upd_term; ┆
0x32120…32140 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 20 20 ┆ end ┆
0x32140…32160 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 72 6d ┆ else term┆
0x32160…3217a 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 ┆_params.time := false add ┆
0x3217a…32180 (0x518,0x644)
0x32180…321a0 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 64 3b ┆j; end;┆
0x321a0…321c0 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 20 20 ┆ end; ┆
0x321c0…321e0 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 20 20 ┆ end; ┆
0x321e0…32200 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 3a 3d 20 74 65 72 6d 00 00 00 00 00 00 00 00 ┆ base := term ┆
0x32200…32206 (401,) (0x518,0x645)
0x32206…32220 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 ┆_byte; ┆
0x32220…32240 20 20 6c 61 73 74 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 ┆ lastterm := (if free_w_prsegm<┆
0x32240…32260 3d 66 72 65 65 5f 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 ┆=free_w_segm ┆
0x32260…3227e 20 20 20 20 20 74 68 65 6e 20 66 72 65 65 5f 77 5f 73 65 67 6d 20 65 6c 73 65 20 66 72 65 ┆ then free_w_segm else fre┆
0x3227e…32284 (0x518,0x646)
0x32284…322a0 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 20 20 ┆e_w_prsegm) - ┆
0x322a0…322c0 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 20 20 ┆ (term_des_lgt + 2); ┆
0x322c0…322e0 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 65 3c ┆ if term_byte<┆
0x322e0…322fc 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 ┆=lastterm then ┆
0x322fc…32302 (0x518,0x647)
0x32302…32320 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 67 6d ┆ <* room in this segm┆
0x32320…32340 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 66 72 ┆ *> to_fr┆
0x32340…32360 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 72 6d ┆om(zoold.base, term_params, term┆
0x32360…3237a 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 ┆_des_lgt) ┆
0x3237a…32380 (0x518,0x648)
0x32380…323a0 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 20 20 ┆ else begin ┆
0x323a0…323c0 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 20 20 ┆ <* new segm in use *> ┆
0x323c0…323e0 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 6e 28 ┆ setposition(┆
0x323e0…32400 7a 6f 6f 6c 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆zoold, 0, 0); ┆
0x32400…32406 (402,) (0x518,0x649)
0x32406…32420 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 ┆ inrec6(zoold,┆
0x32420…32440 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 6e 65 ┆ 512); ne┆
0x32440…32460 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 20 20 20 ┆w := zoold.word(256); ┆
0x32460…3247e 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 65 77 3d 2d 31 20 74 68 65 6e 0a 20 20 ┆ if new=-1 then ┆
0x3247e…32484 (0x518,0x64a)
0x32484…324a0 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 ┆
0x324a0…324c0 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 63 61 ┆ extendca┆
0x324c0…324e0 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 20 20 ┆t(zoold); ┆
0x324e0…324fc 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);┆
0x324fc…32502 (0x518,0x64b)
0x32502…32520 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 72 65 ┆ inre┆
0x32520…32540 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 20 ┆c6(zoold, 512); ┆
0x32540…32560 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 29 3b ┆ new := zoold.word(256);┆
0x32560…3257a 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┆
0x3257a…32580 (0x518,0x64c)
0x32580…325a0 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 6f 73 ┆d; setpos┆
0x325a0…325c0 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 20 20 ┆ition(zoold, 0, new); ┆
0x325c0…325e0 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 31 32 ┆ swoprec6(zoold, 512┆
0x325e0…32600 29 3b 0a 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 ┆); ┆
0x32600…32606 (403,) (0x518,0x64d)
0x32606…32620 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 ┆ free := zoold.word(256);┆
0x32620…32640 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 66 72 6f 6d 28 ┆ to_from(┆
0x32640…32660 7a 6f 6f 6c 64 2c 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 ┆zoold, term_params, term_des_lgt┆
0x32660…3267e 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 73 65 74 70 ┆); setp┆
0x3267e…32684 (0x518,0x64e)
0x32684…326a0 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 20 20 ┆osition(zoold, 0, -term); ┆
0x326a0…326c0 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┆
0x326c0…326e0 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); ┆
0x326e0…326fc 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; ┆
0x326fc…32702 (0x518,0x64f)
0x32702…32720 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 ┆ setpositi┆
0x32720…32740 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 20 20 ┆on(zoold, 0, 0); ┆
0x32740…32760 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); ┆
0x32760…3277a 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┆
0x3277a…32780 (0x518,0x650)
0x32780…327a0 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 20 20 ┆.word(256) := free; ┆
0x327a0…327c0 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 20 ┆ end; ┆
0x327c0…327e0 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 20 20 ┆ end <* term *>; ┆
0x327e0…32800 20 20 65 6e 64 20 63 61 73 65 20 70 61 72 61 6d 6e 6f 3b 0a 72 65 61 64 00 00 00 00 00 00 00 00 ┆ end case paramno; read ┆
0x32800…32806 (404,) (0x518,0x651)
0x32806…32820 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 ┆_upd_term: ┆
0x32820…32840 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 20 20 20 20 20 20 ┆ read_param(paramno); ┆
0x32840…32860 20 20 20 20 20 20 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 ┆ end for; end ┆
0x32860…3287e 69 66 20 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 ┆if check_proc; end ┆
0x3287e…32884 (0x518,0x652)
0x32884…328a0 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 20 63 ┆if read_proc; end c┆
0x328a0…328c0 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 74 20 ┆proc; begin <* insert ┆
0x328c0…328e0 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 5f 73 ┆process *> if index_s┆
0x328e0…328fc 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 ┆egm<>-1 then begi┆
0x328fc…32902 (0x518,0x653)
0x32902…32920 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 69 6e ┆n error(<:proc in┆
0x32920…32940 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 20 72 ┆ cat:>, tr); goto r┆
0x32940…32960 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 20 20 ┆ead_upd; end; ┆
0x32960…3297a 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)┆
0x3297a…32980 (0x518,0x654)
0x32980…329a0 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 5f 70 ┆; if read_proc(proc_p┆
0x329a0…329c0 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 20 20 ┆arams) then begin ┆
0x329c0…329e0 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 61 72 ┆ if check_proc(proc_par┆
0x329e0…32a00 61 6d 73 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ams) then b ┆
0x32a00…32a06 (405,) (0x518,0x655)
0x32a06…32a20 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 ┆egin setpos┆
0x32a20…32a40 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 20 20 20 20 20 20 ┆ition(zoold, 0, 0); ┆
0x32a40…32a60 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 20 20 20 20 ┆ swoprec6(zoold, 512); ┆
0x32a60…32a7e 20 20 20 20 20 20 20 20 69 66 20 7a 6f 6f 6c 64 2e 77 6f 72 64 28 32 35 34 29 20 3d 20 7a ┆ if zoold.word(254) = z┆
0x32a7e…32a84 (0x518,0x656)
0x32a84…32aa0 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 20 20 ┆oold.word(255) then ┆
0x32aa0…32ac0 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 65 72 ┆ begin er┆
0x32ac0…32ae0 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 20 20 ┆ror(<:cat full:>, tr); ┆
0x32ae0…32afc 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; ┆
0x32afc…32b02 (0x518,0x657)
0x32b02…32b20 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; ┆
0x32b20…32b40 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 32 35 ┆zoold.word(254) := zoold.word(25┆
0x32b40…32b60 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 67 6d ┆4) + 1; proc_segm┆
0x32b60…32b7a 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 ┆ := zoold.word(256); ┆
0x32b7a…32b80 (0x518,0x658)
0x32b80…32ba0 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 0a 20 ┆ if proc_segm=-1 then ┆
0x32ba0…32bc0 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 ┆
0x32bc0…32be0 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 20 20 ┆ extendcat(zoold); ┆
0x32be0…32c00 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 6c 00 00 00 00 00 00 00 00 ┆ setposition(zool ┆
0x32c00…32c06 (406,) (0x518,0x659)
0x32c06…32c20 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 ┆d, 0, 0); ┆
0x32c20…32c40 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 20 20 20 20 20 20 ┆ swoprec6(zoold, 512); ┆
0x32c40…32c60 20 20 20 20 20 20 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 ┆ proc_segm := zoold.word(┆
0x32c60…32c7e 32 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆256); end; ┆
0x32c7e…32c84 (0x518,0x65a)
0x32c84…32ca0 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 7a 6f ┆ index_segm := (zo┆
0x32ca0…32cc0 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 78 3b ┆old.word(254)-1)//proc_pr_index;┆
0x32cc0…32ce0 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 3e 30 ┆ if index_segm<>0┆
0x32ce0…32cfc 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 ┆ then begin ┆
0x32cfc…32d02 (0x518,0x65b)
0x32d02…32d20 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 7a 6f ┆ setposition(zo┆
0x32d20…32d40 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 20 20 ┆old, 0, index_segm); ┆
0x32d40…32d60 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 20 ┆ swoprec6(zoold, 512); ┆
0x32d60…32d7a 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; ┆
0x32d7a…32d80 (0x518,0x65c)
0x32d80…32da0 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 20 20 ┆ base := proc_byte; ┆
0x32da0…32dc0 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 63 5f ┆ to_from(zoold.base, proc_┆
0x32dc0…32de0 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 2e 62 ┆name, 8); zoold.b┆
0x32de0…32e00 61 73 65 2e 73 65 67 6d 20 3a 3d 20 70 72 6f 63 5f 73 65 67 6d 3b 0a 20 00 00 00 00 00 00 00 00 ┆ase.segm := proc_segm; ┆
0x32e00…32e06 (407,) (0x518,0x65d)
0x32e06…32e20 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(┆
0x32e20…32e40 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 20 20 20 20 20 20 20 ┆zoold, 0, proc_segm); ┆
0x32e40…32e60 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 20 20 ┆ swoprec6(zoold, 512); ┆
0x32e60…32e7e 20 20 20 20 20 20 20 20 20 20 6f 6c 64 20 3a 3d 20 70 72 6f 63 5f 73 65 67 6d 3b 0a 20 20 ┆ old := proc_segm; ┆
0x32e7e…32e84 (0x518,0x65e)
0x32e84…32ea0 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 77 6f ┆ new := zoold.wo┆
0x32ea0…32ec0 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 77 6f ┆rd(256); zoold.wo┆
0x32ec0…32ee0 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 74 6f ┆rd(256) := -1; to┆
0x32ee0…32efc 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 ┆_from(zoold, proc_params, pr┆
0x32efc…32f02 (0x518,0x65f)
0x32f02…32f20 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 70 72 ┆oc_des_lgt); pr┆
0x32f20…32f40 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 74 65 ┆oc_segms := 1; te┆
0x32f40…32f60 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 74 65 ┆rm_count := 0; te┆
0x32f60…32f7a 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 ┆rm_start := proc_des_lgt; ┆
0x32f7a…32f80 (0x518,0x660)
0x32f80…32fa0 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 6d 6e ┆ read_param(paramn┆
0x32fa0…32fc0 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 3a 3d ┆o); newpa_read :=┆
0x32fc0…32fe0 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 20 77 ┆ true; for i:=1 w┆
0x32fe0…33000 68 69 6c 65 20 70 61 72 61 6d 6e 6f 3d 70 61 5f 74 65 72 6d 20 64 6f 0a 00 00 00 00 00 00 00 00 ┆hile paramno=pa_term do ┆
0x33000…33006 (408,) (0x518,0x661)
0x33006…33020 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 ┆ begin ┆
0x33020…33040 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 6e 74 69 ┆ for j:=1 step 1 unti┆
0x33040…33060 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 73 28 6a 29 20 ┆l term_pa_lgt do term_params(j) ┆
0x33060…3307e 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 ┆:= 0; term_pa┆
0x3307e…33084 (0x518,0x662)
0x33084…330a0 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 ┆rams.bufs := false add 1; ┆
0x330a0…330c0 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 65 20 ┆ term_params.time ┆
0x330c0…330e0 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 20 20 ┆:= false add 40; ┆
0x330e0…330fc 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┆
0x330fc…33102 (0x518,0x663)
0x33102…33120 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 20 20 ┆.exid, 11) then ┆
0x33120…33140 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 72 6f ┆ begin erro┆
0x33140…33160 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 20 20 ┆r(<:name:>, pa); ┆
0x33160…3317a 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; ┆
0x3317a…33180 (0x518,0x664)
0x33180…331a0 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; ┆
0x331a0…331c0 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 65 2c ┆ if -,read_quote_text(name,┆
0x331c0…331e0 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 6e 0a ┆ 3) then begin ┆
0x331e0…33200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 00 00 00 00 00 00 00 00 ┆ error ┆
0x33200…33206 (409,) (0x518,0x665)
0x33206…33220 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 ┆(<:locid:>, pa); ┆
0x33220…33240 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 3b 0a 20 ┆ goto read_upd_term1; ┆
0x33240…33260 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; ┆
0x33260…3327e 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 69 6e 74 69 64 20 3a 3d 20 6e 61 6d ┆ term_params.intid := nam┆
0x3327e…33284 (0x518,0x666)
0x33284…332a0 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 34 3b ┆e(1) shift (-24) extract 24;┆
0x332a0…332c0 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 28 7a ┆ if term_segm(z┆
0x332c0…332e0 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 78 69 ┆oold, proc_segm, term_params.exi┆
0x332e0…332fc 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 ┆d, ┆
0x332fc…33302 (0x518,0x667)
0x33302…33320 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 5f 62 ┆ term_params.intid, term_b┆
0x33320…33340 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 65 67 ┆yte)>0 then beg┆
0x33340…33360 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 74 65 ┆in error(<:te┆
0x33360…3337a 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 ┆rm in cat:>, pa); ┆
0x3337a…33380 (0x518,0x668)
0x33380…333a0 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 3b 0a ┆ goto read_upd_term1; ┆
0x333a0…333c0 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 20 20 ┆ end; ┆
0x333c0…333e0 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 72 6d ┆ if -,read_quote_text(term┆
0x333e0…33400 5f 70 61 72 61 6d 73 2e 6b 65 79 2c 20 31 31 29 20 74 68 65 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆_params.key, 11) then ┆
0x33400…33406 (410,) (0x518,0x669)
0x33406…33420 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 ┆ begin ┆
0x33420…33440 20 20 20 20 20 20 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 ┆ error(<:term-key:>┆
0x33440…33460 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 67 6f 74 6f 20 72 ┆, pa); goto r┆
0x33460…3347e 65 61 64 5f 75 70 64 5f 74 65 72 6d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ead_upd_term1; ┆
0x3347e…33484 (0x518,0x66a)
0x33484…334a0 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 20 72 ┆ end; <* r┆
0x334a0…334c0 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 72 65 ┆ead bufring and timecount if pre┆
0x334c0…334e0 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 61 64 ┆sent *> if read┆
0x334e0…334fc 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 ┆_no(j) then ┆
0x334fc…33502 (0x518,0x66b)
0x33502…33520 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 20 6a ┆ begin if j┆
0x33520…33540 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 69 6e ┆<0 then begin┆
0x33540…33560 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 62 75 ┆ error(<:bu┆
0x33560…3357a 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); ┆
0x3357a…33580 (0x518,0x66c)
0x33580…335a0 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 20 20 ┆ goto read_upd_term1; ┆
0x335a0…335c0 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 20 20 ┆ end ┆
0x335c0…335e0 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 20 20 ┆ else begin ┆
0x335e0…33600 20 20 20 20 20 20 20 20 74 65 72 6d 5f 70 61 72 61 6d 73 2e 62 75 66 73 00 00 00 00 00 00 00 00 ┆ term_params.bufs ┆
0x33600…33606 (411,) (0x518,0x66d)
0x33606…33620 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 ┆ := false add j; ┆
0x33620…33640 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 68 65 6e 0a 20 ┆ if read_no(j) then ┆
0x33640…33660 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 ┆
0x33660…3367e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 3c 30 20 74 68 65 6e 0a 20 ┆ if j<0 then ┆
0x3367e…33684 (0x518,0x66e)
0x33684…336a0 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 ┆ begin ┆
0x336a0…336c0 20 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 28 3c ┆ error(<┆
0x336c0…336e0 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 20 20 ┆:timecount:>, pa); ┆
0x336e0…336fc 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┆
0x336fc…33702 (0x518,0x66f)
0x33702…33720 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 65 6e ┆rm1; en┆
0x33720…33740 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 74 65 ┆d else te┆
0x33740…33760 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 0a 20 ┆rm_params.time := false add j; ┆
0x33760…3377a 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; ┆
0x3377a…33780 (0x518,0x670)
0x33780…337a0 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 20 20 ┆ end; ┆
0x337a0…337c0 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 74 65 ┆ end; te┆
0x337c0…337e0 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 20 20 ┆rm_count := term_count + 1; ┆
0x337e0…33800 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 65 67 00 00 00 00 00 00 00 00 ┆ if proc_seg ┆
0x33800…33806 (412,) (0x518,0x671)
0x33806…33820 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 ┆ms=1 and term_count=term_p┆
0x33820…33840 72 5f 70 72 73 65 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 ┆r_prsegm+1 or ┆
0x33840…33860 20 20 70 72 6f 63 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 ┆ proc_segms>1 and term_count=te┆
0x33860…3387e 72 6d 5f 70 72 5f 73 65 67 6d 2b 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆rm_pr_segm+1 then ┆
0x3387e…33884 (0x518,0x672)
0x33884…338a0 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 ┆
0x338a0…338c0 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 20 20 ┆ if new=-1 then ┆
0x338c0…338e0 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 20 65 ┆ begin e┆
0x338e0…338fc 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 ┆xtendcat(zoold); ┆
0x338fc…33902 (0x518,0x673)
0x33902…33920 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 ┆ setposition(zoold, 0┆
0x33920…33940 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 65 63 ┆, 0); inrec┆
0x33940…33960 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 20 20 ┆6(zoold, 512); ┆
0x33960…3397a 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)┆
0x3397a…33980 (0x518,0x674)
0x33980…339a0 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 74 69 ┆; setpositi┆
0x339a0…339c0 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 20 20 ┆on(zoold, 0, old); ┆
0x339c0…339e0 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); ┆
0x339e0…33a00 20 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; ┆
0x33a00…33a06 (413,) (0x518,0x675)
0x33a06…33a20 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 ┆ zoold.wor┆
0x33a20…33a40 64 28 32 35 36 29 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 ┆d(256) := new; ┆
0x33a40…33a60 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 20 20 ┆ setposition(zoold, 0, new); ┆
0x33a60…33a7e 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 ┆ swoprec6(zool┆
0x33a7e…33a84 (0x518,0x676)
0x33a84…33aa0 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 ┆d, 512); ┆
0x33aa0…33ac0 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 20 6e ┆old := new; n┆
0x33ac0…33ae0 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 20 20 ┆ew := zoold.word(256); ┆
0x33ae0…33afc 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) :=┆
0x33afc…33b02 (0x518,0x677)
0x33b02…33b20 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 5f 73 ┆ -1; proc_s┆
0x33b20…33b40 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 20 20 ┆egms := proc_segms + 1; ┆
0x33b40…33b60 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 20 ┆ term_count := 1; ┆
0x33b60…33b7a 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 ┆
0x33b7a…33b80 (0x518,0x678)
0x33b80…33ba0 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 20 20 ┆:= 0; end; ┆
0x33ba0…33bc0 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 74 20 ┆ base := term_start ┆
0x33bc0…33be0 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 0a 20 ┆+ (term_count-1)*term_des_lgt; ┆
0x33be0…33c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 5f 66 72 6f 6d 28 00 00 00 00 00 00 00 00 ┆ to_from( ┆
0x33c00…33c06 (414,) (0x518,0x679)
0x33c06…33c20 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 ┆zoold.base, term_params, t┆
0x33c20…33c40 65 72 6d 5f 64 65 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 ┆erm_des_lgt); read_upd_term1: ┆
0x33c40…33c60 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 6d 6e ┆ read_param(paramn┆
0x33c60…33c7e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 66 6f 72 20 70 61 72 ┆o); end for par┆
0x33c7e…33c84 (0x518,0x67a)
0x33c84…33ca0 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 73 65 ┆amno=term; se┆
0x33ca0…33cc0 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 20 20 ┆tposition(zoold, 0, 0); ┆
0x33cc0…33ce0 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); ┆
0x33ce0…33cfc 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) ┆
0x33cfc…33d02 (0x518,0x67b)
0x33d02…33d20 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 63 68 ┆:= new; end if ch┆
0x33d20…33d40 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 61 64 ┆eck_proc; end if read┆
0x33d40…33d60 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 20 20 ┆_proc; end iproc; ┆
0x33d60…33d7a 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┆
0x33d7a…33d80 (0x518,0x67c)
0x33d80…33da0 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 61 72 ┆pd: if newpa_read and par┆
0x33da0…33dc0 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 64 0a ┆amno>great_trno or -,newpa_read ┆
0x33dc0…33de0 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 20 20 ┆ then read_param(trans) ┆
0x33de0…33e00 20 20 20 20 20 65 6c 73 65 20 74 72 61 6e 73 20 3a 3d 20 70 61 72 61 6d 00 00 00 00 00 00 00 00 ┆ else trans := param ┆
0x33e00…33e06 (415,) (0x518,0x67d)
0x33e06…33e20 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 ┆no; newpa_read := f┆
0x33e20…33e40 61 6c 73 65 3b 0a 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 ┆alse; end while -,em; endu┆
0x33e40…33e60 70 64 3a 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 ┆pd: i := monitor(42) lookup┆
0x33e60…33e7e 20 3a 28 7a 6f 6f 6c 64 2c 20 30 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 20 69 66 20 69 3e ┆ :(zoold, 0, tail); if i>┆
0x33e7e…33e84 (0x518,0x67e)
0x33e84…33ea0 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┆
0x33ea0…33ec0 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 31 29 ┆okup:>); maxsegm := tail(1)┆
0x33ec0…33ee0 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 20 3a ┆; i := monitor(42) lookup :┆
0x33ee0…33efc 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>┆
0x33efc…33f02 (0x518,0x67f)
0x33f02…33f20 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 6f 6b ┆0 then system(9, i, <:<10>look┆
0x33f20…33f40 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 20 74 ┆up:>); if tail(1)<maxsegm t┆
0x33f40…33f60 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 3a 3d ┆hen begin tail(1) :=┆
0x33f60…33f7a 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┆
0x33f7a…33f80 (0x518,0x680)
0x33f80…33fa0 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 30 2c ┆tor(44) change entry :(zonew, 0,┆
0x33fa0…33fc0 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 74 65 ┆ tail); if i>0 then syste┆
0x33fc0…33fe0 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 20 65 ┆m(9, i, <:<10>ch.entr:>); e┆
0x33fe0…34000 6e 64 3b 0a 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 6f 00 00 00 00 00 00 00 00 ┆nd; setposition(zoo ┆
0x34000…34006 (416,) (0x518,0x681)
0x34006…34020 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 ┆ld, 0, 0); setpositio┆
0x34020…34040 6e 28 7a 6f 6e 65 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 ┆n(zonew, 0, 0); for i:=1 st┆
0x34040…34060 65 70 20 31 20 75 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 ┆ep 1 until maxsegm do begin┆
0x34060…3407e 0a 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 ┆ inrec6(zoold, 512); ┆
0x3407e…34084 (0x518,0x682)
0x34084…340a0 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 20 20 ┆ outrec6(zonew, 512); ┆
0x340a0…340c0 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 20 64 ┆ for j:=1 step 1 until 128 d┆
0x340c0…340e0 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 29 3b ┆o zonew(j) := zoold(j);┆
0x340e0…340fc 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┆
0x340fc…34102 (0x518,0x683)
0x34102…34120 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 30 2c ┆(48) remove entry :( zoold, 0,┆
0x34120…34140 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 6d 28 ┆ tail); if i>0 then system(┆
0x34140…34160 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 6f 73 ┆9, i, <:<10>remove:>); clos┆
0x34160…3417a 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 ┆e(zoold, true); end upd┆
0x3417a…34180 (0x518,0x684)
0x34180…341a0 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 70 20 ┆ate; i := monitor(42) lookup ┆
0x341a0…341c0 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 74 68 ┆:( zonew, 0, tail); if i>0 th┆
0x341c0…341e0 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 29 3b ┆en system(9, i, <:<10>lookup:>);┆
0x341e0…34200 0a 20 20 74 61 69 6c 28 36 29 20 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c 00 00 00 00 00 00 00 00 ┆ tail(6) := systime(7, ┆
0x34200…34206 (417,) (0x518,0x685)
0x34206…34220 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 ┆ 0, short); i := monitor┆
0x34220…34240 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 30 2c 20 74 61 ┆(44) change entry :(zonew, 0, ta┆
0x34240…34260 69 6c 29 3b 0a 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 ┆il); if i>0 then system(9, i, ┆
0x34260…3427e 3c 3a 3c 31 30 3e 63 68 2e 65 6e 74 72 3a 3e 29 3b 0a 20 0c 0a 20 20 69 66 20 6c 69 73 74 ┆<:<10>ch.entr:>); if list┆
0x3427e…34284 (0x518,0x686)
0x34284…342a0 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 20 20 ┆ then begin i := 1; ┆
0x342a0…342c0 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 65 28 ┆ open(zoout, 4, string outfile(┆
0x342c0…342e0 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 69 6f ┆increase(i)), 0); setpositio┆
0x342e0…342fc 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 ┆n(zonew, 0, 0); inrec6(z┆
0x342fc…34302 (0x518,0x687)
0x34302…34320 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 3d 20 ┆onew, 512); proc_count := ┆
0x34320…34340 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 75 74 ┆zonew.word(254); write(zoout┆
0x34340…34360 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 20 70 ┆, false add 12,1, nl,1, string p┆
0x34360…3437a 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 ┆aram(1), sp,1, zonew.word(┆
0x3437a…34380 (0x518,0x688)
0x34380…343a0 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 69 6c ┆255)); for k:=1 step 1 until┆
0x343a0…343c0 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 20 73 ┆ proc_count do begin s┆
0x343c0…343e0 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 6f 63 ┆etposition(zonew, 0, (k-1)//proc┆
0x343e0…34400 5f 70 72 5f 69 6e 64 65 78 29 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 00 00 00 00 00 00 00 00 ┆_pr_index); inrec6 ┆
0x34400…34406 (418,) (0x518,0x689)
0x34406…34420 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 ┆(zonew, 512); lbase ┆
0x34420…34440 3a 3d 20 28 69 66 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 ┆:= (if k mod proc_pr_index=0 the┆
0x34440…34460 6e 20 28 70 72 6f 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 ┆n (proc_pr_index-1) else ┆
0x34460…3447e 20 20 20 20 20 20 20 20 28 6b 20 6d 6f 64 20 70 72 6f 63 5f 70 72 5f 69 6e 64 65 78 20 2d ┆ (k mod proc_pr_index -┆
0x3447e…34484 (0x518,0x68a)
0x34484…344a0 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 65 28 ┆ 1))*index_lgt; write(┆
0x344a0…344c0 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 73 70 ┆zoout, nl,3, string param(2), sp┆
0x344c0…344e0 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 69 74 ┆,1, zonew.lbase); setposit┆
0x344e0…344fc 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 ┆ion(zonew, 0, zonew.lbase.se┆
0x344fc…34502 (0x518,0x68b)
0x34502…34520 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 29 3b ┆gm); inrec6(zonew, 512);┆
0x34520…34540 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 2c 20 ┆ write(zoout, nl,1, sp,2, ┆
0x34540…34560 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 75 66 ┆string param(6), sp,1, zonew.buf┆
0x34560…3457a 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 ┆ extract 24, ┆
0x3457a…34580 (0x518,0x68c)
0x34580…345a0 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 28 37 ┆ sp,1, sp,2, string param(7┆
0x345a0…345c0 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 2c 0a ┆), sp,1, zonew.area extract 24, ┆
0x345c0…345e0 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 20 73 ┆ nl,1, sp,2, s┆
0x345e0…34600 74 72 69 6e 67 20 70 61 72 61 6d 28 38 29 2c 20 73 70 2c 31 2c 20 7a 6f 00 00 00 00 00 00 00 00 ┆tring param(8), sp,1, zo ┆
0x34600…34606 (419,) (0x518,0x68d)
0x34606…34620 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 ┆new.std1, sp,1, zonew.std2┆
0x34620…34640 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,┆
0x34640…34660 20 73 74 72 69 6e 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 ┆ string param(9), sp,1, zonew.us┆
0x34660…3467e 65 31 2c 20 73 70 2c 31 2c 20 7a 6f 6e 65 77 2e 75 73 65 32 2c 0a 20 20 20 20 20 20 20 20 ┆e1, sp,1, zonew.use2, ┆
0x3467e…34684 (0x518,0x68e)
0x34684…346a0 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┆
0x346a0…346c0 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 20 73 ┆g param(10), sp,1, zonew.max1, s┆
0x346c0…346e0 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 20 20 ┆p,1, zonew.max2, ┆
0x346e0…346fc 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┆
0x346fc…34702 (0x518,0x68f)
0x34702…34720 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 7a 6f ┆(11), sp,1, false add 34,1, zo┆
0x34720…34740 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 20 20 ┆new.pass, false add 34,1, ┆
0x34740…34760 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 67 20 ┆ nl,1, sp,2, string ┆
0x34760…3477a 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 ┆param(12), sp,1, zonew.min┆
0x3477a…34780 (0x518,0x690)
0x34780…347a0 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 2c 32 ┆s, nl,1, sp,2┆
0x347a0…347c0 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 77 2e ┆, string param(13), sp,1, zonew.┆
0x347c0…347e0 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 20 73 ┆maxs, nl,1, s┆
0x347e0…34800 70 2c 32 2c 20 73 74 72 69 6e 67 20 70 61 72 61 6d 28 31 34 29 2c 20 73 00 00 00 00 00 00 00 00 ┆p,2, string param(14), s ┆
0x34800…34806 (420,) (0x518,0x691)
0x34806…34820 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 ┆p,1, false add 34,1, zonew┆
0x34820…34840 2e 66 70 2c 20 66 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 ┆.fp, false add 34,1); for ┆
0x34840…34860 69 3a 3d 30 20 73 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 ┆i:=0 step 1 until no_of_bs-1 do ┆
0x34860…3487e 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6e 6f 31 20 3a 3d 20 6e 6f 32 ┆ begin no1 := no2┆
0x3487e…34884 (0x518,0x692)
0x34884…348a0 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 69 73 ┆ := 0; if i=0 <* dis┆
0x348a0…348c0 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 20 20 ┆c *> then begin ┆
0x348c0…348e0 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 62 73 ┆ for j:=2 step 1 until no_of_bs┆
0x348e0…348fc 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 ┆ do begin ┆
0x348fc…34902 (0x518,0x693)
0x34902…34920 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 3b 0a ┆ perm := perm1 + (j-1)*24; ┆
0x34920…34940 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 2e 70 ┆ no1 := no1 + zonew.p┆
0x34940…34960 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 20 2b ┆erm(5); no2 := no2 +┆
0x34960…3497a 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); ┆
0x3497a…34980 (0x518,0x694)
0x34980…349a0 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 20 3a ┆end; end; perm :┆
0x349a0…349c0 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 65 77 ┆= perm1 + i*24; if zonew┆
0x349c0…349e0 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 0a 20 ┆.perm(1)<>0 then begin ┆
0x349e0…34a00 20 20 20 20 20 20 20 20 20 6c 62 61 73 65 20 3a 3d 20 70 65 72 6d 3b 0a 00 00 00 00 00 00 00 00 ┆ lbase := perm; ┆
0x34a00…34a06 (421,) (0x518,0x695)
0x34a06…34a20 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 ┆ write(zoout, nl,┆
0x34a20…34a40 31 2c 20 73 70 2c 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 ┆1, sp,2, string param(15), sp,1,┆
0x34a40…34a60 20 7a 6f 6e 65 77 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 ┆ zonew.lbase); for j:=┆
0x34a60…34a7e 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 ┆0 step 1 until 3 do ┆
0x34a7e…34a84 (0x518,0x696)
0x34a84…34aa0 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 20 6b ┆begin csegm := k┆
0x34aa0…34ac0 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 20 20 ┆0s + j*4; entr := csegm-2; ┆
0x34ac0…34ae0 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 69 6e ┆ write(zoout, sp,1, strin┆
0x34ae0…34afc 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 ┆g param(16+j), sp,1, ┆
0x34afc…34b02 (0x518,0x697)
0x34b02…34b20 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 2e 65 ┆ zonew.perm.e┆
0x34b20…34b40 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 20 20 ┆ntr-(if j=0 then no1 else ┆
0x34b40…34b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34b60…34b7a 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┆
0x34b7a…34b80 (0x518,0x698)
0x34b80…34ba0 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 2c 31 ┆), sp,1┆
0x34ba0…34bc0 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 20 65 ┆, zonew.perm.csegm); e┆
0x34bc0…34be0 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 20 20 ┆nd; end; end; ┆
0x34be0…34c00 20 20 63 6f 6e 74 20 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 65 78 00 00 00 00 00 00 00 00 ┆ cont := true; ex ┆
0x34c00…34c06 (422,) (0x518,0x699)
0x34c06…34c20 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 ┆id := proc_des_lgt; ┆
0x34c20…34c40 69 6e 74 69 64 20 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 ┆intid := exid + 10; key :=┆
0x34c40…34c60 20 69 6e 74 69 64 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 ┆ intid; bufs := key + 9; ┆
0x34c60…34c7e 20 20 20 20 20 74 69 6d 65 20 3a 3d 20 62 75 66 73 20 2b 20 31 3b 0a 20 20 20 20 20 20 6e ┆ time := bufs + 1; n┆
0x34c7e…34c84 (0x518,0x69a)
0x34c84…34ca0 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 20 69 ┆ext := exid + 2; for i┆
0x34ca0…34cc0 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 3e 2d ┆:=1 while cont and zonew.next<>-┆
0x34cc0…34ce0 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 28 7a ┆1 do begin write(z┆
0x34ce0…34cfc 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 ┆oout, nl,1, sp,2, string par┆
0x34cfc…34d02 (0x518,0x69b)
0x34d02…34d20 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 20 20 ┆am(21), sp,1, zonew.exid, ┆
0x34d20…34d40 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 64 64 ┆ sp,1, false add┆
0x34d40…34d60 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 69 64 ┆ 34,1, string extend zonew.intid┆
0x34d60…34d7a 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 ┆ shift 24, ┆
0x34d7a…34d80 (0x518,0x69c)
0x34d80…34da0 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 6c 73 ┆ false add 34,1, sp,1, fals┆
0x34da0…34dc0 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 20 20 ┆e add 34,1, ┆
0x34dc0…34de0 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 2c 31 ┆ zonew.key, false add 34,1, sp,1┆
0x34de0…34e00 2c 20 7a 6f 6e 65 77 2e 62 75 66 73 20 65 78 74 72 61 63 74 20 31 32 2c 00 00 00 00 00 00 00 00 ┆, zonew.bufs extract 12, ┆
0x34e00…34e06 (423,) (0x518,0x69d)
0x34e06…34e20 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 ┆ sp,1┆
0x34e20…34e40 2c 20 7a 6f 6e 65 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 ┆, zonew.time extract 12); ┆
0x34e40…34e60 20 20 65 78 69 64 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 ┆ exid := exid + term_des_lgt; ┆
0x34e60…34e7e 20 20 20 20 20 20 20 69 6e 74 69 64 20 3a 3d 20 69 6e 74 69 64 20 2b 20 74 65 72 6d 5f 64 ┆ intid := intid + term_d┆
0x34e7e…34e84 (0x518,0x69e)
0x34e84…34ea0 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 20 2b ┆es_lgt; key := key +┆
0x34ea0…34ec0 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 20 62 ┆ term_des_lgt; bufs := b┆
0x34ec0…34ee0 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 6d 65 ┆ufs + term_des_lgt; time┆
0x34ee0…34efc 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 ┆ := time + term_des_lgt; ┆
0x34efc…34f02 (0x518,0x69f)
0x34f02…34f20 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 5f 6c ┆ next := next + term_des_l┆
0x34f20…34f40 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 73 65 ┆gt; if next=free_w_prse┆
0x34f40…34f60 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 20 20 ┆gm or next=free_w_segm then ┆
0x34f60…34f7a 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┆
0x34f7a…34f80 (0x518,0x6a0)
0x34f80…34fa0 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 20 20 ┆egms := zonew.word(256); ┆
0x34fa0…34fc0 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 3a 3d ┆ if proc_segms=-1 then cont :=┆
0x34fc0…34fe0 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 20 20 ┆ false else ┆
0x34fe0…35000 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 00 00 00 00 00 00 00 00 ┆begin setpos ┆
0x35000…35006 (424,) (0x518,0x6a1)
0x35006…35020 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 ┆ition(zonew, 0, proc_segms┆
0x35020…35040 29 3b 0a 20 20 20 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 ┆); inrec6(zonew, 512┆
0x35040…35060 29 3b 0a 20 20 20 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 ┆); exid := 0; ┆
0x35060…3507e 20 20 20 20 20 20 69 6e 74 69 64 20 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ intid := 10; ┆
0x3507e…35084 (0x518,0x6a2)
0x35084…350a0 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 66 73 ┆ key := 10; bufs┆
0x350a0…350c0 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 3b 0a ┆ := 19; time := 20; ┆
0x350c0…350e0 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 20 20 ┆ next := 2; ┆
0x350e0…350fc 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┆
0x350fc…35102 (0x518,0x6a3)
0x35102…35120 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 6f 6f ┆; end for k; write(zoo┆
0x35120…35140 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 31 2c ┆ut, nl,1, string param(0), nl,1,┆
0x35140…35160 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 69 74 ┆ false add 25,1); i := monit┆
0x35160…3517a 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 ┆or(42) lookup :( zoout, 0,┆
0x3517a…35180 (0x518,0x6a4)
0x35180…351a0 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 28 39 ┆ tail); if i>0 then system(9┆
0x351a0…351c0 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 28 36 ┆, i, <:<10>lookup:>); tail(6┆
0x351c0…351e0 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 20 69 ┆) := systime(7, 0, short); i┆
0x351e0…35200 20 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 34 29 20 63 68 61 6e 67 65 20 65 00 00 00 00 00 00 00 00 ┆ := monitor(44) change e ┆
0x35200…35206 (425,) (0x518,0x6a5)
0x35206…35220 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 ┆ntry :( zoout, 0, tail); ┆
0x35220…35240 20 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 ┆ if i>0 then system(9, i, <:<1┆
0x35240…35260 30 3e 63 68 2e 65 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 ┆0>ch.entry:>); close(zoout, ┆
0x35260…3527e 74 72 75 65 29 3b 0a 20 20 65 6e 64 20 6c 69 73 74 3b 0a 0a 20 20 63 6c 6f 73 65 20 28 7a ┆true); end list; close (z┆
0x3527e…35284 (0x518,0x6a6)
0x35284…352a0 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 61 74 ┆onew, true); if tempnewcat┆
0x352a0…352c0 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 28 34 ┆ then begin i := monitor(4┆
0x352c0…352e0 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 69 6c ┆8) remove entry :(zonew, 0, tail┆
0x352e0…352fc 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 ┆); if i>0 then system(9,┆
0x352fc…35302 (0x518,0x6a7)
0x35302…35320 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 20 20 ┆ i, <:<10>remove:>); end; ┆
0x35320…35340 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 2c 20 ┆if data_error then system(9, 0, ┆
0x35340…35360 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 65 63 ┆<:<10>errors:>); end; inrec┆
0x35360…3537a 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 ┆6(zonew, 512); ┆
0x3537a…35380 (0x518,0x6a8)
0x35380…353a0 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 3a 3d ┆ exid := 0; intid :=┆
0x353a0…353c0 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 20 20 ┆ 10; key := 10; ┆
0x353c0…353e0 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 20 20 ┆ bufs := 19; ┆
0x353e0…35400 74 69 6d 65 20 3a 3d 20 32 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆time := 20; ┆
0x35400…35406 (426,) (0x518,0x6a9)
0x35406…35420 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 ┆next := 2; end; ┆
0x35420…35440 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 ┆ end; end; end ┆
0x35440…35460 66 6f 72 20 6b 3b 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 ┆for k; write(zoout, nl,1, st┆
0x35460…3547e 72 69 6e 67 20 70 61 72 61 6d 28 30 29 2c 20 6e 6c 2c 31 2c 20 66 61 6c 73 65 20 61 64 64 ┆ring param(0), nl,1, false add┆
0x3547e…35484 (0x518,0x6aa)
0x35484…354a0 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 32 29 ┆ 25,1); i := monitor(42)┆
0x354a0…354c0 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 20 20 ┆ lookup :( zoout, 0, tail); ┆
0x354c0…354e0 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 6c ┆if i>0 then system(9, i, <:<10>l┆
0x354e0…354fc 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 ┆ooku; end; end┆
0x354fc…35502 (0x57c,0x6ab)
0x35502…35520 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 20 20 ┆! *** tprologue ┆
0x35520…35540 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 64 69 ┆*** ; ; ; program for loading di┆
0x35540…35560 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 20 77 ┆rectly executable programs ; ; w┆
0x35560…3557a 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 ┆hen used at s-replacement ┆
0x3557a…35580 (0x57c,0x6ac)
0x35580…355a0 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 6f 6e ┆the program protects the environ┆
0x355a0…355c0 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 20 6f ┆ment against ; eventual errors o┆
0x355c0…355e0 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 6c 6f ┆ccurring in the program to be lo┆
0x355e0…35600 61 64 65 64 0a 3b 0a 3b 20 50 52 4f 4c 4f 47 55 45 20 20 3d 20 20 50 52 00 00 00 00 00 00 00 00 ┆aded ; ; PROLOGUE = PR ┆
0x35600…35606 (427,) (0x57c,0x6ad)
0x35606…35620 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 ┆Otect, ; L┆
0x35620…35640 4f 61 64 20 61 6e 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 ┆Oad and ; Go. ┆
0x35640…35660 3b 20 20 20 20 20 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 ┆; Undefined o┆
0x35660…3567e 6e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 72 72 6f 72 2e ┆n ; Error.┆
0x3567e…35684 (0x57c,0x6ae)
0x35684…356a0 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 72 61 ┆ ; ; when started the progra┆
0x356a0…356c0 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 69 6e ┆m tests whether it is running in┆
0x356c0…356e0 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 61 63 ┆ unprotected mode ; (as s-replac┆
0x356e0…356fc 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 ┆ement). ; if unprotected the┆
0x356fc…35702 (0x57c,0x6af)
0x35702…35720 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 6f 20 ┆ program asks the operator to ┆
0x35720…35740 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 63 65 ┆type the new name of the ; proce┆
0x35740…35760 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 20 70 ┆ss: ; ; process name = ; ; the p┆
0x35760…3577a 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 ┆rocess name will be checke┆
0x3577a…35780 (0x57c,0x6b0)
0x35780…357a0 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 63 72 ┆d and put into the process descr┆
0x357a0…357c0 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 6e 69 ┆iption. ; the environments (moni┆
0x357c0…357e0 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 65 73 ┆tor and eventual child processes┆
0x357e0…35800 20 72 75 6e 6e 69 6e 67 20 69 6e 20 74 68 65 0a 3b 20 68 69 67 68 65 72 00 00 00 00 00 00 00 00 ┆ running in the ; higher ┆
0x35800…35806 (428,) (0x57c,0x6b1)
0x35806…35820 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 ┆ addresses in core) will b┆
0x35820…35840 65 20 70 72 6f 74 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 ┆e protected by setting the limit┆
0x35840…35860 20 72 65 67 69 73 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 ┆ regis- ; ters of the process ; ┆
0x35860…3587e 3b 20 69 6e 20 61 6e 79 20 63 61 73 65 20 74 68 65 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c ┆; in any case the program will┆
0x3587e…35884 (0x57c,0x6b2)
0x35884…358a0 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 74 68 ┆ ask the operator to type th┆
0x358a0…358c0 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 6c 6f ┆e name of the program ; to be lo┆
0x358c0…358e0 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 68 69 ┆aded: ; ; program name = ; ; thi┆
0x358e0…358fc 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 ┆s program will be loaded and┆
0x358fc…35902 (0x57c,0x6b3)
0x35902…35920 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 63 6f ┆ activated according to the co┆
0x35920…35940 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 74 61 ┆nventions for ; directly executa┆
0x35940…35960 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 72 20 ┆ble programs running under s or ┆
0x35960…3597a 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 ┆boss. ; ; in case the prog┆
0x3597a…35980 (0x57c,0x6b4)
0x35980…359a0 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 70 72 ┆ram loaded is not correct the pr┆
0x359a0…359c0 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 73 74 ┆ocess must be stopped and ; rest┆
0x359c0…359e0 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 66 74 ┆arted - an error occurring aft┆
0x359e0…35a00 65 72 20 73 2d 72 65 70 6c 61 63 65 6d 65 6e 74 20 63 72 65 61 74 65 73 00 00 00 00 00 00 00 00 ┆er s-replacement creates ┆
0x35a00…35a06 (429,) (0x57c,0x6b5)
0x35a06…35a20 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 ┆ an undefined si- ; tuatio┆
0x35a20…35a40 6e 20 77 68 69 63 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 ┆n which must be solved by a new ┆
0x35a40…35a60 61 75 74 6f 6c 6f 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 ┆autoload. ; ! prologue begin ┆
0x35a60…35a7e 21 66 70 2e 6e 6f 3b 0a 20 20 6c 61 62 65 6c 20 72 65 61 64 70 61 72 61 6d 2c 65 72 72 6f ┆!fp.no; label readparam,erro┆
0x35a7e…35a84 (0x57c,0x6b6)
0x35a84…35aa0 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 72 65 ┆r,startload,endload; re┆
0x35aa0…35ac0 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 65 32 ┆cord name (double name1,name2┆
0x35ac0…35ae0 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 75 73 ┆); record answer (word status┆
0x35ae0…35afc 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 ┆,bytes,chars); record proc┆
0x35afc…35b02 (0x57c,0x6b7)
0x35b02…35b20 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 20 20 ┆desc(word pkind; ┆
0x35b20…35b40 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 20 20 ┆ text(11)pname; ┆
0x35b40…35b60 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 61 74 ┆ byte stopcount,pstat┆
0x35b60…35b7a 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 ┆e; word ┆
0x35b7a…35b80 (0x57c,0x6b8)
0x35b80…35ba0 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 66 20 ┆ idbit; ref ┆
0x35ba0…35bc0 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 2c 70 ┆ nextmess,prevmess,nextproc,p┆
0x35bc0…35be0 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 20 20 ┆revproc,firstcore,topcore; ┆
0x35be0…35c00 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 20 20 20 62 75 66 00 00 00 00 00 00 00 00 ┆ byte buf ┆
0x35c00…35c06 (430,) (0x57c,0x6b9)
0x35c06…35c20 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 ┆claim,areaclaim,intclaim,f┆
0x35c20…35c40 75 6e 63 6d 61 73 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 ┆uncmask; word ┆
0x35c40…35c60 20 20 20 70 72 69 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 ┆ priority; b┆
0x35c60…35c7e 79 74 65 20 20 20 20 70 72 6f 74 72 65 67 2c 70 72 6f 74 6b 65 79 3b 0a 20 20 20 20 20 20 ┆yte protreg,protkey; ┆
0x35c7e…35c84 (0x57c,0x6ba)
0x35c84…35ca0 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 73 6b ┆ word intrmask┆
0x35ca0…35cc0 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 74 72 ┆; ref intr┆
0x35cc0…35ce0 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 6b 34 ┆addr,escaddr,wrk1,wrk2,wrk3,wrk4┆
0x35ce0…35cfc 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 ┆,wrk5,parent; ┆
0x35cfc…35d02 (0x57c,0x6bb)
0x35d02…35d20 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 20 20 ┆ word tquantum; ┆
0x35d20…35d40 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 74 72 ┆ double runtime,startr┆
0x35d40…35d60 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 20 20 ┆un,startwait; ┆
0x35d60…35d7a 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; ┆
0x35d7a…35d80 (0x57c,0x6bc)
0x35d80…35da0 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 73 74 ┆ double catbase,maxbase,st┆
0x35da0…35dc0 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 20 20 ┆dbase; word ┆
0x35dc0…35de0 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 70 61 ┆ v0,v1,v2,v3,rex,ic,cause,sb,cpa┆
0x35de0…35e00 2c 62 61 73 65 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 ┆,base; ┆
0x35e00…35e06 (431,) (0x57c,0x6bd)
0x35e06…35e20 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 ┆ ref lowlimit,highlimi┆
0x35e20…35e40 74 29 3b 0a 20 20 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 ┆t); record loadinf(byte operat┆
0x35e40…35e60 69 6f 6e 2c 6d 6f 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 ┆ion,mode; ref f┆
0x35e60…35e7e 69 72 73 74 2c 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆irst,last; wo┆
0x35e7e…35e84 (0x57c,0x6be)
0x35e84…35ea0 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 64 75 ┆rd segment,dum1,dum2,dum3,du┆
0x35ea0…35ec0 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 61 6d ┆m4; double pnam┆
0x35ec0…35ee0 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 72 64 ┆e1,pname2; word┆
0x35ee0…35efc 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 ┆ nta,okresult; ┆
0x35efc…35f02 (0x57c,0x6bf)
0x35f02…35f20 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 6f 75 ┆ ref absentry,primin,primou┆
0x35f20…35f40 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 74 72 ┆t,ownproc,return); record entr┆
0x35f40…35f60 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 20 20 ┆ytail(word filesize; ┆
0x35f60…35f7a 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;┆
0x35f7a…35f80 (0x57c,0x6c0)
0x35f80…35fa0 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 2c 66 ┆ word clock,f┆
0x35fa0…35fc0 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 62 79 ┆ile,block; by┆
0x35fc0…35fe0 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 20 20 ┆te contents,entrypoint; ┆
0x35fe0…36000 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 61 64 6c 65 6e 67 00 00 00 00 00 00 00 00 ┆ word loadleng ┆
0x36000…36006 (432,) (0x57c,0x6c1)
0x36006…36020 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 ┆th); incode ref core┆
0x36020…36040 66 73 74 2c 63 6f 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 ┆fst,coretop,jobproc,primary,load┆
0x36040…36060 63 6f 64 65 65 6e 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 ┆codeentry; ref lastinternal:┆
0x36060…3607e 3d 38 30 2c 63 75 72 72 70 72 6f 63 3a 3d 36 36 3b 0a 20 20 20 20 61 72 72 61 79 20 28 31 ┆=80,currproc:=66; array (1┆
0x3607e…36084 (0x57c,0x6c2)
0x36084…360a0 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 61 79 ┆:10) tail of word; array┆
0x360a0…360c0 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 6e 6f ┆ (1:4) buf of word; byte ino┆
0x360c0…360e0 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 74 2c ┆p:=3,inmode:=0; ref infirst,┆
0x360e0…360fc 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 ┆inlast; byte outop:=5,ou┆
0x360fc…36102 (0x57c,0x6c3)
0x36102…36120 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 75 74 ┆tmode:=0; ref outfirst,out┆
0x36120…36140 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 20 20 ┆last; word loadcodesize; ┆
0x36140…36160 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 3b 0a ┆ text(14) maincons:="console1"; ┆
0x36160…3617a 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┆
0x3617a…36180 (0x57c,0x6c4)
0x36180…361a0 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 20 20 ┆s name illegal'10'", ┆
0x361a0…361c0 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 0a 20 ┆ t1 :="entry not found'10'", ┆
0x361c0…361e0 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 73 27 ┆ t2 :="entry not bs'┆
0x361e0…36200 31 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 33 20 20 3a 00 00 00 00 00 00 00 00 ┆10'", t3 : ┆
0x36200…36206 (433,) (0x57c,0x6c5)
0x36206…36220 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 ┆="program not directly exe┆
0x36220…36240 63 75 74 61 62 6c 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 ┆cutable'10'", t4 :┆
0x36240…36260 3d 22 65 6e 74 72 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 ┆="entrypoint outside load code'1┆
0x36260…3627e 30 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 35 20 20 3a 3d 22 70 72 6f 63 65 ┆0'", t5 :="proce┆
0x3627e…36284 (0x57c,0x6c6)
0x36284…362a0 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 20 20 ┆ss too small'10'", ┆
0x362a0…362c0 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 20 65 ┆ t6 :="result = xxx, input e┆
0x362c0…362e0 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 22 70 ┆rror'10'"; text(17) proc:="p┆
0x362e0…362fc 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 ┆rocess name = ", ┆
0x362fc…36302 (0x57c,0x6c7)
0x36302…36320 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 20 20 ┆ prog:="program name = "; ┆
0x36320…36340 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 6c 6f ┆begin goto endload; startlo┆
0x36340…36360 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 6f 6e ┆ad: (w1).return:=w2; mon┆
0x36360…3637a 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 ┆itor(16); comment send me┆
0x3637a…36380 (0x57c,0x6c8)
0x36380…363a0 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 6e 74 ┆ssage; monitor(18); comment┆
0x363a0…363c0 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 29 2e ┆ wait answer; if w0 <> (w1).┆
0x363c0…363e0 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 75 72 ┆okresult then call w0 (w1).retur┆
0x363e0…36400 6e 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 20 63 6f 6d 00 00 00 00 00 00 00 00 ┆n; monitor(64); com ┆
0x36400…36406 (434,) (0x57c,0x6c9)
0x36406…36420 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 ┆ment remove area process; ┆
0x36420…36440 20 20 20 20 77 30 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 ┆ w0:=(w1).primin; w2:=(w1┆
0x36440…36460 29 2e 70 72 69 6d 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 ┆).primout; w3:=(w1).ownproc;┆
0x36460…3647e 0a 20 20 20 20 63 61 6c 6c 20 77 30 20 28 77 31 29 2e 61 62 73 65 6e 74 72 79 3b 0a 65 6e ┆ call w0 (w1).absentry; en┆
0x3647e…36484 (0x57c,0x6ca)
0x36484…364a0 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 72 6f ┆dload: w3:=word(currpro┆
0x364a0…364c0 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 64 64 ┆c); jobproc:=w3; w3:=add┆
0x364c0…364e0 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 3b 20 ┆ress(maincons); monitor(4); ┆
0x364e0…364fc 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┆
0x364fc…36502 (0x57c,0x6cb)
0x36502…36520 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 3d 77 ┆ main console ! primary:=w┆
0x36520…36540 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 0a 20 ┆0; readparam: w3:=jobproc; ┆
0x36540…36560 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 2e 66 ┆ if w0:=(w3).lowlimit < (w3).f┆
0x36560…3657a 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 ┆irstcore then begin ┆
0x3657a…36580 (0x57c,0x6cc)
0x36580…365a0 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 29 3b ┆ outfirst:=w1:=address(proc);┆
0x365a0…365c0 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 31 3b ┆ w1+10; outlast:=w1;┆
0x365c0…365e0 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 20 20 ┆ w1:=address(outop); ┆
0x365e0…36600 20 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 63 6f 6e 73 29 3b 0a 00 00 00 00 00 00 00 00 ┆ w3:=address(maincons); ┆
0x36600…36606 (435,) (0x57c,0x6cd)
0x36606…36620 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┆
0x36620…36640 20 6d 65 73 73 61 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 ┆ message ! tail(w1:=1); ┆
0x36640…36660 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 72 20 ┆ monitor(18); ! wait answer ┆
0x36660…3667e 21 0a 20 20 20 20 20 20 66 6f 72 20 77 30 3a 3d 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 ┆! for w0:=1 step 1 upto ┆
0x3667e…36684 (0x57c,0x6ce)
0x36684…366a0 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 3a ┆4 do (buf(w1:=w0)).word:=w2:┆
0x366a0…366c0 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 0a 20 ┆=0; infirst:=buf(w1:=1); ┆
0x366c0…366e0 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 20 77 ┆ inlast:=buf(w1:=4); w┆
0x366e0…366fc 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 ┆3:=address(maincons); ┆
0x366fc…36702 (0x57c,0x6cf)
0x36702…36720 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 69 74 ┆w1:=address(inop); monit┆
0x36720…36740 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 20 20 ┆or(16); ! send message ! ┆
0x36740…36760 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 3b 20 ┆tail(w1:=1); monitor(18); ┆
0x36760…3677a 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┆
0x3677a…36780 (0x57c,0x6d0)
0x36780…367a0 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 30 3a ┆(w2:=0)+(w1).bytes; if w0:┆
0x367a0…367c0 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 0a 20 ┆=(w2).word extract 8 = 10 then ┆
0x367c0…367e0 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 6c 73 ┆ (w2).word:=w0:=-1 ls┆
0x367e0…36800 68 69 66 74 20 38 20 61 6e 64 20 28 77 32 29 2e 77 6f 72 64 20 65 6c 73 00 00 00 00 00 00 00 00 ┆hift 8 and (w2).word els ┆
0x36800…36806 (436,) (0x57c,0x6d1)
0x36806…36820 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 ┆e if w0:=(w2).word l┆
0x36820…36840 73 68 69 66 74 20 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 ┆shift -8 extract 8 = 10 then ┆
0x36840…36860 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 6c 73 68 69 ┆ (w2).word:=w0:=-1 lshi┆
0x36860…3687e 66 74 20 31 36 20 61 6e 64 20 28 77 32 29 2e 77 6f 72 64 20 65 6c 73 65 0a 20 20 20 20 20 ┆ft 16 and (w2).word else ┆
0x3687e…36884 (0x57c,0x6d2)
0x36884…368a0 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 31 36 ┆ if w0:=(w2).word lshift -16┆
0x368a0…368c0 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 6f 72 ┆ = 10 then (w2).wor┆
0x368c0…368e0 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 6d 65 ┆d:=w0:=0 else ; name┆
0x368e0…368fc 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 ┆:=buf(w3:=1); tail(w1:┆
0x368fc…36902 (0x57c,0x6d3)
0x36902…36920 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 6f 6f ┆=1); monitor(42); ! loo┆
0x36920…36940 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 68 65 ┆kup entry ! if w0 <> 3 the┆
0x36940…36960 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 3b 0a ┆n begin w2:=0; goto error; end; ┆
0x36960…3697a 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; ┆
0x3697a…36980 (0x57c,0x6d4)
0x36980…369a0 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 20 20 ┆ (w2).name1:=f1:=(w3).name1; ┆
0x369a0…369c0 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 0a 20 ┆ (w2).name2:=f1:=(w3).name2; ┆
0x369c0…369e0 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 33 29 ┆ w3:=jobproc; w0:=(w3)┆
0x369e0…36a00 2e 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 20 20 77 31 3a 3d 77 6f 72 64 00 00 00 00 00 00 00 00 ┆.topcore; w1:=word ┆
0x36a00…36a06 (437,) (0x57c,0x6d5)
0x36a06…36a20 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 ┆(lastinternal)-2; wh┆
0x36a20…36a40 69 6c 65 20 77 32 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 ┆ile w2:=(w1).word <> w3 do ┆
0x36a40…36a60 20 62 65 67 69 6e 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 ┆ begin if w3 = (w2).pare┆
0x36a60…36a7e 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 28 77 32 29 2e 66 ┆nt then if w0 > (w2).f┆
0x36a7e…36a84 (0x57c,0x6d6)
0x36a84…36aa0 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 73 74 ┆irstcore then w0:=(w2).first┆
0x36aa0…36ac0 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 0a 20 ┆core; w1-2; end; ┆
0x36ac0…36ae0 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 77 33 ┆ (w3).topcore:=w0; (w3┆
0x36ae0…36afc 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 ┆).lowlimit:=w0:=(w3).firstco┆
0x36afc…36b02 (0x57c,0x6d7)
0x36b02…36b20 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 3a 3d ┆re; (w3).highlimit:=w0:=┆
0x36b20…36b40 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 66 69 ┆(w3).topcore; end; outfi┆
0x36b40…36b60 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 2b 31 ┆rst:=w1:=address(prog); w1+1┆
0x36b60…36b7a 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 ┆0; outlast:=w1; w1┆
0x36b7a…36b80 (0x57c,0x6d8)
0x36b80…36ba0 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 65 73 ┆:=address(outop); w3:=addres┆
0x36ba0…36bc0 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 20 21 ┆s(maincons); monitor(16); !┆
0x36bc0…36be0 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 29 3b ┆ send message ! tail(w1:=1);┆
0x36be0…36c00 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 00 00 00 00 00 00 00 00 ┆ monitor(18); ! wai ┆
0x36c00…36c06 (438,) (0x57c,0x6d9)
0x36c06…36c20 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 ┆t answer ! for w0:=1 s┆
0x36c20…36c40 74 65 70 20 31 20 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 ┆tep 1 upto 4 do (buf(w1:=w0)).wo┆
0x36c40…36c60 72 64 3a 3d 77 32 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 ┆rd:=w2:=0; infirst:=buf(w1:=┆
0x36c60…36c7e 31 29 3b 0a 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 ┆1); inlast:=buf(w1:=4); ┆
0x36c7e…36c84 (0x57c,0x6da)
0x36c84…36ca0 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 6f 6e ┆ w1:=address(inop); mon┆
0x36ca0…36cc0 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 ! ┆
0x36cc0…36ce0 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 20 21 ┆tail(w1:=1); monitor(18); !┆
0x36ce0…36cfc 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┆
0x36cfc…36d02 (0x57c,0x6db)
0x36d02…36d20 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 29 2e ┆)+(w1).bytes; if w0:=(w2).┆
0x36d20…36d40 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 20 20 ┆word extract 8 = 10 then ┆
0x36d40…36d60 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 20 61 ┆ (w2).word:=w0:=-1 lshift 8 a┆
0x36d60…36d7a 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 ┆nd (w2).word else if w┆
0x36d7a…36d80 (0x57c,0x6dc)
0x36d80…36da0 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 20 38 ┆0:=(w2).word lshift -8 extract 8┆
0x36da0…36dc0 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 64 3a ┆ = 10 then (w2).word:┆
0x36dc0…36de0 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 64 20 ┆=w0:=-1 lshift 16 and (w2).word ┆
0x36de0…36e00 65 6c 73 65 0a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 00 00 00 00 00 00 00 00 ┆else if w0:=(w2).wor ┆
0x36e00…36e06 (439,) (0x57c,0x6dd)
0x36e06…36e20 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 ┆d lshift -16 = 10 then ┆
0x36e20…36e40 20 20 20 20 20 20 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 ┆ (w2).word:=w0:=0 else ┆
0x36e40…36e60 20 20 3b 0a 20 20 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 ┆ ; name:=buf(w3:=1); en┆
0x36e60…36e7e 74 72 79 74 61 69 6c 3a 3d 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 ┆trytail:=tail(w1:=1); moni┆
0x36e7e…36e84 (0x57c,0x6de)
0x36e84…36ea0 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 6e 74 ┆tor(42); comment lookup ent┆
0x36ea0…36ec0 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 65 67 ┆ry; if w0 <> 0 then beg┆
0x36ec0…36ee0 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 20 6d ┆in w2:=1; goto error; end; m┆
0x36ee0…36efc 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 ┆onitor(52); comment create ┆
0x36efc…36f02 (0x57c,0x6df)
0x36f02…36f20 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 29 2e ┆area process; if w0:=(w1).┆
0x36f20…36f40 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 32 3a ┆filesize < 0 then begin w2:┆
0x36f40…36f60 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 3a 3d ┆=2; goto error; end; if w0:=┆
0x36f60…36f7a 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 ┆
0x36f7a…36f80 (0x57c,0x6e0)
0x36f80…36fa0 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 64 3b ┆ begin w2:=3; goto error; end;┆
0x36fa0…36fc0 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 20 28 ┆ if w0:=(w1).entrypoint >= (┆
0x36fc0…36fe0 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 20 77 ┆w1).loadlength then begin w┆
0x36fe0…37000 32 3a 3d 34 3b 20 67 6f 74 6f 20 65 72 72 6f 72 3b 20 65 6e 64 3b 0a 20 00 00 00 00 00 00 00 00 ┆2:=4; goto error; end; ┆
0x37000…37006 (440,) (0x57c,0x6e1)
0x37006…37020 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 ┆ w3:=word(currproc); ┆
0x37020…37040 20 63 6f 72 65 66 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 ┆ corefst:=w1:=(w3).firstcore; ┆
0x37040…37060 20 20 63 6f 72 65 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 ┆ coretop:=w1:=(w3).topcore; ┆
0x37060…3707e 20 77 31 2d 21 6c 65 6e 67 74 68 28 6c 6f 61 64 69 6e 66 29 3b 0a 20 20 20 20 6c 6f 61 64 ┆ w1-!length(loadinf); load┆
0x3707e…37084 (0x57c,0x6e2)
0x37084…370a0 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 6e 64 ┆inf:=w1; w2:=address(end┆
0x370a0…370c0 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 3b 0a ┆load)-(w3:=address(startload)); ┆
0x370c0…370e0 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 30 3a ┆ loadcodesize:=w2; if w0:┆
0x370e0…370fc 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 ┆=corefst+entrytail.loadlengt┆
0x370fc…37102 (0x57c,0x6e3)
0x37102…37120 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 65 6e ┆h+loadcodesize >= loadinf then┆
0x37120…37140 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 20 65 ┆ begin w2:=5; goto error; e┆
0x37140…37160 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 3d 77 ┆nd; loadinf.absentry:=w┆
0x37160…3717a 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 ┆0:=corefst+entrytail.entry┆
0x3717a…37180 (0x57c,0x6e4)
0x37180…371a0 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 63 6f ┆point; loadinf.first:=w0:=co┆
0x371a0…371c0 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 6e 67 ┆refst; w0+entrytail.loadleng┆
0x371c0…371e0 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 20 20 ┆th-2; loadinf.last:=w0; ┆
0x371e0…37200 6c 6f 61 64 69 6e 66 2e 73 65 67 6d 65 6e 74 3a 3d 77 30 3a 3d 30 3b 0a 00 00 00 00 00 00 00 00 ┆loadinf.segment:=w0:=0; ┆
0x37200…37206 (441,) (0x57c,0x6e5)
0x37206…37220 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 ┆ loadinf.mode:=w0; ┆
0x37220…37240 6c 6f 61 64 69 6e 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 ┆loadinf.operation:=w0:=3; lo┆
0x37240…37260 61 64 69 6e 66 2e 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 ┆adinf.primin:=w0:=primary; l┆
0x37260…3727e 6f 61 64 69 6e 66 2e 70 72 69 6d 6f 75 74 3a 3d 77 30 3b 0a 20 20 20 20 6c 6f 61 64 69 6e ┆oadinf.primout:=w0; loadin┆
0x3727e…37284 (0x57c,0x6e6)
0x37284…372a0 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 20 20 ┆f.ownproc:=w0:=jobproc; ┆
0x372a0…372c0 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 3b 0a ┆loadinf.pname1:=f1:=name.name1; ┆
0x372c0…372e0 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 61 6d ┆ loadinf.pname2:=f1:=name.nam┆
0x372e0…372fc 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 ┆e2; loadinf.okresult:=w0┆
0x372fc…37302 (0x57c,0x6e7)
0x37302…37320 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 6f 61 ┆:=1; w2:=address(startloa┆
0x37320…37340 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 7a 65 ┆d); w3:=loadinf-loadcodesize┆
0x37340…37360 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 68 69 ┆; loadcodeentry:=w3; whi┆
0x37360…3737a 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 ┆le w3 < loadinf do beg┆
0x3737a…37380 (0x57c,0x6e8)
0x37380…373a0 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 6f 72 ┆in (w3).word:=w0:=(w2).wor┆
0x373a0…373c0 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 20 65 ┆d; w2+2; w3+2; e┆
0x373c0…373e0 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 61 64 ┆nd; w1:=loadinf; w3:=ad┆
0x373e0…37400 64 72 65 73 73 28 28 77 31 29 2e 70 6e 61 6d 65 31 29 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆dress((w1).pname1); ┆
0x37400…37406 (442,) (0x57c,0x6e9)
0x37406…37420 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 ┆call w2 loadcodeentry; ┆
0x37420…37440 20 77 32 3a 3d 61 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 ┆ w2:=address(t6)+6; (w2).wor┆
0x37440…37460 64 3a 3d 77 30 2b 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 ┆d:=w0+48; w2:=6; error: ┆
0x37460…3747e 6f 75 74 66 69 72 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 74 30 29 2b 28 77 32 20 ┆outfirst:=w1:=address(t0)+(w2 ┆
0x3747e…37484 (0x57c,0x6ea)
0x37484…374a0 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 6f 75 ┆lshift 5); w1+30; ou┆
0x374a0…374c0 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 6f 70 ┆tlast:=w1; w1:=address(outop┆
0x374c0…374e0 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 20 20 ┆); w3:=address(maincons); ┆
0x374e0…374fc 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┆
0x374fc…37502 (0x57c,0x6eb)
0x37502…37520 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 6e 69 ┆ge ! tail(w1:=1); moni┆
0x37520…37540 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 67 6f ┆tor(18); ! wait answer ! go┆
0x37540…37560 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 3d 77 ┆to readparam; end; end. n:=w┆
0x37560…3757a 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 ┆0:=3; loadinf.primin:=┆
0x3757a…37580 (0x57c,0x6ec)
0x37580…375a0 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 75 74 ┆w0:=primary; loadinf.primout┆
0x375a0…375c0 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 3d 6a ┆:=w0; loadinf.ownproc:=w0:=j┆
0x375c0…375e0 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 3a 3d ┆obproc; loadinf.pname1:=f1:=┆
0x375e0…37600 6e 61 6d 65 2e 6e 61 6d 65 31 3b 0a 20 20 20 20 6c 6f 61 64 69 6e 66 2e 00 00 00 00 00 00 00 00 ┆name.name1; loadinf. ┆
0x37600…37606 (443,) (0x57c,0x6ed)
0x37606…37620 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 ┆pname2:=f1:=name.name2; ┆
0x37620…37640 20 20 6c 6f 61 64 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 ┆ loadinf.okresult:=w0:=1; ┆
0x37640…37660 77 32 3a 3d 61 64 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 ┆w2:=address(startload); w3:=┆
0x37660…3767e 6c 6f 61 64 69 6e 66 2d 6c 6f 61 64 63 6f 64 65 73 69 7a 65 3b 0a 20 20 20 20 6c 6f 61 64 ┆loadinf-loadcodesize; load┆
0x3767e…37684 (0x57c,0x6ee)
0x37684…376a0 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 33 20 ┆codeentry:=w3; while w3 ┆
0x376a0…376c0 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 77 33 ┆< loadinf do begin (w3┆
0x376c0…376e0 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 32 2b ┆).word:=w0:=(w2).word; w2+┆
0x376e0…376fc 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; w3+2; end; ┆
0x376fc…37702 (0x57c,0x6ef)
0x37702…37720 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 73 28 ┆ w1:=loadinf; w3:=address(┆
0x37720…37740 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 63 6f ┆(w1).pname1); call w2 loadco┆
0x37740…37760 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 3b 0a ┆deentry; w2:=address(t6)+6; ┆
0x37760…3777a 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; ┆
0x3777a…37780 (0x57c,0x6f0)
0x37780…377a0 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 3a 3d ┆w2:=6; error: outfirst:=w1:=┆
0x377a0…377c0 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 20 77 ┆address(t0)+(w2 lshift 5); w┆
0x377c0…377e0 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 3d 61 ┆1+30; outlast:=w1; w1:=a┆
0x377e0…37800 64 64 72 65 73 73 28 6f 75 74 6f 70 29 3b 0a 20 20 20 20 77 33 3a 3d 61 00 00 00 00 00 00 00 00 ┆ddress(outop); w3:=a ┆
0x37800…37806 (444,) (0x57c,0x6f1)
0x37806…37820 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 ┆ddress(maincons); moni┆
0x37820…37840 74 6f 72 28 31 36 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 ┆tor(16); ! send messa (w2).wor┆
0x37840…37860 64 3a 3d 77 30 2b 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 ┆d:=w0+48; w2:=6; error: ┆
0x37860…3787e 6f 75 74 66 69 72 73 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 74 30 29 2b 28 77 32 20 ┆outfirst:=w1:=address(t0)+(w2 ┆
0x3787e…37884 (0x5e0,0x6f2)
0x37884…378a0 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 35 20 ┆process rc buf 25 ┆
0x378a0…378c0 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 20 38 ┆ area 25 stdbase 8┆
0x378c0…378e0 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 20 20 ┆10 810 userbase ┆
0x378e0…378fc 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 ┆
0x378fc…37902 (0x5e0,0x6f3)
0x37902…37920 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 65 20 ┆ 800 899 maxsize ┆
0x37920…37940 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 20 20 ┆ 60000 password ┆
0x37940…37960 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 20 20 ┆ "nn" bs disc ┆
0x37960…3797a 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┆
0x3797a…37980 (0x5e0,0x6f4)
0x37980…379a0 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 68 6f ┆y2 5 300 key3 5 300 process ho┆
0x379a0…379c0 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 74 64 ┆tnews buf 4 area 4 std┆
0x379c0…379e0 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 20 20 ┆base 899 899 ┆
0x379e0…37a00 75 73 65 72 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 38 39 39 20 20 00 00 00 00 00 00 00 00 ┆userbase 899 ┆
0x37a00…37a06 (445,) (0x5e0,0x6f5)
0x37a06…37a20 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 ┆ 899 maxbase ┆
0x37a20…37a40 20 20 20 20 38 39 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 ┆ 899 899 maxsize ┆
0x37a40…37a60 20 20 20 20 20 20 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 ┆ 12800 fp "(o pp c=copy ┆
0x37a60…37a7e 74 6e 65 77 73 0a 66 69 6e 69 73 0a 29 0a 22 0a 20 20 62 73 20 64 69 73 63 20 20 20 20 20 ┆tnews finis ) " bs disc ┆
0x37a7e…37a84 (0x5e0,0x6f6)
0x37a84…37aa0 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 20 ┆key0 4 50 key1 0 0 key2 0 0 ┆
0x37aa0…37ac0 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 62 61 ┆key3 0 0 process display stdba┆
0x37ac0…37ae0 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 75 73 ┆se 898 898 us┆
0x37ae0…37afc 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 ┆erbase 898 8┆
0x37afc…37b02 (0x5e0,0x6f7)
0x37b02…37b20 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 20 20 ┆98 maxbase 898 ┆
0x37b20…37b40 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 32 38 ┆ 898 maxsize 128┆
0x37b40…37b60 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 20 20 ┆00 fp "bdisplay finis " ┆
0x37b60…37b7a 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 ┆
0x37b7a…37b80 (0x5e0,0x6f8)
0x37b80…37ba0 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 63 73 ┆0 key2 0 0 key3 0 0 process rcs┆
0x37ba0…37bc0 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 74 64 ┆ave buf 4 area 7 std┆
0x37bc0…37be0 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 20 20 ┆base 897 897 ┆
0x37be0…37c00 75 73 65 72 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 38 39 30 20 20 00 00 00 00 00 00 00 00 ┆userbase 890 ┆
0x37c00…37c06 (446,) (0x5e0,0x6f9)
0x37c06…37c20 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 ┆ 899 maxbase ┆
0x37c20…37c40 20 20 20 20 38 30 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 ┆ 800 899 bs disc ┆
0x37c40…37c60 20 20 20 20 20 20 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 ┆ key0 10 150 key1 0 0 key2┆
0x37c60…37c7e 20 30 20 30 20 6b 65 79 33 20 30 20 30 0a 0a 70 72 6f 63 65 73 73 20 74 65 61 6d 20 20 20 ┆ 0 0 key3 0 0 process team ┆
0x37c7e…37c84 (0x5e0,0x6fa)
0x37c84…37ca0 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 61 73 ┆ buf 4 area 7 stdbas┆
0x37ca0…37cc0 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 73 65 ┆e 820 820 use┆
0x37cc0…37ce0 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 20 20 ┆rbase 820 829 ┆
0x37ce0…37cfc 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 ┆
0x37cfc…37d02 (0x5e0,0x6fb)
0x37d02…37d20 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 30 30 ┆ 899 minsize 3000┆
0x37d20…37d40 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 20 20 ┆0 password "hobo" ┆
0x37d40…37d60 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 32 30 ┆bs disc key0 6 300 key1 1 20┆
0x37d60…37d7a 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 ┆ key2 1 20 key3 1 20 te┆
0x37d7a…37d80 (0x5e0,0x6fc)
0x37d80…37da0 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 22 0a ┆rm usera " 1," "a1" ┆
0x37da0…37dc0 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 20 22 ┆ term userb " 2," "┆
0x37dc0…37de0 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 20 20 ┆b2" term userc " 3," ┆
0x37de0…37e00 20 20 20 22 63 33 22 0a 20 20 74 65 72 6d 20 6e 6e 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ "c3" term nn ┆
0x37e00…37e06 (447,) (0x5e0,0x6fd)
0x37e06…37e20 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 ┆ " 9," "" end se┆
0x37e20…37e40 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 6d 61 78 62 61 ┆ 898 898 maxba┆
0x37e40…37e60 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 6d 61 ┆se 898 898 ma┆
0x37e60…37e7e 78 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 31 32 38 30 30 0a 20 20 66 70 20 22 62 ┆xsize 12800 fp "b┆
0x37e7e…37e84 (0x5e0,0x6fe)
0x37e84…37ea0 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 69 73 ┆display finis " bs dis┆
0x37ea0…37ec0 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 20 6b ┆c key0 4 50 key1 0 0 key2 0 0 k┆
0x37ec0…37ee0 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 62 75 ┆ey3 0 0 process rcsave bu┆
0x37ee0…37efc 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 ┆f 4 se 898 8┆
0x37efc…37f02 (0x644,0x6ff)
0x37f02…37f20 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 2a 2a ┆; *** tsostest ***┆
0x37f20…37f40 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 72 20 ┆ ; ; ; a simple testprogram for ┆
0x37f40…37f60 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 20 70 ┆testing the sos system ; ; the p┆
0x37f60…37f7a 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 ┆rogram acts like this ; ; ┆
0x37f7a…37f80 (0x644,0x700)
0x37f80…37fa0 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 6c 6f ┆ create terminal pool ; lo┆
0x37fa0…37fc0 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 65 20 ┆op: ; read an input line ┆
0x37fc0…37fe0 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 20 20 ┆from a connected terminal ; ┆
0x37fe0…38000 20 20 20 20 20 20 20 20 28 74 68 69 73 20 69 6e 70 75 74 20 6c 69 6e 65 00 00 00 00 00 00 00 00 ┆ (this input line ┆
0x38000…38006 (448,) (0x644,0x701)
0x38006…38020 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 ┆ starts with a terminal nu┆
0x38020…38040 6d 62 65 72 29 0a 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 ┆mber) ; increase linecoun┆
0x38040…38060 74 28 74 65 72 6d 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 ┆t(terminal number) ; writ┆
0x38060…3807e 65 20 74 65 72 6d 69 6e 61 6c 20 6e 75 6d 62 65 72 0a 3b 20 20 20 20 20 20 20 20 77 72 69 ┆e terminal number ; wri┆
0x3807e…38084 (0x644,0x702)
0x38084…380a0 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 65 20 ┆te linecount ; write ┆
0x380a0…380c0 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 20 67 ┆content of input line ; g┆
0x380c0…380e0 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 2c 70 ┆oto loop begin zone poolin,p┆
0x380e0…380fc 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 ┆oolout(26,1,stderror); rea┆
0x380fc…38102 (0x644,0x703)
0x38102…38120 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 74 65 ┆l time,r; integer i,activete┆
0x38120…38140 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 6e 61 ┆rminals,maxterminals,currtermina┆
0x38140…38160 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 74 65 ┆l; integer procedure create┆
0x38160…3817a 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 ┆pool(z); zone z; begin┆
0x3817a…38180 (0x644,0x704)
0x38180…381a0 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 72 61 ┆ integer i; integer arra┆
0x381a0…381c0 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 65 20 ┆y zia(1:20),sia(1:12); zone ┆
0x381c0…381e0 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 74 65 ┆ztem(1,1,stderror); open(zte┆
0x381e0…38200 6d 2c 30 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 20 20 67 65 74 7a 00 00 00 00 00 00 00 00 ┆m,0,<:tem:>,0); getz ┆
0x38200…38206 (449,) (0x644,0x705)
0x38206…38220 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 ┆one6(z,zia); getshare6┆
0x38220…38240 28 7a 74 65 6d 2c 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 ┆(ztem,sia,1); sia(4):=90 shi┆
0x38240…38260 66 74 20 31 32 3b 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 ┆ft 12; for i:=0 step 1 until┆
0x38260…3827e 20 33 20 64 6f 20 73 69 61 28 38 2b 69 29 3a 3d 7a 69 61 28 32 2b 69 29 3b 0a 20 20 20 20 ┆ 3 do sia(8+i):=zia(2+i); ┆
0x3827e…38284 (0x644,0x706)
0x38284…382a0 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 20 6d ┆setshare6(ztem,sia,1); m┆
0x382a0…382c0 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 61 74 ┆onitor(16,ztem,1,sia); creat┆
0x382c0…382e0 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 61 29 ┆epool:=if monitor(18,ztem,1,sia)┆
0x382e0…382fc 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 ┆ <> 1 then -1 else sia(1); ┆
0x382fc…38302 (0x644,0x707)
0x38302…38320 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 72 65 ┆ close(ztem,true); end cre┆
0x38320…38340 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 3b 0a ┆atepool; maxterminals:=10; ┆
0x38340…38360 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 0a 20 ┆ activeterminals:=0; begin ┆
0x38360…3837a 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┆
0x3837a…38380 (0x644,0x708)
0x38380…383a0 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 6e 74 ┆r array linebuf(1:200),linecount┆
0x383a0…383c0 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 20 73 ┆(1:maxterminals); for i:=1 s┆
0x383c0…383e0 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 6e 65 ┆tep 1 until maxterminals do line┆
0x383e0…38400 63 6f 75 6e 74 28 69 29 3a 3d 30 3b 0a 20 20 20 20 6f 70 65 6e 28 70 6f 00 00 00 00 00 00 00 00 ┆count(i):=0; open(po ┆
0x38400…38406 (450,) (0x644,0x709)
0x38406…38420 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 ┆olin,8,<:tem:>,0); ope┆
0x38420…38440 6e 28 70 6f 6f 6c 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 ┆n(poolout,1 shift 18 + 8,<:tem:>┆
0x38440…38460 2c 30 29 3b 0a 20 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 ┆,0); createpool(poolin); ┆
0x38460…3847e 3c 2a 20 20 20 72 65 61 64 20 61 20 6c 69 6e 65 20 61 6e 64 20 64 69 73 70 6c 61 79 20 69 ┆<* read a line and display i┆
0x3847e…38484 (0x644,0x70a)
0x38484…384a0 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 6c 20 ┆t on corresponding terminal ┆
0x384a0…384c0 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 72 72 ┆ *> loop: read(poolin,curr┆
0x384c0…384e0 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 3a 3d ┆terminal); i:=1; for i:=┆
0x384e0…384fc 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┆
0x384fc…38502 (0x644,0x70b)
0x38502…38520 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 73 65 ┆buf(i)) <> 8 do i:=i+1; se┆
0x38520…38540 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 65 63 ┆tposition(poolin,0,0); linec┆
0x38540…38560 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 63 75 ┆ount(currterminal):=linecount(cu┆
0x38560…3857a 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 ┆rrterminal)+1; if line┆
0x3857a…38580 (0x644,0x70c)
0x38580…385a0 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 6d 65 ┆buf(1) = 1 then begin comme┆
0x385a0…385c0 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 74 65 ┆nt login; linecount(currte┆
0x385c0…385e0 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 74 2c ┆rminal):=0; write(poolout,┆
0x385e0…38600 3c 3a 73 6f 73 20 74 65 73 74 70 72 6f 67 72 61 6d 20 72 65 61 64 79 3c 00 00 00 00 00 00 00 00 ┆<:sos testprogram ready< ┆
0x38600…38606 (451,) (0x644,0x70d)
0x38606…38620 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 ┆10>:>); activetermin┆
0x38620…38640 61 6c 73 3a 3d 61 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 ┆als:=activeterminals+1; sy┆
0x38640…38660 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 69 6d 65 28 34 ┆stime(1,0,time); systime(4┆
0x38660…3867e 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 3c 64 64 ┆,time,r); write(out,<<dd┆
0x3867e…38684 (0x644,0x70e)
0x38684…386a0 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 74 2c ┆ dd dd>,r); write(out,┆
0x386a0…386c0 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 6d 69 ┆<:: login: :>,<<dd>,currtermi┆
0x386c0…386e0 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 70 20 ┆nal,<:,:>); for j:=1 step ┆
0x386e0…386fc 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 ┆1 until i do outchar(out,lin┆
0x386fc…38702 (0x644,0x70f)
0x38702…38720 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 ┆ebuf(j)); setposition(ou┆
0x38720…38740 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 6e 65 ┆t,0,0); end else if line┆
0x38740…38760 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 6d 65 ┆buf(1) = 2 then begin comme┆
0x38760…3877a 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 ┆nt logout; activeter┆
0x3877a…38780 (0x644,0x710)
0x38780…387a0 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 20 20 ┆minals:=activeterminals-1; ┆
0x387a0…387c0 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 69 6d ┆ systime(1,0,time); systim┆
0x387c0…387e0 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 3c 64 ┆e(4,time,r); write(out,<<d┆
0x387e0…38800 64 20 64 64 20 64 64 3e 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 00 00 00 00 00 00 00 00 ┆d dd dd>,r); write ┆
0x38800…38806 (452,) (0x644,0x711)
0x38806…38820 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 ┆(out,<:: ┆
0x38820…38840 20 20 20 20 20 20 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 ┆ logout: :>, ┆
0x38840…38860 20 20 20 20 20 20 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 ┆ <<dd>,currterminal┆
0x38860…3887e 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 70 20 31 ┆,<:,:>); for j:=1 step 1┆
0x3887e…38884 (0x644,0x712)
0x38884…388a0 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 65 ┆ until i do outchar(out,line┆
0x388a0…388c0 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 2c 30 ┆buf(j)); setposition(out,0┆
0x388c0…388e0 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 20 20 ┆,0); end else begin ┆
0x388e0…388fc 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 = :>┆
0x388fc…38902 (0x644,0x713)
0x38902…38920 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 20 20 ┆,<<dd>,currterminal, ┆
0x38920…38940 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 65 63 ┆ <: line = :>,<<ddd>,linec┆
0x38940…38960 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 20 20 ┆ount(currterminal),<:: :>); ┆
0x38960…3897a 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 ┆
0x3897a…38980 (0x644,0x714)
0x38980…389a0 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 3b 0a ┆do outchar(poolout,linebuf(j)); ┆
0x389a0…389c0 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 75 74 ┆ end; setposition(poolout┆
0x389c0…389e0 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 3e 20 ┆,0,0); if activeterminals > ┆
0x389e0…38a00 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 65 6e 64 3b 00 00 00 00 00 00 00 00 ┆0 then goto loop; end; ┆
0x38a00…38a06 (453,) (0x644,0x715)
0x38a06…38a20 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 ┆ end j:=1 step 1 unti┆
0x38a20…38a40 6c 20 69 20 64 6f 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 ┆l i do outchar(out,linebuf(j)); ┆
0x38a40…38a60 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 20 ┆ setposition(out,0,0); ┆
0x38a60…38a7e 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 69 66 20 6c 69 6e 65 62 75 66 28 31 29 20 3d 20 32 ┆end else if linebuf(1) = 2┆
0x38a7e…38a84 (0x644,0x716)
0x38a84…38aa0 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 6f 67 ┆ then begin comment log┆
0x38aa0…38ac0 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 74 69 ┆out; activeterminals:=acti┆
0x38ac0…38ae0 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 2c 30 ┆veterminals-1; systime(1,0┆
0x38ae0…38afc 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 ┆,time); systime(4,time┆
0x38afc…38b02 (0x644,0x717)
0x38b02…38b20 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 20 64 ┆,r); write(out,<<dd dd d┆
0x38b20…38b40 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 20 20 ┆d>,r); write(out,<:: ┆
0x38b40…38b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 ┆ log┆
0x38b60…38b7a 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 ┆out: :>, ┆
0x38b7a…38b80 (0x644,0x718)
0x38b80…38ba0 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 20 20 ┆<<dd>,currterminal,<:,:>); ┆
0x38ba0…38bc0 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 74 63 ┆ for j:=1 step 1 until i do outc┆
0x38bc0…38be0 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 3c 64 ┆har(out,,r); write(out,<<d┆
0x38be0…38c00 64 20 64 64 20 64 64 3e 2c 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 00 00 00 00 00 00 00 00 ┆d dd dd>,r); write ┆
0x38c00…38c06 (454,) (0x6a8,0x719)
0x38c06…38c20 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 ┆bdisplay=algol connect.no ┆
0x38c20…38c40 6c 69 73 74 2e 79 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 ┆list.yes begin integer i,paren┆
0x38c40…38c60 74 2c 6c 67 64 2c 70 72 6f 63 5f 73 74 61 74 65 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 ┆t,lgd,proc_state; integer arra┆
0x38c60…38c7e 79 20 69 61 20 28 31 3a 32 29 2c 70 72 6f 63 65 73 73 5f 69 61 28 31 3a 35 31 29 3b 0a 20 ┆y ia (1:2),process_ia(1:51); ┆
0x38c7e…38c84 (0x6a8,0x71a)
0x38c84…38ca0 20 62 6f 6f 6c 65 61 6e 20 66 7c 72 73 74 65 3b 0a 20 20 61 72 72 61 79 20 66 70 6e ┆ boolean første; array fpn┆
0x38ca0…38cc0 61 6d 65 2c 20 6e 61 6d 65 28 31 3a 32 29 3b 0a 20 20 61 72 72 61 79 20 66 69 65 6c 64 20 61 66 ┆ame, name(1:2); array field af┆
0x38cc0…38ce0 3b 0a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6c 61 66 3b 0a 20 20 72 65 61 6c ┆; long array field laf; real┆
0x38ce0…38cfc 20 72 75 6e 74 69 6d 65 2c 20 73 74 61 72 74 5f 74 69 6d 65 2c 20 77 61 69 74 5f 74 ┆ runtime, start_time, wait_t┆
0x38cfc…38d02 (0x6a8,0x71b)
0x38d02…38d20 69 6d 65 2c 20 74 69 6d 65 2c 6d 6f 6e 69 74 6f 72 5f 76 65 72 73 69 6f 6e 3b 0a 20 20 20 ┆ime, time,monitor_version; ┆
0x38d20…38d40 0a 20 20 70 61 72 65 6e 74 3a 3d 61 66 3a 3d 6c 61 66 3a 3d 30 3b 0a 20 20 0a 20 20 73 79 73 74 ┆ parent:=af:=laf:=0; syst┆
0x38d40…38d60 65 6d 28 35 29 6d 6f 76 65 5f 63 6f 72 65 20 66 72 61 20 6d 6f 6e 69 74 6f 72 20 76 65 72 73 69 ┆em(5)move_core fra monitor versi┆
0x38d60…38d7a 6f 6e 3a 28 36 34 2c 69 61 29 3b 0a 20 20 6d 6f 6e 69 74 6f 72 5f 76 65 72 73 ┆on:(64,ia); monitor_vers┆
0x38d7a…38d80 (0x6a8,0x71c)
0x38d80…38da0 69 6f 6e 3a 3d 69 61 28 31 29 20 73 68 69 66 74 20 28 2d 31 32 29 20 2b 20 69 61 28 31 29 20 65 ┆ion:=ia(1) shift (-12) + ia(1) e┆
0x38da0…38dc0 78 74 72 61 63 74 20 31 32 20 2a 30 2e 30 31 3b 0a 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 ┆xtract 12 *0.01; system(5)move┆
0x38dc0…38de0 5f 63 6f 72 65 3a 28 37 38 2c 69 61 29 3b 0a 20 20 6c 67 64 3a 3d 28 69 61 28 32 29 2d 69 61 28 ┆_core:(78,ia); lgd:=(ia(2)-ia(┆
0x38de0…38e00 31 29 29 2f 2f 32 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 00 00 00 00 00 00 00 00 ┆1))//2; begin inte ┆
0x38e00…38e06 (455,) (0x6a8,0x71d)
0x38e06…38e20 67 65 72 20 61 72 72 61 79 20 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 20 28 ┆ger array int_name_table (┆
0x38e20…38e40 31 3a 6c 67 64 29 3b 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 68 65 61 64 3b 0a 20 20 20 20 ┆1:lgd); procedure head; ┆
0x38e40…38e60 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 64 69 73 70 6c 61 79 20 6f 66 20 3a 3e 2c 66 70 ┆write(out,<:<10>display of :>,fp┆
0x38e60…38e7e 6e 61 6d 65 2e 6c 61 66 2c 0a 20 20 20 20 20 20 20 20 20 20 3c 3a 20 64 2e 3a 3e 2c 3c 3c ┆name.laf, <: d.:>,<<┆
0x38e7e…38e84 (0x6a8,0x71e)
0x38e84…38ea0 64 64 64 64 64 64 3e 2c 73 79 73 74 69 6d 65 28 35 2c 30 2c 74 69 6d 65 29 2c 0a 20 ┆dddddd>,systime(5,0,time), ┆
0x38ea0…38ec0 20 20 20 20 20 20 20 20 20 3c 3a 2e 3a 3e 2c 3c 3c 7a 64 64 64 3e 2c 74 69 6d 65 2f 31 30 30 2d ┆ <:.:>,<<zddd>,time/100-┆
0x38ec0…38ee0 30 2e 33 2c 0a 20 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 6d 6f 6e 69 74 6f 72 20 76 65 72 ┆0.3, <:<10>monitor ver┆
0x38ee0…38efc 73 69 6f 6e 3a 3a 3e 2c 3c 3c 20 64 64 2e 64 64 3e 2c 6d 6f 6e 69 74 6f 72 5f 76 65 ┆sion::>,<< dd.dd>,monitor_ve┆
0x38efc…38f02 (0x6a8,0x71f)
0x38f02…38f20 72 73 69 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c ┆rsion, false add 32,┆
0x38f20…38f40 33 31 2c 3c 3a 63 6c 61 69 6d 3a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 6e ┆31,<:claim::>, <:<10>n┆
0x38f40…38f60 61 6d 65 20 20 20 20 20 20 20 20 20 20 72 65 6c 20 73 74 61 74 65 20 20 20 20 20 73 74 61 72 74 ┆ame rel state start┆
0x38f60…38f7a 20 20 20 77 61 69 74 20 20 20 20 20 63 70 75 20 20 20 20 73 69 7a 65 20 20 62 ┆ wait cpu size b┆
0x38f7a…38f80 (0x6a8,0x720)
0x38f80…38fa0 75 66 20 61 72 65 61 20 69 6e 74 20 66 75 6e 63 2e 3a 3e 29 3b 0a 20 20 20 20 20 20 70 72 6f 63 ┆uf area int func.:>); proc┆
0x38fa0…38fc0 65 64 75 72 65 20 73 6b 72 69 76 5f 70 72 6f 63 65 73 73 28 70 61 72 65 6e 74 2c 6e 69 76 65 61 ┆edure skriv_process(parent,nivea┆
0x38fc0…38fe0 75 29 3b 0a 20 20 20 20 20 20 76 61 6c 75 65 20 70 61 72 65 6e 74 2c 6e 69 76 65 61 75 3b 0a 20 ┆u); value parent,niveau; ┆
0x38fe0…39000 20 20 20 20 20 69 6e 74 65 67 65 72 20 70 61 72 65 6e 74 2c 6e 69 76 65 00 00 00 00 00 00 00 00 ┆ integer parent,nive ┆
0x39000…39006 (456,) (0x6a8,0x721)
0x39006…39020 61 75 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e ┆au; begin in┆
0x39020…39040 74 65 67 65 72 20 69 3b 0a 20 20 20 20 20 20 20 20 20 70 72 6f 63 5f 73 74 61 74 65 3a 3d 70 72 ┆teger i; proc_state:=pr┆
0x39040…39060 6f 63 65 73 73 5f 69 61 28 35 29 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 ┆ocess_ia(5) extract 8; ┆
0x39060…3907e 20 72 75 6e 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 ┆ runtime:=process_ia.laf(14)/1┆
0x3907e…39084 (0x6a8,0x722)
0x39084…390a0 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 3a 3d 70 72 6f 63 65 73 ┆0000; time:=proces┆
0x390a0…390c0 73 5f 69 61 2e 6c 61 66 28 31 35 29 2f 31 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 79 ┆s_ia.laf(15)/10000; sy┆
0x390c0…390e0 73 74 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 20 20 20 20 ┆stime(4,time,start_time); ┆
0x390e0…390fc 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)┆
0x390fc…39102 (0x6a8,0x723)
0x39102…39120 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 ┆/10000; systime(4,ti┆
0x39120…39140 6d 65 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 ┆me,wait_time); write(o┆
0x39140…39160 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 69 76 65 61 ┆ut,<:<10>:>,false add 32,2*nivea┆
0x39160…3917a 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 ┆u); outtext(out,┆
0x3917a…39180 (0x6a8,0x724)
0x39180…391a0 31 36 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 ┆16 - 2*niveau,process_ia.af,1); ┆
0x391a0…391c0 20 20 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 5f 69 ┆ write(out,if process_i┆
0x391c0…391e0 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 5f 5f 3a 3e ┆a(49)<>0 then <:*_:> else <:__:>┆
0x391e0…39200 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 20 28 6f 75 74 2c 00 00 00 00 00 00 00 00 ┆); write (out, ┆
0x39200…39206 (457,) (0x6a8,0x725)
0x39206…39220 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f ┆ if proc_┆
0x39220…39240 73 74 61 74 65 20 3d 20 20 31 31 20 74 68 65 6e 20 3c 3a 72 75 6e 6e 69 6e 67 20 20 3a 3e 20 65 ┆state = 11 then <:running :> e┆
0x39240…39260 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 74 61 ┆lse if proc_sta┆
0x39260…3927e 74 65 20 3d 20 32 30 30 20 74 68 65 6e 20 3c 3a 77 2e 20 63 70 75 20 20 20 3a 3e 20 65 6c ┆te = 200 then <:w. cpu :> el┆
0x3927e…39284 (0x6a8,0x726)
0x39284…392a0 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f ┆se if proc_┆
0x392a0…392c0 73 74 61 74 65 20 3d 20 20 20 38 20 74 68 65 6e 20 3c 3a 65 72 72 6f 72 20 20 20 20 3a 3e 20 65 ┆state = 8 then <:error :> e┆
0x392c0…392e0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 74 61 ┆lse if proc_sta┆
0x392e0…392fc 74 65 20 3d 20 31 37 36 20 74 68 65 6e 20 3c 3a 77 2e 20 73 74 6f 70 20 20 3a 3e 20 ┆te = 176 then <:w. stop :> ┆
0x392fc…39302 (0x6a8,0x727)
0x39302…39320 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f ┆else if proc_┆
0x39320…39340 73 74 61 74 65 20 3d 20 31 36 30 20 74 68 65 6e 20 3c 3a 77 2e 20 73 74 6f 70 20 20 3a 3e 20 65 ┆state = 160 then <:w. stop :> e┆
0x39340…39360 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 74 61 ┆lse if proc_sta┆
0x39360…3937a 74 65 20 3d 20 31 38 34 20 74 68 65 6e 20 3c 3a 77 2e 20 73 74 61 72 74 20 3a ┆te = 184 then <:w. start :┆
0x3937a…39380 (0x6a8,0x728)
0x39380…393a0 3e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f ┆> else if proc_┆
0x393a0…393c0 73 74 61 74 65 20 3d 20 31 36 38 20 74 68 65 6e 20 3c 3a 77 2e 20 73 74 61 72 74 20 3a 3e 20 65 ┆state = 168 then <:w. start :> e┆
0x393c0…393e0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 5f 73 74 61 ┆lse if proc_sta┆
0x393e0…39400 74 65 20 3d 20 32 30 34 20 74 68 65 6e 20 3c 3a 77 2e 20 70 20 66 75 6e 00 00 00 00 00 00 00 00 ┆te = 204 then <:w. p fun ┆
0x39400…39406 (458,) (0x6a8,0x729)
0x39406…39420 63 3a 3e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆c:> else ┆
0x39420…39440 69 66 20 70 72 6f 63 5f 73 74 61 74 65 20 3d 20 31 34 31 20 74 68 65 6e 20 3c 3a 77 2e 6d 65 73 ┆if proc_state = 141 then <:w.mes┆
0x39440…39460 73 2e 20 20 3a 3e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆s. :> else if ┆
0x39460…3947e 70 72 6f 63 5f 73 74 61 74 65 20 3d 20 31 34 32 20 74 68 65 6e 20 3c 3a 77 2e 20 61 6e 73 ┆proc_state = 142 then <:w. ans┆
0x3947e…39484 (0x6a8,0x72a)
0x39484…394a0 77 65 72 3a 3e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆wer:> else ┆
0x394a0…394c0 69 66 20 70 72 6f 63 5f 73 74 61 74 65 20 3d 20 31 34 33 20 74 68 65 6e 20 3c 3a 77 2e 20 65 76 ┆if proc_state = 143 then <:w. ev┆
0x394c0…394e0 65 6e 74 20 3a 3e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ent :> else ┆
0x394e0…394fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 3f 20 20 20 ┆ <:? ┆
0x394fc…39502 (0x6a8,0x72b)
0x39502…39520 20 20 20 20 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 62 64 ┆ :>, << bd┆
0x39520…39540 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 30 33 2c 0a 20 20 20 ┆.dd>,start_time/10000-0.003, ┆
0x39540…39560 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 61 69 74 5f 74 69 6d ┆ << bd.dd>,wait_tim┆
0x39560…3957a 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 20 ┆e/10000-0.003, ┆
0x3957a…39580 (0x6a8,0x72c)
0x39580…395a0 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 20 20 20 ┆ <<dddddd.d>,runtime, ┆
0x395a0…395c0 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 63 65 73 73 5f 69 61 ┆ << dddddd>,process_ia┆
0x395c0…395e0 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 20 20 20 20 20 20 20 ┆(12)-process_ia(11), ┆
0x395e0…39600 20 20 20 20 20 3c 3c 20 20 64 64 64 3e 2c 70 72 6f 63 65 73 73 5f 69 61 00 00 00 00 00 00 00 00 ┆ << ddd>,process_ia ┆
0x39600…39606 (459,) (0x6a8,0x72d)
0x39606…39620 28 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 ┆(13) shift (-12), ┆
0x39620…39640 20 20 20 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 ┆ process_ia(13) extract 1┆
0x39640…39660 32 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 ┆2, << dd >,proce┆
0x39660…3967e 73 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 ┆ss_ia(14) shift (-12)); ┆
0x3967e…39684 (0x6a8,0x72e)
0x39684…396a0 20 20 20 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 ┆ if processia(14) extrac┆
0x396a0…396c0 74 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 ┆t 12=4095 then write(out,<: all:┆
0x396c0…396e0 3e 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 ┆>) else for i :=0 ste┆
0x396e0…396fc 70 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 ┆p 1 until 11 do if processia┆
0x396fc…39702 (0x6a8,0x72f)
0x39702…39720 28 31 34 29 20 73 68 69 66 74 20 28 2d 69 29 20 65 78 74 72 61 63 74 20 31 3d 31 20 74 68 ┆(14) shift (-i) extract 1=1 th┆
0x39720…39740 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 20 20 20 20 20 66 6f ┆en write(out,11-i); fo┆
0x39740…39760 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 6f 0a 20 20 20 20 20 ┆r i:=1 step 1 until lgd do ┆
0x39760…3977a 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 73 ┆ begin sys┆
0x3977a…39780 (0x6a8,0x730)
0x39780…397a0 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 6c 65 28 ┆tem(5)move_core:(int_name_table(┆
0x397a0…397c0 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 20 20 20 20 20 69 66 ┆i)+2,process_ia); if┆
0x397c0…397e0 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 65 6e 20 73 6b 72 69 ┆ process_ia(25)=parent then skri┆
0x397e0…39800 76 5f 70 72 6f 63 65 73 73 28 69 6e 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 00 00 00 00 00 00 00 00 ┆v_process(int_name_table ┆
0x39800…39806 (460,) (0x6a8,0x731)
0x39806…39820 28 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 ┆(i),niveau+1); e┆
0x39820…39840 6e 64 3b 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 ┆nd; end ; system(5)move_┆
0x39840…39860 63 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 ┆core:(ia(1),int_name_table); ┆
0x39860…3987e 20 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 ┆ if system(4,1,fpname)<>0 then┆
0x3987e…39884 (0x6a8,0x732)
0x39884…398a0 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 6c ┆ for i:=1 step 1 until l┆
0x398a0…398c0 67 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 ┆gd do begin system(5)m┆
0x398c0…398e0 6f 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 ┆ove_core:(int_name_table(i)+2,na┆
0x398e0…398fc 6d 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 ┆me); if name(1)=fpname┆
0x398fc…39902 (0x6a8,0x733)
0x39902…39920 28 31 29 20 61 6e 64 20 6e 61 6d 65 28 32 29 3d 66 70 6e 61 6d 65 28 32 29 20 74 68 65 6e ┆(1) and name(2)=fpname(2) then┆
0x39920…39940 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 5f 74 61 62 6c 65 28 ┆ parent:=int_name_table(┆
0x39940…39960 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 74 3d 30 20 74 68 65 ┆i); end; if parent=0 the┆
0x39960…3997a 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 6d ┆n parent:=system(8,i,fpnam┆
0x3997a…39980 (0x6a8,0x734)
0x39980…399a0 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 76 65 5f ┆e); head; system(5)move_┆
0x399a0…399c0 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 29 3b 0a 20 20 20 20 ┆core:(parent+2,process_ia); ┆
0x399c0…399e0 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 20 20 20 20 77 72 69 ┆skriv_process(parent,0); wri┆
0x399e0…39a00 74 65 28 6f 75 74 2c 66 61 6c 73 65 20 61 64 64 20 31 30 2c 32 29 3b 0a 00 00 00 00 00 00 00 00 ┆te(out,false add 10,2); ┆
0x39a00…39a06 (461,) (0x6a8,0x735)
0x39a06…39a20 20 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 ┆ end parent<>0; trapmod┆
0x39a20…39a40 65 3a 3d 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 ┆e:=1024; end ; bdisplay s bdispl┆
0x39a40…39a60 61 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 ┆ay driverproc bdisplay bdisplay ┆
0x39a60…39a7e 61 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 ┆all bdisplay tem scope project┆
0x39a7e…39a84 (0x6a8,0x736)
0x39a84…39aa0 20 62 64 69 73 70 6c 61 79 0a 66 69 6e 69 73 0a 19 00 20 20 20 20 20 20 20 20 20 62 ┆ bdisplay finis b┆
0x39aa0…39ac0 65 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 ┆egin system(5)move_c┆
0x39ac0…39ae0 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 70 72 6f 63 65 73 73 ┆ore:(int_name_table(i)+2,process┆
0x39ae0…39afc 5f 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 ┆_ia); if process┆
0x39afc…39b02 (0x6a8,0x737)
0x39b02…39b20 5f 69 61 28 32 35 29 3d 70 61 72 65 6e 74 20 74 68 65 6e 20 73 6b 72 69 76 5f 70 72 6f 63 ┆_ia(25)=parent then skriv_proc┆
0x39b20…39b40 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 65 61 75 2b 31 29 3b ┆ess(int_name_table(i),niveau+1);┆
0x39b40…39b60 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 0a 20 20 20 20 73 79 ┆ end; end ; sy┆
0x39b60…39b7a 73 74 65 6d 28 35 29 6d 6f 76 65 5f 63 6f 72 65 3a 28 69 61 28 31 29 2c 69 6e ┆stem(5)move_core:(ia(1),in┆
0x39b7a…39b80 (0x6a8,0x738)
0x39b80…39ba0 74 5f 6e 61 6d 65 5f 74 61 62 6c 65 29 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 31 ┆t_name_table); if system(4,1┆
0x39ba0…39bc0 2c 66 70 6e 61 6d 65 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 ┆,fpname)<>0 then for i:=1 st┆
0x39bc0…39be0 65 70 20 31 20 75 6e 74 69 6c 20 6c 67 64 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ep 1 until lgd do begin ┆
0x39be0…39c00 20 20 73 79 73 74 65 6d 28 35 29 6d 6f 76 65 5f 63 6f 72 65 3a 28 69 6e 00 00 00 00 00 00 00 00 ┆ system(5)move_core:(in ┆