|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: 5 A C D G H I L M N P Q R T
Length: 1301504 (0x13dc00)
Description: Bits:30009529 PolyPascal version 3.10 DANSK
Types: 5¼" Floppy Disk, CpmFSAuto, ImdContainer
Notes: CP/M-fs(1024_2048_0x0_64_*1+1_2:0_79:1)
Media: [0, 0, 1] … [79, 1, 26] {1024: 1232, 256: 156}
Signature: 1024_2048_0x0_64_*1+1_2:0_79:1
Confidence score: +55/-0
Sector size: 1024
Block size: 2048
Directory entries: 64
Block number size: 16
Extent-mask: 0x00
Sector-interleave: 1, 2, 3, 4, 5, 6, 7, 8
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (77, 0), (77, 1), (78, 0), (78, 1), (79, 0), (79, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 2688 | ADDKEY.PAS | ⟦bf1ec209a⟧ TextFile |
| 0 | 0 | 4224 | CALC.PAS | ⟦c188be238⟧ TextFile |
| 0 | 0 | 11008 | CROSSREF.PAS | ⟦ac5e62c0a⟧ TextFile |
| 0 | 0 | 17280 | DATABASE.PAS | ⟦92e34776f⟧ TextFile |
| 0 | 0 | 7680 | DATMAN.PAS | ⟦4e7f1027b⟧ TextFile |
| 0 | 0 | 3840 | DELKEY.PAS | ⟦79bf9a50c⟧ TextFile |
| 0 | 0 | 18304 | GSX.DOC | ⟦2761ee297⟧ TextFile |
| 0 | 0 | 8832 | GSX.PAS | ⟦40b96885a⟧ TextFile |
| 0 | 0 | 1920 | HEXDUMP.PAS | ⟦8ad71f264⟧ TextFile |
| 0 | 0 | 42880 | INSTALL.CMD | ⟦707ecf6bd⟧ |
| 0 | 0 | 44672 | INSTALL.DAT | ⟦fcad1b7e4⟧ |
| 0 | 0 | 21504 | INSTALL.DOC | ⟦1c6a8a3fb⟧ TextFile |
| 0 | 0 | 44032 | INSTALL.PAS | ⟦904939f7b⟧ TextFile |
| 0 | 0 | 1408 | INSTALL.TRM | ⟦322db86ee⟧ TextFile |
| 0 | 0 | 6528 | LIST.PAS | ⟦fbc111441⟧ TextFile |
| 0 | 0 | 7936 | MLLIST.PAS | ⟦b581e81a9⟧ TextFile |
| 0 | 0 | 3712 | NPFKEY.PAS | ⟦3ac99e3a7⟧ TextFile |
| 0 | 0 | 34432 | PP87.CMD | ⟦cb46f04dd⟧ |
| 0 | 0 | 35840 | PPAS.CMD | ⟦48d7b6408⟧ |
| 0 | 0 | 1920 | PPAS.ERM | ⟦562ac9c29⟧ |
| 0 | 0 | 14336 | PPAS.HLP | ⟦5d440f578⟧ TextFile |
| 0 | 0 | 35584 | PPBS.CMD | ⟦38cdb62ab⟧ |
| 0 | 0 | 1280 | PRIMES.PAS | ⟦b8998a5ae⟧ TextFile |
| 0 | 0 | 1664 | QSORT.PAS | ⟦dc53d1498⟧ TextFile |
| 0 | 0 | 12160 | README.DOC | ⟦4084dff03⟧ TextFile |
0x000000…000400 (0, 0, 1) 0xe5[0x400]
[…0x1f…]
0x008000…008020 (2, 0, 1) [0, 'README.DOC', 0, 95, 'xl=00', 'bc=00', 'xh=00', 'rc=5f', '0-0-0-0-0-0-0-0-0-0-0', [8, 0, 9, 0, 10, 0, 11, 0, 12, 0, 13, 0, 0, 0, 0, 0]]
0x008020…008040 [0, 'PPAS.CMD', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [14, 0, 15, 0, 16, 0, 17, 0, 18, 0, 19, 0, 20, 0, 21, 0]]
0x008040…008060 [0, 'PPAS.CMD', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [22, 0, 23, 0, 24, 0, 25, 0, 26, 0, 27, 0, 28, 0, 29, 0]]
0x008060…008080 [0, 'PPAS.CMD', 2, 24, 'xl=02', 'bc=00', 'xh=00', 'rc=18', '0-0-0-0-0-0-0-0-0-0-0', [30, 0, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008080…0080a0 [0, 'PPAS.HLP', 0, 112, 'xl=00', 'bc=00', 'xh=00', 'rc=70', '0-0-0-0-0-0-0-0-0-0-0', [32, 0, 33, 0, 34, 0, 35, 0, 36, 0, 37, 0, 38, 0, 0, 0]]
0x0080a0…0080c0 [0, 'PPAS.ERM', 0, 15, 'xl=00', 'bc=00', 'xh=00', 'rc=0f', '0-0-0-0-0-0-0-0-0-0-0', [39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0080c0…0080e0 [0, 'PPBS.CMD', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [40, 0, 41, 0, 42, 0, 43, 0, 44, 0, 45, 0, 46, 0, 47, 0]]
0x0080e0…008100 [0, 'PPBS.CMD', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [48, 0, 49, 0, 50, 0, 51, 0, 52, 0, 53, 0, 54, 0, 55, 0]]
0x008100…008120 [0, 'PPBS.CMD', 2, 22, 'xl=02', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [56, 0, 57, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008120…008140 [0, 'PP87.CMD', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [58, 0, 59, 0, 60, 0, 61, 0, 62, 0, 63, 0, 64, 0, 65, 0]]
0x008140…008160 [0, 'PP87.CMD', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [66, 0, 67, 0, 68, 0, 69, 0, 70, 0, 71, 0, 72, 0, 73, 0]]
0x008160…008180 [0, 'PP87.CMD', 2, 13, 'xl=02', 'bc=00', 'xh=00', 'rc=0d', '0-0-0-0-0-0-0-0-0-0-0', [74, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008180…0081a0 [0, 'INSTALL.CMD', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [75, 0, 76, 0, 77, 0, 78, 0, 79, 0, 80, 0, 81, 0, 82, 0]]
0x0081a0…0081c0 [0, 'INSTALL.CMD', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [83, 0, 84, 0, 85, 0, 86, 0, 87, 0, 88, 0, 89, 0, 90, 0]]
0x0081c0…0081e0 [0, 'INSTALL.CMD', 2, 79, 'xl=02', 'bc=00', 'xh=00', 'rc=4f', '0-0-0-0-0-0-0-0-0-0-0', [91, 0, 92, 0, 93, 0, 94, 0, 95, 0, 0, 0, 0, 0, 0, 0]]
0x0081e0…008200 [0, 'INSTALL.TRM', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008200…008220 [0, 'INSTALL.DAT', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [97, 0, 98, 0, 99, 0, 100, 0, 101, 0, 102, 0, 103, 0, 104, 0]]
0x008220…008240 [0, 'INSTALL.DAT', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [105, 0, 106, 0, 107, 0, 108, 0, 109, 0, 110, 0, 111, 0, 112, 0]]
0x008240…008260 [0, 'INSTALL.DAT', 2, 93, 'xl=02', 'bc=00', 'xh=00', 'rc=5d', '0-0-0-0-0-0-0-0-0-0-0', [113, 0, 114, 0, 115, 0, 116, 0, 117, 0, 118, 0, 0, 0, 0, 0]]
0x008260…008280 [0, 'INSTALL.DOC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [119, 0, 120, 0, 121, 0, 122, 0, 123, 0, 124, 0, 125, 0, 126, 0]]
0x008280…0082a0 [0, 'INSTALL.DOC', 1, 40, 'xl=01', 'bc=00', 'xh=00', 'rc=28', '0-0-0-0-0-0-0-0-0-0-0', [127, 0, 128, 0, 129, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0082a0…0082c0 [0, 'INSTALL.PAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [130, 0, 131, 0, 132, 0, 133, 0, 134, 0, 135, 0, 136, 0, 137, 0]]
0x0082c0…0082e0 [0, 'INSTALL.PAS', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [138, 0, 139, 0, 140, 0, 141, 0, 142, 0, 143, 0, 144, 0, 145, 0]]
0x0082e0…008300 [0, 'INSTALL.PAS', 2, 88, 'xl=02', 'bc=00', 'xh=00', 'rc=58', '0-0-0-0-0-0-0-0-0-0-0', [146, 0, 147, 0, 148, 0, 149, 0, 150, 0, 151, 0, 0, 0, 0, 0]]
0x008300…008320 [0, 'CALC.PAS', 0, 33, 'xl=00', 'bc=00', 'xh=00', 'rc=21', '0-0-0-0-0-0-0-0-0-0-0', [152, 0, 153, 0, 154, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008320…008340 [0, 'HEXDUMP.PAS', 0, 15, 'xl=00', 'bc=00', 'xh=00', 'rc=0f', '0-0-0-0-0-0-0-0-0-0-0', [155, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008340…008360 [0, 'PRIMES.PAS', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [156, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008360…008380 [0, 'QSORT.PAS', 0, 13, 'xl=00', 'bc=00', 'xh=00', 'rc=0d', '0-0-0-0-0-0-0-0-0-0-0', [157, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008380…0083a0 [0, 'LIST.PAS', 0, 51, 'xl=00', 'bc=00', 'xh=00', 'rc=33', '0-0-0-0-0-0-0-0-0-0-0', [158, 0, 159, 0, 160, 0, 161, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0083a0…0083c0 [0, 'CROSSREF.PAS', 0, 86, 'xl=00', 'bc=00', 'xh=00', 'rc=56', '0-0-0-0-0-0-0-0-0-0-0', [162, 0, 163, 0, 164, 0, 165, 0, 166, 0, 167, 0, 0, 0, 0, 0]]
0x0083c0…0083e0 [0, 'DATMAN.PAS', 0, 60, 'xl=00', 'bc=00', 'xh=00', 'rc=3c', '0-0-0-0-0-0-0-0-0-0-0', [168, 0, 169, 0, 170, 0, 171, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0083e0…008400 [0, 'NPFKEY.PAS', 0, 29, 'xl=00', 'bc=00', 'xh=00', 'rc=1d', '0-0-0-0-0-0-0-0-0-0-0', [172, 0, 173, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008400…008420 (2, 0, 2) [0, 'ADDKEY.PAS', 0, 21, 'xl=00', 'bc=00', 'xh=00', 'rc=15', '0-0-0-0-0-0-0-0-0-0-0', [174, 0, 175, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008420…008440 [0, 'DELKEY.PAS', 0, 30, 'xl=00', 'bc=00', 'xh=00', 'rc=1e', '0-0-0-0-0-0-0-0-0-0-0', [176, 0, 177, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008440…008460 [0, 'DATABASE.PAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [178, 0, 179, 0, 180, 0, 181, 0, 182, 0, 183, 0, 184, 0, 185, 0]]
0x008460…008480 [0, 'DATABASE.PAS', 1, 7, 'xl=01', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [186, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008480…0084a0 [0, 'GSX.PAS', 0, 69, 'xl=00', 'bc=00', 'xh=00', 'rc=45', '0-0-0-0-0-0-0-0-0-0-0', [187, 0, 188, 0, 189, 0, 190, 0, 191, 0, 0, 0, 0, 0, 0, 0]]
0x0084a0…0084c0 [0, 'GSX.DOC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [192, 0, 193, 0, 194, 0, 195, 0, 196, 0, 197, 0, 198, 0, 199, 0]]
0x0084c0…0084e0 [0, 'GSX.DOC', 1, 15, 'xl=01', 'bc=00', 'xh=00', 'rc=0f', '0-0-0-0-0-0-0-0-0-0-0', [200, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0084e0…008500 [0, 'MLLIST.PAS', 0, 62, 'xl=00', 'bc=00', 'xh=00', 'rc=3e', '0-0-0-0-0-0-0-0-0-0-0', [201, 0, 202, 0, 203, 0, 204, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x008500…008520 Dirent {Status=0xe5}
[…0x17…]
0x008800…008c00 (2, 0, 3) 0xe5[0x400]
[…0xd…]
0x00c000…00c400 (3, 0, 1) DataBlock {»README.DOC«}
[…0xb…]
0x00ef80…00efa0 61 74 20 75 64 73 6b 72 69 76 65 20 65 6e 20 62 6c 6f 6b 2e 0d 0a 0d 0a 49 20 50 6f 6c 79 50 61 ┆at udskrive en blok. I PolyPa┆
0x00efa0…00efc0 73 63 61 6c 2d 38 36 20 56 33 2e 31 30 20 66 69 6e 64 65 73 20 65 6e 20 73 74 61 6e 64 61 72 64 ┆scal-86 V3.10 findes en standard┆
0x00efc0…00efe0 20 68 65 6c 74 61 6c 73 76 61 72 69 61 62 65 6c 20 76 65 64 20 6e 61 76 6e 20 0d 0a 22 73 79 73 ┆ heltalsvariabel ved navn "sys┆
0x00efe0…00f000 72 65 73 22 2e 20 20 4e 7d 72 20 50 6f 6c 79 50 61 73 63 61 6c 20 75 64 66 7c 72 65 72 20 65 74 ┆res". Når PolyPascal udfører et┆
0x00f000…00f400 (3, 1, 5) DataBlock {»PPAS.CMD«}
[…0x22…]
0x017c00…018000 (5, 1, 8) 0xe5[0x400]
0x018000…018400 (6, 0, 1) DataBlock {»PPAS.HLP«}
[…0xd…]
0x01b800…01bc00 (6, 1, 7) DataBlock {»PPAS.ERM«}
[…0x1…]
0x01bf80…01bfa0 6e 20 73 0c 01 0d 31 17 02 0d 4f 70 65 72 61 6e 64 01 28 72 29 20 73 74 65 6d 6d 65 72 16 20 6f ┆n s 1 Operand (r) stemmer o┆
0x01bfa0…01bfc0 76 65 72 65 6e 73 20 6d 65 64 20 6f 70 65 72 61 74 6f 72 0d 53 74 72 75 6b 74 75 72 65 72 65 64 ┆verens med operator Strukturered┆
0x01bfc0…01bfe0 65 20 76 61 72 69 61 62 6c 65 12 0d 17 6d 7b 6e 67 64 65 0d 11 02 0d 4b 6f 6e 73 74 61 6e 74 65 ┆e variable mængde Konstante┆
0x01bfe0…01c000 72 12 0d 55 64 74 72 79 6b 73 01 20 65 72 20 66 6f 72 73 6b 65 6c 6c 69 67 20 66 72 61 20 69 6e ┆r Udtryks er forskellig fra in┆
0x01c000…01c400 (7, 0, 1) DataBlock {»PPBS.CMD«}
[…0x22…]
0x024b00…024b20 02 0d 0b c1 00 04 45 58 4f 52 03 35 33 c1 00 00 01 3d 00 74 02 3c 3e 08 75 02 3e 3d 10 7d 02 3c ┆ EXOR 53 = t <> u >= å <┆
0x024b20…024b40 3d 18 7e 01 3e 20 7f 01 3c 28 7c 02 49 4e ff 00 00 00 3d 3b c1 01 07 57 52 49 54 45 4c 4e e6 63 ┆= ü > <(ø IN =; WRITELN c┆
0x024b40…024b60 05 57 52 49 54 45 ea 63 06 52 45 41 44 4c 4e e6 62 04 52 45 41 44 ea 62 06 44 45 4c 45 54 45 6b ┆ WRITE c READLN b READ b DELETEk┆
0x024b60…024b80 65 06 49 4e 53 45 52 54 89 65 06 47 4f 54 4f 58 59 7a 66 06 41 53 53 49 47 4e df 61 05 52 45 53 ┆e INSERT e GOTOXYzf ASSIGN a RES┆
0x024b80…024ba0 45 54 56 62 07 52 45 57 52 49 54 45 5b 62 05 43 4c 4f 53 45 88 62 05 45 52 41 53 45 00 62 06 52 ┆ETVb REWRITEÆb CLOSE b ERASE b R┆
0x024ba0…024bc0 45 4e 41 4d 45 38 62 04 53 45 45 4b 08 62 03 4e 45 57 97 66 08 41 4c 4c 4f 43 41 54 45 b7 66 04 ┆ENAME8b SEEK b NEW f ALLOCATE f ┆
0x024bc0…024be0 4d 41 52 4b d3 66 07 52 45 4c 45 41 53 45 d8 66 03 53 54 52 be 65 03 56 41 4c 2b 66 09 42 4c 4f ┆MARK f RELEASE f STR e VAL+f BLO┆
0x024be0…024c00 43 4b 52 45 41 44 1c 65 0a 42 4c 4f 43 4b 57 52 49 54 45 21 65 07 4f 56 44 52 49 56 45 5f 65 09 ┆CKREAD e BLOCKWRITE!e OVDRIVE_e ┆
0x024c00…025000 (9, 0, 4) 0xe5[0x400]
0x025000…025400 (9, 0, 5) DataBlock {»PP87.CMD«}
[…0x21…]
0x02d680…02d6a0 ff 00 00 00 3d 3b c1 01 07 57 52 49 54 45 4c 4e 56 5f 05 57 52 49 54 45 5a 5f 06 52 45 41 44 4c ┆ =; WRITELNV_ WRITEZ_ READL┆
0x02d6a0…02d6c0 4e 56 5e 04 52 45 41 44 5a 5e 06 44 45 4c 45 54 45 db 60 06 49 4e 53 45 52 54 f9 60 06 47 4f 54 ┆NV^ READZ^ DELETE ` INSERT ` GOT┆
0x02d6c0…02d6e0 4f 58 59 ea 61 06 41 53 53 49 47 4e 4f 5d 05 52 45 53 45 54 c6 5d 07 52 45 57 52 49 54 45 cb 5d ┆OXY a ASSIGNOÅ RESET Å REWRITE Å┆
0x02d6e0…02d700 05 43 4c 4f 53 45 f8 5d 05 45 52 41 53 45 70 5d 06 52 45 4e 41 4d 45 a8 5d 04 53 45 45 4b 78 5d ┆ CLOSE Å ERASEpÅ RENAME Å SEEKxÅ┆
0x02d700…02d720 03 4e 45 57 07 62 08 41 4c 4c 4f 43 41 54 45 27 62 04 4d 41 52 4b 43 62 07 52 45 4c 45 41 53 45 ┆ NEW b ALLOCATE'b MARKCb RELEASE┆
0x02d720…02d740 48 62 03 53 54 52 2e 61 03 56 41 4c 9b 61 09 42 4c 4f 43 4b 52 45 41 44 8c 60 0a 42 4c 4f 43 4b ┆Hb STR.a VAL a BLOCKREAD ` BLOCK┆
0x02d740…02d760 57 52 49 54 45 91 60 07 4f 56 44 52 49 56 45 cf 60 09 52 41 4e 44 4f 4d 49 5a 45 01 62 04 4d 4f ┆WRITE ` OVDRIVE ` RANDOMIZE b MO┆
0x02d760…02d780 56 45 61 62 04 46 49 4c 4c 79 62 04 45 58 49 54 97 62 04 48 41 4c 54 9c 62 05 50 4f 52 54 57 c3 ┆VEab FILLyb EXIT b HALT b PORTW ┆
0x02d780…02d7a0 62 04 50 4f 52 54 c7 62 05 46 4c 55 53 48 99 5d 07 45 58 45 43 55 54 45 b3 5d 05 43 48 41 49 4e ┆b PORT b FLUSH Å EXECUTE Å CHAIN┆
0x02d7a0…02d7c0 c1 5d 05 53 57 49 4e 54 a2 62 00 03 43 48 52 7b 6a 03 4f 52 44 75 6a 04 43 4f 50 59 a0 6a 03 4c ┆ Å SWINT b CHRæj ORDuj COPY j L┆
0x02d7c0…02d7e0 45 4e 81 6a 03 50 4f 53 92 6a 06 43 4f 4e 43 41 54 c1 6a 04 53 55 43 43 32 6a 04 50 52 45 44 36 ┆EN j POS j CONCAT j SUCC2j PRED6┆
0x02d7e0…02d800 6a 05 54 52 55 4e 43 0f 6a 05 52 4f 55 4e 44 14 6a 03 4f 44 44 60 6a 03 41 42 53 c4 69 03 53 51 ┆j TRUNC j ROUND j ODD`j ABS i SQ┆
0x02d800…02dc00 (11, 0, 7) DataBlock {»INSTALL.CMD«}
[…0x29…]
0x037f80…037fa0 e8 18 65 e8 ae 66 3d 02 00 b8 01 00 74 01 48 50 a0 76 04 32 e4 3d 3a 00 b8 01 00 74 01 48 59 23 ┆ e f= t HP v 2 =: t HY#┆
0x037fa0…037fc0 c1 59 0b c1 0b c0 75 03 e9 1c 00 bf 74 04 1e 57 bf 74 04 1e e8 e4 64 e8 fa 64 04 50 50 41 53 e8 ┆ Y u t W t d d PPAS ┆
0x037fc0…037fe0 e4 65 b1 0e e8 03 65 b8 01 2e 50 bf 74 04 1e e8 c9 64 e8 6c 66 3d 00 00 74 03 e9 1c 00 bf 74 04 ┆ e e .P t d lf= t t ┆
0x037fe0…038000 1e 57 bf 74 04 1e e8 b2 64 e8 c8 64 04 2e 43 4d 44 e8 b2 65 b1 0e e8 d1 64 bf b4 02 1e 57 bf 74 ┆ W t d d .CMD e d W t┆
0x038000…038400 (14, 0, 1) DataBlock {»INSTALL.TRM«}
[…0x1…]
0x038580…0385a0 00 00 00 00 11 53 49 52 49 55 53 20 61 6e 64 20 56 49 43 54 4f 52 00 00 00 00 00 00 00 00 00 00 ┆ SIRIUS and VICTOR ┆
0x0385a0…0385c0 00 00 00 00 16 45 73 73 65 6c 74 65 20 43 4f 4d 50 49 53 2f 53 43 41 4e 44 49 53 00 00 00 00 00 ┆ Esselte COMPIS/SCANDIS ┆
0x0385c0…0385e0 00 00 00 00 13 4e 43 52 20 44 65 63 69 73 69 6f 6e 20 4d 61 74 65 20 56 00 00 00 00 00 00 00 00 ┆ NCR Decision Mate V ┆
0x0385e0…038600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x038620…038640 00 00 00 00 00 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 32 3a 20 43 41 53 ┆ END; 2: CAS┆
0x038640…038660 45 20 63 68 00 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 32 3a 20 43 41 53 ┆E ch END; 2: CAS┆
[…0xd…]
0x038800…038c00 (14, 0, 3) DataBlock {»INSTALL.DAT«}
[…0x2b…]
0x043680…0436a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xb…]
0x043800…043c00 (16, 1, 7) DataBlock {»INSTALL.DOC«}
[…0x14…]
0x048c00…049000 (18, 0, 4) 0xe5[0x400]
0x049000…049400 (18, 0, 5) DataBlock {»INSTALL.PAS«}
[…0x2a…]
0x053c00…054000 (20, 1, 8) 0xe5[0x400]
0x054000…054400 (21, 0, 1) DataBlock {»CALC.PAS«}
[…0x4…]
0x055080…0550a0 74 29 2a 73 69 67 6e 65 64 66 61 63 74 6f 72 29 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 20 20 74 65 72 ┆t)*signedfactor); END; ter┆
0x0550a0…0550c0 6d 3a 3d 74 3b 0d 0a 45 4e 44 20 7b 74 65 72 6d 7d 3b 0d 0a 0d 0a 42 45 47 49 4e 20 7b 73 69 6d ┆m:=t; END ætermå; BEGIN æsim┆
0x0550c0…0550e0 65 78 70 72 7d 0d 0a 20 20 73 3a 3d 74 65 72 6d 3b 0d 0a 20 20 57 48 49 4c 45 20 63 68 20 49 4e ┆exprå s:=term; WHILE ch IN┆
0x0550e0…055100 20 5b 27 2a 27 2c 27 2f 27 5d 20 44 4f 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 6f 70 72 3a ┆ Æ'*','/'Å DO BEGIN opr:┆
0x055100…055120 3d 63 68 3b 20 6e 65 78 74 63 68 61 72 3b 0d 0a 20 20 20 20 43 41 53 45 20 6f 70 72 20 4f 46 0d ┆=ch; nextchar; CASE opr OF ┆
0x055120…055140 0a 20 20 20 20 20 20 27 2a 27 3a 20 73 3a 3d 73 2a 74 65 72 6d 3b 0d 0a 20 20 20 20 20 20 27 2f ┆ '*': s:=s*term; '/┆
0x055140…055160 27 3a 20 73 3a 3d 73 2f 74 65 72 6d 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 45 4e 44 3b 0d ┆': s:=s/term; END; END; ┆
0x055160…055180 0a 20 20 73 69 6d 65 78 70 72 3a 3d 73 3b 0d 0a 45 4e 44 20 7b 73 69 6d 65 78 70 72 7d 3b 0d 0a ┆ simexpr:=s; END æsimexprå; ┆
0x055180…0551a0 0d 0a 42 45 47 49 4e 20 7b 65 78 70 72 65 73 73 69 6f 6e 7d 0d 0a 20 20 65 3a 3d 73 69 6d 65 78 ┆ BEGIN æexpressionå e:=simex┆
0x0551a0…0551c0 70 72 3b 0d 0a 20 20 57 48 49 4c 45 20 63 68 20 49 4e 20 5b 27 2b 27 2c 27 2d 27 5d 20 44 4f 0d ┆pr; WHILE ch IN Æ'+','-'Å DO ┆
0x0551c0…0551e0 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 6f 70 72 3a 3d 63 68 3b 20 6e 65 78 74 63 68 61 72 3b ┆ BEGIN opr:=ch; nextchar;┆
0x0551e0…055200 0d 0a 20 20 20 20 43 41 53 45 20 6f 70 72 20 4f 46 0d 0a 20 20 20 20 20 20 27 2b 27 3a 20 65 3a ┆ CASE opr OF '+': e:┆
0x055200…055220 3d 65 2b 73 69 6d 65 78 70 72 3b 0d 0a 20 20 20 20 20 20 27 2d 27 3a 20 65 3a 3d 65 2d 73 69 6d ┆=e+simexpr; '-': e:=e-sim┆
0x055220…055240 65 78 70 72 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 20 20 65 78 70 72 65 ┆expr; END; END; expre┆
0x055240…055260 73 73 69 6f 6e 3a 3d 65 3b 0d 0a 45 4e 44 20 7b 65 78 70 72 65 73 73 69 6f 6e 7d 3b 0d 0a 0d 0a ┆ssion:=e; END æexpressionå; ┆
0x055260…055280 42 45 47 49 4e 20 7b 65 76 61 6c 75 61 74 65 7d 0d 0a 20 20 70 6f 73 3a 3d 30 3b 20 6e 65 78 74 ┆BEGIN æevaluateå pos:=0; next┆
0x055280…0552a0 63 68 61 72 3b 0d 0a 20 20 76 61 6c 75 65 3a 3d 65 78 70 72 65 73 73 69 6f 6e 3b 0d 0a 20 20 49 ┆char; value:=expression; I┆
0x0552a0…0552c0 46 20 63 68 3d 65 6f 66 6c 69 6e 65 20 54 48 45 4e 20 65 72 72 70 6f 73 3a 3d 30 20 45 4c 53 45 ┆F ch=eofline THEN errpos:=0 ELSE┆
0x0552c0…0552e0 20 65 72 72 70 6f 73 3a 3d 70 6f 73 3b 0d 0a 45 4e 44 20 7b 65 76 61 6c 75 61 74 65 7d 3b 0d 0a ┆ errpos:=pos; END æevaluateå; ┆
0x0552e0…055300 0d 0a 42 45 47 49 4e 20 7b 63 61 6c 63 75 6c 61 74 6f 72 7d 0d 0a 20 20 52 45 50 45 41 54 0d 0a ┆ BEGIN æcalculatorå REPEAT ┆
0x055300…055320 20 20 20 20 77 72 69 74 65 28 27 2a 20 27 29 3b 20 62 75 66 6c 65 6e 3a 3d 73 74 72 6c 65 6e 3b ┆ write('* '); buflen:=strlen;┆
0x055320…055340 20 72 65 61 64 28 73 29 3b 20 75 70 63 61 73 65 28 73 29 3b 0d 0a 20 20 20 20 49 46 20 28 73 3c ┆ read(s); upcase(s); IF (s<┆
0x055340…055360 3e 27 27 29 20 41 4e 44 20 28 73 3c 3e 27 51 55 49 54 27 29 20 54 48 45 4e 0d 0a 20 20 20 20 42 ┆>'') AND (s<>'QUIT') THEN B┆
0x055360…055380 45 47 49 4e 0d 0a 20 20 20 20 20 20 65 76 61 6c 75 61 74 65 28 73 2c 72 2c 65 29 3b 0d 0a 20 20 ┆EGIN evaluate(s,r,e); ┆
0x055380…0553a0 20 20 20 20 49 46 20 65 3d 30 20 54 48 45 4e 20 77 72 69 74 65 28 27 20 3d 27 2c 72 29 20 45 4c ┆ IF e=0 THEN write(' =',r) EL┆
0x0553a0…0553c0 53 45 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e ┆SE BEGIN writeln┆
0x0553c0…0553e0 3b 0d 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 5e 20 45 52 52 4f 52 27 3a 65 2b 38 29 3b ┆; write('^ ERROR':e+8);┆
0x0553e0…055400 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 77 72 69 74 ┆ END; END; writ┆
0x055400…055800 (21, 0, 6) 0xe5[0x400]
0x055800…055c00 (21, 0, 7) DataBlock {»HEXDUMP.PAS«}
[…0x1…]
0x055f80…055fa0 20 68 65 78 3a 3d 68 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 49 46 20 28 61 ┆ hex:=h; END; BEGIN IF (a┆
0x055fa0…055fc0 72 67 63 6e 74 3c 31 29 20 4f 52 20 28 61 72 67 63 6e 74 3e 32 29 20 54 48 45 4e 0d 0a 20 20 42 ┆rgcnt<1) OR (argcnt>2) THEN B┆
0x055fc0…055fe0 45 47 49 4e 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 28 27 53 79 6e 74 61 78 3a 20 48 45 58 44 55 ┆EGIN writeln('Syntax: HEXDU┆
0x055fe0…056000 4d 50 20 3c 69 6e 66 69 6c 65 3e 20 5b 3c 6f 75 74 66 69 6c 65 3e 5d 27 29 3b 20 68 61 6c 74 3b ┆MP <infile> Æ<outfile>Å'); halt;┆
0x056000…056400 (21, 1, 1) DataBlock {»PRIMES.PAS«}
[…0x1…]
0x056500…056520 61 72 74 69 6e 67 20 66 72 6f 6d 20 33 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 75 70 77 61 72 64 ┆arting from 3 and working upward┆
0x056520…056540 73 20 7d 0d 0a 7b 20 65 61 63 68 20 6f 64 64 20 6e 75 6d 62 65 72 20 69 73 20 74 68 65 6e 20 74 ┆s å æ each odd number is then t┆
0x056540…056560 65 73 74 65 64 2e 20 49 66 20 61 20 6e 75 6d 62 65 72 20 69 73 20 73 74 69 6c 6c 20 61 20 6d 65 ┆ested. If a number is still a me┆
0x056560…056580 6d 62 65 72 20 7d 0d 0a 7b 20 6f 66 20 74 68 65 20 6c 69 73 74 20 77 68 65 6e 20 69 74 20 69 73 ┆mber å æ of the list when it is┆
0x056580…0565a0 20 74 65 73 74 65 64 2c 20 69 74 20 69 73 20 61 20 70 72 69 6d 65 20 6e 75 6d 62 65 72 2c 20 61 ┆ tested, it is a prime number, a┆
0x0565a0…0565c0 6e 64 20 74 68 75 73 20 7d 0d 0a 7b 20 69 74 20 69 73 20 70 72 69 6e 74 65 64 2c 20 61 6e 64 20 ┆nd thus å æ it is printed, and ┆
0x0565c0…0565e0 61 6c 6c 20 6f 64 64 20 6d 75 6c 74 69 70 6c 65 73 20 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 ┆all odd multiples of the number ┆
0x0565e0…056600 61 72 65 20 65 6c 69 6d 69 2d 20 7d 0d 0a 7b 20 6e 61 74 65 64 20 66 72 6f 6d 20 74 68 65 20 6c ┆are elimi- å æ nated from the l┆
0x056600…056620 69 73 74 2e 20 41 73 20 63 61 6e 20 62 65 20 65 78 70 65 63 74 65 64 2c 20 74 68 65 20 70 72 6f ┆ist. As can be expected, the pro┆
0x056620…056640 67 72 61 6d 20 69 73 20 71 75 69 74 65 20 7d 0d 0a 7b 20 73 6c 6f 77 20 6f 6e 20 63 61 6c 63 75 ┆gram is quite å æ slow on calcu┆
0x056640…056660 6c 61 74 69 6e 67 20 74 68 65 20 76 65 72 79 20 66 69 72 73 74 20 70 72 69 6d 65 73 2c 20 62 75 ┆lating the very first primes, bu┆
0x056660…056680 74 20 66 72 6f 6d 20 74 68 65 6e 20 6f 6e 20 20 20 7d 0d 0a 7b 20 69 74 20 67 65 74 73 20 66 61 ┆t from then on å æ it gets fa┆
0x056680…0566a0 73 74 65 72 20 61 6e 64 20 66 61 73 74 65 72 2e 20 4e 6f 74 65 20 74 68 61 74 20 31 20 61 6e 64 ┆ster and faster. Note that 1 and┆
0x0566a0…0566c0 20 32 20 61 72 65 20 61 73 73 75 6d 65 64 20 74 6f 20 20 20 7d 0d 0a 7b 20 62 65 20 70 72 69 6d ┆ 2 are assumed to å æ be prim┆
0x0566c0…0566e0 65 73 2c 20 61 6e 64 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 63 61 6c 63 75 6c 61 74 65 64 2e ┆es, and not actually calculated.┆
0x0566e0…056700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 43 4f 4e 53 ┆ å CONS┆
0x056700…056720 54 0d 0a 20 20 6d 61 78 32 20 3d 20 31 35 30 30 30 3b 20 20 20 7b 6d 61 78 70 72 69 6d 65 2f 32 ┆T max2 = 15000; æmaxprime/2┆
0x056720…056740 7d 0d 0a 20 20 6d 61 78 33 20 3d 20 31 30 30 30 30 3b 20 20 20 7b 6d 61 78 70 72 69 6d 65 2f 33 ┆å max3 = 10000; æmaxprime/3┆
0x056740…056760 7d 0d 0a 0d 0a 56 41 52 0d 0a 20 20 69 2c 6a 2c 6b 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 74 ┆å VAR i,j,k: integer; t┆
0x056760…056780 65 73 74 3a 20 41 52 52 41 59 5b 32 2e 2e 6d 61 78 32 5d 20 4f 46 20 62 6f 6f 6c 65 61 6e 3b 0d ┆est: ARRAYÆ2..max2Å OF boolean; ┆
0x056780…0567a0 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 77 72 69 74 65 28 31 3a 38 2c 32 3a 38 29 3b 0d 0a 20 20 46 ┆ BEGIN write(1:8,2:8); F┆
0x0567a0…0567c0 4f 52 20 69 3a 3d 32 20 54 4f 20 6d 61 78 32 20 44 4f 20 74 65 73 74 5b 69 5d 3a 3d 74 72 75 65 ┆OR i:=2 TO max2 DO testÆiÅ:=true┆
0x0567c0…0567e0 3b 0d 0a 20 20 46 4f 52 20 69 3a 3d 32 20 54 4f 20 6d 61 78 32 20 44 4f 0d 0a 20 20 49 46 20 74 ┆; FOR i:=2 TO max2 DO IF t┆
0x0567e0…056800 65 73 74 5b 69 5d 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 6a 3a 3d 69 2b 69 ┆estÆiÅ THEN BEGIN j:=i+i┆
0x056800…056c00 (21, 1, 3) DataBlock {»QSORT.PAS«}
[…0x1…]
0x056e80…056ea0 61 79 20 41 20 77 69 74 68 20 69 6e 64 69 63 65 73 20 62 65 74 77 65 65 6e 20 20 7d 0d 0a 7b 20 ┆ay A with indices between å æ ┆
0x056ea0…056ec0 4c 4f 20 61 6e 64 20 48 49 20 28 62 6f 74 68 20 69 6e 63 6c 75 73 69 76 65 29 2e 20 4e 6f 74 65 ┆LO and HI (both inclusive). Note┆
0x056ec0…056ee0 20 74 68 61 74 20 74 68 65 20 51 55 49 43 4b 53 4f 52 54 20 70 72 6f 63 65 2d 20 20 20 20 7d 0d ┆ that the QUICKSORT proce- å ┆
0x056ee0…056f00 0a 7b 20 64 75 72 65 20 70 72 6f 76 69 64 65 73 20 6f 6e 6c 79 20 61 6e 20 22 69 6e 74 65 72 66 ┆ æ dure provides only an "interf┆
0x056f00…056f20 61 63 65 22 20 74 6f 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 54 68 65 20 61 63 74 75 61 6c 20 ┆ace" to the program. The actual ┆
0x056f20…056f40 20 7d 0d 0a 7b 20 70 72 6f 63 65 73 73 69 6e 67 20 74 61 6b 65 73 20 70 6c 61 63 65 20 69 6e 20 ┆ å æ processing takes place in ┆
0x056f40…056f60 74 68 65 20 53 4f 52 54 20 70 72 6f 63 65 64 75 72 65 2c 20 77 68 69 63 68 20 65 78 65 63 75 74 ┆the SORT procedure, which execut┆
0x056f60…056f80 65 73 20 20 7d 0d 0a 7b 20 69 74 73 65 6c 66 20 72 65 63 75 72 73 69 76 65 6c 79 2e 20 20 20 20 ┆es å æ itself recursively. ┆
0x056f80…056fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x056fa0…056fc0 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 71 75 69 63 6b 73 6f 72 74 28 ┆ å PROCEDURE quicksort(┆
0x056fc0…056fe0 56 41 52 20 61 3a 20 6c 69 73 74 3b 20 6c 6f 2c 68 69 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 0d ┆VAR a: list; lo,hi: integer); ┆
0x056fe0…057000 0a 50 52 4f 43 45 44 55 52 45 20 73 6f 72 74 28 6c 2c 72 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a ┆ PROCEDURE sort(l,r: integer); ┆
0x057000…057400 (21, 1, 5) DataBlock {»LIST.PAS«}
[…0x6…]
0x058980…0589a0 69 6c 65 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ile) DO BEGIN ┆
0x0589a0…0589c0 20 20 72 65 61 64 28 69 6e 66 69 6c 65 2c 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 43 41 ┆ read(infile,ch); CA┆
0x0589c0…0589e0 53 45 20 63 68 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 40 33 32 2e 2e 40 31 32 36 3a ┆SE ch OF @32..@126:┆
0x0589e0…058a00 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x058a00…058a20 20 20 20 49 46 20 63 6f 6c 3c 77 69 64 74 68 20 54 48 45 4e 20 77 72 69 74 65 28 6c 73 74 2c 63 ┆ IF col<width THEN write(lst,c┆
0x058a20…058a40 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 3a 3d 73 75 63 63 28 63 6f 6c ┆h); col:=succ(col┆
0x058a40…058a60 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆); END; ┆
0x058a60…058a80 20 20 68 74 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 ┆ ht: REPEAT ┆
0x058a80…058aa0 20 20 20 20 20 20 20 20 20 49 46 20 63 6f 6c 3c 77 69 64 74 68 20 54 48 45 4e 20 77 72 69 74 65 ┆ IF col<width THEN write┆
0x058aa0…058ac0 28 6c 73 74 2c 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 3a 3d 73 ┆(lst,' '); col:=s┆
0x058ac0…058ae0 75 63 63 28 63 6f 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 63 6f 6c ┆ucc(col); UNTIL col┆
0x058ae0…058b00 20 4d 4f 44 20 38 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 66 3a 0d 0a 20 20 20 20 ┆ MOD 8=0; ff: ┆
0x058b00…058b20 20 20 20 20 20 20 20 20 49 46 20 6c 69 6e 3c 3e 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ IF lin<>0 THEN ┆
0x058b20…058b40 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 3a 3d ┆ BEGIN FOR i:=┆
0x058b40…058b60 6c 69 6e 20 54 4f 20 70 72 65 64 28 70 61 67 65 6c 65 6e 29 20 44 4f 20 77 72 69 74 65 28 6c 73 ┆lin TO pred(pagelen) DO write(ls┆
0x058b60…058b80 74 2c 6c 66 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 6e 6f 3a 3d 73 75 ┆t,lf); pageno:=su┆
0x058b80…058ba0 63 63 28 70 61 67 65 6e 6f 29 3b 20 6c 69 6e 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆cc(pageno); lin:=0; ┆
0x058ba0…058bc0 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 45 ┆ END; END; E┆
0x058bc0…058be0 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 72 65 61 64 6c 6e 28 69 6e 66 69 6c 65 29 3b 20 77 72 69 ┆ND; readln(infile); wri┆
0x058be0…058c00 74 65 6c 6e 28 6c 73 74 29 3b 0d 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 6e 6f 3a 3d 73 75 63 63 ┆teln(lst); lineno:=succ┆
0x058c00…059000 (22, 0, 4) 0xe5[0x400]
0x059000…059400 (22, 0, 5) DataBlock {»CROSSREF.PAS«}
[…0xa…]
0x05bb00…05bb20 45 44 55 52 45 20 70 72 69 6e 74 78 72 65 66 3b 0d 0a 56 41 52 0d 0a 20 20 6e 3a 20 69 6e 74 65 ┆EDURE printxref; VAR n: inte┆
0x05bb20…05bb40 67 65 72 3b 0d 0a 20 20 78 3a 20 6c 69 6e 65 72 65 63 70 74 72 3b 0d 0a 0d 0a 7b 20 54 52 41 56 ┆ger; x: linerecptr; æ TRAV┆
0x05bb40…05bb60 45 52 53 45 20 74 72 61 76 65 72 73 65 73 20 74 68 65 20 62 69 6e 61 72 79 20 74 72 65 65 20 66 ┆ERSE traverses the binary tree f┆
0x05bb60…05bb80 72 6f 6d 20 22 6c 65 66 74 22 20 74 6f 20 22 72 69 67 68 74 22 2c 20 20 20 20 7d 0d 0a 7b 20 70 ┆rom "left" to "right", å æ p┆
0x05bb80…05bba0 72 69 6e 74 69 6e 67 20 61 6c 6c 20 69 64 65 6e 74 69 66 69 65 72 73 20 61 6e 64 20 74 68 65 20 ┆rinting all identifiers and the ┆
0x05bba0…05bbc0 6e 75 6d 62 65 72 73 20 6f 66 20 74 68 65 20 6c 69 6e 65 73 20 77 69 74 68 69 6e 20 20 7d 0d 0a ┆numbers of the lines within å ┆
0x05bbc0…05bbe0 7b 20 77 68 69 63 68 20 74 68 65 79 20 61 72 65 20 72 65 66 65 72 65 6e 63 65 64 2e 20 20 20 20 ┆æ which they are referenced. ┆
0x05bbe0…05bc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05bc00…05c000 (22, 1, 8) 0xe5[0x400]
0x05c000…05c400 (23, 0, 1) DataBlock {»DATMAN.PAS«}
[…0x7…]
0x05de00…05de20 5f 6e 6d 61 70 5b 31 5d 3b 0d 0a 20 20 57 49 54 48 20 70 5f 6e 62 75 66 5b 69 5d 20 44 4f 0d 0a ┆_nmapÆ1Å; WITH p_nbufÆiÅ DO ┆
0x05de20…05de40 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 49 46 20 75 70 64 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 ┆ BEGIN IF upd THEN BE┆
0x05de40…05de60 47 49 4e 0d 0a 20 20 20 20 20 20 70 5f 70 61 63 6b 28 6e 2c 69 66 70 5e 2e 6b 6c 65 6e 29 3b 20 ┆GIN p_pack(n,ifp^.klen); ┆
0x05de60…05de80 70 75 74 72 65 63 28 69 66 70 5e 2e 64 2c 6e 72 2c 6e 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a ┆putrec(ifp^.d,nr,n); END; ┆
0x05de80…05dea0 20 20 20 20 61 64 64 72 65 63 28 69 64 78 66 2e 64 2c 72 2c 6e 29 3b 0d 0a 20 20 20 20 69 66 70 ┆ addrec(idxf.d,r,n); ifp┆
0x05dea0…05dec0 3a 3d 61 64 64 72 28 69 64 78 66 29 3b 20 6e 72 3a 3d 72 3b 20 75 70 64 3a 3d 66 61 6c 73 65 3b ┆:=addr(idxf); nr:=r; upd:=false;┆
0x05dec0…05dee0 0d 0a 20 20 45 4e 44 3b 0d 0a 20 20 70 5f 6c 61 73 74 28 69 29 3b 20 6e 70 3a 3d 61 64 64 72 28 ┆ END; p_last(i); np:=addr(┆
0x05dee0…05df00 70 5f 6e 62 75 66 5b 69 5d 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 70 ┆p_nbufÆiÅ); END; PROCEDURE p┆
0x05df00…05df20 5f 75 70 64 6e 28 6e 70 3a 20 70 5f 6e 6f 64 72 63 70 29 3b 0d 0a 56 41 52 0d 0a 20 20 70 3a 20 ┆_updn(np: p_nodrcp); VAR p: ┆
0x05df20…05df40 70 5f 6e 62 66 72 63 70 20 41 54 20 6e 70 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 70 5e 2e 75 70 64 ┆p_nbfrcp AT np; BEGIN p^.upd┆
0x05df40…05df60 3a 3d 74 72 75 65 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 70 5f 72 65 74 ┆:=true; END; PROCEDURE p_ret┆
0x05df60…05df80 6e 28 56 41 52 20 6e 70 3a 20 70 5f 6e 6f 64 72 63 70 29 3b 0d 0a 56 41 52 0d 0a 20 20 70 3a 20 ┆n(VAR np: p_nodrcp); VAR p: ┆
0x05df80…05dfa0 70 5f 6e 62 66 72 63 70 20 41 54 20 6e 70 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 57 49 54 48 20 70 ┆p_nbfrcp AT np; BEGIN WITH p┆
0x05dfa0…05dfc0 5e 20 44 4f 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 64 65 6c 65 74 65 72 65 63 28 69 66 70 ┆^ DO BEGIN deleterec(ifp┆
0x05dfc0…05dfe0 5e 2e 64 2c 6e 72 29 3b 20 69 66 70 3a 3d 4e 49 4c 3b 20 75 70 64 3a 3d 66 61 6c 73 65 3b 0d 0a ┆^.d,nr); ifp:=NIL; upd:=false; ┆
0x05dfe0…05e000 20 20 45 4e 44 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 70 5f 78 6b 65 79 ┆ END; END; PROCEDURE p_xkey┆
0x05e000…05e400 (23, 1, 1) DataBlock {»NPFKEY.PAS«}
[…0x3…]
0x05ee80…05eea0 70 5f 63 6b 65 79 28 70 6b 65 79 2c 65 5b 6b 5d 2e 6b 65 79 2c 30 2c 65 5b 6b 5d 2e 64 72 2c 64 ┆p_ckey(pkey,eÆkÅ.key,0,eÆkÅ.dr,d┆
0x05eea0…05eec0 75 70 6b 65 79 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 63 3c 3d 30 20 54 48 45 4e 20 ┆upkey); IF c<=0 THEN ┆
0x05eec0…05eee0 72 3a 3d 6b 2d 31 3b 20 49 46 20 63 3e 3d 30 20 54 48 45 4e 20 6c 3a 3d 6b 2b 31 3b 0d 0a 20 20 ┆r:=k-1; IF c>=0 THEN l:=k+1; ┆
0x05eee0…05ef00 20 20 20 20 20 20 55 4e 54 49 4c 20 72 3c 6c 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 6c 2d 72 ┆ UNTIL r<l; IF l-r┆
0x05ef00…05ef20 3e 31 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆>1 THEN BEGIN ┆
0x05ef20…05ef40 20 20 70 64 72 3a 3d 65 5b 6b 5d 2e 64 72 3b 20 72 3a 3d 6b 3b 20 6f 6b 3a 3d 74 72 75 65 3b 0d ┆ pdr:=eÆkÅ.dr; r:=k; ok:=true; ┆
0x05ef40…05ef60 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 72 3d 30 20 54 48 ┆ END; IF r=0 TH┆
0x05ef60…05ef80 45 4e 20 6e 70 72 3a 3d 6e 72 30 20 45 4c 53 45 20 6e 70 72 3a 3d 65 5b 72 5d 2e 6e 72 3b 0d 0a ┆EN npr:=nr0 ELSE npr:=eÆrÅ.nr; ┆
0x05ef80…05efa0 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 70 61 74 68 5b 70 70 5d 2e 65 70 3a 3d 72 ┆ END; pathÆppÅ.ep:=r┆
0x05efa0…05efc0 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 49 46 20 4e 4f 54 20 6f 6b 20 41 4e 44 20 28 ┆; END; IF NOT ok AND (┆
0x05efc0…05efe0 70 70 3e 30 29 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 57 48 49 ┆pp>0) THEN BEGIN WHI┆
0x05efe0…05f000 4c 45 20 28 70 70 3e 31 29 20 41 4e 44 20 28 70 61 74 68 5b 70 70 5d 2e 65 70 3d 30 29 20 44 4f ┆LE (pp>1) AND (pathÆppÅ.ep=0) DO┆
0x05f000…05f400 (23, 1, 5) DataBlock {»ADDKEY.PAS«}
[…0x2…]
0x05fa80…05faa0 20 20 20 70 65 3a 3d 74 65 3b 20 70 5f 75 70 64 6e 28 6d 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d ┆ pe:=te; p_updn(m); END; ┆
0x05faa0…05fac0 0a 20 20 45 4e 44 3b 0d 0a 20 20 70 5f 75 70 64 6e 28 6e 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 ┆ END; p_updn(n); END; B┆
0x05fac0…05fae0 45 47 49 4e 0d 0a 20 20 49 46 20 6e 70 72 3d 30 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 0d 0a ┆EGIN IF npr=0 THEN BEGIN ┆
0x05fae0…05fb00 20 20 20 20 70 61 73 73 75 70 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 57 49 54 48 20 70 65 20 44 ┆ passup:=true; WITH pe D┆
0x05fb00…05fb20 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 6b 65 79 3a 3d 70 6b 65 79 3b 20 64 ┆O BEGIN key:=pkey; d┆
0x05fb20…05fb40 72 3a 3d 70 64 72 3b 20 6e 72 3a 3d 30 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 45 4e 44 20 ┆r:=pdr; nr:=0; END; END ┆
0x05fb40…05fb60 45 4c 53 45 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 70 5f 67 65 74 6e 28 69 64 78 66 2c 6e ┆ELSE BEGIN p_getn(idxf,n┆
0x05fb60…05fb80 70 72 2c 6e 29 3b 0d 0a 20 20 20 20 57 49 54 48 20 6e 5e 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 ┆pr,n); WITH n^ DO BEGI┆
0x05fb80…05fba0 4e 0d 0a 20 20 20 20 20 20 6c 3a 3d 31 3b 20 72 3a 3d 6e 65 3b 0d 0a 20 20 20 20 20 20 52 45 50 ┆N l:=1; r:=ne; REP┆
0x05fba0…05fbc0 45 41 54 0d 0a 20 20 20 20 20 20 20 20 6b 3a 3d 28 6c 2b 72 29 20 44 49 56 20 32 3b 0d 0a 20 20 ┆EAT k:=(l+r) DIV 2; ┆
0x05fbc0…05fbe0 20 20 20 20 20 20 63 3a 3d 70 5f 63 6b 65 79 28 70 6b 65 79 2c 65 5b 6b 5d 2e 6b 65 79 2c 70 64 ┆ c:=p_ckey(pkey,eÆkÅ.key,pd┆
0x05fbe0…05fc00 72 2c 65 5b 6b 5d 2e 64 72 2c 69 64 78 66 2e 64 75 70 6b 65 79 29 3b 0d 0a 20 20 20 20 20 20 20 ┆r,eÆkÅ.dr,idxf.dupkey); ┆
0x05fc00…060000 (23, 1, 8) 0xe5[0x400]
0x060000…060400 (24, 0, 1) DataBlock {»DELKEY.PAS«}
[…0x3…]
0x060f00…060f20 20 6f 6b 3a 3d 66 61 6c 73 65 3b 20 75 73 69 7a 65 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 45 4e 44 ┆ ok:=false; usize:=false; END┆
0x060f20…060f40 20 45 4c 53 45 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 70 5f 67 65 74 6e 28 69 64 78 66 2c ┆ ELSE BEGIN p_getn(idxf,┆
0x060f40…060f60 6e 70 72 2c 6e 29 3b 0d 0a 20 20 20 20 57 49 54 48 20 6e 5e 20 44 4f 0d 0a 20 20 20 20 42 45 47 ┆npr,n); WITH n^ DO BEG┆
0x060f60…060f80 49 4e 0d 0a 20 20 20 20 20 20 6c 3a 3d 31 3b 20 72 3a 3d 6e 65 3b 0d 0a 20 20 20 20 20 20 52 45 ┆IN l:=1; r:=ne; RE┆
0x060f80…060fa0 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 6b 3a 3d 28 6c 2b 72 29 20 44 49 56 20 32 3b 0d 0a 20 ┆PEAT k:=(l+r) DIV 2; ┆
0x060fa0…060fc0 20 20 20 20 20 20 20 63 3a 3d 70 5f 63 6b 65 79 28 70 6b 65 79 2c 65 5b 6b 5d 2e 6b 65 79 2c 70 ┆ c:=p_ckey(pkey,eÆkÅ.key,p┆
0x060fc0…060fe0 64 72 2c 65 5b 6b 5d 2e 64 72 2c 69 64 78 66 2e 64 75 70 6b 65 79 29 3b 0d 0a 20 20 20 20 20 20 ┆dr,eÆkÅ.dr,idxf.dupkey); ┆
0x060fe0…061000 20 20 49 46 20 63 3c 3d 30 20 54 48 45 4e 20 72 3a 3d 6b 2d 31 3b 20 49 46 20 63 3e 3d 30 20 54 ┆ IF c<=0 THEN r:=k-1; IF c>=0 T┆
0x061000…061400 (24, 0, 5) DataBlock {»DATABASE.PAS«}
[…0x10…]
0x065380…0653a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x065400…065800 (25, 0, 6) 0xe5[0x400]
0x065800…065c00 (25, 0, 7) DataBlock {»GSX.PAS«}
[…0x8…]
0x067a80…067aa0 43 45 44 55 52 45 20 63 75 72 73 6f 72 75 70 3b 0d 0a 42 45 47 49 4e 20 65 73 63 6e 28 34 29 3b ┆CEDURE cursorup; BEGIN escn(4);┆
0x067aa0…067ac0 20 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 63 75 72 73 6f 72 64 6f 77 6e 3b 0d 0a ┆ END; PROCEDURE cursordown; ┆
0x067ac0…067ae0 42 45 47 49 4e 20 65 73 63 6e 28 35 29 3b 20 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 ┆BEGIN escn(5); END; PROCEDURE┆
0x067ae0…067b00 20 63 75 72 73 6f 72 72 69 67 68 74 3b 0d 0a 42 45 47 49 4e 20 65 73 63 6e 28 36 29 3b 20 45 4e ┆ cursorright; BEGIN escn(6); EN┆
0x067b00…067b20 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 63 75 72 73 6f 72 6c 65 66 74 3b 0d 0a 42 45 47 ┆D; PROCEDURE cursorleft; BEG┆
0x067b20…067b40 49 4e 20 65 73 63 6e 28 37 29 3b 20 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 63 75 ┆IN escn(7); END; PROCEDURE cu┆
0x067b40…067b60 72 73 6f 72 68 6f 6d 65 3b 0d 0a 42 45 47 49 4e 20 65 73 63 6e 28 38 29 3b 20 45 4e 44 3b 0d 0a ┆rsorhome; BEGIN escn(8); END; ┆
0x067b60…067b80 0d 0a 50 52 4f 43 45 44 55 52 45 20 65 72 61 65 6f 73 3b 0d 0a 42 45 47 49 4e 20 65 73 63 6e 28 ┆ PROCEDURE eraeos; BEGIN escn(┆
0x067b80…067ba0 39 29 3b 20 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 65 72 61 65 6f 6c 3b 0d 0a 42 ┆9); END; PROCEDURE eraeol; B┆
0x067ba0…067bc0 45 47 49 4e 20 65 73 63 6e 28 31 30 29 3b 20 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 ┆EGIN escn(10); END; PROCEDURE┆
0x067bc0…067be0 20 63 75 72 73 6f 72 28 72 6f 77 2c 63 6f 6c 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 42 45 47 49 ┆ cursor(row,col: integer); BEGI┆
0x067be0…067c00 4e 0d 0a 20 20 69 6e 74 69 6e 5b 31 5d 3a 3d 72 6f 77 3b 20 69 6e 74 69 6e 5b 32 5d 3a 3d 63 6f ┆N intinÆ1Å:=row; intinÆ2Å:=co┆
0x067c00…068000 (25, 1, 8) 0xe5[0x400]
0x068000…068400 (26, 0, 1) DataBlock {»GSX.DOC«}
[…0x11…]
0x06c780…06c7a0 62 65 66 6f 72 65 20 20 74 68 65 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 2e 20 ┆before the call. ┆
0x06c7a0…06c7c0 20 54 68 65 20 20 6d 61 78 69 6d 75 6d 20 6c 65 6e 67 74 68 20 74 68 65 72 65 66 6f 72 65 20 64 ┆ The maximum length therefore d┆
0x06c7c0…06c7e0 65 70 65 6e 64 73 20 20 6f 6e 20 20 74 68 65 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 4d 41 ┆epends on the MA┆
0x06c7e0…06c800 58 49 4e 54 49 4e 20 63 6f 6e 73 74 61 6e 74 2e 0d 0a 0d 0a 0d 0a 46 75 6e 63 74 69 6f 6e 3a 20 ┆XINTIN constant. Function: ┆
0x06c800…06cc00 (27, 0, 3) DataBlock {»MLLIST.PAS«}
[…0x7…]
0x06e700…06e720 20 77 72 69 74 65 28 6c 73 74 2c 63 6f 70 79 28 27 30 30 30 27 2c 31 2c 34 2d 6c 65 6e 28 6e 73 ┆ write(lst,copy('000',1,4-len(ns┆
0x06e720…06e740 29 29 2c 6e 73 2c 27 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 ┆)),ns,' '); END; ┆
0x06e740…06e760 20 20 20 20 63 6f 6c 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 63 68 3a 3d 27 20 27 3b 20 20 20 ┆ col:=0; ch:=' '; ┆
0x06e760…06e780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06e780…06e7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 4d 4c 20 7d 0d 0a 20 20 20 20 20 20 ┆ æ ML å ┆
0x06e7a0…06e7c0 20 20 57 48 49 4c 45 20 28 28 4e 4f 54 20 65 6f 6c 6e 28 69 6e 66 69 6c 65 29 29 20 41 4e 44 20 ┆ WHILE ((NOT eoln(infile)) AND ┆
0x06e7c0…06e7e0 28 63 68 20 3c 3e 20 66 66 29 29 20 44 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b ┆(ch <> ff)) DO æ┆
0x06e7e0…06e800 20 4d 4c 20 7d 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ ML å BEGIN ┆
0x06e800…06ec00 (27, 1, 3) 0xe5[0x400]
[…0x2…]
0x06f400…06f420 (27, 1, 6) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x17…]
0x06f700…13cc00 […elided…]
0x13cc00…13cd00 (79, 1, 11) 0xf6[0x100]
[…0xf…]