|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 64512 (0xfc00)
Types: Rc489kSubCat
Names: »cproc«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »cproc«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »cproc«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x001b53, f01=0x0007e4, f02=0x0007ed, filename=»tfpread «, entry_tail=0-4-0-20-1982-04-02T10:45-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x015003, f01=0x0007e4, f02=0x0007ed, filename=»tgetfpnames «, entry_tail=0-4-0-1-1980-05-28T16:06-disc1-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x016c2a, f01=0x0007e4, f02=0x0007ed, filename=»tdisccopy «, entry_tail=0-4-0-3-1980-10-27T15:22-disc1-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x019dba, f01=0x0007e4, f02=0x0007ed, filename=»tprintfile «, entry_tail=0-4-0-3-1980-10-24T13:04-disc1-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x01c8ea, f01=0x0007e4, f02=0x0007ed, filename=»toutshortcl «, entry_tail=0-4-0-1-1980-10-24T10:41-disc1-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x01d27a, f01=0x0007e4, f02=0x0007ed, filename=»tcarea «, entry_tail=0-4-0-2-1980-10-21T14:23-disc1-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x01fea2, f01=0x0007e4, f02=0x0007ed, filename=»twritezone «, entry_tail=0-4-0-3-1980-05-07T14:39-disc1-0x0-0x0-0x0-0x0}
0x0165…0198 Rc489kSubCatEnt {f00=0x0220db, f01=0x0007e4, f02=0x0007ed, filename=»tcutarea «, entry_tail=0-4-0-1-1980-02-08T10:37-disc1-0x0-0x0-0x0-0x0}
0x0198…01cb Rc489kSubCatEnt {f00=0x023b52, f01=0x0007e4, f02=0x0007ed, filename=»tcopyf «, entry_tail=0-4-0-2-1980-05-07T14:39-disc1-0x0-0x0-0x0-0x0}
0x01cb…01fe Rc489kSubCatEnt {f00=0x02527a, f01=0x0007e4, f02=0x0007ed, filename=»tbstotape «, entry_tail=0-4-0-2-1980-05-07T14:40-disc1-0xb027-0x0-0x0-0x0}
0x01fe…0231 Rc489kSubCatEnt {f00=0x02795a, f01=0x0007e4, f02=0x0007ed, filename=»treadcon «, entry_tail=0-4-0-16- -disc1-0x0-0x0-0x0-0x0}
0x0231…0264 Rc489kSubCatEnt {f00=0x037aea, f01=0x0007e4, f02=0x0007ed, filename=»tdigamma «, entry_tail=0-4-0-1-1980-07-30T14:27-disc1-0xe008-0x0-0x0-0x0}
0x0264…0297 Rc489kSubCatEnt {f00=0x0387da, f01=0x0007e4, f02=0x0007ed, filename=»treadparam «, entry_tail=0-4-0-1-1980-05-07T14:39-disc1-0x1403a-0x0-0x0-0x0}
0x0297…02a0 00 00 00 00 00 01 00 00 00 ┆ ┆
0x02a0…02c0 00 00 00 01 c1 e2 00 00 00 00 02 69 00 00 00 7f ff fc 74 61 6b 65 66 70 69 74 65 6d 00 00 09 a0 ┆ i takefpitem ┆
0x02c0…02e0 cd 24 00 00 00 0f ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ $ ┆
0x02e0…02fd ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x02fd…0300 0x00000d
0x0300…3f00 Data for tfpread
0x3f00…4200 (7,) Data for tgetfpnames
0x4200…4b00 Data for tdisccopy
0x4b00…5400 Data for tprintfile
0x5400…5700 Data for toutshortcl
0x5700…5d00 Data for tcarea
0x5d00…6600 Data for twritezone
0x6600…6900 Data for tcutarea
0x6900…6f00 Data for tcopyf
0x6f00…7500 Data for tbstotape
0x7500…a500 (13,) Data for treadcon
0xa500…a800 Data for tdigamma
0xa800…ab00 Data for treadparam
0xab00…ab20 (19,) 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 20 39 38 34 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 ┆zone z; 2 984 integer array ┆
0xab20…ab40 66 69 65 6c 64 20 63 74 3b 0a 20 20 32 20 20 20 39 38 35 20 69 66 20 63 75 72 63 68 69 6c 64 72 ┆field ct; 2 985 if curchildr┆
0xab40…ab60 65 6e 3e 3d 6d 61 78 63 68 69 6c 64 72 65 6e 20 6f 72 0a 20 20 32 20 20 20 39 38 36 20 20 20 28 ┆en>=maxchildren or 2 986 (┆
0xab60…ab80 63 6f 72 65 2e 6f 77 6e 72 65 66 2e 69 6e 74 66 75 6e 63 72 65 66 20 73 68 69 66 74 20 28 2d 31 ┆core.ownref.intfuncref shift (-1┆
0xab80…aba0 32 29 20 65 78 74 72 61 63 74 20 31 32 20 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 29 3c 3d 30 20 74 ┆2) extract 12 -owninternal)<=0 t┆
0xaba0…abc0 68 65 6e 0a 20 20 32 20 20 20 39 38 37 20 62 65 67 69 6e 0a 20 20 33 20 20 20 39 38 38 20 20 20 ┆hen 2 987 begin 3 988 ┆
0xabc0…abe0 63 72 65 61 74 65 63 68 69 6c 64 3a 3d 35 3b 0a 20 20 33 20 20 20 39 38 39 20 20 20 77 72 69 74 ┆createchild:=5; 3 989 writ┆
0xabe0…ac00 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 6e 6f 69 6e 74 65 72 6e 61 6c 73 2c 64 65 73 63 29 3b ┆eerror(z,errornointernals,desc);┆
0xac00…ac20 0a 20 20 33 20 20 20 39 39 30 20 65 6e 64 20 65 6c 73 65 0a 20 20 32 20 20 20 39 39 31 20 62 65 ┆ 3 990 end else 2 991 be┆
0xac20…ac40 67 69 6e 0a 20 20 33 20 20 20 39 39 32 20 20 20 69 6e 74 65 67 65 72 20 70 64 61 2c 69 2c 73 68 ┆gin 3 992 integer pda,i,sh┆
0xac40…ac60 2c 63 68 61 72 2c 6e 61 6d 65 69 6e 64 65 78 2c 72 65 73 2c 63 62 6e 2c 63 61 2c 63 62 2c 63 69 ┆,char,nameindex,res,cbn,ca,cb,ci┆
0xac60…ac80 6e 74 2c 0a 20 20 33 20 20 20 39 39 33 20 20 20 20 75 73 62 2c 75 73 61 2c 75 73 69 6e 74 2c 66 ┆nt, 3 993 usb,usa,usint,f┆
0xac80…aca0 62 6c 6f 63 6b 2c 6c 62 6c 6f 63 6b 3b 0a 20 20 33 20 20 20 39 39 34 20 20 20 62 6f 6f 6c 65 61 ┆block,lblock; 3 994 boolea┆
0xaca0…acc0 6e 20 63 68 65 63 6b 63 6f 72 65 2c 73 74 64 62 69 6e 63 61 74 3b 0a 20 20 33 20 20 20 39 39 35 ┆n checkcore,stdbincat; 3 995┆
0xacc0…ace0 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 61 72 3b 0a 20 20 33 20 ┆ integer array field par; 3 ┆
0xace0…ad00 20 20 39 39 36 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 70 61 72 61 6d 28 31 3a 39 29 ┆ 996 integer array param(1:9)┆
0xad00…ad20 3b 0a 20 20 33 20 20 20 39 39 37 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6e 61 6d 65 31 2c 6a ┆; 3 997 long array name1,j┆
0xad20…ad40 6f 62 6e 61 6d 65 28 31 3a 33 29 3b 0a 20 20 33 20 20 20 39 39 38 20 20 20 70 61 72 3a 3d 31 32 ┆obname(1:3); 3 998 par:=12┆
0xad40…ad60 3b 0a 20 20 33 20 20 20 39 39 39 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 6e 61 6d 65 ┆; 3 999 for i:=1,2 do name┆
0xad60…ad80 31 28 69 29 3a 3d 6a 6f 62 6e 61 6d 65 28 69 29 3a 3d 64 65 73 63 2e 63 6f 6e 6a 6f 62 6e 61 6d ┆1(i):=jobname(i):=desc.conjobnam┆
0xad80…ada0 65 28 69 29 3b 0a 20 20 33 20 20 31 30 30 30 20 20 20 63 72 65 61 74 65 63 68 69 6c 64 3a 3d 30 ┆e(i); 3 1000 createchild:=0┆
0xada0…adc0 3b 0a 20 20 33 20 20 31 30 30 31 20 20 20 63 68 65 63 6b 63 6f 72 65 3a 3d 69 66 20 2d 2c 70 65 ┆; 3 1001 checkcore:=if -,pe┆
0xadc0…ade0 72 6d 63 6f 72 65 20 74 68 65 6e 20 66 69 6e 64 63 6f 72 65 68 6f 6c 65 28 64 65 73 63 2c 66 62 ┆rmcore then findcorehole(desc,fb┆
0xade0…ae00 6c 6f 63 6b 2c 6c 62 6c 6f 63 6b 2c 7a 29 20 65 6c 73 65 0a 20 20 33 20 20 31 30 30 32 20 20 20 ┆lock,lblock,z) else 3 1002 ┆
0xae00…ae20 20 20 20 20 20 74 72 75 65 3b 0a 20 20 33 20 20 31 30 30 33 20 3c 2a 2b 32 2a 3e 0a 20 20 33 20 ┆ true; 3 1003 <*+2*> 3 ┆
0xae20…ae40 20 31 30 30 34 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 61 6e 64 20 2d 2c 70 65 72 6d 63 ┆ 1004 if testop(2) and -,permc┆
0xae40…ae60 6f 72 65 20 20 74 68 65 6e 20 0a 20 20 33 20 20 31 30 30 35 20 20 20 20 20 20 64 69 73 61 62 6c ┆ore then 3 1005 disabl┆
0xae60…ae80 65 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 63 72 65 61 74 65 20 63 68 69 6c 64 3a ┆e write(z,"nl",1,<:create child:┆
0xae80…aea0 20 63 6f 72 65 62 6c 6f 63 6b 3a 3e 2c 0a 20 20 33 20 20 31 30 30 36 20 20 20 20 20 20 66 62 6c ┆ coreblock:>, 3 1006 fbl┆
0xaea0…aec0 6f 63 6b 2c 6c 62 6c 6f 63 6b 29 3b 0a 20 20 33 20 20 31 30 30 37 20 3c 2a 2d 32 2a 3e 0a 20 20 ┆ock,lblock); 3 1007 <*-2*> ┆
0xaec0…aee0 33 20 20 31 30 30 38 20 20 69 66 20 2d 2c 63 68 65 63 6b 63 6f 72 65 20 74 68 65 6e 0a 20 20 33 ┆3 1008 if -,checkcore then 3┆
0xaee0…af00 20 20 31 30 30 39 20 20 62 65 67 69 6e 0a 20 20 34 20 20 31 30 31 30 20 20 20 63 72 65 61 74 65 ┆ 1009 begin 4 1010 create┆
0xaf00…af20 63 68 69 6c 64 3a 3d 72 65 73 3a 3d 31 3b 0a 20 20 34 20 20 31 30 31 31 20 20 20 77 72 69 74 65 ┆child:=res:=1; 4 1011 write┆
0xaf20…af40 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 6e 6f 63 6f 72 65 2c 64 65 73 63 29 3b 0a 20 20 34 20 20 ┆error(z,errornocore,desc); 4 ┆
0xaf40…af60 31 30 31 32 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 33 20 20 31 30 31 33 20 20 20 62 65 67 69 6e ┆1012 end else 3 1013 begin┆
0xaf60…af80 0a 20 20 34 20 20 31 30 31 34 20 20 20 20 63 61 3a 3d 63 6f 72 65 2e 6f 77 6e 72 65 66 2e 62 75 ┆ 4 1014 ca:=core.ownref.bu┆
0xaf80…afa0 66 61 72 65 61 72 65 66 3b 0a 20 20 34 20 20 31 30 31 35 20 20 20 20 75 73 62 3a 3d 63 62 3a 3d ┆farearef; 4 1015 usb:=cb:=┆
0xafa0…afc0 63 61 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 34 20 20 ┆ca shift (-12) extract 12; 4 ┆
0xafc0…afe0 31 30 31 36 20 20 20 20 75 73 61 3a 3d 63 61 3a 3d 63 61 20 65 78 74 72 61 63 74 20 31 32 3b 0a ┆1016 usa:=ca:=ca extract 12; ┆
0xafe0…b000 20 20 34 20 20 31 30 31 37 20 20 20 20 75 73 69 6e 74 3a 3d 63 69 6e 74 3a 3d 63 6f 72 65 2e 6f ┆ 4 1017 usint:=cint:=core.o┆
0xb000…b020 77 6e 72 65 66 2e 69 6e 74 66 75 6e 63 72 65 66 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 ┆wnref.intfuncref shift (-12) ext┆
0xb020…b040 72 61 63 74 20 31 32 3b 0a 20 20 34 20 20 31 30 31 38 20 3c 2a 2b 32 2a 3e 0a 20 20 34 20 20 31 ┆ract 12; 4 1018 <*+2*> 4 1┆
0xb040…b060 30 31 39 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 ┆019 if testop(2) then disable┆
0xb060…b080 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 62 75 66 2c 61 72 65 61 2c 69 6e 74 3a 3e ┆ write(z,"nl",1,<:buf,area,int:>┆
0xb080…b0a0 2c 63 62 2c 63 61 2c 63 69 6e 74 29 3b 0a 20 20 34 20 20 31 30 32 30 20 3c 2a 2d 32 2a 3e 0a 20 ┆,cb,ca,cint); 4 1020 <*-2*> ┆
0xb0a0…b0c0 20 34 20 20 31 30 32 31 20 20 20 20 72 65 73 3a 3d 30 3b 0a 20 20 34 20 20 31 30 32 32 20 20 20 ┆ 4 1021 res:=0; 4 1022 ┆
0xb0c0…b0e0 20 63 62 3a 3d 63 62 2d 6f 77 6e 62 75 66 2d 28 64 65 73 63 2e 63 6f 6e 62 75 66 61 6e 64 61 72 ┆ cb:=cb-ownbuf-(desc.conbufandar┆
0xb0e0…b100 65 61 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 34 20 ┆ea shift (-12) extract 12); 4 ┆
0xb100…b120 20 31 30 32 33 20 20 20 20 63 61 3a 3d 63 61 2d 6f 77 6e 61 72 65 61 2d 28 64 65 73 63 2e 63 6f ┆ 1023 ca:=ca-ownarea-(desc.co┆
0xb120…b140 6e 62 75 66 61 6e 64 61 72 65 61 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 34 20 20 31 30 ┆nbufandarea extract 12); 4 10┆
0xb140…b160 32 34 20 20 20 20 63 69 6e 74 3a 3d 63 69 6e 74 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 2d 28 64 65 ┆24 cint:=cint-owninternal-(de┆
0xb160…b180 73 63 2e 63 6f 6e 69 6e 74 61 6e 64 66 75 6e 63 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 ┆sc.conintandfunc shift (-12) ext┆
0xb180…b1a0 72 61 63 74 20 31 32 29 3b 0a 20 20 34 20 20 31 30 32 35 20 20 20 20 69 66 20 63 62 3c 3d 30 20 ┆ract 12); 4 1025 if cb<=0 ┆
0xb1a0…b1c0 74 68 65 6e 20 72 65 73 3a 3d 65 72 72 6f 72 6e 6f 62 75 66 66 65 72 73 20 65 6c 73 65 0a 20 20 ┆then res:=errornobuffers else ┆
0xb1c0…b1e0 34 20 20 31 30 32 36 20 20 20 20 69 66 20 63 61 3c 3d 30 20 74 68 65 6e 20 72 65 73 3a 3d 65 72 ┆4 1026 if ca<=0 then res:=er┆
0xb1e0…b200 72 6f 72 6e 6f 61 72 65 61 73 20 20 20 65 6c 73 65 0a 20 20 34 20 20 31 30 32 37 20 20 20 20 69 ┆rornoareas else 4 1027 i┆
0xb200…b220 66 20 63 69 6e 74 3c 3d 30 20 74 68 65 6e 20 72 65 73 3a 3d 65 72 72 6f 72 6e 6f 69 6e 74 65 72 ┆f cint<=0 then res:=errornointer┆
0xb220…b240 6e 61 6c 73 3b 0a 20 20 34 20 20 31 30 32 38 20 20 20 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e ┆nals; 4 1028 if res>0 then┆
0xb240…b260 0a 20 20 34 20 20 31 30 32 39 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 30 33 30 20 20 20 ┆ 4 1029 begin 5 1030 ┆
0xb260…b280 20 20 20 70 61 72 61 6d 28 31 29 3a 3d 75 73 62 2d 6f 77 6e 62 75 66 3b 20 70 61 72 61 6d 28 32 ┆ param(1):=usb-ownbuf; param(2┆
0xb280…b2a0 29 3a 3d 75 73 61 2d 6f 77 6e 61 72 65 61 3b 0a 20 20 35 20 20 31 30 33 31 20 20 20 20 20 20 70 ┆):=usa-ownarea; 5 1031 p┆
0xb2a0…b2c0 61 72 61 6d 28 33 29 3a 3d 75 73 69 6e 74 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 35 20 ┆aram(3):=usint-owninternal; 5 ┆
0xb2c0…b2e0 20 31 30 33 32 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 72 65 73 2c 70 61 72 61 ┆ 1032 writeerror(z,res,para┆
0xb2e0…b300 6d 29 3b 0a 20 20 35 20 20 31 30 33 33 20 20 20 20 20 20 63 72 65 61 74 65 63 68 69 6c 64 3a 3d ┆m); 5 1033 createchild:=┆
0xb300…b320 72 65 73 3a 3d 36 3b 0a 20 20 35 20 20 31 30 33 34 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 34 ┆res:=6; 5 1034 end else 4┆
0xb320…b340 20 20 31 30 33 35 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 30 33 36 20 20 20 20 66 72 65 65 ┆ 1035 begin 5 1036 free┆
0xb340…b360 62 75 66 3a 3d 75 73 62 2d 6f 77 6e 62 75 66 3b 20 66 72 65 65 61 72 65 61 3a 3d 75 73 61 2d 6f ┆buf:=usb-ownbuf; freearea:=usa-o┆
0xb360…b380 77 6e 61 72 65 61 3b 0a 20 20 35 20 20 31 30 33 37 20 20 20 20 66 72 65 65 69 6e 74 65 72 6e 61 ┆wnarea; 5 1037 freeinterna┆
0xb380…b3a0 6c 3a 3d 75 73 69 6e 74 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 35 20 20 31 30 33 38 20 ┆l:=usint-owninternal; 5 1038 ┆
0xb3a0…b3c0 20 20 20 69 66 20 70 65 72 6d 63 6f 72 65 20 74 68 65 6e 0a 20 20 35 20 20 31 30 33 39 20 20 20 ┆ if permcore then 5 1039 ┆
0xb3c0…b3e0 20 62 65 67 69 6e 0a 20 20 36 20 20 31 30 34 30 20 20 20 20 20 20 70 61 72 61 6d 28 31 29 3a 3d ┆ begin 6 1040 param(1):=┆
0xb3e0…b400 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 3b 0a 20 20 36 20 20 31 30 34 31 20 ┆desc.confirstaddress; 6 1041 ┆
0xb400…b420 (20,) 20 20 20 20 20 70 61 72 61 6d 28 32 29 3a 3d 64 65 73 63 2e 63 6f 6e 74 6f 70 61 64 64 72 65 73 ┆ param(2):=desc.contopaddres┆
0xb420…b440 73 3b 0a 20 20 36 20 20 31 30 34 32 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 30 ┆s; 6 1042 end else 5 10┆
0xb440…b460 34 33 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 30 34 34 20 20 20 20 20 20 64 65 73 63 2e ┆43 begin 6 1044 desc.┆
0xb460…b480 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 3a 3d 70 61 72 61 6d 28 31 29 3a 3d 63 6f 72 65 74 ┆confirstaddress:=param(1):=coret┆
0xb480…b4a0 61 62 6c 65 28 66 62 6c 6f 63 6b 2c 31 29 3b 0a 20 20 36 20 20 31 30 34 35 20 20 20 20 20 20 64 ┆able(fblock,1); 6 1045 d┆
0xb4a0…b4c0 65 73 63 2e 63 6f 6e 74 6f 70 61 64 64 72 65 73 73 3a 3d 70 61 72 61 6d 28 32 29 3a 3d 63 6f 72 ┆esc.contopaddress:=param(2):=cor┆
0xb4c0…b4e0 65 74 61 62 6c 65 28 6c 62 6c 6f 63 6b 2c 31 29 2d 32 3b 0a 20 20 36 20 20 31 30 34 36 20 20 20 ┆etable(lblock,1)-2; 6 1046 ┆
0xb4e0…b500 20 65 6e 64 3b 0a 20 20 35 20 20 31 30 34 37 20 20 20 20 66 6f 72 20 69 3a 3d 33 20 73 74 65 70 ┆ end; 5 1047 for i:=3 step┆
0xb500…b520 20 31 20 75 6e 74 69 6c 20 39 20 64 6f 20 70 61 72 61 6d 28 69 29 3a 3d 64 65 73 63 2e 70 61 72 ┆ 1 until 9 do param(i):=desc.par┆
0xb520…b540 28 69 29 3b 0a 20 20 35 20 20 31 30 34 38 20 20 20 20 73 65 74 62 61 73 65 73 74 64 3b 0a 20 20 ┆(i); 5 1048 setbasestd; ┆
0xb540…b560 35 20 20 31 30 34 39 20 20 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 ┆5 1049 pda:=process_descript┆
0xb560…b580 69 6f 6e 28 6e 61 6d 65 31 29 3b 0a 20 20 35 20 20 31 30 35 30 20 20 20 20 73 74 64 62 69 6e 63 ┆ion(name1); 5 1050 stdbinc┆
0xb580…b5a0 61 74 3a 3d 20 6c 6f 67 61 6e 64 28 64 65 73 63 2e 63 6f 6e 70 72 69 6f 61 6e 64 63 6f 6d 6d 61 ┆at:= logand(desc.conprioandcomma┆
0xb5a0…b5c0 6e 64 73 2c 62 69 74 5f 73 74 64 62 61 73 65 29 3d 30 3b 0a 20 20 35 20 20 31 30 35 31 20 20 20 ┆nds,bit_stdbase)=0; 5 1051 ┆
0xb5c0…b5e0 20 69 66 20 73 74 64 62 69 6e 63 61 74 20 74 68 65 6e 20 70 61 72 61 6d 28 38 29 3a 3d 70 61 72 ┆ if stdbincat then param(8):=par┆
0xb5e0…b600 61 6d 28 39 29 3a 3d 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 3b 0a 20 20 35 20 20 31 ┆am(9):=desc.conloweruser; 5 1┆
0xb600…b620 30 35 32 20 20 20 20 69 66 20 70 64 61 3e 30 20 61 6e 64 20 73 74 64 62 69 6e 63 61 74 20 74 68 ┆052 if pda>0 and stdbincat th┆
0xb620…b640 65 6e 0a 20 20 35 20 20 31 30 35 33 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 30 35 34 20 ┆en 5 1053 begin 6 1054 ┆
0xb640…b660 20 20 20 20 70 61 72 61 6d 28 38 29 3a 3d 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 3b ┆ param(8):=desc.conloweruser;┆
0xb660…b680 0a 20 20 36 20 20 31 30 35 35 20 20 20 20 20 69 3a 3d 30 3b 0a 20 20 36 20 20 31 30 35 36 20 20 ┆ 6 1055 i:=0; 6 1056 ┆
0xb680…b6a0 20 20 20 72 65 70 65 61 74 20 69 3a 3d 69 2b 31 3b 0a 20 20 36 20 20 31 30 35 37 20 20 20 20 20 ┆ repeat i:=i+1; 6 1057 ┆
0xb6a0…b6c0 73 68 3a 3d 2d 34 38 3b 0a 20 20 36 20 20 31 30 35 38 20 20 20 20 20 72 65 70 65 61 74 20 73 68 ┆sh:=-48; 6 1058 repeat sh┆
0xb6c0…b6e0 3a 3d 73 68 2b 38 3b 0a 20 20 36 20 20 31 30 35 39 20 20 20 20 20 20 20 63 68 61 72 3a 3d 6a 6f ┆:=sh+8; 6 1059 char:=jo┆
0xb6e0…b700 62 6e 61 6d 65 28 69 29 20 73 68 69 66 74 20 73 68 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 36 ┆bname(i) shift sh extract 8; 6┆
0xb700…b720 20 20 31 30 36 30 20 20 20 20 20 75 6e 74 69 6c 20 63 68 61 72 3d 30 20 6f 72 20 73 68 3d 30 3b ┆ 1060 until char=0 or sh=0;┆
0xb720…b740 0a 20 20 36 20 20 31 30 36 31 20 20 20 20 20 75 6e 74 69 6c 20 63 68 61 72 3d 30 20 6f 72 20 69 ┆ 6 1061 until char=0 or i┆
0xb740…b760 3d 32 3b 0a 20 20 36 20 20 31 30 36 32 20 20 20 20 72 65 73 3a 3d 33 3b 20 6e 61 6d 65 69 6e 64 ┆=2; 6 1062 res:=3; nameind┆
0xb760…b780 65 78 3a 3d 30 3b 0a 20 20 36 20 20 31 30 36 33 20 20 20 20 77 68 69 6c 65 20 72 65 73 3d 33 20 ┆ex:=0; 6 1063 while res=3 ┆
0xb780…b7a0 61 6e 64 20 6e 61 6d 65 69 6e 64 65 78 3c 39 20 64 6f 0a 20 20 36 20 20 31 30 36 34 20 20 20 20 ┆and nameindex<9 do 6 1064 ┆
0xb7a0…b7c0 62 65 67 69 6e 0a 20 20 37 20 20 31 30 36 35 20 20 20 20 20 20 6e 61 6d 65 31 28 69 29 3a 3d 28 ┆begin 7 1065 name1(i):=(┆
0xb7c0…b7e0 6a 6f 62 6e 61 6d 65 28 69 29 20 73 68 69 66 74 20 73 68 20 61 64 64 0a 20 20 37 20 20 31 30 36 ┆jobname(i) shift sh add 7 106┆
0xb7e0…b800 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 34 38 2b 6e 61 6d 65 69 6e 64 65 78 29 29 20 ┆6 (48+nameindex)) ┆
0xb800…b820 73 68 69 66 74 20 28 2d 73 68 29 3b 0a 20 20 37 20 20 31 30 36 37 20 20 20 20 20 20 70 61 72 61 ┆shift (-sh); 7 1067 para┆
0xb820…b840 6d 28 38 29 3a 3d 70 61 72 61 6d 28 39 29 3a 3d 70 61 72 61 6d 28 38 29 2b 31 3b 0a 20 20 37 20 ┆m(8):=param(9):=param(8)+1; 7 ┆
0xb840…b860 20 31 30 36 38 20 20 20 20 20 20 72 65 73 3a 3d 63 72 65 61 74 65 69 6e 74 28 6e 61 6d 65 31 2c ┆ 1068 res:=createint(name1,┆
0xb860…b880 70 61 72 61 6d 29 3b 0a 20 20 37 20 20 31 30 36 39 20 3c 2a 2b 32 2a 3e 0a 20 20 37 20 20 31 30 ┆param); 7 1069 <*+2*> 7 10┆
0xb880…b8a0 37 30 20 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c ┆70 if testop(2) then disabl┆
0xb8a0…b8c0 65 0a 20 20 37 20 20 31 30 37 31 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 ┆e 7 1071 write(z,"nl",1┆
0xb8c0…b8e0 2c 6e 61 6d 65 69 6e 64 65 78 2c 6e 61 6d 65 31 2c 70 61 72 61 6d 28 38 29 2c 69 2c 73 68 29 3b ┆,nameindex,name1,param(8),i,sh);┆
0xb8e0…b900 0a 20 20 37 20 20 31 30 37 32 20 3c 2a 2d 32 2a 3e 0a 20 20 37 20 20 31 30 37 33 20 20 20 20 20 ┆ 7 1072 <*-2*> 7 1073 ┆
0xb900…b920 20 6e 61 6d 65 69 6e 64 65 78 3a 3d 6e 61 6d 65 69 6e 64 65 78 2b 31 3b 0a 20 20 37 20 20 31 30 ┆ nameindex:=nameindex+1; 7 10┆
0xb920…b940 37 34 20 20 20 20 65 6e 64 20 77 68 69 6c 65 3b 0a 20 20 36 20 20 31 30 37 35 20 20 20 65 6e 64 ┆74 end while; 6 1075 end┆
0xb940…b960 20 65 6c 73 65 20 72 65 73 3a 3d 63 72 65 61 74 65 69 6e 74 28 6e 61 6d 65 31 2c 70 61 72 61 6d ┆ else res:=createint(name1,param┆
0xb960…b980 29 3b 0a 20 20 35 20 20 31 30 37 36 20 3c 2a 2b 32 2a 3e 0a 20 20 35 20 20 31 30 37 37 20 69 66 ┆); 5 1076 <*+2*> 5 1077 if┆
0xb980…b9a0 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a 2c ┆ testop(2) then disable write(z,┆
0xb9a0…b9c0 22 6e 6c 22 2c 31 2c 3c 3a 63 72 65 61 74 65 69 6e 74 3a 20 72 65 73 20 3a 3e 2c 72 65 73 2c 0a ┆"nl",1,<:createint: res :>,res, ┆
0xb9c0…b9e0 20 20 35 20 20 31 30 37 38 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 6e 61 6d 65 20 3a 3e 2c ┆ 5 1078 "nl",1,<:name :>,┆
0xb9e0…ba00 6e 61 6d 65 31 2c 0a 20 20 35 20 20 31 30 37 39 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 66 ┆name1, 5 1079 "nl",1,<:f┆
0xba00…ba20 61 64 64 72 3a 3e 2c 70 61 72 61 6d 28 31 29 2c 0a 20 20 35 20 20 31 30 38 30 20 20 20 20 20 20 ┆addr:>,param(1), 5 1080 ┆
0xba20…ba40 22 6e 6c 22 2c 31 2c 3c 3a 74 61 64 64 72 3a 3e 2c 70 61 72 61 6d 28 32 29 2c 0a 20 20 35 20 20 ┆"nl",1,<:taddr:>,param(2), 5 ┆
0xba40…ba60 31 30 38 31 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 62 20 61 20 61 3a 3e 2c 70 61 72 61 6d ┆1081 "nl",1,<:b a a:>,param┆
0xba60…ba80 28 33 29 2c 0a 20 20 35 20 20 31 30 38 32 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 69 20 61 ┆(3), 5 1082 "nl",1,<:i a┆
0xba80…baa0 20 66 3a 3e 2c 70 61 72 61 6d 28 34 29 2c 0a 20 20 35 20 20 31 30 38 33 20 20 20 20 20 20 22 6e ┆ f:>,param(4), 5 1083 "n┆
0xbaa0…bac0 6c 22 2c 31 2c 3c 3a 6d 6f 64 65 20 3a 3e 2c 70 61 72 61 6d 28 35 29 2c 0a 20 20 35 20 20 31 30 ┆l",1,<:mode :>,param(5), 5 10┆
0xbac0…bae0 38 34 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 6d 61 78 62 20 3a 3e 2c 70 61 72 61 6d 28 36 ┆84 "nl",1,<:maxb :>,param(6┆
0xbae0…bb00 29 2c 70 61 72 61 6d 28 37 29 2c 0a 20 20 35 20 20 31 30 38 35 20 20 20 20 20 20 22 6e 6c 22 2c ┆),param(7), 5 1085 "nl",┆
0xbb00…bb20 31 2c 3c 3a 73 74 64 62 20 3a 3e 2c 70 61 72 61 6d 28 38 29 2c 70 61 72 61 6d 28 39 29 2c 0a 20 ┆1,<:stdb :>,param(8),param(9), ┆
0xbb20…bb40 20 35 20 20 31 30 38 36 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 69 66 20 73 74 64 62 69 6e 63 61 ┆ 5 1086 "nl",1,if stdbinca┆
0xbb40…bb60 74 20 74 68 65 6e 20 3c 3a 3a 3e 20 65 6c 73 65 20 3c 3a 2a 73 74 64 62 61 73 65 3d 75 73 65 72 ┆t then <::> else <:*stdbase=user┆
0xbb60…bb80 62 61 73 65 3a 3e 29 3b 0a 20 20 35 20 20 31 30 38 37 20 3c 2a 2d 32 2a 3e 0a 20 20 35 20 20 31 ┆base:>); 5 1087 <*-2*> 5 1┆
0xbb80…bba0 30 38 38 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e 0a 20 20 35 20 20 31 30 38 39 20 62 65 67 69 ┆088 if res>0 then 5 1089 begi┆
0xbba0…bbc0 6e 0a 20 20 36 20 20 31 30 39 30 20 20 20 63 72 65 61 74 65 63 68 69 6c 64 3a 3d 72 65 73 2b 38 ┆n 6 1090 createchild:=res+8┆
0xbbc0…bbe0 3b 0a 20 20 36 20 20 31 30 39 31 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 ┆; 6 1091 writeerror(z,case ┆
0xbbe0…bc00 72 65 73 20 6f 66 20 28 0a 20 20 36 20 20 31 30 39 32 20 20 20 20 20 65 72 72 6f 72 72 65 73 75 ┆res of ( 6 1092 errorresu┆
0xbc00…bc20 6c 74 69 6d 70 6f 73 73 69 62 6c 65 2c 65 72 72 6f 72 63 61 74 61 6c 6f 67 65 72 72 6f 72 2c 65 ┆ltimpossible,errorcatalogerror,e┆
0xbc20…bc40 72 72 6f 72 6e 61 6d 65 63 6f 6e 66 6c 69 63 74 29 2c 64 65 73 63 29 3b 0a 20 20 36 20 20 31 30 ┆rrornameconflict),desc); 6 10┆
0xbc40…bc60 39 33 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 30 39 34 20 62 65 67 69 6e 0a 20 20 36 20 ┆93 end else 5 1094 begin 6 ┆
0xbc60…bc80 20 31 30 39 35 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 64 65 73 63 2e 63 6f 6e 5f 70 ┆ 1095 for i:=1,2 do desc.con_p┆
0xbc80…bca0 72 6f 63 5f 6e 61 6d 65 28 69 29 3a 3d 6e 61 6d 65 31 28 69 29 3b 0a 20 20 36 20 20 31 30 39 36 ┆roc_name(i):=name1(i); 6 1096┆
0xbca0…bcc0 20 20 20 73 65 74 63 61 74 62 61 73 65 28 6e 61 6d 65 31 2c 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 ┆ setcatbase(name1,desc.conlowe┆
0xbcc0…bce0 72 75 73 65 72 2c 64 65 73 63 2e 63 6f 6e 75 70 70 65 72 75 73 65 72 29 3b 0a 20 20 36 20 20 31 ┆ruser,desc.conupperuser); 6 1┆
0xbce0…bd00 30 39 37 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 64 65 73 63 2e 63 6f 6e 5f 70 72 6f ┆097 for i:=1,2 do desc.con_pro┆
0xbd00…bd20 (21,) 63 5f 6e 61 6d 65 28 69 29 3a 3d 6e 61 6d 65 31 28 69 29 3b 0a 20 20 36 20 20 31 30 39 38 20 20 ┆c_name(i):=name1(i); 6 1098 ┆
0xbd20…bd40 20 63 68 69 6c 64 72 65 6e 63 72 65 61 74 65 64 3a 3d 63 68 69 6c 64 72 65 6e 63 72 65 61 74 65 ┆ childrencreated:=childrencreate┆
0xbd40…bd60 64 2b 31 3b 0a 20 20 36 20 20 31 30 39 39 20 20 20 63 75 72 63 68 69 6c 64 72 65 6e 3a 3d 63 75 ┆d+1; 6 1099 curchildren:=cu┆
0xbd60…bd80 72 63 68 69 6c 64 72 65 6e 2b 31 3b 0a 20 20 36 20 20 31 31 30 30 20 20 20 69 66 20 6c 6f 67 61 ┆rchildren+1; 6 1100 if loga┆
0xbd80…bda0 6e 64 28 64 65 73 63 2e 63 6f 6e 70 72 69 6f 5f 61 6e 64 5f 63 6f 6d 6d 61 6e 64 73 2c 62 69 74 ┆nd(desc.conprio_and_commands,bit┆
0xbda0…bdc0 5f 70 72 69 76 29 3d 30 20 74 68 65 6e 0a 20 20 36 20 20 31 31 30 31 20 20 20 69 6e 63 6c 75 64 ┆_priv)=0 then 6 1101 includ┆
0xbdc0…bde0 65 5f 64 65 76 69 63 65 73 28 6e 61 6d 65 31 2c 69 6e 63 6c 75 64 65 6c 69 73 74 2c 6c 61 73 74 ┆e_devices(name1,includelist,last┆
0xbde0…be00 64 65 76 69 63 65 29 20 65 6c 73 65 0a 20 20 36 20 20 31 31 30 32 20 20 20 66 6f 72 20 69 3a 3d ┆device) else 6 1102 for i:=┆
0xbe00…be20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 61 73 74 74 65 72 6d 69 6e 61 6c 20 64 6f 20 69 ┆0 step 1 until lastterminal do i┆
0xbe20…be40 6e 63 6c 75 64 65 5f 75 73 65 72 28 6e 61 6d 65 31 2c 69 29 3b 0a 20 20 36 20 20 31 31 30 33 20 ┆nclude_user(name1,i); 6 1103 ┆
0xbe40…be60 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 6e 61 6d 65 31 ┆ pda:=process_description(name1┆
0xbe60…be80 29 3b 0a 20 20 36 20 20 31 31 30 34 20 20 20 69 66 20 70 65 72 6d 63 6f 72 65 20 74 68 65 6e 20 ┆); 6 1104 if permcore then ┆
0xbe80…bea0 65 6c 73 65 0a 20 20 36 20 20 31 31 30 35 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 31 30 36 ┆else 6 1105 begin 7 1106┆
0xbea0…bec0 20 20 20 20 20 66 6f 72 20 63 62 6e 3a 3d 6c 62 6c 6f 63 6b 2d 31 20 73 74 65 70 20 2d 31 20 75 ┆ for cbn:=lblock-1 step -1 u┆
0xbec0…bee0 6e 74 69 6c 20 66 62 6c 6f 63 6b 20 64 6f 20 63 6f 72 65 74 61 62 6c 65 28 63 62 6e 2c 32 29 3a ┆ntil fblock do coretable(cbn,2):┆
0xbee0…bf00 3d 70 64 61 3b 0a 20 20 37 20 20 31 31 30 37 20 3c 2a 2b 32 2a 3e 0a 20 20 37 20 20 31 31 30 38 ┆=pda; 7 1107 <*+2*> 7 1108┆
0xbf00…bf20 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 ┆ if testop(2) then write(z,"┆
0xbf20…bf40 6e 6c 22 2c 31 2c 3c 3a 66 62 6c 6f 63 6b 2c 20 6c 62 6c 6f 63 6b 3a 3e 2c 66 62 6c 6f 63 6b 2c ┆nl",1,<:fblock, lblock:>,fblock,┆
0xbf40…bf60 6c 62 6c 6f 63 6b 29 3b 0a 20 20 37 20 20 31 31 30 39 20 3c 2a 2d 32 2a 3e 0a 20 20 37 20 20 31 ┆lblock); 7 1109 <*-2*> 7 1┆
0xbf60…bf80 31 31 30 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 31 31 31 20 20 20 63 62 6e 3a 3d 30 3b 0a 20 ┆110 end; 6 1111 cbn:=0; ┆
0xbf80…bfa0 20 36 20 20 31 31 31 32 20 20 20 63 74 3a 3d 2d 63 74 5f 73 69 7a 65 3b 0a 20 20 36 20 20 31 31 ┆ 6 1112 ct:=-ct_size; 6 11┆
0xbfa0…bfc0 31 33 20 20 20 72 65 70 65 61 74 20 63 62 6e 3a 3d 63 62 6e 2b 31 3b 0a 20 20 36 20 20 31 31 31 ┆13 repeat cbn:=cbn+1; 6 111┆
0xbfc0…bfe0 34 20 20 20 63 74 3a 3d 63 74 2b 63 74 5f 73 69 7a 65 3b 0a 20 20 36 20 20 31 31 31 35 20 20 20 ┆4 ct:=ct+ct_size; 6 1115 ┆
0xbfe0…c000 69 6e 73 70 65 63 74 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 65 6d 2c 69 29 3b ┆inspect(childtable.ct.ct_sem,i);┆
0xc000…c020 0a 20 20 36 20 20 31 31 31 36 20 20 20 75 6e 74 69 6c 20 63 62 6e 3e 6d 61 78 63 68 69 6c 64 72 ┆ 6 1116 until cbn>maxchildr┆
0xc020…c040 65 6e 20 6f 72 20 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 ┆en or (childtable.ct.ct_childpda┆
0xc040…c060 3d 30 20 61 6e 64 20 69 3e 30 29 3b 0a 20 20 36 20 20 31 31 31 37 20 20 20 63 68 69 6c 64 74 61 ┆=0 and i>0); 6 1117 childta┆
0xc060…c080 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 5f 70 64 61 3a 3d 70 64 61 3b 0a 20 20 36 20 20 31 ┆ble.ct.ct_child_pda:=pda; 6 1┆
0xc080…c0a0 31 31 38 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 74 65 72 6d 5f 70 64 61 3a ┆118 childtable.ct.ct_term_pda:┆
0xc0a0…c0c0 3d 64 65 73 63 2e 63 6f 6e 74 65 72 6d 70 64 61 3b 3b 0a 20 20 36 20 20 31 31 31 39 20 20 20 63 ┆=desc.contermpda;; 6 1119 c┆
0xc0c0…c0e0 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 63 72 65 ┆hildtable.ct.ct_state:=state_cre┆
0xc0e0…c100 61 74 65 64 3b 20 3c 2a 63 72 65 61 74 65 64 2a 3e 0a 20 20 36 20 20 31 31 32 30 20 20 20 63 68 ┆ated; <*created*> 6 1120 ch┆
0xc100…c120 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 72 65 66 3a 3d 64 65 73 63 2e 63 6f 6e 72 65 66 3b ┆ildtable.ct.ct_ref:=desc.conref;┆
0xc120…c140 0a 20 20 36 20 20 31 31 32 31 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 63 68 69 6c 64 ┆ 6 1121 for i:=1,2 do child┆
0xc140…c160 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6a 6f 62 6e 61 6d 65 28 69 29 3a 3d 6a 6f 62 6e 61 6d 65 28 ┆table.ct.ct_jobname(i):=jobname(┆
0xc160…c180 69 29 3b 0a 20 20 36 20 20 31 31 32 32 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 ┆i); 6 1122 childtable.ct.ct┆
0xc180…c1a0 5f 66 69 72 73 74 3a 3d 70 61 72 61 6d 28 31 29 3b 0a 20 20 36 20 20 31 31 32 33 20 20 20 63 68 ┆_first:=param(1); 6 1123 ch┆
0xc1a0…c1c0 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6c 61 73 74 20 3a 3d 70 61 72 61 6d 28 32 29 3b 0a ┆ildtable.ct.ct_last :=param(2); ┆
0xc1c0…c1e0 20 20 36 20 20 31 31 32 34 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 ┆ 6 1124 childtable.ct.ct_use┆
0xc1e0…c200 72 63 61 74 6e 6f 3a 3d 64 65 73 63 2e 63 6f 6e 75 73 65 72 63 61 74 6e 6f 3b 0a 20 20 36 20 20 ┆rcatno:=desc.conusercatno; 6 ┆
0xc200…c220 31 31 32 35 20 20 20 64 65 73 63 2e 63 6f 6e 5f 63 75 72 5f 63 68 69 6c 64 3a 3d 63 62 6e 3b 0a ┆1125 desc.con_cur_child:=cbn; ┆
0xc220…c240 20 20 36 20 20 31 31 32 36 20 20 20 64 65 73 63 2e 63 6f 6e 5f 63 75 72 5f 63 68 69 6c 64 70 64 ┆ 6 1126 desc.con_cur_childpd┆
0xc240…c260 61 3a 3d 70 64 61 3b 0a 20 20 36 20 20 31 31 32 37 20 3c 2a 2b 32 2a 3e 0a 20 20 36 20 20 31 31 ┆a:=pda; 6 1127 <*+2*> 6 11┆
0xc260…c280 32 38 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 ┆28 if testop(2) then disable wr┆
0xc280…c2a0 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 63 68 69 6c 64 20 6e 6f 20 3a 3e 2c 63 62 6e 2c 0a ┆ite(z,"nl",1,<:child no :>,cbn, ┆
0xc2a0…c2c0 20 20 36 20 20 31 31 32 39 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f ┆ 6 1129 childtable.ct.ct_┆
0xc2c0…c2e0 63 68 69 6c 64 6e 6f 2c 0a 20 20 36 20 20 31 31 33 30 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c ┆childno, 6 1130 "nl",1,<┆
0xc2e0…c300 3a 63 68 69 6c 64 70 64 61 3a 3e 2c 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 ┆:childpda:>,childtable.ct.ct_chi┆
0xc300…c320 6c 64 70 64 61 29 3b 0a 20 20 36 20 20 31 31 33 31 20 3c 2a 2d 32 2a 3e 0a 20 20 36 20 20 31 31 ┆ldpda); 6 1131 <*-2*> 6 11┆
0xc320…c340 33 32 20 65 6e 64 3b 0a 20 20 35 20 20 31 31 33 33 20 20 20 72 65 73 65 74 62 61 73 65 3b 0a 20 ┆32 end; 5 1133 resetbase; ┆
0xc340…c360 20 35 20 20 31 31 33 34 20 20 20 65 6e 64 20 62 75 66 2c 61 72 65 61 2c 69 6e 74 20 6f 6b 3b 0a ┆ 5 1134 end buf,area,int ok; ┆
0xc360…c380 20 20 34 20 20 31 31 33 35 20 65 6e 64 20 63 6f 72 65 62 6c 6f 63 6b 5f 66 6f 75 6e 64 3b 0a 20 ┆ 4 1135 end coreblock_found; ┆
0xc380…c3a0 20 33 20 20 31 31 33 36 20 0a 20 20 33 20 20 31 31 33 36 20 65 6e 64 20 63 72 65 61 74 65 5f 63 ┆ 3 1136 3 1136 end create_c┆
0xc3a0…c3c0 68 69 6c 64 3b 0a 20 20 32 20 20 31 31 33 37 20 0a 20 20 32 20 20 31 31 33 37 20 69 6e 74 65 67 ┆hild; 2 1137 2 1137 integ┆
0xc3c0…c3e0 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 63 68 69 6c 64 28 64 65 73 63 2c 65 72 72 ┆er procedure checkchild(desc,err┆
0xc3e0…c400 6f 72 2c 7a 2c 63 74 29 3b 0a 20 20 32 20 20 31 31 33 38 20 76 61 6c 75 65 20 65 72 72 6f 72 3b ┆or,z,ct); 2 1138 value error;┆
0xc400…c420 20 62 6f 6f 6c 65 61 6e 20 65 72 72 6f 72 3b 0a 20 20 32 20 20 31 31 33 39 20 69 6e 74 65 67 65 ┆ boolean error; 2 1139 intege┆
0xc420…c440 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 32 20 20 31 31 34 30 20 7a 6f 6e 65 20 7a 3b 0a ┆r array desc; 2 1140 zone z; ┆
0xc440…c460 20 20 32 20 20 31 31 34 31 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 63 74 ┆ 2 1141 integer array field ct┆
0xc460…c480 3b 0a 20 20 32 20 20 31 31 34 32 20 62 65 67 69 6e 0a 20 20 33 20 20 31 31 34 33 20 69 6e 74 65 ┆; 2 1142 begin 3 1143 inte┆
0xc480…c4a0 67 65 72 20 70 64 61 2c 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 31 31 34 34 20 20 20 3c 2a 63 68 ┆ger pda,cn,res; 3 1144 <*ch┆
0xc4a0…c4c0 65 63 6b 73 20 77 68 65 74 68 65 72 20 74 68 65 20 6e 61 6d 65 20 69 6e 20 64 65 73 63 20 69 73 ┆ecks whether the name in desc is┆
0xc4c0…c4e0 20 61 20 63 68 69 6c 64 20 6f 66 20 74 68 69 73 20 63 6f 6e 73 6f 6c 65 2a 3e 0a 20 20 33 20 20 ┆ a child of this console*> 3 ┆
0xc4e0…c500 31 31 34 35 20 20 20 72 65 73 3a 3d 31 3b 0a 20 20 33 20 20 31 31 34 36 20 20 20 63 6e 3a 3d 30 ┆1145 res:=1; 3 1146 cn:=0┆
0xc500…c520 3b 0a 20 20 33 20 20 31 31 34 37 20 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 5f 64 65 73 63 72 ┆; 3 1147 pda:=process_descr┆
0xc520…c540 69 70 74 69 6f 6e 28 64 65 73 63 2e 63 6f 6e 5f 70 72 6f 63 5f 6e 61 6d 65 29 3b 0a 20 20 33 20 ┆iption(desc.con_proc_name); 3 ┆
0xc540…c560 20 31 31 34 38 20 20 20 69 66 20 70 64 61 3e 30 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 34 20 ┆ 1148 if pda>0 then begin 4 ┆
0xc560…c580 20 31 31 34 39 20 20 20 20 20 72 65 73 3a 3d 30 3b 0a 20 20 34 20 20 31 31 35 30 20 20 20 20 20 ┆ 1149 res:=0; 4 1150 ┆
0xc580…c5a0 63 74 3a 3d 2d 63 74 5f 73 69 7a 65 3b 0a 20 20 34 20 20 31 31 35 31 20 20 20 20 20 72 65 70 65 ┆ct:=-ct_size; 4 1151 repe┆
0xc5a0…c5c0 61 74 20 63 6e 3a 3d 63 6e 2b 31 3b 0a 20 20 34 20 20 31 31 35 32 20 20 20 20 20 63 74 3a 3d 63 ┆at cn:=cn+1; 4 1152 ct:=c┆
0xc5c0…c5e0 74 2b 63 74 73 69 7a 65 3b 0a 20 20 34 20 20 31 31 35 33 20 20 20 20 20 75 6e 74 69 6c 20 63 6e ┆t+ctsize; 4 1153 until cn┆
0xc5e0…c600 3e 6d 61 78 63 68 69 6c 64 72 65 6e 20 6f 72 20 70 64 61 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 ┆>maxchildren or pda=childtable.c┆
0xc600…c620 (22,) 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a 20 20 34 20 20 31 31 35 34 20 20 20 20 20 69 66 20 ┆t.ct_childpda; 4 1154 if ┆
0xc620…c640 63 6e 3e 6d 61 78 63 68 69 6c 64 72 65 6e 20 74 68 65 6e 20 72 65 73 3a 3d 31 20 65 6c 73 65 0a ┆cn>maxchildren then res:=1 else ┆
0xc640…c660 20 20 34 20 20 31 31 35 35 20 20 20 20 20 69 66 20 28 64 65 73 63 2e 63 6f 6e 74 65 72 6d 70 64 ┆ 4 1155 if (desc.contermpd┆
0xc660…c680 61 3c 3e 73 79 73 63 6f 6e 70 64 61 20 61 6e 64 0a 20 20 34 20 20 31 31 35 36 20 20 20 20 20 20 ┆a<>sysconpda and 4 1156 ┆
0xc680…c6a0 20 20 64 65 73 63 2e 63 6f 6e 74 65 72 6d 70 64 61 3c 3e 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 ┆ desc.contermpda<>childtable.ct┆
0xc6a0…c6c0 2e 63 74 5f 74 65 72 6d 70 64 61 29 20 6f 72 0a 20 20 34 20 20 31 31 35 37 20 20 20 20 20 20 20 ┆.ct_termpda) or 4 1157 ┆
0xc6c0…c6e0 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 63 68 3e 30 20 74 68 65 6e 20 72 ┆ childtable.ct.ctbatch>0 then r┆
0xc6e0…c700 65 73 3a 3d 32 3b 0a 20 20 34 20 20 31 31 35 38 20 20 20 65 6e 64 20 70 64 61 3e 30 3b 0a 20 20 ┆es:=2; 4 1158 end pda>0; ┆
0xc700…c720 33 20 20 31 31 35 39 20 63 68 65 63 6b 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 31 ┆3 1159 checkchild:=res; 3 11┆
0xc720…c740 36 30 20 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3a 3d 69 66 20 72 65 73 3d 30 20 74 68 ┆60 desc.concurchild:=if res=0 th┆
0xc740…c760 65 6e 20 63 6e 20 65 6c 73 65 20 30 3b 3b 0a 20 20 33 20 20 31 31 36 31 20 64 65 73 63 2e 63 6f ┆en cn else 0;; 3 1161 desc.co┆
0xc760…c780 6e 63 75 72 63 68 69 6c 64 70 64 61 3a 3d 69 66 20 72 65 73 3d 30 20 74 68 65 6e 20 70 64 61 20 ┆ncurchildpda:=if res=0 then pda ┆
0xc780…c7a0 65 6c 73 65 20 30 3b 0a 20 20 33 20 20 31 31 36 32 20 69 66 20 72 65 73 3e 30 20 61 6e 64 20 65 ┆else 0; 3 1162 if res>0 and e┆
0xc7a0…c7c0 72 72 6f 72 20 74 68 65 6e 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 72 65 73 20 ┆rror then writeerror(z,case res ┆
0xc7c0…c7e0 6f 66 20 28 65 72 72 6f 72 70 72 6f 63 65 73 73 75 6e 6b 6e 6f 77 6e 2c 0a 20 20 33 20 20 31 31 ┆of (errorprocessunknown, 3 11┆
0xc7e0…c800 36 33 20 20 20 20 20 20 65 72 72 6f 72 6e 6f 74 61 6c 6c 6f 77 65 64 29 2c 64 65 73 63 29 3b 0a ┆63 errornotallowed),desc); ┆
0xc800…c820 20 20 33 20 20 31 31 36 34 20 65 6e 64 20 63 68 65 63 6b 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 ┆ 3 1164 end checkchild; 2 1┆
0xc820…c840 31 36 35 20 0a 20 20 32 20 20 31 31 36 35 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 ┆165 2 1165 integer procedure┆
0xc840…c860 20 6c 6f 61 64 5f 61 6e 64 5f 6d 6f 64 69 66 79 28 64 65 73 63 2c 7a 2c 6d 6f 64 65 29 3b 0a 20 ┆ load_and_modify(desc,z,mode); ┆
0xc860…c880 20 32 20 20 31 31 36 36 20 76 61 6c 75 65 20 6d 6f 64 65 3b 20 62 6f 6f 6c 65 61 6e 20 6d 6f 64 ┆ 2 1166 value mode; boolean mod┆
0xc880…c8a0 65 3b 0a 20 20 32 20 20 31 31 36 37 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b ┆e; 2 1167 integer array desc;┆
0xc8a0…c8c0 0a 20 20 32 20 20 31 31 36 38 20 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 31 31 36 39 20 62 65 67 ┆ 2 1168 zone z; 2 1169 beg┆
0xc8c0…c8e0 69 6e 0a 20 20 33 20 20 31 31 37 30 20 69 6e 74 65 67 65 72 20 72 65 73 2c 72 65 70 2c 70 72 6f ┆in 3 1170 integer res,rep,pro┆
0xc8e0…c900 67 65 78 74 2c 62 61 73 65 3b 0a 20 20 33 20 20 31 31 37 31 20 69 6e 74 65 67 65 72 20 61 72 72 ┆gext,base; 3 1171 integer arr┆
0xc900…c920 61 79 20 66 69 65 6c 64 20 63 68 69 6c 64 70 64 61 2c 63 74 3b 0a 20 20 33 20 20 31 31 37 32 20 ┆ay field childpda,ct; 3 1172 ┆
0xc920…c940 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 4d 2c 41 28 31 3a 38 29 2c 70 61 72 61 6d 28 31 3a 36 ┆integer array M,A(1:8),param(1:6┆
0xc940…c960 29 3b 0a 20 20 33 20 20 31 31 37 33 20 6c 6f 6e 67 20 61 72 72 61 79 20 62 73 6e 61 6d 65 28 31 ┆); 3 1173 long array bsname(1┆
0xc960…c980 3a 33 29 3b 0a 20 20 33 20 20 31 31 37 34 20 0a 20 20 33 20 20 31 31 37 34 20 70 72 6f 63 65 64 ┆:3); 3 1174 3 1174 proced┆
0xc980…c9a0 75 72 65 20 73 65 74 5f 69 6e 5f 6f 75 74 28 6e 61 6d 65 2c 70 72 6f 63 29 3b 0a 20 20 33 20 20 ┆ure set_in_out(name,proc); 3 ┆
0xc9a0…c9c0 31 31 37 35 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6e 61 6d 65 3b 0a 20 20 33 20 ┆1175 long array field name; 3 ┆
0xc9c0…c9e0 20 31 31 37 36 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 70 72 6f 63 3b 0a 20 20 33 20 20 31 ┆ 1176 integer field proc; 3 1┆
0xc9e0…ca00 31 37 37 20 69 66 20 64 65 73 63 2e 6e 61 6d 65 28 31 29 3c 3e 30 20 6f 72 20 64 65 73 63 2e 6e ┆177 if desc.name(1)<>0 or desc.n┆
0xca00…ca20 61 6d 65 28 32 29 3c 3e 30 20 74 68 65 6e 0a 20 20 33 20 20 31 31 37 38 20 62 65 67 69 6e 0a 20 ┆ame(2)<>0 then 3 1178 begin ┆
0xca20…ca40 20 34 20 20 31 31 37 39 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 64 61 ┆ 4 1179 integer array field pda┆
0xca40…ca60 3b 0a 20 20 34 20 20 31 31 38 30 20 20 20 64 65 73 63 2e 70 72 6f 63 3a 3d 70 64 61 3a 3d 70 72 ┆; 4 1180 desc.proc:=pda:=pr┆
0xca60…ca80 6f 63 65 73 73 64 65 73 63 72 69 70 74 69 6f 6e 28 64 65 73 63 2e 6e 61 6d 65 29 3b 0a 20 20 34 ┆ocessdescription(desc.name); 4┆
0xca80…caa0 20 20 31 31 38 31 20 20 20 69 66 20 70 64 61 3d 30 20 74 68 65 6e 0a 20 20 34 20 20 31 31 38 32 ┆ 1181 if pda=0 then 4 1182┆
0xcaa0…cac0 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 31 38 33 20 20 20 20 20 73 65 74 5f 62 61 73 65 28 ┆ begin 5 1183 set_base(┆
0xcac0…cae0 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 2c 64 65 73 63 2e 63 6f 6e 75 70 70 65 72 75 ┆desc.conloweruser,desc.conupperu┆
0xcae0…cb00 73 65 72 29 3b 0a 20 20 35 20 20 31 31 38 34 20 20 20 20 20 72 65 73 3a 3d 63 72 65 61 74 65 61 ┆ser); 5 1184 res:=createa┆
0xcb00…cb20 72 65 61 70 72 6f 63 65 73 73 28 64 65 73 63 2e 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 31 38 35 ┆reaprocess(desc.name); 5 1185┆
0xcb20…cb40 20 20 20 20 20 69 66 20 72 65 73 3c 3e 30 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 ┆ if res<>0 then write(z,"nl"┆
0xcb40…cb60 2c 31 2c 3c 3a 2a 2a 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 3a 3e 2c 0a 20 ┆,1,<:**create area process :>, ┆
0xcb60…cb80 20 35 20 20 31 31 38 36 20 20 20 20 20 20 20 20 20 64 65 73 63 2e 6e 61 6d 65 2c 72 65 73 29 3b ┆ 5 1186 desc.name,res);┆
0xcb80…cba0 0a 20 20 35 20 20 31 31 38 37 20 20 20 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 64 65 73 63 72 ┆ 5 1187 pda:=processdescr┆
0xcba0…cbc0 69 70 74 69 6f 6e 28 64 65 73 63 2e 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 31 38 38 20 20 20 20 ┆iption(desc.name); 5 1188 ┆
0xcbc0…cbe0 20 69 66 20 70 64 61 3d 30 20 74 68 65 6e 20 64 65 73 63 2e 70 72 6f 63 3a 3d 64 65 73 63 2e 63 ┆ if pda=0 then desc.proc:=desc.c┆
0xcbe0…cc00 6f 6e 74 65 72 6d 70 64 61 20 65 6c 73 65 0a 20 20 35 20 20 31 31 38 39 20 20 20 20 20 64 65 73 ┆ontermpda else 5 1189 des┆
0xcc00…cc20 63 2e 70 72 6f 63 3a 3d 70 64 61 3b 0a 20 20 35 20 20 31 31 39 30 20 20 20 20 20 72 65 73 65 74 ┆c.proc:=pda; 5 1190 reset┆
0xcc20…cc40 5f 62 61 73 65 3b 0a 20 20 35 20 20 31 31 39 31 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 31 31 39 ┆_base; 5 1191 end; 4 119┆
0xcc40…cc60 32 20 65 6e 64 20 73 65 74 20 69 6e 20 6f 75 74 3b 0a 20 20 33 20 20 31 31 39 33 20 0a 20 20 33 ┆2 end set in out; 3 1193 3┆
0xcc60…cc80 20 20 31 31 39 33 20 63 68 69 6c 64 70 64 61 3a 3d 70 72 6f 63 65 73 73 64 65 73 63 72 69 70 74 ┆ 1193 childpda:=processdescript┆
0xcc80…cca0 69 6f 6e 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 33 20 20 31 31 39 34 ┆ion(desc.conprocname); 3 1194┆
0xcca0…ccc0 20 6c 6f 61 64 5f 61 6e 64 5f 6d 6f 64 69 66 79 3a 3d 31 3b 0a 20 20 33 20 20 31 31 39 35 20 3c ┆ load_and_modify:=1; 3 1195 <┆
0xccc0…cce0 2a 2b 32 2a 3e 0a 20 20 33 20 20 31 31 39 36 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 ┆*+2*> 3 1196 if testop(2) the┆
0xcce0…cd00 6e 20 64 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 6c 6f 61 64 20 ┆n disable write(z,"nl",1,<:load ┆
0xcd00…cd20 61 6e 64 20 6d 6f 64 69 66 79 3a 3e 2c 0a 20 20 33 20 20 31 31 39 37 20 20 20 20 20 22 6e 6c 22 ┆and modify:>, 3 1197 "nl"┆
0xcd20…cd40 2c 31 2c 3c 3a 63 68 69 6c 64 20 70 64 61 20 3a 3e 2c 63 68 69 6c 64 70 64 61 29 3b 0a 20 20 33 ┆,1,<:child pda :>,childpda); 3┆
0xcd40…cd60 20 20 31 31 39 38 20 3c 2a 2d 32 2a 3e 0a 20 20 33 20 20 31 31 39 39 20 69 66 20 63 68 69 6c 64 ┆ 1198 <*-2*> 3 1199 if child┆
0xcd60…cd80 70 64 61 3e 30 20 61 6e 64 20 77 6f 72 64 6c 6f 61 64 28 63 68 69 6c 64 70 64 61 29 3d 30 20 74 ┆pda>0 and wordload(childpda)=0 t┆
0xcd80…cda0 68 65 6e 0a 20 20 33 20 20 31 32 30 30 20 62 65 67 69 6e 0a 20 20 34 20 20 31 32 30 31 20 20 20 ┆hen 3 1200 begin 4 1201 ┆
0xcda0…cdc0 73 65 74 62 61 73 65 28 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 2c 64 65 73 63 2e 63 ┆setbase(desc.conloweruser,desc.c┆
0xcdc0…cde0 6f 6e 75 70 70 65 72 75 73 65 72 29 3b 0a 20 20 34 20 20 31 32 30 32 20 20 20 72 65 73 3a 3d 6c ┆onupperuser); 4 1202 res:=l┆
0xcde0…ce00 6f 6f 6b 75 70 65 6e 74 72 79 28 64 65 73 63 2e 63 6f 6e 70 72 6f 67 72 61 6d 2c 74 61 69 6c 29 ┆ookupentry(desc.conprogram,tail)┆
0xce00…ce20 3b 0a 20 20 34 20 20 31 32 30 33 20 3c 2a 2b 32 2a 3e 0a 20 20 34 20 20 31 32 30 34 20 20 20 69 ┆; 4 1203 <*+2*> 4 1204 i┆
0xce20…ce40 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a ┆f testop(2) then disable write(z┆
0xce40…ce60 2c 22 6e 6c 22 2c 31 2c 0a 20 20 34 20 20 31 32 30 35 20 20 20 20 20 20 3c 3a 70 72 6f 67 72 61 ┆,"nl",1, 4 1205 <:progra┆
0xce60…ce80 6d 20 3a 3e 2c 64 65 73 63 2e 63 6f 6e 70 72 6f 67 72 61 6d 2c 3c 3a 20 6c 6f 6f 6b 75 70 20 72 ┆m :>,desc.conprogram,<: lookup r┆
0xce80…cea0 65 73 75 6c 74 20 3a 3e 2c 72 65 73 29 3b 0a 20 20 34 20 20 31 32 30 36 20 3c 2a 2d 32 2a 3e 0a ┆esult :>,res); 4 1206 <*-2*> ┆
0xcea0…cec0 20 20 34 20 20 31 32 30 37 20 20 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e 20 0a 20 20 34 20 20 ┆ 4 1207 if res>0 then 4 ┆
0xcec0…cee0 31 32 30 38 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 32 30 39 20 20 20 20 20 77 72 69 74 65 ┆1208 begin 5 1209 write┆
0xcee0…cf00 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 72 65 73 20 6f 66 20 28 0a 20 20 35 20 20 31 32 31 30 20 ┆error(z,case res of ( 5 1210 ┆
0xcf00…cf20 (23,) 20 20 20 20 20 20 30 2c 65 72 72 6f 72 63 61 74 61 6c 6f 67 65 72 72 6f 72 2c 65 72 72 6f 72 61 ┆ 0,errorcatalogerror,errora┆
0xcf20…cf40 72 65 61 75 6e 6b 6e 6f 77 6e 29 2c 64 65 73 63 29 3b 0a 20 20 35 20 20 31 32 31 31 20 20 20 72 ┆reaunknown),desc); 5 1211 r┆
0xcf40…cf60 65 73 3a 3d 72 65 73 2b 32 34 3b 0a 20 20 35 20 20 31 32 31 32 20 20 20 65 6e 64 20 65 6c 73 65 ┆es:=res+24; 5 1212 end else┆
0xcf60…cf80 0a 20 20 34 20 20 31 32 31 33 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 32 31 34 20 20 20 20 ┆ 4 1213 begin 5 1214 ┆
0xcf80…cfa0 20 63 74 3a 3d 28 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 2d 31 29 2a 63 74 5f 73 69 7a ┆ ct:=(desc.concurchild-1)*ct_siz┆
0xcfa0…cfc0 65 3b 0a 20 20 35 20 20 31 32 31 35 20 20 20 20 20 62 61 73 65 3a 3d 63 6f 72 65 2e 63 68 69 6c ┆e; 5 1215 base:=core.chil┆
0xcfc0…cfe0 64 70 64 61 28 35 30 29 3b 0a 20 20 35 20 20 31 32 31 36 20 20 20 20 20 73 65 74 69 6e 6f 75 74 ┆dpda(50); 5 1216 setinout┆
0xcfe0…d000 28 63 6f 6e 69 6e 6e 61 6d 65 2c 63 6f 6e 70 72 6f 63 69 6e 29 3b 0a 20 20 35 20 20 31 32 31 37 ┆(coninname,conprocin); 5 1217┆
0xd000…d020 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 70 72 6f 63 69 6e 3a 3d 0a 20 ┆ childtable.ct.ct_procin:= ┆
0xd020…d040 20 35 20 20 31 32 31 38 20 20 20 20 20 70 61 72 61 6d 28 31 29 3a 3d 64 65 73 63 2e 63 6f 6e 5f ┆ 5 1218 param(1):=desc.con_┆
0xd040…d060 70 72 6f 63 5f 69 6e 3b 0a 20 20 35 20 20 31 32 31 39 20 20 20 20 20 70 61 72 61 6d 28 32 29 3a ┆proc_in; 5 1219 param(2):┆
0xd060…d080 3d 6f 77 6e 70 64 61 3b 0a 20 20 35 20 20 31 32 32 30 20 20 20 20 20 73 65 74 69 6e 6f 75 74 28 ┆=ownpda; 5 1220 setinout(┆
0xd080…d0a0 63 6f 6e 6f 75 74 6e 61 6d 65 2c 63 6f 6e 70 72 6f 63 6f 75 74 29 3b 0a 20 20 35 20 20 31 32 32 ┆conoutname,conprocout); 5 122┆
0xd0a0…d0c0 31 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 70 72 6f 63 6f 75 74 3a 3d ┆1 childtable.ct.ct_procout:=┆
0xd0c0…d0e0 0a 20 20 35 20 20 31 32 32 32 20 20 20 20 20 70 61 72 61 6d 28 33 29 3a 3d 64 65 73 63 2e 63 6f ┆ 5 1222 param(3):=desc.co┆
0xd0e0…d100 6e 5f 70 72 6f 63 5f 6f 75 74 3b 0a 20 20 35 20 20 31 32 32 33 20 20 20 20 20 70 61 72 61 6d 28 ┆n_proc_out; 5 1223 param(┆
0xd100…d120 34 29 3a 3d 63 68 69 6c 64 70 64 61 3b 0a 20 20 35 20 20 31 32 32 34 20 20 20 20 20 70 61 72 61 ┆4):=childpda; 5 1224 para┆
0xd120…d140 6d 28 35 29 3a 3d 30 3b 0a 20 20 35 20 20 31 32 32 35 20 20 20 20 20 70 61 72 61 6d 28 36 29 3a ┆m(5):=0; 5 1225 param(6):┆
0xd140…d160 3d 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 2d 62 61 73 65 0a 20 20 35 20 20 ┆=desc.confirstaddress-base 5 ┆
0xd160…d180 31 32 32 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 74 61 69 6c 28 39 29 20 65 78 74 72 61 ┆1226 +tail(9) extra┆
0xd180…d1a0 63 74 20 31 32 3b 0a 20 20 35 20 20 31 32 32 37 20 20 20 20 20 69 66 20 74 61 69 6c 28 39 29 20 ┆ct 12; 5 1227 if tail(9) ┆
0xd1a0…d1c0 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3c 3e 33 20 74 68 65 6e 0a 20 ┆shift (-12) extract 12<>3 then ┆
0xd1c0…d1e0 20 35 20 20 31 32 32 38 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 32 32 39 20 20 20 20 ┆ 5 1228 begin 6 1229 ┆
0xd1e0…d200 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 61 72 65 61 65 72 72 6f 72 2c 64 ┆ writeerror(z,errorareaerror,d┆
0xd200…d220 65 73 63 29 3b 0a 20 20 36 20 20 31 32 33 30 20 20 20 20 20 20 20 72 65 73 3a 3d 32 35 3b 0a 20 ┆esc); 6 1230 res:=25; ┆
0xd220…d240 20 36 20 20 31 32 33 31 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 32 33 32 20 ┆ 6 1231 end else 5 1232 ┆
0xd240…d260 20 20 20 20 69 66 20 74 61 69 6c 28 31 29 3c 3d 30 20 74 68 65 6e 0a 20 20 35 20 20 31 32 33 33 ┆ if tail(1)<=0 then 5 1233┆
0xd260…d280 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 32 33 34 20 20 20 20 20 20 20 77 72 69 74 65 ┆ begin 6 1234 write┆
0xd280…d2a0 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 61 72 65 61 65 72 72 6f 72 2c 64 65 73 63 29 3b 0a 20 20 ┆error(z,errorareaerror,desc); ┆
0xd2a0…d2c0 36 20 20 31 32 33 35 20 20 20 20 20 20 20 72 65 73 3a 3d 32 36 3b 0a 20 20 36 20 20 31 32 33 36 ┆6 1235 res:=26; 6 1236┆
0xd2c0…d2e0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 32 33 37 20 20 20 20 20 69 66 20 74 ┆ end else 5 1237 if t┆
0xd2e0…d300 61 69 6c 28 31 30 29 3e 64 65 73 63 2e 63 6f 6e 74 6f 70 61 64 64 72 65 73 73 2d 64 65 73 63 2e ┆ail(10)>desc.contopaddress-desc.┆
0xd300…d320 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 20 74 68 65 6e 0a 20 20 35 20 20 31 32 33 38 20 20 ┆confirstaddress then 5 1238 ┆
0xd320…d340 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 32 33 39 20 20 20 20 20 20 20 72 65 73 3a 3d 32 37 ┆ begin 6 1239 res:=27┆
0xd340…d360 3b 0a 20 20 36 20 20 31 32 34 30 20 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 ┆; 6 1240 writeerror(z,e┆
0xd360…d380 72 72 6f 72 70 72 6f 67 72 61 6d 74 6f 6f 62 69 67 2c 64 65 73 63 29 3b 0a 20 20 36 20 20 31 32 ┆rrorprogramtoobig,desc); 6 12┆
0xd380…d3a0 34 31 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 32 34 32 20 20 20 20 20 62 65 ┆41 end else 5 1242 be┆
0xd3a0…d3c0 67 69 6e 0a 20 20 36 20 20 31 32 34 33 20 20 20 20 20 20 4d 28 31 29 3a 3d 33 20 73 68 69 66 74 ┆gin 6 1243 M(1):=3 shift┆
0xd3c0…d3e0 20 31 32 3b 0a 20 20 36 20 20 31 32 34 34 20 20 20 20 20 20 4d 28 32 29 3a 3d 64 65 73 63 2e 63 ┆ 12; 6 1244 M(2):=desc.c┆
0xd3e0…d400 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 3b 0a 20 20 36 20 20 31 32 34 35 20 20 20 20 20 20 4d ┆onfirstaddress; 6 1245 M┆
0xd400…d420 28 33 29 3a 3d 4d 28 32 29 2b 74 61 69 6c 28 31 30 29 2d 32 3b 0a 20 20 36 20 20 31 32 34 36 20 ┆(3):=M(2)+tail(10)-2; 6 1246 ┆
0xd420…d440 20 20 20 20 20 4d 28 34 29 3a 3d 30 3b 0a 20 20 36 20 20 31 32 34 37 20 20 20 20 20 20 66 6f 72 ┆ M(4):=0; 6 1247 for┆
0xd440…d460 20 69 3a 3d 31 2c 32 20 64 6f 20 62 73 6e 61 6d 65 28 69 29 3a 3d 64 65 73 63 2e 63 6f 6e 70 72 ┆ i:=1,2 do bsname(i):=desc.conpr┆
0xd460…d480 6f 67 72 61 6d 28 69 29 3b 0a 20 20 36 20 20 31 32 34 38 20 20 20 20 20 20 63 72 65 61 74 65 61 ┆ogram(i); 6 1248 createa┆
0xd480…d4a0 72 65 61 70 72 6f 63 65 73 73 28 64 65 73 63 2e 63 6f 6e 70 72 6f 67 72 61 6d 29 3b 0a 20 20 36 ┆reaprocess(desc.conprogram); 6┆
0xd4a0…d4c0 20 20 31 32 34 39 20 20 20 20 20 20 72 65 70 3a 3d 30 3b 0a 20 20 36 20 20 31 32 35 30 20 20 20 ┆ 1249 rep:=0; 6 1250 ┆
0xd4c0…d4e0 20 20 20 72 65 70 65 61 74 20 72 65 70 3a 3d 72 65 70 2b 31 3b 0a 20 20 36 20 20 31 32 35 31 20 ┆ repeat rep:=rep+1; 6 1251 ┆
0xd4e0…d500 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 20 74 68 65 6e 0a 20 20 36 20 20 31 32 35 32 20 20 20 ┆ if mode then 6 1252 ┆
0xd500…d520 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 35 33 20 20 20 20 20 20 20 20 20 20 72 65 ┆ begin 7 1253 re┆
0xd520…d540 73 3a 3d 77 61 69 74 61 6e 73 77 65 72 28 73 65 6e 64 6d 65 73 73 61 67 65 28 62 73 6e 61 6d 65 ┆s:=waitanswer(sendmessage(bsname┆
0xd540…d560 2c 4d 29 2c 41 29 3b 0a 20 20 37 20 20 31 32 35 34 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 ┆,M),A); 7 1254 end els┆
0xd560…d580 65 0a 20 20 36 20 20 31 32 35 35 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 ┆e 6 1255 begin 7 12┆
0xd580…d5a0 35 36 20 20 20 20 20 20 20 20 63 73 65 6e 64 6d 65 73 73 61 67 65 28 62 73 6e 61 6d 65 2e 66 2c ┆56 csendmessage(bsname.f,┆
0xd5a0…d5c0 4d 2c 70 72 6f 67 65 78 74 29 3b 0a 20 20 37 20 20 31 32 35 37 20 20 20 20 20 20 20 20 63 77 61 ┆M,progext); 7 1257 cwa┆
0xd5c0…d5e0 69 74 61 6e 73 77 65 72 28 70 72 6f 67 65 78 74 2c 41 2c 72 65 73 2c 30 29 3b 0a 20 20 37 20 20 ┆itanswer(progext,A,res,0); 7 ┆
0xd5e0…d600 31 32 35 38 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 32 35 39 20 20 20 20 20 20 ┆1258 end; 6 1259 ┆
0xd600…d620 20 75 6e 74 69 6c 20 72 65 73 3c 3e 31 20 6f 72 20 28 41 28 31 29 3d 30 20 61 6e 64 20 41 28 32 ┆ until res<>1 or (A(1)=0 and A(2┆
0xd620…d640 29 3d 74 61 69 6c 28 31 30 29 29 20 6f 72 20 72 65 70 3d 31 30 3b 0a 20 20 36 20 20 31 32 36 30 ┆)=tail(10)) or rep=10; 6 1260┆
0xd640…d660 20 20 20 20 20 20 20 69 66 20 72 65 73 3d 31 20 61 6e 64 20 72 65 70 3d 31 30 20 74 68 65 6e 0a ┆ if res=1 and rep=10 then ┆
0xd660…d680 20 20 36 20 20 31 32 36 31 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 36 32 20 ┆ 6 1261 begin 7 1262 ┆
0xd680…d6a0 20 20 20 20 20 20 20 20 72 65 73 3a 3d 32 34 2b 35 3b 0a 20 20 37 20 20 31 32 36 33 20 20 20 20 ┆ res:=24+5; 7 1263 ┆
0xd6a0…d6c0 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 61 72 65 61 65 72 72 6f 72 ┆ writeerror(z,errorareaerror┆
0xd6c0…d6e0 2c 64 65 73 63 29 3b 0a 20 20 37 20 20 31 32 36 34 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 ┆,desc); 7 1264 end else┆
0xd6e0…d700 0a 20 20 36 20 20 31 32 36 35 20 20 20 20 20 20 20 69 66 20 72 65 73 3e 31 20 74 68 65 6e 20 0a ┆ 6 1265 if res>1 then ┆
0xd700…d720 20 20 36 20 20 31 32 36 36 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 36 37 20 ┆ 6 1266 begin 7 1267 ┆
0xd720…d740 20 20 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 72 65 73 20 6f 66 ┆ writeerror(z,case res of┆
0xd740…d760 28 30 2c 65 72 72 6f 72 61 72 65 61 72 65 73 65 72 76 65 64 2c 0a 20 20 37 20 20 31 32 36 38 20 ┆(0,errorareareserved, 7 1268 ┆
0xd760…d780 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 72 65 73 75 6c 74 69 6d 70 6f 73 73 69 62 6c 65 2c ┆ errorresultimpossible,┆
0xd780…d7a0 65 72 72 6f 72 61 72 65 61 75 6e 6b 6e 6f 77 6e 29 2c 64 65 73 63 29 3b 0a 20 20 37 20 20 31 32 ┆errorareaunknown),desc); 7 12┆
0xd7a0…d7c0 36 39 20 20 20 20 20 20 20 20 20 72 65 73 3a 3d 72 65 73 2b 33 32 3b 0a 20 20 37 20 20 31 32 37 ┆69 res:=res+32; 7 127┆
0xd7c0…d7e0 30 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 36 20 20 31 32 37 31 20 20 20 20 20 20 ┆0 end else 6 1271 ┆
0xd7e0…d800 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 37 32 20 20 20 20 20 20 20 20 20 72 65 73 3a 3d 6d 6f ┆ begin 7 1272 res:=mo┆
0xd800…d820 (24,) 64 69 66 79 69 6e 74 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 6d 65 2c 70 61 72 61 6d 29 3b ┆difyint(desc.conprocname,param);┆
0xd820…d840 0a 20 20 37 20 20 31 32 37 33 20 20 20 20 20 20 20 20 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e ┆ 7 1273 if res>0 then┆
0xd840…d860 0a 20 20 37 20 20 31 32 37 34 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 38 20 20 31 32 ┆ 7 1274 begin 8 12┆
0xd860…d880 37 35 20 3c 2a 2b 32 2a 3e 0a 20 20 38 20 20 31 32 37 36 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆75 <*+2*> 8 1276 if┆
0xd880…d8a0 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c ┆ testop(2) then write(z,"nl",1,<┆
0xd8a0…d8c0 3a 6d 6f 64 69 66 79 3a 20 3a 3e 2c 72 65 73 2c 0a 20 20 38 20 20 31 32 37 37 20 20 20 20 20 20 ┆:modify: :>,res, 8 1277 ┆
0xd8c0…d8e0 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 69 6e 20 20 20 20 3a 3e 2c 70 61 72 61 6d 28 31 29 ┆ "nl",1,<:in :>,param(1)┆
0xd8e0…d900 2c 0a 20 20 38 20 20 31 32 37 38 20 20 20 20 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a ┆, 8 1278 "nl",1,<:┆
0xd900…d920 70 61 72 65 6e 74 3a 3e 2c 70 61 72 61 6d 28 32 29 2c 0a 20 20 38 20 20 31 32 37 39 20 20 20 20 ┆parent:>,param(2), 8 1279 ┆
0xd920…d940 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 6f 75 74 20 20 20 3a 3e 2c 70 61 72 61 6d 28 ┆ "nl",1,<:out :>,param(┆
0xd940…d960 33 29 2c 0a 20 20 38 20 20 31 32 38 30 20 20 20 20 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c ┆3), 8 1280 "nl",1,┆
0xd960…d980 3c 3a 6f 77 6e 20 20 20 3a 3e 2c 70 61 72 61 6d 28 34 29 2c 0a 20 20 38 20 20 31 32 38 31 20 20 ┆<:own :>,param(4), 8 1281 ┆
0xd980…d9a0 20 20 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 49 43 20 20 20 20 3a 3e 2c 70 61 72 61 ┆ "nl",1,<:IC :>,para┆
0xd9a0…d9c0 6d 28 36 29 29 3b 0a 20 20 38 20 20 31 32 38 32 20 3c 2a 2d 32 2a 3e 0a 20 20 38 20 20 31 32 38 ┆m(6)); 8 1282 <*-2*> 8 128┆
0xd9c0…d9e0 33 20 20 20 20 20 20 20 20 20 20 20 72 65 73 3a 3d 32 34 2b 72 65 73 3b 0a 20 20 38 20 20 31 32 ┆3 res:=24+res; 8 12┆
0xd9e0…da00 38 34 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 72 ┆84 writeerror(z,errorr┆
0xda00…da20 65 73 75 6c 74 69 6d 70 6f 73 73 69 62 6c 65 2c 64 65 73 63 29 3b 0a 20 20 38 20 20 31 32 38 35 ┆esultimpossible,desc); 8 1285┆
0xda20…da40 20 20 20 20 20 20 20 20 20 65 6e 64 20 6d 6f 64 69 66 79 3e 30 20 65 6c 73 65 0a 20 20 37 20 20 ┆ end modify>0 else 7 ┆
0xda40…da60 31 32 38 36 20 20 20 20 20 20 69 66 20 62 61 73 65 3d 30 20 74 68 65 6e 0a 20 20 37 20 20 31 32 ┆1286 if base=0 then 7 12┆
0xda60…da80 38 37 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 38 20 20 31 32 38 38 20 20 20 20 20 20 20 20 72 ┆87 begin 8 1288 r┆
0xda80…daa0 65 73 3a 3d 63 68 61 6e 67 65 61 64 64 72 65 73 73 62 61 73 65 28 64 65 73 63 2e 63 6f 6e 70 72 ┆es:=changeaddressbase(desc.conpr┆
0xdaa0…dac0 6f 63 6e 61 6d 65 2c 0a 20 20 38 20 20 31 32 38 39 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 ┆ocname, 8 1289 des┆
0xdac0…dae0 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 2d 63 68 69 6c 64 62 61 73 65 61 64 64 72 65 ┆c.confirstaddress-childbaseaddre┆
0xdae0…db00 73 73 29 3b 0a 20 20 38 20 20 31 32 39 30 20 20 20 20 20 20 20 20 69 66 20 72 65 73 3c 3e 30 20 ┆ss); 8 1290 if res<>0 ┆
0xdb00…db20 6f 72 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 ┆or testop(2) then write(z,"nl",1┆
0xdb20…db40 2c 3c 3a 63 68 61 6e 67 65 20 61 64 64 72 65 73 73 20 3a 3e 2c 72 65 73 2c 0a 20 20 38 20 20 31 ┆,<:change address :>,res, 8 1┆
0xdb40…db60 32 39 31 20 20 20 20 20 20 20 20 20 20 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 ┆291 desc.confirstaddres┆
0xdb60…db80 73 2c 63 68 69 6c 64 62 61 73 65 61 64 64 72 65 73 73 2c 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 ┆s,childbaseaddress,desc.confirst┆
0xdb80…dba0 61 64 64 72 65 73 73 2d 0a 20 20 38 20 20 31 32 39 32 20 20 20 20 20 20 20 20 20 20 63 68 69 6c ┆address- 8 1292 chil┆
0xdba0…dbc0 64 62 61 73 65 61 64 64 72 65 73 73 29 3b 0a 20 20 38 20 20 31 32 39 33 20 20 20 20 20 20 65 6e ┆dbaseaddress); 8 1293 en┆
0xdbc0…dbe0 64 20 62 61 73 65 3d 30 3b 0a 20 20 37 20 20 31 32 39 34 20 20 20 20 20 20 65 6e 64 20 70 72 6f ┆d base=0; 7 1294 end pro┆
0xdbe0…dc00 67 72 61 6d 20 69 6e 20 63 6f 72 65 3b 0a 20 20 36 20 20 31 32 39 35 20 20 20 20 20 65 6e 64 20 ┆gram in core; 6 1295 end ┆
0xdc00…dc20 74 61 69 6c 20 6f 6b 3b 0a 20 20 35 20 20 31 32 39 36 20 65 6e 64 20 6c 6f 6f 6b 75 70 3b 0a 20 ┆tail ok; 5 1296 end lookup; ┆
0xdc20…dc40 20 34 20 20 31 32 39 37 20 72 65 73 65 74 62 61 73 65 3b 0a 20 20 34 20 20 31 32 39 38 20 65 6e ┆ 4 1297 resetbase; 4 1298 en┆
0xdc40…dc60 64 20 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 33 20 20 31 32 39 39 20 6c 6f 61 64 61 6e 64 6d 6f 64 ┆d internal; 3 1299 loadandmod┆
0xdc60…dc80 69 66 79 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 33 30 30 20 65 6e 64 20 6c 6f 61 64 20 61 6e 64 ┆ify:=res; 3 1300 end load and┆
0xdc80…dca0 20 6d 6f 64 69 66 79 3b 0a 20 20 32 20 20 31 33 30 31 20 0a 20 20 32 20 20 31 33 30 31 20 69 6e ┆ modify; 2 1301 2 1301 in┆
0xdca0…dcc0 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 74 6f 70 5f 63 68 69 6c 64 28 64 65 73 63 29 ┆teger procedure stop_child(desc)┆
0xdcc0…dce0 3b 0a 20 20 32 20 20 31 33 30 32 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a ┆; 2 1302 integer array desc; ┆
0xdce0…dd00 20 20 32 20 20 31 33 30 33 20 62 65 67 69 6e 0a 20 20 33 20 20 31 33 30 34 20 69 6e 74 65 67 65 ┆ 2 1303 begin 3 1304 intege┆
0xdd00…dd20 72 20 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 31 33 30 35 20 69 6e 74 65 67 65 72 20 61 72 72 61 ┆r cn,res; 3 1305 integer arra┆
0xdd20…dd40 79 20 66 69 65 6c 64 20 63 74 2c 63 70 64 61 3b 0a 20 20 33 20 20 31 33 30 36 20 62 6f 6f 6c 65 ┆y field ct,cpda; 3 1306 boole┆
0xdd40…dd60 61 6e 20 73 74 61 74 65 3b 0a 20 20 33 20 20 31 33 30 37 20 72 65 73 3a 3d 32 3b 0a 20 20 33 20 ┆an state; 3 1307 res:=2; 3 ┆
0xdd60…dd80 20 31 33 30 38 20 63 6e 3a 3d 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 ┆ 1308 cn:=desc.concurchild; 3 ┆
0xdd80…dda0 20 31 33 30 39 20 69 66 20 63 6e 3e 30 20 74 68 65 6e 0a 20 20 33 20 20 31 33 31 30 20 62 65 67 ┆ 1309 if cn>0 then 3 1310 beg┆
0xdda0…ddc0 69 6e 0a 20 20 34 20 20 31 33 31 31 20 63 74 3a 3d 28 63 6e 2d 31 29 2a 63 74 73 69 7a 65 3b 0a ┆in 4 1311 ct:=(cn-1)*ctsize; ┆
0xddc0…dde0 20 20 34 20 20 31 33 31 32 20 20 20 63 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e ┆ 4 1312 cpda:=childtable.ct.┆
0xdde0…de00 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a 20 20 34 20 20 31 33 31 33 20 20 20 73 74 61 74 65 3a 3d ┆ct_childpda; 4 1313 state:=┆
0xde00…de20 63 6f 72 65 2e 63 70 64 61 2e 73 74 61 74 65 72 65 66 3b 0a 20 20 34 20 20 31 33 31 34 20 20 20 ┆core.cpda.stateref; 4 1314 ┆
0xde20…de40 73 74 61 74 65 3a 3d 28 73 74 61 74 65 20 61 6e 64 20 62 69 74 5f 73 74 61 72 74 29 20 65 78 74 ┆state:=(state and bit_start) ext┆
0xde40…de60 72 61 63 74 20 37 3d 30 3b 0a 20 20 34 20 20 31 33 31 35 20 20 20 69 66 20 73 74 61 74 65 20 74 ┆ract 7=0; 4 1315 if state t┆
0xde60…de80 68 65 6e 0a 20 20 34 20 20 31 33 31 36 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 33 31 37 20 ┆hen 4 1316 begin 5 1317 ┆
0xde80…dea0 20 20 20 20 72 65 73 3a 3d 73 74 6f 70 63 68 69 6c 64 3a 3d 73 74 6f 70 69 6e 74 28 64 65 73 63 ┆ res:=stopchild:=stopint(desc┆
0xdea0…dec0 2e 63 6f 6e 5f 70 72 6f 63 5f 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 33 31 38 20 20 20 20 20 69 ┆.con_proc_name); 5 1318 i┆
0xdec0…dee0 66 20 72 65 73 3d 30 20 74 68 65 6e 0a 20 20 35 20 20 31 33 31 39 20 20 20 20 20 62 65 67 69 6e ┆f res=0 then 5 1319 begin┆
0xdee0…df00 0a 20 20 36 20 20 31 33 32 30 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 ┆ 6 1320 childtable.ct.c┆
0xdf00…df20 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 73 74 6f 70 70 65 64 3b 0a 20 20 36 20 20 31 33 32 ┆t_state:=state_stopped; 6 132┆
0xdf20…df40 31 20 20 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 63 68 ┆1 if childtable.ct.ctbatch┆
0xdf40…df60 3e 30 20 74 68 65 6e 20 62 72 75 6e 63 68 69 6c 64 72 65 6e 3a 3d 62 72 75 6e 63 68 69 6c 64 72 ┆>0 then brunchildren:=brunchildr┆
0xdf60…df80 65 6e 2d 31 3b 0a 20 20 36 20 20 31 33 32 32 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 31 33 ┆en-1; 6 1322 end; 5 13┆
0xdf80…dfa0 32 33 20 20 20 65 6e 64 20 65 6c 73 65 20 0a 20 20 34 20 20 31 33 32 34 20 20 20 62 65 67 69 6e ┆23 end else 4 1324 begin┆
0xdfa0…dfc0 0a 20 20 35 20 20 31 33 32 35 20 20 20 20 20 72 65 73 3a 3d 30 3b 20 63 68 69 6c 64 74 61 62 6c ┆ 5 1325 res:=0; childtabl┆
0xdfc0…dfe0 65 2e 63 74 2e 63 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 73 74 6f 70 70 65 64 3b 0a 20 20 ┆e.ct.ct_state:=state_stopped; ┆
0xdfe0…e000 35 20 20 31 33 32 36 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 31 33 32 37 20 65 6e 64 20 63 6e 3e ┆5 1326 end; 4 1327 end cn>┆
0xe000…e020 30 3b 0a 20 20 33 20 20 31 33 32 38 20 73 74 6f 70 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 ┆0; 3 1328 stopchild:=res; 3┆
0xe020…e040 20 20 31 33 32 39 20 65 6e 64 20 73 74 6f 70 5f 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 33 33 30 ┆ 1329 end stop_child; 2 1330┆
0xe040…e060 20 0a 20 20 32 20 20 31 33 33 30 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 74 ┆ 2 1330 integer procedure st┆
0xe060…e080 61 72 74 63 68 69 6c 64 28 64 65 73 63 29 3b 0a 20 20 32 20 20 31 33 33 31 20 69 6e 74 65 67 65 ┆artchild(desc); 2 1331 intege┆
0xe080…e0a0 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 32 20 20 31 33 33 32 20 62 65 67 69 6e 0a 20 20 ┆r array desc; 2 1332 begin ┆
0xe0a0…e0c0 33 20 20 31 33 33 33 20 69 6e 74 65 67 65 72 20 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 31 33 33 ┆3 1333 integer cn,res; 3 133┆
0xe0c0…e0e0 34 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 63 74 2c 63 70 64 61 3b 0a 20 ┆4 integer array field ct,cpda; ┆
0xe0e0…e100 20 33 20 20 31 33 33 35 20 62 6f 6f 6c 65 61 6e 20 73 74 61 74 65 3b 0a 20 20 33 20 20 31 33 33 ┆ 3 1335 boolean state; 3 133┆
0xe100…e120 (25,) 36 20 72 65 73 3a 3d 32 3b 0a 20 20 33 20 20 31 33 33 37 20 63 6e 3a 3d 64 65 73 63 2e 63 6f 6e ┆6 res:=2; 3 1337 cn:=desc.con┆
0xe120…e140 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 20 31 33 33 38 20 69 66 20 63 6e 3e 30 20 74 68 65 6e ┆curchild; 3 1338 if cn>0 then┆
0xe140…e160 0a 20 20 33 20 20 31 33 33 39 20 62 65 67 69 6e 0a 20 20 34 20 20 31 33 34 30 20 20 20 63 74 3a ┆ 3 1339 begin 4 1340 ct:┆
0xe160…e180 3d 28 63 6e 2d 31 29 2a 63 74 5f 73 69 7a 65 3b 0a 20 20 34 20 20 31 33 34 31 20 20 20 20 20 63 ┆=(cn-1)*ct_size; 4 1341 c┆
0xe180…e1a0 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a ┆pda:=childtable.ct.ct_childpda; ┆
0xe1a0…e1c0 20 20 34 20 20 31 33 34 32 20 20 20 20 20 73 74 61 74 65 3a 3d 63 6f 72 65 2e 63 70 64 61 2e 73 ┆ 4 1342 state:=core.cpda.s┆
0xe1c0…e1e0 74 61 74 65 5f 72 65 66 3b 0a 20 20 34 20 20 31 33 34 33 20 20 20 20 20 73 74 61 74 65 3a 3d 28 ┆tate_ref; 4 1343 state:=(┆
0xe1e0…e200 73 74 61 74 65 20 61 6e 64 20 62 69 74 5f 73 74 61 72 74 29 20 65 78 74 72 61 63 74 20 37 20 3e ┆state and bit_start) extract 7 >┆
0xe200…e220 30 3b 0a 20 20 34 20 20 31 33 34 34 20 20 20 20 20 69 66 20 73 74 61 74 65 20 74 68 65 6e 0a 20 ┆0; 4 1344 if state then ┆
0xe220…e240 20 34 20 20 31 33 34 35 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 33 34 36 20 20 20 20 ┆ 4 1345 begin 5 1346 ┆
0xe240…e260 20 72 65 73 3a 3d 73 74 61 72 74 63 68 69 6c 64 3a 3d 73 74 61 72 74 69 6e 74 28 64 65 73 63 2e ┆ res:=startchild:=startint(desc.┆
0xe260…e280 63 6f 6e 5f 70 72 6f 63 5f 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 33 34 37 20 20 20 20 20 69 66 ┆con_proc_name); 5 1347 if┆
0xe280…e2a0 20 72 65 73 3d 30 20 74 68 65 6e 0a 20 20 35 20 20 31 33 34 38 20 20 20 20 20 62 65 67 69 6e 0a ┆ res=0 then 5 1348 begin ┆
0xe2a0…e2c0 20 20 36 20 20 31 33 34 39 20 20 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 ┆ 6 1349 if childtable.ct┆
0xe2c0…e2e0 2e 63 74 73 74 61 74 65 3c 3e 73 74 61 74 65 5f 62 72 65 61 6b 65 64 20 74 68 65 6e 20 0a 20 20 ┆.ctstate<>state_breaked then ┆
0xe2e0…e300 36 20 20 31 33 35 30 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 ┆6 1350 childtable.ct.ct_s┆
0xe300…e320 74 61 74 65 3a 3d 73 74 61 74 65 5f 72 75 6e 6e 69 6e 67 3b 0a 20 20 36 20 20 31 33 35 31 20 20 ┆tate:=state_running; 6 1351 ┆
0xe320…e340 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 63 68 3e 30 20 ┆ if childtable.ct.ctbatch>0 ┆
0xe340…e360 74 68 65 6e 20 62 72 75 6e 63 68 69 6c 64 72 65 6e 3a 3d 62 72 75 6e 63 68 69 6c 64 72 65 6e 2b ┆then brunchildren:=brunchildren+┆
0xe360…e380 31 3b 0a 20 20 36 20 20 31 33 35 32 20 20 20 20 65 6e 64 20 72 65 73 3d 30 3b 0a 20 20 35 20 20 ┆1; 6 1352 end res=0; 5 ┆
0xe380…e3a0 31 33 35 33 20 20 20 65 6e 64 20 73 74 61 74 65 20 65 6c 73 65 20 0a 20 20 34 20 20 31 33 35 34 ┆1353 end state else 4 1354┆
0xe3a0…e3c0 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 33 35 35 20 20 20 20 20 72 65 73 3a 3d 30 3b 0a 20 ┆ begin 5 1355 res:=0; ┆
0xe3c0…e3e0 20 35 20 20 31 33 35 36 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 74 ┆ 5 1356 childtable.ct.ct_st┆
0xe3e0…e400 61 74 65 3a 3d 73 74 61 74 65 5f 72 75 6e 6e 69 6e 67 3b 0a 20 20 35 20 20 31 33 35 37 20 20 20 ┆ate:=state_running; 5 1357 ┆
0xe400…e420 65 6e 64 20 73 74 61 72 74 65 64 3b 0a 20 20 34 20 20 31 33 35 38 20 65 6e 64 20 63 6e 3e 30 3b ┆end started; 4 1358 end cn>0;┆
0xe420…e440 0a 20 20 33 20 20 31 33 35 39 20 73 74 61 72 74 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 ┆ 3 1359 startchild:=res; 3 ┆
0xe440…e460 20 31 33 36 30 20 65 6e 64 20 73 74 61 72 74 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 33 36 31 20 ┆ 1360 end startchild; 2 1361 ┆
0xe460…e480 0a 20 20 32 20 20 31 33 36 31 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 65 74 ┆ 2 1361 integer procedure set┆
0xe480…e4a0 5f 70 72 69 6f 5f 63 68 69 6c 64 28 64 65 73 63 29 3b 0a 20 20 32 20 20 31 33 36 32 20 69 6e 74 ┆_prio_child(desc); 2 1362 int┆
0xe4a0…e4c0 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 32 20 20 31 33 36 33 20 62 65 67 69 6e ┆eger array desc; 2 1363 begin┆
0xe4c0…e4e0 0a 20 20 33 20 20 31 33 36 34 20 69 6e 74 65 67 65 72 20 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 ┆ 3 1364 integer cn,res; 3 ┆
0xe4e0…e500 31 33 36 35 20 72 65 73 3a 3d 32 33 3b 0a 20 20 33 20 20 31 33 36 36 20 63 6e 3a 3d 64 65 73 63 ┆1365 res:=23; 3 1366 cn:=desc┆
0xe500…e520 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 20 31 33 36 37 20 69 66 20 63 6e 3e 30 20 ┆.concurchild; 3 1367 if cn>0 ┆
0xe520…e540 74 68 65 6e 0a 20 20 33 20 20 31 33 36 38 20 62 65 67 69 6e 0a 20 20 34 20 20 31 33 36 39 20 20 ┆then 3 1368 begin 4 1369 ┆
0xe540…e560 20 72 65 73 3a 3d 73 65 74 5f 70 72 69 6f 72 69 74 79 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e ┆ res:=set_priority(desc.conprocn┆
0xe560…e580 61 6d 65 2c 64 65 73 63 2e 63 6f 6e 5f 70 72 69 6f 5f 61 6e 64 5f 63 6f 6d 6d 61 6e 64 73 20 73 ┆ame,desc.con_prio_and_commands s┆
0xe580…e5a0 68 69 66 74 20 28 2d 31 32 29 0a 20 20 34 20 20 31 33 37 30 20 20 20 20 20 20 20 20 20 20 20 65 ┆hift (-12) 4 1370 e┆
0xe5a0…e5c0 78 74 72 61 63 74 20 28 31 32 29 29 3b 0a 20 20 34 20 20 31 33 37 31 20 20 20 69 66 20 72 65 73 ┆xtract (12)); 4 1371 if res┆
0xe5c0…e5e0 3d 30 20 74 68 65 6e 20 64 65 73 63 2e 63 6f 6e 70 72 69 6f 61 6e 64 63 6f 6d 6d 61 6e 64 73 3a ┆=0 then desc.conprioandcommands:┆
0xe5e0…e600 3d 64 65 73 63 2e 63 6f 6e 70 72 69 6f 61 6e 64 63 6f 6d 6d 61 6e 64 73 20 65 78 74 72 61 63 74 ┆=desc.conprioandcommands extract┆
0xe600…e620 20 31 32 3b 0a 20 20 34 20 20 31 33 37 32 20 65 6e 64 20 63 6e 3e 30 3b 0a 20 20 33 20 20 31 33 ┆ 12; 4 1372 end cn>0; 3 13┆
0xe620…e640 37 33 20 73 65 74 5f 70 72 69 6f 5f 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 33 37 ┆73 set_prio_child:=res; 3 137┆
0xe640…e660 34 20 65 6e 64 20 73 65 74 70 72 69 6f 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 33 37 35 20 0a 20 ┆4 end setpriochild; 2 1375 ┆
0xe660…e680 20 32 20 20 31 33 37 35 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 62 72 65 61 6b ┆ 2 1375 integer procedure break┆
0xe680…e6a0 5f 63 68 69 6c 64 28 64 65 73 63 2c 7a 29 3b 0a 20 20 32 20 20 31 33 37 36 20 69 6e 74 65 67 65 ┆_child(desc,z); 2 1376 intege┆
0xe6a0…e6c0 72 20 61 72 72 61 79 20 64 65 73 63 3b 20 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 31 33 37 37 20 ┆r array desc; zone z; 2 1377 ┆
0xe6c0…e6e0 62 65 67 69 6e 0a 20 20 33 20 20 31 33 37 38 20 20 20 69 6e 74 65 67 65 72 20 69 2c 72 65 73 2c ┆begin 3 1378 integer i,res,┆
0xe6e0…e700 62 61 73 65 2c 6f 6c 64 49 43 3b 0a 20 20 33 20 20 31 33 37 39 20 20 20 69 6e 74 65 67 65 72 20 ┆base,oldIC; 3 1379 integer ┆
0xe700…e720 61 72 72 61 79 20 70 61 72 61 6d 28 31 3a 36 29 3b 0a 20 20 33 20 20 31 33 38 30 20 20 20 69 6e ┆array param(1:6); 3 1380 in┆
0xe720…e740 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 63 68 69 6c 64 70 64 61 2c 72 65 67 2c 63 ┆teger array field childpda,reg,c┆
0xe740…e760 74 3b 0a 20 20 33 20 20 31 33 38 31 20 20 20 20 20 72 65 73 3a 3d 73 74 6f 70 63 68 69 6c 64 28 ┆t; 3 1381 res:=stopchild(┆
0xe760…e780 64 65 73 63 29 3b 0a 20 20 33 20 20 31 33 38 32 20 20 20 20 20 63 68 69 6c 64 70 64 61 3a 3d 70 ┆desc); 3 1382 childpda:=p┆
0xe780…e7a0 72 6f 63 65 73 73 64 65 73 63 72 69 70 74 69 6f 6e 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 ┆rocessdescription(desc.conprocna┆
0xe7a0…e7c0 6d 65 29 3b 0a 20 20 33 20 20 31 33 38 33 20 20 20 20 20 6f 6c 64 49 43 3a 3d 63 6f 72 65 2e 63 ┆me); 3 1383 oldIC:=core.c┆
0xe7c0…e7e0 68 69 6c 64 70 64 61 28 34 36 29 3b 0a 20 20 33 20 20 31 33 38 34 20 20 20 20 20 62 61 73 65 3a ┆hildpda(46); 3 1384 base:┆
0xe7e0…e800 3d 63 6f 72 65 2e 63 68 69 6c 64 70 64 61 28 35 30 29 3b 0a 20 20 33 20 20 31 33 38 35 20 20 20 ┆=core.childpda(50); 3 1385 ┆
0xe800…e820 20 20 72 65 67 3a 3d 63 6f 72 65 2e 63 68 69 6c 64 70 64 61 28 31 39 29 2b 62 61 73 65 3b 0a 20 ┆ reg:=core.childpda(19)+base; ┆
0xe820…e840 20 33 20 20 31 33 38 36 20 20 20 20 20 69 66 20 72 65 67 3e 30 20 61 6e 64 20 72 65 73 3d 30 20 ┆ 3 1386 if reg>0 and res=0 ┆
0xe840…e860 74 68 65 6e 0a 20 20 33 20 20 31 33 38 37 20 20 20 20 20 62 65 67 69 6e 0a 20 20 34 20 20 31 33 ┆then 3 1387 begin 4 13┆
0xe860…e880 38 38 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 36 ┆88 for i:=1 step 1 until 6┆
0xe880…e8a0 2c 38 20 64 6f 20 63 6f 72 65 2e 72 65 67 28 69 29 3a 3d 63 6f 72 65 2e 63 68 69 6c 64 70 64 61 ┆,8 do core.reg(i):=core.childpda┆
0xe8a0…e8c0 28 34 30 2b 69 29 3b 0a 20 20 34 20 20 31 33 38 39 20 20 20 20 20 20 20 63 6f 72 65 2e 72 65 67 ┆(40+i); 4 1389 core.reg┆
0xe8c0…e8e0 28 37 29 3a 3d 38 3b 0a 20 20 34 20 20 31 33 39 30 20 20 20 20 20 20 20 70 61 72 61 6d 28 31 29 ┆(7):=8; 4 1390 param(1)┆
0xe8e0…e900 3a 3d 64 65 73 63 2e 63 6f 6e 70 72 6f 63 69 6e 3b 0a 20 20 34 20 20 31 33 39 31 20 20 20 20 20 ┆:=desc.conprocin; 4 1391 ┆
0xe900…e920 20 20 70 61 72 61 6d 28 32 29 3a 3d 6f 77 6e 70 64 61 3b 0a 20 20 34 20 20 31 33 39 32 20 20 20 ┆ param(2):=ownpda; 4 1392 ┆
0xe920…e940 20 20 20 20 70 61 72 61 6d 28 33 29 3a 3d 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6f 75 74 3b 0a 20 ┆ param(3):=desc.conprocout; ┆
0xe940…e960 20 34 20 20 31 33 39 33 20 20 20 20 20 20 20 70 61 72 61 6d 28 34 29 3a 3d 63 68 69 6c 64 70 64 ┆ 4 1393 param(4):=childpd┆
0xe960…e980 61 3b 0a 20 20 34 20 20 31 33 39 34 20 20 20 20 20 20 20 70 61 72 61 6d 28 35 29 3a 3d 30 3b 0a ┆a; 4 1394 param(5):=0; ┆
0xe980…e9a0 20 20 34 20 20 31 33 39 35 20 20 20 20 20 20 20 70 61 72 61 6d 28 36 29 3a 3d 72 65 67 2b 31 36 ┆ 4 1395 param(6):=reg+16┆
0xe9a0…e9c0 2d 62 61 73 65 3b 20 3c 2a 20 6e 65 77 20 49 43 2a 3e 0a 20 20 34 20 20 31 33 39 36 20 20 20 20 ┆-base; <* new IC*> 4 1396 ┆
0xe9c0…e9e0 20 20 20 72 65 73 3a 3d 6d 6f 64 69 66 79 69 6e 74 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 ┆ res:=modifyint(desc.conprocna┆
0xe9e0…ea00 6d 65 2c 70 61 72 61 6d 29 3b 0a 20 20 34 20 20 31 33 39 37 20 20 20 20 20 20 20 69 66 20 72 65 ┆me,param); 4 1397 if re┆
0xea00…ea20 (26,) 73 3c 3e 30 20 74 68 65 6e 20 72 65 73 3a 3d 72 65 73 2b 31 36 3b 0a 20 20 34 20 20 31 33 39 38 ┆s<>0 then res:=res+16; 4 1398┆
0xea20…ea40 20 20 20 20 20 65 6e 64 3b 0a 20 20 33 20 20 31 33 39 39 20 20 20 20 20 20 77 72 69 74 65 28 7a ┆ end; 3 1399 write(z┆
0xea40…ea60 2c 3c 3a 3c 31 30 3e 62 72 65 61 6b 20 3a 3e 2c 63 6f 72 65 2e 72 65 67 28 37 29 2c 6f 6c 64 49 ┆,<:<10>break :>,core.reg(7),oldI┆
0xea60…ea80 43 2c 72 65 67 2d 62 61 73 65 29 3b 0a 20 20 33 20 20 31 34 30 30 20 20 20 20 20 69 66 20 72 65 ┆C,reg-base); 3 1400 if re┆
0xea80…eaa0 73 3d 30 20 74 68 65 6e 20 0a 20 20 33 20 20 31 34 30 31 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆s=0 then 3 1401 begin ┆
0xeaa0…eac0 34 20 20 31 34 30 32 20 20 20 20 20 20 20 72 65 73 3a 3d 73 74 61 72 74 63 68 69 6c 64 28 64 65 ┆4 1402 res:=startchild(de┆
0xeac0…eae0 73 63 29 3b 0a 20 20 34 20 20 31 34 30 33 20 20 20 20 20 20 20 63 74 3a 3d 28 64 65 73 63 2e 63 ┆sc); 4 1403 ct:=(desc.c┆
0xeae0…eb00 6f 6e 63 75 72 63 68 69 6c 64 2d 31 29 2a 63 74 5f 73 69 7a 65 3b 0a 20 20 34 20 20 31 34 30 34 ┆oncurchild-1)*ct_size; 4 1404┆
0xeb00…eb20 20 20 20 20 20 20 20 69 66 20 72 65 73 3d 30 20 74 68 65 6e 20 63 68 69 6c 64 74 61 62 6c 65 2e ┆ if res=0 then childtable.┆
0xeb20…eb40 63 74 2e 63 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 62 72 65 61 6b 65 64 3b 0a 20 20 34 20 ┆ct.ct_state:=state_breaked; 4 ┆
0xeb40…eb60 20 31 34 30 35 20 20 20 20 20 65 6e 64 3b 0a 20 20 33 20 20 31 34 30 36 20 20 20 20 20 62 72 65 ┆ 1405 end; 3 1406 bre┆
0xeb60…eb80 61 6b 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 34 30 37 20 65 6e 64 20 62 72 65 61 ┆akchild:=res; 3 1407 end brea┆
0xeb80…eba0 6b 3b 0a 20 20 32 20 20 31 34 30 38 20 0a 20 20 32 20 20 31 34 30 38 20 69 6e 74 65 67 65 72 20 ┆k; 2 1408 2 1408 integer ┆
0xeba0…ebc0 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f 76 65 5f 63 68 69 6c 64 28 64 65 73 63 2c 7a 29 3b 0a ┆procedure remove_child(desc,z); ┆
0xebc0…ebe0 20 20 32 20 20 31 34 30 39 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 ┆ 2 1409 integer array desc; ┆
0xebe0…ec00 32 20 20 31 34 31 30 20 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 31 34 31 31 20 62 65 67 69 6e 0a ┆2 1410 zone z; 2 1411 begin ┆
0xec00…ec20 20 20 33 20 20 31 34 31 32 20 69 6e 74 65 67 65 72 20 63 6e 2c 72 65 73 2c 62 73 2c 6a 6f 62 3b ┆ 3 1412 integer cn,res,bs,job;┆
0xec20…ec40 0a 20 20 33 20 20 31 34 31 33 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 ┆ 3 1413 integer array field p┆
0xec40…ec60 64 61 2c 69 61 66 2c 70 70 64 61 2c 63 74 3b 0a 20 20 33 20 20 31 34 31 34 20 62 6f 6f 6c 65 61 ┆da,iaf,ppda,ct; 3 1414 boolea┆
0xec60…ec80 6e 20 62 61 74 63 68 3b 0a 20 20 33 20 20 31 34 31 35 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 ┆n batch; 3 1415 long array fi┆
0xec80…eca0 65 6c 64 20 6c 61 66 2c 6c 61 66 31 3b 0a 20 20 33 20 20 31 34 31 36 20 6c 6f 6e 67 20 61 72 72 ┆eld laf,laf1; 3 1416 long arr┆
0xeca0…ecc0 61 79 20 6e 61 6d 65 2c 70 6e 61 6d 65 28 31 3a 33 29 3b 0a 20 20 33 20 20 31 34 31 37 20 69 6e ┆ay name,pname(1:3); 3 1417 in┆
0xecc0…ece0 74 65 67 65 72 20 61 72 72 61 79 20 70 61 72 61 6d 28 31 3a 38 29 3b 0a 20 20 33 20 20 31 34 31 ┆teger array param(1:8); 3 141┆
0xece0…ed00 38 20 72 65 6d 6f 76 65 63 68 69 6c 64 3a 3d 31 3b 0a 20 20 33 20 20 31 34 31 39 20 63 6e 3a 3d ┆8 removechild:=1; 3 1419 cn:=┆
0xed00…ed20 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 20 31 34 32 30 20 3c 2a 2b 32 ┆desc.concurchild; 3 1420 <*+2┆
0xed20…ed40 2a 3e 0a 20 20 33 20 20 31 34 32 31 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 ┆*> 3 1421 if testop(2) then d┆
0xed40…ed60 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 72 65 6d 6f 76 65 3a 20 ┆isable write(z,"nl",1,<:remove: ┆
0xed60…ed80 63 68 69 6c 64 20 3a 3e 2c 63 6e 29 3b 0a 20 20 33 20 20 31 34 32 32 20 3c 2a 2d 32 2a 3e 0a 20 ┆child :>,cn); 3 1422 <*-2*> ┆
0xed80…eda0 20 33 20 20 31 34 32 33 20 69 66 20 63 6e 3e 30 20 74 68 65 6e 0a 20 20 33 20 20 31 34 32 34 20 ┆ 3 1423 if cn>0 then 3 1424 ┆
0xeda0…edc0 62 65 67 69 6e 0a 20 20 34 20 20 31 34 32 35 20 20 20 63 74 3a 3d 28 63 6e 2d 31 29 2a 63 74 73 ┆begin 4 1425 ct:=(cn-1)*cts┆
0xedc0…ede0 69 7a 65 3b 0a 20 20 34 20 20 31 34 32 36 20 20 20 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c 65 ┆ize; 4 1426 pda:=childtable┆
0xede0…ee00 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a 20 20 34 20 20 31 34 32 37 20 20 20 6c 61 66 ┆.ct.ct_childpda; 4 1427 laf┆
0xee00…ee20 3a 3d 70 64 61 2b 32 3b 0a 20 20 34 20 20 31 34 32 38 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 ┆:=pda+2; 4 1428 for i:=1,2 ┆
0xee20…ee40 64 6f 20 70 6e 61 6d 65 28 69 29 3a 3d 63 6f 72 65 2e 6c 61 66 28 69 29 3b 0a 20 20 34 20 20 31 ┆do pname(i):=core.laf(i); 4 1┆
0xee40…ee60 34 32 39 20 20 20 62 61 74 63 68 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 ┆429 batch:=childtable.ct.ctbat┆
0xee60…ee80 63 68 3e 30 3b 0a 20 20 34 20 20 31 34 33 30 20 3c 2a 2b 32 2a 3e 0a 20 20 34 20 20 31 34 33 31 ┆ch>0; 4 1430 <*+2*> 4 1431┆
0xee80…eea0 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 69 ┆ if testop(2) then disable wri┆
0xeea0…eec0 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 63 68 69 6c 64 20 73 74 61 74 65 3a 3e 2c 0a 20 20 34 ┆te(z,"nl",1,<:child state:>, 4┆
0xeec0…eee0 20 20 31 34 33 32 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 73 74 61 ┆ 1432 childtable.ct.ctsta┆
0xeee0…ef00 74 65 2c 69 66 20 62 61 74 63 68 20 74 68 65 6e 20 3c 3a 20 62 61 74 63 68 20 3a 3e 20 65 6c 73 ┆te,if batch then <: batch :> els┆
0xef00…ef20 65 20 3c 3a 6f 6e 20 6c 69 6e 65 3a 3e 29 3b 0a 20 20 34 20 20 31 34 33 33 20 3c 2a 2d 32 2a 3e ┆e <:on line:>); 4 1433 <*-2*>┆
0xef20…ef40 0a 20 20 34 20 20 31 34 33 34 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 ┆ 4 1434 if childtable.ct.ct┆
0xef40…ef60 5f 73 74 61 74 65 20 3c 3e 73 74 61 74 65 72 75 6e 6e 69 6e 67 20 74 68 65 6e 0a 20 20 34 20 20 ┆_state <>staterunning then 4 ┆
0xef60…ef80 31 34 33 35 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 34 33 36 20 20 20 20 20 63 6c 65 61 72 ┆1435 begin 5 1436 clear┆
0xef80…efa0 65 6e 74 72 69 65 73 28 31 2c 63 6f 72 65 2e 70 64 61 2e 73 74 64 62 61 73 65 72 65 66 28 31 29 ┆entries(1,core.pda.stdbaseref(1)┆
0xefa0…efc0 2c 63 6f 72 65 2e 70 64 61 2e 73 74 64 62 61 73 65 72 65 66 28 32 29 2c 7a 29 3b 0a 20 20 35 20 ┆,core.pda.stdbaseref(2),z); 5 ┆
0xefc0…efe0 20 31 34 33 37 20 20 20 20 20 66 6f 72 20 62 73 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆ 1437 for bs:=1 step 1 until┆
0xefe0…f000 20 6e 6f 6f 66 62 73 20 64 6f 0a 20 20 35 20 20 31 34 33 38 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ noofbs do 5 1438 begin ┆
0xf000…f020 20 36 20 20 31 34 33 39 20 20 20 20 20 20 20 6c 61 66 3a 3d 69 61 66 3a 3d 28 62 73 2d 31 29 2a ┆ 6 1439 laf:=iaf:=(bs-1)*┆
0xf020…f040 31 32 3b 0a 20 20 36 20 20 31 34 34 30 20 20 20 20 20 20 20 69 61 66 3a 3d 75 73 65 72 63 61 74 ┆12; 6 1440 iaf:=usercat┆
0xf040…f060 62 73 2e 69 61 66 28 36 29 3b 0a 20 20 36 20 20 31 34 34 31 20 20 20 20 20 20 20 72 65 73 3a 3d ┆bs.iaf(6); 6 1441 res:=┆
0xf060…f080 6c 6f 6f 6b 75 70 5f 62 73 5f 63 6c 61 69 6d 73 28 70 6e 61 6d 65 2c 75 73 65 72 63 61 74 62 73 ┆lookup_bs_claims(pname,usercatbs┆
0xf080…f0a0 2e 6c 61 66 2c 70 61 72 61 6d 29 3b 0a 20 20 36 20 20 31 34 34 32 20 20 20 20 20 20 20 69 66 20 ┆.laf,param); 6 1442 if ┆
0xf0a0…f0c0 72 65 73 3d 30 20 74 68 65 6e 0a 20 20 36 20 20 31 34 34 33 20 20 20 20 20 20 20 62 65 67 69 6e ┆res=0 then 6 1443 begin┆
0xf0c0…f0e0 0a 20 20 37 20 20 31 34 34 34 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 ┆ 7 1444 for i:=1,2 do ┆
0xf0e0…f100 70 65 72 6d 5f 62 73 5f 63 6c 61 69 6d 65 64 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 ┆perm_bs_claimed(childtable.ct.ct┆
0xf100…f120 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c 69 29 3a 3d 0a 20 20 37 20 20 31 34 34 35 20 20 20 20 ┆_usercatno,bs,i):= 7 1445 ┆
0xf120…f140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 5f 62 73 5f 63 6c 61 69 6d 65 ┆ perm_bs_claime┆
0xf140…f160 64 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c ┆d(childtable.ct.ct_usercatno,bs,┆
0xf160…f180 69 29 2d 70 61 72 61 6d 28 36 2b 69 29 3b 0a 20 20 37 20 20 31 34 34 36 20 3c 2a 2b 32 2a 3e 0a ┆i)-param(6+i); 7 1446 <*+2*> ┆
0xf180…f1a0 20 20 37 20 20 31 34 34 37 20 20 20 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 61 6e ┆ 7 1447 if testop(2) an┆
0xf1a0…f1c0 64 20 28 70 61 72 61 6d 28 37 29 3c 3e 30 20 6f 72 20 70 61 72 61 6d 28 38 29 3c 3e 30 29 20 74 ┆d (param(7)<>0 or param(8)<>0) t┆
0xf1c0…f1e0 68 65 6e 0a 20 20 37 20 20 31 34 34 38 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 22 6e 6c ┆hen 7 1448 write(z,"nl┆
0xf1e0…f200 22 2c 31 2c 3c 3a 70 65 72 6d 20 62 73 20 75 73 65 72 6e 6f 20 3a 3e 2c 63 68 69 6c 64 74 61 62 ┆",1,<:perm bs userno :>,childtab┆
0xf200…f220 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 0a 20 20 37 20 20 31 34 34 39 20 20 20 ┆le.ct.ct_usercatno, 7 1449 ┆
0xf220…f240 20 20 20 20 20 20 20 20 70 65 72 6d 62 73 63 6c 61 69 6d 65 64 28 63 68 69 6c 64 74 61 62 6c 65 ┆ permbsclaimed(childtable┆
0xf240…f260 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c 31 29 2c 0a 20 20 37 20 20 31 34 35 ┆.ct.ct_usercatno,bs,1), 7 145┆
0xf260…f280 30 20 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 62 73 63 6c 61 69 6d 65 64 28 63 68 69 6c 64 74 ┆0 permbsclaimed(childt┆
0xf280…f2a0 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c 32 29 29 3b 0a 20 20 37 ┆able.ct.ct_usercatno,bs,2)); 7┆
0xf2a0…f2c0 20 20 31 34 35 31 20 3c 2a 2d 32 2a 3e 0a 20 20 37 20 20 31 34 35 32 20 20 20 20 20 20 20 65 6e ┆ 1451 <*-2*> 7 1452 en┆
0xf2c0…f2e0 64 20 75 70 64 61 74 65 20 72 65 73 6f 75 72 63 65 73 0a 20 20 36 20 20 31 34 35 33 20 20 20 20 ┆d update resources 6 1453 ┆
0xf2e0…f300 20 65 6e 64 20 66 6f 72 20 62 73 3b 0a 20 20 35 20 20 31 34 35 34 20 20 20 20 20 70 70 64 61 3a ┆ end for bs; 5 1454 ppda:┆
0xf300…f320 (27,) 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 70 72 6f 63 69 6e 3b 0a 20 20 35 20 20 31 34 ┆=childtable.ct.ctprocin; 5 14┆
0xf320…f340 35 35 20 20 20 20 20 69 66 20 70 70 64 61 3d 30 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 35 20 20 ┆55 if ppda=0 then else 5 ┆
0xf340…f360 31 34 35 36 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 34 35 37 20 20 20 20 20 20 20 6c ┆1456 begin 6 1457 l┆
0xf360…f380 61 66 31 3a 3d 70 70 64 61 2b 32 3b 0a 20 20 36 20 20 31 34 35 38 20 20 20 20 20 20 20 66 6f 72 ┆af1:=ppda+2; 6 1458 for┆
0xf380…f3a0 20 69 3a 3d 31 2c 32 20 64 6f 20 20 6e 61 6d 65 28 69 29 3a 3d 63 6f 72 65 2e 6c 61 66 31 28 69 ┆ i:=1,2 do name(i):=core.laf1(i┆
0xf3a0…f3c0 29 3b 0a 20 20 36 20 20 31 34 35 39 20 20 20 20 20 20 20 69 66 20 63 6f 72 65 2e 70 70 64 61 28 ┆); 6 1459 if core.ppda(┆
0xf3c0…f3e0 31 29 3d 34 20 74 68 65 6e 20 0a 20 20 36 20 20 31 34 36 30 20 20 20 20 20 20 20 62 65 67 69 6e ┆1)=4 then 6 1460 begin┆
0xf3e0…f400 0a 20 20 37 20 20 31 34 36 31 20 20 20 20 20 20 20 20 20 6c 61 66 3a 3d 32 3b 0a 20 20 37 20 20 ┆ 7 1461 laf:=2; 7 ┆
0xf400…f420 31 34 36 32 20 20 20 20 20 20 20 20 20 69 66 20 63 6f 72 65 2e 70 70 64 61 2e 6c 61 66 28 31 29 ┆1462 if core.ppda.laf(1)┆
0xf420…f440 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 3d 0a 20 20 37 20 20 31 34 ┆ shift (-24) extract 24= 7 14┆
0xf440…f460 36 33 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 20 3c 3a 77 72 6b 3a 3e 20 20 20 20 20 73 ┆63 long <:wrk:> s┆
0xf460…f480 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 20 61 6e 64 0a 20 20 37 20 20 31 ┆hift (-24) extract 24 and 7 1┆
0xf480…f4a0 34 36 34 20 20 20 20 20 20 20 20 20 20 20 20 62 61 74 63 68 20 74 68 65 6e 20 72 65 6d 6f 76 65 ┆464 batch then remove┆
0xf4a0…f4c0 65 6e 74 72 79 28 6e 61 6d 65 29 3b 0a 20 20 37 20 20 31 34 36 35 20 20 20 20 20 20 20 20 20 72 ┆entry(name); 7 1465 r┆
0xf4c0…f4e0 65 6d 6f 76 65 70 72 6f 63 65 73 73 28 6e 61 6d 65 29 3b 0a 20 20 37 20 20 31 34 36 36 20 20 20 ┆emoveprocess(name); 7 1466 ┆
0xf4e0…f500 20 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 34 36 37 20 20 20 20 20 65 6e 64 20 70 70 64 61 3e ┆ end; 6 1467 end ppda>┆
0xf500…f520 30 3b 0a 20 20 35 20 20 31 34 36 38 20 20 20 20 20 70 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c ┆0; 5 1468 ppda:=childtabl┆
0xf520…f540 65 2e 63 74 2e 63 74 5f 70 72 6f 63 6f 75 74 3b 0a 20 20 35 20 20 31 34 36 39 20 20 20 20 20 69 ┆e.ct.ct_procout; 5 1469 i┆
0xf540…f560 66 20 70 70 64 61 3d 30 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 35 20 20 31 34 37 30 20 20 20 20 ┆f ppda=0 then else 5 1470 ┆
0xf560…f580 20 62 65 67 69 6e 0a 20 20 36 20 20 31 34 37 31 20 20 20 20 20 20 20 6c 61 66 31 3a 3d 70 70 64 ┆ begin 6 1471 laf1:=ppd┆
0xf580…f5a0 61 2b 32 3b 0a 20 20 36 20 20 31 34 37 32 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 ┆a+2; 6 1472 for i:=1,2 ┆
0xf5a0…f5c0 64 6f 20 6e 61 6d 65 28 69 29 3a 3d 63 6f 72 65 2e 6c 61 66 31 28 69 29 3b 0a 20 20 36 20 20 31 ┆do name(i):=core.laf1(i); 6 1┆
0xf5c0…f5e0 34 37 33 20 20 20 20 20 20 20 69 66 20 63 6f 72 65 2e 70 70 64 61 28 31 29 3d 34 20 74 68 65 6e ┆473 if core.ppda(1)=4 then┆
0xf5e0…f600 20 72 65 6d 6f 76 65 70 72 6f 63 65 73 73 28 6e 61 6d 65 29 3b 0a 20 20 36 20 20 31 34 37 34 20 ┆ removeprocess(name); 6 1474 ┆
0xf600…f620 20 20 20 20 65 6e 64 20 70 72 6f 63 6f 75 74 3b 0a 20 20 35 20 20 31 34 37 35 20 20 20 20 20 72 ┆ end procout; 5 1475 r┆
0xf620…f640 65 73 3a 3d 72 65 6d 6f 76 65 63 68 69 6c 64 3a 3d 72 65 6d 6f 76 65 70 72 6f 63 65 73 73 28 70 ┆es:=removechild:=removeprocess(p┆
0xf640…f660 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 34 37 36 20 3c 2a 2b 32 2a 3e 0a 20 20 35 20 20 31 34 37 ┆name); 5 1476 <*+2*> 5 147┆
0xf660…f680 37 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 37 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 0a ┆7 if testop(7) then disable ┆
0xf680…f6a0 20 20 35 20 20 31 34 37 38 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c ┆ 5 1478 write(z,"nl",1,<┆
0xf6a0…f6c0 3a 72 65 6d 6f 76 65 20 3a 3e 2c 70 6e 61 6d 65 2c 3c 3a 20 72 65 73 20 3a 3e 2c 72 65 73 29 3b ┆:remove :>,pname,<: res :>,res);┆
0xf6c0…f6e0 0a 20 20 35 20 20 31 34 37 39 20 3c 2a 2d 32 2a 3e 0a 20 20 35 20 20 31 34 38 30 20 20 20 20 20 ┆ 5 1479 <*-2*> 5 1480 ┆
0xf6e0…f700 69 66 20 72 65 73 3d 30 20 74 68 65 6e 20 0a 20 20 35 20 20 31 34 38 31 20 20 20 20 20 62 65 67 ┆if res=0 then 5 1481 beg┆
0xf700…f720 69 6e 0a 20 20 36 20 20 31 34 38 32 20 20 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 ┆in 6 1482 if childtable┆
0xf720…f740 2e 63 74 2e 63 74 5f 62 75 66 72 65 66 3c 3e 30 20 74 68 65 6e 0a 20 20 36 20 20 31 34 38 33 20 ┆.ct.ct_bufref<>0 then 6 1483 ┆
0xf740…f760 20 20 20 20 20 20 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 41 28 31 3a 38 29 ┆ begin integer array A(1:8)┆
0xf760…f780 3b 0a 20 20 37 20 20 31 34 38 34 20 20 20 20 20 20 20 20 3c 2a 72 65 6c 65 61 73 65 20 70 6f 73 ┆; 7 1484 <*release pos┆
0xf780…f7a0 73 69 62 6c 65 20 62 75 66 66 65 72 20 66 72 6f 6d 20 66 69 6e 69 73 20 6f 72 20 62 72 65 61 6b ┆sible buffer from finis or break┆
0xf7a0…f7c0 2a 3e 0a 20 20 37 20 20 31 34 38 35 20 20 20 20 20 20 20 20 73 65 6e 64 5f 61 6e 73 77 65 72 28 ┆*> 7 1485 send_answer(┆
0xf7c0…f7e0 31 2c 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 62 75 66 72 65 66 2c 41 29 3b 0a 20 20 ┆1,childtable.ct.ct_bufref,A); ┆
0xf7e0…f800 37 20 20 31 34 38 36 20 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f ┆7 1486 childtable.ct.ct_┆
0xf800…f820 62 75 66 72 65 66 3a 3d 30 3b 0a 20 20 37 20 20 31 34 38 37 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆bufref:=0; 7 1487 end; ┆
0xf820…f840 20 36 20 20 31 34 38 38 20 20 20 20 20 20 20 6a 6f 62 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 ┆ 6 1488 job:=childtable.c┆
0xf840…f860 74 2e 63 74 73 65 67 6d 71 75 65 75 65 3b 0a 20 20 36 20 20 31 34 38 39 20 20 20 20 20 20 20 66 ┆t.ctsegmqueue; 6 1489 f┆
0xf860…f880 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6a 6f ┆or i:=1,2 do childtable.ct.ct_jo┆
0xf880…f8a0 62 6e 61 6d 65 28 69 29 3a 3d 30 3b 0a 20 20 36 20 20 31 34 39 30 20 20 20 20 20 20 20 20 63 68 ┆bname(i):=0; 6 1490 ch┆
0xf8a0…f8c0 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3a 3d 63 68 69 6c 64 74 61 ┆ildtable.ct.ct_childpda:=childta┆
0xf8c0…f8e0 62 6c 65 2e 63 74 2e 63 74 5f 74 65 72 6d 70 64 61 3a 3d 0a 20 20 36 20 20 31 34 39 31 20 20 20 ┆ble.ct.ct_termpda:= 6 1491 ┆
0xf8e0…f900 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 74 61 74 65 20 20 20 3a 3d ┆ childtable.ct.ct_state :=┆
0xf900…f920 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 72 65 66 20 20 20 20 3a 3d 0a 20 20 36 20 20 ┆childtable.ct.ct_ref := 6 ┆
0xf920…f940 31 34 39 32 20 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 66 69 72 ┆1492 childtable.ct.ct_fir┆
0xf940…f960 73 74 20 20 20 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6c 61 73 74 20 20 20 3a ┆st :=childtable.ct.ct_last :┆
0xf960…f980 3d 0a 20 20 36 20 20 31 34 39 33 20 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 ┆= 6 1493 childtable.ct┆
0xf980…f9a0 2e 63 74 5f 6a 6f 62 6e 6f 20 20 20 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 ┆.ct_jobno :=childtable.ct.ct_s┆
0xf9a0…f9c0 65 67 6d 73 77 6f 70 3a 3d 0a 20 20 36 20 20 31 34 39 34 20 20 20 20 20 20 20 20 63 68 69 6c 64 ┆egmswop:= 6 1494 child┆
0xf9c0…f9e0 74 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 3a 3d 63 68 69 6c 64 74 61 62 6c ┆table.ct.ct_usercatno:=childtabl┆
0xf9e0…fa00 65 2e 63 74 2e 63 74 70 72 6f 63 69 6e 20 3a 3d 0a 20 20 36 20 20 31 34 39 35 20 20 20 20 20 20 ┆e.ct.ctprocin := 6 1495 ┆
0xfa00…fa20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 70 72 6f 63 6f 75 74 20 3a 3d 30 3b 0a ┆ childtable.ct.ct_procout :=0; ┆
0xfa20…fa40 20 20 36 20 20 31 34 39 36 20 20 20 20 20 20 20 69 66 20 62 61 74 63 68 20 74 68 65 6e 0a 20 20 ┆ 6 1496 if batch then ┆
0xfa40…fa60 36 20 20 31 34 39 37 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 34 39 38 20 20 20 ┆6 1497 begin 7 1498 ┆
0xfa60…fa80 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 62 61 74 63 68 3a 3d 30 3b ┆ childtable.ct.ct_batch:=0;┆
0xfa80…faa0 0a 20 20 37 20 20 31 34 39 39 20 20 20 20 20 20 20 20 20 69 66 20 64 65 73 63 2e 71 5f 72 65 6d ┆ 7 1499 if desc.q_rem┆
0xfaa0…fac0 6f 76 65 5f 6a 6f 62 5f 66 69 6c 65 3e 30 20 74 68 65 6e 0a 20 20 37 20 20 31 35 30 30 20 20 20 ┆ove_job_file>0 then 7 1500 ┆
0xfac0…fae0 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 65 6e 74 72 79 28 64 65 73 63 2e 71 5f 6a 6f 62 ┆ remove_entry(desc.q_job┆
0xfae0…fb00 6e 61 6d 65 29 3b 0a 20 20 37 20 20 31 35 30 31 20 20 20 20 20 20 20 20 20 62 63 75 72 63 68 69 ┆name); 7 1501 bcurchi┆
0xfb00…fb20 6c 64 72 65 6e 3a 3d 62 63 75 72 63 68 69 6c 64 72 65 6e 2d 31 3b 0a 20 20 37 20 20 31 35 30 32 ┆ldren:=bcurchildren-1; 7 1502┆
0xfb20…fb40 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 62 ┆ for i:=1 step 1 until b┆
0xfb40…fb60 6d 61 78 63 68 69 6c 64 72 65 6e 20 64 6f 0a 20 20 37 20 20 31 35 30 33 20 20 20 20 20 20 20 20 ┆maxchildren do 7 1503 ┆
0xfb60…fb80 20 62 65 67 69 6e 0a 20 20 38 20 20 31 35 30 34 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6e ┆ begin 8 1504 if cn┆
0xfb80…fba0 3d 62 73 65 67 6d 74 61 62 6c 65 28 69 2c 31 29 20 74 68 65 6e 20 62 73 65 67 6d 74 61 62 6c 65 ┆=bsegmtable(i,1) then bsegmtable┆
0xfba0…fbc0 28 69 2c 31 29 3a 3d 30 3b 0a 20 20 38 20 20 31 35 30 35 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆(i,1):=0; 8 1505 end;┆
0xfbc0…fbe0 0a 20 20 37 20 20 31 35 30 36 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 ┆ 7 1506 for i:=2 step┆
0xfbe0…fc00 20 31 20 75 6e 74 69 6c 20 31 35 20 64 6f 20 6a 6f 62 74 61 62 6c 65 28 6a 6f 62 2c 69 29 3a 3d ┆ 1 until 15 do jobtable(job,i):=┆
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x001b53, f01=0x0007e4, f02=0x0007ed, filename=»tfpread «, entry_tail=0-4-0-20-1982-04-02T10:45-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x015003, f01=0x0007e4, f02=0x0007ed, filename=»tgetfpnames «, entry_tail=0-4-0-1-1980-05-28T16:06-disc1-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x016c2a, f01=0x0007e4, f02=0x0007ed, filename=»tdisccopy «, entry_tail=0-4-0-3-1980-10-27T15:22-disc1-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x019dba, f01=0x0007e4, f02=0x0007ed, filename=»tprintfile «, entry_tail=0-4-0-3-1980-10-24T13:04-disc1-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x01c8ea, f01=0x0007e4, f02=0x0007ed, filename=»toutshortcl «, entry_tail=0-4-0-1-1980-10-24T10:41-disc1-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x01d27a, f01=0x0007e4, f02=0x0007ed, filename=»tcarea «, entry_tail=0-4-0-2-1980-10-21T14:23-disc1-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x01fea2, f01=0x0007e4, f02=0x0007ed, filename=»twritezone «, entry_tail=0-4-0-3-1980-05-07T14:39-disc1-0x0-0x0-0x0-0x0}
0x0165…0198 Rc489kSubCatEnt {f00=0x0220db, f01=0x0007e4, f02=0x0007ed, filename=»tcutarea «, entry_tail=0-4-0-1-1980-02-08T10:37-disc1-0x0-0x0-0x0-0x0}
0x0198…01cb Rc489kSubCatEnt {f00=0x023b52, f01=0x0007e4, f02=0x0007ed, filename=»tcopyf «, entry_tail=0-4-0-2-1980-05-07T14:39-disc1-0x0-0x0-0x0-0x0}
0x01cb…01fe Rc489kSubCatEnt {f00=0x02527a, f01=0x0007e4, f02=0x0007ed, filename=»tbstotape «, entry_tail=0-4-0-2-1980-05-07T14:40-disc1-0xb027-0x0-0x0-0x0}
0x01fe…0231 Rc489kSubCatEnt {f00=0x02795a, f01=0x0007e4, f02=0x0007ed, filename=»treadcon «, entry_tail=0-4-0-16- -disc1-0x0-0x0-0x0-0x0}
0x0231…0264 Rc489kSubCatEnt {f00=0x037aea, f01=0x0007e4, f02=0x0007ed, filename=»tdigamma «, entry_tail=0-4-0-1-1980-07-30T14:27-disc1-0xe008-0x0-0x0-0x0}
0x0264…0297 Rc489kSubCatEnt {f00=0x0387da, f01=0x0007e4, f02=0x0007ed, filename=»treadparam «, entry_tail=0-4-0-1-1980-05-07T14:39-disc1-0x1403a-0x0-0x0-0x0}
0x0297…02a0 00 00 00 00 00 01 00 00 00 ┆ ┆
0x02a0…02c0 00 00 00 01 c1 e2 00 00 00 00 02 69 00 00 00 7f ff fc 74 61 6b 65 66 70 69 74 65 6d 00 00 09 a0 ┆ i takefpitem ┆
0x02c0…02e0 cd 24 00 00 00 0f ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ $ ┆
0x02e0…02fd ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x02fd…0300 0x00000d
0x0300…3f00 Data for tfpread
0x3f00…4200 (7,) Data for tgetfpnames
0x4200…4b00 Data for tdisccopy
0x4b00…5400 Data for tprintfile
0x5400…5700 Data for toutshortcl
0x5700…5d00 Data for tcarea
0x5d00…6600 Data for twritezone
0x6600…6900 Data for tcutarea
0x6900…6f00 Data for tcopyf
0x6f00…7500 Data for tbstotape
0x7500…a500 (13,) Data for treadcon
0xa500…a800 Data for tdigamma
0xa800…ab00 Data for treadparam
0xab00…ab20 (19,) 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 20 39 38 34 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 ┆zone z; 2 984 integer array ┆
0xab20…ab40 66 69 65 6c 64 20 63 74 3b 0a 20 20 32 20 20 20 39 38 35 20 69 66 20 63 75 72 63 68 69 6c 64 72 ┆field ct; 2 985 if curchildr┆
0xab40…ab60 65 6e 3e 3d 6d 61 78 63 68 69 6c 64 72 65 6e 20 6f 72 0a 20 20 32 20 20 20 39 38 36 20 20 20 28 ┆en>=maxchildren or 2 986 (┆
0xab60…ab80 63 6f 72 65 2e 6f 77 6e 72 65 66 2e 69 6e 74 66 75 6e 63 72 65 66 20 73 68 69 66 74 20 28 2d 31 ┆core.ownref.intfuncref shift (-1┆
0xab80…aba0 32 29 20 65 78 74 72 61 63 74 20 31 32 20 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 29 3c 3d 30 20 74 ┆2) extract 12 -owninternal)<=0 t┆
0xaba0…abc0 68 65 6e 0a 20 20 32 20 20 20 39 38 37 20 62 65 67 69 6e 0a 20 20 33 20 20 20 39 38 38 20 20 20 ┆hen 2 987 begin 3 988 ┆
0xabc0…abe0 63 72 65 61 74 65 63 68 69 6c 64 3a 3d 35 3b 0a 20 20 33 20 20 20 39 38 39 20 20 20 77 72 69 74 ┆createchild:=5; 3 989 writ┆
0xabe0…ac00 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 6e 6f 69 6e 74 65 72 6e 61 6c 73 2c 64 65 73 63 29 3b ┆eerror(z,errornointernals,desc);┆
0xac00…ac20 0a 20 20 33 20 20 20 39 39 30 20 65 6e 64 20 65 6c 73 65 0a 20 20 32 20 20 20 39 39 31 20 62 65 ┆ 3 990 end else 2 991 be┆
0xac20…ac40 67 69 6e 0a 20 20 33 20 20 20 39 39 32 20 20 20 69 6e 74 65 67 65 72 20 70 64 61 2c 69 2c 73 68 ┆gin 3 992 integer pda,i,sh┆
0xac40…ac60 2c 63 68 61 72 2c 6e 61 6d 65 69 6e 64 65 78 2c 72 65 73 2c 63 62 6e 2c 63 61 2c 63 62 2c 63 69 ┆,char,nameindex,res,cbn,ca,cb,ci┆
0xac60…ac80 6e 74 2c 0a 20 20 33 20 20 20 39 39 33 20 20 20 20 75 73 62 2c 75 73 61 2c 75 73 69 6e 74 2c 66 ┆nt, 3 993 usb,usa,usint,f┆
0xac80…aca0 62 6c 6f 63 6b 2c 6c 62 6c 6f 63 6b 3b 0a 20 20 33 20 20 20 39 39 34 20 20 20 62 6f 6f 6c 65 61 ┆block,lblock; 3 994 boolea┆
0xaca0…acc0 6e 20 63 68 65 63 6b 63 6f 72 65 2c 73 74 64 62 69 6e 63 61 74 3b 0a 20 20 33 20 20 20 39 39 35 ┆n checkcore,stdbincat; 3 995┆
0xacc0…ace0 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 61 72 3b 0a 20 20 33 20 ┆ integer array field par; 3 ┆
0xace0…ad00 20 20 39 39 36 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 70 61 72 61 6d 28 31 3a 39 29 ┆ 996 integer array param(1:9)┆
0xad00…ad20 3b 0a 20 20 33 20 20 20 39 39 37 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6e 61 6d 65 31 2c 6a ┆; 3 997 long array name1,j┆
0xad20…ad40 6f 62 6e 61 6d 65 28 31 3a 33 29 3b 0a 20 20 33 20 20 20 39 39 38 20 20 20 70 61 72 3a 3d 31 32 ┆obname(1:3); 3 998 par:=12┆
0xad40…ad60 3b 0a 20 20 33 20 20 20 39 39 39 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 6e 61 6d 65 ┆; 3 999 for i:=1,2 do name┆
0xad60…ad80 31 28 69 29 3a 3d 6a 6f 62 6e 61 6d 65 28 69 29 3a 3d 64 65 73 63 2e 63 6f 6e 6a 6f 62 6e 61 6d ┆1(i):=jobname(i):=desc.conjobnam┆
0xad80…ada0 65 28 69 29 3b 0a 20 20 33 20 20 31 30 30 30 20 20 20 63 72 65 61 74 65 63 68 69 6c 64 3a 3d 30 ┆e(i); 3 1000 createchild:=0┆
0xada0…adc0 3b 0a 20 20 33 20 20 31 30 30 31 20 20 20 63 68 65 63 6b 63 6f 72 65 3a 3d 69 66 20 2d 2c 70 65 ┆; 3 1001 checkcore:=if -,pe┆
0xadc0…ade0 72 6d 63 6f 72 65 20 74 68 65 6e 20 66 69 6e 64 63 6f 72 65 68 6f 6c 65 28 64 65 73 63 2c 66 62 ┆rmcore then findcorehole(desc,fb┆
0xade0…ae00 6c 6f 63 6b 2c 6c 62 6c 6f 63 6b 2c 7a 29 20 65 6c 73 65 0a 20 20 33 20 20 31 30 30 32 20 20 20 ┆lock,lblock,z) else 3 1002 ┆
0xae00…ae20 20 20 20 20 20 74 72 75 65 3b 0a 20 20 33 20 20 31 30 30 33 20 3c 2a 2b 32 2a 3e 0a 20 20 33 20 ┆ true; 3 1003 <*+2*> 3 ┆
0xae20…ae40 20 31 30 30 34 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 61 6e 64 20 2d 2c 70 65 72 6d 63 ┆ 1004 if testop(2) and -,permc┆
0xae40…ae60 6f 72 65 20 20 74 68 65 6e 20 0a 20 20 33 20 20 31 30 30 35 20 20 20 20 20 20 64 69 73 61 62 6c ┆ore then 3 1005 disabl┆
0xae60…ae80 65 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 63 72 65 61 74 65 20 63 68 69 6c 64 3a ┆e write(z,"nl",1,<:create child:┆
0xae80…aea0 20 63 6f 72 65 62 6c 6f 63 6b 3a 3e 2c 0a 20 20 33 20 20 31 30 30 36 20 20 20 20 20 20 66 62 6c ┆ coreblock:>, 3 1006 fbl┆
0xaea0…aec0 6f 63 6b 2c 6c 62 6c 6f 63 6b 29 3b 0a 20 20 33 20 20 31 30 30 37 20 3c 2a 2d 32 2a 3e 0a 20 20 ┆ock,lblock); 3 1007 <*-2*> ┆
0xaec0…aee0 33 20 20 31 30 30 38 20 20 69 66 20 2d 2c 63 68 65 63 6b 63 6f 72 65 20 74 68 65 6e 0a 20 20 33 ┆3 1008 if -,checkcore then 3┆
0xaee0…af00 20 20 31 30 30 39 20 20 62 65 67 69 6e 0a 20 20 34 20 20 31 30 31 30 20 20 20 63 72 65 61 74 65 ┆ 1009 begin 4 1010 create┆
0xaf00…af20 63 68 69 6c 64 3a 3d 72 65 73 3a 3d 31 3b 0a 20 20 34 20 20 31 30 31 31 20 20 20 77 72 69 74 65 ┆child:=res:=1; 4 1011 write┆
0xaf20…af40 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 6e 6f 63 6f 72 65 2c 64 65 73 63 29 3b 0a 20 20 34 20 20 ┆error(z,errornocore,desc); 4 ┆
0xaf40…af60 31 30 31 32 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 33 20 20 31 30 31 33 20 20 20 62 65 67 69 6e ┆1012 end else 3 1013 begin┆
0xaf60…af80 0a 20 20 34 20 20 31 30 31 34 20 20 20 20 63 61 3a 3d 63 6f 72 65 2e 6f 77 6e 72 65 66 2e 62 75 ┆ 4 1014 ca:=core.ownref.bu┆
0xaf80…afa0 66 61 72 65 61 72 65 66 3b 0a 20 20 34 20 20 31 30 31 35 20 20 20 20 75 73 62 3a 3d 63 62 3a 3d ┆farearef; 4 1015 usb:=cb:=┆
0xafa0…afc0 63 61 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 34 20 20 ┆ca shift (-12) extract 12; 4 ┆
0xafc0…afe0 31 30 31 36 20 20 20 20 75 73 61 3a 3d 63 61 3a 3d 63 61 20 65 78 74 72 61 63 74 20 31 32 3b 0a ┆1016 usa:=ca:=ca extract 12; ┆
0xafe0…b000 20 20 34 20 20 31 30 31 37 20 20 20 20 75 73 69 6e 74 3a 3d 63 69 6e 74 3a 3d 63 6f 72 65 2e 6f ┆ 4 1017 usint:=cint:=core.o┆
0xb000…b020 77 6e 72 65 66 2e 69 6e 74 66 75 6e 63 72 65 66 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 ┆wnref.intfuncref shift (-12) ext┆
0xb020…b040 72 61 63 74 20 31 32 3b 0a 20 20 34 20 20 31 30 31 38 20 3c 2a 2b 32 2a 3e 0a 20 20 34 20 20 31 ┆ract 12; 4 1018 <*+2*> 4 1┆
0xb040…b060 30 31 39 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 ┆019 if testop(2) then disable┆
0xb060…b080 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 62 75 66 2c 61 72 65 61 2c 69 6e 74 3a 3e ┆ write(z,"nl",1,<:buf,area,int:>┆
0xb080…b0a0 2c 63 62 2c 63 61 2c 63 69 6e 74 29 3b 0a 20 20 34 20 20 31 30 32 30 20 3c 2a 2d 32 2a 3e 0a 20 ┆,cb,ca,cint); 4 1020 <*-2*> ┆
0xb0a0…b0c0 20 34 20 20 31 30 32 31 20 20 20 20 72 65 73 3a 3d 30 3b 0a 20 20 34 20 20 31 30 32 32 20 20 20 ┆ 4 1021 res:=0; 4 1022 ┆
0xb0c0…b0e0 20 63 62 3a 3d 63 62 2d 6f 77 6e 62 75 66 2d 28 64 65 73 63 2e 63 6f 6e 62 75 66 61 6e 64 61 72 ┆ cb:=cb-ownbuf-(desc.conbufandar┆
0xb0e0…b100 65 61 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 34 20 ┆ea shift (-12) extract 12); 4 ┆
0xb100…b120 20 31 30 32 33 20 20 20 20 63 61 3a 3d 63 61 2d 6f 77 6e 61 72 65 61 2d 28 64 65 73 63 2e 63 6f ┆ 1023 ca:=ca-ownarea-(desc.co┆
0xb120…b140 6e 62 75 66 61 6e 64 61 72 65 61 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 34 20 20 31 30 ┆nbufandarea extract 12); 4 10┆
0xb140…b160 32 34 20 20 20 20 63 69 6e 74 3a 3d 63 69 6e 74 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 2d 28 64 65 ┆24 cint:=cint-owninternal-(de┆
0xb160…b180 73 63 2e 63 6f 6e 69 6e 74 61 6e 64 66 75 6e 63 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 ┆sc.conintandfunc shift (-12) ext┆
0xb180…b1a0 72 61 63 74 20 31 32 29 3b 0a 20 20 34 20 20 31 30 32 35 20 20 20 20 69 66 20 63 62 3c 3d 30 20 ┆ract 12); 4 1025 if cb<=0 ┆
0xb1a0…b1c0 74 68 65 6e 20 72 65 73 3a 3d 65 72 72 6f 72 6e 6f 62 75 66 66 65 72 73 20 65 6c 73 65 0a 20 20 ┆then res:=errornobuffers else ┆
0xb1c0…b1e0 34 20 20 31 30 32 36 20 20 20 20 69 66 20 63 61 3c 3d 30 20 74 68 65 6e 20 72 65 73 3a 3d 65 72 ┆4 1026 if ca<=0 then res:=er┆
0xb1e0…b200 72 6f 72 6e 6f 61 72 65 61 73 20 20 20 65 6c 73 65 0a 20 20 34 20 20 31 30 32 37 20 20 20 20 69 ┆rornoareas else 4 1027 i┆
0xb200…b220 66 20 63 69 6e 74 3c 3d 30 20 74 68 65 6e 20 72 65 73 3a 3d 65 72 72 6f 72 6e 6f 69 6e 74 65 72 ┆f cint<=0 then res:=errornointer┆
0xb220…b240 6e 61 6c 73 3b 0a 20 20 34 20 20 31 30 32 38 20 20 20 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e ┆nals; 4 1028 if res>0 then┆
0xb240…b260 0a 20 20 34 20 20 31 30 32 39 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 30 33 30 20 20 20 ┆ 4 1029 begin 5 1030 ┆
0xb260…b280 20 20 20 70 61 72 61 6d 28 31 29 3a 3d 75 73 62 2d 6f 77 6e 62 75 66 3b 20 70 61 72 61 6d 28 32 ┆ param(1):=usb-ownbuf; param(2┆
0xb280…b2a0 29 3a 3d 75 73 61 2d 6f 77 6e 61 72 65 61 3b 0a 20 20 35 20 20 31 30 33 31 20 20 20 20 20 20 70 ┆):=usa-ownarea; 5 1031 p┆
0xb2a0…b2c0 61 72 61 6d 28 33 29 3a 3d 75 73 69 6e 74 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 35 20 ┆aram(3):=usint-owninternal; 5 ┆
0xb2c0…b2e0 20 31 30 33 32 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 72 65 73 2c 70 61 72 61 ┆ 1032 writeerror(z,res,para┆
0xb2e0…b300 6d 29 3b 0a 20 20 35 20 20 31 30 33 33 20 20 20 20 20 20 63 72 65 61 74 65 63 68 69 6c 64 3a 3d ┆m); 5 1033 createchild:=┆
0xb300…b320 72 65 73 3a 3d 36 3b 0a 20 20 35 20 20 31 30 33 34 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 34 ┆res:=6; 5 1034 end else 4┆
0xb320…b340 20 20 31 30 33 35 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 30 33 36 20 20 20 20 66 72 65 65 ┆ 1035 begin 5 1036 free┆
0xb340…b360 62 75 66 3a 3d 75 73 62 2d 6f 77 6e 62 75 66 3b 20 66 72 65 65 61 72 65 61 3a 3d 75 73 61 2d 6f ┆buf:=usb-ownbuf; freearea:=usa-o┆
0xb360…b380 77 6e 61 72 65 61 3b 0a 20 20 35 20 20 31 30 33 37 20 20 20 20 66 72 65 65 69 6e 74 65 72 6e 61 ┆wnarea; 5 1037 freeinterna┆
0xb380…b3a0 6c 3a 3d 75 73 69 6e 74 2d 6f 77 6e 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 35 20 20 31 30 33 38 20 ┆l:=usint-owninternal; 5 1038 ┆
0xb3a0…b3c0 20 20 20 69 66 20 70 65 72 6d 63 6f 72 65 20 74 68 65 6e 0a 20 20 35 20 20 31 30 33 39 20 20 20 ┆ if permcore then 5 1039 ┆
0xb3c0…b3e0 20 62 65 67 69 6e 0a 20 20 36 20 20 31 30 34 30 20 20 20 20 20 20 70 61 72 61 6d 28 31 29 3a 3d ┆ begin 6 1040 param(1):=┆
0xb3e0…b400 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 3b 0a 20 20 36 20 20 31 30 34 31 20 ┆desc.confirstaddress; 6 1041 ┆
0xb400…b420 (20,) 20 20 20 20 20 70 61 72 61 6d 28 32 29 3a 3d 64 65 73 63 2e 63 6f 6e 74 6f 70 61 64 64 72 65 73 ┆ param(2):=desc.contopaddres┆
0xb420…b440 73 3b 0a 20 20 36 20 20 31 30 34 32 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 30 ┆s; 6 1042 end else 5 10┆
0xb440…b460 34 33 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 30 34 34 20 20 20 20 20 20 64 65 73 63 2e ┆43 begin 6 1044 desc.┆
0xb460…b480 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 3a 3d 70 61 72 61 6d 28 31 29 3a 3d 63 6f 72 65 74 ┆confirstaddress:=param(1):=coret┆
0xb480…b4a0 61 62 6c 65 28 66 62 6c 6f 63 6b 2c 31 29 3b 0a 20 20 36 20 20 31 30 34 35 20 20 20 20 20 20 64 ┆able(fblock,1); 6 1045 d┆
0xb4a0…b4c0 65 73 63 2e 63 6f 6e 74 6f 70 61 64 64 72 65 73 73 3a 3d 70 61 72 61 6d 28 32 29 3a 3d 63 6f 72 ┆esc.contopaddress:=param(2):=cor┆
0xb4c0…b4e0 65 74 61 62 6c 65 28 6c 62 6c 6f 63 6b 2c 31 29 2d 32 3b 0a 20 20 36 20 20 31 30 34 36 20 20 20 ┆etable(lblock,1)-2; 6 1046 ┆
0xb4e0…b500 20 65 6e 64 3b 0a 20 20 35 20 20 31 30 34 37 20 20 20 20 66 6f 72 20 69 3a 3d 33 20 73 74 65 70 ┆ end; 5 1047 for i:=3 step┆
0xb500…b520 20 31 20 75 6e 74 69 6c 20 39 20 64 6f 20 70 61 72 61 6d 28 69 29 3a 3d 64 65 73 63 2e 70 61 72 ┆ 1 until 9 do param(i):=desc.par┆
0xb520…b540 28 69 29 3b 0a 20 20 35 20 20 31 30 34 38 20 20 20 20 73 65 74 62 61 73 65 73 74 64 3b 0a 20 20 ┆(i); 5 1048 setbasestd; ┆
0xb540…b560 35 20 20 31 30 34 39 20 20 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 ┆5 1049 pda:=process_descript┆
0xb560…b580 69 6f 6e 28 6e 61 6d 65 31 29 3b 0a 20 20 35 20 20 31 30 35 30 20 20 20 20 73 74 64 62 69 6e 63 ┆ion(name1); 5 1050 stdbinc┆
0xb580…b5a0 61 74 3a 3d 20 6c 6f 67 61 6e 64 28 64 65 73 63 2e 63 6f 6e 70 72 69 6f 61 6e 64 63 6f 6d 6d 61 ┆at:= logand(desc.conprioandcomma┆
0xb5a0…b5c0 6e 64 73 2c 62 69 74 5f 73 74 64 62 61 73 65 29 3d 30 3b 0a 20 20 35 20 20 31 30 35 31 20 20 20 ┆nds,bit_stdbase)=0; 5 1051 ┆
0xb5c0…b5e0 20 69 66 20 73 74 64 62 69 6e 63 61 74 20 74 68 65 6e 20 70 61 72 61 6d 28 38 29 3a 3d 70 61 72 ┆ if stdbincat then param(8):=par┆
0xb5e0…b600 61 6d 28 39 29 3a 3d 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 3b 0a 20 20 35 20 20 31 ┆am(9):=desc.conloweruser; 5 1┆
0xb600…b620 30 35 32 20 20 20 20 69 66 20 70 64 61 3e 30 20 61 6e 64 20 73 74 64 62 69 6e 63 61 74 20 74 68 ┆052 if pda>0 and stdbincat th┆
0xb620…b640 65 6e 0a 20 20 35 20 20 31 30 35 33 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 30 35 34 20 ┆en 5 1053 begin 6 1054 ┆
0xb640…b660 20 20 20 20 70 61 72 61 6d 28 38 29 3a 3d 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 3b ┆ param(8):=desc.conloweruser;┆
0xb660…b680 0a 20 20 36 20 20 31 30 35 35 20 20 20 20 20 69 3a 3d 30 3b 0a 20 20 36 20 20 31 30 35 36 20 20 ┆ 6 1055 i:=0; 6 1056 ┆
0xb680…b6a0 20 20 20 72 65 70 65 61 74 20 69 3a 3d 69 2b 31 3b 0a 20 20 36 20 20 31 30 35 37 20 20 20 20 20 ┆ repeat i:=i+1; 6 1057 ┆
0xb6a0…b6c0 73 68 3a 3d 2d 34 38 3b 0a 20 20 36 20 20 31 30 35 38 20 20 20 20 20 72 65 70 65 61 74 20 73 68 ┆sh:=-48; 6 1058 repeat sh┆
0xb6c0…b6e0 3a 3d 73 68 2b 38 3b 0a 20 20 36 20 20 31 30 35 39 20 20 20 20 20 20 20 63 68 61 72 3a 3d 6a 6f ┆:=sh+8; 6 1059 char:=jo┆
0xb6e0…b700 62 6e 61 6d 65 28 69 29 20 73 68 69 66 74 20 73 68 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 36 ┆bname(i) shift sh extract 8; 6┆
0xb700…b720 20 20 31 30 36 30 20 20 20 20 20 75 6e 74 69 6c 20 63 68 61 72 3d 30 20 6f 72 20 73 68 3d 30 3b ┆ 1060 until char=0 or sh=0;┆
0xb720…b740 0a 20 20 36 20 20 31 30 36 31 20 20 20 20 20 75 6e 74 69 6c 20 63 68 61 72 3d 30 20 6f 72 20 69 ┆ 6 1061 until char=0 or i┆
0xb740…b760 3d 32 3b 0a 20 20 36 20 20 31 30 36 32 20 20 20 20 72 65 73 3a 3d 33 3b 20 6e 61 6d 65 69 6e 64 ┆=2; 6 1062 res:=3; nameind┆
0xb760…b780 65 78 3a 3d 30 3b 0a 20 20 36 20 20 31 30 36 33 20 20 20 20 77 68 69 6c 65 20 72 65 73 3d 33 20 ┆ex:=0; 6 1063 while res=3 ┆
0xb780…b7a0 61 6e 64 20 6e 61 6d 65 69 6e 64 65 78 3c 39 20 64 6f 0a 20 20 36 20 20 31 30 36 34 20 20 20 20 ┆and nameindex<9 do 6 1064 ┆
0xb7a0…b7c0 62 65 67 69 6e 0a 20 20 37 20 20 31 30 36 35 20 20 20 20 20 20 6e 61 6d 65 31 28 69 29 3a 3d 28 ┆begin 7 1065 name1(i):=(┆
0xb7c0…b7e0 6a 6f 62 6e 61 6d 65 28 69 29 20 73 68 69 66 74 20 73 68 20 61 64 64 0a 20 20 37 20 20 31 30 36 ┆jobname(i) shift sh add 7 106┆
0xb7e0…b800 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 34 38 2b 6e 61 6d 65 69 6e 64 65 78 29 29 20 ┆6 (48+nameindex)) ┆
0xb800…b820 73 68 69 66 74 20 28 2d 73 68 29 3b 0a 20 20 37 20 20 31 30 36 37 20 20 20 20 20 20 70 61 72 61 ┆shift (-sh); 7 1067 para┆
0xb820…b840 6d 28 38 29 3a 3d 70 61 72 61 6d 28 39 29 3a 3d 70 61 72 61 6d 28 38 29 2b 31 3b 0a 20 20 37 20 ┆m(8):=param(9):=param(8)+1; 7 ┆
0xb840…b860 20 31 30 36 38 20 20 20 20 20 20 72 65 73 3a 3d 63 72 65 61 74 65 69 6e 74 28 6e 61 6d 65 31 2c ┆ 1068 res:=createint(name1,┆
0xb860…b880 70 61 72 61 6d 29 3b 0a 20 20 37 20 20 31 30 36 39 20 3c 2a 2b 32 2a 3e 0a 20 20 37 20 20 31 30 ┆param); 7 1069 <*+2*> 7 10┆
0xb880…b8a0 37 30 20 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c ┆70 if testop(2) then disabl┆
0xb8a0…b8c0 65 0a 20 20 37 20 20 31 30 37 31 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 ┆e 7 1071 write(z,"nl",1┆
0xb8c0…b8e0 2c 6e 61 6d 65 69 6e 64 65 78 2c 6e 61 6d 65 31 2c 70 61 72 61 6d 28 38 29 2c 69 2c 73 68 29 3b ┆,nameindex,name1,param(8),i,sh);┆
0xb8e0…b900 0a 20 20 37 20 20 31 30 37 32 20 3c 2a 2d 32 2a 3e 0a 20 20 37 20 20 31 30 37 33 20 20 20 20 20 ┆ 7 1072 <*-2*> 7 1073 ┆
0xb900…b920 20 6e 61 6d 65 69 6e 64 65 78 3a 3d 6e 61 6d 65 69 6e 64 65 78 2b 31 3b 0a 20 20 37 20 20 31 30 ┆ nameindex:=nameindex+1; 7 10┆
0xb920…b940 37 34 20 20 20 20 65 6e 64 20 77 68 69 6c 65 3b 0a 20 20 36 20 20 31 30 37 35 20 20 20 65 6e 64 ┆74 end while; 6 1075 end┆
0xb940…b960 20 65 6c 73 65 20 72 65 73 3a 3d 63 72 65 61 74 65 69 6e 74 28 6e 61 6d 65 31 2c 70 61 72 61 6d ┆ else res:=createint(name1,param┆
0xb960…b980 29 3b 0a 20 20 35 20 20 31 30 37 36 20 3c 2a 2b 32 2a 3e 0a 20 20 35 20 20 31 30 37 37 20 69 66 ┆); 5 1076 <*+2*> 5 1077 if┆
0xb980…b9a0 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a 2c ┆ testop(2) then disable write(z,┆
0xb9a0…b9c0 22 6e 6c 22 2c 31 2c 3c 3a 63 72 65 61 74 65 69 6e 74 3a 20 72 65 73 20 3a 3e 2c 72 65 73 2c 0a ┆"nl",1,<:createint: res :>,res, ┆
0xb9c0…b9e0 20 20 35 20 20 31 30 37 38 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 6e 61 6d 65 20 3a 3e 2c ┆ 5 1078 "nl",1,<:name :>,┆
0xb9e0…ba00 6e 61 6d 65 31 2c 0a 20 20 35 20 20 31 30 37 39 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 66 ┆name1, 5 1079 "nl",1,<:f┆
0xba00…ba20 61 64 64 72 3a 3e 2c 70 61 72 61 6d 28 31 29 2c 0a 20 20 35 20 20 31 30 38 30 20 20 20 20 20 20 ┆addr:>,param(1), 5 1080 ┆
0xba20…ba40 22 6e 6c 22 2c 31 2c 3c 3a 74 61 64 64 72 3a 3e 2c 70 61 72 61 6d 28 32 29 2c 0a 20 20 35 20 20 ┆"nl",1,<:taddr:>,param(2), 5 ┆
0xba40…ba60 31 30 38 31 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 62 20 61 20 61 3a 3e 2c 70 61 72 61 6d ┆1081 "nl",1,<:b a a:>,param┆
0xba60…ba80 28 33 29 2c 0a 20 20 35 20 20 31 30 38 32 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 69 20 61 ┆(3), 5 1082 "nl",1,<:i a┆
0xba80…baa0 20 66 3a 3e 2c 70 61 72 61 6d 28 34 29 2c 0a 20 20 35 20 20 31 30 38 33 20 20 20 20 20 20 22 6e ┆ f:>,param(4), 5 1083 "n┆
0xbaa0…bac0 6c 22 2c 31 2c 3c 3a 6d 6f 64 65 20 3a 3e 2c 70 61 72 61 6d 28 35 29 2c 0a 20 20 35 20 20 31 30 ┆l",1,<:mode :>,param(5), 5 10┆
0xbac0…bae0 38 34 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 6d 61 78 62 20 3a 3e 2c 70 61 72 61 6d 28 36 ┆84 "nl",1,<:maxb :>,param(6┆
0xbae0…bb00 29 2c 70 61 72 61 6d 28 37 29 2c 0a 20 20 35 20 20 31 30 38 35 20 20 20 20 20 20 22 6e 6c 22 2c ┆),param(7), 5 1085 "nl",┆
0xbb00…bb20 31 2c 3c 3a 73 74 64 62 20 3a 3e 2c 70 61 72 61 6d 28 38 29 2c 70 61 72 61 6d 28 39 29 2c 0a 20 ┆1,<:stdb :>,param(8),param(9), ┆
0xbb20…bb40 20 35 20 20 31 30 38 36 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 69 66 20 73 74 64 62 69 6e 63 61 ┆ 5 1086 "nl",1,if stdbinca┆
0xbb40…bb60 74 20 74 68 65 6e 20 3c 3a 3a 3e 20 65 6c 73 65 20 3c 3a 2a 73 74 64 62 61 73 65 3d 75 73 65 72 ┆t then <::> else <:*stdbase=user┆
0xbb60…bb80 62 61 73 65 3a 3e 29 3b 0a 20 20 35 20 20 31 30 38 37 20 3c 2a 2d 32 2a 3e 0a 20 20 35 20 20 31 ┆base:>); 5 1087 <*-2*> 5 1┆
0xbb80…bba0 30 38 38 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e 0a 20 20 35 20 20 31 30 38 39 20 62 65 67 69 ┆088 if res>0 then 5 1089 begi┆
0xbba0…bbc0 6e 0a 20 20 36 20 20 31 30 39 30 20 20 20 63 72 65 61 74 65 63 68 69 6c 64 3a 3d 72 65 73 2b 38 ┆n 6 1090 createchild:=res+8┆
0xbbc0…bbe0 3b 0a 20 20 36 20 20 31 30 39 31 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 ┆; 6 1091 writeerror(z,case ┆
0xbbe0…bc00 72 65 73 20 6f 66 20 28 0a 20 20 36 20 20 31 30 39 32 20 20 20 20 20 65 72 72 6f 72 72 65 73 75 ┆res of ( 6 1092 errorresu┆
0xbc00…bc20 6c 74 69 6d 70 6f 73 73 69 62 6c 65 2c 65 72 72 6f 72 63 61 74 61 6c 6f 67 65 72 72 6f 72 2c 65 ┆ltimpossible,errorcatalogerror,e┆
0xbc20…bc40 72 72 6f 72 6e 61 6d 65 63 6f 6e 66 6c 69 63 74 29 2c 64 65 73 63 29 3b 0a 20 20 36 20 20 31 30 ┆rrornameconflict),desc); 6 10┆
0xbc40…bc60 39 33 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 30 39 34 20 62 65 67 69 6e 0a 20 20 36 20 ┆93 end else 5 1094 begin 6 ┆
0xbc60…bc80 20 31 30 39 35 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 64 65 73 63 2e 63 6f 6e 5f 70 ┆ 1095 for i:=1,2 do desc.con_p┆
0xbc80…bca0 72 6f 63 5f 6e 61 6d 65 28 69 29 3a 3d 6e 61 6d 65 31 28 69 29 3b 0a 20 20 36 20 20 31 30 39 36 ┆roc_name(i):=name1(i); 6 1096┆
0xbca0…bcc0 20 20 20 73 65 74 63 61 74 62 61 73 65 28 6e 61 6d 65 31 2c 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 ┆ setcatbase(name1,desc.conlowe┆
0xbcc0…bce0 72 75 73 65 72 2c 64 65 73 63 2e 63 6f 6e 75 70 70 65 72 75 73 65 72 29 3b 0a 20 20 36 20 20 31 ┆ruser,desc.conupperuser); 6 1┆
0xbce0…bd00 30 39 37 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 64 65 73 63 2e 63 6f 6e 5f 70 72 6f ┆097 for i:=1,2 do desc.con_pro┆
0xbd00…bd20 (21,) 63 5f 6e 61 6d 65 28 69 29 3a 3d 6e 61 6d 65 31 28 69 29 3b 0a 20 20 36 20 20 31 30 39 38 20 20 ┆c_name(i):=name1(i); 6 1098 ┆
0xbd20…bd40 20 63 68 69 6c 64 72 65 6e 63 72 65 61 74 65 64 3a 3d 63 68 69 6c 64 72 65 6e 63 72 65 61 74 65 ┆ childrencreated:=childrencreate┆
0xbd40…bd60 64 2b 31 3b 0a 20 20 36 20 20 31 30 39 39 20 20 20 63 75 72 63 68 69 6c 64 72 65 6e 3a 3d 63 75 ┆d+1; 6 1099 curchildren:=cu┆
0xbd60…bd80 72 63 68 69 6c 64 72 65 6e 2b 31 3b 0a 20 20 36 20 20 31 31 30 30 20 20 20 69 66 20 6c 6f 67 61 ┆rchildren+1; 6 1100 if loga┆
0xbd80…bda0 6e 64 28 64 65 73 63 2e 63 6f 6e 70 72 69 6f 5f 61 6e 64 5f 63 6f 6d 6d 61 6e 64 73 2c 62 69 74 ┆nd(desc.conprio_and_commands,bit┆
0xbda0…bdc0 5f 70 72 69 76 29 3d 30 20 74 68 65 6e 0a 20 20 36 20 20 31 31 30 31 20 20 20 69 6e 63 6c 75 64 ┆_priv)=0 then 6 1101 includ┆
0xbdc0…bde0 65 5f 64 65 76 69 63 65 73 28 6e 61 6d 65 31 2c 69 6e 63 6c 75 64 65 6c 69 73 74 2c 6c 61 73 74 ┆e_devices(name1,includelist,last┆
0xbde0…be00 64 65 76 69 63 65 29 20 65 6c 73 65 0a 20 20 36 20 20 31 31 30 32 20 20 20 66 6f 72 20 69 3a 3d ┆device) else 6 1102 for i:=┆
0xbe00…be20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 61 73 74 74 65 72 6d 69 6e 61 6c 20 64 6f 20 69 ┆0 step 1 until lastterminal do i┆
0xbe20…be40 6e 63 6c 75 64 65 5f 75 73 65 72 28 6e 61 6d 65 31 2c 69 29 3b 0a 20 20 36 20 20 31 31 30 33 20 ┆nclude_user(name1,i); 6 1103 ┆
0xbe40…be60 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 6e 61 6d 65 31 ┆ pda:=process_description(name1┆
0xbe60…be80 29 3b 0a 20 20 36 20 20 31 31 30 34 20 20 20 69 66 20 70 65 72 6d 63 6f 72 65 20 74 68 65 6e 20 ┆); 6 1104 if permcore then ┆
0xbe80…bea0 65 6c 73 65 0a 20 20 36 20 20 31 31 30 35 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 31 30 36 ┆else 6 1105 begin 7 1106┆
0xbea0…bec0 20 20 20 20 20 66 6f 72 20 63 62 6e 3a 3d 6c 62 6c 6f 63 6b 2d 31 20 73 74 65 70 20 2d 31 20 75 ┆ for cbn:=lblock-1 step -1 u┆
0xbec0…bee0 6e 74 69 6c 20 66 62 6c 6f 63 6b 20 64 6f 20 63 6f 72 65 74 61 62 6c 65 28 63 62 6e 2c 32 29 3a ┆ntil fblock do coretable(cbn,2):┆
0xbee0…bf00 3d 70 64 61 3b 0a 20 20 37 20 20 31 31 30 37 20 3c 2a 2b 32 2a 3e 0a 20 20 37 20 20 31 31 30 38 ┆=pda; 7 1107 <*+2*> 7 1108┆
0xbf00…bf20 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 ┆ if testop(2) then write(z,"┆
0xbf20…bf40 6e 6c 22 2c 31 2c 3c 3a 66 62 6c 6f 63 6b 2c 20 6c 62 6c 6f 63 6b 3a 3e 2c 66 62 6c 6f 63 6b 2c ┆nl",1,<:fblock, lblock:>,fblock,┆
0xbf40…bf60 6c 62 6c 6f 63 6b 29 3b 0a 20 20 37 20 20 31 31 30 39 20 3c 2a 2d 32 2a 3e 0a 20 20 37 20 20 31 ┆lblock); 7 1109 <*-2*> 7 1┆
0xbf60…bf80 31 31 30 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 31 31 31 20 20 20 63 62 6e 3a 3d 30 3b 0a 20 ┆110 end; 6 1111 cbn:=0; ┆
0xbf80…bfa0 20 36 20 20 31 31 31 32 20 20 20 63 74 3a 3d 2d 63 74 5f 73 69 7a 65 3b 0a 20 20 36 20 20 31 31 ┆ 6 1112 ct:=-ct_size; 6 11┆
0xbfa0…bfc0 31 33 20 20 20 72 65 70 65 61 74 20 63 62 6e 3a 3d 63 62 6e 2b 31 3b 0a 20 20 36 20 20 31 31 31 ┆13 repeat cbn:=cbn+1; 6 111┆
0xbfc0…bfe0 34 20 20 20 63 74 3a 3d 63 74 2b 63 74 5f 73 69 7a 65 3b 0a 20 20 36 20 20 31 31 31 35 20 20 20 ┆4 ct:=ct+ct_size; 6 1115 ┆
0xbfe0…c000 69 6e 73 70 65 63 74 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 65 6d 2c 69 29 3b ┆inspect(childtable.ct.ct_sem,i);┆
0xc000…c020 0a 20 20 36 20 20 31 31 31 36 20 20 20 75 6e 74 69 6c 20 63 62 6e 3e 6d 61 78 63 68 69 6c 64 72 ┆ 6 1116 until cbn>maxchildr┆
0xc020…c040 65 6e 20 6f 72 20 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 ┆en or (childtable.ct.ct_childpda┆
0xc040…c060 3d 30 20 61 6e 64 20 69 3e 30 29 3b 0a 20 20 36 20 20 31 31 31 37 20 20 20 63 68 69 6c 64 74 61 ┆=0 and i>0); 6 1117 childta┆
0xc060…c080 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 5f 70 64 61 3a 3d 70 64 61 3b 0a 20 20 36 20 20 31 ┆ble.ct.ct_child_pda:=pda; 6 1┆
0xc080…c0a0 31 31 38 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 74 65 72 6d 5f 70 64 61 3a ┆118 childtable.ct.ct_term_pda:┆
0xc0a0…c0c0 3d 64 65 73 63 2e 63 6f 6e 74 65 72 6d 70 64 61 3b 3b 0a 20 20 36 20 20 31 31 31 39 20 20 20 63 ┆=desc.contermpda;; 6 1119 c┆
0xc0c0…c0e0 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 63 72 65 ┆hildtable.ct.ct_state:=state_cre┆
0xc0e0…c100 61 74 65 64 3b 20 3c 2a 63 72 65 61 74 65 64 2a 3e 0a 20 20 36 20 20 31 31 32 30 20 20 20 63 68 ┆ated; <*created*> 6 1120 ch┆
0xc100…c120 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 72 65 66 3a 3d 64 65 73 63 2e 63 6f 6e 72 65 66 3b ┆ildtable.ct.ct_ref:=desc.conref;┆
0xc120…c140 0a 20 20 36 20 20 31 31 32 31 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 63 68 69 6c 64 ┆ 6 1121 for i:=1,2 do child┆
0xc140…c160 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6a 6f 62 6e 61 6d 65 28 69 29 3a 3d 6a 6f 62 6e 61 6d 65 28 ┆table.ct.ct_jobname(i):=jobname(┆
0xc160…c180 69 29 3b 0a 20 20 36 20 20 31 31 32 32 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 ┆i); 6 1122 childtable.ct.ct┆
0xc180…c1a0 5f 66 69 72 73 74 3a 3d 70 61 72 61 6d 28 31 29 3b 0a 20 20 36 20 20 31 31 32 33 20 20 20 63 68 ┆_first:=param(1); 6 1123 ch┆
0xc1a0…c1c0 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6c 61 73 74 20 3a 3d 70 61 72 61 6d 28 32 29 3b 0a ┆ildtable.ct.ct_last :=param(2); ┆
0xc1c0…c1e0 20 20 36 20 20 31 31 32 34 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 ┆ 6 1124 childtable.ct.ct_use┆
0xc1e0…c200 72 63 61 74 6e 6f 3a 3d 64 65 73 63 2e 63 6f 6e 75 73 65 72 63 61 74 6e 6f 3b 0a 20 20 36 20 20 ┆rcatno:=desc.conusercatno; 6 ┆
0xc200…c220 31 31 32 35 20 20 20 64 65 73 63 2e 63 6f 6e 5f 63 75 72 5f 63 68 69 6c 64 3a 3d 63 62 6e 3b 0a ┆1125 desc.con_cur_child:=cbn; ┆
0xc220…c240 20 20 36 20 20 31 31 32 36 20 20 20 64 65 73 63 2e 63 6f 6e 5f 63 75 72 5f 63 68 69 6c 64 70 64 ┆ 6 1126 desc.con_cur_childpd┆
0xc240…c260 61 3a 3d 70 64 61 3b 0a 20 20 36 20 20 31 31 32 37 20 3c 2a 2b 32 2a 3e 0a 20 20 36 20 20 31 31 ┆a:=pda; 6 1127 <*+2*> 6 11┆
0xc260…c280 32 38 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 ┆28 if testop(2) then disable wr┆
0xc280…c2a0 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 63 68 69 6c 64 20 6e 6f 20 3a 3e 2c 63 62 6e 2c 0a ┆ite(z,"nl",1,<:child no :>,cbn, ┆
0xc2a0…c2c0 20 20 36 20 20 31 31 32 39 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f ┆ 6 1129 childtable.ct.ct_┆
0xc2c0…c2e0 63 68 69 6c 64 6e 6f 2c 0a 20 20 36 20 20 31 31 33 30 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c ┆childno, 6 1130 "nl",1,<┆
0xc2e0…c300 3a 63 68 69 6c 64 70 64 61 3a 3e 2c 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 ┆:childpda:>,childtable.ct.ct_chi┆
0xc300…c320 6c 64 70 64 61 29 3b 0a 20 20 36 20 20 31 31 33 31 20 3c 2a 2d 32 2a 3e 0a 20 20 36 20 20 31 31 ┆ldpda); 6 1131 <*-2*> 6 11┆
0xc320…c340 33 32 20 65 6e 64 3b 0a 20 20 35 20 20 31 31 33 33 20 20 20 72 65 73 65 74 62 61 73 65 3b 0a 20 ┆32 end; 5 1133 resetbase; ┆
0xc340…c360 20 35 20 20 31 31 33 34 20 20 20 65 6e 64 20 62 75 66 2c 61 72 65 61 2c 69 6e 74 20 6f 6b 3b 0a ┆ 5 1134 end buf,area,int ok; ┆
0xc360…c380 20 20 34 20 20 31 31 33 35 20 65 6e 64 20 63 6f 72 65 62 6c 6f 63 6b 5f 66 6f 75 6e 64 3b 0a 20 ┆ 4 1135 end coreblock_found; ┆
0xc380…c3a0 20 33 20 20 31 31 33 36 20 0a 20 20 33 20 20 31 31 33 36 20 65 6e 64 20 63 72 65 61 74 65 5f 63 ┆ 3 1136 3 1136 end create_c┆
0xc3a0…c3c0 68 69 6c 64 3b 0a 20 20 32 20 20 31 31 33 37 20 0a 20 20 32 20 20 31 31 33 37 20 69 6e 74 65 67 ┆hild; 2 1137 2 1137 integ┆
0xc3c0…c3e0 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 63 68 69 6c 64 28 64 65 73 63 2c 65 72 72 ┆er procedure checkchild(desc,err┆
0xc3e0…c400 6f 72 2c 7a 2c 63 74 29 3b 0a 20 20 32 20 20 31 31 33 38 20 76 61 6c 75 65 20 65 72 72 6f 72 3b ┆or,z,ct); 2 1138 value error;┆
0xc400…c420 20 62 6f 6f 6c 65 61 6e 20 65 72 72 6f 72 3b 0a 20 20 32 20 20 31 31 33 39 20 69 6e 74 65 67 65 ┆ boolean error; 2 1139 intege┆
0xc420…c440 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 32 20 20 31 31 34 30 20 7a 6f 6e 65 20 7a 3b 0a ┆r array desc; 2 1140 zone z; ┆
0xc440…c460 20 20 32 20 20 31 31 34 31 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 63 74 ┆ 2 1141 integer array field ct┆
0xc460…c480 3b 0a 20 20 32 20 20 31 31 34 32 20 62 65 67 69 6e 0a 20 20 33 20 20 31 31 34 33 20 69 6e 74 65 ┆; 2 1142 begin 3 1143 inte┆
0xc480…c4a0 67 65 72 20 70 64 61 2c 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 31 31 34 34 20 20 20 3c 2a 63 68 ┆ger pda,cn,res; 3 1144 <*ch┆
0xc4a0…c4c0 65 63 6b 73 20 77 68 65 74 68 65 72 20 74 68 65 20 6e 61 6d 65 20 69 6e 20 64 65 73 63 20 69 73 ┆ecks whether the name in desc is┆
0xc4c0…c4e0 20 61 20 63 68 69 6c 64 20 6f 66 20 74 68 69 73 20 63 6f 6e 73 6f 6c 65 2a 3e 0a 20 20 33 20 20 ┆ a child of this console*> 3 ┆
0xc4e0…c500 31 31 34 35 20 20 20 72 65 73 3a 3d 31 3b 0a 20 20 33 20 20 31 31 34 36 20 20 20 63 6e 3a 3d 30 ┆1145 res:=1; 3 1146 cn:=0┆
0xc500…c520 3b 0a 20 20 33 20 20 31 31 34 37 20 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 5f 64 65 73 63 72 ┆; 3 1147 pda:=process_descr┆
0xc520…c540 69 70 74 69 6f 6e 28 64 65 73 63 2e 63 6f 6e 5f 70 72 6f 63 5f 6e 61 6d 65 29 3b 0a 20 20 33 20 ┆iption(desc.con_proc_name); 3 ┆
0xc540…c560 20 31 31 34 38 20 20 20 69 66 20 70 64 61 3e 30 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 34 20 ┆ 1148 if pda>0 then begin 4 ┆
0xc560…c580 20 31 31 34 39 20 20 20 20 20 72 65 73 3a 3d 30 3b 0a 20 20 34 20 20 31 31 35 30 20 20 20 20 20 ┆ 1149 res:=0; 4 1150 ┆
0xc580…c5a0 63 74 3a 3d 2d 63 74 5f 73 69 7a 65 3b 0a 20 20 34 20 20 31 31 35 31 20 20 20 20 20 72 65 70 65 ┆ct:=-ct_size; 4 1151 repe┆
0xc5a0…c5c0 61 74 20 63 6e 3a 3d 63 6e 2b 31 3b 0a 20 20 34 20 20 31 31 35 32 20 20 20 20 20 63 74 3a 3d 63 ┆at cn:=cn+1; 4 1152 ct:=c┆
0xc5c0…c5e0 74 2b 63 74 73 69 7a 65 3b 0a 20 20 34 20 20 31 31 35 33 20 20 20 20 20 75 6e 74 69 6c 20 63 6e ┆t+ctsize; 4 1153 until cn┆
0xc5e0…c600 3e 6d 61 78 63 68 69 6c 64 72 65 6e 20 6f 72 20 70 64 61 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 ┆>maxchildren or pda=childtable.c┆
0xc600…c620 (22,) 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a 20 20 34 20 20 31 31 35 34 20 20 20 20 20 69 66 20 ┆t.ct_childpda; 4 1154 if ┆
0xc620…c640 63 6e 3e 6d 61 78 63 68 69 6c 64 72 65 6e 20 74 68 65 6e 20 72 65 73 3a 3d 31 20 65 6c 73 65 0a ┆cn>maxchildren then res:=1 else ┆
0xc640…c660 20 20 34 20 20 31 31 35 35 20 20 20 20 20 69 66 20 28 64 65 73 63 2e 63 6f 6e 74 65 72 6d 70 64 ┆ 4 1155 if (desc.contermpd┆
0xc660…c680 61 3c 3e 73 79 73 63 6f 6e 70 64 61 20 61 6e 64 0a 20 20 34 20 20 31 31 35 36 20 20 20 20 20 20 ┆a<>sysconpda and 4 1156 ┆
0xc680…c6a0 20 20 64 65 73 63 2e 63 6f 6e 74 65 72 6d 70 64 61 3c 3e 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 ┆ desc.contermpda<>childtable.ct┆
0xc6a0…c6c0 2e 63 74 5f 74 65 72 6d 70 64 61 29 20 6f 72 0a 20 20 34 20 20 31 31 35 37 20 20 20 20 20 20 20 ┆.ct_termpda) or 4 1157 ┆
0xc6c0…c6e0 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 63 68 3e 30 20 74 68 65 6e 20 72 ┆ childtable.ct.ctbatch>0 then r┆
0xc6e0…c700 65 73 3a 3d 32 3b 0a 20 20 34 20 20 31 31 35 38 20 20 20 65 6e 64 20 70 64 61 3e 30 3b 0a 20 20 ┆es:=2; 4 1158 end pda>0; ┆
0xc700…c720 33 20 20 31 31 35 39 20 63 68 65 63 6b 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 31 ┆3 1159 checkchild:=res; 3 11┆
0xc720…c740 36 30 20 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3a 3d 69 66 20 72 65 73 3d 30 20 74 68 ┆60 desc.concurchild:=if res=0 th┆
0xc740…c760 65 6e 20 63 6e 20 65 6c 73 65 20 30 3b 3b 0a 20 20 33 20 20 31 31 36 31 20 64 65 73 63 2e 63 6f ┆en cn else 0;; 3 1161 desc.co┆
0xc760…c780 6e 63 75 72 63 68 69 6c 64 70 64 61 3a 3d 69 66 20 72 65 73 3d 30 20 74 68 65 6e 20 70 64 61 20 ┆ncurchildpda:=if res=0 then pda ┆
0xc780…c7a0 65 6c 73 65 20 30 3b 0a 20 20 33 20 20 31 31 36 32 20 69 66 20 72 65 73 3e 30 20 61 6e 64 20 65 ┆else 0; 3 1162 if res>0 and e┆
0xc7a0…c7c0 72 72 6f 72 20 74 68 65 6e 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 72 65 73 20 ┆rror then writeerror(z,case res ┆
0xc7c0…c7e0 6f 66 20 28 65 72 72 6f 72 70 72 6f 63 65 73 73 75 6e 6b 6e 6f 77 6e 2c 0a 20 20 33 20 20 31 31 ┆of (errorprocessunknown, 3 11┆
0xc7e0…c800 36 33 20 20 20 20 20 20 65 72 72 6f 72 6e 6f 74 61 6c 6c 6f 77 65 64 29 2c 64 65 73 63 29 3b 0a ┆63 errornotallowed),desc); ┆
0xc800…c820 20 20 33 20 20 31 31 36 34 20 65 6e 64 20 63 68 65 63 6b 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 ┆ 3 1164 end checkchild; 2 1┆
0xc820…c840 31 36 35 20 0a 20 20 32 20 20 31 31 36 35 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 ┆165 2 1165 integer procedure┆
0xc840…c860 20 6c 6f 61 64 5f 61 6e 64 5f 6d 6f 64 69 66 79 28 64 65 73 63 2c 7a 2c 6d 6f 64 65 29 3b 0a 20 ┆ load_and_modify(desc,z,mode); ┆
0xc860…c880 20 32 20 20 31 31 36 36 20 76 61 6c 75 65 20 6d 6f 64 65 3b 20 62 6f 6f 6c 65 61 6e 20 6d 6f 64 ┆ 2 1166 value mode; boolean mod┆
0xc880…c8a0 65 3b 0a 20 20 32 20 20 31 31 36 37 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b ┆e; 2 1167 integer array desc;┆
0xc8a0…c8c0 0a 20 20 32 20 20 31 31 36 38 20 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 31 31 36 39 20 62 65 67 ┆ 2 1168 zone z; 2 1169 beg┆
0xc8c0…c8e0 69 6e 0a 20 20 33 20 20 31 31 37 30 20 69 6e 74 65 67 65 72 20 72 65 73 2c 72 65 70 2c 70 72 6f ┆in 3 1170 integer res,rep,pro┆
0xc8e0…c900 67 65 78 74 2c 62 61 73 65 3b 0a 20 20 33 20 20 31 31 37 31 20 69 6e 74 65 67 65 72 20 61 72 72 ┆gext,base; 3 1171 integer arr┆
0xc900…c920 61 79 20 66 69 65 6c 64 20 63 68 69 6c 64 70 64 61 2c 63 74 3b 0a 20 20 33 20 20 31 31 37 32 20 ┆ay field childpda,ct; 3 1172 ┆
0xc920…c940 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 4d 2c 41 28 31 3a 38 29 2c 70 61 72 61 6d 28 31 3a 36 ┆integer array M,A(1:8),param(1:6┆
0xc940…c960 29 3b 0a 20 20 33 20 20 31 31 37 33 20 6c 6f 6e 67 20 61 72 72 61 79 20 62 73 6e 61 6d 65 28 31 ┆); 3 1173 long array bsname(1┆
0xc960…c980 3a 33 29 3b 0a 20 20 33 20 20 31 31 37 34 20 0a 20 20 33 20 20 31 31 37 34 20 70 72 6f 63 65 64 ┆:3); 3 1174 3 1174 proced┆
0xc980…c9a0 75 72 65 20 73 65 74 5f 69 6e 5f 6f 75 74 28 6e 61 6d 65 2c 70 72 6f 63 29 3b 0a 20 20 33 20 20 ┆ure set_in_out(name,proc); 3 ┆
0xc9a0…c9c0 31 31 37 35 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6e 61 6d 65 3b 0a 20 20 33 20 ┆1175 long array field name; 3 ┆
0xc9c0…c9e0 20 31 31 37 36 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 70 72 6f 63 3b 0a 20 20 33 20 20 31 ┆ 1176 integer field proc; 3 1┆
0xc9e0…ca00 31 37 37 20 69 66 20 64 65 73 63 2e 6e 61 6d 65 28 31 29 3c 3e 30 20 6f 72 20 64 65 73 63 2e 6e ┆177 if desc.name(1)<>0 or desc.n┆
0xca00…ca20 61 6d 65 28 32 29 3c 3e 30 20 74 68 65 6e 0a 20 20 33 20 20 31 31 37 38 20 62 65 67 69 6e 0a 20 ┆ame(2)<>0 then 3 1178 begin ┆
0xca20…ca40 20 34 20 20 31 31 37 39 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 64 61 ┆ 4 1179 integer array field pda┆
0xca40…ca60 3b 0a 20 20 34 20 20 31 31 38 30 20 20 20 64 65 73 63 2e 70 72 6f 63 3a 3d 70 64 61 3a 3d 70 72 ┆; 4 1180 desc.proc:=pda:=pr┆
0xca60…ca80 6f 63 65 73 73 64 65 73 63 72 69 70 74 69 6f 6e 28 64 65 73 63 2e 6e 61 6d 65 29 3b 0a 20 20 34 ┆ocessdescription(desc.name); 4┆
0xca80…caa0 20 20 31 31 38 31 20 20 20 69 66 20 70 64 61 3d 30 20 74 68 65 6e 0a 20 20 34 20 20 31 31 38 32 ┆ 1181 if pda=0 then 4 1182┆
0xcaa0…cac0 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 31 38 33 20 20 20 20 20 73 65 74 5f 62 61 73 65 28 ┆ begin 5 1183 set_base(┆
0xcac0…cae0 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 2c 64 65 73 63 2e 63 6f 6e 75 70 70 65 72 75 ┆desc.conloweruser,desc.conupperu┆
0xcae0…cb00 73 65 72 29 3b 0a 20 20 35 20 20 31 31 38 34 20 20 20 20 20 72 65 73 3a 3d 63 72 65 61 74 65 61 ┆ser); 5 1184 res:=createa┆
0xcb00…cb20 72 65 61 70 72 6f 63 65 73 73 28 64 65 73 63 2e 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 31 38 35 ┆reaprocess(desc.name); 5 1185┆
0xcb20…cb40 20 20 20 20 20 69 66 20 72 65 73 3c 3e 30 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 ┆ if res<>0 then write(z,"nl"┆
0xcb40…cb60 2c 31 2c 3c 3a 2a 2a 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 3a 3e 2c 0a 20 ┆,1,<:**create area process :>, ┆
0xcb60…cb80 20 35 20 20 31 31 38 36 20 20 20 20 20 20 20 20 20 64 65 73 63 2e 6e 61 6d 65 2c 72 65 73 29 3b ┆ 5 1186 desc.name,res);┆
0xcb80…cba0 0a 20 20 35 20 20 31 31 38 37 20 20 20 20 20 70 64 61 3a 3d 70 72 6f 63 65 73 73 64 65 73 63 72 ┆ 5 1187 pda:=processdescr┆
0xcba0…cbc0 69 70 74 69 6f 6e 28 64 65 73 63 2e 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 31 38 38 20 20 20 20 ┆iption(desc.name); 5 1188 ┆
0xcbc0…cbe0 20 69 66 20 70 64 61 3d 30 20 74 68 65 6e 20 64 65 73 63 2e 70 72 6f 63 3a 3d 64 65 73 63 2e 63 ┆ if pda=0 then desc.proc:=desc.c┆
0xcbe0…cc00 6f 6e 74 65 72 6d 70 64 61 20 65 6c 73 65 0a 20 20 35 20 20 31 31 38 39 20 20 20 20 20 64 65 73 ┆ontermpda else 5 1189 des┆
0xcc00…cc20 63 2e 70 72 6f 63 3a 3d 70 64 61 3b 0a 20 20 35 20 20 31 31 39 30 20 20 20 20 20 72 65 73 65 74 ┆c.proc:=pda; 5 1190 reset┆
0xcc20…cc40 5f 62 61 73 65 3b 0a 20 20 35 20 20 31 31 39 31 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 31 31 39 ┆_base; 5 1191 end; 4 119┆
0xcc40…cc60 32 20 65 6e 64 20 73 65 74 20 69 6e 20 6f 75 74 3b 0a 20 20 33 20 20 31 31 39 33 20 0a 20 20 33 ┆2 end set in out; 3 1193 3┆
0xcc60…cc80 20 20 31 31 39 33 20 63 68 69 6c 64 70 64 61 3a 3d 70 72 6f 63 65 73 73 64 65 73 63 72 69 70 74 ┆ 1193 childpda:=processdescript┆
0xcc80…cca0 69 6f 6e 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 33 20 20 31 31 39 34 ┆ion(desc.conprocname); 3 1194┆
0xcca0…ccc0 20 6c 6f 61 64 5f 61 6e 64 5f 6d 6f 64 69 66 79 3a 3d 31 3b 0a 20 20 33 20 20 31 31 39 35 20 3c ┆ load_and_modify:=1; 3 1195 <┆
0xccc0…cce0 2a 2b 32 2a 3e 0a 20 20 33 20 20 31 31 39 36 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 ┆*+2*> 3 1196 if testop(2) the┆
0xcce0…cd00 6e 20 64 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 6c 6f 61 64 20 ┆n disable write(z,"nl",1,<:load ┆
0xcd00…cd20 61 6e 64 20 6d 6f 64 69 66 79 3a 3e 2c 0a 20 20 33 20 20 31 31 39 37 20 20 20 20 20 22 6e 6c 22 ┆and modify:>, 3 1197 "nl"┆
0xcd20…cd40 2c 31 2c 3c 3a 63 68 69 6c 64 20 70 64 61 20 3a 3e 2c 63 68 69 6c 64 70 64 61 29 3b 0a 20 20 33 ┆,1,<:child pda :>,childpda); 3┆
0xcd40…cd60 20 20 31 31 39 38 20 3c 2a 2d 32 2a 3e 0a 20 20 33 20 20 31 31 39 39 20 69 66 20 63 68 69 6c 64 ┆ 1198 <*-2*> 3 1199 if child┆
0xcd60…cd80 70 64 61 3e 30 20 61 6e 64 20 77 6f 72 64 6c 6f 61 64 28 63 68 69 6c 64 70 64 61 29 3d 30 20 74 ┆pda>0 and wordload(childpda)=0 t┆
0xcd80…cda0 68 65 6e 0a 20 20 33 20 20 31 32 30 30 20 62 65 67 69 6e 0a 20 20 34 20 20 31 32 30 31 20 20 20 ┆hen 3 1200 begin 4 1201 ┆
0xcda0…cdc0 73 65 74 62 61 73 65 28 64 65 73 63 2e 63 6f 6e 6c 6f 77 65 72 75 73 65 72 2c 64 65 73 63 2e 63 ┆setbase(desc.conloweruser,desc.c┆
0xcdc0…cde0 6f 6e 75 70 70 65 72 75 73 65 72 29 3b 0a 20 20 34 20 20 31 32 30 32 20 20 20 72 65 73 3a 3d 6c ┆onupperuser); 4 1202 res:=l┆
0xcde0…ce00 6f 6f 6b 75 70 65 6e 74 72 79 28 64 65 73 63 2e 63 6f 6e 70 72 6f 67 72 61 6d 2c 74 61 69 6c 29 ┆ookupentry(desc.conprogram,tail)┆
0xce00…ce20 3b 0a 20 20 34 20 20 31 32 30 33 20 3c 2a 2b 32 2a 3e 0a 20 20 34 20 20 31 32 30 34 20 20 20 69 ┆; 4 1203 <*+2*> 4 1204 i┆
0xce20…ce40 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a ┆f testop(2) then disable write(z┆
0xce40…ce60 2c 22 6e 6c 22 2c 31 2c 0a 20 20 34 20 20 31 32 30 35 20 20 20 20 20 20 3c 3a 70 72 6f 67 72 61 ┆,"nl",1, 4 1205 <:progra┆
0xce60…ce80 6d 20 3a 3e 2c 64 65 73 63 2e 63 6f 6e 70 72 6f 67 72 61 6d 2c 3c 3a 20 6c 6f 6f 6b 75 70 20 72 ┆m :>,desc.conprogram,<: lookup r┆
0xce80…cea0 65 73 75 6c 74 20 3a 3e 2c 72 65 73 29 3b 0a 20 20 34 20 20 31 32 30 36 20 3c 2a 2d 32 2a 3e 0a ┆esult :>,res); 4 1206 <*-2*> ┆
0xcea0…cec0 20 20 34 20 20 31 32 30 37 20 20 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e 20 0a 20 20 34 20 20 ┆ 4 1207 if res>0 then 4 ┆
0xcec0…cee0 31 32 30 38 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 32 30 39 20 20 20 20 20 77 72 69 74 65 ┆1208 begin 5 1209 write┆
0xcee0…cf00 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 72 65 73 20 6f 66 20 28 0a 20 20 35 20 20 31 32 31 30 20 ┆error(z,case res of ( 5 1210 ┆
0xcf00…cf20 (23,) 20 20 20 20 20 20 30 2c 65 72 72 6f 72 63 61 74 61 6c 6f 67 65 72 72 6f 72 2c 65 72 72 6f 72 61 ┆ 0,errorcatalogerror,errora┆
0xcf20…cf40 72 65 61 75 6e 6b 6e 6f 77 6e 29 2c 64 65 73 63 29 3b 0a 20 20 35 20 20 31 32 31 31 20 20 20 72 ┆reaunknown),desc); 5 1211 r┆
0xcf40…cf60 65 73 3a 3d 72 65 73 2b 32 34 3b 0a 20 20 35 20 20 31 32 31 32 20 20 20 65 6e 64 20 65 6c 73 65 ┆es:=res+24; 5 1212 end else┆
0xcf60…cf80 0a 20 20 34 20 20 31 32 31 33 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 32 31 34 20 20 20 20 ┆ 4 1213 begin 5 1214 ┆
0xcf80…cfa0 20 63 74 3a 3d 28 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 2d 31 29 2a 63 74 5f 73 69 7a ┆ ct:=(desc.concurchild-1)*ct_siz┆
0xcfa0…cfc0 65 3b 0a 20 20 35 20 20 31 32 31 35 20 20 20 20 20 62 61 73 65 3a 3d 63 6f 72 65 2e 63 68 69 6c ┆e; 5 1215 base:=core.chil┆
0xcfc0…cfe0 64 70 64 61 28 35 30 29 3b 0a 20 20 35 20 20 31 32 31 36 20 20 20 20 20 73 65 74 69 6e 6f 75 74 ┆dpda(50); 5 1216 setinout┆
0xcfe0…d000 28 63 6f 6e 69 6e 6e 61 6d 65 2c 63 6f 6e 70 72 6f 63 69 6e 29 3b 0a 20 20 35 20 20 31 32 31 37 ┆(coninname,conprocin); 5 1217┆
0xd000…d020 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 70 72 6f 63 69 6e 3a 3d 0a 20 ┆ childtable.ct.ct_procin:= ┆
0xd020…d040 20 35 20 20 31 32 31 38 20 20 20 20 20 70 61 72 61 6d 28 31 29 3a 3d 64 65 73 63 2e 63 6f 6e 5f ┆ 5 1218 param(1):=desc.con_┆
0xd040…d060 70 72 6f 63 5f 69 6e 3b 0a 20 20 35 20 20 31 32 31 39 20 20 20 20 20 70 61 72 61 6d 28 32 29 3a ┆proc_in; 5 1219 param(2):┆
0xd060…d080 3d 6f 77 6e 70 64 61 3b 0a 20 20 35 20 20 31 32 32 30 20 20 20 20 20 73 65 74 69 6e 6f 75 74 28 ┆=ownpda; 5 1220 setinout(┆
0xd080…d0a0 63 6f 6e 6f 75 74 6e 61 6d 65 2c 63 6f 6e 70 72 6f 63 6f 75 74 29 3b 0a 20 20 35 20 20 31 32 32 ┆conoutname,conprocout); 5 122┆
0xd0a0…d0c0 31 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 70 72 6f 63 6f 75 74 3a 3d ┆1 childtable.ct.ct_procout:=┆
0xd0c0…d0e0 0a 20 20 35 20 20 31 32 32 32 20 20 20 20 20 70 61 72 61 6d 28 33 29 3a 3d 64 65 73 63 2e 63 6f ┆ 5 1222 param(3):=desc.co┆
0xd0e0…d100 6e 5f 70 72 6f 63 5f 6f 75 74 3b 0a 20 20 35 20 20 31 32 32 33 20 20 20 20 20 70 61 72 61 6d 28 ┆n_proc_out; 5 1223 param(┆
0xd100…d120 34 29 3a 3d 63 68 69 6c 64 70 64 61 3b 0a 20 20 35 20 20 31 32 32 34 20 20 20 20 20 70 61 72 61 ┆4):=childpda; 5 1224 para┆
0xd120…d140 6d 28 35 29 3a 3d 30 3b 0a 20 20 35 20 20 31 32 32 35 20 20 20 20 20 70 61 72 61 6d 28 36 29 3a ┆m(5):=0; 5 1225 param(6):┆
0xd140…d160 3d 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 2d 62 61 73 65 0a 20 20 35 20 20 ┆=desc.confirstaddress-base 5 ┆
0xd160…d180 31 32 32 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 74 61 69 6c 28 39 29 20 65 78 74 72 61 ┆1226 +tail(9) extra┆
0xd180…d1a0 63 74 20 31 32 3b 0a 20 20 35 20 20 31 32 32 37 20 20 20 20 20 69 66 20 74 61 69 6c 28 39 29 20 ┆ct 12; 5 1227 if tail(9) ┆
0xd1a0…d1c0 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3c 3e 33 20 74 68 65 6e 0a 20 ┆shift (-12) extract 12<>3 then ┆
0xd1c0…d1e0 20 35 20 20 31 32 32 38 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 32 32 39 20 20 20 20 ┆ 5 1228 begin 6 1229 ┆
0xd1e0…d200 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 61 72 65 61 65 72 72 6f 72 2c 64 ┆ writeerror(z,errorareaerror,d┆
0xd200…d220 65 73 63 29 3b 0a 20 20 36 20 20 31 32 33 30 20 20 20 20 20 20 20 72 65 73 3a 3d 32 35 3b 0a 20 ┆esc); 6 1230 res:=25; ┆
0xd220…d240 20 36 20 20 31 32 33 31 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 32 33 32 20 ┆ 6 1231 end else 5 1232 ┆
0xd240…d260 20 20 20 20 69 66 20 74 61 69 6c 28 31 29 3c 3d 30 20 74 68 65 6e 0a 20 20 35 20 20 31 32 33 33 ┆ if tail(1)<=0 then 5 1233┆
0xd260…d280 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 32 33 34 20 20 20 20 20 20 20 77 72 69 74 65 ┆ begin 6 1234 write┆
0xd280…d2a0 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 61 72 65 61 65 72 72 6f 72 2c 64 65 73 63 29 3b 0a 20 20 ┆error(z,errorareaerror,desc); ┆
0xd2a0…d2c0 36 20 20 31 32 33 35 20 20 20 20 20 20 20 72 65 73 3a 3d 32 36 3b 0a 20 20 36 20 20 31 32 33 36 ┆6 1235 res:=26; 6 1236┆
0xd2c0…d2e0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 32 33 37 20 20 20 20 20 69 66 20 74 ┆ end else 5 1237 if t┆
0xd2e0…d300 61 69 6c 28 31 30 29 3e 64 65 73 63 2e 63 6f 6e 74 6f 70 61 64 64 72 65 73 73 2d 64 65 73 63 2e ┆ail(10)>desc.contopaddress-desc.┆
0xd300…d320 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 20 74 68 65 6e 0a 20 20 35 20 20 31 32 33 38 20 20 ┆confirstaddress then 5 1238 ┆
0xd320…d340 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 32 33 39 20 20 20 20 20 20 20 72 65 73 3a 3d 32 37 ┆ begin 6 1239 res:=27┆
0xd340…d360 3b 0a 20 20 36 20 20 31 32 34 30 20 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 ┆; 6 1240 writeerror(z,e┆
0xd360…d380 72 72 6f 72 70 72 6f 67 72 61 6d 74 6f 6f 62 69 67 2c 64 65 73 63 29 3b 0a 20 20 36 20 20 31 32 ┆rrorprogramtoobig,desc); 6 12┆
0xd380…d3a0 34 31 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 35 20 20 31 32 34 32 20 20 20 20 20 62 65 ┆41 end else 5 1242 be┆
0xd3a0…d3c0 67 69 6e 0a 20 20 36 20 20 31 32 34 33 20 20 20 20 20 20 4d 28 31 29 3a 3d 33 20 73 68 69 66 74 ┆gin 6 1243 M(1):=3 shift┆
0xd3c0…d3e0 20 31 32 3b 0a 20 20 36 20 20 31 32 34 34 20 20 20 20 20 20 4d 28 32 29 3a 3d 64 65 73 63 2e 63 ┆ 12; 6 1244 M(2):=desc.c┆
0xd3e0…d400 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 3b 0a 20 20 36 20 20 31 32 34 35 20 20 20 20 20 20 4d ┆onfirstaddress; 6 1245 M┆
0xd400…d420 28 33 29 3a 3d 4d 28 32 29 2b 74 61 69 6c 28 31 30 29 2d 32 3b 0a 20 20 36 20 20 31 32 34 36 20 ┆(3):=M(2)+tail(10)-2; 6 1246 ┆
0xd420…d440 20 20 20 20 20 4d 28 34 29 3a 3d 30 3b 0a 20 20 36 20 20 31 32 34 37 20 20 20 20 20 20 66 6f 72 ┆ M(4):=0; 6 1247 for┆
0xd440…d460 20 69 3a 3d 31 2c 32 20 64 6f 20 62 73 6e 61 6d 65 28 69 29 3a 3d 64 65 73 63 2e 63 6f 6e 70 72 ┆ i:=1,2 do bsname(i):=desc.conpr┆
0xd460…d480 6f 67 72 61 6d 28 69 29 3b 0a 20 20 36 20 20 31 32 34 38 20 20 20 20 20 20 63 72 65 61 74 65 61 ┆ogram(i); 6 1248 createa┆
0xd480…d4a0 72 65 61 70 72 6f 63 65 73 73 28 64 65 73 63 2e 63 6f 6e 70 72 6f 67 72 61 6d 29 3b 0a 20 20 36 ┆reaprocess(desc.conprogram); 6┆
0xd4a0…d4c0 20 20 31 32 34 39 20 20 20 20 20 20 72 65 70 3a 3d 30 3b 0a 20 20 36 20 20 31 32 35 30 20 20 20 ┆ 1249 rep:=0; 6 1250 ┆
0xd4c0…d4e0 20 20 20 72 65 70 65 61 74 20 72 65 70 3a 3d 72 65 70 2b 31 3b 0a 20 20 36 20 20 31 32 35 31 20 ┆ repeat rep:=rep+1; 6 1251 ┆
0xd4e0…d500 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 20 74 68 65 6e 0a 20 20 36 20 20 31 32 35 32 20 20 20 ┆ if mode then 6 1252 ┆
0xd500…d520 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 35 33 20 20 20 20 20 20 20 20 20 20 72 65 ┆ begin 7 1253 re┆
0xd520…d540 73 3a 3d 77 61 69 74 61 6e 73 77 65 72 28 73 65 6e 64 6d 65 73 73 61 67 65 28 62 73 6e 61 6d 65 ┆s:=waitanswer(sendmessage(bsname┆
0xd540…d560 2c 4d 29 2c 41 29 3b 0a 20 20 37 20 20 31 32 35 34 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 ┆,M),A); 7 1254 end els┆
0xd560…d580 65 0a 20 20 36 20 20 31 32 35 35 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 ┆e 6 1255 begin 7 12┆
0xd580…d5a0 35 36 20 20 20 20 20 20 20 20 63 73 65 6e 64 6d 65 73 73 61 67 65 28 62 73 6e 61 6d 65 2e 66 2c ┆56 csendmessage(bsname.f,┆
0xd5a0…d5c0 4d 2c 70 72 6f 67 65 78 74 29 3b 0a 20 20 37 20 20 31 32 35 37 20 20 20 20 20 20 20 20 63 77 61 ┆M,progext); 7 1257 cwa┆
0xd5c0…d5e0 69 74 61 6e 73 77 65 72 28 70 72 6f 67 65 78 74 2c 41 2c 72 65 73 2c 30 29 3b 0a 20 20 37 20 20 ┆itanswer(progext,A,res,0); 7 ┆
0xd5e0…d600 31 32 35 38 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 32 35 39 20 20 20 20 20 20 ┆1258 end; 6 1259 ┆
0xd600…d620 20 75 6e 74 69 6c 20 72 65 73 3c 3e 31 20 6f 72 20 28 41 28 31 29 3d 30 20 61 6e 64 20 41 28 32 ┆ until res<>1 or (A(1)=0 and A(2┆
0xd620…d640 29 3d 74 61 69 6c 28 31 30 29 29 20 6f 72 20 72 65 70 3d 31 30 3b 0a 20 20 36 20 20 31 32 36 30 ┆)=tail(10)) or rep=10; 6 1260┆
0xd640…d660 20 20 20 20 20 20 20 69 66 20 72 65 73 3d 31 20 61 6e 64 20 72 65 70 3d 31 30 20 74 68 65 6e 0a ┆ if res=1 and rep=10 then ┆
0xd660…d680 20 20 36 20 20 31 32 36 31 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 36 32 20 ┆ 6 1261 begin 7 1262 ┆
0xd680…d6a0 20 20 20 20 20 20 20 20 72 65 73 3a 3d 32 34 2b 35 3b 0a 20 20 37 20 20 31 32 36 33 20 20 20 20 ┆ res:=24+5; 7 1263 ┆
0xd6a0…d6c0 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 61 72 65 61 65 72 72 6f 72 ┆ writeerror(z,errorareaerror┆
0xd6c0…d6e0 2c 64 65 73 63 29 3b 0a 20 20 37 20 20 31 32 36 34 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 ┆,desc); 7 1264 end else┆
0xd6e0…d700 0a 20 20 36 20 20 31 32 36 35 20 20 20 20 20 20 20 69 66 20 72 65 73 3e 31 20 74 68 65 6e 20 0a ┆ 6 1265 if res>1 then ┆
0xd700…d720 20 20 36 20 20 31 32 36 36 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 36 37 20 ┆ 6 1266 begin 7 1267 ┆
0xd720…d740 20 20 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 63 61 73 65 20 72 65 73 20 6f 66 ┆ writeerror(z,case res of┆
0xd740…d760 28 30 2c 65 72 72 6f 72 61 72 65 61 72 65 73 65 72 76 65 64 2c 0a 20 20 37 20 20 31 32 36 38 20 ┆(0,errorareareserved, 7 1268 ┆
0xd760…d780 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 72 65 73 75 6c 74 69 6d 70 6f 73 73 69 62 6c 65 2c ┆ errorresultimpossible,┆
0xd780…d7a0 65 72 72 6f 72 61 72 65 61 75 6e 6b 6e 6f 77 6e 29 2c 64 65 73 63 29 3b 0a 20 20 37 20 20 31 32 ┆errorareaunknown),desc); 7 12┆
0xd7a0…d7c0 36 39 20 20 20 20 20 20 20 20 20 72 65 73 3a 3d 72 65 73 2b 33 32 3b 0a 20 20 37 20 20 31 32 37 ┆69 res:=res+32; 7 127┆
0xd7c0…d7e0 30 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 36 20 20 31 32 37 31 20 20 20 20 20 20 ┆0 end else 6 1271 ┆
0xd7e0…d800 20 62 65 67 69 6e 0a 20 20 37 20 20 31 32 37 32 20 20 20 20 20 20 20 20 20 72 65 73 3a 3d 6d 6f ┆ begin 7 1272 res:=mo┆
0xd800…d820 (24,) 64 69 66 79 69 6e 74 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 6d 65 2c 70 61 72 61 6d 29 3b ┆difyint(desc.conprocname,param);┆
0xd820…d840 0a 20 20 37 20 20 31 32 37 33 20 20 20 20 20 20 20 20 20 69 66 20 72 65 73 3e 30 20 74 68 65 6e ┆ 7 1273 if res>0 then┆
0xd840…d860 0a 20 20 37 20 20 31 32 37 34 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 38 20 20 31 32 ┆ 7 1274 begin 8 12┆
0xd860…d880 37 35 20 3c 2a 2b 32 2a 3e 0a 20 20 38 20 20 31 32 37 36 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆75 <*+2*> 8 1276 if┆
0xd880…d8a0 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c ┆ testop(2) then write(z,"nl",1,<┆
0xd8a0…d8c0 3a 6d 6f 64 69 66 79 3a 20 3a 3e 2c 72 65 73 2c 0a 20 20 38 20 20 31 32 37 37 20 20 20 20 20 20 ┆:modify: :>,res, 8 1277 ┆
0xd8c0…d8e0 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 69 6e 20 20 20 20 3a 3e 2c 70 61 72 61 6d 28 31 29 ┆ "nl",1,<:in :>,param(1)┆
0xd8e0…d900 2c 0a 20 20 38 20 20 31 32 37 38 20 20 20 20 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a ┆, 8 1278 "nl",1,<:┆
0xd900…d920 70 61 72 65 6e 74 3a 3e 2c 70 61 72 61 6d 28 32 29 2c 0a 20 20 38 20 20 31 32 37 39 20 20 20 20 ┆parent:>,param(2), 8 1279 ┆
0xd920…d940 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 6f 75 74 20 20 20 3a 3e 2c 70 61 72 61 6d 28 ┆ "nl",1,<:out :>,param(┆
0xd940…d960 33 29 2c 0a 20 20 38 20 20 31 32 38 30 20 20 20 20 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c ┆3), 8 1280 "nl",1,┆
0xd960…d980 3c 3a 6f 77 6e 20 20 20 3a 3e 2c 70 61 72 61 6d 28 34 29 2c 0a 20 20 38 20 20 31 32 38 31 20 20 ┆<:own :>,param(4), 8 1281 ┆
0xd980…d9a0 20 20 20 20 20 20 20 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 49 43 20 20 20 20 3a 3e 2c 70 61 72 61 ┆ "nl",1,<:IC :>,para┆
0xd9a0…d9c0 6d 28 36 29 29 3b 0a 20 20 38 20 20 31 32 38 32 20 3c 2a 2d 32 2a 3e 0a 20 20 38 20 20 31 32 38 ┆m(6)); 8 1282 <*-2*> 8 128┆
0xd9c0…d9e0 33 20 20 20 20 20 20 20 20 20 20 20 72 65 73 3a 3d 32 34 2b 72 65 73 3b 0a 20 20 38 20 20 31 32 ┆3 res:=24+res; 8 12┆
0xd9e0…da00 38 34 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 65 72 72 6f 72 28 7a 2c 65 72 72 6f 72 72 ┆84 writeerror(z,errorr┆
0xda00…da20 65 73 75 6c 74 69 6d 70 6f 73 73 69 62 6c 65 2c 64 65 73 63 29 3b 0a 20 20 38 20 20 31 32 38 35 ┆esultimpossible,desc); 8 1285┆
0xda20…da40 20 20 20 20 20 20 20 20 20 65 6e 64 20 6d 6f 64 69 66 79 3e 30 20 65 6c 73 65 0a 20 20 37 20 20 ┆ end modify>0 else 7 ┆
0xda40…da60 31 32 38 36 20 20 20 20 20 20 69 66 20 62 61 73 65 3d 30 20 74 68 65 6e 0a 20 20 37 20 20 31 32 ┆1286 if base=0 then 7 12┆
0xda60…da80 38 37 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 38 20 20 31 32 38 38 20 20 20 20 20 20 20 20 72 ┆87 begin 8 1288 r┆
0xda80…daa0 65 73 3a 3d 63 68 61 6e 67 65 61 64 64 72 65 73 73 62 61 73 65 28 64 65 73 63 2e 63 6f 6e 70 72 ┆es:=changeaddressbase(desc.conpr┆
0xdaa0…dac0 6f 63 6e 61 6d 65 2c 0a 20 20 38 20 20 31 32 38 39 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 ┆ocname, 8 1289 des┆
0xdac0…dae0 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 73 2d 63 68 69 6c 64 62 61 73 65 61 64 64 72 65 ┆c.confirstaddress-childbaseaddre┆
0xdae0…db00 73 73 29 3b 0a 20 20 38 20 20 31 32 39 30 20 20 20 20 20 20 20 20 69 66 20 72 65 73 3c 3e 30 20 ┆ss); 8 1290 if res<>0 ┆
0xdb00…db20 6f 72 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 ┆or testop(2) then write(z,"nl",1┆
0xdb20…db40 2c 3c 3a 63 68 61 6e 67 65 20 61 64 64 72 65 73 73 20 3a 3e 2c 72 65 73 2c 0a 20 20 38 20 20 31 ┆,<:change address :>,res, 8 1┆
0xdb40…db60 32 39 31 20 20 20 20 20 20 20 20 20 20 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 61 64 64 72 65 73 ┆291 desc.confirstaddres┆
0xdb60…db80 73 2c 63 68 69 6c 64 62 61 73 65 61 64 64 72 65 73 73 2c 64 65 73 63 2e 63 6f 6e 66 69 72 73 74 ┆s,childbaseaddress,desc.confirst┆
0xdb80…dba0 61 64 64 72 65 73 73 2d 0a 20 20 38 20 20 31 32 39 32 20 20 20 20 20 20 20 20 20 20 63 68 69 6c ┆address- 8 1292 chil┆
0xdba0…dbc0 64 62 61 73 65 61 64 64 72 65 73 73 29 3b 0a 20 20 38 20 20 31 32 39 33 20 20 20 20 20 20 65 6e ┆dbaseaddress); 8 1293 en┆
0xdbc0…dbe0 64 20 62 61 73 65 3d 30 3b 0a 20 20 37 20 20 31 32 39 34 20 20 20 20 20 20 65 6e 64 20 70 72 6f ┆d base=0; 7 1294 end pro┆
0xdbe0…dc00 67 72 61 6d 20 69 6e 20 63 6f 72 65 3b 0a 20 20 36 20 20 31 32 39 35 20 20 20 20 20 65 6e 64 20 ┆gram in core; 6 1295 end ┆
0xdc00…dc20 74 61 69 6c 20 6f 6b 3b 0a 20 20 35 20 20 31 32 39 36 20 65 6e 64 20 6c 6f 6f 6b 75 70 3b 0a 20 ┆tail ok; 5 1296 end lookup; ┆
0xdc20…dc40 20 34 20 20 31 32 39 37 20 72 65 73 65 74 62 61 73 65 3b 0a 20 20 34 20 20 31 32 39 38 20 65 6e ┆ 4 1297 resetbase; 4 1298 en┆
0xdc40…dc60 64 20 69 6e 74 65 72 6e 61 6c 3b 0a 20 20 33 20 20 31 32 39 39 20 6c 6f 61 64 61 6e 64 6d 6f 64 ┆d internal; 3 1299 loadandmod┆
0xdc60…dc80 69 66 79 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 33 30 30 20 65 6e 64 20 6c 6f 61 64 20 61 6e 64 ┆ify:=res; 3 1300 end load and┆
0xdc80…dca0 20 6d 6f 64 69 66 79 3b 0a 20 20 32 20 20 31 33 30 31 20 0a 20 20 32 20 20 31 33 30 31 20 69 6e ┆ modify; 2 1301 2 1301 in┆
0xdca0…dcc0 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 74 6f 70 5f 63 68 69 6c 64 28 64 65 73 63 29 ┆teger procedure stop_child(desc)┆
0xdcc0…dce0 3b 0a 20 20 32 20 20 31 33 30 32 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a ┆; 2 1302 integer array desc; ┆
0xdce0…dd00 20 20 32 20 20 31 33 30 33 20 62 65 67 69 6e 0a 20 20 33 20 20 31 33 30 34 20 69 6e 74 65 67 65 ┆ 2 1303 begin 3 1304 intege┆
0xdd00…dd20 72 20 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 31 33 30 35 20 69 6e 74 65 67 65 72 20 61 72 72 61 ┆r cn,res; 3 1305 integer arra┆
0xdd20…dd40 79 20 66 69 65 6c 64 20 63 74 2c 63 70 64 61 3b 0a 20 20 33 20 20 31 33 30 36 20 62 6f 6f 6c 65 ┆y field ct,cpda; 3 1306 boole┆
0xdd40…dd60 61 6e 20 73 74 61 74 65 3b 0a 20 20 33 20 20 31 33 30 37 20 72 65 73 3a 3d 32 3b 0a 20 20 33 20 ┆an state; 3 1307 res:=2; 3 ┆
0xdd60…dd80 20 31 33 30 38 20 63 6e 3a 3d 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 ┆ 1308 cn:=desc.concurchild; 3 ┆
0xdd80…dda0 20 31 33 30 39 20 69 66 20 63 6e 3e 30 20 74 68 65 6e 0a 20 20 33 20 20 31 33 31 30 20 62 65 67 ┆ 1309 if cn>0 then 3 1310 beg┆
0xdda0…ddc0 69 6e 0a 20 20 34 20 20 31 33 31 31 20 63 74 3a 3d 28 63 6e 2d 31 29 2a 63 74 73 69 7a 65 3b 0a ┆in 4 1311 ct:=(cn-1)*ctsize; ┆
0xddc0…dde0 20 20 34 20 20 31 33 31 32 20 20 20 63 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e ┆ 4 1312 cpda:=childtable.ct.┆
0xdde0…de00 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a 20 20 34 20 20 31 33 31 33 20 20 20 73 74 61 74 65 3a 3d ┆ct_childpda; 4 1313 state:=┆
0xde00…de20 63 6f 72 65 2e 63 70 64 61 2e 73 74 61 74 65 72 65 66 3b 0a 20 20 34 20 20 31 33 31 34 20 20 20 ┆core.cpda.stateref; 4 1314 ┆
0xde20…de40 73 74 61 74 65 3a 3d 28 73 74 61 74 65 20 61 6e 64 20 62 69 74 5f 73 74 61 72 74 29 20 65 78 74 ┆state:=(state and bit_start) ext┆
0xde40…de60 72 61 63 74 20 37 3d 30 3b 0a 20 20 34 20 20 31 33 31 35 20 20 20 69 66 20 73 74 61 74 65 20 74 ┆ract 7=0; 4 1315 if state t┆
0xde60…de80 68 65 6e 0a 20 20 34 20 20 31 33 31 36 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 33 31 37 20 ┆hen 4 1316 begin 5 1317 ┆
0xde80…dea0 20 20 20 20 72 65 73 3a 3d 73 74 6f 70 63 68 69 6c 64 3a 3d 73 74 6f 70 69 6e 74 28 64 65 73 63 ┆ res:=stopchild:=stopint(desc┆
0xdea0…dec0 2e 63 6f 6e 5f 70 72 6f 63 5f 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 33 31 38 20 20 20 20 20 69 ┆.con_proc_name); 5 1318 i┆
0xdec0…dee0 66 20 72 65 73 3d 30 20 74 68 65 6e 0a 20 20 35 20 20 31 33 31 39 20 20 20 20 20 62 65 67 69 6e ┆f res=0 then 5 1319 begin┆
0xdee0…df00 0a 20 20 36 20 20 31 33 32 30 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 ┆ 6 1320 childtable.ct.c┆
0xdf00…df20 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 73 74 6f 70 70 65 64 3b 0a 20 20 36 20 20 31 33 32 ┆t_state:=state_stopped; 6 132┆
0xdf20…df40 31 20 20 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 63 68 ┆1 if childtable.ct.ctbatch┆
0xdf40…df60 3e 30 20 74 68 65 6e 20 62 72 75 6e 63 68 69 6c 64 72 65 6e 3a 3d 62 72 75 6e 63 68 69 6c 64 72 ┆>0 then brunchildren:=brunchildr┆
0xdf60…df80 65 6e 2d 31 3b 0a 20 20 36 20 20 31 33 32 32 20 20 20 20 20 65 6e 64 3b 0a 20 20 35 20 20 31 33 ┆en-1; 6 1322 end; 5 13┆
0xdf80…dfa0 32 33 20 20 20 65 6e 64 20 65 6c 73 65 20 0a 20 20 34 20 20 31 33 32 34 20 20 20 62 65 67 69 6e ┆23 end else 4 1324 begin┆
0xdfa0…dfc0 0a 20 20 35 20 20 31 33 32 35 20 20 20 20 20 72 65 73 3a 3d 30 3b 20 63 68 69 6c 64 74 61 62 6c ┆ 5 1325 res:=0; childtabl┆
0xdfc0…dfe0 65 2e 63 74 2e 63 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 73 74 6f 70 70 65 64 3b 0a 20 20 ┆e.ct.ct_state:=state_stopped; ┆
0xdfe0…e000 35 20 20 31 33 32 36 20 20 20 65 6e 64 3b 0a 20 20 34 20 20 31 33 32 37 20 65 6e 64 20 63 6e 3e ┆5 1326 end; 4 1327 end cn>┆
0xe000…e020 30 3b 0a 20 20 33 20 20 31 33 32 38 20 73 74 6f 70 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 ┆0; 3 1328 stopchild:=res; 3┆
0xe020…e040 20 20 31 33 32 39 20 65 6e 64 20 73 74 6f 70 5f 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 33 33 30 ┆ 1329 end stop_child; 2 1330┆
0xe040…e060 20 0a 20 20 32 20 20 31 33 33 30 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 74 ┆ 2 1330 integer procedure st┆
0xe060…e080 61 72 74 63 68 69 6c 64 28 64 65 73 63 29 3b 0a 20 20 32 20 20 31 33 33 31 20 69 6e 74 65 67 65 ┆artchild(desc); 2 1331 intege┆
0xe080…e0a0 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 32 20 20 31 33 33 32 20 62 65 67 69 6e 0a 20 20 ┆r array desc; 2 1332 begin ┆
0xe0a0…e0c0 33 20 20 31 33 33 33 20 69 6e 74 65 67 65 72 20 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 31 33 33 ┆3 1333 integer cn,res; 3 133┆
0xe0c0…e0e0 34 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 63 74 2c 63 70 64 61 3b 0a 20 ┆4 integer array field ct,cpda; ┆
0xe0e0…e100 20 33 20 20 31 33 33 35 20 62 6f 6f 6c 65 61 6e 20 73 74 61 74 65 3b 0a 20 20 33 20 20 31 33 33 ┆ 3 1335 boolean state; 3 133┆
0xe100…e120 (25,) 36 20 72 65 73 3a 3d 32 3b 0a 20 20 33 20 20 31 33 33 37 20 63 6e 3a 3d 64 65 73 63 2e 63 6f 6e ┆6 res:=2; 3 1337 cn:=desc.con┆
0xe120…e140 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 20 31 33 33 38 20 69 66 20 63 6e 3e 30 20 74 68 65 6e ┆curchild; 3 1338 if cn>0 then┆
0xe140…e160 0a 20 20 33 20 20 31 33 33 39 20 62 65 67 69 6e 0a 20 20 34 20 20 31 33 34 30 20 20 20 63 74 3a ┆ 3 1339 begin 4 1340 ct:┆
0xe160…e180 3d 28 63 6e 2d 31 29 2a 63 74 5f 73 69 7a 65 3b 0a 20 20 34 20 20 31 33 34 31 20 20 20 20 20 63 ┆=(cn-1)*ct_size; 4 1341 c┆
0xe180…e1a0 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a ┆pda:=childtable.ct.ct_childpda; ┆
0xe1a0…e1c0 20 20 34 20 20 31 33 34 32 20 20 20 20 20 73 74 61 74 65 3a 3d 63 6f 72 65 2e 63 70 64 61 2e 73 ┆ 4 1342 state:=core.cpda.s┆
0xe1c0…e1e0 74 61 74 65 5f 72 65 66 3b 0a 20 20 34 20 20 31 33 34 33 20 20 20 20 20 73 74 61 74 65 3a 3d 28 ┆tate_ref; 4 1343 state:=(┆
0xe1e0…e200 73 74 61 74 65 20 61 6e 64 20 62 69 74 5f 73 74 61 72 74 29 20 65 78 74 72 61 63 74 20 37 20 3e ┆state and bit_start) extract 7 >┆
0xe200…e220 30 3b 0a 20 20 34 20 20 31 33 34 34 20 20 20 20 20 69 66 20 73 74 61 74 65 20 74 68 65 6e 0a 20 ┆0; 4 1344 if state then ┆
0xe220…e240 20 34 20 20 31 33 34 35 20 20 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 33 34 36 20 20 20 20 ┆ 4 1345 begin 5 1346 ┆
0xe240…e260 20 72 65 73 3a 3d 73 74 61 72 74 63 68 69 6c 64 3a 3d 73 74 61 72 74 69 6e 74 28 64 65 73 63 2e ┆ res:=startchild:=startint(desc.┆
0xe260…e280 63 6f 6e 5f 70 72 6f 63 5f 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 33 34 37 20 20 20 20 20 69 66 ┆con_proc_name); 5 1347 if┆
0xe280…e2a0 20 72 65 73 3d 30 20 74 68 65 6e 0a 20 20 35 20 20 31 33 34 38 20 20 20 20 20 62 65 67 69 6e 0a ┆ res=0 then 5 1348 begin ┆
0xe2a0…e2c0 20 20 36 20 20 31 33 34 39 20 20 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 ┆ 6 1349 if childtable.ct┆
0xe2c0…e2e0 2e 63 74 73 74 61 74 65 3c 3e 73 74 61 74 65 5f 62 72 65 61 6b 65 64 20 74 68 65 6e 20 0a 20 20 ┆.ctstate<>state_breaked then ┆
0xe2e0…e300 36 20 20 31 33 35 30 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 ┆6 1350 childtable.ct.ct_s┆
0xe300…e320 74 61 74 65 3a 3d 73 74 61 74 65 5f 72 75 6e 6e 69 6e 67 3b 0a 20 20 36 20 20 31 33 35 31 20 20 ┆tate:=state_running; 6 1351 ┆
0xe320…e340 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 63 68 3e 30 20 ┆ if childtable.ct.ctbatch>0 ┆
0xe340…e360 74 68 65 6e 20 62 72 75 6e 63 68 69 6c 64 72 65 6e 3a 3d 62 72 75 6e 63 68 69 6c 64 72 65 6e 2b ┆then brunchildren:=brunchildren+┆
0xe360…e380 31 3b 0a 20 20 36 20 20 31 33 35 32 20 20 20 20 65 6e 64 20 72 65 73 3d 30 3b 0a 20 20 35 20 20 ┆1; 6 1352 end res=0; 5 ┆
0xe380…e3a0 31 33 35 33 20 20 20 65 6e 64 20 73 74 61 74 65 20 65 6c 73 65 20 0a 20 20 34 20 20 31 33 35 34 ┆1353 end state else 4 1354┆
0xe3a0…e3c0 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 33 35 35 20 20 20 20 20 72 65 73 3a 3d 30 3b 0a 20 ┆ begin 5 1355 res:=0; ┆
0xe3c0…e3e0 20 35 20 20 31 33 35 36 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 74 ┆ 5 1356 childtable.ct.ct_st┆
0xe3e0…e400 61 74 65 3a 3d 73 74 61 74 65 5f 72 75 6e 6e 69 6e 67 3b 0a 20 20 35 20 20 31 33 35 37 20 20 20 ┆ate:=state_running; 5 1357 ┆
0xe400…e420 65 6e 64 20 73 74 61 72 74 65 64 3b 0a 20 20 34 20 20 31 33 35 38 20 65 6e 64 20 63 6e 3e 30 3b ┆end started; 4 1358 end cn>0;┆
0xe420…e440 0a 20 20 33 20 20 31 33 35 39 20 73 74 61 72 74 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 ┆ 3 1359 startchild:=res; 3 ┆
0xe440…e460 20 31 33 36 30 20 65 6e 64 20 73 74 61 72 74 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 33 36 31 20 ┆ 1360 end startchild; 2 1361 ┆
0xe460…e480 0a 20 20 32 20 20 31 33 36 31 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 65 74 ┆ 2 1361 integer procedure set┆
0xe480…e4a0 5f 70 72 69 6f 5f 63 68 69 6c 64 28 64 65 73 63 29 3b 0a 20 20 32 20 20 31 33 36 32 20 69 6e 74 ┆_prio_child(desc); 2 1362 int┆
0xe4a0…e4c0 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 32 20 20 31 33 36 33 20 62 65 67 69 6e ┆eger array desc; 2 1363 begin┆
0xe4c0…e4e0 0a 20 20 33 20 20 31 33 36 34 20 69 6e 74 65 67 65 72 20 63 6e 2c 72 65 73 3b 0a 20 20 33 20 20 ┆ 3 1364 integer cn,res; 3 ┆
0xe4e0…e500 31 33 36 35 20 72 65 73 3a 3d 32 33 3b 0a 20 20 33 20 20 31 33 36 36 20 63 6e 3a 3d 64 65 73 63 ┆1365 res:=23; 3 1366 cn:=desc┆
0xe500…e520 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 20 31 33 36 37 20 69 66 20 63 6e 3e 30 20 ┆.concurchild; 3 1367 if cn>0 ┆
0xe520…e540 74 68 65 6e 0a 20 20 33 20 20 31 33 36 38 20 62 65 67 69 6e 0a 20 20 34 20 20 31 33 36 39 20 20 ┆then 3 1368 begin 4 1369 ┆
0xe540…e560 20 72 65 73 3a 3d 73 65 74 5f 70 72 69 6f 72 69 74 79 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e ┆ res:=set_priority(desc.conprocn┆
0xe560…e580 61 6d 65 2c 64 65 73 63 2e 63 6f 6e 5f 70 72 69 6f 5f 61 6e 64 5f 63 6f 6d 6d 61 6e 64 73 20 73 ┆ame,desc.con_prio_and_commands s┆
0xe580…e5a0 68 69 66 74 20 28 2d 31 32 29 0a 20 20 34 20 20 31 33 37 30 20 20 20 20 20 20 20 20 20 20 20 65 ┆hift (-12) 4 1370 e┆
0xe5a0…e5c0 78 74 72 61 63 74 20 28 31 32 29 29 3b 0a 20 20 34 20 20 31 33 37 31 20 20 20 69 66 20 72 65 73 ┆xtract (12)); 4 1371 if res┆
0xe5c0…e5e0 3d 30 20 74 68 65 6e 20 64 65 73 63 2e 63 6f 6e 70 72 69 6f 61 6e 64 63 6f 6d 6d 61 6e 64 73 3a ┆=0 then desc.conprioandcommands:┆
0xe5e0…e600 3d 64 65 73 63 2e 63 6f 6e 70 72 69 6f 61 6e 64 63 6f 6d 6d 61 6e 64 73 20 65 78 74 72 61 63 74 ┆=desc.conprioandcommands extract┆
0xe600…e620 20 31 32 3b 0a 20 20 34 20 20 31 33 37 32 20 65 6e 64 20 63 6e 3e 30 3b 0a 20 20 33 20 20 31 33 ┆ 12; 4 1372 end cn>0; 3 13┆
0xe620…e640 37 33 20 73 65 74 5f 70 72 69 6f 5f 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 33 37 ┆73 set_prio_child:=res; 3 137┆
0xe640…e660 34 20 65 6e 64 20 73 65 74 70 72 69 6f 63 68 69 6c 64 3b 0a 20 20 32 20 20 31 33 37 35 20 0a 20 ┆4 end setpriochild; 2 1375 ┆
0xe660…e680 20 32 20 20 31 33 37 35 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 62 72 65 61 6b ┆ 2 1375 integer procedure break┆
0xe680…e6a0 5f 63 68 69 6c 64 28 64 65 73 63 2c 7a 29 3b 0a 20 20 32 20 20 31 33 37 36 20 69 6e 74 65 67 65 ┆_child(desc,z); 2 1376 intege┆
0xe6a0…e6c0 72 20 61 72 72 61 79 20 64 65 73 63 3b 20 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 31 33 37 37 20 ┆r array desc; zone z; 2 1377 ┆
0xe6c0…e6e0 62 65 67 69 6e 0a 20 20 33 20 20 31 33 37 38 20 20 20 69 6e 74 65 67 65 72 20 69 2c 72 65 73 2c ┆begin 3 1378 integer i,res,┆
0xe6e0…e700 62 61 73 65 2c 6f 6c 64 49 43 3b 0a 20 20 33 20 20 31 33 37 39 20 20 20 69 6e 74 65 67 65 72 20 ┆base,oldIC; 3 1379 integer ┆
0xe700…e720 61 72 72 61 79 20 70 61 72 61 6d 28 31 3a 36 29 3b 0a 20 20 33 20 20 31 33 38 30 20 20 20 69 6e ┆array param(1:6); 3 1380 in┆
0xe720…e740 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 63 68 69 6c 64 70 64 61 2c 72 65 67 2c 63 ┆teger array field childpda,reg,c┆
0xe740…e760 74 3b 0a 20 20 33 20 20 31 33 38 31 20 20 20 20 20 72 65 73 3a 3d 73 74 6f 70 63 68 69 6c 64 28 ┆t; 3 1381 res:=stopchild(┆
0xe760…e780 64 65 73 63 29 3b 0a 20 20 33 20 20 31 33 38 32 20 20 20 20 20 63 68 69 6c 64 70 64 61 3a 3d 70 ┆desc); 3 1382 childpda:=p┆
0xe780…e7a0 72 6f 63 65 73 73 64 65 73 63 72 69 70 74 69 6f 6e 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 ┆rocessdescription(desc.conprocna┆
0xe7a0…e7c0 6d 65 29 3b 0a 20 20 33 20 20 31 33 38 33 20 20 20 20 20 6f 6c 64 49 43 3a 3d 63 6f 72 65 2e 63 ┆me); 3 1383 oldIC:=core.c┆
0xe7c0…e7e0 68 69 6c 64 70 64 61 28 34 36 29 3b 0a 20 20 33 20 20 31 33 38 34 20 20 20 20 20 62 61 73 65 3a ┆hildpda(46); 3 1384 base:┆
0xe7e0…e800 3d 63 6f 72 65 2e 63 68 69 6c 64 70 64 61 28 35 30 29 3b 0a 20 20 33 20 20 31 33 38 35 20 20 20 ┆=core.childpda(50); 3 1385 ┆
0xe800…e820 20 20 72 65 67 3a 3d 63 6f 72 65 2e 63 68 69 6c 64 70 64 61 28 31 39 29 2b 62 61 73 65 3b 0a 20 ┆ reg:=core.childpda(19)+base; ┆
0xe820…e840 20 33 20 20 31 33 38 36 20 20 20 20 20 69 66 20 72 65 67 3e 30 20 61 6e 64 20 72 65 73 3d 30 20 ┆ 3 1386 if reg>0 and res=0 ┆
0xe840…e860 74 68 65 6e 0a 20 20 33 20 20 31 33 38 37 20 20 20 20 20 62 65 67 69 6e 0a 20 20 34 20 20 31 33 ┆then 3 1387 begin 4 13┆
0xe860…e880 38 38 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 36 ┆88 for i:=1 step 1 until 6┆
0xe880…e8a0 2c 38 20 64 6f 20 63 6f 72 65 2e 72 65 67 28 69 29 3a 3d 63 6f 72 65 2e 63 68 69 6c 64 70 64 61 ┆,8 do core.reg(i):=core.childpda┆
0xe8a0…e8c0 28 34 30 2b 69 29 3b 0a 20 20 34 20 20 31 33 38 39 20 20 20 20 20 20 20 63 6f 72 65 2e 72 65 67 ┆(40+i); 4 1389 core.reg┆
0xe8c0…e8e0 28 37 29 3a 3d 38 3b 0a 20 20 34 20 20 31 33 39 30 20 20 20 20 20 20 20 70 61 72 61 6d 28 31 29 ┆(7):=8; 4 1390 param(1)┆
0xe8e0…e900 3a 3d 64 65 73 63 2e 63 6f 6e 70 72 6f 63 69 6e 3b 0a 20 20 34 20 20 31 33 39 31 20 20 20 20 20 ┆:=desc.conprocin; 4 1391 ┆
0xe900…e920 20 20 70 61 72 61 6d 28 32 29 3a 3d 6f 77 6e 70 64 61 3b 0a 20 20 34 20 20 31 33 39 32 20 20 20 ┆ param(2):=ownpda; 4 1392 ┆
0xe920…e940 20 20 20 20 70 61 72 61 6d 28 33 29 3a 3d 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6f 75 74 3b 0a 20 ┆ param(3):=desc.conprocout; ┆
0xe940…e960 20 34 20 20 31 33 39 33 20 20 20 20 20 20 20 70 61 72 61 6d 28 34 29 3a 3d 63 68 69 6c 64 70 64 ┆ 4 1393 param(4):=childpd┆
0xe960…e980 61 3b 0a 20 20 34 20 20 31 33 39 34 20 20 20 20 20 20 20 70 61 72 61 6d 28 35 29 3a 3d 30 3b 0a ┆a; 4 1394 param(5):=0; ┆
0xe980…e9a0 20 20 34 20 20 31 33 39 35 20 20 20 20 20 20 20 70 61 72 61 6d 28 36 29 3a 3d 72 65 67 2b 31 36 ┆ 4 1395 param(6):=reg+16┆
0xe9a0…e9c0 2d 62 61 73 65 3b 20 3c 2a 20 6e 65 77 20 49 43 2a 3e 0a 20 20 34 20 20 31 33 39 36 20 20 20 20 ┆-base; <* new IC*> 4 1396 ┆
0xe9c0…e9e0 20 20 20 72 65 73 3a 3d 6d 6f 64 69 66 79 69 6e 74 28 64 65 73 63 2e 63 6f 6e 70 72 6f 63 6e 61 ┆ res:=modifyint(desc.conprocna┆
0xe9e0…ea00 6d 65 2c 70 61 72 61 6d 29 3b 0a 20 20 34 20 20 31 33 39 37 20 20 20 20 20 20 20 69 66 20 72 65 ┆me,param); 4 1397 if re┆
0xea00…ea20 (26,) 73 3c 3e 30 20 74 68 65 6e 20 72 65 73 3a 3d 72 65 73 2b 31 36 3b 0a 20 20 34 20 20 31 33 39 38 ┆s<>0 then res:=res+16; 4 1398┆
0xea20…ea40 20 20 20 20 20 65 6e 64 3b 0a 20 20 33 20 20 31 33 39 39 20 20 20 20 20 20 77 72 69 74 65 28 7a ┆ end; 3 1399 write(z┆
0xea40…ea60 2c 3c 3a 3c 31 30 3e 62 72 65 61 6b 20 3a 3e 2c 63 6f 72 65 2e 72 65 67 28 37 29 2c 6f 6c 64 49 ┆,<:<10>break :>,core.reg(7),oldI┆
0xea60…ea80 43 2c 72 65 67 2d 62 61 73 65 29 3b 0a 20 20 33 20 20 31 34 30 30 20 20 20 20 20 69 66 20 72 65 ┆C,reg-base); 3 1400 if re┆
0xea80…eaa0 73 3d 30 20 74 68 65 6e 20 0a 20 20 33 20 20 31 34 30 31 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆s=0 then 3 1401 begin ┆
0xeaa0…eac0 34 20 20 31 34 30 32 20 20 20 20 20 20 20 72 65 73 3a 3d 73 74 61 72 74 63 68 69 6c 64 28 64 65 ┆4 1402 res:=startchild(de┆
0xeac0…eae0 73 63 29 3b 0a 20 20 34 20 20 31 34 30 33 20 20 20 20 20 20 20 63 74 3a 3d 28 64 65 73 63 2e 63 ┆sc); 4 1403 ct:=(desc.c┆
0xeae0…eb00 6f 6e 63 75 72 63 68 69 6c 64 2d 31 29 2a 63 74 5f 73 69 7a 65 3b 0a 20 20 34 20 20 31 34 30 34 ┆oncurchild-1)*ct_size; 4 1404┆
0xeb00…eb20 20 20 20 20 20 20 20 69 66 20 72 65 73 3d 30 20 74 68 65 6e 20 63 68 69 6c 64 74 61 62 6c 65 2e ┆ if res=0 then childtable.┆
0xeb20…eb40 63 74 2e 63 74 5f 73 74 61 74 65 3a 3d 73 74 61 74 65 5f 62 72 65 61 6b 65 64 3b 0a 20 20 34 20 ┆ct.ct_state:=state_breaked; 4 ┆
0xeb40…eb60 20 31 34 30 35 20 20 20 20 20 65 6e 64 3b 0a 20 20 33 20 20 31 34 30 36 20 20 20 20 20 62 72 65 ┆ 1405 end; 3 1406 bre┆
0xeb60…eb80 61 6b 63 68 69 6c 64 3a 3d 72 65 73 3b 0a 20 20 33 20 20 31 34 30 37 20 65 6e 64 20 62 72 65 61 ┆akchild:=res; 3 1407 end brea┆
0xeb80…eba0 6b 3b 0a 20 20 32 20 20 31 34 30 38 20 0a 20 20 32 20 20 31 34 30 38 20 69 6e 74 65 67 65 72 20 ┆k; 2 1408 2 1408 integer ┆
0xeba0…ebc0 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f 76 65 5f 63 68 69 6c 64 28 64 65 73 63 2c 7a 29 3b 0a ┆procedure remove_child(desc,z); ┆
0xebc0…ebe0 20 20 32 20 20 31 34 30 39 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 3b 0a 20 20 ┆ 2 1409 integer array desc; ┆
0xebe0…ec00 32 20 20 31 34 31 30 20 7a 6f 6e 65 20 7a 3b 0a 20 20 32 20 20 31 34 31 31 20 62 65 67 69 6e 0a ┆2 1410 zone z; 2 1411 begin ┆
0xec00…ec20 20 20 33 20 20 31 34 31 32 20 69 6e 74 65 67 65 72 20 63 6e 2c 72 65 73 2c 62 73 2c 6a 6f 62 3b ┆ 3 1412 integer cn,res,bs,job;┆
0xec20…ec40 0a 20 20 33 20 20 31 34 31 33 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 70 ┆ 3 1413 integer array field p┆
0xec40…ec60 64 61 2c 69 61 66 2c 70 70 64 61 2c 63 74 3b 0a 20 20 33 20 20 31 34 31 34 20 62 6f 6f 6c 65 61 ┆da,iaf,ppda,ct; 3 1414 boolea┆
0xec60…ec80 6e 20 62 61 74 63 68 3b 0a 20 20 33 20 20 31 34 31 35 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 ┆n batch; 3 1415 long array fi┆
0xec80…eca0 65 6c 64 20 6c 61 66 2c 6c 61 66 31 3b 0a 20 20 33 20 20 31 34 31 36 20 6c 6f 6e 67 20 61 72 72 ┆eld laf,laf1; 3 1416 long arr┆
0xeca0…ecc0 61 79 20 6e 61 6d 65 2c 70 6e 61 6d 65 28 31 3a 33 29 3b 0a 20 20 33 20 20 31 34 31 37 20 69 6e ┆ay name,pname(1:3); 3 1417 in┆
0xecc0…ece0 74 65 67 65 72 20 61 72 72 61 79 20 70 61 72 61 6d 28 31 3a 38 29 3b 0a 20 20 33 20 20 31 34 31 ┆teger array param(1:8); 3 141┆
0xece0…ed00 38 20 72 65 6d 6f 76 65 63 68 69 6c 64 3a 3d 31 3b 0a 20 20 33 20 20 31 34 31 39 20 63 6e 3a 3d ┆8 removechild:=1; 3 1419 cn:=┆
0xed00…ed20 64 65 73 63 2e 63 6f 6e 63 75 72 63 68 69 6c 64 3b 0a 20 20 33 20 20 31 34 32 30 20 3c 2a 2b 32 ┆desc.concurchild; 3 1420 <*+2┆
0xed20…ed40 2a 3e 0a 20 20 33 20 20 31 34 32 31 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 ┆*> 3 1421 if testop(2) then d┆
0xed40…ed60 69 73 61 62 6c 65 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 72 65 6d 6f 76 65 3a 20 ┆isable write(z,"nl",1,<:remove: ┆
0xed60…ed80 63 68 69 6c 64 20 3a 3e 2c 63 6e 29 3b 0a 20 20 33 20 20 31 34 32 32 20 3c 2a 2d 32 2a 3e 0a 20 ┆child :>,cn); 3 1422 <*-2*> ┆
0xed80…eda0 20 33 20 20 31 34 32 33 20 69 66 20 63 6e 3e 30 20 74 68 65 6e 0a 20 20 33 20 20 31 34 32 34 20 ┆ 3 1423 if cn>0 then 3 1424 ┆
0xeda0…edc0 62 65 67 69 6e 0a 20 20 34 20 20 31 34 32 35 20 20 20 63 74 3a 3d 28 63 6e 2d 31 29 2a 63 74 73 ┆begin 4 1425 ct:=(cn-1)*cts┆
0xedc0…ede0 69 7a 65 3b 0a 20 20 34 20 20 31 34 32 36 20 20 20 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c 65 ┆ize; 4 1426 pda:=childtable┆
0xede0…ee00 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3b 0a 20 20 34 20 20 31 34 32 37 20 20 20 6c 61 66 ┆.ct.ct_childpda; 4 1427 laf┆
0xee00…ee20 3a 3d 70 64 61 2b 32 3b 0a 20 20 34 20 20 31 34 32 38 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 ┆:=pda+2; 4 1428 for i:=1,2 ┆
0xee20…ee40 64 6f 20 70 6e 61 6d 65 28 69 29 3a 3d 63 6f 72 65 2e 6c 61 66 28 69 29 3b 0a 20 20 34 20 20 31 ┆do pname(i):=core.laf(i); 4 1┆
0xee40…ee60 34 32 39 20 20 20 62 61 74 63 68 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 62 61 74 ┆429 batch:=childtable.ct.ctbat┆
0xee60…ee80 63 68 3e 30 3b 0a 20 20 34 20 20 31 34 33 30 20 3c 2a 2b 32 2a 3e 0a 20 20 34 20 20 31 34 33 31 ┆ch>0; 4 1430 <*+2*> 4 1431┆
0xee80…eea0 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 20 77 72 69 ┆ if testop(2) then disable wri┆
0xeea0…eec0 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c 3a 63 68 69 6c 64 20 73 74 61 74 65 3a 3e 2c 0a 20 20 34 ┆te(z,"nl",1,<:child state:>, 4┆
0xeec0…eee0 20 20 31 34 33 32 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 73 74 61 ┆ 1432 childtable.ct.ctsta┆
0xeee0…ef00 74 65 2c 69 66 20 62 61 74 63 68 20 74 68 65 6e 20 3c 3a 20 62 61 74 63 68 20 3a 3e 20 65 6c 73 ┆te,if batch then <: batch :> els┆
0xef00…ef20 65 20 3c 3a 6f 6e 20 6c 69 6e 65 3a 3e 29 3b 0a 20 20 34 20 20 31 34 33 33 20 3c 2a 2d 32 2a 3e ┆e <:on line:>); 4 1433 <*-2*>┆
0xef20…ef40 0a 20 20 34 20 20 31 34 33 34 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 ┆ 4 1434 if childtable.ct.ct┆
0xef40…ef60 5f 73 74 61 74 65 20 3c 3e 73 74 61 74 65 72 75 6e 6e 69 6e 67 20 74 68 65 6e 0a 20 20 34 20 20 ┆_state <>staterunning then 4 ┆
0xef60…ef80 31 34 33 35 20 20 20 62 65 67 69 6e 0a 20 20 35 20 20 31 34 33 36 20 20 20 20 20 63 6c 65 61 72 ┆1435 begin 5 1436 clear┆
0xef80…efa0 65 6e 74 72 69 65 73 28 31 2c 63 6f 72 65 2e 70 64 61 2e 73 74 64 62 61 73 65 72 65 66 28 31 29 ┆entries(1,core.pda.stdbaseref(1)┆
0xefa0…efc0 2c 63 6f 72 65 2e 70 64 61 2e 73 74 64 62 61 73 65 72 65 66 28 32 29 2c 7a 29 3b 0a 20 20 35 20 ┆,core.pda.stdbaseref(2),z); 5 ┆
0xefc0…efe0 20 31 34 33 37 20 20 20 20 20 66 6f 72 20 62 73 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆ 1437 for bs:=1 step 1 until┆
0xefe0…f000 20 6e 6f 6f 66 62 73 20 64 6f 0a 20 20 35 20 20 31 34 33 38 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ noofbs do 5 1438 begin ┆
0xf000…f020 20 36 20 20 31 34 33 39 20 20 20 20 20 20 20 6c 61 66 3a 3d 69 61 66 3a 3d 28 62 73 2d 31 29 2a ┆ 6 1439 laf:=iaf:=(bs-1)*┆
0xf020…f040 31 32 3b 0a 20 20 36 20 20 31 34 34 30 20 20 20 20 20 20 20 69 61 66 3a 3d 75 73 65 72 63 61 74 ┆12; 6 1440 iaf:=usercat┆
0xf040…f060 62 73 2e 69 61 66 28 36 29 3b 0a 20 20 36 20 20 31 34 34 31 20 20 20 20 20 20 20 72 65 73 3a 3d ┆bs.iaf(6); 6 1441 res:=┆
0xf060…f080 6c 6f 6f 6b 75 70 5f 62 73 5f 63 6c 61 69 6d 73 28 70 6e 61 6d 65 2c 75 73 65 72 63 61 74 62 73 ┆lookup_bs_claims(pname,usercatbs┆
0xf080…f0a0 2e 6c 61 66 2c 70 61 72 61 6d 29 3b 0a 20 20 36 20 20 31 34 34 32 20 20 20 20 20 20 20 69 66 20 ┆.laf,param); 6 1442 if ┆
0xf0a0…f0c0 72 65 73 3d 30 20 74 68 65 6e 0a 20 20 36 20 20 31 34 34 33 20 20 20 20 20 20 20 62 65 67 69 6e ┆res=0 then 6 1443 begin┆
0xf0c0…f0e0 0a 20 20 37 20 20 31 34 34 34 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 ┆ 7 1444 for i:=1,2 do ┆
0xf0e0…f100 70 65 72 6d 5f 62 73 5f 63 6c 61 69 6d 65 64 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 ┆perm_bs_claimed(childtable.ct.ct┆
0xf100…f120 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c 69 29 3a 3d 0a 20 20 37 20 20 31 34 34 35 20 20 20 20 ┆_usercatno,bs,i):= 7 1445 ┆
0xf120…f140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 5f 62 73 5f 63 6c 61 69 6d 65 ┆ perm_bs_claime┆
0xf140…f160 64 28 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c ┆d(childtable.ct.ct_usercatno,bs,┆
0xf160…f180 69 29 2d 70 61 72 61 6d 28 36 2b 69 29 3b 0a 20 20 37 20 20 31 34 34 36 20 3c 2a 2b 32 2a 3e 0a ┆i)-param(6+i); 7 1446 <*+2*> ┆
0xf180…f1a0 20 20 37 20 20 31 34 34 37 20 20 20 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 32 29 20 61 6e ┆ 7 1447 if testop(2) an┆
0xf1a0…f1c0 64 20 28 70 61 72 61 6d 28 37 29 3c 3e 30 20 6f 72 20 70 61 72 61 6d 28 38 29 3c 3e 30 29 20 74 ┆d (param(7)<>0 or param(8)<>0) t┆
0xf1c0…f1e0 68 65 6e 0a 20 20 37 20 20 31 34 34 38 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 22 6e 6c ┆hen 7 1448 write(z,"nl┆
0xf1e0…f200 22 2c 31 2c 3c 3a 70 65 72 6d 20 62 73 20 75 73 65 72 6e 6f 20 3a 3e 2c 63 68 69 6c 64 74 61 62 ┆",1,<:perm bs userno :>,childtab┆
0xf200…f220 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 0a 20 20 37 20 20 31 34 34 39 20 20 20 ┆le.ct.ct_usercatno, 7 1449 ┆
0xf220…f240 20 20 20 20 20 20 20 20 70 65 72 6d 62 73 63 6c 61 69 6d 65 64 28 63 68 69 6c 64 74 61 62 6c 65 ┆ permbsclaimed(childtable┆
0xf240…f260 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c 31 29 2c 0a 20 20 37 20 20 31 34 35 ┆.ct.ct_usercatno,bs,1), 7 145┆
0xf260…f280 30 20 20 20 20 20 20 20 20 20 20 20 70 65 72 6d 62 73 63 6c 61 69 6d 65 64 28 63 68 69 6c 64 74 ┆0 permbsclaimed(childt┆
0xf280…f2a0 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 2c 62 73 2c 32 29 29 3b 0a 20 20 37 ┆able.ct.ct_usercatno,bs,2)); 7┆
0xf2a0…f2c0 20 20 31 34 35 31 20 3c 2a 2d 32 2a 3e 0a 20 20 37 20 20 31 34 35 32 20 20 20 20 20 20 20 65 6e ┆ 1451 <*-2*> 7 1452 en┆
0xf2c0…f2e0 64 20 75 70 64 61 74 65 20 72 65 73 6f 75 72 63 65 73 0a 20 20 36 20 20 31 34 35 33 20 20 20 20 ┆d update resources 6 1453 ┆
0xf2e0…f300 20 65 6e 64 20 66 6f 72 20 62 73 3b 0a 20 20 35 20 20 31 34 35 34 20 20 20 20 20 70 70 64 61 3a ┆ end for bs; 5 1454 ppda:┆
0xf300…f320 (27,) 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 70 72 6f 63 69 6e 3b 0a 20 20 35 20 20 31 34 ┆=childtable.ct.ctprocin; 5 14┆
0xf320…f340 35 35 20 20 20 20 20 69 66 20 70 70 64 61 3d 30 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 35 20 20 ┆55 if ppda=0 then else 5 ┆
0xf340…f360 31 34 35 36 20 20 20 20 20 62 65 67 69 6e 0a 20 20 36 20 20 31 34 35 37 20 20 20 20 20 20 20 6c ┆1456 begin 6 1457 l┆
0xf360…f380 61 66 31 3a 3d 70 70 64 61 2b 32 3b 0a 20 20 36 20 20 31 34 35 38 20 20 20 20 20 20 20 66 6f 72 ┆af1:=ppda+2; 6 1458 for┆
0xf380…f3a0 20 69 3a 3d 31 2c 32 20 64 6f 20 20 6e 61 6d 65 28 69 29 3a 3d 63 6f 72 65 2e 6c 61 66 31 28 69 ┆ i:=1,2 do name(i):=core.laf1(i┆
0xf3a0…f3c0 29 3b 0a 20 20 36 20 20 31 34 35 39 20 20 20 20 20 20 20 69 66 20 63 6f 72 65 2e 70 70 64 61 28 ┆); 6 1459 if core.ppda(┆
0xf3c0…f3e0 31 29 3d 34 20 74 68 65 6e 20 0a 20 20 36 20 20 31 34 36 30 20 20 20 20 20 20 20 62 65 67 69 6e ┆1)=4 then 6 1460 begin┆
0xf3e0…f400 0a 20 20 37 20 20 31 34 36 31 20 20 20 20 20 20 20 20 20 6c 61 66 3a 3d 32 3b 0a 20 20 37 20 20 ┆ 7 1461 laf:=2; 7 ┆
0xf400…f420 31 34 36 32 20 20 20 20 20 20 20 20 20 69 66 20 63 6f 72 65 2e 70 70 64 61 2e 6c 61 66 28 31 29 ┆1462 if core.ppda.laf(1)┆
0xf420…f440 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 3d 0a 20 20 37 20 20 31 34 ┆ shift (-24) extract 24= 7 14┆
0xf440…f460 36 33 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 20 3c 3a 77 72 6b 3a 3e 20 20 20 20 20 73 ┆63 long <:wrk:> s┆
0xf460…f480 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 20 61 6e 64 0a 20 20 37 20 20 31 ┆hift (-24) extract 24 and 7 1┆
0xf480…f4a0 34 36 34 20 20 20 20 20 20 20 20 20 20 20 20 62 61 74 63 68 20 74 68 65 6e 20 72 65 6d 6f 76 65 ┆464 batch then remove┆
0xf4a0…f4c0 65 6e 74 72 79 28 6e 61 6d 65 29 3b 0a 20 20 37 20 20 31 34 36 35 20 20 20 20 20 20 20 20 20 72 ┆entry(name); 7 1465 r┆
0xf4c0…f4e0 65 6d 6f 76 65 70 72 6f 63 65 73 73 28 6e 61 6d 65 29 3b 0a 20 20 37 20 20 31 34 36 36 20 20 20 ┆emoveprocess(name); 7 1466 ┆
0xf4e0…f500 20 20 20 20 65 6e 64 3b 0a 20 20 36 20 20 31 34 36 37 20 20 20 20 20 65 6e 64 20 70 70 64 61 3e ┆ end; 6 1467 end ppda>┆
0xf500…f520 30 3b 0a 20 20 35 20 20 31 34 36 38 20 20 20 20 20 70 70 64 61 3a 3d 63 68 69 6c 64 74 61 62 6c ┆0; 5 1468 ppda:=childtabl┆
0xf520…f540 65 2e 63 74 2e 63 74 5f 70 72 6f 63 6f 75 74 3b 0a 20 20 35 20 20 31 34 36 39 20 20 20 20 20 69 ┆e.ct.ct_procout; 5 1469 i┆
0xf540…f560 66 20 70 70 64 61 3d 30 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 35 20 20 31 34 37 30 20 20 20 20 ┆f ppda=0 then else 5 1470 ┆
0xf560…f580 20 62 65 67 69 6e 0a 20 20 36 20 20 31 34 37 31 20 20 20 20 20 20 20 6c 61 66 31 3a 3d 70 70 64 ┆ begin 6 1471 laf1:=ppd┆
0xf580…f5a0 61 2b 32 3b 0a 20 20 36 20 20 31 34 37 32 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 2c 32 20 ┆a+2; 6 1472 for i:=1,2 ┆
0xf5a0…f5c0 64 6f 20 6e 61 6d 65 28 69 29 3a 3d 63 6f 72 65 2e 6c 61 66 31 28 69 29 3b 0a 20 20 36 20 20 31 ┆do name(i):=core.laf1(i); 6 1┆
0xf5c0…f5e0 34 37 33 20 20 20 20 20 20 20 69 66 20 63 6f 72 65 2e 70 70 64 61 28 31 29 3d 34 20 74 68 65 6e ┆473 if core.ppda(1)=4 then┆
0xf5e0…f600 20 72 65 6d 6f 76 65 70 72 6f 63 65 73 73 28 6e 61 6d 65 29 3b 0a 20 20 36 20 20 31 34 37 34 20 ┆ removeprocess(name); 6 1474 ┆
0xf600…f620 20 20 20 20 65 6e 64 20 70 72 6f 63 6f 75 74 3b 0a 20 20 35 20 20 31 34 37 35 20 20 20 20 20 72 ┆ end procout; 5 1475 r┆
0xf620…f640 65 73 3a 3d 72 65 6d 6f 76 65 63 68 69 6c 64 3a 3d 72 65 6d 6f 76 65 70 72 6f 63 65 73 73 28 70 ┆es:=removechild:=removeprocess(p┆
0xf640…f660 6e 61 6d 65 29 3b 0a 20 20 35 20 20 31 34 37 36 20 3c 2a 2b 32 2a 3e 0a 20 20 35 20 20 31 34 37 ┆name); 5 1476 <*+2*> 5 147┆
0xf660…f680 37 20 20 20 20 20 69 66 20 74 65 73 74 6f 70 28 37 29 20 74 68 65 6e 20 64 69 73 61 62 6c 65 0a ┆7 if testop(7) then disable ┆
0xf680…f6a0 20 20 35 20 20 31 34 37 38 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 31 2c 3c ┆ 5 1478 write(z,"nl",1,<┆
0xf6a0…f6c0 3a 72 65 6d 6f 76 65 20 3a 3e 2c 70 6e 61 6d 65 2c 3c 3a 20 72 65 73 20 3a 3e 2c 72 65 73 29 3b ┆:remove :>,pname,<: res :>,res);┆
0xf6c0…f6e0 0a 20 20 35 20 20 31 34 37 39 20 3c 2a 2d 32 2a 3e 0a 20 20 35 20 20 31 34 38 30 20 20 20 20 20 ┆ 5 1479 <*-2*> 5 1480 ┆
0xf6e0…f700 69 66 20 72 65 73 3d 30 20 74 68 65 6e 20 0a 20 20 35 20 20 31 34 38 31 20 20 20 20 20 62 65 67 ┆if res=0 then 5 1481 beg┆
0xf700…f720 69 6e 0a 20 20 36 20 20 31 34 38 32 20 20 20 20 20 20 20 69 66 20 63 68 69 6c 64 74 61 62 6c 65 ┆in 6 1482 if childtable┆
0xf720…f740 2e 63 74 2e 63 74 5f 62 75 66 72 65 66 3c 3e 30 20 74 68 65 6e 0a 20 20 36 20 20 31 34 38 33 20 ┆.ct.ct_bufref<>0 then 6 1483 ┆
0xf740…f760 20 20 20 20 20 20 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 41 28 31 3a 38 29 ┆ begin integer array A(1:8)┆
0xf760…f780 3b 0a 20 20 37 20 20 31 34 38 34 20 20 20 20 20 20 20 20 3c 2a 72 65 6c 65 61 73 65 20 70 6f 73 ┆; 7 1484 <*release pos┆
0xf780…f7a0 73 69 62 6c 65 20 62 75 66 66 65 72 20 66 72 6f 6d 20 66 69 6e 69 73 20 6f 72 20 62 72 65 61 6b ┆sible buffer from finis or break┆
0xf7a0…f7c0 2a 3e 0a 20 20 37 20 20 31 34 38 35 20 20 20 20 20 20 20 20 73 65 6e 64 5f 61 6e 73 77 65 72 28 ┆*> 7 1485 send_answer(┆
0xf7c0…f7e0 31 2c 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 62 75 66 72 65 66 2c 41 29 3b 0a 20 20 ┆1,childtable.ct.ct_bufref,A); ┆
0xf7e0…f800 37 20 20 31 34 38 36 20 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f ┆7 1486 childtable.ct.ct_┆
0xf800…f820 62 75 66 72 65 66 3a 3d 30 3b 0a 20 20 37 20 20 31 34 38 37 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆bufref:=0; 7 1487 end; ┆
0xf820…f840 20 36 20 20 31 34 38 38 20 20 20 20 20 20 20 6a 6f 62 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 ┆ 6 1488 job:=childtable.c┆
0xf840…f860 74 2e 63 74 73 65 67 6d 71 75 65 75 65 3b 0a 20 20 36 20 20 31 34 38 39 20 20 20 20 20 20 20 66 ┆t.ctsegmqueue; 6 1489 f┆
0xf860…f880 6f 72 20 69 3a 3d 31 2c 32 20 64 6f 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6a 6f ┆or i:=1,2 do childtable.ct.ct_jo┆
0xf880…f8a0 62 6e 61 6d 65 28 69 29 3a 3d 30 3b 0a 20 20 36 20 20 31 34 39 30 20 20 20 20 20 20 20 20 63 68 ┆bname(i):=0; 6 1490 ch┆
0xf8a0…f8c0 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 63 68 69 6c 64 70 64 61 3a 3d 63 68 69 6c 64 74 61 ┆ildtable.ct.ct_childpda:=childta┆
0xf8c0…f8e0 62 6c 65 2e 63 74 2e 63 74 5f 74 65 72 6d 70 64 61 3a 3d 0a 20 20 36 20 20 31 34 39 31 20 20 20 ┆ble.ct.ct_termpda:= 6 1491 ┆
0xf8e0…f900 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 74 61 74 65 20 20 20 3a 3d ┆ childtable.ct.ct_state :=┆
0xf900…f920 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 72 65 66 20 20 20 20 3a 3d 0a 20 20 36 20 20 ┆childtable.ct.ct_ref := 6 ┆
0xf920…f940 31 34 39 32 20 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 66 69 72 ┆1492 childtable.ct.ct_fir┆
0xf940…f960 73 74 20 20 20 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 6c 61 73 74 20 20 20 3a ┆st :=childtable.ct.ct_last :┆
0xf960…f980 3d 0a 20 20 36 20 20 31 34 39 33 20 20 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 ┆= 6 1493 childtable.ct┆
0xf980…f9a0 2e 63 74 5f 6a 6f 62 6e 6f 20 20 20 3a 3d 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 73 ┆.ct_jobno :=childtable.ct.ct_s┆
0xf9a0…f9c0 65 67 6d 73 77 6f 70 3a 3d 0a 20 20 36 20 20 31 34 39 34 20 20 20 20 20 20 20 20 63 68 69 6c 64 ┆egmswop:= 6 1494 child┆
0xf9c0…f9e0 74 61 62 6c 65 2e 63 74 2e 63 74 5f 75 73 65 72 63 61 74 6e 6f 3a 3d 63 68 69 6c 64 74 61 62 6c ┆table.ct.ct_usercatno:=childtabl┆
0xf9e0…fa00 65 2e 63 74 2e 63 74 70 72 6f 63 69 6e 20 3a 3d 0a 20 20 36 20 20 31 34 39 35 20 20 20 20 20 20 ┆e.ct.ctprocin := 6 1495 ┆
0xfa00…fa20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 70 72 6f 63 6f 75 74 20 3a 3d 30 3b 0a ┆ childtable.ct.ct_procout :=0; ┆
0xfa20…fa40 20 20 36 20 20 31 34 39 36 20 20 20 20 20 20 20 69 66 20 62 61 74 63 68 20 74 68 65 6e 0a 20 20 ┆ 6 1496 if batch then ┆
0xfa40…fa60 36 20 20 31 34 39 37 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 37 20 20 31 34 39 38 20 20 20 ┆6 1497 begin 7 1498 ┆
0xfa60…fa80 20 20 20 20 20 20 63 68 69 6c 64 74 61 62 6c 65 2e 63 74 2e 63 74 5f 62 61 74 63 68 3a 3d 30 3b ┆ childtable.ct.ct_batch:=0;┆
0xfa80…faa0 0a 20 20 37 20 20 31 34 39 39 20 20 20 20 20 20 20 20 20 69 66 20 64 65 73 63 2e 71 5f 72 65 6d ┆ 7 1499 if desc.q_rem┆
0xfaa0…fac0 6f 76 65 5f 6a 6f 62 5f 66 69 6c 65 3e 30 20 74 68 65 6e 0a 20 20 37 20 20 31 35 30 30 20 20 20 ┆ove_job_file>0 then 7 1500 ┆
0xfac0…fae0 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 65 6e 74 72 79 28 64 65 73 63 2e 71 5f 6a 6f 62 ┆ remove_entry(desc.q_job┆
0xfae0…fb00 6e 61 6d 65 29 3b 0a 20 20 37 20 20 31 35 30 31 20 20 20 20 20 20 20 20 20 62 63 75 72 63 68 69 ┆name); 7 1501 bcurchi┆
0xfb00…fb20 6c 64 72 65 6e 3a 3d 62 63 75 72 63 68 69 6c 64 72 65 6e 2d 31 3b 0a 20 20 37 20 20 31 35 30 32 ┆ldren:=bcurchildren-1; 7 1502┆
0xfb20…fb40 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 62 ┆ for i:=1 step 1 until b┆
0xfb40…fb60 6d 61 78 63 68 69 6c 64 72 65 6e 20 64 6f 0a 20 20 37 20 20 31 35 30 33 20 20 20 20 20 20 20 20 ┆maxchildren do 7 1503 ┆
0xfb60…fb80 20 62 65 67 69 6e 0a 20 20 38 20 20 31 35 30 34 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6e ┆ begin 8 1504 if cn┆
0xfb80…fba0 3d 62 73 65 67 6d 74 61 62 6c 65 28 69 2c 31 29 20 74 68 65 6e 20 62 73 65 67 6d 74 61 62 6c 65 ┆=bsegmtable(i,1) then bsegmtable┆
0xfba0…fbc0 28 69 2c 31 29 3a 3d 30 3b 0a 20 20 38 20 20 31 35 30 35 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆(i,1):=0; 8 1505 end;┆
0xfbc0…fbe0 0a 20 20 37 20 20 31 35 30 36 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 ┆ 7 1506 for i:=2 step┆
0xfbe0…fc00 20 31 20 75 6e 74 69 6c 20 31 35 20 64 6f 20 6a 6f 62 74 61 62 6c 65 28 6a 6f 62 2c 69 29 3a 3d ┆ 1 until 15 do jobtable(job,i):=┆