|
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: 10752 (0x2a00)
Types: Rc489kSubCat
Names: »tterm«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »tterm«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x001003, f01=0x0007e4, f02=0x0007ed, filename=»ttermc «, entry_tail=0-4-0-1-1980-06-19T15:13-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x002563, f01=0x0003fc, f02=0x000405, filename=»testtermd12 «, entry_tail=0-4-0-1-1978-10-26T16:07-disc-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x003143, f01=0x0003fc, f02=0x000405, filename=»testtdat «, entry_tail=0-4-0-1-1978-10-20T10:58-disc-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x00412b, f01=0x0003fc, f02=0x000405, filename=»ttestterm «, entry_tail=0-4-0-3-1978-10-20T16:12-disc-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x00782b, f01=0x0003fc, f02=0x000405, filename=»testtermd48 «, entry_tail=0-4-0-1-1978-10-20T14:34-disc-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x008cbb, f01=0x0003fc, f02=0x000405, filename=»testtermdat «, entry_tail=0-4-0-1-1978-10-20T13:15-disc-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x009b83, f01=0x0003fc, f02=0x000405, filename=»testtermd24 «, entry_tail=0-4-0-1-1978-10-20T13:59-disc-0x0-0x0-0x0-0x0}
0x0165…0180 5e 10 00 50 8e 81 53 8e 46 dc 10 05 2c 2f f1 53 8e 77 dc 10 09 2c 2f eb 53 8e 6d ┆^ P S F ,/ S w ,/ S m┆
0x0180…01a0 dc 10 0d 53 ce 40 52 2f fc 34 30 52 53 ce 32 51 ce 36 5d 2f e7 51 2f e7 a9 00 03 34 30 9c 2d 0f ┆ S @R/ 40RS 2Q 6Å/ Q/ 40 - ┆
0x01a0…01c0 f6 37 ce 28 5e 10 00 50 8e 53 53 8e 1e dc 10 05 2c 2f eb 53 8e 49 dc 10 09 53 ce 16 52 2f fc 34 ┆ 7 (^ P SS ,/ S I S R/ 4┆
0x01c0…01e0 31 3a 53 ce 0e 34 30 68 00 03 40 00 00 00 00 00 02 0c 43 05 01 3f d2 01 3d be 01 3d 86 01 36 24 ┆1:S 40h @ C ? = = 6$┆
0x01e0…0200 01 3c a0 01 35 9e 01 35 9d 01 3f be 01 3b 6c 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 ┆ < 5 5 ? ;l ┆
0x0200…0220 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 ┆ ┆
0x0220…0240 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 ┆ ┆
0x0240…0260 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 ┆ ┆
0x0260…0280 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 ┆ ┆
0x0280…02a0 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 ┆ ┆
0x02a0…02c0 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 cd 24 00 ┆ i takefpitem $ ┆
0x02c0…02e0 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 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 0x000007
0x0300…0600 Data for ttermc
0x0600…0900 Data for testtermd12
0x0900…0c00 (1,) Data for testtdat
0x0c00…1500 Data for ttestterm
0x1500…1800 Data for testtermd48
0x1800…1b00 Data for testtermdat
0x1b00…1e00 (3,) Data for testtermd24
0x1e00…1e20 3a 3d 20 74 61 62 6c 65 28 69 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆:= table(i) else ┆
0x1e20…1e40 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 28 31 29 3a 3d 20 69 61 72 72 2e ┆ begin name(1):= iarr.┆
0x1e40…1e60 72 61 66 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 28 32 29 3a 3d 20 69 61 72 72 ┆raf(1); name(2):= iarr┆
0x1e60…1e80 2e 72 61 66 28 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆.raf(2); end; end;┆
0x1e80…1ea0 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 2d 2c 66 6f 75 6e 64 20 74 68 65 6e 20 74 79 ┆ end; if -,found then ty┆
0x1ea0…1ec0 70 65 5f 65 72 72 6f 72 28 3c 3a 6e 6f 74 20 66 6f 75 6e 64 3a 20 3a 3e 2c 6e 61 6d 65 29 3b 0a ┆pe_error(<:not found: :>,name); ┆
0x1ec0…1ee0 20 20 65 6e 64 20 67 65 74 5f 64 65 73 63 72 5f 6f 72 5f 6e 61 6d 65 3b 0a 0c 20 20 0a 20 20 0a ┆ end get_descr_or_name; ┆
0x1ee0…1f00 20 20 70 72 6f 63 65 64 75 72 65 20 76 65 72 69 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6f 77 ┆ procedure veri; begin ow┆
0x1f00…1f20 6e 20 62 6f 6f 6c 65 61 6e 20 6d 61 73 6b 5f 73 65 74 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 ┆n boolean mask_set; integer ┆
0x1f20…1f40 66 69 72 73 74 2c 68 61 6c 66 77 6f 72 64 73 2c 69 2c 73 65 67 6d 65 6e 74 73 2c 77 6f 72 64 73 ┆first,halfwords,i,segments,words┆
0x1f40…1f60 2c 73 65 67 6d 2c 6d 61 73 6b 2c 61 64 64 72 2c 74 79 70 65 3b 0a 20 20 20 20 61 64 64 72 3a 3d ┆,segm,mask,addr,type; addr:=┆
0x1f60…1f80 20 30 3b 0a 20 20 20 20 6e 65 78 74 5f 70 61 72 61 6d 28 73 5f 6e 75 6d 62 65 72 29 3b 20 20 20 ┆ 0; next_param(s_number); ┆
0x1f80…1fa0 66 69 72 73 74 3a 3d 20 72 6f 75 6e 64 20 70 61 72 61 6d 28 31 29 3b 0a 20 20 20 20 68 61 6c 66 ┆first:= round param(1); half┆
0x1fa0…1fc0 77 6f 72 64 73 3a 3d 20 32 3b 0a 20 20 20 20 74 79 70 65 3a 3d 20 61 6e 79 74 68 69 6e 67 3b 0a ┆words:= 2; type:= anything; ┆
0x1fc0…1fe0 20 20 20 20 69 66 20 6e 65 78 74 5f 70 61 72 61 6d 28 74 79 70 65 29 20 74 68 65 6e 0a 20 20 20 ┆ if next_param(type) then ┆
0x1fe0…2000 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 74 79 70 65 20 3d 20 70 5f 6e 75 6d 62 65 72 0a ┆ begin if type = p_number ┆
0x2000…2020 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 68 61 6c 66 77 6f 72 64 73 3a 3d 20 72 6f 75 6e 64 20 ┆ then halfwords:= round ┆
0x2020…2040 70 61 72 61 6d 28 31 29 0a 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 70 61 72 61 6d 6e 6f 3a 3d ┆param(1) else paramno:=┆
0x2040…2060 20 70 61 72 61 6d 6e 6f 20 2d 20 31 3b 20 3c 2a 20 74 72 79 20 61 67 61 69 6e 20 2a 3e 0a 20 20 ┆ paramno - 1; <* try again *> ┆
0x2060…2080 20 20 65 6e 64 3b 0a 20 20 0a 20 20 20 20 77 68 69 6c 65 20 6e 65 78 74 5f 70 61 72 61 6d 28 73 ┆ end; while next_param(s┆
0x2080…20a0 5f 74 65 78 74 29 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 70 61 72 ┆_text) do begin if par┆
0x20a0…20c0 61 6d 28 31 29 20 3d 20 72 65 61 6c 3c 3a 66 6f 72 6d 61 3a 3e 20 61 64 64 20 31 31 36 20 74 68 ┆am(1) = real<:forma:> add 116 th┆
0x20c0…20e0 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 66 6f 72 6d 61 74 20 73 70 65 63 69 66 69 ┆en begin <* format specifi┆
0x20e0…2100 63 61 74 69 6f 6e 20 2a 3e 0a 20 20 20 20 20 20 20 20 6d 61 73 6b 3a 3d 20 30 3b 20 6d 61 73 6b ┆cation *> mask:= 0; mask┆
0x2100…2120 5f 73 65 74 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6e 65 78 74 5f ┆_set:= true; while next_┆
0x2120…2140 70 61 72 61 6d 28 70 5f 74 65 78 74 29 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆param(p_text) do begin ┆
0x2140…2160 20 20 20 20 20 20 20 20 20 63 61 73 65 20 66 6f 72 6d 61 74 20 6f 66 0a 20 20 20 20 20 20 20 20 ┆ case format of ┆
0x2160…2180 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 3a 3d 20 6d 61 73 6b 20 ┆ begin mask:= mask ┆
0x2180…21a0 61 64 64 20 69 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 3a 3d 20 6d 61 73 6b ┆add int; mask:= mask┆
0x21a0…21c0 20 61 64 64 20 6f 63 74 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 3a 3d 20 6d ┆ add octal; mask:= m┆
0x21c0…21e0 61 73 6b 20 61 64 64 20 68 61 6c 66 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 ┆ask add halfword; ma┆
0x21e0…2200 73 6b 3a 3d 20 6d 61 73 6b 20 61 64 64 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆sk:= mask add byte; ┆
0x2200…2220 6d 61 73 6b 3a 3d 20 6d 61 73 6b 20 61 64 64 20 62 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆mask:= mask add bit; ┆
0x2220…2240 20 6d 61 73 6b 3a 3d 20 6d 61 73 6b 20 61 64 64 20 74 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆ mask:= mask add text; ┆
0x2240…2260 20 20 20 6d 61 73 6b 3a 3d 20 61 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 5f ┆ mask:= all; type_┆
0x2260…2280 65 72 72 6f 72 28 3c 3a 69 6c 6c 65 67 61 6c 20 66 6f 72 6d 61 74 3a 3e 2c 64 75 6d 6d 79 29 3b ┆error(<:illegal format:>,dummy);┆
0x2280…22a0 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ end; end; ┆
0x22a0…22c0 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 70 61 72 61 6d ┆ end else if param┆
0x22c0…22e0 28 31 29 20 3d 20 72 65 61 6c 3c 3a 64 75 6d 70 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 ┆(1) = real<:dump:> then be┆
0x22e0…2300 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 64 75 6d 70 3b 0a 20 20 20 20 20 20 20 20 20 20 61 72 ┆gin dump; ar┆
0x2300…2320 65 61 28 31 29 3a 3d 20 70 61 72 61 6d 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 61 72 65 61 ┆ea(1):= param(1); area┆
0x2320…2340 28 32 29 3a 3d 20 70 61 72 61 6d 28 32 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆(2):= param(2); end ┆
0x2340…2360 65 6c 73 65 20 74 79 70 65 5f 65 72 72 6f 72 28 3c 3a 70 61 72 61 6d 65 74 65 72 20 65 72 72 6f ┆else type_error(<:parameter erro┆
0x2360…2380 72 3a 3e 2c 64 75 6d 6d 79 29 3b 0a 20 20 20 20 65 6e 64 20 77 68 69 6c 65 3b 0a 20 20 20 20 69 ┆r:>,dummy); end while; i┆
0x2380…23a0 66 20 2d 2c 6d 61 73 6b 5f 73 65 74 20 74 68 65 6e 20 6d 61 73 6b 3a 3d 20 61 6c 6c 3b 20 3c 2a ┆f -,mask_set then mask:= all; <*┆
0x23a0…23c0 20 64 65 66 61 75 6c 74 20 2a 3e 0a 20 20 20 20 20 20 0a 20 20 20 20 73 65 67 6d 65 6e 74 73 3a ┆ default *> segments:┆
0x23c0…23e0 3d 20 68 61 6c 66 77 6f 72 64 73 2f 2f 35 31 32 20 2b 20 31 3b 0a 20 20 20 20 69 3a 3d 20 31 3b ┆= halfwords//512 + 1; i:= 1;┆
0x23e0…2400 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 6e 6c 2c 31 2c 69 66 20 64 75 6d 70 5f 61 72 65 61 ┆ write(out,nl,1,if dump_area┆
0x2400…2420 (4,) 20 74 68 65 6e 20 73 74 72 69 6e 67 20 61 72 65 61 28 69 6e 63 72 65 61 73 65 28 69 29 29 0a 20 ┆ then string area(increase(i)) ┆
0x2420…2440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ e┆
0x2440…2460 6c 73 65 20 3c 3a 63 6f 72 65 3a 3e 20 2c 3c 3a 2e 3a 3e 2c 66 69 72 73 74 2c 6e 6c 2c 31 29 3b ┆lse <:core:> ,<:.:>,first,nl,1);┆
0x2460…2480 0a 20 20 20 20 66 6f 72 20 73 65 67 6d 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 73 ┆ for segm:= 1 step 1 until s┆
0x2480…24a0 65 67 6d 65 6e 74 73 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 6f 76 65 28 ┆egments do begin move(┆
0x24a0…24c0 66 69 72 73 74 2c 63 6f 6e 74 65 6e 74 73 29 3b 0a 20 20 20 20 20 20 77 6f 72 64 73 3a 3d 20 69 ┆first,contents); words:= i┆
0x24c0…24e0 66 20 68 61 6c 66 77 6f 72 64 73 20 3e 20 35 31 32 20 74 68 65 6e 20 32 35 36 20 65 6c 73 65 20 ┆f halfwords > 512 then 256 else ┆
0x24e0…2500 68 61 6c 66 77 6f 72 64 73 2f 2f 32 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 31 20 73 74 ┆halfwords//2; for i:= 1 st┆
0x2500…2520 65 70 20 31 20 75 6e 74 69 6c 20 77 6f 72 64 73 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ep 1 until words do begin ┆
0x2520…2540 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2b 3a 3e 2c 3c 3c 64 64 64 3e 2c 61 ┆ write(out,<:+:>,<<ddd>,a┆
0x2540…2560 64 64 72 2c 73 70 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 5f 66 6f 72 6d 61 74 74 ┆ddr,sp,2); write_formatt┆
0x2560…2580 65 64 28 63 6f 6e 74 65 6e 74 73 28 69 29 2c 6d 61 73 6b 29 3b 0a 20 20 20 20 20 20 20 20 6f 75 ┆ed(contents(i),mask); ou┆
0x2580…25a0 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 20 20 61 64 64 72 3a 3d 20 61 64 ┆tchar(out,10); addr:= ad┆
0x25a0…25c0 64 72 2b 32 3b 0a 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c ┆dr+2; setposition(out,0,┆
0x25c0…25e0 30 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 69 72 73 74 3a 3d 20 66 69 72 ┆0); end; first:= fir┆
0x25e0…2600 73 74 20 2b 20 35 31 32 3b 0a 20 20 20 20 20 20 68 61 6c 66 77 6f 72 64 73 3a 3d 20 68 61 6c 66 ┆st + 512; halfwords:= half┆
0x2600…2620 77 6f 72 64 73 20 2d 20 35 31 32 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 74 79 70 65 5f 74 ┆words - 512; end; type_t┆
0x2620…2640 65 78 74 28 3c 3a 3a 3e 29 3b 0a 20 20 0a 20 20 65 6e 64 20 76 65 72 69 3b 0a 0c 20 20 70 72 6f ┆ext(<::>); end veri; pro┆
0x2640…2660 63 65 64 75 72 65 20 63 68 65 63 6b 5f 70 72 6f 63 66 75 6e 63 28 6e 61 6d 65 29 3b 0a 20 20 61 ┆cedure check_procfunc(name); a┆
0x2660…2680 72 72 61 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 3b 0a 20 ┆rray name ; ┆
0x2680…26a0 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 6e 61 6d 65 28 31 29 20 3d 20 72 65 61 6c 3c 3a 70 72 ┆ begin if name(1) = real<:pr┆
0x26a0…26c0 6f 63 66 3a 3e 20 61 64 64 20 31 31 37 20 61 6e 64 0a 20 20 20 20 20 20 20 6e 61 6d 65 28 32 29 ┆ocf:> add 117 and name(2)┆
0x26c0…26e0 20 3d 20 72 65 61 6c 3c 3a 6e 63 3a 3e 0a 20 20 20 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆ = real<:nc:> then begin┆
0x26e0…2700 0a 20 20 20 20 20 20 6e 61 6d 65 28 31 29 3a 3d 20 6e 61 6d 65 28 31 29 20 73 68 69 66 74 20 28 ┆ name(1):= name(1) shift (┆
0x2700…2720 2d 32 34 29 3b 0a 20 20 20 20 20 20 6e 61 6d 65 28 32 29 3a 3d 20 72 65 61 6c 3c 3a 63 66 75 6e ┆-24); name(2):= real<:cfun┆
0x2720…2740 63 3a 3e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0c 20 20 70 72 6f 63 65 64 75 72 ┆c:>; end; end; procedur┆
0x2740…2760 65 20 74 79 70 65 5f 6e 61 6d 65 73 28 6d 61 73 6b 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 20 20 ┆e type_names(mask); integer ┆
0x2760…2780 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 20 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e ┆ mask ; begin in┆
0x2780…27a0 74 65 67 65 72 20 69 6e 74 65 72 6e 61 6c 73 2c 69 2c 6a 2c 6b 3b 0a 20 20 20 20 69 6e 74 65 67 ┆teger internals,i,j,k; integ┆
0x27a0…27c0 65 72 20 61 72 72 61 79 20 74 61 62 6c 65 2c 69 61 72 72 28 31 3a 32 35 36 29 3b 0a 20 20 20 20 ┆er array table,iarr(1:256); ┆
0x27c0…27e0 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 72 61 66 3b 0a 20 20 20 20 69 6e 74 65 67 65 ┆real array field raf; intege┆
0x27e0…2800 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 69 64 3b 0a 20 20 20 20 0a 20 20 20 20 72 61 66 3a 3d ┆r array field id; raf:=┆
0x2800…2820 20 36 3b 20 69 64 3a 3d 20 31 36 3b 0a 20 20 20 20 6d 6f 76 65 28 69 66 20 64 75 6d 70 5f 61 72 ┆ 6; id:= 16; move(if dump_ar┆
0x2820…2840 65 61 20 74 68 65 6e 20 31 32 30 36 20 65 6c 73 65 20 37 38 2c 69 61 72 72 29 3b 0a 20 20 20 20 ┆ea then 1206 else 78,iarr); ┆
0x2840…2860 69 6e 74 65 72 6e 61 6c 73 3a 3d 20 28 69 61 72 72 28 32 29 2d 69 61 72 72 28 31 29 29 2f 2f 32 ┆internals:= (iarr(2)-iarr(1))//2┆
0x2860…2880 3b 0a 20 20 20 20 6d 6f 76 65 28 69 61 72 72 28 31 29 2c 74 61 62 6c 65 29 3b 0a 20 20 20 20 66 ┆; move(iarr(1),table); f┆
0x2880…28a0 6f 72 20 69 3a 3d 20 31 2c 69 2b 31 20 77 68 69 6c 65 20 69 20 3c 3d 20 69 6e 74 65 72 6e 61 6c ┆or i:= 1,i+1 while i <= internal┆
0x28a0…28c0 73 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 6f 76 65 28 74 61 62 6c 65 28 ┆s do begin move(table(┆
0x28c0…28e0 69 29 2d 34 2c 69 61 72 72 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 6b 3a 3d 20 30 20 73 74 65 70 ┆i)-4,iarr); for k:= 0 step┆
0x28e0…2900 20 31 20 75 6e 74 69 6c 20 32 33 20 64 6f 0a 20 20 20 20 20 20 69 66 20 6d 61 73 6b 20 73 68 69 ┆ 1 until 23 do if mask shi┆
0x2900…2920 66 74 20 28 2d 6b 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 20 20 61 6e 64 0a 20 20 20 20 ┆ft (-k) extract 1 = 1 and ┆
0x2920…2940 20 20 20 20 20 69 61 72 72 2e 69 64 28 31 29 20 73 68 69 66 74 20 28 2d 6b 29 20 65 78 74 72 61 ┆ iarr.id(1) shift (-k) extra┆
0x2940…2960 63 74 20 31 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 ┆ct 1 = 1 then begin <* ┆
0x2960…2980 69 64 2d 6d 61 73 6b 20 6f 66 20 69 6e 74 65 72 6e 61 6c 20 69 73 20 63 6f 6e 74 61 69 6e 65 64 ┆id-mask of internal is contained┆
0x2980…29a0 20 69 6e 20 27 6d 61 73 6b 27 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 61 72 72 ┆ in 'mask' *> if iarr┆
0x29a0…29c0 2e 72 61 66 28 31 29 20 3d 20 72 65 61 6c 3c 3a 70 72 6f 3a 3e 20 73 68 69 66 74 20 28 2d 32 34 ┆.raf(1) = real<:pro:> shift (-24┆
0x29c0…29e0 29 20 3c 2a 20 69 2e 20 65 2e 20 70 72 6f 63 66 75 6e 63 20 2a 3e 20 74 68 65 6e 0a 20 20 20 20 ┆) <* i. e. procfunc *> then ┆
0x29e0…2a00 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 61 72 72 2e 72 ┆ begin iarr.r┆