|
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
Length: 1483776 (0x16a400)
Types: Rc489kSubCat
Names: »kkmon4filer«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »kkmon4filer«
0x000000…000033 (0,) Rc489kSubCatEnt {f00=0x002d7b, f01=0x0007e4, f02=0x0007ed, filename=»kkopt4 «, entry_tail=0-4-0-5-1982-02-25T15:05-disc3-0x0-0x0-0x0-0x0}
0x000033…000066 Rc489kSubCatEnt {f00=0x007853, f01=0x0007e4, f02=0x0007ed, filename=»kkmonret4 «, entry_tail=0-4-0-7-1982-02-25T14:55-disc3-0x0-0x0-0x0-0x0}
0x000066…000099 Rc489kSubCatEnt {f00=0x00ea28, f01=0x0007e4, f02=0x0007ed, filename=»mondef «, entry_tail=0-4-0-32-1982-02-25T10:35-disc3-0x0-0x0-0x0-0x0}
0x000099…0000cc Rc489kSubCatEnt {f00=0x02e408, f01=0x0007e4, f02=0x0007ed, filename=»moncentral «, entry_tail=0-4-0-89-1982-02-25T10:35-disc3-0x0-0x0-0x0-0x0}
0x0000cc…0000ff Rc489kSubCatEnt {f00=0x087600, f01=0x0007e4, f02=0x0007ed, filename=»monprocs «, entry_tail=0-4-0-278-1982-02-25T10:36-disc3-0x0-0x0-0x0-0x0}
0x0000ff…000132 Rc489kSubCatEnt {f00=0x19d5a2, f01=0x0007e4, f02=0x0007ed, filename=»mondisc «, entry_tail=0-4-0-158-1982-02-10T09:04-disc-0x0-0x0-0x0-0x0}
0x000132…000165 Rc489kSubCatEnt {f00=0x23bdca, f01=0x0007e4, f02=0x0007ed, filename=»monfpaline «, entry_tail=0-4-0-130-1982-02-10T09:04-disc-0x0-0x0-0x0-0x0}
0x000165…000198 Rc489kSubCatEnt {f00=0x2bd232, f01=0x0007e4, f02=0x0007ed, filename=»monhost «, entry_tail=0-4-0-83-1982-02-23T08:53-disc-0x0-0x0-0x0-0x0}
0x000198…0001cb Rc489kSubCatEnt {f00=0x310bc2, f01=0x0007e4, f02=0x0007ed, filename=»monfpasub «, entry_tail=0-4-0-165-1982-02-23T08:54-disc-0x0-0x0-0x0-0x0}
0x0001cb…0001fe Rc489kSubCatEnt {f00=0x3b5458, f01=0x0007e4, f02=0x0007ed, filename=»montabinit «, entry_tail=0-4-0-28-1982-02-25T10:37-disc3-0x0-0x0-0x0-0x0}
0x0001fe…000231 Rc489kSubCatEnt {f00=0x3d12c2, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc1 «, entry_tail=0-4-0-84-1982-02-23T08:54-disc-0x0-0x0-0x0-0x0}
0x000231…000264 Rc489kSubCatEnt {f00=0x425ac0, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc2 «, entry_tail=0-4-0-247-1982-02-25T10:38-disc3-0x0-0x0-0x0-0x0}
0x000264…000297 Rc489kSubCatEnt {f00=0x51c422, f01=0x0007e4, f02=0x0007ed, filename=»mons1 «, entry_tail=0-4-0-91-1982-02-23T08:55-disc-0x0-0x0-0x0-0x0}
0x000297…0002ca Rc489kSubCatEnt {f00=0x577c22, f01=0x0007e4, f02=0x0007ed, filename=»mons2 «, entry_tail=0-4-0-98-1982-02-23T08:55-disc-0x0-0x0-0x0-0x0}
0x0002ca…0002fd Rc489kSubCatEnt {f00=0x5d9142, f01=0x0007e4, f02=0x0007ed, filename=»moncatinit «, entry_tail=0-4-0-124-1982-02-23T08:55-disc-0x0-0x0-0x0-0x0}
0x0002fd…000300 0x000016
0x000300…000333 Rc489kSubCatEnt {f00=0x655d3b, f01=0x0007e4, f02=0x0007ed, filename=»monmaster «, entry_tail=0-4-0-46-1981-05-19T12:25-disc1-0x0-0x0-0x0-0x0}
0x000333…000366 Rc489kSubCatEnt {f00=0x683b23, f01=0x0007e4, f02=0x0007ed, filename=»kklistopt4 «, entry_tail=0-4-0-5-1980-01-19T13:42-disc1-0x0-0x0-0x0-0x0}
0x000366…000399 Rc489kSubCatEnt {f00=0x68804b, f01=0x0007e4, f02=0x0007ed, filename=»inf4 «, entry_tail=0-4-0-1-1980-10-21T16:27-disc1-0x0-0x0-0x0-0x0}
0x000399…0003cc Rc489kSubCatEnt {f00=0x689753, f01=0x0007e4, f02=0x0007ed, filename=»kkfpret4 «, entry_tail=0-4-0-1-1980-10-20T12:58-disc1-0x0-0x0-0x0-0x0}
0x0003cc…0003ff Rc489kSubCatEnt {f00=0x68af83, f01=0x0007e4, f02=0x0007ed, filename=»kkfptxt1 «, entry_tail=0-4-0-68-1980-01-07T20:40-disc1-0x0-0x0-0x0-0x0}
0x0003ff…000432 Rc489kSubCatEnt {f00=0x6ce7eb, f01=0x0007e4, f02=0x0007ed, filename=»kkfptxt2 «, entry_tail=0-4-0-105-1980-01-07T20:40-disc1-0x0-0x0-0x0-0x0}
0x000432…000465 Rc489kSubCatEnt {f00=0x7371eb, f01=0x0007e4, f02=0x0007ed, filename=»kkfptxt33 «, entry_tail=0-4-0-81-1980-06-16T12:08-disc1-0x0-0x0-0x0-0x0}
0x000465…000480 2b d2 32 00 07 e4 00 07 ed 6d 6f 6e 68 6f 73 74 00 00 00 00 00 00 00 53 64 69 73 ┆+ 2 monhost Sdis┆
0x000480…0004a0 63 00 00 00 00 00 00 00 00 81 ef ec 00 00 00 00 00 00 00 00 00 00 00 00 31 0b c2 00 07 e4 00 07 ┆c 1 ┆
0x0004a0…0004c0 ed 6d 6f 6e 66 70 61 73 75 62 00 00 00 00 00 a5 64 69 73 63 00 00 00 00 00 00 00 00 81 ef ed 00 ┆ monfpasub disc ┆
0x0004c0…0004e0 00 00 00 00 00 00 00 00 00 00 00 3b 54 58 00 07 e4 00 07 ed 6d 6f 6e 74 61 62 69 6e 69 74 00 00 ┆ ;TX montabinit ┆
0x0004e0…000500 00 00 1c 64 69 73 63 33 00 00 00 00 00 00 00 81 fd 43 00 00 00 00 00 00 00 00 00 00 00 00 3d 12 ┆ disc3 C = ┆
0x000500…000520 c2 00 07 e4 00 07 ed 6d 6f 6e 70 72 6f 63 66 6e 63 31 00 00 00 54 64 69 73 63 00 00 00 00 00 00 ┆ monprocfnc1 Tdisc ┆
0x000520…000540 00 00 81 ef ed 00 00 00 00 00 00 00 00 00 00 00 00 42 5a c0 00 07 e4 00 07 ed 6d 6f 6e 70 72 6f ┆ BZ monpro┆
0x000540…000560 63 66 6e 63 32 00 00 00 f7 64 69 73 63 33 00 00 00 00 00 00 00 81 fd 44 00 00 00 00 00 00 00 00 ┆cfnc2 disc3 D ┆
0x000560…000580 00 00 00 00 51 c4 22 00 07 e4 00 07 ed 6d 6f 6e 73 31 00 00 00 00 00 00 00 00 00 5b 64 69 73 63 ┆ Q " mons1 Ædisc┆
0x000580…0005a0 00 00 00 00 00 00 00 00 81 ef ee 00 00 00 00 00 00 00 00 00 00 00 00 57 7c 22 00 07 e4 00 07 ed ┆ Wø" ┆
0x0005a0…0005c0 6d 6f 6e 73 32 00 00 00 00 00 00 00 00 00 62 64 69 73 63 00 00 00 00 00 00 00 00 81 ef ef 00 00 ┆mons2 bdisc ┆
0x0005c0…0005e0 00 00 00 00 00 00 00 00 00 00 5d 91 42 00 07 e4 00 07 ed 6d 6f 6e 63 61 74 69 6e 69 74 00 00 00 ┆ Å B moncatinit ┆
0x0005e0…000600 00 7c 64 69 73 63 00 00 00 00 00 00 00 00 81 ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ødisc ┆
0x000600…001500 Data for kkopt4
0x001500…002a00 Data for kkmonret4
0x002a00…008a00 Data for mondef
0x008a00…019500 Data for moncentral
0x019500…04d700 (45,) Data for monprocs
0x04d700…06b100 Data for mondisc
0x06b100…083700 Data for monfpaline
0x083700…093000 Data for monhost
0x093000…0b1f00 Data for monfpasub
0x0b1f00…0b7300 Data for montabinit
0x0b7300…0c6f00 Data for monprocfnc1
0x0c6f00…0f5400 Data for monprocfnc2
0x0f5400…106500 (436,) Data for mons1
0x106500…118b00 Data for mons2
0x118b00…12ff00 (499,) Data for moncatinit
0x12ff00…138900 Data for monmaster
0x138900…139800 Data for kklistopt4
0x139800…139b00 Data for inf4
0x139b00…139e00 Data for kkfpret4
0x139e00…146a00 (558,) Data for kkfptxt1
0x146a00…15a500 Data for kkfptxt2
0x15a500…169800 Data for kkfptxt33
0x169800…169820 73 75 69 74 61 62 6c 65 20 68 6f 6c 65 20 6d 61 79 20 62 65 20 66 6f 75 6e 64 2e 0a 0a 62 2e 20 ┆suitable hole may be found. b. ┆
0x169820…169840 69 32 34 2c 20 6a 32 34 0a 77 2e 0a 0a 3b 20 6c 6f 63 61 6c 20 73 75 62 20 70 72 6f 63 65 64 75 ┆i24, j24 w. ; local sub procedu┆
0x169840…169860 72 65 73 20 66 69 72 73 74 20 68 6f 6c 65 20 61 6e 64 20 6e 65 78 74 20 68 6f 6c 65 28 61 64 64 ┆res first hole and next hole(add┆
0x169860…169880 72 2c 20 73 69 7a 65 2c 20 73 6f 72 72 79 29 3b 0a 3b 20 63 6f 6d 6d 65 6e 74 3a 20 74 68 69 73 ┆r, size, sorry); ; comment: this┆
0x169880…1698a0 20 73 65 74 20 6f 66 20 70 72 6f 63 65 64 75 72 65 73 20 70 65 72 66 6f 72 6d 20 74 68 65 20 61 ┆ set of procedures perform the a┆
0x1698a0…1698c0 63 74 75 61 6c 20 75 70 0a 3b 20 64 61 74 69 6e 67 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c ┆ctual up ; dating of the variabl┆
0x1698c0…1698e0 65 20 63 6f 72 65 20 74 61 62 6c 65 20 65 6c 65 6d 65 6e 74 2e 0a 3b 20 20 20 20 20 20 63 61 6c ┆e core table element. ; cal┆
0x1698e0…169900 6c 3a 20 20 20 20 20 72 65 74 75 72 6e 0a 3b 20 77 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 68 ┆l: return ; w0: h┆
0x169900…169920 6f 6c 65 20 61 64 64 72 0a 3b 20 77 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 6c 65 20 73 ┆ole addr ; w1: hole s┆
0x169920…169940 69 7a 65 0a 3b 20 77 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b ┆ize ; w2: unchanged ;┆
0x169940…169960 20 77 33 3a 20 20 6c 69 6e 6b 20 20 20 20 20 20 6c 69 6e 6b 0a 0a 6a 30 3a 20 20 72 73 2e 20 77 ┆ w3: link link j0: rs. w┆
0x169960…169980 33 20 20 20 20 20 65 33 30 2e 20 20 20 20 20 3b 20 65 6e 74 72 79 20 66 69 72 73 74 20 68 6f 6c ┆3 e30. ; entry first hol┆
0x169980…1699a0 65 3a 0a 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 20 65 31 36 2e 20 20 20 20 20 3b 20 20 20 ┆e: rl. w0 e16. ; ┆
0x1699a0…1699c0 68 6f 6c 65 20 61 64 64 72 3a 3d 20 66 69 72 73 74 20 63 6f 72 65 3b 0a 20 20 20 20 20 61 6c 2e ┆hole addr:= first core; al.┆
0x1699c0…1699e0 20 77 33 20 20 20 20 20 65 31 35 2e 20 20 20 20 20 3b 20 20 20 65 6c 65 6d 65 6e 74 3a 3d 20 63 ┆ w3 e15. ; element:= c┆
0x1699e0…169a00 6f 72 65 20 74 61 62 6c 65 20 68 65 61 64 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 ┆ore table head; jl. ┆
0x169a00…169a20 20 6a 32 2e 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 61 64 76 61 6e 63 65 3b 0a 0a 6a 31 3a 20 ┆ j2. ; goto advance; j1: ┆
0x169a20…169a40 20 72 78 2e 20 77 33 20 20 20 20 20 65 33 30 2e 20 20 20 20 20 3b 20 65 6e 74 72 79 20 6e 65 78 ┆ rx. w3 e30. ; entry nex┆
0x169a40…169a60 74 20 68 6f 6c 65 3a 0a 20 20 20 20 20 73 6e 2e 20 77 33 20 20 20 20 20 65 31 35 2e 20 20 20 20 ┆t hole: sn. w3 e15. ┆
0x169a60…169a80 20 3b 20 20 20 65 6c 65 6d 65 6e 74 3a 3d 20 63 6f 72 65 20 74 61 62 6c 65 20 65 6c 65 6d 65 6e ┆ ; element:= core table elemen┆
0x169a80…169aa0 74 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 65 33 30 2e 29 20 20 20 20 3b 20 20 20 69 ┆t jl. (e30.) ; i┆
0x169aa0…169ac0 66 20 65 6c 65 6d 65 6e 74 20 3d 20 63 6f 72 65 20 74 61 62 6c 65 20 68 65 61 64 20 74 68 65 6e ┆f element = core table head then┆
0x169ac0…169ae0 0a 20 20 20 20 20 61 6d 20 20 20 20 20 28 78 33 2b 63 31 37 29 20 20 20 20 20 3b 20 20 20 72 65 ┆ am (x3+c17) ; re┆
0x169ae0…169b00 74 75 72 6e 20 73 6f 72 72 79 3b 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 20 20 20 61 31 38 20 ┆turn sorry; rl w0 a18 ┆
0x169b00…169b20 (643,) 20 20 20 20 20 3b 20 20 20 68 6f 6c 65 20 61 64 64 72 3a 3d 20 74 6f 70 20 61 64 64 72 28 63 68 ┆ ; hole addr:= top addr(ch┆
0x169b20…169b40 69 6c 64 28 65 6c 65 6d 65 6e 74 29 29 3b 0a 20 20 20 20 20 61 6d 20 20 20 20 20 28 78 33 2b 63 ┆ild(element)); am (x3+c┆
0x169b40…169b60 31 37 29 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 20 20 61 31 38 32 20 20 20 20 20 20 3b 20 61 ┆17) wa w0 a182 ; a┆
0x169b60…169b80 64 64 20 62 61 73 65 0a 6a 32 3a 20 20 72 6c 20 20 77 33 20 20 78 33 2b 63 32 30 20 20 20 20 20 ┆dd base j2: rl w3 x3+c20 ┆
0x169b80…169ba0 20 3b 20 61 64 76 61 6e 63 65 3a 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 33 2b 63 31 37 20 ┆ ; advance: rl w1 x3+c17 ┆
0x169ba0…169bc0 20 20 20 20 20 3b 20 20 20 65 6c 65 6d 65 6e 74 3a 3d 20 6e 65 78 74 28 65 6c 65 6d 65 6e 74 29 ┆ ; element:= next(element)┆
0x169bc0…169be0 3b 0a 20 20 20 20 20 73 6e 2e 20 77 33 20 20 20 20 20 65 31 35 2e 20 20 20 20 20 3b 20 20 20 69 ┆; sn. w3 e15. ; i┆
0x169be0…169c00 66 20 65 6c 65 6d 65 6e 74 20 3d 20 63 6f 72 65 20 74 61 62 6c 65 20 68 65 61 64 0a 20 20 20 20 ┆f element = core table head ┆
0x169c00…169c20 20 61 6c 2e 20 77 31 20 20 20 20 20 20 65 31 2e 20 20 20 20 20 3b 20 65 6c 20 74 68 65 6e 20 74 ┆ al. w1 e1. ; el then t┆
0x169c20…169c40 6f 70 68 6f 6c 65 3d 74 6f 70 63 6f 72 65 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 20 20 20 20 ┆ophole=topcore rs. w2 ┆
0x169c40…169c60 69 35 2e 0a 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 61 31 38 32 0a 20 20 20 20 20 72 6c ┆i5. rl w2 x1+a182 rl┆
0x169c60…169c80 20 20 77 31 20 20 78 31 2b 61 31 37 20 20 20 20 20 20 3b 20 20 20 65 6c 73 65 20 74 6f 70 68 6f ┆ w1 x1+a17 ; else topho┆
0x169c80…169ca0 6c 65 3a 3d 20 66 69 72 73 74 20 61 64 64 72 28 63 68 69 6c 64 28 65 6c 65 6d 65 6e 74 29 29 3b ┆le:= first addr(child(element));┆
0x169ca0…169cc0 0a 20 20 20 20 20 73 65 2e 20 77 33 20 20 20 20 20 65 31 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 ┆ se. w3 e15. ; ┆
0x169cc0…169ce0 20 77 61 20 20 77 31 20 20 20 20 20 20 20 34 20 20 20 20 20 20 3b 20 61 64 64 20 62 61 73 65 0a ┆ wa w1 4 ; add base ┆
0x169ce0…169d00 20 20 20 20 20 77 73 20 20 77 31 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 68 6f 6c ┆ ws w1 0 ; hol┆
0x169d00…169d20 65 20 73 69 7a 65 3a 3d 20 74 6f 70 20 68 6f 6c 65 20 2d 20 68 6f 6c 65 20 61 64 64 72 3b 0a 20 ┆e size:= top hole - hole addr; ┆
0x169d20…169d40 20 20 20 20 72 78 2e 20 77 33 20 20 20 20 20 65 33 30 2e 20 20 20 20 20 3b 20 20 20 63 6f 72 65 ┆ rx. w3 e30. ; core┆
0x169d40…169d60 20 74 61 62 6c 65 20 65 6c 65 6d 65 6e 74 3a 3d 20 65 6c 65 6d 65 6e 74 3b 0a 20 20 20 20 20 72 ┆ table element:= element; r┆
0x169d60…169d80 6c 2e 20 77 32 20 20 20 20 20 20 69 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 20 20 20 20 ┆l. w2 i5. ; jl ┆
0x169d80…169da0 20 20 78 33 20 20 2b 32 20 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 20 68 61 70 70 79 3b 0a ┆ x3 +2 ; return happy; ┆
0x169da0…169dc0 0a 20 69 35 3a 20 30 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 20 70 61 72 65 6e 74 ┆ i5: 0 ; procedure find parent┆
0x169dc0…169de0 28 63 68 69 6c 64 2c 63 6f 6e 73 6f 6c 65 2c 63 6f 72 65 74 61 62 6c 65 65 6c 65 6d 65 6e 74 2c ┆(child,console,coretableelement,┆
0x169de0…169e00 73 6f 72 72 79 29 3b 0a 3b 20 63 6f 6d 6d 65 6e 74 3a 20 73 65 61 72 63 68 65 73 20 74 68 65 20 ┆sorry); ; comment: searches the ┆
0x169e00…169e20 70 61 72 65 6e 74 20 63 6f 6e 73 6f 6c 65 20 6f 66 20 61 20 67 69 76 65 6e 20 63 68 69 6c 64 20 ┆parent console of a given child ┆
0x169e20…169e40 61 6e 64 0a 3b 20 73 65 74 73 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 63 6f 72 65 20 74 61 62 ┆and ; sets the variable core tab┆
0x169e40…169e60 6c 65 20 65 6c 65 6d 65 6e 74 2e 0a 3b 20 20 20 20 20 20 63 61 6c 6c 3a 20 20 20 20 20 72 65 74 ┆le element. ; call: ret┆
0x169e60…169e80 75 72 6e 3a 0a 3b 20 77 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 74 72 6f 79 65 64 0a ┆urn: ; w0: destroyed ┆
0x169e80…169ea0 3b 20 77 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 6f 6c 65 0a 3b 20 77 32 3a 20 20 ┆; w1: console ; w2: ┆
0x169ea0…169ec0 63 68 69 6c 64 20 20 20 20 20 63 68 69 6c 64 0a 3b 20 77 33 3a 20 20 6c 69 6e 6b 20 20 20 20 20 ┆child child ; w3: link ┆
0x169ec0…169ee0 20 63 6f 72 65 20 74 61 62 6c 65 20 65 6c 65 6d 65 6e 74 0a 0a 64 32 35 3a 20 72 73 2e 20 77 33 ┆ core table element d25: rs. w3┆
0x169ee0…169f00 20 20 20 20 20 65 36 30 2e 20 20 20 20 20 3b 20 62 65 67 69 6e 0a 20 20 20 20 20 61 6d 20 20 20 ┆ e60. ; begin am ┆
0x169f00…169f20 20 20 20 20 6a 30 2d 6a 31 20 20 20 20 20 20 3b 20 20 20 66 6f 72 20 69 3a 3d 20 66 69 72 73 74 ┆ j0-j1 ; for i:= first┆
0x169f20…169f40 20 68 6f 6c 65 2c 0a 69 30 3a 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 20 6a 31 2e 20 20 20 20 20 ┆ hole, i0: jl. w3 j1. ┆
0x169f40…169f60 3b 20 20 20 20 20 20 20 6e 65 78 74 20 68 6f 6c 65 20 77 68 69 6c 65 20 68 61 70 70 79 20 64 6f ┆; next hole while happy do┆
0x169f60…169f80 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 65 36 30 2e 29 20 20 20 20 3b 20 20 20 20 62 ┆ jl. (e60.) ; b┆
0x169f80…169fa0 65 67 69 6e 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 65 33 30 2e 20 20 20 20 20 3b 20 ┆egin rl. w3 e30. ; ┆
0x169fa0…169fc0 20 20 20 20 69 66 20 63 68 69 6c 64 20 3d 20 63 68 69 6c 64 28 65 6c 65 6d 65 6e 74 29 20 74 68 ┆ if child = child(element) th┆
0x169fc0…169fe0 65 6e 0a 20 20 20 20 20 73 65 20 20 77 32 20 28 78 33 2b 63 31 37 29 20 20 20 20 20 3b 20 20 20 ┆en se w2 (x3+c17) ; ┆
0x169fe0…16a000 20 20 20 62 65 67 69 6e 20 63 6f 6e 73 6f 6c 65 3a 3d 20 63 6f 6e 73 6f 6c 65 28 65 6c 65 6d 65 ┆ begin console:= console(eleme┆
0x16a000…16a020 6e 74 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 69 30 2e 20 20 20 20 20 3b 20 ┆nt); jl. i0. ; ┆
0x16a020…16a040 20 20 20 20 20 20 72 65 74 75 72 6e 20 68 61 70 70 79 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 ┆ return happy rl w1 ┆
0x16a040…16a060 78 33 2b 63 31 38 20 20 20 20 20 20 3b 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 61 6d 2e ┆x3+c18 ; end; am.┆
0x16a060…16a080 20 20 20 20 20 20 20 28 65 36 30 2e 29 20 20 20 20 3b 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ (e60.) ; end; ┆
0x16a080…16a0a0 6a 6c 20 20 20 20 20 20 20 20 20 20 2b 32 20 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 20 73 ┆jl +2 ; return s┆
0x16a0a0…16a0c0 6f 72 72 79 3b 0a 3b 20 65 6e 64 3b 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 20 73 ┆orry; ; end; ; procedure find s┆
0x16a0c0…16a0e0 69 7a 65 28 73 74 61 72 74 2c 73 69 7a 65 2c 73 6f 72 72 79 29 3b 0a 3b 20 63 6f 6d 6d 65 6e 74 ┆ize(start,size,sorry); ; comment┆
0x16a0e0…16a100 3a 20 74 68 65 20 63 6f 72 65 20 74 61 62 6c 65 20 69 73 20 73 65 61 72 63 68 65 64 20 66 6f 72 ┆: the core table is searched for┆
0x16a100…16a120 20 74 68 65 20 66 69 72 73 74 0a 3b 20 68 6f 6c 65 20 6e 6f 74 20 6c 65 73 73 20 74 68 61 6e 20 ┆ the first ; hole not less than ┆
0x16a120…16a140 74 68 65 20 73 69 7a 65 20 67 69 76 65 6e 2e 20 74 68 65 20 73 74 61 72 74 20 61 64 64 72 65 73 ┆the size given. the start addres┆
0x16a140…16a160 73 0a 3b 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 6e 64 20 74 68 65 20 76 61 72 69 61 62 6c 65 ┆s ; is returned and the variable┆
0x16a160…16a180 20 63 6f 72 65 20 74 61 62 6c 65 20 65 6e 74 72 79 20 69 73 20 73 65 74 0a 3b 20 74 6f 20 70 6f ┆ core table entry is set ; to po┆
0x16a180…16a1a0 69 6e 74 20 61 74 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 62 65 66 6f 72 65 20 77 68 69 63 68 20 ┆int at the element before which ┆
0x16a1a0…16a1c0 61 20 68 6f 6c 65 20 69 73 0a 3b 20 66 6f 75 6e 64 2e 0a 3b 20 20 20 20 20 20 63 61 6c 6c 3a 20 ┆a hole is ; found. ; call: ┆
0x16a1c0…16a1e0 20 20 20 20 72 65 74 75 72 6e 3a 0a 3b 20 77 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 ┆ return: ; w0: fir┆
0x16a1e0…16a200 73 74 20 61 64 64 72 0a 3b 20 77 31 3a 20 20 73 69 7a 65 20 20 20 20 20 20 73 69 7a 65 20 28 69 ┆st addr ; w1: size size (i┆
0x16a200…16a220 2e 65 2e 20 75 6e 63 68 61 6e 67 65 64 29 0a 3b 20 77 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆.e. unchanged) ; w2: ┆
0x16a220…16a240 64 65 73 74 72 6f 79 65 64 0a 3b 20 77 33 3a 20 20 6c 69 6e 6b 20 20 20 20 20 20 64 65 73 74 72 ┆destroyed ; w3: link destr┆
0x16a240…16a260 6f 79 65 64 0a 0a 64 32 37 3a 20 72 73 2e 20 77 31 20 20 20 20 20 65 33 37 2e 20 20 20 20 20 3b ┆oyed d27: rs. w1 e37. ;┆
0x16a260…16a280 20 62 65 67 69 6e 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 65 33 38 2e 20 20 20 20 20 ┆ begin rs. w3 e38. ┆
0x16a280…16a2a0 3b 20 20 20 77 61 6e 74 65 64 20 73 69 7a 65 3a 3d 20 73 69 7a 65 3b 0a 20 20 20 20 20 61 6d 20 ┆; wanted size:= size; am ┆
0x16a2a0…16a2c0 20 20 20 20 20 20 6a 30 2d 6a 31 20 20 20 20 20 20 3b 20 20 20 66 6f 72 20 73 69 7a 65 3a 3d 20 ┆ j0-j1 ; for size:= ┆
0x16a2c0…16a2e0 66 69 72 73 74 20 68 6f 6c 65 2c 20 6e 65 78 74 20 68 6f 6c 65 20 77 68 69 6c 65 20 68 61 70 70 ┆first hole, next hole while happ┆
0x16a2e0…16a300 79 20 64 6f 0a 69 31 3a 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 20 6a 31 2e 20 20 20 20 20 3b 20 ┆y do i1: jl. w3 j1. ; ┆
0x16a300…16a320 20 20 69 66 20 73 69 7a 65 20 3e 3d 20 77 61 6e 74 65 64 20 73 69 7a 65 20 74 68 65 6e 0a 20 20 ┆ if size >= wanted size then ┆
0x16a320…16a340 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 65 33 38 2e 29 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 ┆ jl. (e38.) ; goto ┆
0x16a340…16a360 66 6f 75 6e 64 3b 0a 20 20 20 20 20 73 6c 2e 20 77 31 20 20 20 20 28 65 33 37 2e 29 20 20 20 20 ┆found; sl. w1 (e37.) ┆
0x16a360…16a380 3b 20 20 20 72 65 74 75 72 6e 20 73 6f 72 72 79 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆; return sorry; jl. ┆
0x16a380…16a3a0 20 20 20 20 34 20 20 20 20 20 20 3b 20 66 6f 75 6e 64 3a 20 73 69 7a 65 3a 3d 20 77 61 6e 74 65 ┆ 4 ; found: size:= wante┆
0x16a3a0…16a3c0 64 20 73 69 7a 65 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 ┆d size; jl. i1. ┆
0x16a3c0…16a3e0 20 3b 20 20 20 66 69 72 73 74 20 61 64 64 72 3a 3d 20 68 6f 6c 65 20 61 64 64 72 3b 0a 20 20 20 ┆ ; first addr:= hole addr; ┆
0x16a3e0…16a400 20 20 64 6c 2e 20 77 32 20 20 20 20 20 65 33 38 2e 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e ┆ dl. w2 e38. ; return┆