|
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 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 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 Data for treadcon
0xa500…a800 Data for tdigamma
0xa800…ab00 Data for treadparam
0xab00…ab20 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 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…ec00 […elided…]
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 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 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 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 Data for treadcon
0xa500…a800 Data for tdigamma
0xa800…ab00 Data for treadparam
0xab00…ab20 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 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…ec00 […elided…]
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 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):=┆