|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: 8 C H I P T
Length: 1177344 (0x11f700)
Description: Bits:30005754 SW1329/D8 COMPAS Pascal v2.20 (RC703)
Types: 8" Floppy Disk, CpmFSAuto, ImdContainer
Notes: CpmFSAuto,512,2048,32,0x0,1<2<3<4,2:0-76:1
Media: [0, 0, 1] … [76, 1, 15] {128: 26, 256: 26, 512: 2280}
Signature: CpmFSAuto,512,2048,32,0x0,1<2<3<4,2:0-76:1
Confidence score: +24/-0
Sector size: 512
Block size: 2048
Directory entries: 32
Block number size: 16
Extent-mask: 0x00
Sector-interleave: 1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (74, 0), (74, 1), (75, 0), (75, 1), (76, 0), (76, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 4352 | CALC.PAS | ⟦ba24d0bf7⟧ TextFile |
| 0 | 0 | 23680 | CFIGIF.PAS | ⟦7cbbfcbbe⟧ TextFile |
| 0 | 0 | 25088 | COMPAS.COM | ⟦22dcdc508⟧ |
| 0 | 0 | 2304 | COMPAS.ERM | ⟦6485a8864⟧ TextFile |
| 0 | 0 | 11776 | COMPAS.HLP | ⟦eaa9ef811⟧ TextFile |
| 0 | 0 | 36864 | CONFIG.COM | ⟦b7bb6f157⟧ |
| 0 | 0 | 34176 | CONFIG.DAT | ⟦c38f19345⟧ |
| 0 | 0 | 12416 | CONFIG.PAS | ⟦0377eaee4⟧ TextFile |
| 0 | 0 | 11776 | CROSSREF.PAS | ⟦8f8169cff⟧ TextFile |
| 0 | 0 | 2176 | HEXDUMP.PAS | ⟦70d9ae374⟧ TextFile |
| 0 | 0 | 1280 | PRIMES.PAS | ⟦46c61d998⟧ TextFile |
0x000000…000020 (0, 0, 1) 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 ┆ ┆
[…0x317…]
0x006300…006320 (2, 0, 1) [0, 'COMPAS.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0]]
0x006320…006340 [0, 'COMPAS.COM', 1, 68, 'xl=01', 'bc=00', 'xh=00', 'rc=44', '0-0-0-0-0-0-0-0-0-0-0', [10, 0, 11, 0, 12, 0, 13, 0, 14, 0, 0, 0, 0, 0, 0, 0]]
0x006340…006360 [0, 'COMPAS.HLP', 0, 92, 'xl=00', 'bc=00', 'xh=00', 'rc=5c', '0-0-0-0-0-0-0-0-0-0-0', [15, 0, 16, 0, 17, 0, 18, 0, 19, 0, 20, 0, 0, 0, 0, 0]]
0x006360…006380 [0, 'COMPAS.ERM', 0, 18, 'xl=00', 'bc=00', 'xh=00', 'rc=12', '0-0-0-0-0-0-0-0-0-0-0', [21, 0, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006380…0063a0 [0, 'CONFIG.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [23, 0, 24, 0, 25, 0, 26, 0, 27, 0, 28, 0, 29, 0, 30, 0]]
0x0063a0…0063c0 [0, 'CONFIG.COM', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [31, 0, 32, 0, 33, 0, 34, 0, 35, 0, 36, 0, 37, 0, 38, 0]]
0x0063c0…0063e0 [0, 'CONFIG.COM', 2, 32, 'xl=02', 'bc=00', 'xh=00', 'rc=20', '0-0-0-0-0-0-0-0-0-0-0', [39, 0, 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0063e0…006400 [0, 'CONFIG.DAT', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [41, 0, 42, 0, 43, 0, 44, 0, 45, 0, 46, 0, 47, 0, 48, 0]]
0x006400…006420 [0, 'CONFIG.DAT', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [49, 0, 50, 0, 51, 0, 52, 0, 53, 0, 54, 0, 55, 0, 56, 0]]
0x006420…006440 [0, 'CONFIG.DAT', 2, 11, 'xl=02', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [57, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006440…006460 [0, 'CONFIG.PAS', 0, 97, 'xl=00', 'bc=00', 'xh=00', 'rc=61', '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, 0, 0]]
0x006460…006480 [0, 'CFIGIF.PAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [65, 0, 66, 0, 67, 0, 68, 0, 69, 0, 70, 0, 71, 0, 72, 0]]
0x006480…0064a0 [0, 'CFIGIF.PAS', 1, 57, 'xl=01', 'bc=00', 'xh=00', 'rc=39', '0-0-0-0-0-0-0-0-0-0-0', [73, 0, 74, 0, 75, 0, 76, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0064a0…0064c0 [0, 'CALC.PAS', 0, 34, 'xl=00', 'bc=00', 'xh=00', 'rc=22', '0-0-0-0-0-0-0-0-0-0-0', [77, 0, 78, 0, 79, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0064c0…0064e0 [0, 'HEXDUMP.PAS', 0, 17, 'xl=00', 'bc=00', 'xh=00', 'rc=11', '0-0-0-0-0-0-0-0-0-0-0', [80, 0, 81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0064e0…006500 [0, 'PRIMES.PAS', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006500…006520 (2, 0, 2) 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 ┆ ┆
[…0xf…]
0x006700…006900 (2, 0, 3) DataBlock {»COMPAS.COM«}
[…0x1…]
0x006b00…006b20 (2, 0, 5) [0, 'CROSSREF.PAS', 0, 92, 'xl=00', 'bc=00', 'xh=00', 'rc=5c', '0-0-0-0-0-0-0-0-0-0-0', [83, 0, 84, 0, 85, 0, 86, 0, 87, 0, 88, 0, 0, 0, 0, 0]]
0x006b20…006b40 Dirent {Status=0xe5}
[…0xe…]
0x006d00…006d20 (2, 0, 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 ┆ ┆
[…0xf…]
0x006f00…007100 (2, 0, 7) DataBlock {»COMPAS.COM«}
[…0x1…]
0x007300…007320 (2, 0, 9) 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 ┆ ┆
[…0x1f…]
0x007700…007900 (2, 0, 11) DataBlock {»COMPAS.COM«}
[…0x1…]
0x007b00…007b20 (2, 0, 13) 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 ┆ ┆
[…0x1f…]
0x007f00…008100 (2, 0, 15) DataBlock {»COMPAS.COM«}
[…0x21…]
0x00c300…00c320 (3, 1, 4) 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 ┆ ┆
[…0xf…]
0x00c500…00c700 (3, 1, 5) DataBlock {»COMPAS.COM«}
[…0x2…]
0x00cb00…00cb20 (3, 1, 8) 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 ┆ ┆
[…0xf…]
0x00cd00…00cf00 (3, 1, 9) DataBlock {»COMPAS.COM«}
[…0x2…]
0x00d300…00d320 (3, 1, 12) 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 ┆ ┆
[…0xf…]
0x00d500…00d700 (3, 1, 13) DataBlock {»COMPAS.COM«}
[…0x2…]
0x00db00…00dd00 (4, 0, 1) DataBlock {»COMPAS.HLP«}
[…0x10…]
0x00fd00…00fd20 (4, 1, 3) 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 ┆ ┆
[…0xf…]
0x00ff00…010100 (4, 1, 4) DataBlock {»COMPAS.ERM«}
0x010100…010300 (4, 1, 5) DataBlock {»COMPAS.HLP«}
[…0x1…]
0x010500…010700 (4, 1, 7) DataBlock {»COMPAS.ERM«}
[…0x1…]
0x010800…010820 0d 0a 38 30 26 59 73 74 72 75 6b 74 75 72 65 72 65 74 20 26 43 0d 0a 38 31 4b 6f 6e 73 74 61 6e ┆ 80&Ystruktureret &C 81Konstan┆
0x010820…010840 74 20 75 64 65 6e 66 6f 72 20 74 69 6c 6c 61 64 74 65 20 67 72 7b 6e 73 65 72 0d 0a 38 32 46 69 ┆t udenfor tilladte grænser 82Fi┆
0x010840…010860 6c 65 72 20 6f 67 20 70 6f 69 6e 74 65 72 65 26 54 0d 0a 38 33 46 65 6a 6c 61 67 74 69 67 20 62 ┆ler og pointere&T 83Fejlagtig b┆
0x010860…010880 72 75 67 20 61 66 20 72 65 26 41 2d 66 61 63 69 6c 69 74 65 74 0d 0a 38 34 26 57 26 42 26 46 0d ┆rug af re&A-facilitet 84&W&B&F ┆
0x010880…0108a0 0a 38 35 53 26 4a 26 56 26 46 0d 0a 38 36 54 65 6b 73 74 26 47 20 6f 67 20 26 41 6c 7c 73 65 20 ┆ 85S&J&V&F 86Tekst&G og &Aløse ┆
0x0108a0…0108c0 26 47 26 54 0d 0a 38 37 54 79 70 65 6c 7c 73 20 66 69 6c 26 46 0d 0a 38 38 50 6f 69 6e 74 65 72 ┆&G&T 87Typeløs fil&F 88Pointer┆
0x0108c0…0108e0 26 56 26 46 0d 0a 38 39 26 57 26 56 26 46 0d 0a 39 30 49 26 48 20 26 56 26 46 0d 0a 39 31 52 65 ┆&V&F 89&W&V&F 90I&H &V&F 91Re┆
0x0108e0…010900 73 65 72 76 65 72 65 74 20 6f 72 64 0d 0a 39 32 4c 61 62 65 6c 20 65 72 26 58 20 69 6e 64 65 6e ┆serveret ord 92Label er&X inden┆
0x010900…010b00 (4, 1, 9) DataBlock {»COMPAS.HLP«}
[…0x1…]
0x010d00…010f00 (4, 1, 11) DataBlock {»COMPAS.ERM«}
0x010f00…010f20 (4, 1, 12) 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 ┆ ┆
[…0xf…]
0x011100…011300 (4, 1, 13) DataBlock {»COMPAS.HLP«}
[…0x1…]
0x011500…011700 (4, 1, 15) DataBlock {»COMPAS.ERM«}
0x011700…011720 (5, 0, 1) 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 ┆ ┆
[…0xf…]
0x011900…011b00 (5, 0, 2) DataBlock {»CONFIG.COM«}
[…0x2…]
0x011f00…011f20 (5, 0, 5) 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 ┆ ┆
[…0xf…]
0x012100…012300 (5, 0, 6) DataBlock {»CONFIG.COM«}
[…0x41…]
0x01a500…01a700 (7, 0, 12) DataBlock {»CONFIG.DAT«}
0x01a700…01a900 (7, 0, 13) DataBlock {»CONFIG.COM«}
[…0x2…]
0x01ad00…01af00 (7, 1, 1) DataBlock {»CONFIG.DAT«}
[…0x3d…]
0x022900…022b00 (9, 1, 3) DataBlock {»CONFIG.PAS«}
[…0x1…]
0x022d00…022f00 (9, 1, 5) DataBlock {»CONFIG.DAT«}
[…0x1…]
0x023080…0230a0 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 01 19 00 02 0d 00 ┆ ┆
0x0230a0…0230c0 30 5f ca 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 ┆0_ ┆
0x0230c0…0230e0 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…]
0x023100…023300 (9, 1, 7) DataBlock {»CONFIG.PAS«}
[…0x1…]
0x023500…023700 (9, 1, 9) DataBlock {»CONFIG.DAT«}
0x023700…023720 (9, 1, 10) 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 ┆ ┆
[…0xf…]
0x023900…023b00 (9, 1, 11) DataBlock {»CONFIG.PAS«}
[…0x1…]
0x023d00…023f00 (9, 1, 13) DataBlock {»CONFIG.DAT«}
0x023f00…024100 (9, 1, 14) DataBlock {»CONFIG.PAS«}
[…0x11…]
0x026300…026320 (10, 1, 2) 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 ┆ ┆
[…0xf…]
0x026500…026700 (10, 1, 3) DataBlock {»CFIGIF.PAS«}
[…0x1…]
0x026900…026980 (10, 1, 5) DataBlock {»CONFIG.PAS«}
0x026980…0269a0 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 43 55 52 52 45 4e 54 ┆ WRITELN; WRITELN('CURRENT┆
0x0269a0…0269c0 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 3a 20 27 2c 44 41 54 41 2e 43 4f 4e 46 4e 41 4d 45 29 ┆ CONFIGURATION: ',DATA.CONFNAME)┆
0x0269c0…0269e0 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 43 48 3a 3d 53 45 4c 45 43 54 28 ┆; WRITELN; CH:=SELECT(┆
0x0269e0…026a00 27 46 75 6e 63 74 69 6f 6e 28 31 2d 33 29 2c 20 45 78 69 74 28 58 29 2c 20 48 65 6c 70 28 59 29 ┆'Function(1-3), Exit(X), Help(Y)┆
0x026a00…026a20 27 2c 5b 27 31 27 2e 2e 27 33 27 2c 27 58 27 2c 27 59 27 5d 29 3b 0d 0a 20 20 20 20 43 41 53 45 ┆',Æ'1'..'3','X','Y'Å); CASE┆
0x026a20…026a40 20 43 48 20 4f 46 0d 0a 20 20 20 20 20 20 27 31 27 3a 20 4c 53 43 4f 4e 46 49 47 28 54 52 55 45 ┆ CH OF '1': LSCONFIG(TRUE┆
0x026a40…026a60 29 3b 0d 0a 20 20 20 20 20 20 27 32 27 3a 20 43 4f 4e 46 49 47 55 52 45 3b 0d 0a 20 20 20 20 20 ┆); '2': CONFIGURE; ┆
0x026a60…026a80 20 27 33 27 3a 20 4c 53 43 4f 4e 46 49 47 28 46 41 4c 53 45 29 3b 0d 0a 20 20 20 20 20 20 27 59 ┆ '3': LSCONFIG(FALSE); 'Y┆
0x026a80…026aa0 27 3a 20 48 45 4c 50 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 55 4e 54 49 4c 20 43 48 3d 27 ┆': HELP; END; UNTIL CH='┆
0x026aa0…026ac0 58 27 3b 0d 0a 20 20 57 52 49 54 45 28 27 53 61 76 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e ┆X'; WRITE('Save configuration┆
0x026ac0…026ae0 20 69 6e 20 27 2c 43 46 4e 2c 27 20 28 59 45 53 2f 4e 4f 29 3f 20 27 29 3b 0d 0a 20 20 49 46 20 ┆ in ',CFN,' (YES/NO)? '); IF ┆
0x026ae0…026b00 52 45 41 44 59 4e 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 50 55 54 44 41 54 ┆READYN THEN BEGIN PUTDAT┆
0x026b00…026d00 (10, 1, 6) DataBlock {»CFIGIF.PAS«}
[…0x2…]
0x027100…027120 (10, 1, 9) 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 ┆ ┆
[…0xf…]
0x027300…027500 (10, 1, 10) DataBlock {»CFIGIF.PAS«}
[…0x2…]
0x027900…027920 (10, 1, 13) 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 ┆ ┆
[…0xf…]
0x027b00…027d00 (10, 1, 14) DataBlock {»CFIGIF.PAS«}
[…0x21…]
0x02bf00…02c100 (12, 0, 3) DataBlock {»CALC.PAS«}
[…0x1…]
0x02c300…02c500 (12, 0, 5) DataBlock {»CFIGIF.PAS«}
[…0x1…]
0x02c700…02c900 (12, 0, 7) DataBlock {»CALC.PAS«}
[…0x1…]
0x02cb00…02cd00 (12, 0, 9) DataBlock {»CFIGIF.PAS«}
[…0x1…]
0x02cd80…02cda0 28 27 6d 6f 64 69 66 79 20 76 61 72 69 6f 75 73 20 73 79 73 74 65 6d 20 69 6e 66 6f 72 6d 61 74 ┆('modify various system informat┆
0x02cda0…02cdc0 69 6f 6e 73 2e 27 29 3b 0d 0a 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 50 52 45 53 53 52 45 54 ┆ions.'); WRITELN; PRESSRET┆
0x02cdc0…02cde0 55 52 4e 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 20 7b 43 4f 4e 46 49 47 55 52 45 7d 0d ┆URN; END; BEGIN æCONFIGUREå ┆
0x02cde0…02ce00 0a 20 20 57 49 54 48 20 44 41 54 41 20 44 4f 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 57 ┆ WITH DATA DO REPEAT W┆
0x02ce00…02ce20 52 49 54 45 4c 4e 28 27 4d 41 49 4e 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 4d 45 4e 55 3a ┆RITELN('MAIN CONFIGURATION MENU:┆
0x02ce20…02ce40 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆'); WRITELN; WRITELN('┆
0x02ce40…02ce60 31 2e 20 43 52 54 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 27 29 3b 0d 0a 20 20 20 20 57 52 49 ┆1. CRT configuration'); WRI┆
0x02ce60…02ce80 54 45 4c 4e 28 27 32 2e 20 4b 65 79 62 6f 61 72 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 27 ┆TELN('2. Keyboard configuration'┆
0x02ce80…02cea0 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 33 2e 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 ┆); WRITELN('3. Miscellaneou┆
0x02cea0…02cec0 73 20 64 61 74 61 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 43 48 3a ┆s data'); WRITELN; CH:┆
0x02cec0…02cee0 3d 53 45 4c 45 43 54 28 27 46 75 6e 63 74 69 6f 6e 28 31 2d 33 29 2c 20 45 78 69 74 28 58 29 2c ┆=SELECT('Function(1-3), Exit(X),┆
0x02cee0…02cf00 20 48 65 6c 70 28 59 29 27 2c 5b 27 31 27 2e 2e 27 33 27 2c 27 58 27 2c 27 59 27 5d 29 3b 0d 0a ┆ Help(Y)',Æ'1'..'3','X','Y'Å); ┆
0x02cf00…02d100 (12, 0, 11) DataBlock {»CALC.PAS«}
[…0x1…]
0x02d300…02d500 (12, 0, 13) DataBlock {»CFIGIF.PAS«}
0x02d500…02d520 (12, 0, 14) 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 ┆ ┆
[…0xf…]
0x02d700…02d900 (12, 0, 15) DataBlock {»CALC.PAS«}
[…0x1…]
0x02db00…02db20 (12, 1, 2) 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 ┆ ┆
[…0xf…]
0x02dd00…02df00 (12, 1, 3) DataBlock {»HEXDUMP.PAS«}
0x02df00…02df20 (12, 1, 4) 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 ┆ ┆
[…0xf…]
0x02e100…02e200 (12, 1, 5) DataBlock {»CALC.PAS«}
0x02e200…02e220 20 7b 45 56 41 4c 55 41 54 45 7d 3b 0d 0a 0d 0a 42 45 47 49 4e 20 7b 43 41 4c 43 55 4c 41 54 4f ┆ æEVALUATEå; BEGIN æCALCULATO┆
0x02e220…02e240 52 7d 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 57 52 49 54 45 28 27 2a 20 27 29 3b 20 42 ┆Rå REPEAT WRITE('* '); B┆
0x02e240…02e260 55 46 4c 45 4e 3a 3d 53 54 52 4c 45 4e 3b 20 52 45 41 44 28 53 29 3b 0d 0a 20 20 20 20 49 46 20 ┆UFLEN:=STRLEN; READ(S); IF ┆
0x02e260…02e280 28 53 3c 3e 27 27 29 20 41 4e 44 20 28 53 3c 3e 27 51 55 49 54 27 29 20 54 48 45 4e 0d 0a 20 20 ┆(S<>'') AND (S<>'QUIT') THEN ┆
0x02e280…02e2a0 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 45 56 41 4c 55 41 54 45 28 53 2c 52 2c 45 29 3b 0d ┆ BEGIN EVALUATE(S,R,E); ┆
0x02e2a0…02e2c0 0a 20 20 20 20 20 20 49 46 20 45 3d 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d ┆ IF E=0 THEN BEGIN ┆
0x02e2c0…02e2e0 0a 09 57 52 49 54 45 28 27 20 3d 27 29 3b 0d 0a 09 49 46 20 52 3e 3d 30 2e 30 20 54 48 45 4e 20 ┆ WRITE(' ='); IF R>=0.0 THEN ┆
0x02e2e0…02e300 57 52 49 54 45 28 52 3a 31 37 29 20 45 4c 53 45 20 57 52 49 54 45 28 52 3a 31 38 29 3b 0d 0a 20 ┆WRITE(R:17) ELSE WRITE(R:18); ┆
0x02e300…02e500 (12, 1, 6) DataBlock {»HEXDUMP.PAS«}
[…0x1…]
0x02e580…02e5a0 45 2c 27 20 27 29 3b 0d 0a 09 57 52 49 54 45 28 4f 55 54 46 49 4c 45 2c 48 45 58 28 42 55 46 46 ┆E,' '); WRITE(OUTFILE,HEX(BUFF┆
0x02e5a0…02e5c0 45 52 5b 4c 2c 50 5d 2c 32 29 3a 33 29 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 ┆ERÆL,PÅ,2):3); END; ┆
0x02e5c0…02e5e0 20 20 57 52 49 54 45 28 4f 55 54 46 49 4c 45 2c 27 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 46 4f ┆ WRITE(OUTFILE,' '); FO┆
0x02e5e0…02e600 52 20 50 3a 3d 30 20 54 4f 20 31 35 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 43 ┆R P:=0 TO 15 DO BEGIN C┆
0x02e600…02e620 48 3a 3d 43 48 52 28 42 55 46 46 45 52 5b 4c 2c 50 5d 29 3b 0d 0a 09 49 46 20 28 43 48 3e 3d 40 ┆H:=CHR(BUFFERÆL,PÅ); IF (CH>=@┆
0x02e620…02e640 33 32 29 20 41 4e 44 20 28 43 48 3c 3d 40 31 32 36 29 20 54 48 45 4e 0d 0a 09 57 52 49 54 45 28 ┆32) AND (CH<=@126) THEN WRITE(┆
0x02e640…02e660 4f 55 54 46 49 4c 45 2c 43 48 29 20 45 4c 53 45 20 57 52 49 54 45 28 4f 55 54 46 49 4c 45 2c 27 ┆OUTFILE,CH) ELSE WRITE(OUTFILE,'┆
0x02e660…02e680 2e 27 29 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆.'); END; WRITELN(┆
0x02e680…02e6a0 4f 55 54 46 49 4c 45 29 3b 0d 0a 20 20 20 20 20 20 41 44 44 52 45 53 53 3a 3d 41 44 44 52 45 53 ┆OUTFILE); ADDRESS:=ADDRES┆
0x02e6a0…02e6c0 53 2b 31 36 3b 0d 0a 20 20 20 20 20 20 49 46 20 4b 45 59 50 52 45 53 53 20 54 48 45 4e 0d 0a 20 ┆S+16; IF KEYPRESS THEN ┆
0x02e6c0…02e6e0 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 52 45 41 44 28 4b 42 44 2c 43 48 29 3b 20 49 46 20 43 48 ┆ BEGIN READ(KBD,CH); IF CH┆
0x02e6e0…02e700 3d 5e 43 20 54 48 45 4e 20 47 4f 54 4f 20 42 52 45 41 4b 3b 0d 0a 09 52 45 41 44 28 4b 42 44 2c ┆=^C THEN GOTO BREAK; READ(KBD,┆
0x02e700…02e900 (12, 1, 8) DataBlock {»PRIMES.PAS«}
0x02e900…02e920 (12, 1, 9) 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 ┆ ┆
[…0xf…]
0x02eb00…02ed00 (12, 1, 10) DataBlock {»HEXDUMP.PAS«}
0x02ed00…02ed20 (12, 1, 11) 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 ┆ ┆
[…0xf…]
0x02ef00…02f100 (12, 1, 12) DataBlock {»PRIMES.PAS«}
0x02f100…02f120 (12, 1, 13) 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 ┆ ┆
[…0xf…]
0x02f300…02f500 (12, 1, 14) DataBlock {»HEXDUMP.PAS«}
0x02f500…02f520 (12, 1, 15) 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 ┆ ┆
[…0xf…]
0x02f700…02f800 (13, 0, 1) DataBlock {»PRIMES.PAS«}
0x02f800…02f820 20 20 4d 41 58 32 20 3d 20 31 35 30 30 30 3b 20 20 20 7b 20 4d 41 58 50 52 49 4d 45 2f 32 20 7d ┆ MAX2 = 15000; æ MAXPRIME/2 å┆
0x02f820…02f840 0d 0a 20 20 4d 41 58 33 20 3d 20 31 30 30 30 30 3b 20 20 20 7b 20 4d 41 58 50 52 49 4d 45 2f 33 ┆ MAX3 = 10000; æ MAXPRIME/3┆
0x02f840…02f860 20 7d 0d 0a 0d 0a 56 41 52 0d 0a 20 20 49 2c 4a 2c 4b 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 ┆ å VAR I,J,K: INTEGER; ┆
0x02f860…02f880 54 45 53 54 3a 20 41 52 52 41 59 5b 32 2e 2e 4d 41 58 32 5d 20 4f 46 20 42 4f 4f 4c 45 41 4e 3b ┆TEST: ARRAYÆ2..MAX2Å OF BOOLEAN;┆
0x02f880…02f8a0 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 57 52 49 54 45 28 31 3a 38 2c 32 3a 38 29 3b 0d 0a 20 20 ┆ BEGIN WRITE(1:8,2:8); ┆
0x02f8a0…02f8c0 46 4f 52 20 49 3a 3d 32 20 54 4f 20 4d 41 58 32 20 44 4f 20 54 45 53 54 5b 49 5d 3a 3d 54 52 55 ┆FOR I:=2 TO MAX2 DO TESTÆIÅ:=TRU┆
0x02f8c0…02f8e0 45 3b 0d 0a 20 20 46 4f 52 20 49 3a 3d 32 20 54 4f 20 4d 41 58 32 20 44 4f 0d 0a 20 20 49 46 20 ┆E; FOR I:=2 TO MAX2 DO IF ┆
0x02f8e0…02f900 54 45 53 54 5b 49 5d 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 4a 3a 3d 49 2b ┆TESTÆIÅ THEN BEGIN J:=I+┆
0x02f900…02fb00 (13, 0, 2) DataBlock {»CROSSREF.PAS«}
[…0x2…]
0x02ff00…02ff20 (13, 0, 5) 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 ┆ ┆
[…0xf…]
0x030100…030300 (13, 0, 6) DataBlock {»CROSSREF.PAS«}
[…0xc…]
0x031b00…031b20 (13, 1, 4) 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 ┆ ┆
[…0xf…]
0x031d00…031f00 (13, 1, 5) DataBlock {»CROSSREF.PAS«}
[…0x2…]
0x032300…032320 (13, 1, 8) 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 ┆ ┆
[…0xf…]
0x032500…032700 (13, 1, 9) DataBlock {»CROSSREF.PAS«}
[…0x1…]
0x032900…032920 (13, 1, 11) 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 ┆ ┆
[…0x1f…]
0x032d00…032f00 (13, 1, 13) DataBlock {»CROSSREF.PAS«}
[…0x1…]
0x033100…033120 (13, 1, 15) 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 ┆ ┆
[…0x762f…]