|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 A B C D F I L M N O P R S T U W X Z
Length: 655360 (0xa0000) Description: Bits:30005446 Pascal/MT+ v5.5 & XREF & BDS C v1.46 Types: 5¼" Floppy Disk, CpmFSAuto, ImdContainer Notes: CpmFSAuto,256,2048,80,0x0,1<3,1:0-79:1
Media: [0, 0, 1] … [79, 1, 16] {256: 2560} Signature: CpmFSAuto,256,2048,80,0x0,1<3,1:0-79:1 Confidence score: +97/-4 Sector size: 256 Block size: 2048 Directory entries: 80 Block number size: 16 Extent-mask: 0x00 Sector-interleave: 1, 2, 5, 6, 9, 10, 13, 14, 3, 4, 7, 8, 11, 12, 15, 16 Tracks: (1, 0), (1, 1), (2, 0), (2, 1), (3, 0), (3, 1) […] (77, 0), (77, 1), (78, 0), (78, 1), (79, 0), (79, 1)
user | bc | length | name | artifact |
---|---|---|---|---|
0 | 0 | 1280 | ALPH.C | ⟦29102cf7b⟧ TextFile |
0 | 0 | 3328 | BCDREALS.ERL | ⟦16bfc561e⟧ |
0 | 0 | 5376 | BDS.LIB | ⟦e9e49a5dd⟧ TextFile |
0 | 0 | 4992 | BDSCIO.H | ⟦9eea8976a⟧ TextFile |
0 | 0 | 1152 | C.CCC | ⟦64efeccfc⟧ |
0 | 0 | 19200 | CASM.C | ⟦b34e85562⟧ TextFile |
0 | 0 | 896 | CAT.C | ⟦e4d6db8f3⟧ TextFile |
0 | 0 | 2304 | CAT.COM | ⟦9f83275d9⟧ |
0 | 0 | 13696 | CC.COM | ⟦dc958cf94⟧ |
0 | 0 | 2048 | CC0T.C | ⟦78c326edd⟧ TextFile |
0 | 0 | 15872 | CC2.COM | ⟦31d917547⟧ |
0 | 0 | 24448 | CCC.ASM | ⟦be8e9c3d2⟧ TextFile |
0 | 0 | 4736 | CL.COM | ⟦cccaecb89⟧ |
0 | 0 | 5248 | CLIB.COM | ⟦2130b8bb5⟧ |
0 | 0 | 3328 | CONVERT.C | ⟦f66e2e96d⟧ TextFile |
0 | 0 | 768 | DBUGHELP.TXT | ⟦d17d20870⟧ TextFile |
0 | 0 | 11264 | DEBUGGER.ERL | ⟦cfca61af5⟧ |
0 | 0 | 21760 | DEFF2.CSM | ⟦f2a53e828⟧ TextFile |
0 | 0 | 11008 | DEFF2A.CSM | ⟦9b5afb9c5⟧ TextFile |
0 | 0 | 2816 | DI.COM | ⟦ba60bd5d0⟧ |
0 | 0 | 8448 | DIO.C | ⟦cef50dba6⟧ TextFile |
0 | 0 | 896 | DIO.H | ⟦3dd358cf1⟧ TextFile |
0 | 0 | 18560 | DIS8080.COM | ⟦4076357ac⟧ |
0 | 0 | 27264 | F80.COM | ⟦0f3ffc120⟧ |
0 | 0 | 6784 | FLOAT.C | ⟦d99448d9b⟧ TextFile |
0 | 0 | 5888 | FLOAT.DOC | ⟦2e67ecbc8⟧ TextFile |
0 | 0 | 768 | FLOATSUM.C | ⟦b05a72f7f⟧ TextFile |
0 | 0 | 26496 | FORLIB.REL | ⟦07050d398⟧ |
0 | 0 | 7680 | FPREALS.ERL | ⟦bbb2924ed⟧ |
0 | 0 | 2432 | FULLHEAP.ERL | ⟦a5b93b6b4⟧ |
0 | 0 | 128 | IOCHK.BLD | ⟦7128fecee⟧ TextFile |
0 | 0 | 10752 | L80.COM | ⟦e2bfb9bb9⟧ |
0 | 0 | 4736 | LIB80.COM | ⟦28f5af4a7⟧ |
0 | 0 | 15616 | LIBMT.COM | ⟦2ab9b69c9⟧ |
0 | 0 | 11520 | LINKMT.COM | ⟦76636782d⟧ |
0 | 0 | 2560 | LPR.C | ⟦bccef03e7⟧ TextFile |
0 | 0 | 896 | LPRINTF.C | ⟦20780696b⟧ TextFile |
0 | 0 | 20096 | M80.COM | ⟦1a229b803⟧ |
0 | 0 | 1408 | MLIST.COM | ⟦13b6822bc⟧ |
0 | 0 | 4864 | MTERRS.TXT | ⟦c90f1f830⟧ TextFile |
0 | 0 | 12800 | MTPLUS.000 | ⟦8fdd1161f⟧ |
0 | 0 | 10752 | MTPLUS.001 | ⟦5aea77784⟧ |
0 | 0 | 7040 | MTPLUS.002 | ⟦edf25be09⟧ |
0 | 0 | 7552 | MTPLUS.003 | ⟦a0cbabbe8⟧ |
0 | 0 | 17408 | MTPLUS.004 | ⟦fa5c41b0a⟧ |
0 | 0 | 7808 | MTPLUS.005 | ⟦954b36f77⟧ |
0 | 0 | 5888 | MTPLUS.006 | ⟦8068f453b⟧ |
0 | 0 | 35584 | MTPLUS.COM | ⟦0eba591c2⟧ |
0 | 0 | 2176 | NOBOOT.C | ⟦036fcd7ec⟧ TextFile |
0 | 0 | 10624 | OTHELLO.C | ⟦938c3c302⟧ TextFile |
0 | 0 | 24320 | PASLIB.ERL | ⟦c0a79f725⟧ |
0 | 0 | 7424 | PIP.COM | ⟦7f9e12a92⟧ |
0 | 0 | 2816 | RANDOMIO.ERL | ⟦fc75b833a⟧ |
0 | 0 | 2560 | READ.ME | ⟦4d587d5a1⟧ TextFile |
0 | 0 | 1024 | ROVLMGR.ERL | ⟦455b15fa7⟧ |
0 | 0 | 1024 | SIEVE.C | ⟦1cf8fac0b⟧ TextFile |
0 | 0 | 8064 | STDLIB1.C | ⟦d9824a192⟧ TextFile |
0 | 0 | 6656 | STDLIB2.C | ⟦92e9bc33c⟧ TextFile |
0 | 0 | 20352 | TELNET.C | ⟦a023378ba⟧ TextFile |
0 | 0 | 3328 | TRANCEND.ERL | ⟦733f1e3ca⟧ |
0 | 0 | 384 | UTILMOD.ERL | ⟦9eb6b4a6c⟧ |
0 | 0 | 4864 | WILDEXP.C | ⟦7b0128c1b⟧ TextFile |
0 | 0 | 768 | XREF.DOC | ⟦01a5df82a⟧ TextFile |
0 | 0 | 30208 | ZIP.COM | ⟦cb722a606⟧ |
0x00000…00020 (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 ┆ ┆ […0xff…] 0x02000…02020 (1, 0, 1) [0, 'PIP.COM', 0, 58, 'xl=00', 'bc=00', 'xh=00', 'rc=3a', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 3, 0, 4, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02020…02040 [0, 'CAT.COM', 0, 18, 'xl=00', 'bc=00', 'xh=00', 'rc=12', '0-0-0-0-0-0-0-0-0-0-0', [6, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02040…02060 [0, 'MLIST.COM', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02060…02080 [0, 'ALPH.C', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02080…020a0 [0, 'BDS.LIB', 0, 42, 'xl=00', 'bc=00', 'xh=00', 'rc=2a', '0-0-0-0-0-0-0-0-0-0-0', [10, 0, 11, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x020a0…020c0 [0, 'BDSCIO.H', 0, 39, 'xl=00', 'bc=00', 'xh=00', 'rc=27', '0-0-0-0-0-0-0-0-0-0-0', [13, 0, 14, 0, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x020c0…020e0 [0, 'C.CCC', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x020e0…02100 [0, 'BCDREALS.ERL', 0, 26, 'xl=00', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [17, 0, 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02100…02120 (1, 0, 2) [0, 'DBUGHELP.TXT', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02120…02140 [0, 'DEBUGGER.ERL', 0, 88, 'xl=00', 'bc=00', 'xh=00', 'rc=58', '0-0-0-0-0-0-0-0-0-0-0', [20, 0, 21, 0, 22, 0, 23, 0, 24, 0, 25, 0, 0, 0, 0, 0]] 0x02140…02160 [0, 'CASM.C', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [26, 0, 27, 0, 28, 0, 29, 0, 30, 0, 31, 0, 32, 0, 33, 0]] 0x02160…02180 [0, 'CASM.C', 1, 22, 'xl=01', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [34, 0, 35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02180…021a0 [0, 'CAT.C', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x021a0…021c0 [0, 'CC.COM', 0, 107, 'xl=00', 'bc=00', 'xh=00', 'rc=6b', '0-0-0-0-0-0-0-0-0-0-0', [37, 0, 38, 0, 39, 0, 40, 0, 41, 0, 42, 0, 43, 0, 0, 0]] 0x021c0…021e0 [0, 'CC0T.C', 0, 16, 'xl=00', 'bc=00', 'xh=00', 'rc=10', '0-0-0-0-0-0-0-0-0-0-0', [44, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x021e0…02200 [0, 'ZIP.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [45, 0, 46, 0, 47, 0, 48, 0, 49, 0, 50, 0, 51, 0, 52, 0]] 0x02200…02220 (1, 0, 3) [0, 'MTPLUS.004', 1, 8, 'xl=01', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [9, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02220…02240 [0, 'MTPLUS.005', 0, 61, 'xl=00', 'bc=00', 'xh=00', 'rc=3d', '0-0-0-0-0-0-0-0-0-0-0', [10, 1, 11, 1, 12, 1, 13, 1, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02240…02260 [0, 'MTPLUS.006', 0, 46, 'xl=00', 'bc=00', 'xh=00', 'rc=2e', '0-0-0-0-0-0-0-0-0-0-0', [14, 1, 15, 1, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02260…02280 [0, 'MTPLUS.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [17, 1, 18, 1, 19, 1, 20, 1, 21, 1, 22, 1, 23, 1, 24, 1]] 0x02280…022a0 [0, 'MTPLUS.COM', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [25, 1, 26, 1, 27, 1, 28, 1, 29, 1, 30, 1, 31, 1, 32, 1]] 0x022a0…022c0 [0, 'MTPLUS.COM', 2, 22, 'xl=02', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [33, 1, 34, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x022c0…022e0 [0, 'PASLIB.ERL', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [35, 1, 36, 1, 37, 1, 38, 1, 39, 1, 40, 1, 41, 1, 42, 1]] 0x022e0…02300 [0, 'PASLIB.ERL', 1, 62, 'xl=01', 'bc=00', 'xh=00', 'rc=3e', '0-0-0-0-0-0-0-0-0-0-0', [43, 1, 44, 1, 45, 1, 46, 1, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02300…02320 (1, 0, 4) [0, 'RANDOMIO.ERL', 0, 22, 'xl=00', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [47, 1, 48, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02320…02340 [0, 'ROVLMGR.ERL', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [49, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02340…02360 [0, 'TRANCEND.ERL', 0, 26, 'xl=00', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [50, 1, 51, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02360…02380 [0, 'UTILMOD.ERL', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [52, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02380…023a0 [0, 'XREF.DOC', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [53, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x023a0…023c0 [0, 'XREF.$$$', 0, 0, 'xl=00', 'bc=00', 'xh=00', 'rc=00', '0-0-0-0-0-0-0-0-0-0-0', [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x023c0…023e0 [0, 'FORLIB.LIB', 0, 0, 'xl=00', 'bc=00', 'xh=00', 'rc=00', '0-0-0-0-0-0-0-0-0-0-0', [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x023e0…02400 Dirent {Status=0xe5} 0x02400…02420 (1, 0, 5) [0, 'ZIP.COM', 1, 108, 'xl=01', 'bc=00', 'xh=00', 'rc=6c', '0-0-0-0-0-0-0-0-0-0-0', [53, 0, 54, 0, 55, 0, 56, 0, 57, 0, 58, 0, 59, 0, 0, 0]] 0x02420…02440 [0, 'CC2.COM', 0, 124, 'xl=00', 'bc=00', 'xh=00', 'rc=7c', '0-0-0-0-0-0-0-0-0-0-0', [60, 0, 61, 0, 62, 0, 63, 0, 64, 0, 65, 0, 66, 0, 67, 0]] 0x02440…02460 [0, 'CCC.ASM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [68, 0, 69, 0, 70, 0, 71, 0, 72, 0, 73, 0, 74, 0, 75, 0]] 0x02460…02480 [0, 'CCC.ASM', 1, 63, 'xl=01', 'bc=00', 'xh=00', 'rc=3f', '0-0-0-0-0-0-0-0-0-0-0', [76, 0, 77, 0, 78, 0, 79, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02480…024a0 [0, 'CL.COM', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [80, 0, 81, 0, 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x024a0…024c0 [0, 'CLIB.COM', 0, 41, 'xl=00', 'bc=00', 'xh=00', 'rc=29', '0-0-0-0-0-0-0-0-0-0-0', [83, 0, 84, 0, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x024c0…024e0 [0, 'CONVERT.C', 0, 26, 'xl=00', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [86, 0, 87, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x024e0…02500 [0, 'DEFF2.CSM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [88, 0, 89, 0, 90, 0, 91, 0, 92, 0, 93, 0, 94, 0, 95, 0]] 0x02500…02520 (1, 0, 6) [0, 'DEFF2.CSM', 1, 42, 'xl=01', 'bc=00', 'xh=00', 'rc=2a', '0-0-0-0-0-0-0-0-0-0-0', [96, 0, 97, 0, 98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02520…02540 [0, 'DEFF2A.CSM', 0, 86, 'xl=00', 'bc=00', 'xh=00', 'rc=56', '0-0-0-0-0-0-0-0-0-0-0', [99, 0, 100, 0, 101, 0, 102, 0, 103, 0, 104, 0, 0, 0, 0, 0]] 0x02540…02560 [0, 'DIO.C', 0, 66, 'xl=00', 'bc=00', 'xh=00', 'rc=42', '0-0-0-0-0-0-0-0-0-0-0', [105, 0, 106, 0, 107, 0, 108, 0, 109, 0, 0, 0, 0, 0, 0, 0]] 0x02560…02580 [0, 'DIO.H', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [110, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02580…025a0 [0, 'FLOAT.C', 0, 53, 'xl=00', 'bc=00', 'xh=00', 'rc=35', '0-0-0-0-0-0-0-0-0-0-0', [111, 0, 112, 0, 113, 0, 114, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x025a0…025c0 [0, 'FLOAT.DOC', 0, 46, 'xl=00', 'bc=00', 'xh=00', 'rc=2e', '0-0-0-0-0-0-0-0-0-0-0', [115, 0, 116, 0, 117, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x025c0…025e0 [0, 'FLOATSUM.C', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [118, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x025e0…02600 [0, 'LPR.C', 0, 20, 'xl=00', 'bc=00', 'xh=00', 'rc=14', '0-0-0-0-0-0-0-0-0-0-0', [119, 0, 120, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02600…02620 (1, 0, 7) 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…] 0x02800…02820 (1, 0, 9) [0, 'LPRINTF.C', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [121, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02820…02840 [0, 'NOBOOT.C', 0, 17, 'xl=00', 'bc=00', 'xh=00', 'rc=11', '0-0-0-0-0-0-0-0-0-0-0', [122, 0, 123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02840…02860 [0, 'OTHELLO.C', 0, 83, 'xl=00', 'bc=00', 'xh=00', 'rc=53', '0-0-0-0-0-0-0-0-0-0-0', [124, 0, 125, 0, 126, 0, 127, 0, 128, 0, 129, 0, 0, 0, 0, 0]] 0x02860…02880 [0, 'READ.ME', 0, 20, 'xl=00', 'bc=00', 'xh=00', 'rc=14', '0-0-0-0-0-0-0-0-0-0-0', [130, 0, 131, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02880…028a0 [0, 'SIEVE.C', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [132, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x028a0…028c0 [0, 'STDLIB1.C', 0, 63, 'xl=00', 'bc=00', 'xh=00', 'rc=3f', '0-0-0-0-0-0-0-0-0-0-0', [133, 0, 134, 0, 135, 0, 136, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x028c0…028e0 [0, 'STDLIB2.C', 0, 52, 'xl=00', 'bc=00', 'xh=00', 'rc=34', '0-0-0-0-0-0-0-0-0-0-0', [137, 0, 138, 0, 139, 0, 140, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x028e0…02900 [0, 'TELNET.C', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [141, 0, 142, 0, 143, 0, 144, 0, 145, 0, 146, 0, 147, 0, 148, 0]] 0x02900…02920 (1, 0, 10) [0, 'TELNET.C', 1, 31, 'xl=01', 'bc=00', 'xh=00', 'rc=1f', '0-0-0-0-0-0-0-0-0-0-0', [149, 0, 150, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02920…02940 [0, 'WILDEXP.C', 0, 38, 'xl=00', 'bc=00', 'xh=00', 'rc=26', '0-0-0-0-0-0-0-0-0-0-0', [151, 0, 152, 0, 153, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02940…02960 [0, 'F80.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [154, 0, 155, 0, 156, 0, 157, 0, 158, 0, 159, 0, 160, 0, 161, 0]] 0x02960…02980 [0, 'F80.COM', 1, 85, 'xl=01', 'bc=00', 'xh=00', 'rc=55', '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]] 0x02980…029a0 [0, 'FORLIB.REL', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [168, 0, 169, 0, 170, 0, 171, 0, 172, 0, 173, 0, 174, 0, 175, 0]] 0x029a0…029c0 [0, 'FORLIB.REL', 1, 79, 'xl=01', 'bc=00', 'xh=00', 'rc=4f', '0-0-0-0-0-0-0-0-0-0-0', [176, 0, 177, 0, 178, 0, 179, 0, 180, 0, 0, 0, 0, 0, 0, 0]] 0x029c0…029e0 [0, 'L80.COM', 0, 84, 'xl=00', 'bc=00', 'xh=00', 'rc=54', '0-0-0-0-0-0-0-0-0-0-0', [181, 0, 182, 0, 183, 0, 184, 0, 185, 0, 186, 0, 0, 0, 0, 0]] 0x029e0…02a00 [0, 'LIB80.COM', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [187, 0, 188, 0, 189, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02a00…02a20 (1, 0, 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…] 0x02c00…02c20 (1, 0, 13) [0, 'M80.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [190, 0, 191, 0, 192, 0, 193, 0, 194, 0, 195, 0, 196, 0, 197, 0]] 0x02c20…02c40 [0, 'M80.COM', 1, 29, 'xl=01', 'bc=00', 'xh=00', 'rc=1d', '0-0-0-0-0-0-0-0-0-0-0', [198, 0, 199, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02c40…02c60 [0, 'DI.COM', 0, 22, 'xl=00', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [200, 0, 201, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02c60…02c80 [0, 'DIS8080.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [202, 0, 203, 0, 204, 0, 205, 0, 206, 0, 207, 0, 208, 0, 209, 0]] 0x02c80…02ca0 [0, 'DIS8080.COM', 1, 17, 'xl=01', 'bc=00', 'xh=00', 'rc=11', '0-0-0-0-0-0-0-0-0-0-0', [210, 0, 211, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02ca0…02cc0 [0, 'FPREALS.ERL', 0, 60, 'xl=00', 'bc=00', 'xh=00', 'rc=3c', '0-0-0-0-0-0-0-0-0-0-0', [212, 0, 213, 0, 214, 0, 215, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02cc0…02ce0 [0, 'FULLHEAP.ERL', 0, 19, 'xl=00', 'bc=00', 'xh=00', 'rc=13', '0-0-0-0-0-0-0-0-0-0-0', [216, 0, 217, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02ce0…02d00 [0, 'IOCHK.BLD', 0, 1, 'xl=00', 'bc=00', 'xh=00', 'rc=01', '0-0-0-0-0-0-0-0-0-0-0', [218, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02d00…02d20 (1, 0, 14) [0, 'LIBMT.COM', 0, 122, 'xl=00', 'bc=00', 'xh=00', 'rc=7a', '0-0-0-0-0-0-0-0-0-0-0', [219, 0, 220, 0, 221, 0, 222, 0, 223, 0, 224, 0, 225, 0, 226, 0]] 0x02d20…02d40 [0, 'LINKMT.COM', 0, 90, 'xl=00', 'bc=00', 'xh=00', 'rc=5a', '0-0-0-0-0-0-0-0-0-0-0', [227, 0, 228, 0, 229, 0, 230, 0, 231, 0, 232, 0, 0, 0, 0, 0]] 0x02d40…02d60 [0, 'MTERRS.TXT', 0, 38, 'xl=00', 'bc=00', 'xh=00', 'rc=26', '0-0-0-0-0-0-0-0-0-0-0', [233, 0, 234, 0, 235, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02d60…02d80 [0, 'MTPLUS.000', 0, 100, 'xl=00', 'bc=00', 'xh=00', 'rc=64', '0-0-0-0-0-0-0-0-0-0-0', [236, 0, 237, 0, 238, 0, 239, 0, 240, 0, 241, 0, 242, 0, 0, 0]] 0x02d80…02da0 [0, 'MTPLUS.001', 0, 84, 'xl=00', 'bc=00', 'xh=00', 'rc=54', '0-0-0-0-0-0-0-0-0-0-0', [243, 0, 244, 0, 245, 0, 246, 0, 247, 0, 248, 0, 0, 0, 0, 0]] 0x02da0…02dc0 [0, 'MTPLUS.002', 0, 55, 'xl=00', 'bc=00', 'xh=00', 'rc=37', '0-0-0-0-0-0-0-0-0-0-0', [249, 0, 250, 0, 251, 0, 252, 0, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02dc0…02de0 [0, 'MTPLUS.003', 0, 59, 'xl=00', 'bc=00', 'xh=00', 'rc=3b', '0-0-0-0-0-0-0-0-0-0-0', [253, 0, 254, 0, 255, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0]] 0x02de0…02e00 [0, 'MTPLUS.004', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1]] 0x02e00…02e20 (1, 0, 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…] 0x03000…03100 (1, 1, 1) DataBlock {»PIP.COM«} […0x1a…] 0x04b00…04b20 (2, 0, 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 ┆ ┆ […0x7…] 0x04c00…04d00 (2, 0, 13) DataBlock {»PIP.COM«} […0x1…] 0x04e00…04e20 (2, 0, 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…] 0x05000…05100 (2, 1, 1) DataBlock {»CAT.COM«} […0x2…] 0x05300…05320 (2, 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 ┆ ┆ […0x7…] 0x05400…05500 (2, 1, 5) DataBlock {»CAT.COM«} […0x1…] 0x05600…05620 (2, 1, 7) 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…] 0x05800…05900 (2, 1, 9) DataBlock {»CAT.COM«} […0x1…] 0x05a00…05a20 (2, 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…] 0x05c00…05d00 (2, 1, 13) DataBlock {»CAT.COM«} […0x1…] 0x05e00…05e20 (2, 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…] 0x06000…06100 (3, 0, 1) DataBlock {»MLIST.COM«} […0x1…] 0x06200…06300 (3, 0, 3) DataBlock {»ALPH.C«} […0x1…] 0x06400…06500 (3, 0, 5) DataBlock {»MLIST.COM«} […0x1…] 0x06600…06700 (3, 0, 7) DataBlock {»ALPH.C«} […0x1…] 0x06800…06900 (3, 0, 9) DataBlock {»MLIST.COM«} […0x1…] 0x06980…069a0 00 c1 79 fe 0d c2 8f 05 af 32 5d 06 c3 9b 05 fe 20 da 9b 05 3a 5d 06 3c 32 5d 06 3a 5e 06 fe 50 ┆ y 2Å :Å <2Å :^ P┆ 0x069a0…069c0 cc a7 05 e1 d1 c1 c9 c5 d5 e5 cd 00 00 e1 d1 c1 c9 7e 12 23 13 05 c2 b1 05 c9 cd 2f 05 0d 0a 2b ┆ ü # / +┆ 0x069c0…069e0 2b 41 42 4f 52 54 45 44 2b 2b 00 11 80 00 0e 1a cd 05 00 2a b8 06 f9 c9 0e 1a 11 80 00 cd 05 00 ┆+ABORTED++ * ┆ 0x069e0…06a00 af 32 68 00 32 7c 00 3a 5f 06 b7 ca 0a 06 21 5c 00 11 60 06 06 0c cd b1 05 3a 5c 00 32 6c 06 0e ┆ 2h 2ø :_ !Ø ` :Ø 2l ┆ 0x06a00…06b00 (3, 0, 11) DataBlock {»ALPH.C«} 0x06b00…06b20 (3, 0, 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 ┆ ┆ […0x27…] 0x07000…07100 (3, 1, 1) DataBlock {»BDS.LIB«} […0x11…] 0x08200…08300 (4, 0, 3) DataBlock {»BDSCIO.H«} […0x1…] 0x08400…08500 (4, 0, 5) DataBlock {»BDS.LIB«} […0x1…] 0x08600…08700 (4, 0, 7) DataBlock {»BDSCIO.H«} […0x1…] 0x08800…08900 (4, 0, 9) DataBlock {»BDS.LIB«} 0x08900…08920 (4, 0, 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 ┆ ┆ […0x7…] 0x08a00…08b00 (4, 0, 11) DataBlock {»BDSCIO.H«} […0x1…] 0x08c00…08c20 (4, 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 ┆ ┆ […0xf…] 0x08e00…08f00 (4, 0, 15) DataBlock {»BDSCIO.H«} […0x9…] 0x09780…097a0 61 64 65 72 20 2a 5f 70 74 72 3b 0d 0a 09 75 6e 73 69 67 6e 65 64 20 5f 73 69 7a 65 3b 0d 0a 20 ┆ader *_ptr; unsigned _size; ┆ 0x097a0…097c0 7d 3b 0d 0a 0d 0a 73 74 72 75 63 74 20 5f 68 65 61 64 65 72 20 5f 62 61 73 65 3b 09 09 2f 2a 20 ┆å; struct _header _base; /* ┆ 0x097c0…097e0 64 65 63 6c 61 72 65 20 74 68 69 73 20 65 78 74 65 72 6e 61 6c 20 64 61 74 61 20 74 6f 20 20 2a ┆declare this external data to *┆ 0x097e0…09800 2f 0d 0a 73 74 72 75 63 74 20 5f 68 65 61 64 65 72 20 2a 5f 61 6c 6c 6f 63 70 3b 09 2f 2a 20 62 ┆/ struct _header *_allocp; /* b┆ 0x09800…09900 (4, 1, 9) DataBlock {»BDSCIO.H«} […0x1…] 0x09a00…09a20 (4, 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…] 0x09c00…09d00 (4, 1, 13) DataBlock {»BDSCIO.H«} […0x1…] 0x09e00…09e20 (4, 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…] 0x0a000…0a100 (5, 0, 1) DataBlock {»C.CCC«} […0x1…] 0x0a200…0a300 (5, 0, 3) DataBlock {»BCDREALS.ERL«} […0x1…] 0x0a400…0a500 (5, 0, 5) DataBlock {»C.CCC«} […0x1…] 0x0a600…0a700 (5, 0, 7) DataBlock {»BCDREALS.ERL«} […0x1…] 0x0a800…0a880 (5, 0, 9) DataBlock {»C.CCC«} 0x0a880…0a8a0 00 21 d7 06 19 7e e6 01 37 d1 7a c8 3f c9 cd 60 05 c5 cd 0c 05 06 08 e5 13 1a 1b fe 3a 3e 00 c2 ┆ ! ü 7 z ? ` :> ┆ 0x0a8a0…0a8c0 aa 04 1a cd 03 05 d6 40 13 13 77 23 cd 47 01 1a fe 2e c2 b6 04 13 06 03 cd c6 04 af 77 11 14 00 ┆ @ w# G . w ┆ 0x0a8c0…0a8e0 19 77 23 c3 3f 01 c5 1a fe 2a 3e 3f ca e9 04 1a cd f1 04 da e7 04 77 23 13 05 c2 c7 04 c1 1a cd ┆ w# ? *>? w# ┆ 0x0a8e0…0a900 f1 04 d8 13 c3 de 04 3e 20 77 23 05 c2 e9 04 c1 c9 cd 03 05 fe 2e 37 c8 fe 3a 37 c8 fe 7f 37 c8 ┆ > w# .7 :7 7 ┆ 0x0a900…0a920 (5, 0, 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 ┆ ┆ […0x7…] 0x0aa00…0ab00 (5, 0, 11) DataBlock {»BCDREALS.ERL«} […0x1…] 0x0ac00…0ac20 (5, 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 ┆ ┆ […0xf…] 0x0ae00…0af00 (5, 0, 15) DataBlock {»BCDREALS.ERL«} […0x3…] 0x0b200…0b300 (5, 1, 3) DataBlock {»DBUGHELP.TXT«} […0x1…] 0x0b400…0b500 (5, 1, 5) DataBlock {»BCDREALS.ERL«} […0x1…] 0x0b600…0b700 (5, 1, 7) DataBlock {»DBUGHELP.TXT«} 0x0b700…0b720 (5, 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 ┆ ┆ […0x7…] 0x0b800…0b900 (5, 1, 9) DataBlock {»BCDREALS.ERL«} 0x0b900…0b920 (5, 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 ┆ ┆ […0x37…] 0x0c000…0c100 (6, 0, 1) DataBlock {»DEBUGGER.ERL«} […0x29…] 0x0ea00…0ea20 (7, 0, 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…] 0x0ec00…0ed00 (7, 0, 13) DataBlock {»DEBUGGER.ERL«} […0x1…] 0x0ee00…0ee20 (7, 0, 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…] 0x0f000…0f100 (7, 1, 1) DataBlock {»CASM.C«} […0x46…] 0x13700…13720 (9, 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 ┆ ┆ […0x7…] 0x13800…13900 (9, 1, 9) DataBlock {»CASM.C«} […0x1…] 0x13a00…13a20 (9, 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…] 0x13c00…13d00 (9, 1, 13) DataBlock {»CASM.C«} […0x1…] 0x13e00…13e20 (9, 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…] 0x14000…14100 (10, 0, 1) DataBlock {»CAT.C«} […0x1…] 0x14200…14300 (10, 0, 3) DataBlock {»CC.COM«} […0x1…] 0x14400…14500 (10, 0, 5) DataBlock {»CAT.C«} […0x1…] 0x14580…145a0 0d 0a 09 09 09 69 66 20 28 66 6f 70 65 6e 28 61 72 67 76 5b 69 5d 2c 69 62 75 66 29 20 3d 3d 20 ┆ if (fopen(argvÆiÅ,ibuf) == ┆ 0x145a0…145c0 45 52 52 4f 52 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 09 66 70 72 69 6e 74 66 28 53 54 44 45 52 52 ┆ERROR) æ fprintf(STDERR┆ 0x145c0…145e0 2c 22 5c 37 43 61 6e 27 74 20 6f 70 65 6e 20 25 73 5c 6e 22 2c 61 72 67 76 5b 69 5d 29 3b 0d 0a ┆,"Ø7Can't open %sØn",argvÆiÅ); ┆ 0x145e0…14600 09 09 09 09 63 6f 6e 74 69 6e 75 65 3b 0d 0a 09 09 09 7d 0d 0a 09 09 09 77 68 69 6c 65 20 28 28 ┆ continue; å while ((┆ 0x14600…14700 (10, 0, 7) DataBlock {»CC.COM«} […0x1…] 0x14800…14820 (10, 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 ┆ ┆ […0xf…] 0x14a00…14b00 (10, 0, 11) DataBlock {»CC.COM«} […0x1…] 0x14c00…14c20 (10, 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 ┆ ┆ […0xf…] 0x14e00…14f00 (10, 0, 15) DataBlock {»CC.COM«} […0x2d…] 0x17b80…17ba0 4c 53 c5 93 25 bd a4 a5 b8 55 4e 53 49 47 4e 45 c4 82 55 4e 49 4f ce 8c 45 4e c4 9c ff 26 a6 ac ┆LS % UNSIGNE UNIO EN & ┆ 0x17ba0…17bc0 26 bd a7 46 4f d2 94 a6 bb 56 4f 49 c4 81 ff 57 48 49 4c c5 96 47 4f 54 cf 8d ff a8 c2 ff 89 ff ┆& FO VOI WHIL GOT ┆ 0x17bc0…17be0 a9 c3 49 c6 92 49 4e d4 81 ff ba ca 2a bd a2 aa b6 ff bb c6 fb 9b db c8 2b ab b2 2b bd a0 ab c4 ┆ I IN * + + ┆ 0x17be0…17c00 ff ac c7 7c fc ad 7c bd a9 fc bd 3c 3c bd a6 3c bd ae 3c bc b0 bc ba ff 8d f7 dd c9 fd 9c 3d bd ┆ ø ø << < < = ┆ 0x17c00…17d00 (11, 1, 13) DataBlock {»CC.COM«} […0x1…] 0x17e00…17e20 (11, 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…] 0x18000…18100 (12, 0, 1) DataBlock {»CC0T.C«} […0x1…] 0x18200…18300 (12, 0, 3) DataBlock {»ZIP.COM«} […0x1…] 0x18400…18500 (12, 0, 5) DataBlock {»CC0T.C«} […0x1…] 0x18600…18700 (12, 0, 7) DataBlock {»ZIP.COM«} […0x1…] 0x18800…18900 (12, 0, 9) DataBlock {»CC0T.C«} […0x1…] 0x18a00…18b00 (12, 0, 11) DataBlock {»ZIP.COM«} […0x1…] 0x18c00…18d00 (12, 0, 13) DataBlock {»CC0T.C«} […0x1…] 0x18e00…18f00 (12, 0, 15) DataBlock {»ZIP.COM«} […0x6f…] 0x1fe00…1fe20 (15, 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…] 0x20000…20100 (16, 0, 1) DataBlock {»CC2.COM«} […0x3d…] 0x23e00…23e20 (17, 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…] 0x24000…24100 (18, 0, 1) DataBlock {»CCC.ASM«} […0x5f…] 0x29f80…29fa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x29fa0…29fc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆------------------------------ ┆ 0x29fc0…29fe0 0d 0a 09 49 46 09 43 50 4d 0d 0a 6d 61 69 6e 3a 09 65 71 75 09 24 09 3b 77 68 65 72 65 20 22 6d ┆ IF CPM main: equ $ ;where "m┆ 0x29fe0…2a000 61 69 6e 22 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c 20 62 65 20 6c 6f 61 64 65 64 20 75 6e 64 65 ┆ain" program will be loaded unde┆ 0x2a000…2a100 (21, 0, 1) DataBlock {»CL.COM«} […0x11…] 0x2b200…2b300 (21, 1, 3) DataBlock {»CLIB.COM«} […0x1…] 0x2b400…2b480 (21, 1, 5) DataBlock {»CL.COM«} 0x2b480…2b4a0 7e b7 23 f2 af 12 11 c9 05 3a 37 14 b7 ca 98 12 3e 81 32 77 13 11 eb 05 cd 1f 0b 21 13 14 3a 37 ┆ü # :7 > 2w ! :7┆ 0x2b4a0…2b4c0 14 b7 ca a8 12 2a 45 14 cd 1e 09 cd cb 0a c9 2b 7e f6 80 77 21 4d 14 09 09 eb 2a 66 13 eb 73 23 ┆ *E +ü w!M *f s#┆ 0x2b4c0…2b4e0 72 c9 d5 e5 eb 2a 7c 13 7c 92 da da 12 c2 d5 12 7d 93 da da 12 23 23 22 7c 13 e1 d1 c9 e5 c5 e5 ┆r *ø ø å ##"ø ┆ 0x2b4e0…2b500 2a 4b 14 44 4d 0b 0b e1 cd 64 11 09 23 c5 44 4d 2a 4b 14 eb e1 3e 02 3c e2 08 13 7e 12 2b 1b 0b ┆*K DM d # DM*K > < ü + ┆ 0x2b500…2b520 (21, 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 ┆ ┆ […0x7…] 0x2b600…2b700 (21, 1, 7) DataBlock {»CLIB.COM«} […0x1…] 0x2b800…2b820 (21, 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…] 0x2ba00…2bb00 (21, 1, 11) DataBlock {»CLIB.COM«} […0x1…] 0x2bc00…2bc20 (21, 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…] 0x2be00…2bf00 (21, 1, 15) DataBlock {»CLIB.COM«} […0xc…] 0x2ca80…2caa0 1c 0e 21 5c 00 cd 8d 0b 3a 2b 15 cd e0 0a 36 00 2a 00 15 cd 8d 0b af 32 29 15 2a 00 15 cd e6 14 ┆ !Ø :+ 6 * 2) * ┆ 0x2caa0…2cac0 21 65 00 36 42 0e 13 11 5c 00 cd 05 00 21 65 00 36 43 21 75 00 36 42 0e 17 11 5c 00 cd 05 00 21 ┆!e 6B Ø !e 6C!u 6B Ø !┆ 0x2cac0…2cae0 65 00 36 24 23 36 24 23 36 24 21 75 00 36 43 11 5c 00 0e 17 cd 05 00 c9 c5 06 0c 1a 77 23 13 05 ┆e 6$#6$#6$!u 6C Ø w# ┆ 0x2cae0…2cb00 c2 db 14 2b c1 c9 11 5d 00 01 6d 00 3e 0b e5 23 f5 7e 12 02 23 03 13 f1 3d c2 f0 14 e1 c9 fe 03 ┆ + Å m > # ü # = ┆ 0x2cb00…2cb20 (22, 0, 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 ┆ ┆ […0x7…] 0x2cc00…2cd00 (22, 0, 13) DataBlock {»CLIB.COM«} […0x1…] 0x2ce00…2ce20 (22, 0, 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…] 0x2d000…2d100 (22, 1, 1) DataBlock {»CONVERT.C«} […0xa…] 0x2db00…2db20 (22, 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 ┆ ┆ […0x7…] 0x2dc00…2dd00 (22, 1, 13) DataBlock {»CONVERT.C«} […0x1…] 0x2de00…2de20 (22, 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…] 0x2e000…2e100 (23, 0, 1) DataBlock {»DEFF2.CSM«} […0x51…] 0x33200…33300 (25, 1, 3) DataBlock {»DEFF2A.CSM«} […0x1…] 0x33400…33500 (25, 1, 5) DataBlock {»DEFF2.CSM«} […0x1…] 0x33600…33700 (25, 1, 7) DataBlock {»DEFF2A.CSM«} […0x1…] 0x33800…33900 (25, 1, 9) DataBlock {»DEFF2.CSM«} 0x33900…33920 (25, 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 ┆ ┆ […0x7…] 0x33a00…33b00 (25, 1, 11) DataBlock {»DEFF2A.CSM«} […0x1…] 0x33c00…33c20 (25, 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…] 0x33e00…33f00 (25, 1, 15) DataBlock {»DEFF2A.CSM«} […0x23…] 0x36200…36300 (27, 0, 3) DataBlock {»DIO.C«} […0x1…] 0x36400…36500 (27, 0, 5) DataBlock {»DEFF2A.CSM«} 0x36500…36520 (27, 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 ┆ ┆ […0x7…] 0x36600…36700 (27, 0, 7) DataBlock {»DIO.C«} […0x1…] 0x36800…36820 (27, 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 ┆ ┆ […0xf…] 0x36a00…36b00 (27, 0, 11) DataBlock {»DIO.C«} […0x1…] 0x36c00…36c20 (27, 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 ┆ ┆ […0xf…] 0x36e00…36f00 (27, 0, 15) DataBlock {»DIO.C«} […0x14…] 0x38300…38320 (28, 0, 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 ┆ ┆ […0x7…] 0x38400…38500 (28, 0, 5) DataBlock {»DIO.C«} […0x1…] 0x38600…38620 (28, 0, 7) 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…] 0x38800…38900 (28, 0, 9) DataBlock {»DIO.C«} […0x1…] 0x38a00…38a20 (28, 0, 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…] 0x38c00…38d00 (28, 0, 13) DataBlock {»DIO.C«} […0x1…] 0x38e00…38e20 (28, 0, 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…] 0x39000…39100 (28, 1, 1) DataBlock {»DIO.H«} […0x1…] 0x39200…39300 (28, 1, 3) DataBlock {»FLOAT.C«} […0x1…] 0x39400…39500 (28, 1, 5) DataBlock {»DIO.H«} […0x1…] 0x39580…395a0 75 73 65 64 20 66 6f 72 20 0d 0a 09 09 09 09 09 20 20 20 6e 6f 6e 2d 64 69 72 65 63 74 65 64 20 ┆used for non-directed ┆ 0x395a0…395c0 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 09 20 20 20 2a 2f 0d 0a 63 68 61 72 20 2a 5f 63 6f 6e ┆standard input */ char *_con┆ 0x395c0…395e0 62 75 66 70 3b 09 09 09 09 2f 2a 20 70 6f 69 6e 74 65 72 20 74 6f 20 6e 65 78 74 20 63 68 61 72 ┆bufp; /* pointer to next char┆ 0x395e0…39600 61 63 74 65 72 20 74 6f 0d 0a 09 09 09 09 09 09 72 65 61 64 20 66 72 6f 6d 20 63 6f 6e 73 6f 6c ┆acter to read from consol┆ 0x39600…39700 (28, 1, 7) DataBlock {»FLOAT.C«} […0x1…] 0x39800…39820 (28, 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…] 0x39a00…39b00 (28, 1, 11) DataBlock {»FLOAT.C«} […0x1…] 0x39c00…39c20 (28, 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…] 0x39e00…39f00 (28, 1, 15) DataBlock {»FLOAT.C«} […0x13…] 0x3b200…3b300 (29, 1, 3) DataBlock {»FLOAT.DOC«} […0x1…] 0x3b400…3b480 (29, 1, 5) DataBlock {»FLOAT.C«} 0x3b480…3b4a0 3b 0d 0a 0d 0a 09 09 09 20 20 20 77 68 69 6c 65 20 28 2a 6c 69 6e 65 20 3d 20 2a 77 70 74 72 2b ┆; while (*line = *wptr+┆ 0x3b4a0…3b4c0 2b 29 0d 0a 09 09 09 09 6c 69 6e 65 2b 2b 3b 0d 0a 0d 0a 09 09 09 20 20 20 69 66 20 28 6c 6a 66 ┆+) line++; if (ljf┆ 0x3b4c0…3b4e0 6c 61 67 29 0d 0a 09 09 09 09 77 68 69 6c 65 20 28 77 69 64 74 68 2d 2d 20 3e 20 30 29 0d 0a 09 ┆lag) while (width-- > 0) ┆ 0x3b4e0…3b500 09 09 09 09 2a 6c 69 6e 65 2b 2b 20 3d 20 27 20 27 3b 0d 0a 09 09 09 20 20 20 62 72 65 61 6b 3b ┆ *line++ = ' '; break;┆ 0x3b500…3b520 (29, 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 ┆ ┆ […0x7…] 0x3b600…3b700 (29, 1, 7) DataBlock {»FLOAT.DOC«} […0x1…] 0x3b800…3b820 (29, 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…] 0x3ba00…3bb00 (29, 1, 11) DataBlock {»FLOAT.DOC«} […0x1…] 0x3bc00…3bc20 (29, 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…] 0x3be00…3bf00 (29, 1, 15) DataBlock {»FLOAT.DOC«} […0x10…] 0x3cf00…3cf20 (30, 0, 16) 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 ┆ ┆ […0x7…] 0x3d000…3d100 (30, 1, 1) DataBlock {»FLOATSUM.C«} […0x1…] 0x3d200…3d300 (30, 1, 3) DataBlock {»LPR.C«} […0x1…] 0x3d400…3d500 (30, 1, 5) DataBlock {»FLOATSUM.C«} 0x3d500…3d520 (30, 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 ┆ ┆ […0x7…] 0x3d600…3d700 (30, 1, 7) DataBlock {»LPR.C«} […0x1…] 0x3d800…3d820 (30, 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…] 0x3da00…3db00 (30, 1, 11) DataBlock {»LPR.C«} […0x1…] 0x3dc00…3dc20 (30, 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…] 0x3de00…3df00 (30, 1, 15) DataBlock {»LPR.C«} […0x3…] 0x3e200…3e300 (31, 0, 3) DataBlock {»LPRINTF.C«} […0x1…] 0x3e400…3e420 (31, 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…] 0x3e600…3e700 (31, 0, 7) DataBlock {»LPRINTF.C«} […0x1…] 0x3e780…3e7a0 0d 0a 2a 2f 0d 0a 0d 0a 6c 70 75 74 73 28 73 74 72 29 0d 0a 63 68 61 72 20 2a 73 74 72 3b 0d 0a ┆ */ lputs(str) char *str; ┆ 0x3e7a0…3e7c0 7b 0d 0a 09 63 68 61 72 20 63 3b 0d 0a 09 77 68 69 6c 65 20 28 63 20 3d 20 2a 73 74 72 2b 2b 29 ┆æ char c; while (c = *str++)┆ 0x3e7c0…3e7e0 20 7b 0d 0a 09 09 69 66 20 28 63 20 3d 3d 20 27 5c 6e 27 29 20 70 75 74 63 28 27 5c 72 27 2c 4c ┆ æ if (c == 'Øn') putc('Ør',L┆ 0x3e7e0…3e800 49 53 54 44 45 56 29 3b 0d 0a 09 09 70 75 74 63 28 63 2c 4c 49 53 54 44 45 56 29 3b 0d 0a 09 7d ┆ISTDEV); putc(c,LISTDEV); å┆ 0x3e800…3e820 (31, 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 ┆ ┆ […0x3f…] 0x3f000…3f100 (31, 1, 1) DataBlock {»NOBOOT.C«} […0x2…] 0x3f280…3f2a0 66 64 2c 30 2c 30 29 3b 0d 0a 09 69 66 20 28 77 72 69 74 65 28 66 64 2c 77 6f 72 6b 62 75 66 2b ┆fd,0,0); if (write(fd,workbuf+┆ 0x3f2a0…3f2c0 30 78 31 30 30 2c 38 29 20 21 3d 20 38 29 20 7b 0d 0a 09 09 70 75 74 73 28 22 57 72 69 74 65 20 ┆0x100,8) != 8) æ puts("Write ┆ 0x3f2c0…3f2e0 65 72 72 6f 72 2e 5c 6e 22 29 3b 0d 0a 09 09 65 78 69 74 28 29 3b 0d 0a 09 7d 0d 0a 0d 0a 09 69 ┆error.Øn"); exit(); å i┆ 0x3f2e0…3f300 66 20 28 63 6c 6f 73 65 28 66 64 29 20 3d 3d 20 45 52 52 4f 52 29 20 7b 0d 0a 09 09 70 75 74 73 ┆f (close(fd) == ERROR) æ puts┆ 0x3f300…3f320 (31, 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 ┆ ┆ […0x7…] 0x3f400…3f500 (31, 1, 5) DataBlock {»NOBOOT.C«} […0x1…] 0x3f600…3f620 (31, 1, 7) 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…] 0x3f800…3f900 (31, 1, 9) DataBlock {»NOBOOT.C«} […0x1…] 0x3fa00…3fa20 (31, 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…] 0x3fc00…3fd00 (31, 1, 13) DataBlock {»NOBOOT.C«} […0x1…] 0x3fe00…3fe20 (31, 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…] 0x40000…40100 (32, 0, 1) DataBlock {»OTHELLO.C«} […0x23…] 0x42380…423a0 09 69 6e 74 20 69 3b 0d 0a 09 69 3d 36 34 3b 0d 0a 09 77 68 69 6c 65 20 28 69 2d 2d 29 0d 0a 09 ┆ int i; i=64; while (i--) ┆ 0x423a0…423c0 09 2a 61 2b 2b 20 3d 20 2a 62 2b 2b 3b 0d 0a 7d 0d 0a 0d 0a 63 6e 74 62 72 64 28 62 2c 70 29 0d ┆ *a++ = *b++; å cntbrd(b,p) ┆ 0x423c0…423e0 0a 63 68 61 72 20 2a 62 2c 20 70 3b 0d 0a 7b 0d 0a 09 69 6e 74 20 69 2c 6a 3b 0d 0a 09 69 3d 20 ┆ char *b, p; æ int i,j; i= ┆ 0x423e0…42400 36 34 3b 20 6a 3d 30 3b 0d 0a 09 77 68 69 6c 65 20 28 69 2d 2d 29 0d 0a 09 09 69 66 20 28 2a 62 ┆64; j=0; while (i--) if (*b┆ 0x42400…42500 (33, 0, 5) DataBlock {»OTHELLO.C«} […0x1…] 0x42600…42620 (33, 0, 7) 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…] 0x42800…42900 (33, 0, 9) DataBlock {»OTHELLO.C«} […0x1…] 0x42a00…42a20 (33, 0, 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…] 0x42c00…42d00 (33, 0, 13) DataBlock {»OTHELLO.C«} […0x1…] 0x42e00…42e20 (33, 0, 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…] 0x43000…43100 (33, 1, 1) DataBlock {»READ.ME«} […0x5…] 0x43600…43620 (33, 1, 7) 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…] 0x43800…43900 (33, 1, 9) DataBlock {»READ.ME«} […0x1…] 0x43a00…43a20 (33, 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…] 0x43c00…43d00 (33, 1, 13) DataBlock {»READ.ME«} […0x1…] 0x43e00…43e20 (33, 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…] 0x44000…44100 (34, 0, 1) DataBlock {»SIEVE.C«} […0x1…] 0x44200…44300 (34, 0, 3) DataBlock {»STDLIB1.C«} […0x1…] 0x44400…44500 (34, 0, 5) DataBlock {»SIEVE.C«} […0x1…] 0x44600…44700 (34, 0, 7) DataBlock {»STDLIB1.C«} […0x1…] 0x44800…44820 (34, 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 ┆ ┆ […0xf…] 0x44a00…44b00 (34, 0, 11) DataBlock {»STDLIB1.C«} […0x1…] 0x44c00…44c20 (34, 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 ┆ ┆ […0xf…] 0x44e00…44f00 (34, 0, 15) DataBlock {»STDLIB1.C«} […0x13…] 0x46200…46300 (35, 0, 3) DataBlock {»STDLIB2.C«} […0x1…] 0x46400…46500 (35, 0, 5) DataBlock {»STDLIB1.C«} […0x1…] 0x46600…46700 (35, 0, 7) DataBlock {»STDLIB2.C«} […0x1…] 0x46800…46900 (35, 0, 9) DataBlock {»STDLIB1.C«} […0x1…] 0x46a00…46b00 (35, 0, 11) DataBlock {»STDLIB2.C«} […0x1…] 0x46c00…46d00 (35, 0, 13) DataBlock {»STDLIB1.C«} […0x1…] 0x46d80…46da0 6f 20 77 72 61 70 20 74 68 69 6e 67 73 20 75 70 3a 0d 0a 2a 2f 0d 0a 0d 0a 69 6e 74 20 61 62 73 ┆o wrap things up: */ int abs┆ 0x46da0…46dc0 28 6e 29 0d 0a 7b 0d 0a 09 72 65 74 75 72 6e 20 28 6e 3c 30 29 20 3f 20 2d 6e 20 3a 20 6e 3b 0d ┆(n) æ return (n<0) ? -n : n; ┆ 0x46dc0…46de0 0a 7d 0d 0a 0d 0a 69 6e 74 20 6d 61 78 28 61 2c 62 29 0d 0a 7b 0d 0a 09 72 65 74 75 72 6e 20 28 ┆ å int max(a,b) æ return (┆ 0x46de0…46e00 61 20 3e 20 62 29 20 3f 20 61 20 3a 20 62 3b 0d 0a 7d 0d 0a 0d 0a 69 6e 74 20 6d 69 6e 28 61 2c ┆a > b) ? a : b; å int min(a,┆ 0x46e00…46f00 (35, 0, 15) DataBlock {»STDLIB2.C«} […0x13…] 0x48200…48300 (36, 0, 3) DataBlock {»TELNET.C«} […0x1…] 0x48400…48420 (36, 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…] 0x48600…48700 (36, 0, 7) DataBlock {»TELNET.C«} […0x1…] 0x48800…48820 (36, 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 ┆ ┆ […0xf…] 0x48a00…48b00 (36, 0, 11) DataBlock {»TELNET.C«} […0x1…] 0x48c00…48c20 (36, 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 ┆ ┆ […0xf…] 0x48e00…48f00 (36, 0, 15) DataBlock {»TELNET.C«} […0x43…] 0x4d200…4d300 (38, 1, 3) DataBlock {»WILDEXP.C«} […0x1…] 0x4d400…4d500 (38, 1, 5) DataBlock {»TELNET.C«} […0x1…] 0x4d600…4d700 (38, 1, 7) DataBlock {»WILDEXP.C«} […0x1…] 0x4d800…4d900 (38, 1, 9) DataBlock {»TELNET.C«} […0x1…] 0x4da00…4db00 (38, 1, 11) DataBlock {»WILDEXP.C«} […0x1…] 0x4dc00…4dd00 (38, 1, 13) DataBlock {»TELNET.C«} […0x1…] 0x4dd80…4dda0 0d 0a 09 20 7d 0d 0a 09 72 65 74 75 72 6e 20 69 3b 0d 0a 7d 0d 0a 0d 0a 74 61 62 6f 72 74 28 29 ┆ å return i; å tabort()┆ 0x4dda0…4ddc0 0d 0a 7b 0d 0a 09 69 66 20 28 63 68 66 6c 61 67 29 20 20 77 68 69 6c 65 20 28 62 63 6f 75 6e 74 ┆ æ if (chflag) while (bcount┆ 0x4ddc0…4dde0 2b 2b 20 21 3d 20 31 33 33 29 20 6f 75 74 6d 6f 64 28 45 54 58 29 3b 0d 0a 09 70 72 69 6e 74 66 ┆++ != 133) outmod(ETX); printf┆ 0x4dde0…4de00 28 22 5c 6e 54 72 61 6e 73 6d 69 73 73 69 6f 6e 20 6f 66 20 25 73 20 61 62 6f 72 74 65 64 2e 5c ┆("ØnTransmission of %s aborted.Ø┆ 0x4de00…4df00 (38, 1, 15) DataBlock {»WILDEXP.C«} […0x8…] 0x4e700…4e720 (39, 0, 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 ┆ ┆ […0x7…] 0x4e800…4e900 (39, 0, 9) DataBlock {»WILDEXP.C«} […0x1…] 0x4ea00…4ea20 (39, 0, 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…] 0x4ec00…4ed00 (39, 0, 13) DataBlock {»WILDEXP.C«} […0x1…] 0x4ee00…4ee20 (39, 0, 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…] 0x4f000…4f100 (39, 1, 1) DataBlock {»F80.COM«} […0x66…] 0x55680…556a0 54 41 44 00 00 00 00 1d 05 32 4e 41 54 41 44 00 00 00 00 1d 06 44 4f 4d 44 00 00 00 00 1d 04 30 ┆TAD 2NATAD DOMD 0┆ 0x556a0…556c0 49 24 00 00 00 00 0d 03 31 49 24 00 00 00 00 0d 03 32 49 24 00 00 00 00 0d 03 34 49 24 00 00 00 ┆I$ 1I$ 2I$ 4I$ ┆ 0x556c0…556e0 00 0d 03 33 49 24 00 00 00 00 0d 03 31 58 41 4d 44 00 00 00 00 1d 05 31 4e 49 4d 44 00 00 00 00 ┆ 3I$ 1XAMD 1NIMD ┆ 0x556e0…55700 1d 05 30 4e 49 4d 41 00 00 00 00 0d 05 31 4e 49 4d 41 00 00 00 00 0d 05 30 4e 49 4d 00 00 00 00 ┆ 0NIMA 1NIMA 0NIM ┆ 0x55700…55720 (42, 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 ┆ ┆ […0x7…] 0x55800…55900 (42, 1, 9) DataBlock {»F80.COM«} […0x1…] 0x55a00…55a20 (42, 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…] 0x55c00…55d00 (42, 1, 13) DataBlock {»F80.COM«} […0x1…] 0x55e00…55e20 (42, 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…] 0x56000…56100 (43, 0, 1) DataBlock {»FORLIB.REL«} […0x61…] 0x5c200…5c300 (46, 0, 3) DataBlock {»L80.COM«} […0x1…] 0x5c400…5c500 (46, 0, 5) DataBlock {»FORLIB.REL«} […0x1…] 0x5c600…5c700 (46, 0, 7) DataBlock {»L80.COM«} […0x1…] 0x5c800…5c900 (46, 0, 9) DataBlock {»FORLIB.REL«} […0x1…] 0x5ca00…5cb00 (46, 0, 11) DataBlock {»L80.COM«} […0x1…] 0x5cc00…5cd00 (46, 0, 13) DataBlock {»FORLIB.REL«} […0x1…] 0x5cd80…5cda0 a8 84 8c 6f 1e 08 00 c4 88 8a 88 48 c7 11 e1 00 0c 48 88 a8 84 8c 83 1d 00 00 c4 88 c9 ea 49 89 ┆ o H H I ┆ 0x5cda0…5cdc0 d1 d0 20 0c 48 aa 8c 9a 98 9d 38 00 00 9e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ H 8 ┆ 0x5cdc0…5cde0 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…] 0x5ce00…5cf00 (46, 0, 15) DataBlock {»L80.COM«} […0x23…] 0x5f200…5f300 (47, 1, 3) DataBlock {»LIB80.COM«} […0x1…] 0x5f400…5f420 (47, 1, 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…] 0x5f600…5f700 (47, 1, 7) DataBlock {»LIB80.COM«} […0x1…] 0x5f800…5f820 (47, 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…] 0x5fa00…5fb00 (47, 1, 11) DataBlock {»LIB80.COM«} […0x1…] 0x5fc00…5fc20 (47, 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…] 0x5fe00…5ff00 (47, 1, 15) DataBlock {»LIB80.COM«} […0x8…] 0x60680…606a0 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 ┆ ┆ […0x3…] 0x60700…60720 (48, 0, 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 ┆ ┆ […0x7…] 0x60800…60900 (48, 0, 9) DataBlock {»LIB80.COM«} […0x1…] 0x60a00…60a20 (48, 0, 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…] 0x60c00…60d00 (48, 0, 13) DataBlock {»LIB80.COM«} […0x1…] 0x60e00…60e20 (48, 0, 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…] 0x61000…61100 (48, 1, 1) DataBlock {»M80.COM«} […0x4e…] 0x65e80…65ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 e5 d5 c5 eb 21 e9 4d 13 1a 1b fe 3a 3e 00 c2 a8 4e 1a 13 ┆ ! M :> N ┆ 0x65ea0…65ec0 d6 40 fe 1b d2 0c 4f 13 77 23 06 08 1a 13 32 7f 40 fe 2e ca d3 4e fe 21 da d3 4e 77 23 05 c2 ac ┆ @ O w# 2 @ . N ! Nw# ┆ 0x65ec0…65ee0 4e 1a 13 32 7f 40 fe 2e ca da 4e fe 21 d2 c1 4e c3 da 4e 36 20 23 05 c2 d3 4e 06 03 3a 7f 40 fe ┆N 2 @ . N ! N N6 # N : @ ┆ 0x65ee0…65f00 2e ca e7 4e 11 06 01 1a 13 77 23 05 c2 e7 4e 70 11 0d 4e 0e 1a cd 05 00 11 e9 4d 0e 0f cd 05 00 ┆. N w# Np N M ┆ 0x65f00…65f20 (50, 1, 16) 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 ┆ ┆ […0x7…] 0x66000…66100 (51, 0, 1) DataBlock {»DI.COM«} […0x6…] 0x66700…66720 (51, 0, 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 ┆ ┆ […0x7…] 0x66800…66900 (51, 0, 9) DataBlock {»DI.COM«} […0x1…] 0x66a00…66a20 (51, 0, 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…] 0x66c00…66d00 (51, 0, 13) DataBlock {»DI.COM«} […0x1…] 0x66e00…66e20 (51, 0, 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…] 0x67000…67100 (51, 1, 1) DataBlock {»DIS8080.COM«} […0x42…] 0x6b280…6b2a0 11 ff ff 21 00 00 c9 e1 c1 d1 e5 cd 12 48 e1 d5 e9 e1 c1 d1 e5 cd 12 48 e3 e9 d1 c1 e1 d5 cd bf ┆ ! H H ┆ 0x6b2a0…6b2c0 47 eb e3 e9 d1 c1 e1 d5 cd bf 47 e3 e9 e1 c1 d1 e3 c3 b9 48 e1 c1 d1 e3 eb 78 b1 ca c8 48 7e 12 ┆G G H x Hü ┆ 0x6b2c0…6b2e0 23 13 0b 78 b1 c2 be 48 eb c9 e1 c1 d1 e3 eb c3 d6 48 e1 c1 d1 e3 78 b1 ca ea 48 09 2b eb 09 2b ┆# x H H x H + +┆ 0x6b2e0…6b300 7e 12 2b 1b 0b 78 b1 c2 e0 48 eb c9 e1 c1 d1 e3 7b b2 c8 71 23 1b 7b b2 c2 f3 48 c9 c1 e1 e1 c5 ┆ü + x H æ q# æ H ┆ 0x6b300…6b320 (53, 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 ┆ ┆ […0x7…] 0x6b400…6b500 (53, 1, 5) DataBlock {»DIS8080.COM«} […0x1…] 0x6b600…6b620 (53, 1, 7) 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…] 0x6b800…6b900 (53, 1, 9) DataBlock {»DIS8080.COM«} […0x1…] 0x6ba00…6ba20 (53, 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…] 0x6bc00…6bd00 (53, 1, 13) DataBlock {»DIS8080.COM«} […0x1…] 0x6be00…6be20 (53, 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…] 0x6c000…6c100 (54, 0, 1) DataBlock {»FPREALS.ERL«} […0x1d…] 0x6de00…6de20 (54, 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…] 0x6e000…6e100 (55, 0, 1) DataBlock {»FULLHEAP.ERL«} […0x3…] 0x6e380…6e3a0 0b 07 10 80 00 07 d1 96 78 00 61 d1 d0 76 6d 12 00 15 67 60 07 28 ab 3a 00 39 44 39 e0 01 ca cd ┆ x a vm g` ( : 9D9 ┆ 0x6e3a0…6e3c0 a4 20 02 1c 00 00 e5 1d 67 80 01 30 00 de 7d 17 9b dd 6e 13 9b 26 33 0c 0d 10 14 14 d5 23 32 20 ┆ g 0 å n &3 #2 ┆ 0x6e3c0…6e3e0 d1 01 41 31 12 32 ae 0b 10 11 54 52 63 3d a0 b1 01 39 15 26 33 1e 0b 10 11 54 55 63 24 80 71 01 ┆ A1 2 TRc= 9 &3 TUc$ q ┆ 0x6e3e0…6e400 39 15 56 33 ce 0d 10 11 d5 15 63 22 a0 d1 01 31 4d 56 33 d8 09 10 11 d1 55 63 3b 00 d1 01 55 11 ┆9 V3 c" 1MV3 Uc; U ┆ 0x6e400…6e500 (55, 0, 5) DataBlock {»FULLHEAP.ERL«} […0x1…] 0x6e600…6e620 (55, 0, 7) 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…] 0x6e800…6e900 (55, 0, 9) DataBlock {»FULLHEAP.ERL«} […0x1…] 0x6ea00…6ea20 (55, 0, 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…] 0x6ec00…6ed00 (55, 0, 13) DataBlock {»FULLHEAP.ERL«} […0x1…] 0x6ee00…6ee20 (55, 0, 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…] 0x6f000…6f080 (55, 1, 1) DataBlock {»IOCHK.BLD«} 0x6f080…6f0a0 e5 46 4c 4f 41 54 20 20 20 44 4f 43 00 00 00 2e 95 96 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ FLOAT DOC . ┆ 0x6f0a0…6f0c0 e5 54 45 4c 4e 45 54 20 20 43 20 20 01 00 00 1f 97 98 99 9a 9b 00 00 00 00 00 00 00 00 00 00 00 ┆ TELNET C ┆ 0x6f0c0…6f0e0 e5 4c 50 52 20 20 20 20 20 43 20 20 00 00 00 14 9c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ LPR C ┆ 0x6f0e0…6f100 e5 4c 50 52 49 4e 54 46 20 43 20 20 00 00 00 07 9d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ LPRINTF C ┆ 0x6f100…6f120 (55, 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 ┆ ┆ […0x7…] 0x6f200…6f300 (55, 1, 3) DataBlock {»LIBMT.COM«} […0x1…] 0x6f400…6f420 (55, 1, 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…] 0x6f600…6f700 (55, 1, 7) DataBlock {»LIBMT.COM«} […0x1…] 0x6f800…6f820 (55, 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…] 0x6fa00…6fb00 (55, 1, 11) DataBlock {»LIBMT.COM«} […0x1…] 0x6fc00…6fc20 (55, 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…] 0x6fe00…6ff00 (55, 1, 15) DataBlock {»LIBMT.COM«} […0x33…] 0x73200…73300 (57, 1, 3) DataBlock {»LINKMT.COM«} […0x1…] 0x73400…73500 (57, 1, 5) DataBlock {»LIBMT.COM«} […0x1…] 0x73600…73700 (57, 1, 7) DataBlock {»LINKMT.COM«} […0x1…] 0x73800…73900 (57, 1, 9) DataBlock {»LIBMT.COM«} 0x73900…73920 (57, 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 ┆ ┆ […0x7…] 0x73a00…73b00 (57, 1, 11) DataBlock {»LINKMT.COM«} […0x1…] 0x73c00…73c20 (57, 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…] 0x73e00…73f00 (57, 1, 15) DataBlock {»LINKMT.COM«} […0x23…] 0x76200…76300 (59, 0, 3) DataBlock {»MTERRS.TXT«} […0x1…] 0x76400…76500 (59, 0, 5) DataBlock {»LINKMT.COM«} […0x1…] 0x76600…76700 (59, 0, 7) DataBlock {»MTERRS.TXT«} […0x1…] 0x76800…76900 (59, 0, 9) DataBlock {»LINKMT.COM«} 0x76900…76920 (59, 0, 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 ┆ ┆ […0x7…] 0x76a00…76b00 (59, 0, 11) DataBlock {»MTERRS.TXT«} […0x1…] 0x76c00…76c20 (59, 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 ┆ ┆ […0xf…] 0x76e00…76f00 (59, 0, 15) DataBlock {»MTERRS.TXT«} […0x8…] 0x77700…77720 (59, 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 ┆ ┆ […0x7…] 0x77800…77900 (59, 1, 9) DataBlock {»MTERRS.TXT«} […0x1…] 0x77a00…77a20 (59, 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…] 0x77c00…77d00 (59, 1, 13) DataBlock {»MTERRS.TXT«} […0x1…] 0x77e00…77e20 (59, 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…] 0x78000…78100 (60, 0, 1) DataBlock {»MTPLUS.000«} […0x31…] 0x7b200…7b300 (61, 1, 3) DataBlock {»MTPLUS.001«} […0x1…] 0x7b400…7b420 (61, 1, 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…] 0x7b600…7b700 (61, 1, 7) DataBlock {»MTPLUS.001«} […0x1…] 0x7b800…7b820 (61, 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…] 0x7ba00…7bb00 (61, 1, 11) DataBlock {»MTPLUS.001«} […0x1…] 0x7bc00…7bc20 (61, 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…] 0x7be00…7bf00 (61, 1, 15) DataBlock {»MTPLUS.001«} […0x23…] 0x7e200…7e300 (63, 0, 3) DataBlock {»MTPLUS.002«} […0x1…] 0x7e400…7e420 (63, 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…] 0x7e600…7e700 (63, 0, 7) DataBlock {»MTPLUS.002«} […0x1…] 0x7e800…7e820 (63, 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 ┆ ┆ […0xf…] 0x7ea00…7eb00 (63, 0, 11) DataBlock {»MTPLUS.002«} […0x1…] 0x7ec00…7ec20 (63, 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 ┆ ┆ […0xf…] 0x7ee00…7ef00 (63, 0, 15) DataBlock {»MTPLUS.002«} […0x13…] 0x80200…80300 (64, 0, 3) DataBlock {»MTPLUS.003«} […0x1…] 0x80400…80500 (64, 0, 5) DataBlock {»MTPLUS.002«} […0x1…] 0x80580…805a0 24 10 58 08 14 a8 16 f1 40 20 24 10 50 08 13 a8 16 f1 40 20 24 10 58 08 12 a8 02 2c 10 30 31 32 ┆$ X @ $ P @ $ X , 012┆ 0x805a0…805c0 33 34 35 36 37 38 39 41 42 43 44 45 46 dc 01 24 10 c0 a8 02 00 15 40 20 25 41 90 a2 60 30 f0 f0 ┆3456789ABCDEF $ @ %A `0 ┆ 0x805c0…805e0 a2 74 32 a8 02 00 14 40 20 f0 f0 a2 74 32 a8 02 00 13 40 20 f0 f0 a2 74 32 a8 02 00 12 40 20 f0 ┆ t2 @ t2 @ t2 @ ┆ 0x805e0…80600 f0 a2 74 32 a6 cd 2a 16 02 00 a2 8a 2c 09 00 a2 90 2c 25 00 77 25 00 77 21 dd 01 29 25 02 77 25 ┆ t2 * , ,% w% w! )% w%┆ 0x80600…80700 (64, 0, 7) DataBlock {»MTPLUS.003«} […0x1…] 0x80800…80820 (64, 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 ┆ ┆ […0xf…] 0x80a00…80b00 (64, 0, 11) DataBlock {»MTPLUS.003«} […0x1…] 0x80c00…80c20 (64, 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 ┆ ┆ […0xf…] 0x80e00…80f00 (64, 0, 15) DataBlock {»MTPLUS.003«} […0x13…] 0x82200…82300 (65, 0, 3) DataBlock {»MTPLUS.004«} […0x1…] 0x82400…82500 (65, 0, 5) DataBlock {»MTPLUS.003«} […0x1…] 0x82600…82700 (65, 0, 7) DataBlock {»MTPLUS.004«} […0x1…] 0x82800…82900 (65, 0, 9) DataBlock {»MTPLUS.003«} […0x1…] 0x82980…829a0 1f d2 87 4f c3 de 4f 21 01 00 e5 2a a1 92 16 00 5e d5 d1 e1 2b 22 a3 92 23 e5 d5 cd ea 2b 22 c5 ┆ O O! * ^ +" # +" ┆ 0x829a0…829c0 92 2a a3 92 23 22 a3 92 2a c5 92 2b 22 c5 92 7c b5 ca d7 4f 2a a1 92 eb 2a a3 92 19 16 00 5e d5 ┆ * #" * +" ø O* * ^ ┆ 0x829c0…829e0 21 a5 92 e5 cd e6 4f cd 35 2d e1 7d 2f 1f d2 d4 4f c3 de 4f c3 a1 4f 21 01 00 7d 32 9d 92 3a 9d ┆! O 5- å/ O O O! å2 : ┆ 0x829e0…82a00 92 26 00 6f e3 e9 e1 22 c7 92 d1 21 e0 ff 39 f9 e5 d5 01 20 00 c5 cd 2c 32 2a c7 92 e9 e1 22 c7 ┆ & o " ! 9 ,2* " ┆ 0x82a00…82b00 (65, 0, 11) DataBlock {»MTPLUS.004«} […0x1…] 0x82c00…82c20 (65, 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 ┆ ┆ […0xf…] 0x82e00…82f00 (65, 0, 15) DataBlock {»MTPLUS.004«} […0x3b…] 0x86a00…86a20 (67, 0, 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…] 0x86c00…86d00 (67, 0, 13) DataBlock {»MTPLUS.004«} […0x1…] 0x86e00…86e20 (67, 0, 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…] 0x87000…87100 (67, 1, 1) DataBlock {»MTPLUS.005«} […0x1e…] 0x88e80…88ea0 e5 c3 fa 4c cd 60 4f e5 c3 fa 4c 4e 23 7e 23 22 d2 92 87 5f 16 00 21 af 92 19 5e 23 56 eb 09 e5 ┆ L `O LN#ü#" _ ! ^#V ┆ 0x88ea0…88ec0 c3 fa 4c 4e 23 46 23 c3 8d 50 4e 23 06 00 eb e1 09 e5 eb e9 eb e1 c1 09 e5 eb e9 e1 d1 7b 95 6f ┆ LN#F# PN# æ o┆ 0x88ec0…88ee0 7a 9c 67 e5 2a d2 92 e9 cd bd 32 2a d2 92 e9 79 fe 20 ca f8 50 fe 21 ca ff 50 fe 23 ca 07 51 e6 ┆z g * 2* y P ! P # Q ┆ 0x88ee0…88f00 0f 3c 2f 3c 6f 26 ff d1 39 f9 e5 d5 2f 3c 6f 26 00 e5 cd 2c 32 c3 fa 4c d1 1a 5f 16 00 d5 e9 eb ┆ </<o& 9 /<o& ,2 L _ ┆ 0x88f00…88f20 (68, 0, 16) 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 ┆ ┆ […0x7…] 0x89000…89100 (68, 1, 1) DataBlock {»MTPLUS.006«} […0x11…] 0x8a200…8a300 (69, 0, 3) DataBlock {»MTPLUS.COM«} […0x1…] 0x8a400…8a500 (69, 0, 5) DataBlock {»MTPLUS.006«} […0x1…] 0x8a600…8a700 (69, 0, 7) DataBlock {»MTPLUS.COM«} […0x1…] 0x8a800…8a900 (69, 0, 9) DataBlock {»MTPLUS.006«} […0x1…] 0x8aa00…8ab00 (69, 0, 11) DataBlock {»MTPLUS.COM«} […0x1…] 0x8ac00…8ad00 (69, 0, 13) DataBlock {»MTPLUS.006«} 0x8ad00…8ad20 (69, 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 ┆ ┆ […0x7…] 0x8ae00…8af00 (69, 0, 15) DataBlock {»MTPLUS.COM«} […0x83…] 0x93200…93300 (73, 1, 3) DataBlock {»PASLIB.ERL«} […0x1…] 0x93400…93500 (73, 1, 5) DataBlock {»MTPLUS.COM«} 0x93500…93520 (73, 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 ┆ ┆ […0x7…] 0x93600…93700 (73, 1, 7) DataBlock {»PASLIB.ERL«} […0x1…] 0x93800…93820 (73, 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…] 0x93a00…93b00 (73, 1, 11) DataBlock {»PASLIB.ERL«} […0x1…] 0x93c00…93c20 (73, 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…] 0x93e00…93f00 (73, 1, 15) DataBlock {»PASLIB.ERL«} […0x53…] 0x99200…99300 (76, 1, 3) DataBlock {»RANDOMIO.ERL«} […0x1…] 0x99400…99500 (76, 1, 5) DataBlock {»PASLIB.ERL«} […0x1…] 0x99600…99700 (76, 1, 7) DataBlock {»RANDOMIO.ERL«} […0x1…] 0x99800…99900 (76, 1, 9) DataBlock {»PASLIB.ERL«} […0x1…] 0x99a00…99b00 (76, 1, 11) DataBlock {»RANDOMIO.ERL«} […0x1…] 0x99c00…99d00 (76, 1, 13) DataBlock {»PASLIB.ERL«} 0x99d00…99d20 (76, 1, 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 ┆ ┆ […0x7…] 0x99e00…99f00 (76, 1, 15) DataBlock {»RANDOMIO.ERL«} […0x3…] 0x9a200…9a300 (77, 0, 3) DataBlock {»ROVLMGR.ERL«} […0x1…] 0x9a400…9a500 (77, 0, 5) DataBlock {»RANDOMIO.ERL«} 0x9a500…9a520 (77, 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 ┆ ┆ […0x7…] 0x9a600…9a700 (77, 0, 7) DataBlock {»ROVLMGR.ERL«} […0x1…] 0x9a800…9a820 (77, 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 ┆ ┆ […0x3f…] 0x9b000…9b100 (77, 1, 1) DataBlock {»TRANCEND.ERL«} […0xa…] 0x9bb00…9bb20 (77, 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 ┆ ┆ […0x7…] 0x9bc00…9bd00 (77, 1, 13) DataBlock {»TRANCEND.ERL«} […0x1…] 0x9be00…9be20 (77, 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…] 0x9c000…9c100 (78, 0, 1) DataBlock {»UTILMOD.ERL«} […0x1…] 0x9c180…9c1a0 d0 00 01 c2 22 da 40 02 ad a4 00 22 c0 00 02 ac 00 00 e3 74 c7 41 80 3a 2a c2 a2 92 0a 1a a4 c4 ┆ " @ " t A :* ┆ 0x9c1a0…9c1c0 1c 01 9b 43 40 1c 22 2d a8 00 e1 11 6d 60 06 6d 18 00 15 6d 40 07 28 ab 6b 00 39 44 25 10 03 95 ┆ C@ "- m` m m@ ( k 9D% ┆ 0x9c1c0…9c1e0 9a 00 00 32 63 a1 20 1d 2d 15 65 41 49 15 4e 62 14 00 21 05 80 1c a2 10 00 01 ca cd ab 20 02 10 ┆ 2c - eAI Nb ! ┆ 0x9c1e0…9c200 00 01 ca cd 00 00 1c 27 d1 96 d8 00 1d 6d 80 01 30 00 de e3 74 c6 5a c0 22 02 82 9a a4 65 d8 02 ┆ ' m 0 t Z " e ┆ 0x9c200…9c300 (78, 0, 3) DataBlock {»XREF.DOC«} […0x1…] 0x9c400…9c420 (78, 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…] 0x9c600…9c700 (78, 0, 7) DataBlock {»XREF.DOC«} 0x9c700…9c720 (78, 0, 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 ┆ ┆ […0x47…] 0x9d000…9d020 (78, 1, 1) 28 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆(*==============================┆ 0x9d020…9d040 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆ 0x9d040…9d060 3d 3d 3d 3d 3d 3d 2a 29 0d 0a 28 2a 20 20 50 52 4f 47 52 41 4d 20 54 49 54 4c 45 3a 20 50 41 53 ┆======*) (* PROGRAM TITLE: PAS┆ 0x9d060…9d080 43 41 4c 20 43 52 4f 53 53 2d 52 45 46 45 52 45 4e 43 49 4e 47 20 50 52 4f 47 52 41 4d 20 20 20 ┆CAL CROSS-REFERENCING PROGRAM ┆ 0x9d080…9d0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 ┆ *) (* ┆ 0x9d0a0…9d0c0 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 ┆ ┆ 0x9d0c0…9d0e0 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 2a 29 0d 0a 28 2a ┆ *) (*┆ 0x9d0e0…9d100 20 20 50 52 4f 47 52 41 4d 20 46 49 4c 45 3a 20 58 52 45 46 2e 53 52 43 20 20 20 20 20 20 20 20 ┆ PROGRAM FILE: XREF.SRC ┆ 0x9d100…9d120 (78, 1, 2) 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 ┆ ┆ 0x9d120…9d140 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *) (* ┆ 0x9d140…9d160 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 ┆ ┆ 0x9d160…9d180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 4c 41 53 54 20 55 50 44 41 54 ┆ *) (* LAST UPDAT┆ 0x9d180…9d1a0 45 3a 20 20 30 39 2d 4d 41 52 2d 38 31 20 62 79 20 4d 69 6b 65 20 4c 65 68 6d 61 6e 20 20 20 20 ┆E: 09-MAR-81 by Mike Lehman ┆ 0x9d1a0…9d1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 09 09 ┆ *) (* ┆ 0x9d1c0…9d1e0 09 09 09 09 09 09 20 20 20 20 20 20 2a 29 0d 0a 28 2a 09 4e 4f 54 45 3a 20 54 48 49 53 20 50 52 ┆ *) (* NOTE: THIS PR┆ 0x9d1e0…9d200 4f 47 52 41 4d 20 57 41 53 20 4f 52 49 47 49 4e 41 4c 4c 59 20 57 52 49 54 54 45 4e 20 42 59 20 ┆OGRAM WAS ORIGINALLY WRITTEN BY ┆ 0x9d200…9d220 (78, 1, 3) 53 5d 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 ┆SÅ OF INTEGER; C┆ 0x9d220…9d240 41 53 45 20 52 45 46 54 59 50 45 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ASE REFTYPE OF ┆ 0x9d240…9d260 20 20 43 4f 55 4e 54 3a 20 28 52 45 46 4e 55 4d 3a 20 4e 55 4d 52 45 46 53 29 3b 0d 0a 20 20 20 ┆ COUNT: (REFNUM: NUMREFS); ┆ 0x9d260…9d280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 54 52 3a 20 28 4e 45 58 54 3a 20 49 54 45 4d 50 ┆ PTR: (NEXT: ITEMP┆ 0x9d280…9d2a0 54 52 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 42 55 46 ┆TR) END ; BUF┆ 0x9d2a0…9d2c0 46 45 52 20 3d 20 50 41 43 4b 45 44 20 41 52 52 41 59 5b 30 2e 2e 31 33 31 5d 20 4f 46 20 43 48 ┆FER = PACKED ARRAYÆ0..131Å OF CH┆ 0x9d2c0…9d2e0 41 52 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 20 20 54 4f 50 3a 20 49 4e 44 45 58 3b 20 20 20 20 20 ┆AR; VAR TOP: INDEX; ┆ 0x9d2e0…9d300 20 20 20 28 2a 54 4f 50 20 4f 46 20 43 48 41 49 4e 20 4c 49 4e 4b 49 4e 47 20 41 4c 4c 20 45 4e ┆ (*TOP OF CHAIN LINKING ALL EN┆ 0x9d300…9d320 (78, 1, 4) 54 52 49 45 53 20 49 4e 20 54 2a 29 0d 0a 20 20 20 20 49 2c 4c 49 4e 45 43 4f 55 4e 54 2c 42 55 ┆TRIES IN T*) I,LINECOUNT,BU┆ 0x9d320…9d340 46 43 55 52 53 4f 52 3a 20 49 4e 54 45 47 45 52 3b 20 20 20 20 20 20 20 20 28 2a 43 55 52 52 45 ┆FCURSOR: INTEGER; (*CURRE┆ 0x9d340…9d360 4e 54 20 4c 49 4e 45 20 4e 55 4d 42 45 52 2a 29 0d 0a 20 20 20 20 46 46 2c 43 48 3a 20 43 48 41 ┆NT LINE NUMBER*) FF,CH: CHA┆ 0x9d360…9d380 52 3b 20 20 20 20 20 20 20 20 20 20 28 2a 43 55 52 52 45 4e 54 20 43 48 41 52 20 53 43 41 4e 4e ┆R; (*CURRENT CHAR SCANN┆ 0x9d380…9d3a0 45 44 20 2a 29 0d 0a 20 20 20 20 42 55 46 2c 42 55 46 31 2c 42 55 46 32 3a 20 5e 42 55 46 46 45 ┆ED *) BUF,BUF1,BUF2: ^BUFFE┆ 0x9d3a0…9d3c0 52 3b 0d 0a 20 20 20 20 54 3a 20 41 52 52 41 59 20 5b 49 4e 44 45 58 5d 20 4f 46 20 57 4f 52 44 ┆R; T: ARRAY ÆINDEXÅ OF WORD┆ 0x9d3c0…9d3e0 3b 20 20 20 20 20 20 20 20 28 2a 48 41 53 48 20 54 41 42 4c 45 2a 29 0d 0a 20 20 20 20 4b 45 59 ┆; (*HASH TABLE*) KEY┆ 0x9d3e0…9d400 3a 20 41 52 52 41 59 20 5b 31 2e 2e 4e 4b 5d 20 4f 46 20 41 4c 46 41 3b 20 20 20 20 20 20 28 2a ┆: ARRAY Æ1..NKÅ OF ALFA; (*┆ 0x9d400…9d420 (78, 1, 5) 4e 2e 20 57 49 52 54 48 20 41 4e 44 20 20 20 20 20 2a 29 0d 0a 28 2a 09 41 44 41 50 54 45 44 20 ┆N. WIRTH AND *) (* ADAPTED ┆ 0x9d420…9d440 46 4f 52 20 55 43 53 44 20 50 41 53 43 41 4c 20 28 49 2e 34 20 2d 20 54 48 45 20 50 55 42 4c 49 ┆FOR UCSD PASCAL (I.4 - THE PUBLI┆ 0x9d440…9d460 43 20 44 4f 4d 41 49 4e 20 56 45 52 53 49 4f 4e 29 20 20 20 20 20 2a 29 0d 0a 28 2a 09 42 59 20 ┆C DOMAIN VERSION) *) (* BY ┆ 0x9d460…9d480 53 48 41 57 4e 20 46 41 4e 4e 49 4e 47 20 28 49 4e 20 31 39 37 38 29 20 41 4e 44 20 53 55 42 53 ┆SHAWN FANNING (IN 1978) AND SUBS┆ 0x9d480…9d4a0 45 51 55 45 4e 54 4c 59 20 41 44 41 50 54 45 44 20 46 4f 52 09 20 20 20 20 20 20 2a 29 0d 0a 28 ┆EQUENTLY ADAPTED FOR *) (┆ 0x9d4a0…9d4c0 2a 09 50 41 53 43 41 4c 2f 4d 54 2b 20 42 59 20 4d 49 4b 45 20 4c 45 48 4d 41 4e 20 28 49 4e 20 ┆* PASCAL/MT+ BY MIKE LEHMAN (IN ┆ 0x9d4c0…9d4e0 31 39 38 31 29 20 41 4e 44 20 49 53 20 41 20 50 55 42 4c 49 43 20 44 4f 4d 41 49 4e 20 20 20 20 ┆1981) AND IS A PUBLIC DOMAIN ┆ 0x9d4e0…9d500 2a 29 0d 0a 28 2a 09 50 52 4f 47 52 41 4d 2e 20 20 49 46 20 59 4f 55 20 4d 41 4b 45 20 52 45 56 ┆*) (* PROGRAM. IF YOU MAKE REV┆ 0x9d500…9d520 (78, 1, 6) 49 53 49 4f 4e 53 2c 20 45 54 43 2e 20 50 4c 45 41 53 45 20 4c 45 41 56 45 20 54 48 45 20 41 55 ┆ISIONS, ETC. PLEASE LEAVE THE AU┆ 0x9d520…9d540 54 48 4f 52 20 2a 29 0d 0a 28 2a 09 41 4e 44 20 4d 4f 44 49 46 49 45 52 53 20 4e 41 4d 45 20 49 ┆THOR *) (* AND MODIFIERS NAME I┆ 0x9d540…9d560 4e 20 54 48 45 20 53 4f 55 52 43 45 20 46 49 4c 45 2e 20 20 54 48 41 4e 4b 20 59 4f 55 2e 09 20 ┆N THE SOURCE FILE. THANK YOU. ┆ 0x9d560…9d580 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *) (* ┆ 0x9d580…9d5a0 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 ┆ ┆ 0x9d5a0…9d5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 50 52 4f 47 52 41 4d 20 53 ┆ *) (* PROGRAM S┆ 0x9d5c0…9d5e0 55 4d 4d 41 52 59 3a 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 ┆UMMARY: ┆ 0x9d5e0…9d600 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 2a 29 0d 0a 28 2a 20 ┆ *) (* ┆ 0x9d600…9d620 (78, 1, 7) 20 52 45 53 45 52 56 45 44 20 4b 45 59 57 4f 52 44 20 54 41 42 4c 45 20 2a 29 0d 0a 20 20 20 20 ┆ RESERVED KEYWORD TABLE *) ┆ 0x9d620…9d640 45 52 52 4f 52 2c 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 ┆ERROR, ┆ 0x9d640…9d660 20 28 2a 20 45 52 52 4f 52 20 46 4c 41 47 20 2a 29 0d 0a 20 20 20 20 4c 49 53 54 49 4e 47 3a 20 ┆ (* ERROR FLAG *) LISTING: ┆ 0x9d660…9d680 42 4f 4f 4c 45 41 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 4c 49 53 54 49 ┆BOOLEAN; (* LISTI┆ 0x9d680…9d6a0 4e 47 20 4f 50 54 49 4f 4e 20 2a 29 0d 0a 20 20 20 20 49 4e 46 49 4c 45 3a 20 54 45 58 54 3b 0d ┆NG OPTION *) INFILE: TEXT; ┆ 0x9d6a0…9d6c0 0a 20 20 20 20 4c 53 54 20 3a 20 54 45 58 54 3b 09 09 09 0d 0a 20 20 20 20 4c 53 54 46 49 4c 45 ┆ LST : TEXT; LSTFILE┆ 0x9d6c0…9d6e0 4e 41 4d 45 20 3a 20 53 54 52 49 4e 47 3b 0d 0a 20 20 20 20 49 4e 50 55 54 5f 4c 49 4e 45 20 3a ┆NAME : STRING; INPUT_LINE :┆ 0x9d6e0…9d700 20 53 54 52 49 4e 47 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 49 4e 49 54 49 41 4c 49 5a 45 ┆ STRING; PROCEDURE INITIALIZE┆ 0x9d700…9d720 (78, 1, 8) 3b 0d 0a 56 41 52 0d 0a 20 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 0d 0a 50 52 4f 43 45 44 ┆; VAR I : INTEGER; PROCED┆ 0x9d720…9d740 55 52 45 20 46 49 52 53 54 48 41 4c 46 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4b 45 59 5b 20 31 ┆URE FIRSTHALF; BEGIN KEYÆ 1┆ 0x9d740…9d760 5d 20 3a 3d 20 27 41 4e 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 32 5d 20 3a 3d 20 ┆Å := 'AND '; KEYÆ 2Å := ┆ 0x9d760…9d780 27 41 52 52 41 59 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 33 5d 20 3a 3d 20 27 42 45 47 49 ┆'ARRAY '; KEYÆ 3Å := 'BEGI┆ 0x9d780…9d7a0 4e 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 34 5d 20 3a 3d 20 27 42 4f 4f 4c 45 41 4e 20 27 ┆N '; KEYÆ 4Å := 'BOOLEAN '┆ 0x9d7a0…9d7c0 3b 0d 0a 20 20 20 4b 45 59 5b 20 35 5d 20 3a 3d 20 27 43 41 53 45 20 20 20 20 27 3b 0d 0a 20 20 ┆; KEYÆ 5Å := 'CASE '; ┆ 0x9d7c0…9d7e0 20 4b 45 59 5b 20 36 5d 20 3a 3d 20 27 43 48 41 52 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b ┆ KEYÆ 6Å := 'CHAR '; KEYÆ┆ 0x9d7e0…9d800 20 37 5d 20 3a 3d 20 27 43 4f 4e 53 54 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 38 5d 20 3a ┆ 7Å := 'CONST '; KEYÆ 8Å :┆ 0x9d800…9d820 (78, 1, 9) 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 ┆ ┆ […0x1…] 0x9d840…9d860 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 54 48 49 53 20 50 52 4f 47 52 41 4d 20 50 52 4f 44 55 ┆ *) (* THIS PROGRAM PRODU┆ 0x9d860…9d880 43 45 53 20 41 20 43 52 4f 53 53 2d 52 45 46 45 52 45 4e 43 45 20 4c 49 53 54 49 4e 47 20 46 4f ┆CES A CROSS-REFERENCE LISTING FO┆ 0x9d880…9d8a0 52 20 41 4e 59 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 50 41 53 43 41 4c 20 50 52 4f ┆R ANY *) (* PASCAL PRO┆ 0x9d8a0…9d8c0 47 52 41 4d 2e 20 20 4f 43 43 55 52 45 4e 43 45 53 20 4f 4e 4c 59 20 41 52 45 20 4c 49 53 54 45 ┆GRAM. OCCURENCES ONLY ARE LISTE┆ 0x9d8c0…9d8e0 44 2e 20 20 4e 4f 20 44 49 53 54 49 4e 43 54 49 4f 4e 20 49 53 20 20 2a 29 0d 0a 28 2a 20 20 20 ┆D. NO DISTINCTION IS *) (* ┆ 0x9d8e0…9d900 4d 41 44 45 20 42 45 54 57 45 45 4e 20 44 45 46 49 4e 49 54 49 4f 4e 53 20 41 4e 44 20 52 45 46 ┆MADE BETWEEN DEFINITIONS AND REF┆ 0x9d900…9d920 (78, 1, 10) 45 52 45 4e 43 45 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ERENCES. ┆ 0x9d920…9d940 20 2a 29 0d 0a 28 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ *) (*=========================┆ 0x9d940…9d960 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆ 0x9d960…9d980 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 47 52 41 4d 20 58 52 45 ┆===========*) PROGRAM XRE┆ 0x9d980…9d9a0 46 3b 0d 0a 0d 0a 28 2a 43 52 4f 53 53 20 52 45 46 45 52 45 4e 43 45 20 47 45 4e 45 52 41 54 4f ┆F; (*CROSS REFERENCE GENERATO┆ 0x9d9a0…9d9c0 52 20 46 4f 52 20 50 41 53 43 41 4c 20 50 52 4f 47 52 41 4d 53 2e 20 20 4e 2e 57 49 52 54 48 2c ┆R FOR PASCAL PROGRAMS. N.WIRTH,┆ 0x9d9c0…9d9e0 20 37 2e 35 2e 37 34 2a 29 0d 0a 28 2a 27 51 55 41 44 52 41 54 49 43 20 51 55 4f 54 49 45 4e 54 ┆ 7.5.74*) (*'QUADRATIC QUOTIENT┆ 0x9d9e0…9da00 27 20 48 41 53 48 20 4d 45 54 48 4f 44 2a 29 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 20 20 20 20 ┆' HASH METHOD*) CONST ┆ 0x9da00…9da20 (78, 1, 11) 3d 20 27 44 49 56 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 39 5d 20 3a 3d 20 27 44 4f ┆= 'DIV '; KEYÆ 9Å := 'DO┆ 0x9da20…9da40 57 4e 54 4f 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 30 5d 20 3a 3d 20 27 44 4f 20 20 20 20 20 ┆WNTO '; KEYÆ10Å := 'DO ┆ 0x9da40…9da60 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 31 5d 20 3a 3d 20 27 45 4c 53 45 20 20 20 20 27 3b 0d 0a ┆ '; KEYÆ11Å := 'ELSE '; ┆ 0x9da60…9da80 20 20 20 4b 45 59 5b 31 32 5d 20 3a 3d 20 27 45 4e 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 ┆ KEYÆ12Å := 'END '; KE┆ 0x9da80…9daa0 59 5b 31 33 5d 20 3a 3d 20 27 45 58 49 54 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 34 5d ┆YÆ13Å := 'EXIT '; KEYÆ14Å┆ 0x9daa0…9dac0 20 3a 3d 20 27 46 49 4c 45 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 35 5d 20 3a 3d 20 27 ┆ := 'FILE '; KEYÆ15Å := '┆ 0x9dac0…9dae0 46 4f 52 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 36 5d 20 3a 3d 20 27 46 55 4e 43 54 ┆FOR '; KEYÆ16Å := 'FUNCT┆ 0x9dae0…9db00 49 4f 4e 27 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 43 4f 4e 44 48 ┆ION'; END; PROCEDURE SECONDH┆ 0x9db00…9db20 (78, 1, 12) 41 4c 46 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4b 45 59 5b 31 37 5d 20 3a 3d 20 27 47 4f 54 4f ┆ALF; BEGIN KEYÆ17Å := 'GOTO┆ 0x9db20…9db40 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 38 5d 20 3a 3d 20 27 49 46 20 20 20 20 20 20 27 ┆ '; KEYÆ18Å := 'IF '┆ 0x9db40…9db60 3b 0d 0a 20 20 20 4b 45 59 5b 31 39 5d 20 3a 3d 20 27 49 4e 20 20 20 20 20 20 27 3b 0d 0a 20 20 ┆; KEYÆ19Å := 'IN '; ┆ 0x9db60…9db80 20 4b 45 59 5b 32 30 5d 20 3a 3d 20 27 49 4e 50 55 54 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b ┆ KEYÆ20Å := 'INPUT '; KEYÆ┆ 0x9db80…9dba0 32 31 5d 20 3a 3d 20 27 49 4e 54 45 47 45 52 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 32 5d 20 3a ┆21Å := 'INTEGER '; KEYÆ22Å :┆ 0x9dba0…9dbc0 3d 20 27 4d 4f 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 33 5d 20 3a 3d 20 27 4e 49 ┆= 'MOD '; KEYÆ23Å := 'NI┆ 0x9dbc0…9dbe0 4c 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 34 5d 20 3a 3d 20 27 4e 4f 54 20 20 20 20 ┆L '; KEYÆ24Å := 'NOT ┆ 0x9dbe0…9dc00 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 35 5d 20 3a 3d 20 27 4f 46 20 20 20 20 20 20 27 3b 0d 0a ┆ '; KEYÆ25Å := 'OF '; ┆ 0x9dc00…9dc20 (78, 1, 13) 50 20 20 3d 20 37 34 39 3b 20 20 20 20 20 20 20 20 20 20 20 28 2a 53 49 5a 45 20 4f 46 20 48 41 ┆P = 749; (*SIZE OF HA┆ 0x9dc20…9dc40 53 48 54 41 42 4c 45 2a 29 0d 0a 20 20 20 20 20 20 4e 4b 20 3d 20 20 34 35 3b 20 20 20 20 20 20 ┆SHTABLE*) NK = 45; ┆ 0x9dc40…9dc60 20 20 20 20 20 20 20 28 2a 4e 4f 2e 20 4f 46 20 4b 45 59 57 4f 52 44 53 2a 29 0d 0a 20 20 20 20 ┆ (*NO. OF KEYWORDS*) ┆ 0x9dc60…9dc80 20 20 41 4c 46 41 4c 45 4e 20 20 3d 20 20 38 3b 0d 0a 20 20 20 20 20 20 52 45 46 53 50 45 52 4c ┆ ALFALEN = 8; REFSPERL┆ 0x9dc80…9dca0 49 4e 45 20 3d 20 31 35 3b 0d 0a 20 20 20 20 20 20 52 45 46 53 50 45 52 49 54 45 4d 20 3d 20 20 ┆INE = 15; REFSPERITEM = ┆ 0x9dca0…9dcc0 35 3b 0d 0a 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 20 20 20 41 4c 46 41 20 3d 20 50 41 43 4b 45 44 ┆5; TYPE ALFA = PACKED┆ 0x9dcc0…9dce0 20 41 52 52 41 59 5b 31 2e 2e 41 4c 46 41 4c 45 4e 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20 ┆ ARRAYÆ1..ALFALENÅ OF CHAR; ┆ 0x9dce0…9dd00 20 20 49 4e 44 45 58 20 3d 20 30 2e 2e 50 3b 0d 0a 20 20 20 20 20 49 54 45 4d 50 54 52 20 3d 20 ┆ INDEX = 0..P; ITEMPTR = ┆ 0x9dd00…9dd20 (78, 1, 14) 5e 49 54 45 4d 3b 0d 0a 20 20 20 20 20 57 4f 52 44 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 ┆^ITEM; WORD = RECORD ┆ 0x9dd20…9dd40 20 20 20 20 20 20 20 20 20 20 20 4b 45 59 3a 20 41 4c 46 41 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ KEY: ALFA; ┆ 0x9dd40…9dd60 20 20 20 20 20 20 46 49 52 53 54 2c 20 4c 41 53 54 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 ┆ FIRST, LAST: ITEMPTR; ┆ 0x9dd60…9dd80 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 4c 3a 20 49 4e 44 45 58 0d 0a 20 20 20 20 20 20 20 20 ┆ FOL: INDEX ┆ 0x9dd80…9dda0 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 4e 55 4d 52 45 46 53 20 3d 20 31 2e 2e 52 45 46 ┆ END ; NUMREFS = 1..REF┆ 0x9dda0…9ddc0 53 50 45 52 49 54 45 4d 3b 0d 0a 20 20 20 20 20 52 45 46 54 59 50 45 20 3d 20 28 43 4f 55 4e 54 ┆SPERITEM; REFTYPE = (COUNT┆ 0x9ddc0…9dde0 2c 20 50 54 52 29 3b 0d 0a 20 20 20 20 20 49 54 45 4d 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 ┆, PTR); ITEM = RECORD ┆ 0x9dde0…9de00 20 20 20 20 20 20 20 20 20 20 20 20 52 45 46 20 20 20 3a 20 41 52 52 41 59 5b 4e 55 4d 52 45 46 ┆ REF : ARRAYÆNUMREF┆ 0x9de00…9de20 (78, 1, 15) 20 20 20 4b 45 59 5b 32 36 5d 20 3a 3d 20 27 4f 52 20 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 ┆ KEYÆ26Å := 'OR '; KE┆ 0x9de20…9de40 59 5b 32 37 5d 20 3a 3d 20 27 4f 55 54 50 55 54 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 38 5d ┆YÆ27Å := 'OUTPUT '; KEYÆ28Å┆ 0x9de40…9de60 20 3a 3d 20 27 50 41 43 4b 45 44 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 39 5d 20 3a 3d 20 27 ┆ := 'PACKED '; KEYÆ29Å := '┆ 0x9de60…9de80 50 52 4f 43 45 44 55 52 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 30 5d 20 3a 3d 20 27 50 52 4f 47 52 ┆PROCEDUR'; KEYÆ30Å := 'PROGR┆ 0x9de80…9dea0 41 4d 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 31 5d 20 3a 3d 20 27 52 45 41 4c 20 20 20 20 27 3b ┆AM '; KEYÆ31Å := 'REAL ';┆ 0x9dea0…9dec0 0d 0a 20 20 20 4b 45 59 5b 33 32 5d 20 3a 3d 20 27 52 45 43 4f 52 44 20 20 27 3b 0d 0a 20 20 20 ┆ KEYÆ32Å := 'RECORD '; ┆ 0x9dec0…9dee0 4b 45 59 5b 33 33 5d 20 3a 3d 20 27 52 45 50 45 41 54 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 ┆KEYÆ33Å := 'REPEAT '; KEYÆ3┆ 0x9dee0…9df00 34 5d 20 3a 3d 20 27 53 45 54 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 35 5d 20 3a 3d ┆4Å := 'SET '; KEYÆ35Å :=┆ 0x9df00…9df20 (78, 1, 16) 20 27 53 54 52 49 4e 47 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 36 5d 20 3a 3d 20 27 54 45 58 ┆ 'STRING '; KEYÆ36Å := 'TEX┆ 0x9df20…9df40 54 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 37 5d 20 3a 3d 20 27 54 48 45 4e 20 20 20 20 ┆T '; KEYÆ37Å := 'THEN ┆ 0x9df40…9df60 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 38 5d 20 3a 3d 20 27 54 4f 20 20 20 20 20 20 27 3b 0d 0a 20 ┆'; KEYÆ38Å := 'TO '; ┆ 0x9df60…9df80 20 20 4b 45 59 5b 33 39 5d 20 3a 3d 20 27 54 59 50 45 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 ┆ KEYÆ39Å := 'TYPE '; KEY┆ 0x9df80…9dfa0 5b 34 30 5d 20 3a 3d 20 27 55 4e 54 49 4c 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 31 5d 20 ┆Æ40Å := 'UNTIL '; KEYÆ41Å ┆ 0x9dfa0…9dfc0 3a 3d 20 27 56 41 52 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 32 5d 20 3a 3d 20 27 57 ┆:= 'VAR '; KEYÆ42Å := 'W┆ 0x9dfc0…9dfe0 48 49 4c 45 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 33 5d 20 3a 3d 20 27 57 49 54 48 20 20 ┆HILE '; KEYÆ43Å := 'WITH ┆ 0x9dfe0…9e000 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 34 5d 20 3a 3d 20 27 57 52 49 54 45 20 20 20 27 3b 0d ┆ '; KEYÆ44Å := 'WRITE '; ┆ 0x9e000…9e020 (79, 0, 1) 0a 20 20 20 4b 45 59 5b 34 35 5d 20 3a 3d 20 27 57 52 49 54 45 4c 4e 20 27 3b 0d 0a 45 4e 44 3b ┆ KEYÆ45Å := 'WRITELN '; END;┆ 0x9e020…9e040 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 49 4e 49 54 49 41 4c 49 5a 45 20 2a 29 0d 0a 20 20 20 57 ┆ BEGIN (* INITIALIZE *) W┆ 0x9e040…9e060 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e 28 27 50 61 73 63 61 6c 2f 4d 54 2b 20 ┆RITELN; WRITELN('Pascal/MT+ ┆ 0x9e060…9e080 50 72 6f 67 72 61 6d 20 58 72 65 66 20 55 74 69 6c 69 74 79 20 2d 2d 20 52 65 6c 65 61 73 65 20 ┆Program Xref Utility -- Release ┆ 0x9e080…9e0a0 35 2e 32 27 29 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e 28 27 54 68 69 73 20 70 72 6f 67 72 61 6d ┆5.2'); WRITELN('This program┆ 0x9e0a0…9e0c0 20 69 73 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 27 29 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e ┆ is public domain'); WRITELN┆ 0x9e0c0…9e0e0 3b 0d 0a 20 20 20 46 46 3a 3d 43 48 52 28 31 32 29 3b 0d 0a 20 20 20 4e 45 57 28 42 55 46 31 29 ┆; FF:=CHR(12); NEW(BUF1)┆ 0x9e0e0…9e100 3b 0d 0a 20 20 20 4e 45 57 28 42 55 46 32 29 3b 0d 0a 20 20 20 42 55 46 3a 3d 42 55 46 31 3b 0d ┆; NEW(BUF2); BUF:=BUF1; ┆ 0x9e100…9e120 (79, 0, 2) 0a 20 20 20 45 52 52 4f 52 20 20 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 46 4f 52 20 49 20 ┆ ERROR := FALSE; FOR I ┆ 0x9e120…9e140 3a 3d 20 30 20 54 4f 20 50 20 44 4f 0d 0a 20 20 20 20 20 20 54 5b 49 5d 2e 4b 45 59 20 3a 3d 20 ┆:= 0 TO P DO TÆIÅ.KEY := ┆ 0x9e140…9e160 27 20 20 20 20 20 20 20 20 27 3b 0d 0a 20 20 20 46 49 52 53 54 48 41 4c 46 3b 0d 0a 20 20 20 53 ┆' '; FIRSTHALF; S┆ 0x9e160…9e180 45 43 4f 4e 44 48 41 4c 46 3b 0d 0a 20 20 20 4c 49 4e 45 43 4f 55 4e 54 3a 3d 20 30 3b 0d 0a 20 ┆ECONDHALF; LINECOUNT:= 0; ┆ 0x9e180…9e1a0 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 20 30 3b 0d 0a 20 20 20 54 4f 50 20 3a 3d 20 50 3b 0d 0a ┆ BUFCURSOR:= 0; TOP := P; ┆ 0x9e1a0…9e1c0 20 20 20 43 48 20 20 3a 3d 20 27 20 27 0d 0a 45 4e 44 3b 20 28 2a 20 49 4e 49 54 49 41 4c 49 5a ┆ CH := ' ' END; (* INITIALIZ┆ 0x9e1c0…9e1e0 45 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4f 50 45 4e 46 49 4c 45 53 3b ┆E *) PROCEDURE OPENFILES;┆ 0x9e1e0…9e200 0d 0a 56 41 52 0d 0a 20 20 20 20 4e 55 4d 42 4c 4f 43 4b 53 3a 20 49 4e 54 45 47 45 52 3b 0d 0a ┆ VAR NUMBLOCKS: INTEGER; ┆ 0x9e200…9e220 (79, 0, 3) 48 3a 3d 27 20 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 5a 41 50 3a 3d 46 41 4c ┆H:=' ' ELSE ZAP:=FAL┆ 0x9e220…9e240 53 45 3b 0d 0a 20 20 20 20 20 20 41 5b 49 5d 3a 3d 43 48 3b 0d 0a 20 20 20 20 20 20 4e 55 4d 3a ┆SE; AÆIÅ:=CH; NUM:┆ 0x9e240…9e260 3d 4e 55 4d 20 4d 4f 44 20 49 50 4f 54 3b 0d 0a 20 20 20 20 20 20 49 50 4f 54 3a 3d 49 50 4f 54 ┆=NUM MOD IPOT; IPOT:=IPOT┆ 0x9e260…9e280 20 44 49 56 20 31 30 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 41 5b 37 5d 3a 3d 27 20 27 3b ┆ DIV 10; END; AÆ7Å:=' ';┆ 0x9e280…9e2a0 0d 0a 20 20 4d 4f 56 45 4c 45 46 54 28 41 2c 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 2c 37 ┆ MOVELEFT(A,BUF^ÆBUFCURSORÅ,7┆ 0x9e2a0…9e2c0 29 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 37 3b 0d 0a 45 ┆); BUFCURSOR:=BUFCURSOR+7; E┆ 0x9e2c0…9e2e0 4e 44 3b 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d ┆ND; PROCEDURE GETNEXTCHAR; ┆ 0x9e2e0…9e300 0a 56 41 52 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 0d 0a 20 20 20 20 ┆ VAR I : INTEGER; BEGIN ┆ 0x9e300…9e320 (79, 0, 4) 49 46 20 4c 45 4e 47 54 48 28 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 30 20 54 48 45 4e 0d 0a ┆IF LENGTH(INPUT_LINE) = 0 THEN ┆ 0x9e320…9e340 20 20 20 20 20 20 52 45 41 44 4c 4e 28 49 4e 46 49 4c 45 2c 49 4e 50 55 54 5f 4c 49 4e 45 29 3b ┆ READLN(INFILE,INPUT_LINE);┆ 0x9e340…9e360 0d 0a 0d 0a 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 ┆ IF LENGTH(INPUT_LINE) = ┆ 0x9e360…9e380 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 43 48 20 3a 3d 20 27 20 27 0d 0a 20 20 20 20 45 4c 53 ┆0 THEN CH := ' ' ELS┆ 0x9e380…9e3a0 45 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 43 48 3a 3d 49 4e 50 55 54 5f 4c 49 4e 45 5b ┆E BEGIN CH:=INPUT_LINEÆ┆ 0x9e3a0…9e3c0 31 5d 3b 0d 0a 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 49 4e 50 55 54 5f 4c 49 4e 45 2c 31 ┆1Å; DELETE(INPUT_LINE,1┆ 0x9e3c0…9e3e0 2c 31 29 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 49 46 20 45 4f 46 28 49 4e ┆,1) END; IF EOF(IN┆ 0x9e3e0…9e400 46 49 4c 45 29 20 54 48 45 4e 20 45 52 52 4f 52 3a 3d 54 52 55 45 0d 0a 20 20 20 20 45 4c 53 45 ┆FILE) THEN ERROR:=TRUE ELSE┆ 0x9e400…9e420 (79, 0, 5) 20 20 20 20 4f 50 45 4e 4f 4b 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 4f 50 45 4e 45 52 ┆ OPENOK: BOOLEAN; OPENER┆ 0x9e420…9e440 52 4e 55 4d 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 4c 49 53 54 4f 50 54 49 4f 4e 3a ┆RNUM : INTEGER; LISTOPTION:┆ 0x9e440…9e460 20 43 48 41 52 3b 0d 0a 20 20 20 20 46 49 4c 45 4e 41 4d 45 3a 20 53 54 52 49 4e 47 3b 0d 0a 0d ┆ CHAR; FILENAME: STRING; ┆ 0x9e460…9e480 0a 42 45 47 49 4e 20 28 2a 20 4f 50 45 4e 20 2a 29 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 ┆ BEGIN (* OPEN *) REPEAT ┆ 0x9e480…9e4a0 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 20 27 49 6e 70 75 ┆ WRITELN; WRITE( 'Inpu┆ 0x9e4a0…9e4c0 74 20 66 69 6c 65 20 3f 20 27 20 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 20 46 49 4c ┆t file ? ' ); READLN( FIL┆ 0x9e4c0…9e4e0 45 4e 41 4d 45 20 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 46 49 4c 45 4e 41 ┆ENAME ); IF LENGTH(FILENA┆ 0x9e4e0…9e500 4d 45 29 20 3e 30 20 54 48 45 4e 0d 0a 09 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 41 ┆ME) >0 THEN BEGIN A┆ 0x9e500…9e520 (79, 0, 6) 53 53 49 47 4e 28 49 4e 46 49 4c 45 2c 20 46 49 4c 45 4e 41 4d 45 20 29 3b 0d 0a 09 20 20 52 45 ┆SSIGN(INFILE, FILENAME ); RE┆ 0x9e520…9e540 53 45 54 28 49 4e 46 49 4c 45 29 0d 0a 09 45 4e 44 3b 0d 0a 20 20 20 20 20 20 4f 50 45 4e 45 52 ┆SET(INFILE) END; OPENER┆ 0x9e540…9e560 52 4e 55 4d 20 3a 3d 20 49 4f 52 45 53 55 4c 54 3b 0d 0a 20 20 20 20 20 20 4f 50 45 4e 4f 4b 20 ┆RNUM := IORESULT; OPENOK ┆ 0x9e560…9e580 20 20 20 20 3a 3d 20 28 20 4f 50 45 4e 45 52 52 4e 55 4d 20 3c 3e 20 32 35 35 20 29 3b 0d 0a 20 ┆ := ( OPENERRNUM <> 255 ); ┆ 0x9e580…9e5a0 20 20 20 20 20 49 46 20 4e 4f 54 20 4f 50 45 4e 4f 4b 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 ┆ IF NOT OPENOK THEN ┆ 0x9e5a0…9e5c0 20 57 52 49 54 45 4c 4e 28 20 27 2a 2a 2a 20 49 4e 50 55 54 20 4f 50 45 4e 20 45 52 52 4f 52 20 ┆ WRITELN( '*** INPUT OPEN ERROR ┆ 0x9e5c0…9e5e0 23 27 2c 20 4f 50 45 4e 45 52 52 4e 55 4d 20 29 3b 0d 0a 20 20 20 55 4e 54 49 4c 20 4f 50 45 4e ┆#', OPENERRNUM ); UNTIL OPEN┆ 0x9e5e0…9e600 4f 4b 3b 0d 0a 0d 0a 20 20 20 57 52 49 54 45 28 27 4f 75 74 70 75 74 20 66 69 6c 65 20 6e 61 6d ┆OK; WRITE('Output file nam┆ 0x9e600…9e620 (79, 0, 7) 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 42 55 46 5e 5b 42 55 46 43 ┆ BEGIN BUF^ÆBUFC┆ 0x9e620…9e640 55 52 53 4f 52 5d 3a 3d 43 48 3b 0d 0a 20 20 20 20 20 20 20 20 42 55 46 43 55 52 53 4f 52 3a 3d ┆URSORÅ:=CH; BUFCURSOR:=┆ 0x9e640…9e660 42 55 46 43 55 52 53 4f 52 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 ┆BUFCURSOR+1; IF LENGTH(┆ 0x9e660…9e680 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆INPUT_LINE) = 0 THEN ┆ 0x9e680…9e6a0 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 5e 5b 42 55 46 43 55 52 53 4f ┆BEGIN BUF^ÆBUFCURSO┆ 0x9e6a0…9e6c0 52 5d 3a 3d 43 48 52 28 31 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 43 55 52 ┆RÅ:=CHR(13); BUFCUR┆ 0x9e6c0…9e6e0 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 4c ┆SOR:=BUFCURSOR+1; L┆ 0x9e6e0…9e700 49 4e 45 43 4f 55 4e 54 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 20 2b 31 3b 0d 0a 20 20 20 20 20 20 ┆INECOUNT:= LINECOUNT +1; ┆ 0x9e700…9e720 (79, 0, 8) 20 20 20 20 20 20 49 46 20 4c 49 53 54 49 4e 47 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF LISTING THEN ┆ 0x9e720…9e740 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 4c 53 54 46 49 4c 45 4e 41 4d 45 20 3c 3e 20 ┆ BEGIN IF LSTFILENAME <> ┆ 0x9e740…9e760 27 43 4f 4e 3a 27 20 54 48 45 4e 0d 0a 09 09 20 20 57 52 49 54 45 28 27 2e 27 29 3b 0d 0a 09 09 ┆'CON:' THEN WRITE('.'); ┆ 0x9e760…9e780 46 4f 52 20 49 20 3a 3d 20 30 20 54 4f 20 42 55 46 43 55 52 53 4f 52 2d 31 20 44 4f 0d 0a 20 20 ┆FOR I := 0 TO BUFCURSOR-1 DO ┆ 0x9e780…9e7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 53 54 2c 42 55 46 5e 5b 49 ┆ WRITE(LST,BUF^ÆI┆ 0x9e7a0…9e7c0 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 55 46 20 3d 20 42 55 ┆Å); IF BUF = BU┆ 0x9e7c0…9e7e0 46 32 20 54 48 45 4e 20 42 55 46 3a 3d 42 55 46 31 20 45 4c 53 45 20 42 55 46 3a 3d 42 55 46 32 ┆F2 THEN BUF:=BUF1 ELSE BUF:=BUF2┆ 0x9e7e0…9e800 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 30 3b ┆; BUFCURSOR:=0;┆ 0x9e800…9e820 (79, 0, 9) 65 3f 20 27 29 3b 0d 0a 20 20 20 52 45 41 44 4c 4e 28 4c 53 54 46 49 4c 45 4e 41 4d 45 29 3b 0d ┆e? '); READLN(LSTFILENAME); ┆ 0x9e820…9e840 0a 20 20 20 41 53 53 49 47 4e 28 4c 53 54 2c 4c 53 54 46 49 4c 45 4e 41 4d 45 29 3b 0d 0a 20 20 ┆ ASSIGN(LST,LSTFILENAME); ┆ 0x9e840…9e860 20 52 45 57 52 49 54 45 28 4c 53 54 29 3b 0d 0a 0d 0a 20 20 20 57 52 49 54 45 28 20 27 44 6f 20 ┆ REWRITE(LST); WRITE( 'Do ┆ 0x9e860…9e880 79 6f 75 20 77 61 6e 74 20 61 20 6c 69 73 74 69 6e 67 20 3f 20 27 20 29 3b 0d 0a 20 20 20 52 45 ┆you want a listing ? ' ); RE┆ 0x9e880…9e8a0 41 44 28 20 4c 49 53 54 4f 50 54 49 4f 4e 20 29 3b 0d 0a 20 20 20 4c 49 53 54 49 4e 47 20 3a 3d ┆AD( LISTOPTION ); LISTING :=┆ 0x9e8a0…9e8c0 20 4e 4f 54 28 4c 49 53 54 4f 50 54 49 4f 4e 20 3d 20 27 4e 27 29 3b 0d 0a 20 20 20 49 46 20 4c ┆ NOT(LISTOPTION = 'N'); IF L┆ 0x9e8c0…9e8e0 49 53 54 49 4e 47 20 54 48 45 4e 20 50 55 54 4e 55 4d 42 45 52 28 30 29 3b 0d 0a 20 20 20 52 45 ┆ISTING THEN PUTNUMBER(0); RE┆ 0x9e8e0…9e900 41 44 4c 4e 28 49 4e 46 49 4c 45 2c 49 4e 50 55 54 5f 4c 49 4e 45 29 3b 0d 0a 20 20 20 57 52 49 ┆ADLN(INFILE,INPUT_LINE); WRI┆ 0x9e900…9e920 (79, 0, 10) 54 45 4c 4e 3b 0d 0a 45 4e 44 3b 20 28 2a 20 4f 50 45 4e 20 2a 29 0d 0a 0d 0a 0d 0a 50 52 4f 43 ┆TELN; END; (* OPEN *) PROC┆ 0x9e920…9e940 45 44 55 52 45 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 56 41 52 0d 0a 20 20 49 20 3a 20 49 4e 54 ┆EDURE LPWRITELN; VAR I : INT┆ 0x9e940…9e960 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 3a ┆EGER; BEGIN BUF^ÆBUFCURSORÅ:┆ 0x9e960…9e980 3d 43 48 52 28 31 33 29 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f ┆=CHR(13); BUFCURSOR:=BUFCURSO┆ 0x9e980…9e9a0 52 2b 31 3b 0d 0a 20 20 46 4f 52 20 49 20 3a 3d 20 30 20 54 4f 20 42 55 46 43 55 52 53 4f 52 2d ┆R+1; FOR I := 0 TO BUFCURSOR-┆ 0x9e9a0…9e9c0 31 20 44 4f 0d 0a 20 20 20 20 57 52 49 54 45 28 4c 53 54 2c 42 55 46 5e 5b 49 5d 29 3b 0d 0a 20 ┆1 DO WRITE(LST,BUF^ÆIÅ); ┆ 0x9e9c0…9e9e0 20 49 46 20 42 55 46 20 3d 20 42 55 46 31 20 54 48 45 4e 20 42 55 46 3a 3d 42 55 46 32 20 45 4c ┆ IF BUF = BUF1 THEN BUF:=BUF2 EL┆ 0x9e9e0…9ea00 53 45 20 42 55 46 3a 3d 42 55 46 31 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 30 3b 0d 0a ┆SE BUF:=BUF1; BUFCURSOR:=0; ┆ 0x9ea00…9ea20 (79, 0, 11) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 4e 55 4d 42 45 52 28 4c 49 4e 45 ┆ PUTNUMBER(LINE┆ 0x9ea20…9ea40 43 4f 55 4e 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 ┆COUNT); END ┆ 0x9ea40…9ea60 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 09 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 09 42 55 ┆ ELSE BEGIN BU┆ 0x9ea60…9ea80 46 43 55 52 53 4f 52 3a 3d 30 3b 0d 0a 09 09 57 52 49 54 45 28 27 2e 27 29 0d 0a 09 20 20 20 20 ┆FCURSOR:=0; WRITE('.') ┆ 0x9ea80…9eaa0 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 4c 49 4e 45 43 4f ┆ END; IF (LINECO┆ 0x9eaa0…9eac0 55 4e 54 20 4d 4f 44 20 36 30 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆UNT MOD 60) = 0 THEN ┆ 0x9eac0…9eae0 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 20 20 49 46 20 4c 49 ┆ BEGIN IF LI┆ 0x9eae0…9eb00 53 54 49 4e 47 20 54 48 45 4e 20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆STING THEN PAGE(LST); ┆ 0x9eb00…9eb20 (79, 0, 12) 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4f 55 54 50 55 54 2c 27 3c 20 27 2c 4c 49 4e 45 43 ┆ WRITELN(OUTPUT,'< ',LINEC┆ 0x9eb20…9eb40 4f 55 4e 54 3a 34 2c 27 2c 27 2c 4d 45 4d 41 56 41 49 4c 3a 35 2c 27 20 3e 27 29 3b 0d 0a 20 20 ┆OUNT:4,',',MEMAVAIL:5,' >'); ┆ 0x9eb40…9eb60 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 20 45 4e 44 ┆ END; END┆ 0x9eb60…9eb80 3b 0d 0a 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 45 4e 44 3b 20 28 2a 20 47 45 54 4e 45 58 54 ┆; END; END; (* GETNEXT┆ 0x9eb80…9eba0 43 48 41 52 20 2a 29 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 41 52 43 48 28 20 49 ┆CHAR *) PROCEDURE SEARCH( I┆ 0x9eba0…9ebc0 44 3a 20 41 4c 46 41 20 29 3b 20 20 20 20 20 20 20 20 20 20 28 2a 4d 4f 44 55 4c 4f 20 50 20 48 ┆D: ALFA ); (*MODULO P H┆ 0x9ebc0…9ebe0 41 53 48 20 53 45 41 52 43 48 2a 29 0d 0a 28 2a 47 4c 4f 42 41 4c 3a 20 54 2c 20 54 4f 50 2a 29 ┆ASH SEARCH*) (*GLOBAL: T, TOP*)┆ 0x9ebe0…9ec00 0d 0a 56 41 52 0d 0a 20 20 20 20 49 2c 4a 2c 48 2c 44 20 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a ┆ VAR I,J,H,D : INTEGER; ┆ 0x9ec00…9ec20 (79, 0, 13) 20 20 4c 49 4e 45 43 4f 55 4e 54 3a 3d 4c 49 4e 45 43 4f 55 4e 54 2b 31 3b 0d 0a 20 20 49 46 20 ┆ LINECOUNT:=LINECOUNT+1; IF ┆ 0x9ec20…9ec40 28 4c 49 4e 45 43 4f 55 4e 54 20 4d 4f 44 20 36 30 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 ┆(LINECOUNT MOD 60) = 0 THEN ┆ 0x9ec40…9ec60 20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 ┆ PAGE(LST); END; PROCEDURE P┆ 0x9ec60…9ec80 55 54 41 4c 46 41 28 53 3a 41 4c 46 41 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 4d 4f 56 45 4c 45 ┆UTALFA(S:ALFA); BEGIN MOVELE┆ 0x9ec80…9eca0 46 54 28 53 5b 31 5d 2c 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 2c 38 29 3b 0d 0a 20 20 42 ┆FT(SÆ1Å,BUF^ÆBUFCURSORÅ,8); B┆ 0x9eca0…9ecc0 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 38 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a ┆UFCURSOR:=BUFCURSOR+8; END; ┆ 0x9ecc0…9ece0 50 52 4f 43 45 44 55 52 45 20 50 55 54 4e 55 4d 42 45 52 28 4e 55 4d 3a 20 49 4e 54 45 47 45 52 ┆PROCEDURE PUTNUMBER(NUM: INTEGER┆ 0x9ece0…9ed00 29 3b 0d 0a 56 41 52 20 49 2c 49 50 4f 54 3a 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 41 3a 20 ┆); VAR I,IPOT:INTEGER; A: ┆ 0x9ed00…9ed20 (79, 0, 14) 41 4c 46 41 3b 0d 0a 20 20 20 20 43 48 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 5a 41 50 3a 42 4f ┆ALFA; CH: CHAR; ZAP:BO┆ 0x9ed20…9ed40 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 0d 0a 42 45 47 49 4e 0d 0a 20 20 5a 41 50 3a 3d 54 52 55 45 ┆OLEAN; BEGIN ZAP:=TRUE┆ 0x9ed40…9ed60 3b 0d 0a 20 20 49 50 4f 54 3a 3d 31 30 30 30 30 3b 0d 0a 20 20 41 5b 31 5d 3a 3d 27 20 27 3b 0d ┆; IPOT:=10000; AÆ1Å:=' '; ┆ 0x9ed60…9ed80 0a 20 20 46 4f 52 20 49 3a 3d 20 32 20 54 4f 20 36 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d ┆ FOR I:= 2 TO 6 DO BEGIN ┆ 0x9ed80…9eda0 0a 20 20 20 20 20 20 43 48 3a 3d 43 48 52 28 4e 55 4d 20 44 49 56 20 49 50 4f 54 20 2b 20 4f 52 ┆ CH:=CHR(NUM DIV IPOT + OR┆ 0x9eda0…9edc0 44 28 27 30 27 29 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 49 20 3c 3e 20 36 20 54 48 45 4e 0d 0a ┆D('0')); IF I <> 6 THEN ┆ 0x9edc0…9ede0 20 20 20 20 20 20 20 20 49 46 20 5a 41 50 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ IF ZAP THEN ┆ 0x9ede0…9ee00 49 46 20 43 48 20 3d 20 27 30 27 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 43 ┆IF CH = '0' THEN C┆ 0x9ee00…9ee20 (79, 0, 15) 20 20 20 20 58 20 20 20 20 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 20 46 20 20 20 20 3a 20 ┆ X : ITEMPTR; F : ┆ 0x9ee20…9ee40 42 4f 4f 4c 45 41 4e 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4a 3a 3d 30 3b 0d 0a 20 20 20 ┆BOOLEAN; BEGIN J:=0; ┆ 0x9ee40…9ee60 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 41 4c 46 41 4c 45 4e 20 44 4f 0d 0a 20 20 20 20 20 4a 3a ┆FOR I:= 1 TO ALFALEN DO J:┆ 0x9ee60…9ee80 3d 20 4a 2a 31 30 2b 4f 52 44 28 49 44 5b 49 5d 29 3b 0d 0a 20 20 20 48 20 20 3a 3d 20 41 42 53 ┆= J*10+ORD(IDÆIÅ); H := ABS┆ 0x9ee80…9eea0 28 4a 29 20 4d 4f 44 20 50 3b 0d 0a 20 20 20 46 20 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 ┆(J) MOD P; F := FALSE; ┆ 0x9eea0…9eec0 44 20 20 3a 3d 20 31 3b 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 54 5b ┆D := 1; REPEAT IF TÆ┆ 0x9eec0…9eee0 48 5d 2e 4b 45 59 20 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 ┆HÅ.KEY = ID THEN ┆ 0x9eee0…9ef00 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 46 4f 55 4e 44 2a 29 0d 0a 20 20 20 20 20 20 20 ┆ BEGIN (*FOUND*) ┆ 0x9ef00…9ef20 (79, 0, 16) 20 20 20 20 20 20 20 20 46 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ F := TRUE; ┆ 0x9ef20…9ef40 20 20 20 49 46 20 54 5b 48 5d 2e 4c 41 53 54 5e 2e 52 45 46 4e 55 4d 20 3d 20 52 45 46 53 50 45 ┆ IF TÆHÅ.LAST^.REFNUM = REFSPE┆ 0x9ef40…9ef60 52 49 54 45 4d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 ┆RITEM THEN ┆ 0x9ef60…9ef80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆ BEGIN ┆ 0x9ef80…9efa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 58 29 3b 0d 0a 20 20 20 ┆ NEW(X); ┆ 0x9efa0…9efc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 4e 55 4d 20 ┆ X^.REFNUM ┆ 0x9efc0…9efe0 3a 3d 20 31 3b 0d 0a 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 ┆:= 1; ┆ 0x9efe0…9f000 58 5e 2e 52 45 46 5b 31 5d 20 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 3b 0d 0a 20 20 20 20 20 20 20 ┆X^.REFÆ1Å := LINECOUNT; ┆ 0x9f000…9f020 (79, 1, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 4c 41 53 54 5e 2e 4e 45 58 ┆ TÆHÅ.LAST^.NEX┆ 0x9f020…9f040 54 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T:= X; ┆ 0x9f040…9f060 20 54 5b 48 5d 2e 4c 41 53 54 20 20 20 20 20 20 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ TÆHÅ.LAST := X; ┆ 0x9f060…9f080 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END ┆ 0x9f080…9f0a0 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48 ┆ ELSE WITH┆ 0x9f0a0…9f0c0 20 54 5b 48 5d 2e 4c 41 53 54 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TÆHÅ.LAST^ DO ┆ 0x9f0c0…9f0e0 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 20 20 20 20 20 20 20 ┆ BEGIN ┆ 0x9f0e0…9f100 20 20 20 20 20 20 20 20 52 45 46 4e 55 4d 20 20 20 20 20 20 3a 3d 20 52 45 46 4e 55 4d 20 2b 20 ┆ REFNUM := REFNUM + ┆ 0x9f100…9f120 (79, 1, 2) 31 3b 0d 0a 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 52 45 ┆1; RE┆ 0x9f120…9f140 46 5b 52 45 46 4e 55 4d 5d 20 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 0d 0a 20 20 20 20 20 20 20 20 ┆FÆREFNUMÅ := LINECOUNT ┆ 0x9f140…9f160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END ┆ 0x9f160…9f180 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆END ELSE ┆ 0x9f180…9f1a0 49 46 20 54 5b 48 5d 2e 4b 45 59 20 3d 20 27 20 20 20 20 20 20 20 20 27 0d 0a 20 20 20 20 20 20 ┆IF TÆHÅ.KEY = ' ' ┆ 0x9f1a0…9f1c0 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆ 0x9f1c0…9f1e0 20 42 45 47 49 4e 20 28 2a 4e 45 57 20 45 4e 54 52 59 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN (*NEW ENTRY*) ┆ 0x9f1e0…9f200 20 20 20 20 20 20 20 20 20 20 20 46 20 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ F := TRUE; ┆ 0x9f200…9f220 (79, 1, 3) 20 28 2a 50 52 49 4e 54 57 4f 52 44 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆ (*PRINTWORD*) ; PROCEDUR┆ 0x9f220…9f240 45 20 50 52 49 4e 54 54 41 42 4c 45 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 20 20 49 2c 4a 2c 4d 3a ┆E PRINTTABLE; VAR I,J,M:┆ 0x9f240…9f260 20 49 4e 44 45 58 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 49 20 3a 3d 20 54 4f 50 3b 0d 0a ┆ INDEX; BEGIN I := TOP; ┆ 0x9f260…9f280 20 20 20 57 48 49 4c 45 20 49 20 3c 3e 20 50 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 20 ┆ WHILE I <> P DO BEGIN ┆ 0x9f280…9f2a0 28 2a 46 49 4e 44 20 4d 49 4e 49 4d 41 4c 20 57 4f 52 44 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 ┆(*FIND MINIMAL WORD*) ┆ 0x9f2a0…9f2c0 4d 20 3a 3d 20 49 3b 0d 0a 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 54 5b 49 5d 2e 46 4f 4c 3b ┆M := I; J := TÆIÅ.FOL;┆ 0x9f2c0…9f2e0 0d 0a 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 4a 20 3c 3e 20 50 20 44 4f 0d 0a 20 20 20 20 ┆ WHILE J <> P DO ┆ 0x9f2e0…9f300 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 20 20 20 20 49 46 ┆ BEGIN IF┆ 0x9f300…9f320 (79, 1, 4) 20 54 5b 4a 5d 2e 4b 45 59 20 3c 20 54 5b 4d 5d 2e 4b 45 59 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ TÆJÅ.KEY < TÆMÅ.KEY ┆ 0x9f320…9f340 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆ 0x9f340…9f360 20 20 20 4d 20 3a 3d 20 4a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 ┆ M := J; J := ┆ 0x9f360…9f380 54 5b 4a 5d 2e 46 4f 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 ┆TÆJÅ.FOL END ; ┆ 0x9f380…9f3a0 20 20 20 20 20 20 50 52 49 4e 54 57 4f 52 44 28 54 5b 4d 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ PRINTWORD(TÆMÅ); ┆ 0x9f3a0…9f3c0 20 49 46 20 4d 20 3c 3e 20 49 20 54 48 45 4e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 42 45 47 ┆ IF M <> I THEN BEG┆ 0x9f3c0…9f3e0 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 4b 45 59 3a 3d 54 5b 49 5d 2e ┆IN TÆMÅ.KEY:=TÆIÅ.┆ 0x9f3e0…9f400 4b 45 59 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 46 49 52 53 54 3a 3d 54 ┆KEY; TÆMÅ.FIRST:=T┆ 0x9f400…9f420 (79, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 58 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ NEW(X); ┆ 0x9f420…9f440 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 4e 55 4d 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 ┆ X^.REFNUM := 1; ┆ 0x9f440…9f460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 5b 31 5d 20 3a 3d 20 4c 49 ┆ X^.REFÆ1Å := LI┆ 0x9f460…9f480 4e 45 43 4f 55 4e 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 ┆NECOUNT; T┆ 0x9f480…9f4a0 5b 48 5d 2e 4b 45 59 20 20 20 3a 3d 20 49 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ÆHÅ.KEY := ID; ┆ 0x9f4a0…9f4c0 20 20 20 20 20 20 20 54 5b 48 5d 2e 46 49 52 53 54 20 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 ┆ TÆHÅ.FIRST := X; ┆ 0x9f4c0…9f4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 4c 41 53 54 20 20 3a 3d 20 58 3b 0d 0a ┆ TÆHÅ.LAST := X; ┆ 0x9f4e0…9f500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 46 4f 4c 20 20 20 ┆ TÆHÅ.FOL ┆ 0x9f500…9f520 (79, 1, 6) 3a 3d 20 54 4f 50 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f ┆:= TOP; TO┆ 0x9f520…9f540 50 20 3a 3d 20 48 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 ┆P := H END ┆ 0x9f540…9f560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆ 0x9f560…9f580 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 43 4f 4c 4c 49 53 49 4f 4e 2a 29 0d 0a 20 20 20 20 20 ┆ BEGIN (*COLLISION*) ┆ 0x9f580…9f5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 20 3a 3d 20 48 2b 44 3b 0d 0a 20 20 20 20 20 ┆ H := H+D; ┆ 0x9f5a0…9f5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 20 3a 3d 20 44 2b 32 3b 0d 0a 20 20 20 20 20 ┆ D := D+2; ┆ 0x9f5c0…9f5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 48 20 3e 3d 20 50 0d 0a 20 20 20 20 20 ┆ IF H >= P ┆ 0x9f5e0…9f600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 ┆ THEN ┆ 0x9f600…9f620 (79, 1, 7) 5b 49 5d 2e 46 49 52 53 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 4c 41 ┆ÆIÅ.FIRST; TÆMÅ.LA┆ 0x9f620…9f640 53 54 3a 3d 54 5b 49 5d 2e 4c 41 53 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d ┆ST:=TÆIÅ.LAST; END; ┆ 0x9f640…9f660 0a 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 54 5b 49 5d 2e 46 4f 4c 0d 0a 20 20 20 20 20 20 45 ┆ I := TÆIÅ.FOL E┆ 0x9f660…9f680 4e 44 0d 0a 45 4e 44 20 28 2a 50 52 49 4e 54 54 41 42 4c 45 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a ┆ND END (*PRINTTABLE*) ; ┆ 0x9f680…9f6a0 50 52 4f 43 45 44 55 52 45 20 47 45 54 49 44 45 4e 54 49 46 49 45 52 3b 0d 0a 56 41 52 0d 0a 20 ┆PROCEDURE GETIDENTIFIER; VAR ┆ 0x9f6a0…9f6c0 20 20 20 4a 2c 4b 2c 49 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 49 44 3a 20 41 4c 46 41 ┆ J,K,I: INTEGER; ID: ALFA┆ 0x9f6c0…9f6e0 3b 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 47 45 54 49 44 45 4e 54 49 46 49 45 52 20 2a 29 0d 0a ┆; BEGIN (* GETIDENTIFIER *) ┆ 0x9f6e0…9f700 20 20 20 49 20 3a 3d 20 30 3b 0d 0a 20 20 20 49 44 20 3a 3d 20 27 20 20 20 20 20 20 20 20 27 3b ┆ I := 0; ID := ' ';┆ 0x9f700…9f720 (79, 1, 8) 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 49 20 3c 20 41 4c 46 41 4c 45 ┆ REPEAT IF I < ALFALE┆ 0x9f720…9f740 4e 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆N THEN BE┆ 0x9f740…9f760 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 49 2b 31 3b 0d 0a 20 ┆GIN I := I+1; ┆ 0x9f760…9f780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 27 61 27 20 3c 3d 20 43 48 29 20 41 4e 44 ┆ IF ('a' <= CH) AND┆ 0x9f780…9f7a0 20 28 43 48 20 3c 3d 20 27 7a 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (CH <= 'z') ┆ 0x9f7a0…9f7c0 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 5b 49 5d ┆THEN IDÆIÅ┆ 0x9f7c0…9f7e0 20 3a 3d 20 43 48 52 28 20 4f 52 44 28 43 48 29 20 2d 20 4f 52 44 28 27 61 27 29 20 2b 20 4f 52 ┆ := CHR( ORD(CH) - ORD('a') + OR┆ 0x9f7e0…9f800 44 28 27 41 27 29 20 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 ┆D('A') ) ELSE┆ 0x9f800…9f820 (79, 1, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 20 3a 3d 20 48 20 2d 20 50 3b 0d ┆ H := H - P; ┆ 0x9f820…9f840 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 20 3d 20 50 0d 0a ┆ IF D = P ┆ 0x9f840…9f860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 ┆ THEN ┆ 0x9f860…9f880 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 42 45 47 49 4e 0d 0a ┆ BEGIN ┆ 0x9f880…9f8a0 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 57 52 ┆ WR┆ 0x9f8a0…9f8c0 49 54 45 4c 4e 28 4f 55 54 50 55 54 2c 27 54 42 4c 45 20 4f 56 46 4c 57 27 29 3b 0d 0a 20 20 20 ┆ITELN(OUTPUT,'TBLE OVFLW'); ┆ 0x9f8c0…9f8e0 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 45 52 52 4f 52 ┆ ERROR┆ 0x9f8e0…9f900 20 3a 3d 20 54 52 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := TRUE ┆ 0x9f900…9f920 (79, 1, 10) 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e ┆ END ; EN┆ 0x9f920…9f940 44 0d 0a 20 20 20 55 4e 54 49 4c 20 46 20 4f 52 20 45 52 52 4f 52 0d 0a 45 4e 44 20 28 2a 53 45 ┆D UNTIL F OR ERROR END (*SE┆ 0x9f940…9f960 41 52 43 48 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 52 49 4e 54 57 ┆ARCH*) ; PROCEDURE PRINTW┆ 0x9f960…9f980 4f 52 44 28 57 3a 20 57 4f 52 44 29 3b 0d 0a 56 41 52 0d 0a 20 20 20 20 4c 3a 20 49 4e 54 45 47 ┆ORD(W: WORD); VAR L: INTEG┆ 0x9f980…9f9a0 45 52 3b 0d 0a 20 20 20 20 58 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 20 4e 45 58 54 52 45 ┆ER; X: ITEMPTR; NEXTRE┆ 0x9f9a0…9f9c0 46 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 54 48 49 53 52 45 46 3a 20 4e 55 4d 52 45 ┆F : INTEGER; THISREF: NUMRE┆ 0x9f9c0…9f9e0 46 53 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 50 55 54 41 4c 46 41 28 57 2e 4b 45 59 29 3b 0d 0a ┆FS; BEGIN PUTALFA(W.KEY); ┆ 0x9f9e0…9fa00 20 20 20 58 20 3a 3d 20 57 2e 46 49 52 53 54 3b 0d 0a 20 20 20 4c 20 3a 3d 20 30 3b 0d 0a 20 20 ┆ X := W.FIRST; L := 0; ┆ 0x9fa00…9fa20 (79, 1, 11) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 5b 49 5d 20 3a 3d 20 ┆ IDÆIÅ := ┆ 0x9fa20…9fa40 43 48 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 47 45 54 4e ┆CH END; GETN┆ 0x9fa40…9fa60 45 58 54 43 48 41 52 0d 0a 20 20 20 55 4e 54 49 4c 20 28 20 4e 4f 54 28 28 28 43 48 3e 3d 27 41 ┆EXTCHAR UNTIL ( NOT(((CH>='A┆ 0x9fa60…9fa80 27 29 20 41 4e 44 20 28 43 48 3c 3d 27 5a 27 29 29 20 4f 52 20 28 28 43 48 3e 3d 27 61 27 29 20 ┆') AND (CH<='Z')) OR ((CH>='a') ┆ 0x9fa80…9faa0 41 4e 44 20 28 43 48 3c 3d 27 7a 27 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AND (CH<='z')) ┆ 0x9faa0…9fac0 4f 52 20 28 28 43 48 3e 3d 27 30 27 29 20 41 4e 44 20 28 43 48 3c 3d 27 39 27 29 29 29 29 20 4f ┆OR ((CH>='0') AND (CH<='9')))) O┆ 0x9fac0…9fae0 52 20 28 45 52 52 4f 52 29 3b 0d 0a 20 20 20 49 20 3a 3d 20 31 3b 0d 0a 20 20 20 4a 20 3a 3d 20 ┆R (ERROR); I := 1; J := ┆ 0x9fae0…9fb00 4e 4b 3b 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 4b 20 3a 3d 20 28 49 2b 4a 29 ┆NK; REPEAT K := (I+J)┆ 0x9fb00…9fb20 (79, 1, 12) 20 44 49 56 20 32 3b 20 20 20 20 20 20 28 2a 42 49 4e 41 52 59 20 53 45 41 52 43 48 2a 29 0d 0a ┆ DIV 2; (*BINARY SEARCH*) ┆ 0x9fb20…9fb40 20 20 20 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3c 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF KEYÆKÅ <= ID ┆ 0x9fb40…9fb60 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 4b 2b 31 3b 0d 0a 0d 0a 20 ┆THEN I := K+1; ┆ 0x9fb60…9fb80 20 20 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3e 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 54 ┆ IF KEYÆKÅ >= ID T┆ 0x9fb80…9fba0 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 4b 2d 31 3b 0d 0a 0d 0a 20 20 ┆HEN J := K-1; ┆ 0x9fba0…9fbc0 20 55 4e 54 49 4c 20 49 20 3e 20 4a 3b 0d 0a 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3c 3e 20 49 ┆ UNTIL I > J; IF KEYÆKÅ <> I┆ 0x9fbc0…9fbe0 44 20 54 48 45 4e 20 53 45 41 52 43 48 28 49 44 29 3b 0d 0a 45 4e 44 3b 20 28 2a 20 47 45 54 49 ┆D THEN SEARCH(ID); END; (* GETI┆ 0x9fbe0…9fc00 44 45 4e 54 49 46 49 45 52 20 2a 29 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 43 52 4f 53 53 52 45 ┆DENTIFIER *) BEGIN (* CROSSRE┆ 0x9fc00…9fc20 (79, 1, 13) 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 4c 20 3d 20 52 45 46 53 50 45 52 4c 49 4e ┆ REPEAT IF L = REFSPERLIN┆ 0x9fc20…9fc40 45 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆E THEN BE┆ 0x9fc40…9fc60 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 20 3a 3d 20 30 3b 0d 0a 20 20 20 ┆GIN L := 0; ┆ 0x9fc60…9fc80 20 20 20 20 20 20 20 20 20 20 20 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ LPWRITELN; ┆ 0x9fc80…9fca0 20 20 20 20 20 20 20 50 55 54 41 4c 46 41 28 27 20 20 20 20 20 20 20 20 27 29 3b 0d 0a 20 20 20 ┆ PUTALFA(' '); ┆ 0x9fca0…9fcc0 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 20 4c 20 3a 3d 20 4c 2b 31 3b 0d ┆ END ; L := L+1; ┆ 0x9fcc0…9fce0 0a 20 20 20 20 20 20 54 48 49 53 52 45 46 20 3a 3d 20 28 4c 2d 31 29 20 4d 4f 44 20 52 45 46 53 ┆ THISREF := (L-1) MOD REFS┆ 0x9fce0…9fd00 50 45 52 49 54 45 4d 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 4e 45 58 54 52 45 46 20 3a 3d 20 58 ┆PERITEM + 1; NEXTREF := X┆ 0x9fd00…9fd20 (79, 1, 14) 5e 2e 52 45 46 5b 20 54 48 49 53 52 45 46 20 5d 3b 0d 0a 20 20 20 20 20 20 49 46 20 54 48 49 53 ┆^.REFÆ THISREF Å; IF THIS┆ 0x9fd20…9fd40 52 45 46 20 3d 20 58 5e 2e 52 45 46 4e 55 4d 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a ┆REF = X^.REFNUM THEN ┆ 0x9fd40…9fd60 20 20 20 20 20 20 20 20 20 20 20 20 58 20 3a 3d 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 45 ┆ X := NIL E┆ 0x9fd60…9fd80 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 48 49 53 52 45 46 20 3d 20 52 45 ┆LSE IF THISREF = RE┆ 0x9fd80…9fda0 46 53 50 45 52 49 54 45 4d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a ┆FSPERITEM THEN ┆ 0x9fda0…9fdc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 20 3a 3d 20 58 5e 2e 4e 45 58 54 3b 0d ┆ X := X^.NEXT; ┆ 0x9fdc0…9fde0 0a 20 20 20 20 20 20 50 55 54 4e 55 4d 42 45 52 28 4e 45 58 54 52 45 46 29 3b 0d 0a 20 20 20 55 ┆ PUTNUMBER(NEXTREF); U┆ 0x9fde0…9fe00 4e 54 49 4c 20 58 20 3d 20 4e 49 4c 3b 0d 0a 20 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 45 4e 44 ┆NTIL X = NIL; LPWRITELN; END┆ 0x9fe00…9fe20 (79, 1, 15) 46 20 2a 29 0d 0a 20 20 20 49 4e 49 54 49 41 4c 49 5a 45 3b 0d 0a 0d 0a 20 20 20 4f 50 45 4e 46 ┆F *) INITIALIZE; OPENF┆ 0x9fe20…9fe40 49 4c 45 53 3b 0d 0a 20 20 20 57 48 49 4c 45 20 28 4e 4f 54 28 45 4f 46 28 49 4e 46 49 4c 45 29 ┆ILES; WHILE (NOT(EOF(INFILE)┆ 0x9fe40…9fe60 29 29 20 41 4e 44 20 28 4e 4f 54 28 20 45 52 52 4f 52 29 29 20 44 4f 0d 0a 20 20 20 20 20 20 42 ┆)) AND (NOT( ERROR)) DO B┆ 0x9fe60…9fe80 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 49 46 20 28 28 43 48 3e 3d 27 41 27 29 20 41 4e 44 20 ┆EGIN IF ((CH>='A') AND ┆ 0x9fe80…9fea0 28 43 48 3c 3d 27 5a 27 29 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 45 54 49 44 ┆(CH<='Z')) THEN GETID┆ 0x9fea0…9fec0 45 4e 54 49 46 49 45 52 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 ┆ENTIFIER ELSE ┆ 0x9fec0…9fee0 20 20 49 46 20 28 43 48 20 3d 20 27 27 27 27 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF (CH = '''') THEN ┆ 0x9fee0…9ff00 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a ┆ BEGIN REPEAT ┆ 0x9ff00…9ff20 (79, 1, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 ┆ GETNEXTCHAR; ┆ 0x9ff20…9ff40 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 43 48 20 3d 20 27 27 27 27 29 20 4f 52 ┆ UNTIL (CH = '''') OR┆ 0x9ff40…9ff60 20 28 45 52 52 4f 52 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 ┆ (ERROR); GETNEXT┆ 0x9ff60…9ff80 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 ┆CHAR; END ┆ 0x9ff80…9ffa0 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 43 48 20 3d 20 27 28 27 20 ┆ ELSE IF CH = '(' ┆ 0x9ffa0…9ffc0 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆THEN BEGIN ┆ 0x9ffc0…9ffe0 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 ┆ GETNEXTCHAR; ┆ 0x9ffe0…a0000 20 20 20 20 20 20 20 20 20 49 46 20 43 48 20 3d 20 27 2a 27 20 54 48 45 4e 0d 0a 20 20 20 20 20 ┆ IF CH = '*' THEN ┆